diff --git a/src/bootstrap/gerbil/builtin.ssxi.ss b/src/bootstrap/gerbil/builtin.ssxi.ss index a1a140a2e..f19628dcb 100644 --- a/src/bootstrap/gerbil/builtin.ssxi.ss +++ b/src/bootstrap/gerbil/builtin.ssxi.ss @@ -254,10 +254,13 @@ package: gerbil ((_ prim ...) (declare-primitive* (prim 5) ...))) -(defrules declare-primitive/5/unchecked() +(defrules declare-primitive/5/unchecked () ((_ prim ...) (declare-primitive/unchecked* (prim 5) ...))) +(defrules declare-primitive/6/unchecked () + ((_ prim ...) + (declare-primitive/unchecked* (prim 6) ...))) ;; r5rs primitives -- (declare-primitive/0/unchecked interaction-environment) @@ -484,6 +487,9 @@ package: gerbil substring-move! subu8vector-move!) +(declare-primitive/6/unchecked + make-class-type) + (declare-primitive/unchecked* (iota 1 2 3) (assgetq 2 3) @@ -504,10 +510,7 @@ package: gerbil (bytes->string 1 2) (string-index 2 3) (string-rindex 2 3) - (make-struct-type 6 7) - (make-class-type 6) - (make-struct-instance (1)) - (make-class-instance (1)) + (make-instance (1)) (class-instance-init! (1)) (slot-ref 2 3) (slot-set! 3 4) diff --git a/src/bootstrap/gerbil/compiler/base__0.scm b/src/bootstrap/gerbil/compiler/base__0.scm index 4acd4c1f5..48954f170 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 1707573213) + (define gerbil/compiler/base::timestamp 1707674932) (begin (define gxc#current-compile-symbol-table (make-parameter '#f)) (define gxc#current-compile-runtime-sections (make-parameter '#f)) @@ -18,143 +18,142 @@ (define gxc#current-compile-decls (make-parameter '#f)) (define gxc#current-compile-context (make-parameter '#f)) (define gxc#symbol-table::t - (let ((__tmp192585 - (let ((__tmp192586 + (let ((__tmp194835 (list)) + (__tmp194833 + (let ((__tmp194834 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp192586 '())))) + (cons __tmp194834 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#symbol-table::t 'symbol-table - '#f + __tmp194835 '(gensyms bindings) - __tmp192585 + __tmp194833 ':init!))) (define gxc#symbol-table? - (let () - (declare (not safe)) - (make-struct-predicate gxc#symbol-table::t))) + (let () (declare (not safe)) (make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _$args188070_ - (apply make-struct-instance gxc#symbol-table::t _$args188070_))) + (lambda _$args190218_ + (apply make-instance gxc#symbol-table::t _$args190218_))) (define gxc#symbol-table-gensyms (let () (declare (not safe)) - (make-struct-slot-accessor gxc#symbol-table::t 'gensyms))) + (make-class-slot-accessor gxc#symbol-table::t 'gensyms))) (define gxc#symbol-table-bindings (let () (declare (not safe)) - (make-struct-slot-accessor gxc#symbol-table::t 'bindings))) + (make-class-slot-accessor gxc#symbol-table::t 'bindings))) (define gxc#symbol-table-gensyms-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#symbol-table::t 'gensyms))) + (make-class-slot-mutator gxc#symbol-table::t 'gensyms))) (define gxc#symbol-table-bindings-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#symbol-table::t 'bindings))) + (make-class-slot-mutator gxc#symbol-table::t 'bindings))) (define gxc#&symbol-table-gensyms (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#symbol-table::t 'gensyms))) + (make-class-slot-unchecked-accessor gxc#symbol-table::t 'gensyms))) (define gxc#&symbol-table-bindings (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#symbol-table::t 'bindings))) + (make-class-slot-unchecked-accessor gxc#symbol-table::t 'bindings))) (define gxc#&symbol-table-gensyms-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#symbol-table::t 'gensyms))) + (make-class-slot-unchecked-mutator gxc#symbol-table::t 'gensyms))) (define gxc#&symbol-table-bindings-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#symbol-table::t 'bindings))) + (make-class-slot-unchecked-mutator gxc#symbol-table::t 'bindings))) (define gxc#symbol-table:::init! - (lambda (_self188068_) - (if (let ((__tmp192591 + (lambda (_self190216_) + (if (let ((__tmp194840 (let () (declare (not safe)) - (##structure-length _self188068_)))) + (##structure-length _self190216_)))) (declare (not safe)) - (##fx< '2 __tmp192591)) + (##fx< '2 __tmp194840)) (begin - (let ((__tmp192588 + (let ((__tmp194837 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp192587 + (__tmp194836 (let () (declare (not safe)) - (##structure-type _self188068_)))) + (##structure-type _self190216_)))) (declare (not safe)) (##unchecked-structure-set! - _self188068_ - __tmp192588 + _self190216_ + __tmp194837 '1 - __tmp192587 + __tmp194836 '#f)) - (let ((__tmp192590 + (let ((__tmp194839 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp192589 + (__tmp194838 (let () (declare (not safe)) - (##structure-type _self188068_)))) + (##structure-type _self190216_)))) (declare (not safe)) (##unchecked-structure-set! - _self188068_ - __tmp192590 + _self190216_ + __tmp194839 '2 - __tmp192589 + __tmp194838 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self188068_ + _self190216_ '2 (let () (declare (not safe)) - (##vector-length _self188068_)))))) + (##vector-length _self190216_)))))) (let () (declare (not safe)) (bind-method! gxc#symbol-table::t ':init! gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_message187937_ _stx187938_ . _details187939_) - (let ((_ctx187944_ - (let ((_$e187941_ (gxc#current-compile-context))) - (if _$e187941_ _$e187941_ 'compile)))) + (lambda (_message190085_ _stx190086_ . _details190087_) + (let ((_ctx190092_ + (let ((_$e190089_ (gxc#current-compile-context))) + (if _$e190089_ _$e190089_ 'compile)))) (apply gx#raise-syntax-error - _ctx187944_ - _message187937_ - _stx187938_ - _details187939_)))) + _ctx190092_ + _message190085_ + _stx190086_ + _details190087_)))) (define gxc#verbose - (lambda _args187934_ + (lambda _args190082_ (if (gxc#current-compile-verbose) - (let ((__tmp192592 (lambda () (apply displayln _args187934_)))) + (let ((__tmp194841 (lambda () (apply displayln _args190082_)))) (declare (not safe)) - (with-lock gxc#+verbose-mutex+ __tmp192592)) + (with-lock gxc#+verbose-mutex+ __tmp194841)) '#!void))) (define gxc#+verbose-mutex+ (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_id187916_) - (let* ((_str187918_ - (if (let () (declare (not safe)) (symbol? _id187916_)) - (symbol->string _id187916_) - _id187916_)) - (_len187920_ (string-length _str187918_)) - (_res187922_ (make-string _len187920_))) - (let _lp187925_ ((_i187927_ '0)) - (if (fx< _i187927_ _len187920_) - (let* ((_char187929_ (string-ref _str187918_ _i187927_)) - (_xchar187931_ + (lambda (_id190064_) + (let* ((_str190066_ + (if (let () (declare (not safe)) (symbol? _id190064_)) + (symbol->string _id190064_) + _id190064_)) + (_len190068_ (string-length _str190066_)) + (_res190070_ (make-string _len190068_))) + (let _lp190073_ ((_i190075_ '0)) + (if (fx< _i190075_ _len190068_) + (let* ((_char190077_ (string-ref _str190066_ _i190075_)) + (_xchar190079_ (if (let () (declare (not safe)) (string-index gxc#module-path-reserved-chars - _char187929_)) + _char190077_)) '#\_ - _char187929_))) - (string-set! _res187922_ _i187927_ _xchar187931_) - (let ((__tmp192593 - (let () (declare (not safe)) (fx+ _i187927_ '1)))) + _char190077_))) + (string-set! _res190070_ _i190075_ _xchar190079_) + (let ((__tmp194842 + (let () (declare (not safe)) (fx+ _i190075_ '1)))) (declare (not safe)) - (_lp187925_ __tmp192593))) - _res187922_))))))) + (_lp190073_ __tmp194842))) + _res190070_))))))) diff --git a/src/bootstrap/gerbil/compiler/base__1.scm b/src/bootstrap/gerbil/compiler/base__1.scm index 917a4f2d2..0419747e6 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]#_g192623_| + (define |gxc[1]#_g194872_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192625_| + (define |gxc[1]#_g194874_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192627_| + (define |gxc[1]#_g194876_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192632_| + (define |gxc[1]#_g194881_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192635_| + (define |gxc[1]#_g194884_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192640_| + (define |gxc[1]#_g194889_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192643_| + (define |gxc[1]#_g194892_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192648_| + (define |gxc[1]#_g194897_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192651_| + (define |gxc[1]#_g194900_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192656_| + (define |gxc[1]#_g194905_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192659_| + (define |gxc[1]#_g194908_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! @@ -79,431 +79,431 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_stx187514_) + (lambda (_stx189662_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx187514_ + _stx189662_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_stx187517_) - (let* ((_g187520187544_ - (lambda (_g187521187540_) + (lambda (_stx189665_) + (let* ((_g189668189692_ + (lambda (_g189669189688_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187521187540_)))) - (_g187519187847_ - (lambda (_g187521187548_) + _g189669189688_)))) + (_g189667189995_ + (lambda (_g189669189696_) (if (let () (declare (not safe)) - (gx#stx-pair? _g187521187548_)) - (let ((_e187526187551_ + (gx#stx-pair? _g189669189696_)) + (let ((_e189674189699_ (let () (declare (not safe)) - (gx#syntax-e _g187521187548_)))) - (let ((_hd187525187555_ + (gx#syntax-e _g189669189696_)))) + (let ((_hd189673189703_ (let () (declare (not safe)) - (##car _e187526187551_))) - (_tl187524187558_ + (##car _e189674189699_))) + (_tl189672189706_ (let () (declare (not safe)) - (##cdr _e187526187551_)))) + (##cdr _e189674189699_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187524187558_)) - (let ((_e187529187561_ + (gx#stx-pair? _tl189672189706_)) + (let ((_e189677189709_ (let () (declare (not safe)) - (gx#syntax-e _tl187524187558_)))) - (let ((_hd187528187565_ + (gx#syntax-e _tl189672189706_)))) + (let ((_hd189676189713_ (let () (declare (not safe)) - (##car _e187529187561_))) - (_tl187527187568_ + (##car _e189677189709_))) + (_tl189675189716_ (let () (declare (not safe)) - (##cdr _e187529187561_)))) + (##cdr _e189677189709_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl187527187568_)) - (let ((_g192594_ + (gx#stx-pair/null? _tl189675189716_)) + (let ((_g194843_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl187527187568_ + _tl189675189716_ '0)))) (begin - (let ((_g192595_ + (let ((_g194844_ (let () (declare (not safe)) - (if (##values? _g192594_) + (if (##values? _g194843_) (##vector-length - _g192594_) + _g194843_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192595_ 2))) + (##fx= _g194844_ 2))) (error "Context expects 2 values" - _g192595_))) - (let ((_target187530187571_ + _g194844_))) + (let ((_target189678189719_ (let () (declare (not safe)) - (##vector-ref _g192594_ 0))) - (_tl187532187574_ + (##vector-ref _g194843_ 0))) + (_tl189680189722_ (let () (declare (not safe)) (##vector-ref - _g192594_ + _g194843_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl187532187574_)) - (letrec ((_loop187533187577_ - (lambda (_hd187531187581_ + _tl189680189722_)) + (letrec ((_loop189681189725_ + (lambda (_hd189679189729_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause187537187584_) + _clause189685189732_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd187531187581_)) - (let ((_e187534187587_ + (gx#stx-pair? _hd189679189729_)) + (let ((_e189682189735_ (let () (declare (not safe)) - (gx#syntax-e _hd187531187581_)))) - (let ((_lp-hd187535187591_ + (gx#syntax-e _hd189679189729_)))) + (let ((_lp-hd189683189739_ (let () (declare (not safe)) - (##car _e187534187587_))) - (_lp-tl187536187594_ + (##car _e189682189735_))) + (_lp-tl189684189742_ (let () (declare (not safe)) - (##cdr _e187534187587_)))) - (_loop187533187577_ - _lp-tl187536187594_ + (##cdr _e189682189735_)))) + (_loop189681189725_ + _lp-tl189684189742_ (let () (declare (not safe)) - (cons _lp-hd187535187591_ - _clause187537187584_))))) - (let ((_clause187538187597_ - (reverse _clause187537187584_))) - ((lambda (_L187601_ _L187603_) + (cons _lp-hd189683189739_ + _clause189685189732_))))) + (let ((_clause189686189745_ + (reverse _clause189685189732_))) + ((lambda (_L189749_ _L189751_) (if (let () (declare (not safe)) - (gx#identifier-list? _L187603_)) - (let* ((_g187622187639_ - (lambda (_g187623187635_) + (gx#identifier-list? _L189751_)) + (let* ((_g189770189787_ + (lambda (_g189771189783_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187623187635_)))) - (_g187621187700_ - (lambda (_g187623187643_) + _g189771189783_)))) + (_g189769189848_ + (lambda (_g189771189791_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g187623187643_)) - (let ((_g192596_ + _g189771189791_)) + (let ((_g194845_ (let () (declare (not safe)) (gx#syntax-split-splice - _g187623187643_ + _g189771189791_ '0)))) (begin - (let ((_g192597_ + (let ((_g194846_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g192596_) - (##vector-length _g192596_) + _g194845_) + (##vector-length _g194845_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g192597_ 2))) - (error "Context expects 2 values" _g192597_))) + (##fx= _g194846_ 2))) + (error "Context expects 2 values" _g194846_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target187625187646_ + (let ((_target189773189794_ (let () (declare (not safe)) (##vector-ref - _g192596_ + _g194845_ 0))) - (_tl187627187649_ + (_tl189775189797_ (let () (declare (not safe)) (##vector-ref - _g192596_ + _g194845_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl187627187649_)) - (letrec ((_loop187628187652_ + _tl189775189797_)) + (letrec ((_loop189776189800_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd187626187656_ _clause187632187659_) + (lambda (_hd189774189804_ _clause189780189807_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd187626187656_)) - (let ((_e187629187662_ + (gx#stx-pair? _hd189774189804_)) + (let ((_e189777189810_ (let () (declare (not safe)) - (gx#syntax-e _hd187626187656_)))) - (let ((_lp-hd187630187666_ + (gx#syntax-e _hd189774189804_)))) + (let ((_lp-hd189778189814_ (let () (declare (not safe)) - (##car _e187629187662_))) - (_lp-tl187631187669_ + (##car _e189777189810_))) + (_lp-tl189779189817_ (let () (declare (not safe)) - (##cdr _e187629187662_)))) - (_loop187628187652_ - _lp-tl187631187669_ + (##cdr _e189777189810_)))) + (_loop189776189800_ + _lp-tl189779189817_ (let () (declare (not safe)) - (cons _lp-hd187630187666_ - _clause187632187659_))))) - (let ((_clause187633187672_ - (reverse _clause187632187659_))) - ((lambda (_L187676_) + (cons _lp-hd189778189814_ + _clause189780189807_))))) + (let ((_clause189781189820_ + (reverse _clause189780189807_))) + ((lambda (_L189824_) (let () - (let ((__tmp192609 + (let ((__tmp194858 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp192598 - (let ((__tmp192607 - (let ((__tmp192608 + (__tmp194847 + (let ((__tmp194856 + (let ((__tmp194857 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '$stx)))) (declare (not safe)) - (cons __tmp192608 '()))) + (cons __tmp194857 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp192599 - (let ((__tmp192600 - (let ((__tmp192606 + (__tmp194848 + (let ((__tmp194849 + (let ((__tmp194855 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp192601 - (let ((__tmp192605 + (__tmp194850 + (let ((__tmp194854 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '$stx))) - (__tmp192602 - (let ((__tmp192603 - (let ((__tmp192604 - (lambda (_g187691187694_ - _g187692187697_) + (__tmp194851 + (let ((__tmp194852 + (let ((__tmp194853 + (lambda (_g189839189842_ + _g189840189845_) (let () (declare (not safe)) - (cons _g187691187694_ - _g187692187697_))))) + (cons _g189839189842_ + _g189840189845_))))) (declare (not safe)) - (foldr1 __tmp192604 + (foldr1 __tmp194853 '() - _L187676_)))) + _L189824_)))) (declare (not safe)) - (cons _L187603_ __tmp192603)))) + (cons _L189751_ __tmp194852)))) (declare (not safe)) - (cons __tmp192605 __tmp192602)))) + (cons __tmp194854 __tmp194851)))) (declare (not safe)) - (cons __tmp192606 __tmp192601)))) + (cons __tmp194855 __tmp194850)))) (declare (not safe)) - (cons __tmp192600 '())))) + (cons __tmp194849 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp192607 - __tmp192599)))) + (cons __tmp194856 + __tmp194848)))) (declare (not safe)) - (cons __tmp192609 __tmp192598)))) - _clause187633187672_)))))) - (_loop187628187652_ _target187625187646_ '())) - (_g187622187639_ _g187623187643_))))) + (cons __tmp194858 __tmp194847)))) + _clause189781189820_)))))) + (_loop189776189800_ _target189773189794_ '())) + (_g189770189787_ _g189771189791_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g187622187639_ - _g187623187643_))))) - (_g187621187700_ - (let ((__tmp192612 - (lambda (_clause187704_) - (let* ((___stx192541192542_ - _clause187704_) - (_g187708187735_ + (_g189770189787_ + _g189771189791_))))) + (_g189769189848_ + (let ((__tmp194861 + (lambda (_clause189852_) + (let* ((___stx194789194790_ + _clause189852_) + (_g189856189883_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx192541192542_))))) - (let ((___kont192544192545_ - (lambda (_L187820_ - _L187822_) - (let ((__tmp192613 - (let ((__tmp192614 + ___stx194789194790_))))) + (let ((___kont194792194793_ + (lambda (_L189968_ + _L189970_) + (let ((__tmp194862 + (let ((__tmp194863 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp192616 + (let ((__tmp194865 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp192615 + (__tmp194864 (let () (declare (not safe)) - (cons _L187820_ '())))) + (cons _L189968_ '())))) (declare (not safe)) - (cons __tmp192616 __tmp192615)))) + (cons __tmp194865 __tmp194864)))) (declare (not safe)) - (cons __tmp192614 '())))) + (cons __tmp194863 '())))) (declare (not safe)) - (cons _L187822_ __tmp192613)))) + (cons _L189970_ __tmp194862)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont192546192547_ - (lambda (_L187772_ - _L187774_ - _L187775_) - (let ((__tmp192617 - (let ((__tmp192618 + (___kont194794194795_ + (lambda (_L189920_ + _L189922_ + _L189923_) + (let ((__tmp194866 + (let ((__tmp194867 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp192619 - (let ((__tmp192621 + (let ((__tmp194868 + (let ((__tmp194870 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp192620 + (__tmp194869 (let () (declare (not safe)) - (cons _L187772_ '())))) + (cons _L189920_ '())))) (declare (not safe)) - (cons __tmp192621 __tmp192620)))) + (cons __tmp194870 __tmp194869)))) (declare (not safe)) - (cons __tmp192619 '())))) + (cons __tmp194868 '())))) (declare (not safe)) - (cons _L187774_ __tmp192618)))) + (cons _L189922_ __tmp194867)))) (declare (not safe)) - (cons _L187775_ __tmp192617))))) + (cons _L189923_ __tmp194866))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx192541192542_)) - (let ((_e187714187800_ + ___stx194789194790_)) + (let ((_e189862189948_ (let () (declare (not safe)) (gx#syntax-e - ___stx192541192542_)))) - (let ((_tl187712187807_ + ___stx194789194790_)))) + (let ((_tl189860189955_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e187714187800_))) - (_hd187713187804_ - (let () (declare (not safe)) (##car _e187714187800_)))) + (##cdr _e189862189948_))) + (_hd189861189952_ + (let () (declare (not safe)) (##car _e189862189948_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187712187807_)) - (let ((_e187717187810_ + (gx#stx-pair? _tl189860189955_)) + (let ((_e189865189958_ (let () (declare (not safe)) - (gx#syntax-e _tl187712187807_)))) - (let ((_tl187715187817_ + (gx#syntax-e _tl189860189955_)))) + (let ((_tl189863189965_ (let () (declare (not safe)) - (##cdr _e187717187810_))) - (_hd187716187814_ + (##cdr _e189865189958_))) + (_hd189864189962_ (let () (declare (not safe)) - (##car _e187717187810_)))) + (##car _e189865189958_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl187715187817_)) - (___kont192544192545_ - _hd187716187814_ - _hd187713187804_) + (gx#stx-null? _tl189863189965_)) + (___kont194792194793_ + _hd189864189962_ + _hd189861189952_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187715187817_)) - (let ((_e187729187762_ + (gx#stx-pair? _tl189863189965_)) + (let ((_e189877189910_ (let () (declare (not safe)) - (gx#syntax-e _tl187715187817_)))) - (let ((_tl187727187769_ + (gx#syntax-e _tl189863189965_)))) + (let ((_tl189875189917_ (let () (declare (not safe)) - (##cdr _e187729187762_))) - (_hd187728187766_ + (##cdr _e189877189910_))) + (_hd189876189914_ (let () (declare (not safe)) - (##car _e187729187762_)))) + (##car _e189877189910_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl187727187769_)) - (___kont192546192547_ - _hd187728187766_ - _hd187716187814_ - _hd187713187804_) + (gx#stx-null? _tl189875189917_)) + (___kont194794194795_ + _hd189876189914_ + _hd189864189962_ + _hd189861189952_) (let () (declare (not safe)) - (_g187708187735_))))) + (_g189856189883_))))) (let () (declare (not safe)) - (_g187708187735_)))))) - (let () (declare (not safe)) (_g187708187735_))))) + (_g189856189883_)))))) + (let () (declare (not safe)) (_g189856189883_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g187708187735_))))))) - (__tmp192610 - (let ((__tmp192611 - (lambda (_g187838187841_ - _g187839187844_) + (_g189856189883_))))))) + (__tmp194859 + (let ((__tmp194860 + (lambda (_g189986189989_ + _g189987189992_) (let () (declare (not safe)) - (cons _g187838187841_ - _g187839187844_))))) + (cons _g189986189989_ + _g189987189992_))))) (declare (not safe)) - (foldr1 __tmp192611 + (foldr1 __tmp194860 '() - _L187601_)))) + _L189749_)))) (declare (not safe)) - (gx#stx-map1 __tmp192612 __tmp192610)))) - (_g187520187544_ _g187521187548_))) - _clause187538187597_ - _hd187528187565_)))))) + (gx#stx-map1 __tmp194861 __tmp194859)))) + (_g189668189692_ _g189669189696_))) + _clause189686189745_ + _hd189676189713_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop187533187577_ - _target187530187571_ + (_loop189681189725_ + _target189678189719_ '())) - (_g187520187544_ - _g187521187548_))))) - (_g187520187544_ _g187521187548_)))) - (_g187520187544_ _g187521187548_)))) - (_g187520187544_ _g187521187548_))))) - (_g187519187847_ _stx187517_)))) + (_g189668189692_ + _g189669189696_))))) + (_g189668189692_ _g189669189696_)))) + (_g189668189692_ _g189669189696_)))) + (_g189668189692_ _g189669189696_))))) + (_g189667189995_ _stx189665_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj192584 + (let ((__obj194832 (let () (declare (not safe)) (##structure @@ -525,7 +525,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192584 + __obj194832 'gxc#symbol-table::t '1 gerbil/core$$#class-type-info::t @@ -533,7 +533,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192584 + __obj194832 'symbol-table '2 gerbil/core$$#class-type-info::t @@ -541,7 +541,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192584 + __obj194832 '(gensyms bindings) '4 gerbil/core$$#class-type-info::t @@ -549,7 +549,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192584 + __obj194832 '() '3 gerbil/core$$#class-type-info::t @@ -557,7 +557,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192584 + __obj194832 '#t '5 gerbil/core$$#class-type-info::t @@ -565,7 +565,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192584 + __obj194832 '#f '6 gerbil/core$$#class-type-info::t @@ -573,205 +573,205 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192584 + __obj194832 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp192622 |gxc[1]#_g192623_|)) + (let ((__tmp194871 |gxc[1]#_g194872_|)) (declare (not safe)) (##unchecked-structure-set! - __obj192584 - __tmp192622 + __obj194832 + __tmp194871 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp192624 |gxc[1]#_g192625_|)) + (let ((__tmp194873 |gxc[1]#_g194874_|)) (declare (not safe)) (##unchecked-structure-set! - __obj192584 - __tmp192624 + __obj194832 + __tmp194873 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp192626 |gxc[1]#_g192627_|)) + (let ((__tmp194875 |gxc[1]#_g194876_|)) (declare (not safe)) (##unchecked-structure-set! - __obj192584 - __tmp192626 + __obj194832 + __tmp194875 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp192628 - (let ((__tmp192633 - (let ((__tmp192634 |gxc[1]#_g192635_|)) + (let ((__tmp194877 + (let ((__tmp194882 + (let ((__tmp194883 |gxc[1]#_g194884_|)) (declare (not safe)) - (cons 'gensyms __tmp192634))) - (__tmp192629 - (let ((__tmp192630 - (let ((__tmp192631 |gxc[1]#_g192632_|)) + (cons 'gensyms __tmp194883))) + (__tmp194878 + (let ((__tmp194879 + (let ((__tmp194880 |gxc[1]#_g194881_|)) (declare (not safe)) - (cons 'bindings __tmp192631)))) + (cons 'bindings __tmp194880)))) (declare (not safe)) - (cons __tmp192630 '())))) + (cons __tmp194879 '())))) (declare (not safe)) - (cons __tmp192633 __tmp192629)))) + (cons __tmp194882 __tmp194878)))) (declare (not safe)) (##unchecked-structure-set! - __obj192584 - __tmp192628 + __obj194832 + __tmp194877 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp192636 - (let ((__tmp192641 - (let ((__tmp192642 |gxc[1]#_g192643_|)) + (let ((__tmp194885 + (let ((__tmp194890 + (let ((__tmp194891 |gxc[1]#_g194892_|)) (declare (not safe)) - (cons 'gensyms __tmp192642))) - (__tmp192637 - (let ((__tmp192638 - (let ((__tmp192639 |gxc[1]#_g192640_|)) + (cons 'gensyms __tmp194891))) + (__tmp194886 + (let ((__tmp194887 + (let ((__tmp194888 |gxc[1]#_g194889_|)) (declare (not safe)) - (cons 'bindings __tmp192639)))) + (cons 'bindings __tmp194888)))) (declare (not safe)) - (cons __tmp192638 '())))) + (cons __tmp194887 '())))) (declare (not safe)) - (cons __tmp192641 __tmp192637)))) + (cons __tmp194890 __tmp194886)))) (declare (not safe)) (##unchecked-structure-set! - __obj192584 - __tmp192636 + __obj194832 + __tmp194885 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp192644 - (let ((__tmp192649 - (let ((__tmp192650 |gxc[1]#_g192651_|)) + (let ((__tmp194893 + (let ((__tmp194898 + (let ((__tmp194899 |gxc[1]#_g194900_|)) (declare (not safe)) - (cons 'gensyms __tmp192650))) - (__tmp192645 - (let ((__tmp192646 - (let ((__tmp192647 |gxc[1]#_g192648_|)) + (cons 'gensyms __tmp194899))) + (__tmp194894 + (let ((__tmp194895 + (let ((__tmp194896 |gxc[1]#_g194897_|)) (declare (not safe)) - (cons 'bindings __tmp192647)))) + (cons 'bindings __tmp194896)))) (declare (not safe)) - (cons __tmp192646 '())))) + (cons __tmp194895 '())))) (declare (not safe)) - (cons __tmp192649 __tmp192645)))) + (cons __tmp194898 __tmp194894)))) (declare (not safe)) (##unchecked-structure-set! - __obj192584 - __tmp192644 + __obj194832 + __tmp194893 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp192652 - (let ((__tmp192657 - (let ((__tmp192658 |gxc[1]#_g192659_|)) + (let ((__tmp194901 + (let ((__tmp194906 + (let ((__tmp194907 |gxc[1]#_g194908_|)) (declare (not safe)) - (cons 'gensyms __tmp192658))) - (__tmp192653 - (let ((__tmp192654 - (let ((__tmp192655 |gxc[1]#_g192656_|)) + (cons 'gensyms __tmp194907))) + (__tmp194902 + (let ((__tmp194903 + (let ((__tmp194904 |gxc[1]#_g194905_|)) (declare (not safe)) - (cons 'bindings __tmp192655)))) + (cons 'bindings __tmp194904)))) (declare (not safe)) - (cons __tmp192654 '())))) + (cons __tmp194903 '())))) (declare (not safe)) - (cons __tmp192657 __tmp192653)))) + (cons __tmp194906 __tmp194902)))) (declare (not safe)) (##unchecked-structure-set! - __obj192584 - __tmp192652 + __obj194832 + __tmp194901 '14 gerbil/core$$#class-type-info::t '#f)) - __obj192584)) + __obj194832)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_$stx187853_) - (let* ((_g187857187871_ - (lambda (_g187858187867_) + (lambda (_$stx190001_) + (let* ((_g190005190019_ + (lambda (_g190006190015_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g187858187867_)))) - (_g187856187912_ - (lambda (_g187858187875_) + _g190006190015_)))) + (_g190004190060_ + (lambda (_g190006190023_) (if (let () (declare (not safe)) - (gx#stx-pair? _g187858187875_)) - (let ((_e187862187878_ + (gx#stx-pair? _g190006190023_)) + (let ((_e190010190026_ (let () (declare (not safe)) - (gx#syntax-e _g187858187875_)))) - (let ((_hd187861187882_ + (gx#syntax-e _g190006190023_)))) + (let ((_hd190009190030_ (let () (declare (not safe)) - (##car _e187862187878_))) - (_tl187860187885_ + (##car _e190010190026_))) + (_tl190008190033_ (let () (declare (not safe)) - (##cdr _e187862187878_)))) + (##cdr _e190010190026_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl187860187885_)) - (let ((_e187865187888_ + (gx#stx-pair? _tl190008190033_)) + (let ((_e190013190036_ (let () (declare (not safe)) - (gx#syntax-e _tl187860187885_)))) - (let ((_hd187864187892_ + (gx#syntax-e _tl190008190033_)))) + (let ((_hd190012190040_ (let () (declare (not safe)) - (##car _e187865187888_))) - (_tl187863187895_ + (##car _e190013190036_))) + (_tl190011190043_ (let () (declare (not safe)) - (##cdr _e187865187888_)))) + (##cdr _e190013190036_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl187863187895_)) - ((lambda (_L187898_) - (let ((__tmp192667 + (gx#stx-null? _tl190011190043_)) + ((lambda (_L190046_) + (let ((__tmp194916 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp192660 - (let ((__tmp192666 + (__tmp194909 + (let ((__tmp194915 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+verbose-mutex+))) - (__tmp192661 - (let ((__tmp192662 - (let ((__tmp192665 + (__tmp194910 + (let ((__tmp194911 + (let ((__tmp194914 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp192663 - (let ((__tmp192664 + (__tmp194912 + (let ((__tmp194913 (let () (declare (not safe)) - (cons _L187898_ '())))) + (cons _L190046_ '())))) (declare (not safe)) - (cons '() __tmp192664)))) + (cons '() __tmp194913)))) (declare (not safe)) - (cons __tmp192665 __tmp192663)))) + (cons __tmp194914 __tmp194912)))) (declare (not safe)) - (cons __tmp192662 '())))) + (cons __tmp194911 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp192666 - __tmp192661)))) + (cons __tmp194915 + __tmp194910)))) (declare (not safe)) - (cons __tmp192667 __tmp192660))) - _hd187864187892_) - (_g187857187871_ _g187858187875_)))) - (_g187857187871_ _g187858187875_)))) - (_g187857187871_ _g187858187875_))))) - (_g187856187912_ _$stx187853_)))))) + (cons __tmp194916 __tmp194909))) + _hd190012190040_) + (_g190005190019_ _g190006190023_)))) + (_g190005190019_ _g190006190023_)))) + (_g190005190019_ _g190006190023_))))) + (_g190004190060_ _$stx190001_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile.ssi b/src/bootstrap/gerbil/compiler/compile.ssi index 3cb3241d4..b644ea088 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 s16vector? 0 s16vector?) - (0 s64vector? 0 s64vector?) - (0 s32vector? 0 s32vector?) - (0 u8vector? 0 u8vector?) - (0 u32vector? 0 u32vector?) + (0 f64vector? 0 f64vector?) + (0 s8vector? 0 s8vector?) (0 u16vector? 0 u16vector?) + (0 u32vector? 0 u32vector?) (0 u64vector? 0 u64vector?) - (0 s8vector? 0 s8vector?))) + (0 u8vector? 0 u8vector?) + (0 s32vector? 0 s32vector?) + (0 s64vector? 0 s64vector?) + (0 s16vector? 0 s16vector?))) (%#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 cdabbf814..a59761813 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 1707573213) + (define gerbil/compiler/compile::timestamp 1707674932) (begin - (define gxc#_g210123_ + (define gxc#_g212472_ (gx#core-deserialize-mark - '(0 (else . _else203945_) (hd . _hd203968_)) + '(0 (else . _else206194_) (hd . _hd206217_)) (gx#current-expander-context))) - (define gxc#_g210124_ + (define gxc#_g212473_ (##structure gx#syntax-quote::t - '_hd203968_ + '_hd206217_ #f (gx#current-expander-context) - (list gxc#_g210123_))) - (define gxc#_g210129_ + (list gxc#_g212472_))) + (define gxc#_g212478_ (gx#core-deserialize-mark - '(0 (else . _else204006_) (hd . _hd204029_)) + '(0 (else . _else206255_) (hd . _hd206278_)) (gx#current-expander-context))) - (define gxc#_g210130_ + (define gxc#_g212479_ (##structure gx#syntax-quote::t - '_hd204029_ + '_hd206278_ #f (gx#current-expander-context) - (list gxc#_g210129_))) - (define gxc#_g210135_ + (list gxc#_g212478_))) + (define gxc#_g212484_ (gx#core-deserialize-mark - '(0 (else . _else204068_) (hd . _hd204091_)) + '(0 (else . _else206317_) (hd . _hd206340_)) (gx#current-expander-context))) - (define gxc#_g210136_ + (define gxc#_g212485_ (##structure gx#syntax-quote::t - '_hd204091_ + '_hd206340_ #f (gx#current-expander-context) - (list gxc#_g210135_))) - (define gxc#_g210141_ + (list gxc#_g212484_))) + (define gxc#_g212490_ (gx#core-deserialize-mark - '(0 (else . _else204131_) (hd . _hd204154_)) + '(0 (else . _else206380_) (hd . _hd206403_)) (gx#current-expander-context))) - (define gxc#_g210142_ + (define gxc#_g212491_ (##structure gx#syntax-quote::t - '_hd204154_ + '_hd206403_ #f (gx#current-expander-context) - (list gxc#_g210141_))) + (list gxc#_g212490_))) (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-e204166_ - (lambda (_id204168_) + (letrec ((_hash-e206415_ + (lambda (_id206417_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _id204168_)))))) + (let () (declare (not safe)) (gx#stx-e _id206417_)))))) (let () (declare (not safe)) (make-table 'test: gx#bound-identifier=? 'hash: - _hash-e204166_))))) + _hash-e206415_))))) (define gxc#compile-e__0 - (lambda (_stx203919_) - (let* ((___stx208638208639_ _stx203919_) - (_g203922203933_ + (lambda (_stx206168_) + (let* ((___stx210987210988_ _stx206168_) + (_g206171206182_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx208638208639_))))) - (let ((___kont208640208641_ - (lambda (_L203960_) - (let ((_$e203970_ - (let ((__tmp210120 (gxc#current-compile-methods)) - (__tmp210119 + ___stx210987210988_))))) + (let ((___kont210989210990_ + (lambda (_L206209_) + (let ((_$e206219_ + (let ((__tmp212469 (gxc#current-compile-methods)) + (__tmp212468 (let () (declare (not safe)) - (gx#stx-e _L203960_)))) + (gx#stx-e _L206209_)))) (declare (not safe)) - (table-ref __tmp210120 __tmp210119 '#f)))) - (if _$e203970_ - ((lambda (_method203973_) + (table-ref __tmp212469 __tmp212468 '#f)))) + (if _$e206219_ + ((lambda (_method206222_) (declare (not safe)) - (_method203973_ _stx203919_)) - _$e203970_) + (_method206222_ _stx206168_)) + _$e206219_) '#!void)))) - (___kont208642208643_ - (lambda (_L203938_) - (let ((__tmp210121 - (let ((__tmp210122 gxc#_g210124_)) + (___kont210991210992_ + (lambda (_L206187_) + (let ((__tmp212470 + (let ((__tmp212471 gxc#_g212473_)) (declare (not safe)) - (gx#datum->syntax__% __tmp210122 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp212471 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx203919_ - __tmp210121))))) + _stx206168_ + __tmp212470))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx208638208639_)) - (let ((_e203927203952_ + (gx#stx-pair? ___stx210987210988_)) + (let ((_e206176206201_ (let () (declare (not safe)) - (gx#stx-e ___stx208638208639_)))) - (let ((_tl203925203957_ + (gx#stx-e ___stx210987210988_)))) + (let ((_tl206174206206_ (let () (declare (not safe)) - (##cdr _e203927203952_))) - (_hd203926203955_ + (##cdr _e206176206201_))) + (_hd206175206204_ (let () (declare (not safe)) - (##car _e203927203952_)))) - (___kont208640208641_ _hd203926203955_))) - (___kont208642208643_ ___stx208638208639_)))))) + (##car _e206176206201_)))) + (___kont210989210990_ _hd206175206204_))) + (___kont210991210992_ ___stx210987210988_)))))) (define gxc#compile-e__1 - (lambda (_stx203979_ _arg203980_) - (let* ((___stx208652208653_ _stx203979_) - (_g203983203994_ + (lambda (_stx206228_ _arg206229_) + (let* ((___stx211001211002_ _stx206228_) + (_g206232206243_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx208652208653_))))) - (let ((___kont208654208655_ - (lambda (_L204021_) - (let ((_$e204031_ - (let ((__tmp210126 (gxc#current-compile-methods)) - (__tmp210125 + ___stx211001211002_))))) + (let ((___kont211003211004_ + (lambda (_L206270_) + (let ((_$e206280_ + (let ((__tmp212475 (gxc#current-compile-methods)) + (__tmp212474 (let () (declare (not safe)) - (gx#stx-e _L204021_)))) + (gx#stx-e _L206270_)))) (declare (not safe)) - (table-ref __tmp210126 __tmp210125 '#f)))) - (if _$e204031_ - ((lambda (_method204034_) + (table-ref __tmp212475 __tmp212474 '#f)))) + (if _$e206280_ + ((lambda (_method206283_) (declare (not safe)) - (_method204034_ _stx203979_ _arg203980_)) - _$e204031_) + (_method206283_ _stx206228_ _arg206229_)) + _$e206280_) '#!void)))) - (___kont208656208657_ - (lambda (_L203999_) - (let ((__tmp210127 - (let ((__tmp210128 gxc#_g210130_)) + (___kont211005211006_ + (lambda (_L206248_) + (let ((__tmp212476 + (let ((__tmp212477 gxc#_g212479_)) (declare (not safe)) - (gx#datum->syntax__% __tmp210128 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp212477 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx203979_ - __tmp210127))))) + _stx206228_ + __tmp212476))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx208652208653_)) - (let ((_e203988204013_ + (gx#stx-pair? ___stx211001211002_)) + (let ((_e206237206262_ (let () (declare (not safe)) - (gx#stx-e ___stx208652208653_)))) - (let ((_tl203986204018_ + (gx#stx-e ___stx211001211002_)))) + (let ((_tl206235206267_ (let () (declare (not safe)) - (##cdr _e203988204013_))) - (_hd203987204016_ + (##cdr _e206237206262_))) + (_hd206236206265_ (let () (declare (not safe)) - (##car _e203988204013_)))) - (___kont208654208655_ _hd203987204016_))) - (___kont208656208657_ ___stx208652208653_)))))) + (##car _e206237206262_)))) + (___kont211003211004_ _hd206236206265_))) + (___kont211005211006_ ___stx211001211002_)))))) (define gxc#compile-e__2 - (lambda (_stx204040_ _arg1204041_ _arg2204042_) - (let* ((___stx208666208667_ _stx204040_) - (_g204045204056_ + (lambda (_stx206289_ _arg1206290_ _arg2206291_) + (let* ((___stx211015211016_ _stx206289_) + (_g206294206305_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx208666208667_))))) - (let ((___kont208668208669_ - (lambda (_L204083_) - (let ((_$e204093_ - (let ((__tmp210132 (gxc#current-compile-methods)) - (__tmp210131 + ___stx211015211016_))))) + (let ((___kont211017211018_ + (lambda (_L206332_) + (let ((_$e206342_ + (let ((__tmp212481 (gxc#current-compile-methods)) + (__tmp212480 (let () (declare (not safe)) - (gx#stx-e _L204083_)))) + (gx#stx-e _L206332_)))) (declare (not safe)) - (table-ref __tmp210132 __tmp210131 '#f)))) - (if _$e204093_ - ((lambda (_method204096_) + (table-ref __tmp212481 __tmp212480 '#f)))) + (if _$e206342_ + ((lambda (_method206345_) (declare (not safe)) - (_method204096_ - _stx204040_ - _arg1204041_ - _arg2204042_)) - _$e204093_) + (_method206345_ + _stx206289_ + _arg1206290_ + _arg2206291_)) + _$e206342_) '#!void)))) - (___kont208670208671_ - (lambda (_L204061_) - (let ((__tmp210133 - (let ((__tmp210134 gxc#_g210136_)) + (___kont211019211020_ + (lambda (_L206310_) + (let ((__tmp212482 + (let ((__tmp212483 gxc#_g212485_)) (declare (not safe)) - (gx#datum->syntax__% __tmp210134 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp212483 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx204040_ - __tmp210133))))) + _stx206289_ + __tmp212482))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx208666208667_)) - (let ((_e204050204075_ + (gx#stx-pair? ___stx211015211016_)) + (let ((_e206299206324_ (let () (declare (not safe)) - (gx#stx-e ___stx208666208667_)))) - (let ((_tl204048204080_ + (gx#stx-e ___stx211015211016_)))) + (let ((_tl206297206329_ (let () (declare (not safe)) - (##cdr _e204050204075_))) - (_hd204049204078_ + (##cdr _e206299206324_))) + (_hd206298206327_ (let () (declare (not safe)) - (##car _e204050204075_)))) - (___kont208668208669_ _hd204049204078_))) - (___kont208670208671_ ___stx208666208667_)))))) + (##car _e206299206324_)))) + (___kont211017211018_ _hd206298206327_))) + (___kont211019211020_ ___stx211015211016_)))))) (define gxc#compile-e__3 - (lambda (_stx204102_ _arg1204103_ _arg2204104_ . _args204105_) - (let* ((___stx208680208681_ _stx204102_) - (_g204108204119_ + (lambda (_stx206351_ _arg1206352_ _arg2206353_ . _args206354_) + (let* ((___stx211029211030_ _stx206351_) + (_g206357206368_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx208680208681_))))) - (let ((___kont208682208683_ - (lambda (_L204146_) - (let ((_$e204156_ - (let ((__tmp210138 (gxc#current-compile-methods)) - (__tmp210137 + ___stx211029211030_))))) + (let ((___kont211031211032_ + (lambda (_L206395_) + (let ((_$e206405_ + (let ((__tmp212487 (gxc#current-compile-methods)) + (__tmp212486 (let () (declare (not safe)) - (gx#stx-e _L204146_)))) + (gx#stx-e _L206395_)))) (declare (not safe)) - (table-ref __tmp210138 __tmp210137 '#f)))) - (if _$e204156_ - ((lambda (_method204159_) + (table-ref __tmp212487 __tmp212486 '#f)))) + (if _$e206405_ + ((lambda (_method206408_) (declare (not safe)) - (apply _method204159_ - _stx204102_ - _arg1204103_ - _arg2204104_ - _args204105_)) - _$e204156_) + (apply _method206408_ + _stx206351_ + _arg1206352_ + _arg2206353_ + _args206354_)) + _$e206405_) '#!void)))) - (___kont208684208685_ - (lambda (_L204124_) - (let ((__tmp210139 - (let ((__tmp210140 gxc#_g210142_)) + (___kont211033211034_ + (lambda (_L206373_) + (let ((__tmp212488 + (let ((__tmp212489 gxc#_g212491_)) (declare (not safe)) - (gx#datum->syntax__% __tmp210140 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp212489 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx204102_ - __tmp210139))))) + _stx206351_ + __tmp212488))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx208680208681_)) - (let ((_e204113204138_ + (gx#stx-pair? ___stx211029211030_)) + (let ((_e206362206387_ (let () (declare (not safe)) - (gx#stx-e ___stx208680208681_)))) - (let ((_tl204111204143_ + (gx#stx-e ___stx211029211030_)))) + (let ((_tl206360206392_ (let () (declare (not safe)) - (##cdr _e204113204138_))) - (_hd204112204141_ + (##cdr _e206362206387_))) + (_hd206361206390_ (let () (declare (not safe)) - (##car _e204113204138_)))) - (___kont208682208683_ _hd204112204141_))) - (___kont208684208685_ ___stx208680208681_)))))) + (##car _e206362206387_)))) + (___kont211031211032_ _hd206361206390_))) + (___kont211033211034_ ___stx211029211030_)))))) (define gxc#compile-e - (lambda _g210144_ - (let ((_g210143_ (let () (declare (not safe)) (##length _g210144_)))) - (cond ((let () (declare (not safe)) (##fx= _g210143_ 1)) - (apply (lambda (_stx203919_) + (lambda _g212493_ + (let ((_g212492_ (let () (declare (not safe)) (##length _g212493_)))) + (cond ((let () (declare (not safe)) (##fx= _g212492_ 1)) + (apply (lambda (_stx206168_) (let () (declare (not safe)) - (gxc#compile-e__0 _stx203919_))) - _g210144_)) - ((let () (declare (not safe)) (##fx= _g210143_ 2)) - (apply (lambda (_stx203979_ _arg203980_) + (gxc#compile-e__0 _stx206168_))) + _g212493_)) + ((let () (declare (not safe)) (##fx= _g212492_ 2)) + (apply (lambda (_stx206228_ _arg206229_) (let () (declare (not safe)) - (gxc#compile-e__1 _stx203979_ _arg203980_))) - _g210144_)) - ((let () (declare (not safe)) (##fx= _g210143_ 3)) - (apply (lambda (_stx204040_ _arg1204041_ _arg2204042_) + (gxc#compile-e__1 _stx206228_ _arg206229_))) + _g212493_)) + ((let () (declare (not safe)) (##fx= _g212492_ 3)) + (apply (lambda (_stx206289_ _arg1206290_ _arg2206291_) (let () (declare (not safe)) (gxc#compile-e__2 - _stx204040_ - _arg1204041_ - _arg2204042_))) - _g210144_)) - ((let () (declare (not safe)) (##fx>= _g210143_ 3)) - (apply gxc#compile-e__3 _g210144_)) + _stx206289_ + _arg1206290_ + _arg2206291_))) + _g212493_)) + ((let () (declare (not safe)) (##fx>= _g212492_ 3)) + (apply gxc#compile-e__3 _g212493_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g210144_)))))) - (define gxc#void-method (lambda (_stx203916_ . _args203917_) '#!void)) - (define gxc#false-method (lambda (_stx203913_ . _args203914_) '#f)) - (define gxc#true-method (lambda (_stx203910_ . _args203911_) '#t)) + _g212493_)))))) + (define gxc#void-method (lambda (_stx206165_ . _args206166_) '#!void)) + (define gxc#false-method (lambda (_stx206162_ . _args206163_) '#f)) + (define gxc#true-method (lambda (_stx206159_ . _args206160_) '#t)) (define gxc#&void-expression (make-promise (lambda () - (let ((_tbl203907_ + (let ((_tbl206156_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#begin-annotation gxc#void-method)) + (table-set! _tbl206156_ '%#begin-annotation gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#lambda gxc#void-method)) + (table-set! _tbl206156_ '%#lambda gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#case-lambda gxc#void-method)) + (table-set! _tbl206156_ '%#case-lambda gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#let-values gxc#void-method)) + (table-set! _tbl206156_ '%#let-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#letrec-values gxc#void-method)) + (table-set! _tbl206156_ '%#letrec-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#letrec*-values gxc#void-method)) + (table-set! _tbl206156_ '%#letrec*-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#quote gxc#void-method)) + (table-set! _tbl206156_ '%#quote gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#quote-syntax gxc#void-method)) + (table-set! _tbl206156_ '%#quote-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#call gxc#void-method)) + (table-set! _tbl206156_ '%#call gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#call-unchecked gxc#void-method)) + (table-set! _tbl206156_ '%#call-unchecked gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#if gxc#void-method)) + (table-set! _tbl206156_ '%#if gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#ref gxc#void-method)) + (table-set! _tbl206156_ '%#ref gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#set! gxc#void-method)) + (table-set! _tbl206156_ '%#set! gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#struct-instance? gxc#void-method)) + (table-set! _tbl206156_ '%#struct-instance? gxc#void-method)) (let () (declare (not safe)) (table-set! - _tbl203907_ + _tbl206156_ '%#struct-direct-instance? gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#struct-ref gxc#void-method)) + (table-set! _tbl206156_ '%#struct-ref gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#struct-set! gxc#void-method)) + (table-set! _tbl206156_ '%#struct-set! gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#struct-direct-ref gxc#void-method)) + (table-set! _tbl206156_ '%#struct-direct-ref gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203907_ '%#struct-direct-set! gxc#void-method)) + (table-set! _tbl206156_ '%#struct-direct-set! gxc#void-method)) (let () (declare (not safe)) (table-set! - _tbl203907_ + _tbl206156_ '%#struct-unchecked-ref gxc#void-method)) (let () (declare (not safe)) (table-set! - _tbl203907_ + _tbl206156_ '%#struct-unchecked-set! gxc#void-method)) - _tbl203907_)))) + _tbl206156_)))) (define gxc#&void-special-form (make-promise (lambda () - (let ((_tbl203903_ + (let ((_tbl206152_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl203903_ '%#begin gxc#void-method)) + (table-set! _tbl206152_ '%#begin gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203903_ '%#begin-syntax gxc#void-method)) + (table-set! _tbl206152_ '%#begin-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203903_ '%#begin-foreign gxc#void-method)) + (table-set! _tbl206152_ '%#begin-foreign gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203903_ '%#module gxc#void-method)) + (table-set! _tbl206152_ '%#module gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203903_ '%#import gxc#void-method)) + (table-set! _tbl206152_ '%#import gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203903_ '%#export gxc#void-method)) + (table-set! _tbl206152_ '%#export gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203903_ '%#provide gxc#void-method)) + (table-set! _tbl206152_ '%#provide gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203903_ '%#extern gxc#void-method)) + (table-set! _tbl206152_ '%#extern gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203903_ '%#define-values gxc#void-method)) + (table-set! _tbl206152_ '%#define-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203903_ '%#define-syntax gxc#void-method)) + (table-set! _tbl206152_ '%#define-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203903_ '%#define-alias gxc#void-method)) + (table-set! _tbl206152_ '%#define-alias gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203903_ '%#declare gxc#void-method)) - _tbl203903_)))) + (table-set! _tbl206152_ '%#declare gxc#void-method)) + _tbl206152_)))) (define gxc#&void (make-promise (lambda () - (let ((_tbl203899_ + (let ((_tbl206148_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp210145 (force gxc#&void-special-form))) + (let ((__tmp212494 (force gxc#&void-special-form))) (declare (not safe)) - (hash-copy! _tbl203899_ __tmp210145)) - (let ((__tmp210146 (force gxc#&void-expression))) + (hash-copy! _tbl206148_ __tmp212494)) + (let ((__tmp212495 (force gxc#&void-expression))) (declare (not safe)) - (hash-copy! _tbl203899_ __tmp210146)) - _tbl203899_)))) + (hash-copy! _tbl206148_ __tmp212495)) + _tbl206148_)))) (define gxc#&false-expression (make-promise (lambda () - (let ((_tbl203895_ + (let ((_tbl206144_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#begin-annotation gxc#false-method)) + (table-set! _tbl206144_ '%#begin-annotation gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#lambda gxc#false-method)) + (table-set! _tbl206144_ '%#lambda gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#case-lambda gxc#false-method)) + (table-set! _tbl206144_ '%#case-lambda gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#let-values gxc#false-method)) + (table-set! _tbl206144_ '%#let-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#letrec-values gxc#false-method)) + (table-set! _tbl206144_ '%#letrec-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#letrec*-values gxc#false-method)) + (table-set! _tbl206144_ '%#letrec*-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#quote gxc#false-method)) + (table-set! _tbl206144_ '%#quote gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#quote-syntax gxc#false-method)) + (table-set! _tbl206144_ '%#quote-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#call gxc#false-method)) + (table-set! _tbl206144_ '%#call gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#call-unchecked gxc#false-method)) + (table-set! _tbl206144_ '%#call-unchecked gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#if gxc#false-method)) + (table-set! _tbl206144_ '%#if gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#ref gxc#false-method)) + (table-set! _tbl206144_ '%#ref gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#set! gxc#false-method)) + (table-set! _tbl206144_ '%#set! gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#struct-instance? gxc#false-method)) + (table-set! _tbl206144_ '%#struct-instance? gxc#false-method)) (let () (declare (not safe)) (table-set! - _tbl203895_ + _tbl206144_ '%#struct-direct-instance? gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#struct-ref gxc#false-method)) + (table-set! _tbl206144_ '%#struct-ref gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#struct-set! gxc#false-method)) + (table-set! _tbl206144_ '%#struct-set! gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#struct-direct-ref gxc#false-method)) + (table-set! _tbl206144_ '%#struct-direct-ref gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203895_ '%#struct-direct-set! gxc#false-method)) + (table-set! _tbl206144_ '%#struct-direct-set! gxc#false-method)) (let () (declare (not safe)) (table-set! - _tbl203895_ + _tbl206144_ '%#struct-unchecked-ref gxc#false-method)) (let () (declare (not safe)) (table-set! - _tbl203895_ + _tbl206144_ '%#struct-unchecked-set! gxc#false-method)) - _tbl203895_)))) + _tbl206144_)))) (define gxc#&false-special-form (make-promise (lambda () - (let ((_tbl203891_ + (let ((_tbl206140_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl203891_ '%#begin gxc#false-method)) + (table-set! _tbl206140_ '%#begin gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203891_ '%#begin-syntax gxc#false-method)) + (table-set! _tbl206140_ '%#begin-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203891_ '%#begin-foreign gxc#false-method)) + (table-set! _tbl206140_ '%#begin-foreign gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203891_ '%#module gxc#false-method)) + (table-set! _tbl206140_ '%#module gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203891_ '%#import gxc#false-method)) + (table-set! _tbl206140_ '%#import gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203891_ '%#export gxc#false-method)) + (table-set! _tbl206140_ '%#export gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203891_ '%#provide gxc#false-method)) + (table-set! _tbl206140_ '%#provide gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203891_ '%#extern gxc#false-method)) + (table-set! _tbl206140_ '%#extern gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203891_ '%#define-values gxc#false-method)) + (table-set! _tbl206140_ '%#define-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203891_ '%#define-syntax gxc#false-method)) + (table-set! _tbl206140_ '%#define-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203891_ '%#define-alias gxc#false-method)) + (table-set! _tbl206140_ '%#define-alias gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203891_ '%#declare gxc#false-method)) - _tbl203891_)))) + (table-set! _tbl206140_ '%#declare gxc#false-method)) + _tbl206140_)))) (define gxc#&false (make-promise (lambda () - (let ((_tbl203887_ + (let ((_tbl206136_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp210147 (force gxc#&false-special-form))) + (let ((__tmp212496 (force gxc#&false-special-form))) (declare (not safe)) - (hash-copy! _tbl203887_ __tmp210147)) - (let ((__tmp210148 (force gxc#&false-expression))) + (hash-copy! _tbl206136_ __tmp212496)) + (let ((__tmp212497 (force gxc#&false-expression))) (declare (not safe)) - (hash-copy! _tbl203887_ __tmp210148)) - _tbl203887_)))) + (hash-copy! _tbl206136_ __tmp212497)) + _tbl206136_)))) (define gxc#&collect-bindings (make-promise (lambda () - (let ((_tbl203883_ + (let ((_tbl206132_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp210149 (force gxc#&void-expression))) + (let ((__tmp212498 (force gxc#&void-expression))) (declare (not safe)) - (hash-copy! _tbl203883_ __tmp210149)) - (let ((__tmp210150 (force gxc#&void-special-form))) + (hash-copy! _tbl206132_ __tmp212498)) + (let ((__tmp212499 (force gxc#&void-special-form))) (declare (not safe)) - (hash-copy! _tbl203883_ __tmp210150)) + (hash-copy! _tbl206132_ __tmp212499)) (let () (declare (not safe)) - (table-set! _tbl203883_ '%#begin gxc#collect-begin%)) + (table-set! _tbl206132_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl203883_ + _tbl206132_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl203883_ '%#module gxc#collect-module%)) + (table-set! _tbl206132_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (table-set! - _tbl203883_ + _tbl206132_ '%#define-values gxc#collect-bindings-define-values%)) (let () (declare (not safe)) (table-set! - _tbl203883_ + _tbl206132_ '%#define-syntax gxc#collect-bindings-define-syntax%)) - _tbl203883_)))) + _tbl206132_)))) (define gxc#apply-collect-bindings - (lambda (_stx203866_ . _args203868_) - (let ((__tmp210152 + (lambda (_stx206115_ . _args206117_) + (let ((__tmp212501 (lambda () (declare (not safe)) - (if (null? _args203868_) - (gxc#compile-e__0 _stx203866_) - (let ((_arg1203873_ (car _args203868_)) - (_rest203875_ (cdr _args203868_))) - (if (null? _rest203875_) - (gxc#compile-e__1 _stx203866_ _arg1203873_) - (let ((_arg2203878_ (car _rest203875_)) - (_rest203880_ (cdr _rest203875_))) - (if (null? _rest203880_) + (if (null? _args206117_) + (gxc#compile-e__0 _stx206115_) + (let ((_arg1206122_ (car _args206117_)) + (_rest206124_ (cdr _args206117_))) + (if (null? _rest206124_) + (gxc#compile-e__1 _stx206115_ _arg1206122_) + (let ((_arg2206127_ (car _rest206124_)) + (_rest206129_ (cdr _rest206124_))) + (if (null? _rest206129_) (gxc#compile-e__2 - _stx203866_ - _arg1203873_ - _arg2203878_) + _stx206115_ + _arg1206122_ + _arg2206127_) (apply gxc#compile-e - _stx203866_ - _arg1203873_ - _arg2203878_ - _rest203880_)))))))) - (__tmp210151 (force gxc#&collect-bindings))) + _stx206115_ + _arg1206122_ + _arg2206127_ + _rest206129_)))))))) + (__tmp212500 (force gxc#&collect-bindings))) (declare (not safe)) (call-with-parameters - __tmp210152 + __tmp212501 gxc#current-compile-methods - __tmp210151)))) + __tmp212500)))) (define gxc#&lift-modules (make-promise (lambda () - (let ((_tbl203863_ + (let ((_tbl206112_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp210153 (force gxc#&void))) + (let ((__tmp212502 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl203863_ __tmp210153)) + (hash-copy! _tbl206112_ __tmp212502)) (let () (declare (not safe)) - (table-set! _tbl203863_ '%#begin gxc#collect-begin%)) + (table-set! _tbl206112_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (table-set! _tbl203863_ '%#module gxc#lift-modules-module%)) - _tbl203863_)))) + (table-set! _tbl206112_ '%#module gxc#lift-modules-module%)) + _tbl206112_)))) (define gxc#apply-lift-modules - (lambda (_stx203846_ . _args203848_) - (let ((__tmp210155 + (lambda (_stx206095_ . _args206097_) + (let ((__tmp212504 (lambda () (declare (not safe)) - (if (null? _args203848_) - (gxc#compile-e__0 _stx203846_) - (let ((_arg1203853_ (car _args203848_)) - (_rest203855_ (cdr _args203848_))) - (if (null? _rest203855_) - (gxc#compile-e__1 _stx203846_ _arg1203853_) - (let ((_arg2203858_ (car _rest203855_)) - (_rest203860_ (cdr _rest203855_))) - (if (null? _rest203860_) + (if (null? _args206097_) + (gxc#compile-e__0 _stx206095_) + (let ((_arg1206102_ (car _args206097_)) + (_rest206104_ (cdr _args206097_))) + (if (null? _rest206104_) + (gxc#compile-e__1 _stx206095_ _arg1206102_) + (let ((_arg2206107_ (car _rest206104_)) + (_rest206109_ (cdr _rest206104_))) + (if (null? _rest206109_) (gxc#compile-e__2 - _stx203846_ - _arg1203853_ - _arg2203858_) + _stx206095_ + _arg1206102_ + _arg2206107_) (apply gxc#compile-e - _stx203846_ - _arg1203853_ - _arg2203858_ - _rest203860_)))))))) - (__tmp210154 (force gxc#&lift-modules))) + _stx206095_ + _arg1206102_ + _arg2206107_ + _rest206109_)))))))) + (__tmp212503 (force gxc#&lift-modules))) (declare (not safe)) (call-with-parameters - __tmp210155 + __tmp212504 gxc#current-compile-methods - __tmp210154)))) + __tmp212503)))) (define gxc#&find-runtime-code (make-promise (lambda () - (let ((_tbl203843_ + (let ((_tbl206092_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#begin gxc#find-runtime-begin%)) + (table-set! _tbl206092_ '%#begin gxc#find-runtime-begin%)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#begin-syntax gxc#false-method)) + (table-set! _tbl206092_ '%#begin-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#begin-foreign gxc#true-method)) + (table-set! _tbl206092_ '%#begin-foreign gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#begin-annotation gxc#true-method)) + (table-set! _tbl206092_ '%#begin-annotation gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#module gxc#false-method)) + (table-set! _tbl206092_ '%#module gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#import gxc#false-method)) + (table-set! _tbl206092_ '%#import gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#export gxc#false-method)) + (table-set! _tbl206092_ '%#export gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#provide gxc#false-method)) + (table-set! _tbl206092_ '%#provide gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#extern gxc#false-method)) + (table-set! _tbl206092_ '%#extern gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#define-values gxc#true-method)) + (table-set! _tbl206092_ '%#define-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#define-syntax gxc#false-method)) + (table-set! _tbl206092_ '%#define-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#define-alias gxc#false-method)) + (table-set! _tbl206092_ '%#define-alias gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#declare gxc#false-method)) + (table-set! _tbl206092_ '%#declare gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#lambda gxc#true-method)) + (table-set! _tbl206092_ '%#lambda gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#case-lambda gxc#true-method)) + (table-set! _tbl206092_ '%#case-lambda gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#let-values gxc#true-method)) + (table-set! _tbl206092_ '%#let-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#letrec-values gxc#true-method)) + (table-set! _tbl206092_ '%#letrec-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#letrec*-values gxc#true-method)) + (table-set! _tbl206092_ '%#letrec*-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#quote gxc#true-method)) + (table-set! _tbl206092_ '%#quote gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#call gxc#true-method)) + (table-set! _tbl206092_ '%#call gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#call-unchecked gxc#true-method)) + (table-set! _tbl206092_ '%#call-unchecked gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#if gxc#true-method)) + (table-set! _tbl206092_ '%#if gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#ref gxc#true-method)) + (table-set! _tbl206092_ '%#ref gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#set! gxc#true-method)) + (table-set! _tbl206092_ '%#set! gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#struct-instance? gxc#true-method)) + (table-set! _tbl206092_ '%#struct-instance? gxc#true-method)) (let () (declare (not safe)) (table-set! - _tbl203843_ + _tbl206092_ '%#struct-direct-instance? gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#struct-ref gxc#true-method)) + (table-set! _tbl206092_ '%#struct-ref gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#struct-set! gxc#true-method)) + (table-set! _tbl206092_ '%#struct-set! gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#struct-direct-ref gxc#true-method)) + (table-set! _tbl206092_ '%#struct-direct-ref gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl203843_ '%#struct-direct-set! gxc#true-method)) + (table-set! _tbl206092_ '%#struct-direct-set! gxc#true-method)) (let () (declare (not safe)) (table-set! - _tbl203843_ + _tbl206092_ '%#struct-unchecked-ref gxc#true-method)) (let () (declare (not safe)) (table-set! - _tbl203843_ + _tbl206092_ '%#struct-unchecked-set! gxc#true-method)) - _tbl203843_)))) + _tbl206092_)))) (define gxc#apply-find-runtime-code - (lambda (_stx203826_ . _args203828_) - (let ((__tmp210157 + (lambda (_stx206075_ . _args206077_) + (let ((__tmp212506 (lambda () (declare (not safe)) - (if (null? _args203828_) - (gxc#compile-e__0 _stx203826_) - (let ((_arg1203833_ (car _args203828_)) - (_rest203835_ (cdr _args203828_))) - (if (null? _rest203835_) - (gxc#compile-e__1 _stx203826_ _arg1203833_) - (let ((_arg2203838_ (car _rest203835_)) - (_rest203840_ (cdr _rest203835_))) - (if (null? _rest203840_) + (if (null? _args206077_) + (gxc#compile-e__0 _stx206075_) + (let ((_arg1206082_ (car _args206077_)) + (_rest206084_ (cdr _args206077_))) + (if (null? _rest206084_) + (gxc#compile-e__1 _stx206075_ _arg1206082_) + (let ((_arg2206087_ (car _rest206084_)) + (_rest206089_ (cdr _rest206084_))) + (if (null? _rest206089_) (gxc#compile-e__2 - _stx203826_ - _arg1203833_ - _arg2203838_) + _stx206075_ + _arg1206082_ + _arg2206087_) (apply gxc#compile-e - _stx203826_ - _arg1203833_ - _arg2203838_ - _rest203840_)))))))) - (__tmp210156 (force gxc#&find-runtime-code))) + _stx206075_ + _arg1206082_ + _arg2206087_ + _rest206089_)))))))) + (__tmp212505 (force gxc#&find-runtime-code))) (declare (not safe)) (call-with-parameters - __tmp210157 + __tmp212506 gxc#current-compile-methods - __tmp210156)))) + __tmp212505)))) (define gxc#&find-lambda-expression (make-promise (lambda () - (let ((_tbl203823_ + (let ((_tbl206072_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp210158 (force gxc#&false))) + (let ((__tmp212507 (force gxc#&false))) (declare (not safe)) - (hash-copy! _tbl203823_ __tmp210158)) + (hash-copy! _tbl206072_ __tmp212507)) (let () (declare (not safe)) (table-set! - _tbl203823_ + _tbl206072_ '%#begin gxc#find-lambda-expression-begin%)) (let () (declare (not safe)) (table-set! - _tbl203823_ + _tbl206072_ '%#begin-annotation gxc#find-lambda-expression-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl203823_ '%#lambda values)) + (table-set! _tbl206072_ '%#lambda values)) (let () (declare (not safe)) - (table-set! _tbl203823_ '%#case-lambda values)) + (table-set! _tbl206072_ '%#case-lambda values)) (let () (declare (not safe)) (table-set! - _tbl203823_ + _tbl206072_ '%#let-values gxc#find-lambda-expression-let-values%)) (let () (declare (not safe)) (table-set! - _tbl203823_ + _tbl206072_ '%#letrec-values gxc#find-lambda-expression-let-values%)) (let () (declare (not safe)) (table-set! - _tbl203823_ + _tbl206072_ '%#letrec*-values gxc#find-lambda-expression-let-values%)) - _tbl203823_)))) + _tbl206072_)))) (define gxc#apply-find-lambda-expression - (lambda (_stx203806_ . _args203808_) - (let ((__tmp210160 + (lambda (_stx206055_ . _args206057_) + (let ((__tmp212509 (lambda () (declare (not safe)) - (if (null? _args203808_) - (gxc#compile-e__0 _stx203806_) - (let ((_arg1203813_ (car _args203808_)) - (_rest203815_ (cdr _args203808_))) - (if (null? _rest203815_) - (gxc#compile-e__1 _stx203806_ _arg1203813_) - (let ((_arg2203818_ (car _rest203815_)) - (_rest203820_ (cdr _rest203815_))) - (if (null? _rest203820_) + (if (null? _args206057_) + (gxc#compile-e__0 _stx206055_) + (let ((_arg1206062_ (car _args206057_)) + (_rest206064_ (cdr _args206057_))) + (if (null? _rest206064_) + (gxc#compile-e__1 _stx206055_ _arg1206062_) + (let ((_arg2206067_ (car _rest206064_)) + (_rest206069_ (cdr _rest206064_))) + (if (null? _rest206069_) (gxc#compile-e__2 - _stx203806_ - _arg1203813_ - _arg2203818_) + _stx206055_ + _arg1206062_ + _arg2206067_) (apply gxc#compile-e - _stx203806_ - _arg1203813_ - _arg2203818_ - _rest203820_)))))))) - (__tmp210159 (force gxc#&find-lambda-expression))) + _stx206055_ + _arg1206062_ + _arg2206067_ + _rest206069_)))))))) + (__tmp212508 (force gxc#&find-lambda-expression))) (declare (not safe)) (call-with-parameters - __tmp210160 + __tmp212509 gxc#current-compile-methods - __tmp210159)))) + __tmp212508)))) (define gxc#&count-values (make-promise (lambda () - (let ((_tbl203803_ + (let ((_tbl206052_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp210161 (force gxc#&false-expression))) + (let ((__tmp212510 (force gxc#&false-expression))) (declare (not safe)) - (hash-copy! _tbl203803_ __tmp210161)) + (hash-copy! _tbl206052_ __tmp212510)) (let () (declare (not safe)) - (table-set! _tbl203803_ '%#begin gxc#count-values-begin%)) + (table-set! _tbl206052_ '%#begin gxc#count-values-begin%)) (let () (declare (not safe)) (table-set! - _tbl203803_ + _tbl206052_ '%#begin-annotation gxc#count-values-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl203803_ '%#lambda gxc#count-values-single%)) + (table-set! _tbl206052_ '%#lambda gxc#count-values-single%)) (let () (declare (not safe)) (table-set! - _tbl203803_ + _tbl206052_ '%#case-lambda gxc#count-values-single%)) (let () (declare (not safe)) (table-set! - _tbl203803_ + _tbl206052_ '%#let-values gxc#count-values-let-values%)) (let () (declare (not safe)) (table-set! - _tbl203803_ + _tbl206052_ '%#letrec-values gxc#count-values-let-values%)) (let () (declare (not safe)) (table-set! - _tbl203803_ + _tbl206052_ '%#letrec*-values gxc#count-values-let-values%)) (let () (declare (not safe)) - (table-set! _tbl203803_ '%#quote gxc#count-values-single%)) + (table-set! _tbl206052_ '%#quote gxc#count-values-single%)) (let () (declare (not safe)) - (table-set! _tbl203803_ '%#call gxc#count-values-call%)) + (table-set! _tbl206052_ '%#call gxc#count-values-call%)) (let () (declare (not safe)) (table-set! - _tbl203803_ + _tbl206052_ '%#call-unchecked gxc#count-values-call%)) (let () (declare (not safe)) - (table-set! _tbl203803_ '%#if gxc#count-values-if%)) - _tbl203803_)))) + (table-set! _tbl206052_ '%#if gxc#count-values-if%)) + _tbl206052_)))) (define gxc#apply-count-values - (lambda (_stx203786_ . _args203788_) - (let ((__tmp210163 + (lambda (_stx206035_ . _args206037_) + (let ((__tmp212512 (lambda () (declare (not safe)) - (if (null? _args203788_) - (gxc#compile-e__0 _stx203786_) - (let ((_arg1203793_ (car _args203788_)) - (_rest203795_ (cdr _args203788_))) - (if (null? _rest203795_) - (gxc#compile-e__1 _stx203786_ _arg1203793_) - (let ((_arg2203798_ (car _rest203795_)) - (_rest203800_ (cdr _rest203795_))) - (if (null? _rest203800_) + (if (null? _args206037_) + (gxc#compile-e__0 _stx206035_) + (let ((_arg1206042_ (car _args206037_)) + (_rest206044_ (cdr _args206037_))) + (if (null? _rest206044_) + (gxc#compile-e__1 _stx206035_ _arg1206042_) + (let ((_arg2206047_ (car _rest206044_)) + (_rest206049_ (cdr _rest206044_))) + (if (null? _rest206049_) (gxc#compile-e__2 - _stx203786_ - _arg1203793_ - _arg2203798_) + _stx206035_ + _arg1206042_ + _arg2206047_) (apply gxc#compile-e - _stx203786_ - _arg1203793_ - _arg2203798_ - _rest203800_)))))))) - (__tmp210162 (force gxc#&count-values))) + _stx206035_ + _arg1206042_ + _arg2206047_ + _rest206049_)))))))) + (__tmp212511 (force gxc#&count-values))) (declare (not safe)) (call-with-parameters - __tmp210163 + __tmp212512 gxc#current-compile-methods - __tmp210162)))) + __tmp212511)))) (define gxc#&generate-runtime-empty (make-promise (lambda () - (let ((_tbl203783_ + (let ((_tbl206032_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl203783_ '%#begin gxc#generate-runtime-empty)) + (table-set! _tbl206032_ '%#begin gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#begin-syntax gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#begin-foreign gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#begin-annotation gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl203783_ '%#module gxc#generate-runtime-empty)) + (table-set! _tbl206032_ '%#module gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl203783_ '%#import gxc#generate-runtime-empty)) + (table-set! _tbl206032_ '%#import gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl203783_ '%#export gxc#generate-runtime-empty)) + (table-set! _tbl206032_ '%#export gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl203783_ '%#provide gxc#generate-runtime-empty)) + (table-set! _tbl206032_ '%#provide gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl203783_ '%#extern gxc#generate-runtime-empty)) + (table-set! _tbl206032_ '%#extern gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#define-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#define-syntax gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#define-alias gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl203783_ '%#declare gxc#generate-runtime-empty)) + (table-set! _tbl206032_ '%#declare gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl203783_ '%#lambda gxc#generate-runtime-empty)) + (table-set! _tbl206032_ '%#lambda gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#case-lambda gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#let-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#letrec-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#letrec*-values gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl203783_ '%#quote gxc#generate-runtime-empty)) + (table-set! _tbl206032_ '%#quote gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl203783_ '%#call gxc#generate-runtime-empty)) + (table-set! _tbl206032_ '%#call gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#call-unchecked gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl203783_ '%#if gxc#generate-runtime-empty)) + (table-set! _tbl206032_ '%#if gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl203783_ '%#ref gxc#generate-runtime-empty)) + (table-set! _tbl206032_ '%#ref gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl203783_ '%#set! gxc#generate-runtime-empty)) + (table-set! _tbl206032_ '%#set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#struct-instance? gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#struct-direct-instance? gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#struct-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#struct-set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#struct-direct-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#struct-direct-set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#struct-unchecked-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl203783_ + _tbl206032_ '%#struct-unchecked-set! gxc#generate-runtime-empty)) - _tbl203783_)))) + _tbl206032_)))) (define gxc#&generate-loader (make-promise (lambda () - (let ((_tbl203779_ + (let ((_tbl206028_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp210164 (force gxc#&generate-runtime-empty))) + (let ((__tmp212513 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-copy! _tbl203779_ __tmp210164)) + (hash-copy! _tbl206028_ __tmp212513)) (let () (declare (not safe)) - (table-set! _tbl203779_ '%#begin gxc#generate-runtime-begin%)) + (table-set! _tbl206028_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (table-set! - _tbl203779_ + _tbl206028_ '%#import gxc#generate-runtime-loader-import%)) - _tbl203779_)))) + _tbl206028_)))) (define gxc#apply-generate-loader - (lambda (_stx203762_ . _args203764_) - (let ((__tmp210166 + (lambda (_stx206011_ . _args206013_) + (let ((__tmp212515 (lambda () (declare (not safe)) - (if (null? _args203764_) - (gxc#compile-e__0 _stx203762_) - (let ((_arg1203769_ (car _args203764_)) - (_rest203771_ (cdr _args203764_))) - (if (null? _rest203771_) - (gxc#compile-e__1 _stx203762_ _arg1203769_) - (let ((_arg2203774_ (car _rest203771_)) - (_rest203776_ (cdr _rest203771_))) - (if (null? _rest203776_) + (if (null? _args206013_) + (gxc#compile-e__0 _stx206011_) + (let ((_arg1206018_ (car _args206013_)) + (_rest206020_ (cdr _args206013_))) + (if (null? _rest206020_) + (gxc#compile-e__1 _stx206011_ _arg1206018_) + (let ((_arg2206023_ (car _rest206020_)) + (_rest206025_ (cdr _rest206020_))) + (if (null? _rest206025_) (gxc#compile-e__2 - _stx203762_ - _arg1203769_ - _arg2203774_) + _stx206011_ + _arg1206018_ + _arg2206023_) (apply gxc#compile-e - _stx203762_ - _arg1203769_ - _arg2203774_ - _rest203776_)))))))) - (__tmp210165 (force gxc#&generate-loader))) + _stx206011_ + _arg1206018_ + _arg2206023_ + _rest206025_)))))))) + (__tmp212514 (force gxc#&generate-loader))) (declare (not safe)) (call-with-parameters - __tmp210166 + __tmp212515 gxc#current-compile-methods - __tmp210165)))) + __tmp212514)))) (define gxc#&generate-runtime (make-promise (lambda () - (let ((_tbl203759_ + (let ((_tbl206008_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp210167 (force gxc#&generate-runtime-empty))) + (let ((__tmp212516 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-copy! _tbl203759_ __tmp210167)) + (hash-copy! _tbl206008_ __tmp212516)) (let () (declare (not safe)) - (table-set! _tbl203759_ '%#begin gxc#generate-runtime-begin%)) + (table-set! _tbl206008_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#begin-foreign gxc#generate-runtime-begin-foreign%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#begin-annotation gxc#generate-runtime-begin-annotation%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#define-values gxc#generate-runtime-define-values%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#declare gxc#generate-runtime-declare%)) (let () (declare (not safe)) - (table-set! _tbl203759_ '%#lambda gxc#generate-runtime-lambda%)) + (table-set! _tbl206008_ '%#lambda gxc#generate-runtime-lambda%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#case-lambda gxc#generate-runtime-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#let-values gxc#generate-runtime-let-values%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#letrec-values gxc#generate-runtime-letrec-values%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#letrec*-values gxc#generate-runtime-letrec*-values%)) (let () (declare (not safe)) - (table-set! _tbl203759_ '%#quote gxc#generate-runtime-quote%)) + (table-set! _tbl206008_ '%#quote gxc#generate-runtime-quote%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#quote-syntax gxc#generate-runtime-quote-syntax%)) (let () (declare (not safe)) - (table-set! _tbl203759_ '%#call gxc#generate-runtime-call%)) + (table-set! _tbl206008_ '%#call gxc#generate-runtime-call%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#call-unchecked gxc#generate-runtime-call-unchecked%)) (let () (declare (not safe)) - (table-set! _tbl203759_ '%#if gxc#generate-runtime-if%)) + (table-set! _tbl206008_ '%#if gxc#generate-runtime-if%)) (let () (declare (not safe)) - (table-set! _tbl203759_ '%#ref gxc#generate-runtime-ref%)) + (table-set! _tbl206008_ '%#ref gxc#generate-runtime-ref%)) (let () (declare (not safe)) - (table-set! _tbl203759_ '%#set! gxc#generate-runtime-setq%)) + (table-set! _tbl206008_ '%#set! gxc#generate-runtime-setq%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#struct-instance? gxc#generate-runtime-struct-instancep%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#struct-direct-instance? gxc#generate-runtime-struct-direct-instancep%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#struct-ref gxc#generate-runtime-struct-ref%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#struct-set! gxc#generate-runtime-struct-setq%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#struct-direct-ref gxc#generate-runtime-struct-direct-ref%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#struct-direct-set! gxc#generate-runtime-struct-direct-setq%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#struct-unchecked-ref gxc#generate-runtime-struct-unchecked-ref%)) (let () (declare (not safe)) (table-set! - _tbl203759_ + _tbl206008_ '%#struct-unchecked-set! gxc#generate-runtime-struct-unchecked-setq%)) - _tbl203759_)))) + _tbl206008_)))) (define gxc#apply-generate-runtime - (lambda (_stx203742_ . _args203744_) - (let ((__tmp210169 + (lambda (_stx205991_ . _args205993_) + (let ((__tmp212518 (lambda () (declare (not safe)) - (if (null? _args203744_) - (gxc#compile-e__0 _stx203742_) - (let ((_arg1203749_ (car _args203744_)) - (_rest203751_ (cdr _args203744_))) - (if (null? _rest203751_) - (gxc#compile-e__1 _stx203742_ _arg1203749_) - (let ((_arg2203754_ (car _rest203751_)) - (_rest203756_ (cdr _rest203751_))) - (if (null? _rest203756_) + (if (null? _args205993_) + (gxc#compile-e__0 _stx205991_) + (let ((_arg1205998_ (car _args205993_)) + (_rest206000_ (cdr _args205993_))) + (if (null? _rest206000_) + (gxc#compile-e__1 _stx205991_ _arg1205998_) + (let ((_arg2206003_ (car _rest206000_)) + (_rest206005_ (cdr _rest206000_))) + (if (null? _rest206005_) (gxc#compile-e__2 - _stx203742_ - _arg1203749_ - _arg2203754_) + _stx205991_ + _arg1205998_ + _arg2206003_) (apply gxc#compile-e - _stx203742_ - _arg1203749_ - _arg2203754_ - _rest203756_)))))))) - (__tmp210168 (force gxc#&generate-runtime))) + _stx205991_ + _arg1205998_ + _arg2206003_ + _rest206005_)))))))) + (__tmp212517 (force gxc#&generate-runtime))) (declare (not safe)) (call-with-parameters - __tmp210169 + __tmp212518 gxc#current-compile-methods - __tmp210168)))) + __tmp212517)))) (define gxc#&generate-runtime-phi (make-promise (lambda () - (let ((_tbl203739_ + (let ((_tbl205988_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp210170 (force gxc#&generate-runtime))) + (let ((__tmp212519 (force gxc#&generate-runtime))) (declare (not safe)) - (hash-copy! _tbl203739_ __tmp210170)) + (hash-copy! _tbl205988_ __tmp212519)) (let () (declare (not safe)) (table-set! - _tbl203739_ + _tbl205988_ '%#define-runtime gxc#generate-runtime-phi-define-runtime%)) - _tbl203739_)))) + _tbl205988_)))) (define gxc#apply-generate-runtime-phi - (lambda (_stx203722_ . _args203724_) - (let ((__tmp210172 + (lambda (_stx205971_ . _args205973_) + (let ((__tmp212521 (lambda () (declare (not safe)) - (if (null? _args203724_) - (gxc#compile-e__0 _stx203722_) - (let ((_arg1203729_ (car _args203724_)) - (_rest203731_ (cdr _args203724_))) - (if (null? _rest203731_) - (gxc#compile-e__1 _stx203722_ _arg1203729_) - (let ((_arg2203734_ (car _rest203731_)) - (_rest203736_ (cdr _rest203731_))) - (if (null? _rest203736_) + (if (null? _args205973_) + (gxc#compile-e__0 _stx205971_) + (let ((_arg1205978_ (car _args205973_)) + (_rest205980_ (cdr _args205973_))) + (if (null? _rest205980_) + (gxc#compile-e__1 _stx205971_ _arg1205978_) + (let ((_arg2205983_ (car _rest205980_)) + (_rest205985_ (cdr _rest205980_))) + (if (null? _rest205985_) (gxc#compile-e__2 - _stx203722_ - _arg1203729_ - _arg2203734_) + _stx205971_ + _arg1205978_ + _arg2205983_) (apply gxc#compile-e - _stx203722_ - _arg1203729_ - _arg2203734_ - _rest203736_)))))))) - (__tmp210171 (force gxc#&generate-runtime-phi))) + _stx205971_ + _arg1205978_ + _arg2205983_ + _rest205985_)))))))) + (__tmp212520 (force gxc#&generate-runtime-phi))) (declare (not safe)) (call-with-parameters - __tmp210172 + __tmp212521 gxc#current-compile-methods - __tmp210171)))) + __tmp212520)))) (define gxc#&collect-expression-refs (make-promise (lambda () - (let ((_tbl203719_ + (let ((_tbl205968_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl203719_ '%#begin gxc#collect-begin%)) + (table-set! _tbl205968_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl203719_ + _tbl205968_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl203719_ '%#lambda gxc#collect-body-lambda%)) + (table-set! _tbl205968_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (table-set! - _tbl203719_ + _tbl205968_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl203719_ + _tbl205968_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl203719_ + _tbl205968_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl203719_ + _tbl205968_ '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! _tbl203719_ '%#quote gxc#void-method)) + (table-set! _tbl205968_ '%#quote gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203719_ '%#quote-syntax gxc#void-method)) + (table-set! _tbl205968_ '%#quote-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203719_ '%#call gxc#collect-operands)) + (table-set! _tbl205968_ '%#call gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl203719_ '%#call-unchecked gxc#collect-operands)) + (table-set! _tbl205968_ '%#call-unchecked gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl203719_ '%#if gxc#collect-operands)) + (table-set! _tbl205968_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl203719_ '%#ref gxc#collect-refs-ref%)) + (table-set! _tbl205968_ '%#ref gxc#collect-refs-ref%)) (let () (declare (not safe)) - (table-set! _tbl203719_ '%#set! gxc#collect-refs-setq%)) + (table-set! _tbl205968_ '%#set! gxc#collect-refs-setq%)) (let () (declare (not safe)) (table-set! - _tbl203719_ + _tbl205968_ '%#struct-instance? gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl203719_ + _tbl205968_ '%#struct-direct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl203719_ '%#struct-ref gxc#collect-operands)) + (table-set! _tbl205968_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl203719_ '%#struct-set! gxc#collect-operands)) + (table-set! _tbl205968_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl203719_ + _tbl205968_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl203719_ + _tbl205968_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl203719_ + _tbl205968_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl203719_ + _tbl205968_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl203719_)))) + _tbl205968_)))) (define gxc#apply-collect-expression-refs - (lambda (_stx203702_ . _args203704_) - (let ((__tmp210174 + (lambda (_stx205951_ . _args205953_) + (let ((__tmp212523 (lambda () (declare (not safe)) - (if (null? _args203704_) - (gxc#compile-e__0 _stx203702_) - (let ((_arg1203709_ (car _args203704_)) - (_rest203711_ (cdr _args203704_))) - (if (null? _rest203711_) - (gxc#compile-e__1 _stx203702_ _arg1203709_) - (let ((_arg2203714_ (car _rest203711_)) - (_rest203716_ (cdr _rest203711_))) - (if (null? _rest203716_) + (if (null? _args205953_) + (gxc#compile-e__0 _stx205951_) + (let ((_arg1205958_ (car _args205953_)) + (_rest205960_ (cdr _args205953_))) + (if (null? _rest205960_) + (gxc#compile-e__1 _stx205951_ _arg1205958_) + (let ((_arg2205963_ (car _rest205960_)) + (_rest205965_ (cdr _rest205960_))) + (if (null? _rest205965_) (gxc#compile-e__2 - _stx203702_ - _arg1203709_ - _arg2203714_) + _stx205951_ + _arg1205958_ + _arg2205963_) (apply gxc#compile-e - _stx203702_ - _arg1203709_ - _arg2203714_ - _rest203716_)))))))) - (__tmp210173 (force gxc#&collect-expression-refs))) + _stx205951_ + _arg1205958_ + _arg2205963_ + _rest205965_)))))))) + (__tmp212522 (force gxc#&collect-expression-refs))) (declare (not safe)) (call-with-parameters - __tmp210174 + __tmp212523 gxc#current-compile-methods - __tmp210173)))) + __tmp212522)))) (define gxc#&generate-meta (make-promise (lambda () - (let ((_tbl203699_ + (let ((_tbl205948_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp210175 (force gxc#&void-expression))) + (let ((__tmp212524 (force gxc#&void-expression))) (declare (not safe)) - (hash-copy! _tbl203699_ __tmp210175)) + (hash-copy! _tbl205948_ __tmp212524)) (let () (declare (not safe)) - (table-set! _tbl203699_ '%#begin gxc#generate-meta-begin%)) + (table-set! _tbl205948_ '%#begin gxc#generate-meta-begin%)) (let () (declare (not safe)) (table-set! - _tbl203699_ + _tbl205948_ '%#begin-syntax gxc#generate-meta-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl203699_ '%#module gxc#generate-meta-module%)) + (table-set! _tbl205948_ '%#module gxc#generate-meta-module%)) (let () (declare (not safe)) - (table-set! _tbl203699_ '%#import gxc#generate-meta-import%)) + (table-set! _tbl205948_ '%#import gxc#generate-meta-import%)) (let () (declare (not safe)) - (table-set! _tbl203699_ '%#export gxc#generate-meta-export%)) + (table-set! _tbl205948_ '%#export gxc#generate-meta-export%)) (let () (declare (not safe)) - (table-set! _tbl203699_ '%#provide gxc#generate-meta-provide%)) + (table-set! _tbl205948_ '%#provide gxc#generate-meta-provide%)) (let () (declare (not safe)) - (table-set! _tbl203699_ '%#extern gxc#generate-meta-extern%)) + (table-set! _tbl205948_ '%#extern gxc#generate-meta-extern%)) (let () (declare (not safe)) (table-set! - _tbl203699_ + _tbl205948_ '%#define-values gxc#generate-meta-define-values%)) (let () (declare (not safe)) (table-set! - _tbl203699_ + _tbl205948_ '%#define-syntax gxc#generate-meta-define-syntax%)) (let () (declare (not safe)) (table-set! - _tbl203699_ + _tbl205948_ '%#define-alias gxc#generate-meta-define-alias%)) (let () (declare (not safe)) - (table-set! _tbl203699_ '%#begin-foreign gxc#void-method)) + (table-set! _tbl205948_ '%#begin-foreign gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl203699_ '%#declare gxc#void-method)) - _tbl203699_)))) + (table-set! _tbl205948_ '%#declare gxc#void-method)) + _tbl205948_)))) (define gxc#apply-generate-meta - (lambda (_stx203682_ . _args203684_) - (let ((__tmp210177 + (lambda (_stx205931_ . _args205933_) + (let ((__tmp212526 (lambda () (declare (not safe)) - (if (null? _args203684_) - (gxc#compile-e__0 _stx203682_) - (let ((_arg1203689_ (car _args203684_)) - (_rest203691_ (cdr _args203684_))) - (if (null? _rest203691_) - (gxc#compile-e__1 _stx203682_ _arg1203689_) - (let ((_arg2203694_ (car _rest203691_)) - (_rest203696_ (cdr _rest203691_))) - (if (null? _rest203696_) + (if (null? _args205933_) + (gxc#compile-e__0 _stx205931_) + (let ((_arg1205938_ (car _args205933_)) + (_rest205940_ (cdr _args205933_))) + (if (null? _rest205940_) + (gxc#compile-e__1 _stx205931_ _arg1205938_) + (let ((_arg2205943_ (car _rest205940_)) + (_rest205945_ (cdr _rest205940_))) + (if (null? _rest205945_) (gxc#compile-e__2 - _stx203682_ - _arg1203689_ - _arg2203694_) + _stx205931_ + _arg1205938_ + _arg2205943_) (apply gxc#compile-e - _stx203682_ - _arg1203689_ - _arg2203694_ - _rest203696_)))))))) - (__tmp210176 (force gxc#&generate-meta))) + _stx205931_ + _arg1205938_ + _arg2205943_ + _rest205945_)))))))) + (__tmp212525 (force gxc#&generate-meta))) (declare (not safe)) (call-with-parameters - __tmp210177 + __tmp212526 gxc#current-compile-methods - __tmp210176)))) + __tmp212525)))) (define gxc#&generate-meta-phi (make-promise (lambda () - (let ((_tbl203679_ + (let ((_tbl205928_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl203679_ '%#begin gxc#generate-meta-begin%)) + (table-set! _tbl205928_ '%#begin gxc#generate-meta-begin%)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#begin-syntax gxc#generate-meta-begin-syntax%)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#define-syntax gxc#generate-meta-define-syntax%)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#define-alias gxc#generate-meta-define-alias%)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#define-values gxc#generate-meta-phi-define-values%)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#begin-annotation gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl203679_ '%#lambda gxc#generate-meta-phi-expr)) + (table-set! _tbl205928_ '%#lambda gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#case-lambda gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#let-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#letrec-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#letrec*-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl203679_ '%#quote gxc#generate-meta-phi-expr)) + (table-set! _tbl205928_ '%#quote gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#quote-syntax gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl203679_ '%#call gxc#generate-meta-phi-expr)) + (table-set! _tbl205928_ '%#call gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#call-unchecked gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl203679_ '%#if gxc#generate-meta-phi-expr)) + (table-set! _tbl205928_ '%#if gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl203679_ '%#ref gxc#generate-meta-phi-expr)) + (table-set! _tbl205928_ '%#ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl203679_ '%#set! gxc#generate-meta-phi-expr)) + (table-set! _tbl205928_ '%#set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#struct-instance? gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#struct-direct-instance? gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#struct-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#struct-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#struct-direct-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#struct-direct-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#struct-unchecked-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl203679_ + _tbl205928_ '%#struct-unchecked-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl203679_ '%#declare gxc#void-method)) - _tbl203679_)))) + (table-set! _tbl205928_ '%#declare gxc#void-method)) + _tbl205928_)))) (define gxc#apply-generate-meta-phi - (lambda (_stx203662_ . _args203664_) - (let ((__tmp210179 + (lambda (_stx205911_ . _args205913_) + (let ((__tmp212528 (lambda () (declare (not safe)) - (if (null? _args203664_) - (gxc#compile-e__0 _stx203662_) - (let ((_arg1203669_ (car _args203664_)) - (_rest203671_ (cdr _args203664_))) - (if (null? _rest203671_) - (gxc#compile-e__1 _stx203662_ _arg1203669_) - (let ((_arg2203674_ (car _rest203671_)) - (_rest203676_ (cdr _rest203671_))) - (if (null? _rest203676_) + (if (null? _args205913_) + (gxc#compile-e__0 _stx205911_) + (let ((_arg1205918_ (car _args205913_)) + (_rest205920_ (cdr _args205913_))) + (if (null? _rest205920_) + (gxc#compile-e__1 _stx205911_ _arg1205918_) + (let ((_arg2205923_ (car _rest205920_)) + (_rest205925_ (cdr _rest205920_))) + (if (null? _rest205925_) (gxc#compile-e__2 - _stx203662_ - _arg1203669_ - _arg2203674_) + _stx205911_ + _arg1205918_ + _arg2205923_) (apply gxc#compile-e - _stx203662_ - _arg1203669_ - _arg2203674_ - _rest203676_)))))))) - (__tmp210178 (force gxc#&generate-meta-phi))) + _stx205911_ + _arg1205918_ + _arg2205923_ + _rest205925_)))))))) + (__tmp212527 (force gxc#&generate-meta-phi))) (declare (not safe)) (call-with-parameters - __tmp210179 + __tmp212528 gxc#current-compile-methods - __tmp210178)))) + __tmp212527)))) (define gxc#collect-begin% - (lambda (_stx203612_ . _args203613_) - (let* ((_g203615203625_ - (lambda (_g203616203622_) + (lambda (_stx205861_ . _args205862_) + (let* ((_g205864205874_ + (lambda (_g205865205871_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g203616203622_)))) - (_g203614203659_ - (lambda (_g203616203628_) + _g205865205871_)))) + (_g205863205908_ + (lambda (_g205865205877_) (if (let () (declare (not safe)) - (gx#stx-pair? _g203616203628_)) - (let ((_e203620203630_ + (gx#stx-pair? _g205865205877_)) + (let ((_e205869205879_ (let () (declare (not safe)) - (gx#stx-e _g203616203628_)))) - (let ((_hd203619203633_ + (gx#stx-e _g205865205877_)))) + (let ((_hd205868205882_ (let () (declare (not safe)) - (##car _e203620203630_))) - (_tl203618203635_ + (##car _e205869205879_))) + (_tl205867205884_ (let () (declare (not safe)) - (##cdr _e203620203630_)))) - ((lambda (_L203638_) + (##cdr _e205869205879_)))) + ((lambda (_L205887_) (for-each - (lambda (_stx203648_) + (lambda (_stx205897_) (if (let () (declare (not safe)) - (null? _args203613_)) + (null? _args205862_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx203648_)) - (let ((_arg1203650_ (car _args203613_)) - (_rest203652_ (cdr _args203613_))) + (gxc#compile-e__0 _stx205897_)) + (let ((_arg1205899_ (car _args205862_)) + (_rest205901_ (cdr _args205862_))) (if (let () (declare (not safe)) - (null? _rest203652_)) + (null? _rest205901_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx203648_ - _arg1203650_)) - (let ((_arg2203655_ - (car _rest203652_)) - (_rest203657_ - (cdr _rest203652_))) + _stx205897_ + _arg1205899_)) + (let ((_arg2205904_ + (car _rest205901_)) + (_rest205906_ + (cdr _rest205901_))) (if (let () (declare (not safe)) - (null? _rest203657_)) + (null? _rest205906_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx203648_ - _arg1203650_ - _arg2203655_)) + _stx205897_ + _arg1205899_ + _arg2205904_)) (apply gxc#compile-e - _stx203648_ - _arg1203650_ - _arg2203655_ - _rest203657_))))))) + _stx205897_ + _arg1205899_ + _arg2205904_ + _rest205906_))))))) (let () (declare (not safe)) - (gx#stx-e _L203638_)))) - _tl203618203635_))) + (gx#stx-e _L205887_)))) + _tl205867205884_))) (let () (declare (not safe)) - (_g203615203625_ _g203616203628_)))))) + (_g205864205874_ _g205865205877_)))))) (declare (not safe)) - (_g203614203659_ _stx203612_)))) + (_g205863205908_ _stx205861_)))) (define gxc#collect-begin-syntax% - (lambda (_stx203608_ . _args203609_) - (let ((__tmp210182 + (lambda (_stx205857_ . _args205858_) + (let ((__tmp212531 (lambda () - (apply gxc#collect-begin% _stx203608_ _args203609_))) - (__tmp210180 - (let ((__tmp210181 (gx#current-expander-phi))) + (apply gxc#collect-begin% _stx205857_ _args205858_))) + (__tmp212529 + (let ((__tmp212530 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp210181 '1)))) + (fx+ __tmp212530 '1)))) (declare (not safe)) (call-with-parameters - __tmp210182 + __tmp212531 gx#current-expander-phi - __tmp210180)))) + __tmp212529)))) (define gxc#collect-module% - (lambda (_stx203538_ . _args203539_) - (let* ((_g203541203555_ - (lambda (_g203542203552_) + (lambda (_stx205787_ . _args205788_) + (let* ((_g205790205804_ + (lambda (_g205791205801_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g203542203552_)))) - (_g203540203605_ - (lambda (_g203542203558_) + _g205791205801_)))) + (_g205789205854_ + (lambda (_g205791205807_) (if (let () (declare (not safe)) - (gx#stx-pair? _g203542203558_)) - (let ((_e203547203560_ + (gx#stx-pair? _g205791205807_)) + (let ((_e205796205809_ (let () (declare (not safe)) - (gx#stx-e _g203542203558_)))) - (let ((_hd203546203563_ + (gx#stx-e _g205791205807_)))) + (let ((_hd205795205812_ (let () (declare (not safe)) - (##car _e203547203560_))) - (_tl203545203565_ + (##car _e205796205809_))) + (_tl205794205814_ (let () (declare (not safe)) - (##cdr _e203547203560_)))) + (##cdr _e205796205809_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203545203565_)) - (let ((_e203550203568_ + (gx#stx-pair? _tl205794205814_)) + (let ((_e205799205817_ (let () (declare (not safe)) - (gx#stx-e _tl203545203565_)))) - (let ((_hd203549203571_ + (gx#stx-e _tl205794205814_)))) + (let ((_hd205798205820_ (let () (declare (not safe)) - (##car _e203550203568_))) - (_tl203548203573_ + (##car _e205799205817_))) + (_tl205797205822_ (let () (declare (not safe)) - (##cdr _e203550203568_)))) - ((lambda (_L203576_ _L203577_) - (let* ((_ctx203590_ + (##cdr _e205799205817_)))) + ((lambda (_L205825_ _L205826_) + (let* ((_ctx205839_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L203577_))) - (_ctx-stx203592_ + _L205826_))) + (_ctx-stx205841_ (##structure-ref - _ctx203590_ + _ctx205839_ '11 gx#module-context::t '#f))) - (let ((__tmp210183 + (let ((__tmp212532 (lambda () (if (let () (declare (not safe)) - (null? _args203539_)) + (null? _args205788_)) (let () (declare (not safe)) (gxc#compile-e__0 - _ctx-stx203592_)) - (let ((_arg1203596_ - (car _args203539_)) - (_rest203598_ - (cdr _args203539_))) + _ctx-stx205841_)) + (let ((_arg1205845_ + (car _args205788_)) + (_rest205847_ + (cdr _args205788_))) (if (let () (declare (not safe)) - (null? _rest203598_)) + (null? _rest205847_)) (let () (declare (not safe)) (gxc#compile-e__1 - _ctx-stx203592_ - _arg1203596_)) - (let ((_arg2203601_ + _ctx-stx205841_ + _arg1205845_)) + (let ((_arg2205850_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _rest203598_)) - (_rest203603_ (cdr _rest203598_))) - (if (let () (declare (not safe)) (null? _rest203603_)) + (car _rest205847_)) + (_rest205852_ (cdr _rest205847_))) + (if (let () (declare (not safe)) (null? _rest205852_)) (let () (declare (not safe)) (gxc#compile-e__2 - _ctx-stx203592_ - _arg1203596_ - _arg2203601_)) + _ctx-stx205841_ + _arg1205845_ + _arg2205850_)) (apply gxc#compile-e - _ctx-stx203592_ - _arg1203596_ - _arg2203601_ - _rest203603_))))))))) + _ctx-stx205841_ + _arg1205845_ + _arg2205850_ + _rest205852_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp210183 + __tmp212532 gx#current-expander-context - _ctx203590_)))) - _tl203548203573_ - _hd203549203571_))) + _ctx205839_)))) + _tl205797205822_ + _hd205798205820_))) (let () (declare (not safe)) - (_g203541203555_ _g203542203558_))))) + (_g205790205804_ _g205791205807_))))) (let () (declare (not safe)) - (_g203541203555_ _g203542203558_)))))) + (_g205790205804_ _g205791205807_)))))) (declare (not safe)) - (_g203540203605_ _stx203538_)))) + (_g205789205854_ _stx205787_)))) (define gxc#collect-begin-annotation% - (lambda (_stx203461_ . _args203462_) - (let* ((_g203464203481_ - (lambda (_g203465203478_) + (lambda (_stx205710_ . _args205711_) + (let* ((_g205713205730_ + (lambda (_g205714205727_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g203465203478_)))) - (_g203463203535_ - (lambda (_g203465203484_) + _g205714205727_)))) + (_g205712205784_ + (lambda (_g205714205733_) (if (let () (declare (not safe)) - (gx#stx-pair? _g203465203484_)) - (let ((_e203470203486_ + (gx#stx-pair? _g205714205733_)) + (let ((_e205719205735_ (let () (declare (not safe)) - (gx#stx-e _g203465203484_)))) - (let ((_hd203469203489_ + (gx#stx-e _g205714205733_)))) + (let ((_hd205718205738_ (let () (declare (not safe)) - (##car _e203470203486_))) - (_tl203468203491_ + (##car _e205719205735_))) + (_tl205717205740_ (let () (declare (not safe)) - (##cdr _e203470203486_)))) + (##cdr _e205719205735_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203468203491_)) - (let ((_e203473203494_ + (gx#stx-pair? _tl205717205740_)) + (let ((_e205722205743_ (let () (declare (not safe)) - (gx#stx-e _tl203468203491_)))) - (let ((_hd203472203497_ + (gx#stx-e _tl205717205740_)))) + (let ((_hd205721205746_ (let () (declare (not safe)) - (##car _e203473203494_))) - (_tl203471203499_ + (##car _e205722205743_))) + (_tl205720205748_ (let () (declare (not safe)) - (##cdr _e203473203494_)))) + (##cdr _e205722205743_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203471203499_)) - (let ((_e203476203502_ + (gx#stx-pair? _tl205720205748_)) + (let ((_e205725205751_ (let () (declare (not safe)) - (gx#stx-e _tl203471203499_)))) - (let ((_hd203475203505_ + (gx#stx-e _tl205720205748_)))) + (let ((_hd205724205754_ (let () (declare (not safe)) - (##car _e203476203502_))) - (_tl203474203507_ + (##car _e205725205751_))) + (_tl205723205756_ (let () (declare (not safe)) - (##cdr _e203476203502_)))) + (##cdr _e205725205751_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203474203507_)) - ((lambda (_L203510_ _L203511_) + _tl205723205756_)) + ((lambda (_L205759_ _L205760_) (if (let () (declare (not safe)) - (null? _args203462_)) + (null? _args205711_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L203510_)) - (let ((_arg1203526_ - (car _args203462_)) - (_rest203528_ - (cdr _args203462_))) + _L205759_)) + (let ((_arg1205775_ + (car _args205711_)) + (_rest205777_ + (cdr _args205711_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest203528_)) + (null? _rest205777_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L203510_ _arg1203526_)) - (let ((_arg2203531_ (car _rest203528_)) - (_rest203533_ (cdr _rest203528_))) - (if (let () (declare (not safe)) (null? _rest203533_)) + (gxc#compile-e__1 _L205759_ _arg1205775_)) + (let ((_arg2205780_ (car _rest205777_)) + (_rest205782_ (cdr _rest205777_))) + (if (let () (declare (not safe)) (null? _rest205782_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L203510_ - _arg1203526_ - _arg2203531_)) + _L205759_ + _arg1205775_ + _arg2205780_)) (apply gxc#compile-e - _L203510_ - _arg1203526_ - _arg2203531_ - _rest203533_))))))) + _L205759_ + _arg1205775_ + _arg2205780_ + _rest205782_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd203475203505_ - _hd203472203497_) + _hd205724205754_ + _hd205721205746_) (let () (declare (not safe)) - (_g203464203481_ - _g203465203484_))))) + (_g205713205730_ + _g205714205733_))))) (let () (declare (not safe)) - (_g203464203481_ _g203465203484_))))) + (_g205713205730_ _g205714205733_))))) (let () (declare (not safe)) - (_g203464203481_ _g203465203484_))))) + (_g205713205730_ _g205714205733_))))) (let () (declare (not safe)) - (_g203464203481_ _g203465203484_)))))) + (_g205713205730_ _g205714205733_)))))) (declare (not safe)) - (_g203463203535_ _stx203461_)))) + (_g205712205784_ _stx205710_)))) (define gxc#collect-define-values% - (lambda (_stx203384_ . _args203385_) - (let* ((_g203387203404_ - (lambda (_g203388203401_) + (lambda (_stx205633_ . _args205634_) + (let* ((_g205636205653_ + (lambda (_g205637205650_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g203388203401_)))) - (_g203386203458_ - (lambda (_g203388203407_) + _g205637205650_)))) + (_g205635205707_ + (lambda (_g205637205656_) (if (let () (declare (not safe)) - (gx#stx-pair? _g203388203407_)) - (let ((_e203393203409_ + (gx#stx-pair? _g205637205656_)) + (let ((_e205642205658_ (let () (declare (not safe)) - (gx#stx-e _g203388203407_)))) - (let ((_hd203392203412_ + (gx#stx-e _g205637205656_)))) + (let ((_hd205641205661_ (let () (declare (not safe)) - (##car _e203393203409_))) - (_tl203391203414_ + (##car _e205642205658_))) + (_tl205640205663_ (let () (declare (not safe)) - (##cdr _e203393203409_)))) + (##cdr _e205642205658_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203391203414_)) - (let ((_e203396203417_ + (gx#stx-pair? _tl205640205663_)) + (let ((_e205645205666_ (let () (declare (not safe)) - (gx#stx-e _tl203391203414_)))) - (let ((_hd203395203420_ + (gx#stx-e _tl205640205663_)))) + (let ((_hd205644205669_ (let () (declare (not safe)) - (##car _e203396203417_))) - (_tl203394203422_ + (##car _e205645205666_))) + (_tl205643205671_ (let () (declare (not safe)) - (##cdr _e203396203417_)))) + (##cdr _e205645205666_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203394203422_)) - (let ((_e203399203425_ + (gx#stx-pair? _tl205643205671_)) + (let ((_e205648205674_ (let () (declare (not safe)) - (gx#stx-e _tl203394203422_)))) - (let ((_hd203398203428_ + (gx#stx-e _tl205643205671_)))) + (let ((_hd205647205677_ (let () (declare (not safe)) - (##car _e203399203425_))) - (_tl203397203430_ + (##car _e205648205674_))) + (_tl205646205679_ (let () (declare (not safe)) - (##cdr _e203399203425_)))) + (##cdr _e205648205674_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203397203430_)) - ((lambda (_L203433_ _L203434_) + _tl205646205679_)) + ((lambda (_L205682_ _L205683_) (if (let () (declare (not safe)) - (null? _args203385_)) + (null? _args205634_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L203433_)) - (let ((_arg1203449_ - (car _args203385_)) - (_rest203451_ - (cdr _args203385_))) + _L205682_)) + (let ((_arg1205698_ + (car _args205634_)) + (_rest205700_ + (cdr _args205634_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest203451_)) + (null? _rest205700_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L203433_ _arg1203449_)) - (let ((_arg2203454_ (car _rest203451_)) - (_rest203456_ (cdr _rest203451_))) - (if (let () (declare (not safe)) (null? _rest203456_)) + (gxc#compile-e__1 _L205682_ _arg1205698_)) + (let ((_arg2205703_ (car _rest205700_)) + (_rest205705_ (cdr _rest205700_))) + (if (let () (declare (not safe)) (null? _rest205705_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L203433_ - _arg1203449_ - _arg2203454_)) + _L205682_ + _arg1205698_ + _arg2205703_)) (apply gxc#compile-e - _L203433_ - _arg1203449_ - _arg2203454_ - _rest203456_))))))) + _L205682_ + _arg1205698_ + _arg2205703_ + _rest205705_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd203398203428_ - _hd203395203420_) + _hd205647205677_ + _hd205644205669_) (let () (declare (not safe)) - (_g203387203404_ - _g203388203407_))))) + (_g205636205653_ + _g205637205656_))))) (let () (declare (not safe)) - (_g203387203404_ _g203388203407_))))) + (_g205636205653_ _g205637205656_))))) (let () (declare (not safe)) - (_g203387203404_ _g203388203407_))))) + (_g205636205653_ _g205637205656_))))) (let () (declare (not safe)) - (_g203387203404_ _g203388203407_)))))) + (_g205636205653_ _g205637205656_)))))) (declare (not safe)) - (_g203386203458_ _stx203384_)))) + (_g205635205707_ _stx205633_)))) (define gxc#collect-define-syntax% - (lambda (_stx203306_ . _args203307_) - (let* ((_g203309203326_ - (lambda (_g203310203323_) + (lambda (_stx205555_ . _args205556_) + (let* ((_g205558205575_ + (lambda (_g205559205572_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g203310203323_)))) - (_g203308203381_ - (lambda (_g203310203329_) + _g205559205572_)))) + (_g205557205630_ + (lambda (_g205559205578_) (if (let () (declare (not safe)) - (gx#stx-pair? _g203310203329_)) - (let ((_e203315203331_ + (gx#stx-pair? _g205559205578_)) + (let ((_e205564205580_ (let () (declare (not safe)) - (gx#stx-e _g203310203329_)))) - (let ((_hd203314203334_ + (gx#stx-e _g205559205578_)))) + (let ((_hd205563205583_ (let () (declare (not safe)) - (##car _e203315203331_))) - (_tl203313203336_ + (##car _e205564205580_))) + (_tl205562205585_ (let () (declare (not safe)) - (##cdr _e203315203331_)))) + (##cdr _e205564205580_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203313203336_)) - (let ((_e203318203339_ + (gx#stx-pair? _tl205562205585_)) + (let ((_e205567205588_ (let () (declare (not safe)) - (gx#stx-e _tl203313203336_)))) - (let ((_hd203317203342_ + (gx#stx-e _tl205562205585_)))) + (let ((_hd205566205591_ (let () (declare (not safe)) - (##car _e203318203339_))) - (_tl203316203344_ + (##car _e205567205588_))) + (_tl205565205593_ (let () (declare (not safe)) - (##cdr _e203318203339_)))) + (##cdr _e205567205588_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203316203344_)) - (let ((_e203321203347_ + (gx#stx-pair? _tl205565205593_)) + (let ((_e205570205596_ (let () (declare (not safe)) - (gx#stx-e _tl203316203344_)))) - (let ((_hd203320203350_ + (gx#stx-e _tl205565205593_)))) + (let ((_hd205569205599_ (let () (declare (not safe)) - (##car _e203321203347_))) - (_tl203319203352_ + (##car _e205570205596_))) + (_tl205568205601_ (let () (declare (not safe)) - (##cdr _e203321203347_)))) + (##cdr _e205570205596_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203319203352_)) - ((lambda (_L203355_ _L203356_) - (let ((__tmp210186 + _tl205568205601_)) + ((lambda (_L205604_ _L205605_) + (let ((__tmp212535 (lambda () (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (null? _args203307_)) + (null? _args205556_)) (let () (declare (not safe)) - (gxc#compile-e__0 _L203355_)) - (let ((_arg1203372_ (car _args203307_)) - (_rest203374_ (cdr _args203307_))) + (gxc#compile-e__0 _L205604_)) + (let ((_arg1205621_ (car _args205556_)) + (_rest205623_ (cdr _args205556_))) (if (let () (declare (not safe)) - (null? _rest203374_)) + (null? _rest205623_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L203355_ _arg1203372_)) - (let ((_arg2203377_ (car _rest203374_)) - (_rest203379_ (cdr _rest203374_))) + (gxc#compile-e__1 _L205604_ _arg1205621_)) + (let ((_arg2205626_ (car _rest205623_)) + (_rest205628_ (cdr _rest205623_))) (if (let () (declare (not safe)) - (null? _rest203379_)) + (null? _rest205628_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L203355_ - _arg1203372_ - _arg2203377_)) + _L205604_ + _arg1205621_ + _arg2205626_)) (apply gxc#compile-e - _L203355_ - _arg1203372_ - _arg2203377_ - _rest203379_)))))))) - (__tmp210184 - (let ((__tmp210185 (gx#current-expander-phi))) + _L205604_ + _arg1205621_ + _arg2205626_ + _rest205628_)))))))) + (__tmp212533 + (let ((__tmp212534 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp210185 '1)))) + (fx+ __tmp212534 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp210186 + __tmp212535 gx#current-expander-phi - __tmp210184))) - _hd203320203350_ - _hd203317203342_) + __tmp212533))) + _hd205569205599_ + _hd205566205591_) (let () (declare (not safe)) - (_g203309203326_ - _g203310203329_))))) + (_g205558205575_ + _g205559205578_))))) (let () (declare (not safe)) - (_g203309203326_ _g203310203329_))))) + (_g205558205575_ _g205559205578_))))) (let () (declare (not safe)) - (_g203309203326_ _g203310203329_))))) + (_g205558205575_ _g205559205578_))))) (let () (declare (not safe)) - (_g203309203326_ _g203310203329_)))))) + (_g205558205575_ _g205559205578_)))))) (declare (not safe)) - (_g203308203381_ _stx203306_)))) + (_g205557205630_ _stx205555_)))) (define gxc#collect-body-lambda% - (lambda (_stx203229_ . _args203230_) - (let* ((_g203232203249_ - (lambda (_g203233203246_) + (lambda (_stx205478_ . _args205479_) + (let* ((_g205481205498_ + (lambda (_g205482205495_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g203233203246_)))) - (_g203231203303_ - (lambda (_g203233203252_) + _g205482205495_)))) + (_g205480205552_ + (lambda (_g205482205501_) (if (let () (declare (not safe)) - (gx#stx-pair? _g203233203252_)) - (let ((_e203238203254_ + (gx#stx-pair? _g205482205501_)) + (let ((_e205487205503_ (let () (declare (not safe)) - (gx#stx-e _g203233203252_)))) - (let ((_hd203237203257_ + (gx#stx-e _g205482205501_)))) + (let ((_hd205486205506_ (let () (declare (not safe)) - (##car _e203238203254_))) - (_tl203236203259_ + (##car _e205487205503_))) + (_tl205485205508_ (let () (declare (not safe)) - (##cdr _e203238203254_)))) + (##cdr _e205487205503_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203236203259_)) - (let ((_e203241203262_ + (gx#stx-pair? _tl205485205508_)) + (let ((_e205490205511_ (let () (declare (not safe)) - (gx#stx-e _tl203236203259_)))) - (let ((_hd203240203265_ + (gx#stx-e _tl205485205508_)))) + (let ((_hd205489205514_ (let () (declare (not safe)) - (##car _e203241203262_))) - (_tl203239203267_ + (##car _e205490205511_))) + (_tl205488205516_ (let () (declare (not safe)) - (##cdr _e203241203262_)))) + (##cdr _e205490205511_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203239203267_)) - (let ((_e203244203270_ + (gx#stx-pair? _tl205488205516_)) + (let ((_e205493205519_ (let () (declare (not safe)) - (gx#stx-e _tl203239203267_)))) - (let ((_hd203243203273_ + (gx#stx-e _tl205488205516_)))) + (let ((_hd205492205522_ (let () (declare (not safe)) - (##car _e203244203270_))) - (_tl203242203275_ + (##car _e205493205519_))) + (_tl205491205524_ (let () (declare (not safe)) - (##cdr _e203244203270_)))) + (##cdr _e205493205519_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203242203275_)) - ((lambda (_L203278_ _L203279_) + _tl205491205524_)) + ((lambda (_L205527_ _L205528_) (if (let () (declare (not safe)) - (null? _args203230_)) + (null? _args205479_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L203278_)) - (let ((_arg1203294_ - (car _args203230_)) - (_rest203296_ - (cdr _args203230_))) + _L205527_)) + (let ((_arg1205543_ + (car _args205479_)) + (_rest205545_ + (cdr _args205479_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest203296_)) + (null? _rest205545_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L203278_ _arg1203294_)) - (let ((_arg2203299_ (car _rest203296_)) - (_rest203301_ (cdr _rest203296_))) - (if (let () (declare (not safe)) (null? _rest203301_)) + (gxc#compile-e__1 _L205527_ _arg1205543_)) + (let ((_arg2205548_ (car _rest205545_)) + (_rest205550_ (cdr _rest205545_))) + (if (let () (declare (not safe)) (null? _rest205550_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L203278_ - _arg1203294_ - _arg2203299_)) + _L205527_ + _arg1205543_ + _arg2205548_)) (apply gxc#compile-e - _L203278_ - _arg1203294_ - _arg2203299_ - _rest203301_))))))) + _L205527_ + _arg1205543_ + _arg2205548_ + _rest205550_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd203243203273_ - _hd203240203265_) + _hd205492205522_ + _hd205489205514_) (let () (declare (not safe)) - (_g203232203249_ - _g203233203252_))))) + (_g205481205498_ + _g205482205501_))))) (let () (declare (not safe)) - (_g203232203249_ _g203233203252_))))) + (_g205481205498_ _g205482205501_))))) (let () (declare (not safe)) - (_g203232203249_ _g203233203252_))))) + (_g205481205498_ _g205482205501_))))) (let () (declare (not safe)) - (_g203232203249_ _g203233203252_)))))) + (_g205481205498_ _g205482205501_)))))) (declare (not safe)) - (_g203231203303_ _stx203229_)))) + (_g205480205552_ _stx205478_)))) (define gxc#collect-body-case-lambda% - (lambda (_stx203104_ . _args203105_) - (let* ((_g203107203135_ - (lambda (_g203108203132_) + (lambda (_stx205353_ . _args205354_) + (let* ((_g205356205384_ + (lambda (_g205357205381_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g203108203132_)))) - (_g203106203226_ - (lambda (_g203108203138_) + _g205357205381_)))) + (_g205355205475_ + (lambda (_g205357205387_) (if (let () (declare (not safe)) - (gx#stx-pair? _g203108203138_)) - (let ((_e203113203140_ + (gx#stx-pair? _g205357205387_)) + (let ((_e205362205389_ (let () (declare (not safe)) - (gx#stx-e _g203108203138_)))) - (let ((_hd203112203143_ + (gx#stx-e _g205357205387_)))) + (let ((_hd205361205392_ (let () (declare (not safe)) - (##car _e203113203140_))) - (_tl203111203145_ + (##car _e205362205389_))) + (_tl205360205394_ (let () (declare (not safe)) - (##cdr _e203113203140_)))) + (##cdr _e205362205389_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl203111203145_)) - (let ((_g210187_ + (gx#stx-pair/null? _tl205360205394_)) + (let ((_g212536_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl203111203145_ + _tl205360205394_ '0)))) (begin - (let ((_g210188_ + (let ((_g212537_ (let () (declare (not safe)) - (if (##values? _g210187_) - (##vector-length _g210187_) + (if (##values? _g212536_) + (##vector-length _g212536_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g210188_ 2))) + (##fx= _g212537_ 2))) (error "Context expects 2 values" - _g210188_))) - (let ((_target203114203148_ + _g212537_))) + (let ((_target205363205397_ (let () (declare (not safe)) - (##vector-ref _g210187_ 0))) - (_tl203116203150_ + (##vector-ref _g212536_ 0))) + (_tl205365205399_ (let () (declare (not safe)) - (##vector-ref _g210187_ 1)))) + (##vector-ref _g212536_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203116203150_)) - (letrec ((_loop203117203153_ - (lambda (_hd203115203156_ - _body203121203158_ - _hd203122203160_) + (gx#stx-null? _tl205365205399_)) + (letrec ((_loop205366205402_ + (lambda (_hd205364205405_ + _body205370205407_ + _hd205371205409_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203115203156_)) - (let ((_e203118203163_ + _hd205364205405_)) + (let ((_e205367205412_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd203115203156_)))) - (let ((_lp-hd203119203166_ + (gx#stx-e _hd205364205405_)))) + (let ((_lp-hd205368205415_ (let () (declare (not safe)) - (##car _e203118203163_))) - (_lp-tl203120203168_ + (##car _e205367205412_))) + (_lp-tl205369205417_ (let () (declare (not safe)) - (##cdr _e203118203163_)))) + (##cdr _e205367205412_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd203119203166_)) - (let ((_e203127203171_ + (gx#stx-pair? _lp-hd205368205415_)) + (let ((_e205376205420_ (let () (declare (not safe)) - (gx#stx-e _lp-hd203119203166_)))) - (let ((_hd203126203174_ + (gx#stx-e _lp-hd205368205415_)))) + (let ((_hd205375205423_ (let () (declare (not safe)) - (##car _e203127203171_))) - (_tl203125203176_ + (##car _e205376205420_))) + (_tl205374205425_ (let () (declare (not safe)) - (##cdr _e203127203171_)))) + (##cdr _e205376205420_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203125203176_)) - (let ((_e203130203179_ + (gx#stx-pair? _tl205374205425_)) + (let ((_e205379205428_ (let () (declare (not safe)) - (gx#stx-e _tl203125203176_)))) - (let ((_hd203129203182_ + (gx#stx-e _tl205374205425_)))) + (let ((_hd205378205431_ (let () (declare (not safe)) - (##car _e203130203179_))) - (_tl203128203184_ + (##car _e205379205428_))) + (_tl205377205433_ (let () (declare (not safe)) - (##cdr _e203130203179_)))) + (##cdr _e205379205428_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203128203184_)) - (let ((__tmp210191 + (gx#stx-null? _tl205377205433_)) + (let ((__tmp212540 (let () (declare (not safe)) - (cons _hd203129203182_ - _body203121203158_))) - (__tmp210190 + (cons _hd205378205431_ + _body205370205407_))) + (__tmp212539 (let () (declare (not safe)) - (cons _hd203126203174_ - _hd203122203160_)))) + (cons _hd205375205423_ + _hd205371205409_)))) (declare (not safe)) - (_loop203117203153_ - _lp-tl203120203168_ - __tmp210191 - __tmp210190)) + (_loop205366205402_ + _lp-tl205369205417_ + __tmp212540 + __tmp212539)) (let () (declare (not safe)) - (_g203107203135_ - _g203108203138_))))) + (_g205356205384_ + _g205357205387_))))) (let () (declare (not safe)) - (_g203107203135_ _g203108203138_))))) + (_g205356205384_ _g205357205387_))))) (let () (declare (not safe)) - (_g203107203135_ _g203108203138_))))) - (let ((_body203123203187_ (reverse _body203121203158_)) - (_hd203124203189_ (reverse _hd203122203160_))) - ((lambda (_L203192_ _L203193_) + (_g205356205384_ _g205357205387_))))) + (let ((_body205372205436_ (reverse _body205370205407_)) + (_hd205373205438_ (reverse _hd205371205409_))) + ((lambda (_L205441_ _L205442_) (for-each - (lambda (_stx203208_) + (lambda (_stx205457_) (if (let () (declare (not safe)) - (null? _args203105_)) + (null? _args205354_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx203208_)) - (let ((_arg1203210_ (car _args203105_)) - (_rest203212_ (cdr _args203105_))) + (gxc#compile-e__0 _stx205457_)) + (let ((_arg1205459_ (car _args205354_)) + (_rest205461_ (cdr _args205354_))) (if (let () (declare (not safe)) - (null? _rest203212_)) + (null? _rest205461_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx203208_ - _arg1203210_)) - (let ((_arg2203215_ (car _rest203212_)) - (_rest203217_ (cdr _rest203212_))) + _stx205457_ + _arg1205459_)) + (let ((_arg2205464_ (car _rest205461_)) + (_rest205466_ (cdr _rest205461_))) (if (let () (declare (not safe)) - (null? _rest203217_)) + (null? _rest205466_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx203208_ - _arg1203210_ - _arg2203215_)) + _stx205457_ + _arg1205459_ + _arg2205464_)) (apply gxc#compile-e - _stx203208_ - _arg1203210_ - _arg2203215_ - _rest203217_))))))) - (let ((__tmp210189 - (lambda (_g203218203221_ _g203219203223_) + _stx205457_ + _arg1205459_ + _arg2205464_ + _rest205466_))))))) + (let ((__tmp212538 + (lambda (_g205467205470_ _g205468205472_) (let () (declare (not safe)) - (cons _g203218203221_ _g203219203223_))))) + (cons _g205467205470_ _g205468205472_))))) (declare (not safe)) - (foldr1 __tmp210189 '() _L203192_)))) - _body203123203187_ - _hd203124203189_)))))) + (foldr1 __tmp212538 '() _L205441_)))) + _body205372205436_ + _hd205373205438_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop203117203153_ - _target203114203148_ + (_loop205366205402_ + _target205363205397_ '() '()))) (let () (declare (not safe)) - (_g203107203135_ - _g203108203138_)))))) + (_g205356205384_ + _g205357205387_)))))) (let () (declare (not safe)) - (_g203107203135_ _g203108203138_))))) + (_g205356205384_ _g205357205387_))))) (let () (declare (not safe)) - (_g203107203135_ _g203108203138_)))))) + (_g205356205384_ _g205357205387_)))))) (declare (not safe)) - (_g203106203226_ _stx203104_)))) + (_g205355205475_ _stx205353_)))) (define gxc#collect-body-let-values% - (lambda (_stx202950_ . _args202951_) - (let* ((_g202953202988_ - (lambda (_g202954202985_) + (lambda (_stx205199_ . _args205200_) + (let* ((_g205202205237_ + (lambda (_g205203205234_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g202954202985_)))) - (_g202952203101_ - (lambda (_g202954202991_) + _g205203205234_)))) + (_g205201205350_ + (lambda (_g205203205240_) (if (let () (declare (not safe)) - (gx#stx-pair? _g202954202991_)) - (let ((_e202960202993_ + (gx#stx-pair? _g205203205240_)) + (let ((_e205209205242_ (let () (declare (not safe)) - (gx#stx-e _g202954202991_)))) - (let ((_hd202959202996_ + (gx#stx-e _g205203205240_)))) + (let ((_hd205208205245_ (let () (declare (not safe)) - (##car _e202960202993_))) - (_tl202958202998_ + (##car _e205209205242_))) + (_tl205207205247_ (let () (declare (not safe)) - (##cdr _e202960202993_)))) + (##cdr _e205209205242_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202958202998_)) - (let ((_e202963203001_ + (gx#stx-pair? _tl205207205247_)) + (let ((_e205212205250_ (let () (declare (not safe)) - (gx#stx-e _tl202958202998_)))) - (let ((_hd202962203004_ + (gx#stx-e _tl205207205247_)))) + (let ((_hd205211205253_ (let () (declare (not safe)) - (##car _e202963203001_))) - (_tl202961203006_ + (##car _e205212205250_))) + (_tl205210205255_ (let () (declare (not safe)) - (##cdr _e202963203001_)))) + (##cdr _e205212205250_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd202962203004_)) - (let ((_g210192_ + (gx#stx-pair/null? _hd205211205253_)) + (let ((_g212541_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd202962203004_ + _hd205211205253_ '0)))) (begin - (let ((_g210193_ + (let ((_g212542_ (let () (declare (not safe)) - (if (##values? _g210192_) + (if (##values? _g212541_) (##vector-length - _g210192_) + _g212541_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g210193_ 2))) + (##fx= _g212542_ 2))) (error "Context expects 2 values" - _g210193_))) - (let ((_target202964203009_ + _g212542_))) + (let ((_target205213205258_ (let () (declare (not safe)) (##vector-ref - _g210192_ + _g212541_ 0))) - (_tl202966203011_ + (_tl205215205260_ (let () (declare (not safe)) (##vector-ref - _g210192_ + _g212541_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202966203011_)) - (letrec ((_loop202967203014_ - (lambda (_hd202965203017_ + _tl205215205260_)) + (letrec ((_loop205216205263_ + (lambda (_hd205214205266_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr202971203019_ - _hd202972203021_) + _expr205220205268_ + _hd205221205270_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd202965203017_)) - (let ((_e202968203024_ + (gx#stx-pair? _hd205214205266_)) + (let ((_e205217205273_ (let () (declare (not safe)) - (gx#stx-e _hd202965203017_)))) - (let ((_lp-hd202969203027_ + (gx#stx-e _hd205214205266_)))) + (let ((_lp-hd205218205276_ (let () (declare (not safe)) - (##car _e202968203024_))) - (_lp-tl202970203029_ + (##car _e205217205273_))) + (_lp-tl205219205278_ (let () (declare (not safe)) - (##cdr _e202968203024_)))) + (##cdr _e205217205273_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd202969203027_)) - (let ((_e202977203032_ + (gx#stx-pair? _lp-hd205218205276_)) + (let ((_e205226205281_ (let () (declare (not safe)) - (gx#stx-e _lp-hd202969203027_)))) - (let ((_hd202976203035_ + (gx#stx-e _lp-hd205218205276_)))) + (let ((_hd205225205284_ (let () (declare (not safe)) - (##car _e202977203032_))) - (_tl202975203037_ + (##car _e205226205281_))) + (_tl205224205286_ (let () (declare (not safe)) - (##cdr _e202977203032_)))) + (##cdr _e205226205281_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202975203037_)) - (let ((_e202980203040_ + (gx#stx-pair? _tl205224205286_)) + (let ((_e205229205289_ (let () (declare (not safe)) (gx#stx-e - _tl202975203037_)))) - (let ((_hd202979203043_ + _tl205224205286_)))) + (let ((_hd205228205292_ (let () (declare (not safe)) - (##car _e202980203040_))) - (_tl202978203045_ + (##car _e205229205289_))) + (_tl205227205294_ (let () (declare (not safe)) - (##cdr _e202980203040_)))) + (##cdr _e205229205289_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202978203045_)) - (let ((__tmp210197 + _tl205227205294_)) + (let ((__tmp212546 (let () (declare (not safe)) - (cons _hd202979203043_ + (cons _hd205228205292_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr202971203019_))) - (__tmp210196 + _expr205220205268_))) + (__tmp212545 (let () (declare (not safe)) - (cons _hd202976203035_ _hd202972203021_)))) + (cons _hd205225205284_ _hd205221205270_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop202967203014_ - _lp-tl202970203029_ - __tmp210197 - __tmp210196)) + (_loop205216205263_ + _lp-tl205219205278_ + __tmp212546 + __tmp212545)) (let () (declare (not safe)) - (_g202953202988_ - _g202954202991_))))) + (_g205202205237_ + _g205203205240_))))) (let () (declare (not safe)) - (_g202953202988_ - _g202954202991_))))) + (_g205202205237_ + _g205203205240_))))) (let () (declare (not safe)) - (_g202953202988_ _g202954202991_))))) - (let ((_expr202973203048_ - (reverse _expr202971203019_)) - (_hd202974203050_ (reverse _hd202972203021_))) + (_g205202205237_ _g205203205240_))))) + (let ((_expr205222205297_ + (reverse _expr205220205268_)) + (_hd205223205299_ (reverse _hd205221205270_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202961203006_)) - (let ((_e202983203053_ + (gx#stx-pair? _tl205210205255_)) + (let ((_e205232205302_ (let () (declare (not safe)) - (gx#stx-e _tl202961203006_)))) - (let ((_hd202982203056_ + (gx#stx-e _tl205210205255_)))) + (let ((_hd205231205305_ (let () (declare (not safe)) - (##car _e202983203053_))) - (_tl202981203058_ + (##car _e205232205302_))) + (_tl205230205307_ (let () (declare (not safe)) - (##cdr _e202983203053_)))) + (##cdr _e205232205302_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202981203058_)) - ((lambda (_L203061_ - _L203062_ - _L203063_) + (gx#stx-null? _tl205230205307_)) + ((lambda (_L205310_ + _L205311_ + _L205312_) (for-each - (lambda (_stx203083_) + (lambda (_stx205332_) (if (let () (declare (not safe)) - (null? _args202951_)) + (null? _args205200_)) (let () (declare (not safe)) (gxc#compile-e__0 - _stx203083_)) - (let ((_arg1203085_ - (car _args202951_)) - (_rest203087_ - (cdr _args202951_))) + _stx205332_)) + (let ((_arg1205334_ + (car _args205200_)) + (_rest205336_ + (cdr _args205200_))) (if (let () (declare (not safe)) - (null? _rest203087_)) + (null? _rest205336_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx203083_ - _arg1203085_)) - (let ((_arg2203090_ - (car _rest203087_)) - (_rest203092_ - (cdr _rest203087_))) + _stx205332_ + _arg1205334_)) + (let ((_arg2205339_ + (car _rest205336_)) + (_rest205341_ + (cdr _rest205336_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest203092_)) + (null? _rest205341_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx203083_ - _arg1203085_ - _arg2203090_)) + _stx205332_ + _arg1205334_ + _arg2205339_)) (apply gxc#compile-e - _stx203083_ - _arg1203085_ - _arg2203090_ - _rest203092_))))))) + _stx205332_ + _arg1205334_ + _arg2205339_ + _rest205341_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp210195 - (lambda (_g203093203096_ - _g203094203098_) + (let ((__tmp212544 + (lambda (_g205342205345_ + _g205343205347_) (let () (declare (not safe)) - (cons _g203093203096_ - _g203094203098_)))) - (__tmp210194 + (cons _g205342205345_ + _g205343205347_)))) + (__tmp212543 (let () (declare (not safe)) - (cons _L203061_ '())))) + (cons _L205310_ '())))) (declare (not safe)) - (foldr1 __tmp210195 - __tmp210194 - _L203062_)))) - _hd202982203056_ - _expr202973203048_ - _hd202974203050_) + (foldr1 __tmp212544 + __tmp212543 + _L205311_)))) + _hd205231205305_ + _expr205222205297_ + _hd205223205299_) (let () (declare (not safe)) - (_g202953202988_ _g202954202991_))))) + (_g205202205237_ _g205203205240_))))) (let () (declare (not safe)) - (_g202953202988_ _g202954202991_)))))))) + (_g205202205237_ _g205203205240_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop202967203014_ - _target202964203009_ + (_loop205216205263_ + _target205213205258_ '() '()))) (let () (declare (not safe)) - (_g202953202988_ - _g202954202991_)))))) + (_g205202205237_ + _g205203205240_)))))) (let () (declare (not safe)) - (_g202953202988_ _g202954202991_))))) + (_g205202205237_ _g205203205240_))))) (let () (declare (not safe)) - (_g202953202988_ _g202954202991_))))) + (_g205202205237_ _g205203205240_))))) (let () (declare (not safe)) - (_g202953202988_ _g202954202991_)))))) + (_g205202205237_ _g205203205240_)))))) (declare (not safe)) - (_g202952203101_ _stx202950_)))) + (_g205201205350_ _stx205199_)))) (define gxc#collect-body-setq% - (lambda (_stx202873_ . _args202874_) - (let* ((_g202876202893_ - (lambda (_g202877202890_) + (lambda (_stx205122_ . _args205123_) + (let* ((_g205125205142_ + (lambda (_g205126205139_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g202877202890_)))) - (_g202875202947_ - (lambda (_g202877202896_) + _g205126205139_)))) + (_g205124205196_ + (lambda (_g205126205145_) (if (let () (declare (not safe)) - (gx#stx-pair? _g202877202896_)) - (let ((_e202882202898_ + (gx#stx-pair? _g205126205145_)) + (let ((_e205131205147_ (let () (declare (not safe)) - (gx#stx-e _g202877202896_)))) - (let ((_hd202881202901_ + (gx#stx-e _g205126205145_)))) + (let ((_hd205130205150_ (let () (declare (not safe)) - (##car _e202882202898_))) - (_tl202880202903_ + (##car _e205131205147_))) + (_tl205129205152_ (let () (declare (not safe)) - (##cdr _e202882202898_)))) + (##cdr _e205131205147_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202880202903_)) - (let ((_e202885202906_ + (gx#stx-pair? _tl205129205152_)) + (let ((_e205134205155_ (let () (declare (not safe)) - (gx#stx-e _tl202880202903_)))) - (let ((_hd202884202909_ + (gx#stx-e _tl205129205152_)))) + (let ((_hd205133205158_ (let () (declare (not safe)) - (##car _e202885202906_))) - (_tl202883202911_ + (##car _e205134205155_))) + (_tl205132205160_ (let () (declare (not safe)) - (##cdr _e202885202906_)))) + (##cdr _e205134205155_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202883202911_)) - (let ((_e202888202914_ + (gx#stx-pair? _tl205132205160_)) + (let ((_e205137205163_ (let () (declare (not safe)) - (gx#stx-e _tl202883202911_)))) - (let ((_hd202887202917_ + (gx#stx-e _tl205132205160_)))) + (let ((_hd205136205166_ (let () (declare (not safe)) - (##car _e202888202914_))) - (_tl202886202919_ + (##car _e205137205163_))) + (_tl205135205168_ (let () (declare (not safe)) - (##cdr _e202888202914_)))) + (##cdr _e205137205163_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202886202919_)) - ((lambda (_L202922_ _L202923_) + _tl205135205168_)) + ((lambda (_L205171_ _L205172_) (if (let () (declare (not safe)) - (null? _args202874_)) + (null? _args205123_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L202922_)) - (let ((_arg1202938_ - (car _args202874_)) - (_rest202940_ - (cdr _args202874_))) + _L205171_)) + (let ((_arg1205187_ + (car _args205123_)) + (_rest205189_ + (cdr _args205123_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest202940_)) + (null? _rest205189_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L202922_ _arg1202938_)) - (let ((_arg2202943_ (car _rest202940_)) - (_rest202945_ (cdr _rest202940_))) - (if (let () (declare (not safe)) (null? _rest202945_)) + (gxc#compile-e__1 _L205171_ _arg1205187_)) + (let ((_arg2205192_ (car _rest205189_)) + (_rest205194_ (cdr _rest205189_))) + (if (let () (declare (not safe)) (null? _rest205194_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L202922_ - _arg1202938_ - _arg2202943_)) + _L205171_ + _arg1205187_ + _arg2205192_)) (apply gxc#compile-e - _L202922_ - _arg1202938_ - _arg2202943_ - _rest202945_))))))) + _L205171_ + _arg1205187_ + _arg2205192_ + _rest205194_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd202887202917_ - _hd202884202909_) + _hd205136205166_ + _hd205133205158_) (let () (declare (not safe)) - (_g202876202893_ - _g202877202896_))))) + (_g205125205142_ + _g205126205145_))))) (let () (declare (not safe)) - (_g202876202893_ _g202877202896_))))) + (_g205125205142_ _g205126205145_))))) (let () (declare (not safe)) - (_g202876202893_ _g202877202896_))))) + (_g205125205142_ _g205126205145_))))) (let () (declare (not safe)) - (_g202876202893_ _g202877202896_)))))) + (_g205125205142_ _g205126205145_)))))) (declare (not safe)) - (_g202875202947_ _stx202873_)))) + (_g205124205196_ _stx205122_)))) (define gxc#collect-operands - (lambda (_stx202779_ . _args202780_) - (let* ((_g202782202801_ - (lambda (_g202783202798_) + (lambda (_stx205028_ . _args205029_) + (let* ((_g205031205050_ + (lambda (_g205032205047_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g202783202798_)))) - (_g202781202870_ - (lambda (_g202783202804_) + _g205032205047_)))) + (_g205030205119_ + (lambda (_g205032205053_) (if (let () (declare (not safe)) - (gx#stx-pair? _g202783202804_)) - (let ((_e202787202806_ + (gx#stx-pair? _g205032205053_)) + (let ((_e205036205055_ (let () (declare (not safe)) - (gx#stx-e _g202783202804_)))) - (let ((_hd202786202809_ + (gx#stx-e _g205032205053_)))) + (let ((_hd205035205058_ (let () (declare (not safe)) - (##car _e202787202806_))) - (_tl202785202811_ + (##car _e205036205055_))) + (_tl205034205060_ (let () (declare (not safe)) - (##cdr _e202787202806_)))) + (##cdr _e205036205055_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl202785202811_)) - (let ((_g210198_ + (gx#stx-pair/null? _tl205034205060_)) + (let ((_g212547_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl202785202811_ + _tl205034205060_ '0)))) (begin - (let ((_g210199_ + (let ((_g212548_ (let () (declare (not safe)) - (if (##values? _g210198_) - (##vector-length _g210198_) + (if (##values? _g212547_) + (##vector-length _g212547_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g210199_ 2))) + (##fx= _g212548_ 2))) (error "Context expects 2 values" - _g210199_))) - (let ((_target202788202814_ + _g212548_))) + (let ((_target205037205063_ (let () (declare (not safe)) - (##vector-ref _g210198_ 0))) - (_tl202790202816_ + (##vector-ref _g212547_ 0))) + (_tl205039205065_ (let () (declare (not safe)) - (##vector-ref _g210198_ 1)))) + (##vector-ref _g212547_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202790202816_)) - (letrec ((_loop202791202819_ - (lambda (_hd202789202822_ - _rands202795202824_) + (gx#stx-null? _tl205039205065_)) + (letrec ((_loop205040205068_ + (lambda (_hd205038205071_ + _rands205044205073_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd202789202822_)) - (let ((_e202792202827_ + _hd205038205071_)) + (let ((_e205041205076_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd202789202822_)))) - (let ((_lp-hd202793202830_ + (gx#stx-e _hd205038205071_)))) + (let ((_lp-hd205042205079_ (let () (declare (not safe)) - (##car _e202792202827_))) - (_lp-tl202794202832_ + (##car _e205041205076_))) + (_lp-tl205043205081_ (let () (declare (not safe)) - (##cdr _e202792202827_)))) - (let ((__tmp210201 + (##cdr _e205041205076_)))) + (let ((__tmp212550 (let () (declare (not safe)) - (cons _lp-hd202793202830_ - _rands202795202824_)))) + (cons _lp-hd205042205079_ + _rands205044205073_)))) (declare (not safe)) - (_loop202791202819_ _lp-tl202794202832_ __tmp210201)))) - (let ((_rands202796202835_ (reverse _rands202795202824_))) - ((lambda (_L202838_) + (_loop205040205068_ _lp-tl205043205081_ __tmp212550)))) + (let ((_rands205045205084_ (reverse _rands205044205073_))) + ((lambda (_L205087_) (for-each - (lambda (_stx202852_) + (lambda (_stx205101_) (if (let () (declare (not safe)) - (null? _args202780_)) + (null? _args205029_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx202852_)) - (let ((_arg1202854_ (car _args202780_)) - (_rest202856_ (cdr _args202780_))) + (gxc#compile-e__0 _stx205101_)) + (let ((_arg1205103_ (car _args205029_)) + (_rest205105_ (cdr _args205029_))) (if (let () (declare (not safe)) - (null? _rest202856_)) + (null? _rest205105_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx202852_ - _arg1202854_)) - (let ((_arg2202859_ (car _rest202856_)) - (_rest202861_ (cdr _rest202856_))) + _stx205101_ + _arg1205103_)) + (let ((_arg2205108_ (car _rest205105_)) + (_rest205110_ (cdr _rest205105_))) (if (let () (declare (not safe)) - (null? _rest202861_)) + (null? _rest205110_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx202852_ - _arg1202854_ - _arg2202859_)) + _stx205101_ + _arg1205103_ + _arg2205108_)) (apply gxc#compile-e - _stx202852_ - _arg1202854_ - _arg2202859_ - _rest202861_))))))) - (let ((__tmp210200 - (lambda (_g202862202865_ _g202863202867_) + _stx205101_ + _arg1205103_ + _arg2205108_ + _rest205110_))))))) + (let ((__tmp212549 + (lambda (_g205111205114_ _g205112205116_) (let () (declare (not safe)) - (cons _g202862202865_ _g202863202867_))))) + (cons _g205111205114_ _g205112205116_))))) (declare (not safe)) - (foldr1 __tmp210200 '() _L202838_)))) - _rands202796202835_)))))) + (foldr1 __tmp212549 '() _L205087_)))) + _rands205045205084_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop202791202819_ - _target202788202814_ + (_loop205040205068_ + _target205037205063_ '()))) (let () (declare (not safe)) - (_g202782202801_ - _g202783202804_)))))) + (_g205031205050_ + _g205032205053_)))))) (let () (declare (not safe)) - (_g202782202801_ _g202783202804_))))) + (_g205031205050_ _g205032205053_))))) (let () (declare (not safe)) - (_g202782202801_ _g202783202804_)))))) + (_g205031205050_ _g205032205053_)))))) (declare (not safe)) - (_g202781202870_ _stx202779_)))) + (_g205030205119_ _stx205028_)))) (define gxc#collect-bindings-define-values% - (lambda (_stx202710_) - (let* ((_g202712202729_ - (lambda (_g202713202726_) + (lambda (_stx204959_) + (let* ((_g204961204978_ + (lambda (_g204962204975_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g202713202726_)))) - (_g202711202776_ - (lambda (_g202713202732_) + _g204962204975_)))) + (_g204960205025_ + (lambda (_g204962204981_) (if (let () (declare (not safe)) - (gx#stx-pair? _g202713202732_)) - (let ((_e202718202734_ + (gx#stx-pair? _g204962204981_)) + (let ((_e204967204983_ (let () (declare (not safe)) - (gx#stx-e _g202713202732_)))) - (let ((_hd202717202737_ + (gx#stx-e _g204962204981_)))) + (let ((_hd204966204986_ (let () (declare (not safe)) - (##car _e202718202734_))) - (_tl202716202739_ + (##car _e204967204983_))) + (_tl204965204988_ (let () (declare (not safe)) - (##cdr _e202718202734_)))) + (##cdr _e204967204983_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202716202739_)) - (let ((_e202721202742_ + (gx#stx-pair? _tl204965204988_)) + (let ((_e204970204991_ (let () (declare (not safe)) - (gx#stx-e _tl202716202739_)))) - (let ((_hd202720202745_ + (gx#stx-e _tl204965204988_)))) + (let ((_hd204969204994_ (let () (declare (not safe)) - (##car _e202721202742_))) - (_tl202719202747_ + (##car _e204970204991_))) + (_tl204968204996_ (let () (declare (not safe)) - (##cdr _e202721202742_)))) + (##cdr _e204970204991_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202719202747_)) - (let ((_e202724202750_ + (gx#stx-pair? _tl204968204996_)) + (let ((_e204973204999_ (let () (declare (not safe)) - (gx#stx-e _tl202719202747_)))) - (let ((_hd202723202753_ + (gx#stx-e _tl204968204996_)))) + (let ((_hd204972205002_ (let () (declare (not safe)) - (##car _e202724202750_))) - (_tl202722202755_ + (##car _e204973204999_))) + (_tl204971205004_ (let () (declare (not safe)) - (##cdr _e202724202750_)))) + (##cdr _e204973204999_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202722202755_)) - ((lambda (_L202758_ _L202759_) - (let ((__tmp210202 - (lambda (_bind202774_) + _tl204971205004_)) + ((lambda (_L205007_ _L205008_) + (let ((__tmp212551 + (lambda (_bind205023_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _bind202774_)) + (gx#identifier? _bind205023_)) (let () (declare (not safe)) - (gxc#add-module-binding! _bind202774_ '#f)) + (gxc#add-module-binding! _bind205023_ '#f)) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp210202 - _L202759_))) - _hd202723202753_ - _hd202720202745_) + __tmp212551 + _L205008_))) + _hd204972205002_ + _hd204969204994_) (let () (declare (not safe)) - (_g202712202729_ - _g202713202732_))))) + (_g204961204978_ + _g204962204981_))))) (let () (declare (not safe)) - (_g202712202729_ _g202713202732_))))) + (_g204961204978_ _g204962204981_))))) (let () (declare (not safe)) - (_g202712202729_ _g202713202732_))))) + (_g204961204978_ _g204962204981_))))) (let () (declare (not safe)) - (_g202712202729_ _g202713202732_)))))) + (_g204961204978_ _g204962204981_)))))) (declare (not safe)) - (_g202711202776_ _stx202710_)))) + (_g204960205025_ _stx204959_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_stx202643_) - (let* ((_g202645202662_ - (lambda (_g202646202659_) + (lambda (_stx204892_) + (let* ((_g204894204911_ + (lambda (_g204895204908_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g202646202659_)))) - (_g202644202707_ - (lambda (_g202646202665_) + _g204895204908_)))) + (_g204893204956_ + (lambda (_g204895204914_) (if (let () (declare (not safe)) - (gx#stx-pair? _g202646202665_)) - (let ((_e202651202667_ + (gx#stx-pair? _g204895204914_)) + (let ((_e204900204916_ (let () (declare (not safe)) - (gx#stx-e _g202646202665_)))) - (let ((_hd202650202670_ + (gx#stx-e _g204895204914_)))) + (let ((_hd204899204919_ (let () (declare (not safe)) - (##car _e202651202667_))) - (_tl202649202672_ + (##car _e204900204916_))) + (_tl204898204921_ (let () (declare (not safe)) - (##cdr _e202651202667_)))) + (##cdr _e204900204916_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202649202672_)) - (let ((_e202654202675_ + (gx#stx-pair? _tl204898204921_)) + (let ((_e204903204924_ (let () (declare (not safe)) - (gx#stx-e _tl202649202672_)))) - (let ((_hd202653202678_ + (gx#stx-e _tl204898204921_)))) + (let ((_hd204902204927_ (let () (declare (not safe)) - (##car _e202654202675_))) - (_tl202652202680_ + (##car _e204903204924_))) + (_tl204901204929_ (let () (declare (not safe)) - (##cdr _e202654202675_)))) + (##cdr _e204903204924_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202652202680_)) - (let ((_e202657202683_ + (gx#stx-pair? _tl204901204929_)) + (let ((_e204906204932_ (let () (declare (not safe)) - (gx#stx-e _tl202652202680_)))) - (let ((_hd202656202686_ + (gx#stx-e _tl204901204929_)))) + (let ((_hd204905204935_ (let () (declare (not safe)) - (##car _e202657202683_))) - (_tl202655202688_ + (##car _e204906204932_))) + (_tl204904204937_ (let () (declare (not safe)) - (##cdr _e202657202683_)))) + (##cdr _e204906204932_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202655202688_)) - ((lambda (_L202691_ _L202692_) + _tl204904204937_)) + ((lambda (_L204940_ _L204941_) (let () (declare (not safe)) (gxc#add-module-binding! - _L202692_ + _L204941_ '#t))) - _hd202656202686_ - _hd202653202678_) + _hd204905204935_ + _hd204902204927_) (let () (declare (not safe)) - (_g202645202662_ - _g202646202665_))))) + (_g204894204911_ + _g204895204914_))))) (let () (declare (not safe)) - (_g202645202662_ _g202646202665_))))) + (_g204894204911_ _g204895204914_))))) (let () (declare (not safe)) - (_g202645202662_ _g202646202665_))))) + (_g204894204911_ _g204895204914_))))) (let () (declare (not safe)) - (_g202645202662_ _g202646202665_)))))) + (_g204894204911_ _g204895204914_)))))) (declare (not safe)) - (_g202644202707_ _stx202643_)))) + (_g204893204956_ _stx204892_)))) (define gxc#lift-modules-module% - (lambda (_stx202585_ _modules202586_) - (let* ((_g202588202602_ - (lambda (_g202589202599_) + (lambda (_stx204834_ _modules204835_) + (let* ((_g204837204851_ + (lambda (_g204838204848_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g202589202599_)))) - (_g202587202640_ - (lambda (_g202589202605_) + _g204838204848_)))) + (_g204836204889_ + (lambda (_g204838204854_) (if (let () (declare (not safe)) - (gx#stx-pair? _g202589202605_)) - (let ((_e202594202607_ + (gx#stx-pair? _g204838204854_)) + (let ((_e204843204856_ (let () (declare (not safe)) - (gx#stx-e _g202589202605_)))) - (let ((_hd202593202610_ + (gx#stx-e _g204838204854_)))) + (let ((_hd204842204859_ (let () (declare (not safe)) - (##car _e202594202607_))) - (_tl202592202612_ + (##car _e204843204856_))) + (_tl204841204861_ (let () (declare (not safe)) - (##cdr _e202594202607_)))) + (##cdr _e204843204856_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202592202612_)) - (let ((_e202597202615_ + (gx#stx-pair? _tl204841204861_)) + (let ((_e204846204864_ (let () (declare (not safe)) - (gx#stx-e _tl202592202612_)))) - (let ((_hd202596202618_ + (gx#stx-e _tl204841204861_)))) + (let ((_hd204845204867_ (let () (declare (not safe)) - (##car _e202597202615_))) - (_tl202595202620_ + (##car _e204846204864_))) + (_tl204844204869_ (let () (declare (not safe)) - (##cdr _e202597202615_)))) - ((lambda (_L202623_ _L202624_) - (let ((_ctx202637_ + (##cdr _e204846204864_)))) + ((lambda (_L204872_ _L204873_) + (let ((_ctx204886_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L202624_)))) + _L204873_)))) (set-box! - _modules202586_ - (let ((__tmp210203 - (unbox _modules202586_))) + _modules204835_ + (let ((__tmp212552 + (unbox _modules204835_))) (declare (not safe)) - (cons _ctx202637_ __tmp210203))) - (let ((__tmp210204 + (cons _ctx204886_ __tmp212552))) + (let ((__tmp212553 (lambda () - (let ((__tmp210205 + (let ((__tmp212554 (##structure-ref - _ctx202637_ + _ctx204886_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - __tmp210205 - _modules202586_))))) + __tmp212554 + _modules204835_))))) (declare (not safe)) (call-with-parameters - __tmp210204 + __tmp212553 gx#current-expander-context - _ctx202637_)))) - _tl202595202620_ - _hd202596202618_))) + _ctx204886_)))) + _tl204844204869_ + _hd204845204867_))) (let () (declare (not safe)) - (_g202588202602_ _g202589202605_))))) + (_g204837204851_ _g204838204854_))))) (let () (declare (not safe)) - (_g202588202602_ _g202589202605_)))))) + (_g204837204851_ _g204838204854_)))))) (declare (not safe)) - (_g202587202640_ _stx202585_)))) + (_g204836204889_ _stx204834_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_decls202541202543_ (gxc#current-compile-decls))) - (if _decls202541202543_ - (let ((_decls202546_ _decls202541202543_)) - (let _lp202548_ ((_rest202550_ _decls202546_)) - (let* ((_rest202551202559_ _rest202550_) - (_else202553202567_ (lambda () '#f)) - (_K202555202573_ - (lambda (_decls202570_ _decl202571_) + (let ((_decls204790204792_ (gxc#current-compile-decls))) + (if _decls204790204792_ + (let ((_decls204795_ _decls204790204792_)) + (let _lp204797_ ((_rest204799_ _decls204795_)) + (let* ((_rest204800204808_ _rest204799_) + (_else204802204816_ (lambda () '#f)) + (_K204804204822_ + (lambda (_decls204819_ _decl204820_) (if (let () (declare (not safe)) - (equal? _decl202571_ '(not safe))) + (equal? _decl204820_ '(not safe))) '#t (if (let () (declare (not safe)) - (equal? _decl202571_ '(safe))) + (equal? _decl204820_ '(safe))) '#f (let () (declare (not safe)) - (_lp202548_ _decls202570_))))))) + (_lp204797_ _decls204819_))))))) (if (let () (declare (not safe)) - (##pair? _rest202551202559_)) - (let ((_hd202556202576_ + (##pair? _rest204800204808_)) + (let ((_hd204805204825_ (let () (declare (not safe)) - (##car _rest202551202559_))) - (_tl202557202578_ + (##car _rest204800204808_))) + (_tl204806204827_ (let () (declare (not safe)) - (##cdr _rest202551202559_)))) - (let* ((_decl202581_ _hd202556202576_) - (_decls202583_ _tl202557202578_)) + (##cdr _rest204800204808_)))) + (let* ((_decl204830_ _hd204805204825_) + (_decls204832_ _tl204806204827_)) (declare (not safe)) - (_K202555202573_ _decls202583_ _decl202581_))) + (_K204804204822_ _decls204832_ _decl204830_))) (let () (declare (not safe)) - (_else202553202567_)))))) + (_else204802204816_)))))) '#f)))) (define gxc#add-module-binding! - (lambda (_id202535_ _syntax?202536_) - (let ((_eid202538_ + (lambda (_id204784_ _syntax?204785_) + (let ((_eid204787_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _id202535_)) + (gx#resolve-identifier__0 _id204784_)) '1 gx#binding::t '#f)) - (_ht202539_ + (_ht204788_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid202538_) + (if (interned-symbol? _eid204787_) '#!void - (let ((__tmp210206 - (let ((__tmp210207 + (let ((__tmp212555 + (let ((__tmp212556 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid202538_)))) + _eid204787_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp210207 _syntax?202536_)))) + (gx#make-binding-id__1 __tmp212556 _syntax?204785_)))) (declare (not safe)) - (table-set! _ht202539_ _eid202538_ __tmp210206)))))) + (table-set! _ht204788_ _eid204787_ __tmp212555)))))) (define gxc#runtime-identifier=? - (lambda (_id1202528_ _id2202529_) - (letrec ((_symbol-e202531_ - (lambda (_id202533_) - (if (let () (declare (not safe)) (symbol? _id202533_)) - _id202533_ + (lambda (_id1204777_ _id2204778_) + (letrec ((_symbol-e204780_ + (lambda (_id204782_) + (if (let () (declare (not safe)) (symbol? _id204782_)) + _id204782_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id202533_)))))) - (let ((__tmp210209 + (gxc#generate-runtime-binding-id _id204782_)))))) + (let ((__tmp212558 (let () (declare (not safe)) - (_symbol-e202531_ _id1202528_))) - (__tmp210208 + (_symbol-e204780_ _id1204777_))) + (__tmp212557 (let () (declare (not safe)) - (_symbol-e202531_ _id2202529_)))) + (_symbol-e204780_ _id2204778_)))) (declare (not safe)) - (eq? __tmp210209 __tmp210208))))) + (eq? __tmp212558 __tmp212557))))) (define gxc#generate-runtime-binding-id - (lambda (_id202506_) - (let ((_$e202508_ + (lambda (_id204755_) + (let ((_$e204757_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id202506_ + _id204755_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _id202506_)) + (gx#resolve-identifier__0 _id204755_)) '#f))) - (if _$e202508_ - ((lambda (_bind202511_) - (let ((_eid202513_ - (##structure-ref _bind202511_ '1 gx#binding::t '#f)) - (_ht202514_ + (if _$e204757_ + ((lambda (_bind204760_) + (let ((_eid204762_ + (##structure-ref _bind204760_ '1 gx#binding::t '#f)) + (_ht204763_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid202513_) - _eid202513_ - (let ((_$e202516_ + (if (interned-symbol? _eid204762_) + _eid204762_ + (let ((_$e204765_ (let () (declare (not safe)) - (table-ref _ht202514_ _eid202513_ '#f)))) - (if _$e202516_ - (values _$e202516_) + (table-ref _ht204763_ _eid204762_ '#f)))) + (if _$e204765_ + (values _$e204765_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind202511_ + _bind204760_ 'gx#local-binding::t)) - (let ((_gid202519_ + (let ((_gid204768_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid202513_)))) + _eid204762_)))) (let () (declare (not safe)) (table-set! - _ht202514_ - _eid202513_ - _gid202519_)) - _gid202519_) + _ht204763_ + _eid204762_ + _gid204768_)) + _gid204768_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind202511_ + _bind204760_ 'gx#module-binding::t)) - (let ((_gid202526_ - (let ((_$e202521_ + (let ((_gid204775_ + (let ((_$e204770_ (##structure-ref (##structure-ref - _bind202511_ + _bind204760_ '4 gx#module-binding::t '#f) '6 gx#module-context::t '#f))) - (if _$e202521_ - ((lambda (_ns202524_) + (if _$e204770_ + ((lambda (_ns204773_) (let () (declare (not safe)) (make-symbol__1 - _ns202524_ + _ns204773_ '"#" - _eid202513_))) - _$e202521_) + _eid204762_))) + _$e204770_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid202513_)))))) + _eid204762_)))))) (let () (declare (not safe)) (table-set! - _ht202514_ - _eid202513_ - _gid202526_)) - _gid202526_) + _ht204763_ + _eid204762_ + _gid204775_)) + _gid204775_) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _id202506_ - _eid202513_ - _bind202511_))))))))) - _$e202508_) + _id204755_ + _eid204762_ + _bind204760_))))))))) + _$e204757_) (if (interned-symbol? - (let () (declare (not safe)) (gx#stx-e _id202506_))) - (let () (declare (not safe)) (gx#stx-e _id202506_)) + (let () (declare (not safe)) (gx#stx-e _id204755_))) + (let () (declare (not safe)) (gx#stx-e _id204755_)) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _id202506_))))))) + _id204755_))))))) (define gxc#generate-runtime-binding-id* - (lambda (_id202504_) - (if (let () (declare (not safe)) (gx#identifier? _id202504_)) + (lambda (_id204753_) + (if (let () (declare (not safe)) (gx#identifier? _id204753_)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id202504_)) + (gxc#generate-runtime-binding-id _id204753_)) (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_sym202484_ _quote?202485_) - (let* ((_ht202487_ + (lambda (_sym204733_ _quote?204734_) + (let* ((_ht204736_ (##structure-ref (gxc#current-compile-symbol-table) '1 gxc#symbol-table::t '#f)) - (_$e202489_ + (_$e204738_ (let () (declare (not safe)) - (table-ref _ht202487_ _sym202484_ '#f)))) - (if _$e202489_ - (values _$e202489_) - (let ((_g202492_ - (if _quote?202485_ - (let ((__tmp210210 (gxc#current-compile-timestamp))) + (table-ref _ht204736_ _sym204733_ '#f)))) + (if _$e204738_ + (values _$e204738_) + (let ((_g204741_ + (if _quote?204734_ + (let ((__tmp212559 (gxc#current-compile-timestamp))) (declare (not safe)) (make-symbol__1 '"__" - _sym202484_ + _sym204733_ '"__" - __tmp210210)) + __tmp212559)) (let () (declare (not safe)) - (make-symbol__1 '"_" _sym202484_ '"_"))))) + (make-symbol__1 '"_" _sym204733_ '"_"))))) (let () (declare (not safe)) - (table-set! _ht202487_ _sym202484_ _g202492_)) - _g202492_))))) + (table-set! _ht204736_ _sym204733_ _g204741_)) + _g204741_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_sym202497_) - (let ((_quote?202499_ '#f)) + (lambda (_sym204746_) + (let ((_quote?204748_ '#f)) (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym202497_ - _quote?202499_)))) + _sym204746_ + _quote?204748_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g210212_ - (let ((_g210211_ (let () (declare (not safe)) (##length _g210212_)))) - (cond ((let () (declare (not safe)) (##fx= _g210211_ 1)) - (apply (lambda (_sym202497_) + (lambda _g212561_ + (let ((_g212560_ (let () (declare (not safe)) (##length _g212561_)))) + (cond ((let () (declare (not safe)) (##fx= _g212560_ 1)) + (apply (lambda (_sym204746_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym202497_))) - _g210212_)) - ((let () (declare (not safe)) (##fx= _g210211_ 2)) - (apply (lambda (_sym202501_ _quote?202502_) + _sym204746_))) + _g212561_)) + ((let () (declare (not safe)) (##fx= _g212560_ 2)) + (apply (lambda (_sym204750_ _quote?204751_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym202501_ - _quote?202502_))) - _g210212_)) + _sym204750_ + _quote?204751_))) + _g212561_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g210212_)))))) + _g212561_)))))) (define gxc#generate-runtime-identifier - (lambda (_id202481_) - (let ((__tmp210213 + (lambda (_id204730_) + (let ((__tmp212562 (let () (declare (not safe)) - (gx#core-identifier-key _id202481_)))) + (gx#core-identifier-key _id204730_)))) (declare (not safe)) - (gxc#generate-runtime-identifier-key __tmp210213)))) + (gxc#generate-runtime-identifier-key __tmp212562)))) (define gxc#generate-runtime-identifier-key - (lambda (_key202441_) - (if (interned-symbol? _key202441_) - _key202441_ - (if (uninterned-symbol? _key202441_) + (lambda (_key204690_) + (if (interned-symbol? _key204690_) + _key204690_ + (if (uninterned-symbol? _key204690_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _key202441_)) - (let* ((_key202442202449_ _key202441_) - (_E202444202453_ + (gxc#generate-runtime-gensym-reference__0 _key204690_)) + (let* ((_key204691204698_ _key204690_) + (_E204693204702_ (lambda () - (error '"No clause matching" _key202442202449_))) - (_K202445202469_ - (lambda (_mark202456_ _eid202457_) - (let ((_$e202459_ + (error '"No clause matching" _key204691204698_))) + (_K204694204718_ + (lambda (_mark204705_ _eid204706_) + (let ((_$e204708_ (##structure-ref - _mark202456_ + _mark204705_ '1 gx#expander-mark::t '#f))) - (if _$e202459_ - ((lambda (_ht202462_) - (let ((_$e202464_ + (if _$e204708_ + ((lambda (_ht204711_) + (let ((_$e204713_ (let () (declare (not safe)) (table-ref - _ht202462_ - _eid202457_ + _ht204711_ + _eid204706_ '#f)))) - (if _$e202464_ - ((lambda (_id202467_) - (if (interned-symbol? _id202467_) - _id202467_ + (if _$e204713_ + ((lambda (_id204716_) + (if (interned-symbol? _id204716_) + _id204716_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _id202467_)))) - _$e202464_) + _id204716_)))) + _$e204713_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid202457_))))) - _$e202459_) + _eid204706_))))) + _$e204708_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid202457_))))))) + _eid204706_))))))) (if (let () (declare (not safe)) - (##pair? _key202442202449_)) - (let ((_hd202446202472_ + (##pair? _key204691204698_)) + (let ((_hd204695204721_ (let () (declare (not safe)) - (##car _key202442202449_))) - (_tl202447202474_ + (##car _key204691204698_))) + (_tl204696204723_ (let () (declare (not safe)) - (##cdr _key202442202449_)))) - (let* ((_eid202477_ _hd202446202472_) - (_mark202479_ _tl202447202474_)) + (##cdr _key204691204698_)))) + (let* ((_eid204726_ _hd204695204721_) + (_mark204728_ _tl204696204723_)) (declare (not safe)) - (_K202445202469_ _mark202479_ _eid202477_))) - (let () (declare (not safe)) (_E202444202453_)))))))) + (_K204694204718_ _mark204728_ _eid204726_))) + (let () (declare (not safe)) (_E204693204702_)))))))) (define gxc#generate-runtime-temporary__% - (lambda (_top202428_) - (if _top202428_ - (let ((_ns202430_ + (lambda (_top204677_) + (if _top204677_ + (let ((_ns204679_ (##structure-ref - (let ((__tmp210215 (gx#current-expander-context))) + (let ((__tmp212564 (gx#current-expander-context))) (declare (not safe)) - (gx#core-context-top__1 __tmp210215)) + (gx#core-context-top__1 __tmp212564)) '6 gx#module-context::t '#f)) - (_phi202431_ (gx#current-expander-phi))) - (if _ns202430_ - (if (fxpositive? _phi202431_) - (let ((__tmp210221 (number->string _phi202431_)) - (__tmp210220 (gensym))) + (_phi204680_ (gx#current-expander-phi))) + (if _ns204679_ + (if (fxpositive? _phi204680_) + (let ((__tmp212570 (number->string _phi204680_)) + (__tmp212569 (gensym))) (declare (not safe)) (make-symbol__1 - _ns202430_ + _ns204679_ '"[" - __tmp210221 + __tmp212570 '"]#_" - __tmp210220 + __tmp212569 '"_")) - (let ((__tmp210219 (gensym))) + (let ((__tmp212568 (gensym))) (declare (not safe)) - (make-symbol__1 _ns202430_ '"#_" __tmp210219 '"_"))) - (if (fxpositive? _phi202431_) - (let ((__tmp210218 (number->string _phi202431_)) - (__tmp210217 (gensym))) + (make-symbol__1 _ns204679_ '"#_" __tmp212568 '"_"))) + (if (fxpositive? _phi204680_) + (let ((__tmp212567 (number->string _phi204680_)) + (__tmp212566 (gensym))) (declare (not safe)) (make-symbol__1 '"[" - __tmp210218 + __tmp212567 '"]#_" - __tmp210217 + __tmp212566 '"_")) - (let ((__tmp210216 (gensym))) + (let ((__tmp212565 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp210216 '"_"))))) - (let ((__tmp210214 (gensym))) + (make-symbol__1 '"_" __tmp212565 '"_"))))) + (let ((__tmp212563 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp210214 '"_"))))) + (make-symbol__1 '"_" __tmp212563 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_top202437_ '#f)) + (let ((_top204686_ '#f)) (declare (not safe)) - (gxc#generate-runtime-temporary__% _top202437_)))) + (gxc#generate-runtime-temporary__% _top204686_)))) (define gxc#generate-runtime-temporary - (lambda _g210223_ - (let ((_g210222_ (let () (declare (not safe)) (##length _g210223_)))) - (cond ((let () (declare (not safe)) (##fx= _g210222_ 0)) + (lambda _g212572_ + (let ((_g212571_ (let () (declare (not safe)) (##length _g212572_)))) + (cond ((let () (declare (not safe)) (##fx= _g212571_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - _g210223_)) - ((let () (declare (not safe)) (##fx= _g210222_ 1)) - (apply (lambda (_top202439_) + _g212572_)) + ((let () (declare (not safe)) (##fx= _g212571_ 1)) + (apply (lambda (_top204688_) (let () (declare (not safe)) - (gxc#generate-runtime-temporary__% _top202439_))) - _g210223_)) + (gxc#generate-runtime-temporary__% _top204688_))) + _g212572_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g210223_)))))) - (define gxc#generate-runtime-empty (lambda (_stx202425_) '(begin))) + _g212572_)))))) + (define gxc#generate-runtime-empty (lambda (_stx204674_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_stx202277_) - (letrec ((_simplify202279_ - (lambda (_body202323_) - (let _lp202325_ ((_rest202327_ _body202323_) - (_r202328_ '())) - (let* ((_rest202329202337_ _rest202327_) - (_else202331202345_ - (lambda () (reverse _r202328_))) - (_K202333202413_ - (lambda (_rest202348_ _hd202349_) - (let* ((_hd202350202366_ _hd202349_) - (_else202354202374_ + (lambda (_stx204526_) + (letrec ((_simplify204528_ + (lambda (_body204572_) + (let _lp204574_ ((_rest204576_ _body204572_) + (_r204577_ '())) + (let* ((_rest204578204586_ _rest204576_) + (_else204580204594_ + (lambda () (reverse _r204577_))) + (_K204582204662_ + (lambda (_rest204597_ _hd204598_) + (let* ((_hd204599204615_ _hd204598_) + (_else204603204623_ (lambda () - (let ((__tmp210224 + (let ((__tmp212573 (let () (declare (not safe)) - (cons _hd202349_ - _r202328_)))) + (cons _hd204598_ + _r204577_)))) (declare (not safe)) - (_lp202325_ - _rest202348_ - __tmp210224))))) - (let ((_K202362202403_ - (lambda (_exprs202401_) - (let ((__tmp210225 + (_lp204574_ + _rest204597_ + __tmp212573))))) + (let ((_K204611204652_ + (lambda (_exprs204650_) + (let ((__tmp212574 (let () (declare (not safe)) (foldr1 cons - _rest202348_ - _exprs202401_)))) + _rest204597_ + _exprs204650_)))) (declare (not safe)) - (_lp202325_ - __tmp210225 - _r202328_)))) - (_K202357202387_ + (_lp204574_ + __tmp212574 + _r204577_)))) + (_K204606204636_ (lambda () (if (let () (declare (not safe)) - (null? _rest202348_)) - (let ((__tmp210226 + (null? _rest204597_)) + (let ((__tmp212575 (let () (declare (not safe)) - (cons _hd202349_ - _r202328_)))) + (cons _hd204598_ + _r204577_)))) (declare (not safe)) - (_lp202325_ - _rest202348_ - __tmp210226)) + (_lp204574_ + _rest204597_ + __tmp212575)) (let () (declare (not safe)) - (_lp202325_ - _rest202348_ - _r202328_))))) - (_K202356202379_ + (_lp204574_ + _rest204597_ + _r204577_))))) + (_K204605204628_ (lambda () (if (let () (declare (not safe)) - (null? _rest202348_)) - (let ((__tmp210227 + (null? _rest204597_)) + (let ((__tmp212576 (let () (declare (not safe)) - (cons _hd202349_ - _r202328_)))) + (cons _hd204598_ + _r204577_)))) (declare (not safe)) - (_lp202325_ - _rest202348_ - __tmp210227)) + (_lp204574_ + _rest204597_ + __tmp212576)) (let () (declare (not safe)) - (_lp202325_ - _rest202348_ - _r202328_)))))) - (let ((_try-match202353202382_ + (_lp204574_ + _rest204597_ + _r204577_)))))) + (let ((_try-match204602204631_ (lambda () (if (let () (declare (not safe)) - (symbol? _hd202350202366_)) + (symbol? _hd204599204615_)) (let () (declare (not safe)) - (_K202356202379_)) + (_K204605204628_)) (let () (declare (not safe)) - (_else202354202374_)))))) + (_else204603204623_)))))) (if (let () (declare (not safe)) - (##pair? _hd202350202366_)) - (let ((_tl202364202408_ + (##pair? _hd204599204615_)) + (let ((_tl204613204657_ (let () (declare (not safe)) - (##cdr _hd202350202366_))) - (_hd202363202406_ + (##cdr _hd204599204615_))) + (_hd204612204655_ (let () (declare (not safe)) - (##car _hd202350202366_)))) + (##car _hd204599204615_)))) (if (let () (declare (not safe)) - (##eq? _hd202363202406_ + (##eq? _hd204612204655_ 'begin)) - (let ((_exprs202411_ - _tl202364202408_)) + (let ((_exprs204660_ + _tl204613204657_)) (declare (not safe)) - (_K202362202403_ - _exprs202411_)) + (_K204611204652_ + _exprs204660_)) (if (let () (declare (not safe)) - (##eq? _hd202363202406_ + (##eq? _hd204612204655_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl202364202408_)) - (let ((_tl202361202395_ + (##pair? _tl204613204657_)) + (let ((_tl204610204644_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _tl202364202408_)))) + (##cdr _tl204613204657_)))) (if (let () (declare (not safe)) - (##null? _tl202361202395_)) - (let () (declare (not safe)) (_K202357202387_)) + (##null? _tl204610204644_)) + (let () (declare (not safe)) (_K204606204636_)) (let () (declare (not safe)) - (_try-match202353202382_)))) - (let () (declare (not safe)) (_try-match202353202382_))) - (let () (declare (not safe)) (_try-match202353202382_))))) + (_try-match204602204631_)))) + (let () (declare (not safe)) (_try-match204602204631_))) + (let () (declare (not safe)) (_try-match204602204631_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_try-match202353202382_))))))))) + (_try-match204602204631_))))))))) (if (let () (declare (not safe)) - (##pair? _rest202329202337_)) - (let ((_hd202334202416_ + (##pair? _rest204578204586_)) + (let ((_hd204583204665_ (let () (declare (not safe)) - (##car _rest202329202337_))) - (_tl202335202418_ + (##car _rest204578204586_))) + (_tl204584204667_ (let () (declare (not safe)) - (##cdr _rest202329202337_)))) - (let* ((_hd202421_ _hd202334202416_) - (_rest202423_ _tl202335202418_)) + (##cdr _rest204578204586_)))) + (let* ((_hd204670_ _hd204583204665_) + (_rest204672_ _tl204584204667_)) (declare (not safe)) - (_K202333202413_ _rest202423_ _hd202421_))) + (_K204582204662_ _rest204672_ _hd204670_))) (let () (declare (not safe)) - (_else202331202345_)))))))) - (let* ((_g202281202291_ - (lambda (_g202282202288_) + (_else204580204594_)))))))) + (let* ((_g204530204540_ + (lambda (_g204531204537_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g202282202288_)))) - (_g202280202320_ - (lambda (_g202282202294_) + _g204531204537_)))) + (_g204529204569_ + (lambda (_g204531204543_) (if (let () (declare (not safe)) - (gx#stx-pair? _g202282202294_)) - (let ((_e202286202296_ + (gx#stx-pair? _g204531204543_)) + (let ((_e204535204545_ (let () (declare (not safe)) - (gx#stx-e _g202282202294_)))) - (let ((_hd202285202299_ + (gx#stx-e _g204531204543_)))) + (let ((_hd204534204548_ (let () (declare (not safe)) - (##car _e202286202296_))) - (_tl202284202301_ + (##car _e204535204545_))) + (_tl204533204550_ (let () (declare (not safe)) - (##cdr _e202286202296_)))) - ((lambda (_L202304_) - (let* ((_body202315_ - (map gxc#compile-e _L202304_)) - (_body202317_ + (##cdr _e204535204545_)))) + ((lambda (_L204553_) + (let* ((_body204564_ + (map gxc#compile-e _L204553_)) + (_body204566_ (let () (declare (not safe)) - (_simplify202279_ _body202315_)))) - (if (fx= (length _body202317_) '1) - (car _body202317_) + (_simplify204528_ _body204564_)))) + (if (fx= (length _body204566_) '1) + (car _body204566_) (let () (declare (not safe)) - (cons 'begin _body202317_))))) - _tl202284202301_))) + (cons 'begin _body204566_))))) + _tl204533204550_))) (let () (declare (not safe)) - (_g202281202291_ _g202282202294_)))))) + (_g204530204540_ _g204531204543_)))))) (declare (not safe)) - (_g202280202320_ _stx202277_))))) + (_g204529204569_ _stx204526_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_stx202239_) - (let* ((_g202241202251_ - (lambda (_g202242202248_) + (lambda (_stx204488_) + (let* ((_g204490204500_ + (lambda (_g204491204497_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g202242202248_)))) - (_g202240202274_ - (lambda (_g202242202254_) + _g204491204497_)))) + (_g204489204523_ + (lambda (_g204491204503_) (if (let () (declare (not safe)) - (gx#stx-pair? _g202242202254_)) - (let ((_e202246202256_ + (gx#stx-pair? _g204491204503_)) + (let ((_e204495204505_ (let () (declare (not safe)) - (gx#stx-e _g202242202254_)))) - (let ((_hd202245202259_ + (gx#stx-e _g204491204503_)))) + (let ((_hd204494204508_ (let () (declare (not safe)) - (##car _e202246202256_))) - (_tl202244202261_ + (##car _e204495204505_))) + (_tl204493204510_ (let () (declare (not safe)) - (##cdr _e202246202256_)))) - ((lambda (_L202264_) - (let ((__tmp210228 + (##cdr _e204495204505_)))) + ((lambda (_L204513_) + (let ((__tmp212577 (let () (declare (not safe)) - (gx#syntax->datum _L202264_)))) + (gx#syntax->datum _L204513_)))) (declare (not safe)) - (cons 'begin __tmp210228))) - _tl202244202261_))) + (cons 'begin __tmp212577))) + _tl204493204510_))) (let () (declare (not safe)) - (_g202241202251_ _g202242202254_)))))) + (_g204490204500_ _g204491204503_)))))) (declare (not safe)) - (_g202240202274_ _stx202239_)))) + (_g204489204523_ _stx204488_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_stx202004_) - (let* ((___stx208811208812_ _stx202004_) - (_g202008202060_ + (lambda (_stx204253_) + (let* ((___stx211160211161_ _stx204253_) + (_g204257204309_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx208811208812_))))) - (let ((___kont208813208814_ - (lambda (_L202221_ _L202222_) + ___stx211160211161_))))) + (let ((___kont211162211163_ + (lambda (_L204470_ _L204471_) (let () (declare (not safe)) - (gxc#compile-e__0 _L202221_)))) - (___kont208815208816_ - (lambda (_L202169_ _L202170_ _L202171_) + (gxc#compile-e__0 _L204470_)))) + (___kont211164211165_ + (lambda (_L204418_ _L204419_ _L204420_) (let () (declare (not safe)) - (gxc#compile-e__0 _L202169_)))) - (___kont208819208820_ - (lambda (_L202089_ _L202090_) - (let ((_decls202105_ (map gx#syntax->datum _L202090_))) - (let ((__tmp210231 + (gxc#compile-e__0 _L204418_)))) + (___kont211168211169_ + (lambda (_L204338_ _L204339_) + (let ((_decls204354_ (map gx#syntax->datum _L204339_))) + (let ((__tmp212580 (lambda () - (let ((__tmp210232 - (let ((__tmp210235 + (let ((__tmp212581 + (let ((__tmp212584 (let () (declare (not safe)) - (cons 'declare _decls202105_))) - (__tmp210233 - (let ((__tmp210234 + (cons 'declare _decls204354_))) + (__tmp212582 + (let ((__tmp212583 (let () (declare (not safe)) (gxc#compile-e__0 - _L202089_)))) + _L204338_)))) (declare (not safe)) - (cons __tmp210234 '())))) + (cons __tmp212583 '())))) (declare (not safe)) - (cons __tmp210235 __tmp210233)))) + (cons __tmp212584 __tmp212582)))) (declare (not safe)) - (cons 'begin __tmp210232)))) - (__tmp210229 - (let ((__tmp210230 (gxc#current-compile-decls))) + (cons 'begin __tmp212581)))) + (__tmp212578 + (let ((__tmp212579 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp210230 _decls202105_)))) + (foldr1 cons __tmp212579 _decls204354_)))) (declare (not safe)) (call-with-parameters - __tmp210231 + __tmp212580 gxc#current-compile-decls - __tmp210229)))))) - (let* ((___match208866208867_ - (lambda (_e202026202113_ - _hd202025202116_ - _tl202024202118_ - _e202029202121_ - _hd202028202124_ - _tl202027202126_ - _e202032202129_ - _hd202031202132_ - _tl202030202134_ - ___splice208817208818_ - _target202033202137_ - _tl202035202139_) - (letrec ((_loop202036202142_ - (lambda (_hd202034202145_ - _param202040202147_) + __tmp212578)))))) + (let* ((___match211215211216_ + (lambda (_e204275204362_ + _hd204274204365_ + _tl204273204367_ + _e204278204370_ + _hd204277204373_ + _tl204276204375_ + _e204281204378_ + _hd204280204381_ + _tl204279204383_ + ___splice211166211167_ + _target204282204386_ + _tl204284204388_) + (letrec ((_loop204285204391_ + (lambda (_hd204283204394_ + _param204289204396_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd202034202145_)) - (let ((_e202037202150_ + (gx#stx-pair? _hd204283204394_)) + (let ((_e204286204399_ (let () (declare (not safe)) - (gx#stx-e _hd202034202145_)))) - (let ((_lp-tl202039202155_ + (gx#stx-e _hd204283204394_)))) + (let ((_lp-tl204288204404_ (let () (declare (not safe)) - (##cdr _e202037202150_))) - (_lp-hd202038202153_ + (##cdr _e204286204399_))) + (_lp-hd204287204402_ (let () (declare (not safe)) - (##car _e202037202150_)))) - (let ((__tmp210237 + (##car _e204286204399_)))) + (let ((__tmp212586 (let () (declare (not safe)) - (cons _lp-hd202038202153_ - _param202040202147_)))) + (cons _lp-hd204287204402_ + _param204289204396_)))) (declare (not safe)) - (_loop202036202142_ - _lp-tl202039202155_ - __tmp210237)))) - (let ((_param202041202158_ - (reverse _param202040202147_))) + (_loop204285204391_ + _lp-tl204288204404_ + __tmp212586)))) + (let ((_param204290204407_ + (reverse _param204289204396_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl202027202126_)) - (let ((_e202044202161_ + _tl204276204375_)) + (let ((_e204293204410_ (let () (declare (not safe)) (gx#stx-e - _tl202027202126_)))) - (let ((_tl202042202166_ + _tl204276204375_)))) + (let ((_tl204291204415_ (let () (declare (not safe)) - (##cdr _e202044202161_))) - (_hd202043202164_ + (##cdr _e204293204410_))) + (_hd204292204413_ (let () (declare (not safe)) - (##car _e202044202161_)))) + (##car _e204293204410_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202042202166_)) - (let ((_L202169_ - _hd202043202164_) - (_L202170_ - _param202041202158_) - (_L202171_ - _hd202031202132_)) + _tl204291204415_)) + (let ((_L204418_ + _hd204292204413_) + (_L204419_ + _param204290204407_) + (_L204420_ + _hd204280204381_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L202171_)) - (let ((__tmp210236 + (gx#identifier? _L204420_)) + (let ((__tmp212585 (memq (let () (declare (not safe)) - (gx#stx-e _L202171_)) + (gx#stx-e _L204420_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp210236))) - (___kont208815208816_ _L202169_ _L202170_ _L202171_) - (___kont208819208820_ _hd202043202164_ _hd202028202124_))) - (let () (declare (not safe)) (_g202008202060_))))) + (not __tmp212585))) + (___kont211164211165_ _L204418_ _L204419_ _L204420_) + (___kont211168211169_ _hd204292204413_ _hd204277204373_))) + (let () (declare (not safe)) (_g204257204309_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g202008202060_)))))))) + (_g204257204309_)))))))) (let () (declare (not safe)) - (_loop202036202142_ _target202033202137_ '()))))) - (___match208840208841_ - (lambda (_e202014202197_ - _hd202013202200_ - _tl202012202202_ - _e202017202205_ - _hd202016202208_ - _tl202015202210_ - _e202020202213_ - _hd202019202216_ - _tl202018202218_) - (let ((_L202221_ _hd202019202216_) - (_L202222_ _hd202016202208_)) + (_loop204285204391_ _target204282204386_ '()))))) + (___match211189211190_ + (lambda (_e204263204446_ + _hd204262204449_ + _tl204261204451_ + _e204266204454_ + _hd204265204457_ + _tl204264204459_ + _e204269204462_ + _hd204268204465_ + _tl204267204467_) + (let ((_L204470_ _hd204268204465_) + (_L204471_ _hd204265204457_)) (if (let () (declare (not safe)) - (gx#identifier? _L202222_)) - (___kont208813208814_ _L202221_ _L202222_) + (gx#identifier? _L204471_)) + (___kont211162211163_ _L204470_ _L204471_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd202016202208_)) - (let ((_e202032202129_ + (gx#stx-pair? _hd204265204457_)) + (let ((_e204281204378_ (let () (declare (not safe)) - (gx#stx-e _hd202016202208_)))) - (let ((_tl202030202134_ + (gx#stx-e _hd204265204457_)))) + (let ((_tl204279204383_ (let () (declare (not safe)) - (##cdr _e202032202129_))) - (_hd202031202132_ + (##cdr _e204281204378_))) + (_hd204280204381_ (let () (declare (not safe)) - (##car _e202032202129_)))) + (##car _e204281204378_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl202030202134_)) - (let ((___splice208817208818_ + _tl204279204383_)) + (let ((___splice211166211167_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl202030202134_ + _tl204279204383_ '0)))) - (let ((_tl202035202139_ + (let ((_tl204284204388_ (let () (declare (not safe)) (##vector-ref - ___splice208817208818_ + ___splice211166211167_ '1))) - (_target202033202137_ + (_target204282204386_ (let () (declare (not safe)) (##vector-ref - ___splice208817208818_ + ___splice211166211167_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202035202139_)) - (___match208866208867_ - _e202014202197_ - _hd202013202200_ - _tl202012202202_ - _e202017202205_ - _hd202016202208_ - _tl202015202210_ - _e202032202129_ - _hd202031202132_ - _tl202030202134_ - ___splice208817208818_ - _target202033202137_ - _tl202035202139_) - (___kont208819208820_ - _hd202019202216_ - _hd202016202208_)))) - (___kont208819208820_ - _hd202019202216_ - _hd202016202208_)))) - (___kont208819208820_ - _hd202019202216_ - _hd202016202208_))))))) + _tl204284204388_)) + (___match211215211216_ + _e204263204446_ + _hd204262204449_ + _tl204261204451_ + _e204266204454_ + _hd204265204457_ + _tl204264204459_ + _e204281204378_ + _hd204280204381_ + _tl204279204383_ + ___splice211166211167_ + _target204282204386_ + _tl204284204388_) + (___kont211168211169_ + _hd204268204465_ + _hd204265204457_)))) + (___kont211168211169_ + _hd204268204465_ + _hd204265204457_)))) + (___kont211168211169_ + _hd204268204465_ + _hd204265204457_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx208811208812_)) - (let ((_e202014202197_ + (gx#stx-pair? ___stx211160211161_)) + (let ((_e204263204446_ (let () (declare (not safe)) - (gx#stx-e ___stx208811208812_)))) - (let ((_tl202012202202_ + (gx#stx-e ___stx211160211161_)))) + (let ((_tl204261204451_ (let () (declare (not safe)) - (##cdr _e202014202197_))) - (_hd202013202200_ + (##cdr _e204263204446_))) + (_hd204262204449_ (let () (declare (not safe)) - (##car _e202014202197_)))) + (##car _e204263204446_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202012202202_)) - (let ((_e202017202205_ + (gx#stx-pair? _tl204261204451_)) + (let ((_e204266204454_ (let () (declare (not safe)) - (gx#stx-e _tl202012202202_)))) - (let ((_tl202015202210_ + (gx#stx-e _tl204261204451_)))) + (let ((_tl204264204459_ (let () (declare (not safe)) - (##cdr _e202017202205_))) - (_hd202016202208_ + (##cdr _e204266204454_))) + (_hd204265204457_ (let () (declare (not safe)) - (##car _e202017202205_)))) + (##car _e204266204454_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202015202210_)) - (let ((_e202020202213_ + (gx#stx-pair? _tl204264204459_)) + (let ((_e204269204462_ (let () (declare (not safe)) - (gx#stx-e _tl202015202210_)))) - (let ((_tl202018202218_ + (gx#stx-e _tl204264204459_)))) + (let ((_tl204267204467_ (let () (declare (not safe)) - (##cdr _e202020202213_))) - (_hd202019202216_ + (##cdr _e204269204462_))) + (_hd204268204465_ (let () (declare (not safe)) - (##car _e202020202213_)))) + (##car _e204269204462_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202018202218_)) - (___match208840208841_ - _e202014202197_ - _hd202013202200_ - _tl202012202202_ - _e202017202205_ - _hd202016202208_ - _tl202015202210_ - _e202020202213_ - _hd202019202216_ - _tl202018202218_) + (gx#stx-null? _tl204267204467_)) + (___match211189211190_ + _e204263204446_ + _hd204262204449_ + _tl204261204451_ + _e204266204454_ + _hd204265204457_ + _tl204264204459_ + _e204269204462_ + _hd204268204465_ + _tl204267204467_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd202016202208_)) - (let ((_e202032202129_ + _hd204265204457_)) + (let ((_e204281204378_ (let () (declare (not safe)) (gx#stx-e - _hd202016202208_)))) - (let ((_tl202030202134_ + _hd204265204457_)))) + (let ((_tl204279204383_ (let () (declare (not safe)) - (##cdr _e202032202129_))) - (_hd202031202132_ + (##cdr _e204281204378_))) + (_hd204280204381_ (let () (declare (not safe)) - (##car _e202032202129_)))) + (##car _e204281204378_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl202030202134_)) - (let ((___splice208817208818_ + _tl204279204383_)) + (let ((___splice211166211167_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl202030202134_ '0)))) - (let ((_tl202035202139_ + (gx#syntax-split-splice _tl204279204383_ '0)))) + (let ((_tl204284204388_ (let () (declare (not safe)) - (##vector-ref ___splice208817208818_ '1))) - (_target202033202137_ + (##vector-ref ___splice211166211167_ '1))) + (_target204282204386_ (let () (declare (not safe)) - (##vector-ref ___splice208817208818_ '0)))) + (##vector-ref ___splice211166211167_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202035202139_)) - (___match208866208867_ - _e202014202197_ - _hd202013202200_ - _tl202012202202_ - _e202017202205_ - _hd202016202208_ - _tl202015202210_ - _e202032202129_ - _hd202031202132_ - _tl202030202134_ - ___splice208817208818_ - _target202033202137_ - _tl202035202139_) - (let () (declare (not safe)) (_g202008202060_))))) - (let () (declare (not safe)) (_g202008202060_))))) + (gx#stx-null? _tl204284204388_)) + (___match211215211216_ + _e204263204446_ + _hd204262204449_ + _tl204261204451_ + _e204266204454_ + _hd204265204457_ + _tl204264204459_ + _e204281204378_ + _hd204280204381_ + _tl204279204383_ + ___splice211166211167_ + _target204282204386_ + _tl204284204388_) + (let () (declare (not safe)) (_g204257204309_))))) + (let () (declare (not safe)) (_g204257204309_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g202008202060_)))))) + (_g204257204309_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd202016202208_)) - (let ((_e202032202129_ + (gx#stx-pair? _hd204265204457_)) + (let ((_e204281204378_ (let () (declare (not safe)) - (gx#stx-e _hd202016202208_)))) - (let ((_tl202030202134_ + (gx#stx-e _hd204265204457_)))) + (let ((_tl204279204383_ (let () (declare (not safe)) - (##cdr _e202032202129_))) - (_hd202031202132_ + (##cdr _e204281204378_))) + (_hd204280204381_ (let () (declare (not safe)) - (##car _e202032202129_)))) + (##car _e204281204378_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl202030202134_)) - (let ((___splice208817208818_ + _tl204279204383_)) + (let ((___splice211166211167_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl202030202134_ + _tl204279204383_ '0)))) - (let ((_tl202035202139_ + (let ((_tl204284204388_ (let () (declare (not safe)) (##vector-ref - ___splice208817208818_ + ___splice211166211167_ '1))) - (_target202033202137_ + (_target204282204386_ (let () (declare (not safe)) (##vector-ref - ___splice208817208818_ + ___splice211166211167_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202035202139_)) - (___match208866208867_ - _e202014202197_ - _hd202013202200_ - _tl202012202202_ - _e202017202205_ - _hd202016202208_ - _tl202015202210_ - _e202032202129_ - _hd202031202132_ - _tl202030202134_ - ___splice208817208818_ - _target202033202137_ - _tl202035202139_) + _tl204284204388_)) + (___match211215211216_ + _e204263204446_ + _hd204262204449_ + _tl204261204451_ + _e204266204454_ + _hd204265204457_ + _tl204264204459_ + _e204281204378_ + _hd204280204381_ + _tl204279204383_ + ___splice211166211167_ + _target204282204386_ + _tl204284204388_) (let () (declare (not safe)) - (_g202008202060_))))) + (_g204257204309_))))) (let () (declare (not safe)) - (_g202008202060_))))) + (_g204257204309_))))) (let () (declare (not safe)) - (_g202008202060_)))))) - (let () (declare (not safe)) (_g202008202060_))))) - (let () (declare (not safe)) (_g202008202060_)))))))) + (_g204257204309_)))))) + (let () (declare (not safe)) (_g204257204309_))))) + (let () (declare (not safe)) (_g204257204309_)))))))) (define gxc#generate-runtime-declare% - (lambda (_stx201964_) - (let* ((_g201966201976_ - (lambda (_g201967201973_) + (lambda (_stx204213_) + (let* ((_g204215204225_ + (lambda (_g204216204222_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g201967201973_)))) - (_g201965202001_ - (lambda (_g201967201979_) + _g204216204222_)))) + (_g204214204250_ + (lambda (_g204216204228_) (if (let () (declare (not safe)) - (gx#stx-pair? _g201967201979_)) - (let ((_e201971201981_ + (gx#stx-pair? _g204216204228_)) + (let ((_e204220204230_ (let () (declare (not safe)) - (gx#stx-e _g201967201979_)))) - (let ((_hd201970201984_ + (gx#stx-e _g204216204228_)))) + (let ((_hd204219204233_ (let () (declare (not safe)) - (##car _e201971201981_))) - (_tl201969201986_ + (##car _e204220204230_))) + (_tl204218204235_ (let () (declare (not safe)) - (##cdr _e201971201981_)))) - ((lambda (_L201989_) - (let ((_decls201999_ - (map gx#syntax->datum _L201989_))) + (##cdr _e204220204230_)))) + ((lambda (_L204238_) + (let ((_decls204248_ + (map gx#syntax->datum _L204238_))) (gxc#current-compile-decls - (let ((__tmp210238 + (let ((__tmp212587 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp210238 _decls201999_))) + (foldr1 cons __tmp212587 _decls204248_))) (let () (declare (not safe)) - (cons 'declare _decls201999_)))) - _tl201969201986_))) + (cons 'declare _decls204248_)))) + _tl204218204235_))) (let () (declare (not safe)) - (_g201966201976_ _g201967201979_)))))) + (_g204215204225_ _g204216204228_)))))) (declare (not safe)) - (_g201965202001_ _stx201964_)))) + (_g204214204250_ _stx204213_)))) (define gxc#generate-runtime-define-values% - (lambda (_stx201711_) - (let* ((_g201713201730_ - (lambda (_g201714201727_) + (lambda (_stx203960_) + (let* ((_g203962203979_ + (lambda (_g203963203976_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g201714201727_)))) - (_g201712201961_ - (lambda (_g201714201733_) + _g203963203976_)))) + (_g203961204210_ + (lambda (_g203963203982_) (if (let () (declare (not safe)) - (gx#stx-pair? _g201714201733_)) - (let ((_e201719201735_ + (gx#stx-pair? _g203963203982_)) + (let ((_e203968203984_ (let () (declare (not safe)) - (gx#stx-e _g201714201733_)))) - (let ((_hd201718201738_ + (gx#stx-e _g203963203982_)))) + (let ((_hd203967203987_ (let () (declare (not safe)) - (##car _e201719201735_))) - (_tl201717201740_ + (##car _e203968203984_))) + (_tl203966203989_ (let () (declare (not safe)) - (##cdr _e201719201735_)))) + (##cdr _e203968203984_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201717201740_)) - (let ((_e201722201743_ + (gx#stx-pair? _tl203966203989_)) + (let ((_e203971203992_ (let () (declare (not safe)) - (gx#stx-e _tl201717201740_)))) - (let ((_hd201721201746_ + (gx#stx-e _tl203966203989_)))) + (let ((_hd203970203995_ (let () (declare (not safe)) - (##car _e201722201743_))) - (_tl201720201748_ + (##car _e203971203992_))) + (_tl203969203997_ (let () (declare (not safe)) - (##cdr _e201722201743_)))) + (##cdr _e203971203992_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201720201748_)) - (let ((_e201725201751_ + (gx#stx-pair? _tl203969203997_)) + (let ((_e203974204000_ (let () (declare (not safe)) - (gx#stx-e _tl201720201748_)))) - (let ((_hd201724201754_ + (gx#stx-e _tl203969203997_)))) + (let ((_hd203973204003_ (let () (declare (not safe)) - (##car _e201725201751_))) - (_tl201723201756_ + (##car _e203974204000_))) + (_tl203972204005_ (let () (declare (not safe)) - (##cdr _e201725201751_)))) + (##cdr _e203974204000_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl201723201756_)) - ((lambda (_L201759_ _L201760_) - (let* ((___stx208919208920_ - _L201760_) - (_g201777201791_ + _tl203972204005_)) + ((lambda (_L204008_ _L204009_) + (let* ((___stx211268211269_ + _L204009_) + (_g204026204040_ (lambda () (let () (declare @@ -4641,10605 +4641,10605 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx208919208920_))))) + ___stx211268211269_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___kont208921208922_ + (let ((___kont211270211271_ (lambda () (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L201759_)))) - (___kont208923208924_ - (lambda (_L201923_) - (let ((_eid201932_ + (gxc#compile-e__0 _L204008_)))) + (___kont211272211273_ + (lambda (_L204172_) + (let ((_eid204181_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L201923_)))) - (let ((_lambda-expr201933201935_ + (gxc#generate-runtime-binding-id _L204172_)))) + (let ((_lambda-expr204182204184_ (let () (declare (not safe)) (gxc#apply-find-lambda-expression - _L201759_)))) - (if _lambda-expr201933201935_ - (let* ((_lambda-expr201938_ - _lambda-expr201933201935_) - (__tmp210239 + _L204008_)))) + (if _lambda-expr204182204184_ + (let* ((_lambda-expr204187_ + _lambda-expr204182204184_) + (__tmp212588 (gxc#current-compile-runtime-names))) (declare (not safe)) (table-set! - __tmp210239 - _lambda-expr201938_ - _eid201932_)) + __tmp212588 + _lambda-expr204187_ + _eid204181_)) '#f)) - (let ((__tmp210240 - (let ((__tmp210241 - (let ((__tmp210242 + (let ((__tmp212589 + (let ((__tmp212590 + (let ((__tmp212591 (let () (declare (not safe)) - (gxc#compile-e__0 _L201759_)))) + (gxc#compile-e__0 _L204008_)))) (declare (not safe)) - (cons __tmp210242 '())))) + (cons __tmp212591 '())))) (declare (not safe)) - (cons _eid201932_ __tmp210241)))) + (cons _eid204181_ __tmp212590)))) (declare (not safe)) - (cons 'define __tmp210240))))) - (___kont208925208926_ + (cons 'define __tmp212589))))) + (___kont211274211275_ (lambda () - (let* ((_tmp201798_ + (let* ((_tmp204047_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_body201907_ - (let _lp201800_ ((_rest201802_ _L201760_) - (_k201803_ '0) - (_r201804_ '())) - (let* ((___stx208889208890_ _rest201802_) - (_g201809201826_ + (_body204156_ + (let _lp204049_ ((_rest204051_ _L204009_) + (_k204052_ '0) + (_r204053_ '())) + (let* ((___stx211238211239_ _rest204051_) + (_g204058204075_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx208889208890_))))) - (let ((___kont208891208892_ - (lambda (_L201894_) - (let ((__tmp210243 + ___stx211238211239_))))) + (let ((___kont211240211241_ + (lambda (_L204143_) + (let ((__tmp212592 (let () (declare (not safe)) - (fx+ _k201803_ '1)))) + (fx+ _k204052_ '1)))) (declare (not safe)) - (_lp201800_ - _L201894_ - __tmp210243 - _r201804_)))) - (___kont208893208894_ - (lambda (_L201867_ _L201868_) - (let ((__tmp210250 + (_lp204049_ + _L204143_ + __tmp212592 + _r204053_)))) + (___kont211242211243_ + (lambda (_L204116_ _L204117_) + (let ((__tmp212599 (let () (declare (not safe)) - (fx+ _k201803_ '1))) - (__tmp210244 - (let ((__tmp210245 - (let ((__tmp210246 - (let ((__tmp210249 + (fx+ _k204052_ '1))) + (__tmp212593 + (let ((__tmp212594 + (let ((__tmp212595 + (let ((__tmp212598 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L201868_))) - (__tmp210247 - (let ((__tmp210248 + (gxc#generate-runtime-binding-id _L204117_))) + (__tmp212596 + (let ((__tmp212597 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _tmp201798_ - _k201803_ - _L201867_)))) + _tmp204047_ + _k204052_ + _L204116_)))) (declare (not safe)) - (cons __tmp210248 '())))) + (cons __tmp212597 '())))) (declare (not safe)) - (cons __tmp210249 __tmp210247)))) + (cons __tmp212598 __tmp212596)))) (declare (not safe)) - (cons 'define __tmp210246)))) + (cons 'define __tmp212595)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210245 - _r201804_)))) + (cons __tmp212594 + _r204053_)))) (declare (not safe)) - (_lp201800_ - _L201867_ - __tmp210250 - __tmp210244)))) - (___kont208895208896_ - (lambda (_L201838_) - (let ((__tmp210251 - (let ((__tmp210252 - (let ((__tmp210253 - (let ((__tmp210256 + (_lp204049_ + _L204116_ + __tmp212599 + __tmp212593)))) + (___kont211244211245_ + (lambda (_L204087_) + (let ((__tmp212600 + (let ((__tmp212601 + (let ((__tmp212602 + (let ((__tmp212605 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L201838_))) - (__tmp210254 - (let ((__tmp210255 + (gxc#generate-runtime-binding-id _L204087_))) + (__tmp212603 + (let ((__tmp212604 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _tmp201798_ - _k201803_)))) + _tmp204047_ + _k204052_)))) (declare (not safe)) - (cons __tmp210255 '())))) + (cons __tmp212604 '())))) (declare (not safe)) - (cons __tmp210256 __tmp210254)))) + (cons __tmp212605 __tmp212603)))) (declare (not safe)) - (cons 'define __tmp210253)))) + (cons 'define __tmp212602)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210252 '())))) + (cons __tmp212601 '())))) (declare (not safe)) (foldl1 cons - __tmp210251 - _r201804_)))) - (___kont208897208898_ - (lambda () (reverse _r201804_)))) - (let ((_g201807201854_ + __tmp212600 + _r204053_)))) + (___kont211246211247_ + (lambda () (reverse _r204053_)))) + (let ((_g204056204103_ (lambda () - (let ((_L201838_ - ___stx208889208890_)) + (let ((_L204087_ + ___stx211238211239_)) (if (let () (declare (not safe)) (gx#identifier? - _L201838_)) - (___kont208895208896_ - _L201838_) - (___kont208897208898_)))))) + _L204087_)) + (___kont211244211245_ + _L204087_) + (___kont211246211247_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx208889208890_)) - (let ((_e201814201883_ + (gx#stx-pair? ___stx211238211239_)) + (let ((_e204063204132_ (let () (declare (not safe)) (gx#stx-e - ___stx208889208890_)))) - (let ((_tl201812201888_ + ___stx211238211239_)))) + (let ((_tl204061204137_ (let () (declare (not safe)) - (##cdr _e201814201883_))) - (_hd201813201886_ + (##cdr _e204063204132_))) + (_hd204062204135_ (let () (declare (not safe)) - (##car _e201814201883_)))) + (##car _e204063204132_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd201813201886_)) - (let ((_e201815201891_ + _hd204062204135_)) + (let ((_e204064204140_ (let () (declare (not safe)) (gx#stx-e - _hd201813201886_)))) + _hd204062204135_)))) (if (let () (declare (not safe)) - (equal? _e201815201891_ + (equal? _e204064204140_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f)) - (___kont208891208892_ _tl201812201888_) - (___kont208893208894_ _tl201812201888_ _hd201813201886_))) + (___kont211240211241_ _tl204061204137_) + (___kont211242211243_ _tl204061204137_ _hd204062204135_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont208893208894_ - _tl201812201888_ - _hd201813201886_)))) + (___kont211242211243_ + _tl204061204137_ + _hd204062204135_)))) (let () (declare (not safe)) - (_g201807201854_))))))))) - (let ((__tmp210257 - (let ((__tmp210260 - (let ((__tmp210261 - (let ((__tmp210262 - (let ((__tmp210263 + (_g204056204103_))))))))) + (let ((__tmp212606 + (let ((__tmp212609 + (let ((__tmp212610 + (let ((__tmp212611 + (let ((__tmp212612 (let () (declare (not safe)) (gxc#compile-e__0 - _L201759_)))) + _L204008_)))) (declare (not safe)) - (cons __tmp210263 '())))) + (cons __tmp212612 '())))) (declare (not safe)) - (cons _tmp201798_ - __tmp210262)))) + (cons _tmp204047_ + __tmp212611)))) (declare (not safe)) - (cons 'define __tmp210261))) - (__tmp210258 - (let ((__tmp210259 + (cons 'define __tmp212610))) + (__tmp212607 + (let ((__tmp212608 (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp201798_ - _L201760_ - _L201759_)))) + _tmp204047_ + _L204009_ + _L204008_)))) (declare (not safe)) - (cons __tmp210259 _body201907_)))) + (cons __tmp212608 _body204156_)))) (declare (not safe)) - (cons __tmp210260 __tmp210258)))) + (cons __tmp212609 __tmp212607)))) (declare (not safe)) - (cons 'begin __tmp210257)))))) + (cons 'begin __tmp212606)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx208919208920_)) - (let ((_e201781201945_ + (gx#stx-pair? ___stx211268211269_)) + (let ((_e204030204194_ (let () (declare (not safe)) - (gx#stx-e ___stx208919208920_)))) - (let ((_tl201779201950_ + (gx#stx-e ___stx211268211269_)))) + (let ((_tl204028204199_ (let () (declare (not safe)) - (##cdr _e201781201945_))) - (_hd201780201948_ + (##cdr _e204030204194_))) + (_hd204029204197_ (let () (declare (not safe)) - (##car _e201781201945_)))) + (##car _e204030204194_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd201780201948_)) - (let ((_e201782201953_ + (gx#stx-datum? _hd204029204197_)) + (let ((_e204031204202_ (let () (declare (not safe)) - (gx#stx-e _hd201780201948_)))) + (gx#stx-e _hd204029204197_)))) (if (let () (declare (not safe)) - (equal? _e201782201953_ '#f)) + (equal? _e204031204202_ '#f)) (if (let () (declare (not safe)) - (gx#stx-null? _tl201779201950_)) - (___kont208921208922_) - (___kont208925208926_)) + (gx#stx-null? _tl204028204199_)) + (___kont211270211271_) + (___kont211274211275_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl201779201950_)) - (___kont208923208924_ _hd201780201948_) - (___kont208925208926_)))) + (gx#stx-null? _tl204028204199_)) + (___kont211272211273_ _hd204029204197_) + (___kont211274211275_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201779201950_)) - (___kont208923208924_ _hd201780201948_) - (___kont208925208926_))))) - (___kont208925208926_))))) + (gx#stx-null? _tl204028204199_)) + (___kont211272211273_ _hd204029204197_) + (___kont211274211275_))))) + (___kont211274211275_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd201724201754_ - _hd201721201746_) + _hd203973204003_ + _hd203970203995_) (let () (declare (not safe)) - (_g201713201730_ - _g201714201733_))))) + (_g203962203979_ + _g203963203982_))))) (let () (declare (not safe)) - (_g201713201730_ _g201714201733_))))) + (_g203962203979_ _g203963203982_))))) (let () (declare (not safe)) - (_g201713201730_ _g201714201733_))))) + (_g203962203979_ _g203963203982_))))) (let () (declare (not safe)) - (_g201713201730_ _g201714201733_)))))) + (_g203962203979_ _g203963203982_)))))) (declare (not safe)) - (_g201712201961_ _stx201711_)))) + (_g203961204210_ _stx203960_)))) (define gxc#generate-runtime-check-values - (lambda (_vals201687_ _hd201688_ _expr201689_) - (let ((_$e201691_ + (lambda (_vals203936_ _hd203937_ _expr203938_) + (let ((_$e203940_ (let () (declare (not safe)) - (gxc#apply-count-values _expr201689_)))) - (if _$e201691_ - ((lambda (_count201694_) - (let ((_len201696_ + (gxc#apply-count-values _expr203938_)))) + (if _$e203940_ + ((lambda (_count203943_) + (let ((_len203945_ (let () (declare (not safe)) - (gx#stx-length _hd201688_))) - (_cmp201697_ + (gx#stx-length _hd203937_))) + (_cmp203946_ (if (let () (declare (not safe)) - (gx#stx-list? _hd201688_)) + (gx#stx-list? _hd203937_)) fx= fx>=))) - (if (or (fx= _len201696_ '0) - (_cmp201697_ _count201694_ _len201696_)) + (if (or (fx= _len203945_ '0) + (_cmp203946_ _count203943_ _len203945_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _expr201689_ - _hd201688_))))) - _$e201691_) - (let* ((_len201702_ + _expr203938_ + _hd203937_))))) + _$e203940_) + (let* ((_len203951_ (let () (declare (not safe)) - (gx#stx-length _hd201688_))) - (_cmp201704_ + (gx#stx-length _hd203937_))) + (_cmp203953_ (if (let () (declare (not safe)) - (gx#stx-list? _hd201688_)) + (gx#stx-list? _hd203937_)) '##fx= '##fx>=)) - (_errmsg201706_ + (_errmsg203955_ (string-append (if (let () (declare (not safe)) - (gx#stx-list? _hd201688_)) + (gx#stx-list? _hd203937_)) '"Context expects " '"Context expects at least ") - (number->string _len201702_) + (number->string _len203951_) '" values")) - (_count201708_ + (_count203957_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) - (if (and (let ((__tmp210287 + (if (and (let ((__tmp212636 (let () (declare (not safe)) - (gx#stx-list? _hd201688_)))) + (gx#stx-list? _hd203937_)))) (declare (not safe)) - (not __tmp210287)) - (fx= _len201702_ '0)) + (not __tmp212636)) + (fx= _len203951_ '0)) '#!void - (let ((__tmp210264 - (let ((__tmp210283 - (let ((__tmp210284 - (let ((__tmp210285 - (let ((__tmp210286 + (let ((__tmp212613 + (let ((__tmp212632 + (let ((__tmp212633 + (let ((__tmp212634 + (let ((__tmp212635 (let () (declare (not safe)) (gxc#generate-runtime-values-count - _vals201687_)))) + _vals203936_)))) (declare (not safe)) - (cons __tmp210286 '())))) + (cons __tmp212635 '())))) (declare (not safe)) - (cons _count201708_ - __tmp210285)))) + (cons _count203957_ + __tmp212634)))) (declare (not safe)) - (cons __tmp210284 '()))) - (__tmp210265 - (let ((__tmp210266 - (let ((__tmp210267 - (let ((__tmp210272 - (let ((__tmp210273 - (let ((__tmp210274 + (cons __tmp212633 '()))) + (__tmp212614 + (let ((__tmp212615 + (let ((__tmp212616 + (let ((__tmp212621 + (let ((__tmp212622 + (let ((__tmp212623 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp210281 - (let ((__tmp210282 + (let ((__tmp212630 + (let ((__tmp212631 (let () (declare (not safe)) - (cons _len201702_ '())))) + (cons _len203951_ '())))) (declare (not safe)) - (cons _count201708_ __tmp210282)))) + (cons _count203957_ __tmp212631)))) (declare (not safe)) - (cons _cmp201704_ __tmp210281)) - (let ((__tmp210275 - (let ((__tmp210276 - (let ((__tmp210277 - (let ((__tmp210278 - (let ((__tmp210279 + (cons _cmp203953_ __tmp212630)) + (let ((__tmp212624 + (let ((__tmp212625 + (let ((__tmp212626 + (let ((__tmp212627 + (let ((__tmp212628 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210280 + (let ((__tmp212629 (let () (declare (not safe)) - (cons _len201702_ '())))) + (cons _len203951_ '())))) (declare (not safe)) - (cons _count201708_ __tmp210280)))) + (cons _count203957_ __tmp212629)))) (declare (not safe)) - (cons _cmp201704_ __tmp210279)))) + (cons _cmp203953_ __tmp212628)))) (declare (not safe)) - (cons __tmp210278 '())))) + (cons __tmp212627 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp210277)))) + __tmp212626)))) (declare (not safe)) - (cons '() __tmp210276)))) + (cons '() __tmp212625)))) (declare (not safe)) - (cons 'let __tmp210275))))) + (cons 'let __tmp212624))))) (declare (not safe)) - (cons __tmp210274 '())))) + (cons __tmp212623 '())))) (declare (not safe)) - (cons 'not __tmp210273))) - (__tmp210268 - (let ((__tmp210269 - (let ((__tmp210270 - (let ((__tmp210271 + (cons 'not __tmp212622))) + (__tmp212617 + (let ((__tmp212618 + (let ((__tmp212619 + (let ((__tmp212620 (let () (declare (not safe)) - (cons _count201708_ '())))) + (cons _count203957_ '())))) (declare (not safe)) - (cons _errmsg201706_ __tmp210271)))) + (cons _errmsg203955_ __tmp212620)))) (declare (not safe)) - (cons 'error __tmp210270)))) + (cons 'error __tmp212619)))) (declare (not safe)) - (cons __tmp210269 '())))) + (cons __tmp212618 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210272 - __tmp210268)))) + (cons __tmp212621 + __tmp212617)))) (declare (not safe)) - (cons 'if __tmp210267)))) + (cons 'if __tmp212616)))) (declare (not safe)) - (cons __tmp210266 '())))) + (cons __tmp212615 '())))) (declare (not safe)) - (cons __tmp210283 __tmp210265)))) + (cons __tmp212632 __tmp212614)))) (declare (not safe)) - (cons 'let __tmp210264)))))))) + (cons 'let __tmp212613)))))))) (define gxc#generate-runtime-values-count - (lambda (_var201682_) - (letrec ((_generate-inline201684_ + (lambda (_var203931_) + (letrec ((_generate-inline203933_ (lambda () - (let ((__tmp210288 - (let ((__tmp210293 - (let ((__tmp210294 + (let ((__tmp212637 + (let ((__tmp212642 + (let ((__tmp212643 (let () (declare (not safe)) - (cons _var201682_ '())))) + (cons _var203931_ '())))) (declare (not safe)) - (cons '##values? __tmp210294))) - (__tmp210289 - (let ((__tmp210291 - (let ((__tmp210292 + (cons '##values? __tmp212643))) + (__tmp212638 + (let ((__tmp212640 + (let ((__tmp212641 (let () (declare (not safe)) - (cons _var201682_ '())))) + (cons _var203931_ '())))) (declare (not safe)) (cons '##vector-length - __tmp210292))) - (__tmp210290 + __tmp212641))) + (__tmp212639 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp210291 __tmp210290)))) + (cons __tmp212640 __tmp212639)))) (declare (not safe)) - (cons __tmp210293 __tmp210289)))) + (cons __tmp212642 __tmp212638)))) (declare (not safe)) - (cons 'if __tmp210288))))) + (cons 'if __tmp212637))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline201684_)) - (let ((__tmp210295 - (let ((__tmp210296 - (let ((__tmp210297 - (let ((__tmp210298 + (let () (declare (not safe)) (_generate-inline203933_)) + (let ((__tmp212644 + (let ((__tmp212645 + (let ((__tmp212646 + (let ((__tmp212647 (let () (declare (not safe)) - (_generate-inline201684_)))) + (_generate-inline203933_)))) (declare (not safe)) - (cons __tmp210298 '())))) + (cons __tmp212647 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp210297)))) + (cons '(declare (not safe)) __tmp212646)))) (declare (not safe)) - (cons '() __tmp210296)))) + (cons '() __tmp212645)))) (declare (not safe)) - (cons 'let __tmp210295)))))) + (cons 'let __tmp212644)))))) (define gxc#generate-runtime-values-ref - (lambda (_var201675_ _i201676_ _rest201677_) - (letrec ((_generate-inline201679_ + (lambda (_var203924_ _i203925_ _rest203926_) + (letrec ((_generate-inline203928_ (lambda () - (if (and (fx= _i201676_ '0) - (let ((__tmp210309 + (if (and (fx= _i203925_ '0) + (let ((__tmp212658 (let () (declare (not safe)) - (gx#stx-pair? _rest201677_)))) + (gx#stx-pair? _rest203926_)))) (declare (not safe)) - (not __tmp210309))) - (let ((__tmp210301 - (let ((__tmp210307 - (let ((__tmp210308 + (not __tmp212658))) + (let ((__tmp212650 + (let ((__tmp212656 + (let ((__tmp212657 (let () (declare (not safe)) - (cons _var201675_ '())))) + (cons _var203924_ '())))) (declare (not safe)) - (cons '##values? __tmp210308))) - (__tmp210302 - (let ((__tmp210304 - (let ((__tmp210305 - (let ((__tmp210306 + (cons '##values? __tmp212657))) + (__tmp212651 + (let ((__tmp212653 + (let ((__tmp212654 + (let ((__tmp212655 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '0 '())))) (declare (not safe)) - (cons _var201675_ __tmp210306)))) + (cons _var203924_ __tmp212655)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp210305))) - (__tmp210303 + __tmp212654))) + (__tmp212652 (let () (declare (not safe)) - (cons _var201675_ '())))) + (cons _var203924_ '())))) (declare (not safe)) - (cons __tmp210304 __tmp210303)))) + (cons __tmp212653 __tmp212652)))) (declare (not safe)) - (cons __tmp210307 __tmp210302)))) + (cons __tmp212656 __tmp212651)))) (declare (not safe)) - (cons 'if __tmp210301)) - (let ((__tmp210299 - (let ((__tmp210300 + (cons 'if __tmp212650)) + (let ((__tmp212648 + (let ((__tmp212649 (let () (declare (not safe)) - (cons _i201676_ '())))) + (cons _i203925_ '())))) (declare (not safe)) - (cons _var201675_ __tmp210300)))) + (cons _var203924_ __tmp212649)))) (declare (not safe)) - (cons '##vector-ref __tmp210299)))))) + (cons '##vector-ref __tmp212648)))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline201679_)) - (let ((__tmp210310 - (let ((__tmp210311 - (let ((__tmp210312 - (let ((__tmp210313 + (let () (declare (not safe)) (_generate-inline203928_)) + (let ((__tmp212659 + (let ((__tmp212660 + (let ((__tmp212661 + (let ((__tmp212662 (let () (declare (not safe)) - (_generate-inline201679_)))) + (_generate-inline203928_)))) (declare (not safe)) - (cons __tmp210313 '())))) + (cons __tmp212662 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp210312)))) + (cons '(declare (not safe)) __tmp212661)))) (declare (not safe)) - (cons '() __tmp210311)))) + (cons '() __tmp212660)))) (declare (not safe)) - (cons 'let __tmp210310)))))) + (cons 'let __tmp212659)))))) (define gxc#generate-runtime-values->list - (lambda (_var201672_ _i201673_) - (if (fx= _i201673_ '0) + (lambda (_var203921_ _i203922_) + (if (fx= _i203922_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp210361 - (let ((__tmp210368 - (let ((__tmp210369 + (let ((__tmp212710 + (let ((__tmp212717 + (let ((__tmp212718 (let () (declare (not safe)) - (cons _var201672_ '())))) + (cons _var203921_ '())))) (declare (not safe)) - (cons '##values? __tmp210369))) - (__tmp210362 - (let ((__tmp210366 - (let ((__tmp210367 + (cons '##values? __tmp212718))) + (__tmp212711 + (let ((__tmp212715 + (let ((__tmp212716 (let () (declare (not safe)) - (cons _var201672_ '())))) + (cons _var203921_ '())))) (declare (not safe)) - (cons '##vector->list __tmp210367))) - (__tmp210363 - (let ((__tmp210364 - (let ((__tmp210365 + (cons '##vector->list __tmp212716))) + (__tmp212712 + (let ((__tmp212713 + (let ((__tmp212714 (let () (declare (not safe)) - (cons _var201672_ + (cons _var203921_ '())))) (declare (not safe)) - (cons 'list __tmp210365)))) + (cons 'list __tmp212714)))) (declare (not safe)) - (cons __tmp210364 '())))) + (cons __tmp212713 '())))) (declare (not safe)) - (cons __tmp210366 __tmp210363)))) + (cons __tmp212715 __tmp212712)))) (declare (not safe)) - (cons __tmp210368 __tmp210362)))) + (cons __tmp212717 __tmp212711)))) (declare (not safe)) - (cons 'if __tmp210361)) - (let ((__tmp210348 - (let ((__tmp210349 - (let ((__tmp210350 - (let ((__tmp210351 - (let ((__tmp210352 - (let ((__tmp210359 - (let ((__tmp210360 + (cons 'if __tmp212710)) + (let ((__tmp212697 + (let ((__tmp212698 + (let ((__tmp212699 + (let ((__tmp212700 + (let ((__tmp212701 + (let ((__tmp212708 + (let ((__tmp212709 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var201672_ '())))) + (cons _var203921_ '())))) (declare (not safe)) - (cons '##values? __tmp210360))) - (__tmp210353 - (let ((__tmp210357 - (let ((__tmp210358 + (cons '##values? __tmp212709))) + (__tmp212702 + (let ((__tmp212706 + (let ((__tmp212707 (let () (declare (not safe)) - (cons _var201672_ '())))) + (cons _var203921_ '())))) (declare (not safe)) - (cons '##vector->list __tmp210358))) - (__tmp210354 - (let ((__tmp210355 - (let ((__tmp210356 + (cons '##vector->list __tmp212707))) + (__tmp212703 + (let ((__tmp212704 + (let ((__tmp212705 (let () (declare (not safe)) - (cons _var201672_ '())))) + (cons _var203921_ '())))) (declare (not safe)) - (cons 'list __tmp210356)))) + (cons 'list __tmp212705)))) (declare (not safe)) - (cons __tmp210355 '())))) + (cons __tmp212704 '())))) (declare (not safe)) - (cons __tmp210357 __tmp210354)))) + (cons __tmp212706 __tmp212703)))) (declare (not safe)) - (cons __tmp210359 __tmp210353)))) + (cons __tmp212708 __tmp212702)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp210352)))) + (cons 'if __tmp212701)))) (declare (not safe)) - (cons __tmp210351 '())))) + (cons __tmp212700 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp210350)))) + (cons '(declare (not safe)) __tmp212699)))) (declare (not safe)) - (cons '() __tmp210349)))) + (cons '() __tmp212698)))) (declare (not safe)) - (cons 'let __tmp210348))) - (if (fx= _i201673_ '1) + (cons 'let __tmp212697))) + (if (fx= _i203922_ '1) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp210339 - (let ((__tmp210346 - (let ((__tmp210347 + (let ((__tmp212688 + (let ((__tmp212695 + (let ((__tmp212696 (let () (declare (not safe)) - (cons _var201672_ '())))) + (cons _var203921_ '())))) (declare (not safe)) - (cons '##values? __tmp210347))) - (__tmp210340 - (let ((__tmp210342 - (let ((__tmp210343 - (let ((__tmp210344 - (let ((__tmp210345 + (cons '##values? __tmp212696))) + (__tmp212689 + (let ((__tmp212691 + (let ((__tmp212692 + (let ((__tmp212693 + (let ((__tmp212694 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _var201672_ '())))) + (cons _var203921_ '())))) (declare (not safe)) - (cons '##vector->list __tmp210345)))) + (cons '##vector->list __tmp212694)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210344 '())))) + (cons __tmp212693 '())))) (declare (not safe)) - (cons '##cdr __tmp210343))) - (__tmp210341 + (cons '##cdr __tmp212692))) + (__tmp212690 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp210342 __tmp210341)))) + (cons __tmp212691 __tmp212690)))) (declare (not safe)) - (cons __tmp210346 __tmp210340)))) + (cons __tmp212695 __tmp212689)))) (declare (not safe)) - (cons 'if __tmp210339)) - (let ((__tmp210326 - (let ((__tmp210327 - (let ((__tmp210328 - (let ((__tmp210329 - (let ((__tmp210330 - (let ((__tmp210337 - (let ((__tmp210338 + (cons 'if __tmp212688)) + (let ((__tmp212675 + (let ((__tmp212676 + (let ((__tmp212677 + (let ((__tmp212678 + (let ((__tmp212679 + (let ((__tmp212686 + (let ((__tmp212687 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var201672_ '())))) + (cons _var203921_ '())))) (declare (not safe)) - (cons '##values? __tmp210338))) - (__tmp210331 - (let ((__tmp210333 - (let ((__tmp210334 - (let ((__tmp210335 - (let ((__tmp210336 + (cons '##values? __tmp212687))) + (__tmp212680 + (let ((__tmp212682 + (let ((__tmp212683 + (let ((__tmp212684 + (let ((__tmp212685 (let () (declare (not safe)) - (cons _var201672_ '())))) + (cons _var203921_ '())))) (declare (not safe)) (cons '##vector->list - __tmp210336)))) + __tmp212685)))) (declare (not safe)) - (cons __tmp210335 '())))) + (cons __tmp212684 '())))) (declare (not safe)) - (cons '##cdr __tmp210334))) - (__tmp210332 + (cons '##cdr __tmp212683))) + (__tmp212681 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp210333 __tmp210332)))) + (cons __tmp212682 __tmp212681)))) (declare (not safe)) - (cons __tmp210337 __tmp210331)))) + (cons __tmp212686 __tmp212680)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp210330)))) + (cons 'if __tmp212679)))) (declare (not safe)) - (cons __tmp210329 '())))) + (cons __tmp212678 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp210328)))) + __tmp212677)))) (declare (not safe)) - (cons '() __tmp210327)))) + (cons '() __tmp212676)))) (declare (not safe)) - (cons 'let __tmp210326))) + (cons 'let __tmp212675))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp210322 - (let ((__tmp210324 - (let ((__tmp210325 + (let ((__tmp212671 + (let ((__tmp212673 + (let ((__tmp212674 (let () (declare (not safe)) - (cons _var201672_ '())))) + (cons _var203921_ '())))) (declare (not safe)) - (cons '##vector->list __tmp210325))) - (__tmp210323 + (cons '##vector->list __tmp212674))) + (__tmp212672 (let () (declare (not safe)) - (cons _i201673_ '())))) + (cons _i203922_ '())))) (declare (not safe)) - (cons __tmp210324 __tmp210323)))) + (cons __tmp212673 __tmp212672)))) (declare (not safe)) - (cons '##list-tail __tmp210322)) - (let ((__tmp210314 - (let ((__tmp210315 - (let ((__tmp210316 - (let ((__tmp210317 - (let ((__tmp210318 - (let ((__tmp210320 - (let ((__tmp210321 + (cons '##list-tail __tmp212671)) + (let ((__tmp212663 + (let ((__tmp212664 + (let ((__tmp212665 + (let ((__tmp212666 + (let ((__tmp212667 + (let ((__tmp212669 + (let ((__tmp212670 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var201672_ '())))) + (cons _var203921_ '())))) (declare (not safe)) - (cons '##vector->list __tmp210321))) - (__tmp210319 - (let () (declare (not safe)) (cons _i201673_ '())))) + (cons '##vector->list __tmp212670))) + (__tmp212668 + (let () (declare (not safe)) (cons _i203922_ '())))) (declare (not safe)) - (cons __tmp210320 __tmp210319)))) + (cons __tmp212669 __tmp212668)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##list-tail - __tmp210318)))) + __tmp212667)))) (declare (not safe)) - (cons __tmp210317 '())))) + (cons __tmp212666 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp210316)))) + __tmp212665)))) (declare (not safe)) - (cons '() __tmp210315)))) + (cons '() __tmp212664)))) (declare (not safe)) - (cons 'let __tmp210314))))))) + (cons 'let __tmp212663))))))) (define gxc#generate-runtime-lambda% - (lambda (_stx201605_) - (let* ((_g201607201624_ - (lambda (_g201608201621_) + (lambda (_stx203854_) + (let* ((_g203856203873_ + (lambda (_g203857203870_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g201608201621_)))) - (_g201606201669_ - (lambda (_g201608201627_) + _g203857203870_)))) + (_g203855203918_ + (lambda (_g203857203876_) (if (let () (declare (not safe)) - (gx#stx-pair? _g201608201627_)) - (let ((_e201613201629_ + (gx#stx-pair? _g203857203876_)) + (let ((_e203862203878_ (let () (declare (not safe)) - (gx#stx-e _g201608201627_)))) - (let ((_hd201612201632_ + (gx#stx-e _g203857203876_)))) + (let ((_hd203861203881_ (let () (declare (not safe)) - (##car _e201613201629_))) - (_tl201611201634_ + (##car _e203862203878_))) + (_tl203860203883_ (let () (declare (not safe)) - (##cdr _e201613201629_)))) + (##cdr _e203862203878_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201611201634_)) - (let ((_e201616201637_ + (gx#stx-pair? _tl203860203883_)) + (let ((_e203865203886_ (let () (declare (not safe)) - (gx#stx-e _tl201611201634_)))) - (let ((_hd201615201640_ + (gx#stx-e _tl203860203883_)))) + (let ((_hd203864203889_ (let () (declare (not safe)) - (##car _e201616201637_))) - (_tl201614201642_ + (##car _e203865203886_))) + (_tl203863203891_ (let () (declare (not safe)) - (##cdr _e201616201637_)))) + (##cdr _e203865203886_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201614201642_)) - (let ((_e201619201645_ + (gx#stx-pair? _tl203863203891_)) + (let ((_e203868203894_ (let () (declare (not safe)) - (gx#stx-e _tl201614201642_)))) - (let ((_hd201618201648_ + (gx#stx-e _tl203863203891_)))) + (let ((_hd203867203897_ (let () (declare (not safe)) - (##car _e201619201645_))) - (_tl201617201650_ + (##car _e203868203894_))) + (_tl203866203899_ (let () (declare (not safe)) - (##cdr _e201619201645_)))) + (##cdr _e203868203894_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl201617201650_)) - ((lambda (_L201653_ _L201654_) + _tl203866203899_)) + ((lambda (_L203902_ _L203903_) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _L201654_ - _L201653_))) - _hd201618201648_ - _hd201615201640_) + _L203903_ + _L203902_))) + _hd203867203897_ + _hd203864203889_) (let () (declare (not safe)) - (_g201607201624_ - _g201608201627_))))) + (_g203856203873_ + _g203857203876_))))) (let () (declare (not safe)) - (_g201607201624_ _g201608201627_))))) + (_g203856203873_ _g203857203876_))))) (let () (declare (not safe)) - (_g201607201624_ _g201608201627_))))) + (_g203856203873_ _g203857203876_))))) (let () (declare (not safe)) - (_g201607201624_ _g201608201627_)))))) + (_g203856203873_ _g203857203876_)))))) (declare (not safe)) - (_g201606201669_ _stx201605_)))) + (_g203855203918_ _stx203854_)))) (define gxc#generate-runtime-lambda-form - (lambda (_hd201565_ _body201566_) - (let* ((_hd201568_ + (lambda (_hd203814_ _body203815_) + (let* ((_hd203817_ (let () (declare (not safe)) - (gxc#generate-runtime-lambda-head _hd201565_))) - (_body201570_ + (gxc#generate-runtime-lambda-head _hd203814_))) + (_body203819_ (let () (declare (not safe)) - (gxc#compile-e__0 _body201566_))) - (_body201602_ - (let* ((_body201571201579_ _body201570_) - (_else201573201587_ + (gxc#compile-e__0 _body203815_))) + (_body203851_ + (let* ((_body203820203828_ _body203819_) + (_else203822203836_ (lambda () (let () (declare (not safe)) - (cons _body201570_ '())))) - (_K201575201592_ - (lambda (_exprs201590_) _exprs201590_))) + (cons _body203819_ '())))) + (_K203824203841_ + (lambda (_exprs203839_) _exprs203839_))) (if (let () (declare (not safe)) - (##pair? _body201571201579_)) - (let ((_hd201576201595_ + (##pair? _body203820203828_)) + (let ((_hd203825203844_ (let () (declare (not safe)) - (##car _body201571201579_))) - (_tl201577201597_ + (##car _body203820203828_))) + (_tl203826203846_ (let () (declare (not safe)) - (##cdr _body201571201579_)))) + (##cdr _body203820203828_)))) (if (let () (declare (not safe)) - (##eq? _hd201576201595_ 'begin)) - (let ((_exprs201600_ _tl201577201597_)) + (##eq? _hd203825203844_ 'begin)) + (let ((_exprs203849_ _tl203826203846_)) (declare (not safe)) - (_K201575201592_ _exprs201600_)) + (_K203824203841_ _exprs203849_)) (let () (declare (not safe)) - (_else201573201587_)))) - (let () (declare (not safe)) (_else201573201587_)))))) - (let ((__tmp210370 + (_else203822203836_)))) + (let () (declare (not safe)) (_else203822203836_)))))) + (let ((__tmp212719 (let () (declare (not safe)) - (cons _hd201568_ _body201602_)))) + (cons _hd203817_ _body203851_)))) (declare (not safe)) - (cons 'lambda __tmp210370))))) + (cons 'lambda __tmp212719))))) (define gxc#generate-runtime-lambda-head - (lambda (_hd201563_) + (lambda (_hd203812_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _hd201563_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _hd203812_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_stx200106_) - (letrec ((_dispatch-case?200108_ - (lambda (_hd200793_ _body200794_) - (let* ((_form200796_ - (let ((__tmp210371 + (lambda (_stx202355_) + (letrec ((_dispatch-case?202357_ + (lambda (_hd203042_ _body203043_) + (let* ((_form203045_ + (let ((__tmp212720 (let () (declare (not safe)) - (cons _body200794_ '())))) + (cons _body203043_ '())))) (declare (not safe)) - (cons _hd200793_ __tmp210371))) - (___stx208951208952_ _form200796_) - (_g200801200958_ + (cons _hd203042_ __tmp212720))) + (___stx211300211301_ _form203045_) + (_g203050203207_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx208951208952_))))) - (let ((___kont208953208954_ - (lambda (_L201483_ _L201484_ _L201485_) '#t)) - (___kont208959208960_ - (lambda (_L201271_ - _L201272_ - _L201273_ - _L201274_ - _L201275_ - _L201276_) + ___stx211300211301_))))) + (let ((___kont211302211303_ + (lambda (_L203732_ _L203733_ _L203734_) '#t)) + (___kont211308211309_ + (lambda (_L203520_ + _L203521_ + _L203522_ + _L203523_ + _L203524_ + _L203525_) '#t)) - (___kont208965208966_ - (lambda (_L201066_ - _L201067_ - _L201068_ - _L201069_) + (___kont211314211315_ + (lambda (_L203315_ + _L203316_ + _L203317_ + _L203318_) '#t)) - (___kont208967208968_ (lambda () '#f))) - (let* ((___match209092209093_ - (lambda (_e200920200970_ - _hd200919200973_ - _tl200918200975_ - _e200923200978_ - _hd200922200981_ - _tl200921200983_ - _e200926200986_ - _hd200925200989_ - _tl200924200991_ - _e200929200994_ - _hd200928200997_ - _tl200927200999_ - _e200932201002_ - _hd200931201005_ - _tl200930201007_ - _e200935201010_ - _hd200934201013_ - _tl200933201015_ - _e200938201018_ - _hd200937201021_ - _tl200936201023_ - _e200941201026_ - _hd200940201029_ - _tl200939201031_ - _e200944201034_ - _hd200943201037_ - _tl200942201039_ - _e200947201042_ - _hd200946201045_ - _tl200945201047_ - _e200950201050_ - _hd200949201053_ - _tl200948201055_ - _e200953201058_ - _hd200952201061_ - _tl200951201063_) - (let ((_L201066_ _hd200952201061_) - (_L201067_ _hd200943201037_) - (_L201068_ _hd200934201013_) - (_L201069_ _hd200919200973_)) + (___kont211316211317_ (lambda () '#f))) + (let* ((___match211441211442_ + (lambda (_e203169203219_ + _hd203168203222_ + _tl203167203224_ + _e203172203227_ + _hd203171203230_ + _tl203170203232_ + _e203175203235_ + _hd203174203238_ + _tl203173203240_ + _e203178203243_ + _hd203177203246_ + _tl203176203248_ + _e203181203251_ + _hd203180203254_ + _tl203179203256_ + _e203184203259_ + _hd203183203262_ + _tl203182203264_ + _e203187203267_ + _hd203186203270_ + _tl203185203272_ + _e203190203275_ + _hd203189203278_ + _tl203188203280_ + _e203193203283_ + _hd203192203286_ + _tl203191203288_ + _e203196203291_ + _hd203195203294_ + _tl203194203296_ + _e203199203299_ + _hd203198203302_ + _tl203197203304_ + _e203202203307_ + _hd203201203310_ + _tl203200203312_) + (let ((_L203315_ _hd203201203310_) + (_L203316_ _hd203192203286_) + (_L203317_ _hd203183203262_) + (_L203318_ _hd203168203222_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L201069_)) + (gx#identifier? _L203318_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L201068_ + _L203317_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L201069_ - _L201066_)) - (let ((__tmp210372 + _L203318_ + _L203315_)) + (let ((__tmp212721 (let () (declare (not safe)) (gx#free-identifier=? - _L201067_ - _L201069_)))) + _L203316_ + _L203318_)))) (declare (not safe)) - (not __tmp210372))) - (___kont208965208966_ - _L201066_ - _L201067_ - _L201068_ - _L201069_) - (___kont208967208968_))))) - (___match209064209065_ - (lambda (_e200920200970_ - _hd200919200973_ - _tl200918200975_ - _e200923200978_ - _hd200922200981_ - _tl200921200983_ - _e200926200986_ - _hd200925200989_ - _tl200924200991_ - _e200929200994_ - _hd200928200997_ - _tl200927200999_ - _e200932201002_ - _hd200931201005_ - _tl200930201007_ - _e200935201010_ - _hd200934201013_ - _tl200933201015_ - _e200938201018_ - _hd200937201021_ - _tl200936201023_ - _e200941201026_ - _hd200940201029_ - _tl200939201031_ - _e200944201034_ - _hd200943201037_ - _tl200942201039_) + (not __tmp212721))) + (___kont211314211315_ + _L203315_ + _L203316_ + _L203317_ + _L203318_) + (___kont211316211317_))))) + (___match211413211414_ + (lambda (_e203169203219_ + _hd203168203222_ + _tl203167203224_ + _e203172203227_ + _hd203171203230_ + _tl203170203232_ + _e203175203235_ + _hd203174203238_ + _tl203173203240_ + _e203178203243_ + _hd203177203246_ + _tl203176203248_ + _e203181203251_ + _hd203180203254_ + _tl203179203256_ + _e203184203259_ + _hd203183203262_ + _tl203182203264_ + _e203187203267_ + _hd203186203270_ + _tl203185203272_ + _e203190203275_ + _hd203189203278_ + _tl203188203280_ + _e203193203283_ + _hd203192203286_ + _tl203191203288_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200936201023_)) - (let ((_e200947201042_ + (gx#stx-pair? _tl203185203272_)) + (let ((_e203196203291_ (let () (declare (not safe)) - (gx#stx-e _tl200936201023_)))) - (let ((_tl200945201047_ + (gx#stx-e _tl203185203272_)))) + (let ((_tl203194203296_ (let () (declare (not safe)) - (##cdr _e200947201042_))) - (_hd200946201045_ + (##cdr _e203196203291_))) + (_hd203195203294_ (let () (declare (not safe)) - (##car _e200947201042_)))) + (##car _e203196203291_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200946201045_)) - (let ((_e200950201050_ + _hd203195203294_)) + (let ((_e203199203299_ (let () (declare (not safe)) (gx#stx-e - _hd200946201045_)))) - (let ((_tl200948201055_ + _hd203195203294_)))) + (let ((_tl203197203304_ (let () (declare (not safe)) - (##cdr _e200950201050_))) - (_hd200949201053_ + (##cdr _e203199203299_))) + (_hd203198203302_ (let () (declare (not safe)) - (##car _e200950201050_)))) + (##car _e203199203299_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd200949201053_)) + _hd203198203302_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200949201053_)) + _hd203198203302_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl200948201055_)) - (let ((_e200953201058_ + (gx#stx-pair? _tl203197203304_)) + (let ((_e203202203307_ (let () (declare (not safe)) - (gx#stx-e _tl200948201055_)))) - (let ((_tl200951201063_ + (gx#stx-e _tl203197203304_)))) + (let ((_tl203200203312_ (let () (declare (not safe)) - (##cdr _e200953201058_))) - (_hd200952201061_ + (##cdr _e203202203307_))) + (_hd203201203310_ (let () (declare (not safe)) - (##car _e200953201058_)))) + (##car _e203202203307_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200951201063_)) + (gx#stx-null? _tl203200203312_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl200945201047_)) + (gx#stx-null? _tl203194203296_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl200921200983_)) - (___match209092209093_ - _e200920200970_ - _hd200919200973_ - _tl200918200975_ - _e200923200978_ - _hd200922200981_ - _tl200921200983_ - _e200926200986_ - _hd200925200989_ - _tl200924200991_ - _e200929200994_ - _hd200928200997_ - _tl200927200999_ - _e200932201002_ - _hd200931201005_ - _tl200930201007_ - _e200935201010_ - _hd200934201013_ - _tl200933201015_ - _e200938201018_ - _hd200937201021_ - _tl200936201023_ - _e200941201026_ - _hd200940201029_ - _tl200939201031_ - _e200944201034_ - _hd200943201037_ - _tl200942201039_ - _e200947201042_ - _hd200946201045_ - _tl200945201047_ - _e200950201050_ - _hd200949201053_ - _tl200948201055_ - _e200953201058_ - _hd200952201061_ - _tl200951201063_) - (___kont208967208968_)) - (___kont208967208968_)) - (___kont208967208968_)))) - (___kont208967208968_)) - (___kont208967208968_)) - (___kont208967208968_)))) + (gx#stx-null? _tl203170203232_)) + (___match211441211442_ + _e203169203219_ + _hd203168203222_ + _tl203167203224_ + _e203172203227_ + _hd203171203230_ + _tl203170203232_ + _e203175203235_ + _hd203174203238_ + _tl203173203240_ + _e203178203243_ + _hd203177203246_ + _tl203176203248_ + _e203181203251_ + _hd203180203254_ + _tl203179203256_ + _e203184203259_ + _hd203183203262_ + _tl203182203264_ + _e203187203267_ + _hd203186203270_ + _tl203185203272_ + _e203190203275_ + _hd203189203278_ + _tl203188203280_ + _e203193203283_ + _hd203192203286_ + _tl203191203288_ + _e203196203291_ + _hd203195203294_ + _tl203194203296_ + _e203199203299_ + _hd203198203302_ + _tl203197203304_ + _e203202203307_ + _hd203201203310_ + _tl203200203312_) + (___kont211316211317_)) + (___kont211316211317_)) + (___kont211316211317_)))) + (___kont211316211317_)) + (___kont211316211317_)) + (___kont211316211317_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont208967208968_)))) - (___kont208967208968_)))) - (___match208994208995_ - (lambda (_e200856201111_ - _hd200855201114_ - _tl200854201116_ - ___splice208961208962_ - _target200857201119_ - _tl200859201121_) - (letrec ((_loop200860201124_ - (lambda (_hd200858201127_ - _arg200864201129_) + (___kont211316211317_)))) + (___kont211316211317_)))) + (___match211343211344_ + (lambda (_e203105203360_ + _hd203104203363_ + _tl203103203365_ + ___splice211310211311_ + _target203106203368_ + _tl203108203370_) + (letrec ((_loop203109203373_ + (lambda (_hd203107203376_ + _arg203113203378_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200858201127_)) - (let ((_e200861201132_ + _hd203107203376_)) + (let ((_e203110203381_ (let () (declare (not safe)) (gx#stx-e - _hd200858201127_)))) - (let ((_lp-tl200863201137_ + _hd203107203376_)))) + (let ((_lp-tl203112203386_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e200861201132_))) - (_lp-hd200862201135_ - (let () (declare (not safe)) (##car _e200861201132_)))) - (let ((__tmp210387 + (##cdr _e203110203381_))) + (_lp-hd203111203384_ + (let () (declare (not safe)) (##car _e203110203381_)))) + (let ((__tmp212736 (let () (declare (not safe)) - (cons _lp-hd200862201135_ _arg200864201129_)))) + (cons _lp-hd203111203384_ _arg203113203378_)))) (declare (not safe)) - (_loop200860201124_ _lp-tl200863201137_ __tmp210387)))) + (_loop203109203373_ _lp-tl203112203386_ __tmp212736)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg200865201140_ - (reverse _arg200864201129_))) + (let ((_arg203114203389_ + (reverse _arg203113203378_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200854201116_)) - (let ((_e200868201143_ + _tl203103203365_)) + (let ((_e203117203392_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl200854201116_)))) - (let ((_tl200866201148_ + (gx#stx-e _tl203103203365_)))) + (let ((_tl203115203397_ (let () (declare (not safe)) - (##cdr _e200868201143_))) - (_hd200867201146_ + (##cdr _e203117203392_))) + (_hd203116203395_ (let () (declare (not safe)) - (##car _e200868201143_)))) + (##car _e203117203392_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200867201146_)) - (let ((_e200871201151_ + (gx#stx-pair? _hd203116203395_)) + (let ((_e203120203400_ (let () (declare (not safe)) - (gx#stx-e _hd200867201146_)))) - (let ((_tl200869201156_ + (gx#stx-e _hd203116203395_)))) + (let ((_tl203118203405_ (let () (declare (not safe)) - (##cdr _e200871201151_))) - (_hd200870201154_ + (##cdr _e203120203400_))) + (_hd203119203403_ (let () (declare (not safe)) - (##car _e200871201151_)))) + (##car _e203120203400_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200870201154_)) + (gx#identifier? _hd203119203403_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd200870201154_)) + (gx#stx-eq? '%#call _hd203119203403_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200869201156_)) - (let ((_e200874201159_ + (gx#stx-pair? _tl203118203405_)) + (let ((_e203123203408_ (let () (declare (not safe)) (gx#stx-e - _tl200869201156_)))) - (let ((_tl200872201164_ + _tl203118203405_)))) + (let ((_tl203121203413_ (let () (declare (not safe)) - (##cdr _e200874201159_))) - (_hd200873201162_ + (##cdr _e203123203408_))) + (_hd203122203411_ (let () (declare (not safe)) - (##car _e200874201159_)))) + (##car _e203123203408_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200873201162_)) - (let ((_e200877201167_ + _hd203122203411_)) + (let ((_e203126203416_ (let () (declare (not safe)) (gx#stx-e - _hd200873201162_)))) - (let ((_tl200875201172_ + _hd203122203411_)))) + (let ((_tl203124203421_ (let () (declare (not safe)) - (##cdr _e200877201167_))) - (_hd200876201170_ + (##cdr _e203126203416_))) + (_hd203125203419_ (let () (declare (not safe)) - (##car _e200877201167_)))) + (##car _e203126203416_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd200876201170_)) + _hd203125203419_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd200876201170_)) + (gx#stx-eq? '%#ref _hd203125203419_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200875201172_)) - (let ((_e200880201175_ + (gx#stx-pair? _tl203124203421_)) + (let ((_e203129203424_ (let () (declare (not safe)) - (gx#stx-e _tl200875201172_)))) - (let ((_tl200878201180_ + (gx#stx-e _tl203124203421_)))) + (let ((_tl203127203429_ (let () (declare (not safe)) - (##cdr _e200880201175_))) - (_hd200879201178_ + (##cdr _e203129203424_))) + (_hd203128203427_ (let () (declare (not safe)) - (##car _e200880201175_)))) + (##car _e203129203424_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200878201180_)) + (gx#stx-null? _tl203127203429_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200872201164_)) - (let ((_e200883201183_ + (gx#stx-pair? _tl203121203413_)) + (let ((_e203132203432_ (let () (declare (not safe)) - (gx#stx-e _tl200872201164_)))) - (let ((_tl200881201188_ + (gx#stx-e _tl203121203413_)))) + (let ((_tl203130203437_ (let () (declare (not safe)) - (##cdr _e200883201183_))) - (_hd200882201186_ + (##cdr _e203132203432_))) + (_hd203131203435_ (let () (declare (not safe)) - (##car _e200883201183_)))) + (##car _e203132203432_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200882201186_)) - (let ((_e200886201191_ + _hd203131203435_)) + (let ((_e203135203440_ (let () (declare (not safe)) (gx#stx-e - _hd200882201186_)))) - (let ((_tl200884201196_ + _hd203131203435_)))) + (let ((_tl203133203445_ (let () (declare (not safe)) - (##cdr _e200886201191_))) - (_hd200885201194_ + (##cdr _e203135203440_))) + (_hd203134203443_ (let () (declare (not safe)) - (##car _e200886201191_)))) + (##car _e203135203440_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd200885201194_)) + _hd203134203443_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200885201194_)) + _hd203134203443_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl200884201196_)) - (let ((_e200889201199_ + (gx#stx-pair? _tl203133203445_)) + (let ((_e203138203448_ (let () (declare (not safe)) - (gx#stx-e _tl200884201196_)))) - (let ((_tl200887201204_ + (gx#stx-e _tl203133203445_)))) + (let ((_tl203136203453_ (let () (declare (not safe)) - (##cdr _e200889201199_))) - (_hd200888201202_ + (##cdr _e203138203448_))) + (_hd203137203451_ (let () (declare (not safe)) - (##car _e200889201199_)))) + (##car _e203138203448_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200887201204_)) + (gx#stx-null? _tl203136203453_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl200881201188_)) + (gx#stx-pair/null? _tl203130203437_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl200881201188_)) + (gx#stx-length _tl203130203437_)) '1) - (let ((___splice208963208964_ + (let ((___splice211312211313_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl200881201188_ + _tl203130203437_ '1)))) - (let ((_tl200892201209_ + (let ((_tl203141203458_ (let () (declare (not safe)) (##vector-ref - ___splice208963208964_ + ___splice211312211313_ '1))) - (_target200890201207_ + (_target203139203456_ (let () (declare (not safe)) (##vector-ref - ___splice208963208964_ + ___splice211312211313_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200892201209_)) - (let ((_e200901201212_ + _tl203141203458_)) + (let ((_e203150203461_ (let () (declare (not safe)) (gx#stx-e - _tl200892201209_)))) - (let ((_tl200899201217_ + _tl203141203458_)))) + (let ((_tl203148203466_ (let () (declare (not safe)) - (##cdr _e200901201212_))) - (_hd200900201215_ + (##cdr _e203150203461_))) + (_hd203149203464_ (let () (declare (not safe)) - (##car _e200901201212_)))) + (##car _e203150203461_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200900201215_)) - (let ((_e200904201220_ + _hd203149203464_)) + (let ((_e203153203469_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd200900201215_)))) - (let ((_tl200902201225_ - (let () (declare (not safe)) (##cdr _e200904201220_))) - (_hd200903201223_ - (let () (declare (not safe)) (##car _e200904201220_)))) + (gx#stx-e _hd203149203464_)))) + (let ((_tl203151203474_ + (let () (declare (not safe)) (##cdr _e203153203469_))) + (_hd203152203472_ + (let () (declare (not safe)) (##car _e203153203469_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200903201223_)) + (gx#identifier? _hd203152203472_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd200903201223_)) + (gx#stx-eq? '%#ref _hd203152203472_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200902201225_)) - (let ((_e200907201228_ + (gx#stx-pair? _tl203151203474_)) + (let ((_e203156203477_ (let () (declare (not safe)) - (gx#stx-e _tl200902201225_)))) - (let ((_tl200905201233_ + (gx#stx-e _tl203151203474_)))) + (let ((_tl203154203482_ (let () (declare (not safe)) - (##cdr _e200907201228_))) - (_hd200906201231_ + (##cdr _e203156203477_))) + (_hd203155203480_ (let () (declare (not safe)) - (##car _e200907201228_)))) + (##car _e203156203477_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200905201233_)) + (gx#stx-null? _tl203154203482_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl200899201217_)) - (letrec ((_loop200893201236_ - (lambda (_hd200891201239_ - _xarg200897201241_) + (gx#stx-null? _tl203148203466_)) + (letrec ((_loop203142203485_ + (lambda (_hd203140203488_ + _xarg203146203490_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200891201239_)) - (let ((_e200894201244_ + _hd203140203488_)) + (let ((_e203143203493_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd200891201239_)))) - (let ((_lp-tl200896201249_ + (gx#stx-e _hd203140203488_)))) + (let ((_lp-tl203145203498_ (let () (declare (not safe)) - (##cdr _e200894201244_))) - (_lp-hd200895201247_ + (##cdr _e203143203493_))) + (_lp-hd203144203496_ (let () (declare (not safe)) - (##car _e200894201244_)))) + (##car _e203143203493_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd200895201247_)) - (let ((_e200910201252_ + (gx#stx-pair? _lp-hd203144203496_)) + (let ((_e203159203501_ (let () (declare (not safe)) - (gx#stx-e _lp-hd200895201247_)))) - (let ((_tl200908201257_ + (gx#stx-e _lp-hd203144203496_)))) + (let ((_tl203157203506_ (let () (declare (not safe)) - (##cdr _e200910201252_))) - (_hd200909201255_ + (##cdr _e203159203501_))) + (_hd203158203504_ (let () (declare (not safe)) - (##car _e200910201252_)))) + (##car _e203159203501_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200909201255_)) + (gx#identifier? _hd203158203504_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd200909201255_)) + (gx#stx-eq? '%#ref _hd203158203504_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200908201257_)) - (let ((_e200913201260_ + (gx#stx-pair? _tl203157203506_)) + (let ((_e203162203509_ (let () (declare (not safe)) (gx#stx-e - _tl200908201257_)))) - (let ((_tl200911201265_ + _tl203157203506_)))) + (let ((_tl203160203514_ (let () (declare (not safe)) - (##cdr _e200913201260_))) - (_hd200912201263_ + (##cdr _e203162203509_))) + (_hd203161203512_ (let () (declare (not safe)) - (##car _e200913201260_)))) + (##car _e203162203509_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200911201265_)) - (let ((__tmp210386 + _tl203160203514_)) + (let ((__tmp212735 (let () (declare (not safe)) - (cons _hd200912201263_ + (cons _hd203161203512_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg200897201241_)))) + _xarg203146203490_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop200893201236_ - _lp-tl200896201249_ - __tmp210386)) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)))) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)))) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)))) - (let ((_xarg200898201268_ (reverse _xarg200897201241_))) + (_loop203142203485_ + _lp-tl203145203498_ + __tmp212735)) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)))) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)))) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)))) + (let ((_xarg203147203517_ (reverse _xarg203146203490_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200866201148_)) - (let ((_L201271_ _hd200906201231_) - (_L201272_ _xarg200898201268_) - (_L201273_ _hd200888201202_) - (_L201274_ _hd200879201178_) - (_L201275_ _tl200859201121_) - (_L201276_ _arg200865201140_)) - (if (and (let ((__tmp210384 - (let ((__tmp210385 - (lambda (_g201319201322_ - _g201320201324_) + (gx#stx-null? _tl203115203397_)) + (let ((_L203520_ _hd203155203480_) + (_L203521_ _xarg203147203517_) + (_L203522_ _hd203137203451_) + (_L203523_ _hd203128203427_) + (_L203524_ _tl203108203370_) + (_L203525_ _arg203114203389_)) + (if (and (let ((__tmp212733 + (let ((__tmp212734 + (lambda (_g203568203571_ + _g203569203573_) (let () (declare (not safe)) - (cons _g201319201322_ - _g201320201324_))))) + (cons _g203568203571_ + _g203569203573_))))) (declare (not safe)) - (foldr1 __tmp210385 + (foldr1 __tmp212734 '() - _L201276_)))) + _L203525_)))) (declare (not safe)) - (gx#identifier-list? __tmp210384)) + (gx#identifier-list? __tmp212733)) (let () (declare (not safe)) - (gx#identifier? _L201275_)) + (gx#identifier? _L203524_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L201274_ + _L203523_ 'apply)) - (fx= (length (let ((__tmp210382 - (lambda (_g201326201329_ - _g201327201331_) + (fx= (length (let ((__tmp212731 + (lambda (_g203575203578_ + _g203576203580_) (let () (declare (not safe)) - (cons _g201326201329_ + (cons _g203575203578_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g201327201331_))))) + _g203576203580_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp210382 + (foldr1 __tmp212731 '() - _L201276_))) - (length (let ((__tmp210383 - (lambda (_g201333201336_ - _g201334201338_) + _L203525_))) + (length (let ((__tmp212732 + (lambda (_g203582203585_ + _g203583203587_) (let () (declare (not safe)) - (cons _g201333201336_ + (cons _g203582203585_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g201334201338_))))) + _g203583203587_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp210383 + (foldr1 __tmp212732 '() - _L201272_)))) - (let ((__tmp210380 - (let ((__tmp210381 - (lambda (_g201340201343_ - _g201341201345_) + _L203521_)))) + (let ((__tmp212729 + (let ((__tmp212730 + (lambda (_g203589203592_ + _g203590203594_) (let () (declare (not safe)) - (cons _g201340201343_ - _g201341201345_))))) + (cons _g203589203592_ + _g203590203594_))))) (declare (not safe)) - (foldr1 __tmp210381 + (foldr1 __tmp212730 '() - _L201276_))) - (__tmp210378 - (let ((__tmp210379 - (lambda (_g201347201350_ - _g201348201352_) + _L203525_))) + (__tmp212727 + (let ((__tmp212728 + (lambda (_g203596203599_ + _g203597203601_) (let () (declare (not safe)) - (cons _g201347201350_ - _g201348201352_))))) + (cons _g203596203599_ + _g203597203601_))))) (declare (not safe)) - (foldr1 __tmp210379 + (foldr1 __tmp212728 '() - _L201272_)))) + _L203521_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp210380 - __tmp210378)) + __tmp212729 + __tmp212727)) (let () (declare (not safe)) (gx#free-identifier=? - _L201275_ - _L201271_)) - (let ((__tmp210373 - (let ((__tmp210377 - (lambda (_g201354201356_) + _L203524_ + _L203520_)) + (let ((__tmp212722 + (let ((__tmp212726 + (lambda (_g203603203605_) (let () (declare (not safe)) (gx#free-identifier=? - _g201354201356_ - _L201273_)))) - (__tmp210374 - (let ((__tmp210376 - (lambda (_g201358201361_ + _g203603203605_ + _L203522_)))) + (__tmp212723 + (let ((__tmp212725 + (lambda (_g203607203610_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g201359201363_) + _g203608203612_) (let () (declare (not safe)) - (cons _g201358201361_ _g201359201363_)))) - (__tmp210375 - (let () (declare (not safe)) (cons _L201275_ '())))) + (cons _g203607203610_ _g203608203612_)))) + (__tmp212724 + (let () (declare (not safe)) (cons _L203524_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp210376 - __tmp210375 - _L201276_)))) + (foldr1 __tmp212725 + __tmp212724 + _L203525_)))) (declare (not safe)) - (find __tmp210377 __tmp210374)))) + (find __tmp212726 __tmp212723)))) (declare (not safe)) - (not __tmp210373))) - (___kont208959208960_ - _L201271_ - _L201272_ - _L201273_ - _L201274_ - _L201275_ - _L201276_) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_))) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_))))))) + (not __tmp212722))) + (___kont211308211309_ + _L203520_ + _L203521_ + _L203522_ + _L203523_ + _L203524_ + _L203525_) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_))) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop200893201236_ - _target200890201207_ + (_loop203142203485_ + _target203139203456_ '()))) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)))) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)))) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)))) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)))) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)))) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)))) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)) - (___match209064209065_ - _e200856201111_ - _hd200855201114_ - _tl200854201116_ - _e200868201143_ - _hd200867201146_ - _tl200866201148_ - _e200871201151_ - _hd200870201154_ - _tl200869201156_ - _e200874201159_ - _hd200873201162_ - _tl200872201164_ - _e200877201167_ - _hd200876201170_ - _tl200875201172_ - _e200880201175_ - _hd200879201178_ - _tl200878201180_ - _e200883201183_ - _hd200882201186_ - _tl200881201188_ - _e200886201191_ - _hd200885201194_ - _tl200884201196_ - _e200889201199_ - _hd200888201202_ - _tl200887201204_)) - (___kont208967208968_)))) - (___kont208967208968_)) - (___kont208967208968_)) - (___kont208967208968_)))) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)))) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)) + (___match211413211414_ + _e203105203360_ + _hd203104203363_ + _tl203103203365_ + _e203117203392_ + _hd203116203395_ + _tl203115203397_ + _e203120203400_ + _hd203119203403_ + _tl203118203405_ + _e203123203408_ + _hd203122203411_ + _tl203121203413_ + _e203126203416_ + _hd203125203419_ + _tl203124203421_ + _e203129203424_ + _hd203128203427_ + _tl203127203429_ + _e203132203432_ + _hd203131203435_ + _tl203130203437_ + _e203135203440_ + _hd203134203443_ + _tl203133203445_ + _e203138203448_ + _hd203137203451_ + _tl203136203453_)) + (___kont211316211317_)))) + (___kont211316211317_)) + (___kont211316211317_)) + (___kont211316211317_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont208967208968_)))) - (___kont208967208968_)) - (___kont208967208968_)))) - (___kont208967208968_)) - (___kont208967208968_)) - (___kont208967208968_)))) + (___kont211316211317_)))) + (___kont211316211317_)) + (___kont211316211317_)))) + (___kont211316211317_)) + (___kont211316211317_)) + (___kont211316211317_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont208967208968_)))) - (___kont208967208968_)) - (___kont208967208968_)) - (___kont208967208968_)))) - (___kont208967208968_)))) - (___kont208967208968_))))))) + (___kont211316211317_)))) + (___kont211316211317_)) + (___kont211316211317_)) + (___kont211316211317_)))) + (___kont211316211317_)))) + (___kont211316211317_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop200860201124_ - _target200857201119_ + (_loop203109203373_ + _target203106203368_ '()))))) - (___match208982208983_ - (lambda (_e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_) - (letrec ((_loop200812201384_ - (lambda (_hd200810201387_ - _arg200816201389_) + (___match211331211332_ + (lambda (_e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_) + (letrec ((_loop203061203633_ + (lambda (_hd203059203636_ + _arg203065203638_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200810201387_)) - (let ((_e200813201392_ + _hd203059203636_)) + (let ((_e203062203641_ (let () (declare (not safe)) (gx#stx-e - _hd200810201387_)))) - (let ((_lp-tl200815201397_ + _hd203059203636_)))) + (let ((_lp-tl203064203646_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e200813201392_))) - (_lp-hd200814201395_ - (let () (declare (not safe)) (##car _e200813201392_)))) - (let ((__tmp210401 + (##cdr _e203062203641_))) + (_lp-hd203063203644_ + (let () (declare (not safe)) (##car _e203062203641_)))) + (let ((__tmp212750 (let () (declare (not safe)) - (cons _lp-hd200814201395_ _arg200816201389_)))) + (cons _lp-hd203063203644_ _arg203065203638_)))) (declare (not safe)) - (_loop200812201384_ _lp-tl200815201397_ __tmp210401)))) + (_loop203061203633_ _lp-tl203064203646_ __tmp212750)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg200817201400_ - (reverse _arg200816201389_))) + (let ((_arg203066203649_ + (reverse _arg203065203638_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200806201376_)) - (let ((_e200820201403_ + _tl203055203625_)) + (let ((_e203069203652_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl200806201376_)))) - (let ((_tl200818201408_ + (gx#stx-e _tl203055203625_)))) + (let ((_tl203067203657_ (let () (declare (not safe)) - (##cdr _e200820201403_))) - (_hd200819201406_ + (##cdr _e203069203652_))) + (_hd203068203655_ (let () (declare (not safe)) - (##car _e200820201403_)))) + (##car _e203069203652_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200819201406_)) - (let ((_e200823201411_ + (gx#stx-pair? _hd203068203655_)) + (let ((_e203072203660_ (let () (declare (not safe)) - (gx#stx-e _hd200819201406_)))) - (let ((_tl200821201416_ + (gx#stx-e _hd203068203655_)))) + (let ((_tl203070203665_ (let () (declare (not safe)) - (##cdr _e200823201411_))) - (_hd200822201414_ + (##cdr _e203072203660_))) + (_hd203071203663_ (let () (declare (not safe)) - (##car _e200823201411_)))) + (##car _e203072203660_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200822201414_)) + (gx#identifier? _hd203071203663_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd200822201414_)) + (gx#stx-eq? '%#call _hd203071203663_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200821201416_)) - (let ((_e200826201419_ + (gx#stx-pair? _tl203070203665_)) + (let ((_e203075203668_ (let () (declare (not safe)) (gx#stx-e - _tl200821201416_)))) - (let ((_tl200824201424_ + _tl203070203665_)))) + (let ((_tl203073203673_ (let () (declare (not safe)) - (##cdr _e200826201419_))) - (_hd200825201422_ + (##cdr _e203075203668_))) + (_hd203074203671_ (let () (declare (not safe)) - (##car _e200826201419_)))) + (##car _e203075203668_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200825201422_)) - (let ((_e200829201427_ + _hd203074203671_)) + (let ((_e203078203676_ (let () (declare (not safe)) (gx#stx-e - _hd200825201422_)))) - (let ((_tl200827201432_ + _hd203074203671_)))) + (let ((_tl203076203681_ (let () (declare (not safe)) - (##cdr _e200829201427_))) - (_hd200828201430_ + (##cdr _e203078203676_))) + (_hd203077203679_ (let () (declare (not safe)) - (##car _e200829201427_)))) + (##car _e203078203676_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd200828201430_)) + _hd203077203679_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd200828201430_)) + (gx#stx-eq? '%#ref _hd203077203679_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200827201432_)) - (let ((_e200832201435_ + (gx#stx-pair? _tl203076203681_)) + (let ((_e203081203684_ (let () (declare (not safe)) - (gx#stx-e _tl200827201432_)))) - (let ((_tl200830201440_ + (gx#stx-e _tl203076203681_)))) + (let ((_tl203079203689_ (let () (declare (not safe)) - (##cdr _e200832201435_))) - (_hd200831201438_ + (##cdr _e203081203684_))) + (_hd203080203687_ (let () (declare (not safe)) - (##car _e200832201435_)))) + (##car _e203081203684_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200830201440_)) + (gx#stx-null? _tl203079203689_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl200824201424_)) - (let ((___splice208957208958_ + (gx#stx-pair/null? _tl203073203673_)) + (let ((___splice211306211307_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl200824201424_ + _tl203073203673_ '0)))) - (let ((_tl200835201445_ + (let ((_tl203084203694_ (let () (declare (not safe)) (##vector-ref - ___splice208957208958_ + ___splice211306211307_ '1))) - (_target200833201443_ + (_target203082203692_ (let () (declare (not safe)) (##vector-ref - ___splice208957208958_ + ___splice211306211307_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200835201445_)) - (letrec ((_loop200836201448_ - (lambda (_hd200834201451_ + _tl203084203694_)) + (letrec ((_loop203085203697_ + (lambda (_hd203083203700_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg200840201453_) + _xarg203089203702_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200834201451_)) - (let ((_e200837201456_ + (gx#stx-pair? _hd203083203700_)) + (let ((_e203086203705_ (let () (declare (not safe)) - (gx#stx-e _hd200834201451_)))) - (let ((_lp-tl200839201461_ + (gx#stx-e _hd203083203700_)))) + (let ((_lp-tl203088203710_ (let () (declare (not safe)) - (##cdr _e200837201456_))) - (_lp-hd200838201459_ + (##cdr _e203086203705_))) + (_lp-hd203087203708_ (let () (declare (not safe)) - (##car _e200837201456_)))) + (##car _e203086203705_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd200838201459_)) - (let ((_e200844201464_ + (gx#stx-pair? _lp-hd203087203708_)) + (let ((_e203093203713_ (let () (declare (not safe)) - (gx#stx-e _lp-hd200838201459_)))) - (let ((_tl200842201469_ + (gx#stx-e _lp-hd203087203708_)))) + (let ((_tl203091203718_ (let () (declare (not safe)) - (##cdr _e200844201464_))) - (_hd200843201467_ + (##cdr _e203093203713_))) + (_hd203092203716_ (let () (declare (not safe)) - (##car _e200844201464_)))) + (##car _e203093203713_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200843201467_)) + (gx#identifier? _hd203092203716_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200843201467_)) + _hd203092203716_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200842201469_)) - (let ((_e200847201472_ + _tl203091203718_)) + (let ((_e203096203721_ (let () (declare (not safe)) (gx#stx-e - _tl200842201469_)))) - (let ((_tl200845201477_ + _tl203091203718_)))) + (let ((_tl203094203726_ (let () (declare (not safe)) - (##cdr _e200847201472_))) - (_hd200846201475_ + (##cdr _e203096203721_))) + (_hd203095203724_ (let () (declare (not safe)) - (##car _e200847201472_)))) + (##car _e203096203721_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200845201477_)) - (let ((__tmp210400 + _tl203094203726_)) + (let ((__tmp212749 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _hd200846201475_ _xarg200840201453_)))) + (cons _hd203095203724_ _xarg203089203702_)))) (declare (not safe)) - (_loop200836201448_ _lp-tl200839201461_ __tmp210400)) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)))) + (_loop203085203697_ _lp-tl203088203710_ __tmp212749)) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)))) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)))) - (let ((_xarg200841201480_ (reverse _xarg200840201453_))) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)))) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)))) + (let ((_xarg203090203729_ (reverse _xarg203089203702_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200818201408_)) - (let ((_L201483_ _xarg200841201480_) - (_L201484_ _hd200831201438_) - (_L201485_ _arg200817201400_)) - (if (and (let ((__tmp210398 - (let ((__tmp210399 - (lambda (_g201513201516_ - _g201514201518_) + (gx#stx-null? _tl203067203657_)) + (let ((_L203732_ _xarg203090203729_) + (_L203733_ _hd203080203687_) + (_L203734_ _arg203066203649_)) + (if (and (let ((__tmp212747 + (let ((__tmp212748 + (lambda (_g203762203765_ + _g203763203767_) (let () (declare (not safe)) - (cons _g201513201516_ - _g201514201518_))))) + (cons _g203762203765_ + _g203763203767_))))) (declare (not safe)) - (foldr1 __tmp210399 + (foldr1 __tmp212748 '() - _L201485_)))) + _L203734_)))) (declare (not safe)) - (gx#identifier-list? __tmp210398)) - (fx= (length (let ((__tmp210396 - (lambda (_g201520201523_ + (gx#identifier-list? __tmp212747)) + (fx= (length (let ((__tmp212745 + (lambda (_g203769203772_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g201521201525_) + _g203770203774_) (let () (declare (not safe)) - (cons _g201520201523_ _g201521201525_))))) + (cons _g203769203772_ _g203770203774_))))) (declare (not safe)) - (foldr1 __tmp210396 '() _L201485_))) + (foldr1 __tmp212745 '() _L203734_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (length (let ((__tmp210397 - (lambda (_g201527201530_ + (length (let ((__tmp212746 + (lambda (_g203776203779_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g201528201532_) + _g203777203781_) (let () (declare (not safe)) - (cons _g201527201530_ _g201528201532_))))) + (cons _g203776203779_ _g203777203781_))))) (declare (not safe)) - (foldr1 __tmp210397 '() _L201483_)))) + (foldr1 __tmp212746 '() _L203732_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp210394 - (let ((__tmp210395 - (lambda (_g201534201537_ - _g201535201539_) + (let ((__tmp212743 + (let ((__tmp212744 + (lambda (_g203783203786_ + _g203784203788_) (let () (declare (not safe)) - (cons _g201534201537_ - _g201535201539_))))) + (cons _g203783203786_ + _g203784203788_))))) (declare (not safe)) - (foldr1 __tmp210395 + (foldr1 __tmp212744 '() - _L201485_))) - (__tmp210392 - (let ((__tmp210393 - (lambda (_g201541201544_ - _g201542201546_) + _L203734_))) + (__tmp212741 + (let ((__tmp212742 + (lambda (_g203790203793_ + _g203791203795_) (let () (declare (not safe)) - (cons _g201541201544_ - _g201542201546_))))) + (cons _g203790203793_ + _g203791203795_))))) (declare (not safe)) - (foldr1 __tmp210393 + (foldr1 __tmp212742 '() - _L201483_)))) + _L203732_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp210394 - __tmp210392)) - (let ((__tmp210388 - (let ((__tmp210391 - (lambda (_g201548201550_) + __tmp212743 + __tmp212741)) + (let ((__tmp212737 + (let ((__tmp212740 + (lambda (_g203797203799_) (let () (declare (not safe)) (gx#free-identifier=? - _g201548201550_ - _L201484_)))) - (__tmp210389 - (let ((__tmp210390 - (lambda (_g201552201555_ + _g203797203799_ + _L203733_)))) + (__tmp212738 + (let ((__tmp212739 + (lambda (_g203801203804_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g201553201557_) + _g203802203806_) (let () (declare (not safe)) - (cons _g201552201555_ _g201553201557_))))) + (cons _g203801203804_ _g203802203806_))))) (declare (not safe)) - (foldr1 __tmp210390 '() _L201485_)))) + (foldr1 __tmp212739 '() _L203734_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (find __tmp210391 - __tmp210389)))) + (find __tmp212740 + __tmp212738)))) (declare (not safe)) - (not __tmp210388))) - (___kont208953208954_ - _L201483_ - _L201484_ - _L201485_) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_))) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_))))))) + (not __tmp212737))) + (___kont211302211303_ + _L203732_ + _L203733_ + _L203734_) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_))) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop200836201448_ - _target200833201443_ + (_loop203085203697_ + _target203082203692_ '()))) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)))) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)))) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)))) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)))) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)))) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)))) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)))) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)))) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_))))))) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)))) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)))) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)))) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop200812201384_ - _target200809201379_ + (_loop203061203633_ + _target203058203628_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx208951208952_)) - (let ((_e200808201371_ + (gx#stx-pair? ___stx211300211301_)) + (let ((_e203057203620_ (let () (declare (not safe)) - (gx#stx-e ___stx208951208952_)))) - (let ((_tl200806201376_ + (gx#stx-e ___stx211300211301_)))) + (let ((_tl203055203625_ (let () (declare (not safe)) - (##cdr _e200808201371_))) - (_hd200807201374_ + (##cdr _e203057203620_))) + (_hd203056203623_ (let () (declare (not safe)) - (##car _e200808201371_)))) + (##car _e203057203620_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd200807201374_)) - (let ((___splice208955208956_ + (gx#stx-pair/null? _hd203056203623_)) + (let ((___splice211304211305_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd200807201374_ + _hd203056203623_ '0)))) - (let ((_tl200811201381_ + (let ((_tl203060203630_ (let () (declare (not safe)) (##vector-ref - ___splice208955208956_ + ___splice211304211305_ '1))) - (_target200809201379_ + (_target203058203628_ (let () (declare (not safe)) (##vector-ref - ___splice208955208956_ + ___splice211304211305_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200811201381_)) - (___match208982208983_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_) - (___match208994208995_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - ___splice208955208956_ - _target200809201379_ - _tl200811201381_)))) + _tl203060203630_)) + (___match211331211332_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_) + (___match211343211344_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + ___splice211304211305_ + _target203058203628_ + _tl203060203630_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200806201376_)) - (let ((_e200923200978_ + (gx#stx-pair? _tl203055203625_)) + (let ((_e203172203227_ (let () (declare (not safe)) (gx#stx-e - _tl200806201376_)))) - (let ((_tl200921200983_ + _tl203055203625_)))) + (let ((_tl203170203232_ (let () (declare (not safe)) - (##cdr _e200923200978_))) - (_hd200922200981_ + (##cdr _e203172203227_))) + (_hd203171203230_ (let () (declare (not safe)) - (##car _e200923200978_)))) + (##car _e203172203227_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200922200981_)) - (let ((_e200926200986_ + _hd203171203230_)) + (let ((_e203175203235_ (let () (declare (not safe)) (gx#stx-e - _hd200922200981_)))) - (let ((_tl200924200991_ + _hd203171203230_)))) + (let ((_tl203173203240_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e200926200986_))) - (_hd200925200989_ - (let () (declare (not safe)) (##car _e200926200986_)))) + (##cdr _e203175203235_))) + (_hd203174203238_ + (let () (declare (not safe)) (##car _e203175203235_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200925200989_)) + (gx#identifier? _hd203174203238_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd200925200989_)) + (gx#stx-eq? '%#call _hd203174203238_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200924200991_)) - (let ((_e200929200994_ + (gx#stx-pair? _tl203173203240_)) + (let ((_e203178203243_ (let () (declare (not safe)) - (gx#stx-e _tl200924200991_)))) - (let ((_tl200927200999_ + (gx#stx-e _tl203173203240_)))) + (let ((_tl203176203248_ (let () (declare (not safe)) - (##cdr _e200929200994_))) - (_hd200928200997_ + (##cdr _e203178203243_))) + (_hd203177203246_ (let () (declare (not safe)) - (##car _e200929200994_)))) + (##car _e203178203243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200928200997_)) - (let ((_e200932201002_ + (gx#stx-pair? _hd203177203246_)) + (let ((_e203181203251_ (let () (declare (not safe)) - (gx#stx-e _hd200928200997_)))) - (let ((_tl200930201007_ + (gx#stx-e _hd203177203246_)))) + (let ((_tl203179203256_ (let () (declare (not safe)) - (##cdr _e200932201002_))) - (_hd200931201005_ + (##cdr _e203181203251_))) + (_hd203180203254_ (let () (declare (not safe)) - (##car _e200932201002_)))) + (##car _e203181203251_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd200931201005_)) + _hd203180203254_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200931201005_)) + _hd203180203254_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200930201007_)) - (let ((_e200935201010_ + _tl203179203256_)) + (let ((_e203184203259_ (let () (declare (not safe)) (gx#stx-e - _tl200930201007_)))) - (let ((_tl200933201015_ + _tl203179203256_)))) + (let ((_tl203182203264_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e200935201010_))) - (_hd200934201013_ - (let () (declare (not safe)) (##car _e200935201010_)))) + (##cdr _e203184203259_))) + (_hd203183203262_ + (let () (declare (not safe)) (##car _e203184203259_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200933201015_)) + (gx#stx-null? _tl203182203264_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200927200999_)) - (let ((_e200938201018_ + (gx#stx-pair? _tl203176203248_)) + (let ((_e203187203267_ (let () (declare (not safe)) - (gx#stx-e _tl200927200999_)))) - (let ((_tl200936201023_ + (gx#stx-e _tl203176203248_)))) + (let ((_tl203185203272_ (let () (declare (not safe)) - (##cdr _e200938201018_))) - (_hd200937201021_ + (##cdr _e203187203267_))) + (_hd203186203270_ (let () (declare (not safe)) - (##car _e200938201018_)))) + (##car _e203187203267_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200937201021_)) - (let ((_e200941201026_ + (gx#stx-pair? _hd203186203270_)) + (let ((_e203190203275_ (let () (declare (not safe)) - (gx#stx-e _hd200937201021_)))) - (let ((_tl200939201031_ + (gx#stx-e _hd203186203270_)))) + (let ((_tl203188203280_ (let () (declare (not safe)) - (##cdr _e200941201026_))) - (_hd200940201029_ + (##cdr _e203190203275_))) + (_hd203189203278_ (let () (declare (not safe)) - (##car _e200941201026_)))) + (##car _e203190203275_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200940201029_)) + (gx#identifier? _hd203189203278_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200940201029_)) + _hd203189203278_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200939201031_)) - (let ((_e200944201034_ + _tl203188203280_)) + (let ((_e203193203283_ (let () (declare (not safe)) (gx#stx-e - _tl200939201031_)))) - (let ((_tl200942201039_ + _tl203188203280_)))) + (let ((_tl203191203288_ (let () (declare (not safe)) - (##cdr _e200944201034_))) - (_hd200943201037_ + (##cdr _e203193203283_))) + (_hd203192203286_ (let () (declare (not safe)) - (##car _e200944201034_)))) + (##car _e203193203283_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200942201039_)) + _tl203191203288_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200936201023_)) - (let ((_e200947201042_ + _tl203185203272_)) + (let ((_e203196203291_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl200936201023_)))) - (let ((_tl200945201047_ + (gx#stx-e _tl203185203272_)))) + (let ((_tl203194203296_ (let () (declare (not safe)) - (##cdr _e200947201042_))) - (_hd200946201045_ + (##cdr _e203196203291_))) + (_hd203195203294_ (let () (declare (not safe)) - (##car _e200947201042_)))) + (##car _e203196203291_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200946201045_)) - (let ((_e200950201050_ + (gx#stx-pair? _hd203195203294_)) + (let ((_e203199203299_ (let () (declare (not safe)) - (gx#stx-e _hd200946201045_)))) - (let ((_tl200948201055_ + (gx#stx-e _hd203195203294_)))) + (let ((_tl203197203304_ (let () (declare (not safe)) - (##cdr _e200950201050_))) - (_hd200949201053_ + (##cdr _e203199203299_))) + (_hd203198203302_ (let () (declare (not safe)) - (##car _e200950201050_)))) + (##car _e203199203299_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200949201053_)) + (gx#identifier? _hd203198203302_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd200949201053_)) + (gx#stx-eq? '%#ref _hd203198203302_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200948201055_)) - (let ((_e200953201058_ + (gx#stx-pair? _tl203197203304_)) + (let ((_e203202203307_ (let () (declare (not safe)) (gx#stx-e - _tl200948201055_)))) - (let ((_tl200951201063_ + _tl203197203304_)))) + (let ((_tl203200203312_ (let () (declare (not safe)) - (##cdr _e200953201058_))) - (_hd200952201061_ + (##cdr _e203202203307_))) + (_hd203201203310_ (let () (declare (not safe)) - (##car _e200953201058_)))) + (##car _e203202203307_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200951201063_)) + _tl203200203312_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl200945201047_)) + _tl203194203296_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl200921200983_)) - (___match209092209093_ - _e200808201371_ - _hd200807201374_ - _tl200806201376_ - _e200923200978_ - _hd200922200981_ - _tl200921200983_ - _e200926200986_ - _hd200925200989_ - _tl200924200991_ - _e200929200994_ - _hd200928200997_ - _tl200927200999_ - _e200932201002_ - _hd200931201005_ - _tl200930201007_ - _e200935201010_ - _hd200934201013_ - _tl200933201015_ - _e200938201018_ - _hd200937201021_ - _tl200936201023_ - _e200941201026_ - _hd200940201029_ - _tl200939201031_ - _e200944201034_ - _hd200943201037_ - _tl200942201039_ - _e200947201042_ - _hd200946201045_ - _tl200945201047_ - _e200950201050_ - _hd200949201053_ - _tl200948201055_ - _e200953201058_ - _hd200952201061_ - _tl200951201063_) - (___kont208967208968_)) - (___kont208967208968_)) - (___kont208967208968_)))) - (___kont208967208968_)) - (___kont208967208968_)) - (___kont208967208968_)))) - (___kont208967208968_)))) - (___kont208967208968_)) - (___kont208967208968_)))) + _tl203170203232_)) + (___match211441211442_ + _e203057203620_ + _hd203056203623_ + _tl203055203625_ + _e203172203227_ + _hd203171203230_ + _tl203170203232_ + _e203175203235_ + _hd203174203238_ + _tl203173203240_ + _e203178203243_ + _hd203177203246_ + _tl203176203248_ + _e203181203251_ + _hd203180203254_ + _tl203179203256_ + _e203184203259_ + _hd203183203262_ + _tl203182203264_ + _e203187203267_ + _hd203186203270_ + _tl203185203272_ + _e203190203275_ + _hd203189203278_ + _tl203188203280_ + _e203193203283_ + _hd203192203286_ + _tl203191203288_ + _e203196203291_ + _hd203195203294_ + _tl203194203296_ + _e203199203299_ + _hd203198203302_ + _tl203197203304_ + _e203202203307_ + _hd203201203310_ + _tl203200203312_) + (___kont211316211317_)) + (___kont211316211317_)) + (___kont211316211317_)))) + (___kont211316211317_)) + (___kont211316211317_)) + (___kont211316211317_)))) + (___kont211316211317_)))) + (___kont211316211317_)) + (___kont211316211317_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont208967208968_)) - (___kont208967208968_)) - (___kont208967208968_)))) - (___kont208967208968_)))) - (___kont208967208968_)) - (___kont208967208968_)))) + (___kont211316211317_)) + (___kont211316211317_)) + (___kont211316211317_)))) + (___kont211316211317_)))) + (___kont211316211317_)) + (___kont211316211317_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont208967208968_)) - (___kont208967208968_)) - (___kont208967208968_)))) - (___kont208967208968_)))) - (___kont208967208968_)) - (___kont208967208968_)) - (___kont208967208968_)))) + (___kont211316211317_)) + (___kont211316211317_)) + (___kont211316211317_)))) + (___kont211316211317_)))) + (___kont211316211317_)) + (___kont211316211317_)) + (___kont211316211317_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont208967208968_)))) - (___kont208967208968_))))) - (___kont208967208968_))))))) - (_dispatch-case-e200109_ - (lambda (_hd200257_ _body200258_) - (let* ((_form200260_ - (let ((__tmp210402 + (___kont211316211317_)))) + (___kont211316211317_))))) + (___kont211316211317_))))))) + (_dispatch-case-e202358_ + (lambda (_hd202506_ _body202507_) + (let* ((_form202509_ + (let ((__tmp212751 (let () (declare (not safe)) - (cons _body200258_ '())))) + (cons _body202507_ '())))) (declare (not safe)) - (cons _hd200257_ __tmp210402))) - (___stx209095209096_ _form200260_) - (_g200264200388_ + (cons _hd202506_ __tmp212751))) + (___stx211444211445_ _form202509_) + (_g202513202637_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209095209096_))))) - (let ((___kont209097209098_ - (lambda (_L200759_ _L200760_ _L200761_) - (let ((__tmp210403 - (let ((__tmp210405 + ___stx211444211445_))))) + (let ((___kont211446211447_ + (lambda (_L203008_ _L203009_ _L203010_) + (let ((__tmp212752 + (let ((__tmp212754 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp210404 + (__tmp212753 (let () (declare (not safe)) - (cons _L200760_ '())))) + (cons _L203009_ '())))) (declare (not safe)) - (cons __tmp210405 __tmp210404)))) + (cons __tmp212754 __tmp212753)))) (declare (not safe)) - (gxc#compile-e__0 __tmp210403)))) - (___kont209103209104_ - (lambda (_L200607_ - _L200608_ - _L200609_ - _L200610_) - (let ((__tmp210406 - (let ((__tmp210408 + (gxc#compile-e__0 __tmp212752)))) + (___kont211452211453_ + (lambda (_L202856_ + _L202857_ + _L202858_ + _L202859_) + (let ((__tmp212755 + (let ((__tmp212757 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp210407 + (__tmp212756 (let () (declare (not safe)) - (cons _L200607_ '())))) + (cons _L202856_ '())))) (declare (not safe)) - (cons __tmp210408 __tmp210407)))) + (cons __tmp212757 __tmp212756)))) (declare (not safe)) - (gxc#compile-e__0 __tmp210406)))) - (___kont209107209108_ - (lambda (_L200473_ _L200474_ _L200475_) - (let ((__tmp210409 - (let ((__tmp210411 + (gxc#compile-e__0 __tmp212755)))) + (___kont211456211457_ + (lambda (_L202722_ _L202723_ _L202724_) + (let ((__tmp212758 + (let ((__tmp212760 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp210410 + (__tmp212759 (let () (declare (not safe)) - (cons _L200473_ '())))) + (cons _L202722_ '())))) (declare (not safe)) - (cons __tmp210411 __tmp210410)))) + (cons __tmp212760 __tmp212759)))) (declare (not safe)) - (gxc#compile-e__0 __tmp210409))))) - (let* ((___match209204209205_ - (lambda (_e200356200393_ - _hd200355200396_ - _tl200354200398_ - _e200359200401_ - _hd200358200404_ - _tl200357200406_ - _e200362200409_ - _hd200361200412_ - _tl200360200414_ - _e200365200417_ - _hd200364200420_ - _tl200363200422_ - _e200368200425_ - _hd200367200428_ - _tl200366200430_ - _e200371200433_ - _hd200370200436_ - _tl200369200438_ - _e200374200441_ - _hd200373200444_ - _tl200372200446_ - _e200377200449_ - _hd200376200452_ - _tl200375200454_ - _e200380200457_ - _hd200379200460_ - _tl200378200462_) + (gxc#compile-e__0 __tmp212758))))) + (let* ((___match211553211554_ + (lambda (_e202605202642_ + _hd202604202645_ + _tl202603202647_ + _e202608202650_ + _hd202607202653_ + _tl202606202655_ + _e202611202658_ + _hd202610202661_ + _tl202609202663_ + _e202614202666_ + _hd202613202669_ + _tl202612202671_ + _e202617202674_ + _hd202616202677_ + _tl202615202679_ + _e202620202682_ + _hd202619202685_ + _tl202618202687_ + _e202623202690_ + _hd202622202693_ + _tl202621202695_ + _e202626202698_ + _hd202625202701_ + _tl202624202703_ + _e202629202706_ + _hd202628202709_ + _tl202627202711_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200372200446_)) - (let ((_e200383200465_ + (gx#stx-pair? _tl202621202695_)) + (let ((_e202632202714_ (let () (declare (not safe)) - (gx#stx-e _tl200372200446_)))) - (let ((_tl200381200470_ + (gx#stx-e _tl202621202695_)))) + (let ((_tl202630202719_ (let () (declare (not safe)) - (##cdr _e200383200465_))) - (_hd200382200468_ + (##cdr _e202632202714_))) + (_hd202631202717_ (let () (declare (not safe)) - (##car _e200383200465_)))) + (##car _e202632202714_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200381200470_)) + _tl202630202719_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl200357200406_)) - (___kont209107209108_ - _hd200379200460_ - _hd200370200436_ - _hd200355200396_) + _tl202606202655_)) + (___kont211456211457_ + _hd202628202709_ + _hd202619202685_ + _hd202604202645_) (let () (declare (not safe)) - (_g200264200388_))) + (_g202513202637_))) (let () (declare (not safe)) - (_g200264200388_))))) + (_g202513202637_))))) (let () (declare (not safe)) - (_g200264200388_))))) - (___match209134209135_ - (lambda (_e200317200511_ - _hd200316200514_ - _tl200315200516_ - ___splice209105209106_ - _target200318200519_ - _tl200320200521_) - (letrec ((_loop200321200524_ - (lambda (_hd200319200527_ - _arg200325200529_) + (_g202513202637_))))) + (___match211483211484_ + (lambda (_e202566202760_ + _hd202565202763_ + _tl202564202765_ + ___splice211454211455_ + _target202567202768_ + _tl202569202770_) + (letrec ((_loop202570202773_ + (lambda (_hd202568202776_ + _arg202574202778_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200319200527_)) - (let ((_e200322200532_ + _hd202568202776_)) + (let ((_e202571202781_ (let () (declare (not safe)) (gx#stx-e - _hd200319200527_)))) - (let ((_lp-tl200324200537_ + _hd202568202776_)))) + (let ((_lp-tl202573202786_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e200322200532_))) - (_lp-hd200323200535_ - (let () (declare (not safe)) (##car _e200322200532_)))) - (let ((__tmp210412 + (##cdr _e202571202781_))) + (_lp-hd202572202784_ + (let () (declare (not safe)) (##car _e202571202781_)))) + (let ((__tmp212761 (let () (declare (not safe)) - (cons _lp-hd200323200535_ _arg200325200529_)))) + (cons _lp-hd202572202784_ _arg202574202778_)))) (declare (not safe)) - (_loop200321200524_ _lp-tl200324200537_ __tmp210412)))) + (_loop202570202773_ _lp-tl202573202786_ __tmp212761)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg200326200540_ - (reverse _arg200325200529_))) + (let ((_arg202575202789_ + (reverse _arg202574202778_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200315200516_)) - (let ((_e200329200543_ + _tl202564202765_)) + (let ((_e202578202792_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl200315200516_)))) - (let ((_tl200327200548_ + (gx#stx-e _tl202564202765_)))) + (let ((_tl202576202797_ (let () (declare (not safe)) - (##cdr _e200329200543_))) - (_hd200328200546_ + (##cdr _e202578202792_))) + (_hd202577202795_ (let () (declare (not safe)) - (##car _e200329200543_)))) + (##car _e202578202792_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200328200546_)) - (let ((_e200332200551_ + (gx#stx-pair? _hd202577202795_)) + (let ((_e202581202800_ (let () (declare (not safe)) - (gx#stx-e _hd200328200546_)))) - (let ((_tl200330200556_ + (gx#stx-e _hd202577202795_)))) + (let ((_tl202579202805_ (let () (declare (not safe)) - (##cdr _e200332200551_))) - (_hd200331200554_ + (##cdr _e202581202800_))) + (_hd202580202803_ (let () (declare (not safe)) - (##car _e200332200551_)))) + (##car _e202581202800_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200331200554_)) + (gx#identifier? _hd202580202803_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd200331200554_)) + (gx#stx-eq? '%#call _hd202580202803_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200330200556_)) - (let ((_e200335200559_ + (gx#stx-pair? _tl202579202805_)) + (let ((_e202584202808_ (let () (declare (not safe)) (gx#stx-e - _tl200330200556_)))) - (let ((_tl200333200564_ + _tl202579202805_)))) + (let ((_tl202582202813_ (let () (declare (not safe)) - (##cdr _e200335200559_))) - (_hd200334200562_ + (##cdr _e202584202808_))) + (_hd202583202811_ (let () (declare (not safe)) - (##car _e200335200559_)))) + (##car _e202584202808_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200334200562_)) - (let ((_e200338200567_ + _hd202583202811_)) + (let ((_e202587202816_ (let () (declare (not safe)) (gx#stx-e - _hd200334200562_)))) - (let ((_tl200336200572_ + _hd202583202811_)))) + (let ((_tl202585202821_ (let () (declare (not safe)) - (##cdr _e200338200567_))) - (_hd200337200570_ + (##cdr _e202587202816_))) + (_hd202586202819_ (let () (declare (not safe)) - (##car _e200338200567_)))) + (##car _e202587202816_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd200337200570_)) + _hd202586202819_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd200337200570_)) + (gx#stx-eq? '%#ref _hd202586202819_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200336200572_)) - (let ((_e200341200575_ + (gx#stx-pair? _tl202585202821_)) + (let ((_e202590202824_ (let () (declare (not safe)) - (gx#stx-e _tl200336200572_)))) - (let ((_tl200339200580_ + (gx#stx-e _tl202585202821_)))) + (let ((_tl202588202829_ (let () (declare (not safe)) - (##cdr _e200341200575_))) - (_hd200340200578_ + (##cdr _e202590202824_))) + (_hd202589202827_ (let () (declare (not safe)) - (##car _e200341200575_)))) + (##car _e202590202824_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200339200580_)) + (gx#stx-null? _tl202588202829_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200333200564_)) - (let ((_e200344200583_ + (gx#stx-pair? _tl202582202813_)) + (let ((_e202593202832_ (let () (declare (not safe)) - (gx#stx-e _tl200333200564_)))) - (let ((_tl200342200588_ + (gx#stx-e _tl202582202813_)))) + (let ((_tl202591202837_ (let () (declare (not safe)) - (##cdr _e200344200583_))) - (_hd200343200586_ + (##cdr _e202593202832_))) + (_hd202592202835_ (let () (declare (not safe)) - (##car _e200344200583_)))) + (##car _e202593202832_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200343200586_)) - (let ((_e200347200591_ + _hd202592202835_)) + (let ((_e202596202840_ (let () (declare (not safe)) (gx#stx-e - _hd200343200586_)))) - (let ((_tl200345200596_ + _hd202592202835_)))) + (let ((_tl202594202845_ (let () (declare (not safe)) - (##cdr _e200347200591_))) - (_hd200346200594_ + (##cdr _e202596202840_))) + (_hd202595202843_ (let () (declare (not safe)) - (##car _e200347200591_)))) + (##car _e202596202840_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd200346200594_)) + _hd202595202843_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200346200594_)) + _hd202595202843_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl200345200596_)) - (let ((_e200350200599_ + (gx#stx-pair? _tl202594202845_)) + (let ((_e202599202848_ (let () (declare (not safe)) - (gx#stx-e _tl200345200596_)))) - (let ((_tl200348200604_ + (gx#stx-e _tl202594202845_)))) + (let ((_tl202597202853_ (let () (declare (not safe)) - (##cdr _e200350200599_))) - (_hd200349200602_ + (##cdr _e202599202848_))) + (_hd202598202851_ (let () (declare (not safe)) - (##car _e200350200599_)))) + (##car _e202599202848_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200348200604_)) + (gx#stx-null? _tl202597202853_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl200327200548_)) - (___kont209103209104_ - _hd200349200602_ - _hd200340200578_ - _tl200320200521_ - _arg200326200540_) - (___match209204209205_ - _e200317200511_ - _hd200316200514_ - _tl200315200516_ - _e200329200543_ - _hd200328200546_ - _tl200327200548_ - _e200332200551_ - _hd200331200554_ - _tl200330200556_ - _e200335200559_ - _hd200334200562_ - _tl200333200564_ - _e200338200567_ - _hd200337200570_ - _tl200336200572_ - _e200341200575_ - _hd200340200578_ - _tl200339200580_ - _e200344200583_ - _hd200343200586_ - _tl200342200588_ - _e200347200591_ - _hd200346200594_ - _tl200345200596_ - _e200350200599_ - _hd200349200602_ - _tl200348200604_)) + (gx#stx-null? _tl202576202797_)) + (___kont211452211453_ + _hd202598202851_ + _hd202589202827_ + _tl202569202770_ + _arg202575202789_) + (___match211553211554_ + _e202566202760_ + _hd202565202763_ + _tl202564202765_ + _e202578202792_ + _hd202577202795_ + _tl202576202797_ + _e202581202800_ + _hd202580202803_ + _tl202579202805_ + _e202584202808_ + _hd202583202811_ + _tl202582202813_ + _e202587202816_ + _hd202586202819_ + _tl202585202821_ + _e202590202824_ + _hd202589202827_ + _tl202588202829_ + _e202593202832_ + _hd202592202835_ + _tl202591202837_ + _e202596202840_ + _hd202595202843_ + _tl202594202845_ + _e202599202848_ + _hd202598202851_ + _tl202597202853_)) (let () (declare (not safe)) - (_g200264200388_))))) - (let () (declare (not safe)) (_g200264200388_))) - (let () (declare (not safe)) (_g200264200388_))) - (let () (declare (not safe)) (_g200264200388_))))) + (_g202513202637_))))) + (let () (declare (not safe)) (_g202513202637_))) + (let () (declare (not safe)) (_g202513202637_))) + (let () (declare (not safe)) (_g202513202637_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g200264200388_))))) + (_g202513202637_))))) (let () (declare (not safe)) - (_g200264200388_))) + (_g202513202637_))) (let () (declare (not safe)) - (_g200264200388_))))) - (let () (declare (not safe)) (_g200264200388_))) - (let () (declare (not safe)) (_g200264200388_))) - (let () (declare (not safe)) (_g200264200388_))))) + (_g202513202637_))))) + (let () (declare (not safe)) (_g202513202637_))) + (let () (declare (not safe)) (_g202513202637_))) + (let () (declare (not safe)) (_g202513202637_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g200264200388_))))) + (_g202513202637_))))) (let () (declare (not safe)) - (_g200264200388_))) + (_g202513202637_))) (let () (declare (not safe)) - (_g200264200388_))) + (_g202513202637_))) (let () (declare (not safe)) - (_g200264200388_))))) - (let () (declare (not safe)) (_g200264200388_))))) - (let () (declare (not safe)) (_g200264200388_)))))))) + (_g202513202637_))))) + (let () (declare (not safe)) (_g202513202637_))))) + (let () (declare (not safe)) (_g202513202637_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop200321200524_ - _target200318200519_ + (_loop202570202773_ + _target202567202768_ '()))))) - (___match209122209123_ - (lambda (_e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_) - (letrec ((_loop200275200660_ - (lambda (_hd200273200663_ - _arg200279200665_) + (___match211471211472_ + (lambda (_e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_) + (letrec ((_loop202524202909_ + (lambda (_hd202522202912_ + _arg202528202914_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200273200663_)) - (let ((_e200276200668_ + _hd202522202912_)) + (let ((_e202525202917_ (let () (declare (not safe)) (gx#stx-e - _hd200273200663_)))) - (let ((_lp-tl200278200673_ + _hd202522202912_)))) + (let ((_lp-tl202527202922_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e200276200668_))) - (_lp-hd200277200671_ - (let () (declare (not safe)) (##car _e200276200668_)))) - (let ((__tmp210414 + (##cdr _e202525202917_))) + (_lp-hd202526202920_ + (let () (declare (not safe)) (##car _e202525202917_)))) + (let ((__tmp212763 (let () (declare (not safe)) - (cons _lp-hd200277200671_ _arg200279200665_)))) + (cons _lp-hd202526202920_ _arg202528202914_)))) (declare (not safe)) - (_loop200275200660_ _lp-tl200278200673_ __tmp210414)))) + (_loop202524202909_ _lp-tl202527202922_ __tmp212763)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg200280200676_ - (reverse _arg200279200665_))) + (let ((_arg202529202925_ + (reverse _arg202528202914_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200269200652_)) - (let ((_e200283200679_ + _tl202518202901_)) + (let ((_e202532202928_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl200269200652_)))) - (let ((_tl200281200684_ + (gx#stx-e _tl202518202901_)))) + (let ((_tl202530202933_ (let () (declare (not safe)) - (##cdr _e200283200679_))) - (_hd200282200682_ + (##cdr _e202532202928_))) + (_hd202531202931_ (let () (declare (not safe)) - (##car _e200283200679_)))) + (##car _e202532202928_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200282200682_)) - (let ((_e200286200687_ + (gx#stx-pair? _hd202531202931_)) + (let ((_e202535202936_ (let () (declare (not safe)) - (gx#stx-e _hd200282200682_)))) - (let ((_tl200284200692_ + (gx#stx-e _hd202531202931_)))) + (let ((_tl202533202941_ (let () (declare (not safe)) - (##cdr _e200286200687_))) - (_hd200285200690_ + (##cdr _e202535202936_))) + (_hd202534202939_ (let () (declare (not safe)) - (##car _e200286200687_)))) + (##car _e202535202936_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200285200690_)) + (gx#identifier? _hd202534202939_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd200285200690_)) + (gx#stx-eq? '%#call _hd202534202939_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200284200692_)) - (let ((_e200289200695_ + (gx#stx-pair? _tl202533202941_)) + (let ((_e202538202944_ (let () (declare (not safe)) (gx#stx-e - _tl200284200692_)))) - (let ((_tl200287200700_ + _tl202533202941_)))) + (let ((_tl202536202949_ (let () (declare (not safe)) - (##cdr _e200289200695_))) - (_hd200288200698_ + (##cdr _e202538202944_))) + (_hd202537202947_ (let () (declare (not safe)) - (##car _e200289200695_)))) + (##car _e202538202944_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200288200698_)) - (let ((_e200292200703_ + _hd202537202947_)) + (let ((_e202541202952_ (let () (declare (not safe)) (gx#stx-e - _hd200288200698_)))) - (let ((_tl200290200708_ + _hd202537202947_)))) + (let ((_tl202539202957_ (let () (declare (not safe)) - (##cdr _e200292200703_))) - (_hd200291200706_ + (##cdr _e202541202952_))) + (_hd202540202955_ (let () (declare (not safe)) - (##car _e200292200703_)))) + (##car _e202541202952_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd200291200706_)) + _hd202540202955_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd200291200706_)) + (gx#stx-eq? '%#ref _hd202540202955_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200290200708_)) - (let ((_e200295200711_ + (gx#stx-pair? _tl202539202957_)) + (let ((_e202544202960_ (let () (declare (not safe)) - (gx#stx-e _tl200290200708_)))) - (let ((_tl200293200716_ + (gx#stx-e _tl202539202957_)))) + (let ((_tl202542202965_ (let () (declare (not safe)) - (##cdr _e200295200711_))) - (_hd200294200714_ + (##cdr _e202544202960_))) + (_hd202543202963_ (let () (declare (not safe)) - (##car _e200295200711_)))) + (##car _e202544202960_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200293200716_)) + (gx#stx-null? _tl202542202965_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl200287200700_)) - (let ((___splice209101209102_ + (gx#stx-pair/null? _tl202536202949_)) + (let ((___splice211450211451_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl200287200700_ + _tl202536202949_ '0)))) - (let ((_tl200298200721_ + (let ((_tl202547202970_ (let () (declare (not safe)) (##vector-ref - ___splice209101209102_ + ___splice211450211451_ '1))) - (_target200296200719_ + (_target202545202968_ (let () (declare (not safe)) (##vector-ref - ___splice209101209102_ + ___splice211450211451_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200298200721_)) - (letrec ((_loop200299200724_ - (lambda (_hd200297200727_ + _tl202547202970_)) + (letrec ((_loop202548202973_ + (lambda (_hd202546202976_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg200303200729_) + _xarg202552202978_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200297200727_)) - (let ((_e200300200732_ + (gx#stx-pair? _hd202546202976_)) + (let ((_e202549202981_ (let () (declare (not safe)) - (gx#stx-e _hd200297200727_)))) - (let ((_lp-tl200302200737_ + (gx#stx-e _hd202546202976_)))) + (let ((_lp-tl202551202986_ (let () (declare (not safe)) - (##cdr _e200300200732_))) - (_lp-hd200301200735_ + (##cdr _e202549202981_))) + (_lp-hd202550202984_ (let () (declare (not safe)) - (##car _e200300200732_)))) + (##car _e202549202981_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd200301200735_)) - (let ((_e200307200740_ + (gx#stx-pair? _lp-hd202550202984_)) + (let ((_e202556202989_ (let () (declare (not safe)) - (gx#stx-e _lp-hd200301200735_)))) - (let ((_tl200305200745_ + (gx#stx-e _lp-hd202550202984_)))) + (let ((_tl202554202994_ (let () (declare (not safe)) - (##cdr _e200307200740_))) - (_hd200306200743_ + (##cdr _e202556202989_))) + (_hd202555202992_ (let () (declare (not safe)) - (##car _e200307200740_)))) + (##car _e202556202989_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200306200743_)) + (gx#identifier? _hd202555202992_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200306200743_)) + _hd202555202992_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200305200745_)) - (let ((_e200310200748_ + _tl202554202994_)) + (let ((_e202559202997_ (let () (declare (not safe)) (gx#stx-e - _tl200305200745_)))) - (let ((_tl200308200753_ + _tl202554202994_)))) + (let ((_tl202557203002_ (let () (declare (not safe)) - (##cdr _e200310200748_))) - (_hd200309200751_ + (##cdr _e202559202997_))) + (_hd202558203000_ (let () (declare (not safe)) - (##car _e200310200748_)))) + (##car _e202559202997_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200308200753_)) - (let ((__tmp210413 + _tl202557203002_)) + (let ((__tmp212762 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _hd200309200751_ _xarg200303200729_)))) + (cons _hd202558203000_ _xarg202552202978_)))) (declare (not safe)) - (_loop200299200724_ _lp-tl200302200737_ __tmp210413)) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)))) + (_loop202548202973_ _lp-tl202551202986_ __tmp212762)) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)))) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)))) - (let ((_xarg200304200756_ (reverse _xarg200303200729_))) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)))) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)))) + (let ((_xarg202553203005_ (reverse _xarg202552202978_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200281200684_)) - (___kont209097209098_ - _xarg200304200756_ - _hd200294200714_ - _arg200280200676_) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_))))))) + (gx#stx-null? _tl202530202933_)) + (___kont211446211447_ + _xarg202553203005_ + _hd202543202963_ + _arg202529202925_) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop200299200724_ - _target200296200719_ + (_loop202548202973_ + _target202545202968_ '()))) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)))) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)))) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)))) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)))) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)))) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)))) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)))) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)))) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_))))))) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)))) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)))) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)))) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop200275200660_ - _target200272200655_ + (_loop202524202909_ + _target202521202904_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx209095209096_)) - (let ((_e200271200647_ + (gx#stx-pair? ___stx211444211445_)) + (let ((_e202520202896_ (let () (declare (not safe)) - (gx#stx-e ___stx209095209096_)))) - (let ((_tl200269200652_ + (gx#stx-e ___stx211444211445_)))) + (let ((_tl202518202901_ (let () (declare (not safe)) - (##cdr _e200271200647_))) - (_hd200270200650_ + (##cdr _e202520202896_))) + (_hd202519202899_ (let () (declare (not safe)) - (##car _e200271200647_)))) + (##car _e202520202896_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd200270200650_)) - (let ((___splice209099209100_ + (gx#stx-pair/null? _hd202519202899_)) + (let ((___splice211448211449_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd200270200650_ + _hd202519202899_ '0)))) - (let ((_tl200274200657_ + (let ((_tl202523202906_ (let () (declare (not safe)) (##vector-ref - ___splice209099209100_ + ___splice211448211449_ '1))) - (_target200272200655_ + (_target202521202904_ (let () (declare (not safe)) (##vector-ref - ___splice209099209100_ + ___splice211448211449_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200274200657_)) - (___match209122209123_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_) - (___match209134209135_ - _e200271200647_ - _hd200270200650_ - _tl200269200652_ - ___splice209099209100_ - _target200272200655_ - _tl200274200657_)))) + _tl202523202906_)) + (___match211471211472_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_) + (___match211483211484_ + _e202520202896_ + _hd202519202899_ + _tl202518202901_ + ___splice211448211449_ + _target202521202904_ + _tl202523202906_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200269200652_)) - (let ((_e200359200401_ + (gx#stx-pair? _tl202518202901_)) + (let ((_e202608202650_ (let () (declare (not safe)) (gx#stx-e - _tl200269200652_)))) - (let ((_tl200357200406_ + _tl202518202901_)))) + (let ((_tl202606202655_ (let () (declare (not safe)) - (##cdr _e200359200401_))) - (_hd200358200404_ + (##cdr _e202608202650_))) + (_hd202607202653_ (let () (declare (not safe)) - (##car _e200359200401_)))) + (##car _e202608202650_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200358200404_)) - (let ((_e200362200409_ + _hd202607202653_)) + (let ((_e202611202658_ (let () (declare (not safe)) (gx#stx-e - _hd200358200404_)))) - (let ((_tl200360200414_ + _hd202607202653_)))) + (let ((_tl202609202663_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e200362200409_))) - (_hd200361200412_ - (let () (declare (not safe)) (##car _e200362200409_)))) + (##cdr _e202611202658_))) + (_hd202610202661_ + (let () (declare (not safe)) (##car _e202611202658_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200361200412_)) + (gx#identifier? _hd202610202661_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd200361200412_)) + (gx#stx-eq? '%#call _hd202610202661_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200360200414_)) - (let ((_e200365200417_ + (gx#stx-pair? _tl202609202663_)) + (let ((_e202614202666_ (let () (declare (not safe)) - (gx#stx-e _tl200360200414_)))) - (let ((_tl200363200422_ + (gx#stx-e _tl202609202663_)))) + (let ((_tl202612202671_ (let () (declare (not safe)) - (##cdr _e200365200417_))) - (_hd200364200420_ + (##cdr _e202614202666_))) + (_hd202613202669_ (let () (declare (not safe)) - (##car _e200365200417_)))) + (##car _e202614202666_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200364200420_)) - (let ((_e200368200425_ + (gx#stx-pair? _hd202613202669_)) + (let ((_e202617202674_ (let () (declare (not safe)) - (gx#stx-e _hd200364200420_)))) - (let ((_tl200366200430_ + (gx#stx-e _hd202613202669_)))) + (let ((_tl202615202679_ (let () (declare (not safe)) - (##cdr _e200368200425_))) - (_hd200367200428_ + (##cdr _e202617202674_))) + (_hd202616202677_ (let () (declare (not safe)) - (##car _e200368200425_)))) + (##car _e202617202674_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd200367200428_)) + _hd202616202677_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200367200428_)) + _hd202616202677_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200366200430_)) - (let ((_e200371200433_ + _tl202615202679_)) + (let ((_e202620202682_ (let () (declare (not safe)) (gx#stx-e - _tl200366200430_)))) - (let ((_tl200369200438_ + _tl202615202679_)))) + (let ((_tl202618202687_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e200371200433_))) - (_hd200370200436_ - (let () (declare (not safe)) (##car _e200371200433_)))) + (##cdr _e202620202682_))) + (_hd202619202685_ + (let () (declare (not safe)) (##car _e202620202682_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200369200438_)) + (gx#stx-null? _tl202618202687_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200363200422_)) - (let ((_e200374200441_ + (gx#stx-pair? _tl202612202671_)) + (let ((_e202623202690_ (let () (declare (not safe)) - (gx#stx-e _tl200363200422_)))) - (let ((_tl200372200446_ + (gx#stx-e _tl202612202671_)))) + (let ((_tl202621202695_ (let () (declare (not safe)) - (##cdr _e200374200441_))) - (_hd200373200444_ + (##cdr _e202623202690_))) + (_hd202622202693_ (let () (declare (not safe)) - (##car _e200374200441_)))) + (##car _e202623202690_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200373200444_)) - (let ((_e200377200449_ + (gx#stx-pair? _hd202622202693_)) + (let ((_e202626202698_ (let () (declare (not safe)) - (gx#stx-e _hd200373200444_)))) - (let ((_tl200375200454_ + (gx#stx-e _hd202622202693_)))) + (let ((_tl202624202703_ (let () (declare (not safe)) - (##cdr _e200377200449_))) - (_hd200376200452_ + (##cdr _e202626202698_))) + (_hd202625202701_ (let () (declare (not safe)) - (##car _e200377200449_)))) + (##car _e202626202698_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200376200452_)) + (gx#identifier? _hd202625202701_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200376200452_)) + _hd202625202701_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200375200454_)) - (let ((_e200380200457_ + _tl202624202703_)) + (let ((_e202629202706_ (let () (declare (not safe)) (gx#stx-e - _tl200375200454_)))) - (let ((_tl200378200462_ + _tl202624202703_)))) + (let ((_tl202627202711_ (let () (declare (not safe)) - (##cdr _e200380200457_))) - (_hd200379200460_ + (##cdr _e202629202706_))) + (_hd202628202709_ (let () (declare (not safe)) - (##car _e200380200457_)))) + (##car _e202629202706_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200378200462_)) + _tl202627202711_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200372200446_)) - (let ((_e200383200465_ + _tl202621202695_)) + (let ((_e202632202714_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl200372200446_)))) - (let ((_tl200381200470_ + (gx#stx-e _tl202621202695_)))) + (let ((_tl202630202719_ (let () (declare (not safe)) - (##cdr _e200383200465_))) - (_hd200382200468_ + (##cdr _e202632202714_))) + (_hd202631202717_ (let () (declare (not safe)) - (##car _e200383200465_)))) + (##car _e202632202714_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200381200470_)) + (gx#stx-null? _tl202630202719_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl200357200406_)) - (___kont209107209108_ - _hd200379200460_ - _hd200370200436_ - _hd200270200650_) + (gx#stx-null? _tl202606202655_)) + (___kont211456211457_ + _hd202628202709_ + _hd202619202685_ + _hd202519202899_) (let () (declare (not safe)) - (_g200264200388_))) - (let () (declare (not safe)) (_g200264200388_))))) - (let () (declare (not safe)) (_g200264200388_))) - (let () (declare (not safe)) (_g200264200388_))))) + (_g202513202637_))) + (let () (declare (not safe)) (_g202513202637_))))) + (let () (declare (not safe)) (_g202513202637_))) + (let () (declare (not safe)) (_g202513202637_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g200264200388_))) + (_g202513202637_))) (let () (declare (not safe)) - (_g200264200388_))) + (_g202513202637_))) (let () (declare (not safe)) - (_g200264200388_))))) + (_g202513202637_))))) (let () (declare (not safe)) - (_g200264200388_))))) - (let () (declare (not safe)) (_g200264200388_))) - (let () (declare (not safe)) (_g200264200388_))))) + (_g202513202637_))))) + (let () (declare (not safe)) (_g202513202637_))) + (let () (declare (not safe)) (_g202513202637_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g200264200388_))) + (_g202513202637_))) (let () (declare (not safe)) - (_g200264200388_))) + (_g202513202637_))) (let () (declare (not safe)) - (_g200264200388_))))) + (_g202513202637_))))) (let () (declare (not safe)) - (_g200264200388_))))) - (let () (declare (not safe)) (_g200264200388_))) - (let () (declare (not safe)) (_g200264200388_))) - (let () (declare (not safe)) (_g200264200388_))))) + (_g202513202637_))))) + (let () (declare (not safe)) (_g202513202637_))) + (let () (declare (not safe)) (_g202513202637_))) + (let () (declare (not safe)) (_g202513202637_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g200264200388_))))) + (_g202513202637_))))) (let () (declare (not safe)) - (_g200264200388_)))))) + (_g202513202637_)))))) (let () (declare (not safe)) - (_g200264200388_)))))))) - (_generate1200110_ - (lambda (_args200245_ - _arglen200246_ - _hd200247_ - _body200248_) - (let* ((_len200250_ + (_g202513202637_)))))))) + (_generate1202359_ + (lambda (_args202494_ + _arglen202495_ + _hd202496_ + _body202497_) + (let* ((_len202499_ (let () (declare (not safe)) - (gx#stx-length _hd200247_))) - (_condition200252_ + (gx#stx-length _hd202496_))) + (_condition202501_ (if (let () (declare (not safe)) - (gx#stx-list? _hd200247_)) + (gx#stx-list? _hd202496_)) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp210429 - (let ((__tmp210430 + (let ((__tmp212778 + (let ((__tmp212779 (let () (declare (not safe)) - (cons _len200250_ '())))) + (cons _len202499_ '())))) (declare (not safe)) - (cons _arglen200246_ - __tmp210430)))) + (cons _arglen202495_ + __tmp212779)))) (declare (not safe)) - (cons '##fx= __tmp210429)) - (let ((__tmp210423 - (let ((__tmp210424 - (let ((__tmp210425 - (let ((__tmp210426 + (cons '##fx= __tmp212778)) + (let ((__tmp212772 + (let ((__tmp212773 + (let ((__tmp212774 + (let ((__tmp212775 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210427 - (let ((__tmp210428 + (let ((__tmp212776 + (let ((__tmp212777 (let () (declare (not safe)) - (cons _len200250_ '())))) + (cons _len202499_ '())))) (declare (not safe)) - (cons _arglen200246_ __tmp210428)))) + (cons _arglen202495_ __tmp212777)))) (declare (not safe)) - (cons '##fx= __tmp210427)))) + (cons '##fx= __tmp212776)))) (declare (not safe)) - (cons __tmp210426 '())))) + (cons __tmp212775 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp210425)))) + (cons '(declare (not safe)) __tmp212774)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp210424)))) + (cons '() __tmp212773)))) (declare (not safe)) - (cons 'let __tmp210423))) - (if (> _len200250_ '0) + (cons 'let __tmp212772))) + (if (> _len202499_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp210421 - (let ((__tmp210422 + (let ((__tmp212770 + (let ((__tmp212771 (let () (declare (not safe)) - (cons _len200250_ + (cons _len202499_ '())))) (declare (not safe)) - (cons _arglen200246_ - __tmp210422)))) + (cons _arglen202495_ + __tmp212771)))) (declare (not safe)) - (cons '##fx>= __tmp210421)) - (let ((__tmp210415 - (let ((__tmp210416 - (let ((__tmp210417 - (let ((__tmp210418 + (cons '##fx>= __tmp212770)) + (let ((__tmp212764 + (let ((__tmp212765 + (let ((__tmp212766 + (let ((__tmp212767 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210419 - (let ((__tmp210420 + (let ((__tmp212768 + (let ((__tmp212769 (let () (declare (not safe)) - (cons _len200250_ '())))) + (cons _len202499_ '())))) (declare (not safe)) - (cons _arglen200246_ __tmp210420)))) + (cons _arglen202495_ __tmp212769)))) (declare (not safe)) - (cons '##fx>= __tmp210419)))) + (cons '##fx>= __tmp212768)))) (declare (not safe)) - (cons __tmp210418 '())))) + (cons __tmp212767 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp210417)))) + (cons '(declare (not safe)) __tmp212766)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp210416)))) + (cons '() __tmp212765)))) (declare (not safe)) - (cons 'let __tmp210415))) + (cons 'let __tmp212764))) '#t))) - (_dispatch200254_ + (_dispatch202503_ (if (let () (declare (not safe)) - (_dispatch-case?200108_ - _hd200247_ - _body200248_)) + (_dispatch-case?202357_ + _hd202496_ + _body202497_)) (let () (declare (not safe)) - (_dispatch-case-e200109_ - _hd200247_ - _body200248_)) + (_dispatch-case-e202358_ + _hd202496_ + _body202497_)) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _hd200247_ - _body200248_))))) - (let ((__tmp210431 - (let ((__tmp210432 - (let ((__tmp210433 - (let ((__tmp210434 + _hd202496_ + _body202497_))))) + (let ((__tmp212780 + (let ((__tmp212781 + (let ((__tmp212782 + (let ((__tmp212783 (let () (declare (not safe)) - (cons _args200245_ + (cons _args202494_ '())))) (declare (not safe)) - (cons _dispatch200254_ - __tmp210434)))) + (cons _dispatch202503_ + __tmp212783)))) (declare (not safe)) - (cons 'apply __tmp210433)))) + (cons 'apply __tmp212782)))) (declare (not safe)) - (cons __tmp210432 '())))) + (cons __tmp212781 '())))) (declare (not safe)) - (cons _condition200252_ __tmp210431)))))) - (let* ((_g200112200140_ - (lambda (_g200113200137_) + (cons _condition202501_ __tmp212780)))))) + (let* ((_g202361202389_ + (lambda (_g202362202386_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g200113200137_)))) - (_g200111200242_ - (lambda (_g200113200143_) + _g202362202386_)))) + (_g202360202491_ + (lambda (_g202362202392_) (if (let () (declare (not safe)) - (gx#stx-pair? _g200113200143_)) - (let ((_e200118200145_ + (gx#stx-pair? _g202362202392_)) + (let ((_e202367202394_ (let () (declare (not safe)) - (gx#stx-e _g200113200143_)))) - (let ((_hd200117200148_ + (gx#stx-e _g202362202392_)))) + (let ((_hd202366202397_ (let () (declare (not safe)) - (##car _e200118200145_))) - (_tl200116200150_ + (##car _e202367202394_))) + (_tl202365202399_ (let () (declare (not safe)) - (##cdr _e200118200145_)))) + (##cdr _e202367202394_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl200116200150_)) - (let ((_g210435_ + (gx#stx-pair/null? _tl202365202399_)) + (let ((_g212784_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl200116200150_ + _tl202365202399_ '0)))) (begin - (let ((_g210436_ + (let ((_g212785_ (let () (declare (not safe)) - (if (##values? _g210435_) - (##vector-length _g210435_) + (if (##values? _g212784_) + (##vector-length _g212784_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g210436_ 2))) + (##fx= _g212785_ 2))) (error "Context expects 2 values" - _g210436_))) - (let ((_target200119200153_ + _g212785_))) + (let ((_target202368202402_ (let () (declare (not safe)) - (##vector-ref _g210435_ 0))) - (_tl200121200155_ + (##vector-ref _g212784_ 0))) + (_tl202370202404_ (let () (declare (not safe)) - (##vector-ref _g210435_ 1)))) + (##vector-ref _g212784_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200121200155_)) - (letrec ((_loop200122200158_ - (lambda (_hd200120200161_ - _body200126200163_ - _hd200127200165_) + (gx#stx-null? _tl202370202404_)) + (letrec ((_loop202371202407_ + (lambda (_hd202369202410_ + _body202375202412_ + _hd202376202414_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200120200161_)) - (let ((_e200123200168_ + _hd202369202410_)) + (let ((_e202372202417_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd200120200161_)))) - (let ((_lp-hd200124200171_ + (gx#stx-e _hd202369202410_)))) + (let ((_lp-hd202373202420_ (let () (declare (not safe)) - (##car _e200123200168_))) - (_lp-tl200125200173_ + (##car _e202372202417_))) + (_lp-tl202374202422_ (let () (declare (not safe)) - (##cdr _e200123200168_)))) + (##cdr _e202372202417_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd200124200171_)) - (let ((_e200132200176_ + (gx#stx-pair? _lp-hd202373202420_)) + (let ((_e202381202425_ (let () (declare (not safe)) - (gx#stx-e _lp-hd200124200171_)))) - (let ((_hd200131200179_ + (gx#stx-e _lp-hd202373202420_)))) + (let ((_hd202380202428_ (let () (declare (not safe)) - (##car _e200132200176_))) - (_tl200130200181_ + (##car _e202381202425_))) + (_tl202379202430_ (let () (declare (not safe)) - (##cdr _e200132200176_)))) + (##cdr _e202381202425_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200130200181_)) - (let ((_e200135200184_ + (gx#stx-pair? _tl202379202430_)) + (let ((_e202384202433_ (let () (declare (not safe)) - (gx#stx-e _tl200130200181_)))) - (let ((_hd200134200187_ + (gx#stx-e _tl202379202430_)))) + (let ((_hd202383202436_ (let () (declare (not safe)) - (##car _e200135200184_))) - (_tl200133200189_ + (##car _e202384202433_))) + (_tl202382202438_ (let () (declare (not safe)) - (##cdr _e200135200184_)))) + (##cdr _e202384202433_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200133200189_)) - (let ((__tmp210465 + (gx#stx-null? _tl202382202438_)) + (let ((__tmp212814 (let () (declare (not safe)) - (cons _hd200134200187_ - _body200126200163_))) - (__tmp210464 + (cons _hd202383202436_ + _body202375202412_))) + (__tmp212813 (let () (declare (not safe)) - (cons _hd200131200179_ - _hd200127200165_)))) + (cons _hd202380202428_ + _hd202376202414_)))) (declare (not safe)) - (_loop200122200158_ - _lp-tl200125200173_ - __tmp210465 - __tmp210464)) + (_loop202371202407_ + _lp-tl202374202422_ + __tmp212814 + __tmp212813)) (let () (declare (not safe)) - (_g200112200140_ - _g200113200143_))))) + (_g202361202389_ + _g202362202392_))))) (let () (declare (not safe)) - (_g200112200140_ _g200113200143_))))) + (_g202361202389_ _g202362202392_))))) (let () (declare (not safe)) - (_g200112200140_ _g200113200143_))))) - (let ((_body200128200192_ (reverse _body200126200163_)) - (_hd200129200194_ (reverse _hd200127200165_))) - ((lambda (_L200197_ _L200198_) - (let ((_args200217_ + (_g202361202389_ _g202362202392_))))) + (let ((_body202377202441_ (reverse _body202375202412_)) + (_hd202378202443_ (reverse _hd202376202414_))) + ((lambda (_L202446_ _L202447_) + (let ((_args202466_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_arglen200218_ + (_arglen202467_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_name200219_ - (let ((_$e200214_ - (let ((__tmp210437 + (_name202468_ + (let ((_$e202463_ + (let ((__tmp212786 (gxc#current-compile-runtime-names))) (declare (not safe)) (table-ref - __tmp210437 - _stx200106_ + __tmp212786 + _stx202355_ '#f)))) - (if _$e200214_ - _$e200214_ + (if _$e202463_ + _$e202463_ ''case-lambda-dispatch)))) - (let ((__tmp210438 - (let ((__tmp210439 - (let ((__tmp210440 - (let ((__tmp210441 - (let ((__tmp210454 - (let ((__tmp210455 + (let ((__tmp212787 + (let ((__tmp212788 + (let ((__tmp212789 + (let ((__tmp212790 + (let ((__tmp212803 + (let ((__tmp212804 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210456 - (let ((__tmp210457 + (let ((__tmp212805 + (let ((__tmp212806 (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp210463 + (let ((__tmp212812 (let () (declare (not safe)) - (cons _args200217_ + (cons _args202466_ '())))) (declare (not safe)) - (cons '##length __tmp210463)) - (let ((__tmp210458 - (let ((__tmp210459 - (let ((__tmp210460 + (cons '##length __tmp212812)) + (let ((__tmp212807 + (let ((__tmp212808 + (let ((__tmp212809 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210461 - (let ((__tmp210462 + (let ((__tmp212810 + (let ((__tmp212811 (let () (declare (not safe)) - (cons _args200217_ '())))) + (cons _args202466_ '())))) (declare (not safe)) - (cons '##length __tmp210462)))) + (cons '##length __tmp212811)))) (declare (not safe)) - (cons __tmp210461 '())))) + (cons __tmp212810 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp210460)))) + (cons '(declare (not safe)) __tmp212809)))) (declare (not safe)) - (cons '() __tmp210459)))) + (cons '() __tmp212808)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp210458))))) + (cons 'let __tmp212807))))) (declare (not safe)) - (cons __tmp210457 '())))) + (cons __tmp212806 '())))) (declare (not safe)) - (cons _arglen200218_ __tmp210456)))) + (cons _arglen202467_ __tmp212805)))) (declare (not safe)) - (cons __tmp210455 '()))) - (__tmp210442 - (let ((__tmp210443 - (let ((__tmp210444 - (let ((__tmp210448 - (let ((__tmp210449 - (let ((__tmp210450 - (let ((__tmp210451 - (let ((__tmp210452 + (cons __tmp212804 '()))) + (__tmp212791 + (let ((__tmp212792 + (let ((__tmp212793 + (let ((__tmp212797 + (let ((__tmp212798 + (let ((__tmp212799 + (let ((__tmp212800 + (let ((__tmp212801 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210453 + (let ((__tmp212802 (let () (declare (not safe)) - (cons _args200217_ '())))) + (cons _args202466_ '())))) (declare (not safe)) - (cons _name200219_ __tmp210453)))) + (cons _name202468_ __tmp212802)))) (declare (not safe)) (cons '##raise-wrong-number-of-arguments-exception - __tmp210452)))) + __tmp212801)))) (declare (not safe)) - (cons __tmp210451 '())))) + (cons __tmp212800 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'else __tmp210450)))) + (cons 'else __tmp212799)))) (declare (not safe)) - (cons __tmp210449 '()))) - (__tmp210445 - (map (lambda (_g200220200223_ - _g200221200225_) + (cons __tmp212798 '()))) + (__tmp212794 + (map (lambda (_g202469202472_ + _g202470202474_) (let () (declare (not safe)) - (_generate1200110_ - _args200217_ - _arglen200218_ - _g200220200223_ - _g200221200225_))) - (let ((__tmp210446 - (lambda (_g200227200230_ - _g200228200232_) + (_generate1202359_ + _args202466_ + _arglen202467_ + _g202469202472_ + _g202470202474_))) + (let ((__tmp212795 + (lambda (_g202476202479_ + _g202477202481_) (let () (declare (not safe)) - (cons _g200227200230_ + (cons _g202476202479_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g200228200232_))))) + _g202477202481_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp210446 + (foldr1 __tmp212795 '() - _L200198_)) - (let ((__tmp210447 - (lambda (_g200234200237_ - _g200235200239_) + _L202447_)) + (let ((__tmp212796 + (lambda (_g202483202486_ + _g202484202488_) (let () (declare (not safe)) - (cons _g200234200237_ + (cons _g202483202486_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g200235200239_))))) + _g202484202488_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp210447 + (foldr1 __tmp212796 '() - _L200197_))))) + _L202446_))))) (declare (not safe)) - (foldr1 cons __tmp210448 __tmp210445)))) + (foldr1 cons __tmp212797 __tmp212794)))) (declare (not safe)) - (cons 'cond __tmp210444)))) + (cons 'cond __tmp212793)))) (declare (not safe)) - (cons __tmp210443 '())))) + (cons __tmp212792 '())))) (declare (not safe)) - (cons __tmp210454 __tmp210442)))) + (cons __tmp212803 __tmp212791)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp210441)))) + (cons 'let __tmp212790)))) (declare (not safe)) - (cons __tmp210440 '())))) + (cons __tmp212789 '())))) (declare (not safe)) - (cons _args200217_ __tmp210439)))) + (cons _args202466_ __tmp212788)))) (declare (not safe)) - (cons 'lambda __tmp210438)))) - _body200128200192_ - _hd200129200194_)))))) + (cons 'lambda __tmp212787)))) + _body202377202441_ + _hd202378202443_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop200122200158_ - _target200119200153_ + (_loop202371202407_ + _target202368202402_ '() '()))) (let () (declare (not safe)) - (_g200112200140_ - _g200113200143_)))))) + (_g202361202389_ + _g202362202392_)))))) (let () (declare (not safe)) - (_g200112200140_ _g200113200143_))))) + (_g202361202389_ _g202362202392_))))) (let () (declare (not safe)) - (_g200112200140_ _g200113200143_)))))) + (_g202361202389_ _g202362202392_)))))) (declare (not safe)) - (_g200111200242_ _stx200106_))))) + (_g202360202491_ _stx202355_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_stx199380_ _compiled-body?199381_) - (letrec ((_generate-simple199383_ - (lambda (_hd200093_ _body200094_) - (let ((__tmp210466 - (let ((__tmp210467 + (lambda (_stx201629_ _compiled-body?201630_) + (letrec ((_generate-simple201632_ + (lambda (_hd202342_ _body202343_) + (let ((__tmp212815 + (let ((__tmp212816 (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'let - _hd200093_ - _body200094_ - _compiled-body?199381_)))) + _hd202342_ + _body202343_ + _compiled-body?201630_)))) (declare (not safe)) - (_coalesce-let*199385_ __tmp210467)))) + (_coalesce-let*201634_ __tmp212816)))) (declare (not safe)) - (_coalesce-boolean199384_ __tmp210466)))) - (_coalesce-boolean199384_ - (lambda (_code199954_) + (_coalesce-boolean201633_ __tmp212815)))) + (_coalesce-boolean201633_ + (lambda (_code202203_) (if (gxc#current-compile-boolean-context) - (let* ((_code199955199981_ _code199954_) - (_else199957199989_ (lambda () _code199954_)) - (_K199959200026_ - (lambda (_expr2199992_ - _expr1199993_ - _id199994_) - (let* ((_expr2199995200003_ _expr2199992_) - (_else199997200011_ + (let* ((_code202204202230_ _code202203_) + (_else202206202238_ (lambda () _code202203_)) + (_K202208202275_ + (lambda (_expr2202241_ + _expr1202242_ + _id202243_) + (let* ((_expr2202244202252_ _expr2202241_) + (_else202246202260_ (lambda () - (let ((__tmp210468 - (let ((__tmp210469 + (let ((__tmp212817 + (let ((__tmp212818 (let () (declare (not safe)) - (cons _expr2199992_ + (cons _expr2202241_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _expr1199993_ __tmp210469)))) + (cons _expr1202242_ __tmp212818)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'or __tmp210468)))) - (_K199999200016_ - (lambda (_exprs200014_) - (let ((__tmp210470 + (cons 'or __tmp212817)))) + (_K202248202265_ + (lambda (_exprs202263_) + (let ((__tmp212819 (let () (declare (not safe)) - (cons _expr1199993_ - _exprs200014_)))) + (cons _expr1202242_ + _exprs202263_)))) (declare (not safe)) - (cons 'or __tmp210470))))) + (cons 'or __tmp212819))))) (if (let () (declare (not safe)) - (##pair? _expr2199995200003_)) - (let ((_hd200000200019_ + (##pair? _expr2202244202252_)) + (let ((_hd202249202268_ (let () (declare (not safe)) - (##car _expr2199995200003_))) - (_tl200001200021_ + (##car _expr2202244202252_))) + (_tl202250202270_ (let () (declare (not safe)) - (##cdr _expr2199995200003_)))) + (##cdr _expr2202244202252_)))) (if (let () (declare (not safe)) - (##eq? _hd200000200019_ 'or)) - (let ((_exprs200024_ - _tl200001200021_)) + (##eq? _hd202249202268_ 'or)) + (let ((_exprs202273_ + _tl202250202270_)) (declare (not safe)) - (_K199999200016_ - _exprs200024_)) + (_K202248202265_ + _exprs202273_)) (let () (declare (not safe)) - (_else199997200011_)))) + (_else202246202260_)))) (let () (declare (not safe)) - (_else199997200011_))))))) + (_else202246202260_))))))) (if (let () (declare (not safe)) - (##pair? _code199955199981_)) - (let ((_hd199960200029_ + (##pair? _code202204202230_)) + (let ((_hd202209202278_ (let () (declare (not safe)) - (##car _code199955199981_))) - (_tl199961200031_ + (##car _code202204202230_))) + (_tl202210202280_ (let () (declare (not safe)) - (##cdr _code199955199981_)))) + (##cdr _code202204202230_)))) (if (let () (declare (not safe)) - (##eq? _hd199960200029_ 'let)) + (##eq? _hd202209202278_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl199961200031_)) - (let ((_hd199962200034_ + (##pair? _tl202210202280_)) + (let ((_hd202211202283_ (let () (declare (not safe)) - (##car _tl199961200031_))) - (_tl199963200036_ + (##car _tl202210202280_))) + (_tl202212202285_ (let () (declare (not safe)) - (##cdr _tl199961200031_)))) + (##cdr _tl202210202280_)))) (if (let () (declare (not safe)) - (##pair? _hd199962200034_)) - (let ((_hd199974200039_ + (##pair? _hd202211202283_)) + (let ((_hd202223202288_ (let () (declare (not safe)) - (##car _hd199962200034_))) - (_tl199975200041_ + (##car _hd202211202283_))) + (_tl202224202290_ (let () (declare (not safe)) - (##cdr _hd199962200034_)))) + (##cdr _hd202211202283_)))) (if (let () (declare (not safe)) - (##pair? _hd199974200039_)) - (let ((_hd199976200044_ + (##pair? _hd202223202288_)) + (let ((_hd202225202293_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd199974200039_))) - (_tl199977200046_ - (let () (declare (not safe)) (##cdr _hd199974200039_)))) - (let ((_id200049_ _hd199976200044_)) - (if (let () (declare (not safe)) (##pair? _tl199977200046_)) - (let ((_hd199978200051_ + (##car _hd202223202288_))) + (_tl202226202295_ + (let () (declare (not safe)) (##cdr _hd202223202288_)))) + (let ((_id202298_ _hd202225202293_)) + (if (let () (declare (not safe)) (##pair? _tl202226202295_)) + (let ((_hd202227202300_ (let () (declare (not safe)) - (##car _tl199977200046_))) - (_tl199979200053_ + (##car _tl202226202295_))) + (_tl202228202302_ (let () (declare (not safe)) - (##cdr _tl199977200046_)))) - (let ((_expr1200056_ _hd199978200051_)) + (##cdr _tl202226202295_)))) + (let ((_expr1202305_ _hd202227202300_)) (if (let () (declare (not safe)) - (##null? _tl199979200053_)) + (##null? _tl202228202302_)) (if (let () (declare (not safe)) - (##null? _tl199975200041_)) + (##null? _tl202224202290_)) (if (let () (declare (not safe)) - (##pair? _tl199963200036_)) - (let ((_hd199964200058_ + (##pair? _tl202212202285_)) + (let ((_hd202213202307_ (let () (declare (not safe)) - (##car _tl199963200036_))) - (_tl199965200060_ + (##car _tl202212202285_))) + (_tl202214202309_ (let () (declare (not safe)) - (##cdr _tl199963200036_)))) + (##cdr _tl202212202285_)))) (if (let () (declare (not safe)) - (##pair? _hd199964200058_)) - (let ((_hd199966200063_ + (##pair? _hd202213202307_)) + (let ((_hd202215202312_ (let () (declare (not safe)) - (##car _hd199964200058_))) - (_tl199967200065_ + (##car _hd202213202307_))) + (_tl202216202314_ (let () (declare (not safe)) - (##cdr _hd199964200058_)))) + (##cdr _hd202213202307_)))) (if (let () (declare (not safe)) - (##eq? _hd199966200063_ + (##eq? _hd202215202312_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl199967200065_)) - (let ((_hd199968200068_ + (##pair? _tl202216202314_)) + (let ((_hd202217202317_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl199967200065_))) - (_tl199969200070_ - (let () (declare (not safe)) (##cdr _tl199967200065_)))) - (if ((lambda (_g200072200074_) + (##car _tl202216202314_))) + (_tl202218202319_ + (let () (declare (not safe)) (##cdr _tl202216202314_)))) + (if ((lambda (_g202321202323_) (let () (declare (not safe)) - (eq? _g200072200074_ _id200049_))) - _hd199968200068_) + (eq? _g202321202323_ _id202298_))) + _hd202217202317_) (if (let () (declare (not safe)) - (##pair? _tl199969200070_)) - (let ((_hd199970200077_ + (##pair? _tl202218202319_)) + (let ((_hd202219202326_ (let () (declare (not safe)) - (##car _tl199969200070_))) - (_tl199971200079_ + (##car _tl202218202319_))) + (_tl202220202328_ (let () (declare (not safe)) - (##cdr _tl199969200070_)))) - (if ((lambda (_g200081200083_) + (##cdr _tl202218202319_)))) + (if ((lambda (_g202330202332_) (let () (declare (not safe)) - (eq? _g200081200083_ _id200049_))) - _hd199970200077_) + (eq? _g202330202332_ _id202298_))) + _hd202219202326_) (if (let () (declare (not safe)) - (##pair? _tl199971200079_)) - (let ((_hd199972200086_ + (##pair? _tl202220202328_)) + (let ((_hd202221202335_ (let () (declare (not safe)) - (##car _tl199971200079_))) - (_tl199973200088_ + (##car _tl202220202328_))) + (_tl202222202337_ (let () (declare (not safe)) - (##cdr _tl199971200079_)))) - (let ((_expr2200091_ _hd199972200086_)) + (##cdr _tl202220202328_)))) + (let ((_expr2202340_ _hd202221202335_)) (if (let () (declare (not safe)) - (##null? _tl199973200088_)) + (##null? _tl202222202337_)) (if (let () (declare (not safe)) - (##null? _tl199965200060_)) + (##null? _tl202214202309_)) (let () (declare (not safe)) - (_K199959200026_ - _expr2200091_ - _expr1200056_ - _id200049_)) + (_K202208202275_ + _expr2202340_ + _expr1202305_ + _id202298_)) (let () (declare (not safe)) - (_else199957199989_))) + (_else202206202238_))) (let () (declare (not safe)) - (_else199957199989_))))) + (_else202206202238_))))) (let () (declare (not safe)) - (_else199957199989_))) + (_else202206202238_))) (let () (declare (not safe)) - (_else199957199989_)))) - (let () (declare (not safe)) (_else199957199989_))) - (let () (declare (not safe)) (_else199957199989_)))) - (let () (declare (not safe)) (_else199957199989_))) + (_else202206202238_)))) + (let () (declare (not safe)) (_else202206202238_))) + (let () (declare (not safe)) (_else202206202238_)))) + (let () (declare (not safe)) (_else202206202238_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else199957199989_)))) + (_else202206202238_)))) (let () (declare (not safe)) - (_else199957199989_)))) + (_else202206202238_)))) (let () (declare (not safe)) - (_else199957199989_))) + (_else202206202238_))) (let () (declare (not safe)) - (_else199957199989_))) + (_else202206202238_))) (let () (declare (not safe)) - (_else199957199989_))))) - (let () (declare (not safe)) (_else199957199989_))))) - (let () (declare (not safe)) (_else199957199989_)))) + (_else202206202238_))))) + (let () (declare (not safe)) (_else202206202238_))))) + (let () (declare (not safe)) (_else202206202238_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else199957199989_)))) + (_else202206202238_)))) (let () (declare (not safe)) - (_else199957199989_))) + (_else202206202238_))) (let () (declare (not safe)) - (_else199957199989_)))) + (_else202206202238_)))) (let () (declare (not safe)) - (_else199957199989_)))) - _code199954_))) - (_coalesce-let*199385_ - (lambda (_code199687_) - (let* ((_code199688199752_ _code199687_) - (_else199692199760_ (lambda () _code199687_))) - (let ((_K199734199905_ - (lambda (_body199901_ _expr199902_ _id199903_) - (let ((__tmp210471 - (let ((__tmp210472 - (let ((__tmp210473 - (let ((__tmp210474 + (_else202206202238_)))) + _code202203_))) + (_coalesce-let*201634_ + (lambda (_code201936_) + (let* ((_code201937202001_ _code201936_) + (_else201941202009_ (lambda () _code201936_))) + (let ((_K201983202154_ + (lambda (_body202150_ _expr202151_ _id202152_) + (let ((__tmp212820 + (let ((__tmp212821 + (let ((__tmp212822 + (let ((__tmp212823 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr199902_ '())))) + (cons _expr202151_ '())))) (declare (not safe)) - (cons _id199903_ __tmp210474)))) + (cons _id202152_ __tmp212823)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210473 '())))) + (cons __tmp212822 '())))) (declare (not safe)) - (cons __tmp210472 _body199901_)))) + (cons __tmp212821 _body202150_)))) (declare (not safe)) - (cons 'let __tmp210471)))) - (_K199711199830_ - (lambda (_body199824_ - _expr2199825_ - _id2199826_ - _expr1199827_ - _id1199828_) - (let ((__tmp210475 - (let ((__tmp210476 - (let ((__tmp210480 - (let ((__tmp210481 + (cons 'let __tmp212820)))) + (_K201960202079_ + (lambda (_body202073_ + _expr2202074_ + _id2202075_ + _expr1202076_ + _id1202077_) + (let ((__tmp212824 + (let ((__tmp212825 + (let ((__tmp212829 + (let ((__tmp212830 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr1199827_ '())))) + (cons _expr1202076_ '())))) (declare (not safe)) - (cons _id1199828_ __tmp210481))) + (cons _id1202077_ __tmp212830))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp210477 - (let ((__tmp210478 - (let ((__tmp210479 + (__tmp212826 + (let ((__tmp212827 + (let ((__tmp212828 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr2199825_ '())))) + (cons _expr2202074_ '())))) (declare (not safe)) - (cons _id2199826_ __tmp210479)))) + (cons _id2202075_ __tmp212828)))) (declare (not safe)) - (cons __tmp210478 '())))) + (cons __tmp212827 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210480 - __tmp210477)))) + (cons __tmp212829 + __tmp212826)))) (declare (not safe)) - (cons __tmp210476 _body199824_)))) + (cons __tmp212825 _body202073_)))) (declare (not safe)) - (cons 'let* __tmp210475)))) - (_K199694199769_ - (lambda (_body199764_ - _bind199765_ - _expr1199766_ - _id1199767_) - (let ((__tmp210482 - (let ((__tmp210483 - (let ((__tmp210484 - (let ((__tmp210485 + (cons 'let* __tmp212824)))) + (_K201943202018_ + (lambda (_body202013_ + _bind202014_ + _expr1202015_ + _id1202016_) + (let ((__tmp212831 + (let ((__tmp212832 + (let ((__tmp212833 + (let ((__tmp212834 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr1199766_ '())))) + (cons _expr1202015_ '())))) (declare (not safe)) - (cons _id1199767_ __tmp210485)))) + (cons _id1202016_ __tmp212834)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210484 - _bind199765_)))) + (cons __tmp212833 + _bind202014_)))) (declare (not safe)) - (cons __tmp210483 _body199764_)))) + (cons __tmp212832 _body202013_)))) (declare (not safe)) - (cons 'let* __tmp210482))))) + (cons 'let* __tmp212831))))) (if (let () (declare (not safe)) - (##pair? _code199688199752_)) - (let ((_tl199736199910_ + (##pair? _code201937202001_)) + (let ((_tl201985202159_ (let () (declare (not safe)) - (##cdr _code199688199752_))) - (_hd199735199908_ + (##cdr _code201937202001_))) + (_hd201984202157_ (let () (declare (not safe)) - (##car _code199688199752_)))) + (##car _code201937202001_)))) (if (let () (declare (not safe)) - (##eq? _hd199735199908_ 'let)) + (##eq? _hd201984202157_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl199736199910_)) - (let ((_tl199738199915_ + (##pair? _tl201985202159_)) + (let ((_tl201987202164_ (let () (declare (not safe)) - (##cdr _tl199736199910_))) - (_hd199737199913_ + (##cdr _tl201985202159_))) + (_hd201986202162_ (let () (declare (not safe)) - (##car _tl199736199910_)))) + (##car _tl201985202159_)))) (if (let () (declare (not safe)) - (##pair? _hd199737199913_)) - (let ((_tl199746199920_ + (##pair? _hd201986202162_)) + (let ((_tl201995202169_ (let () (declare (not safe)) - (##cdr _hd199737199913_))) - (_hd199745199918_ + (##cdr _hd201986202162_))) + (_hd201994202167_ (let () (declare (not safe)) - (##car _hd199737199913_)))) + (##car _hd201986202162_)))) (if (let () (declare (not safe)) - (##pair? _hd199745199918_)) - (let ((_tl199748199925_ + (##pair? _hd201994202167_)) + (let ((_tl201997202174_ (let () (declare (not safe)) - (##cdr _hd199745199918_))) - (_hd199747199923_ + (##cdr _hd201994202167_))) + (_hd201996202172_ (let () (declare (not safe)) - (##car _hd199745199918_)))) + (##car _hd201994202167_)))) (if (let () (declare (not safe)) - (##pair? _tl199748199925_)) - (let ((_tl199750199932_ + (##pair? _tl201997202174_)) + (let ((_tl201999202181_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _tl199748199925_))) - (_hd199749199930_ + (##cdr _tl201997202174_))) + (_hd201998202179_ (let () (declare (not safe)) - (##car _tl199748199925_)))) + (##car _tl201997202174_)))) (if (let () (declare (not safe)) - (##null? _tl199750199932_)) + (##null? _tl201999202181_)) (if (let () (declare (not safe)) - (##null? _tl199746199920_)) + (##null? _tl201995202169_)) (if (let () (declare (not safe)) - (##pair? _tl199738199915_)) - (let ((_tl199740199939_ + (##pair? _tl201987202164_)) + (let ((_tl201989202188_ (let () (declare (not safe)) - (##cdr _tl199738199915_))) - (_hd199739199937_ + (##cdr _tl201987202164_))) + (_hd201988202186_ (let () (declare (not safe)) - (##car _tl199738199915_)))) + (##car _tl201987202164_)))) (if (let () (declare (not safe)) - (##pair? _hd199739199937_)) - (let ((_tl199742199944_ + (##pair? _hd201988202186_)) + (let ((_tl201991202193_ (let () (declare (not safe)) - (##cdr _hd199739199937_))) - (_hd199741199942_ + (##cdr _hd201988202186_))) + (_hd201990202191_ (let () (declare (not safe)) - (##car _hd199739199937_)))) + (##car _hd201988202186_)))) (if (let () (declare (not safe)) - (##eq? _hd199741199942_ 'let)) + (##eq? _hd201990202191_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl199742199944_)) - (let ((_tl199744199949_ + (##pair? _tl201991202193_)) + (let ((_tl201993202198_ (let () (declare (not safe)) - (##cdr _tl199742199944_))) - (_hd199743199947_ + (##cdr _tl201991202193_))) + (_hd201992202196_ (let () (declare (not safe)) - (##car _tl199742199944_)))) + (##car _tl201991202193_)))) (if (let () (declare (not safe)) - (##null? _hd199743199947_)) + (##null? _hd201992202196_)) (if (let () (declare (not safe)) - (##null? _tl199740199939_)) - (let ((_id199928_ + (##null? _tl201989202188_)) + (let ((_id202177_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd199747199923_) - (_expr199935_ _hd199749199930_) - (_body199952_ _tl199744199949_)) + _hd201996202172_) + (_expr202184_ _hd201998202179_) + (_body202201_ _tl201993202198_)) (let () (declare (not safe)) - (_K199734199905_ _body199952_ _expr199935_ _id199928_))) - (let () (declare (not safe)) (_else199692199760_))) - (if (let () (declare (not safe)) (##pair? _hd199743199947_)) - (let ((_tl199723199879_ + (_K201983202154_ _body202201_ _expr202184_ _id202177_))) + (let () (declare (not safe)) (_else201941202009_))) + (if (let () (declare (not safe)) (##pair? _hd201992202196_)) + (let ((_tl201972202128_ (let () (declare (not safe)) - (##cdr _hd199743199947_))) - (_hd199722199877_ + (##cdr _hd201992202196_))) + (_hd201971202126_ (let () (declare (not safe)) - (##car _hd199743199947_)))) + (##car _hd201992202196_)))) (if (let () (declare (not safe)) - (##pair? _hd199722199877_)) - (let ((_tl199725199884_ + (##pair? _hd201971202126_)) + (let ((_tl201974202133_ (let () (declare (not safe)) - (##cdr _hd199722199877_))) - (_hd199724199882_ + (##cdr _hd201971202126_))) + (_hd201973202131_ (let () (declare (not safe)) - (##car _hd199722199877_)))) + (##car _hd201971202126_)))) (if (let () (declare (not safe)) - (##pair? _tl199725199884_)) - (let ((_tl199727199891_ + (##pair? _tl201974202133_)) + (let ((_tl201976202140_ (let () (declare (not safe)) - (##cdr _tl199725199884_))) - (_hd199726199889_ + (##cdr _tl201974202133_))) + (_hd201975202138_ (let () (declare (not safe)) - (##car _tl199725199884_)))) + (##car _tl201974202133_)))) (if (let () (declare (not safe)) - (##null? _tl199727199891_)) + (##null? _tl201976202140_)) (if (let () (declare (not safe)) - (##null? _tl199723199879_)) + (##null? _tl201972202128_)) (if (let () (declare (not safe)) - (##null? _tl199740199939_)) - (let ((_id1199853_ - _hd199747199923_) - (_expr1199860_ - _hd199749199930_) - (_id2199887_ - _hd199724199882_) - (_expr2199894_ - _hd199726199889_) - (_body199896_ - _tl199744199949_)) + (##null? _tl201989202188_)) + (let ((_id1202102_ + _hd201996202172_) + (_expr1202109_ + _hd201998202179_) + (_id2202136_ + _hd201973202131_) + (_expr2202143_ + _hd201975202138_) + (_body202145_ + _tl201993202198_)) (let () (declare (not safe)) - (_K199711199830_ - _body199896_ - _expr2199894_ - _id2199887_ - _expr1199860_ - _id1199853_))) + (_K201960202079_ + _body202145_ + _expr2202143_ + _id2202136_ + _expr1202109_ + _id1202102_))) (let () (declare (not safe)) - (_else199692199760_))) + (_else201941202009_))) (let () (declare (not safe)) - (_else199692199760_))) + (_else201941202009_))) (let () (declare (not safe)) - (_else199692199760_)))) + (_else201941202009_)))) (let () (declare (not safe)) - (_else199692199760_)))) - (let () (declare (not safe)) (_else199692199760_)))) - (let () (declare (not safe)) (_else199692199760_))))) + (_else201941202009_)))) + (let () (declare (not safe)) (_else201941202009_)))) + (let () (declare (not safe)) (_else201941202009_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else199692199760_))) + (_else201941202009_))) (if (let () (declare (not safe)) - (##eq? _hd199741199942_ + (##eq? _hd201990202191_ 'let*)) (if (let () (declare (not safe)) - (##pair? _tl199742199944_)) - (let ((_tl199704199813_ + (##pair? _tl201991202193_)) + (let ((_tl201953202062_ (let () (declare (not safe)) - (##cdr _tl199742199944_))) - (_hd199703199811_ + (##cdr _tl201991202193_))) + (_hd201952202060_ (let () (declare (not safe)) - (##car _tl199742199944_)))) + (##car _tl201991202193_)))) (if (let () (declare (not safe)) - (##null? _tl199740199939_)) - (let ((_id1199792_ + (##null? _tl201989202188_)) + (let ((_id1202041_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd199747199923_) - (_expr1199799_ _hd199749199930_) - (_bind199816_ _hd199703199811_) - (_body199818_ _tl199704199813_)) + _hd201996202172_) + (_expr1202048_ _hd201998202179_) + (_bind202065_ _hd201952202060_) + (_body202067_ _tl201953202062_)) (let () (declare (not safe)) - (_K199694199769_ - _body199818_ - _bind199816_ - _expr1199799_ - _id1199792_))) - (let () (declare (not safe)) (_else199692199760_)))) + (_K201943202018_ + _body202067_ + _bind202065_ + _expr1202048_ + _id1202041_))) + (let () (declare (not safe)) (_else201941202009_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else199692199760_))) + (_else201941202009_))) (let () (declare (not safe)) - (_else199692199760_))))) + (_else201941202009_))))) (let () (declare (not safe)) - (_else199692199760_)))) + (_else201941202009_)))) (let () (declare (not safe)) - (_else199692199760_))) - (let () (declare (not safe)) (_else199692199760_))) - (let () (declare (not safe)) (_else199692199760_)))) - (let () (declare (not safe)) (_else199692199760_)))) + (_else201941202009_))) + (let () (declare (not safe)) (_else201941202009_))) + (let () (declare (not safe)) (_else201941202009_)))) + (let () (declare (not safe)) (_else201941202009_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else199692199760_)))) + (_else201941202009_)))) (let () (declare (not safe)) - (_else199692199760_)))) + (_else201941202009_)))) (let () (declare (not safe)) - (_else199692199760_))) + (_else201941202009_))) (let () (declare (not safe)) - (_else199692199760_)))) + (_else201941202009_)))) (let () (declare (not safe)) - (_else199692199760_))))))) - (_generate-values199386_ - (lambda (_hd199500_ _body199501_) - (let _lp199503_ ((_rest199505_ _hd199500_) - (_bind199506_ '()) - (_check199507_ '()) - (_post199508_ '())) - (let* ((___stx209406209407_ _rest199505_) - (_g199511199522_ + (_else201941202009_))))))) + (_generate-values201635_ + (lambda (_hd201749_ _body201750_) + (let _lp201752_ ((_rest201754_ _hd201749_) + (_bind201755_ '()) + (_check201756_ '()) + (_post201757_ '())) + (let* ((___stx211755211756_ _rest201754_) + (_g201760201771_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209406209407_))))) - (let ((___kont209408209409_ - (lambda (_L199549_ _L199550_) - (let* ((___stx209362209363_ _L199550_) - (_g199565199590_ + ___stx211755211756_))))) + (let ((___kont211757211758_ + (lambda (_L201798_ _L201799_) + (let* ((___stx211711211712_ _L201799_) + (_g201814201839_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209362209363_))))) - (let ((___kont209364209365_ - (lambda (_L199663_ _L199664_) - (let ((_eid199678_ + ___stx211711211712_))))) + (let ((___kont211713211714_ + (lambda (_L201912_ _L201913_) + (let ((_eid201927_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L199664_))) - (_expr199679_ + _L201913_))) + (_expr201928_ (let () (declare (not safe)) (gxc#compile-e__0 - _L199663_)))) - (let ((__tmp210486 - (let ((__tmp210487 - (let ((__tmp210488 + _L201912_)))) + (let ((__tmp212835 + (let ((__tmp212836 + (let ((__tmp212837 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr199679_ '())))) + (cons _expr201928_ '())))) (declare (not safe)) - (cons _eid199678_ __tmp210488)))) + (cons _eid201927_ __tmp212837)))) (declare (not safe)) - (cons __tmp210487 _bind199506_)))) + (cons __tmp212836 _bind201755_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp199503_ - _L199549_ - __tmp210486 - _check199507_ - _post199508_))))) - (___kont209366209367_ - (lambda (_L199611_ _L199612_) - (let* ((_vals199625_ + (_lp201752_ + _L201798_ + __tmp212835 + _check201756_ + _post201757_))))) + (___kont211715211716_ + (lambda (_L201860_ _L201861_) + (let* ((_vals201874_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values199627_ + (_check-values201876_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals199625_ - _L199612_ - _L199611_))) - (_refs199629_ + _vals201874_ + _L201861_ + _L201860_))) + (_refs201878_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals199625_ - _L199612_))) - (_expr199631_ + _vals201874_ + _L201861_))) + (_expr201880_ (let () (declare (not safe)) (gxc#compile-e__0 - _L199611_)))) - (let ((__tmp210491 - (let ((__tmp210492 - (let ((__tmp210493 + _L201860_)))) + (let ((__tmp212840 + (let ((__tmp212841 + (let ((__tmp212842 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr199631_ '())))) + (cons _expr201880_ '())))) (declare (not safe)) - (cons _vals199625_ __tmp210493)))) + (cons _vals201874_ __tmp212842)))) (declare (not safe)) - (cons __tmp210492 _bind199506_))) - (__tmp210490 + (cons __tmp212841 _bind201755_))) + (__tmp212839 (let () (declare (not safe)) - (cons _check-values199627_ _check199507_))) - (__tmp210489 - (let () (declare (not safe)) (cons _refs199629_ _post199508_)))) + (cons _check-values201876_ _check201756_))) + (__tmp212838 + (let () (declare (not safe)) (cons _refs201878_ _post201757_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp199503_ - _L199549_ - __tmp210491 - __tmp210490 - __tmp210489)))))) + (_lp201752_ + _L201798_ + __tmp212840 + __tmp212839 + __tmp212838)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx209362209363_)) - (let ((_e199571199639_ + ___stx211711211712_)) + (let ((_e201820201888_ (let () (declare (not safe)) (gx#stx-e - ___stx209362209363_)))) - (let ((_tl199569199644_ + ___stx211711211712_)))) + (let ((_tl201818201893_ (let () (declare (not safe)) - (##cdr _e199571199639_))) - (_hd199570199642_ + (##cdr _e201820201888_))) + (_hd201819201891_ (let () (declare (not safe)) - (##car _e199571199639_)))) + (##car _e201820201888_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd199570199642_)) - (let ((_e199574199647_ + _hd201819201891_)) + (let ((_e201823201896_ (let () (declare (not safe)) (gx#stx-e - _hd199570199642_)))) - (let ((_tl199572199652_ + _hd201819201891_)))) + (let ((_tl201821201901_ (let () (declare (not safe)) - (##cdr _e199574199647_))) - (_hd199573199650_ + (##cdr _e201823201896_))) + (_hd201822201899_ (let () (declare (not safe)) - (##car _e199574199647_)))) + (##car _e201823201896_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl199572199652_)) + _tl201821201901_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl199569199644_)) - (let ((_e199577199655_ + (gx#stx-pair? _tl201818201893_)) + (let ((_e201826201904_ (let () (declare (not safe)) - (gx#stx-e _tl199569199644_)))) - (let ((_tl199575199660_ + (gx#stx-e _tl201818201893_)))) + (let ((_tl201824201909_ (let () (declare (not safe)) - (##cdr _e199577199655_))) - (_hd199576199658_ + (##cdr _e201826201904_))) + (_hd201825201907_ (let () (declare (not safe)) - (##car _e199577199655_)))) + (##car _e201826201904_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199575199660_)) - (___kont209364209365_ - _hd199576199658_ - _hd199573199650_) + (gx#stx-null? _tl201824201909_)) + (___kont211713211714_ + _hd201825201907_ + _hd201822201899_) (let () (declare (not safe)) - (_g199565199590_))))) - (let () (declare (not safe)) (_g199565199590_))) + (_g201814201839_))))) + (let () (declare (not safe)) (_g201814201839_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199569199644_)) - (let ((_e199585199603_ + (gx#stx-pair? _tl201818201893_)) + (let ((_e201834201852_ (let () (declare (not safe)) - (gx#stx-e _tl199569199644_)))) - (let ((_tl199583199608_ + (gx#stx-e _tl201818201893_)))) + (let ((_tl201832201857_ (let () (declare (not safe)) - (##cdr _e199585199603_))) - (_hd199584199606_ + (##cdr _e201834201852_))) + (_hd201833201855_ (let () (declare (not safe)) - (##car _e199585199603_)))) + (##car _e201834201852_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199583199608_)) - (___kont209366209367_ - _hd199584199606_ - _hd199570199642_) + (gx#stx-null? _tl201832201857_)) + (___kont211715211716_ + _hd201833201855_ + _hd201819201891_) (let () (declare (not safe)) - (_g199565199590_))))) - (let () (declare (not safe)) (_g199565199590_)))))) + (_g201814201839_))))) + (let () (declare (not safe)) (_g201814201839_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl199569199644_)) - (let ((_e199585199603_ + _tl201818201893_)) + (let ((_e201834201852_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl199569199644_)))) - (let ((_tl199583199608_ - (let () (declare (not safe)) (##cdr _e199585199603_))) - (_hd199584199606_ - (let () (declare (not safe)) (##car _e199585199603_)))) + (gx#stx-e _tl201818201893_)))) + (let ((_tl201832201857_ + (let () (declare (not safe)) (##cdr _e201834201852_))) + (_hd201833201855_ + (let () (declare (not safe)) (##car _e201834201852_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199583199608_)) - (___kont209366209367_ _hd199584199606_ _hd199570199642_) - (let () (declare (not safe)) (_g199565199590_))))) - (let () (declare (not safe)) (_g199565199590_)))))) + (gx#stx-null? _tl201832201857_)) + (___kont211715211716_ _hd201833201855_ _hd201819201891_) + (let () (declare (not safe)) (_g201814201839_))))) + (let () (declare (not safe)) (_g201814201839_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g199565199590_))))))) - (___kont209410209411_ + (_g201814201839_))))))) + (___kont211759211760_ (lambda () - (let* ((_body199529_ - (if _compiled-body?199381_ - _body199501_ + (let* ((_body201778_ + (if _compiled-body?201630_ + _body201750_ (let () (declare (not safe)) (gxc#compile-e__0 - _body199501_)))) - (_body199531_ + _body201750_)))) + (_body201780_ (let () (declare (not safe)) - (_generate-values-post199387_ - _post199508_ - _body199529_))) - (_body199533_ + (_generate-values-post201636_ + _post201757_ + _body201778_))) + (_body201782_ (let () (declare (not safe)) - (_generate-values-check199388_ - _check199507_ - _body199531_)))) - (let ((__tmp210494 - (let ((__tmp210496 - (reverse _bind199506_)) - (__tmp210495 + (_generate-values-check201637_ + _check201756_ + _body201780_)))) + (let ((__tmp212843 + (let ((__tmp212845 + (reverse _bind201755_)) + (__tmp212844 (let () (declare (not safe)) - (cons _body199533_ '())))) + (cons _body201782_ '())))) (declare (not safe)) - (cons __tmp210496 __tmp210495)))) + (cons __tmp212845 __tmp212844)))) (declare (not safe)) - (cons 'let __tmp210494)))))) + (cons 'let __tmp212843)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx209406209407_)) - (let ((_e199517199541_ + (gx#stx-pair? ___stx211755211756_)) + (let ((_e201766201790_ (let () (declare (not safe)) - (gx#stx-e ___stx209406209407_)))) - (let ((_tl199515199546_ + (gx#stx-e ___stx211755211756_)))) + (let ((_tl201764201795_ (let () (declare (not safe)) - (##cdr _e199517199541_))) - (_hd199516199544_ + (##cdr _e201766201790_))) + (_hd201765201793_ (let () (declare (not safe)) - (##car _e199517199541_)))) - (___kont209408209409_ - _tl199515199546_ - _hd199516199544_))) - (___kont209410209411_))))))) - (_generate-values-post199387_ - (lambda (_post199459_ _body199460_) - (let _lp199462_ ((_rest199464_ _post199459_) - (_body199465_ _body199460_)) - (let* ((_rest199466199474_ _rest199464_) - (_else199468199482_ (lambda () _body199465_)) - (_K199470199488_ - (lambda (_rest199485_ _bind199486_) - (let ((__tmp210497 - (let ((__tmp210498 - (let ((__tmp210499 + (##car _e201766201790_)))) + (___kont211757211758_ + _tl201764201795_ + _hd201765201793_))) + (___kont211759211760_))))))) + (_generate-values-post201636_ + (lambda (_post201708_ _body201709_) + (let _lp201711_ ((_rest201713_ _post201708_) + (_body201714_ _body201709_)) + (let* ((_rest201715201723_ _rest201713_) + (_else201717201731_ (lambda () _body201714_)) + (_K201719201737_ + (lambda (_rest201734_ _bind201735_) + (let ((__tmp212846 + (let ((__tmp212847 + (let ((__tmp212848 (let () (declare (not safe)) - (cons _body199465_ + (cons _body201714_ '())))) (declare (not safe)) - (cons _bind199486_ - __tmp210499)))) + (cons _bind201735_ + __tmp212848)))) (declare (not safe)) - (cons 'let __tmp210498)))) + (cons 'let __tmp212847)))) (declare (not safe)) - (_lp199462_ _rest199485_ __tmp210497))))) + (_lp201711_ _rest201734_ __tmp212846))))) (if (let () (declare (not safe)) - (##pair? _rest199466199474_)) - (let ((_hd199471199491_ + (##pair? _rest201715201723_)) + (let ((_hd201720201740_ (let () (declare (not safe)) - (##car _rest199466199474_))) - (_tl199472199493_ + (##car _rest201715201723_))) + (_tl201721201742_ (let () (declare (not safe)) - (##cdr _rest199466199474_)))) - (let* ((_bind199496_ _hd199471199491_) - (_rest199498_ _tl199472199493_)) + (##cdr _rest201715201723_)))) + (let* ((_bind201745_ _hd201720201740_) + (_rest201747_ _tl201721201742_)) (declare (not safe)) - (_K199470199488_ _rest199498_ _bind199496_))) + (_K201719201737_ _rest201747_ _bind201745_))) (let () (declare (not safe)) - (_else199468199482_))))))) - (_generate-values-check199388_ - (lambda (_check199456_ _body199457_) - (let ((__tmp210500 - (let ((__tmp210502 + (_else201717201731_))))))) + (_generate-values-check201637_ + (lambda (_check201705_ _body201706_) + (let ((__tmp212849 + (let ((__tmp212851 (let () (declare (not safe)) - (cons _body199457_ '()))) - (__tmp210501 (reverse _check199456_))) + (cons _body201706_ '()))) + (__tmp212850 (reverse _check201705_))) (declare (not safe)) - (foldr1 cons __tmp210502 __tmp210501)))) + (foldr1 cons __tmp212851 __tmp212850)))) (declare (not safe)) - (cons 'begin __tmp210500))))) - (let* ((_g199390199407_ - (lambda (_g199391199404_) + (cons 'begin __tmp212849))))) + (let* ((_g201639201656_ + (lambda (_g201640201653_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199391199404_)))) - (_g199389199453_ - (lambda (_g199391199410_) + _g201640201653_)))) + (_g201638201702_ + (lambda (_g201640201659_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199391199410_)) - (let ((_e199396199412_ + (gx#stx-pair? _g201640201659_)) + (let ((_e201645201661_ (let () (declare (not safe)) - (gx#stx-e _g199391199410_)))) - (let ((_hd199395199415_ + (gx#stx-e _g201640201659_)))) + (let ((_hd201644201664_ (let () (declare (not safe)) - (##car _e199396199412_))) - (_tl199394199417_ + (##car _e201645201661_))) + (_tl201643201666_ (let () (declare (not safe)) - (##cdr _e199396199412_)))) + (##cdr _e201645201661_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199394199417_)) - (let ((_e199399199420_ + (gx#stx-pair? _tl201643201666_)) + (let ((_e201648201669_ (let () (declare (not safe)) - (gx#stx-e _tl199394199417_)))) - (let ((_hd199398199423_ + (gx#stx-e _tl201643201666_)))) + (let ((_hd201647201672_ (let () (declare (not safe)) - (##car _e199399199420_))) - (_tl199397199425_ + (##car _e201648201669_))) + (_tl201646201674_ (let () (declare (not safe)) - (##cdr _e199399199420_)))) + (##cdr _e201648201669_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199397199425_)) - (let ((_e199402199428_ + (gx#stx-pair? _tl201646201674_)) + (let ((_e201651201677_ (let () (declare (not safe)) (gx#stx-e - _tl199397199425_)))) - (let ((_hd199401199431_ + _tl201646201674_)))) + (let ((_hd201650201680_ (let () (declare (not safe)) - (##car _e199402199428_))) - (_tl199400199433_ + (##car _e201651201677_))) + (_tl201649201682_ (let () (declare (not safe)) - (##cdr _e199402199428_)))) + (##cdr _e201651201677_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl199400199433_)) - ((lambda (_L199436_ - _L199437_) + _tl201649201682_)) + ((lambda (_L201685_ + _L201686_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L199437_)) + _L201686_)) (let () (declare (not safe)) - (_generate-simple199383_ - _L199437_ - _L199436_)) + (_generate-simple201632_ + _L201686_ + _L201685_)) (let () (declare (not safe)) - (_generate-values199386_ - _L199437_ - _L199436_)))) - _hd199401199431_ - _hd199398199423_) + (_generate-values201635_ + _L201686_ + _L201685_)))) + _hd201650201680_ + _hd201647201672_) (let () (declare (not safe)) - (_g199390199407_ - _g199391199410_))))) + (_g201639201656_ + _g201640201659_))))) (let () (declare (not safe)) - (_g199390199407_ - _g199391199410_))))) + (_g201639201656_ + _g201640201659_))))) (let () (declare (not safe)) - (_g199390199407_ _g199391199410_))))) + (_g201639201656_ _g201640201659_))))) (let () (declare (not safe)) - (_g199390199407_ _g199391199410_)))))) + (_g201639201656_ _g201640201659_)))))) (declare (not safe)) - (_g199389199453_ _stx199380_))))) + (_g201638201702_ _stx201629_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_stx200099_) - (let ((_compiled-body?200101_ '#f)) + (lambda (_stx202348_) + (let ((_compiled-body?202350_ '#f)) (declare (not safe)) (gxc#generate-runtime-let-values%__% - _stx200099_ - _compiled-body?200101_)))) + _stx202348_ + _compiled-body?202350_)))) (define gxc#generate-runtime-let-values% - (lambda _g210504_ - (let ((_g210503_ (let () (declare (not safe)) (##length _g210504_)))) - (cond ((let () (declare (not safe)) (##fx= _g210503_ 1)) - (apply (lambda (_stx200099_) + (lambda _g212853_ + (let ((_g212852_ (let () (declare (not safe)) (##length _g212853_)))) + (cond ((let () (declare (not safe)) (##fx= _g212852_ 1)) + (apply (lambda (_stx202348_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__0 - _stx200099_))) - _g210504_)) - ((let () (declare (not safe)) (##fx= _g210503_ 2)) - (apply (lambda (_stx200103_ _compiled-body?200104_) + _stx202348_))) + _g212853_)) + ((let () (declare (not safe)) (##fx= _g212852_ 2)) + (apply (lambda (_stx202352_ _compiled-body?202353_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__% - _stx200103_ - _compiled-body?200104_))) - _g210504_)) + _stx202352_ + _compiled-body?202353_))) + _g212853_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g210504_)))))) + _g212853_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_vals199274_ _hd199275_) - (let _lp199277_ ((_rest199279_ _hd199275_) - (_k199280_ '0) - (_r199281_ '())) - (let* ((___stx209420209421_ _rest199279_) - (_g199286199303_ + (lambda (_vals201523_ _hd201524_) + (let _lp201526_ ((_rest201528_ _hd201524_) + (_k201529_ '0) + (_r201530_ '())) + (let* ((___stx211769211770_ _rest201528_) + (_g201535201552_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209420209421_))))) - (let ((___kont209422209423_ - (lambda (_L199366_) - (let ((__tmp210505 + ___stx211769211770_))))) + (let ((___kont211771211772_ + (lambda (_L201615_) + (let ((__tmp212854 (let () (declare (not safe)) - (fx+ _k199280_ '1)))) + (fx+ _k201529_ '1)))) (declare (not safe)) - (_lp199277_ _L199366_ __tmp210505 _r199281_)))) - (___kont209424209425_ - (lambda (_L199339_ _L199340_) - (let ((__tmp210511 - (let () (declare (not safe)) (fx+ _k199280_ '1))) - (__tmp210506 - (let ((__tmp210507 - (let ((__tmp210510 + (_lp201526_ _L201615_ __tmp212854 _r201530_)))) + (___kont211773211774_ + (lambda (_L201588_ _L201589_) + (let ((__tmp212860 + (let () (declare (not safe)) (fx+ _k201529_ '1))) + (__tmp212855 + (let ((__tmp212856 + (let ((__tmp212859 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L199340_))) - (__tmp210508 - (let ((__tmp210509 + _L201589_))) + (__tmp212857 + (let ((__tmp212858 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _vals199274_ - _k199280_ - _L199339_)))) + _vals201523_ + _k201529_ + _L201588_)))) (declare (not safe)) - (cons __tmp210509 '())))) + (cons __tmp212858 '())))) (declare (not safe)) - (cons __tmp210510 __tmp210508)))) + (cons __tmp212859 __tmp212857)))) (declare (not safe)) - (cons __tmp210507 _r199281_)))) + (cons __tmp212856 _r201530_)))) (declare (not safe)) - (_lp199277_ _L199339_ __tmp210511 __tmp210506)))) - (___kont209426209427_ - (lambda (_L199315_) - (let ((__tmp210512 - (let ((__tmp210513 - (let ((__tmp210516 + (_lp201526_ _L201588_ __tmp212860 __tmp212855)))) + (___kont211775211776_ + (lambda (_L201564_) + (let ((__tmp212861 + (let ((__tmp212862 + (let ((__tmp212865 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L199315_))) - (__tmp210514 - (let ((__tmp210515 + _L201564_))) + (__tmp212863 + (let ((__tmp212864 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _vals199274_ - _k199280_)))) + _vals201523_ + _k201529_)))) (declare (not safe)) - (cons __tmp210515 '())))) + (cons __tmp212864 '())))) (declare (not safe)) - (cons __tmp210516 __tmp210514)))) + (cons __tmp212865 __tmp212863)))) (declare (not safe)) - (cons __tmp210513 '())))) + (cons __tmp212862 '())))) (declare (not safe)) - (foldl1 cons __tmp210512 _r199281_)))) - (___kont209428209429_ (lambda () (reverse _r199281_)))) - (let ((_g199284199326_ + (foldl1 cons __tmp212861 _r201530_)))) + (___kont211777211778_ (lambda () (reverse _r201530_)))) + (let ((_g201533201575_ (lambda () - (let ((_L199315_ ___stx209420209421_)) + (let ((_L201564_ ___stx211769211770_)) (if (let () (declare (not safe)) - (gx#identifier? _L199315_)) - (___kont209426209427_ _L199315_) - (___kont209428209429_)))))) + (gx#identifier? _L201564_)) + (___kont211775211776_ _L201564_) + (___kont211777211778_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx209420209421_)) - (let ((_e199291199355_ + (gx#stx-pair? ___stx211769211770_)) + (let ((_e201540201604_ (let () (declare (not safe)) - (gx#stx-e ___stx209420209421_)))) - (let ((_tl199289199360_ + (gx#stx-e ___stx211769211770_)))) + (let ((_tl201538201609_ (let () (declare (not safe)) - (##cdr _e199291199355_))) - (_hd199290199358_ + (##cdr _e201540201604_))) + (_hd201539201607_ (let () (declare (not safe)) - (##car _e199291199355_)))) + (##car _e201540201604_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd199290199358_)) - (let ((_e199292199363_ + (gx#stx-datum? _hd201539201607_)) + (let ((_e201541201612_ (let () (declare (not safe)) - (gx#stx-e _hd199290199358_)))) + (gx#stx-e _hd201539201607_)))) (if (let () (declare (not safe)) - (equal? _e199292199363_ '#f)) - (___kont209422209423_ _tl199289199360_) - (___kont209424209425_ - _tl199289199360_ - _hd199290199358_))) - (___kont209424209425_ - _tl199289199360_ - _hd199290199358_)))) - (let () (declare (not safe)) (_g199284199326_))))))))) + (equal? _e201541201612_ '#f)) + (___kont211771211772_ _tl201538201609_) + (___kont211773211774_ + _tl201538201609_ + _hd201539201607_))) + (___kont211773211774_ + _tl201538201609_ + _hd201539201607_)))) + (let () (declare (not safe)) (_g201533201575_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_stx198956_ _compiled-body?198957_) - (letrec ((_generate-simple198959_ - (lambda (_hd199261_ _body199262_) + (lambda (_stx201205_ _compiled-body?201206_) + (letrec ((_generate-simple201208_ + (lambda (_hd201510_ _body201511_) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec - _hd199261_ - _body199262_ - _compiled-body?198957_)))) - (_generate-values198960_ - (lambda (_hd199040_ _body199041_) - (let _lp199043_ ((_rest199045_ _hd199040_) - (_bind199046_ '()) - (_check199047_ '()) - (_post199048_ '())) - (let* ((___stx209494209495_ _rest199045_) - (_g199051199062_ + _hd201510_ + _body201511_ + _compiled-body?201206_)))) + (_generate-values201209_ + (lambda (_hd201289_ _body201290_) + (let _lp201292_ ((_rest201294_ _hd201289_) + (_bind201295_ '()) + (_check201296_ '()) + (_post201297_ '())) + (let* ((___stx211843211844_ _rest201294_) + (_g201300201311_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209494209495_))))) - (let ((___kont209496209497_ - (lambda (_L199089_ _L199090_) - (let* ((___stx209450209451_ _L199090_) - (_g199105199130_ + ___stx211843211844_))))) + (let ((___kont211845211846_ + (lambda (_L201338_ _L201339_) + (let* ((___stx211799211800_ _L201339_) + (_g201354201379_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209450209451_))))) - (let ((___kont209452209453_ - (lambda (_L199237_ _L199238_) - (let ((_eid199252_ + ___stx211799211800_))))) + (let ((___kont211801211802_ + (lambda (_L201486_ _L201487_) + (let ((_eid201501_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L199238_))) - (_expr199253_ + _L201487_))) + (_expr201502_ (let () (declare (not safe)) (gxc#compile-e__0 - _L199237_)))) - (let ((__tmp210517 - (let ((__tmp210518 - (let ((__tmp210519 + _L201486_)))) + (let ((__tmp212866 + (let ((__tmp212867 + (let ((__tmp212868 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr199253_ '())))) + (cons _expr201502_ '())))) (declare (not safe)) - (cons _eid199252_ __tmp210519)))) + (cons _eid201501_ __tmp212868)))) (declare (not safe)) - (cons __tmp210518 _bind199046_)))) + (cons __tmp212867 _bind201295_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp199043_ - _L199089_ - __tmp210517 - _check199047_ - _post199048_))))) - (___kont209454209455_ - (lambda (_L199151_ _L199152_) - (let* ((_vals199165_ + (_lp201292_ + _L201338_ + __tmp212866 + _check201296_ + _post201297_))))) + (___kont211803211804_ + (lambda (_L201400_ _L201401_) + (let* ((_vals201414_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values199167_ + (_check-values201416_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals199165_ - _L199152_ - _L199151_))) - (_refs199169_ + _vals201414_ + _L201401_ + _L201400_))) + (_refs201418_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals199165_ - _L199152_))) - (_expr199171_ + _vals201414_ + _L201401_))) + (_expr201420_ (let () (declare (not safe)) (gxc#compile-e__0 - _L199151_)))) - (let ((__tmp210522 - (let ((__tmp210525 - (let ((__tmp210526 + _L201400_)))) + (let ((__tmp212871 + (let ((__tmp212874 + (let ((__tmp212875 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210527 + (let ((__tmp212876 (let () (declare (not safe)) - (cons _expr199171_ '())))) + (cons _expr201420_ '())))) (declare (not safe)) - (cons _vals199165_ __tmp210527)))) + (cons _vals201414_ __tmp212876)))) (declare (not safe)) - (cons __tmp210526 _bind199046_))) - (__tmp210523 - (map (lambda (_e199173199175_) - (let* ((_g199177199186_ _e199173199175_) - (_E199179199190_ + (cons __tmp212875 _bind201295_))) + (__tmp212872 + (map (lambda (_e201422201424_) + (let* ((_g201426201435_ _e201422201424_) + (_E201428201439_ (lambda () (error '"No clause matching" - _g199177199186_))) - (_K199180199195_ - (lambda (_eid199193_) - (let ((__tmp210524 + _g201426201435_))) + (_K201429201444_ + (lambda (_eid201442_) + (let ((__tmp212873 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons _eid199193_ __tmp210524))))) + (cons _eid201442_ __tmp212873))))) (if (let () (declare (not safe)) - (##pair? _g199177199186_)) - (let ((_hd199181199198_ + (##pair? _g201426201435_)) + (let ((_hd201430201447_ (let () (declare (not safe)) - (##car _g199177199186_))) - (_tl199182199200_ + (##car _g201426201435_))) + (_tl201431201449_ (let () (declare (not safe)) - (##cdr _g199177199186_)))) - (let ((_eid199203_ _hd199181199198_)) + (##cdr _g201426201435_)))) + (let ((_eid201452_ _hd201430201447_)) (if (let () (declare (not safe)) - (##pair? _tl199182199200_)) - (let ((_tl199184199205_ + (##pair? _tl201431201449_)) + (let ((_tl201433201454_ (let () (declare (not safe)) - (##cdr _tl199182199200_)))) + (##cdr _tl201431201449_)))) (if (let () (declare (not safe)) - (##null? _tl199184199205_)) + (##null? _tl201433201454_)) (let () (declare (not safe)) - (_K199180199195_ - _eid199203_)) + (_K201429201444_ + _eid201452_)) (let () (declare (not safe)) - (_E199179199190_)))) + (_E201428201439_)))) (let () (declare (not safe)) - (_E199179199190_))))) + (_E201428201439_))))) (let () (declare (not safe)) - (_E199179199190_))))) - _refs199169_))) + (_E201428201439_))))) + _refs201418_))) (declare (not safe)) - (foldl1 cons __tmp210525 __tmp210523))) - (__tmp210521 + (foldl1 cons __tmp212874 __tmp212872))) + (__tmp212870 (let () (declare (not safe)) - (cons _check-values199167_ _check199047_))) - (__tmp210520 + (cons _check-values201416_ _check201296_))) + (__tmp212869 (let () (declare (not safe)) - (foldl1 cons _refs199169_ _post199048_)))) + (foldl1 cons _refs201418_ _post201297_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp199043_ - _L199089_ - __tmp210522 - __tmp210521 - __tmp210520)))))) + (_lp201292_ + _L201338_ + __tmp212871 + __tmp212870 + __tmp212869)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx209450209451_)) - (let ((_e199111199213_ + ___stx211799211800_)) + (let ((_e201360201462_ (let () (declare (not safe)) (gx#stx-e - ___stx209450209451_)))) - (let ((_tl199109199218_ + ___stx211799211800_)))) + (let ((_tl201358201467_ (let () (declare (not safe)) - (##cdr _e199111199213_))) - (_hd199110199216_ + (##cdr _e201360201462_))) + (_hd201359201465_ (let () (declare (not safe)) - (##car _e199111199213_)))) + (##car _e201360201462_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd199110199216_)) - (let ((_e199114199221_ + _hd201359201465_)) + (let ((_e201363201470_ (let () (declare (not safe)) (gx#stx-e - _hd199110199216_)))) - (let ((_tl199112199226_ + _hd201359201465_)))) + (let ((_tl201361201475_ (let () (declare (not safe)) - (##cdr _e199114199221_))) - (_hd199113199224_ + (##cdr _e201363201470_))) + (_hd201362201473_ (let () (declare (not safe)) - (##car _e199114199221_)))) + (##car _e201363201470_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl199112199226_)) + _tl201361201475_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl199109199218_)) - (let ((_e199117199229_ + (gx#stx-pair? _tl201358201467_)) + (let ((_e201366201478_ (let () (declare (not safe)) - (gx#stx-e _tl199109199218_)))) - (let ((_tl199115199234_ + (gx#stx-e _tl201358201467_)))) + (let ((_tl201364201483_ (let () (declare (not safe)) - (##cdr _e199117199229_))) - (_hd199116199232_ + (##cdr _e201366201478_))) + (_hd201365201481_ (let () (declare (not safe)) - (##car _e199117199229_)))) + (##car _e201366201478_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199115199234_)) - (___kont209452209453_ - _hd199116199232_ - _hd199113199224_) + (gx#stx-null? _tl201364201483_)) + (___kont211801211802_ + _hd201365201481_ + _hd201362201473_) (let () (declare (not safe)) - (_g199105199130_))))) - (let () (declare (not safe)) (_g199105199130_))) + (_g201354201379_))))) + (let () (declare (not safe)) (_g201354201379_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199109199218_)) - (let ((_e199125199143_ + (gx#stx-pair? _tl201358201467_)) + (let ((_e201374201392_ (let () (declare (not safe)) - (gx#stx-e _tl199109199218_)))) - (let ((_tl199123199148_ + (gx#stx-e _tl201358201467_)))) + (let ((_tl201372201397_ (let () (declare (not safe)) - (##cdr _e199125199143_))) - (_hd199124199146_ + (##cdr _e201374201392_))) + (_hd201373201395_ (let () (declare (not safe)) - (##car _e199125199143_)))) + (##car _e201374201392_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199123199148_)) - (___kont209454209455_ - _hd199124199146_ - _hd199110199216_) + (gx#stx-null? _tl201372201397_)) + (___kont211803211804_ + _hd201373201395_ + _hd201359201465_) (let () (declare (not safe)) - (_g199105199130_))))) - (let () (declare (not safe)) (_g199105199130_)))))) + (_g201354201379_))))) + (let () (declare (not safe)) (_g201354201379_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl199109199218_)) - (let ((_e199125199143_ + _tl201358201467_)) + (let ((_e201374201392_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl199109199218_)))) - (let ((_tl199123199148_ - (let () (declare (not safe)) (##cdr _e199125199143_))) - (_hd199124199146_ - (let () (declare (not safe)) (##car _e199125199143_)))) + (gx#stx-e _tl201358201467_)))) + (let ((_tl201372201397_ + (let () (declare (not safe)) (##cdr _e201374201392_))) + (_hd201373201395_ + (let () (declare (not safe)) (##car _e201374201392_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199123199148_)) - (___kont209454209455_ _hd199124199146_ _hd199110199216_) - (let () (declare (not safe)) (_g199105199130_))))) - (let () (declare (not safe)) (_g199105199130_)))))) + (gx#stx-null? _tl201372201397_)) + (___kont211803211804_ _hd201373201395_ _hd201359201465_) + (let () (declare (not safe)) (_g201354201379_))))) + (let () (declare (not safe)) (_g201354201379_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g199105199130_))))))) - (___kont209498209499_ + (_g201354201379_))))))) + (___kont211847211848_ (lambda () - (let* ((_body199069_ - (if _compiled-body?198957_ - _body199041_ + (let* ((_body201318_ + (if _compiled-body?201206_ + _body201290_ (let () (declare (not safe)) (gxc#compile-e__0 - _body199041_)))) - (_body199071_ + _body201290_)))) + (_body201320_ (let () (declare (not safe)) - (_generate-values-post198962_ - _post199048_ - _body199069_))) - (_body199073_ + (_generate-values-post201211_ + _post201297_ + _body201318_))) + (_body201322_ (let () (declare (not safe)) - (_generate-values-check198961_ - _check199047_ - _body199071_)))) - (let ((__tmp210528 - (let ((__tmp210530 - (reverse _bind199046_)) - (__tmp210529 + (_generate-values-check201210_ + _check201296_ + _body201320_)))) + (let ((__tmp212877 + (let ((__tmp212879 + (reverse _bind201295_)) + (__tmp212878 (let () (declare (not safe)) - (cons _body199073_ '())))) + (cons _body201322_ '())))) (declare (not safe)) - (cons __tmp210530 __tmp210529)))) + (cons __tmp212879 __tmp212878)))) (declare (not safe)) - (cons 'letrec __tmp210528)))))) + (cons 'letrec __tmp212877)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx209494209495_)) - (let ((_e199057199081_ + (gx#stx-pair? ___stx211843211844_)) + (let ((_e201306201330_ (let () (declare (not safe)) - (gx#stx-e ___stx209494209495_)))) - (let ((_tl199055199086_ + (gx#stx-e ___stx211843211844_)))) + (let ((_tl201304201335_ (let () (declare (not safe)) - (##cdr _e199057199081_))) - (_hd199056199084_ + (##cdr _e201306201330_))) + (_hd201305201333_ (let () (declare (not safe)) - (##car _e199057199081_)))) - (___kont209496209497_ - _tl199055199086_ - _hd199056199084_))) - (___kont209498209499_))))))) - (_generate-values-check198961_ - (lambda (_check199037_ _body199038_) - (let ((__tmp210531 - (let ((__tmp210533 + (##car _e201306201330_)))) + (___kont211845211846_ + _tl201304201335_ + _hd201305201333_))) + (___kont211847211848_))))))) + (_generate-values-check201210_ + (lambda (_check201286_ _body201287_) + (let ((__tmp212880 + (let ((__tmp212882 (let () (declare (not safe)) - (cons _body199038_ '()))) - (__tmp210532 (reverse _check199037_))) + (cons _body201287_ '()))) + (__tmp212881 (reverse _check201286_))) (declare (not safe)) - (foldr1 cons __tmp210533 __tmp210532)))) + (foldr1 cons __tmp212882 __tmp212881)))) (declare (not safe)) - (cons 'begin __tmp210531)))) - (_generate-values-post198962_ - (lambda (_post199030_ _body199031_) - (let ((__tmp210534 - (let ((__tmp210536 + (cons 'begin __tmp212880)))) + (_generate-values-post201211_ + (lambda (_post201279_ _body201280_) + (let ((__tmp212883 + (let ((__tmp212885 (let () (declare (not safe)) - (cons _body199031_ '()))) - (__tmp210535 - (map (lambda (_g199032199034_) + (cons _body201280_ '()))) + (__tmp212884 + (map (lambda (_g201281201283_) (let () (declare (not safe)) - (cons 'set! _g199032199034_))) - (reverse _post199030_)))) + (cons 'set! _g201281201283_))) + (reverse _post201279_)))) (declare (not safe)) - (foldr1 cons __tmp210536 __tmp210535)))) + (foldr1 cons __tmp212885 __tmp212884)))) (declare (not safe)) - (cons 'begin __tmp210534))))) - (let* ((_g198964198981_ - (lambda (_g198965198978_) + (cons 'begin __tmp212883))))) + (let* ((_g201213201230_ + (lambda (_g201214201227_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198965198978_)))) - (_g198963199027_ - (lambda (_g198965198984_) + _g201214201227_)))) + (_g201212201276_ + (lambda (_g201214201233_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198965198984_)) - (let ((_e198970198986_ + (gx#stx-pair? _g201214201233_)) + (let ((_e201219201235_ (let () (declare (not safe)) - (gx#stx-e _g198965198984_)))) - (let ((_hd198969198989_ + (gx#stx-e _g201214201233_)))) + (let ((_hd201218201238_ (let () (declare (not safe)) - (##car _e198970198986_))) - (_tl198968198991_ + (##car _e201219201235_))) + (_tl201217201240_ (let () (declare (not safe)) - (##cdr _e198970198986_)))) + (##cdr _e201219201235_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198968198991_)) - (let ((_e198973198994_ + (gx#stx-pair? _tl201217201240_)) + (let ((_e201222201243_ (let () (declare (not safe)) - (gx#stx-e _tl198968198991_)))) - (let ((_hd198972198997_ + (gx#stx-e _tl201217201240_)))) + (let ((_hd201221201246_ (let () (declare (not safe)) - (##car _e198973198994_))) - (_tl198971198999_ + (##car _e201222201243_))) + (_tl201220201248_ (let () (declare (not safe)) - (##cdr _e198973198994_)))) + (##cdr _e201222201243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198971198999_)) - (let ((_e198976199002_ + (gx#stx-pair? _tl201220201248_)) + (let ((_e201225201251_ (let () (declare (not safe)) (gx#stx-e - _tl198971198999_)))) - (let ((_hd198975199005_ + _tl201220201248_)))) + (let ((_hd201224201254_ (let () (declare (not safe)) - (##car _e198976199002_))) - (_tl198974199007_ + (##car _e201225201251_))) + (_tl201223201256_ (let () (declare (not safe)) - (##cdr _e198976199002_)))) + (##cdr _e201225201251_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl198974199007_)) - ((lambda (_L199010_ - _L199011_) + _tl201223201256_)) + ((lambda (_L201259_ + _L201260_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L199011_)) + _L201260_)) (let () (declare (not safe)) - (_generate-simple198959_ - _L199011_ - _L199010_)) + (_generate-simple201208_ + _L201260_ + _L201259_)) (let () (declare (not safe)) - (_generate-values198960_ - _L199011_ - _L199010_)))) - _hd198975199005_ - _hd198972198997_) + (_generate-values201209_ + _L201260_ + _L201259_)))) + _hd201224201254_ + _hd201221201246_) (let () (declare (not safe)) - (_g198964198981_ - _g198965198984_))))) + (_g201213201230_ + _g201214201233_))))) (let () (declare (not safe)) - (_g198964198981_ - _g198965198984_))))) + (_g201213201230_ + _g201214201233_))))) (let () (declare (not safe)) - (_g198964198981_ _g198965198984_))))) + (_g201213201230_ _g201214201233_))))) (let () (declare (not safe)) - (_g198964198981_ _g198965198984_)))))) + (_g201213201230_ _g201214201233_)))))) (declare (not safe)) - (_g198963199027_ _stx198956_))))) + (_g201212201276_ _stx201205_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_stx199267_) - (let ((_compiled-body?199269_ '#f)) + (lambda (_stx201516_) + (let ((_compiled-body?201518_ '#f)) (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _stx199267_ - _compiled-body?199269_)))) + _stx201516_ + _compiled-body?201518_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g210538_ - (let ((_g210537_ (let () (declare (not safe)) (##length _g210538_)))) - (cond ((let () (declare (not safe)) (##fx= _g210537_ 1)) - (apply (lambda (_stx199267_) + (lambda _g212887_ + (let ((_g212886_ (let () (declare (not safe)) (##length _g212887_)))) + (cond ((let () (declare (not safe)) (##fx= _g212886_ 1)) + (apply (lambda (_stx201516_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__0 - _stx199267_))) - _g210538_)) - ((let () (declare (not safe)) (##fx= _g210537_ 2)) - (apply (lambda (_stx199271_ _compiled-body?199272_) + _stx201516_))) + _g212887_)) + ((let () (declare (not safe)) (##fx= _g212886_ 2)) + (apply (lambda (_stx201520_ _compiled-body?201521_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _stx199271_ - _compiled-body?199272_))) - _g210538_)) + _stx201520_ + _compiled-body?201521_))) + _g212887_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g210538_)))))) + _g212887_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_stx198538_) - (letrec ((_generate-values198540_ - (lambda (_hd198783_ _body198784_) - (let _lp198786_ ((_rest198788_ _hd198783_) - (_bind198789_ '())) - (let* ((_rest198790198798_ _rest198788_) - (_else198792198809_ + (lambda (_stx200787_) + (letrec ((_generate-values200789_ + (lambda (_hd201032_ _body201033_) + (let _lp201035_ ((_rest201037_ _hd201032_) + (_bind201038_ '())) + (let* ((_rest201039201047_ _rest201037_) + (_else201041201058_ (lambda () - (let ((_bind198806_ (reverse _bind198789_)) - (_body198807_ + (let ((_bind201055_ (reverse _bind201038_)) + (_body201056_ (let () (declare (not safe)) - (gxc#compile-e__0 _body198784_)))) - (let ((__tmp210539 - (let ((__tmp210540 + (gxc#compile-e__0 _body201033_)))) + (let ((__tmp212888 + (let ((__tmp212889 (let () (declare (not safe)) - (cons _body198807_ '())))) + (cons _body201056_ '())))) (declare (not safe)) - (cons _bind198806_ __tmp210540)))) + (cons _bind201055_ __tmp212889)))) (declare (not safe)) - (cons 'letrec* __tmp210539))))) - (_K198794198943_ - (lambda (_rest198812_ _hd-bind198813_) - (let* ((___stx209508209509_ _hd-bind198813_) - (_g198816198841_ + (cons 'letrec* __tmp212888))))) + (_K201043201192_ + (lambda (_rest201061_ _hd-bind201062_) + (let* ((___stx211857211858_ _hd-bind201062_) + (_g201065201090_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209508209509_))))) - (let ((___kont209510209511_ - (lambda (_L198922_ _L198923_) - (let ((_eid198937_ + ___stx211857211858_))))) + (let ((___kont211859211860_ + (lambda (_L201171_ _L201172_) + (let ((_eid201186_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L198923_))) - (_expr198938_ + _L201172_))) + (_expr201187_ (let () (declare (not safe)) (gxc#compile-e__0 - _L198922_)))) - (let ((__tmp210541 - (let ((__tmp210542 - (let ((__tmp210543 + _L201171_)))) + (let ((__tmp212890 + (let ((__tmp212891 + (let ((__tmp212892 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr198938_ '())))) + (cons _expr201187_ '())))) (declare (not safe)) - (cons _eid198937_ __tmp210543)))) + (cons _eid201186_ __tmp212892)))) (declare (not safe)) - (cons __tmp210542 _bind198789_)))) + (cons __tmp212891 _bind201038_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp198786_ - _rest198812_ - __tmp210541))))) - (___kont209512209513_ - (lambda (_L198862_ _L198863_) - (let* ((_vals198882_ + (_lp201035_ + _rest201061_ + __tmp212890))))) + (___kont211861211862_ + (lambda (_L201111_ _L201112_) + (let* ((_vals201131_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_tmp198884_ + (_tmp201133_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values198886_ + (_check-values201135_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp198884_ - _L198863_ - _L198862_))) - (_refs198888_ + _tmp201133_ + _L201112_ + _L201111_))) + (_refs201137_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals198882_ - _L198863_))) - (_expr198890_ + _vals201131_ + _L201112_))) + (_expr201139_ (let () (declare (not safe)) (gxc#compile-e__0 - _L198862_)))) - (let ((__tmp210544 - (let ((__tmp210545 - (let ((__tmp210546 + _L201111_)))) + (let ((__tmp212893 + (let ((__tmp212894 + (let ((__tmp212895 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210547 - (let ((__tmp210548 - (let ((__tmp210549 - (let ((__tmp210552 - (let ((__tmp210553 - (let ((__tmp210554 + (let ((__tmp212896 + (let ((__tmp212897 + (let ((__tmp212898 + (let ((__tmp212901 + (let ((__tmp212902 + (let ((__tmp212903 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr198890_ '())))) + (cons _expr201139_ '())))) (declare (not safe)) - (cons _tmp198884_ __tmp210554)))) + (cons _tmp201133_ __tmp212903)))) (declare (not safe)) - (cons __tmp210553 '()))) - (__tmp210550 - (let ((__tmp210551 - (let () (declare (not safe)) (cons _tmp198884_ '())))) + (cons __tmp212902 '()))) + (__tmp212899 + (let ((__tmp212900 + (let () (declare (not safe)) (cons _tmp201133_ '())))) (declare (not safe)) - (cons _check-values198886_ __tmp210551)))) + (cons _check-values201135_ __tmp212900)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210552 - __tmp210550)))) + (cons __tmp212901 + __tmp212899)))) (declare (not safe)) - (cons 'let __tmp210549)))) + (cons 'let __tmp212898)))) (declare (not safe)) - (cons __tmp210548 '())))) + (cons __tmp212897 '())))) (declare (not safe)) - (cons _vals198882_ __tmp210547)))) + (cons _vals201131_ __tmp212896)))) (declare (not safe)) - (cons __tmp210546 _bind198789_)))) + (cons __tmp212895 _bind201038_)))) (declare (not safe)) - (foldl1 cons __tmp210545 _refs198888_)))) + (foldl1 cons __tmp212894 _refs201137_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp198786_ - _rest198812_ - __tmp210544)))))) + (_lp201035_ + _rest201061_ + __tmp212893)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx209508209509_)) - (let ((_e198822198898_ + (gx#stx-pair? ___stx211857211858_)) + (let ((_e201071201147_ (let () (declare (not safe)) (gx#stx-e - ___stx209508209509_)))) - (let ((_tl198820198903_ + ___stx211857211858_)))) + (let ((_tl201069201152_ (let () (declare (not safe)) - (##cdr _e198822198898_))) - (_hd198821198901_ + (##cdr _e201071201147_))) + (_hd201070201150_ (let () (declare (not safe)) - (##car _e198822198898_)))) + (##car _e201071201147_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd198821198901_)) - (let ((_e198825198906_ + _hd201070201150_)) + (let ((_e201074201155_ (let () (declare (not safe)) (gx#stx-e - _hd198821198901_)))) - (let ((_tl198823198911_ + _hd201070201150_)))) + (let ((_tl201072201160_ (let () (declare (not safe)) - (##cdr _e198825198906_))) - (_hd198824198909_ + (##cdr _e201074201155_))) + (_hd201073201158_ (let () (declare (not safe)) - (##car _e198825198906_)))) + (##car _e201074201155_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl198823198911_)) + _tl201072201160_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl198820198903_)) - (let ((_e198828198914_ + (gx#stx-pair? _tl201069201152_)) + (let ((_e201077201163_ (let () (declare (not safe)) - (gx#stx-e _tl198820198903_)))) - (let ((_tl198826198919_ + (gx#stx-e _tl201069201152_)))) + (let ((_tl201075201168_ (let () (declare (not safe)) - (##cdr _e198828198914_))) - (_hd198827198917_ + (##cdr _e201077201163_))) + (_hd201076201166_ (let () (declare (not safe)) - (##car _e198828198914_)))) + (##car _e201077201163_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198826198919_)) - (___kont209510209511_ - _hd198827198917_ - _hd198824198909_) + (gx#stx-null? _tl201075201168_)) + (___kont211859211860_ + _hd201076201166_ + _hd201073201158_) (let () (declare (not safe)) - (_g198816198841_))))) - (let () (declare (not safe)) (_g198816198841_))) + (_g201065201090_))))) + (let () (declare (not safe)) (_g201065201090_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198820198903_)) - (let ((_e198836198854_ + (gx#stx-pair? _tl201069201152_)) + (let ((_e201085201103_ (let () (declare (not safe)) - (gx#stx-e _tl198820198903_)))) - (let ((_tl198834198859_ + (gx#stx-e _tl201069201152_)))) + (let ((_tl201083201108_ (let () (declare (not safe)) - (##cdr _e198836198854_))) - (_hd198835198857_ + (##cdr _e201085201103_))) + (_hd201084201106_ (let () (declare (not safe)) - (##car _e198836198854_)))) + (##car _e201085201103_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198834198859_)) - (___kont209512209513_ - _hd198835198857_ - _hd198821198901_) + (gx#stx-null? _tl201083201108_)) + (___kont211861211862_ + _hd201084201106_ + _hd201070201150_) (let () (declare (not safe)) - (_g198816198841_))))) - (let () (declare (not safe)) (_g198816198841_)))))) + (_g201065201090_))))) + (let () (declare (not safe)) (_g201065201090_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl198820198903_)) - (let ((_e198836198854_ + _tl201069201152_)) + (let ((_e201085201103_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl198820198903_)))) - (let ((_tl198834198859_ - (let () (declare (not safe)) (##cdr _e198836198854_))) - (_hd198835198857_ - (let () (declare (not safe)) (##car _e198836198854_)))) + (gx#stx-e _tl201069201152_)))) + (let ((_tl201083201108_ + (let () (declare (not safe)) (##cdr _e201085201103_))) + (_hd201084201106_ + (let () (declare (not safe)) (##car _e201085201103_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198834198859_)) - (___kont209512209513_ _hd198835198857_ _hd198821198901_) - (let () (declare (not safe)) (_g198816198841_))))) - (let () (declare (not safe)) (_g198816198841_)))))) + (gx#stx-null? _tl201083201108_)) + (___kont211861211862_ _hd201084201106_ _hd201070201150_) + (let () (declare (not safe)) (_g201065201090_))))) + (let () (declare (not safe)) (_g201065201090_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g198816198841_)))))))) + (_g201065201090_)))))))) (if (let () (declare (not safe)) - (##pair? _rest198790198798_)) - (let ((_hd198795198946_ + (##pair? _rest201039201047_)) + (let ((_hd201044201195_ (let () (declare (not safe)) - (##car _rest198790198798_))) - (_tl198796198948_ + (##car _rest201039201047_))) + (_tl201045201197_ (let () (declare (not safe)) - (##cdr _rest198790198798_)))) - (let* ((_hd-bind198951_ _hd198795198946_) - (_rest198953_ _tl198796198948_)) + (##cdr _rest201039201047_)))) + (let* ((_hd-bind201200_ _hd201044201195_) + (_rest201202_ _tl201045201197_)) (declare (not safe)) - (_K198794198943_ - _rest198953_ - _hd-bind198951_))) + (_K201043201192_ + _rest201202_ + _hd-bind201200_))) (let () (declare (not safe)) - (_else198792198809_))))))) - (_generate-letrec?198541_ - (lambda (_hd198673_) - (let _lp198675_ ((_rest198677_ _hd198673_)) - (let* ((_rest198678198686_ _rest198677_) - (_else198680198694_ (lambda () '#t)) - (_K198682198771_ - (lambda (_rest198697_ _hd-bind198698_) - (let* ((_g198700198717_ - (lambda (_g198701198714_) + (_else201041201058_))))))) + (_generate-letrec?200790_ + (lambda (_hd200922_) + (let _lp200924_ ((_rest200926_ _hd200922_)) + (let* ((_rest200927200935_ _rest200926_) + (_else200929200943_ (lambda () '#t)) + (_K200931201020_ + (lambda (_rest200946_ _hd-bind200947_) + (let* ((_g200949200966_ + (lambda (_g200950200963_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198701198714_)))) - (_g198699198768_ - (lambda (_g198701198720_) + _g200950200963_)))) + (_g200948201017_ + (lambda (_g200950200969_) (if (let () (declare (not safe)) (gx#stx-pair? - _g198701198720_)) - (let ((_e198706198722_ + _g200950200969_)) + (let ((_e200955200971_ (let () (declare (not safe)) (gx#stx-e - _g198701198720_)))) - (let ((_hd198705198725_ + _g200950200969_)))) + (let ((_hd200954200974_ (let () (declare (not safe)) - (##car _e198706198722_))) - (_tl198704198727_ + (##car _e200955200971_))) + (_tl200953200976_ (let () (declare (not safe)) - (##cdr _e198706198722_)))) + (##cdr _e200955200971_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd198705198725_)) - (let ((_e198709198730_ + _hd200954200974_)) + (let ((_e200958200979_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd198705198725_)))) - (let ((_hd198708198733_ - (let () (declare (not safe)) (##car _e198709198730_))) - (_tl198707198735_ + (gx#stx-e _hd200954200974_)))) + (let ((_hd200957200982_ + (let () (declare (not safe)) (##car _e200958200979_))) + (_tl200956200984_ (let () (declare (not safe)) - (##cdr _e198709198730_)))) + (##cdr _e200958200979_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198707198735_)) + (gx#stx-null? _tl200956200984_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198704198727_)) - (let ((_e198712198738_ + (gx#stx-pair? _tl200953200976_)) + (let ((_e200961200987_ (let () (declare (not safe)) - (gx#stx-e _tl198704198727_)))) - (let ((_hd198711198741_ + (gx#stx-e _tl200953200976_)))) + (let ((_hd200960200990_ (let () (declare (not safe)) - (##car _e198712198738_))) - (_tl198710198743_ + (##car _e200961200987_))) + (_tl200959200992_ (let () (declare (not safe)) - (##cdr _e198712198738_)))) + (##cdr _e200961200987_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198710198743_)) - ((lambda (_L198746_ _L198747_) + (gx#stx-null? _tl200959200992_)) + ((lambda (_L200995_ _L200996_) (if (let () (declare (not safe)) - (_is-lambda-expr?198542_ - _L198746_)) + (_is-lambda-expr?200791_ + _L200995_)) (let () (declare (not safe)) - (_lp198675_ _rest198697_)) + (_lp200924_ _rest200946_)) '#f)) - _hd198711198741_ - _hd198708198733_) + _hd200960200990_ + _hd200957200982_) (let () (declare (not safe)) - (_g198700198717_ _g198701198720_))))) + (_g200949200966_ _g200950200969_))))) (let () (declare (not safe)) - (_g198700198717_ _g198701198720_))) + (_g200949200966_ _g200950200969_))) (let () (declare (not safe)) - (_g198700198717_ _g198701198720_))))) + (_g200949200966_ _g200950200969_))))) (let () (declare (not safe)) - (_g198700198717_ _g198701198720_))))) + (_g200949200966_ _g200950200969_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g198700198717_ - _g198701198720_)))))) + (_g200949200966_ + _g200950200969_)))))) (declare (not safe)) - (_g198699198768_ _hd-bind198698_))))) + (_g200948201017_ _hd-bind200947_))))) (if (let () (declare (not safe)) - (##pair? _rest198678198686_)) - (let ((_hd198683198774_ + (##pair? _rest200927200935_)) + (let ((_hd200932201023_ (let () (declare (not safe)) - (##car _rest198678198686_))) - (_tl198684198776_ + (##car _rest200927200935_))) + (_tl200933201025_ (let () (declare (not safe)) - (##cdr _rest198678198686_)))) - (let* ((_hd-bind198779_ _hd198683198774_) - (_rest198781_ _tl198684198776_)) + (##cdr _rest200927200935_)))) + (let* ((_hd-bind201028_ _hd200932201023_) + (_rest201030_ _tl200933201025_)) (declare (not safe)) - (_K198682198771_ - _rest198781_ - _hd-bind198779_))) + (_K200931201020_ + _rest201030_ + _hd-bind201028_))) (let () (declare (not safe)) - (_else198680198694_))))))) - (_is-lambda-expr?198542_ - (lambda (_expr198610_) - (let* ((___stx209552209553_ _expr198610_) - (_g198613198627_ + (_else200929200943_))))))) + (_is-lambda-expr?200791_ + (lambda (_expr200859_) + (let* ((___stx211901211902_ _expr200859_) + (_g200862200876_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209552209553_))))) - (let ((___kont209554209555_ - (lambda (_L198655_ _L198656_) '#t)) - (___kont209556209557_ (lambda () '#f))) + ___stx211901211902_))))) + (let ((___kont211903211904_ + (lambda (_L200904_ _L200905_) '#t)) + (___kont211905211906_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx209552209553_)) - (let ((_e198619198639_ + (gx#stx-pair? ___stx211901211902_)) + (let ((_e200868200888_ (let () (declare (not safe)) - (gx#stx-e ___stx209552209553_)))) - (let ((_tl198617198644_ + (gx#stx-e ___stx211901211902_)))) + (let ((_tl200866200893_ (let () (declare (not safe)) - (##cdr _e198619198639_))) - (_hd198618198642_ + (##cdr _e200868200888_))) + (_hd200867200891_ (let () (declare (not safe)) - (##car _e198619198639_)))) + (##car _e200868200888_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd198618198642_)) + (gx#identifier? _hd200867200891_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd198618198642_)) + _hd200867200891_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl198617198644_)) - (let ((_e198622198647_ + _tl200866200893_)) + (let ((_e200871200896_ (let () (declare (not safe)) (gx#stx-e - _tl198617198644_)))) - (let ((_tl198620198652_ + _tl200866200893_)))) + (let ((_tl200869200901_ (let () (declare (not safe)) - (##cdr _e198622198647_))) - (_hd198621198650_ + (##cdr _e200871200896_))) + (_hd200870200899_ (let () (declare (not safe)) - (##car _e198622198647_)))) - (___kont209554209555_ - _tl198620198652_ - _hd198621198650_))) - (___kont209556209557_)) - (___kont209556209557_)) - (___kont209556209557_)))) - (___kont209556209557_))))))) - (let* ((_g198544198561_ - (lambda (_g198545198558_) + (##car _e200871200896_)))) + (___kont211903211904_ + _tl200869200901_ + _hd200870200899_))) + (___kont211905211906_)) + (___kont211905211906_)) + (___kont211905211906_)))) + (___kont211905211906_))))))) + (let* ((_g200793200810_ + (lambda (_g200794200807_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198545198558_)))) - (_g198543198607_ - (lambda (_g198545198564_) + _g200794200807_)))) + (_g200792200856_ + (lambda (_g200794200813_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198545198564_)) - (let ((_e198550198566_ + (gx#stx-pair? _g200794200813_)) + (let ((_e200799200815_ (let () (declare (not safe)) - (gx#stx-e _g198545198564_)))) - (let ((_hd198549198569_ + (gx#stx-e _g200794200813_)))) + (let ((_hd200798200818_ (let () (declare (not safe)) - (##car _e198550198566_))) - (_tl198548198571_ + (##car _e200799200815_))) + (_tl200797200820_ (let () (declare (not safe)) - (##cdr _e198550198566_)))) + (##cdr _e200799200815_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198548198571_)) - (let ((_e198553198574_ + (gx#stx-pair? _tl200797200820_)) + (let ((_e200802200823_ (let () (declare (not safe)) - (gx#stx-e _tl198548198571_)))) - (let ((_hd198552198577_ + (gx#stx-e _tl200797200820_)))) + (let ((_hd200801200826_ (let () (declare (not safe)) - (##car _e198553198574_))) - (_tl198551198579_ + (##car _e200802200823_))) + (_tl200800200828_ (let () (declare (not safe)) - (##cdr _e198553198574_)))) + (##cdr _e200802200823_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198551198579_)) - (let ((_e198556198582_ + (gx#stx-pair? _tl200800200828_)) + (let ((_e200805200831_ (let () (declare (not safe)) (gx#stx-e - _tl198551198579_)))) - (let ((_hd198555198585_ + _tl200800200828_)))) + (let ((_hd200804200834_ (let () (declare (not safe)) - (##car _e198556198582_))) - (_tl198554198587_ + (##car _e200805200831_))) + (_tl200803200836_ (let () (declare (not safe)) - (##cdr _e198556198582_)))) + (##cdr _e200805200831_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl198554198587_)) - ((lambda (_L198590_ - _L198591_) + _tl200803200836_)) + ((lambda (_L200839_ + _L200840_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L198591_)) + _L200840_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate-letrec?198541_ _L198591_)) + (_generate-letrec?200790_ _L200840_)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec - _L198591_ - _L198590_ + _L200840_ + _L200839_ '#f)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec* - _L198591_ - _L198590_ + _L200840_ + _L200839_ '#f))) (let () (declare (not safe)) - (_generate-values198540_ _L198591_ _L198590_)))) + (_generate-values200789_ _L200840_ _L200839_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd198555198585_ - _hd198552198577_) + _hd200804200834_ + _hd200801200826_) (let () (declare (not safe)) - (_g198544198561_ - _g198545198564_))))) + (_g200793200810_ + _g200794200813_))))) (let () (declare (not safe)) - (_g198544198561_ - _g198545198564_))))) + (_g200793200810_ + _g200794200813_))))) (let () (declare (not safe)) - (_g198544198561_ _g198545198564_))))) + (_g200793200810_ _g200794200813_))))) (let () (declare (not safe)) - (_g198544198561_ _g198545198564_)))))) + (_g200793200810_ _g200794200813_)))))) (declare (not safe)) - (_g198543198607_ _stx198538_))))) + (_g200792200856_ _stx200787_))))) (define gxc#generate-runtime-simple-let? - (lambda (_hd198475_) - (let _lp198477_ ((_rest198479_ _hd198475_)) - (let* ((_rest198480198496_ _rest198479_) - (_else198483198504_ (lambda () '#f))) - (let ((_K198486198517_ - (lambda (_rest198515_) + (lambda (_hd200724_) + (let _lp200726_ ((_rest200728_ _hd200724_)) + (let* ((_rest200729200745_ _rest200728_) + (_else200732200753_ (lambda () '#f))) + (let ((_K200735200766_ + (lambda (_rest200764_) (let () (declare (not safe)) - (_lp198477_ _rest198515_)))) - (_K198485198509_ (lambda () '#t))) - (let ((_try-match198482198512_ + (_lp200726_ _rest200764_)))) + (_K200734200758_ (lambda () '#t))) + (let ((_try-match200731200761_ (lambda () (if (let () (declare (not safe)) - (##null? _rest198480198496_)) - (let () (declare (not safe)) (_K198485198509_)) + (##null? _rest200729200745_)) + (let () (declare (not safe)) (_K200734200758_)) (let () (declare (not safe)) - (_else198483198504_)))))) + (_else200732200753_)))))) (if (let () (declare (not safe)) - (##pair? _rest198480198496_)) - (let ((_tl198488198522_ + (##pair? _rest200729200745_)) + (let ((_tl200737200771_ (let () (declare (not safe)) - (##cdr _rest198480198496_))) - (_hd198487198520_ + (##cdr _rest200729200745_))) + (_hd200736200769_ (let () (declare (not safe)) - (##car _rest198480198496_)))) + (##car _rest200729200745_)))) (if (let () (declare (not safe)) - (##pair? _hd198487198520_)) - (let ((_tl198490198527_ + (##pair? _hd200736200769_)) + (let ((_tl200739200776_ (let () (declare (not safe)) - (##cdr _hd198487198520_))) - (_hd198489198525_ + (##cdr _hd200736200769_))) + (_hd200738200774_ (let () (declare (not safe)) - (##car _hd198487198520_)))) + (##car _hd200736200769_)))) (if (let () (declare (not safe)) - (##pair? _hd198489198525_)) - (let ((_tl198494198530_ + (##pair? _hd200738200774_)) + (let ((_tl200743200779_ (let () (declare (not safe)) - (##cdr _hd198489198525_)))) + (##cdr _hd200738200774_)))) (if (let () (declare (not safe)) - (##null? _tl198494198530_)) + (##null? _tl200743200779_)) (if (let () (declare (not safe)) - (##pair? _tl198490198527_)) - (let ((_tl198492198533_ + (##pair? _tl200739200776_)) + (let ((_tl200741200782_ (let () (declare (not safe)) - (##cdr _tl198490198527_)))) + (##cdr _tl200739200776_)))) (if (let () (declare (not safe)) - (##null? _tl198492198533_)) - (let ((_rest198536_ - _tl198488198522_)) + (##null? _tl200741200782_)) + (let ((_rest200785_ + _tl200737200771_)) (declare (not safe)) - (_lp198477_ _rest198536_)) + (_lp200726_ _rest200785_)) (let () (declare (not safe)) - (_else198483198504_)))) + (_else200732200753_)))) (let () (declare (not safe)) - (_else198483198504_))) + (_else200732200753_))) (let () (declare (not safe)) - (_else198483198504_)))) + (_else200732200753_)))) (let () (declare (not safe)) - (_else198483198504_)))) + (_else200732200753_)))) (let () (declare (not safe)) - (_else198483198504_)))) + (_else200732200753_)))) (let () (declare (not safe)) - (_try-match198482198512_))))))))) + (_try-match200731200761_))))))))) (define gxc#generate-runtime-simple-let - (lambda (_form198387_ _hd198388_ _body198389_ _compiled-body?198390_) - (letrec ((_generate1198392_ - (lambda (_bind198431_) - (let* ((_bind198432198443_ _bind198431_) - (_E198434198447_ + (lambda (_form200636_ _hd200637_ _body200638_ _compiled-body?200639_) + (letrec ((_generate1200641_ + (lambda (_bind200680_) + (let* ((_bind200681200692_ _bind200680_) + (_E200683200696_ (lambda () (error '"No clause matching" - _bind198432198443_))) - (_K198435198453_ - (lambda (_expr198450_ _id198451_) - (let ((__tmp210557 + _bind200681200692_))) + (_K200684200702_ + (lambda (_expr200699_ _id200700_) + (let ((__tmp212906 (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _id198451_))) - (__tmp210555 - (let ((__tmp210556 + _id200700_))) + (__tmp212904 + (let ((__tmp212905 (let () (declare (not safe)) (gxc#compile-e__0 - _expr198450_)))) + _expr200699_)))) (declare (not safe)) - (cons __tmp210556 '())))) + (cons __tmp212905 '())))) (declare (not safe)) - (cons __tmp210557 __tmp210555))))) + (cons __tmp212906 __tmp212904))))) (if (let () (declare (not safe)) - (##pair? _bind198432198443_)) - (let ((_hd198436198456_ + (##pair? _bind200681200692_)) + (let ((_hd200685200705_ (let () (declare (not safe)) - (##car _bind198432198443_))) - (_tl198437198458_ + (##car _bind200681200692_))) + (_tl200686200707_ (let () (declare (not safe)) - (##cdr _bind198432198443_)))) + (##cdr _bind200681200692_)))) (if (let () (declare (not safe)) - (##pair? _hd198436198456_)) - (let ((_hd198440198461_ + (##pair? _hd200685200705_)) + (let ((_hd200689200710_ (let () (declare (not safe)) - (##car _hd198436198456_))) - (_tl198441198463_ + (##car _hd200685200705_))) + (_tl200690200712_ (let () (declare (not safe)) - (##cdr _hd198436198456_)))) - (let ((_id198466_ _hd198440198461_)) + (##cdr _hd200685200705_)))) + (let ((_id200715_ _hd200689200710_)) (if (let () (declare (not safe)) - (##null? _tl198441198463_)) + (##null? _tl200690200712_)) (if (let () (declare (not safe)) - (##pair? _tl198437198458_)) - (let ((_hd198438198468_ + (##pair? _tl200686200707_)) + (let ((_hd200687200717_ (let () (declare (not safe)) - (##car _tl198437198458_))) - (_tl198439198470_ + (##car _tl200686200707_))) + (_tl200688200719_ (let () (declare (not safe)) - (##cdr _tl198437198458_)))) - (let ((_expr198473_ - _hd198438198468_)) + (##cdr _tl200686200707_)))) + (let ((_expr200722_ + _hd200687200717_)) (if (let () (declare (not safe)) - (##null? _tl198439198470_)) + (##null? _tl200688200719_)) (let () (declare (not safe)) - (_K198435198453_ - _expr198473_ - _id198466_)) + (_K200684200702_ + _expr200722_ + _id200715_)) (let () (declare (not safe)) - (_E198434198447_))))) + (_E200683200696_))))) (let () (declare (not safe)) - (_E198434198447_))) + (_E200683200696_))) (let () (declare (not safe)) - (_E198434198447_))))) + (_E200683200696_))))) (let () (declare (not safe)) - (_E198434198447_)))) + (_E200683200696_)))) (let () (declare (not safe)) - (_E198434198447_))))))) - (let* ((_bind198394_ (map _generate1198392_ _hd198388_)) - (_body198396_ - (if _compiled-body?198390_ - _body198389_ + (_E200683200696_))))))) + (let* ((_bind200643_ (map _generate1200641_ _hd200637_)) + (_body200645_ + (if _compiled-body?200639_ + _body200638_ (let () (declare (not safe)) - (gxc#compile-e__0 _body198389_)))) - (_body198428_ - (let* ((_body198397198405_ _body198396_) - (_else198399198413_ + (gxc#compile-e__0 _body200638_)))) + (_body200677_ + (let* ((_body200646200654_ _body200645_) + (_else200648200662_ (lambda () (let () (declare (not safe)) - (cons _body198396_ '())))) - (_K198401198418_ - (lambda (_exprs198416_) _exprs198416_))) + (cons _body200645_ '())))) + (_K200650200667_ + (lambda (_exprs200665_) _exprs200665_))) (if (let () (declare (not safe)) - (##pair? _body198397198405_)) - (let ((_hd198402198421_ + (##pair? _body200646200654_)) + (let ((_hd200651200670_ (let () (declare (not safe)) - (##car _body198397198405_))) - (_tl198403198423_ + (##car _body200646200654_))) + (_tl200652200672_ (let () (declare (not safe)) - (##cdr _body198397198405_)))) + (##cdr _body200646200654_)))) (if (let () (declare (not safe)) - (##eq? _hd198402198421_ 'begin)) - (let ((_exprs198426_ _tl198403198423_)) + (##eq? _hd200651200670_ 'begin)) + (let ((_exprs200675_ _tl200652200672_)) (declare (not safe)) - (_K198401198418_ _exprs198426_)) + (_K200650200667_ _exprs200675_)) (let () (declare (not safe)) - (_else198399198413_)))) + (_else200648200662_)))) (let () (declare (not safe)) - (_else198399198413_)))))) - (let ((__tmp210558 + (_else200648200662_)))))) + (let ((__tmp212907 (let () (declare (not safe)) - (cons _bind198394_ _body198428_)))) + (cons _bind200643_ _body200677_)))) (declare (not safe)) - (cons _form198387_ __tmp210558)))))) + (cons _form200636_ __tmp212907)))))) (define gxc#generate-runtime-quote% - (lambda (_stx198295_) - (letrec ((_generate1198297_ - (lambda (_datum198349_) + (lambda (_stx200544_) + (letrec ((_generate1200546_ + (lambda (_datum200598_) (if (or (let () (declare (not safe)) - (null? _datum198349_)) - (interned-symbol? _datum198349_) + (null? _datum200598_)) + (interned-symbol? _datum200598_) (let () (declare (not safe)) - (gx#self-quoting? _datum198349_)) + (gx#self-quoting? _datum200598_)) (let () (declare (not safe)) - (eof-object? _datum198349_))) - _datum198349_ - (if (uninterned-symbol? _datum198349_) + (eof-object? _datum200598_))) + _datum200598_ + (if (uninterned-symbol? _datum200598_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _datum198349_ + _datum200598_ '#t)) (if (let () (declare (not safe)) - (pair? _datum198349_)) - (let ((__tmp210563 - (let ((__tmp210564 - (car _datum198349_))) + (pair? _datum200598_)) + (let ((__tmp212912 + (let ((__tmp212913 + (car _datum200598_))) (declare (not safe)) - (_generate1198297_ __tmp210564))) - (__tmp210561 - (let ((__tmp210562 - (cdr _datum198349_))) + (_generate1200546_ __tmp212913))) + (__tmp212910 + (let ((__tmp212911 + (cdr _datum200598_))) (declare (not safe)) - (_generate1198297_ __tmp210562)))) + (_generate1200546_ __tmp212911)))) (declare (not safe)) - (cons __tmp210563 __tmp210561)) + (cons __tmp212912 __tmp212910)) (if (let () (declare (not safe)) - (box? _datum198349_)) - (let ((__tmp210559 - (let ((__tmp210560 - (unbox _datum198349_))) + (box? _datum200598_)) + (let ((__tmp212908 + (let ((__tmp212909 + (unbox _datum200598_))) (declare (not safe)) - (_generate1198297_ - __tmp210560)))) + (_generate1200546_ + __tmp212909)))) (declare (not safe)) - (box __tmp210559)) + (box __tmp212908)) (if (let () (declare (not safe)) - (vector? _datum198349_)) + (vector? _datum200598_)) (vector-map - _generate1198297_ - _datum198349_) - (if (or (s8vector? _datum198349_) + _generate1200546_ + _datum200598_) + (if (or (s8vector? _datum200598_) (let () (declare (not safe)) - (u8vector? _datum198349_)) - (s16vector? _datum198349_) - (u16vector? _datum198349_) - (s32vector? _datum198349_) - (u32vector? _datum198349_) - (s64vector? _datum198349_) - (u64vector? _datum198349_) - (f32vector? _datum198349_) - (f64vector? _datum198349_)) - _datum198349_ + (u8vector? _datum200598_)) + (s16vector? _datum200598_) + (u16vector? _datum200598_) + (s32vector? _datum200598_) + (u32vector? _datum200598_) + (s64vector? _datum200598_) + (u64vector? _datum200598_) + (f32vector? _datum200598_) + (f64vector? _datum200598_)) + _datum200598_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _stx198295_))))))))))) - (let* ((_g198299198312_ - (lambda (_g198300198309_) + _stx200544_))))))))))) + (let* ((_g200548200561_ + (lambda (_g200549200558_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198300198309_)))) - (_g198298198346_ - (lambda (_g198300198315_) + _g200549200558_)))) + (_g200547200595_ + (lambda (_g200549200564_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198300198315_)) - (let ((_e198304198317_ + (gx#stx-pair? _g200549200564_)) + (let ((_e200553200566_ (let () (declare (not safe)) - (gx#stx-e _g198300198315_)))) - (let ((_hd198303198320_ + (gx#stx-e _g200549200564_)))) + (let ((_hd200552200569_ (let () (declare (not safe)) - (##car _e198304198317_))) - (_tl198302198322_ + (##car _e200553200566_))) + (_tl200551200571_ (let () (declare (not safe)) - (##cdr _e198304198317_)))) + (##cdr _e200553200566_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198302198322_)) - (let ((_e198307198325_ + (gx#stx-pair? _tl200551200571_)) + (let ((_e200556200574_ (let () (declare (not safe)) - (gx#stx-e _tl198302198322_)))) - (let ((_hd198306198328_ + (gx#stx-e _tl200551200571_)))) + (let ((_hd200555200577_ (let () (declare (not safe)) - (##car _e198307198325_))) - (_tl198305198330_ + (##car _e200556200574_))) + (_tl200554200579_ (let () (declare (not safe)) - (##cdr _e198307198325_)))) + (##cdr _e200556200574_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198305198330_)) - ((lambda (_L198333_) - (let ((__tmp210565 - (let ((__tmp210566 - (let ((__tmp210567 + (gx#stx-null? _tl200554200579_)) + ((lambda (_L200582_) + (let ((__tmp212914 + (let ((__tmp212915 + (let ((__tmp212916 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L198333_)))) + (let () (declare (not safe)) (gx#stx-e _L200582_)))) (declare (not safe)) - (_generate1198297_ __tmp210567)))) + (_generate1200546_ __tmp212916)))) (declare (not safe)) - (cons __tmp210566 '())))) + (cons __tmp212915 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'quote __tmp210565))) - _hd198306198328_) + (cons 'quote __tmp212914))) + _hd200555200577_) (let () (declare (not safe)) - (_g198299198312_ - _g198300198315_))))) + (_g200548200561_ + _g200549200564_))))) (let () (declare (not safe)) - (_g198299198312_ _g198300198315_))))) + (_g200548200561_ _g200549200564_))))) (let () (declare (not safe)) - (_g198299198312_ _g198300198315_)))))) + (_g200548200561_ _g200549200564_)))))) (declare (not safe)) - (_g198298198346_ _stx198295_))))) + (_g200547200595_ _stx200544_))))) (define gxc#generate-runtime-call% - (lambda (_stx197813_) - (letrec ((_compile-call197815_ - (lambda (_rator198039_ _rands198040_) - (let ((_rator198042_ + (lambda (_stx200062_) + (letrec ((_compile-call200064_ + (lambda (_rator200288_ _rands200289_) + (let ((_rator200291_ (let () (declare (not safe)) - (gxc#compile-e__0 _rator198039_))) - (_rands198043_ (map gxc#compile-e _rands198040_))) - (let* ((___stx209599209600_ _rator198042_) - (_g198046198098_ + (gxc#compile-e__0 _rator200288_))) + (_rands200292_ (map gxc#compile-e _rands200289_))) + (let* ((___stx211948211949_ _rator200291_) + (_g200295200347_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209599209600_))))) - (let ((___kont209601209602_ - (lambda (_L198222_ - _L198223_ - _L198224_ - _L198225_) - (if (fx= (length _rands198043_) - (length (let ((__tmp210572 - (lambda (_g198261198264_ + ___stx211948211949_))))) + (let ((___kont211950211951_ + (lambda (_L200471_ + _L200472_ + _L200473_ + _L200474_) + (if (fx= (length _rands200292_) + (length (let ((__tmp212921 + (lambda (_g200510200513_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g198262198266_) + _g200511200515_) (let () (declare (not safe)) - (cons _g198261198264_ _g198262198266_))))) + (cons _g200510200513_ _g200511200515_))))) (declare (not safe)) - (foldr1 __tmp210572 '() _L198224_)))) + (foldr1 __tmp212921 '() _L200473_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_id198269_ _L198225_) - (_args198278_ - (let ((__tmp210568 - (lambda (_g198270198273_ - _g198271198275_) + (let* ((_id200518_ _L200474_) + (_args200527_ + (let ((__tmp212917 + (lambda (_g200519200522_ + _g200520200524_) (let () (declare (not safe)) - (cons _g198270198273_ - _g198271198275_))))) + (cons _g200519200522_ + _g200520200524_))))) (declare (not safe)) - (foldr1 __tmp210568 + (foldr1 __tmp212917 '() - _L198224_))) - (_body198287_ - (let ((__tmp210569 - (lambda (_g198279198282_ - _g198280198284_) + _L200473_))) + (_body200536_ + (let ((__tmp212918 + (lambda (_g200528200531_ + _g200529200533_) (let () (declare (not safe)) - (cons _g198279198282_ - _g198280198284_))))) + (cons _g200528200531_ + _g200529200533_))))) (declare (not safe)) - (foldr1 __tmp210569 + (foldr1 __tmp212918 '() - _L198223_))) - (_init198289_ + _L200472_))) + (_init200538_ (map list - _args198278_ - _rands198043_))) - (let ((__tmp210570 - (let ((__tmp210571 + _args200527_ + _rands200292_))) + (let ((__tmp212919 + (let ((__tmp212920 (let () (declare (not safe)) - (cons _init198289_ - _body198287_)))) + (cons _init200538_ + _body200536_)))) (declare (not safe)) - (cons _id198269_ - __tmp210571)))) + (cons _id200518_ + __tmp212920)))) (declare (not safe)) - (cons 'let __tmp210570))) + (cons 'let __tmp212919))) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _stx197813_))))) - (___kont209607209608_ + _stx200062_))))) + (___kont211956211957_ (lambda () (let () (declare (not safe)) - (cons _rator198042_ _rands198043_))))) - (let ((___match209666209667_ - (lambda (_e198054198110_ - _hd198053198113_ - _tl198052198115_ - _e198057198118_ - _hd198056198121_ - _tl198055198123_ - _e198060198126_ - _hd198059198129_ - _tl198058198131_ - _e198063198134_ - _hd198062198137_ - _tl198061198139_ - _e198066198142_ - _hd198065198145_ - _tl198064198147_ - _e198069198150_ - _hd198068198153_ - _tl198067198155_ - _e198072198158_ - _hd198071198161_ - _tl198070198163_ - ___splice209603209604_ - _target198073198166_ - _tl198075198168_) - (letrec ((_loop198076198171_ - (lambda (_hd198074198174_ - _arg198080198176_) + (cons _rator200291_ _rands200292_))))) + (let ((___match212015212016_ + (lambda (_e200303200359_ + _hd200302200362_ + _tl200301200364_ + _e200306200367_ + _hd200305200370_ + _tl200304200372_ + _e200309200375_ + _hd200308200378_ + _tl200307200380_ + _e200312200383_ + _hd200311200386_ + _tl200310200388_ + _e200315200391_ + _hd200314200394_ + _tl200313200396_ + _e200318200399_ + _hd200317200402_ + _tl200316200404_ + _e200321200407_ + _hd200320200410_ + _tl200319200412_ + ___splice211952211953_ + _target200322200415_ + _tl200324200417_) + (letrec ((_loop200325200420_ + (lambda (_hd200323200423_ + _arg200329200425_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd198074198174_)) - (let ((_e198077198179_ + _hd200323200423_)) + (let ((_e200326200428_ (let () (declare (not safe)) (gx#stx-e - _hd198074198174_)))) - (let ((_lp-tl198079198184_ + _hd200323200423_)))) + (let ((_lp-tl200328200433_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e198077198179_))) - (_lp-hd198078198182_ - (let () (declare (not safe)) (##car _e198077198179_)))) - (let ((__tmp210574 + (##cdr _e200326200428_))) + (_lp-hd200327200431_ + (let () (declare (not safe)) (##car _e200326200428_)))) + (let ((__tmp212923 (let () (declare (not safe)) - (cons _lp-hd198078198182_ _arg198080198176_)))) + (cons _lp-hd200327200431_ _arg200329200425_)))) (declare (not safe)) - (_loop198076198171_ _lp-tl198079198184_ __tmp210574)))) + (_loop200325200420_ _lp-tl200328200433_ __tmp212923)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg198081198187_ - (reverse _arg198080198176_))) + (let ((_arg200330200436_ + (reverse _arg200329200425_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl198070198163_)) - (let ((___splice209605209606_ + _tl200319200412_)) + (let ((___splice211954211955_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _tl198070198163_ '0)))) - (let ((_tl198084198192_ + (gx#syntax-split-splice _tl200319200412_ '0)))) + (let ((_tl200333200441_ (let () (declare (not safe)) - (##vector-ref ___splice209605209606_ '1))) - (_target198082198190_ + (##vector-ref ___splice211954211955_ '1))) + (_target200331200439_ (let () (declare (not safe)) - (##vector-ref ___splice209605209606_ '0)))) + (##vector-ref ___splice211954211955_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198084198192_)) - (letrec ((_loop198085198195_ - (lambda (_hd198083198198_ - _body198089198200_) + (gx#stx-null? _tl200333200441_)) + (letrec ((_loop200334200444_ + (lambda (_hd200332200447_ + _body200338200449_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd198083198198_)) - (let ((_e198086198203_ + (gx#stx-pair? _hd200332200447_)) + (let ((_e200335200452_ (let () (declare (not safe)) (gx#stx-e - _hd198083198198_)))) - (let ((_lp-tl198088198208_ + _hd200332200447_)))) + (let ((_lp-tl200337200457_ (let () (declare (not safe)) - (##cdr _e198086198203_))) - (_lp-hd198087198206_ + (##cdr _e200335200452_))) + (_lp-hd200336200455_ (let () (declare (not safe)) - (##car _e198086198203_)))) - (let ((__tmp210573 + (##car _e200335200452_)))) + (let ((__tmp212922 (let () (declare (not safe)) - (cons _lp-hd198087198206_ - _body198089198200_)))) + (cons _lp-hd200336200455_ + _body200338200449_)))) (declare (not safe)) - (_loop198085198195_ - _lp-tl198088198208_ - __tmp210573)))) - (let ((_body198090198211_ - (reverse _body198089198200_))) + (_loop200334200444_ + _lp-tl200337200457_ + __tmp212922)))) + (let ((_body200339200460_ + (reverse _body200338200449_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl198064198147_)) + _tl200313200396_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl198058198131_)) + _tl200307200380_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl198055198123_)) - (let ((_e198093198214_ + _tl200304200372_)) + (let ((_e200342200463_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl198055198123_)))) - (let ((_tl198091198219_ + (gx#stx-e _tl200304200372_)))) + (let ((_tl200340200468_ (let () (declare (not safe)) - (##cdr _e198093198214_))) - (_hd198092198217_ + (##cdr _e200342200463_))) + (_hd200341200466_ (let () (declare (not safe)) - (##car _e198093198214_)))) + (##car _e200342200463_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198091198219_)) - (let ((_L198222_ _hd198092198217_) - (_L198223_ _body198090198211_) - (_L198224_ _arg198081198187_) - (_L198225_ _hd198062198137_)) + (gx#stx-null? _tl200340200468_)) + (let ((_L200471_ _hd200341200466_) + (_L200472_ _body200339200460_) + (_L200473_ _arg200330200436_) + (_L200474_ _hd200311200386_)) (if (let () (declare (not safe)) - (eq? _L198225_ _L198222_)) - (___kont209601209602_ - _L198222_ - _L198223_ - _L198224_ - _L198225_) - (___kont209607209608_))) - (___kont209607209608_)))) - (___kont209607209608_)) + (eq? _L200474_ _L200471_)) + (___kont211950211951_ + _L200471_ + _L200472_ + _L200473_ + _L200474_) + (___kont211956211957_))) + (___kont211956211957_)))) + (___kont211956211957_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont209607209608_)) - (___kont209607209608_))))))) + (___kont211956211957_)) + (___kont211956211957_))))))) (let () (declare (not safe)) - (_loop198085198195_ _target198082198190_ '()))) - (___kont209607209608_)))) - (___kont209607209608_))))))) + (_loop200334200444_ _target200331200439_ '()))) + (___kont211956211957_)))) + (___kont211956211957_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop198076198171_ - _target198073198166_ + (_loop200325200420_ + _target200322200415_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx209599209600_)) - (let ((_e198054198110_ + (gx#stx-pair? ___stx211948211949_)) + (let ((_e200303200359_ (let () (declare (not safe)) - (gx#stx-e ___stx209599209600_)))) - (let ((_tl198052198115_ + (gx#stx-e ___stx211948211949_)))) + (let ((_tl200301200364_ (let () (declare (not safe)) - (##cdr _e198054198110_))) - (_hd198053198113_ + (##cdr _e200303200359_))) + (_hd200302200362_ (let () (declare (not safe)) - (##car _e198054198110_)))) + (##car _e200303200359_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd198053198113_)) + (gx#identifier? _hd200302200362_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _hd198053198113_)) + _hd200302200362_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl198052198115_)) - (let ((_e198057198118_ + _tl200301200364_)) + (let ((_e200306200367_ (let () (declare (not safe)) (gx#stx-e - _tl198052198115_)))) - (let ((_tl198055198123_ + _tl200301200364_)))) + (let ((_tl200304200372_ (let () (declare (not safe)) - (##cdr _e198057198118_))) - (_hd198056198121_ + (##cdr _e200306200367_))) + (_hd200305200370_ (let () (declare (not safe)) - (##car _e198057198118_)))) + (##car _e200306200367_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd198056198121_)) - (let ((_e198060198126_ + _hd200305200370_)) + (let ((_e200309200375_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd198056198121_)))) - (let ((_tl198058198131_ + (gx#stx-e _hd200305200370_)))) + (let ((_tl200307200380_ (let () (declare (not safe)) - (##cdr _e198060198126_))) - (_hd198059198129_ + (##cdr _e200309200375_))) + (_hd200308200378_ (let () (declare (not safe)) - (##car _e198060198126_)))) + (##car _e200309200375_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd198059198129_)) - (let ((_e198063198134_ + (gx#stx-pair? _hd200308200378_)) + (let ((_e200312200383_ (let () (declare (not safe)) - (gx#stx-e _hd198059198129_)))) - (let ((_tl198061198139_ + (gx#stx-e _hd200308200378_)))) + (let ((_tl200310200388_ (let () (declare (not safe)) - (##cdr _e198063198134_))) - (_hd198062198137_ + (##cdr _e200312200383_))) + (_hd200311200386_ (let () (declare (not safe)) - (##car _e198063198134_)))) + (##car _e200312200383_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198061198139_)) - (let ((_e198066198142_ + (gx#stx-pair? _tl200310200388_)) + (let ((_e200315200391_ (let () (declare (not safe)) - (gx#stx-e _tl198061198139_)))) - (let ((_tl198064198147_ + (gx#stx-e _tl200310200388_)))) + (let ((_tl200313200396_ (let () (declare (not safe)) - (##cdr _e198066198142_))) - (_hd198065198145_ + (##cdr _e200315200391_))) + (_hd200314200394_ (let () (declare (not safe)) - (##car _e198066198142_)))) + (##car _e200315200391_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd198065198145_)) - (let ((_e198069198150_ + (gx#stx-pair? _hd200314200394_)) + (let ((_e200318200399_ (let () (declare (not safe)) (gx#stx-e - _hd198065198145_)))) - (let ((_tl198067198155_ + _hd200314200394_)))) + (let ((_tl200316200404_ (let () (declare (not safe)) - (##cdr _e198069198150_))) - (_hd198068198153_ + (##cdr _e200318200399_))) + (_hd200317200402_ (let () (declare (not safe)) - (##car _e198069198150_)))) + (##car _e200318200399_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd198068198153_)) + _hd200317200402_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _hd198068198153_)) + _hd200317200402_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl198067198155_)) - (let ((_e198072198158_ + _tl200316200404_)) + (let ((_e200321200407_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl198067198155_)))) - (let ((_tl198070198163_ + (gx#stx-e _tl200316200404_)))) + (let ((_tl200319200412_ (let () (declare (not safe)) - (##cdr _e198072198158_))) - (_hd198071198161_ + (##cdr _e200321200407_))) + (_hd200320200410_ (let () (declare (not safe)) - (##car _e198072198158_)))) + (##car _e200321200407_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd198071198161_)) - (let ((___splice209603209604_ + (gx#stx-pair/null? _hd200320200410_)) + (let ((___splice211952211953_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd198071198161_ + _hd200320200410_ '0)))) - (let ((_tl198075198168_ + (let ((_tl200324200417_ (let () (declare (not safe)) - (##vector-ref ___splice209603209604_ '1))) - (_target198073198166_ + (##vector-ref ___splice211952211953_ '1))) + (_target200322200415_ (let () (declare (not safe)) (##vector-ref - ___splice209603209604_ + ___splice211952211953_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198075198168_)) - (___match209666209667_ - _e198054198110_ - _hd198053198113_ - _tl198052198115_ - _e198057198118_ - _hd198056198121_ - _tl198055198123_ - _e198060198126_ - _hd198059198129_ - _tl198058198131_ - _e198063198134_ - _hd198062198137_ - _tl198061198139_ - _e198066198142_ - _hd198065198145_ - _tl198064198147_ - _e198069198150_ - _hd198068198153_ - _tl198067198155_ - _e198072198158_ - _hd198071198161_ - _tl198070198163_ - ___splice209603209604_ - _target198073198166_ - _tl198075198168_) - (___kont209607209608_)))) - (___kont209607209608_)))) - (___kont209607209608_)) - (___kont209607209608_)) + (gx#stx-null? _tl200324200417_)) + (___match212015212016_ + _e200303200359_ + _hd200302200362_ + _tl200301200364_ + _e200306200367_ + _hd200305200370_ + _tl200304200372_ + _e200309200375_ + _hd200308200378_ + _tl200307200380_ + _e200312200383_ + _hd200311200386_ + _tl200310200388_ + _e200315200391_ + _hd200314200394_ + _tl200313200396_ + _e200318200399_ + _hd200317200402_ + _tl200316200404_ + _e200321200407_ + _hd200320200410_ + _tl200319200412_ + ___splice211952211953_ + _target200322200415_ + _tl200324200417_) + (___kont211956211957_)))) + (___kont211956211957_)))) + (___kont211956211957_)) + (___kont211956211957_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont209607209608_)))) - (___kont209607209608_)))) - (___kont209607209608_)))) - (___kont209607209608_)))) - (___kont209607209608_)))) + (___kont211956211957_)))) + (___kont211956211957_)))) + (___kont211956211957_)))) + (___kont211956211957_)))) + (___kont211956211957_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont209607209608_)) - (___kont209607209608_)) - (___kont209607209608_)))) - (___kont209607209608_))))))))) - (let* ((_g197817197831_ - (lambda (_g197818197828_) + (___kont211956211957_)) + (___kont211956211957_)) + (___kont211956211957_)))) + (___kont211956211957_))))))))) + (let* ((_g200066200080_ + (lambda (_g200067200077_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197818197828_)))) - (_g197816198036_ - (lambda (_g197818197834_) + _g200067200077_)))) + (_g200065200285_ + (lambda (_g200067200083_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197818197834_)) - (let ((_e197823197836_ + (gx#stx-pair? _g200067200083_)) + (let ((_e200072200085_ (let () (declare (not safe)) - (gx#stx-e _g197818197834_)))) - (let ((_hd197822197839_ + (gx#stx-e _g200067200083_)))) + (let ((_hd200071200088_ (let () (declare (not safe)) - (##car _e197823197836_))) - (_tl197821197841_ + (##car _e200072200085_))) + (_tl200070200090_ (let () (declare (not safe)) - (##cdr _e197823197836_)))) + (##cdr _e200072200085_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197821197841_)) - (let ((_e197826197844_ + (gx#stx-pair? _tl200070200090_)) + (let ((_e200075200093_ (let () (declare (not safe)) - (gx#stx-e _tl197821197841_)))) - (let ((_hd197825197847_ + (gx#stx-e _tl200070200090_)))) + (let ((_hd200074200096_ (let () (declare (not safe)) - (##car _e197826197844_))) - (_tl197824197849_ + (##car _e200075200093_))) + (_tl200073200098_ (let () (declare (not safe)) - (##cdr _e197826197844_)))) - ((lambda (_L197852_ _L197853_) + (##cdr _e200075200093_)))) + ((lambda (_L200101_ _L200102_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (_compile-call197815_ - _L197853_ - _L197852_)) - (let* ((___stx209715209716_ - _L197853_) - (_g197868197880_ + (_compile-call200064_ + _L200102_ + _L200101_)) + (let* ((___stx212064212065_ + _L200102_) + (_g200117200129_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209715209716_))))) - (let ((___kont209717209718_ + ___stx212064212065_))))) + (let ((___kont212066212067_ (lambda () - (let ((_f197910_ + (let ((_f200159_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _L197853_)))) - (if (let ((__tmp210589 (symbol->string _f197910_))) + (gxc#compile-e__0 _L200102_)))) + (if (let ((__tmp212938 (symbol->string _f200159_))) (declare (not safe)) - (string-prefix? '"##" __tmp210589)) - (let _lp197912_ ((_rest197915_ (reverse _L197852_)) - (_bind197917_ '()) - (_args197918_ '())) - (let* ((_rest197919197927_ _rest197915_) - (_else197921197935_ + (string-prefix? '"##" __tmp212938)) + (let _lp200161_ ((_rest200164_ (reverse _L200101_)) + (_bind200166_ '()) + (_args200167_ '())) + (let* ((_rest200168200176_ _rest200164_) + (_else200170200184_ (lambda () - (let ((__tmp210575 - (let ((__tmp210576 - (let ((__tmp210577 - (let ((__tmp210578 + (let ((__tmp212924 + (let ((__tmp212925 + (let ((__tmp212926 + (let ((__tmp212927 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _f197910_ _args197918_)))) + (cons _f200159_ _args200167_)))) (declare (not safe)) - (cons __tmp210578 '())))) + (cons __tmp212927 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp210577)))) + __tmp212926)))) (declare (not safe)) - (cons _bind197917_ __tmp210576)))) + (cons _bind200166_ __tmp212925)))) (declare (not safe)) - (cons 'let __tmp210575)))) - (_K197923198021_ - (lambda (_rest197938_ _e197939_) - (let* ((___stx209669209670_ _e197939_) - (_g197944197962_ + (cons 'let __tmp212924)))) + (_K200172200270_ + (lambda (_rest200187_ _e200188_) + (let* ((___stx212018212019_ _e200188_) + (_g200193200211_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209669209670_))))) - (let ((___kont209671209672_ + ___stx212018212019_))))) + (let ((___kont212020212021_ (lambda () - (let ((__tmp210579 - (let ((__tmp210580 + (let ((__tmp212928 + (let ((__tmp212929 (let () (declare (not safe)) (gxc#compile-e__0 - _e197939_)))) + _e200188_)))) (declare (not safe)) - (cons __tmp210580 - _args197918_)))) + (cons __tmp212929 + _args200167_)))) (declare (not safe)) - (_lp197912_ - _rest197938_ - _bind197917_ - __tmp210579)))) - (___kont209673209674_ + (_lp200161_ + _rest200187_ + _bind200166_ + __tmp212928)))) + (___kont212022212023_ (lambda () - (let ((__tmp210581 - (let ((__tmp210582 + (let ((__tmp212930 + (let ((__tmp212931 (let () (declare (not safe)) (gxc#compile-e__0 - _e197939_)))) + _e200188_)))) (declare (not safe)) - (cons __tmp210582 - _args197918_)))) + (cons __tmp212931 + _args200167_)))) (declare (not safe)) - (_lp197912_ - _rest197938_ - _bind197917_ - __tmp210581)))) - (___kont209675209676_ + (_lp200161_ + _rest200187_ + _bind200166_ + __tmp212930)))) + (___kont212024212025_ (lambda () - (let ((_tmp197969_ - (let ((__tmp210583 + (let ((_tmp200218_ + (let ((__tmp212932 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp210583)))) - (let ((__tmp210585 - (let ((__tmp210586 - (let ((__tmp210587 + __tmp212932)))) + (let ((__tmp212934 + (let ((__tmp212935 + (let ((__tmp212936 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210588 + (let ((__tmp212937 (let () (declare (not safe)) - (gxc#compile-e__0 _e197939_)))) + (gxc#compile-e__0 _e200188_)))) (declare (not safe)) - (cons __tmp210588 '())))) + (cons __tmp212937 '())))) (declare (not safe)) - (cons _tmp197969_ __tmp210587)))) + (cons _tmp200218_ __tmp212936)))) (declare (not safe)) - (cons __tmp210586 _bind197917_))) + (cons __tmp212935 _bind200166_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp210584 + (__tmp212933 (let () (declare (not safe)) - (cons _tmp197969_ - _args197918_)))) + (cons _tmp200218_ + _args200167_)))) (declare (not safe)) - (_lp197912_ - _rest197938_ - __tmp210585 - __tmp210584)))))) + (_lp200161_ + _rest200187_ + __tmp212934 + __tmp212933)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx209669209670_)) - (let ((_e197948198000_ + (gx#stx-pair? ___stx212018212019_)) + (let ((_e200197200249_ (let () (declare (not safe)) (gx#stx-e - ___stx209669209670_)))) - (let ((_tl197946198005_ + ___stx212018212019_)))) + (let ((_tl200195200254_ (let () (declare (not safe)) - (##cdr _e197948198000_))) - (_hd197947198003_ + (##cdr _e200197200249_))) + (_hd200196200252_ (let () (declare (not safe)) - (##car _e197948198000_)))) + (##car _e200197200249_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd197947198003_)) + _hd200196200252_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd197947198003_)) + _hd200196200252_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl197946198005_)) - (let ((_e197951198008_ + _tl200195200254_)) + (let ((_e200200200257_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl197946198005_)))) - (let ((_tl197949198013_ + (gx#stx-e _tl200195200254_)))) + (let ((_tl200198200262_ (let () (declare (not safe)) - (##cdr _e197951198008_))) - (_hd197950198011_ + (##cdr _e200200200257_))) + (_hd200199200260_ (let () (declare (not safe)) - (##car _e197951198008_)))) + (##car _e200200200257_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl197949198013_)) - (___kont209671209672_) - (___kont209675209676_)))) - (___kont209675209676_)) + (gx#stx-null? _tl200198200262_)) + (___kont212020212021_) + (___kont212024212025_)))) + (___kont212024212025_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd197947198003_)) + (gx#stx-eq? '%#quote _hd200196200252_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197946198005_)) - (let ((_e197957197985_ + (gx#stx-pair? _tl200195200254_)) + (let ((_e200206200234_ (let () (declare (not safe)) - (gx#stx-e _tl197946198005_)))) - (let ((_tl197955197990_ + (gx#stx-e _tl200195200254_)))) + (let ((_tl200204200239_ (let () (declare (not safe)) - (##cdr _e197957197985_))) - (_hd197956197988_ + (##cdr _e200206200234_))) + (_hd200205200237_ (let () (declare (not safe)) - (##car _e197957197985_)))) + (##car _e200206200234_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl197955197990_)) - (___kont209673209674_) - (___kont209675209676_)))) - (___kont209675209676_)) - (___kont209675209676_))) + (gx#stx-null? _tl200204200239_)) + (___kont212022212023_) + (___kont212024212025_)))) + (___kont212024212025_)) + (___kont212024212025_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont209675209676_)))) - (___kont209675209676_))))))) + (___kont212024212025_)))) + (___kont212024212025_))))))) (if (let () (declare (not safe)) - (##pair? _rest197919197927_)) - (let ((_hd197924198024_ + (##pair? _rest200168200176_)) + (let ((_hd200173200273_ (let () (declare (not safe)) - (##car _rest197919197927_))) - (_tl197925198026_ + (##car _rest200168200176_))) + (_tl200174200275_ (let () (declare (not safe)) - (##cdr _rest197919197927_)))) - (let* ((_e198029_ _hd197924198024_) - (_rest198031_ _tl197925198026_)) + (##cdr _rest200168200176_)))) + (let* ((_e200278_ _hd200173200273_) + (_rest200280_ _tl200174200275_)) (declare (not safe)) - (_K197923198021_ _rest198031_ _e198029_))) + (_K200172200270_ _rest200280_ _e200278_))) (let () (declare (not safe)) - (_else197921197935_))))) + (_else200170200184_))))) (let () (declare (not safe)) - (_compile-call197815_ _L197853_ _L197852_)))))) + (_compile-call200064_ _L200102_ _L200101_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont209719209720_ + (___kont212068212069_ (lambda () (let () (declare (not safe)) - (_compile-call197815_ - _L197853_ - _L197852_))))) + (_compile-call200064_ + _L200102_ + _L200101_))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx209715209716_)) - (let ((_e197872197892_ + ___stx212064212065_)) + (let ((_e200121200141_ (let () (declare (not safe)) (gx#stx-e - ___stx209715209716_)))) - (let ((_tl197870197897_ + ___stx212064212065_)))) + (let ((_tl200119200146_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e197872197892_))) - (_hd197871197895_ - (let () (declare (not safe)) (##car _e197872197892_)))) + (##cdr _e200121200141_))) + (_hd200120200144_ + (let () (declare (not safe)) (##car _e200121200141_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd197871197895_)) + (gx#identifier? _hd200120200144_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd197871197895_)) + (gx#stx-eq? '%#ref _hd200120200144_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197870197897_)) - (let ((_e197875197900_ + (gx#stx-pair? _tl200119200146_)) + (let ((_e200124200149_ (let () (declare (not safe)) - (gx#stx-e _tl197870197897_)))) - (let ((_tl197873197905_ + (gx#stx-e _tl200119200146_)))) + (let ((_tl200122200154_ (let () (declare (not safe)) - (##cdr _e197875197900_))) - (_hd197874197903_ + (##cdr _e200124200149_))) + (_hd200123200152_ (let () (declare (not safe)) - (##car _e197875197900_)))) + (##car _e200124200149_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl197873197905_)) - (___kont209717209718_) - (___kont209719209720_)))) - (___kont209719209720_)) - (___kont209719209720_)) - (___kont209719209720_)))) + (gx#stx-null? _tl200122200154_)) + (___kont212066212067_) + (___kont212068212069_)))) + (___kont212068212069_)) + (___kont212068212069_)) + (___kont212068212069_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont209719209720_)))))) - _tl197824197849_ - _hd197825197847_))) + (___kont212068212069_)))))) + _tl200073200098_ + _hd200074200096_))) (let () (declare (not safe)) - (_g197817197831_ _g197818197834_))))) + (_g200066200080_ _g200067200083_))))) (let () (declare (not safe)) - (_g197817197831_ _g197818197834_)))))) + (_g200066200080_ _g200067200083_)))))) (declare (not safe)) - (_g197816198036_ _stx197813_))))) + (_g200065200285_ _stx200062_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_stx197601_) - (let* ((___stx209787209788_ _stx197601_) - (_g197604197624_ + (lambda (_stx199850_) + (let* ((___stx212136212137_ _stx199850_) + (_g199853199873_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209787209788_))))) - (let ((___kont209789209790_ - (lambda (_L197668_ _L197669_) + ___stx212136212137_))))) + (let ((___kont212138212139_ + (lambda (_L199917_ _L199918_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (gxc#generate-runtime-call% _stx197601_)) - (let ((_f197687_ - (let ((__tmp210590 - (let ((__tmp210592 + (gxc#generate-runtime-call% _stx199850_)) + (let ((_f199936_ + (let ((__tmp212939 + (let ((__tmp212941 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp210591 + (__tmp212940 (let () (declare (not safe)) - (cons _L197669_ '())))) + (cons _L199918_ '())))) (declare (not safe)) - (cons __tmp210592 __tmp210591)))) + (cons __tmp212941 __tmp212940)))) (declare (not safe)) - (gxc#compile-e__0 __tmp210590)))) - (let _lp197689_ ((_rest197692_ (reverse _L197668_)) - (_bind197694_ '()) - (_args197695_ '())) - (let* ((_rest197696197704_ _rest197692_) - (_else197698197712_ + (gxc#compile-e__0 __tmp212939)))) + (let _lp199938_ ((_rest199941_ (reverse _L199917_)) + (_bind199943_ '()) + (_args199944_ '())) + (let* ((_rest199945199953_ _rest199941_) + (_else199947199961_ (lambda () - (let ((__tmp210593 - (let ((__tmp210594 - (let ((__tmp210595 - (let ((__tmp210596 + (let ((__tmp212942 + (let ((__tmp212943 + (let ((__tmp212944 + (let ((__tmp212945 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _f197687_ _args197695_)))) + (cons _f199936_ _args199944_)))) (declare (not safe)) - (cons __tmp210596 '())))) + (cons __tmp212945 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp210595)))) + (cons '(declare (not safe)) __tmp212944)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind197694_ - __tmp210594)))) + (cons _bind199943_ + __tmp212943)))) (declare (not safe)) - (cons 'let __tmp210593)))) - (_K197700197798_ - (lambda (_rest197715_ _e197716_) - (let* ((___stx209741209742_ _e197716_) - (_g197721197739_ + (cons 'let __tmp212942)))) + (_K199949200047_ + (lambda (_rest199964_ _e199965_) + (let* ((___stx212090212091_ _e199965_) + (_g199970199988_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209741209742_))))) - (let ((___kont209743209744_ + ___stx212090212091_))))) + (let ((___kont212092212093_ (lambda () - (let ((__tmp210597 - (let ((__tmp210598 + (let ((__tmp212946 + (let ((__tmp212947 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _e197716_)))) + (gxc#compile-e__0 _e199965_)))) (declare (not safe)) - (cons __tmp210598 _args197695_)))) + (cons __tmp212947 _args199944_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp197689_ - _rest197715_ - _bind197694_ - __tmp210597)))) - (___kont209745209746_ + (_lp199938_ + _rest199964_ + _bind199943_ + __tmp212946)))) + (___kont212094212095_ (lambda () - (let ((__tmp210599 - (let ((__tmp210600 + (let ((__tmp212948 + (let ((__tmp212949 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _e197716_)))) + (gxc#compile-e__0 _e199965_)))) (declare (not safe)) - (cons __tmp210600 _args197695_)))) + (cons __tmp212949 _args199944_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp197689_ - _rest197715_ - _bind197694_ - __tmp210599)))) - (___kont209747209748_ + (_lp199938_ + _rest199964_ + _bind199943_ + __tmp212948)))) + (___kont212096212097_ (lambda () - (let ((_tmp197746_ - (let ((__tmp210601 + (let ((_tmp199995_ + (let ((__tmp212950 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp210601)))) - (let ((__tmp210603 - (let ((__tmp210604 + __tmp212950)))) + (let ((__tmp212952 + (let ((__tmp212953 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210605 - (let ((__tmp210606 + (let ((__tmp212954 + (let ((__tmp212955 (let () (declare (not safe)) - (gxc#compile-e__0 _e197716_)))) + (gxc#compile-e__0 _e199965_)))) (declare (not safe)) - (cons __tmp210606 '())))) + (cons __tmp212955 '())))) (declare (not safe)) - (cons _tmp197746_ __tmp210605)))) + (cons _tmp199995_ __tmp212954)))) (declare (not safe)) - (cons __tmp210604 _bind197694_))) - (__tmp210602 + (cons __tmp212953 _bind199943_))) + (__tmp212951 (let () (declare (not safe)) - (cons _tmp197746_ _args197695_)))) + (cons _tmp199995_ _args199944_)))) (declare (not safe)) - (_lp197689_ _rest197715_ __tmp210603 __tmp210602)))))) + (_lp199938_ _rest199964_ __tmp212952 __tmp212951)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx209741209742_)) - (let ((_e197725197777_ + ___stx212090212091_)) + (let ((_e199974200026_ (let () (declare (not safe)) (gx#stx-e - ___stx209741209742_)))) - (let ((_tl197723197782_ + ___stx212090212091_)))) + (let ((_tl199972200031_ (let () (declare (not safe)) - (##cdr _e197725197777_))) - (_hd197724197780_ + (##cdr _e199974200026_))) + (_hd199973200029_ (let () (declare (not safe)) - (##car _e197725197777_)))) + (##car _e199974200026_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd197724197780_)) + _hd199973200029_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd197724197780_)) + _hd199973200029_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl197723197782_)) - (let ((_e197728197785_ + (gx#stx-pair? _tl199972200031_)) + (let ((_e199977200034_ (let () (declare (not safe)) - (gx#stx-e _tl197723197782_)))) - (let ((_tl197726197790_ + (gx#stx-e _tl199972200031_)))) + (let ((_tl199975200039_ (let () (declare (not safe)) - (##cdr _e197728197785_))) - (_hd197727197788_ + (##cdr _e199977200034_))) + (_hd199976200037_ (let () (declare (not safe)) - (##car _e197728197785_)))) + (##car _e199977200034_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl197726197790_)) - (___kont209743209744_) - (___kont209747209748_)))) - (___kont209747209748_)) + (gx#stx-null? _tl199975200039_)) + (___kont212092212093_) + (___kont212096212097_)))) + (___kont212096212097_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd197724197780_)) + (gx#stx-eq? '%#quote _hd199973200029_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197723197782_)) - (let ((_e197734197762_ + (gx#stx-pair? _tl199972200031_)) + (let ((_e199983200011_ (let () (declare (not safe)) - (gx#stx-e _tl197723197782_)))) - (let ((_tl197732197767_ + (gx#stx-e _tl199972200031_)))) + (let ((_tl199981200016_ (let () (declare (not safe)) - (##cdr _e197734197762_))) - (_hd197733197765_ + (##cdr _e199983200011_))) + (_hd199982200014_ (let () (declare (not safe)) - (##car _e197734197762_)))) + (##car _e199983200011_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl197732197767_)) - (___kont209745209746_) - (___kont209747209748_)))) - (___kont209747209748_)) - (___kont209747209748_))) - (___kont209747209748_)))) + (gx#stx-null? _tl199981200016_)) + (___kont212094212095_) + (___kont212096212097_)))) + (___kont212096212097_)) + (___kont212096212097_))) + (___kont212096212097_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont209747209748_))))))) + (___kont212096212097_))))))) (if (let () (declare (not safe)) - (##pair? _rest197696197704_)) - (let ((_hd197701197801_ + (##pair? _rest199945199953_)) + (let ((_hd199950200050_ (let () (declare (not safe)) - (##car _rest197696197704_))) - (_tl197702197803_ + (##car _rest199945199953_))) + (_tl199951200052_ (let () (declare (not safe)) - (##cdr _rest197696197704_)))) - (let* ((_e197806_ _hd197701197801_) - (_rest197808_ _tl197702197803_)) + (##cdr _rest199945199953_)))) + (let* ((_e200055_ _hd199950200050_) + (_rest200057_ _tl199951200052_)) (declare (not safe)) - (_K197700197798_ - _rest197808_ - _e197806_))) + (_K199949200047_ + _rest200057_ + _e200055_))) (let () (declare (not safe)) - (_else197698197712_))))))))) - (___kont209791209792_ + (_else199947199961_))))))))) + (___kont212140212141_ (lambda () (let () (declare (not safe)) - (gxc#generate-runtime-call% _stx197601_))))) + (gxc#generate-runtime-call% _stx199850_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx209787209788_)) - (let ((_e197610197636_ + (gx#stx-pair? ___stx212136212137_)) + (let ((_e199859199885_ (let () (declare (not safe)) - (gx#stx-e ___stx209787209788_)))) - (let ((_tl197608197641_ + (gx#stx-e ___stx212136212137_)))) + (let ((_tl199857199890_ (let () (declare (not safe)) - (##cdr _e197610197636_))) - (_hd197609197639_ + (##cdr _e199859199885_))) + (_hd199858199888_ (let () (declare (not safe)) - (##car _e197610197636_)))) + (##car _e199859199885_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197608197641_)) - (let ((_e197613197644_ + (gx#stx-pair? _tl199857199890_)) + (let ((_e199862199893_ (let () (declare (not safe)) - (gx#stx-e _tl197608197641_)))) - (let ((_tl197611197649_ + (gx#stx-e _tl199857199890_)))) + (let ((_tl199860199898_ (let () (declare (not safe)) - (##cdr _e197613197644_))) - (_hd197612197647_ + (##cdr _e199862199893_))) + (_hd199861199896_ (let () (declare (not safe)) - (##car _e197613197644_)))) + (##car _e199862199893_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd197612197647_)) - (let ((_e197616197652_ + (gx#stx-pair? _hd199861199896_)) + (let ((_e199865199901_ (let () (declare (not safe)) - (gx#stx-e _hd197612197647_)))) - (let ((_tl197614197657_ + (gx#stx-e _hd199861199896_)))) + (let ((_tl199863199906_ (let () (declare (not safe)) - (##cdr _e197616197652_))) - (_hd197615197655_ + (##cdr _e199865199901_))) + (_hd199864199904_ (let () (declare (not safe)) - (##car _e197616197652_)))) + (##car _e199865199901_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd197615197655_)) + (gx#identifier? _hd199864199904_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd197615197655_)) + _hd199864199904_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl197614197657_)) - (let ((_e197619197660_ + _tl199863199906_)) + (let ((_e199868199909_ (let () (declare (not safe)) (gx#stx-e - _tl197614197657_)))) - (let ((_tl197617197665_ + _tl199863199906_)))) + (let ((_tl199866199914_ (let () (declare (not safe)) - (##cdr _e197619197660_))) - (_hd197618197663_ + (##cdr _e199868199909_))) + (_hd199867199912_ (let () (declare (not safe)) - (##car _e197619197660_)))) + (##car _e199868199909_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197617197665_)) - (___kont209789209790_ - _tl197611197649_ - _hd197618197663_) - (___kont209791209792_)))) - (___kont209791209792_)) - (___kont209791209792_)) - (___kont209791209792_)))) - (___kont209791209792_)))) - (___kont209791209792_)))) - (___kont209791209792_)))))) + _tl199866199914_)) + (___kont212138212139_ + _tl199860199898_ + _hd199867199912_) + (___kont212140212141_)))) + (___kont212140212141_)) + (___kont212140212141_)) + (___kont212140212141_)))) + (___kont212140212141_)))) + (___kont212140212141_)))) + (___kont212140212141_)))))) (define gxc#generate-runtime-if% - (lambda (_stx197414_) - (letrec ((_simplify197416_ - (lambda (_code197501_) - (let* ((_code197502197520_ _code197501_) - (_else197504197528_ (lambda () _code197501_)) - (_K197506197564_ - (lambda (_expr197531_ _test197532_) - (let* ((_expr197533197541_ _expr197531_) - (_else197535197549_ + (lambda (_stx199663_) + (letrec ((_simplify199665_ + (lambda (_code199750_) + (let* ((_code199751199769_ _code199750_) + (_else199753199777_ (lambda () _code199750_)) + (_K199755199813_ + (lambda (_expr199780_ _test199781_) + (let* ((_expr199782199790_ _expr199780_) + (_else199784199798_ (lambda () - (let ((__tmp210607 - (let ((__tmp210608 + (let ((__tmp212956 + (let ((__tmp212957 (let () (declare (not safe)) - (cons _expr197531_ + (cons _expr199780_ '())))) (declare (not safe)) - (cons _test197532_ - __tmp210608)))) + (cons _test199781_ + __tmp212957)))) (declare (not safe)) - (cons 'and __tmp210607)))) - (_K197537197554_ - (lambda (_exprs197552_) - (let ((__tmp210609 + (cons 'and __tmp212956)))) + (_K199786199803_ + (lambda (_exprs199801_) + (let ((__tmp212958 (let () (declare (not safe)) - (cons _test197532_ - _exprs197552_)))) + (cons _test199781_ + _exprs199801_)))) (declare (not safe)) - (cons 'and __tmp210609))))) + (cons 'and __tmp212958))))) (if (let () (declare (not safe)) - (##pair? _expr197533197541_)) - (let ((_hd197538197557_ + (##pair? _expr199782199790_)) + (let ((_hd199787199806_ (let () (declare (not safe)) - (##car _expr197533197541_))) - (_tl197539197559_ + (##car _expr199782199790_))) + (_tl199788199808_ (let () (declare (not safe)) - (##cdr _expr197533197541_)))) + (##cdr _expr199782199790_)))) (if (let () (declare (not safe)) - (##eq? _hd197538197557_ 'and)) - (let ((_exprs197562_ - _tl197539197559_)) + (##eq? _hd199787199806_ 'and)) + (let ((_exprs199811_ + _tl199788199808_)) (declare (not safe)) - (_K197537197554_ _exprs197562_)) + (_K199786199803_ _exprs199811_)) (let () (declare (not safe)) - (_else197535197549_)))) + (_else199784199798_)))) (let () (declare (not safe)) - (_else197535197549_))))))) + (_else199784199798_))))))) (if (let () (declare (not safe)) - (##pair? _code197502197520_)) - (let ((_hd197507197567_ + (##pair? _code199751199769_)) + (let ((_hd199756199816_ (let () (declare (not safe)) - (##car _code197502197520_))) - (_tl197508197569_ + (##car _code199751199769_))) + (_tl199757199818_ (let () (declare (not safe)) - (##cdr _code197502197520_)))) + (##cdr _code199751199769_)))) (if (let () (declare (not safe)) - (##eq? _hd197507197567_ 'if)) + (##eq? _hd199756199816_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl197508197569_)) - (let ((_hd197509197572_ + (##pair? _tl199757199818_)) + (let ((_hd199758199821_ (let () (declare (not safe)) - (##car _tl197508197569_))) - (_tl197510197574_ + (##car _tl199757199818_))) + (_tl199759199823_ (let () (declare (not safe)) - (##cdr _tl197508197569_)))) - (let ((_test197577_ _hd197509197572_)) + (##cdr _tl199757199818_)))) + (let ((_test199826_ _hd199758199821_)) (if (let () (declare (not safe)) - (##pair? _tl197510197574_)) - (let ((_hd197511197579_ + (##pair? _tl199759199823_)) + (let ((_hd199760199828_ (let () (declare (not safe)) - (##car _tl197510197574_))) - (_tl197512197581_ + (##car _tl199759199823_))) + (_tl199761199830_ (let () (declare (not safe)) - (##cdr _tl197510197574_)))) - (let ((_expr197584_ - _hd197511197579_)) + (##cdr _tl199759199823_)))) + (let ((_expr199833_ + _hd199760199828_)) (if (let () (declare (not safe)) - (##pair? _tl197512197581_)) - (let ((_hd197513197586_ + (##pair? _tl199761199830_)) + (let ((_hd199762199835_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl197512197581_))) - (_tl197514197588_ - (let () (declare (not safe)) (##cdr _tl197512197581_)))) - (if (let () (declare (not safe)) (##pair? _hd197513197586_)) - (let ((_hd197515197591_ + (##car _tl199761199830_))) + (_tl199763199837_ + (let () (declare (not safe)) (##cdr _tl199761199830_)))) + (if (let () (declare (not safe)) (##pair? _hd199762199835_)) + (let ((_hd199764199840_ (let () (declare (not safe)) - (##car _hd197513197586_))) - (_tl197516197593_ + (##car _hd199762199835_))) + (_tl199765199842_ (let () (declare (not safe)) - (##cdr _hd197513197586_)))) + (##cdr _hd199762199835_)))) (if (let () (declare (not safe)) - (##eq? _hd197515197591_ 'quote)) + (##eq? _hd199764199840_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl197516197593_)) - (let ((_hd197517197596_ + (##pair? _tl199765199842_)) + (let ((_hd199766199845_ (let () (declare (not safe)) - (##car _tl197516197593_))) - (_tl197518197598_ + (##car _tl199765199842_))) + (_tl199767199847_ (let () (declare (not safe)) - (##cdr _tl197516197593_)))) + (##cdr _tl199765199842_)))) (if (let () (declare (not safe)) - (##eq? _hd197517197596_ '#f)) + (##eq? _hd199766199845_ '#f)) (if (let () (declare (not safe)) - (##null? _tl197518197598_)) + (##null? _tl199767199847_)) (if (let () (declare (not safe)) - (##null? _tl197514197588_)) + (##null? _tl199763199837_)) (let () (declare (not safe)) - (_K197506197564_ - _expr197584_ - _test197577_)) + (_K199755199813_ + _expr199833_ + _test199826_)) (let () (declare (not safe)) - (_else197504197528_))) + (_else199753199777_))) (let () (declare (not safe)) - (_else197504197528_))) + (_else199753199777_))) (let () (declare (not safe)) - (_else197504197528_)))) + (_else199753199777_)))) (let () (declare (not safe)) - (_else197504197528_))) - (let () (declare (not safe)) (_else197504197528_)))) - (let () (declare (not safe)) (_else197504197528_)))) - (let () (declare (not safe)) (_else197504197528_))))) + (_else199753199777_))) + (let () (declare (not safe)) (_else199753199777_)))) + (let () (declare (not safe)) (_else199753199777_)))) + (let () (declare (not safe)) (_else199753199777_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else197504197528_))))) + (_else199753199777_))))) (let () (declare (not safe)) - (_else197504197528_))) + (_else199753199777_))) (let () (declare (not safe)) - (_else197504197528_)))) + (_else199753199777_)))) (let () (declare (not safe)) - (_else197504197528_))))))) - (let* ((_g197418197439_ - (lambda (_g197419197436_) + (_else199753199777_))))))) + (let* ((_g199667199688_ + (lambda (_g199668199685_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197419197436_)))) - (_g197417197498_ - (lambda (_g197419197442_) + _g199668199685_)))) + (_g199666199747_ + (lambda (_g199668199691_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197419197442_)) - (let ((_e197425197444_ + (gx#stx-pair? _g199668199691_)) + (let ((_e199674199693_ (let () (declare (not safe)) - (gx#stx-e _g197419197442_)))) - (let ((_hd197424197447_ + (gx#stx-e _g199668199691_)))) + (let ((_hd199673199696_ (let () (declare (not safe)) - (##car _e197425197444_))) - (_tl197423197449_ + (##car _e199674199693_))) + (_tl199672199698_ (let () (declare (not safe)) - (##cdr _e197425197444_)))) + (##cdr _e199674199693_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197423197449_)) - (let ((_e197428197452_ + (gx#stx-pair? _tl199672199698_)) + (let ((_e199677199701_ (let () (declare (not safe)) - (gx#stx-e _tl197423197449_)))) - (let ((_hd197427197455_ + (gx#stx-e _tl199672199698_)))) + (let ((_hd199676199704_ (let () (declare (not safe)) - (##car _e197428197452_))) - (_tl197426197457_ + (##car _e199677199701_))) + (_tl199675199706_ (let () (declare (not safe)) - (##cdr _e197428197452_)))) + (##cdr _e199677199701_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197426197457_)) - (let ((_e197431197460_ + (gx#stx-pair? _tl199675199706_)) + (let ((_e199680199709_ (let () (declare (not safe)) (gx#stx-e - _tl197426197457_)))) - (let ((_hd197430197463_ + _tl199675199706_)))) + (let ((_hd199679199712_ (let () (declare (not safe)) - (##car _e197431197460_))) - (_tl197429197465_ + (##car _e199680199709_))) + (_tl199678199714_ (let () (declare (not safe)) - (##cdr _e197431197460_)))) + (##cdr _e199680199709_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl197429197465_)) - (let ((_e197434197468_ + _tl199678199714_)) + (let ((_e199683199717_ (let () (declare (not safe)) (gx#stx-e - _tl197429197465_)))) - (let ((_hd197433197471_ + _tl199678199714_)))) + (let ((_hd199682199720_ (let () (declare (not safe)) - (##car _e197434197468_))) - (_tl197432197473_ + (##car _e199683199717_))) + (_tl199681199722_ (let () (declare (not safe)) - (##cdr _e197434197468_)))) + (##cdr _e199683199717_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197432197473_)) - ((lambda (_L197476_ + _tl199681199722_)) + ((lambda (_L199725_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L197477_ - _L197478_) + _L199726_ + _L199727_) (if (gxc#current-compile-boolean-context) - (let ((__tmp210617 - (let ((__tmp210618 - (let ((__tmp210623 + (let ((__tmp212966 + (let ((__tmp212967 + (let ((__tmp212972 (let () (declare (not safe)) - (gxc#compile-e__0 _L197478_))) - (__tmp210619 - (let ((__tmp210622 + (gxc#compile-e__0 _L199727_))) + (__tmp212968 + (let ((__tmp212971 (let () (declare (not safe)) (gxc#compile-e__0 - _L197477_))) - (__tmp210620 - (let ((__tmp210621 + _L199726_))) + (__tmp212969 + (let ((__tmp212970 (let () (declare (not safe)) (gxc#compile-e__0 - _L197476_)))) + _L199725_)))) (declare (not safe)) - (cons __tmp210621 + (cons __tmp212970 '())))) (declare (not safe)) - (cons __tmp210622 - __tmp210620)))) + (cons __tmp212971 + __tmp212969)))) (declare (not safe)) - (cons __tmp210623 __tmp210619)))) + (cons __tmp212972 __tmp212968)))) (declare (not safe)) - (cons 'if __tmp210618)))) + (cons 'if __tmp212967)))) (declare (not safe)) - (_simplify197416_ __tmp210617)) - (let ((__tmp210610 - (let ((__tmp210615 - (let ((__tmp210616 + (_simplify199665_ __tmp212966)) + (let ((__tmp212959 + (let ((__tmp212964 + (let ((__tmp212965 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _L197478_))))) + _L199727_))))) (declare (not safe)) (call-with-parameters - __tmp210616 + __tmp212965 gxc#current-compile-boolean-context '#t))) - (__tmp210611 - (let ((__tmp210614 + (__tmp212960 + (let ((__tmp212963 (let () (declare (not safe)) - (gxc#compile-e__0 _L197477_))) - (__tmp210612 - (let ((__tmp210613 + (gxc#compile-e__0 _L199726_))) + (__tmp212961 + (let ((__tmp212962 (let () (declare (not safe)) (gxc#compile-e__0 - _L197476_)))) + _L199725_)))) (declare (not safe)) - (cons __tmp210613 '())))) + (cons __tmp212962 '())))) (declare (not safe)) - (cons __tmp210614 __tmp210612)))) + (cons __tmp212963 __tmp212961)))) (declare (not safe)) - (cons __tmp210615 __tmp210611)))) + (cons __tmp212964 __tmp212960)))) (declare (not safe)) - (cons 'if __tmp210610)))) - _hd197433197471_ - _hd197430197463_ - _hd197427197455_) + (cons 'if __tmp212959)))) + _hd199682199720_ + _hd199679199712_ + _hd199676199704_) (let () (declare (not safe)) - (_g197418197439_ _g197419197442_))))) + (_g199667199688_ _g199668199691_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g197418197439_ - _g197419197442_))))) + (_g199667199688_ + _g199668199691_))))) (let () (declare (not safe)) - (_g197418197439_ - _g197419197442_))))) + (_g199667199688_ + _g199668199691_))))) (let () (declare (not safe)) - (_g197418197439_ _g197419197442_))))) + (_g199667199688_ _g199668199691_))))) (let () (declare (not safe)) - (_g197418197439_ _g197419197442_)))))) + (_g199667199688_ _g199668199691_)))))) (declare (not safe)) - (_g197417197498_ _stx197414_))))) + (_g199666199747_ _stx199663_))))) (define gxc#generate-runtime-ref% - (lambda (_stx197363_) - (let* ((_g197365197378_ - (lambda (_g197366197375_) + (lambda (_stx199612_) + (let* ((_g199614199627_ + (lambda (_g199615199624_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197366197375_)))) - (_g197364197411_ - (lambda (_g197366197381_) + _g199615199624_)))) + (_g199613199660_ + (lambda (_g199615199630_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197366197381_)) - (let ((_e197370197383_ + (gx#stx-pair? _g199615199630_)) + (let ((_e199619199632_ (let () (declare (not safe)) - (gx#stx-e _g197366197381_)))) - (let ((_hd197369197386_ + (gx#stx-e _g199615199630_)))) + (let ((_hd199618199635_ (let () (declare (not safe)) - (##car _e197370197383_))) - (_tl197368197388_ + (##car _e199619199632_))) + (_tl199617199637_ (let () (declare (not safe)) - (##cdr _e197370197383_)))) + (##cdr _e199619199632_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197368197388_)) - (let ((_e197373197391_ + (gx#stx-pair? _tl199617199637_)) + (let ((_e199622199640_ (let () (declare (not safe)) - (gx#stx-e _tl197368197388_)))) - (let ((_hd197372197394_ + (gx#stx-e _tl199617199637_)))) + (let ((_hd199621199643_ (let () (declare (not safe)) - (##car _e197373197391_))) - (_tl197371197396_ + (##car _e199622199640_))) + (_tl199620199645_ (let () (declare (not safe)) - (##cdr _e197373197391_)))) + (##cdr _e199622199640_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl197371197396_)) - ((lambda (_L197399_) + (gx#stx-null? _tl199620199645_)) + ((lambda (_L199648_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L197399_))) - _hd197372197394_) + _L199648_))) + _hd199621199643_) (let () (declare (not safe)) - (_g197365197378_ _g197366197381_))))) + (_g199614199627_ _g199615199630_))))) (let () (declare (not safe)) - (_g197365197378_ _g197366197381_))))) + (_g199614199627_ _g199615199630_))))) (let () (declare (not safe)) - (_g197365197378_ _g197366197381_)))))) + (_g199614199627_ _g199615199630_)))))) (declare (not safe)) - (_g197364197411_ _stx197363_)))) + (_g199613199660_ _stx199612_)))) (define gxc#generate-runtime-setq% - (lambda (_stx197296_) - (let* ((_g197298197315_ - (lambda (_g197299197312_) + (lambda (_stx199545_) + (let* ((_g199547199564_ + (lambda (_g199548199561_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197299197312_)))) - (_g197297197360_ - (lambda (_g197299197318_) + _g199548199561_)))) + (_g199546199609_ + (lambda (_g199548199567_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197299197318_)) - (let ((_e197304197320_ + (gx#stx-pair? _g199548199567_)) + (let ((_e199553199569_ (let () (declare (not safe)) - (gx#stx-e _g197299197318_)))) - (let ((_hd197303197323_ + (gx#stx-e _g199548199567_)))) + (let ((_hd199552199572_ (let () (declare (not safe)) - (##car _e197304197320_))) - (_tl197302197325_ + (##car _e199553199569_))) + (_tl199551199574_ (let () (declare (not safe)) - (##cdr _e197304197320_)))) + (##cdr _e199553199569_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197302197325_)) - (let ((_e197307197328_ + (gx#stx-pair? _tl199551199574_)) + (let ((_e199556199577_ (let () (declare (not safe)) - (gx#stx-e _tl197302197325_)))) - (let ((_hd197306197331_ + (gx#stx-e _tl199551199574_)))) + (let ((_hd199555199580_ (let () (declare (not safe)) - (##car _e197307197328_))) - (_tl197305197333_ + (##car _e199556199577_))) + (_tl199554199582_ (let () (declare (not safe)) - (##cdr _e197307197328_)))) + (##cdr _e199556199577_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197305197333_)) - (let ((_e197310197336_ + (gx#stx-pair? _tl199554199582_)) + (let ((_e199559199585_ (let () (declare (not safe)) - (gx#stx-e _tl197305197333_)))) - (let ((_hd197309197339_ + (gx#stx-e _tl199554199582_)))) + (let ((_hd199558199588_ (let () (declare (not safe)) - (##car _e197310197336_))) - (_tl197308197341_ + (##car _e199559199585_))) + (_tl199557199590_ (let () (declare (not safe)) - (##cdr _e197310197336_)))) + (##cdr _e199559199585_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197308197341_)) - ((lambda (_L197344_ _L197345_) - (let ((__tmp210624 - (let ((__tmp210627 + _tl199557199590_)) + ((lambda (_L199593_ _L199594_) + (let ((__tmp212973 + (let ((__tmp212976 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L197345_))) - (__tmp210625 - (let ((__tmp210626 + (gxc#generate-runtime-binding-id _L199594_))) + (__tmp212974 + (let ((__tmp212975 (let () (declare (not safe)) - (gxc#compile-e__0 _L197344_)))) + (gxc#compile-e__0 _L199593_)))) (declare (not safe)) - (cons __tmp210626 '())))) + (cons __tmp212975 '())))) (declare (not safe)) - (cons __tmp210627 __tmp210625)))) + (cons __tmp212976 __tmp212974)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp210624))) - _hd197309197339_ - _hd197306197331_) + (cons 'set! __tmp212973))) + _hd199558199588_ + _hd199555199580_) (let () (declare (not safe)) - (_g197298197315_ - _g197299197318_))))) + (_g199547199564_ + _g199548199567_))))) (let () (declare (not safe)) - (_g197298197315_ _g197299197318_))))) + (_g199547199564_ _g199548199567_))))) (let () (declare (not safe)) - (_g197298197315_ _g197299197318_))))) + (_g199547199564_ _g199548199567_))))) (let () (declare (not safe)) - (_g197298197315_ _g197299197318_)))))) + (_g199547199564_ _g199548199567_)))))) (declare (not safe)) - (_g197297197360_ _stx197296_)))) + (_g199546199609_ _stx199545_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_stx197108_) - (let* ((_g197110197127_ - (lambda (_g197111197124_) + (lambda (_stx199357_) + (let* ((_g199359199376_ + (lambda (_g199360199373_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197111197124_)))) - (_g197109197293_ - (lambda (_g197111197130_) + _g199360199373_)))) + (_g199358199542_ + (lambda (_g199360199379_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197111197130_)) - (let ((_e197116197132_ + (gx#stx-pair? _g199360199379_)) + (let ((_e199365199381_ (let () (declare (not safe)) - (gx#stx-e _g197111197130_)))) - (let ((_hd197115197135_ + (gx#stx-e _g199360199379_)))) + (let ((_hd199364199384_ (let () (declare (not safe)) - (##car _e197116197132_))) - (_tl197114197137_ + (##car _e199365199381_))) + (_tl199363199386_ (let () (declare (not safe)) - (##cdr _e197116197132_)))) + (##cdr _e199365199381_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197114197137_)) - (let ((_e197119197140_ + (gx#stx-pair? _tl199363199386_)) + (let ((_e199368199389_ (let () (declare (not safe)) - (gx#stx-e _tl197114197137_)))) - (let ((_hd197118197143_ + (gx#stx-e _tl199363199386_)))) + (let ((_hd199367199392_ (let () (declare (not safe)) - (##car _e197119197140_))) - (_tl197117197145_ + (##car _e199368199389_))) + (_tl199366199394_ (let () (declare (not safe)) - (##cdr _e197119197140_)))) + (##cdr _e199368199389_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197117197145_)) - (let ((_e197122197148_ + (gx#stx-pair? _tl199366199394_)) + (let ((_e199371199397_ (let () (declare (not safe)) - (gx#stx-e _tl197117197145_)))) - (let ((_hd197121197151_ + (gx#stx-e _tl199366199394_)))) + (let ((_hd199370199400_ (let () (declare (not safe)) - (##car _e197122197148_))) - (_tl197120197153_ + (##car _e199371199397_))) + (_tl199369199402_ (let () (declare (not safe)) - (##cdr _e197122197148_)))) + (##cdr _e199371199397_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197120197153_)) - ((lambda (_L197156_ _L197157_) + _tl199369199402_)) + ((lambda (_L199405_ _L199406_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp210643 - (let ((__tmp210646 + (let ((__tmp212992 + (let ((__tmp212995 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L197156_))) - (__tmp210644 - (let ((__tmp210645 + (gxc#compile-e__0 _L199405_))) + (__tmp212993 + (let ((__tmp212994 (let () (declare (not safe)) - (gxc#compile-e__0 _L197157_)))) + (gxc#compile-e__0 _L199406_)))) (declare (not safe)) - (cons __tmp210645 '())))) + (cons __tmp212994 '())))) (declare (not safe)) - (cons __tmp210646 __tmp210644)))) + (cons __tmp212995 __tmp212993)))) (declare (not safe)) - (cons '##structure-instance-of? __tmp210643)) - (let _lp197172_ ((_rest197175_ - (let ((__tmp210642 + (cons '##structure-instance-of? __tmp212992)) + (let _lp199421_ ((_rest199424_ + (let ((__tmp212991 (let () (declare (not safe)) - (cons _L197156_ '())))) + (cons _L199405_ '())))) (declare (not safe)) - (cons _L197157_ __tmp210642))) - (_bind197177_ '()) - (_args197178_ '())) - (let* ((_rest197179197187_ _rest197175_) - (_else197181197195_ + (cons _L199406_ __tmp212991))) + (_bind199426_ '()) + (_args199427_ '())) + (let* ((_rest199428199436_ _rest199424_) + (_else199430199444_ (lambda () - (let ((__tmp210628 - (let ((__tmp210629 - (let ((__tmp210630 - (let ((__tmp210631 + (let ((__tmp212977 + (let ((__tmp212978 + (let ((__tmp212979 + (let ((__tmp212980 (let () (declare (not safe)) (cons '##structure-instance-of? - _args197178_)))) + _args199427_)))) (declare (not safe)) - (cons __tmp210631 '())))) + (cons __tmp212980 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp210630)))) + __tmp212979)))) (declare (not safe)) - (cons _bind197177_ __tmp210629)))) + (cons _bind199426_ __tmp212978)))) (declare (not safe)) - (cons 'let __tmp210628)))) - (_K197183197281_ - (lambda (_rest197198_ _e197199_) - (let* ((___stx209825209826_ _e197199_) - (_g197204197222_ + (cons 'let __tmp212977)))) + (_K199432199530_ + (lambda (_rest199447_ _e199448_) + (let* ((___stx212174212175_ _e199448_) + (_g199453199471_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209825209826_))))) - (let ((___kont209827209828_ + ___stx212174212175_))))) + (let ((___kont212176212177_ (lambda () - (let ((__tmp210632 - (let ((__tmp210633 + (let ((__tmp212981 + (let ((__tmp212982 (let () (declare (not safe)) (gxc#compile-e__0 - _e197199_)))) + _e199448_)))) (declare (not safe)) - (cons __tmp210633 - _args197178_)))) + (cons __tmp212982 + _args199427_)))) (declare (not safe)) - (_lp197172_ - _rest197198_ - _bind197177_ - __tmp210632)))) - (___kont209829209830_ + (_lp199421_ + _rest199447_ + _bind199426_ + __tmp212981)))) + (___kont212178212179_ (lambda () - (let ((__tmp210634 - (let ((__tmp210635 + (let ((__tmp212983 + (let ((__tmp212984 (let () (declare (not safe)) (gxc#compile-e__0 - _e197199_)))) + _e199448_)))) (declare (not safe)) - (cons __tmp210635 - _args197178_)))) + (cons __tmp212984 + _args199427_)))) (declare (not safe)) - (_lp197172_ - _rest197198_ - _bind197177_ - __tmp210634)))) - (___kont209831209832_ + (_lp199421_ + _rest199447_ + _bind199426_ + __tmp212983)))) + (___kont212180212181_ (lambda () - (let ((_tmp197229_ - (let ((__tmp210636 + (let ((_tmp199478_ + (let ((__tmp212985 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp210636)))) - (let ((__tmp210638 - (let ((__tmp210639 - (let ((__tmp210640 - (let ((__tmp210641 + (make-symbol__0 __tmp212985)))) + (let ((__tmp212987 + (let ((__tmp212988 + (let ((__tmp212989 + (let ((__tmp212990 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e197199_)))) + (gxc#compile-e__0 _e199448_)))) (declare (not safe)) - (cons __tmp210641 '())))) + (cons __tmp212990 '())))) (declare (not safe)) - (cons _tmp197229_ __tmp210640)))) + (cons _tmp199478_ __tmp212989)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210639 - _bind197177_))) - (__tmp210637 + (cons __tmp212988 + _bind199426_))) + (__tmp212986 (let () (declare (not safe)) - (cons _tmp197229_ - _args197178_)))) + (cons _tmp199478_ + _args199427_)))) (declare (not safe)) - (_lp197172_ - _rest197198_ - __tmp210638 - __tmp210637)))))) + (_lp199421_ + _rest199447_ + __tmp212987 + __tmp212986)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx209825209826_)) - (let ((_e197208197260_ + (gx#stx-pair? ___stx212174212175_)) + (let ((_e199457199509_ (let () (declare (not safe)) - (gx#stx-e ___stx209825209826_)))) - (let ((_tl197206197265_ + (gx#stx-e ___stx212174212175_)))) + (let ((_tl199455199514_ (let () (declare (not safe)) - (##cdr _e197208197260_))) - (_hd197207197263_ + (##cdr _e199457199509_))) + (_hd199456199512_ (let () (declare (not safe)) - (##car _e197208197260_)))) + (##car _e199457199509_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd197207197263_)) + (gx#identifier? _hd199456199512_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd197207197263_)) + _hd199456199512_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl197206197265_)) - (let ((_e197211197268_ + _tl199455199514_)) + (let ((_e199460199517_ (let () (declare (not safe)) (gx#stx-e - _tl197206197265_)))) - (let ((_tl197209197273_ + _tl199455199514_)))) + (let ((_tl199458199522_ (let () (declare (not safe)) - (##cdr _e197211197268_))) - (_hd197210197271_ + (##cdr _e199460199517_))) + (_hd199459199520_ (let () (declare (not safe)) - (##car _e197211197268_)))) + (##car _e199460199517_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197209197273_)) - (___kont209827209828_) - (___kont209831209832_)))) - (___kont209831209832_)) + _tl199458199522_)) + (___kont212176212177_) + (___kont212180212181_)))) + (___kont212180212181_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd197207197263_)) + _hd199456199512_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl197206197265_)) - (let ((_e197217197245_ + _tl199455199514_)) + (let ((_e199466199494_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl197206197265_)))) - (let ((_tl197215197250_ - (let () (declare (not safe)) (##cdr _e197217197245_))) - (_hd197216197248_ - (let () (declare (not safe)) (##car _e197217197245_)))) + (gx#stx-e _tl199455199514_)))) + (let ((_tl199464199499_ + (let () (declare (not safe)) (##cdr _e199466199494_))) + (_hd199465199497_ + (let () (declare (not safe)) (##car _e199466199494_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl197215197250_)) - (___kont209829209830_) - (___kont209831209832_)))) - (___kont209831209832_)) + (gx#stx-null? _tl199464199499_)) + (___kont212178212179_) + (___kont212180212181_)))) + (___kont212180212181_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont209831209832_))) - (___kont209831209832_)))) - (___kont209831209832_))))))) + (___kont212180212181_))) + (___kont212180212181_)))) + (___kont212180212181_))))))) (if (let () (declare (not safe)) - (##pair? _rest197179197187_)) - (let ((_hd197184197284_ + (##pair? _rest199428199436_)) + (let ((_hd199433199533_ (let () (declare (not safe)) - (##car _rest197179197187_))) - (_tl197185197286_ + (##car _rest199428199436_))) + (_tl199434199535_ (let () (declare (not safe)) - (##cdr _rest197179197187_)))) - (let* ((_e197289_ _hd197184197284_) - (_rest197291_ _tl197185197286_)) + (##cdr _rest199428199436_)))) + (let* ((_e199538_ _hd199433199533_) + (_rest199540_ _tl199434199535_)) (declare (not safe)) - (_K197183197281_ _rest197291_ _e197289_))) - (let () (declare (not safe)) (_else197181197195_))))))) + (_K199432199530_ _rest199540_ _e199538_))) + (let () (declare (not safe)) (_else199430199444_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd197121197151_ - _hd197118197143_) + _hd199370199400_ + _hd199367199392_) (let () (declare (not safe)) - (_g197110197127_ - _g197111197130_))))) + (_g199359199376_ + _g199360199379_))))) (let () (declare (not safe)) - (_g197110197127_ _g197111197130_))))) + (_g199359199376_ _g199360199379_))))) (let () (declare (not safe)) - (_g197110197127_ _g197111197130_))))) + (_g199359199376_ _g199360199379_))))) (let () (declare (not safe)) - (_g197110197127_ _g197111197130_)))))) + (_g199359199376_ _g199360199379_)))))) (declare (not safe)) - (_g197109197293_ _stx197108_)))) + (_g199358199542_ _stx199357_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_stx196920_) - (let* ((_g196922196939_ - (lambda (_g196923196936_) + (lambda (_stx199169_) + (let* ((_g199171199188_ + (lambda (_g199172199185_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196923196936_)))) - (_g196921197105_ - (lambda (_g196923196942_) + _g199172199185_)))) + (_g199170199354_ + (lambda (_g199172199191_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196923196942_)) - (let ((_e196928196944_ + (gx#stx-pair? _g199172199191_)) + (let ((_e199177199193_ (let () (declare (not safe)) - (gx#stx-e _g196923196942_)))) - (let ((_hd196927196947_ + (gx#stx-e _g199172199191_)))) + (let ((_hd199176199196_ (let () (declare (not safe)) - (##car _e196928196944_))) - (_tl196926196949_ + (##car _e199177199193_))) + (_tl199175199198_ (let () (declare (not safe)) - (##cdr _e196928196944_)))) + (##cdr _e199177199193_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196926196949_)) - (let ((_e196931196952_ + (gx#stx-pair? _tl199175199198_)) + (let ((_e199180199201_ (let () (declare (not safe)) - (gx#stx-e _tl196926196949_)))) - (let ((_hd196930196955_ + (gx#stx-e _tl199175199198_)))) + (let ((_hd199179199204_ (let () (declare (not safe)) - (##car _e196931196952_))) - (_tl196929196957_ + (##car _e199180199201_))) + (_tl199178199206_ (let () (declare (not safe)) - (##cdr _e196931196952_)))) + (##cdr _e199180199201_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196929196957_)) - (let ((_e196934196960_ + (gx#stx-pair? _tl199178199206_)) + (let ((_e199183199209_ (let () (declare (not safe)) - (gx#stx-e _tl196929196957_)))) - (let ((_hd196933196963_ + (gx#stx-e _tl199178199206_)))) + (let ((_hd199182199212_ (let () (declare (not safe)) - (##car _e196934196960_))) - (_tl196932196965_ + (##car _e199183199209_))) + (_tl199181199214_ (let () (declare (not safe)) - (##cdr _e196934196960_)))) + (##cdr _e199183199209_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196932196965_)) - ((lambda (_L196968_ _L196969_) + _tl199181199214_)) + ((lambda (_L199217_ _L199218_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp210662 - (let ((__tmp210665 + (let ((__tmp213011 + (let ((__tmp213014 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L196968_))) - (__tmp210663 - (let ((__tmp210664 + (gxc#compile-e__0 _L199217_))) + (__tmp213012 + (let ((__tmp213013 (let () (declare (not safe)) - (gxc#compile-e__0 _L196969_)))) + (gxc#compile-e__0 _L199218_)))) (declare (not safe)) - (cons __tmp210664 '())))) + (cons __tmp213013 '())))) (declare (not safe)) - (cons __tmp210665 __tmp210663)))) + (cons __tmp213014 __tmp213012)))) (declare (not safe)) - (cons '##structure-direct-instance-of? __tmp210662)) - (let _lp196984_ ((_rest196987_ - (let ((__tmp210661 + (cons '##structure-direct-instance-of? __tmp213011)) + (let _lp199233_ ((_rest199236_ + (let ((__tmp213010 (let () (declare (not safe)) - (cons _L196968_ '())))) + (cons _L199217_ '())))) (declare (not safe)) - (cons _L196969_ __tmp210661))) - (_bind196989_ '()) - (_args196990_ '())) - (let* ((_rest196991196999_ _rest196987_) - (_else196993197007_ + (cons _L199218_ __tmp213010))) + (_bind199238_ '()) + (_args199239_ '())) + (let* ((_rest199240199248_ _rest199236_) + (_else199242199256_ (lambda () - (let ((__tmp210647 - (let ((__tmp210648 - (let ((__tmp210649 - (let ((__tmp210650 + (let ((__tmp212996 + (let ((__tmp212997 + (let ((__tmp212998 + (let ((__tmp212999 (let () (declare (not safe)) (cons '##structure-direct-instance-of? - _args196990_)))) + _args199239_)))) (declare (not safe)) - (cons __tmp210650 '())))) + (cons __tmp212999 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp210649)))) + __tmp212998)))) (declare (not safe)) - (cons _bind196989_ __tmp210648)))) + (cons _bind199238_ __tmp212997)))) (declare (not safe)) - (cons 'let __tmp210647)))) - (_K196995197093_ - (lambda (_rest197010_ _e197011_) - (let* ((___stx209871209872_ _e197011_) - (_g197016197034_ + (cons 'let __tmp212996)))) + (_K199244199342_ + (lambda (_rest199259_ _e199260_) + (let* ((___stx212220212221_ _e199260_) + (_g199265199283_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209871209872_))))) - (let ((___kont209873209874_ + ___stx212220212221_))))) + (let ((___kont212222212223_ (lambda () - (let ((__tmp210651 - (let ((__tmp210652 + (let ((__tmp213000 + (let ((__tmp213001 (let () (declare (not safe)) (gxc#compile-e__0 - _e197011_)))) + _e199260_)))) (declare (not safe)) - (cons __tmp210652 - _args196990_)))) + (cons __tmp213001 + _args199239_)))) (declare (not safe)) - (_lp196984_ - _rest197010_ - _bind196989_ - __tmp210651)))) - (___kont209875209876_ + (_lp199233_ + _rest199259_ + _bind199238_ + __tmp213000)))) + (___kont212224212225_ (lambda () - (let ((__tmp210653 - (let ((__tmp210654 + (let ((__tmp213002 + (let ((__tmp213003 (let () (declare (not safe)) (gxc#compile-e__0 - _e197011_)))) + _e199260_)))) (declare (not safe)) - (cons __tmp210654 - _args196990_)))) + (cons __tmp213003 + _args199239_)))) (declare (not safe)) - (_lp196984_ - _rest197010_ - _bind196989_ - __tmp210653)))) - (___kont209877209878_ + (_lp199233_ + _rest199259_ + _bind199238_ + __tmp213002)))) + (___kont212226212227_ (lambda () - (let ((_tmp197041_ - (let ((__tmp210655 + (let ((_tmp199290_ + (let ((__tmp213004 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp210655)))) - (let ((__tmp210657 - (let ((__tmp210658 - (let ((__tmp210659 - (let ((__tmp210660 + (make-symbol__0 __tmp213004)))) + (let ((__tmp213006 + (let ((__tmp213007 + (let ((__tmp213008 + (let ((__tmp213009 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e197011_)))) + (gxc#compile-e__0 _e199260_)))) (declare (not safe)) - (cons __tmp210660 '())))) + (cons __tmp213009 '())))) (declare (not safe)) - (cons _tmp197041_ __tmp210659)))) + (cons _tmp199290_ __tmp213008)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210658 - _bind196989_))) - (__tmp210656 + (cons __tmp213007 + _bind199238_))) + (__tmp213005 (let () (declare (not safe)) - (cons _tmp197041_ - _args196990_)))) + (cons _tmp199290_ + _args199239_)))) (declare (not safe)) - (_lp196984_ - _rest197010_ - __tmp210657 - __tmp210656)))))) + (_lp199233_ + _rest199259_ + __tmp213006 + __tmp213005)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx209871209872_)) - (let ((_e197020197072_ + (gx#stx-pair? ___stx212220212221_)) + (let ((_e199269199321_ (let () (declare (not safe)) - (gx#stx-e ___stx209871209872_)))) - (let ((_tl197018197077_ + (gx#stx-e ___stx212220212221_)))) + (let ((_tl199267199326_ (let () (declare (not safe)) - (##cdr _e197020197072_))) - (_hd197019197075_ + (##cdr _e199269199321_))) + (_hd199268199324_ (let () (declare (not safe)) - (##car _e197020197072_)))) + (##car _e199269199321_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd197019197075_)) + (gx#identifier? _hd199268199324_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd197019197075_)) + _hd199268199324_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl197018197077_)) - (let ((_e197023197080_ + _tl199267199326_)) + (let ((_e199272199329_ (let () (declare (not safe)) (gx#stx-e - _tl197018197077_)))) - (let ((_tl197021197085_ + _tl199267199326_)))) + (let ((_tl199270199334_ (let () (declare (not safe)) - (##cdr _e197023197080_))) - (_hd197022197083_ + (##cdr _e199272199329_))) + (_hd199271199332_ (let () (declare (not safe)) - (##car _e197023197080_)))) + (##car _e199272199329_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197021197085_)) - (___kont209873209874_) - (___kont209877209878_)))) - (___kont209877209878_)) + _tl199270199334_)) + (___kont212222212223_) + (___kont212226212227_)))) + (___kont212226212227_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd197019197075_)) + _hd199268199324_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl197018197077_)) - (let ((_e197029197057_ + _tl199267199326_)) + (let ((_e199278199306_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl197018197077_)))) - (let ((_tl197027197062_ - (let () (declare (not safe)) (##cdr _e197029197057_))) - (_hd197028197060_ - (let () (declare (not safe)) (##car _e197029197057_)))) + (gx#stx-e _tl199267199326_)))) + (let ((_tl199276199311_ + (let () (declare (not safe)) (##cdr _e199278199306_))) + (_hd199277199309_ + (let () (declare (not safe)) (##car _e199278199306_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl197027197062_)) - (___kont209875209876_) - (___kont209877209878_)))) - (___kont209877209878_)) + (gx#stx-null? _tl199276199311_)) + (___kont212224212225_) + (___kont212226212227_)))) + (___kont212226212227_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont209877209878_))) - (___kont209877209878_)))) - (___kont209877209878_))))))) + (___kont212226212227_))) + (___kont212226212227_)))) + (___kont212226212227_))))))) (if (let () (declare (not safe)) - (##pair? _rest196991196999_)) - (let ((_hd196996197096_ + (##pair? _rest199240199248_)) + (let ((_hd199245199345_ (let () (declare (not safe)) - (##car _rest196991196999_))) - (_tl196997197098_ + (##car _rest199240199248_))) + (_tl199246199347_ (let () (declare (not safe)) - (##cdr _rest196991196999_)))) - (let* ((_e197101_ _hd196996197096_) - (_rest197103_ _tl196997197098_)) + (##cdr _rest199240199248_)))) + (let* ((_e199350_ _hd199245199345_) + (_rest199352_ _tl199246199347_)) (declare (not safe)) - (_K196995197093_ _rest197103_ _e197101_))) - (let () (declare (not safe)) (_else196993197007_))))))) + (_K199244199342_ _rest199352_ _e199350_))) + (let () (declare (not safe)) (_else199242199256_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd196933196963_ - _hd196930196955_) + _hd199182199212_ + _hd199179199204_) (let () (declare (not safe)) - (_g196922196939_ - _g196923196942_))))) + (_g199171199188_ + _g199172199191_))))) (let () (declare (not safe)) - (_g196922196939_ _g196923196942_))))) + (_g199171199188_ _g199172199191_))))) (let () (declare (not safe)) - (_g196922196939_ _g196923196942_))))) + (_g199171199188_ _g199172199191_))))) (let () (declare (not safe)) - (_g196922196939_ _g196923196942_)))))) + (_g199171199188_ _g199172199191_)))))) (declare (not safe)) - (_g196921197105_ _stx196920_)))) + (_g199170199354_ _stx199169_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_stx196837_) - (let* ((_g196839196860_ - (lambda (_g196840196857_) + (lambda (_stx199086_) + (let* ((_g199088199109_ + (lambda (_g199089199106_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196840196857_)))) - (_g196838196917_ - (lambda (_g196840196863_) + _g199089199106_)))) + (_g199087199166_ + (lambda (_g199089199112_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196840196863_)) - (let ((_e196846196865_ + (gx#stx-pair? _g199089199112_)) + (let ((_e199095199114_ (let () (declare (not safe)) - (gx#stx-e _g196840196863_)))) - (let ((_hd196845196868_ + (gx#stx-e _g199089199112_)))) + (let ((_hd199094199117_ (let () (declare (not safe)) - (##car _e196846196865_))) - (_tl196844196870_ + (##car _e199095199114_))) + (_tl199093199119_ (let () (declare (not safe)) - (##cdr _e196846196865_)))) + (##cdr _e199095199114_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196844196870_)) - (let ((_e196849196873_ + (gx#stx-pair? _tl199093199119_)) + (let ((_e199098199122_ (let () (declare (not safe)) - (gx#stx-e _tl196844196870_)))) - (let ((_hd196848196876_ + (gx#stx-e _tl199093199119_)))) + (let ((_hd199097199125_ (let () (declare (not safe)) - (##car _e196849196873_))) - (_tl196847196878_ + (##car _e199098199122_))) + (_tl199096199127_ (let () (declare (not safe)) - (##cdr _e196849196873_)))) + (##cdr _e199098199122_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196847196878_)) - (let ((_e196852196881_ + (gx#stx-pair? _tl199096199127_)) + (let ((_e199101199130_ (let () (declare (not safe)) - (gx#stx-e _tl196847196878_)))) - (let ((_hd196851196884_ + (gx#stx-e _tl199096199127_)))) + (let ((_hd199100199133_ (let () (declare (not safe)) - (##car _e196852196881_))) - (_tl196850196886_ + (##car _e199101199130_))) + (_tl199099199135_ (let () (declare (not safe)) - (##cdr _e196852196881_)))) + (##cdr _e199101199130_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl196850196886_)) - (let ((_e196855196889_ + _tl199099199135_)) + (let ((_e199104199138_ (let () (declare (not safe)) (gx#stx-e - _tl196850196886_)))) - (let ((_hd196854196892_ + _tl199099199135_)))) + (let ((_hd199103199141_ (let () (declare (not safe)) - (##car _e196855196889_))) - (_tl196853196894_ + (##car _e199104199138_))) + (_tl199102199143_ (let () (declare (not safe)) - (##cdr _e196855196889_)))) + (##cdr _e199104199138_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196853196894_)) - ((lambda (_L196897_ + _tl199102199143_)) + ((lambda (_L199146_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L196898_ - _L196899_) - (let ((__tmp210666 - (let ((__tmp210672 + _L199147_ + _L199148_) + (let ((__tmp213015 + (let ((__tmp213021 (let () (declare (not safe)) - (gxc#compile-e__0 _L196897_))) - (__tmp210667 - (let ((__tmp210671 + (gxc#compile-e__0 _L199146_))) + (__tmp213016 + (let ((__tmp213020 (let () (declare (not safe)) - (gxc#compile-e__0 _L196898_))) - (__tmp210668 - (let ((__tmp210670 + (gxc#compile-e__0 _L199147_))) + (__tmp213017 + (let ((__tmp213019 (let () (declare (not safe)) - (gxc#compile-e__0 _L196899_))) - (__tmp210669 + (gxc#compile-e__0 _L199148_))) + (__tmp213018 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp210670 __tmp210669)))) + (cons __tmp213019 __tmp213018)))) (declare (not safe)) - (cons __tmp210671 __tmp210668)))) + (cons __tmp213020 __tmp213017)))) (declare (not safe)) - (cons __tmp210672 __tmp210667)))) + (cons __tmp213021 __tmp213016)))) (declare (not safe)) - (cons '##structure-ref __tmp210666))) - _hd196854196892_ - _hd196851196884_ - _hd196848196876_) + (cons '##structure-ref __tmp213015))) + _hd199103199141_ + _hd199100199133_ + _hd199097199125_) (let () (declare (not safe)) - (_g196839196860_ _g196840196863_))))) + (_g199088199109_ _g199089199112_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g196839196860_ - _g196840196863_))))) + (_g199088199109_ + _g199089199112_))))) (let () (declare (not safe)) - (_g196839196860_ _g196840196863_))))) + (_g199088199109_ _g199089199112_))))) (let () (declare (not safe)) - (_g196839196860_ _g196840196863_))))) + (_g199088199109_ _g199089199112_))))) (let () (declare (not safe)) - (_g196839196860_ _g196840196863_)))))) + (_g199088199109_ _g199089199112_)))))) (declare (not safe)) - (_g196838196917_ _stx196837_)))) + (_g199087199166_ _stx199086_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_stx196738_) - (let* ((_g196740196765_ - (lambda (_g196741196762_) + (lambda (_stx198987_) + (let* ((_g198989199014_ + (lambda (_g198990199011_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196741196762_)))) - (_g196739196834_ - (lambda (_g196741196768_) + _g198990199011_)))) + (_g198988199083_ + (lambda (_g198990199017_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196741196768_)) - (let ((_e196748196770_ + (gx#stx-pair? _g198990199017_)) + (let ((_e198997199019_ (let () (declare (not safe)) - (gx#stx-e _g196741196768_)))) - (let ((_hd196747196773_ + (gx#stx-e _g198990199017_)))) + (let ((_hd198996199022_ (let () (declare (not safe)) - (##car _e196748196770_))) - (_tl196746196775_ + (##car _e198997199019_))) + (_tl198995199024_ (let () (declare (not safe)) - (##cdr _e196748196770_)))) + (##cdr _e198997199019_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196746196775_)) - (let ((_e196751196778_ + (gx#stx-pair? _tl198995199024_)) + (let ((_e199000199027_ (let () (declare (not safe)) - (gx#stx-e _tl196746196775_)))) - (let ((_hd196750196781_ + (gx#stx-e _tl198995199024_)))) + (let ((_hd198999199030_ (let () (declare (not safe)) - (##car _e196751196778_))) - (_tl196749196783_ + (##car _e199000199027_))) + (_tl198998199032_ (let () (declare (not safe)) - (##cdr _e196751196778_)))) + (##cdr _e199000199027_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196749196783_)) - (let ((_e196754196786_ + (gx#stx-pair? _tl198998199032_)) + (let ((_e199003199035_ (let () (declare (not safe)) - (gx#stx-e _tl196749196783_)))) - (let ((_hd196753196789_ + (gx#stx-e _tl198998199032_)))) + (let ((_hd199002199038_ (let () (declare (not safe)) - (##car _e196754196786_))) - (_tl196752196791_ + (##car _e199003199035_))) + (_tl199001199040_ (let () (declare (not safe)) - (##cdr _e196754196786_)))) + (##cdr _e199003199035_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl196752196791_)) - (let ((_e196757196794_ + _tl199001199040_)) + (let ((_e199006199043_ (let () (declare (not safe)) (gx#stx-e - _tl196752196791_)))) - (let ((_hd196756196797_ + _tl199001199040_)))) + (let ((_hd199005199046_ (let () (declare (not safe)) - (##car _e196757196794_))) - (_tl196755196799_ + (##car _e199006199043_))) + (_tl199004199048_ (let () (declare (not safe)) - (##cdr _e196757196794_)))) + (##cdr _e199006199043_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl196755196799_)) - (let ((_e196760196802_ + _tl199004199048_)) + (let ((_e199009199051_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl196755196799_)))) - (let ((_hd196759196805_ - (let () (declare (not safe)) (##car _e196760196802_))) - (_tl196758196807_ + (gx#stx-e _tl199004199048_)))) + (let ((_hd199008199054_ + (let () (declare (not safe)) (##car _e199009199051_))) + (_tl199007199056_ (let () (declare (not safe)) - (##cdr _e196760196802_)))) + (##cdr _e199009199051_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196758196807_)) - ((lambda (_L196810_ _L196811_ _L196812_ _L196813_) - (let ((__tmp210673 - (let ((__tmp210681 + (gx#stx-null? _tl199007199056_)) + ((lambda (_L199059_ _L199060_ _L199061_ _L199062_) + (let ((__tmp213022 + (let ((__tmp213030 (let () (declare (not safe)) - (gxc#compile-e__0 _L196811_))) - (__tmp210674 - (let ((__tmp210680 + (gxc#compile-e__0 _L199060_))) + (__tmp213023 + (let ((__tmp213029 (let () (declare (not safe)) (gxc#compile-e__0 - _L196810_))) - (__tmp210675 - (let ((__tmp210679 + _L199059_))) + (__tmp213024 + (let ((__tmp213028 (let () (declare (not safe)) (gxc#compile-e__0 - _L196812_))) - (__tmp210676 - (let ((__tmp210678 + _L199061_))) + (__tmp213025 + (let ((__tmp213027 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L196813_))) - (__tmp210677 + (gxc#compile-e__0 _L199062_))) + (__tmp213026 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp210678 __tmp210677)))) + (cons __tmp213027 __tmp213026)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210679 - __tmp210676)))) + (cons __tmp213028 + __tmp213025)))) (declare (not safe)) - (cons __tmp210680 __tmp210675)))) + (cons __tmp213029 __tmp213024)))) (declare (not safe)) - (cons __tmp210681 __tmp210674)))) + (cons __tmp213030 __tmp213023)))) (declare (not safe)) - (cons '##structure-set! __tmp210673))) - _hd196759196805_ - _hd196756196797_ - _hd196753196789_ - _hd196750196781_) + (cons '##structure-set! __tmp213022))) + _hd199008199054_ + _hd199005199046_ + _hd199002199038_ + _hd198999199030_) (let () (declare (not safe)) - (_g196740196765_ _g196741196768_))))) + (_g198989199014_ _g198990199017_))))) (let () (declare (not safe)) - (_g196740196765_ _g196741196768_))))) + (_g198989199014_ _g198990199017_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g196740196765_ - _g196741196768_))))) + (_g198989199014_ + _g198990199017_))))) (let () (declare (not safe)) - (_g196740196765_ _g196741196768_))))) + (_g198989199014_ _g198990199017_))))) (let () (declare (not safe)) - (_g196740196765_ _g196741196768_))))) + (_g198989199014_ _g198990199017_))))) (let () (declare (not safe)) - (_g196740196765_ _g196741196768_)))))) + (_g198989199014_ _g198990199017_)))))) (declare (not safe)) - (_g196739196834_ _stx196738_)))) + (_g198988199083_ _stx198987_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_stx196655_) - (let* ((_g196657196678_ - (lambda (_g196658196675_) + (lambda (_stx198904_) + (let* ((_g198906198927_ + (lambda (_g198907198924_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196658196675_)))) - (_g196656196735_ - (lambda (_g196658196681_) + _g198907198924_)))) + (_g198905198984_ + (lambda (_g198907198930_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196658196681_)) - (let ((_e196664196683_ + (gx#stx-pair? _g198907198930_)) + (let ((_e198913198932_ (let () (declare (not safe)) - (gx#stx-e _g196658196681_)))) - (let ((_hd196663196686_ + (gx#stx-e _g198907198930_)))) + (let ((_hd198912198935_ (let () (declare (not safe)) - (##car _e196664196683_))) - (_tl196662196688_ + (##car _e198913198932_))) + (_tl198911198937_ (let () (declare (not safe)) - (##cdr _e196664196683_)))) + (##cdr _e198913198932_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196662196688_)) - (let ((_e196667196691_ + (gx#stx-pair? _tl198911198937_)) + (let ((_e198916198940_ (let () (declare (not safe)) - (gx#stx-e _tl196662196688_)))) - (let ((_hd196666196694_ + (gx#stx-e _tl198911198937_)))) + (let ((_hd198915198943_ (let () (declare (not safe)) - (##car _e196667196691_))) - (_tl196665196696_ + (##car _e198916198940_))) + (_tl198914198945_ (let () (declare (not safe)) - (##cdr _e196667196691_)))) + (##cdr _e198916198940_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196665196696_)) - (let ((_e196670196699_ + (gx#stx-pair? _tl198914198945_)) + (let ((_e198919198948_ (let () (declare (not safe)) - (gx#stx-e _tl196665196696_)))) - (let ((_hd196669196702_ + (gx#stx-e _tl198914198945_)))) + (let ((_hd198918198951_ (let () (declare (not safe)) - (##car _e196670196699_))) - (_tl196668196704_ + (##car _e198919198948_))) + (_tl198917198953_ (let () (declare (not safe)) - (##cdr _e196670196699_)))) + (##cdr _e198919198948_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl196668196704_)) - (let ((_e196673196707_ + _tl198917198953_)) + (let ((_e198922198956_ (let () (declare (not safe)) (gx#stx-e - _tl196668196704_)))) - (let ((_hd196672196710_ + _tl198917198953_)))) + (let ((_hd198921198959_ (let () (declare (not safe)) - (##car _e196673196707_))) - (_tl196671196712_ + (##car _e198922198956_))) + (_tl198920198961_ (let () (declare (not safe)) - (##cdr _e196673196707_)))) + (##cdr _e198922198956_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196671196712_)) - ((lambda (_L196715_ + _tl198920198961_)) + ((lambda (_L198964_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L196716_ - _L196717_) - (let ((__tmp210682 - (let ((__tmp210688 + _L198965_ + _L198966_) + (let ((__tmp213031 + (let ((__tmp213037 (let () (declare (not safe)) - (gxc#compile-e__0 _L196715_))) - (__tmp210683 - (let ((__tmp210687 + (gxc#compile-e__0 _L198964_))) + (__tmp213032 + (let ((__tmp213036 (let () (declare (not safe)) - (gxc#compile-e__0 _L196716_))) - (__tmp210684 - (let ((__tmp210686 + (gxc#compile-e__0 _L198965_))) + (__tmp213033 + (let ((__tmp213035 (let () (declare (not safe)) - (gxc#compile-e__0 _L196717_))) - (__tmp210685 + (gxc#compile-e__0 _L198966_))) + (__tmp213034 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp210686 __tmp210685)))) + (cons __tmp213035 __tmp213034)))) (declare (not safe)) - (cons __tmp210687 __tmp210684)))) + (cons __tmp213036 __tmp213033)))) (declare (not safe)) - (cons __tmp210688 __tmp210683)))) + (cons __tmp213037 __tmp213032)))) (declare (not safe)) - (cons '##direct-structure-ref __tmp210682))) - _hd196672196710_ - _hd196669196702_ - _hd196666196694_) + (cons '##direct-structure-ref __tmp213031))) + _hd198921198959_ + _hd198918198951_ + _hd198915198943_) (let () (declare (not safe)) - (_g196657196678_ _g196658196681_))))) + (_g198906198927_ _g198907198930_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g196657196678_ - _g196658196681_))))) + (_g198906198927_ + _g198907198930_))))) (let () (declare (not safe)) - (_g196657196678_ _g196658196681_))))) + (_g198906198927_ _g198907198930_))))) (let () (declare (not safe)) - (_g196657196678_ _g196658196681_))))) + (_g198906198927_ _g198907198930_))))) (let () (declare (not safe)) - (_g196657196678_ _g196658196681_)))))) + (_g198906198927_ _g198907198930_)))))) (declare (not safe)) - (_g196656196735_ _stx196655_)))) + (_g198905198984_ _stx198904_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_stx196556_) - (let* ((_g196558196583_ - (lambda (_g196559196580_) + (lambda (_stx198805_) + (let* ((_g198807198832_ + (lambda (_g198808198829_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196559196580_)))) - (_g196557196652_ - (lambda (_g196559196586_) + _g198808198829_)))) + (_g198806198901_ + (lambda (_g198808198835_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196559196586_)) - (let ((_e196566196588_ + (gx#stx-pair? _g198808198835_)) + (let ((_e198815198837_ (let () (declare (not safe)) - (gx#stx-e _g196559196586_)))) - (let ((_hd196565196591_ + (gx#stx-e _g198808198835_)))) + (let ((_hd198814198840_ (let () (declare (not safe)) - (##car _e196566196588_))) - (_tl196564196593_ + (##car _e198815198837_))) + (_tl198813198842_ (let () (declare (not safe)) - (##cdr _e196566196588_)))) + (##cdr _e198815198837_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196564196593_)) - (let ((_e196569196596_ + (gx#stx-pair? _tl198813198842_)) + (let ((_e198818198845_ (let () (declare (not safe)) - (gx#stx-e _tl196564196593_)))) - (let ((_hd196568196599_ + (gx#stx-e _tl198813198842_)))) + (let ((_hd198817198848_ (let () (declare (not safe)) - (##car _e196569196596_))) - (_tl196567196601_ + (##car _e198818198845_))) + (_tl198816198850_ (let () (declare (not safe)) - (##cdr _e196569196596_)))) + (##cdr _e198818198845_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196567196601_)) - (let ((_e196572196604_ + (gx#stx-pair? _tl198816198850_)) + (let ((_e198821198853_ (let () (declare (not safe)) - (gx#stx-e _tl196567196601_)))) - (let ((_hd196571196607_ + (gx#stx-e _tl198816198850_)))) + (let ((_hd198820198856_ (let () (declare (not safe)) - (##car _e196572196604_))) - (_tl196570196609_ + (##car _e198821198853_))) + (_tl198819198858_ (let () (declare (not safe)) - (##cdr _e196572196604_)))) + (##cdr _e198821198853_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl196570196609_)) - (let ((_e196575196612_ + _tl198819198858_)) + (let ((_e198824198861_ (let () (declare (not safe)) (gx#stx-e - _tl196570196609_)))) - (let ((_hd196574196615_ + _tl198819198858_)))) + (let ((_hd198823198864_ (let () (declare (not safe)) - (##car _e196575196612_))) - (_tl196573196617_ + (##car _e198824198861_))) + (_tl198822198866_ (let () (declare (not safe)) - (##cdr _e196575196612_)))) + (##cdr _e198824198861_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl196573196617_)) - (let ((_e196578196620_ + _tl198822198866_)) + (let ((_e198827198869_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl196573196617_)))) - (let ((_hd196577196623_ - (let () (declare (not safe)) (##car _e196578196620_))) - (_tl196576196625_ + (gx#stx-e _tl198822198866_)))) + (let ((_hd198826198872_ + (let () (declare (not safe)) (##car _e198827198869_))) + (_tl198825198874_ (let () (declare (not safe)) - (##cdr _e196578196620_)))) + (##cdr _e198827198869_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196576196625_)) - ((lambda (_L196628_ _L196629_ _L196630_ _L196631_) - (let ((__tmp210689 - (let ((__tmp210697 + (gx#stx-null? _tl198825198874_)) + ((lambda (_L198877_ _L198878_ _L198879_ _L198880_) + (let ((__tmp213038 + (let ((__tmp213046 (let () (declare (not safe)) - (gxc#compile-e__0 _L196629_))) - (__tmp210690 - (let ((__tmp210696 + (gxc#compile-e__0 _L198878_))) + (__tmp213039 + (let ((__tmp213045 (let () (declare (not safe)) (gxc#compile-e__0 - _L196628_))) - (__tmp210691 - (let ((__tmp210695 + _L198877_))) + (__tmp213040 + (let ((__tmp213044 (let () (declare (not safe)) (gxc#compile-e__0 - _L196630_))) - (__tmp210692 - (let ((__tmp210694 + _L198879_))) + (__tmp213041 + (let ((__tmp213043 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L196631_))) - (__tmp210693 + (gxc#compile-e__0 _L198880_))) + (__tmp213042 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp210694 __tmp210693)))) + (cons __tmp213043 __tmp213042)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210695 - __tmp210692)))) + (cons __tmp213044 + __tmp213041)))) (declare (not safe)) - (cons __tmp210696 __tmp210691)))) + (cons __tmp213045 __tmp213040)))) (declare (not safe)) - (cons __tmp210697 __tmp210690)))) + (cons __tmp213046 __tmp213039)))) (declare (not safe)) - (cons '##direct-structure-set! __tmp210689))) - _hd196577196623_ - _hd196574196615_ - _hd196571196607_ - _hd196568196599_) + (cons '##direct-structure-set! __tmp213038))) + _hd198826198872_ + _hd198823198864_ + _hd198820198856_ + _hd198817198848_) (let () (declare (not safe)) - (_g196558196583_ _g196559196586_))))) + (_g198807198832_ _g198808198835_))))) (let () (declare (not safe)) - (_g196558196583_ _g196559196586_))))) + (_g198807198832_ _g198808198835_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g196558196583_ - _g196559196586_))))) + (_g198807198832_ + _g198808198835_))))) (let () (declare (not safe)) - (_g196558196583_ _g196559196586_))))) + (_g198807198832_ _g198808198835_))))) (let () (declare (not safe)) - (_g196558196583_ _g196559196586_))))) + (_g198807198832_ _g198808198835_))))) (let () (declare (not safe)) - (_g196558196583_ _g196559196586_)))))) + (_g198807198832_ _g198808198835_)))))) (declare (not safe)) - (_g196557196652_ _stx196556_)))) + (_g198806198901_ _stx198805_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_stx196352_) - (let* ((_g196354196375_ - (lambda (_g196355196372_) + (lambda (_stx198601_) + (let* ((_g198603198624_ + (lambda (_g198604198621_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196355196372_)))) - (_g196353196553_ - (lambda (_g196355196378_) + _g198604198621_)))) + (_g198602198802_ + (lambda (_g198604198627_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196355196378_)) - (let ((_e196361196380_ + (gx#stx-pair? _g198604198627_)) + (let ((_e198610198629_ (let () (declare (not safe)) - (gx#stx-e _g196355196378_)))) - (let ((_hd196360196383_ + (gx#stx-e _g198604198627_)))) + (let ((_hd198609198632_ (let () (declare (not safe)) - (##car _e196361196380_))) - (_tl196359196385_ + (##car _e198610198629_))) + (_tl198608198634_ (let () (declare (not safe)) - (##cdr _e196361196380_)))) + (##cdr _e198610198629_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196359196385_)) - (let ((_e196364196388_ + (gx#stx-pair? _tl198608198634_)) + (let ((_e198613198637_ (let () (declare (not safe)) - (gx#stx-e _tl196359196385_)))) - (let ((_hd196363196391_ + (gx#stx-e _tl198608198634_)))) + (let ((_hd198612198640_ (let () (declare (not safe)) - (##car _e196364196388_))) - (_tl196362196393_ + (##car _e198613198637_))) + (_tl198611198642_ (let () (declare (not safe)) - (##cdr _e196364196388_)))) + (##cdr _e198613198637_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196362196393_)) - (let ((_e196367196396_ + (gx#stx-pair? _tl198611198642_)) + (let ((_e198616198645_ (let () (declare (not safe)) - (gx#stx-e _tl196362196393_)))) - (let ((_hd196366196399_ + (gx#stx-e _tl198611198642_)))) + (let ((_hd198615198648_ (let () (declare (not safe)) - (##car _e196367196396_))) - (_tl196365196401_ + (##car _e198616198645_))) + (_tl198614198650_ (let () (declare (not safe)) - (##cdr _e196367196396_)))) + (##cdr _e198616198645_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl196365196401_)) - (let ((_e196370196404_ + _tl198614198650_)) + (let ((_e198619198653_ (let () (declare (not safe)) (gx#stx-e - _tl196365196401_)))) - (let ((_hd196369196407_ + _tl198614198650_)))) + (let ((_hd198618198656_ (let () (declare (not safe)) - (##car _e196370196404_))) - (_tl196368196409_ + (##car _e198619198653_))) + (_tl198617198658_ (let () (declare (not safe)) - (##cdr _e196370196404_)))) + (##cdr _e198619198653_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196368196409_)) - ((lambda (_L196412_ + _tl198617198658_)) + ((lambda (_L198661_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L196413_ - _L196414_) + _L198662_ + _L198663_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp210716 - (let ((__tmp210722 + (let ((__tmp213065 + (let ((__tmp213071 (let () (declare (not safe)) - (gxc#compile-e__0 _L196412_))) - (__tmp210717 - (let ((__tmp210721 + (gxc#compile-e__0 _L198661_))) + (__tmp213066 + (let ((__tmp213070 (let () (declare (not safe)) - (gxc#compile-e__0 _L196413_))) - (__tmp210718 - (let ((__tmp210720 + (gxc#compile-e__0 _L198662_))) + (__tmp213067 + (let ((__tmp213069 (let () (declare (not safe)) (gxc#compile-e__0 - _L196414_))) - (__tmp210719 + _L198663_))) + (__tmp213068 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp210720 __tmp210719)))) + (cons __tmp213069 __tmp213068)))) (declare (not safe)) - (cons __tmp210721 __tmp210718)))) + (cons __tmp213070 __tmp213067)))) (declare (not safe)) - (cons __tmp210722 __tmp210717)))) + (cons __tmp213071 __tmp213066)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp210716)) - (let _lp196432_ ((_rest196435_ - (let ((__tmp210714 - (let ((__tmp210715 + (cons '##unchecked-structure-ref __tmp213065)) + (let _lp198681_ ((_rest198684_ + (let ((__tmp213063 + (let ((__tmp213064 (let () (declare (not safe)) - (cons _L196412_ + (cons _L198661_ '())))) (declare (not safe)) - (cons _L196413_ - __tmp210715)))) + (cons _L198662_ + __tmp213064)))) (declare (not safe)) - (cons _L196414_ __tmp210714))) - (_bind196437_ '()) - (_args196438_ '())) - (let* ((_rest196439196447_ _rest196435_) - (_else196441196455_ + (cons _L198663_ __tmp213063))) + (_bind198686_ '()) + (_args198687_ '())) + (let* ((_rest198688198696_ _rest198684_) + (_else198690198704_ (lambda () - (let ((__tmp210698 - (let ((__tmp210699 - (let ((__tmp210700 - (let ((__tmp210701 - (let ((__tmp210702 + (let ((__tmp213047 + (let ((__tmp213048 + (let ((__tmp213049 + (let ((__tmp213050 + (let ((__tmp213051 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210703 + (let ((__tmp213052 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (foldr1 cons __tmp210703 _args196438_)))) + (foldr1 cons __tmp213052 _args198687_)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp210702)))) + (cons '##unchecked-structure-ref __tmp213051)))) (declare (not safe)) - (cons __tmp210701 '())))) + (cons __tmp213050 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp210700)))) + __tmp213049)))) (declare (not safe)) - (cons _bind196437_ __tmp210699)))) + (cons _bind198686_ __tmp213048)))) (declare (not safe)) - (cons 'let __tmp210698)))) - (_K196443196541_ - (lambda (_rest196458_ _e196459_) - (let* ((___stx209917209918_ _e196459_) - (_g196464196482_ + (cons 'let __tmp213047)))) + (_K198692198790_ + (lambda (_rest198707_ _e198708_) + (let* ((___stx212266212267_ _e198708_) + (_g198713198731_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209917209918_))))) - (let ((___kont209919209920_ + ___stx212266212267_))))) + (let ((___kont212268212269_ (lambda () - (let ((__tmp210704 - (let ((__tmp210705 + (let ((__tmp213053 + (let ((__tmp213054 (let () (declare (not safe)) (gxc#compile-e__0 - _e196459_)))) + _e198708_)))) (declare (not safe)) - (cons __tmp210705 - _args196438_)))) + (cons __tmp213054 + _args198687_)))) (declare (not safe)) - (_lp196432_ - _rest196458_ - _bind196437_ - __tmp210704)))) - (___kont209921209922_ + (_lp198681_ + _rest198707_ + _bind198686_ + __tmp213053)))) + (___kont212270212271_ (lambda () - (let ((__tmp210706 - (let ((__tmp210707 + (let ((__tmp213055 + (let ((__tmp213056 (let () (declare (not safe)) (gxc#compile-e__0 - _e196459_)))) + _e198708_)))) (declare (not safe)) - (cons __tmp210707 - _args196438_)))) + (cons __tmp213056 + _args198687_)))) (declare (not safe)) - (_lp196432_ - _rest196458_ - _bind196437_ - __tmp210706)))) - (___kont209923209924_ + (_lp198681_ + _rest198707_ + _bind198686_ + __tmp213055)))) + (___kont212272212273_ (lambda () - (let ((_tmp196489_ - (let ((__tmp210708 + (let ((_tmp198738_ + (let ((__tmp213057 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp210708)))) - (let ((__tmp210710 - (let ((__tmp210711 - (let ((__tmp210712 + __tmp213057)))) + (let ((__tmp213059 + (let ((__tmp213060 + (let ((__tmp213061 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210713 + (let ((__tmp213062 (let () (declare (not safe)) - (gxc#compile-e__0 _e196459_)))) + (gxc#compile-e__0 _e198708_)))) (declare (not safe)) - (cons __tmp210713 '())))) + (cons __tmp213062 '())))) (declare (not safe)) - (cons _tmp196489_ __tmp210712)))) + (cons _tmp198738_ __tmp213061)))) (declare (not safe)) - (cons __tmp210711 _bind196437_))) - (__tmp210709 - (let () (declare (not safe)) (cons _tmp196489_ _args196438_)))) + (cons __tmp213060 _bind198686_))) + (__tmp213058 + (let () (declare (not safe)) (cons _tmp198738_ _args198687_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp196432_ - _rest196458_ - __tmp210710 - __tmp210709)))))) + (_lp198681_ + _rest198707_ + __tmp213059 + __tmp213058)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx209917209918_)) - (let ((_e196468196520_ + ___stx212266212267_)) + (let ((_e198717198769_ (let () (declare (not safe)) (gx#stx-e - ___stx209917209918_)))) - (let ((_tl196466196525_ + ___stx212266212267_)))) + (let ((_tl198715198774_ (let () (declare (not safe)) - (##cdr _e196468196520_))) - (_hd196467196523_ + (##cdr _e198717198769_))) + (_hd198716198772_ (let () (declare (not safe)) - (##car _e196468196520_)))) + (##car _e198717198769_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd196467196523_)) + _hd198716198772_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd196467196523_)) + _hd198716198772_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl196466196525_)) - (let ((_e196471196528_ + _tl198715198774_)) + (let ((_e198720198777_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl196466196525_)))) - (let ((_tl196469196533_ + (gx#stx-e _tl198715198774_)))) + (let ((_tl198718198782_ (let () (declare (not safe)) - (##cdr _e196471196528_))) - (_hd196470196531_ + (##cdr _e198720198777_))) + (_hd198719198780_ (let () (declare (not safe)) - (##car _e196471196528_)))) + (##car _e198720198777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196469196533_)) - (___kont209919209920_) - (___kont209923209924_)))) - (___kont209923209924_)) + (gx#stx-null? _tl198718198782_)) + (___kont212268212269_) + (___kont212272212273_)))) + (___kont212272212273_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd196467196523_)) + (gx#stx-eq? '%#quote _hd198716198772_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196466196525_)) - (let ((_e196477196505_ + (gx#stx-pair? _tl198715198774_)) + (let ((_e198726198754_ (let () (declare (not safe)) - (gx#stx-e _tl196466196525_)))) - (let ((_tl196475196510_ + (gx#stx-e _tl198715198774_)))) + (let ((_tl198724198759_ (let () (declare (not safe)) - (##cdr _e196477196505_))) - (_hd196476196508_ + (##cdr _e198726198754_))) + (_hd198725198757_ (let () (declare (not safe)) - (##car _e196477196505_)))) + (##car _e198726198754_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196475196510_)) - (___kont209921209922_) - (___kont209923209924_)))) - (___kont209923209924_)) - (___kont209923209924_))) + (gx#stx-null? _tl198724198759_)) + (___kont212270212271_) + (___kont212272212273_)))) + (___kont212272212273_)) + (___kont212272212273_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont209923209924_)))) - (___kont209923209924_))))))) + (___kont212272212273_)))) + (___kont212272212273_))))))) (if (let () (declare (not safe)) - (##pair? _rest196439196447_)) - (let ((_hd196444196544_ + (##pair? _rest198688198696_)) + (let ((_hd198693198793_ (let () (declare (not safe)) - (##car _rest196439196447_))) - (_tl196445196546_ + (##car _rest198688198696_))) + (_tl198694198795_ (let () (declare (not safe)) - (##cdr _rest196439196447_)))) - (let* ((_e196549_ _hd196444196544_) - (_rest196551_ _tl196445196546_)) + (##cdr _rest198688198696_)))) + (let* ((_e198798_ _hd198693198793_) + (_rest198800_ _tl198694198795_)) (declare (not safe)) - (_K196443196541_ _rest196551_ _e196549_))) + (_K198692198790_ _rest198800_ _e198798_))) (let () (declare (not safe)) - (_else196441196455_))))))) - _hd196369196407_ - _hd196366196399_ - _hd196363196391_) + (_else198690198704_))))))) + _hd198618198656_ + _hd198615198648_ + _hd198612198640_) (let () (declare (not safe)) - (_g196354196375_ _g196355196378_))))) + (_g198603198624_ _g198604198627_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g196354196375_ - _g196355196378_))))) + (_g198603198624_ + _g198604198627_))))) (let () (declare (not safe)) - (_g196354196375_ _g196355196378_))))) + (_g198603198624_ _g198604198627_))))) (let () (declare (not safe)) - (_g196354196375_ _g196355196378_))))) + (_g198603198624_ _g198604198627_))))) (let () (declare (not safe)) - (_g196354196375_ _g196355196378_)))))) + (_g198603198624_ _g198604198627_)))))) (declare (not safe)) - (_g196353196553_ _stx196352_)))) + (_g198602198802_ _stx198601_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_stx196132_) - (let* ((_g196134196159_ - (lambda (_g196135196156_) + (lambda (_stx198381_) + (let* ((_g198383198408_ + (lambda (_g198384198405_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196135196156_)))) - (_g196133196349_ - (lambda (_g196135196162_) + _g198384198405_)))) + (_g198382198598_ + (lambda (_g198384198411_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196135196162_)) - (let ((_e196142196164_ + (gx#stx-pair? _g198384198411_)) + (let ((_e198391198413_ (let () (declare (not safe)) - (gx#stx-e _g196135196162_)))) - (let ((_hd196141196167_ + (gx#stx-e _g198384198411_)))) + (let ((_hd198390198416_ (let () (declare (not safe)) - (##car _e196142196164_))) - (_tl196140196169_ + (##car _e198391198413_))) + (_tl198389198418_ (let () (declare (not safe)) - (##cdr _e196142196164_)))) + (##cdr _e198391198413_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196140196169_)) - (let ((_e196145196172_ + (gx#stx-pair? _tl198389198418_)) + (let ((_e198394198421_ (let () (declare (not safe)) - (gx#stx-e _tl196140196169_)))) - (let ((_hd196144196175_ + (gx#stx-e _tl198389198418_)))) + (let ((_hd198393198424_ (let () (declare (not safe)) - (##car _e196145196172_))) - (_tl196143196177_ + (##car _e198394198421_))) + (_tl198392198426_ (let () (declare (not safe)) - (##cdr _e196145196172_)))) + (##cdr _e198394198421_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196143196177_)) - (let ((_e196148196180_ + (gx#stx-pair? _tl198392198426_)) + (let ((_e198397198429_ (let () (declare (not safe)) - (gx#stx-e _tl196143196177_)))) - (let ((_hd196147196183_ + (gx#stx-e _tl198392198426_)))) + (let ((_hd198396198432_ (let () (declare (not safe)) - (##car _e196148196180_))) - (_tl196146196185_ + (##car _e198397198429_))) + (_tl198395198434_ (let () (declare (not safe)) - (##cdr _e196148196180_)))) + (##cdr _e198397198429_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl196146196185_)) - (let ((_e196151196188_ + _tl198395198434_)) + (let ((_e198400198437_ (let () (declare (not safe)) (gx#stx-e - _tl196146196185_)))) - (let ((_hd196150196191_ + _tl198395198434_)))) + (let ((_hd198399198440_ (let () (declare (not safe)) - (##car _e196151196188_))) - (_tl196149196193_ + (##car _e198400198437_))) + (_tl198398198442_ (let () (declare (not safe)) - (##cdr _e196151196188_)))) + (##cdr _e198400198437_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl196149196193_)) - (let ((_e196154196196_ + _tl198398198442_)) + (let ((_e198403198445_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl196149196193_)))) - (let ((_hd196153196199_ - (let () (declare (not safe)) (##car _e196154196196_))) - (_tl196152196201_ + (gx#stx-e _tl198398198442_)))) + (let ((_hd198402198448_ + (let () (declare (not safe)) (##car _e198403198445_))) + (_tl198401198450_ (let () (declare (not safe)) - (##cdr _e196154196196_)))) + (##cdr _e198403198445_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196152196201_)) - ((lambda (_L196204_ _L196205_ _L196206_ _L196207_) + (gx#stx-null? _tl198401198450_)) + ((lambda (_L198453_ _L198454_ _L198455_ _L198456_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp210742 - (let ((__tmp210750 + (let ((__tmp213091 + (let ((__tmp213099 (let () (declare (not safe)) - (gxc#compile-e__0 _L196205_))) - (__tmp210743 - (let ((__tmp210749 + (gxc#compile-e__0 _L198454_))) + (__tmp213092 + (let ((__tmp213098 (let () (declare (not safe)) (gxc#compile-e__0 - _L196204_))) - (__tmp210744 - (let ((__tmp210748 + _L198453_))) + (__tmp213093 + (let ((__tmp213097 (let () (declare (not safe)) (gxc#compile-e__0 - _L196206_))) - (__tmp210745 - (let ((__tmp210747 + _L198455_))) + (__tmp213094 + (let ((__tmp213096 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L196207_))) - (__tmp210746 + (gxc#compile-e__0 _L198456_))) + (__tmp213095 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp210747 __tmp210746)))) + (cons __tmp213096 __tmp213095)))) (declare (not safe)) - (cons __tmp210748 __tmp210745)))) + (cons __tmp213097 __tmp213094)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210749 - __tmp210744)))) + (cons __tmp213098 + __tmp213093)))) (declare (not safe)) - (cons __tmp210750 __tmp210743)))) + (cons __tmp213099 __tmp213092)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp210742)) - (let _lp196228_ ((_rest196231_ - (let ((__tmp210739 - (let ((__tmp210740 - (let ((__tmp210741 + __tmp213091)) + (let _lp198477_ ((_rest198480_ + (let ((__tmp213088 + (let ((__tmp213089 + (let ((__tmp213090 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L196205_ '())))) + (cons _L198454_ '())))) (declare (not safe)) - (cons _L196204_ __tmp210741)))) + (cons _L198453_ __tmp213090)))) (declare (not safe)) - (cons _L196206_ __tmp210740)))) + (cons _L198455_ __tmp213089)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L196207_ - __tmp210739))) - (_bind196233_ '()) - (_args196234_ '())) - (let* ((_rest196235196243_ _rest196231_) - (_else196237196251_ + (cons _L198456_ + __tmp213088))) + (_bind198482_ '()) + (_args198483_ '())) + (let* ((_rest198484198492_ _rest198480_) + (_else198486198500_ (lambda () - (let ((__tmp210723 - (let ((__tmp210724 - (let ((__tmp210725 - (let ((__tmp210726 + (let ((__tmp213072 + (let ((__tmp213073 + (let ((__tmp213074 + (let ((__tmp213075 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210727 - (let ((__tmp210728 + (let ((__tmp213076 + (let ((__tmp213077 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) (foldr1 cons - __tmp210728 - _args196234_)))) + __tmp213077 + _args198483_)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp210727)))) + __tmp213076)))) (declare (not safe)) - (cons __tmp210726 '())))) + (cons __tmp213075 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp210725)))) + (cons '(declare (not safe)) __tmp213074)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind196233_ - __tmp210724)))) + (cons _bind198482_ + __tmp213073)))) (declare (not safe)) - (cons 'let __tmp210723)))) - (_K196239196337_ - (lambda (_rest196254_ _e196255_) - (let* ((___stx209963209964_ - _e196255_) - (_g196260196278_ + (cons 'let __tmp213072)))) + (_K198488198586_ + (lambda (_rest198503_ _e198504_) + (let* ((___stx212312212313_ + _e198504_) + (_g198509198527_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx209963209964_))))) - (let ((___kont209965209966_ + ___stx212312212313_))))) + (let ((___kont212314212315_ (lambda () - (let ((__tmp210729 - (let ((__tmp210730 + (let ((__tmp213078 + (let ((__tmp213079 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e196255_)))) + (gxc#compile-e__0 _e198504_)))) (declare (not safe)) - (cons __tmp210730 _args196234_)))) + (cons __tmp213079 _args198483_)))) (declare (not safe)) - (_lp196228_ _rest196254_ _bind196233_ __tmp210729)))) + (_lp198477_ _rest198503_ _bind198482_ __tmp213078)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont209967209968_ + (___kont212316212317_ (lambda () - (let ((__tmp210731 - (let ((__tmp210732 + (let ((__tmp213080 + (let ((__tmp213081 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e196255_)))) + (gxc#compile-e__0 _e198504_)))) (declare (not safe)) - (cons __tmp210732 _args196234_)))) + (cons __tmp213081 _args198483_)))) (declare (not safe)) - (_lp196228_ _rest196254_ _bind196233_ __tmp210731)))) + (_lp198477_ _rest198503_ _bind198482_ __tmp213080)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont209969209970_ + (___kont212318212319_ (lambda () - (let ((_tmp196285_ - (let ((__tmp210733 + (let ((_tmp198534_ + (let ((__tmp213082 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp210733)))) - (let ((__tmp210735 - (let ((__tmp210736 - (let ((__tmp210737 - (let ((__tmp210738 + (make-symbol__0 __tmp213082)))) + (let ((__tmp213084 + (let ((__tmp213085 + (let ((__tmp213086 + (let ((__tmp213087 (let () (declare (not safe)) - (gxc#compile-e__0 _e196255_)))) + (gxc#compile-e__0 _e198504_)))) (declare (not safe)) - (cons __tmp210738 '())))) + (cons __tmp213087 '())))) (declare (not safe)) - (cons _tmp196285_ __tmp210737)))) + (cons _tmp198534_ __tmp213086)))) (declare (not safe)) - (cons __tmp210736 _bind196233_))) - (__tmp210734 + (cons __tmp213085 _bind198482_))) + (__tmp213083 (let () (declare (not safe)) - (cons _tmp196285_ _args196234_)))) + (cons _tmp198534_ _args198483_)))) (declare (not safe)) - (_lp196228_ _rest196254_ __tmp210735 __tmp210734)))))) + (_lp198477_ _rest198503_ __tmp213084 __tmp213083)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx209963209964_)) - (let ((_e196264196316_ + ___stx212312212313_)) + (let ((_e198513198565_ (let () (declare (not safe)) (gx#stx-e - ___stx209963209964_)))) - (let ((_tl196262196321_ + ___stx212312212313_)))) + (let ((_tl198511198570_ (let () (declare (not safe)) - (##cdr _e196264196316_))) - (_hd196263196319_ + (##cdr _e198513198565_))) + (_hd198512198568_ (let () (declare (not safe)) - (##car _e196264196316_)))) + (##car _e198513198565_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd196263196319_)) + _hd198512198568_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-eq? '%#ref _hd196263196319_)) + (gx#stx-eq? '%#ref _hd198512198568_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196262196321_)) - (let ((_e196267196324_ + (gx#stx-pair? _tl198511198570_)) + (let ((_e198516198573_ (let () (declare (not safe)) - (gx#stx-e _tl196262196321_)))) - (let ((_tl196265196329_ + (gx#stx-e _tl198511198570_)))) + (let ((_tl198514198578_ (let () (declare (not safe)) - (##cdr _e196267196324_))) - (_hd196266196327_ + (##cdr _e198516198573_))) + (_hd198515198576_ (let () (declare (not safe)) - (##car _e196267196324_)))) + (##car _e198516198573_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196265196329_)) - (___kont209965209966_) - (___kont209969209970_)))) - (___kont209969209970_)) + (gx#stx-null? _tl198514198578_)) + (___kont212314212315_) + (___kont212318212319_)))) + (___kont212318212319_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd196263196319_)) + (gx#stx-eq? '%#quote _hd198512198568_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196262196321_)) - (let ((_e196273196301_ + (gx#stx-pair? _tl198511198570_)) + (let ((_e198522198550_ (let () (declare (not safe)) - (gx#stx-e _tl196262196321_)))) - (let ((_tl196271196306_ + (gx#stx-e _tl198511198570_)))) + (let ((_tl198520198555_ (let () (declare (not safe)) - (##cdr _e196273196301_))) - (_hd196272196304_ + (##cdr _e198522198550_))) + (_hd198521198553_ (let () (declare (not safe)) - (##car _e196273196301_)))) + (##car _e198522198550_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196271196306_)) - (___kont209967209968_) - (___kont209969209970_)))) - (___kont209969209970_)) - (___kont209969209970_))) - (___kont209969209970_)))) + (gx#stx-null? _tl198520198555_)) + (___kont212316212317_) + (___kont212318212319_)))) + (___kont212318212319_)) + (___kont212318212319_))) + (___kont212318212319_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont209969209970_))))))) + (___kont212318212319_))))))) (if (let () (declare (not safe)) - (##pair? _rest196235196243_)) - (let ((_hd196240196340_ + (##pair? _rest198484198492_)) + (let ((_hd198489198589_ (let () (declare (not safe)) - (##car _rest196235196243_))) - (_tl196241196342_ + (##car _rest198484198492_))) + (_tl198490198591_ (let () (declare (not safe)) - (##cdr _rest196235196243_)))) - (let* ((_e196345_ _hd196240196340_) - (_rest196347_ - _tl196241196342_)) + (##cdr _rest198484198492_)))) + (let* ((_e198594_ _hd198489198589_) + (_rest198596_ + _tl198490198591_)) (declare (not safe)) - (_K196239196337_ - _rest196347_ - _e196345_))) + (_K198488198586_ + _rest198596_ + _e198594_))) (let () (declare (not safe)) - (_else196237196251_))))))) - _hd196153196199_ - _hd196150196191_ - _hd196147196183_ - _hd196144196175_) + (_else198486198500_))))))) + _hd198402198448_ + _hd198399198440_ + _hd198396198432_ + _hd198393198424_) (let () (declare (not safe)) - (_g196134196159_ _g196135196162_))))) + (_g198383198408_ _g198384198411_))))) (let () (declare (not safe)) - (_g196134196159_ _g196135196162_))))) + (_g198383198408_ _g198384198411_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g196134196159_ - _g196135196162_))))) + (_g198383198408_ + _g198384198411_))))) (let () (declare (not safe)) - (_g196134196159_ _g196135196162_))))) + (_g198383198408_ _g198384198411_))))) (let () (declare (not safe)) - (_g196134196159_ _g196135196162_))))) + (_g198383198408_ _g198384198411_))))) (let () (declare (not safe)) - (_g196134196159_ _g196135196162_)))))) + (_g198383198408_ _g198384198411_)))))) (declare (not safe)) - (_g196133196349_ _stx196132_)))) + (_g198382198598_ _stx198381_)))) (define gxc#generate-runtime-loader-import% - (lambda (_stx195986_) - (letrec ((_import-set-template195988_ - (lambda (_in196084_ _phi196085_) - (let ((_iphi196087_ - (fx+ _phi196085_ + (lambda (_stx198235_) + (letrec ((_import-set-template198237_ + (lambda (_in198333_ _phi198334_) + (let ((_iphi198336_ + (fx+ _phi198334_ (##direct-structure-ref - _in196084_ + _in198333_ '2 gx#import-set::t '#f))) - (_imports196088_ + (_imports198337_ (##structure-ref (##direct-structure-ref - _in196084_ + _in198333_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp196090_ ((_rest196092_ _imports196088_) - (_r196093_ '())) - (let* ((_rest196094196102_ _rest196092_) - (_else196096196110_ (lambda () _r196093_)) - (_K196098196120_ - (lambda (_rest196113_ _in196114_) + (let _lp198339_ ((_rest198341_ _imports198337_) + (_r198342_ '())) + (let* ((_rest198343198351_ _rest198341_) + (_else198345198359_ (lambda () _r198342_)) + (_K198347198369_ + (lambda (_rest198362_ _in198363_) (if (let () (declare (not safe)) (##structure-instance-of? - _in196114_ + _in198363_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi196087_)) - (let ((__tmp210757 + (fxzero? _iphi198336_)) + (let ((__tmp213106 (let () (declare (not safe)) - (cons _in196114_ - _r196093_)))) + (cons _in198363_ + _r198342_)))) (declare (not safe)) - (_lp196090_ - _rest196113_ - __tmp210757)) + (_lp198339_ + _rest198362_ + __tmp213106)) (let () (declare (not safe)) - (_lp196090_ - _rest196113_ - _r196093_))) + (_lp198339_ + _rest198362_ + _r198342_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in196114_ + _in198363_ 'gx#module-import::t)) - (let ((_iphi196116_ - (fx+ _phi196085_ + (let ((_iphi198365_ + (fx+ _phi198334_ (##direct-structure-ref - _in196114_ + _in198363_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi196116_)) - (let ((__tmp210755 - (let ((__tmp210756 + (fxzero? _iphi198365_)) + (let ((__tmp213104 + (let ((__tmp213105 (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in196114_ + _in198363_ '1 gx#module-import::t '#f) @@ -15247,195 +15247,195 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp210756 _r196093_)))) + (cons __tmp213105 _r198342_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp196090_ - _rest196113_ - __tmp210755)) + (_lp198339_ + _rest198362_ + __tmp213104)) (let () (declare (not safe)) - (_lp196090_ - _rest196113_ - _r196093_)))) + (_lp198339_ + _rest198362_ + _r198342_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in196114_ + _in198363_ 'gx#import-set::t)) - (let ((_xphi196118_ - (fx+ _iphi196087_ + (let ((_xphi198367_ + (fx+ _iphi198336_ (##direct-structure-ref - _in196114_ + _in198363_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi196118_)) - (let ((__tmp210753 - (let ((__tmp210754 + (fxzero? _xphi198367_)) + (let ((__tmp213102 + (let ((__tmp213103 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in196114_ + _in198363_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp210754 _r196093_)))) + (cons __tmp213103 _r198342_)))) (declare (not safe)) - (_lp196090_ _rest196113_ __tmp210753)) - (if (fxpositive? _xphi196118_) - (let ((__tmp210751 - (let ((__tmp210752 + (_lp198339_ _rest198362_ __tmp213102)) + (if (fxpositive? _xphi198367_) + (let ((__tmp213100 + (let ((__tmp213101 (let () (declare (not safe)) - (_import-set-template195988_ - _in196114_ - _iphi196087_)))) + (_import-set-template198237_ + _in198363_ + _iphi198336_)))) (declare (not safe)) - (foldl1 cons _r196093_ __tmp210752)))) + (foldl1 cons _r198342_ __tmp213101)))) (declare (not safe)) - (_lp196090_ _rest196113_ __tmp210751)) + (_lp198339_ _rest198362_ __tmp213100)) (let () (declare (not safe)) - (_lp196090_ _rest196113_ _r196093_))))) + (_lp198339_ _rest198362_ _r198342_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp196090_ - _rest196113_ - _r196093_)))))))) + (_lp198339_ + _rest198362_ + _r198342_)))))))) (if (let () (declare (not safe)) - (##pair? _rest196094196102_)) - (let ((_hd196099196123_ + (##pair? _rest198343198351_)) + (let ((_hd198348198372_ (let () (declare (not safe)) - (##car _rest196094196102_))) - (_tl196100196125_ + (##car _rest198343198351_))) + (_tl198349198374_ (let () (declare (not safe)) - (##cdr _rest196094196102_)))) - (let* ((_in196128_ _hd196099196123_) - (_rest196130_ _tl196100196125_)) + (##cdr _rest198343198351_)))) + (let* ((_in198377_ _hd198348198372_) + (_rest198379_ _tl198349198374_)) (declare (not safe)) - (_K196098196120_ _rest196130_ _in196128_))) + (_K198347198369_ _rest198379_ _in198377_))) (let () (declare (not safe)) - (_else196096196110_))))))))) - (let* ((_g195990196000_ - (lambda (_g195991195997_) + (_else198345198359_))))))))) + (let* ((_g198239198249_ + (lambda (_g198240198246_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195991195997_)))) - (_g195989196081_ - (lambda (_g195991196003_) + _g198240198246_)))) + (_g198238198330_ + (lambda (_g198240198252_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195991196003_)) - (let ((_e195995196005_ + (gx#stx-pair? _g198240198252_)) + (let ((_e198244198254_ (let () (declare (not safe)) - (gx#stx-e _g195991196003_)))) - (let ((_hd195994196008_ + (gx#stx-e _g198240198252_)))) + (let ((_hd198243198257_ (let () (declare (not safe)) - (##car _e195995196005_))) - (_tl195993196010_ + (##car _e198244198254_))) + (_tl198242198259_ (let () (declare (not safe)) - (##cdr _e195995196005_)))) - ((lambda (_L196013_) - (let ((_ht196024_ + (##cdr _e198244198254_)))) + ((lambda (_L198262_) + (let ((_ht198273_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let _lp196026_ ((_rest196028_ _L196013_) - (_loads196029_ '())) - (letrec ((_K196031_ - (lambda (_ctx196074_ - _rest196075_) - (let ((_id196077_ + (let _lp198275_ ((_rest198277_ _L198262_) + (_loads198278_ '())) + (letrec ((_K198280_ + (lambda (_ctx198323_ + _rest198324_) + (let ((_id198326_ (##structure-ref - _ctx196074_ + _ctx198323_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (table-ref - _ht196024_ - _id196077_ + _ht198273_ + _id198326_ '#f)) (let () (declare (not safe)) - (_lp196026_ - _rest196075_ - _loads196029_)) - (let ((_rt196079_ + (_lp198275_ + _rest198324_ + _loads198278_)) + (let ((_rt198328_ (string-append (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#module-id->path-string _id196077_)) + (gxc#module-id->path-string _id198326_)) '"__rt"))) (let () (declare (not safe)) - (table-set! _ht196024_ _id196077_ _rt196079_)) - (let ((__tmp210758 + (table-set! _ht198273_ _id198326_ _rt198328_)) + (let ((__tmp213107 (let () (declare (not safe)) - (cons _rt196079_ _loads196029_)))) + (cons _rt198328_ _loads198278_)))) (declare (not safe)) - (_lp196026_ _rest196075_ __tmp210758)))))))) + (_lp198275_ _rest198324_ __tmp213107)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest196032196040_ _rest196028_) - (_else196034196052_ + (let* ((_rest198281198289_ _rest198277_) + (_else198283198301_ (lambda () - (let ((__tmp210759 - (map (lambda (_g196047196049_) + (let ((__tmp213108 + (map (lambda (_g198296198298_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g196047196049_)) - (reverse _loads196029_)))) + _g198296198298_)) + (reverse _loads198278_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'begin __tmp210759)))) - (_K196036196062_ - (lambda (_rest196055_ - _in196056_) + (cons 'begin __tmp213108)))) + (_K198285198311_ + (lambda (_rest198304_ + _in198305_) (if (let () (declare (not safe)) (##structure-instance-of? - _in196056_ + _in198305_ 'gx#module-context::t)) (let () (declare (not safe)) - (_K196031_ - _in196056_ - _rest196055_)) + (_K198280_ + _in198305_ + _rest198304_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in196056_ + _in198305_ 'gx#module-import::t)) - (if (let ((__tmp210763 + (if (let ((__tmp213112 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in196056_ + _in198305_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp210763)) - (let ((__tmp210762 + (fxzero? __tmp213112)) + (let ((__tmp213111 (##direct-structure-ref (##direct-structure-ref - _in196056_ + _in198305_ '1 gx#module-import::t '#f) @@ -15443,555 +15443,555 @@ gx#module-export::t '#f))) (declare (not safe)) - (_K196031_ __tmp210762 _rest196055_)) + (_K198280_ __tmp213111 _rest198304_)) (let () (declare (not safe)) - (_lp196026_ _rest196055_ _loads196029_))) + (_lp198275_ _rest198304_ _loads198278_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in196056_ + _in198305_ 'gx#import-set::t)) - (let ((_phi196058_ + (let ((_phi198307_ (##direct-structure-ref - _in196056_ + _in198305_ '2 gx#import-set::t '#f))) - (if (let () (declare (not safe)) (fxzero? _phi196058_)) - (let ((__tmp210761 + (if (let () (declare (not safe)) (fxzero? _phi198307_)) + (let ((__tmp213110 (##direct-structure-ref - _in196056_ + _in198305_ '1 gx#import-set::t '#f))) (declare (not safe)) - (_K196031_ __tmp210761 _rest196055_)) - (if (fxpositive? _phi196058_) - (let* ((_deps196060_ + (_K198280_ __tmp213110 _rest198304_)) + (if (fxpositive? _phi198307_) + (let* ((_deps198309_ (let () (declare (not safe)) - (_import-set-template195988_ - _in196056_ + (_import-set-template198237_ + _in198305_ '0))) - (__tmp210760 + (__tmp213109 (let () (declare (not safe)) (foldl1 cons - _rest196055_ - _deps196060_)))) + _rest198304_ + _deps198309_)))) (declare (not safe)) - (_lp196026_ __tmp210760 _loads196029_)) + (_lp198275_ __tmp213109 _loads198278_)) (let () (declare (not safe)) - (_lp196026_ _rest196055_ _loads196029_))))) + (_lp198275_ _rest198304_ _loads198278_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _stx195986_ - _in196056_)))))))) + _stx198235_ + _in198305_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest196032196040_)) - (let ((_hd196037196065_ + (##pair? _rest198281198289_)) + (let ((_hd198286198314_ (let () (declare (not safe)) - (##car _rest196032196040_))) - (_tl196038196067_ + (##car _rest198281198289_))) + (_tl198287198316_ (let () (declare (not safe)) - (##cdr _rest196032196040_)))) - (let* ((_in196070_ - _hd196037196065_) - (_rest196072_ - _tl196038196067_)) + (##cdr _rest198281198289_)))) + (let* ((_in198319_ + _hd198286198314_) + (_rest198321_ + _tl198287198316_)) (declare (not safe)) - (_K196036196062_ - _rest196072_ - _in196070_))) + (_K198285198311_ + _rest198321_ + _in198319_))) (let () (declare (not safe)) - (_else196034196052_)))))))) - _tl195993196010_))) + (_else198283198301_)))))))) + _tl198242198259_))) (let () (declare (not safe)) - (_g195990196000_ _g195991196003_)))))) + (_g198239198249_ _g198240198252_)))))) (declare (not safe)) - (_g195989196081_ _stx195986_))))) + (_g198238198330_ _stx198235_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_stx195802_) - (letrec ((_add-lift!195804_ - (lambda (_expr195984_) + (lambda (_stx198051_) + (letrec ((_add-lift!198053_ + (lambda (_expr198233_) (set-box! (gxc#current-compile-lift) - (let ((__tmp210764 (unbox (gxc#current-compile-lift)))) + (let ((__tmp213113 (unbox (gxc#current-compile-lift)))) (declare (not safe)) - (cons _expr195984_ __tmp210764))))) - (_generate-syntax-quote195805_ - (lambda (_id195981_ _marks195982_) - (let ((__tmp210765 - (let ((__tmp210766 - (let ((__tmp210770 - (let ((__tmp210771 + (cons _expr198233_ __tmp213113))))) + (_generate-syntax-quote198054_ + (lambda (_id198230_ _marks198231_) + (let ((__tmp213114 + (let ((__tmp213115 + (let ((__tmp213119 + (let ((__tmp213120 (let () (declare (not safe)) - (cons _id195981_ '())))) + (cons _id198230_ '())))) (declare (not safe)) - (cons 'quote __tmp210771))) - (__tmp210767 - (let ((__tmp210768 - (let ((__tmp210769 + (cons 'quote __tmp213120))) + (__tmp213116 + (let ((__tmp213117 + (let ((__tmp213118 (let () (declare (not safe)) - (cons _marks195982_ + (cons _marks198231_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(gx#current-expander-context) - __tmp210769)))) + __tmp213118)))) (declare (not safe)) - (cons '#f __tmp210768)))) + (cons '#f __tmp213117)))) (declare (not safe)) - (cons __tmp210770 __tmp210767)))) + (cons __tmp213119 __tmp213116)))) (declare (not safe)) - (cons 'gx#syntax-quote::t __tmp210766)))) + (cons 'gx#syntax-quote::t __tmp213115)))) (declare (not safe)) - (cons '##structure __tmp210765)))) - (_generate-simple195806_ - (lambda (_stxq195976_) - (let ((_gid195978_ + (cons '##structure __tmp213114)))) + (_generate-simple198055_ + (lambda (_stxq198225_) + (let ((_gid198227_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid195979_ + (_qid198228_ (let () (declare (not safe)) (gxc#generate-runtime-identifier - _stxq195976_)))) - (let ((__tmp210772 - (let ((__tmp210773 - (let ((__tmp210774 - (let ((__tmp210775 + _stxq198225_)))) + (let ((__tmp213121 + (let ((__tmp213122 + (let ((__tmp213123 + (let ((__tmp213124 (let () (declare (not safe)) - (_generate-syntax-quote195805_ - _qid195979_ + (_generate-syntax-quote198054_ + _qid198228_ ''())))) (declare (not safe)) - (cons __tmp210775 '())))) + (cons __tmp213124 '())))) (declare (not safe)) - (cons _gid195978_ __tmp210774)))) + (cons _gid198227_ __tmp213123)))) (declare (not safe)) - (cons 'define __tmp210773)))) + (cons 'define __tmp213122)))) (declare (not safe)) - (_add-lift!195804_ __tmp210772)) - (let ((__tmp210776 (gxc#current-compile-identifiers))) + (_add-lift!198053_ __tmp213121)) + (let ((__tmp213125 (gxc#current-compile-identifiers))) (declare (not safe)) - (table-set! __tmp210776 _stxq195976_ _gid195978_)) - _gid195978_))) - (_generate-serialized195807_ - (lambda (_stxq195966_ _marks195967_) - (let* ((_mark-refs195969_ - (map _generate-mark195808_ _marks195967_)) - (_gid195971_ + (table-set! __tmp213125 _stxq198225_ _gid198227_)) + _gid198227_))) + (_generate-serialized198056_ + (lambda (_stxq198215_ _marks198216_) + (let* ((_mark-refs198218_ + (map _generate-mark198057_ _marks198216_)) + (_gid198220_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid195973_ + (_qid198222_ (let () (declare (not safe)) (gxc#generate-runtime-identifier - _stxq195966_)))) - (let ((__tmp210777 - (let ((__tmp210778 - (let ((__tmp210779 - (let ((__tmp210780 - (let ((__tmp210781 + _stxq198215_)))) + (let ((__tmp213126 + (let ((__tmp213127 + (let ((__tmp213128 + (let ((__tmp213129 + (let ((__tmp213130 (let () (declare (not safe)) (cons 'list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mark-refs195969_)))) + _mark-refs198218_)))) (declare (not safe)) - (_generate-syntax-quote195805_ _qid195973_ __tmp210781)))) + (_generate-syntax-quote198054_ _qid198222_ __tmp213130)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210780 '())))) + (cons __tmp213129 '())))) (declare (not safe)) - (cons _gid195971_ __tmp210779)))) + (cons _gid198220_ __tmp213128)))) (declare (not safe)) - (cons 'define __tmp210778)))) + (cons 'define __tmp213127)))) (declare (not safe)) - (_add-lift!195804_ __tmp210777)) - (let ((__tmp210782 (gxc#current-compile-identifiers))) + (_add-lift!198053_ __tmp213126)) + (let ((__tmp213131 (gxc#current-compile-identifiers))) (declare (not safe)) - (table-set! __tmp210782 _stxq195966_ _gid195971_)) - _gid195971_))) - (_generate-mark195808_ - (lambda (_mark195952_) - (let ((_$e195954_ - (let ((__tmp210783 (gxc#current-compile-marks))) + (table-set! __tmp213131 _stxq198215_ _gid198220_)) + _gid198220_))) + (_generate-mark198057_ + (lambda (_mark198201_) + (let ((_$e198203_ + (let ((__tmp213132 (gxc#current-compile-marks))) (declare (not safe)) - (table-ref __tmp210783 _mark195952_ '#f)))) - (if _$e195954_ - (values _$e195954_) - (let* ((_gid195957_ + (table-ref __tmp213132 _mark198201_ '#f)))) + (if _$e198203_ + (values _$e198203_) + (let* ((_gid198206_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_repr195959_ + (_repr198208_ (let () (declare (not safe)) - (_serialize-mark195809_ _mark195952_))) - (_ctx195961_ - (let ((__tmp210784 + (_serialize-mark198058_ _mark198201_))) + (_ctx198210_ + (let ((__tmp213133 (##structure-ref - _mark195952_ + _mark198201_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp210784))) - (_ctx-ref195963_ - (if (let ((__tmp210789 + (gx#core-context-top__1 __tmp213133))) + (_ctx-ref198212_ + (if (let ((__tmp213138 (gx#current-expander-context))) (declare (not safe)) - (eq? _ctx195961_ __tmp210789)) + (eq? _ctx198210_ __tmp213138)) '(gx#current-expander-context) - (let ((__tmp210785 - (let ((__tmp210786 - (let ((__tmp210787 - (let ((__tmp210788 + (let ((__tmp213134 + (let ((__tmp213135 + (let ((__tmp213136 + (let ((__tmp213137 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_context-ref195810_ _ctx195961_)))) + (_context-ref198059_ _ctx198210_)))) (declare (not safe)) - (cons __tmp210788 '())))) + (cons __tmp213137 '())))) (declare (not safe)) - (cons 'quote __tmp210787)))) + (cons 'quote __tmp213136)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210786 '())))) + (cons __tmp213135 '())))) (declare (not safe)) (cons 'gx#import-module - __tmp210785))))) - (let ((__tmp210790 (gxc#current-compile-marks))) + __tmp213134))))) + (let ((__tmp213139 (gxc#current-compile-marks))) (declare (not safe)) (table-set! - __tmp210790 - _mark195952_ - _gid195957_)) - (let ((__tmp210791 - (let ((__tmp210792 - (let ((__tmp210793 - (let ((__tmp210794 - (let ((__tmp210795 + __tmp213139 + _mark198201_ + _gid198206_)) + (let ((__tmp213140 + (let ((__tmp213141 + (let ((__tmp213142 + (let ((__tmp213143 + (let ((__tmp213144 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210797 - (let ((__tmp210798 + (let ((__tmp213146 + (let ((__tmp213147 (let () (declare (not safe)) - (cons _repr195959_ '())))) + (cons _repr198208_ '())))) (declare (not safe)) - (cons 'quote __tmp210798))) - (__tmp210796 + (cons 'quote __tmp213147))) + (__tmp213145 (let () (declare (not safe)) - (cons _ctx-ref195963_ '())))) + (cons _ctx-ref198212_ '())))) (declare (not safe)) - (cons __tmp210797 __tmp210796)))) + (cons __tmp213146 __tmp213145)))) (declare (not safe)) - (cons 'gx#core-deserialize-mark __tmp210795)))) + (cons 'gx#core-deserialize-mark __tmp213144)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210794 '())))) + (cons __tmp213143 '())))) (declare (not safe)) - (cons _gid195957_ __tmp210793)))) + (cons _gid198206_ __tmp213142)))) (declare (not safe)) - (cons 'define __tmp210792)))) + (cons 'define __tmp213141)))) (declare (not safe)) - (_add-lift!195804_ __tmp210791)) - _gid195957_))))) - (_serialize-mark195809_ - (lambda (_mark195899_) - (letrec ((_quote-e195901_ - (lambda (_sym195950_) - (if (interned-symbol? _sym195950_) - _sym195950_ + (_add-lift!198053_ __tmp213140)) + _gid198206_))))) + (_serialize-mark198058_ + (lambda (_mark198148_) + (letrec ((_quote-e198150_ + (lambda (_sym198199_) + (if (interned-symbol? _sym198199_) + _sym198199_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym195950_)))))) - (let* ((_mark195902195911_ _mark195899_) - (_E195904195915_ + _sym198199_)))))) + (let* ((_mark198151198160_ _mark198148_) + (_E198153198164_ (lambda () (error '"No clause matching" - _mark195902195911_))) - (_K195905195927_ - (lambda (_trace195918_ - _phi195919_ - _ctx195920_ - _subst195921_) - (let* ((_subs195923_ - (if _subst195921_ + _mark198151198160_))) + (_K198154198176_ + (lambda (_trace198167_ + _phi198168_ + _ctx198169_ + _subst198170_) + (let* ((_subs198172_ + (if _subst198170_ (let () (declare (not safe)) - (table->list _subst195921_)) + (table->list _subst198170_)) '())) - (__tmp210799 - (map (lambda (_pair195925_) - (let ((__tmp210802 - (let ((__tmp210803 - (car _pair195925_))) + (__tmp213148 + (map (lambda (_pair198174_) + (let ((__tmp213151 + (let ((__tmp213152 + (car _pair198174_))) (declare (not safe)) - (_quote-e195901_ - __tmp210803))) - (__tmp210800 - (let ((__tmp210801 - (cdr _pair195925_))) + (_quote-e198150_ + __tmp213152))) + (__tmp213149 + (let ((__tmp213150 + (cdr _pair198174_))) (declare (not safe)) - (_quote-e195901_ - __tmp210801)))) + (_quote-e198150_ + __tmp213150)))) (declare (not safe)) - (cons __tmp210802 - __tmp210800))) - _subs195923_))) + (cons __tmp213151 + __tmp213149))) + _subs198172_))) (declare (not safe)) - (cons _phi195919_ __tmp210799))))) + (cons _phi198168_ __tmp213148))))) (if (let () (declare (not safe)) (##structure-instance-of? - _mark195902195911_ + _mark198151198160_ 'gx#expander-mark::t)) - (let* ((_e195906195930_ + (let* ((_e198155198179_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark195902195911_ + _mark198151198160_ '1 gx#expander-mark::t '#f))) - (_subst195933_ _e195906195930_) - (_e195907195935_ + (_subst198182_ _e198155198179_) + (_e198156198184_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark195902195911_ + _mark198151198160_ '2 gx#expander-mark::t '#f))) - (_ctx195938_ _e195907195935_) - (_e195908195940_ + (_ctx198187_ _e198156198184_) + (_e198157198189_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark195902195911_ + _mark198151198160_ '3 gx#expander-mark::t '#f))) - (_phi195943_ _e195908195940_) - (_e195909195945_ + (_phi198192_ _e198157198189_) + (_e198158198194_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark195902195911_ + _mark198151198160_ '4 gx#expander-mark::t '#f))) - (_trace195948_ _e195909195945_)) + (_trace198197_ _e198158198194_)) (declare (not safe)) - (_K195905195927_ - _trace195948_ - _phi195943_ - _ctx195938_ - _subst195933_)) + (_K198154198176_ + _trace198197_ + _phi198192_ + _ctx198187_ + _subst198182_)) (let () (declare (not safe)) - (_E195904195915_))))))) - (_context-ref195810_ - (lambda (_ctx195886_) - (if (let ((__tmp210811 + (_E198153198164_))))))) + (_context-ref198059_ + (lambda (_ctx198135_) + (if (let ((__tmp213160 (##structure-ref - _ctx195886_ + _ctx198135_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp210811 + __tmp213160 'gx#module-context::t)) - (let ((_ctx-ref195888_ + (let ((_ctx-ref198137_ (let () (declare (not safe)) - (_context-ref-nested195812_ _ctx195886_))) - (_ctx-origin195889_ + (_context-ref-nested198061_ _ctx198135_))) + (_ctx-origin198138_ (let () (declare (not safe)) - (_context-ref-origin195811_ _ctx195886_))) - (_origin195890_ - (let ((__tmp210805 + (_context-ref-origin198060_ _ctx198135_))) + (_origin198139_ + (let ((__tmp213154 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-origin195811_ __tmp210805)))) + (_context-ref-origin198060_ __tmp213154)))) (if (let () (declare (not safe)) - (eq? _origin195890_ _ctx-origin195889_)) - (let ((_ref195892_ - (let ((__tmp210806 + (eq? _origin198139_ _ctx-origin198138_)) + (let ((_ref198141_ + (let ((__tmp213155 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-nested195812_ - __tmp210806)))) - (let _lp195894_ ((_ref195896_ - (cdr _ref195892_)) - (_ctx-ref195897_ - (cdr _ctx-ref195888_))) + (_context-ref-nested198061_ + __tmp213155)))) + (let _lp198143_ ((_ref198145_ + (cdr _ref198141_)) + (_ctx-ref198146_ + (cdr _ctx-ref198137_))) (if (and (let () (declare (not safe)) - (pair? _ref195896_)) - (let ((__tmp210810 - (car _ref195896_)) - (__tmp210809 - (car _ctx-ref195897_))) + (pair? _ref198145_)) + (let ((__tmp213159 + (car _ref198145_)) + (__tmp213158 + (car _ctx-ref198146_))) (declare (not safe)) - (eq? __tmp210810 __tmp210809))) - (let ((__tmp210808 (cdr _ref195896_)) - (__tmp210807 - (cdr _ctx-ref195897_))) + (eq? __tmp213159 __tmp213158))) + (let ((__tmp213157 (cdr _ref198145_)) + (__tmp213156 + (cdr _ctx-ref198146_))) (declare (not safe)) - (_lp195894_ __tmp210808 __tmp210807)) + (_lp198143_ __tmp213157 __tmp213156)) (let () (declare (not safe)) - (cons '#f _ctx-ref195897_))))) - _ctx-ref195888_)) - (let ((__tmp210804 + (cons '#f _ctx-ref198146_))))) + _ctx-ref198137_)) + (let ((__tmp213153 (##structure-ref - _ctx195886_ + _ctx198135_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp210804))))) - (_context-ref-origin195811_ - (lambda (_ctx195878_) - (let _lp195880_ ((_ctx195882_ _ctx195878_)) - (let ((_super195884_ + (make-symbol__1 '":" __tmp213153))))) + (_context-ref-origin198060_ + (lambda (_ctx198127_) + (let _lp198129_ ((_ctx198131_ _ctx198127_)) + (let ((_super198133_ (##structure-ref - _ctx195882_ + _ctx198131_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super195884_ + _super198133_ 'gx#module-context::t)) (let () (declare (not safe)) - (_lp195880_ _super195884_)) - _ctx195882_))))) - (_context-ref-nested195812_ - (lambda (_ctx195869_) - (let _lp195871_ ((_ctx195873_ _ctx195869_) - (_r195874_ '())) - (let ((_super195876_ + (_lp198129_ _super198133_)) + _ctx198131_))))) + (_context-ref-nested198061_ + (lambda (_ctx198118_) + (let _lp198120_ ((_ctx198122_ _ctx198118_) + (_r198123_ '())) + (let ((_super198125_ (##structure-ref - _ctx195873_ + _ctx198122_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super195876_ + _super198125_ 'gx#module-context::t)) - (let ((__tmp210814 - (let ((__tmp210815 + (let ((__tmp213163 + (let ((__tmp213164 (car (##structure-ref - _ctx195873_ + _ctx198122_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp210815 _r195874_)))) + (cons __tmp213164 _r198123_)))) (declare (not safe)) - (_lp195871_ _super195876_ __tmp210814)) - (let ((__tmp210812 - (let ((__tmp210813 + (_lp198120_ _super198125_ __tmp213163)) + (let ((__tmp213161 + (let ((__tmp213162 (##structure-ref - _ctx195873_ + _ctx198122_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp210813)))) + (make-symbol__1 '":" __tmp213162)))) (declare (not safe)) - (cons __tmp210812 _r195874_)))))))) - (let* ((_g195814195827_ - (lambda (_g195815195824_) + (cons __tmp213161 _r198123_)))))))) + (let* ((_g198063198076_ + (lambda (_g198064198073_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195815195824_)))) - (_g195813195866_ - (lambda (_g195815195830_) + _g198064198073_)))) + (_g198062198115_ + (lambda (_g198064198079_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195815195830_)) - (let ((_e195819195832_ + (gx#stx-pair? _g198064198079_)) + (let ((_e198068198081_ (let () (declare (not safe)) - (gx#stx-e _g195815195830_)))) - (let ((_hd195818195835_ + (gx#stx-e _g198064198079_)))) + (let ((_hd198067198084_ (let () (declare (not safe)) - (##car _e195819195832_))) - (_tl195817195837_ + (##car _e198068198081_))) + (_tl198066198086_ (let () (declare (not safe)) - (##cdr _e195819195832_)))) + (##cdr _e198068198081_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195817195837_)) - (let ((_e195822195840_ + (gx#stx-pair? _tl198066198086_)) + (let ((_e198071198089_ (let () (declare (not safe)) - (gx#stx-e _tl195817195837_)))) - (let ((_hd195821195843_ + (gx#stx-e _tl198066198086_)))) + (let ((_hd198070198092_ (let () (declare (not safe)) - (##car _e195822195840_))) - (_tl195820195845_ + (##car _e198071198089_))) + (_tl198069198094_ (let () (declare (not safe)) - (##cdr _e195822195840_)))) + (##cdr _e198071198089_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl195820195845_)) - ((lambda (_L195848_) + (gx#stx-null? _tl198069198094_)) + ((lambda (_L198097_) (if (let () (declare (not safe)) - (gx#identifier? _L195848_)) - (let ((_$e195861_ - (let ((__tmp210816 + (gx#identifier? _L198097_)) + (let ((_$e198110_ + (let ((__tmp213165 (gxc#current-compile-identifiers))) (declare (not safe)) (table-ref - __tmp210816 - _L195848_ + __tmp213165 + _L198097_ '#f)))) - (if _$e195861_ - (values _$e195861_) - (let ((_marks195864_ + (if _$e198110_ + (values _$e198110_) + (let ((_marks198113_ (##direct-structure-ref - _L195848_ + _L198097_ '4 gx#syntax-quote::t '#f))) @@ -15999,3586 +15999,3586 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _marks195864_)) + (null? _marks198113_)) (let () (declare (not safe)) - (_generate-simple195806_ _L195848_)) + (_generate-simple198055_ _L198097_)) (let () (declare (not safe)) - (_generate-serialized195807_ - _L195848_ - _marks195864_)))))) + (_generate-serialized198056_ + _L198097_ + _marks198113_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _L195848_)))) - _hd195821195843_) + _L198097_)))) + _hd198070198092_) (let () (declare (not safe)) - (_g195814195827_ - _g195815195830_))))) + (_g198063198076_ + _g198064198079_))))) (let () (declare (not safe)) - (_g195814195827_ _g195815195830_))))) + (_g198063198076_ _g198064198079_))))) (let () (declare (not safe)) - (_g195814195827_ _g195815195830_)))))) + (_g198063198076_ _g198064198079_)))))) (declare (not safe)) - (_g195813195866_ _stx195802_))))) + (_g198062198115_ _stx198051_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_stx195735_) - (let* ((_g195737195754_ - (lambda (_g195738195751_) + (lambda (_stx197984_) + (let* ((_g197986198003_ + (lambda (_g197987198000_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195738195751_)))) - (_g195736195799_ - (lambda (_g195738195757_) + _g197987198000_)))) + (_g197985198048_ + (lambda (_g197987198006_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195738195757_)) - (let ((_e195743195759_ + (gx#stx-pair? _g197987198006_)) + (let ((_e197992198008_ (let () (declare (not safe)) - (gx#stx-e _g195738195757_)))) - (let ((_hd195742195762_ + (gx#stx-e _g197987198006_)))) + (let ((_hd197991198011_ (let () (declare (not safe)) - (##car _e195743195759_))) - (_tl195741195764_ + (##car _e197992198008_))) + (_tl197990198013_ (let () (declare (not safe)) - (##cdr _e195743195759_)))) + (##cdr _e197992198008_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195741195764_)) - (let ((_e195746195767_ + (gx#stx-pair? _tl197990198013_)) + (let ((_e197995198016_ (let () (declare (not safe)) - (gx#stx-e _tl195741195764_)))) - (let ((_hd195745195770_ + (gx#stx-e _tl197990198013_)))) + (let ((_hd197994198019_ (let () (declare (not safe)) - (##car _e195746195767_))) - (_tl195744195772_ + (##car _e197995198016_))) + (_tl197993198021_ (let () (declare (not safe)) - (##cdr _e195746195767_)))) + (##cdr _e197995198016_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195744195772_)) - (let ((_e195749195775_ + (gx#stx-pair? _tl197993198021_)) + (let ((_e197998198024_ (let () (declare (not safe)) - (gx#stx-e _tl195744195772_)))) - (let ((_hd195748195778_ + (gx#stx-e _tl197993198021_)))) + (let ((_hd197997198027_ (let () (declare (not safe)) - (##car _e195749195775_))) - (_tl195747195780_ + (##car _e197998198024_))) + (_tl197996198029_ (let () (declare (not safe)) - (##cdr _e195749195775_)))) + (##cdr _e197998198024_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl195747195780_)) - ((lambda (_L195783_ _L195784_) - (let ((__tmp210817 - (let ((__tmp210820 + _tl197996198029_)) + ((lambda (_L198032_ _L198033_) + (let ((__tmp213166 + (let ((__tmp213169 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L195784_))) - (__tmp210818 - (let ((__tmp210819 + (let () (declare (not safe)) (gx#stx-e _L198033_))) + (__tmp213167 + (let ((__tmp213168 (let () (declare (not safe)) - (gxc#compile-e__0 _L195783_)))) + (gxc#compile-e__0 _L198032_)))) (declare (not safe)) - (cons __tmp210819 '())))) + (cons __tmp213168 '())))) (declare (not safe)) - (cons __tmp210820 __tmp210818)))) + (cons __tmp213169 __tmp213167)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'define - __tmp210817))) - _hd195748195778_ - _hd195745195770_) + __tmp213166))) + _hd197997198027_ + _hd197994198019_) (let () (declare (not safe)) - (_g195737195754_ - _g195738195757_))))) + (_g197986198003_ + _g197987198006_))))) (let () (declare (not safe)) - (_g195737195754_ _g195738195757_))))) + (_g197986198003_ _g197987198006_))))) (let () (declare (not safe)) - (_g195737195754_ _g195738195757_))))) + (_g197986198003_ _g197987198006_))))) (let () (declare (not safe)) - (_g195737195754_ _g195738195757_)))))) + (_g197986198003_ _g197987198006_)))))) (declare (not safe)) - (_g195736195799_ _stx195735_)))) + (_g197985198048_ _stx197984_)))) (define gxc#generate-meta-begin% - (lambda (_stx195684_ _state195685_) - (let* ((_g195687195697_ - (lambda (_g195688195694_) + (lambda (_stx197933_ _state197934_) + (let* ((_g197936197946_ + (lambda (_g197937197943_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195688195694_)))) - (_g195686195732_ - (lambda (_g195688195700_) + _g197937197943_)))) + (_g197935197981_ + (lambda (_g197937197949_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195688195700_)) - (let ((_e195692195702_ + (gx#stx-pair? _g197937197949_)) + (let ((_e197941197951_ (let () (declare (not safe)) - (gx#stx-e _g195688195700_)))) - (let ((_hd195691195705_ + (gx#stx-e _g197937197949_)))) + (let ((_hd197940197954_ (let () (declare (not safe)) - (##car _e195692195702_))) - (_tl195690195707_ + (##car _e197941197951_))) + (_tl197939197956_ (let () (declare (not safe)) - (##cdr _e195692195702_)))) - ((lambda (_L195710_) - (let* ((_c-body195724_ - (map (lambda (_g195719195721_) + (##cdr _e197941197951_)))) + ((lambda (_L197959_) + (let* ((_c-body197973_ + (map (lambda (_g197968197970_) (let () (declare (not safe)) (gxc#compile-e__1 - _g195719195721_ - _state195685_))) - _L195710_)) - (_c-body195729_ - (let ((__tmp210821 - (lambda (_$obj195726_) - (let ((__tmp210822 + _g197968197970_ + _state197934_))) + _L197959_)) + (_c-body197978_ + (let ((__tmp213170 + (lambda (_$obj197975_) + (let ((__tmp213171 (let () (declare (not safe)) - (eq? _$obj195726_ + (eq? _$obj197975_ '#!void)))) (declare (not safe)) - (not __tmp210822))))) + (not __tmp213171))))) (declare (not safe)) - (filter __tmp210821 _c-body195724_)))) + (filter __tmp213170 _c-body197973_)))) (let () (declare (not safe)) - (cons '%#begin _c-body195729_)))) - _tl195690195707_))) + (cons '%#begin _c-body197978_)))) + _tl197939197956_))) (let () (declare (not safe)) - (_g195687195697_ _g195688195700_)))))) + (_g197936197946_ _g197937197949_)))))) (declare (not safe)) - (_g195686195732_ _stx195684_)))) + (_g197935197981_ _stx197933_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_stx195592_ _state195593_) - (let* ((_g195595195605_ - (lambda (_g195596195602_) + (lambda (_stx197841_ _state197842_) + (let* ((_g197844197854_ + (lambda (_g197845197851_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195596195602_)))) - (_g195594195681_ - (lambda (_g195596195608_) + _g197845197851_)))) + (_g197843197930_ + (lambda (_g197845197857_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195596195608_)) - (let ((_e195600195610_ + (gx#stx-pair? _g197845197857_)) + (let ((_e197849197859_ (let () (declare (not safe)) - (gx#stx-e _g195596195608_)))) - (let ((_hd195599195613_ + (gx#stx-e _g197845197857_)))) + (let ((_hd197848197862_ (let () (declare (not safe)) - (##car _e195600195610_))) - (_tl195598195615_ + (##car _e197849197859_))) + (_tl197847197864_ (let () (declare (not safe)) - (##cdr _e195600195610_)))) - ((lambda (_L195618_) - (let* ((_phi195628_ - (let ((__tmp210823 + (##cdr _e197849197859_)))) + ((lambda (_L197867_) + (let* ((_phi197877_ + (let ((__tmp213172 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp210823 '1))) - (_block195630_ + (fx+ __tmp213172 '1))) + (_block197879_ (let () (declare (not safe)) (gxc#meta-state-begin-phi! - _state195593_ - _phi195628_))) - (_compiled195633_ - (let ((__tmp210824 + _state197842_ + _phi197877_))) + (_compiled197882_ + (let ((__tmp213173 (lambda () - (let ((__tmp210825 - (let ((__tmp210826 + (let ((__tmp213174 + (let ((__tmp213175 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#begin)))) (declare (not safe)) - (cons __tmp210826 _L195618_)))) + (cons __tmp213175 _L197867_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#apply-generate-meta-phi - __tmp210825 - _state195593_))))) + __tmp213174 + _state197842_))))) (declare (not safe)) (call-with-parameters - __tmp210824 + __tmp213173 gx#current-expander-phi - _phi195628_)))) - (let* ((_g195636195646_ - (lambda (_g195637195643_) + _phi197877_)))) + (let* ((_g197885197895_ + (lambda (_g197886197892_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195637195643_)))) - (_g195635195678_ - (lambda (_g195637195649_) + _g197886197892_)))) + (_g197884197927_ + (lambda (_g197886197898_) (if (let () (declare (not safe)) (gx#stx-pair? - _g195637195649_)) - (let ((_e195641195651_ + _g197886197898_)) + (let ((_e197890197900_ (let () (declare (not safe)) (gx#stx-e - _g195637195649_)))) - (let ((_hd195640195654_ + _g197886197898_)))) + (let ((_hd197889197903_ (let () (declare (not safe)) - (##car _e195641195651_))) - (_tl195639195656_ + (##car _e197890197900_))) + (_tl197888197905_ (let () (declare (not safe)) - (##cdr _e195641195651_)))) + (##cdr _e197890197900_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd195640195654_)) + _hd197889197903_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _hd195640195654_)) - ((lambda (_L195659_) - (let ((_c-body195676_ + _hd197889197903_)) + ((lambda (_L197908_) + (let ((_c-body197925_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210827 - (lambda (_$obj195673_) - (let ((__tmp210828 + (let ((__tmp213176 + (lambda (_$obj197922_) + (let ((__tmp213177 (let () (declare (not safe)) - (eq? _$obj195673_ '#!void)))) + (eq? _$obj197922_ '#!void)))) (declare (not safe)) - (not __tmp210828))))) + (not __tmp213177))))) (declare (not safe)) - (filter __tmp210827 _L195659_)))) - (if _block195630_ - (let ((__tmp210829 - (let ((__tmp210830 - (let ((__tmp210831 - (let ((__tmp210835 - (let ((__tmp210836 + (filter __tmp213176 _L197908_)))) + (if _block197879_ + (let ((__tmp213178 + (let ((__tmp213179 + (let ((__tmp213180 + (let ((__tmp213184 + (let ((__tmp213185 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp210836))) - (__tmp210832 - (let ((__tmp210833 - (let ((__tmp210834 + (cons '%#ref __tmp213185))) + (__tmp213181 + (let ((__tmp213182 + (let ((__tmp213183 (let () (declare (not safe)) - (cons _block195630_ '())))) + (cons _block197879_ '())))) (declare (not safe)) - (cons '%#quote __tmp210834)))) + (cons '%#quote __tmp213183)))) (declare (not safe)) - (cons __tmp210833 '())))) + (cons __tmp213182 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210835 - __tmp210832)))) + (cons __tmp213184 + __tmp213181)))) (declare (not safe)) - (cons '%#call __tmp210831)))) + (cons '%#call __tmp213180)))) (declare (not safe)) - (cons __tmp210830 _c-body195676_)))) + (cons __tmp213179 _c-body197925_)))) (declare (not safe)) - (cons '%#begin-syntax __tmp210829)) + (cons '%#begin-syntax __tmp213178)) (if (let () (declare (not safe)) - (null? _c-body195676_)) + (null? _c-body197925_)) '#!void (let () (declare (not safe)) - (cons '%#begin-syntax _c-body195676_)))))) - _tl195639195656_) + (cons '%#begin-syntax _c-body197925_)))))) + _tl197888197905_) (let () (declare (not safe)) - (_g195636195646_ _g195637195649_))) + (_g197885197895_ _g197886197898_))) (let () (declare (not safe)) - (_g195636195646_ _g195637195649_))))) + (_g197885197895_ _g197886197898_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g195636195646_ - _g195637195649_)))))) + (_g197885197895_ + _g197886197898_)))))) (declare (not safe)) - (_g195635195678_ _compiled195633_)))) - _tl195598195615_))) + (_g197884197927_ _compiled197882_)))) + _tl197847197864_))) (let () (declare (not safe)) - (_g195595195605_ _g195596195608_)))))) + (_g197844197854_ _g197845197857_)))))) (declare (not safe)) - (_g195594195681_ _stx195592_)))) + (_g197843197930_ _stx197841_)))) (define gxc#generate-meta-module% - (lambda (_stx195523_ _state195524_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state195524_)) - (let* ((_g195526195540_ - (lambda (_g195527195537_) + (lambda (_stx197772_ _state197773_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state197773_)) + (let* ((_g197775197789_ + (lambda (_g197776197786_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195527195537_)))) - (_g195525195589_ - (lambda (_g195527195543_) + _g197776197786_)))) + (_g197774197838_ + (lambda (_g197776197792_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195527195543_)) - (let ((_e195532195545_ + (gx#stx-pair? _g197776197792_)) + (let ((_e197781197794_ (let () (declare (not safe)) - (gx#stx-e _g195527195543_)))) - (let ((_hd195531195548_ + (gx#stx-e _g197776197792_)))) + (let ((_hd197780197797_ (let () (declare (not safe)) - (##car _e195532195545_))) - (_tl195530195550_ + (##car _e197781197794_))) + (_tl197779197799_ (let () (declare (not safe)) - (##cdr _e195532195545_)))) + (##cdr _e197781197794_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195530195550_)) - (let ((_e195535195553_ + (gx#stx-pair? _tl197779197799_)) + (let ((_e197784197802_ (let () (declare (not safe)) - (gx#stx-e _tl195530195550_)))) - (let ((_hd195534195556_ + (gx#stx-e _tl197779197799_)))) + (let ((_hd197783197805_ (let () (declare (not safe)) - (##car _e195535195553_))) - (_tl195533195558_ + (##car _e197784197802_))) + (_tl197782197807_ (let () (declare (not safe)) - (##cdr _e195535195553_)))) - ((lambda (_L195561_ _L195562_) - (let ((_key195575_ + (##cdr _e197784197802_)))) + ((lambda (_L197810_ _L197811_) + (let ((_key197824_ (let () (declare (not safe)) (gx#core-identifier-key - _L195562_)))) - (if (interned-symbol? _key195575_) + _L197811_)))) + (if (interned-symbol? _key197824_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _stx195523_ - _L195562_ - _key195575_))) - (let* ((_ctx195577_ + _stx197772_ + _L197811_ + _key197824_))) + (let* ((_ctx197826_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L195562_))) - (_code195580_ - (let ((__tmp210837 + _L197811_))) + (_code197829_ + (let ((__tmp213186 (lambda () - (let ((__tmp210838 + (let ((__tmp213187 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _ctx195577_ + _ctx197826_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#compile-e__1 __tmp210838 _state195524_))))) + (gxc#compile-e__1 __tmp213187 _state197773_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp210837 + __tmp213186 gx#current-expander-context - _ctx195577_))) - (_rt195582_ - (let ((__tmp210839 + _ctx197826_))) + (_rt197831_ + (let ((__tmp213188 (gxc#current-compile-runtime-sections))) (declare (not safe)) (table-ref - __tmp210839 - _ctx195577_ + __tmp213188 + _ctx197826_ '#f))) - (_loader195584_ - (if _rt195582_ - (let ((__tmp210840 - (let ((__tmp210841 + (_loader197833_ + (if _rt197831_ + (let ((__tmp213189 + (let ((__tmp213190 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210845 - (let ((__tmp210846 + (let ((__tmp213194 + (let ((__tmp213195 (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp210846))) - (__tmp210842 - (let ((__tmp210843 - (let ((__tmp210844 + (cons '%#ref __tmp213195))) + (__tmp213191 + (let ((__tmp213192 + (let ((__tmp213193 (let () (declare (not safe)) - (cons _rt195582_ '())))) + (cons _rt197831_ '())))) (declare (not safe)) - (cons '%#quote __tmp210844)))) + (cons '%#quote __tmp213193)))) (declare (not safe)) - (cons __tmp210843 '())))) + (cons __tmp213192 '())))) (declare (not safe)) - (cons __tmp210845 __tmp210842)))) + (cons __tmp213194 __tmp213191)))) (declare (not safe)) - (cons '%#call __tmp210841)))) + (cons '%#call __tmp213190)))) (declare (not safe)) - (cons __tmp210840 '())) + (cons __tmp213189 '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_modid195586_ + (_modid197835_ (let () (declare (not safe)) - (gx#stx-e _L195562_)))) + (gx#stx-e _L197811_)))) (let () (declare (not safe)) (gxc#meta-state-end-phi! - _state195524_)) - (let ((__tmp210847 - (let ((__tmp210848 + _state197773_)) + (let ((__tmp213196 + (let ((__tmp213197 (let () (declare (not safe)) - (cons _code195580_ + (cons _code197829_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _loader195584_)))) + _loader197833_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _modid195586_ - __tmp210848)))) + (cons _modid197835_ + __tmp213197)))) (declare (not safe)) - (cons '%#module __tmp210847))))) - _tl195533195558_ - _hd195534195556_))) + (cons '%#module __tmp213196))))) + _tl197782197807_ + _hd197783197805_))) (let () (declare (not safe)) - (_g195526195540_ _g195527195543_))))) + (_g197775197789_ _g197776197792_))))) (let () (declare (not safe)) - (_g195526195540_ _g195527195543_)))))) + (_g197775197789_ _g197776197792_)))))) (declare (not safe)) - (_g195525195589_ _stx195523_)))) + (_g197774197838_ _stx197772_)))) (define gxc#generate-meta-import-path - (lambda (_ctx195513_ _context-chain195514_) - (let _lp195516_ ((_ctx195518_ _ctx195513_) (_path195519_ '())) - (let ((_super195521_ - (##structure-ref _ctx195518_ '3 gx#phi-context::t '#f))) - (if (memq _super195521_ _context-chain195514_) - (let ((__tmp210853 - (let ((__tmp210854 + (lambda (_ctx197762_ _context-chain197763_) + (let _lp197765_ ((_ctx197767_ _ctx197762_) (_path197768_ '())) + (let ((_super197770_ + (##structure-ref _ctx197767_ '3 gx#phi-context::t '#f))) + (if (memq _super197770_ _context-chain197763_) + (let ((__tmp213202 + (let ((__tmp213203 (car (##structure-ref - _ctx195518_ + _ctx197767_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp210854 _path195519_)))) + (cons __tmp213203 _path197768_)))) (declare (not safe)) - (cons '#f __tmp210853)) + (cons '#f __tmp213202)) (if (let () (declare (not safe)) (##structure-instance-of? - _super195521_ + _super197770_ 'gx#module-context::t)) - (let ((__tmp210851 - (let ((__tmp210852 + (let ((__tmp213200 + (let ((__tmp213201 (car (##structure-ref - _ctx195518_ + _ctx197767_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp210852 _path195519_)))) + (cons __tmp213201 _path197768_)))) (declare (not safe)) - (_lp195516_ _super195521_ __tmp210851)) - (let ((__tmp210849 - (let ((__tmp210850 + (_lp197765_ _super197770_ __tmp213200)) + (let ((__tmp213198 + (let ((__tmp213199 (##structure-ref - _ctx195518_ + _ctx197767_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp210850)))) + (make-symbol__1 '":" __tmp213199)))) (declare (not safe)) - (cons __tmp210849 _path195519_)))))))) + (cons __tmp213198 _path197768_)))))))) (define gxc#current-context-chain (lambda () - (let _lp195508_ ((_ctx195510_ (gx#current-expander-context)) - (_r195511_ '())) + (let _lp197757_ ((_ctx197759_ (gx#current-expander-context)) + (_r197760_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _ctx195510_ 'gx#module-context::t)) - (let ((__tmp210856 - (##structure-ref _ctx195510_ '3 gx#phi-context::t '#f)) - (__tmp210855 + (##structure-instance-of? _ctx197759_ 'gx#module-context::t)) + (let ((__tmp213205 + (##structure-ref _ctx197759_ '3 gx#phi-context::t '#f)) + (__tmp213204 (let () (declare (not safe)) - (cons _ctx195510_ _r195511_)))) + (cons _ctx197759_ _r197760_)))) (declare (not safe)) - (_lp195508_ __tmp210856 __tmp210855)) - _r195511_)))) + (_lp197757_ __tmp213205 __tmp213204)) + _r197760_)))) (define gxc#generate-meta-import% - (lambda (_stx195277_ _state195278_) - (letrec* ((_context-chain195280_ + (lambda (_stx197526_ _state197527_) + (letrec* ((_context-chain197529_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-spec195281_ - (lambda (_in195444_) - (let* ((_in195445195457_ _in195444_) - (_E195447195461_ + (_make-import-spec197530_ + (lambda (_in197693_) + (let* ((_in197694197706_ _in197693_) + (_E197696197710_ (lambda () (error '"No clause matching" - _in195445195457_))) - (_K195448195471_ - (lambda (_phi195464_ - _name195465_ - _src-name195466_ - _src-phi195467_ - _src-key195468_ - _src-ctx195469_) - (let ((__tmp210857 - (let ((__tmp210861 + _in197694197706_))) + (_K197697197720_ + (lambda (_phi197713_ + _name197714_ + _src-name197715_ + _src-phi197716_ + _src-key197717_ + _src-ctx197718_) + (let ((__tmp213206 + (let ((__tmp213210 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name195465_))) - (__tmp210858 - (let ((__tmp210859 - (let ((__tmp210860 + _name197714_))) + (__tmp213207 + (let ((__tmp213208 + (let ((__tmp213209 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#generate-runtime-identifier-key - _src-name195466_)))) + _src-name197715_)))) (declare (not safe)) - (cons __tmp210860 '())))) + (cons __tmp213209 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _src-phi195467_ - __tmp210859)))) + (cons _src-phi197716_ + __tmp213208)))) (declare (not safe)) - (cons __tmp210861 __tmp210858)))) + (cons __tmp213210 __tmp213207)))) (declare (not safe)) - (cons _phi195464_ __tmp210857))))) + (cons _phi197713_ __tmp213206))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in195445195457_ + _in197694197706_ 'gx#module-import::t)) - (let ((_e195449195474_ + (let ((_e197698197723_ (let () (declare (not safe)) (##unchecked-structure-ref - _in195445195457_ + _in197694197706_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e195449195474_ + _e197698197723_ 'gx#module-export::t)) - (let* ((_e195452195477_ + (let* ((_e197701197726_ (let () (declare (not safe)) (##unchecked-structure-ref - _e195449195474_ + _e197698197723_ '1 gx#module-export::t '#f))) - (_src-ctx195480_ _e195452195477_) - (_e195453195482_ + (_src-ctx197729_ _e197701197726_) + (_e197702197731_ (let () (declare (not safe)) (##unchecked-structure-ref - _e195449195474_ + _e197698197723_ '2 gx#module-export::t '#f))) - (_src-key195485_ _e195453195482_) - (_e195454195487_ + (_src-key197734_ _e197702197731_) + (_e197703197736_ (let () (declare (not safe)) (##unchecked-structure-ref - _e195449195474_ + _e197698197723_ '3 gx#module-export::t '#f))) - (_src-phi195490_ _e195454195487_) - (_e195455195492_ + (_src-phi197739_ _e197703197736_) + (_e197704197741_ (let () (declare (not safe)) (##unchecked-structure-ref - _e195449195474_ + _e197698197723_ '4 gx#module-export::t '#f))) - (_src-name195495_ _e195455195492_) - (_e195450195497_ + (_src-name197744_ _e197704197741_) + (_e197699197746_ (let () (declare (not safe)) (##unchecked-structure-ref - _in195445195457_ + _in197694197706_ '2 gx#module-import::t '#f))) - (_name195500_ _e195450195497_) - (_e195451195502_ + (_name197749_ _e197699197746_) + (_e197700197751_ (let () (declare (not safe)) (##unchecked-structure-ref - _in195445195457_ + _in197694197706_ '3 gx#module-import::t '#f))) - (_phi195505_ _e195451195502_)) + (_phi197754_ _e197700197751_)) (declare (not safe)) - (_K195448195471_ - _phi195505_ - _name195500_ - _src-name195495_ - _src-phi195490_ - _src-key195485_ - _src-ctx195480_)) + (_K197697197720_ + _phi197754_ + _name197749_ + _src-name197744_ + _src-phi197739_ + _src-key197734_ + _src-ctx197729_)) (let () (declare (not safe)) - (_E195447195461_)))) + (_E197696197710_)))) (let () (declare (not safe)) - (_E195447195461_)))))) - (_make-import-path195282_ - (lambda (_ctx195442_) + (_E197696197710_)))))) + (_make-import-path197531_ + (lambda (_ctx197691_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx195442_ - _context-chain195280_)))) - (_make-import-spec-in195283_ - (lambda (_ctx195439_ _in195440_) - (let ((__tmp210862 - (let ((__tmp210864 + _ctx197691_ + _context-chain197529_)))) + (_make-import-spec-in197532_ + (lambda (_ctx197688_ _in197689_) + (let ((__tmp213211 + (let ((__tmp213213 (let () (declare (not safe)) - (_make-import-path195282_ _ctx195439_))) - (__tmp210863 (reverse _in195440_))) + (_make-import-path197531_ _ctx197688_))) + (__tmp213212 (reverse _in197689_))) (declare (not safe)) - (cons __tmp210864 __tmp210863)))) + (cons __tmp213213 __tmp213212)))) (declare (not safe)) - (cons 'spec: __tmp210862))))) + (cons 'spec: __tmp213211))))) (let () (declare (not safe)) - (gxc#meta-state-end-phi! _state195278_)) - (let* ((_g195285195295_ - (lambda (_g195286195292_) + (gxc#meta-state-end-phi! _state197527_)) + (let* ((_g197534197544_ + (lambda (_g197535197541_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195286195292_)))) - (_g195284195436_ - (lambda (_g195286195298_) + _g197535197541_)))) + (_g197533197685_ + (lambda (_g197535197547_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195286195298_)) - (let ((_e195290195300_ + (gx#stx-pair? _g197535197547_)) + (let ((_e197539197549_ (let () (declare (not safe)) - (gx#stx-e _g195286195298_)))) - (let ((_hd195289195303_ + (gx#stx-e _g197535197547_)))) + (let ((_hd197538197552_ (let () (declare (not safe)) - (##car _e195290195300_))) - (_tl195288195305_ + (##car _e197539197549_))) + (_tl197537197554_ (let () (declare (not safe)) - (##cdr _e195290195300_)))) - ((lambda (_L195308_) - (let _lp195319_ ((_rest195321_ _L195308_) - (_current-src195322_ '#f) - (_current-in195323_ '()) - (_r195324_ '())) - (let* ((_rest195325195333_ _rest195321_) - (_else195327195343_ + (##cdr _e197539197549_)))) + ((lambda (_L197557_) + (let _lp197568_ ((_rest197570_ _L197557_) + (_current-src197571_ '#f) + (_current-in197572_ '()) + (_r197573_ '())) + (let* ((_rest197574197582_ _rest197570_) + (_else197576197592_ (lambda () - (let* ((_r195341_ - (if _current-src195322_ - (let ((__tmp210865 + (let* ((_r197590_ + (if _current-src197571_ + (let ((__tmp213214 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_make-import-spec-in195283_ - _current-src195322_ - _current-in195323_)))) + (_make-import-spec-in197532_ + _current-src197571_ + _current-in197572_)))) (declare (not safe)) - (cons __tmp210865 _r195324_)) - _r195324_)) + (cons __tmp213214 _r197573_)) + _r197573_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp210866 - (reverse _r195341_))) + (__tmp213215 + (reverse _r197590_))) (declare (not safe)) - (cons '%#import __tmp210866)))) - (_K195329195424_ - (lambda (_rest195346_ _in195347_) + (cons '%#import __tmp213215)))) + (_K197578197673_ + (lambda (_rest197595_ _in197596_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in195347_ + _in197596_ 'gx#module-import::t)) - (let* ((_in195348195355_ - _in195347_) - (_E195350195359_ + (let* ((_in197597197604_ + _in197596_) + (_E197599197608_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in195348195355_))) - (_K195351195364_ - (lambda (_src-ctx195362_) + _in197597197604_))) + (_K197600197613_ + (lambda (_src-ctx197611_) (if (let () (declare (not safe)) - (eq? _current-src195322_ _src-ctx195362_)) - (let ((__tmp210882 - (let ((__tmp210883 + (eq? _current-src197571_ _src-ctx197611_)) + (let ((__tmp213231 + (let ((__tmp213232 (let () (declare (not safe)) - (_make-import-spec195281_ _in195347_)))) + (_make-import-spec197530_ _in197596_)))) (declare (not safe)) - (cons __tmp210883 _current-in195323_)))) + (cons __tmp213232 _current-in197572_)))) (declare (not safe)) - (_lp195319_ - _rest195346_ - _current-src195322_ - __tmp210882 - _r195324_)) - (if _current-src195322_ - (let ((__tmp210880 - (let ((__tmp210881 + (_lp197568_ + _rest197595_ + _current-src197571_ + __tmp213231 + _r197573_)) + (if _current-src197571_ + (let ((__tmp213229 + (let ((__tmp213230 (let () (declare (not safe)) - (_make-import-spec195281_ - _in195347_)))) + (_make-import-spec197530_ + _in197596_)))) (declare (not safe)) - (cons __tmp210881 '()))) - (__tmp210878 - (let ((__tmp210879 + (cons __tmp213230 '()))) + (__tmp213227 + (let ((__tmp213228 (let () (declare (not safe)) - (_make-import-spec-in195283_ - _current-src195322_ - _current-in195323_)))) + (_make-import-spec-in197532_ + _current-src197571_ + _current-in197572_)))) (declare (not safe)) - (cons __tmp210879 _r195324_)))) + (cons __tmp213228 _r197573_)))) (declare (not safe)) - (_lp195319_ - _rest195346_ - _src-ctx195362_ - __tmp210880 - __tmp210878)) - (let ((__tmp210876 - (let ((__tmp210877 + (_lp197568_ + _rest197595_ + _src-ctx197611_ + __tmp213229 + __tmp213227)) + (let ((__tmp213225 + (let ((__tmp213226 (let () (declare (not safe)) - (_make-import-spec195281_ - _in195347_)))) + (_make-import-spec197530_ + _in197596_)))) (declare (not safe)) - (cons __tmp210877 '())))) + (cons __tmp213226 '())))) (declare (not safe)) - (_lp195319_ - _rest195346_ - _src-ctx195362_ - __tmp210876 - _r195324_))))))) + (_lp197568_ + _rest197595_ + _src-ctx197611_ + __tmp213225 + _r197573_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in195348195355_ + _in197597197604_ 'gx#module-import::t)) - (let ((_e195352195367_ + (let ((_e197601197616_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _in195348195355_ + _in197597197604_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e195352195367_ + _e197601197616_ 'gx#module-export::t)) - (let* ((_e195353195370_ + (let* ((_e197602197619_ (let () (declare (not safe)) (##unchecked-structure-ref - _e195352195367_ + _e197601197616_ '1 gx#module-export::t '#f))) - (_src-ctx195373_ _e195353195370_)) + (_src-ctx197622_ _e197602197619_)) (declare (not safe)) - (_K195351195364_ _src-ctx195373_)) - (let () (declare (not safe)) (_E195350195359_)))) - (let () (declare (not safe)) (_E195350195359_)))) + (_K197600197613_ _src-ctx197622_)) + (let () (declare (not safe)) (_E197599197608_)))) + (let () (declare (not safe)) (_E197599197608_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in195347_ + _in197596_ 'gx#import-set::t)) - (let* ((_phi195375_ + (let* ((_phi197624_ (##direct-structure-ref - _in195347_ + _in197596_ '2 gx#import-set::t '#f)) - (_src195377_ + (_src197626_ (##direct-structure-ref - _in195347_ + _in197596_ '1 gx#import-set::t '#f)) - (_src-in195417_ - (let* ((_g195378195387_ + (_src-in197666_ + (let* ((_g197627197636_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_make-import-path195282_ _src195377_))) - (_E195381195391_ + (_make-import-path197531_ _src197626_))) + (_E197630197640_ (lambda () - (error '"No clause matching" _g195378195387_)))) - (let ((_K195383195407_ - (lambda (_path195405_) _path195405_)) - (_K195382195397_ - (lambda (_path195395_) + (error '"No clause matching" _g197627197636_)))) + (let ((_K197632197656_ + (lambda (_path197654_) _path197654_)) + (_K197631197646_ + (lambda (_path197644_) (let () (declare (not safe)) - (cons 'in: _path195395_))))) + (cons 'in: _path197644_))))) (if (let () (declare (not safe)) - (##pair? _g195378195387_)) - (let ((_tl195385195412_ + (##pair? _g197627197636_)) + (let ((_tl197634197661_ (let () (declare (not safe)) - (##cdr _g195378195387_))) - (_hd195384195410_ + (##cdr _g197627197636_))) + (_hd197633197659_ (let () (declare (not safe)) - (##car _g195378195387_)))) + (##car _g197627197636_)))) (if (let () (declare (not safe)) - (##null? _tl195385195412_)) - (let ((_path195415_ _hd195384195410_)) + (##null? _tl197634197661_)) + (let ((_path197664_ _hd197633197659_)) (declare (not safe)) - (_K195383195407_ _path195415_)) - (let ((_path195400_ _g195378195387_)) + (_K197632197656_ _path197664_)) + (let ((_path197649_ _g197627197636_)) (declare (not safe)) - (_K195382195397_ _path195400_)))) - (let ((_path195400_ _g195378195387_)) + (_K197631197646_ _path197649_)))) + (let ((_path197649_ _g197627197636_)) (declare (not safe)) - (_K195382195397_ _path195400_)))))) - (_r195419_ - (if _current-src195322_ - (let ((__tmp210871 + (_K197631197646_ _path197649_)))))) + (_r197668_ + (if _current-src197571_ + (let ((__tmp213220 (let () (declare (not safe)) - (_make-import-spec-in195283_ - _current-src195322_ - _current-in195323_)))) + (_make-import-spec-in197532_ + _current-src197571_ + _current-in197572_)))) (declare (not safe)) - (cons __tmp210871 _r195324_)) - _r195324_))) - (let ((__tmp210872 - (let ((__tmp210873 + (cons __tmp213220 _r197573_)) + _r197573_))) + (let ((__tmp213221 + (let ((__tmp213222 (if (let () (declare (not safe)) - (fxzero? _phi195375_)) - _src-in195417_ - (let ((__tmp210874 - (let ((__tmp210875 + (fxzero? _phi197624_)) + _src-in197666_ + (let ((__tmp213223 + (let ((__tmp213224 (let () (declare (not safe)) - (cons _src-in195417_ '())))) + (cons _src-in197666_ '())))) (declare (not safe)) - (cons _phi195375_ __tmp210875)))) + (cons _phi197624_ __tmp213224)))) (declare (not safe)) - (cons 'phi: __tmp210874))))) + (cons 'phi: __tmp213223))))) (declare (not safe)) - (cons __tmp210873 _r195419_)))) + (cons __tmp213222 _r197668_)))) (declare (not safe)) - (_lp195319_ _rest195346_ '#f '() __tmp210872))) + (_lp197568_ _rest197595_ '#f '() __tmp213221))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _in195347_ + _in197596_ 'gx#module-context::t)) - (let* ((_r195422_ + (let* ((_r197671_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _current-src195322_ - (let ((__tmp210867 + (if _current-src197571_ + (let ((__tmp213216 (let () (declare (not safe)) - (_make-import-spec-in195283_ - _current-src195322_ - _current-in195323_)))) + (_make-import-spec-in197532_ + _current-src197571_ + _current-in197572_)))) (declare (not safe)) - (cons __tmp210867 _r195324_)) - _r195324_)) - (__tmp210868 - (let ((__tmp210869 - (let ((__tmp210870 + (cons __tmp213216 _r197573_)) + _r197573_)) + (__tmp213217 + (let ((__tmp213218 + (let ((__tmp213219 (let () (declare (not safe)) - (_make-import-path195282_ - _in195347_)))) + (_make-import-path197531_ + _in197596_)))) (declare (not safe)) - (cons 'runtime: __tmp210870)))) + (cons 'runtime: __tmp213219)))) (declare (not safe)) - (cons __tmp210869 _r195422_)))) + (cons __tmp213218 _r197671_)))) (declare (not safe)) - (_lp195319_ _rest195346_ '#f '() __tmp210868)) + (_lp197568_ _rest197595_ '#f '() __tmp213217)) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest195325195333_)) - (let ((_hd195330195427_ + (##pair? _rest197574197582_)) + (let ((_hd197579197676_ (let () (declare (not safe)) - (##car _rest195325195333_))) - (_tl195331195429_ + (##car _rest197574197582_))) + (_tl197580197678_ (let () (declare (not safe)) - (##cdr _rest195325195333_)))) - (let* ((_in195432_ _hd195330195427_) - (_rest195434_ - _tl195331195429_)) + (##cdr _rest197574197582_)))) + (let* ((_in197681_ _hd197579197676_) + (_rest197683_ + _tl197580197678_)) (declare (not safe)) - (_K195329195424_ - _rest195434_ - _in195432_))) + (_K197578197673_ + _rest197683_ + _in197681_))) (let () (declare (not safe)) - (_else195327195343_)))))) - _tl195288195305_))) + (_else197576197592_)))))) + _tl197537197554_))) (let () (declare (not safe)) - (_g195285195295_ _g195286195298_)))))) + (_g197534197544_ _g197535197547_)))))) (declare (not safe)) - (_g195284195436_ _stx195277_))))) + (_g197533197685_ _stx197526_))))) (define gxc#generate-meta-export% - (lambda (_stx195087_ _state195088_) - (letrec* ((_context-chain195090_ + (lambda (_stx197336_ _state197337_) + (letrec* ((_context-chain197339_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-path195091_ - (lambda (_ctx195275_) + (_make-import-path197340_ + (lambda (_ctx197524_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx195275_ - _context-chain195090_))))) - (let* ((_g195093195103_ - (lambda (_g195094195100_) + _ctx197524_ + _context-chain197339_))))) + (let* ((_g197342197352_ + (lambda (_g197343197349_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195094195100_)))) - (_g195092195272_ - (lambda (_g195094195106_) + _g197343197349_)))) + (_g197341197521_ + (lambda (_g197343197355_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195094195106_)) - (let ((_e195098195108_ + (gx#stx-pair? _g197343197355_)) + (let ((_e197347197357_ (let () (declare (not safe)) - (gx#stx-e _g195094195106_)))) - (let ((_hd195097195111_ + (gx#stx-e _g197343197355_)))) + (let ((_hd197346197360_ (let () (declare (not safe)) - (##car _e195098195108_))) - (_tl195096195113_ + (##car _e197347197357_))) + (_tl197345197362_ (let () (declare (not safe)) - (##cdr _e195098195108_)))) - ((lambda (_L195116_) - (let _lp195127_ ((_rest195129_ _L195116_) - (_r195130_ '())) - (let* ((_rest195131195139_ _rest195129_) - (_else195133195147_ + (##cdr _e197347197357_)))) + ((lambda (_L197365_) + (let _lp197376_ ((_rest197378_ _L197365_) + (_r197379_ '())) + (let* ((_rest197380197388_ _rest197378_) + (_else197382197396_ (lambda () - (let ((__tmp210884 - (reverse _r195130_))) + (let ((__tmp213233 + (reverse _r197379_))) (declare (not safe)) - (cons '%#export __tmp210884)))) - (_K195135195260_ - (lambda (_rest195150_ _out195151_) - (let* ((_out195152195165_ - _out195151_) - (_E195155195169_ + (cons '%#export __tmp213233)))) + (_K197384197509_ + (lambda (_rest197399_ _out197400_) + (let* ((_out197401197414_ + _out197400_) + (_E197404197418_ (lambda () (error '"No clause matching" - _out195152195165_)))) - (let ((_K195159195239_ - (lambda (_name195235_ - _phi195236_ - _key195237_) - (let ((__tmp210885 - (let ((__tmp210886 + _out197401197414_)))) + (let ((_K197408197488_ + (lambda (_name197484_ + _phi197485_ + _key197486_) + (let ((__tmp213234 + (let ((__tmp213235 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210887 - (let ((__tmp210888 - (let ((__tmp210891 + (let ((__tmp213236 + (let ((__tmp213237 + (let ((__tmp213240 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _key195237_))) - (__tmp210889 - (let ((__tmp210890 + _key197486_))) + (__tmp213238 + (let ((__tmp213239 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name195235_)))) + _name197484_)))) (declare (not safe)) - (cons __tmp210890 '())))) + (cons __tmp213239 '())))) (declare (not safe)) - (cons __tmp210891 __tmp210889)))) + (cons __tmp213240 __tmp213238)))) (declare (not safe)) - (cons _phi195236_ __tmp210888)))) + (cons _phi197485_ __tmp213237)))) (declare (not safe)) - (cons 'spec: __tmp210887)))) + (cons 'spec: __tmp213236)))) (declare (not safe)) - (cons __tmp210886 _r195130_)))) + (cons __tmp213235 _r197379_)))) (declare (not safe)) - (_lp195127_ _rest195150_ __tmp210885)))) + (_lp197376_ _rest197399_ __tmp213234)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K195156195219_ - (lambda (_phi195173_ - _src195174_) - (let* ((_out195214_ - (if _src195174_ + (_K197405197468_ + (lambda (_phi197422_ + _src197423_) + (let* ((_out197463_ + (if _src197423_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210892 - (let ((__tmp210893 - (let* ((_g195175195184_ + (let ((__tmp213241 + (let ((__tmp213242 + (let* ((_g197424197433_ (let () (declare (not safe)) - (_make-import-path195091_ - _src195174_))) - (_E195178195188_ + (_make-import-path197340_ + _src197423_))) + (_E197427197437_ (lambda () (error '"No clause matching" - _g195175195184_)))) - (let ((_K195180195204_ - (lambda (_path195202_) - _path195202_)) - (_K195179195194_ - (lambda (_path195192_) + _g197424197433_)))) + (let ((_K197429197453_ + (lambda (_path197451_) + _path197451_)) + (_K197428197443_ + (lambda (_path197441_) (let () (declare (not safe)) (cons 'in: - _path195192_))))) + _path197441_))))) (if (let () (declare (not safe)) - (##pair? _g195175195184_)) - (let ((_tl195182195209_ + (##pair? _g197424197433_)) + (let ((_tl197431197458_ (let () (declare (not safe)) - (##cdr _g195175195184_))) - (_hd195181195207_ + (##cdr _g197424197433_))) + (_hd197430197456_ (let () (declare (not safe)) - (##car _g195175195184_)))) + (##car _g197424197433_)))) (if (let () (declare (not safe)) - (##null? _tl195182195209_)) - (let ((_path195212_ - _hd195181195207_)) + (##null? _tl197431197458_)) + (let ((_path197461_ + _hd197430197456_)) (declare (not safe)) - (_K195180195204_ - _path195212_)) - (let ((_path195197_ - _g195175195184_)) + (_K197429197453_ + _path197461_)) + (let ((_path197446_ + _g197424197433_)) (declare (not safe)) - (_K195179195194_ - _path195197_)))) - (let ((_path195197_ - _g195175195184_)) + (_K197428197443_ + _path197446_)))) + (let ((_path197446_ + _g197424197433_)) (declare (not safe)) - (_K195179195194_ - _path195197_))))))) + (_K197428197443_ + _path197446_))))))) (declare (not safe)) - (cons __tmp210893 '())))) + (cons __tmp213242 '())))) (declare (not safe)) - (cons 'import: __tmp210892)) + (cons 'import: __tmp213241)) '#t)) - (_out195216_ - (if (let () (declare (not safe)) (fxzero? _phi195173_)) - _out195214_ - (let ((__tmp210894 - (let ((__tmp210895 + (_out197465_ + (if (let () (declare (not safe)) (fxzero? _phi197422_)) + _out197463_ + (let ((__tmp213243 + (let ((__tmp213244 (let () (declare (not safe)) - (cons _out195214_ '())))) + (cons _out197463_ '())))) (declare (not safe)) - (cons _phi195173_ __tmp210895)))) + (cons _phi197422_ __tmp213244)))) (declare (not safe)) - (cons 'phi: __tmp210894))))) - (let ((__tmp210896 + (cons 'phi: __tmp213243))))) + (let ((__tmp213245 (let () (declare (not safe)) - (cons _out195216_ _r195130_)))) + (cons _out197465_ _r197379_)))) (declare (not safe)) - (_lp195127_ _rest195150_ __tmp210896)))))) + (_lp197376_ _rest197399_ __tmp213245)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match195154195232_ + (let ((_try-match197403197481_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - _out195152195165_ + _out197401197414_ 'gx#export-set::t)) - (let* ((_e195157195222_ + (let* ((_e197406197471_ (let () (declare (not safe)) (##unchecked-structure-ref - _out195152195165_ + _out197401197414_ '1 gx#export-set::t '#f))) - (_e195158195227_ + (_e197407197476_ (let () (declare (not safe)) (##unchecked-structure-ref - _out195152195165_ + _out197401197414_ '2 gx#export-set::t '#f)))) - (let ((_src195225_ _e195157195222_) - (_phi195230_ _e195158195227_)) + (let ((_src197474_ _e197406197471_) + (_phi197479_ _e197407197476_)) (let () (declare (not safe)) - (_K195156195219_ _phi195230_ _src195225_)))) - (let () (declare (not safe)) (_E195155195169_)))))) + (_K197405197468_ _phi197479_ _src197474_)))) + (let () (declare (not safe)) (_E197404197418_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _out195152195165_ + _out197401197414_ 'gx#module-export::t)) - (let* ((_e195160195242_ + (let* ((_e197409197491_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _out195152195165_ + _out197401197414_ '1 gx#module-export::t '#f))) - (_e195161195245_ + (_e197410197494_ (let () (declare (not safe)) (##unchecked-structure-ref - _out195152195165_ + _out197401197414_ '2 gx#module-export::t '#f))) - (_e195162195250_ + (_e197411197499_ (let () (declare (not safe)) (##unchecked-structure-ref - _out195152195165_ + _out197401197414_ '3 gx#module-export::t '#f))) - (_e195163195255_ + (_e197412197504_ (let () (declare (not safe)) (##unchecked-structure-ref - _out195152195165_ + _out197401197414_ '4 gx#module-export::t '#f)))) - (let ((_key195248_ _e195161195245_) - (_phi195253_ _e195162195250_) - (_name195258_ _e195163195255_)) + (let ((_key197497_ _e197410197494_) + (_phi197502_ _e197411197499_) + (_name197507_ _e197412197504_)) (let () (declare (not safe)) - (_K195159195239_ _name195258_ _phi195253_ _key195248_)))) - (let () (declare (not safe)) (_try-match195154195232_))))))))) + (_K197408197488_ _name197507_ _phi197502_ _key197497_)))) + (let () (declare (not safe)) (_try-match197403197481_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest195131195139_)) - (let ((_hd195136195263_ + (##pair? _rest197380197388_)) + (let ((_hd197385197512_ (let () (declare (not safe)) - (##car _rest195131195139_))) - (_tl195137195265_ + (##car _rest197380197388_))) + (_tl197386197514_ (let () (declare (not safe)) - (##cdr _rest195131195139_)))) - (let* ((_out195268_ - _hd195136195263_) - (_rest195270_ - _tl195137195265_)) + (##cdr _rest197380197388_)))) + (let* ((_out197517_ + _hd197385197512_) + (_rest197519_ + _tl197386197514_)) (declare (not safe)) - (_K195135195260_ - _rest195270_ - _out195268_))) + (_K197384197509_ + _rest197519_ + _out197517_))) (let () (declare (not safe)) - (_else195133195147_)))))) - _tl195096195113_))) + (_else197382197396_)))))) + _tl197345197362_))) (let () (declare (not safe)) - (_g195093195103_ _g195094195106_)))))) + (_g197342197352_ _g197343197355_)))))) (declare (not safe)) - (_g195092195272_ _stx195087_))))) + (_g197341197521_ _stx197336_))))) (define gxc#generate-meta-provide% - (lambda (_stx195048_ _state195049_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state195049_)) - (let* ((_g195051195061_ - (lambda (_g195052195058_) + (lambda (_stx197297_ _state197298_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state197298_)) + (let* ((_g197300197310_ + (lambda (_g197301197307_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195052195058_)))) - (_g195050195084_ - (lambda (_g195052195064_) + _g197301197307_)))) + (_g197299197333_ + (lambda (_g197301197313_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195052195064_)) - (let ((_e195056195066_ + (gx#stx-pair? _g197301197313_)) + (let ((_e197305197315_ (let () (declare (not safe)) - (gx#stx-e _g195052195064_)))) - (let ((_hd195055195069_ + (gx#stx-e _g197301197313_)))) + (let ((_hd197304197318_ (let () (declare (not safe)) - (##car _e195056195066_))) - (_tl195054195071_ + (##car _e197305197315_))) + (_tl197303197320_ (let () (declare (not safe)) - (##cdr _e195056195066_)))) - ((lambda (_L195074_) - (let ((__tmp210897 + (##cdr _e197305197315_)))) + ((lambda (_L197323_) + (let ((__tmp213246 (map gxc#generate-runtime-identifier - _L195074_))) + _L197323_))) (declare (not safe)) - (cons '%#provide __tmp210897))) - _tl195054195071_))) + (cons '%#provide __tmp213246))) + _tl197303197320_))) (let () (declare (not safe)) - (_g195051195061_ _g195052195064_)))))) + (_g197300197310_ _g197301197313_)))))) (declare (not safe)) - (_g195050195084_ _stx195048_)))) + (_g197299197333_ _stx197297_)))) (define gxc#generate-meta-extern% - (lambda (_stx194919_ _state194920_) - (letrec ((_generate1194922_ - (lambda (_id195043_ _eid195044_) - (let ((_eid195046_ + (lambda (_stx197168_ _state197169_) + (letrec ((_generate1197171_ + (lambda (_id197292_ _eid197293_) + (let ((_eid197295_ (let () (declare (not safe)) - (gx#stx-e _eid195044_)))) - (if (interned-symbol? _eid195046_) + (gx#stx-e _eid197293_)))) + (if (interned-symbol? _eid197295_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _stx194919_ - _eid195046_))) - (let ((__tmp210899 + _stx197168_ + _eid197295_))) + (let ((__tmp213248 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id195043_))) - (__tmp210898 + (gxc#generate-runtime-identifier _id197292_))) + (__tmp213247 (let () (declare (not safe)) - (cons _eid195046_ '())))) + (cons _eid197295_ '())))) (declare (not safe)) - (cons __tmp210899 __tmp210898)))))) - (let* ((_g194924194952_ - (lambda (_g194925194949_) + (cons __tmp213248 __tmp213247)))))) + (let* ((_g197173197201_ + (lambda (_g197174197198_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g194925194949_)))) - (_g194923195040_ - (lambda (_g194925194955_) + _g197174197198_)))) + (_g197172197289_ + (lambda (_g197174197204_) (if (let () (declare (not safe)) - (gx#stx-pair? _g194925194955_)) - (let ((_e194930194957_ + (gx#stx-pair? _g197174197204_)) + (let ((_e197179197206_ (let () (declare (not safe)) - (gx#stx-e _g194925194955_)))) - (let ((_hd194929194960_ + (gx#stx-e _g197174197204_)))) + (let ((_hd197178197209_ (let () (declare (not safe)) - (##car _e194930194957_))) - (_tl194928194962_ + (##car _e197179197206_))) + (_tl197177197211_ (let () (declare (not safe)) - (##cdr _e194930194957_)))) + (##cdr _e197179197206_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl194928194962_)) - (let ((_g210900_ + (gx#stx-pair/null? _tl197177197211_)) + (let ((_g213249_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl194928194962_ + _tl197177197211_ '0)))) (begin - (let ((_g210901_ + (let ((_g213250_ (let () (declare (not safe)) - (if (##values? _g210900_) - (##vector-length _g210900_) + (if (##values? _g213249_) + (##vector-length _g213249_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g210901_ 2))) + (##fx= _g213250_ 2))) (error "Context expects 2 values" - _g210901_))) - (let ((_target194931194965_ + _g213250_))) + (let ((_target197180197214_ (let () (declare (not safe)) - (##vector-ref _g210900_ 0))) - (_tl194933194967_ + (##vector-ref _g213249_ 0))) + (_tl197182197216_ (let () (declare (not safe)) - (##vector-ref _g210900_ 1)))) + (##vector-ref _g213249_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl194933194967_)) - (letrec ((_loop194934194970_ - (lambda (_hd194932194973_ - _eid194938194975_ - _id194939194977_) + (gx#stx-null? _tl197182197216_)) + (letrec ((_loop197183197219_ + (lambda (_hd197181197222_ + _eid197187197224_ + _id197188197226_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd194932194973_)) - (let ((_e194935194980_ + _hd197181197222_)) + (let ((_e197184197229_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd194932194973_)))) - (let ((_lp-hd194936194983_ + (gx#stx-e _hd197181197222_)))) + (let ((_lp-hd197185197232_ (let () (declare (not safe)) - (##car _e194935194980_))) - (_lp-tl194937194985_ + (##car _e197184197229_))) + (_lp-tl197186197234_ (let () (declare (not safe)) - (##cdr _e194935194980_)))) + (##cdr _e197184197229_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd194936194983_)) - (let ((_e194944194988_ + (gx#stx-pair? _lp-hd197185197232_)) + (let ((_e197193197237_ (let () (declare (not safe)) - (gx#stx-e _lp-hd194936194983_)))) - (let ((_hd194943194991_ + (gx#stx-e _lp-hd197185197232_)))) + (let ((_hd197192197240_ (let () (declare (not safe)) - (##car _e194944194988_))) - (_tl194942194993_ + (##car _e197193197237_))) + (_tl197191197242_ (let () (declare (not safe)) - (##cdr _e194944194988_)))) + (##cdr _e197193197237_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194942194993_)) - (let ((_e194947194996_ + (gx#stx-pair? _tl197191197242_)) + (let ((_e197196197245_ (let () (declare (not safe)) - (gx#stx-e _tl194942194993_)))) - (let ((_hd194946194999_ + (gx#stx-e _tl197191197242_)))) + (let ((_hd197195197248_ (let () (declare (not safe)) - (##car _e194947194996_))) - (_tl194945195001_ + (##car _e197196197245_))) + (_tl197194197250_ (let () (declare (not safe)) - (##cdr _e194947194996_)))) + (##cdr _e197196197245_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl194945195001_)) - (let ((__tmp210906 + (gx#stx-null? _tl197194197250_)) + (let ((__tmp213255 (let () (declare (not safe)) - (cons _hd194946194999_ - _eid194938194975_))) - (__tmp210905 + (cons _hd197195197248_ + _eid197187197224_))) + (__tmp213254 (let () (declare (not safe)) - (cons _hd194943194991_ - _id194939194977_)))) + (cons _hd197192197240_ + _id197188197226_)))) (declare (not safe)) - (_loop194934194970_ - _lp-tl194937194985_ - __tmp210906 - __tmp210905)) + (_loop197183197219_ + _lp-tl197186197234_ + __tmp213255 + __tmp213254)) (let () (declare (not safe)) - (_g194924194952_ - _g194925194955_))))) + (_g197173197201_ + _g197174197204_))))) (let () (declare (not safe)) - (_g194924194952_ _g194925194955_))))) + (_g197173197201_ _g197174197204_))))) (let () (declare (not safe)) - (_g194924194952_ _g194925194955_))))) - (let ((_eid194940195004_ (reverse _eid194938194975_)) - (_id194941195006_ (reverse _id194939194977_))) - ((lambda (_L195009_ _L195010_) - (let ((__tmp210902 - (map _generate1194922_ - (let ((__tmp210903 - (lambda (_g195025195028_ - _g195026195030_) + (_g197173197201_ _g197174197204_))))) + (let ((_eid197189197253_ (reverse _eid197187197224_)) + (_id197190197255_ (reverse _id197188197226_))) + ((lambda (_L197258_ _L197259_) + (let ((__tmp213251 + (map _generate1197171_ + (let ((__tmp213252 + (lambda (_g197274197277_ + _g197275197279_) (let () (declare (not safe)) - (cons _g195025195028_ - _g195026195030_))))) + (cons _g197274197277_ + _g197275197279_))))) (declare (not safe)) - (foldr1 __tmp210903 '() _L195010_)) - (let ((__tmp210904 - (lambda (_g195032195035_ - _g195033195037_) + (foldr1 __tmp213252 '() _L197259_)) + (let ((__tmp213253 + (lambda (_g197281197284_ + _g197282197286_) (let () (declare (not safe)) - (cons _g195032195035_ - _g195033195037_))))) + (cons _g197281197284_ + _g197282197286_))))) (declare (not safe)) - (foldr1 __tmp210904 '() _L195009_))))) + (foldr1 __tmp213253 '() _L197258_))))) (declare (not safe)) - (cons '%#extern __tmp210902))) - _eid194940195004_ - _id194941195006_)))))) + (cons '%#extern __tmp213251))) + _eid197189197253_ + _id197190197255_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop194934194970_ - _target194931194965_ + (_loop197183197219_ + _target197180197214_ '() '()))) (let () (declare (not safe)) - (_g194924194952_ - _g194925194955_)))))) + (_g197173197201_ + _g197174197204_)))))) (let () (declare (not safe)) - (_g194924194952_ _g194925194955_))))) + (_g197173197201_ _g197174197204_))))) (let () (declare (not safe)) - (_g194924194952_ _g194925194955_)))))) + (_g197173197201_ _g197174197204_)))))) (declare (not safe)) - (_g194923195040_ _stx194919_))))) + (_g197172197289_ _stx197168_))))) (define gxc#generate-meta-define-values% - (lambda (_stx194709_ _state194710_) - (letrec ((_generate1194712_ - (lambda (_id194914_) - (let ((_eid194916_ + (lambda (_stx196958_ _state196959_) + (letrec ((_generate1196961_ + (lambda (_id197163_) + (let ((_eid197165_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id194914_))) - (_ident194917_ + (gxc#generate-runtime-binding-id _id197163_))) + (_ident197166_ (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id194914_)))) - (let ((__tmp210907 - (let ((__tmp210908 + (gxc#generate-runtime-identifier _id197163_)))) + (let ((__tmp213256 + (let ((__tmp213257 (let () (declare (not safe)) - (cons _eid194916_ '())))) + (cons _eid197165_ '())))) (declare (not safe)) - (cons _ident194917_ __tmp210908)))) + (cons _ident197166_ __tmp213257)))) (declare (not safe)) - (cons '%#define-runtime __tmp210907))))) - (_generate*194713_ - (lambda (_all194882_) - (let* ((_all194883194891_ _all194882_) - (_else194885194899_ + (cons '%#define-runtime __tmp213256))))) + (_generate*196962_ + (lambda (_all197131_) + (let* ((_all197132197140_ _all197131_) + (_else197134197148_ (lambda () (let () (declare (not safe)) - (cons '%#begin _all194882_)))) - (_K194887194904_ - (lambda (_one194902_) _one194902_))) + (cons '%#begin _all197131_)))) + (_K197136197153_ + (lambda (_one197151_) _one197151_))) (if (let () (declare (not safe)) - (##pair? _all194883194891_)) - (let ((_hd194888194907_ + (##pair? _all197132197140_)) + (let ((_hd197137197156_ (let () (declare (not safe)) - (##car _all194883194891_))) - (_tl194889194909_ + (##car _all197132197140_))) + (_tl197138197158_ (let () (declare (not safe)) - (##cdr _all194883194891_)))) - (let ((_one194912_ _hd194888194907_)) + (##cdr _all197132197140_)))) + (let ((_one197161_ _hd197137197156_)) (if (let () (declare (not safe)) - (##null? _tl194889194909_)) + (##null? _tl197138197158_)) (let () (declare (not safe)) - (_K194887194904_ _one194912_)) + (_K197136197153_ _one197161_)) (let () (declare (not safe)) - (_else194885194899_))))) + (_else197134197148_))))) (let () (declare (not safe)) - (_else194885194899_))))))) - (let* ((_g194715194732_ - (lambda (_g194716194729_) + (_else197134197148_))))))) + (let* ((_g196964196981_ + (lambda (_g196965196978_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g194716194729_)))) - (_g194714194879_ - (lambda (_g194716194735_) + _g196965196978_)))) + (_g196963197128_ + (lambda (_g196965196984_) (if (let () (declare (not safe)) - (gx#stx-pair? _g194716194735_)) - (let ((_e194721194737_ + (gx#stx-pair? _g196965196984_)) + (let ((_e196970196986_ (let () (declare (not safe)) - (gx#stx-e _g194716194735_)))) - (let ((_hd194720194740_ + (gx#stx-e _g196965196984_)))) + (let ((_hd196969196989_ (let () (declare (not safe)) - (##car _e194721194737_))) - (_tl194719194742_ + (##car _e196970196986_))) + (_tl196968196991_ (let () (declare (not safe)) - (##cdr _e194721194737_)))) + (##cdr _e196970196986_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194719194742_)) - (let ((_e194724194745_ + (gx#stx-pair? _tl196968196991_)) + (let ((_e196973196994_ (let () (declare (not safe)) - (gx#stx-e _tl194719194742_)))) - (let ((_hd194723194748_ + (gx#stx-e _tl196968196991_)))) + (let ((_hd196972196997_ (let () (declare (not safe)) - (##car _e194724194745_))) - (_tl194722194750_ + (##car _e196973196994_))) + (_tl196971196999_ (let () (declare (not safe)) - (##cdr _e194724194745_)))) + (##cdr _e196973196994_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194722194750_)) - (let ((_e194727194753_ + (gx#stx-pair? _tl196971196999_)) + (let ((_e196976197002_ (let () (declare (not safe)) (gx#stx-e - _tl194722194750_)))) - (let ((_hd194726194756_ + _tl196971196999_)))) + (let ((_hd196975197005_ (let () (declare (not safe)) - (##car _e194727194753_))) - (_tl194725194758_ + (##car _e196976197002_))) + (_tl196974197007_ (let () (declare (not safe)) - (##cdr _e194727194753_)))) + (##cdr _e196976197002_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl194725194758_)) - ((lambda (_L194761_ - _L194762_) - (let _lp194778_ ((_rest194780_ + _tl196974197007_)) + ((lambda (_L197010_ + _L197011_) + (let _lp197027_ ((_rest197029_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L194762_) - (_r194781_ '())) - (let* ((___stx210040210041_ _rest194780_) - (_g194786194803_ + _L197011_) + (_r197030_ '())) + (let* ((___stx212389212390_ _rest197029_) + (_g197035197052_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx210040210041_))))) - (let ((___kont210042210043_ - (lambda (_L194866_) + ___stx212389212390_))))) + (let ((___kont212391212392_ + (lambda (_L197115_) (let () (declare (not safe)) - (_lp194778_ _L194866_ _r194781_)))) - (___kont210044210045_ - (lambda (_L194839_ _L194840_) - (let ((__tmp210909 - (let ((__tmp210910 + (_lp197027_ _L197115_ _r197030_)))) + (___kont212393212394_ + (lambda (_L197088_ _L197089_) + (let ((__tmp213258 + (let ((__tmp213259 (let () (declare (not safe)) - (_generate1194712_ _L194840_)))) + (_generate1196961_ _L197089_)))) (declare (not safe)) - (cons __tmp210910 _r194781_)))) + (cons __tmp213259 _r197030_)))) (declare (not safe)) - (_lp194778_ _L194839_ __tmp210909)))) - (___kont210046210047_ - (lambda (_L194815_) - (let ((__tmp210911 - (let ((__tmp210912 - (let ((__tmp210913 + (_lp197027_ _L197088_ __tmp213258)))) + (___kont212395212396_ + (lambda (_L197064_) + (let ((__tmp213260 + (let ((__tmp213261 + (let ((__tmp213262 (let () (declare (not safe)) - (_generate1194712_ - _L194815_)))) + (_generate1196961_ + _L197064_)))) (declare (not safe)) - (cons __tmp210913 '())))) + (cons __tmp213262 '())))) (declare (not safe)) - (foldl1 cons __tmp210912 _r194781_)))) + (foldl1 cons __tmp213261 _r197030_)))) (declare (not safe)) - (_generate*194713_ __tmp210911)))) - (___kont210048210049_ + (_generate*196962_ __tmp213260)))) + (___kont212397212398_ (lambda () - (let ((__tmp210914 (reverse _r194781_))) + (let ((__tmp213263 (reverse _r197030_))) (declare (not safe)) - (_generate*194713_ __tmp210914))))) - (let ((_g194784194826_ + (_generate*196962_ __tmp213263))))) + (let ((_g197033197075_ (lambda () - (let ((_L194815_ ___stx210040210041_)) + (let ((_L197064_ ___stx212389212390_)) (if (let () (declare (not safe)) - (gx#identifier? _L194815_)) - (___kont210046210047_ _L194815_) - (___kont210048210049_)))))) + (gx#identifier? _L197064_)) + (___kont212395212396_ _L197064_) + (___kont212397212398_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx210040210041_)) - (let ((_e194791194855_ + (gx#stx-pair? ___stx212389212390_)) + (let ((_e197040197104_ (let () (declare (not safe)) - (gx#stx-e ___stx210040210041_)))) - (let ((_tl194789194860_ + (gx#stx-e ___stx212389212390_)))) + (let ((_tl197038197109_ (let () (declare (not safe)) - (##cdr _e194791194855_))) - (_hd194790194858_ + (##cdr _e197040197104_))) + (_hd197039197107_ (let () (declare (not safe)) - (##car _e194791194855_)))) + (##car _e197040197104_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd194790194858_)) - (let ((_e194792194863_ + (gx#stx-datum? _hd197039197107_)) + (let ((_e197041197112_ (let () (declare (not safe)) - (gx#stx-e _hd194790194858_)))) + (gx#stx-e _hd197039197107_)))) (if (let () (declare (not safe)) - (equal? _e194792194863_ '#f)) - (___kont210042210043_ _tl194789194860_) - (___kont210044210045_ - _tl194789194860_ - _hd194790194858_))) - (___kont210044210045_ - _tl194789194860_ - _hd194790194858_)))) - (let () (declare (not safe)) (_g194784194826_)))))))) + (equal? _e197041197112_ '#f)) + (___kont212391212392_ _tl197038197109_) + (___kont212393212394_ + _tl197038197109_ + _hd197039197107_))) + (___kont212393212394_ + _tl197038197109_ + _hd197039197107_)))) + (let () (declare (not safe)) (_g197033197075_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd194726194756_ - _hd194723194748_) + _hd196975197005_ + _hd196972196997_) (let () (declare (not safe)) - (_g194715194732_ - _g194716194735_))))) + (_g196964196981_ + _g196965196984_))))) (let () (declare (not safe)) - (_g194715194732_ - _g194716194735_))))) + (_g196964196981_ + _g196965196984_))))) (let () (declare (not safe)) - (_g194715194732_ _g194716194735_))))) + (_g196964196981_ _g196965196984_))))) (let () (declare (not safe)) - (_g194715194732_ _g194716194735_)))))) + (_g196964196981_ _g196965196984_)))))) (declare (not safe)) - (_g194714194879_ _stx194709_))))) + (_g196963197128_ _stx196958_))))) (define gxc#generate-meta-define-syntax% - (lambda (_stx194606_ _state194607_) - (let* ((_g194609194626_ - (lambda (_g194610194623_) + (lambda (_stx196855_ _state196856_) + (let* ((_g196858196875_ + (lambda (_g196859196872_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g194610194623_)))) - (_g194608194706_ - (lambda (_g194610194629_) + _g196859196872_)))) + (_g196857196955_ + (lambda (_g196859196878_) (if (let () (declare (not safe)) - (gx#stx-pair? _g194610194629_)) - (let ((_e194615194631_ + (gx#stx-pair? _g196859196878_)) + (let ((_e196864196880_ (let () (declare (not safe)) - (gx#stx-e _g194610194629_)))) - (let ((_hd194614194634_ + (gx#stx-e _g196859196878_)))) + (let ((_hd196863196883_ (let () (declare (not safe)) - (##car _e194615194631_))) - (_tl194613194636_ + (##car _e196864196880_))) + (_tl196862196885_ (let () (declare (not safe)) - (##cdr _e194615194631_)))) + (##cdr _e196864196880_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194613194636_)) - (let ((_e194618194639_ + (gx#stx-pair? _tl196862196885_)) + (let ((_e196867196888_ (let () (declare (not safe)) - (gx#stx-e _tl194613194636_)))) - (let ((_hd194617194642_ + (gx#stx-e _tl196862196885_)))) + (let ((_hd196866196891_ (let () (declare (not safe)) - (##car _e194618194639_))) - (_tl194616194644_ + (##car _e196867196888_))) + (_tl196865196893_ (let () (declare (not safe)) - (##cdr _e194618194639_)))) + (##cdr _e196867196888_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194616194644_)) - (let ((_e194621194647_ + (gx#stx-pair? _tl196865196893_)) + (let ((_e196870196896_ (let () (declare (not safe)) - (gx#stx-e _tl194616194644_)))) - (let ((_hd194620194650_ + (gx#stx-e _tl196865196893_)))) + (let ((_hd196869196899_ (let () (declare (not safe)) - (##car _e194621194647_))) - (_tl194619194652_ + (##car _e196870196896_))) + (_tl196868196901_ (let () (declare (not safe)) - (##cdr _e194621194647_)))) + (##cdr _e196870196896_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl194619194652_)) - ((lambda (_L194655_ _L194656_) - (let* ((_eid194671_ + _tl196868196901_)) + ((lambda (_L196904_ _L196905_) + (let* ((_eid196920_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L194656_))) - (_phi194673_ - (let ((__tmp210915 + _L196905_))) + (_phi196922_ + (let ((__tmp213264 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp210915 '1))) - (_block194675_ + (fx+ __tmp213264 '1))) + (_block196924_ (let () (declare (not safe)) - (gxc#meta-state-begin-phi! _state194607_ _phi194673_)))) + (gxc#meta-state-begin-phi! _state196856_ _phi196922_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_g194678194685_ - (lambda (_g194679194682_) + (let* ((_g196927196934_ + (lambda (_g196928196931_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g194679194682_)))) - (_g194677194703_ - (lambda (_g194679194688_) - ((lambda (_L194690_) + _g196928196931_)))) + (_g196926196952_ + (lambda (_g196928196937_) + ((lambda (_L196939_) (let () - (let ((__tmp210916 - (let ((__tmp210919 + (let ((__tmp213265 + (let ((__tmp213268 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime))) - (__tmp210917 - (let ((__tmp210918 + (__tmp213266 + (let ((__tmp213267 (let () (declare (not safe)) - (cons _L194655_ '())))) + (cons _L196904_ '())))) (declare (not safe)) - (cons _L194690_ __tmp210918)))) + (cons _L196939_ __tmp213267)))) (declare (not safe)) - (cons __tmp210919 __tmp210917)))) + (cons __tmp213268 __tmp213266)))) (declare (not safe)) (gxc#meta-state-add-phi! - _state194607_ - _phi194673_ - __tmp210916)))) - _g194679194688_)))) + _state196856_ + _phi196922_ + __tmp213265)))) + _g196928196937_)))) (declare (not safe)) - (_g194677194703_ _eid194671_)) + (_g196926196952_ _eid196920_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _block194675_ - (let ((__tmp210923 - (let ((__tmp210929 + (if _block196924_ + (let ((__tmp213272 + (let ((__tmp213278 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210930 - (let ((__tmp210931 - (let ((__tmp210932 - (let ((__tmp210936 - (let ((__tmp210937 + (let ((__tmp213279 + (let ((__tmp213280 + (let ((__tmp213281 + (let ((__tmp213285 + (let ((__tmp213286 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp210937))) - (__tmp210933 - (let ((__tmp210934 - (let ((__tmp210935 + (cons '%#ref __tmp213286))) + (__tmp213282 + (let ((__tmp213283 + (let ((__tmp213284 (let () (declare (not safe)) - (cons _block194675_ '())))) + (cons _block196924_ '())))) (declare (not safe)) - (cons '%#quote __tmp210935)))) + (cons '%#quote __tmp213284)))) (declare (not safe)) - (cons __tmp210934 '())))) + (cons __tmp213283 '())))) (declare (not safe)) - (cons __tmp210936 __tmp210933)))) + (cons __tmp213285 __tmp213282)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp210932)))) + (cons '%#call __tmp213281)))) (declare (not safe)) - (cons __tmp210931 '())))) + (cons __tmp213280 '())))) (declare (not safe)) - (cons '%#begin-syntax __tmp210930))) - (__tmp210924 - (let ((__tmp210925 - (let ((__tmp210926 - (let ((__tmp210928 + (cons '%#begin-syntax __tmp213279))) + (__tmp213273 + (let ((__tmp213274 + (let ((__tmp213275 + (let ((__tmp213277 (let () (declare (not safe)) (gxc#generate-runtime-identifier - _L194656_))) - (__tmp210927 + _L196905_))) + (__tmp213276 (let () (declare (not safe)) - (cons _eid194671_ '())))) + (cons _eid196920_ '())))) (declare (not safe)) - (cons __tmp210928 - __tmp210927)))) + (cons __tmp213277 + __tmp213276)))) (declare (not safe)) - (cons '%#define-syntax __tmp210926)))) + (cons '%#define-syntax __tmp213275)))) (declare (not safe)) - (cons __tmp210925 '())))) + (cons __tmp213274 '())))) (declare (not safe)) - (cons __tmp210929 __tmp210924)))) + (cons __tmp213278 __tmp213273)))) (declare (not safe)) - (cons '%#begin __tmp210923)) - (let ((__tmp210920 - (let ((__tmp210922 + (cons '%#begin __tmp213272)) + (let ((__tmp213269 + (let ((__tmp213271 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L194656_))) - (__tmp210921 + (gxc#generate-runtime-identifier _L196905_))) + (__tmp213270 (let () (declare (not safe)) - (cons _eid194671_ '())))) + (cons _eid196920_ '())))) (declare (not safe)) - (cons __tmp210922 __tmp210921)))) + (cons __tmp213271 __tmp213270)))) (declare (not safe)) - (cons '%#define-syntax __tmp210920))))) + (cons '%#define-syntax __tmp213269))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd194620194650_ - _hd194617194642_) + _hd196869196899_ + _hd196866196891_) (let () (declare (not safe)) - (_g194609194626_ - _g194610194629_))))) + (_g196858196875_ + _g196859196878_))))) (let () (declare (not safe)) - (_g194609194626_ _g194610194629_))))) + (_g196858196875_ _g196859196878_))))) (let () (declare (not safe)) - (_g194609194626_ _g194610194629_))))) + (_g196858196875_ _g196859196878_))))) (let () (declare (not safe)) - (_g194609194626_ _g194610194629_)))))) + (_g196858196875_ _g196859196878_)))))) (declare (not safe)) - (_g194608194706_ _stx194606_)))) + (_g196857196955_ _stx196855_)))) (define gxc#generate-meta-define-alias% - (lambda (_stx194538_ _state194539_) - (let* ((_g194541194558_ - (lambda (_g194542194555_) + (lambda (_stx196787_ _state196788_) + (let* ((_g196790196807_ + (lambda (_g196791196804_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g194542194555_)))) - (_g194540194603_ - (lambda (_g194542194561_) + _g196791196804_)))) + (_g196789196852_ + (lambda (_g196791196810_) (if (let () (declare (not safe)) - (gx#stx-pair? _g194542194561_)) - (let ((_e194547194563_ + (gx#stx-pair? _g196791196810_)) + (let ((_e196796196812_ (let () (declare (not safe)) - (gx#stx-e _g194542194561_)))) - (let ((_hd194546194566_ + (gx#stx-e _g196791196810_)))) + (let ((_hd196795196815_ (let () (declare (not safe)) - (##car _e194547194563_))) - (_tl194545194568_ + (##car _e196796196812_))) + (_tl196794196817_ (let () (declare (not safe)) - (##cdr _e194547194563_)))) + (##cdr _e196796196812_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194545194568_)) - (let ((_e194550194571_ + (gx#stx-pair? _tl196794196817_)) + (let ((_e196799196820_ (let () (declare (not safe)) - (gx#stx-e _tl194545194568_)))) - (let ((_hd194549194574_ + (gx#stx-e _tl196794196817_)))) + (let ((_hd196798196823_ (let () (declare (not safe)) - (##car _e194550194571_))) - (_tl194548194576_ + (##car _e196799196820_))) + (_tl196797196825_ (let () (declare (not safe)) - (##cdr _e194550194571_)))) + (##cdr _e196799196820_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194548194576_)) - (let ((_e194553194579_ + (gx#stx-pair? _tl196797196825_)) + (let ((_e196802196828_ (let () (declare (not safe)) - (gx#stx-e _tl194548194576_)))) - (let ((_hd194552194582_ + (gx#stx-e _tl196797196825_)))) + (let ((_hd196801196831_ (let () (declare (not safe)) - (##car _e194553194579_))) - (_tl194551194584_ + (##car _e196802196828_))) + (_tl196800196833_ (let () (declare (not safe)) - (##cdr _e194553194579_)))) + (##cdr _e196802196828_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl194551194584_)) - ((lambda (_L194587_ _L194588_) - (let ((__tmp210938 - (let ((__tmp210941 + _tl196800196833_)) + ((lambda (_L196836_ _L196837_) + (let ((__tmp213287 + (let ((__tmp213290 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L194588_))) - (__tmp210939 - (let ((__tmp210940 + (gxc#generate-runtime-identifier _L196837_))) + (__tmp213288 + (let ((__tmp213289 (let () (declare (not safe)) (gxc#generate-runtime-identifier - _L194587_)))) + _L196836_)))) (declare (not safe)) - (cons __tmp210940 '())))) + (cons __tmp213289 '())))) (declare (not safe)) - (cons __tmp210941 __tmp210939)))) + (cons __tmp213290 __tmp213288)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#define-alias - __tmp210938))) - _hd194552194582_ - _hd194549194574_) + __tmp213287))) + _hd196801196831_ + _hd196798196823_) (let () (declare (not safe)) - (_g194541194558_ - _g194542194561_))))) + (_g196790196807_ + _g196791196810_))))) (let () (declare (not safe)) - (_g194541194558_ _g194542194561_))))) + (_g196790196807_ _g196791196810_))))) (let () (declare (not safe)) - (_g194541194558_ _g194542194561_))))) + (_g196790196807_ _g196791196810_))))) (let () (declare (not safe)) - (_g194541194558_ _g194542194561_)))))) + (_g196790196807_ _g196791196810_)))))) (declare (not safe)) - (_g194540194603_ _stx194538_)))) + (_g196789196852_ _stx196787_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_stx194535_ _state194536_) - (let ((__tmp210942 (gx#current-expander-phi))) + (lambda (_stx196784_ _state196785_) + (let ((__tmp213291 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! _state194536_ __tmp210942 _stx194535_)) + (gxc#meta-state-add-phi! _state196785_ __tmp213291 _stx196784_)) (let () (declare (not safe)) - (gxc#generate-meta-define-values% _stx194535_ _state194536_)))) + (gxc#generate-meta-define-values% _stx196784_ _state196785_)))) (define gxc#generate-meta-phi-expr - (lambda (_stx194532_ _state194533_) - (let ((__tmp210943 (gx#current-expander-phi))) + (lambda (_stx196781_ _state196782_) + (let ((__tmp213292 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! _state194533_ __tmp210943 _stx194532_)) + (gxc#meta-state-add-phi! _state196782_ __tmp213292 _stx196781_)) '#!void)) (define gxc#meta-state::t - (let ((__tmp210944 - (let ((__tmp210945 + (let ((__tmp213295 (list)) + (__tmp213293 + (let ((__tmp213294 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210945 '())))) + (cons __tmp213294 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#meta-state::t 'meta-state - '#f + __tmp213295 '(src n open blocks) - __tmp210944 + __tmp213293 ':init!))) (define gxc#meta-state? - (let () - (declare (not safe)) - (make-struct-predicate gxc#meta-state::t))) + (let () (declare (not safe)) (make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _$args194529_ - (apply make-struct-instance gxc#meta-state::t _$args194529_))) + (lambda _$args196778_ + (apply make-instance gxc#meta-state::t _$args196778_))) (define gxc#meta-state-src (let () (declare (not safe)) - (make-struct-slot-accessor gxc#meta-state::t 'src))) + (make-class-slot-accessor gxc#meta-state::t 'src))) (define gxc#meta-state-n (let () (declare (not safe)) - (make-struct-slot-accessor gxc#meta-state::t 'n))) + (make-class-slot-accessor gxc#meta-state::t 'n))) (define gxc#meta-state-open (let () (declare (not safe)) - (make-struct-slot-accessor gxc#meta-state::t 'open))) + (make-class-slot-accessor gxc#meta-state::t 'open))) (define gxc#meta-state-blocks (let () (declare (not safe)) - (make-struct-slot-accessor gxc#meta-state::t 'blocks))) + (make-class-slot-accessor gxc#meta-state::t 'blocks))) (define gxc#meta-state-src-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#meta-state::t 'src))) + (make-class-slot-mutator gxc#meta-state::t 'src))) (define gxc#meta-state-n-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#meta-state::t 'n))) + (make-class-slot-mutator gxc#meta-state::t 'n))) (define gxc#meta-state-open-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#meta-state::t 'open))) + (make-class-slot-mutator gxc#meta-state::t 'open))) (define gxc#meta-state-blocks-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#meta-state::t 'blocks))) + (make-class-slot-mutator gxc#meta-state::t 'blocks))) (define gxc#&meta-state-src (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#meta-state::t 'src))) + (make-class-slot-unchecked-accessor gxc#meta-state::t 'src))) (define gxc#&meta-state-n (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#meta-state::t 'n))) + (make-class-slot-unchecked-accessor gxc#meta-state::t 'n))) (define gxc#&meta-state-open (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#meta-state::t 'open))) + (make-class-slot-unchecked-accessor gxc#meta-state::t 'open))) (define gxc#&meta-state-blocks (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#meta-state::t 'blocks))) + (make-class-slot-unchecked-accessor gxc#meta-state::t 'blocks))) (define gxc#&meta-state-src-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#meta-state::t 'src))) + (make-class-slot-unchecked-mutator gxc#meta-state::t 'src))) (define gxc#&meta-state-n-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#meta-state::t 'n))) + (make-class-slot-unchecked-mutator gxc#meta-state::t 'n))) (define gxc#&meta-state-open-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#meta-state::t 'open))) + (make-class-slot-unchecked-mutator gxc#meta-state::t 'open))) (define gxc#&meta-state-blocks-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#meta-state::t 'blocks))) + (make-class-slot-unchecked-mutator gxc#meta-state::t 'blocks))) (define gxc#meta-state:::init! - (lambda (_self194526_ _ctx194527_) - (if (let ((__tmp210953 + (lambda (_self196775_ _ctx196776_) + (if (let ((__tmp213303 (let () (declare (not safe)) - (##structure-length _self194526_)))) + (##structure-length _self196775_)))) (declare (not safe)) - (##fx< '4 __tmp210953)) + (##fx< '4 __tmp213303)) (begin - (let ((__tmp210947 - (let ((__tmp210948 + (let ((__tmp213297 + (let ((__tmp213298 (##structure-ref - _ctx194527_ + _ctx196776_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp210948))) - (__tmp210946 + (gxc#module-id->path-string __tmp213298))) + (__tmp213296 (let () (declare (not safe)) - (##structure-type _self194526_)))) + (##structure-type _self196775_)))) (declare (not safe)) (##unchecked-structure-set! - _self194526_ - __tmp210947 + _self196775_ + __tmp213297 '1 - __tmp210946 + __tmp213296 '#f)) - (let ((__tmp210949 + (let ((__tmp213299 (let () (declare (not safe)) - (##structure-type _self194526_)))) + (##structure-type _self196775_)))) (declare (not safe)) (##unchecked-structure-set! - _self194526_ + _self196775_ '1 '2 - __tmp210949 + __tmp213299 '#f)) - (let ((__tmp210951 + (let ((__tmp213301 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp210950 + (__tmp213300 (let () (declare (not safe)) - (##structure-type _self194526_)))) + (##structure-type _self196775_)))) (declare (not safe)) (##unchecked-structure-set! - _self194526_ - __tmp210951 + _self196775_ + __tmp213301 '3 - __tmp210950 + __tmp213300 '#f)) - (let ((__tmp210952 + (let ((__tmp213302 (let () (declare (not safe)) - (##structure-type _self194526_)))) + (##structure-type _self196775_)))) (declare (not safe)) (##unchecked-structure-set! - _self194526_ + _self196775_ '() '4 - __tmp210952 + __tmp213302 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self194526_ + _self196775_ '4 (let () (declare (not safe)) - (##vector-length _self194526_)))))) + (##vector-length _self196775_)))))) (let () (declare (not safe)) (bind-method! gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp210954 - (let ((__tmp210955 + (let ((__tmp213306 (list)) + (__tmp213304 + (let ((__tmp213305 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp210955 '())))) + (cons __tmp213305 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#meta-state-block::t 'meta-state-block - '#f + __tmp213306 '(ctx phi n code) - __tmp210954 + __tmp213304 '#f))) (define gxc#meta-state-block? (let () (declare (not safe)) - (make-struct-predicate gxc#meta-state-block::t))) + (make-class-predicate gxc#meta-state-block::t))) (define gxc#make-meta-state-block - (lambda _$args194401_ - (apply make-struct-instance gxc#meta-state-block::t _$args194401_))) + (lambda _$args196650_ + (apply make-instance gxc#meta-state-block::t _$args196650_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) - (make-struct-slot-accessor gxc#meta-state-block::t 'ctx))) + (make-class-slot-accessor gxc#meta-state-block::t 'ctx))) (define gxc#meta-state-block-phi (let () (declare (not safe)) - (make-struct-slot-accessor gxc#meta-state-block::t 'phi))) + (make-class-slot-accessor gxc#meta-state-block::t 'phi))) (define gxc#meta-state-block-n (let () (declare (not safe)) - (make-struct-slot-accessor gxc#meta-state-block::t 'n))) + (make-class-slot-accessor gxc#meta-state-block::t 'n))) (define gxc#meta-state-block-code (let () (declare (not safe)) - (make-struct-slot-accessor gxc#meta-state-block::t 'code))) + (make-class-slot-accessor gxc#meta-state-block::t 'code))) (define gxc#meta-state-block-ctx-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#meta-state-block::t 'ctx))) + (make-class-slot-mutator gxc#meta-state-block::t 'ctx))) (define gxc#meta-state-block-phi-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#meta-state-block::t 'phi))) + (make-class-slot-mutator gxc#meta-state-block::t 'phi))) (define gxc#meta-state-block-n-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#meta-state-block::t 'n))) + (make-class-slot-mutator gxc#meta-state-block::t 'n))) (define gxc#meta-state-block-code-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#meta-state-block::t 'code))) + (make-class-slot-mutator gxc#meta-state-block::t 'code))) (define gxc#&meta-state-block-ctx (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#meta-state-block::t 'ctx))) + (make-class-slot-unchecked-accessor gxc#meta-state-block::t 'ctx))) (define gxc#&meta-state-block-phi (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#meta-state-block::t 'phi))) + (make-class-slot-unchecked-accessor gxc#meta-state-block::t 'phi))) (define gxc#&meta-state-block-n (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#meta-state-block::t 'n))) + (make-class-slot-unchecked-accessor gxc#meta-state-block::t 'n))) (define gxc#&meta-state-block-code (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#meta-state-block::t 'code))) + (make-class-slot-unchecked-accessor gxc#meta-state-block::t 'code))) (define gxc#&meta-state-block-ctx-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#meta-state-block::t 'ctx))) + (make-class-slot-unchecked-mutator gxc#meta-state-block::t 'ctx))) (define gxc#&meta-state-block-phi-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#meta-state-block::t 'phi))) + (make-class-slot-unchecked-mutator gxc#meta-state-block::t 'phi))) (define gxc#&meta-state-block-n-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#meta-state-block::t 'n))) + (make-class-slot-unchecked-mutator gxc#meta-state-block::t 'n))) (define gxc#&meta-state-block-code-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#meta-state-block::t 'code))) + (make-class-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_state194360_ _phi194361_) - (let* ((_state194362194370_ _state194360_) - (_E194364194374_ + (lambda (_state196609_ _phi196610_) + (let* ((_state196611196619_ _state196609_) + (_E196613196623_ (lambda () - (error '"No clause matching" _state194362194370_))) - (_K194365194383_ - (lambda (_open194377_ _n194378_ _src194379_) + (error '"No clause matching" _state196611196619_))) + (_K196614196632_ + (lambda (_open196626_ _n196627_ _src196628_) (if (let () (declare (not safe)) - (table-ref _open194377_ _phi194361_ '#f)) + (table-ref _open196626_ _phi196610_ '#f)) '#f - (let ((_block-ref194381_ + (let ((_block-ref196630_ (string-append - _src194379_ + _src196628_ '"__" - (number->string _n194378_)))) + (number->string _n196627_)))) (##structure-set! - _state194360_ - (let () (declare (not safe)) (fx+ _n194378_ '1)) + _state196609_ + (let () (declare (not safe)) (fx+ _n196627_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp210956 - (let ((__tmp210957 + (let ((__tmp213307 + (let ((__tmp213308 (gx#current-expander-context))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp210957 - _phi194361_ - _n194378_ + __tmp213308 + _phi196610_ + _n196627_ '())))) (declare (not safe)) - (table-set! _open194377_ _phi194361_ __tmp210956)) - _block-ref194381_))))) + (table-set! _open196626_ _phi196610_ __tmp213307)) + _block-ref196630_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _state194362194370_ + _state196611196619_ 'gxc#meta-state::t)) - (let* ((_e194366194386_ + (let* ((_e196615196635_ (let () (declare (not safe)) (##unchecked-structure-ref - _state194362194370_ + _state196611196619_ '1 gxc#meta-state::t '#f))) - (_src194389_ _e194366194386_) - (_e194367194391_ + (_src196638_ _e196615196635_) + (_e196616196640_ (let () (declare (not safe)) (##unchecked-structure-ref - _state194362194370_ + _state196611196619_ '2 gxc#meta-state::t '#f))) - (_n194394_ _e194367194391_) - (_e194368194396_ + (_n196643_ _e196616196640_) + (_e196617196645_ (let () (declare (not safe)) (##unchecked-structure-ref - _state194362194370_ + _state196611196619_ '3 gxc#meta-state::t '#f))) - (_open194399_ _e194368194396_)) + (_open196648_ _e196617196645_)) (declare (not safe)) - (_K194365194383_ _open194399_ _n194394_ _src194389_)) - (let () (declare (not safe)) (_E194364194374_)))))) + (_K196614196632_ _open196648_ _n196643_ _src196638_)) + (let () (declare (not safe)) (_E196613196623_)))))) (define gxc#meta-state-add-phi! - (lambda (_state194354_ _phi194355_ _stx194356_) - (let ((_block194358_ - (let ((__tmp210958 + (lambda (_state196603_ _phi196604_ _stx196605_) + (let ((_block196607_ + (let ((__tmp213309 (##structure-ref - _state194354_ + _state196603_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (table-ref __tmp210958 _phi194355_ '#f)))) + (table-ref __tmp213309 _phi196604_ '#f)))) (##structure-set! - _block194358_ - (let ((__tmp210959 + _block196607_ + (let ((__tmp213310 (##structure-ref - _block194358_ + _block196607_ '4 gxc#meta-state-block::t '#f))) (declare (not safe)) - (cons _stx194356_ __tmp210959)) + (cons _stx196605_ __tmp213310)) '4 gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_state194349_) + (lambda (_state196598_) (##structure-set! - _state194349_ - (let ((__tmp210962 - (lambda (_g210963_ _block194351_ _r194352_) + _state196598_ + (let ((__tmp213313 + (lambda (_g213314_ _block196600_ _r196601_) (let () (declare (not safe)) - (cons _block194351_ _r194352_)))) - (__tmp210961 - (##structure-ref _state194349_ '4 gxc#meta-state::t '#f)) - (__tmp210960 - (##structure-ref _state194349_ '3 gxc#meta-state::t '#f))) + (cons _block196600_ _r196601_)))) + (__tmp213312 + (##structure-ref _state196598_ '4 gxc#meta-state::t '#f)) + (__tmp213311 + (##structure-ref _state196598_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp210962 __tmp210961 __tmp210960)) + (hash-fold __tmp213313 __tmp213312 __tmp213311)) '4 gxc#meta-state::t '#f) (##structure-set! - _state194349_ + _state196598_ (let () (declare (not safe)) (make-table 'test: eq?)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_state194301_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state194301_)) - (let ((__tmp210965 - (lambda (_block194303_ _r194304_) - (let* ((_block194305194314_ _block194303_) - (_E194307194318_ + (lambda (_state196550_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state196550_)) + (let ((__tmp213316 + (lambda (_block196552_ _r196553_) + (let* ((_block196554196563_ _block196552_) + (_E196556196567_ (lambda () (error '"No clause matching" - _block194305194314_))) - (_K194308194326_ - (lambda (_code194321_ - _n194322_ - _phi194323_ - _ctx194324_) + _block196554196563_))) + (_K196557196575_ + (lambda (_code196570_ + _n196571_ + _phi196572_ + _ctx196573_) (if (let () (declare (not safe)) - (null? _code194321_)) - _r194304_ - (let ((__tmp210966 - (let ((__tmp210967 - (let ((__tmp210968 - (let ((__tmp210969 - (let ((__tmp210970 + (null? _code196570_)) + _r196553_ + (let ((__tmp213317 + (let ((__tmp213318 + (let ((__tmp213319 + (let ((__tmp213320 + (let ((__tmp213321 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210971 (reverse _code194321_))) + (let ((__tmp213322 (reverse _code196570_))) (declare (not safe)) - (cons '%#begin __tmp210971)))) + (cons '%#begin __tmp213322)))) (declare (not safe)) - (cons __tmp210970 '())))) + (cons __tmp213321 '())))) (declare (not safe)) - (cons _n194322_ __tmp210969)))) + (cons _n196571_ __tmp213320)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _phi194323_ - __tmp210968)))) + (cons _phi196572_ + __tmp213319)))) (declare (not safe)) - (cons _ctx194324_ __tmp210967)))) + (cons _ctx196573_ __tmp213318)))) (declare (not safe)) - (cons __tmp210966 _r194304_)))))) + (cons __tmp213317 _r196553_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _block194305194314_ + _block196554196563_ 'gxc#meta-state-block::t)) - (let* ((_e194309194329_ + (let* ((_e196558196578_ (let () (declare (not safe)) (##unchecked-structure-ref - _block194305194314_ + _block196554196563_ '1 gxc#meta-state-block::t '#f))) - (_ctx194332_ _e194309194329_) - (_e194310194334_ + (_ctx196581_ _e196558196578_) + (_e196559196583_ (let () (declare (not safe)) (##unchecked-structure-ref - _block194305194314_ + _block196554196563_ '2 gxc#meta-state-block::t '#f))) - (_phi194337_ _e194310194334_) - (_e194311194339_ + (_phi196586_ _e196559196583_) + (_e196560196588_ (let () (declare (not safe)) (##unchecked-structure-ref - _block194305194314_ + _block196554196563_ '3 gxc#meta-state-block::t '#f))) - (_n194342_ _e194311194339_) - (_e194312194344_ + (_n196591_ _e196560196588_) + (_e196561196593_ (let () (declare (not safe)) (##unchecked-structure-ref - _block194305194314_ + _block196554196563_ '4 gxc#meta-state-block::t '#f))) - (_code194347_ _e194312194344_)) + (_code196596_ _e196561196593_)) (declare (not safe)) - (_K194308194326_ - _code194347_ - _n194342_ - _phi194337_ - _ctx194332_)) - (let () (declare (not safe)) (_E194307194318_)))))) - (__tmp210964 - (##structure-ref _state194301_ '4 gxc#meta-state::t '#f))) + (_K196557196575_ + _code196596_ + _n196591_ + _phi196586_ + _ctx196581_)) + (let () (declare (not safe)) (_E196556196567_)))))) + (__tmp213315 + (##structure-ref _state196550_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (foldl1 __tmp210965 '() __tmp210964)))) + (foldl1 __tmp213316 '() __tmp213315)))) (define gxc#collect-expression-refs - (lambda (_stx194297_) - (let ((_ht194299_ + (lambda (_stx196546_) + (let ((_ht196548_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (gxc#apply-collect-expression-refs _stx194297_ _ht194299_)) - _ht194299_))) + (gxc#apply-collect-expression-refs _stx196546_ _ht196548_)) + _ht196548_))) (define gxc#collect-refs-ref% - (lambda (_stx194240_ _ht194241_) - (let* ((_g194243194256_ - (lambda (_g194244194253_) + (lambda (_stx196489_ _ht196490_) + (let* ((_g196492196505_ + (lambda (_g196493196502_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g194244194253_)))) - (_g194242194294_ - (lambda (_g194244194259_) + _g196493196502_)))) + (_g196491196543_ + (lambda (_g196493196508_) (if (let () (declare (not safe)) - (gx#stx-pair? _g194244194259_)) - (let ((_e194248194261_ + (gx#stx-pair? _g196493196508_)) + (let ((_e196497196510_ (let () (declare (not safe)) - (gx#stx-e _g194244194259_)))) - (let ((_hd194247194264_ + (gx#stx-e _g196493196508_)))) + (let ((_hd196496196513_ (let () (declare (not safe)) - (##car _e194248194261_))) - (_tl194246194266_ + (##car _e196497196510_))) + (_tl196495196515_ (let () (declare (not safe)) - (##cdr _e194248194261_)))) + (##cdr _e196497196510_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194246194266_)) - (let ((_e194251194269_ + (gx#stx-pair? _tl196495196515_)) + (let ((_e196500196518_ (let () (declare (not safe)) - (gx#stx-e _tl194246194266_)))) - (let ((_hd194250194272_ + (gx#stx-e _tl196495196515_)))) + (let ((_hd196499196521_ (let () (declare (not safe)) - (##car _e194251194269_))) - (_tl194249194274_ + (##car _e196500196518_))) + (_tl196498196523_ (let () (declare (not safe)) - (##cdr _e194251194269_)))) + (##cdr _e196500196518_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl194249194274_)) - ((lambda (_L194277_) - (let* ((_bind194289_ + (gx#stx-null? _tl196498196523_)) + ((lambda (_L196526_) + (let* ((_bind196538_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L194277_))) - (_eid194291_ - (if _bind194289_ + _L196526_))) + (_eid196540_ + (if _bind196538_ (##structure-ref - _bind194289_ + _bind196538_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _L194277_))))) + _L196526_))))) (let () (declare (not safe)) (table-set! - _ht194241_ - _eid194291_ - _eid194291_)))) - _hd194250194272_) + _ht196490_ + _eid196540_ + _eid196540_)))) + _hd196499196521_) (let () (declare (not safe)) - (_g194243194256_ _g194244194259_))))) + (_g196492196505_ _g196493196508_))))) (let () (declare (not safe)) - (_g194243194256_ _g194244194259_))))) + (_g196492196505_ _g196493196508_))))) (let () (declare (not safe)) - (_g194243194256_ _g194244194259_)))))) + (_g196492196505_ _g196493196508_)))))) (declare (not safe)) - (_g194242194294_ _stx194240_)))) + (_g196491196543_ _stx196489_)))) (define gxc#collect-refs-setq% - (lambda (_stx194167_ _ht194168_) - (let* ((_g194170194187_ - (lambda (_g194171194184_) + (lambda (_stx196416_ _ht196417_) + (let* ((_g196419196436_ + (lambda (_g196420196433_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g194171194184_)))) - (_g194169194237_ - (lambda (_g194171194190_) + _g196420196433_)))) + (_g196418196486_ + (lambda (_g196420196439_) (if (let () (declare (not safe)) - (gx#stx-pair? _g194171194190_)) - (let ((_e194176194192_ + (gx#stx-pair? _g196420196439_)) + (let ((_e196425196441_ (let () (declare (not safe)) - (gx#stx-e _g194171194190_)))) - (let ((_hd194175194195_ + (gx#stx-e _g196420196439_)))) + (let ((_hd196424196444_ (let () (declare (not safe)) - (##car _e194176194192_))) - (_tl194174194197_ + (##car _e196425196441_))) + (_tl196423196446_ (let () (declare (not safe)) - (##cdr _e194176194192_)))) + (##cdr _e196425196441_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194174194197_)) - (let ((_e194179194200_ + (gx#stx-pair? _tl196423196446_)) + (let ((_e196428196449_ (let () (declare (not safe)) - (gx#stx-e _tl194174194197_)))) - (let ((_hd194178194203_ + (gx#stx-e _tl196423196446_)))) + (let ((_hd196427196452_ (let () (declare (not safe)) - (##car _e194179194200_))) - (_tl194177194205_ + (##car _e196428196449_))) + (_tl196426196454_ (let () (declare (not safe)) - (##cdr _e194179194200_)))) + (##cdr _e196428196449_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194177194205_)) - (let ((_e194182194208_ + (gx#stx-pair? _tl196426196454_)) + (let ((_e196431196457_ (let () (declare (not safe)) - (gx#stx-e _tl194177194205_)))) - (let ((_hd194181194211_ + (gx#stx-e _tl196426196454_)))) + (let ((_hd196430196460_ (let () (declare (not safe)) - (##car _e194182194208_))) - (_tl194180194213_ + (##car _e196431196457_))) + (_tl196429196462_ (let () (declare (not safe)) - (##cdr _e194182194208_)))) + (##cdr _e196431196457_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl194180194213_)) - ((lambda (_L194216_ _L194217_) - (let* ((_bind194232_ + _tl196429196462_)) + ((lambda (_L196465_ _L196466_) + (let* ((_bind196481_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L194217_))) - (_eid194234_ - (if _bind194232_ + _L196466_))) + (_eid196483_ + (if _bind196481_ (##structure-ref - _bind194232_ + _bind196481_ '1 gx#binding::t '#f) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L194217_))))) + (gx#stx-e _L196466_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (table-set! - _ht194168_ - _eid194234_ - _eid194234_)) + _ht196417_ + _eid196483_ + _eid196483_)) (let () (declare (not safe)) (gxc#compile-e__1 - _L194216_ - _ht194168_)))) - _hd194181194211_ - _hd194178194203_) + _L196465_ + _ht196417_)))) + _hd196430196460_ + _hd196427196452_) (let () (declare (not safe)) - (_g194170194187_ - _g194171194190_))))) + (_g196419196436_ + _g196420196439_))))) (let () (declare (not safe)) - (_g194170194187_ _g194171194190_))))) + (_g196419196436_ _g196420196439_))))) (let () (declare (not safe)) - (_g194170194187_ _g194171194190_))))) + (_g196419196436_ _g196420196439_))))) (let () (declare (not safe)) - (_g194170194187_ _g194171194190_)))))) + (_g196419196436_ _g196420196439_)))))) (declare (not safe)) - (_g194169194237_ _stx194167_)))) + (_g196418196486_ _stx196416_)))) (define gxc#find-runtime-begin% - (lambda (_stx194129_) - (let* ((_g194131194141_ - (lambda (_g194132194138_) + (lambda (_stx196378_) + (let* ((_g196380196390_ + (lambda (_g196381196387_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g194132194138_)))) - (_g194130194164_ - (lambda (_g194132194144_) + _g196381196387_)))) + (_g196379196413_ + (lambda (_g196381196393_) (if (let () (declare (not safe)) - (gx#stx-pair? _g194132194144_)) - (let ((_e194136194146_ + (gx#stx-pair? _g196381196393_)) + (let ((_e196385196395_ (let () (declare (not safe)) - (gx#stx-e _g194132194144_)))) - (let ((_hd194135194149_ + (gx#stx-e _g196381196393_)))) + (let ((_hd196384196398_ (let () (declare (not safe)) - (##car _e194136194146_))) - (_tl194134194151_ + (##car _e196385196395_))) + (_tl196383196400_ (let () (declare (not safe)) - (##cdr _e194136194146_)))) - ((lambda (_L194154_) + (##cdr _e196385196395_)))) + ((lambda (_L196403_) (let () (declare (not safe)) - (ormap1 gxc#compile-e _L194154_))) - _tl194134194151_))) + (ormap1 gxc#compile-e _L196403_))) + _tl196383196400_))) (let () (declare (not safe)) - (_g194131194141_ _g194132194144_)))))) + (_g196380196390_ _g196381196393_)))))) (declare (not safe)) - (_g194130194164_ _stx194129_)))) + (_g196379196413_ _stx196378_)))) (define gxc#find-lambda-expression-begin% - (lambda (_stx194091_) - (let* ((_g194093194103_ - (lambda (_g194094194100_) + (lambda (_stx196340_) + (let* ((_g196342196352_ + (lambda (_g196343196349_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g194094194100_)))) - (_g194092194126_ - (lambda (_g194094194106_) + _g196343196349_)))) + (_g196341196375_ + (lambda (_g196343196355_) (if (let () (declare (not safe)) - (gx#stx-pair? _g194094194106_)) - (let ((_e194098194108_ + (gx#stx-pair? _g196343196355_)) + (let ((_e196347196357_ (let () (declare (not safe)) - (gx#stx-e _g194094194106_)))) - (let ((_hd194097194111_ + (gx#stx-e _g196343196355_)))) + (let ((_hd196346196360_ (let () (declare (not safe)) - (##car _e194098194108_))) - (_tl194096194113_ + (##car _e196347196357_))) + (_tl196345196362_ (let () (declare (not safe)) - (##cdr _e194098194108_)))) - ((lambda (_L194116_) - (let ((__tmp210972 + (##cdr _e196347196357_)))) + ((lambda (_L196365_) + (let ((__tmp213323 (let () (declare (not safe)) - (last _L194116_)))) + (last _L196365_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp210972))) - _tl194096194113_))) + (gxc#compile-e__0 __tmp213323))) + _tl196345196362_))) (let () (declare (not safe)) - (_g194093194103_ _g194094194106_)))))) + (_g196342196352_ _g196343196355_)))))) (declare (not safe)) - (_g194092194126_ _stx194091_)))) + (_g196341196375_ _stx196340_)))) (define gxc#find-lambda-expression-begin-annotation% - (lambda (_stx194024_) - (let* ((_g194026194043_ - (lambda (_g194027194040_) + (lambda (_stx196273_) + (let* ((_g196275196292_ + (lambda (_g196276196289_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g194027194040_)))) - (_g194025194088_ - (lambda (_g194027194046_) + _g196276196289_)))) + (_g196274196337_ + (lambda (_g196276196295_) (if (let () (declare (not safe)) - (gx#stx-pair? _g194027194046_)) - (let ((_e194032194048_ + (gx#stx-pair? _g196276196295_)) + (let ((_e196281196297_ (let () (declare (not safe)) - (gx#stx-e _g194027194046_)))) - (let ((_hd194031194051_ + (gx#stx-e _g196276196295_)))) + (let ((_hd196280196300_ (let () (declare (not safe)) - (##car _e194032194048_))) - (_tl194030194053_ + (##car _e196281196297_))) + (_tl196279196302_ (let () (declare (not safe)) - (##cdr _e194032194048_)))) + (##cdr _e196281196297_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194030194053_)) - (let ((_e194035194056_ + (gx#stx-pair? _tl196279196302_)) + (let ((_e196284196305_ (let () (declare (not safe)) - (gx#stx-e _tl194030194053_)))) - (let ((_hd194034194059_ + (gx#stx-e _tl196279196302_)))) + (let ((_hd196283196308_ (let () (declare (not safe)) - (##car _e194035194056_))) - (_tl194033194061_ + (##car _e196284196305_))) + (_tl196282196310_ (let () (declare (not safe)) - (##cdr _e194035194056_)))) + (##cdr _e196284196305_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl194033194061_)) - (let ((_e194038194064_ + (gx#stx-pair? _tl196282196310_)) + (let ((_e196287196313_ (let () (declare (not safe)) - (gx#stx-e _tl194033194061_)))) - (let ((_hd194037194067_ + (gx#stx-e _tl196282196310_)))) + (let ((_hd196286196316_ (let () (declare (not safe)) - (##car _e194038194064_))) - (_tl194036194069_ + (##car _e196287196313_))) + (_tl196285196318_ (let () (declare (not safe)) - (##cdr _e194038194064_)))) + (##cdr _e196287196313_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl194036194069_)) - ((lambda (_L194072_ _L194073_) + _tl196285196318_)) + ((lambda (_L196321_ _L196322_) (let () (declare (not safe)) (gxc#compile-e__0 - _L194072_))) - _hd194037194067_ - _hd194034194059_) + _L196321_))) + _hd196286196316_ + _hd196283196308_) (let () (declare (not safe)) - (_g194026194043_ - _g194027194046_))))) + (_g196275196292_ + _g196276196295_))))) (let () (declare (not safe)) - (_g194026194043_ _g194027194046_))))) + (_g196275196292_ _g196276196295_))))) (let () (declare (not safe)) - (_g194026194043_ _g194027194046_))))) + (_g196275196292_ _g196276196295_))))) (let () (declare (not safe)) - (_g194026194043_ _g194027194046_)))))) + (_g196275196292_ _g196276196295_)))))) (declare (not safe)) - (_g194025194088_ _stx194024_)))) + (_g196274196337_ _stx196273_)))) (define gxc#find-lambda-expression-let-values% - (lambda (_stx193957_) - (let* ((_g193959193976_ - (lambda (_g193960193973_) + (lambda (_stx196206_) + (let* ((_g196208196225_ + (lambda (_g196209196222_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g193960193973_)))) - (_g193958194021_ - (lambda (_g193960193979_) + _g196209196222_)))) + (_g196207196270_ + (lambda (_g196209196228_) (if (let () (declare (not safe)) - (gx#stx-pair? _g193960193979_)) - (let ((_e193965193981_ + (gx#stx-pair? _g196209196228_)) + (let ((_e196214196230_ (let () (declare (not safe)) - (gx#stx-e _g193960193979_)))) - (let ((_hd193964193984_ + (gx#stx-e _g196209196228_)))) + (let ((_hd196213196233_ (let () (declare (not safe)) - (##car _e193965193981_))) - (_tl193963193986_ + (##car _e196214196230_))) + (_tl196212196235_ (let () (declare (not safe)) - (##cdr _e193965193981_)))) + (##cdr _e196214196230_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193963193986_)) - (let ((_e193968193989_ + (gx#stx-pair? _tl196212196235_)) + (let ((_e196217196238_ (let () (declare (not safe)) - (gx#stx-e _tl193963193986_)))) - (let ((_hd193967193992_ + (gx#stx-e _tl196212196235_)))) + (let ((_hd196216196241_ (let () (declare (not safe)) - (##car _e193968193989_))) - (_tl193966193994_ + (##car _e196217196238_))) + (_tl196215196243_ (let () (declare (not safe)) - (##cdr _e193968193989_)))) + (##cdr _e196217196238_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193966193994_)) - (let ((_e193971193997_ + (gx#stx-pair? _tl196215196243_)) + (let ((_e196220196246_ (let () (declare (not safe)) - (gx#stx-e _tl193966193994_)))) - (let ((_hd193970194000_ + (gx#stx-e _tl196215196243_)))) + (let ((_hd196219196249_ (let () (declare (not safe)) - (##car _e193971193997_))) - (_tl193969194002_ + (##car _e196220196246_))) + (_tl196218196251_ (let () (declare (not safe)) - (##cdr _e193971193997_)))) + (##cdr _e196220196246_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl193969194002_)) - ((lambda (_L194005_ _L194006_) + _tl196218196251_)) + ((lambda (_L196254_ _L196255_) (let () (declare (not safe)) (gxc#compile-e__0 - _L194005_))) - _hd193970194000_ - _hd193967193992_) + _L196254_))) + _hd196219196249_ + _hd196216196241_) (let () (declare (not safe)) - (_g193959193976_ - _g193960193979_))))) + (_g196208196225_ + _g196209196228_))))) (let () (declare (not safe)) - (_g193959193976_ _g193960193979_))))) + (_g196208196225_ _g196209196228_))))) (let () (declare (not safe)) - (_g193959193976_ _g193960193979_))))) + (_g196208196225_ _g196209196228_))))) (let () (declare (not safe)) - (_g193959193976_ _g193960193979_)))))) + (_g196208196225_ _g196209196228_)))))) (declare (not safe)) - (_g193958194021_ _stx193957_)))) - (define gxc#count-values-single% (lambda (_stx193955_) '1)) + (_g196207196270_ _stx196206_)))) + (define gxc#count-values-single% (lambda (_stx196204_) '1)) (define gxc#count-values-begin% - (lambda (_stx193873_) - (let* ((_g193875193894_ - (lambda (_g193876193891_) + (lambda (_stx196122_) + (let* ((_g196124196143_ + (lambda (_g196125196140_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g193876193891_)))) - (_g193874193952_ - (lambda (_g193876193897_) + _g196125196140_)))) + (_g196123196201_ + (lambda (_g196125196146_) (if (let () (declare (not safe)) - (gx#stx-pair? _g193876193897_)) - (let ((_e193880193899_ + (gx#stx-pair? _g196125196146_)) + (let ((_e196129196148_ (let () (declare (not safe)) - (gx#stx-e _g193876193897_)))) - (let ((_hd193879193902_ + (gx#stx-e _g196125196146_)))) + (let ((_hd196128196151_ (let () (declare (not safe)) - (##car _e193880193899_))) - (_tl193878193904_ + (##car _e196129196148_))) + (_tl196127196153_ (let () (declare (not safe)) - (##cdr _e193880193899_)))) + (##cdr _e196129196148_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl193878193904_)) - (let ((_g210973_ + (gx#stx-pair/null? _tl196127196153_)) + (let ((_g213324_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl193878193904_ + _tl196127196153_ '0)))) (begin - (let ((_g210974_ + (let ((_g213325_ (let () (declare (not safe)) - (if (##values? _g210973_) - (##vector-length _g210973_) + (if (##values? _g213324_) + (##vector-length _g213324_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g210974_ 2))) + (##fx= _g213325_ 2))) (error "Context expects 2 values" - _g210974_))) - (let ((_target193881193907_ + _g213325_))) + (let ((_target196130196156_ (let () (declare (not safe)) - (##vector-ref _g210973_ 0))) - (_tl193883193909_ + (##vector-ref _g213324_ 0))) + (_tl196132196158_ (let () (declare (not safe)) - (##vector-ref _g210973_ 1)))) + (##vector-ref _g213324_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl193883193909_)) - (letrec ((_loop193884193912_ - (lambda (_hd193882193915_ - _expr193888193917_) + (gx#stx-null? _tl196132196158_)) + (letrec ((_loop196133196161_ + (lambda (_hd196131196164_ + _expr196137196166_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd193882193915_)) - (let ((_e193885193920_ + _hd196131196164_)) + (let ((_e196134196169_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd193882193915_)))) - (let ((_lp-hd193886193923_ + (gx#stx-e _hd196131196164_)))) + (let ((_lp-hd196135196172_ (let () (declare (not safe)) - (##car _e193885193920_))) - (_lp-tl193887193925_ + (##car _e196134196169_))) + (_lp-tl196136196174_ (let () (declare (not safe)) - (##cdr _e193885193920_)))) - (let ((__tmp210978 + (##cdr _e196134196169_)))) + (let ((__tmp213329 (let () (declare (not safe)) - (cons _lp-hd193886193923_ _expr193888193917_)))) + (cons _lp-hd196135196172_ _expr196137196166_)))) (declare (not safe)) - (_loop193884193912_ _lp-tl193887193925_ __tmp210978)))) - (let ((_expr193889193928_ (reverse _expr193888193917_))) - ((lambda (_L193931_) - (let ((__tmp210975 - (let ((__tmp210976 - (let ((__tmp210977 - (lambda (_g193944193947_ - _g193945193949_) + (_loop196133196161_ _lp-tl196136196174_ __tmp213329)))) + (let ((_expr196138196177_ (reverse _expr196137196166_))) + ((lambda (_L196180_) + (let ((__tmp213326 + (let ((__tmp213327 + (let ((__tmp213328 + (lambda (_g196193196196_ + _g196194196198_) (let () (declare (not safe)) - (cons _g193944193947_ - _g193945193949_))))) + (cons _g196193196196_ + _g196194196198_))))) (declare (not safe)) - (foldr1 __tmp210977 '() _L193931_)))) + (foldr1 __tmp213328 '() _L196180_)))) (declare (not safe)) - (last __tmp210976)))) + (last __tmp213327)))) (declare (not safe)) - (gxc#compile-e__0 __tmp210975))) - _expr193889193928_)))))) + (gxc#compile-e__0 __tmp213326))) + _expr196138196177_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop193884193912_ - _target193881193907_ + (_loop196133196161_ + _target196130196156_ '()))) (let () (declare (not safe)) - (_g193875193894_ - _g193876193897_)))))) + (_g196124196143_ + _g196125196146_)))))) (let () (declare (not safe)) - (_g193875193894_ _g193876193897_))))) + (_g196124196143_ _g196125196146_))))) (let () (declare (not safe)) - (_g193875193894_ _g193876193897_)))))) + (_g196124196143_ _g196125196146_)))))) (declare (not safe)) - (_g193874193952_ _stx193873_)))) + (_g196123196201_ _stx196122_)))) (define gxc#count-values-begin-annotation% - (lambda (_stx193806_) - (let* ((_g193808193825_ - (lambda (_g193809193822_) + (lambda (_stx196055_) + (let* ((_g196057196074_ + (lambda (_g196058196071_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g193809193822_)))) - (_g193807193870_ - (lambda (_g193809193828_) + _g196058196071_)))) + (_g196056196119_ + (lambda (_g196058196077_) (if (let () (declare (not safe)) - (gx#stx-pair? _g193809193828_)) - (let ((_e193814193830_ + (gx#stx-pair? _g196058196077_)) + (let ((_e196063196079_ (let () (declare (not safe)) - (gx#stx-e _g193809193828_)))) - (let ((_hd193813193833_ + (gx#stx-e _g196058196077_)))) + (let ((_hd196062196082_ (let () (declare (not safe)) - (##car _e193814193830_))) - (_tl193812193835_ + (##car _e196063196079_))) + (_tl196061196084_ (let () (declare (not safe)) - (##cdr _e193814193830_)))) + (##cdr _e196063196079_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193812193835_)) - (let ((_e193817193838_ + (gx#stx-pair? _tl196061196084_)) + (let ((_e196066196087_ (let () (declare (not safe)) - (gx#stx-e _tl193812193835_)))) - (let ((_hd193816193841_ + (gx#stx-e _tl196061196084_)))) + (let ((_hd196065196090_ (let () (declare (not safe)) - (##car _e193817193838_))) - (_tl193815193843_ + (##car _e196066196087_))) + (_tl196064196092_ (let () (declare (not safe)) - (##cdr _e193817193838_)))) + (##cdr _e196066196087_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193815193843_)) - (let ((_e193820193846_ + (gx#stx-pair? _tl196064196092_)) + (let ((_e196069196095_ (let () (declare (not safe)) - (gx#stx-e _tl193815193843_)))) - (let ((_hd193819193849_ + (gx#stx-e _tl196064196092_)))) + (let ((_hd196068196098_ (let () (declare (not safe)) - (##car _e193820193846_))) - (_tl193818193851_ + (##car _e196069196095_))) + (_tl196067196100_ (let () (declare (not safe)) - (##cdr _e193820193846_)))) + (##cdr _e196069196095_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl193818193851_)) - ((lambda (_L193854_ _L193855_) + _tl196067196100_)) + ((lambda (_L196103_ _L196104_) (let () (declare (not safe)) (gxc#compile-e__0 - _L193854_))) - _hd193819193849_ - _hd193816193841_) + _L196103_))) + _hd196068196098_ + _hd196065196090_) (let () (declare (not safe)) - (_g193808193825_ - _g193809193828_))))) + (_g196057196074_ + _g196058196077_))))) (let () (declare (not safe)) - (_g193808193825_ _g193809193828_))))) + (_g196057196074_ _g196058196077_))))) (let () (declare (not safe)) - (_g193808193825_ _g193809193828_))))) + (_g196057196074_ _g196058196077_))))) (let () (declare (not safe)) - (_g193808193825_ _g193809193828_)))))) + (_g196057196074_ _g196058196077_)))))) (declare (not safe)) - (_g193807193870_ _stx193806_)))) + (_g196056196119_ _stx196055_)))) (define gxc#count-values-let-values% - (lambda (_stx193739_) - (let* ((_g193741193758_ - (lambda (_g193742193755_) + (lambda (_stx195988_) + (let* ((_g195990196007_ + (lambda (_g195991196004_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g193742193755_)))) - (_g193740193803_ - (lambda (_g193742193761_) + _g195991196004_)))) + (_g195989196052_ + (lambda (_g195991196010_) (if (let () (declare (not safe)) - (gx#stx-pair? _g193742193761_)) - (let ((_e193747193763_ + (gx#stx-pair? _g195991196010_)) + (let ((_e195996196012_ (let () (declare (not safe)) - (gx#stx-e _g193742193761_)))) - (let ((_hd193746193766_ + (gx#stx-e _g195991196010_)))) + (let ((_hd195995196015_ (let () (declare (not safe)) - (##car _e193747193763_))) - (_tl193745193768_ + (##car _e195996196012_))) + (_tl195994196017_ (let () (declare (not safe)) - (##cdr _e193747193763_)))) + (##cdr _e195996196012_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193745193768_)) - (let ((_e193750193771_ + (gx#stx-pair? _tl195994196017_)) + (let ((_e195999196020_ (let () (declare (not safe)) - (gx#stx-e _tl193745193768_)))) - (let ((_hd193749193774_ + (gx#stx-e _tl195994196017_)))) + (let ((_hd195998196023_ (let () (declare (not safe)) - (##car _e193750193771_))) - (_tl193748193776_ + (##car _e195999196020_))) + (_tl195997196025_ (let () (declare (not safe)) - (##cdr _e193750193771_)))) + (##cdr _e195999196020_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193748193776_)) - (let ((_e193753193779_ + (gx#stx-pair? _tl195997196025_)) + (let ((_e196002196028_ (let () (declare (not safe)) - (gx#stx-e _tl193748193776_)))) - (let ((_hd193752193782_ + (gx#stx-e _tl195997196025_)))) + (let ((_hd196001196031_ (let () (declare (not safe)) - (##car _e193753193779_))) - (_tl193751193784_ + (##car _e196002196028_))) + (_tl196000196033_ (let () (declare (not safe)) - (##cdr _e193753193779_)))) + (##cdr _e196002196028_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl193751193784_)) - ((lambda (_L193787_ _L193788_) + _tl196000196033_)) + ((lambda (_L196036_ _L196037_) (let () (declare (not safe)) (gxc#compile-e__0 - _L193787_))) - _hd193752193782_ - _hd193749193774_) + _L196036_))) + _hd196001196031_ + _hd195998196023_) (let () (declare (not safe)) - (_g193741193758_ - _g193742193761_))))) + (_g195990196007_ + _g195991196010_))))) (let () (declare (not safe)) - (_g193741193758_ _g193742193761_))))) + (_g195990196007_ _g195991196010_))))) (let () (declare (not safe)) - (_g193741193758_ _g193742193761_))))) + (_g195990196007_ _g195991196010_))))) (let () (declare (not safe)) - (_g193741193758_ _g193742193761_)))))) + (_g195990196007_ _g195991196010_)))))) (declare (not safe)) - (_g193740193803_ _stx193739_)))) + (_g195989196052_ _stx195988_)))) (define gxc#count-values-call% - (lambda (_stx193606_) - (let* ((___stx210070210071_ _stx193606_) - (_g193609193638_ + (lambda (_stx195855_) + (let* ((___stx212419212420_ _stx195855_) + (_g195858195887_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx210070210071_))))) - (let ((___kont210072210073_ - (lambda (_L193706_ _L193707_) - (length (let ((__tmp210979 - (lambda (_g193728193731_ _g193729193733_) + ___stx212419212420_))))) + (let ((___kont212421212422_ + (lambda (_L195955_ _L195956_) + (length (let ((__tmp213330 + (lambda (_g195977195980_ _g195978195982_) (let () (declare (not safe)) - (cons _g193728193731_ - _g193729193733_))))) + (cons _g195977195980_ + _g195978195982_))))) (declare (not safe)) - (foldr1 __tmp210979 '() _L193706_))))) - (___kont210076210077_ (lambda () '#f))) - (let ((___match210115210116_ - (lambda (_e193615193650_ - _hd193614193653_ - _tl193613193655_ - _e193618193658_ - _hd193617193661_ - _tl193616193663_ - _e193621193666_ - _hd193620193669_ - _tl193619193671_ - _e193624193674_ - _hd193623193677_ - _tl193622193679_ - ___splice210074210075_ - _target193625193682_ - _tl193627193684_) - (letrec ((_loop193628193687_ - (lambda (_hd193626193690_ _rand193632193692_) + (foldr1 __tmp213330 '() _L195955_))))) + (___kont212425212426_ (lambda () '#f))) + (let ((___match212464212465_ + (lambda (_e195864195899_ + _hd195863195902_ + _tl195862195904_ + _e195867195907_ + _hd195866195910_ + _tl195865195912_ + _e195870195915_ + _hd195869195918_ + _tl195868195920_ + _e195873195923_ + _hd195872195926_ + _tl195871195928_ + ___splice212423212424_ + _target195874195931_ + _tl195876195933_) + (letrec ((_loop195877195936_ + (lambda (_hd195875195939_ _rand195881195941_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd193626193690_)) - (let ((_e193629193695_ + (gx#stx-pair? _hd195875195939_)) + (let ((_e195878195944_ (let () (declare (not safe)) - (gx#stx-e _hd193626193690_)))) - (let ((_lp-tl193631193700_ + (gx#stx-e _hd195875195939_)))) + (let ((_lp-tl195880195949_ (let () (declare (not safe)) - (##cdr _e193629193695_))) - (_lp-hd193630193698_ + (##cdr _e195878195944_))) + (_lp-hd195879195947_ (let () (declare (not safe)) - (##car _e193629193695_)))) - (let ((__tmp210980 + (##car _e195878195944_)))) + (let ((__tmp213331 (let () (declare (not safe)) - (cons _lp-hd193630193698_ - _rand193632193692_)))) + (cons _lp-hd195879195947_ + _rand195881195941_)))) (declare (not safe)) - (_loop193628193687_ - _lp-tl193631193700_ - __tmp210980)))) - (let ((_rand193633193703_ - (reverse _rand193632193692_))) - (let ((_L193706_ _rand193633193703_) - (_L193707_ _hd193623193677_)) + (_loop195877195936_ + _lp-tl195880195949_ + __tmp213331)))) + (let ((_rand195882195952_ + (reverse _rand195881195941_))) + (let ((_L195955_ _rand195882195952_) + (_L195956_ _hd195872195926_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L193707_ + _L195956_ 'values)) - (___kont210072210073_ - _L193706_ - _L193707_) - (___kont210076210077_)))))))) + (___kont212421212422_ + _L195955_ + _L195956_) + (___kont212425212426_)))))))) (let () (declare (not safe)) - (_loop193628193687_ _target193625193682_ '())))))) + (_loop195877195936_ _target195874195931_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx210070210071_)) - (let ((_e193615193650_ + (gx#stx-pair? ___stx212419212420_)) + (let ((_e195864195899_ (let () (declare (not safe)) - (gx#stx-e ___stx210070210071_)))) - (let ((_tl193613193655_ + (gx#stx-e ___stx212419212420_)))) + (let ((_tl195862195904_ (let () (declare (not safe)) - (##cdr _e193615193650_))) - (_hd193614193653_ + (##cdr _e195864195899_))) + (_hd195863195902_ (let () (declare (not safe)) - (##car _e193615193650_)))) + (##car _e195864195899_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193613193655_)) - (let ((_e193618193658_ + (gx#stx-pair? _tl195862195904_)) + (let ((_e195867195907_ (let () (declare (not safe)) - (gx#stx-e _tl193613193655_)))) - (let ((_tl193616193663_ + (gx#stx-e _tl195862195904_)))) + (let ((_tl195865195912_ (let () (declare (not safe)) - (##cdr _e193618193658_))) - (_hd193617193661_ + (##cdr _e195867195907_))) + (_hd195866195910_ (let () (declare (not safe)) - (##car _e193618193658_)))) + (##car _e195867195907_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd193617193661_)) - (let ((_e193621193666_ + (gx#stx-pair? _hd195866195910_)) + (let ((_e195870195915_ (let () (declare (not safe)) - (gx#stx-e _hd193617193661_)))) - (let ((_tl193619193671_ + (gx#stx-e _hd195866195910_)))) + (let ((_tl195868195920_ (let () (declare (not safe)) - (##cdr _e193621193666_))) - (_hd193620193669_ + (##cdr _e195870195915_))) + (_hd195869195918_ (let () (declare (not safe)) - (##car _e193621193666_)))) + (##car _e195870195915_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd193620193669_)) + _hd195869195918_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd193620193669_)) + _hd195869195918_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl193619193671_)) - (let ((_e193624193674_ + _tl195868195920_)) + (let ((_e195873195923_ (let () (declare (not safe)) (gx#stx-e - _tl193619193671_)))) - (let ((_tl193622193679_ + _tl195868195920_)))) + (let ((_tl195871195928_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e193624193674_))) - (_hd193623193677_ - (let () (declare (not safe)) (##car _e193624193674_)))) + (##cdr _e195873195923_))) + (_hd195872195926_ + (let () (declare (not safe)) (##car _e195873195923_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl193622193679_)) + (gx#stx-null? _tl195871195928_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl193616193663_)) - (let ((___splice210074210075_ + (gx#stx-pair/null? _tl195865195912_)) + (let ((___splice212423212424_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl193616193663_ + _tl195865195912_ '0)))) - (let ((_tl193627193684_ + (let ((_tl195876195933_ (let () (declare (not safe)) - (##vector-ref ___splice210074210075_ '1))) - (_target193625193682_ + (##vector-ref ___splice212423212424_ '1))) + (_target195874195931_ (let () (declare (not safe)) - (##vector-ref ___splice210074210075_ '0)))) + (##vector-ref ___splice212423212424_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl193627193684_)) - (___match210115210116_ - _e193615193650_ - _hd193614193653_ - _tl193613193655_ - _e193618193658_ - _hd193617193661_ - _tl193616193663_ - _e193621193666_ - _hd193620193669_ - _tl193619193671_ - _e193624193674_ - _hd193623193677_ - _tl193622193679_ - ___splice210074210075_ - _target193625193682_ - _tl193627193684_) - (___kont210076210077_)))) - (___kont210076210077_)) - (___kont210076210077_)))) + (gx#stx-null? _tl195876195933_)) + (___match212464212465_ + _e195864195899_ + _hd195863195902_ + _tl195862195904_ + _e195867195907_ + _hd195866195910_ + _tl195865195912_ + _e195870195915_ + _hd195869195918_ + _tl195868195920_ + _e195873195923_ + _hd195872195926_ + _tl195871195928_ + ___splice212423212424_ + _target195874195931_ + _tl195876195933_) + (___kont212425212426_)))) + (___kont212425212426_)) + (___kont212425212426_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont210076210077_)) - (___kont210076210077_)) - (___kont210076210077_)))) - (___kont210076210077_)))) - (___kont210076210077_)))) - (___kont210076210077_))))))) + (___kont212425212426_)) + (___kont212425212426_)) + (___kont212425212426_)))) + (___kont212425212426_)))) + (___kont212425212426_)))) + (___kont212425212426_))))))) (define gxc#count-values-if% - (lambda (_stx193510_) - (let* ((_g193512193533_ - (lambda (_g193513193530_) + (lambda (_stx195759_) + (let* ((_g195761195782_ + (lambda (_g195762195779_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g193513193530_)))) - (_g193511193603_ - (lambda (_g193513193536_) + _g195762195779_)))) + (_g195760195852_ + (lambda (_g195762195785_) (if (let () (declare (not safe)) - (gx#stx-pair? _g193513193536_)) - (let ((_e193519193538_ + (gx#stx-pair? _g195762195785_)) + (let ((_e195768195787_ (let () (declare (not safe)) - (gx#stx-e _g193513193536_)))) - (let ((_hd193518193541_ + (gx#stx-e _g195762195785_)))) + (let ((_hd195767195790_ (let () (declare (not safe)) - (##car _e193519193538_))) - (_tl193517193543_ + (##car _e195768195787_))) + (_tl195766195792_ (let () (declare (not safe)) - (##cdr _e193519193538_)))) + (##cdr _e195768195787_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193517193543_)) - (let ((_e193522193546_ + (gx#stx-pair? _tl195766195792_)) + (let ((_e195771195795_ (let () (declare (not safe)) - (gx#stx-e _tl193517193543_)))) - (let ((_hd193521193549_ + (gx#stx-e _tl195766195792_)))) + (let ((_hd195770195798_ (let () (declare (not safe)) - (##car _e193522193546_))) - (_tl193520193551_ + (##car _e195771195795_))) + (_tl195769195800_ (let () (declare (not safe)) - (##cdr _e193522193546_)))) + (##cdr _e195771195795_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193520193551_)) - (let ((_e193525193554_ + (gx#stx-pair? _tl195769195800_)) + (let ((_e195774195803_ (let () (declare (not safe)) - (gx#stx-e _tl193520193551_)))) - (let ((_hd193524193557_ + (gx#stx-e _tl195769195800_)))) + (let ((_hd195773195806_ (let () (declare (not safe)) - (##car _e193525193554_))) - (_tl193523193559_ + (##car _e195774195803_))) + (_tl195772195808_ (let () (declare (not safe)) - (##cdr _e193525193554_)))) + (##cdr _e195774195803_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl193523193559_)) - (let ((_e193528193562_ + _tl195772195808_)) + (let ((_e195777195811_ (let () (declare (not safe)) (gx#stx-e - _tl193523193559_)))) - (let ((_hd193527193565_ + _tl195772195808_)))) + (let ((_hd195776195814_ (let () (declare (not safe)) - (##car _e193528193562_))) - (_tl193526193567_ + (##car _e195777195811_))) + (_tl195775195816_ (let () (declare (not safe)) - (##cdr _e193528193562_)))) + (##cdr _e195777195811_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl193526193567_)) - ((lambda (_L193570_ + _tl195775195816_)) + ((lambda (_L195819_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L193571_ - _L193572_) - (let ((_c1193589193591_ + _L195820_ + _L195821_) + (let ((_c1195838195840_ (let () (declare (not safe)) - (gxc#compile-e__0 _L193571_)))) - (if _c1193589193591_ - (let* ((_c1193594_ _c1193589193591_) - (_c2193595193597_ + (gxc#compile-e__0 _L195820_)))) + (if _c1195838195840_ + (let* ((_c1195843_ _c1195838195840_) + (_c2195844195846_ (let () (declare (not safe)) - (gxc#compile-e__0 _L193570_)))) - (if _c2193595193597_ - (let ((_c2193600_ _c2193595193597_)) - (if (fx= _c1193594_ _c2193600_) - _c1193594_ + (gxc#compile-e__0 _L195819_)))) + (if _c2195844195846_ + (let ((_c2195849_ _c2195844195846_)) + (if (fx= _c1195843_ _c2195849_) + _c1195843_ '#f)) '#f)) '#f))) - _hd193527193565_ - _hd193524193557_ - _hd193521193549_) + _hd195776195814_ + _hd195773195806_ + _hd195770195798_) (let () (declare (not safe)) - (_g193512193533_ _g193513193536_))))) + (_g195761195782_ _g195762195785_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g193512193533_ - _g193513193536_))))) + (_g195761195782_ + _g195762195785_))))) (let () (declare (not safe)) - (_g193512193533_ _g193513193536_))))) + (_g195761195782_ _g195762195785_))))) (let () (declare (not safe)) - (_g193512193533_ _g193513193536_))))) + (_g195761195782_ _g195762195785_))))) (let () (declare (not safe)) - (_g193512193533_ _g193513193536_)))))) + (_g195761195782_ _g195762195785_)))))) (declare (not safe)) - (_g193511193603_ _stx193510_))))))) + (_g195760195852_ _stx195759_))))))) diff --git a/src/bootstrap/gerbil/compiler/compile__1.scm b/src/bootstrap/gerbil/compiler/compile__1.scm index b31a5de58..04d6ebdfd 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]#_g211356_| + (define |gxc[1]#_g213707_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211358_| + (define |gxc[1]#_g213709_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211360_| + (define |gxc[1]#_g213711_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211367_| + (define |gxc[1]#_g213718_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211370_| + (define |gxc[1]#_g213721_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211373_| + (define |gxc[1]#_g213724_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211376_| + (define |gxc[1]#_g213727_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211383_| + (define |gxc[1]#_g213734_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211386_| + (define |gxc[1]#_g213737_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211389_| + (define |gxc[1]#_g213740_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211392_| + (define |gxc[1]#_g213743_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211399_| + (define |gxc[1]#_g213750_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211402_| + (define |gxc[1]#_g213753_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211405_| + (define |gxc[1]#_g213756_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211408_| + (define |gxc[1]#_g213759_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211415_| + (define |gxc[1]#_g213766_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211418_| + (define |gxc[1]#_g213769_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211421_| + (define |gxc[1]#_g213772_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211424_| + (define |gxc[1]#_g213775_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211426_| + (define |gxc[1]#_g213777_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211428_| + (define |gxc[1]#_g213779_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211430_| + (define |gxc[1]#_g213781_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211437_| + (define |gxc[1]#_g213788_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211440_| + (define |gxc[1]#_g213791_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211443_| + (define |gxc[1]#_g213794_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211446_| + (define |gxc[1]#_g213797_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211453_| + (define |gxc[1]#_g213804_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211456_| + (define |gxc[1]#_g213807_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211459_| + (define |gxc[1]#_g213810_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211462_| + (define |gxc[1]#_g213813_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211469_| + (define |gxc[1]#_g213820_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211472_| + (define |gxc[1]#_g213823_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211475_| + (define |gxc[1]#_g213826_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211478_| + (define |gxc[1]#_g213829_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211485_| + (define |gxc[1]#_g213836_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211488_| + (define |gxc[1]#_g213839_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211491_| + (define |gxc[1]#_g213842_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g211494_| + (define |gxc[1]#_g213845_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! @@ -268,105 +268,105 @@ '())) (begin (define |gxc[:0:]#do-compile-e| - (lambda (_$stx192670_) - (let* ((_g192674192696_ - (lambda (_g192675192692_) + (lambda (_$stx194919_) + (let* ((_g194923194945_ + (lambda (_g194924194941_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g192675192692_)))) - (_g192673192766_ - (lambda (_g192675192700_) + _g194924194941_)))) + (_g194922195015_ + (lambda (_g194924194949_) (if (let () (declare (not safe)) - (gx#stx-pair? _g192675192700_)) - (let ((_e192681192703_ + (gx#stx-pair? _g194924194949_)) + (let ((_e194930194952_ (let () (declare (not safe)) - (gx#syntax-e _g192675192700_)))) - (let ((_hd192680192707_ + (gx#syntax-e _g194924194949_)))) + (let ((_hd194929194956_ (let () (declare (not safe)) - (##car _e192681192703_))) - (_tl192679192710_ + (##car _e194930194952_))) + (_tl194928194959_ (let () (declare (not safe)) - (##cdr _e192681192703_)))) + (##cdr _e194930194952_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl192679192710_)) - (let ((_e192684192713_ + (gx#stx-pair? _tl194928194959_)) + (let ((_e194933194962_ (let () (declare (not safe)) - (gx#syntax-e _tl192679192710_)))) - (let ((_hd192683192717_ + (gx#syntax-e _tl194928194959_)))) + (let ((_hd194932194966_ (let () (declare (not safe)) - (##car _e192684192713_))) - (_tl192682192720_ + (##car _e194933194962_))) + (_tl194931194969_ (let () (declare (not safe)) - (##cdr _e192684192713_)))) + (##cdr _e194933194962_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl192682192720_)) - (let ((_e192687192723_ + (gx#stx-pair? _tl194931194969_)) + (let ((_e194936194972_ (let () (declare (not safe)) (gx#syntax-e - _tl192682192720_)))) - (let ((_hd192686192727_ + _tl194931194969_)))) + (let ((_hd194935194976_ (let () (declare (not safe)) - (##car _e192687192723_))) - (_tl192685192730_ + (##car _e194936194972_))) + (_tl194934194979_ (let () (declare (not safe)) - (##cdr _e192687192723_)))) + (##cdr _e194936194972_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl192685192730_)) - (let ((_e192690192733_ + _tl194934194979_)) + (let ((_e194939194982_ (let () (declare (not safe)) (gx#syntax-e - _tl192685192730_)))) - (let ((_hd192689192737_ + _tl194934194979_)))) + (let ((_hd194938194986_ (let () (declare (not safe)) - (##car _e192690192733_))) - (_tl192688192740_ + (##car _e194939194982_))) + (_tl194937194989_ (let () (declare (not safe)) - (##cdr _e192690192733_)))) + (##cdr _e194939194982_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl192688192740_)) - ((lambda (_L192743_ - _L192745_ - _L192746_) - (let ((__tmp211035 + _tl194937194989_)) + ((lambda (_L194992_ + _L194994_ + _L194995_) + (let ((__tmp213386 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp210981 - (let ((__tmp210982 - (let ((__tmp210983 - (let ((__tmp210997 - (let ((__tmp211032 - (let ((__tmp211034 + (__tmp213332 + (let ((__tmp213333 + (let ((__tmp213334 + (let ((__tmp213348 + (let ((__tmp213383 + (let ((__tmp213385 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd))) - (__tmp211033 + (__tmp213384 (let () (declare (not safe)) @@ -374,1254 +374,1254 @@ '#f '_)))) (declare (not safe)) - (cons __tmp211034 - __tmp211033))) - (__tmp210998 - (let ((__tmp210999 - (let ((__tmp211031 + (cons __tmp213385 + __tmp213384))) + (__tmp213349 + (let ((__tmp213350 + (let ((__tmp213382 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond))) - (__tmp211000 - (let ((__tmp211001 - (let ((__tmp211018 - (let ((__tmp211030 + (__tmp213351 + (let ((__tmp213352 + (let ((__tmp213369 + (let ((__tmp213381 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-get))) - (__tmp211019 - (let ((__tmp211028 - (let ((__tmp211029 + (__tmp213370 + (let ((__tmp213379 + (let ((__tmp213380 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'current-compile-methods)))) (declare (not safe)) - (cons __tmp211029 '()))) + (cons __tmp213380 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp211020 - (let ((__tmp211021 - (let ((__tmp211027 + (__tmp213371 + (let ((__tmp213372 + (let ((__tmp213378 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx-e))) - (__tmp211022 - (let ((__tmp211023 - (let ((__tmp211026 + (__tmp213373 + (let ((__tmp213374 + (let ((__tmp213377 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp211024 - (let ((__tmp211025 + (__tmp213375 + (let ((__tmp213376 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd)))) (declare (not safe)) - (cons __tmp211025 '())))) + (cons __tmp213376 '())))) (declare (not safe)) - (cons __tmp211026 __tmp211024)))) + (cons __tmp213377 __tmp213375)))) (declare (not safe)) - (cons __tmp211023 '())))) + (cons __tmp213374 '())))) (declare (not safe)) - (cons __tmp211027 __tmp211022)))) + (cons __tmp213378 __tmp213373)))) (declare (not safe)) - (cons __tmp211021 '())))) + (cons __tmp213372 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211028 - __tmp211020)))) + (cons __tmp213379 + __tmp213371)))) (declare (not safe)) - (cons __tmp211030 __tmp211019))) - (__tmp211002 - (let ((__tmp211017 + (cons __tmp213381 __tmp213370))) + (__tmp213353 + (let ((__tmp213368 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '=>))) - (__tmp211003 - (let ((__tmp211004 - (let ((__tmp211016 + (__tmp213354 + (let ((__tmp213355 + (let ((__tmp213367 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp211005 - (let ((__tmp211015 - (let () (declare (not safe)) (cons _L192745_ '()))) - (__tmp211006 - (let ((__tmp211008 - (let ((__tmp211014 + (__tmp213356 + (let ((__tmp213366 + (let () (declare (not safe)) (cons _L194994_ '()))) + (__tmp213357 + (let ((__tmp213359 + (let ((__tmp213365 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare))) - (__tmp211009 - (let ((__tmp211010 - (let ((__tmp211013 + (__tmp213360 + (let ((__tmp213361 + (let ((__tmp213364 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'not))) - (__tmp211011 - (let ((__tmp211012 + (__tmp213362 + (let ((__tmp213363 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'safe)))) (declare (not safe)) - (cons __tmp211012 '())))) + (cons __tmp213363 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211013 - __tmp211011)))) + (cons __tmp213364 + __tmp213362)))) (declare (not safe)) - (cons __tmp211010 '())))) + (cons __tmp213361 '())))) (declare (not safe)) - (cons __tmp211014 __tmp211009))) - (__tmp211007 + (cons __tmp213365 __tmp213360))) + (__tmp213358 (let () (declare (not safe)) - (cons _L192743_ '())))) + (cons _L194992_ '())))) (declare (not safe)) - (cons __tmp211008 __tmp211007)))) + (cons __tmp213359 __tmp213358)))) (declare (not safe)) - (cons __tmp211015 __tmp211006)))) + (cons __tmp213366 __tmp213357)))) (declare (not safe)) - (cons __tmp211016 __tmp211005)))) + (cons __tmp213367 __tmp213356)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211004 '())))) + (cons __tmp213355 '())))) (declare (not safe)) - (cons __tmp211017 __tmp211003)))) + (cons __tmp213368 __tmp213354)))) (declare (not safe)) - (cons __tmp211018 __tmp211002)))) + (cons __tmp213369 __tmp213353)))) (declare (not safe)) - (cons __tmp211001 '())))) + (cons __tmp213352 '())))) (declare (not safe)) - (cons __tmp211031 __tmp211000)))) + (cons __tmp213382 __tmp213351)))) (declare (not safe)) - (cons __tmp210999 '())))) + (cons __tmp213350 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211032 __tmp210998))) - (__tmp210984 - (let ((__tmp210985 - (let ((__tmp210996 + (cons __tmp213383 __tmp213349))) + (__tmp213335 + (let ((__tmp213336 + (let ((__tmp213347 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp210986 - (let ((__tmp210987 + (__tmp213337 + (let ((__tmp213338 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp210995 + (let ((__tmp213346 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'raise-compile-error))) - (__tmp210988 - (let ((__tmp210989 - (let ((__tmp210990 - (let ((__tmp210991 - (let ((__tmp210994 + (__tmp213339 + (let ((__tmp213340 + (let ((__tmp213341 + (let ((__tmp213342 + (let ((__tmp213345 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp210992 - (let ((__tmp210993 + (__tmp213343 + (let ((__tmp213344 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd)))) (declare (not safe)) - (cons __tmp210993 '())))) + (cons __tmp213344 '())))) (declare (not safe)) - (cons __tmp210994 __tmp210992)))) + (cons __tmp213345 __tmp213343)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210991 '())))) + (cons __tmp213342 '())))) (declare (not safe)) - (cons _L192746_ __tmp210990)))) + (cons _L194995_ __tmp213341)))) (declare (not safe)) (cons '"Cannot compile; missing method" - __tmp210989)))) + __tmp213340)))) (declare (not safe)) - (cons __tmp210995 __tmp210988)))) + (cons __tmp213346 __tmp213339)))) (declare (not safe)) - (cons __tmp210987 '())))) + (cons __tmp213338 '())))) (declare (not safe)) - (cons __tmp210996 __tmp210986)))) + (cons __tmp213347 __tmp213337)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp210985 '())))) + (cons __tmp213336 '())))) (declare (not safe)) - (cons __tmp210997 __tmp210984)))) + (cons __tmp213348 __tmp213335)))) (declare (not safe)) - (cons '() __tmp210983)))) + (cons '() __tmp213334)))) (declare (not safe)) - (cons _L192746_ __tmp210982)))) + (cons _L194995_ __tmp213333)))) (declare (not safe)) - (cons __tmp211035 __tmp210981))) - _hd192689192737_ - _hd192686192727_ - _hd192683192717_) - (_g192674192696_ _g192675192700_)))) + (cons __tmp213386 __tmp213332))) + _hd194938194986_ + _hd194935194976_ + _hd194932194966_) + (_g194923194945_ _g194924194949_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g192674192696_ - _g192675192700_)))) - (_g192674192696_ _g192675192700_)))) - (_g192674192696_ _g192675192700_)))) - (_g192674192696_ _g192675192700_))))) - (_g192673192766_ _$stx192670_)))) + (_g194923194945_ + _g194924194949_)))) + (_g194923194945_ _g194924194949_)))) + (_g194923194945_ _g194924194949_)))) + (_g194923194945_ _g194924194949_))))) + (_g194922195015_ _$stx194919_)))) (define |gxc[:0:]#defcompile-method| - (lambda (_$stx192770_) - (let* ((___stx208694208695_ _$stx192770_) - (_g192776192856_ + (lambda (_$stx195019_) + (let* ((___stx211043211044_ _$stx195019_) + (_g195025195105_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx208694208695_))))) - (let ((___kont208697208698_ - (lambda (_L193152_ _L193154_ _L193155_ _L193156_) - (let ((__tmp211036 - (let ((__tmp211037 - (let ((__tmp211038 + ___stx211043211044_))))) + (let ((___kont211046211047_ + (lambda (_L195401_ _L195403_ _L195404_ _L195405_) + (let ((__tmp213387 + (let ((__tmp213388 + (let ((__tmp213389 (let () (declare (not safe)) - (cons _L193154_ '())))) + (cons _L195403_ '())))) (declare (not safe)) - (cons __tmp211038 _L193152_)))) + (cons __tmp213389 _L195401_)))) (declare (not safe)) - (cons _L193155_ __tmp211037)))) + (cons _L195404_ __tmp213388)))) (declare (not safe)) - (cons _L193156_ __tmp211036)))) - (___kont208699208700_ - (lambda (_L193064_ _L193066_ _L193067_ _L193068_) - (let ((__tmp211075 + (cons _L195405_ __tmp213387)))) + (___kont211048211049_ + (lambda (_L195313_ _L195315_ _L195316_ _L195317_) + (let ((__tmp213426 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp211039 - (let ((__tmp211040 - (let ((__tmp211041 - (let ((__tmp211074 + (__tmp213390 + (let ((__tmp213391 + (let ((__tmp213392 + (let ((__tmp213425 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'delay))) - (__tmp211042 - (let ((__tmp211043 - (let ((__tmp211073 + (__tmp213393 + (let ((__tmp213394 + (let ((__tmp213424 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp211044 - (let ((__tmp211068 - (let ((__tmp211072 + (__tmp213395 + (let ((__tmp213419 + (let ((__tmp213423 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp211069 - (let ((__tmp211070 - (let ((__tmp211071 + (__tmp213420 + (let ((__tmp213421 + (let ((__tmp213422 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-hash-table-eq)))) (declare (not safe)) - (cons __tmp211071 '())))) + (cons __tmp213422 '())))) (declare (not safe)) - (cons __tmp211070 '())))) + (cons __tmp213421 '())))) (declare (not safe)) - (cons __tmp211072 __tmp211069))) - (__tmp211045 - (let ((__tmp211059 - (lambda (_g193095193101_ _g193096193104_) - (let ((__tmp211060 - (let ((__tmp211067 + (cons __tmp213423 __tmp213420))) + (__tmp213396 + (let ((__tmp213410 + (lambda (_g195344195350_ _g195345195353_) + (let ((__tmp213411 + (let ((__tmp213418 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-copy!))) - (__tmp211061 - (let ((__tmp211066 + (__tmp213412 + (let ((__tmp213417 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp211062 - (let ((__tmp211063 + (__tmp213413 + (let ((__tmp213414 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp211065 + (let ((__tmp213416 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp211064 + (__tmp213415 (let () (declare (not safe)) - (cons _g193095193101_ '())))) + (cons _g195344195350_ '())))) (declare (not safe)) - (cons __tmp211065 __tmp211064)))) + (cons __tmp213416 __tmp213415)))) (declare (not safe)) - (cons __tmp211063 '())))) + (cons __tmp213414 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211066 - __tmp211062)))) + (cons __tmp213417 + __tmp213413)))) (declare (not safe)) - (cons __tmp211067 __tmp211061)))) + (cons __tmp213418 __tmp213412)))) (declare (not safe)) - (cons __tmp211060 _g193096193104_)))) - (__tmp211046 + (cons __tmp213411 _g195345195353_)))) + (__tmp213397 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L193064_ - _L193066_)) - (let ((__tmp211049 - (lambda (_g193097193107_ - _g193098193110_ - _g193099193112_) - (let ((__tmp211050 - (let ((__tmp211058 + _L195313_ + _L195315_)) + (let ((__tmp213400 + (lambda (_g195346195356_ + _g195347195359_ + _g195348195361_) + (let ((__tmp213401 + (let ((__tmp213409 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp211051 - (let ((__tmp211057 + (__tmp213402 + (let ((__tmp213408 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp211052 - (let ((__tmp211054 - (let ((__tmp211056 + (__tmp213403 + (let ((__tmp213405 + (let ((__tmp213407 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp211055 + (__tmp213406 (let () (declare (not safe)) - (cons _g193098193110_ '())))) + (cons _g195347195359_ '())))) (declare (not safe)) - (cons __tmp211056 __tmp211055))) - (__tmp211053 + (cons __tmp213407 __tmp213406))) + (__tmp213404 (let () (declare (not safe)) - (cons _g193097193107_ '())))) + (cons _g195346195356_ '())))) (declare (not safe)) - (cons __tmp211054 __tmp211053)))) + (cons __tmp213405 __tmp213404)))) (declare (not safe)) - (cons __tmp211057 __tmp211052)))) + (cons __tmp213408 __tmp213403)))) (declare (not safe)) - (cons __tmp211058 __tmp211051)))) + (cons __tmp213409 __tmp213402)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211050 - _g193099193112_)))) - (__tmp211047 - (let ((__tmp211048 + (cons __tmp213401 + _g195348195361_)))) + (__tmp213398 + (let ((__tmp213399 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl)))) (declare (not safe)) - (cons __tmp211048 '())))) + (cons __tmp213399 '())))) (declare (not safe)) - (foldr2 __tmp211049 - __tmp211047 - _L193064_ - _L193066_))))) + (foldr2 __tmp213400 + __tmp213398 + _L195313_ + _L195315_))))) (declare (not safe)) - (foldr1 __tmp211059 __tmp211046 _L193067_)))) + (foldr1 __tmp213410 __tmp213397 _L195316_)))) (declare (not safe)) - (cons __tmp211068 __tmp211045)))) + (cons __tmp213419 __tmp213396)))) (declare (not safe)) - (cons __tmp211073 __tmp211044)))) + (cons __tmp213424 __tmp213395)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211043 '())))) + (cons __tmp213394 '())))) (declare (not safe)) - (cons __tmp211074 __tmp211042)))) + (cons __tmp213425 __tmp213393)))) (declare (not safe)) - (cons __tmp211041 '())))) + (cons __tmp213392 '())))) (declare (not safe)) - (cons _L193068_ __tmp211040)))) + (cons _L195317_ __tmp213391)))) (declare (not safe)) - (cons __tmp211075 __tmp211039)))) - (___kont208705208706_ - (lambda (_L192903_ _L192905_ _L192906_ _L192907_ _L192908_) - (let ((__tmp211115 + (cons __tmp213426 __tmp213390)))) + (___kont211054211055_ + (lambda (_L195152_ _L195154_ _L195155_ _L195156_ _L195157_) + (let ((__tmp213466 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp211076 - (let ((__tmp211111 - (let ((__tmp211112 - (let ((__tmp211113 - (let ((__tmp211114 + (__tmp213427 + (let ((__tmp213462 + (let ((__tmp213463 + (let ((__tmp213464 + (let ((__tmp213465 (let () (declare (not safe)) - (cons _L192906_ - _L192905_)))) + (cons _L195155_ + _L195154_)))) (declare (not safe)) - (cons __tmp211114 - _L192903_)))) + (cons __tmp213465 + _L195152_)))) (declare (not safe)) - (cons '#f __tmp211113)))) + (cons '#f __tmp213464)))) (declare (not safe)) - (cons _L192908_ __tmp211112))) - (__tmp211077 - (let ((__tmp211078 - (let ((__tmp211110 + (cons _L195157_ __tmp213463))) + (__tmp213428 + (let ((__tmp213429 + (let ((__tmp213461 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp211079 - (let ((__tmp211106 - (let ((__tmp211107 - (let ((__tmp211109 + (__tmp213430 + (let ((__tmp213457 + (let ((__tmp213458 + (let ((__tmp213460 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp211108 + (__tmp213459 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'args)))) (declare (not safe)) - (cons __tmp211109 __tmp211108)))) + (cons __tmp213460 __tmp213459)))) (declare (not safe)) - (cons _L192907_ __tmp211107))) + (cons _L195156_ __tmp213458))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp211080 - (let ((__tmp211081 - (let ((__tmp211105 + (__tmp213431 + (let ((__tmp213432 + (let ((__tmp213456 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'parameterize))) - (__tmp211082 - (let ((__tmp211098 - (let ((__tmp211099 - (let ((__tmp211104 + (__tmp213433 + (let ((__tmp213449 + (let ((__tmp213450 + (let ((__tmp213455 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'current-compile-methods))) - (__tmp211100 - (let ((__tmp211101 - (let ((__tmp211103 + (__tmp213451 + (let ((__tmp213452 + (let ((__tmp213454 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp211102 - (let () (declare (not safe)) (cons _L192906_ '())))) + (__tmp213453 + (let () (declare (not safe)) (cons _L195155_ '())))) (declare (not safe)) - (cons __tmp211103 __tmp211102)))) + (cons __tmp213454 __tmp213453)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211101 '())))) + (cons __tmp213452 '())))) (declare (not safe)) - (cons __tmp211104 __tmp211100)))) + (cons __tmp213455 __tmp213451)))) (declare (not safe)) - (cons __tmp211099 '()))) - (__tmp211083 - (let ((__tmp211091 - (let ((__tmp211097 + (cons __tmp213450 '()))) + (__tmp213434 + (let ((__tmp213442 + (let ((__tmp213448 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare))) - (__tmp211092 - (let ((__tmp211093 - (let ((__tmp211096 + (__tmp213443 + (let ((__tmp213444 + (let ((__tmp213447 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'not))) - (__tmp211094 - (let ((__tmp211095 + (__tmp213445 + (let ((__tmp213446 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'safe)))) (declare (not safe)) - (cons __tmp211095 '())))) + (cons __tmp213446 '())))) (declare (not safe)) - (cons __tmp211096 __tmp211094)))) + (cons __tmp213447 __tmp213445)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211093 '())))) + (cons __tmp213444 '())))) (declare (not safe)) - (cons __tmp211097 __tmp211092))) - (__tmp211084 - (let ((__tmp211085 - (let ((__tmp211090 + (cons __tmp213448 __tmp213443))) + (__tmp213435 + (let ((__tmp213436 + (let ((__tmp213441 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'do-apply-compile-e))) - (__tmp211086 - (let ((__tmp211089 + (__tmp213437 + (let ((__tmp213440 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp211087 - (let ((__tmp211088 + (__tmp213438 + (let ((__tmp213439 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'args)))) (declare (not safe)) - (cons __tmp211088 '())))) + (cons __tmp213439 '())))) (declare (not safe)) - (cons __tmp211089 __tmp211087)))) + (cons __tmp213440 __tmp213438)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211090 - __tmp211086)))) + (cons __tmp213441 + __tmp213437)))) (declare (not safe)) - (cons __tmp211085 '())))) + (cons __tmp213436 '())))) (declare (not safe)) - (cons __tmp211091 __tmp211084)))) + (cons __tmp213442 __tmp213435)))) (declare (not safe)) - (cons __tmp211098 __tmp211083)))) + (cons __tmp213449 __tmp213434)))) (declare (not safe)) - (cons __tmp211105 __tmp211082)))) + (cons __tmp213456 __tmp213433)))) (declare (not safe)) - (cons __tmp211081 '())))) + (cons __tmp213432 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211106 - __tmp211080)))) + (cons __tmp213457 + __tmp213431)))) (declare (not safe)) - (cons __tmp211110 __tmp211079)))) + (cons __tmp213461 __tmp213430)))) (declare (not safe)) - (cons __tmp211078 '())))) + (cons __tmp213429 '())))) (declare (not safe)) - (cons __tmp211111 __tmp211077)))) + (cons __tmp213462 __tmp213428)))) (declare (not safe)) - (cons __tmp211115 __tmp211076))))) - (let* ((___match208787208788_ - (lambda (_e192841192863_ - _hd192840192867_ - _tl192839192870_ - _e192844192873_ - _hd192843192877_ - _tl192842192880_ - _e192847192883_ - _hd192846192887_ - _tl192845192890_ - _e192850192893_ - _hd192849192897_ - _tl192848192900_) - (let ((_L192903_ _tl192845192890_) - (_L192905_ _tl192848192900_) - (_L192906_ _hd192849192897_) - (_L192907_ _hd192843192877_) - (_L192908_ _hd192840192867_)) + (cons __tmp213466 __tmp213427))))) + (let* ((___match211136211137_ + (lambda (_e195090195112_ + _hd195089195116_ + _tl195088195119_ + _e195093195122_ + _hd195092195126_ + _tl195091195129_ + _e195096195132_ + _hd195095195136_ + _tl195094195139_ + _e195099195142_ + _hd195098195146_ + _tl195097195149_) + (let ((_L195152_ _tl195094195139_) + (_L195154_ _tl195097195149_) + (_L195155_ _hd195098195146_) + (_L195156_ _hd195092195126_) + (_L195157_ _hd195089195116_)) (if (let () (declare (not safe)) - (gx#identifier? _L192907_)) - (___kont208705208706_ - _L192903_ - _L192905_ - _L192906_ - _L192907_ - _L192908_) - (let () (declare (not safe)) (_g192776192856_)))))) - (___match208763208764_ - (lambda (_e192797192936_ - _hd192796192940_ - _tl192795192943_ - _e192800192946_ - _hd192799192950_ - _tl192798192953_ - _e192801192956_ - _e192804192960_ - _hd192803192964_ - _tl192802192967_ - _e192807192970_ - _hd192806192974_ - _tl192805192977_ - ___splice208701208702_ - _target192808192980_ - _tl192810192983_) - (letrec ((_loop192811192986_ - (lambda (_hd192809192990_ _super192815192993_) + (gx#identifier? _L195156_)) + (___kont211054211055_ + _L195152_ + _L195154_ + _L195155_ + _L195156_ + _L195157_) + (let () (declare (not safe)) (_g195025195105_)))))) + (___match211112211113_ + (lambda (_e195046195185_ + _hd195045195189_ + _tl195044195192_ + _e195049195195_ + _hd195048195199_ + _tl195047195202_ + _e195050195205_ + _e195053195209_ + _hd195052195213_ + _tl195051195216_ + _e195056195219_ + _hd195055195223_ + _tl195054195226_ + ___splice211050211051_ + _target195057195229_ + _tl195059195232_) + (letrec ((_loop195060195235_ + (lambda (_hd195058195239_ _super195064195242_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd192809192990_)) - (let ((_e192812192996_ + (gx#stx-pair? _hd195058195239_)) + (let ((_e195061195245_ (let () (declare (not safe)) (gx#syntax-e - _hd192809192990_)))) - (let ((_lp-tl192814193003_ + _hd195058195239_)))) + (let ((_lp-tl195063195252_ (let () (declare (not safe)) - (##cdr _e192812192996_))) - (_lp-hd192813193000_ + (##cdr _e195061195245_))) + (_lp-hd195062195249_ (let () (declare (not safe)) - (##car _e192812192996_)))) - (_loop192811192986_ - _lp-tl192814193003_ + (##car _e195061195245_)))) + (_loop195060195235_ + _lp-tl195063195252_ (let () (declare (not safe)) - (cons _lp-hd192813193000_ - _super192815192993_))))) - (let ((_super192816193006_ - (reverse _super192815192993_))) + (cons _lp-hd195062195249_ + _super195064195242_))))) + (let ((_super195065195255_ + (reverse _super195064195242_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl192802192967_)) - (let ((___splice208703208704_ + _tl195051195216_)) + (let ((___splice211052211053_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl192802192967_ + _tl195051195216_ '0)))) - (let ((_tl192819193013_ + (let ((_tl195068195262_ (let () (declare (not safe)) (##vector-ref - ___splice208703208704_ + ___splice211052211053_ '1))) - (_target192817193010_ + (_target195066195259_ (let () (declare (not safe)) (##vector-ref - ___splice208703208704_ + ___splice211052211053_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl192819193013_)) - (letrec ((_loop192820193016_ - (lambda (_hd192818193020_ + _tl195068195262_)) + (letrec ((_loop195069195265_ + (lambda (_hd195067195269_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _method192824193023_ - _symbol192825193025_) + _method195073195272_ + _symbol195074195274_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd192818193020_)) - (let ((_e192821193028_ + (gx#stx-pair? _hd195067195269_)) + (let ((_e195070195277_ (let () (declare (not safe)) - (gx#syntax-e _hd192818193020_)))) - (let ((_lp-tl192823193035_ + (gx#syntax-e _hd195067195269_)))) + (let ((_lp-tl195072195284_ (let () (declare (not safe)) - (##cdr _e192821193028_))) - (_lp-hd192822193032_ + (##cdr _e195070195277_))) + (_lp-hd195071195281_ (let () (declare (not safe)) - (##car _e192821193028_)))) + (##car _e195070195277_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd192822193032_)) - (let ((_e192830193038_ + (gx#stx-pair? _lp-hd195071195281_)) + (let ((_e195079195287_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd192822193032_)))) - (let ((_tl192828193045_ + _lp-hd195071195281_)))) + (let ((_tl195077195294_ (let () (declare (not safe)) - (##cdr _e192830193038_))) - (_hd192829193042_ + (##cdr _e195079195287_))) + (_hd195078195291_ (let () (declare (not safe)) - (##car _e192830193038_)))) + (##car _e195079195287_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl192828193045_)) - (let ((_e192833193048_ + (gx#stx-pair? _tl195077195294_)) + (let ((_e195082195297_ (let () (declare (not safe)) (gx#syntax-e - _tl192828193045_)))) - (let ((_tl192831193055_ + _tl195077195294_)))) + (let ((_tl195080195304_ (let () (declare (not safe)) - (##cdr _e192833193048_))) - (_hd192832193052_ + (##cdr _e195082195297_))) + (_hd195081195301_ (let () (declare (not safe)) - (##car _e192833193048_)))) + (##car _e195082195297_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl192831193055_)) - (_loop192820193016_ - _lp-tl192823193035_ + _tl195080195304_)) + (_loop195069195265_ + _lp-tl195072195284_ (let () (declare (not safe)) - (cons _hd192832193052_ - _method192824193023_)) + (cons _hd195081195301_ + _method195073195272_)) (let () (declare (not safe)) - (cons _hd192829193042_ - _symbol192825193025_))) - (___match208787208788_ - _e192797192936_ - _hd192796192940_ - _tl192795192943_ - _e192800192946_ - _hd192799192950_ - _tl192798192953_ - _e192804192960_ - _hd192803192964_ - _tl192802192967_ - _e192807192970_ - _hd192806192974_ - _tl192805192977_)))) - (___match208787208788_ - _e192797192936_ - _hd192796192940_ - _tl192795192943_ - _e192800192946_ - _hd192799192950_ - _tl192798192953_ - _e192804192960_ - _hd192803192964_ - _tl192802192967_ - _e192807192970_ - _hd192806192974_ - _tl192805192977_)))) - (___match208787208788_ - _e192797192936_ - _hd192796192940_ - _tl192795192943_ - _e192800192946_ - _hd192799192950_ - _tl192798192953_ - _e192804192960_ - _hd192803192964_ - _tl192802192967_ - _e192807192970_ - _hd192806192974_ - _tl192805192977_)))) - (let ((_symbol192827193061_ - (reverse _symbol192825193025_)) - (_method192826193058_ - (reverse _method192824193023_))) - (___kont208699208700_ - _method192826193058_ - _symbol192827193061_ - _super192816193006_ - _hd192806192974_)))))) - (_loop192820193016_ _target192817193010_ '() '())) + (cons _hd195078195291_ + _symbol195074195274_))) + (___match211136211137_ + _e195046195185_ + _hd195045195189_ + _tl195044195192_ + _e195049195195_ + _hd195048195199_ + _tl195047195202_ + _e195053195209_ + _hd195052195213_ + _tl195051195216_ + _e195056195219_ + _hd195055195223_ + _tl195054195226_)))) + (___match211136211137_ + _e195046195185_ + _hd195045195189_ + _tl195044195192_ + _e195049195195_ + _hd195048195199_ + _tl195047195202_ + _e195053195209_ + _hd195052195213_ + _tl195051195216_ + _e195056195219_ + _hd195055195223_ + _tl195054195226_)))) + (___match211136211137_ + _e195046195185_ + _hd195045195189_ + _tl195044195192_ + _e195049195195_ + _hd195048195199_ + _tl195047195202_ + _e195053195209_ + _hd195052195213_ + _tl195051195216_ + _e195056195219_ + _hd195055195223_ + _tl195054195226_)))) + (let ((_symbol195076195310_ + (reverse _symbol195074195274_)) + (_method195075195307_ + (reverse _method195073195272_))) + (___kont211048211049_ + _method195075195307_ + _symbol195076195310_ + _super195065195255_ + _hd195055195223_)))))) + (_loop195069195265_ _target195066195259_ '() '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match208787208788_ - _e192797192936_ - _hd192796192940_ - _tl192795192943_ - _e192800192946_ - _hd192799192950_ - _tl192798192953_ - _e192804192960_ - _hd192803192964_ - _tl192802192967_ - _e192807192970_ - _hd192806192974_ - _tl192805192977_)))) - (___match208787208788_ - _e192797192936_ - _hd192796192940_ - _tl192795192943_ - _e192800192946_ - _hd192799192950_ - _tl192798192953_ - _e192804192960_ - _hd192803192964_ - _tl192802192967_ - _e192807192970_ - _hd192806192974_ - _tl192805192977_))))))) - (_loop192811192986_ _target192808192980_ '())))) - (___match208725208726_ - (lambda (_e192784193122_ - _hd192783193126_ - _tl192782193129_ - _e192787193132_ - _hd192786193136_ - _tl192785193139_ - _e192790193142_ - _hd192789193146_ - _tl192788193149_) - (let ((_L193152_ _tl192788193149_) - (_L193154_ _hd192789193146_) - (_L193155_ _hd192786193136_) - (_L193156_ _hd192783193126_)) + (___match211136211137_ + _e195046195185_ + _hd195045195189_ + _tl195044195192_ + _e195049195195_ + _hd195048195199_ + _tl195047195202_ + _e195053195209_ + _hd195052195213_ + _tl195051195216_ + _e195056195219_ + _hd195055195223_ + _tl195054195226_)))) + (___match211136211137_ + _e195046195185_ + _hd195045195189_ + _tl195044195192_ + _e195049195195_ + _hd195048195199_ + _tl195047195202_ + _e195053195209_ + _hd195052195213_ + _tl195051195216_ + _e195056195219_ + _hd195055195223_ + _tl195054195226_))))))) + (_loop195060195235_ _target195057195229_ '())))) + (___match211074211075_ + (lambda (_e195033195371_ + _hd195032195375_ + _tl195031195378_ + _e195036195381_ + _hd195035195385_ + _tl195034195388_ + _e195039195391_ + _hd195038195395_ + _tl195037195398_) + (let ((_L195401_ _tl195037195398_) + (_L195403_ _hd195038195395_) + (_L195404_ _hd195035195385_) + (_L195405_ _hd195032195375_)) (if (let () (declare (not safe)) - (gx#identifier? _L193154_)) - (___kont208697208698_ - _L193152_ - _L193154_ - _L193155_ - _L193156_) + (gx#identifier? _L195403_)) + (___kont211046211047_ + _L195401_ + _L195403_ + _L195404_ + _L195405_) (if (let () (declare (not safe)) - (gx#stx-datum? _hd192786193136_)) - (let ((_e192801192956_ + (gx#stx-datum? _hd195035195385_)) + (let ((_e195050195205_ (let () (declare (not safe)) - (gx#stx-e _hd192786193136_)))) + (gx#stx-e _hd195035195385_)))) (if (let () (declare (not safe)) - (equal? _e192801192956_ '#f)) + (equal? _e195050195205_ '#f)) (if (let () (declare (not safe)) - (gx#stx-pair? _hd192789193146_)) - (let ((_e192807192970_ + (gx#stx-pair? _hd195038195395_)) + (let ((_e195056195219_ (let () (declare (not safe)) (gx#syntax-e - _hd192789193146_)))) - (let ((_tl192805192977_ + _hd195038195395_)))) + (let ((_tl195054195226_ (let () (declare (not safe)) - (##cdr _e192807192970_))) - (_hd192806192974_ + (##cdr _e195056195219_))) + (_hd195055195223_ (let () (declare (not safe)) - (##car _e192807192970_)))) + (##car _e195056195219_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl192805192977_)) - (let ((___splice208701208702_ + _tl195054195226_)) + (let ((___splice211050211051_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl192805192977_ + _tl195054195226_ '0)))) - (let ((_tl192810192983_ + (let ((_tl195059195232_ (let () (declare (not safe)) (##vector-ref - ___splice208701208702_ + ___splice211050211051_ '1))) - (_target192808192980_ + (_target195057195229_ (let () (declare (not safe)) (##vector-ref - ___splice208701208702_ + ___splice211050211051_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl192810192983_)) - (___match208763208764_ - _e192784193122_ - _hd192783193126_ - _tl192782193129_ - _e192787193132_ - _hd192786193136_ - _tl192785193139_ - _e192801192956_ - _e192790193142_ - _hd192789193146_ - _tl192788193149_ - _e192807192970_ - _hd192806192974_ - _tl192805192977_ - ___splice208701208702_ - _target192808192980_ - _tl192810192983_) - (___match208787208788_ - _e192784193122_ - _hd192783193126_ - _tl192782193129_ - _e192787193132_ - _hd192786193136_ - _tl192785193139_ - _e192790193142_ - _hd192789193146_ - _tl192788193149_ - _e192807192970_ - _hd192806192974_ - _tl192805192977_)))) - (___match208787208788_ - _e192784193122_ - _hd192783193126_ - _tl192782193129_ - _e192787193132_ - _hd192786193136_ - _tl192785193139_ - _e192790193142_ - _hd192789193146_ - _tl192788193149_ - _e192807192970_ - _hd192806192974_ - _tl192805192977_)))) + _tl195059195232_)) + (___match211112211113_ + _e195033195371_ + _hd195032195375_ + _tl195031195378_ + _e195036195381_ + _hd195035195385_ + _tl195034195388_ + _e195050195205_ + _e195039195391_ + _hd195038195395_ + _tl195037195398_ + _e195056195219_ + _hd195055195223_ + _tl195054195226_ + ___splice211050211051_ + _target195057195229_ + _tl195059195232_) + (___match211136211137_ + _e195033195371_ + _hd195032195375_ + _tl195031195378_ + _e195036195381_ + _hd195035195385_ + _tl195034195388_ + _e195039195391_ + _hd195038195395_ + _tl195037195398_ + _e195056195219_ + _hd195055195223_ + _tl195054195226_)))) + (___match211136211137_ + _e195033195371_ + _hd195032195375_ + _tl195031195378_ + _e195036195381_ + _hd195035195385_ + _tl195034195388_ + _e195039195391_ + _hd195038195395_ + _tl195037195398_ + _e195056195219_ + _hd195055195223_ + _tl195054195226_)))) (let () (declare (not safe)) - (_g192776192856_))) + (_g195025195105_))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd192789193146_)) - (let ((_e192850192893_ + (gx#stx-pair? _hd195038195395_)) + (let ((_e195099195142_ (let () (declare (not safe)) (gx#syntax-e - _hd192789193146_)))) - (let ((_tl192848192900_ + _hd195038195395_)))) + (let ((_tl195097195149_ (let () (declare (not safe)) - (##cdr _e192850192893_))) - (_hd192849192897_ + (##cdr _e195099195142_))) + (_hd195098195146_ (let () (declare (not safe)) - (##car _e192850192893_)))) - (___match208787208788_ - _e192784193122_ - _hd192783193126_ - _tl192782193129_ - _e192787193132_ - _hd192786193136_ - _tl192785193139_ - _e192790193142_ - _hd192789193146_ - _tl192788193149_ - _e192850192893_ - _hd192849192897_ - _tl192848192900_))) + (##car _e195099195142_)))) + (___match211136211137_ + _e195033195371_ + _hd195032195375_ + _tl195031195378_ + _e195036195381_ + _hd195035195385_ + _tl195034195388_ + _e195039195391_ + _hd195038195395_ + _tl195037195398_ + _e195099195142_ + _hd195098195146_ + _tl195097195149_))) (let () (declare (not safe)) - (_g192776192856_))))) + (_g195025195105_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd192789193146_)) - (let ((_e192850192893_ + (gx#stx-pair? _hd195038195395_)) + (let ((_e195099195142_ (let () (declare (not safe)) - (gx#syntax-e _hd192789193146_)))) - (let ((_tl192848192900_ + (gx#syntax-e _hd195038195395_)))) + (let ((_tl195097195149_ (let () (declare (not safe)) - (##cdr _e192850192893_))) - (_hd192849192897_ + (##cdr _e195099195142_))) + (_hd195098195146_ (let () (declare (not safe)) - (##car _e192850192893_)))) - (___match208787208788_ - _e192784193122_ - _hd192783193126_ - _tl192782193129_ - _e192787193132_ - _hd192786193136_ - _tl192785193139_ - _e192790193142_ - _hd192789193146_ - _tl192788193149_ - _e192850192893_ - _hd192849192897_ - _tl192848192900_))) + (##car _e195099195142_)))) + (___match211136211137_ + _e195033195371_ + _hd195032195375_ + _tl195031195378_ + _e195036195381_ + _hd195035195385_ + _tl195034195388_ + _e195039195391_ + _hd195038195395_ + _tl195037195398_ + _e195099195142_ + _hd195098195146_ + _tl195097195149_))) (let () (declare (not safe)) - (_g192776192856_))))))))) + (_g195025195105_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx208694208695_)) - (let ((_e192784193122_ + (gx#stx-pair? ___stx211043211044_)) + (let ((_e195033195371_ (let () (declare (not safe)) - (gx#syntax-e ___stx208694208695_)))) - (let ((_tl192782193129_ + (gx#syntax-e ___stx211043211044_)))) + (let ((_tl195031195378_ (let () (declare (not safe)) - (##cdr _e192784193122_))) - (_hd192783193126_ + (##cdr _e195033195371_))) + (_hd195032195375_ (let () (declare (not safe)) - (##car _e192784193122_)))) + (##car _e195033195371_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl192782193129_)) - (let ((_e192787193132_ + (gx#stx-pair? _tl195031195378_)) + (let ((_e195036195381_ (let () (declare (not safe)) - (gx#syntax-e _tl192782193129_)))) - (let ((_tl192785193139_ + (gx#syntax-e _tl195031195378_)))) + (let ((_tl195034195388_ (let () (declare (not safe)) - (##cdr _e192787193132_))) - (_hd192786193136_ + (##cdr _e195036195381_))) + (_hd195035195385_ (let () (declare (not safe)) - (##car _e192787193132_)))) + (##car _e195036195381_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl192785193139_)) - (let ((_e192790193142_ + (gx#stx-pair? _tl195034195388_)) + (let ((_e195039195391_ (let () (declare (not safe)) - (gx#syntax-e _tl192785193139_)))) - (let ((_tl192788193149_ + (gx#syntax-e _tl195034195388_)))) + (let ((_tl195037195398_ (let () (declare (not safe)) - (##cdr _e192790193142_))) - (_hd192789193146_ + (##cdr _e195039195391_))) + (_hd195038195395_ (let () (declare (not safe)) - (##car _e192790193142_)))) - (___match208725208726_ - _e192784193122_ - _hd192783193126_ - _tl192782193129_ - _e192787193132_ - _hd192786193136_ - _tl192785193139_ - _e192790193142_ - _hd192789193146_ - _tl192788193149_))) + (##car _e195039195391_)))) + (___match211074211075_ + _e195033195371_ + _hd195032195375_ + _tl195031195378_ + _e195036195381_ + _hd195035195385_ + _tl195034195388_ + _e195039195391_ + _hd195038195395_ + _tl195037195398_))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd192786193136_)) - (let ((_e192801192956_ + (gx#stx-datum? _hd195035195385_)) + (let ((_e195050195205_ (let () (declare (not safe)) - (gx#stx-e _hd192786193136_)))) + (gx#stx-e _hd195035195385_)))) (declare (not safe)) - (_g192776192856_)) + (_g195025195105_)) (let () (declare (not safe)) - (_g192776192856_)))))) - (let () (declare (not safe)) (_g192776192856_))))) - (let () (declare (not safe)) (_g192776192856_)))))))) + (_g195025195105_)))))) + (let () (declare (not safe)) (_g195025195105_))))) + (let () (declare (not safe)) (_g195025195105_)))))))) (define |gxc[:0:]#do-apply-compile-e| - (lambda (_$stx193179_) - (let* ((_g193183193201_ - (lambda (_g193184193197_) + (lambda (_$stx195428_) + (let* ((_g195432195450_ + (lambda (_g195433195446_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g193184193197_)))) - (_g193182193256_ - (lambda (_g193184193205_) + _g195433195446_)))) + (_g195431195505_ + (lambda (_g195433195454_) (if (let () (declare (not safe)) - (gx#stx-pair? _g193184193205_)) - (let ((_e193189193208_ + (gx#stx-pair? _g195433195454_)) + (let ((_e195438195457_ (let () (declare (not safe)) - (gx#syntax-e _g193184193205_)))) - (let ((_hd193188193212_ + (gx#syntax-e _g195433195454_)))) + (let ((_hd195437195461_ (let () (declare (not safe)) - (##car _e193189193208_))) - (_tl193187193215_ + (##car _e195438195457_))) + (_tl195436195464_ (let () (declare (not safe)) - (##cdr _e193189193208_)))) + (##cdr _e195438195457_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193187193215_)) - (let ((_e193192193218_ + (gx#stx-pair? _tl195436195464_)) + (let ((_e195441195467_ (let () (declare (not safe)) - (gx#syntax-e _tl193187193215_)))) - (let ((_hd193191193222_ + (gx#syntax-e _tl195436195464_)))) + (let ((_hd195440195471_ (let () (declare (not safe)) - (##car _e193192193218_))) - (_tl193190193225_ + (##car _e195441195467_))) + (_tl195439195474_ (let () (declare (not safe)) - (##cdr _e193192193218_)))) + (##cdr _e195441195467_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193190193225_)) - (let ((_e193195193228_ + (gx#stx-pair? _tl195439195474_)) + (let ((_e195444195477_ (let () (declare (not safe)) (gx#syntax-e - _tl193190193225_)))) - (let ((_hd193194193232_ + _tl195439195474_)))) + (let ((_hd195443195481_ (let () (declare (not safe)) - (##car _e193195193228_))) - (_tl193193193235_ + (##car _e195444195477_))) + (_tl195442195484_ (let () (declare (not safe)) - (##cdr _e193195193228_)))) + (##cdr _e195444195477_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl193193193235_)) - ((lambda (_L193238_ _L193240_) - (let ((__tmp211204 + _tl195442195484_)) + ((lambda (_L195487_ _L195489_) + (let ((__tmp213555 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp211116 - (let ((__tmp211201 - (let ((__tmp211203 + (__tmp213467 + (let ((__tmp213552 + (let ((__tmp213554 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp211202 + (__tmp213553 (let () (declare (not safe)) - (cons _L193238_ '())))) + (cons _L195487_ '())))) (declare (not safe)) - (cons __tmp211203 __tmp211202))) - (__tmp211117 - (let ((__tmp211198 - (let ((__tmp211200 + (cons __tmp213554 __tmp213553))) + (__tmp213468 + (let ((__tmp213549 + (let ((__tmp213551 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp211199 + (__tmp213550 (let () (declare (not safe)) - (cons _L193240_ '())))) + (cons _L195489_ '())))) (declare (not safe)) - (cons __tmp211200 __tmp211199))) - (__tmp211118 - (let ((__tmp211119 - (let ((__tmp211197 + (cons __tmp213551 __tmp213550))) + (__tmp213469 + (let ((__tmp213470 + (let ((__tmp213548 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp211120 - (let ((__tmp211183 - (let ((__tmp211191 - (let ((__tmp211196 + (__tmp213471 + (let ((__tmp213534 + (let ((__tmp213542 + (let ((__tmp213547 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp211192 - (let ((__tmp211193 - (let ((__tmp211195 + (__tmp213543 + (let ((__tmp213544 + (let ((__tmp213546 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'car))) - (__tmp211194 + (__tmp213545 (let () (declare (not safe)) - (cons _L193238_ '())))) + (cons _L195487_ '())))) (declare (not safe)) - (cons __tmp211195 __tmp211194)))) + (cons __tmp213546 __tmp213545)))) (declare (not safe)) - (cons __tmp211193 '())))) + (cons __tmp213544 '())))) (declare (not safe)) - (cons __tmp211196 __tmp211192))) - (__tmp211184 - (let ((__tmp211185 - (let ((__tmp211190 + (cons __tmp213547 __tmp213543))) + (__tmp213535 + (let ((__tmp213536 + (let ((__tmp213541 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp211186 - (let ((__tmp211187 - (let ((__tmp211189 + (__tmp213537 + (let ((__tmp213538 + (let ((__tmp213540 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cdr))) - (__tmp211188 + (__tmp213539 (let () (declare (not safe)) - (cons _L193238_ '())))) + (cons _L195487_ '())))) (declare (not safe)) - (cons __tmp211189 __tmp211188)))) + (cons __tmp213540 __tmp213539)))) (declare (not safe)) - (cons __tmp211187 '())))) + (cons __tmp213538 '())))) (declare (not safe)) - (cons __tmp211190 __tmp211186)))) + (cons __tmp213541 __tmp213537)))) (declare (not safe)) - (cons __tmp211185 '())))) + (cons __tmp213536 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211191 - __tmp211184))) - (__tmp211121 - (let ((__tmp211122 - (let ((__tmp211182 + (cons __tmp213542 + __tmp213535))) + (__tmp213472 + (let ((__tmp213473 + (let ((__tmp213533 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp211123 - (let ((__tmp211178 - (let ((__tmp211181 + (__tmp213474 + (let ((__tmp213529 + (let ((__tmp213532 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp211179 - (let ((__tmp211180 + (__tmp213530 + (let ((__tmp213531 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp211180 '())))) + (cons __tmp213531 '())))) (declare (not safe)) - (cons __tmp211181 __tmp211179))) - (__tmp211124 - (let ((__tmp211173 - (let ((__tmp211177 + (cons __tmp213532 __tmp213530))) + (__tmp213475 + (let ((__tmp213524 + (let ((__tmp213528 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp211174 - (let ((__tmp211175 - (let ((__tmp211176 + (__tmp213525 + (let ((__tmp213526 + (let ((__tmp213527 (let () (declare (not safe)) @@ -1629,578 +1629,578 @@ '#f 'arg1)))) (declare (not safe)) - (cons __tmp211176 + (cons __tmp213527 '())))) (declare (not safe)) - (cons _L193240_ __tmp211175)))) + (cons _L195489_ __tmp213526)))) (declare (not safe)) - (cons __tmp211177 __tmp211174))) - (__tmp211125 - (let ((__tmp211126 - (let ((__tmp211172 + (cons __tmp213528 __tmp213525))) + (__tmp213476 + (let ((__tmp213477 + (let ((__tmp213523 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp211127 - (let ((__tmp211156 - (let ((__tmp211165 + (__tmp213478 + (let ((__tmp213507 + (let ((__tmp213516 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp211171 + (let ((__tmp213522 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2))) - (__tmp211166 - (let ((__tmp211167 - (let ((__tmp211170 + (__tmp213517 + (let ((__tmp213518 + (let ((__tmp213521 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'car))) - (__tmp211168 - (let ((__tmp211169 + (__tmp213519 + (let ((__tmp213520 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp211169 '())))) + (cons __tmp213520 '())))) (declare (not safe)) - (cons __tmp211170 __tmp211168)))) + (cons __tmp213521 __tmp213519)))) (declare (not safe)) - (cons __tmp211167 '())))) + (cons __tmp213518 '())))) (declare (not safe)) - (cons __tmp211171 __tmp211166))) - (__tmp211157 - (let ((__tmp211158 - (let ((__tmp211164 + (cons __tmp213522 __tmp213517))) + (__tmp213508 + (let ((__tmp213509 + (let ((__tmp213515 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp211159 - (let ((__tmp211160 - (let ((__tmp211163 + (__tmp213510 + (let ((__tmp213511 + (let ((__tmp213514 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cdr))) - (__tmp211161 - (let ((__tmp211162 + (__tmp213512 + (let ((__tmp213513 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp211162 '())))) + (cons __tmp213513 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211163 - __tmp211161)))) + (cons __tmp213514 + __tmp213512)))) (declare (not safe)) - (cons __tmp211160 '())))) + (cons __tmp213511 '())))) (declare (not safe)) - (cons __tmp211164 __tmp211159)))) + (cons __tmp213515 __tmp213510)))) (declare (not safe)) - (cons __tmp211158 '())))) + (cons __tmp213509 '())))) (declare (not safe)) - (cons __tmp211165 __tmp211157))) - (__tmp211128 - (let ((__tmp211129 - (let ((__tmp211155 + (cons __tmp213516 __tmp213508))) + (__tmp213479 + (let ((__tmp213480 + (let ((__tmp213506 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp211130 - (let ((__tmp211151 - (let ((__tmp211154 + (__tmp213481 + (let ((__tmp213502 + (let ((__tmp213505 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp211152 - (let ((__tmp211153 + (__tmp213503 + (let ((__tmp213504 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp211153 '())))) + (cons __tmp213504 '())))) (declare (not safe)) - (cons __tmp211154 __tmp211152))) - (__tmp211131 - (let ((__tmp211144 - (let ((__tmp211150 + (cons __tmp213505 __tmp213503))) + (__tmp213482 + (let ((__tmp213495 + (let ((__tmp213501 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp211145 - (let ((__tmp211146 - (let ((__tmp211149 + (__tmp213496 + (let ((__tmp213497 + (let ((__tmp213500 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp211147 - (let ((__tmp211148 + (__tmp213498 + (let ((__tmp213499 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2)))) (declare (not safe)) - (cons __tmp211148 '())))) + (cons __tmp213499 '())))) (declare (not safe)) - (cons __tmp211149 __tmp211147)))) + (cons __tmp213500 __tmp213498)))) (declare (not safe)) - (cons _L193240_ __tmp211146)))) + (cons _L195489_ __tmp213497)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211150 - __tmp211145))) - (__tmp211132 - (let ((__tmp211133 - (let ((__tmp211143 + (cons __tmp213501 + __tmp213496))) + (__tmp213483 + (let ((__tmp213484 + (let ((__tmp213494 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'apply))) - (__tmp211134 - (let ((__tmp211142 + (__tmp213485 + (let ((__tmp213493 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp211135 - (let ((__tmp211136 - (let ((__tmp211141 + (__tmp213486 + (let ((__tmp213487 + (let ((__tmp213492 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp211137 - (let ((__tmp211140 + (__tmp213488 + (let ((__tmp213491 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2))) - (__tmp211138 - (let ((__tmp211139 + (__tmp213489 + (let ((__tmp213490 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp211139 '())))) + (cons __tmp213490 '())))) (declare (not safe)) - (cons __tmp211140 __tmp211138)))) + (cons __tmp213491 __tmp213489)))) (declare (not safe)) - (cons __tmp211141 __tmp211137)))) + (cons __tmp213492 __tmp213488)))) (declare (not safe)) - (cons _L193240_ __tmp211136)))) + (cons _L195489_ __tmp213487)))) (declare (not safe)) - (cons __tmp211142 __tmp211135)))) + (cons __tmp213493 __tmp213486)))) (declare (not safe)) - (cons __tmp211143 __tmp211134)))) + (cons __tmp213494 __tmp213485)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211133 '())))) + (cons __tmp213484 '())))) (declare (not safe)) - (cons __tmp211144 __tmp211132)))) + (cons __tmp213495 __tmp213483)))) (declare (not safe)) - (cons __tmp211151 __tmp211131)))) + (cons __tmp213502 __tmp213482)))) (declare (not safe)) - (cons __tmp211155 __tmp211130)))) + (cons __tmp213506 __tmp213481)))) (declare (not safe)) - (cons __tmp211129 '())))) + (cons __tmp213480 '())))) (declare (not safe)) - (cons __tmp211156 __tmp211128)))) + (cons __tmp213507 __tmp213479)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211172 - __tmp211127)))) + (cons __tmp213523 + __tmp213478)))) (declare (not safe)) - (cons __tmp211126 '())))) + (cons __tmp213477 '())))) (declare (not safe)) - (cons __tmp211173 __tmp211125)))) + (cons __tmp213524 __tmp213476)))) (declare (not safe)) - (cons __tmp211178 __tmp211124)))) + (cons __tmp213529 __tmp213475)))) (declare (not safe)) - (cons __tmp211182 __tmp211123)))) + (cons __tmp213533 __tmp213474)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211122 '())))) + (cons __tmp213473 '())))) (declare (not safe)) - (cons __tmp211183 __tmp211121)))) + (cons __tmp213534 __tmp213472)))) (declare (not safe)) - (cons __tmp211197 __tmp211120)))) + (cons __tmp213548 __tmp213471)))) (declare (not safe)) - (cons __tmp211119 '())))) + (cons __tmp213470 '())))) (declare (not safe)) - (cons __tmp211198 __tmp211118)))) + (cons __tmp213549 __tmp213469)))) (declare (not safe)) - (cons __tmp211201 __tmp211117)))) + (cons __tmp213552 __tmp213468)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211204 - __tmp211116))) - _hd193194193232_ - _hd193191193222_) - (_g193183193201_ - _g193184193205_)))) - (_g193183193201_ _g193184193205_)))) - (_g193183193201_ _g193184193205_)))) - (_g193183193201_ _g193184193205_))))) - (_g193182193256_ _$stx193179_)))) + (cons __tmp213555 + __tmp213467))) + _hd195443195481_ + _hd195440195471_) + (_g195432195450_ + _g195433195454_)))) + (_g195432195450_ _g195433195454_)))) + (_g195432195450_ _g195433195454_)))) + (_g195432195450_ _g195433195454_))))) + (_g195431195505_ _$stx195428_)))) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_$stx193260_) - (let* ((_g193264193299_ - (lambda (_g193265193295_) + (lambda (_$stx195509_) + (let* ((_g195513195548_ + (lambda (_g195514195544_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g193265193295_)))) - (_g193263193424_ - (lambda (_g193265193303_) + _g195514195544_)))) + (_g195512195673_ + (lambda (_g195514195552_) (if (let () (declare (not safe)) - (gx#stx-pair? _g193265193303_)) - (let ((_e193272193306_ + (gx#stx-pair? _g195514195552_)) + (let ((_e195521195555_ (let () (declare (not safe)) - (gx#syntax-e _g193265193303_)))) - (let ((_hd193271193310_ + (gx#syntax-e _g195514195552_)))) + (let ((_hd195520195559_ (let () (declare (not safe)) - (##car _e193272193306_))) - (_tl193270193313_ + (##car _e195521195555_))) + (_tl195519195562_ (let () (declare (not safe)) - (##cdr _e193272193306_)))) + (##cdr _e195521195555_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193270193313_)) - (let ((_e193275193316_ + (gx#stx-pair? _tl195519195562_)) + (let ((_e195524195565_ (let () (declare (not safe)) - (gx#syntax-e _tl193270193313_)))) - (let ((_hd193274193320_ + (gx#syntax-e _tl195519195562_)))) + (let ((_hd195523195569_ (let () (declare (not safe)) - (##car _e193275193316_))) - (_tl193273193323_ + (##car _e195524195565_))) + (_tl195522195572_ (let () (declare (not safe)) - (##cdr _e193275193316_)))) + (##cdr _e195524195565_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd193274193320_)) - (let ((_e193278193326_ + (gx#stx-pair? _hd195523195569_)) + (let ((_e195527195575_ (let () (declare (not safe)) (gx#syntax-e - _hd193274193320_)))) - (let ((_hd193277193330_ + _hd195523195569_)))) + (let ((_hd195526195579_ (let () (declare (not safe)) - (##car _e193278193326_))) - (_tl193276193333_ + (##car _e195527195575_))) + (_tl195525195582_ (let () (declare (not safe)) - (##cdr _e193278193326_)))) + (##cdr _e195527195575_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl193276193333_)) - (let ((_e193281193336_ + _tl195525195582_)) + (let ((_e195530195585_ (let () (declare (not safe)) (gx#syntax-e - _tl193276193333_)))) - (let ((_hd193280193340_ + _tl195525195582_)))) + (let ((_hd195529195589_ (let () (declare (not safe)) - (##car _e193281193336_))) - (_tl193279193343_ + (##car _e195530195585_))) + (_tl195528195592_ (let () (declare (not safe)) - (##cdr _e193281193336_)))) + (##cdr _e195530195585_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl193279193343_)) - (let ((_e193284193346_ + _tl195528195592_)) + (let ((_e195533195595_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _tl193279193343_)))) - (let ((_hd193283193350_ - (let () (declare (not safe)) (##car _e193284193346_))) - (_tl193282193353_ - (let () (declare (not safe)) (##cdr _e193284193346_)))) + (gx#syntax-e _tl195528195592_)))) + (let ((_hd195532195599_ + (let () (declare (not safe)) (##car _e195533195595_))) + (_tl195531195602_ + (let () (declare (not safe)) (##cdr _e195533195595_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl193282193353_)) + (gx#stx-null? _tl195531195602_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl193273193323_)) - (let ((_g211205_ + (gx#stx-pair/null? _tl195522195572_)) + (let ((_g213556_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl193273193323_ + _tl195522195572_ '0)))) (begin - (let ((_g211206_ + (let ((_g213557_ (let () (declare (not safe)) - (if (##values? _g211205_) - (##vector-length _g211205_) + (if (##values? _g213556_) + (##vector-length _g213556_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g211206_ 2))) + (##fx= _g213557_ 2))) (error "Context expects 2 values" - _g211206_))) - (let ((_target193285193356_ + _g213557_))) + (let ((_target195534195605_ (let () (declare (not safe)) - (##vector-ref _g211205_ 0))) - (_tl193287193359_ + (##vector-ref _g213556_ 0))) + (_tl195536195608_ (let () (declare (not safe)) - (##vector-ref _g211205_ 1)))) + (##vector-ref _g213556_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl193287193359_)) - (letrec ((_loop193288193362_ - (lambda (_hd193286193366_ - _body193292193369_) + (gx#stx-null? _tl195536195608_)) + (letrec ((_loop195537195611_ + (lambda (_hd195535195615_ + _body195541195618_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd193286193366_)) - (let ((_e193289193372_ + _hd195535195615_)) + (let ((_e195538195621_ (let () (declare (not safe)) (gx#syntax-e - _hd193286193366_)))) - (let ((_lp-hd193290193376_ + _hd195535195615_)))) + (let ((_lp-hd195539195625_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e193289193372_))) - (_lp-tl193291193379_ - (let () (declare (not safe)) (##cdr _e193289193372_)))) - (_loop193288193362_ - _lp-tl193291193379_ + (##car _e195538195621_))) + (_lp-tl195540195628_ + (let () (declare (not safe)) (##cdr _e195538195621_)))) + (_loop195537195611_ + _lp-tl195540195628_ (let () (declare (not safe)) - (cons _lp-hd193290193376_ _body193292193369_))))) + (cons _lp-hd195539195625_ _body195541195618_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body193293193382_ - (reverse _body193292193369_))) - ((lambda (_L193386_ - _L193388_ - _L193389_ - _L193390_) - (let ((__tmp211338 + (let ((_body195542195631_ + (reverse _body195541195618_))) + ((lambda (_L195635_ + _L195637_ + _L195638_ + _L195639_) + (let ((__tmp213689 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp211207 - (let ((__tmp211337 + (__tmp213558 + (let ((__tmp213688 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp211208 - (let ((__tmp211323 - (let ((__tmp211334 - (let ((__tmp211336 + (__tmp213559 + (let ((__tmp213674 + (let ((__tmp213685 + (let ((__tmp213687 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp211335 + (__tmp213686 (let () (declare (not safe)) - (cons _L193388_ '())))) + (cons _L195637_ '())))) (declare (not safe)) - (cons __tmp211336 __tmp211335))) - (__tmp211324 - (let ((__tmp211330 - (let ((__tmp211331 - (let ((__tmp211332 + (cons __tmp213687 __tmp213686))) + (__tmp213675 + (let ((__tmp213681 + (let ((__tmp213682 + (let ((__tmp213683 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp211333 + (let ((__tmp213684 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp211333 '())))) + (cons __tmp213684 '())))) (declare (not safe)) - (cons __tmp211332 '())))) + (cons __tmp213683 '())))) (declare (not safe)) - (cons _L193390_ __tmp211331))) + (cons _L195639_ __tmp213682))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp211325 - (let ((__tmp211326 - (let ((__tmp211327 + (__tmp213676 + (let ((__tmp213677 + (let ((__tmp213678 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp211328 - (let ((__tmp211329 + (let ((__tmp213679 + (let ((__tmp213680 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp211329 '())))) + (cons __tmp213680 '())))) (declare (not safe)) - (cons __tmp211328 '())))) + (cons __tmp213679 '())))) (declare (not safe)) - (cons _L193389_ __tmp211327)))) + (cons _L195638_ __tmp213678)))) (declare (not safe)) - (cons __tmp211326 '())))) + (cons __tmp213677 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211330 - __tmp211325)))) + (cons __tmp213681 + __tmp213676)))) (declare (not safe)) - (cons __tmp211334 __tmp211324))) - (__tmp211209 - (let ((__tmp211210 - (let ((__tmp211322 + (cons __tmp213685 __tmp213675))) + (__tmp213560 + (let ((__tmp213561 + (let ((__tmp213673 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'match))) - (__tmp211211 - (let ((__tmp211321 + (__tmp213562 + (let ((__tmp213672 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp211212 - (let ((__tmp211218 + (__tmp213563 + (let ((__tmp213569 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp211316 - (let ((__tmp211320 + (let ((__tmp213667 + (let ((__tmp213671 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp211317 - (let ((__tmp211319 + (__tmp213668 + (let ((__tmp213670 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp211318 + (__tmp213669 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp211319 __tmp211318)))) + (cons __tmp213670 __tmp213669)))) (declare (not safe)) - (cons __tmp211320 __tmp211317))) - (__tmp211219 - (let ((__tmp211220 - (let ((__tmp211315 + (cons __tmp213671 __tmp213668))) + (__tmp213570 + (let ((__tmp213571 + (let ((__tmp213666 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp211221 - (let ((__tmp211314 + (__tmp213572 + (let ((__tmp213665 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp211222 - (let ((__tmp211310 - (let ((__tmp211313 + (__tmp213573 + (let ((__tmp213661 + (let ((__tmp213664 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp211311 - (let ((__tmp211312 + (__tmp213662 + (let ((__tmp213663 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)))) (declare (not safe)) - (cons __tmp211312 '())))) + (cons __tmp213663 '())))) (declare (not safe)) - (cons __tmp211313 __tmp211311))) - (__tmp211223 - (let ((__tmp211290 - (let ((__tmp211306 - (let ((__tmp211309 + (cons __tmp213664 __tmp213662))) + (__tmp213574 + (let ((__tmp213641 + (let ((__tmp213657 + (let ((__tmp213660 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp211307 - (let ((__tmp211308 + (__tmp213658 + (let ((__tmp213659 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp211308 '())))) + (cons __tmp213659 '())))) (declare (not safe)) - (cons __tmp211309 __tmp211307))) - (__tmp211291 - (let ((__tmp211292 - (let ((__tmp211305 + (cons __tmp213660 __tmp213658))) + (__tmp213642 + (let ((__tmp213643 + (let ((__tmp213656 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp211293 - (let ((__tmp211304 + (__tmp213644 + (let ((__tmp213655 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp211294 - (let ((__tmp211295 - (let ((__tmp211296 + (__tmp213645 + (let ((__tmp213646 + (let ((__tmp213647 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp211303 + (let ((__tmp213654 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp211297 - (let ((__tmp211299 - (let ((__tmp211302 + (__tmp213648 + (let ((__tmp213650 + (let ((__tmp213653 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp211300 - (let ((__tmp211301 + (__tmp213651 + (let ((__tmp213652 (let () (declare (not safe)) @@ -2208,462 +2208,462 @@ '#f 'e)))) (declare (not safe)) - (cons __tmp211301 '())))) + (cons __tmp213652 '())))) (declare (not safe)) - (cons __tmp211302 __tmp211300))) - (__tmp211298 + (cons __tmp213653 __tmp213651))) + (__tmp213649 (let () (declare (not safe)) - (cons _L193389_ '())))) + (cons _L195638_ '())))) (declare (not safe)) - (cons __tmp211299 __tmp211298)))) + (cons __tmp213650 __tmp213649)))) (declare (not safe)) - (cons __tmp211303 __tmp211297)))) + (cons __tmp213654 __tmp213648)))) (declare (not safe)) - (cons __tmp211296 '())))) + (cons __tmp213647 '())))) (declare (not safe)) - (cons _L193390_ __tmp211295)))) + (cons _L195639_ __tmp213646)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211304 - __tmp211294)))) + (cons __tmp213655 + __tmp213645)))) (declare (not safe)) - (cons __tmp211305 __tmp211293)))) + (cons __tmp213656 __tmp213644)))) (declare (not safe)) - (cons __tmp211292 '())))) + (cons __tmp213643 '())))) (declare (not safe)) - (cons __tmp211306 __tmp211291))) - (__tmp211224 - (let ((__tmp211270 - (let ((__tmp211286 - (let ((__tmp211289 + (cons __tmp213657 __tmp213642))) + (__tmp213575 + (let ((__tmp213621 + (let ((__tmp213637 + (let ((__tmp213640 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp211287 - (let ((__tmp211288 + (__tmp213638 + (let ((__tmp213639 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp211288 '())))) + (cons __tmp213639 '())))) (declare (not safe)) - (cons __tmp211289 __tmp211287))) - (__tmp211271 - (let ((__tmp211272 - (let ((__tmp211285 + (cons __tmp213640 __tmp213638))) + (__tmp213622 + (let ((__tmp213623 + (let ((__tmp213636 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp211273 - (let ((__tmp211284 + (__tmp213624 + (let ((__tmp213635 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp211274 - (let ((__tmp211275 - (let ((__tmp211276 - (let ((__tmp211283 + (__tmp213625 + (let ((__tmp213626 + (let ((__tmp213627 + (let ((__tmp213634 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp211277 - (let ((__tmp211279 - (let ((__tmp211282 + (__tmp213628 + (let ((__tmp213630 + (let ((__tmp213633 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp211280 - (let ((__tmp211281 + (__tmp213631 + (let ((__tmp213632 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp211281 '())))) + (cons __tmp213632 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211282 - __tmp211280))) - (__tmp211278 + (cons __tmp213633 + __tmp213631))) + (__tmp213629 (let () (declare (not safe)) - (cons _L193389_ '())))) + (cons _L195638_ '())))) (declare (not safe)) - (cons __tmp211279 __tmp211278)))) + (cons __tmp213630 __tmp213629)))) (declare (not safe)) - (cons __tmp211283 __tmp211277)))) + (cons __tmp213634 __tmp213628)))) (declare (not safe)) - (cons __tmp211276 '())))) + (cons __tmp213627 '())))) (declare (not safe)) - (cons _L193390_ __tmp211275)))) + (cons _L195639_ __tmp213626)))) (declare (not safe)) - (cons __tmp211284 __tmp211274)))) + (cons __tmp213635 __tmp213625)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211285 - __tmp211273)))) + (cons __tmp213636 + __tmp213624)))) (declare (not safe)) - (cons __tmp211272 '())))) + (cons __tmp213623 '())))) (declare (not safe)) - (cons __tmp211286 __tmp211271))) - (__tmp211225 - (let ((__tmp211226 - (let ((__tmp211269 + (cons __tmp213637 __tmp213622))) + (__tmp213576 + (let ((__tmp213577 + (let ((__tmp213620 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_))) - (__tmp211227 - (let ((__tmp211228 - (let ((__tmp211268 + (__tmp213578 + (let ((__tmp213579 + (let ((__tmp213619 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp211229 - (let ((__tmp211255 - (let ((__tmp211267 + (__tmp213580 + (let ((__tmp213606 + (let ((__tmp213618 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp211256 - (let ((__tmp211257 - (let ((__tmp211266 + (__tmp213607 + (let ((__tmp213608 + (let ((__tmp213617 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-symbol))) - (__tmp211258 - (let ((__tmp211259 - (let ((__tmp211265 + (__tmp213609 + (let ((__tmp213610 + (let ((__tmp213616 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gensym))) - (__tmp211260 - (let ((__tmp211261 - (let ((__tmp211264 + (__tmp213611 + (let ((__tmp213612 + (let ((__tmp213615 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp211262 - (let ((__tmp211263 + (__tmp213613 + (let ((__tmp213614 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '__tmp)))) (declare (not safe)) - (cons __tmp211263 '())))) + (cons __tmp213614 '())))) (declare (not safe)) - (cons __tmp211264 __tmp211262)))) + (cons __tmp213615 __tmp213613)))) (declare (not safe)) - (cons __tmp211261 '())))) + (cons __tmp213612 '())))) (declare (not safe)) - (cons __tmp211265 __tmp211260)))) + (cons __tmp213616 __tmp213611)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211259 '())))) + (cons __tmp213610 '())))) (declare (not safe)) - (cons __tmp211266 __tmp211258)))) + (cons __tmp213617 __tmp213609)))) (declare (not safe)) - (cons __tmp211257 '())))) + (cons __tmp213608 '())))) (declare (not safe)) - (cons __tmp211267 __tmp211256))) - (__tmp211230 - (let ((__tmp211231 - (let ((__tmp211254 + (cons __tmp213618 __tmp213607))) + (__tmp213581 + (let ((__tmp213582 + (let ((__tmp213605 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp211232 - (let ((__tmp211253 + (__tmp213583 + (let ((__tmp213604 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp211233 - (let ((__tmp211240 - (let ((__tmp211252 + (__tmp213584 + (let ((__tmp213591 + (let ((__tmp213603 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp211241 - (let ((__tmp211243 - (let ((__tmp211251 + (__tmp213592 + (let ((__tmp213594 + (let ((__tmp213602 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp211244 - (let ((__tmp211250 + (__tmp213595 + (let ((__tmp213601 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp211245 - (let ((__tmp211246 - (let ((__tmp211249 + (__tmp213596 + (let ((__tmp213597 + (let ((__tmp213600 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp211247 - (let ((__tmp211248 + (__tmp213598 + (let ((__tmp213599 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp211248 '())))) + (cons __tmp213599 '())))) (declare (not safe)) - (cons __tmp211249 __tmp211247)))) + (cons __tmp213600 __tmp213598)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211246 '())))) + (cons __tmp213597 '())))) (declare (not safe)) - (cons __tmp211250 __tmp211245)))) + (cons __tmp213601 __tmp213596)))) (declare (not safe)) - (cons __tmp211251 __tmp211244))) - (__tmp211242 + (cons __tmp213602 __tmp213595))) + (__tmp213593 (let () (declare (not safe)) - (cons _L193390_ '())))) + (cons _L195639_ '())))) (declare (not safe)) - (cons __tmp211243 __tmp211242)))) + (cons __tmp213594 __tmp213593)))) (declare (not safe)) - (cons __tmp211252 __tmp211241))) - (__tmp211234 - (let ((__tmp211235 - (let ((__tmp211239 + (cons __tmp213603 __tmp213592))) + (__tmp213585 + (let ((__tmp213586 + (let ((__tmp213590 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp211236 - (let ((__tmp211238 + (__tmp213587 + (let ((__tmp213589 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp211237 + (__tmp213588 (let () (declare (not safe)) - (cons _L193389_ '())))) + (cons _L195638_ '())))) (declare (not safe)) - (cons __tmp211238 __tmp211237)))) + (cons __tmp213589 __tmp213588)))) (declare (not safe)) - (cons __tmp211239 __tmp211236)))) + (cons __tmp213590 __tmp213587)))) (declare (not safe)) - (cons __tmp211235 '())))) + (cons __tmp213586 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211240 - __tmp211234)))) + (cons __tmp213591 + __tmp213585)))) (declare (not safe)) - (cons __tmp211253 __tmp211233)))) + (cons __tmp213604 __tmp213584)))) (declare (not safe)) - (cons __tmp211254 __tmp211232)))) + (cons __tmp213605 __tmp213583)))) (declare (not safe)) - (cons __tmp211231 '())))) + (cons __tmp213582 '())))) (declare (not safe)) - (cons __tmp211255 __tmp211230)))) + (cons __tmp213606 __tmp213581)))) (declare (not safe)) - (cons __tmp211268 __tmp211229)))) + (cons __tmp213619 __tmp213580)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211228 '())))) + (cons __tmp213579 '())))) (declare (not safe)) - (cons __tmp211269 __tmp211227)))) + (cons __tmp213620 __tmp213578)))) (declare (not safe)) - (cons __tmp211226 '())))) + (cons __tmp213577 '())))) (declare (not safe)) - (cons __tmp211270 __tmp211225)))) + (cons __tmp213621 __tmp213576)))) (declare (not safe)) - (cons __tmp211290 __tmp211224)))) + (cons __tmp213641 __tmp213575)))) (declare (not safe)) - (cons __tmp211310 __tmp211223)))) + (cons __tmp213661 __tmp213574)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211314 - __tmp211222)))) + (cons __tmp213665 + __tmp213573)))) (declare (not safe)) - (cons __tmp211315 __tmp211221)))) + (cons __tmp213666 __tmp213572)))) (declare (not safe)) - (cons __tmp211220 '())))) + (cons __tmp213571 '())))) (declare (not safe)) - (cons __tmp211316 __tmp211219))) - (__tmp211213 - (let ((__tmp211214 - (let ((__tmp211217 + (cons __tmp213667 __tmp213570))) + (__tmp213564 + (let ((__tmp213565 + (let ((__tmp213568 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp211215 - (let ((__tmp211216 - (lambda (_g193415193418_ - _g193416193421_) + (__tmp213566 + (let ((__tmp213567 + (lambda (_g195664195667_ + _g195665195670_) (let () (declare (not safe)) - (cons _g193415193418_ - _g193416193421_))))) + (cons _g195664195667_ + _g195665195670_))))) (declare (not safe)) - (foldr1 __tmp211216 '() _L193386_)))) + (foldr1 __tmp213567 '() _L195635_)))) (declare (not safe)) - (cons __tmp211217 __tmp211215)))) + (cons __tmp213568 __tmp213566)))) (declare (not safe)) - (cons __tmp211214 '())))) + (cons __tmp213565 '())))) (declare (not safe)) - (cons __tmp211218 __tmp211213)))) + (cons __tmp213569 __tmp213564)))) (declare (not safe)) - (cons __tmp211321 __tmp211212)))) + (cons __tmp213672 __tmp213563)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211322 - __tmp211211)))) + (cons __tmp213673 + __tmp213562)))) (declare (not safe)) - (cons __tmp211210 '())))) + (cons __tmp213561 '())))) (declare (not safe)) - (cons __tmp211323 __tmp211209)))) + (cons __tmp213674 __tmp213560)))) (declare (not safe)) - (cons __tmp211337 __tmp211208)))) + (cons __tmp213688 __tmp213559)))) (declare (not safe)) - (cons __tmp211338 __tmp211207))) - _body193293193382_ - _hd193283193350_ - _hd193280193340_ - _hd193277193330_)))))) + (cons __tmp213689 __tmp213558))) + _body195542195631_ + _hd195532195599_ + _hd195529195589_ + _hd195526195579_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop193288193362_ - _target193285193356_ + (_loop195537195611_ + _target195534195605_ '())) - (_g193264193299_ _g193265193303_))))) - (_g193264193299_ _g193265193303_)) - (_g193264193299_ _g193265193303_)))) - (_g193264193299_ _g193265193303_)))) + (_g195513195548_ _g195514195552_))))) + (_g195513195548_ _g195514195552_)) + (_g195513195548_ _g195514195552_)))) + (_g195513195548_ _g195514195552_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g193264193299_ - _g193265193303_)))) - (_g193264193299_ _g193265193303_)))) - (_g193264193299_ _g193265193303_)))) - (_g193264193299_ _g193265193303_))))) - (_g193263193424_ _$stx193260_)))) + (_g195513195548_ + _g195514195552_)))) + (_g195513195548_ _g195514195552_)))) + (_g195513195548_ _g195514195552_)))) + (_g195513195548_ _g195514195552_))))) + (_g195512195673_ _$stx195509_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_$stx193429_) - (let* ((_g193433193451_ - (lambda (_g193434193447_) + (lambda (_$stx195678_) + (let* ((_g195682195700_ + (lambda (_g195683195696_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g193434193447_)))) - (_g193432193506_ - (lambda (_g193434193455_) + _g195683195696_)))) + (_g195681195755_ + (lambda (_g195683195704_) (if (let () (declare (not safe)) - (gx#stx-pair? _g193434193455_)) - (let ((_e193439193458_ + (gx#stx-pair? _g195683195704_)) + (let ((_e195688195707_ (let () (declare (not safe)) - (gx#syntax-e _g193434193455_)))) - (let ((_hd193438193462_ + (gx#syntax-e _g195683195704_)))) + (let ((_hd195687195711_ (let () (declare (not safe)) - (##car _e193439193458_))) - (_tl193437193465_ + (##car _e195688195707_))) + (_tl195686195714_ (let () (declare (not safe)) - (##cdr _e193439193458_)))) + (##cdr _e195688195707_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193437193465_)) - (let ((_e193442193468_ + (gx#stx-pair? _tl195686195714_)) + (let ((_e195691195717_ (let () (declare (not safe)) - (gx#syntax-e _tl193437193465_)))) - (let ((_hd193441193472_ + (gx#syntax-e _tl195686195714_)))) + (let ((_hd195690195721_ (let () (declare (not safe)) - (##car _e193442193468_))) - (_tl193440193475_ + (##car _e195691195717_))) + (_tl195689195724_ (let () (declare (not safe)) - (##cdr _e193442193468_)))) + (##cdr _e195691195717_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl193440193475_)) - (let ((_e193445193478_ + (gx#stx-pair? _tl195689195724_)) + (let ((_e195694195727_ (let () (declare (not safe)) (gx#syntax-e - _tl193440193475_)))) - (let ((_hd193444193482_ + _tl195689195724_)))) + (let ((_hd195693195731_ (let () (declare (not safe)) - (##car _e193445193478_))) - (_tl193443193485_ + (##car _e195694195727_))) + (_tl195692195734_ (let () (declare (not safe)) - (##cdr _e193445193478_)))) + (##cdr _e195694195727_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl193443193485_)) - ((lambda (_L193488_ _L193490_) - (let ((__tmp211354 + _tl195692195734_)) + ((lambda (_L195737_ _L195739_) + (let ((__tmp213705 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond-expand))) - (__tmp211339 - (let ((__tmp211351 - (let ((__tmp211353 + (__tmp213690 + (let ((__tmp213702 + (let ((__tmp213704 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives))) - (__tmp211352 + (__tmp213703 (let () (declare (not safe)) - (cons _L193490_ '())))) + (cons _L195739_ '())))) (declare (not safe)) - (cons __tmp211353 __tmp211352))) - (__tmp211340 - (let ((__tmp211341 - (let ((__tmp211350 + (cons __tmp213704 __tmp213703))) + (__tmp213691 + (let ((__tmp213692 + (let ((__tmp213701 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp211342 - (let ((__tmp211343 - (let ((__tmp211349 + (__tmp213693 + (let ((__tmp213694 + (let ((__tmp213700 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp211344 - (let ((__tmp211347 - (let ((__tmp211348 + (__tmp213695 + (let ((__tmp213698 + (let ((__tmp213699 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2671,40 +2671,40 @@ '#f 'current-compile-decls-unsafe?)))) (declare (not safe)) - (cons __tmp211348 '()))) - (__tmp211345 - (let ((__tmp211346 - (let () (declare (not safe)) (cons _L193488_ '())))) + (cons __tmp213699 '()))) + (__tmp213696 + (let ((__tmp213697 + (let () (declare (not safe)) (cons _L195737_ '())))) (declare (not safe)) - (cons _L193490_ __tmp211346)))) + (cons _L195739_ __tmp213697)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211347 - __tmp211345)))) + (cons __tmp213698 + __tmp213696)))) (declare (not safe)) - (cons __tmp211349 __tmp211344)))) + (cons __tmp213700 __tmp213695)))) (declare (not safe)) - (cons __tmp211343 '())))) + (cons __tmp213694 '())))) (declare (not safe)) - (cons __tmp211350 __tmp211342)))) + (cons __tmp213701 __tmp213693)))) (declare (not safe)) - (cons __tmp211341 '())))) + (cons __tmp213692 '())))) (declare (not safe)) - (cons __tmp211351 __tmp211340)))) + (cons __tmp213702 __tmp213691)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp211354 - __tmp211339))) - _hd193444193482_ - _hd193441193472_) - (_g193433193451_ - _g193434193455_)))) - (_g193433193451_ _g193434193455_)))) - (_g193433193451_ _g193434193455_)))) - (_g193433193451_ _g193434193455_))))) - (_g193432193506_ _$stx193429_)))) + (cons __tmp213705 + __tmp213690))) + _hd195693195731_ + _hd195690195721_) + (_g195682195700_ + _g195683195704_)))) + (_g195682195700_ _g195683195704_)))) + (_g195682195700_ _g195683195704_)))) + (_g195682195700_ _g195683195704_))))) + (_g195681195755_ _$stx195678_)))) (define |gxc[:0:]#meta-state| - (let ((__obj210117 + (let ((__obj212466 (let () (declare (not safe)) (##structure @@ -2726,7 +2726,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210117 + __obj212466 'gxc#meta-state::t '1 gerbil/core$$#class-type-info::t @@ -2734,7 +2734,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210117 + __obj212466 'meta-state '2 gerbil/core$$#class-type-info::t @@ -2742,7 +2742,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210117 + __obj212466 '(src n open blocks) '4 gerbil/core$$#class-type-info::t @@ -2750,7 +2750,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210117 + __obj212466 '() '3 gerbil/core$$#class-type-info::t @@ -2758,7 +2758,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210117 + __obj212466 '#t '5 gerbil/core$$#class-type-info::t @@ -2766,7 +2766,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210117 + __obj212466 '#f '6 gerbil/core$$#class-type-info::t @@ -2774,182 +2774,182 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210117 + __obj212466 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211355 |gxc[1]#_g211356_|)) + (let ((__tmp213706 |gxc[1]#_g213707_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210117 - __tmp211355 + __obj212466 + __tmp213706 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211357 |gxc[1]#_g211358_|)) + (let ((__tmp213708 |gxc[1]#_g213709_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210117 - __tmp211357 + __obj212466 + __tmp213708 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211359 |gxc[1]#_g211360_|)) + (let ((__tmp213710 |gxc[1]#_g213711_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210117 - __tmp211359 + __obj212466 + __tmp213710 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211361 - (let ((__tmp211374 - (let ((__tmp211375 |gxc[1]#_g211376_|)) + (let ((__tmp213712 + (let ((__tmp213725 + (let ((__tmp213726 |gxc[1]#_g213727_|)) (declare (not safe)) - (cons 'src __tmp211375))) - (__tmp211362 - (let ((__tmp211371 - (let ((__tmp211372 |gxc[1]#_g211373_|)) + (cons 'src __tmp213726))) + (__tmp213713 + (let ((__tmp213722 + (let ((__tmp213723 |gxc[1]#_g213724_|)) (declare (not safe)) - (cons 'n __tmp211372))) - (__tmp211363 - (let ((__tmp211368 - (let ((__tmp211369 |gxc[1]#_g211370_|)) + (cons 'n __tmp213723))) + (__tmp213714 + (let ((__tmp213719 + (let ((__tmp213720 |gxc[1]#_g213721_|)) (declare (not safe)) - (cons 'open __tmp211369))) - (__tmp211364 - (let ((__tmp211365 - (let ((__tmp211366 - |gxc[1]#_g211367_|)) + (cons 'open __tmp213720))) + (__tmp213715 + (let ((__tmp213716 + (let ((__tmp213717 + |gxc[1]#_g213718_|)) (declare (not safe)) - (cons 'blocks __tmp211366)))) + (cons 'blocks __tmp213717)))) (declare (not safe)) - (cons __tmp211365 '())))) + (cons __tmp213716 '())))) (declare (not safe)) - (cons __tmp211368 __tmp211364)))) + (cons __tmp213719 __tmp213715)))) (declare (not safe)) - (cons __tmp211371 __tmp211363)))) + (cons __tmp213722 __tmp213714)))) (declare (not safe)) - (cons __tmp211374 __tmp211362)))) + (cons __tmp213725 __tmp213713)))) (declare (not safe)) (##unchecked-structure-set! - __obj210117 - __tmp211361 + __obj212466 + __tmp213712 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211377 - (let ((__tmp211390 - (let ((__tmp211391 |gxc[1]#_g211392_|)) + (let ((__tmp213728 + (let ((__tmp213741 + (let ((__tmp213742 |gxc[1]#_g213743_|)) (declare (not safe)) - (cons 'src __tmp211391))) - (__tmp211378 - (let ((__tmp211387 - (let ((__tmp211388 |gxc[1]#_g211389_|)) + (cons 'src __tmp213742))) + (__tmp213729 + (let ((__tmp213738 + (let ((__tmp213739 |gxc[1]#_g213740_|)) (declare (not safe)) - (cons 'n __tmp211388))) - (__tmp211379 - (let ((__tmp211384 - (let ((__tmp211385 |gxc[1]#_g211386_|)) + (cons 'n __tmp213739))) + (__tmp213730 + (let ((__tmp213735 + (let ((__tmp213736 |gxc[1]#_g213737_|)) (declare (not safe)) - (cons 'open __tmp211385))) - (__tmp211380 - (let ((__tmp211381 - (let ((__tmp211382 - |gxc[1]#_g211383_|)) + (cons 'open __tmp213736))) + (__tmp213731 + (let ((__tmp213732 + (let ((__tmp213733 + |gxc[1]#_g213734_|)) (declare (not safe)) - (cons 'blocks __tmp211382)))) + (cons 'blocks __tmp213733)))) (declare (not safe)) - (cons __tmp211381 '())))) + (cons __tmp213732 '())))) (declare (not safe)) - (cons __tmp211384 __tmp211380)))) + (cons __tmp213735 __tmp213731)))) (declare (not safe)) - (cons __tmp211387 __tmp211379)))) + (cons __tmp213738 __tmp213730)))) (declare (not safe)) - (cons __tmp211390 __tmp211378)))) + (cons __tmp213741 __tmp213729)))) (declare (not safe)) (##unchecked-structure-set! - __obj210117 - __tmp211377 + __obj212466 + __tmp213728 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211393 - (let ((__tmp211406 - (let ((__tmp211407 |gxc[1]#_g211408_|)) + (let ((__tmp213744 + (let ((__tmp213757 + (let ((__tmp213758 |gxc[1]#_g213759_|)) (declare (not safe)) - (cons 'src __tmp211407))) - (__tmp211394 - (let ((__tmp211403 - (let ((__tmp211404 |gxc[1]#_g211405_|)) + (cons 'src __tmp213758))) + (__tmp213745 + (let ((__tmp213754 + (let ((__tmp213755 |gxc[1]#_g213756_|)) (declare (not safe)) - (cons 'n __tmp211404))) - (__tmp211395 - (let ((__tmp211400 - (let ((__tmp211401 |gxc[1]#_g211402_|)) + (cons 'n __tmp213755))) + (__tmp213746 + (let ((__tmp213751 + (let ((__tmp213752 |gxc[1]#_g213753_|)) (declare (not safe)) - (cons 'open __tmp211401))) - (__tmp211396 - (let ((__tmp211397 - (let ((__tmp211398 - |gxc[1]#_g211399_|)) + (cons 'open __tmp213752))) + (__tmp213747 + (let ((__tmp213748 + (let ((__tmp213749 + |gxc[1]#_g213750_|)) (declare (not safe)) - (cons 'blocks __tmp211398)))) + (cons 'blocks __tmp213749)))) (declare (not safe)) - (cons __tmp211397 '())))) + (cons __tmp213748 '())))) (declare (not safe)) - (cons __tmp211400 __tmp211396)))) + (cons __tmp213751 __tmp213747)))) (declare (not safe)) - (cons __tmp211403 __tmp211395)))) + (cons __tmp213754 __tmp213746)))) (declare (not safe)) - (cons __tmp211406 __tmp211394)))) + (cons __tmp213757 __tmp213745)))) (declare (not safe)) (##unchecked-structure-set! - __obj210117 - __tmp211393 + __obj212466 + __tmp213744 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211409 - (let ((__tmp211422 - (let ((__tmp211423 |gxc[1]#_g211424_|)) + (let ((__tmp213760 + (let ((__tmp213773 + (let ((__tmp213774 |gxc[1]#_g213775_|)) (declare (not safe)) - (cons 'src __tmp211423))) - (__tmp211410 - (let ((__tmp211419 - (let ((__tmp211420 |gxc[1]#_g211421_|)) + (cons 'src __tmp213774))) + (__tmp213761 + (let ((__tmp213770 + (let ((__tmp213771 |gxc[1]#_g213772_|)) (declare (not safe)) - (cons 'n __tmp211420))) - (__tmp211411 - (let ((__tmp211416 - (let ((__tmp211417 |gxc[1]#_g211418_|)) + (cons 'n __tmp213771))) + (__tmp213762 + (let ((__tmp213767 + (let ((__tmp213768 |gxc[1]#_g213769_|)) (declare (not safe)) - (cons 'open __tmp211417))) - (__tmp211412 - (let ((__tmp211413 - (let ((__tmp211414 - |gxc[1]#_g211415_|)) + (cons 'open __tmp213768))) + (__tmp213763 + (let ((__tmp213764 + (let ((__tmp213765 + |gxc[1]#_g213766_|)) (declare (not safe)) - (cons 'blocks __tmp211414)))) + (cons 'blocks __tmp213765)))) (declare (not safe)) - (cons __tmp211413 '())))) + (cons __tmp213764 '())))) (declare (not safe)) - (cons __tmp211416 __tmp211412)))) + (cons __tmp213767 __tmp213763)))) (declare (not safe)) - (cons __tmp211419 __tmp211411)))) + (cons __tmp213770 __tmp213762)))) (declare (not safe)) - (cons __tmp211422 __tmp211410)))) + (cons __tmp213773 __tmp213761)))) (declare (not safe)) (##unchecked-structure-set! - __obj210117 - __tmp211409 + __obj212466 + __tmp213760 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210117)) + __obj212466)) (define |gxc[:0:]#meta-state-block| - (let ((__obj210118 + (let ((__obj212467 (let () (declare (not safe)) (##structure @@ -2971,7 +2971,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210118 + __obj212467 'gxc#meta-state-block::t '1 gerbil/core$$#class-type-info::t @@ -2979,7 +2979,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210118 + __obj212467 'meta-state-block '2 gerbil/core$$#class-type-info::t @@ -2987,7 +2987,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210118 + __obj212467 '(ctx phi n code) '4 gerbil/core$$#class-type-info::t @@ -2995,7 +2995,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210118 + __obj212467 '() '3 gerbil/core$$#class-type-info::t @@ -3003,7 +3003,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210118 + __obj212467 '#t '5 gerbil/core$$#class-type-info::t @@ -3011,7 +3011,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210118 + __obj212467 '#f '6 gerbil/core$$#class-type-info::t @@ -3019,177 +3019,177 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj210118 + __obj212467 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211425 |gxc[1]#_g211426_|)) + (let ((__tmp213776 |gxc[1]#_g213777_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210118 - __tmp211425 + __obj212467 + __tmp213776 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211427 |gxc[1]#_g211428_|)) + (let ((__tmp213778 |gxc[1]#_g213779_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210118 - __tmp211427 + __obj212467 + __tmp213778 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211429 |gxc[1]#_g211430_|)) + (let ((__tmp213780 |gxc[1]#_g213781_|)) (declare (not safe)) (##unchecked-structure-set! - __obj210118 - __tmp211429 + __obj212467 + __tmp213780 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211431 - (let ((__tmp211444 - (let ((__tmp211445 |gxc[1]#_g211446_|)) + (let ((__tmp213782 + (let ((__tmp213795 + (let ((__tmp213796 |gxc[1]#_g213797_|)) (declare (not safe)) - (cons 'ctx __tmp211445))) - (__tmp211432 - (let ((__tmp211441 - (let ((__tmp211442 |gxc[1]#_g211443_|)) + (cons 'ctx __tmp213796))) + (__tmp213783 + (let ((__tmp213792 + (let ((__tmp213793 |gxc[1]#_g213794_|)) (declare (not safe)) - (cons 'phi __tmp211442))) - (__tmp211433 - (let ((__tmp211438 - (let ((__tmp211439 |gxc[1]#_g211440_|)) + (cons 'phi __tmp213793))) + (__tmp213784 + (let ((__tmp213789 + (let ((__tmp213790 |gxc[1]#_g213791_|)) (declare (not safe)) - (cons 'n __tmp211439))) - (__tmp211434 - (let ((__tmp211435 - (let ((__tmp211436 - |gxc[1]#_g211437_|)) + (cons 'n __tmp213790))) + (__tmp213785 + (let ((__tmp213786 + (let ((__tmp213787 + |gxc[1]#_g213788_|)) (declare (not safe)) - (cons 'code __tmp211436)))) + (cons 'code __tmp213787)))) (declare (not safe)) - (cons __tmp211435 '())))) + (cons __tmp213786 '())))) (declare (not safe)) - (cons __tmp211438 __tmp211434)))) + (cons __tmp213789 __tmp213785)))) (declare (not safe)) - (cons __tmp211441 __tmp211433)))) + (cons __tmp213792 __tmp213784)))) (declare (not safe)) - (cons __tmp211444 __tmp211432)))) + (cons __tmp213795 __tmp213783)))) (declare (not safe)) (##unchecked-structure-set! - __obj210118 - __tmp211431 + __obj212467 + __tmp213782 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211447 - (let ((__tmp211460 - (let ((__tmp211461 |gxc[1]#_g211462_|)) + (let ((__tmp213798 + (let ((__tmp213811 + (let ((__tmp213812 |gxc[1]#_g213813_|)) (declare (not safe)) - (cons 'ctx __tmp211461))) - (__tmp211448 - (let ((__tmp211457 - (let ((__tmp211458 |gxc[1]#_g211459_|)) + (cons 'ctx __tmp213812))) + (__tmp213799 + (let ((__tmp213808 + (let ((__tmp213809 |gxc[1]#_g213810_|)) (declare (not safe)) - (cons 'phi __tmp211458))) - (__tmp211449 - (let ((__tmp211454 - (let ((__tmp211455 |gxc[1]#_g211456_|)) + (cons 'phi __tmp213809))) + (__tmp213800 + (let ((__tmp213805 + (let ((__tmp213806 |gxc[1]#_g213807_|)) (declare (not safe)) - (cons 'n __tmp211455))) - (__tmp211450 - (let ((__tmp211451 - (let ((__tmp211452 - |gxc[1]#_g211453_|)) + (cons 'n __tmp213806))) + (__tmp213801 + (let ((__tmp213802 + (let ((__tmp213803 + |gxc[1]#_g213804_|)) (declare (not safe)) - (cons 'code __tmp211452)))) + (cons 'code __tmp213803)))) (declare (not safe)) - (cons __tmp211451 '())))) + (cons __tmp213802 '())))) (declare (not safe)) - (cons __tmp211454 __tmp211450)))) + (cons __tmp213805 __tmp213801)))) (declare (not safe)) - (cons __tmp211457 __tmp211449)))) + (cons __tmp213808 __tmp213800)))) (declare (not safe)) - (cons __tmp211460 __tmp211448)))) + (cons __tmp213811 __tmp213799)))) (declare (not safe)) (##unchecked-structure-set! - __obj210118 - __tmp211447 + __obj212467 + __tmp213798 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211463 - (let ((__tmp211476 - (let ((__tmp211477 |gxc[1]#_g211478_|)) + (let ((__tmp213814 + (let ((__tmp213827 + (let ((__tmp213828 |gxc[1]#_g213829_|)) (declare (not safe)) - (cons 'ctx __tmp211477))) - (__tmp211464 - (let ((__tmp211473 - (let ((__tmp211474 |gxc[1]#_g211475_|)) + (cons 'ctx __tmp213828))) + (__tmp213815 + (let ((__tmp213824 + (let ((__tmp213825 |gxc[1]#_g213826_|)) (declare (not safe)) - (cons 'phi __tmp211474))) - (__tmp211465 - (let ((__tmp211470 - (let ((__tmp211471 |gxc[1]#_g211472_|)) + (cons 'phi __tmp213825))) + (__tmp213816 + (let ((__tmp213821 + (let ((__tmp213822 |gxc[1]#_g213823_|)) (declare (not safe)) - (cons 'n __tmp211471))) - (__tmp211466 - (let ((__tmp211467 - (let ((__tmp211468 - |gxc[1]#_g211469_|)) + (cons 'n __tmp213822))) + (__tmp213817 + (let ((__tmp213818 + (let ((__tmp213819 + |gxc[1]#_g213820_|)) (declare (not safe)) - (cons 'code __tmp211468)))) + (cons 'code __tmp213819)))) (declare (not safe)) - (cons __tmp211467 '())))) + (cons __tmp213818 '())))) (declare (not safe)) - (cons __tmp211470 __tmp211466)))) + (cons __tmp213821 __tmp213817)))) (declare (not safe)) - (cons __tmp211473 __tmp211465)))) + (cons __tmp213824 __tmp213816)))) (declare (not safe)) - (cons __tmp211476 __tmp211464)))) + (cons __tmp213827 __tmp213815)))) (declare (not safe)) (##unchecked-structure-set! - __obj210118 - __tmp211463 + __obj212467 + __tmp213814 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp211479 - (let ((__tmp211492 - (let ((__tmp211493 |gxc[1]#_g211494_|)) + (let ((__tmp213830 + (let ((__tmp213843 + (let ((__tmp213844 |gxc[1]#_g213845_|)) (declare (not safe)) - (cons 'ctx __tmp211493))) - (__tmp211480 - (let ((__tmp211489 - (let ((__tmp211490 |gxc[1]#_g211491_|)) + (cons 'ctx __tmp213844))) + (__tmp213831 + (let ((__tmp213840 + (let ((__tmp213841 |gxc[1]#_g213842_|)) (declare (not safe)) - (cons 'phi __tmp211490))) - (__tmp211481 - (let ((__tmp211486 - (let ((__tmp211487 |gxc[1]#_g211488_|)) + (cons 'phi __tmp213841))) + (__tmp213832 + (let ((__tmp213837 + (let ((__tmp213838 |gxc[1]#_g213839_|)) (declare (not safe)) - (cons 'n __tmp211487))) - (__tmp211482 - (let ((__tmp211483 - (let ((__tmp211484 - |gxc[1]#_g211485_|)) + (cons 'n __tmp213838))) + (__tmp213833 + (let ((__tmp213834 + (let ((__tmp213835 + |gxc[1]#_g213836_|)) (declare (not safe)) - (cons 'code __tmp211484)))) + (cons 'code __tmp213835)))) (declare (not safe)) - (cons __tmp211483 '())))) + (cons __tmp213834 '())))) (declare (not safe)) - (cons __tmp211486 __tmp211482)))) + (cons __tmp213837 __tmp213833)))) (declare (not safe)) - (cons __tmp211489 __tmp211481)))) + (cons __tmp213840 __tmp213832)))) (declare (not safe)) - (cons __tmp211492 __tmp211480)))) + (cons __tmp213843 __tmp213831)))) (declare (not safe)) (##unchecked-structure-set! - __obj210118 - __tmp211479 + __obj212467 + __tmp213830 '14 gerbil/core$$#class-type-info::t '#f)) - __obj210118)))) + __obj212467)))) diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index 5ea4487bf..468948649 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 1707573218) + (define gerbil/compiler/driver::timestamp 1707674937) (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 (_path288588_ _fun288589_) + (lambda (_path291583_ _fun291584_) (with-output-to-file - (let ((__tmp293150 + (let ((__tmp296245 (let () (declare (not safe)) - (cons _path288588_ gxc#scheme-file-settings)))) + (cons _path291583_ gxc#scheme-file-settings)))) (declare (not safe)) - (cons 'path: __tmp293150)) - _fun288589_))) + (cons 'path: __tmp296245)) + _fun291584_))) (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-libdir288583_) - (string-append '"-Wl,-rpath=" _gerbil-libdir288583_))) + (lambda (_gerbil-libdir291578_) + (string-append '"-Wl,-rpath=" _gerbil-libdir291578_))) (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 (_dir288581_) (delete-file-or-directory _dir288581_ '#t))) + (lambda (_dir291576_) (delete-file-or-directory _dir291576_ '#t))) (define gxc#compile-module__% - (lambda (_srcpath288555_ _opts288556_) - (if (let () (declare (not safe)) (string? _srcpath288555_)) + (lambda (_srcpath291550_ _opts291551_) + (if (let () (declare (not safe)) (string? _srcpath291550_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath288555_))) - (let ((_outdir288558_ - (let () (declare (not safe)) (pgetq 'output-dir: _opts288556_))) - (_invoke-gsc?288559_ - (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts288556_))) - (_gsc-options288560_ + _srcpath291550_))) + (let ((_outdir291553_ + (let () (declare (not safe)) (pgetq 'output-dir: _opts291551_))) + (_invoke-gsc?291554_ + (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts291551_))) + (_gsc-options291555_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts288556_))) - (_keep-scm?288561_ - (let () (declare (not safe)) (pgetq 'keep-scm: _opts288556_))) - (_verbosity288562_ - (let () (declare (not safe)) (pgetq 'verbose: _opts288556_))) - (_optimize288563_ - (let () (declare (not safe)) (pgetq 'optimize: _opts288556_))) - (_debug288564_ - (let () (declare (not safe)) (pgetq 'debug: _opts288556_))) - (_gen-ssxi288565_ + (pgetq 'gsc-options: _opts291551_))) + (_keep-scm?291556_ + (let () (declare (not safe)) (pgetq 'keep-scm: _opts291551_))) + (_verbosity291557_ + (let () (declare (not safe)) (pgetq 'verbose: _opts291551_))) + (_optimize291558_ + (let () (declare (not safe)) (pgetq 'optimize: _opts291551_))) + (_debug291559_ + (let () (declare (not safe)) (pgetq 'debug: _opts291551_))) + (_gen-ssxi291560_ (let () (declare (not safe)) - (pgetq 'generate-ssxi: _opts288556_)))) - (if _outdir288558_ - (let ((__tmp293151 + (pgetq 'generate-ssxi: _opts291551_)))) + (if _outdir291553_ + (let ((__tmp296246 (lambda () (let () (declare (not safe)) - (create-directory* _outdir288558_))))) + (create-directory* _outdir291553_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp293151)) + (with-lock gxc#+driver-mutex+ __tmp296246)) '#!void) - (if _optimize288563_ - (let ((__tmp293152 + (if _optimize291558_ + (let ((__tmp296247 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp293152)) + (with-lock gxc#+driver-mutex+ __tmp296247)) '#!void) - (let ((__tmp293156 + (let ((__tmp296251 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _srcpath288555_)) - (let ((__tmp293157 - (let ((__tmp293158 + (gxc#verbose '"compile " _srcpath291550_)) + (let ((__tmp296252 + (let ((__tmp296253 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath288555_))))) + (gx#import-module__0 _srcpath291550_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp293158)))) + (with-lock gxc#+driver-mutex+ __tmp296253)))) (declare (not safe)) - (gxc#compile-top-module __tmp293157)))) - (__tmp293155 + (gxc#compile-top-module __tmp296252)))) + (__tmp296250 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp293153 - (let ((__tmp293154 + (__tmp296248 + (let ((__tmp296249 (let () (declare (not safe)) - (cons _srcpath288555_ '())))) + (cons _srcpath291550_ '())))) (declare (not safe)) - (cons 'compile-module __tmp293154)))) + (cons 'compile-module __tmp296249)))) (declare (not safe)) (call-with-parameters - __tmp293156 + __tmp296251 gxc#current-compile-output-dir - _outdir288558_ + _outdir291553_ gxc#current-compile-invoke-gsc - _invoke-gsc?288559_ + _invoke-gsc?291554_ gxc#current-compile-gsc-options - _gsc-options288560_ + _gsc-options291555_ gxc#current-compile-keep-scm - _keep-scm?288561_ + _keep-scm?291556_ gxc#current-compile-verbose - _verbosity288562_ + _verbosity291557_ gxc#current-compile-optimize - _optimize288563_ + _optimize291558_ gxc#current-compile-debug - _debug288564_ + _debug291559_ gxc#current-compile-generate-ssxi - _gen-ssxi288565_ + _gen-ssxi291560_ gxc#current-compile-timestamp - __tmp293155 + __tmp296250 gxc#current-compile-context - __tmp293153 + __tmp296248 gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_srcpath288574_) - (let ((_opts288576_ '())) + (lambda (_srcpath291569_) + (let ((_opts291571_ '())) (declare (not safe)) - (gxc#compile-module__% _srcpath288574_ _opts288576_)))) + (gxc#compile-module__% _srcpath291569_ _opts291571_)))) (define gxc#compile-module - (lambda _g293160_ - (let ((_g293159_ (let () (declare (not safe)) (##length _g293160_)))) - (cond ((let () (declare (not safe)) (##fx= _g293159_ 1)) - (apply (lambda (_srcpath288574_) + (lambda _g296255_ + (let ((_g296254_ (let () (declare (not safe)) (##length _g296255_)))) + (cond ((let () (declare (not safe)) (##fx= _g296254_ 1)) + (apply (lambda (_srcpath291569_) (let () (declare (not safe)) - (gxc#compile-module__0 _srcpath288574_))) - _g293160_)) - ((let () (declare (not safe)) (##fx= _g293159_ 2)) - (apply (lambda (_srcpath288578_ _opts288579_) + (gxc#compile-module__0 _srcpath291569_))) + _g296255_)) + ((let () (declare (not safe)) (##fx= _g296254_ 2)) + (apply (lambda (_srcpath291573_ _opts291574_) (let () (declare (not safe)) (gxc#compile-module__% - _srcpath288578_ - _opts288579_))) - _g293160_)) + _srcpath291573_ + _opts291574_))) + _g296255_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g293160_)))))) + _g296255_)))))) (define gxc#compile-exe__% - (lambda (_srcpath288531_ _opts288532_) - (if (let () (declare (not safe)) (string? _srcpath288531_)) + (lambda (_srcpath291526_ _opts291527_) + (if (let () (declare (not safe)) (string? _srcpath291526_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath288531_))) - (let ((_outdir288534_ - (let () (declare (not safe)) (pgetq 'output-dir: _opts288532_))) - (_invoke-gsc?288535_ - (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts288532_))) - (_gsc-options288536_ + _srcpath291526_))) + (let ((_outdir291529_ + (let () (declare (not safe)) (pgetq 'output-dir: _opts291527_))) + (_invoke-gsc?291530_ + (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts291527_))) + (_gsc-options291531_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts288532_))) - (_keep-scm?288537_ - (let () (declare (not safe)) (pgetq 'keep-scm: _opts288532_))) - (_verbosity288538_ - (let () (declare (not safe)) (pgetq 'verbose: _opts288532_))) - (_debug288539_ - (let () (declare (not safe)) (pgetq 'debug: _opts288532_)))) - (if _outdir288534_ - (let ((__tmp293161 + (pgetq 'gsc-options: _opts291527_))) + (_keep-scm?291532_ + (let () (declare (not safe)) (pgetq 'keep-scm: _opts291527_))) + (_verbosity291533_ + (let () (declare (not safe)) (pgetq 'verbose: _opts291527_))) + (_debug291534_ + (let () (declare (not safe)) (pgetq 'debug: _opts291527_)))) + (if _outdir291529_ + (let ((__tmp296256 (lambda () (let () (declare (not safe)) - (create-directory* _outdir288534_))))) + (create-directory* _outdir291529_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp293161)) + (with-lock gxc#+driver-mutex+ __tmp296256)) '#!void) - (let ((__tmp293165 + (let ((__tmp296260 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _srcpath288531_)) - (let ((__tmp293166 - (let ((__tmp293167 + (gxc#verbose '"compile exe " _srcpath291526_)) + (let ((__tmp296261 + (let ((__tmp296262 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath288531_))))) + (gx#import-module__0 _srcpath291526_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp293167)))) + (with-lock gxc#+driver-mutex+ __tmp296262)))) (declare (not safe)) (gxc#compile-executable-module - __tmp293166 - _opts288532_)))) - (__tmp293164 + __tmp296261 + _opts291527_)))) + (__tmp296259 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp293162 - (let ((__tmp293163 + (__tmp296257 + (let ((__tmp296258 (let () (declare (not safe)) - (cons _srcpath288531_ '())))) + (cons _srcpath291526_ '())))) (declare (not safe)) - (cons 'compile-exe __tmp293163)))) + (cons 'compile-exe __tmp296258)))) (declare (not safe)) (call-with-parameters - __tmp293165 + __tmp296260 gxc#current-compile-output-dir - _outdir288534_ + _outdir291529_ gxc#current-compile-invoke-gsc - _invoke-gsc?288535_ + _invoke-gsc?291530_ gxc#current-compile-gsc-options - _gsc-options288536_ + _gsc-options291531_ gxc#current-compile-keep-scm - _keep-scm?288537_ + _keep-scm?291532_ gxc#current-compile-verbose - _verbosity288538_ + _verbosity291533_ gxc#current-compile-debug - _debug288539_ + _debug291534_ gxc#current-compile-timestamp - __tmp293164 + __tmp296259 gxc#current-compile-context - __tmp293162 + __tmp296257 gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_srcpath288547_) - (let ((_opts288549_ '())) + (lambda (_srcpath291542_) + (let ((_opts291544_ '())) (declare (not safe)) - (gxc#compile-exe__% _srcpath288547_ _opts288549_)))) + (gxc#compile-exe__% _srcpath291542_ _opts291544_)))) (define gxc#compile-exe - (lambda _g293169_ - (let ((_g293168_ (let () (declare (not safe)) (##length _g293169_)))) - (cond ((let () (declare (not safe)) (##fx= _g293168_ 1)) - (apply (lambda (_srcpath288547_) + (lambda _g296264_ + (let ((_g296263_ (let () (declare (not safe)) (##length _g296264_)))) + (cond ((let () (declare (not safe)) (##fx= _g296263_ 1)) + (apply (lambda (_srcpath291542_) (let () (declare (not safe)) - (gxc#compile-exe__0 _srcpath288547_))) - _g293169_)) - ((let () (declare (not safe)) (##fx= _g293168_ 2)) - (apply (lambda (_srcpath288551_ _opts288552_) + (gxc#compile-exe__0 _srcpath291542_))) + _g296264_)) + ((let () (declare (not safe)) (##fx= _g296263_ 2)) + (apply (lambda (_srcpath291546_ _opts291547_) (let () (declare (not safe)) - (gxc#compile-exe__% _srcpath288551_ _opts288552_))) - _g293169_)) + (gxc#compile-exe__% _srcpath291546_ _opts291547_))) + _g296264_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g293169_)))))) + _g296264_)))))) (define gxc#compile-executable-module - (lambda (_ctx288527_ _opts288528_) + (lambda (_ctx291522_ _opts291523_) (if (let () (declare (not safe)) - (pgetq 'full-program-optimization: _opts288528_)) + (pgetq 'full-program-optimization: _opts291523_)) (let () (declare (not safe)) (gxc#compile-executable-module/full-program-optimization - _ctx288527_ - _opts288528_)) + _ctx291522_ + _opts291523_)) (let () (declare (not safe)) (gxc#compile-executable-module/separate - _ctx288527_ - _opts288528_))))) + _ctx291522_ + _opts291523_))))) (define gxc#compile-executable-module/separate - (lambda (_ctx288410_ _opts288411_) - (letrec ((_generate-stub288413_ - (lambda (_builtin-modules288523_) - (let ((_mod-main288525_ + (lambda (_ctx291405_ _opts291406_) + (letrec ((_generate-stub291408_ + (lambda (_builtin-modules291518_) + (let ((_mod-main291520_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx288410_ 'main)))) - (write (let ((__tmp293170 - (let ((__tmp293171 - (let ((__tmp293172 - (let ((__tmp293173 - (let ((__tmp293175 - (let ((__tmp293176 + (gxc#find-runtime-symbol _ctx291405_ 'main)))) + (write (let ((__tmp296265 + (let ((__tmp296266 + (let ((__tmp296267 + (let ((__tmp296268 + (let ((__tmp296270 + (let ((__tmp296271 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _builtin-modules288523_ '())))) + (cons _builtin-modules291518_ '())))) (declare (not safe)) - (cons 'quote __tmp293176))) - (__tmp293174 + (cons 'quote __tmp296271))) + (__tmp296269 (let () (declare (not safe)) (cons 'libgerbil-builtin-modules '())))) (declare (not safe)) - (cons __tmp293175 __tmp293174)))) + (cons __tmp296270 __tmp296269)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'append - __tmp293173)))) + __tmp296268)))) (declare (not safe)) - (cons __tmp293172 '())))) + (cons __tmp296267 '())))) (declare (not safe)) - (cons 'builtin-modules __tmp293171)))) + (cons 'builtin-modules __tmp296266)))) (declare (not safe)) - (cons 'define __tmp293170))) - (write (let ((__tmp293177 - (let ((__tmp293216 + (cons 'define __tmp296265))) + (write (let ((__tmp296272 + (let ((__tmp296311 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp293178 - (let ((__tmp293179 - (let ((__tmp293180 - (let ((__tmp293204 - (let ((__tmp293205 + (__tmp296273 + (let ((__tmp296274 + (let ((__tmp296275 + (let ((__tmp296299 + (let ((__tmp296300 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp293206 - (let ((__tmp293214 - (let ((__tmp293215 + (let ((__tmp296301 + (let ((__tmp296309 + (let ((__tmp296310 (let () (declare (not safe)) (cons 'builtin-modules '())))) (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp293215))) - (__tmp293207 - (let ((__tmp293208 - (let ((__tmp293209 - (let ((__tmp293210 + __tmp296310))) + (__tmp296302 + (let ((__tmp296303 + (let ((__tmp296304 + (let ((__tmp296305 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp293211 - (let ((__tmp293212 - (let ((__tmp293213 + (let ((__tmp296306 + (let ((__tmp296307 + (let ((__tmp296308 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp293213 '())))) + (cons __tmp296308 '())))) (declare (not safe)) - (cons 'cdr __tmp293212)))) + (cons 'cdr __tmp296307)))) (declare (not safe)) - (cons __tmp293211 '())))) + (cons __tmp296306 '())))) (declare (not safe)) - (cons _mod-main288525_ __tmp293210)))) + (cons _mod-main291520_ __tmp296305)))) (declare (not safe)) - (cons 'apply __tmp293209)))) + (cons 'apply __tmp296304)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp293208 '())))) + (cons __tmp296303 '())))) (declare (not safe)) - (cons __tmp293214 __tmp293207)))) + (cons __tmp296309 __tmp296302)))) (declare (not safe)) - (cons '() __tmp293206)))) + (cons '() __tmp296301)))) (declare (not safe)) - (cons 'lambda __tmp293205))) - (__tmp293181 - (let ((__tmp293182 - (let ((__tmp293183 - (let ((__tmp293184 - (let ((__tmp293195 - (let ((__tmp293196 - (let ((__tmp293197 + (cons 'lambda __tmp296300))) + (__tmp296276 + (let ((__tmp296277 + (let ((__tmp296278 + (let ((__tmp296279 + (let ((__tmp296290 + (let ((__tmp296291 + (let ((__tmp296292 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp293198 - (let ((__tmp293199 - (let ((__tmp293200 - (let ((__tmp293201 - (let ((__tmp293202 - (let ((__tmp293203 + (let ((__tmp296293 + (let ((__tmp296294 + (let ((__tmp296295 + (let ((__tmp296296 + (let ((__tmp296297 + (let ((__tmp296298 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'current-output-port '())))) (declare (not safe)) - (cons __tmp293203 '())))) + (cons __tmp296298 '())))) (declare (not safe)) - (cons 'force-output __tmp293202)))) + (cons 'force-output __tmp296297)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp293201 '())))) + (cons __tmp296296 '())))) (declare (not safe)) - (cons '() __tmp293200)))) + (cons '() __tmp296295)))) (declare (not safe)) - (cons 'lambda __tmp293199)))) + (cons 'lambda __tmp296294)))) (declare (not safe)) - (cons __tmp293198 '())))) + (cons __tmp296293 '())))) (declare (not safe)) - (cons 'void __tmp293197)))) + (cons 'void __tmp296292)))) (declare (not safe)) - (cons 'with-catch __tmp293196))) + (cons 'with-catch __tmp296291))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp293185 - (let ((__tmp293186 - (let ((__tmp293187 + (__tmp296280 + (let ((__tmp296281 + (let ((__tmp296282 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp293188 - (let ((__tmp293189 - (let ((__tmp293190 - (let ((__tmp293191 - (let ((__tmp293192 - (let ((__tmp293193 + (let ((__tmp296283 + (let ((__tmp296284 + (let ((__tmp296285 + (let ((__tmp296286 + (let ((__tmp296287 + (let ((__tmp296288 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp293194 + (let ((__tmp296289 (let () (declare (not safe)) (cons 'current-error-port '())))) (declare (not safe)) - (cons __tmp293194 '())))) + (cons __tmp296289 '())))) (declare (not safe)) - (cons 'force-output __tmp293193)))) + (cons 'force-output __tmp296288)))) (declare (not safe)) - (cons __tmp293192 '())))) + (cons __tmp296287 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp293191)))) + (cons '() __tmp296286)))) (declare (not safe)) - (cons 'lambda __tmp293190)))) + (cons 'lambda __tmp296285)))) (declare (not safe)) - (cons __tmp293189 '())))) + (cons __tmp296284 '())))) (declare (not safe)) - (cons 'void __tmp293188)))) + (cons 'void __tmp296283)))) (declare (not safe)) - (cons 'with-catch __tmp293187)))) + (cons 'with-catch __tmp296282)))) (declare (not safe)) - (cons __tmp293186 '())))) + (cons __tmp296281 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp293195 - __tmp293185)))) + (cons __tmp296290 + __tmp296280)))) (declare (not safe)) - (cons '() __tmp293184)))) + (cons '() __tmp296279)))) (declare (not safe)) - (cons 'lambda __tmp293183)))) + (cons 'lambda __tmp296278)))) (declare (not safe)) - (cons __tmp293182 '())))) + (cons __tmp296277 '())))) (declare (not safe)) - (cons __tmp293204 __tmp293181)))) + (cons __tmp296299 __tmp296276)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'with-unwind-protect - __tmp293180)))) + __tmp296275)))) (declare (not safe)) - (cons __tmp293179 '())))) + (cons __tmp296274 '())))) (declare (not safe)) - (cons __tmp293216 __tmp293178)))) + (cons __tmp296311 __tmp296273)))) (declare (not safe)) - (cons 'define __tmp293177))) + (cons 'define __tmp296272))) (write '(gerbil-main)) (newline)))) - (_get-libgerbil-ld-opts288414_ - (lambda (_libgerbil288521_) + (_get-libgerbil-ld-opts291409_ + (lambda (_libgerbil291516_) (call-with-input-file - (string-append _libgerbil288521_ '".ldd") + (string-append _libgerbil291516_ '".ldd") read))) - (_replace-extension288415_ - (lambda (_path288518_ _ext288519_) + (_replace-extension291410_ + (lambda (_path291513_ _ext291514_) (string-append - (path-strip-extension _path288518_) - _ext288519_))) - (_not-exclude-module?288416_ - (lambda (_ctx288514_) - (let ((_id-str288516_ + (path-strip-extension _path291513_) + _ext291514_))) + (_not-exclude-module?291411_ + (lambda (_ctx291509_) + (let ((_id-str291511_ (symbol->string (##structure-ref - _ctx288514_ + _ctx291509_ '1 gx#expander-context::t '#f)))) - (if (let ((__tmp293218 + (if (let ((__tmp296313 (let () (declare (not safe)) (string-prefix? '"gerbil/" - _id-str288516_)))) + _id-str291511_)))) (declare (not safe)) - (not __tmp293218)) - (let ((__tmp293217 + (not __tmp296313)) + (let ((__tmp296312 (let () (declare (not safe)) - (string-prefix? '"std/" _id-str288516_)))) + (string-prefix? '"std/" _id-str291511_)))) (declare (not safe)) - (not __tmp293217)) + (not __tmp296312)) '#f)))) - (_not-file-empty?288417_ - (lambda (_path288512_) - (let ((__tmp293219 + (_not-file-empty?291412_ + (lambda (_path291507_) + (let ((__tmp296314 (let () (declare (not safe)) - (gxc#file-empty? _path288512_)))) + (gxc#file-empty? _path291507_)))) (declare (not safe)) - (not __tmp293219)))) - (_compile-stub288418_ - (lambda (_output-scm288425_ _output-bin288426_) - (let* ((_gerbil-home288428_ + (not __tmp296314)))) + (_compile-stub291413_ + (lambda (_output-scm291420_ _output-bin291421_) + (let* ((_gerbil-home291423_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir288430_ - (path-expand '"lib" _gerbil-home288428_)) - (_gerbil-staticdir288432_ - (path-expand '"static" _gerbil-libdir288430_)) - (_gxlink288434_ + (_gerbil-libdir291425_ + (path-expand '"lib" _gerbil-home291423_)) + (_gerbil-staticdir291427_ + (path-expand '"static" _gerbil-libdir291425_)) + (_gxlink291429_ (path-expand '"libgerbil-link" - _gerbil-libdir288430_)) - (_tmp288436_ + _gerbil-libdir291425_)) + (_tmp291431_ (path-expand (string-append '"gxc." @@ -553,349 +553,349 @@ (declare (not safe)) (gxc#compile-timestamp-nanos)))) '"/tmp")) - (_tmp-path288440_ - (lambda (_f288438_) + (_tmp-path291435_ + (lambda (_f291433_) (path-expand - (path-strip-directory _f288438_) - _tmp288436_))) - (_deps288442_ + (path-strip-directory _f291433_) + _tmp291431_))) + (_deps291437_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx288410_))) - (_deps288444_ + (gxc#find-runtime-module-deps _ctx291405_))) + (_deps291439_ (let () (declare (not safe)) - (filter _not-exclude-module?288416_ - _deps288442_))) - (_src-deps-scm288446_ - (map gxc#find-static-module-file _deps288444_)) - (_src-deps-scm288448_ + (filter _not-exclude-module?291411_ + _deps291437_))) + (_src-deps-scm291441_ + (map gxc#find-static-module-file _deps291439_)) + (_src-deps-scm291443_ (let () (declare (not safe)) - (filter _not-file-empty?288417_ - _src-deps-scm288446_))) - (_src-deps-scm288450_ - (map path-expand _src-deps-scm288448_)) - (_deps-scm288452_ - (map _tmp-path288440_ _src-deps-scm288450_)) - (_deps-c288458_ - (map (lambda (_g288453288455_) + (filter _not-file-empty?291412_ + _src-deps-scm291441_))) + (_src-deps-scm291445_ + (map path-expand _src-deps-scm291443_)) + (_deps-scm291447_ + (map _tmp-path291435_ _src-deps-scm291445_)) + (_deps-c291453_ + (map (lambda (_g291448291450_) (let () (declare (not safe)) - (_replace-extension288415_ - _g288453288455_ + (_replace-extension291410_ + _g291448291450_ '".c"))) - _deps-scm288452_)) - (_deps-o288464_ - (map (lambda (_g288459288461_) + _deps-scm291447_)) + (_deps-o291459_ + (map (lambda (_g291454291456_) (let () (declare (not safe)) - (_replace-extension288415_ - _g288459288461_ + (_replace-extension291410_ + _g291454291456_ '".o"))) - _deps-scm288452_)) - (_src-bin-scm288466_ + _deps-scm291447_)) + (_src-bin-scm291461_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx288410_))) - (_src-bin-scm288468_ - (path-expand _src-bin-scm288466_)) - (_bin-scm288470_ + (gxc#find-static-module-file _ctx291405_))) + (_src-bin-scm291463_ + (path-expand _src-bin-scm291461_)) + (_bin-scm291465_ (let () (declare (not safe)) - (_tmp-path288440_ _src-bin-scm288468_))) - (_bin-c288472_ + (_tmp-path291435_ _src-bin-scm291463_))) + (_bin-c291467_ (let () (declare (not safe)) - (_replace-extension288415_ - _bin-scm288470_ + (_replace-extension291410_ + _bin-scm291465_ '".c"))) - (_bin-o288474_ + (_bin-o291469_ (let () (declare (not safe)) - (_replace-extension288415_ - _bin-scm288470_ + (_replace-extension291410_ + _bin-scm291465_ '".o"))) - (_output-bin288476_ - (path-expand _output-bin288426_)) - (_output-scm288478_ - (path-expand _output-scm288425_)) - (_output-c288480_ + (_output-bin291471_ + (path-expand _output-bin291421_)) + (_output-scm291473_ + (path-expand _output-scm291420_)) + (_output-c291475_ (let () (declare (not safe)) - (_replace-extension288415_ - _output-scm288478_ + (_replace-extension291410_ + _output-scm291473_ '".c"))) - (_output-o288482_ + (_output-o291477_ (let () (declare (not safe)) - (_replace-extension288415_ - _output-scm288478_ + (_replace-extension291410_ + _output-scm291473_ '".o"))) - (_output_-c288484_ + (_output_-c291479_ (let () (declare (not safe)) - (_replace-extension288415_ - _output-scm288478_ + (_replace-extension291410_ + _output-scm291473_ '"_.c"))) - (_output_-o288486_ + (_output_-o291481_ (let () (declare (not safe)) - (_replace-extension288415_ - _output-scm288478_ + (_replace-extension291410_ + _output-scm291473_ '"_.o"))) - (_gsc-link-opts288488_ + (_gsc-link-opts291483_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts288490_ + (_gsc-cc-opts291485_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts288492_ + (_gsc-static-opts291487_ (let () (declare (not safe)) (gxc#gsc-static-include-options - _gerbil-staticdir288432_))) - (_output-ld-opts288494_ + _gerbil-staticdir291427_))) + (_output-ld-opts291489_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_libgerbil.a288496_ - (path-expand '"libgerbil.a" _gerbil-libdir288430_)) - (_libgerbil.so288498_ + (_libgerbil.a291491_ + (path-expand '"libgerbil.a" _gerbil-libdir291425_)) + (_libgerbil.so291493_ (path-expand '"libgerbil.so" - _gerbil-libdir288430_)) - (_libgerbil-ld-opts288500_ - (if (file-exists? _libgerbil.so288498_) + _gerbil-libdir291425_)) + (_libgerbil-ld-opts291495_ + (if (file-exists? _libgerbil.so291493_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts288414_ - _libgerbil.so288498_)) - (if (file-exists? _libgerbil.a288496_) + (_get-libgerbil-ld-opts291409_ + _libgerbil.so291493_)) + (if (file-exists? _libgerbil.a291491_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts288414_ - _libgerbil.a288496_)) + (_get-libgerbil-ld-opts291409_ + _libgerbil.a291491_)) (let () (declare (not safe)) (gxc#raise-compile-error '"libgerbil does not exist" - _libgerbil.a288496_ - _libgerbil.so288498_))))) - (_rpath288502_ + _libgerbil.a291491_ + _libgerbil.so291493_))))) + (_rpath291497_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir288430_))) - (_builtin-modules288506_ - (map (lambda (_mod288504_) + (gxc#gerbil-rpath _gerbil-libdir291425_))) + (_builtin-modules291501_ + (map (lambda (_mod291499_) (symbol->string (##structure-ref - _mod288504_ + _mod291499_ '1 gx#expander-context::t '#f))) (let () (declare (not safe)) - (cons _ctx288410_ _deps288444_))))) - (let ((__tmp293220 + (cons _ctx291405_ _deps291439_))))) + (let ((__tmp296315 (lambda () - (let ((__tmp293221 - (path-directory _output-bin288476_))) + (let ((__tmp296316 + (path-directory _output-bin291471_))) (declare (not safe)) - (create-directory* __tmp293221))))) + (create-directory* __tmp296316))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp293220)) - (let ((__tmp293222 + (with-lock gxc#+driver-mutex+ __tmp296315)) + (let ((__tmp296317 (lambda () (let () (declare (not safe)) - (_generate-stub288413_ - _builtin-modules288506_))))) + (_generate-stub291408_ + _builtin-modules291501_))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm288478_ - __tmp293222)) + _output-scm291473_ + __tmp296317)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp293223 - (lambda () (create-directory _tmp288436_)))) + (let ((__tmp296318 + (lambda () (create-directory _tmp291431_)))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp293223)) + (with-lock gxc#+driver-mutex+ __tmp296318)) (for-each copy-file - _src-deps-scm288450_ - _deps-scm288452_) - (copy-file _src-bin-scm288468_ _bin-scm288470_) - (let ((__tmp293231 + _src-deps-scm291445_ + _deps-scm291447_) + (copy-file _src-bin-scm291463_ _bin-scm291465_) + (let ((__tmp296326 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp293224 - (let ((__tmp293225 - (let ((__tmp293226 - (let ((__tmp293227 - (let ((__tmp293228 - (let ((__tmp293229 + (__tmp296319 + (let ((__tmp296320 + (let ((__tmp296321 + (let ((__tmp296322 + (let ((__tmp296323 + (let ((__tmp296324 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp293230 + (let ((__tmp296325 (let () (declare (not safe)) - (cons _output-scm288478_ '())))) + (cons _output-scm291473_ '())))) (declare (not safe)) - (cons _bin-scm288470_ __tmp293230)))) + (cons _bin-scm291465_ __tmp296325)))) (declare (not safe)) - (foldr1 cons __tmp293229 _deps-scm288452_)))) + (foldr1 cons __tmp296324 _deps-scm291447_)))) (declare (not safe)) - (foldr1 cons __tmp293228 _gsc-link-opts288488_)))) + (foldr1 cons __tmp296323 _gsc-link-opts291483_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _gxlink288434_ - __tmp293227)))) + (cons _gxlink291429_ + __tmp296322)))) (declare (not safe)) - (cons '"-l" __tmp293226)))) + (cons '"-l" __tmp296321)))) (declare (not safe)) - (cons '"-link" __tmp293225)))) + (cons '"-link" __tmp296320)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp293231 - __tmp293224)) - (let ((__tmp293239 + __tmp296326 + __tmp296319)) + (let ((__tmp296334 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp293232 - (let ((__tmp293233 - (let ((__tmp293234 - (let ((__tmp293235 - (let ((__tmp293236 - (let ((__tmp293237 + (__tmp296327 + (let ((__tmp296328 + (let ((__tmp296329 + (let ((__tmp296330 + (let ((__tmp296331 + (let ((__tmp296332 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp293238 + (let ((__tmp296333 (let () (declare (not safe)) - (cons _output_-c288484_ '())))) + (cons _output_-c291479_ '())))) (declare (not safe)) - (cons _output-c288480_ __tmp293238)))) + (cons _output-c291475_ __tmp296333)))) (declare (not safe)) - (cons _bin-c288472_ __tmp293237)))) + (cons _bin-c291467_ __tmp296332)))) (declare (not safe)) - (foldr1 cons __tmp293236 _deps-c288458_)))) + (foldr1 cons __tmp296331 _deps-c291453_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp293235 - _gsc-static-opts288492_)))) + __tmp296330 + _gsc-static-opts291487_)))) (declare (not safe)) (foldr1 cons - __tmp293234 - _gsc-cc-opts288490_)))) + __tmp296329 + _gsc-cc-opts291485_)))) (declare (not safe)) - (cons '"-obj" __tmp293233)))) + (cons '"-obj" __tmp296328)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp293239 - __tmp293232)) - (let ((__tmp293252 + __tmp296334 + __tmp296327)) + (let ((__tmp296347 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp293240 - (let ((__tmp293241 - (let ((__tmp293242 - (let ((__tmp293243 - (let ((__tmp293244 - (let ((__tmp293245 + (__tmp296335 + (let ((__tmp296336 + (let ((__tmp296337 + (let ((__tmp296338 + (let ((__tmp296339 + (let ((__tmp296340 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp293246 - (let ((__tmp293247 - (let ((__tmp293248 - (let ((__tmp293249 - (let ((__tmp293250 + (let ((__tmp296341 + (let ((__tmp296342 + (let ((__tmp296343 + (let ((__tmp296344 + (let ((__tmp296345 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp293251 + (let ((__tmp296346 (let () (declare (not safe)) (cons '"-lgambit" - _libgerbil-ld-opts288500_)))) + _libgerbil-ld-opts291495_)))) (declare (not safe)) - (cons '"-lgerbil" __tmp293251)))) + (cons '"-lgerbil" __tmp296346)))) (declare (not safe)) - (cons _gerbil-libdir288430_ __tmp293250)))) + (cons _gerbil-libdir291425_ __tmp296345)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"-L" - __tmp293249)))) + __tmp296344)))) (declare (not safe)) - (cons _rpath288502_ - __tmp293248)))) + (cons _rpath291497_ + __tmp296343)))) (declare (not safe)) (foldr1 cons - __tmp293247 - _output-ld-opts288494_)))) + __tmp296342 + _output-ld-opts291489_)))) (declare (not safe)) - (cons _output_-o288486_ __tmp293246)))) + (cons _output_-o291481_ __tmp296341)))) (declare (not safe)) - (cons _output-o288482_ __tmp293245)))) + (cons _output-o291477_ __tmp296340)))) (declare (not safe)) - (cons _bin-o288474_ __tmp293244)))) + (cons _bin-o291469_ __tmp296339)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp293243 - _deps-o288464_)))) + __tmp296338 + _deps-o291459_)))) (declare (not safe)) - (cons _output-bin288476_ - __tmp293242)))) + (cons _output-bin291471_ + __tmp296337)))) (declare (not safe)) - (cons '"-o" __tmp293241)))) + (cons '"-o" __tmp296336)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp293252 - __tmp293240)) + __tmp296347 + __tmp296335)) (for-each delete-file - (let ((__tmp293253 - (let ((__tmp293254 - (let ((__tmp293255 + (let ((__tmp296348 + (let ((__tmp296349 + (let ((__tmp296350 (let () (declare (not safe)) - (cons _output_-o288486_ + (cons _output_-o291481_ '())))) (declare (not safe)) - (cons _output-o288482_ - __tmp293255)))) + (cons _output-o291477_ + __tmp296350)))) (declare (not safe)) - (cons _output_-c288484_ __tmp293254)))) + (cons _output_-c291479_ __tmp296349)))) (declare (not safe)) - (cons _output-c288480_ __tmp293253))) + (cons _output-c291475_ __tmp296348))) (let () (declare (not safe)) - (gxc#delete-directory* _tmp288436_))) + (gxc#delete-directory* _tmp291431_))) '#!void))))) - (let* ((_output-bin288420_ + (let* ((_output-bin291415_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx288410_ _opts288411_))) - (_output-scm288422_ - (string-append _output-bin288420_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx291405_ _opts291406_))) + (_output-scm291417_ + (string-append _output-bin291415_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub288418_ _output-scm288422_ _output-bin288420_)) + (_compile-stub291413_ _output-scm291417_ _output-bin291415_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm288422_)))))) + (delete-file _output-scm291417_)))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_ctx288235_ _opts288236_) - (letrec ((_reset-declare288238_ + (lambda (_ctx291230_ _opts291231_) + (letrec ((_reset-declare291233_ (lambda () '(declare (gambit-scheme) @@ -917,661 +917,661 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_generate-stub288239_ - (lambda (_deps288401_) - (let ((_mod-main288403_ + (_generate-stub291234_ + (lambda (_deps291396_) + (let ((_mod-main291398_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx288235_ 'main))) - (_reset-decl288404_ + (gxc#find-runtime-symbol _ctx291230_ 'main))) + (_reset-decl291399_ (let () (declare (not safe)) - (_reset-declare288238_))) - (_user-decl288405_ + (_reset-declare291233_))) + (_user-decl291400_ (let () (declare (not safe)) - (_user-declare288240_)))) + (_user-declare291235_)))) (for-each - (lambda (_dep288407_) + (lambda (_dep291402_) (write '(##namespace (""))) (newline) - (write _reset-decl288404_) + (write _reset-decl291399_) (newline) - (if _user-decl288405_ - (begin (write _user-decl288405_) (newline)) + (if _user-decl291400_ + (begin (write _user-decl291400_) (newline)) '#!void) - (write (let ((__tmp293256 + (write (let ((__tmp296351 (let () (declare (not safe)) - (cons _dep288407_ '())))) + (cons _dep291402_ '())))) (declare (not safe)) - (cons 'include __tmp293256))) + (cons 'include __tmp296351))) (newline)) - _deps288401_) - (write (let ((__tmp293257 - (let ((__tmp293270 + _deps291396_) + (write (let ((__tmp296352 + (let ((__tmp296365 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp293258 - (let ((__tmp293266 - (let ((__tmp293267 - (let ((__tmp293268 - (let ((__tmp293269 + (__tmp296353 + (let ((__tmp296361 + (let ((__tmp296362 + (let ((__tmp296363 + (let ((__tmp296364 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons 'quote __tmp293269)))) + (cons 'quote __tmp296364)))) (declare (not safe)) - (cons __tmp293268 '())))) + (cons __tmp296363 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp293267))) - (__tmp293259 - (let ((__tmp293260 - (let ((__tmp293261 - (let ((__tmp293262 + __tmp296362))) + (__tmp296354 + (let ((__tmp296355 + (let ((__tmp296356 + (let ((__tmp296357 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp293263 - (let ((__tmp293264 - (let ((__tmp293265 + (let ((__tmp296358 + (let ((__tmp296359 + (let ((__tmp296360 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp293265 '())))) + (cons __tmp296360 '())))) (declare (not safe)) - (cons 'cdr __tmp293264)))) + (cons 'cdr __tmp296359)))) (declare (not safe)) - (cons __tmp293263 '())))) + (cons __tmp296358 '())))) (declare (not safe)) - (cons _mod-main288403_ __tmp293262)))) + (cons _mod-main291398_ __tmp296357)))) (declare (not safe)) - (cons 'apply __tmp293261)))) + (cons 'apply __tmp296356)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp293260 '())))) + (cons __tmp296355 '())))) (declare (not safe)) - (cons __tmp293266 __tmp293259)))) + (cons __tmp296361 __tmp296354)))) (declare (not safe)) - (cons __tmp293270 __tmp293258)))) + (cons __tmp296365 __tmp296353)))) (declare (not safe)) - (cons 'define __tmp293257))) + (cons 'define __tmp296352))) (write '(gerbil-main)) (newline)))) - (_user-declare288240_ + (_user-declare291235_ (lambda () - (let* ((_gsc-opts288306_ + (let* ((_gsc-opts291301_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts288236_))) - (_gsc-prelude288308_ - (if _gsc-opts288306_ - (member '"-prelude" _gsc-opts288306_) + (pgetq 'gsc-options: _opts291231_))) + (_gsc-prelude291303_ + (if _gsc-opts291301_ + (member '"-prelude" _gsc-opts291301_) '#f)) - (_gsc-prelude288310_ - (if _gsc-prelude288308_ + (_gsc-prelude291305_ + (if _gsc-prelude291303_ (read (open-input-string - (cadr _gsc-prelude288308_))) + (cadr _gsc-prelude291303_))) '#f))) - (let _lp288313_ ((_rest288315_ + (let _lp291308_ ((_rest291310_ (let () (declare (not safe)) - (cons _gsc-prelude288310_ '()))) - (_user-decls288316_ '())) - (let* ((_rest288317288325_ _rest288315_) - (_else288319288333_ + (cons _gsc-prelude291305_ '()))) + (_user-decls291311_ '())) + (let* ((_rest291312291320_ _rest291310_) + (_else291314291328_ (lambda () (if (let () (declare (not safe)) - (null? _user-decls288316_)) + (null? _user-decls291311_)) '#f - (let ((__tmp293271 - (reverse _user-decls288316_))) + (let ((__tmp296366 + (reverse _user-decls291311_))) (declare (not safe)) - (cons 'declare __tmp293271))))) - (_K288321288389_ - (lambda (_rest288336_ _expr288337_) - (let* ((_expr288338288350_ _expr288337_) - (_else288341288358_ + (cons 'declare __tmp296366))))) + (_K291316291384_ + (lambda (_rest291331_ _expr291332_) + (let* ((_expr291333291345_ _expr291332_) + (_else291336291353_ (lambda () (let () (declare (not safe)) - (_lp288313_ - _rest288336_ - _user-decls288316_))))) - (let ((_K288346288379_ - (lambda (_decls288377_) - (let ((__tmp293272 + (_lp291308_ + _rest291331_ + _user-decls291311_))))) + (let ((_K291341291374_ + (lambda (_decls291372_) + (let ((__tmp296367 (let () (declare (not safe)) (foldl1 cons - _user-decls288316_ - _decls288377_)))) + _user-decls291311_ + _decls291372_)))) (declare (not safe)) - (_lp288313_ - _rest288336_ - __tmp293272)))) - (_K288343288364_ - (lambda (_exprs288362_) - (let ((__tmp293273 - (append _exprs288362_ - _rest288336_))) + (_lp291308_ + _rest291331_ + __tmp296367)))) + (_K291338291359_ + (lambda (_exprs291357_) + (let ((__tmp296368 + (append _exprs291357_ + _rest291331_))) (declare (not safe)) - (_lp288313_ - __tmp293273 - _user-decls288316_))))) + (_lp291308_ + __tmp296368 + _user-decls291311_))))) (if (let () (declare (not safe)) - (##pair? _expr288338288350_)) - (let ((_tl288348288384_ + (##pair? _expr291333291345_)) + (let ((_tl291343291379_ (let () (declare (not safe)) - (##cdr _expr288338288350_))) - (_hd288347288382_ + (##cdr _expr291333291345_))) + (_hd291342291377_ (let () (declare (not safe)) - (##car _expr288338288350_)))) + (##car _expr291333291345_)))) (if (let () (declare (not safe)) - (##eq? _hd288347288382_ + (##eq? _hd291342291377_ 'declare)) - (let ((_decls288387_ - _tl288348288384_)) + (let ((_decls291382_ + _tl291343291379_)) (declare (not safe)) - (_K288346288379_ - _decls288387_)) + (_K291341291374_ + _decls291382_)) (if (let () (declare (not safe)) - (##eq? _hd288347288382_ + (##eq? _hd291342291377_ 'begin)) - (let ((_exprs288372_ - _tl288348288384_)) + (let ((_exprs291367_ + _tl291343291379_)) (declare (not safe)) - (_K288343288364_ - _exprs288372_)) + (_K291338291359_ + _exprs291367_)) (let () (declare (not safe)) - (_else288341288358_))))) + (_else291336291353_))))) (let () (declare (not safe)) - (_else288341288358_)))))))) + (_else291336291353_)))))))) (if (let () (declare (not safe)) - (##pair? _rest288317288325_)) - (let ((_hd288322288392_ + (##pair? _rest291312291320_)) + (let ((_hd291317291387_ (let () (declare (not safe)) - (##car _rest288317288325_))) - (_tl288323288394_ + (##car _rest291312291320_))) + (_tl291318291389_ (let () (declare (not safe)) - (##cdr _rest288317288325_)))) - (let* ((_expr288397_ _hd288322288392_) - (_rest288399_ _tl288323288394_)) + (##cdr _rest291312291320_)))) + (let* ((_expr291392_ _hd291317291387_) + (_rest291394_ _tl291318291389_)) (declare (not safe)) - (_K288321288389_ _rest288399_ _expr288397_))) + (_K291316291384_ _rest291394_ _expr291392_))) (let () (declare (not safe)) - (_else288319288333_)))))))) - (_compile-stub288241_ - (lambda (_output-scm288248_ _output-bin288249_) - (let* ((_gerbil-home288251_ + (_else291314291328_)))))))) + (_compile-stub291236_ + (lambda (_output-scm291243_ _output-bin291244_) + (let* ((_gerbil-home291246_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir288253_ - (path-expand '"lib" _gerbil-home288251_)) - (_runtime288255_ + (_gerbil-libdir291248_ + (path-expand '"lib" _gerbil-home291246_)) + (_runtime291250_ (map gxc#find-static-module-file gxc#gerbil-runtime-modules)) - (_gambit-sharp288257_ + (_gambit-sharp291252_ (path-expand '"lib/_gambit#.scm" - _gerbil-home288251_)) - (_include-gambit-sharp288259_ + _gerbil-home291246_)) + (_include-gambit-sharp291254_ (string-append '"(include \"" - _gambit-sharp288257_ + _gambit-sharp291252_ '"\")")) - (_bin-scm288261_ + (_bin-scm291256_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx288235_))) - (_deps288263_ + (gxc#find-static-module-file _ctx291230_))) + (_deps291258_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx288235_))) - (_deps288265_ - (map gxc#find-static-module-file _deps288263_)) - (_deps288270_ - (let ((__tmp293274 - (lambda (_$obj288267_) - (let ((__tmp293275 + (gxc#find-runtime-module-deps _ctx291230_))) + (_deps291260_ + (map gxc#find-static-module-file _deps291258_)) + (_deps291265_ + (let ((__tmp296369 + (lambda (_$obj291262_) + (let ((__tmp296370 (let () (declare (not safe)) - (gxc#file-empty? _$obj288267_)))) + (gxc#file-empty? _$obj291262_)))) (declare (not safe)) - (not __tmp293275))))) + (not __tmp296370))))) (declare (not safe)) - (filter __tmp293274 _deps288265_))) - (_deps288274_ - (let ((__tmp293276 - (lambda (_f288272_) - (let ((__tmp293277 - (member _f288272_ - _runtime288255_))) + (filter __tmp296369 _deps291260_))) + (_deps291269_ + (let ((__tmp296371 + (lambda (_f291267_) + (let ((__tmp296372 + (member _f291267_ + _runtime291250_))) (declare (not safe)) - (not __tmp293277))))) + (not __tmp296372))))) (declare (not safe)) - (filter __tmp293276 _deps288270_))) - (_output-base288276_ + (filter __tmp296371 _deps291265_))) + (_output-base291271_ (string-append - (path-strip-extension _output-scm288248_))) - (_output-c288278_ - (string-append _output-base288276_ '".c")) - (_output-o288280_ - (string-append _output-base288276_ '".o")) - (_output-c_288282_ - (string-append _output-base288276_ '"_.c")) - (_output-o_288284_ - (string-append _output-base288276_ '"_.o")) - (_gsc-link-opts288286_ + (path-strip-extension _output-scm291243_))) + (_output-c291273_ + (string-append _output-base291271_ '".c")) + (_output-o291275_ + (string-append _output-base291271_ '".o")) + (_output-c_291277_ + (string-append _output-base291271_ '"_.c")) + (_output-o_291279_ + (string-append _output-base291271_ '"_.o")) + (_gsc-link-opts291281_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts288288_ + (_gsc-cc-opts291283_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts288290_ - (let ((__tmp293278 + (_gsc-static-opts291285_ + (let ((__tmp296373 (path-expand '"static" - _gerbil-libdir288253_))) + _gerbil-libdir291248_))) (declare (not safe)) - (gxc#gsc-static-include-options __tmp293278))) - (_output-ld-opts288292_ + (gxc#gsc-static-include-options __tmp296373))) + (_output-ld-opts291287_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_gsc-gx-macros288294_ + (_gsc-gx-macros291289_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) - (let ((__tmp293280 - (let ((__tmp293281 - (let ((__tmp293282 + (let ((__tmp296375 + (let ((__tmp296376 + (let ((__tmp296377 (let () (declare (not safe)) - (cons _include-gambit-sharp288259_ + (cons _include-gambit-sharp291254_ '())))) (declare (not safe)) - (cons '"-e" __tmp293282)))) + (cons '"-e" __tmp296377)))) (declare (not safe)) (cons '"(define-cond-expand-feature|enable-smp|)" - __tmp293281)))) + __tmp296376)))) (declare (not safe)) - (cons '"-e" __tmp293280)) - (let ((__tmp293279 + (cons '"-e" __tmp296375)) + (let ((__tmp296374 (let () (declare (not safe)) - (cons _include-gambit-sharp288259_ + (cons _include-gambit-sharp291254_ '())))) (declare (not safe)) - (cons '"-e" __tmp293279)))) - (_gsc-link-opts288296_ - (append _gsc-link-opts288286_ - _gsc-gx-macros288294_)) - (_rpath288298_ + (cons '"-e" __tmp296374)))) + (_gsc-link-opts291291_ + (append _gsc-link-opts291281_ + _gsc-gx-macros291289_)) + (_rpath291293_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir288253_))) - (_default-ld-options288300_ - (let ((__tmp293283 + (gxc#gerbil-rpath _gerbil-libdir291248_))) + (_default-ld-options291295_ + (let ((__tmp296378 (let () (declare (not safe)) (cons '"-lm" '())))) (declare (not safe)) - (cons '"-ldl" __tmp293283)))) - (let ((__tmp293284 + (cons '"-ldl" __tmp296378)))) + (let ((__tmp296379 (lambda () - (let ((__tmp293285 - (path-directory _output-bin288249_))) + (let ((__tmp296380 + (path-directory _output-bin291244_))) (declare (not safe)) - (create-directory* __tmp293285))))) + (create-directory* __tmp296380))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp293284)) - (let ((__tmp293286 + (with-lock gxc#+driver-mutex+ __tmp296379)) + (let ((__tmp296381 (lambda () - (let ((__tmp293287 - (let ((__tmp293288 - (let ((__tmp293289 + (let ((__tmp296382 + (let ((__tmp296383 + (let ((__tmp296384 (let () (declare (not safe)) - (cons _bin-scm288261_ + (cons _bin-scm291256_ '())))) (declare (not safe)) (foldr1 cons - __tmp293289 - _deps288274_)))) + __tmp296384 + _deps291269_)))) (declare (not safe)) (foldr1 cons - __tmp293288 - _runtime288255_)))) + __tmp296383 + _runtime291250_)))) (declare (not safe)) - (_generate-stub288239_ __tmp293287))))) + (_generate-stub291234_ __tmp296382))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm288248_ - __tmp293286)) + _output-scm291243_ + __tmp296381)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp293295 + (let ((__tmp296390 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp293290 - (let ((__tmp293291 - (let ((__tmp293292 - (let ((__tmp293293 - (let ((__tmp293294 + (__tmp296385 + (let ((__tmp296386 + (let ((__tmp296387 + (let ((__tmp296388 + (let ((__tmp296389 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-scm288248_ '())))) + (cons _output-scm291243_ '())))) (declare (not safe)) - (foldr1 cons __tmp293294 _gsc-link-opts288296_)))) + (foldr1 cons __tmp296389 _gsc-link-opts291291_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-c_288282_ - __tmp293293)))) + (cons _output-c_291277_ + __tmp296388)))) (declare (not safe)) - (cons '"-o" __tmp293292)))) + (cons '"-o" __tmp296387)))) (declare (not safe)) - (cons '"-link" __tmp293291)))) + (cons '"-link" __tmp296386)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp293295 - __tmp293290)) - (let ((__tmp293301 + __tmp296390 + __tmp296385)) + (let ((__tmp296396 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp293296 - (let ((__tmp293297 - (let ((__tmp293298 - (let ((__tmp293299 - (let ((__tmp293300 + (__tmp296391 + (let ((__tmp296392 + (let ((__tmp296393 + (let ((__tmp296394 + (let ((__tmp296395 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-c_288282_ '())))) + (cons _output-c_291277_ '())))) (declare (not safe)) - (cons _output-c288278_ __tmp293300)))) + (cons _output-c291273_ __tmp296395)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp293299 - _gsc-static-opts288290_)))) + __tmp296394 + _gsc-static-opts291285_)))) (declare (not safe)) (foldr1 cons - __tmp293298 - _gsc-cc-opts288288_)))) + __tmp296393 + _gsc-cc-opts291283_)))) (declare (not safe)) - (cons '"-obj" __tmp293297)))) + (cons '"-obj" __tmp296392)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp293301 - __tmp293296)) - (let ((__tmp293311 + __tmp296396 + __tmp296391)) + (let ((__tmp296406 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp293302 - (let ((__tmp293303 - (let ((__tmp293304 - (let ((__tmp293305 - (let ((__tmp293306 - (let ((__tmp293307 + (__tmp296397 + (let ((__tmp296398 + (let ((__tmp296399 + (let ((__tmp296400 + (let ((__tmp296401 + (let ((__tmp296402 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp293308 - (let ((__tmp293309 - (let ((__tmp293310 + (let ((__tmp296403 + (let ((__tmp296404 + (let ((__tmp296405 (let () (declare (not safe)) (cons '"-lgambit" - _default-ld-options288300_)))) + _default-ld-options291295_)))) (declare (not safe)) - (cons _gerbil-libdir288253_ - __tmp293310)))) + (cons _gerbil-libdir291248_ + __tmp296405)))) (declare (not safe)) - (cons '"-L" __tmp293309)))) + (cons '"-L" __tmp296404)))) (declare (not safe)) - (cons _rpath288298_ __tmp293308)))) + (cons _rpath291293_ __tmp296403)))) (declare (not safe)) - (foldr1 cons __tmp293307 _output-ld-opts288292_)))) + (foldr1 cons __tmp296402 _output-ld-opts291287_)))) (declare (not safe)) - (cons _output-o_288284_ __tmp293306)))) + (cons _output-o_291279_ __tmp296401)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-o288280_ - __tmp293305)))) + (cons _output-o291275_ + __tmp296400)))) (declare (not safe)) - (cons _output-bin288249_ - __tmp293304)))) + (cons _output-bin291244_ + __tmp296399)))) (declare (not safe)) - (cons '"-o" __tmp293303)))) + (cons '"-o" __tmp296398)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp293311 - __tmp293302))) + __tmp296406 + __tmp296397))) '#!void))))) - (let* ((_output-bin288243_ + (let* ((_output-bin291238_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx288235_ _opts288236_))) - (_output-scm288245_ - (string-append _output-bin288243_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx291230_ _opts291231_))) + (_output-scm291240_ + (string-append _output-bin291238_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub288241_ _output-scm288245_ _output-bin288243_)) + (_compile-stub291236_ _output-scm291240_ _output-bin291238_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm288245_)))))) + (delete-file _output-scm291240_)))))) (define gxc#find-export-binding - (lambda (_ctx288185_ _id288186_) - (let ((_$e288232_ - (let ((__tmp293313 - (lambda (_e288187288189_) - (let* ((_g288191288201_ _e288187288189_) - (_else288193288209_ (lambda () '#f)) - (_K288195288213_ (lambda () '#t))) + (lambda (_ctx291180_ _id291181_) + (let ((_$e291227_ + (let ((__tmp296408 + (lambda (_e291182291184_) + (let* ((_g291186291196_ _e291182291184_) + (_else291188291204_ (lambda () '#f)) + (_K291190291208_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _g288191288201_ + _g291186291196_ 'gx#module-export::t)) - (let* ((_e288196288216_ + (let* ((_e291191291211_ (let () (declare (not safe)) (##unchecked-structure-ref - _g288191288201_ + _g291186291196_ '1 gx#module-export::t '#f))) - (_e288197288219_ + (_e291192291214_ (let () (declare (not safe)) (##unchecked-structure-ref - _g288191288201_ + _g291186291196_ '2 gx#module-export::t '#f))) - (_e288198288222_ + (_e291193291217_ (let () (declare (not safe)) (##unchecked-structure-ref - _g288191288201_ + _g291186291196_ '3 gx#module-export::t '#f)))) (if (let () (declare (not safe)) - (##eq? _e288198288222_ '0)) - (let ((_e288199288225_ + (##eq? _e291193291217_ '0)) + (let ((_e291194291220_ (let () (declare (not safe)) (##unchecked-structure-ref - _g288191288201_ + _g291186291196_ '4 gx#module-export::t '#f)))) - (if ((lambda (_g288227288229_) + (if ((lambda (_g291222291224_) (let () (declare (not safe)) - (eq? _g288227288229_ - _id288186_))) - _e288199288225_) + (eq? _g291222291224_ + _id291181_))) + _e291194291220_) (let () (declare (not safe)) - (_K288195288213_)) + (_K291190291208_)) (let () (declare (not safe)) - (_else288193288209_)))) + (_else291188291204_)))) (let () (declare (not safe)) - (_else288193288209_)))) + (_else291188291204_)))) (let () (declare (not safe)) - (_else288193288209_)))))) - (__tmp293312 + (_else291188291204_)))))) + (__tmp296407 (##structure-ref - _ctx288185_ + _ctx291180_ '9 gx#module-context::t '#f))) (declare (not safe)) - (find __tmp293313 __tmp293312)))) - (if _$e288232_ + (find __tmp296408 __tmp296407)))) + (if _$e291227_ (let () (declare (not safe)) - (gx#core-resolve-module-export _$e288232_)) + (gx#core-resolve-module-export _$e291227_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_ctx288177_ _id288178_) - (let ((_$e288180_ + (lambda (_ctx291172_ _id291173_) + (let ((_$e291175_ (let () (declare (not safe)) - (gxc#find-export-binding _ctx288177_ _id288178_)))) - (if _$e288180_ - ((lambda (_bind288183_) + (gxc#find-export-binding _ctx291172_ _id291173_)))) + (if _$e291175_ + ((lambda (_bind291178_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind288183_ + _bind291178_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _id288178_))) - (##structure-ref _bind288183_ '1 gx#binding::t '#f)) - _$e288180_) - (let ((__tmp293314 + _id291173_))) + (##structure-ref _bind291178_ '1 gx#binding::t '#f)) + _$e291175_) + (let ((__tmp296409 (##structure-ref - _ctx288177_ + _ctx291172_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp293314 - _id288178_)))))) + __tmp296409 + _id291173_)))))) (define gxc#find-runtime-module-deps - (lambda (_ctx288064_) - (letrec* ((_ht288066_ + (lambda (_ctx291059_) + (letrec* ((_ht291061_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_import-set-template288067_ - (lambda (_in288129_ _phi288130_) - (let ((_iphi288132_ - (fx+ _phi288130_ + (_import-set-template291062_ + (lambda (_in291124_ _phi291125_) + (let ((_iphi291127_ + (fx+ _phi291125_ (##direct-structure-ref - _in288129_ + _in291124_ '2 gx#import-set::t '#f))) - (_imports288133_ + (_imports291128_ (##structure-ref (##direct-structure-ref - _in288129_ + _in291124_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp288135_ ((_rest288137_ _imports288133_) - (_r288138_ '())) - (let* ((_rest288139288147_ _rest288137_) - (_else288141288155_ (lambda () _r288138_)) - (_K288143288165_ - (lambda (_rest288158_ _in288159_) + (let _lp291130_ ((_rest291132_ _imports291128_) + (_r291133_ '())) + (let* ((_rest291134291142_ _rest291132_) + (_else291136291150_ (lambda () _r291133_)) + (_K291138291160_ + (lambda (_rest291153_ _in291154_) (if (let () (declare (not safe)) (##structure-instance-of? - _in288159_ + _in291154_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi288132_)) - (let ((__tmp293321 + (fxzero? _iphi291127_)) + (let ((__tmp296416 (let () (declare (not safe)) - (cons _in288159_ - _r288138_)))) + (cons _in291154_ + _r291133_)))) (declare (not safe)) - (_lp288135_ - _rest288158_ - __tmp293321)) + (_lp291130_ + _rest291153_ + __tmp296416)) (let () (declare (not safe)) - (_lp288135_ - _rest288158_ - _r288138_))) + (_lp291130_ + _rest291153_ + _r291133_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in288159_ + _in291154_ 'gx#module-import::t)) - (let ((_iphi288161_ - (fx+ _phi288130_ + (let ((_iphi291156_ + (fx+ _phi291125_ (##direct-structure-ref - _in288159_ + _in291154_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi288161_)) - (let ((__tmp293319 - (let ((__tmp293320 + (fxzero? _iphi291156_)) + (let ((__tmp296414 + (let ((__tmp296415 (##direct-structure-ref (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in288159_ + _in291154_ '1 gx#module-import::t '#f) @@ -1579,892 +1579,892 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp293320 _r288138_)))) + (cons __tmp296415 _r291133_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp288135_ - _rest288158_ - __tmp293319)) + (_lp291130_ + _rest291153_ + __tmp296414)) (let () (declare (not safe)) - (_lp288135_ - _rest288158_ - _r288138_)))) + (_lp291130_ + _rest291153_ + _r291133_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in288159_ + _in291154_ 'gx#import-set::t)) - (let ((_xphi288163_ - (fx+ _iphi288132_ + (let ((_xphi291158_ + (fx+ _iphi291127_ (##direct-structure-ref - _in288159_ + _in291154_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi288163_)) - (let ((__tmp293317 - (let ((__tmp293318 + (fxzero? _xphi291158_)) + (let ((__tmp296412 + (let ((__tmp296413 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in288159_ + _in291154_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp293318 _r288138_)))) + (cons __tmp296413 _r291133_)))) (declare (not safe)) - (_lp288135_ _rest288158_ __tmp293317)) + (_lp291130_ _rest291153_ __tmp296412)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fxpositive? - _xphi288163_) - (let ((__tmp293315 - (let ((__tmp293316 + _xphi291158_) + (let ((__tmp296410 + (let ((__tmp296411 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_import-set-template288067_ - _in288159_ - _iphi288132_)))) + (_import-set-template291062_ + _in291154_ + _iphi291127_)))) (declare (not safe)) - (foldl1 cons _r288138_ __tmp293316)))) + (foldl1 cons _r291133_ __tmp296411)))) (declare (not safe)) - (_lp288135_ _rest288158_ __tmp293315)) + (_lp291130_ _rest291153_ __tmp296410)) (let () (declare (not safe)) - (_lp288135_ _rest288158_ _r288138_))))) + (_lp291130_ _rest291153_ _r291133_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp288135_ - _rest288158_ - _r288138_)))))))) + (_lp291130_ + _rest291153_ + _r291133_)))))))) (if (let () (declare (not safe)) - (##pair? _rest288139288147_)) - (let ((_hd288144288168_ + (##pair? _rest291134291142_)) + (let ((_hd291139291163_ (let () (declare (not safe)) - (##car _rest288139288147_))) - (_tl288145288170_ + (##car _rest291134291142_))) + (_tl291140291165_ (let () (declare (not safe)) - (##cdr _rest288139288147_)))) - (let* ((_in288173_ _hd288144288168_) - (_rest288175_ _tl288145288170_)) + (##cdr _rest291134291142_)))) + (let* ((_in291168_ _hd291139291163_) + (_rest291170_ _tl291140291165_)) (declare (not safe)) - (_K288143288165_ _rest288175_ _in288173_))) + (_K291138291160_ _rest291170_ _in291168_))) (let () (declare (not safe)) - (_else288141288155_)))))))) - (_find-deps288068_ - (lambda (_rest288075_ _deps288076_) - (let* ((_rest288077288085_ _rest288075_) - (_else288079288093_ (lambda () _deps288076_)) - (_K288081288117_ - (lambda (_rest288096_ _hd288097_) + (_else291136291150_)))))))) + (_find-deps291063_ + (lambda (_rest291070_ _deps291071_) + (let* ((_rest291072291080_ _rest291070_) + (_else291074291088_ (lambda () _deps291071_)) + (_K291076291112_ + (lambda (_rest291091_ _hd291092_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd288097_ + _hd291092_ 'gx#module-context::t)) - (let ((_id288099_ + (let ((_id291094_ (##structure-ref - _hd288097_ + _hd291092_ '1 gx#expander-context::t '#f)) - (_imports288100_ + (_imports291095_ (##structure-ref - _hd288097_ + _hd291092_ '8 gx#module-context::t '#f))) (if (let () (declare (not safe)) (table-ref - _ht288066_ - _id288099_ + _ht291061_ + _id291094_ '#f)) (let () (declare (not safe)) - (_find-deps288068_ - _rest288096_ - _deps288076_)) - (let ((_$e288102_ + (_find-deps291063_ + _rest291091_ + _deps291071_)) + (let ((_$e291097_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd288097_)))) - (if _$e288102_ - ((lambda (_pre288105_) - (let ((_xdeps288107_ - (let ((__tmp293334 + _hd291092_)))) + (if _$e291097_ + ((lambda (_pre291100_) + (let ((_xdeps291102_ + (let ((__tmp296429 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _pre288105_ _imports288100_)))) + (cons _pre291100_ _imports291095_)))) (declare (not safe)) - (_find-deps288068_ __tmp293334 _deps288076_)))) + (_find-deps291063_ __tmp296429 _deps291071_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (table-set! - _ht288066_ - _id288099_ - _hd288097_)) - (let ((__tmp293335 + _ht291061_ + _id291094_ + _hd291092_)) + (let ((__tmp296430 (let () (declare (not safe)) - (cons _hd288097_ + (cons _hd291092_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps288107_)))) + _xdeps291102_)))) (declare (not safe)) - (_find-deps288068_ _rest288096_ __tmp293335)))) + (_find-deps291063_ _rest291091_ __tmp296430)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e288102_) - (let ((_xdeps288109_ + _$e291097_) + (let ((_xdeps291104_ (let () (declare (not safe)) - (_find-deps288068_ - _imports288100_ - _deps288076_)))) + (_find-deps291063_ + _imports291095_ + _deps291071_)))) (let () (declare (not safe)) (table-set! - _ht288066_ - _id288099_ - _hd288097_)) - (let ((__tmp293333 + _ht291061_ + _id291094_ + _hd291092_)) + (let ((__tmp296428 (let () (declare (not safe)) - (cons _hd288097_ - _xdeps288109_)))) + (cons _hd291092_ + _xdeps291104_)))) (declare (not safe)) - (_find-deps288068_ - _rest288096_ - __tmp293333))))))) + (_find-deps291063_ + _rest291091_ + __tmp296428))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd288097_ + _hd291092_ 'gx#prelude-context::t)) - (let ((_id288111_ + (let ((_id291106_ (##structure-ref - _hd288097_ + _hd291092_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (table-ref - _ht288066_ - _id288111_ + _ht291061_ + _id291106_ '#f)) (let () (declare (not safe)) - (_find-deps288068_ - _rest288096_ - _deps288076_)) - (let ((_xdeps288113_ - (let ((__tmp293331 + (_find-deps291063_ + _rest291091_ + _deps291071_)) + (let ((_xdeps291108_ + (let ((__tmp296426 (##structure-ref - _hd288097_ + _hd291092_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_find-deps288068_ - __tmp293331 - _deps288076_)))) + (_find-deps291063_ + __tmp296426 + _deps291071_)))) (if (let () (declare (not safe)) (table-ref - _ht288066_ - _id288111_ + _ht291061_ + _id291106_ '#f)) (let () (declare (not safe)) - (_find-deps288068_ - _rest288096_ - _xdeps288113_)) + (_find-deps291063_ + _rest291091_ + _xdeps291108_)) (begin (let () (declare (not safe)) (table-set! - _ht288066_ - _id288111_ - _hd288097_)) - (let ((__tmp293332 + _ht291061_ + _id291106_ + _hd291092_)) + (let ((__tmp296427 (let () (declare (not safe)) - (cons _hd288097_ + (cons _hd291092_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps288113_)))) + _xdeps291108_)))) (declare (not safe)) - (_find-deps288068_ _rest288096_ __tmp293332))))))) + (_find-deps291063_ _rest291091_ __tmp296427))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd288097_ + _hd291092_ 'gx#module-import::t)) - (if (let ((__tmp293330 + (if (let ((__tmp296425 (##direct-structure-ref - _hd288097_ + _hd291092_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp293330)) - (let ((__tmp293328 - (let ((__tmp293329 + (fxzero? __tmp296425)) + (let ((__tmp296423 + (let ((__tmp296424 (##direct-structure-ref - _hd288097_ + _hd291092_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp293329 - _rest288096_)))) + (cons __tmp296424 + _rest291091_)))) (declare (not safe)) - (_find-deps288068_ - __tmp293328 - _deps288076_)) + (_find-deps291063_ + __tmp296423 + _deps291071_)) (let () (declare (not safe)) - (_find-deps288068_ - _rest288096_ - _deps288076_))) + (_find-deps291063_ + _rest291091_ + _deps291071_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd288097_ + _hd291092_ 'gx#module-export::t)) - (let ((__tmp293326 - (let ((__tmp293327 + (let ((__tmp296421 + (let ((__tmp296422 (##direct-structure-ref - _hd288097_ + _hd291092_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp293327 - _rest288096_)))) + (cons __tmp296422 + _rest291091_)))) (declare (not safe)) - (_find-deps288068_ - __tmp293326 - _deps288076_)) + (_find-deps291063_ + __tmp296421 + _deps291071_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd288097_ + _hd291092_ 'gx#import-set::t)) - (if (let ((__tmp293325 + (if (let ((__tmp296420 (##direct-structure-ref - _hd288097_ + _hd291092_ '2 gx#import-set::t '#f))) (declare (not safe)) - (fxzero? __tmp293325)) - (let ((__tmp293323 - (let ((__tmp293324 + (fxzero? __tmp296420)) + (let ((__tmp296418 + (let ((__tmp296419 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _hd288097_ + _hd291092_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp293324 _rest288096_)))) + (cons __tmp296419 _rest291091_)))) (declare (not safe)) - (_find-deps288068_ __tmp293323 _deps288076_)) + (_find-deps291063_ __tmp296418 _deps291071_)) (if (fxpositive? (##direct-structure-ref - _hd288097_ + _hd291092_ '2 gx#import-set::t '#f)) - (let* ((_xdeps288115_ + (let* ((_xdeps291110_ (let () (declare (not safe)) - (_import-set-template288067_ _hd288097_ '0))) - (__tmp293322 + (_import-set-template291062_ _hd291092_ '0))) + (__tmp296417 (let () (declare (not safe)) - (foldl1 cons _rest288096_ _xdeps288115_)))) + (foldl1 cons _rest291091_ _xdeps291110_)))) (declare (not safe)) - (_find-deps288068_ __tmp293322 _deps288076_)) + (_find-deps291063_ __tmp296417 _deps291071_)) (let () (declare (not safe)) - (_find-deps288068_ _rest288096_ _deps288076_)))) + (_find-deps291063_ _rest291091_ _deps291071_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Unexpected module import" - _hd288097_))))))))) + _hd291092_))))))))) (if (let () (declare (not safe)) - (##pair? _rest288077288085_)) - (let ((_hd288082288120_ + (##pair? _rest291072291080_)) + (let ((_hd291077291115_ (let () (declare (not safe)) - (##car _rest288077288085_))) - (_tl288083288122_ + (##car _rest291072291080_))) + (_tl291078291117_ (let () (declare (not safe)) - (##cdr _rest288077288085_)))) - (let* ((_hd288125_ _hd288082288120_) - (_rest288127_ _tl288083288122_)) + (##cdr _rest291072291080_)))) + (let* ((_hd291120_ _hd291077291115_) + (_rest291122_ _tl291078291117_)) (declare (not safe)) - (_K288081288117_ _rest288127_ _hd288125_))) + (_K291076291112_ _rest291122_ _hd291120_))) (let () (declare (not safe)) - (_else288079288093_))))))) - (reverse (let ((__tmp293336 - (let ((__tmp293337 - (let ((_$e288070_ + (_else291074291088_))))))) + (reverse (let ((__tmp296431 + (let ((__tmp296432 + (let ((_$e291065_ (let () (declare (not safe)) (gx#core-context-prelude__% - _ctx288064_)))) - (if _$e288070_ - ((lambda (_pre288073_) - (let ((__tmp293338 + _ctx291059_)))) + (if _$e291065_ + ((lambda (_pre291068_) + (let ((__tmp296433 (##structure-ref - _ctx288064_ + _ctx291059_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre288073_ __tmp293338))) - _$e288070_) + (cons _pre291068_ __tmp296433))) + _$e291065_) (##structure-ref - _ctx288064_ + _ctx291059_ '8 gx#module-context::t '#f))))) (declare (not safe)) - (_find-deps288068_ __tmp293337 '())))) + (_find-deps291063_ __tmp296432 '())))) (declare (not safe)) - (filter gx#expander-context-id __tmp293336)))))) + (filter gx#expander-context-id __tmp296431)))))) (define gxc#find-static-module-file - (lambda (_ctx287995_) - (let* ((_context-id287997_ + (lambda (_ctx290990_) + (let* ((_context-id290992_ (if (let () (declare (not safe)) (##structure-instance-of? - _ctx287995_ + _ctx290990_ 'gx#module-context::t)) - (##structure-ref _ctx287995_ '1 gx#expander-context::t '#f) - (string->symbol _ctx287995_))) - (_scm287999_ + (##structure-ref _ctx290990_ '1 gx#expander-context::t '#f) + (string->symbol _ctx290990_))) + (_scm290994_ (string-append (let () (declare (not safe)) - (gxc#static-module-name _context-id287997_)) + (gxc#static-module-name _context-id290992_)) '".scm")) - (_dirs288001_ (gx#current-expander-module-library-path)) - (_dirs288007_ - (let ((_user-libpath288003_ (getenv '"GERBIL_PATH" '#f))) - (if _user-libpath288003_ - (let ((_user-libpath288005_ - (path-expand '"lib" _user-libpath288003_))) - (if (member _user-libpath288005_ _dirs288001_) - _dirs288001_ + (_dirs290996_ (gx#current-expander-module-library-path)) + (_dirs291002_ + (let ((_user-libpath290998_ (getenv '"GERBIL_PATH" '#f))) + (if _user-libpath290998_ + (let ((_user-libpath291000_ + (path-expand '"lib" _user-libpath290998_))) + (if (member _user-libpath291000_ _dirs290996_) + _dirs290996_ (let () (declare (not safe)) - (cons _user-libpath288005_ _dirs288001_)))) - _dirs288001_))) - (_dirs288016_ - (let ((_$e288009_ (gxc#current-compile-output-dir))) - (if _$e288009_ - ((lambda (_g288011288013_) + (cons _user-libpath291000_ _dirs290996_)))) + _dirs290996_))) + (_dirs291011_ + (let ((_$e291004_ (gxc#current-compile-output-dir))) + (if _$e291004_ + ((lambda (_g291006291008_) (let () (declare (not safe)) - (cons _g288011288013_ _dirs288007_))) - _$e288009_) - _dirs288007_))) - (_dirs288022_ - (map (lambda (_g288017288019_) - (path-expand '"static" _g288017288019_)) - _dirs288016_))) - (let _lp288025_ ((_rest288027_ _dirs288022_)) - (let* ((_rest288028288036_ _rest288027_) - (_else288030288044_ + (cons _g291006291008_ _dirs291002_))) + _$e291004_) + _dirs291002_))) + (_dirs291017_ + (map (lambda (_g291012291014_) + (path-expand '"static" _g291012291014_)) + _dirs291011_))) + (let _lp291020_ ((_rest291022_ _dirs291017_)) + (let* ((_rest291023291031_ _rest291022_) + (_else291025291039_ (lambda () - (let ((__tmp293339 + (let ((__tmp296434 (##structure-ref - _ctx287995_ + _ctx290990_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp293339 - _scm287999_)))) - (_K288032288052_ - (lambda (_rest288047_ _dir288048_) - (let ((_path288050_ - (path-expand _scm287999_ _dir288048_))) - (if (file-exists? _path288050_) - _path288050_ + __tmp296434 + _scm290994_)))) + (_K291027291047_ + (lambda (_rest291042_ _dir291043_) + (let ((_path291045_ + (path-expand _scm290994_ _dir291043_))) + (if (file-exists? _path291045_) + _path291045_ (let () (declare (not safe)) - (_lp288025_ _rest288047_))))))) - (if (let () (declare (not safe)) (##pair? _rest288028288036_)) - (let ((_hd288033288055_ + (_lp291020_ _rest291042_))))))) + (if (let () (declare (not safe)) (##pair? _rest291023291031_)) + (let ((_hd291028291050_ (let () (declare (not safe)) - (##car _rest288028288036_))) - (_tl288034288057_ + (##car _rest291023291031_))) + (_tl291029291052_ (let () (declare (not safe)) - (##cdr _rest288028288036_)))) - (let* ((_dir288060_ _hd288033288055_) - (_rest288062_ _tl288034288057_)) + (##cdr _rest291023291031_)))) + (let* ((_dir291055_ _hd291028291050_) + (_rest291057_ _tl291029291052_)) (declare (not safe)) - (_K288032288052_ _rest288062_ _dir288060_))) - (let () (declare (not safe)) (_else288030288044_)))))))) + (_K291027291047_ _rest291057_ _dir291055_))) + (let () (declare (not safe)) (_else291025291039_)))))))) (define gxc#file-empty? - (lambda (_path287993_) - (let ((__tmp293340 (file-info-size (file-info _path287993_ '#t)))) + (lambda (_path290988_) + (let ((__tmp296435 (file-info-size (file-info _path290988_ '#t)))) (declare (not safe)) - (zero? __tmp293340)))) + (zero? __tmp296435)))) (define gxc#compile-top-module - (lambda (_ctx287982_) - (let ((__tmp293344 + (lambda (_ctx290977_) + (let ((__tmp296439 (lambda () - (let ((__tmp293345 + (let ((__tmp296440 (##structure-ref - _ctx287982_ + _ctx290977_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp293345)) + (gxc#verbose '"compile " __tmp296440)) (if (gxc#current-compile-optimize) - (let ((__tmp293346 + (let ((__tmp296441 (lambda () (let () (declare (not safe)) - (gxc#optimize! _ctx287982_))))) + (gxc#optimize! _ctx290977_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp293346)) + (with-lock gxc#+driver-mutex+ __tmp296441)) '#!void) (let () (declare (not safe)) - (gxc#collect-bindings _ctx287982_)) - (if (let ((__tmp293349 + (gxc#collect-bindings _ctx290977_)) + (if (let ((__tmp296444 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx287982_)))) + (gxc#lift-nested-modules _ctx290977_)))) (declare (not safe)) - (null? __tmp293349)) - (let* ((_thr1287987_ - (let ((__tmp293347 + (null? __tmp296444)) + (let* ((_thr1290982_ + (let ((__tmp296442 (lambda () (let () (declare (not safe)) (gxc#compile-runtime-code - _ctx287982_))))) + _ctx290977_))))) (declare (not safe)) - (spawn __tmp293347))) - (_thr2287990_ - (let ((__tmp293348 + (spawn __tmp296442))) + (_thr2290985_ + (let ((__tmp296443 (lambda () (let () (declare (not safe)) - (gxc#compile-meta-code _ctx287982_))))) + (gxc#compile-meta-code _ctx290977_))))) (declare (not safe)) - (spawn __tmp293348)))) - (let () (declare (not safe)) (gxc#join! _thr1287987_)) - (let () (declare (not safe)) (gxc#join! _thr2287990_))) + (spawn __tmp296443)))) + (let () (declare (not safe)) (gxc#join! _thr1290982_)) + (let () (declare (not safe)) (gxc#join! _thr2290985_))) (begin (let () (declare (not safe)) - (gxc#compile-runtime-code _ctx287982_)) + (gxc#compile-runtime-code _ctx290977_)) (let () (declare (not safe)) - (gxc#compile-meta-code _ctx287982_)))) + (gxc#compile-meta-code _ctx290977_)))) (if (and (gxc#current-compile-optimize) (gxc#current-compile-generate-ssxi)) (let () (declare (not safe)) - (gxc#compile-ssxi-code _ctx287982_)) + (gxc#compile-ssxi-code _ctx290977_)) '#!void))) - (__tmp293343 - (let ((__obj293148 + (__tmp296438 + (let ((__obj296243 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) - (gxc#symbol-table:::init! __obj293148) - __obj293148)) - (__tmp293342 + (gxc#symbol-table:::init! __obj296243) + __obj296243)) + (__tmp296437 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp293341 (let () (declare (not safe)) (make-table)))) + (__tmp296436 (let () (declare (not safe)) (make-table)))) (declare (not safe)) (call-with-parameters - __tmp293344 + __tmp296439 gx#current-expander-context - _ctx287982_ + _ctx290977_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp293343 + __tmp296438 gxc#current-compile-runtime-sections - __tmp293342 + __tmp296437 gxc#current-compile-runtime-names - __tmp293341)))) + __tmp296436)))) (define gxc#collect-bindings - (lambda (_ctx287980_) - (let ((__tmp293350 - (##structure-ref _ctx287980_ '11 gx#module-context::t '#f))) + (lambda (_ctx290975_) + (let ((__tmp296445 + (##structure-ref _ctx290975_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp293350)))) + (gxc#apply-collect-bindings __tmp296445)))) (define gxc#compile-runtime-code - (lambda (_ctx287926_) - (letrec ((_compile1287928_ - (lambda (_ctx287969_) - (let* ((_code287971_ + (lambda (_ctx290921_) + (letrec ((_compile1290923_ + (lambda (_ctx290964_) + (let* ((_code290966_ (##structure-ref - _ctx287969_ + _ctx290964_ '11 gx#module-context::t '#f)) - (_rt287975_ + (_rt290970_ (if (let () (declare (not safe)) - (gxc#apply-find-runtime-code _code287971_)) - (let ((_idstr287973_ - (let ((__tmp293351 + (gxc#apply-find-runtime-code _code290966_)) + (let ((_idstr290968_ + (let ((__tmp296446 (##structure-ref - _ctx287969_ + _ctx290964_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp293351)))) - (string-append _idstr287973_ '"__0")) + __tmp296446)))) + (string-append _idstr290968_ '"__0")) '#f))) - (if _rt287975_ + (if _rt290970_ (begin - (let ((__tmp293352 + (let ((__tmp296447 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (table-set! __tmp293352 _ctx287969_ _rt287975_)) + (table-set! __tmp296447 _ctx290964_ _rt290970_)) (let () (declare (not safe)) - (_generate-runtime-code287930_ - _ctx287969_ - _code287971_))) - (let ((_path287978_ + (_generate-runtime-code290925_ + _ctx290964_ + _code290966_))) + (let ((_path290973_ (let () (declare (not safe)) (gxc#compile-static-output-file - _ctx287969_)))) + _ctx290964_)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path287978_ + _path290973_ void))) (let () (declare (not safe)) - (_generate-loader-code287931_ - _ctx287969_ - _code287971_ - _rt287975_))))) - (_context-timestamp287929_ - (lambda (_ctx287967_) + (_generate-loader-code290926_ + _ctx290964_ + _code290966_ + _rt290970_))))) + (_context-timestamp290924_ + (lambda (_ctx290962_) (string->symbol (string-append (symbol->string (##structure-ref - _ctx287967_ + _ctx290962_ '1 gx#expander-context::t '#f)) '"::timestamp")))) - (_generate-runtime-code287930_ - (lambda (_ctx287949_ _code287950_) - (let* ((_lifts287952_ + (_generate-runtime-code290925_ + (lambda (_ctx290944_ _code290945_) + (let* ((_lifts290947_ (let () (declare (not safe)) (box '()))) - (_runtime-code287955_ - (let ((__tmp293355 + (_runtime-code290950_ + (let ((__tmp296450 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _code287950_)))) - (__tmp293354 + _code290945_)))) + (__tmp296449 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp293353 + (__tmp296448 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp293355 + __tmp296450 gx#current-expander-context - _ctx287949_ + _ctx290944_ gx#current-expander-phi '0 gxc#current-compile-lift - _lifts287952_ + _lifts290947_ gxc#current-compile-marks - __tmp293354 + __tmp296449 gxc#current-compile-identifiers - __tmp293353))) - (_runtime-code287957_ - (if (let ((__tmp293359 (unbox _lifts287952_))) + __tmp296448))) + (_runtime-code290952_ + (if (let ((__tmp296454 (unbox _lifts290947_))) (declare (not safe)) - (null? __tmp293359)) - _runtime-code287955_ - (let ((__tmp293356 - (let ((__tmp293358 + (null? __tmp296454)) + _runtime-code290950_ + (let ((__tmp296451 + (let ((__tmp296453 (let () (declare (not safe)) - (cons _runtime-code287955_ + (cons _runtime-code290950_ '()))) - (__tmp293357 - (reverse (unbox _lifts287952_)))) + (__tmp296452 + (reverse (unbox _lifts290947_)))) (declare (not safe)) (foldr1 cons - __tmp293358 - __tmp293357)))) + __tmp296453 + __tmp296452)))) (declare (not safe)) - (cons 'begin __tmp293356)))) - (_runtime-code287959_ - (let ((__tmp293360 - (let ((__tmp293362 - (let ((__tmp293363 - (let ((__tmp293366 + (cons 'begin __tmp296451)))) + (_runtime-code290954_ + (let ((__tmp296455 + (let ((__tmp296457 + (let ((__tmp296458 + (let ((__tmp296461 (let () (declare (not safe)) - (_context-timestamp287929_ - _ctx287949_))) - (__tmp293364 - (let ((__tmp293365 + (_context-timestamp290924_ + _ctx290944_))) + (__tmp296459 + (let ((__tmp296460 (gxc#current-compile-timestamp))) (declare (not safe)) - (cons __tmp293365 + (cons __tmp296460 '())))) (declare (not safe)) - (cons __tmp293366 - __tmp293364)))) + (cons __tmp296461 + __tmp296459)))) (declare (not safe)) - (cons 'define __tmp293363))) - (__tmp293361 + (cons 'define __tmp296458))) + (__tmp296456 (let () (declare (not safe)) - (cons _runtime-code287957_ '())))) + (cons _runtime-code290952_ '())))) (declare (not safe)) - (cons __tmp293362 __tmp293361)))) + (cons __tmp296457 __tmp296456)))) (declare (not safe)) - (cons 'begin __tmp293360))) - (_scm0287961_ + (cons 'begin __tmp296455))) + (_scm0290956_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx287949_ + _ctx290944_ '0 '".scm")))) - (let ((_scms287964_ + (let ((_scms290959_ (let () (declare (not safe)) - (gxc#compile-static-output-file _ctx287949_)))) - (let ((__tmp293367 + (gxc#compile-static-output-file _ctx290944_)))) + (let ((__tmp296462 (lambda () (let () (declare (not safe)) (gxc#compile-scm-file__0 - _scm0287961_ - _runtime-code287959_))))) + _scm0290956_ + _runtime-code290954_))))) (declare (not safe)) (call-with-parameters - __tmp293367 + __tmp296462 gxc#current-compile-keep-scm '#t)) - (if (file-exists? _scms287964_) - (delete-file _scms287964_) + (if (file-exists? _scms290959_) + (delete-file _scms290959_) '#!void) (let () (declare (not safe)) (gxc#verbose '"copy static module " - _scm0287961_ + _scm0290956_ '" => " - _scms287964_)) - (copy-file _scm0287961_ _scms287964_) + _scms290959_)) + (copy-file _scm0290956_ _scms290959_) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _scm0287961_)))))) - (_generate-loader-code287931_ - (lambda (_ctx287938_ _code287939_ _rt287940_) - (let* ((_loader-code287943_ - (let ((__tmp293368 + (delete-file _scm0290956_)))))) + (_generate-loader-code290926_ + (lambda (_ctx290933_ _code290934_ _rt290935_) + (let* ((_loader-code290938_ + (let ((__tmp296463 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _code287939_))))) + _code290934_))))) (declare (not safe)) (call-with-parameters - __tmp293368 + __tmp296463 gx#current-expander-context - _ctx287938_))) - (_loader-code287945_ - (if _rt287940_ - (let ((__tmp293369 - (let ((__tmp293370 - (let ((__tmp293371 - (let ((__tmp293372 + _ctx290933_))) + (_loader-code290940_ + (if _rt290935_ + (let ((__tmp296464 + (let ((__tmp296465 + (let ((__tmp296466 + (let ((__tmp296467 (let () (declare (not safe)) - (cons _rt287940_ + (cons _rt290935_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons 'load-module __tmp293372)))) + (cons 'load-module __tmp296467)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp293371 '())))) + (cons __tmp296466 '())))) (declare (not safe)) - (cons _loader-code287943_ - __tmp293370)))) + (cons _loader-code290938_ + __tmp296465)))) (declare (not safe)) - (cons 'begin __tmp293369)) - _loader-code287943_))) - (let ((__tmp293373 + (cons 'begin __tmp296464)) + _loader-code290938_))) + (let ((__tmp296468 (lambda () - (let ((__tmp293374 + (let ((__tmp296469 (let () (declare (not safe)) (gxc#compile-output-file - _ctx287938_ + _ctx290933_ 'rt '".scm")))) (declare (not safe)) (gxc#compile-scm-file__0 - __tmp293374 - _loader-code287945_))))) + __tmp296469 + _loader-code290940_))))) (declare (not safe)) (call-with-parameters - __tmp293373 + __tmp296468 gxc#current-compile-gsc-options '#f)))))) - (let ((_all-modules287933_ - (let ((__tmp293375 + (let ((_all-modules290928_ + (let ((__tmp296470 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx287926_)))) + (gxc#lift-nested-modules _ctx290921_)))) (declare (not safe)) - (cons _ctx287926_ __tmp293375)))) + (cons _ctx290921_ __tmp296470)))) (for-each - (lambda (_ctx287935_) - (let ((__tmp293376 + (lambda (_ctx290930_) + (let ((__tmp296471 (lambda () (let () (declare (not safe)) - (_compile1287928_ _ctx287935_))))) + (_compile1290923_ _ctx290930_))))) (declare (not safe)) (call-with-parameters - __tmp293376 + __tmp296471 gxc#current-compile-decls '()))) - _all-modules287933_))))) + _all-modules290928_))))) (define gxc#compile-meta-code - (lambda (_ctx287823_) - (letrec ((_compile-ssi287825_ - (lambda (_code287896_) - (let* ((_path287898_ + (lambda (_ctx290818_) + (letrec ((_compile-ssi290820_ + (lambda (_code290891_) + (let* ((_path290893_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx287823_ + _ctx290818_ '#f '".ssi"))) - (_prelude287909_ - (let* ((_super287900_ + (_prelude290904_ + (let* ((_super290895_ (##structure-ref - _ctx287823_ + _ctx290818_ '3 gx#phi-context::t '#f)) - (_$e287902_ + (_$e290897_ (##structure-ref - _super287900_ + _super290895_ '1 gx#expander-context::t '#f))) - (if _$e287902_ - ((lambda (_g287904287906_) + (if _$e290897_ + ((lambda (_g290899290901_) (let () (declare (not safe)) - (make-symbol__1 '":" _g287904287906_))) - _$e287902_) + (make-symbol__1 '":" _g290899290901_))) + _$e290897_) ':))) - (_ns287911_ + (_ns290906_ (##structure-ref - _ctx287823_ + _ctx290818_ '6 gx#module-context::t '#f)) - (_idstr287913_ + (_idstr290908_ (symbol->string (##structure-ref - _ctx287823_ + _ctx290818_ '1 gx#expander-context::t '#f))) - (_pkg287920_ - (let ((_$e287915_ + (_pkg290915_ + (let ((_$e290910_ (let () (declare (not safe)) - (string-rindex _idstr287913_ '#\/)))) - (if _$e287915_ - ((lambda (_x287918_) + (string-rindex _idstr290908_ '#\/)))) + (if _$e290910_ + ((lambda (_x290913_) (string->symbol - (substring _idstr287913_ '0 _x287918_))) - _$e287915_) + (substring _idstr290908_ '0 _x290913_))) + _$e290910_) '#f))) - (_rt287922_ - (let ((__tmp293377 + (_rt290917_ + (let ((__tmp296472 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (table-ref __tmp293377 _ctx287823_ '#f)))) + (table-ref __tmp296472 _ctx290818_ '#f)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _path287898_)) - (let ((__tmp293378 + (gxc#verbose '"compile " _path290893_)) + (let ((__tmp296473 (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _prelude287909_)) - (if _pkg287920_ + (displayln '"prelude:" '" " _prelude290904_)) + (if _pkg290915_ (let () (declare (not safe)) - (displayln '"package:" '" " _pkg287920_)) + (displayln '"package:" '" " _pkg290915_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _ns287911_)) + (displayln '"namespace:" '" " _ns290906_)) (newline) - (pretty-print _code287896_) - (if _rt287922_ + (pretty-print _code290891_) + (if _rt290917_ (pretty-print - (let ((__tmp293379 - (let ((__tmp293383 - (let ((__tmp293384 + (let ((__tmp296474 + (let ((__tmp296478 + (let ((__tmp296479 (let () (declare (not safe)) (cons 'load-module @@ -2472,1087 +2472,1087 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp293384))) - (__tmp293380 - (let ((__tmp293381 - (let ((__tmp293382 + (cons '%#ref __tmp296479))) + (__tmp296475 + (let ((__tmp296476 + (let ((__tmp296477 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _rt287922_ '())))) + (cons _rt290917_ '())))) (declare (not safe)) - (cons '%#quote __tmp293382)))) + (cons '%#quote __tmp296477)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp293381 '())))) + (cons __tmp296476 '())))) (declare (not safe)) - (cons __tmp293383 __tmp293380)))) + (cons __tmp296478 __tmp296475)))) (declare (not safe)) - (cons '%#call __tmp293379))) + (cons '%#call __tmp296474))) '#!void)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path287898_ - __tmp293378))))) - (_compile-phi287826_ - (lambda (_part287836_) - (let* ((_part287837287850_ _part287836_) - (_E287839287854_ + _path290893_ + __tmp296473))))) + (_compile-phi290821_ + (lambda (_part290831_) + (let* ((_part290832290845_ _part290831_) + (_E290834290849_ (lambda () (error '"No clause matching" - _part287837287850_))) - (_K287840287865_ - (lambda (_code287857_ - _n287858_ - _phi287859_ - _phi-ctx287860_) - (let* ((_code287863_ - (let ((__tmp293385 + _part290832290845_))) + (_K290835290860_ + (lambda (_code290852_ + _n290853_ + _phi290854_ + _phi-ctx290855_) + (let* ((_code290858_ + (let ((__tmp296480 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-phi - _code287857_))))) + _code290852_))))) (declare (not safe)) (call-with-parameters - __tmp293385 + __tmp296480 gx#current-expander-context - _phi-ctx287860_ + _phi-ctx290855_ gx#current-expander-phi - _phi287859_))) - (__tmp293386 + _phi290854_))) + (__tmp296481 (let () (declare (not safe)) (gxc#compile-output-file - _ctx287823_ - _n287858_ + _ctx290818_ + _n290853_ '".scm")))) (declare (not safe)) (gxc#compile-scm-file__% - __tmp293386 - _code287863_ + __tmp296481 + _code290858_ '#t))))) (if (let () (declare (not safe)) - (##pair? _part287837287850_)) - (let ((_hd287841287868_ + (##pair? _part290832290845_)) + (let ((_hd290836290863_ (let () (declare (not safe)) - (##car _part287837287850_))) - (_tl287842287870_ + (##car _part290832290845_))) + (_tl290837290865_ (let () (declare (not safe)) - (##cdr _part287837287850_)))) - (let ((_phi-ctx287873_ _hd287841287868_)) + (##cdr _part290832290845_)))) + (let ((_phi-ctx290868_ _hd290836290863_)) (if (let () (declare (not safe)) - (##pair? _tl287842287870_)) - (let ((_hd287843287875_ + (##pair? _tl290837290865_)) + (let ((_hd290838290870_ (let () (declare (not safe)) - (##car _tl287842287870_))) - (_tl287844287877_ + (##car _tl290837290865_))) + (_tl290839290872_ (let () (declare (not safe)) - (##cdr _tl287842287870_)))) - (let ((_phi287880_ _hd287843287875_)) + (##cdr _tl290837290865_)))) + (let ((_phi290875_ _hd290838290870_)) (if (let () (declare (not safe)) - (##pair? _tl287844287877_)) - (let ((_hd287845287882_ + (##pair? _tl290839290872_)) + (let ((_hd290840290877_ (let () (declare (not safe)) - (##car _tl287844287877_))) - (_tl287846287884_ + (##car _tl290839290872_))) + (_tl290841290879_ (let () (declare (not safe)) - (##cdr _tl287844287877_)))) - (let ((_n287887_ _hd287845287882_)) + (##cdr _tl290839290872_)))) + (let ((_n290882_ _hd290840290877_)) (if (let () (declare (not safe)) - (##pair? _tl287846287884_)) - (let ((_hd287847287889_ + (##pair? _tl290841290879_)) + (let ((_hd290842290884_ (let () (declare (not safe)) - (##car _tl287846287884_))) - (_tl287848287891_ + (##car _tl290841290879_))) + (_tl290843290886_ (let () (declare (not safe)) - (##cdr _tl287846287884_)))) - (let ((_code287894_ - _hd287847287889_)) + (##cdr _tl290841290879_)))) + (let ((_code290889_ + _hd290842290884_)) (if (let () (declare (not safe)) - (##null? _tl287848287891_)) + (##null? _tl290843290886_)) (let () (declare (not safe)) - (_K287840287865_ - _code287894_ - _n287887_ - _phi287880_ - _phi-ctx287873_)) + (_K290835290860_ + _code290889_ + _n290882_ + _phi290875_ + _phi-ctx290868_)) (let () (declare (not safe)) - (_E287839287854_))))) + (_E290834290849_))))) (let () (declare (not safe)) - (_E287839287854_))))) + (_E290834290849_))))) (let () (declare (not safe)) - (_E287839287854_))))) + (_E290834290849_))))) (let () (declare (not safe)) - (_E287839287854_))))) - (let () (declare (not safe)) (_E287839287854_))))))) - (let ((_g293387_ + (_E290834290849_))))) + (let () (declare (not safe)) (_E290834290849_))))))) + (let ((_g296482_ (let () (declare (not safe)) - (gxc#generate-meta-code _ctx287823_)))) + (gxc#generate-meta-code _ctx290818_)))) (begin - (let ((_g293388_ + (let ((_g296483_ (let () (declare (not safe)) - (if (##values? _g293387_) - (##vector-length _g293387_) + (if (##values? _g296482_) + (##vector-length _g296482_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g293388_ 2))) - (error "Context expects 2 values" _g293388_))) - (let ((_ssi-code287828_ - (let () (declare (not safe)) (##vector-ref _g293387_ 0))) - (_phi-code287829_ - (let () (declare (not safe)) (##vector-ref _g293387_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g296483_ 2))) + (error "Context expects 2 values" _g296483_))) + (let ((_ssi-code290823_ + (let () (declare (not safe)) (##vector-ref _g296482_ 0))) + (_phi-code290824_ + (let () (declare (not safe)) (##vector-ref _g296482_ 1)))) (begin (let () (declare (not safe)) - (_compile-ssi287825_ _ssi-code287828_)) - (let ((_threads287834_ - (map (lambda (_code287831_) - (let ((__tmp293389 + (_compile-ssi290820_ _ssi-code290823_)) + (let ((_threads290829_ + (map (lambda (_code290826_) + (let ((__tmp296484 (lambda () (let () (declare (not safe)) - (_compile-phi287826_ - _code287831_))))) + (_compile-phi290821_ + _code290826_))))) (declare (not safe)) - (spawn __tmp293389))) - _phi-code287829_))) - (for-each gxc#join! _threads287834_))))))))) + (spawn __tmp296484))) + _phi-code290824_))) + (for-each gxc#join! _threads290829_))))))))) (define gxc#compile-ssxi-code - (lambda (_ctx287806_) - (let* ((_path287808_ + (lambda (_ctx290801_) + (let* ((_path290803_ (let () (declare (not safe)) - (gxc#compile-output-file _ctx287806_ '#f '".ssxi.ss"))) - (_code287810_ - (let ((__tmp293390 + (gxc#compile-output-file _ctx290801_ '#f '".ssxi.ss"))) + (_code290805_ + (let ((__tmp296485 (##structure-ref - _ctx287806_ + _ctx290801_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp293390))) - (_idstr287812_ + (gxc#apply-generate-ssxi __tmp296485))) + (_idstr290807_ (symbol->string - (##structure-ref _ctx287806_ '1 gx#expander-context::t '#f))) - (_pkg287819_ - (let ((_$e287814_ + (##structure-ref _ctx290801_ '1 gx#expander-context::t '#f))) + (_pkg290814_ + (let ((_$e290809_ (let () (declare (not safe)) - (string-rindex _idstr287812_ '#\/)))) - (if _$e287814_ - ((lambda (_x287817_) + (string-rindex _idstr290807_ '#\/)))) + (if _$e290809_ + ((lambda (_x290812_) (string->symbol - (substring _idstr287812_ '0 _x287817_))) - _$e287814_) + (substring _idstr290807_ '0 _x290812_))) + _$e290809_) '#f)))) - (let () (declare (not safe)) (gxc#verbose '"compile " _path287808_)) - (let ((__tmp293391 + (let () (declare (not safe)) (gxc#verbose '"compile " _path290803_)) + (let ((__tmp296486 (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _pkg287819_ + (if _pkg290814_ (let () (declare (not safe)) - (displayln '"package: " _pkg287819_)) + (displayln '"package: " _pkg290814_)) '#!void) (newline) - (pretty-print _code287810_)))) + (pretty-print _code290805_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path287808_ __tmp293391))))) + (gxc#with-output-to-scheme-file _path290803_ __tmp296486))))) (define gxc#generate-meta-code - (lambda (_ctx287799_) - (let* ((_state287801_ - (let ((__obj293149 + (lambda (_ctx290794_) + (let* ((_state290796_ + (let ((__obj296244 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) - (gxc#meta-state:::init! __obj293149 _ctx287799_) - __obj293149)) - (_ssi-code287803_ - (let ((__tmp293392 + (gxc#meta-state:::init! __obj296244 _ctx290794_) + __obj296244)) + (_ssi-code290798_ + (let ((__tmp296487 (##structure-ref - _ctx287799_ + _ctx290794_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-meta __tmp293392 _state287801_)))) - (values _ssi-code287803_ + (gxc#apply-generate-meta __tmp296487 _state290796_)))) + (values _ssi-code290798_ (let () (declare (not safe)) - (gxc#meta-state-end! _state287801_)))))) + (gxc#meta-state-end! _state290796_)))))) (define gxc#generate-runtime-phi - (lambda (_stx287792_) - (let ((_lifts287794_ (let () (declare (not safe)) (box '())))) - (let ((__tmp293395 + (lambda (_stx290787_) + (let ((_lifts290789_ (let () (declare (not safe)) (box '())))) + (let ((__tmp296490 (lambda () - (let ((_code287797_ + (let ((_code290792_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _stx287792_)))) - (if (let ((__tmp293399 (unbox _lifts287794_))) + (gxc#apply-generate-runtime-phi _stx290787_)))) + (if (let ((__tmp296494 (unbox _lifts290789_))) (declare (not safe)) - (null? __tmp293399)) - _code287797_ - (let ((__tmp293396 - (let ((__tmp293398 + (null? __tmp296494)) + _code290792_ + (let ((__tmp296491 + (let ((__tmp296493 (let () (declare (not safe)) - (cons _code287797_ '()))) - (__tmp293397 - (reverse (unbox _lifts287794_)))) + (cons _code290792_ '()))) + (__tmp296492 + (reverse (unbox _lifts290789_)))) (declare (not safe)) - (foldr1 cons __tmp293398 __tmp293397)))) + (foldr1 cons __tmp296493 __tmp296492)))) (declare (not safe)) - (cons 'begin __tmp293396)))))) - (__tmp293394 + (cons 'begin __tmp296491)))))) + (__tmp296489 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp293393 + (__tmp296488 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp293395 + __tmp296490 gxc#current-compile-lift - _lifts287794_ + _lifts290789_ gxc#current-compile-marks - __tmp293394 + __tmp296489 gxc#current-compile-identifiers - __tmp293393))))) + __tmp296488))))) (define gxc#lift-nested-modules - (lambda (_ctx287788_) - (let ((_modules287790_ (let () (declare (not safe)) (box '())))) - (let ((__tmp293400 - (##structure-ref _ctx287788_ '11 gx#module-context::t '#f))) + (lambda (_ctx290783_) + (let ((_modules290785_ (let () (declare (not safe)) (box '())))) + (let ((__tmp296495 + (##structure-ref _ctx290783_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules __tmp293400 _modules287790_)) - (reverse (unbox _modules287790_))))) + (gxc#apply-lift-modules __tmp296495 _modules290785_)) + (reverse (unbox _modules290785_))))) (define gxc#compile-scm-file__% - (lambda (_path287771_ _code287772_ _phi?287773_) - (let () (declare (not safe)) (gxc#verbose '"compile " _path287771_)) - (let ((__tmp293401 + (lambda (_path290766_ _code290767_ _phi?290768_) + (let () (declare (not safe)) (gxc#verbose '"compile " _path290766_)) + (let ((__tmp296496 (lambda () (pretty-print - (let ((__tmp293402 - (let ((__tmp293409 + (let ((__tmp296497 + (let ((__tmp296504 (let () (declare (not safe)) (cons 'block '()))) - (__tmp293403 - (let ((__tmp293408 + (__tmp296498 + (let ((__tmp296503 (let () (declare (not safe)) (cons 'standard-bindings '()))) - (__tmp293404 - (let ((__tmp293407 + (__tmp296499 + (let ((__tmp296502 (let () (declare (not safe)) (cons 'extended-bindings '()))) - (__tmp293405 - (let ((__tmp293406 - (if _phi?287773_ + (__tmp296500 + (let ((__tmp296501 + (if _phi?290768_ '((inlining-limit 200)) '()))) (declare (not safe)) (foldr1 cons '() - __tmp293406)))) + __tmp296501)))) (declare (not safe)) - (cons __tmp293407 __tmp293405)))) + (cons __tmp296502 __tmp296500)))) (declare (not safe)) - (cons __tmp293408 __tmp293404)))) + (cons __tmp296503 __tmp296499)))) (declare (not safe)) - (cons __tmp293409 __tmp293403)))) + (cons __tmp296504 __tmp296498)))) (declare (not safe)) - (cons 'declare __tmp293402))) - (pretty-print _code287772_)))) + (cons 'declare __tmp296497))) + (pretty-print _code290767_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path287771_ __tmp293401)) + (gxc#with-output-to-scheme-file _path290766_ __tmp296496)) (if (gxc#current-compile-invoke-gsc) (let () (declare (not safe)) - (gxc#gsc-compile-file _path287771_ _phi?287773_)) + (gxc#gsc-compile-file _path290766_ _phi?290768_)) '#!void) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _path287771_)))) + (delete-file _path290766_)))) (define gxc#compile-scm-file__0 - (lambda (_path287779_ _code287780_) - (let ((_phi?287782_ '#f)) + (lambda (_path290774_ _code290775_) + (let ((_phi?290777_ '#f)) (declare (not safe)) - (gxc#compile-scm-file__% _path287779_ _code287780_ _phi?287782_)))) + (gxc#compile-scm-file__% _path290774_ _code290775_ _phi?290777_)))) (define gxc#compile-scm-file - (lambda _g293411_ - (let ((_g293410_ (let () (declare (not safe)) (##length _g293411_)))) - (cond ((let () (declare (not safe)) (##fx= _g293410_ 2)) - (apply (lambda (_path287779_ _code287780_) + (lambda _g296506_ + (let ((_g296505_ (let () (declare (not safe)) (##length _g296506_)))) + (cond ((let () (declare (not safe)) (##fx= _g296505_ 2)) + (apply (lambda (_path290774_ _code290775_) (let () (declare (not safe)) (gxc#compile-scm-file__0 - _path287779_ - _code287780_))) - _g293411_)) - ((let () (declare (not safe)) (##fx= _g293410_ 3)) - (apply (lambda (_path287784_ _code287785_ _phi?287786_) + _path290774_ + _code290775_))) + _g296506_)) + ((let () (declare (not safe)) (##fx= _g296505_ 3)) + (apply (lambda (_path290779_ _code290780_ _phi?290781_) (let () (declare (not safe)) (gxc#compile-scm-file__% - _path287784_ - _code287785_ - _phi?287786_))) - _g293411_)) + _path290779_ + _code290780_ + _phi?290781_))) + _g296506_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g293411_)))))) + _g296506_)))))) (define gxc#gsc-link-options__% - (lambda (_phi?287672_) - (let _lp287674_ ((_rest287676_ (gxc#current-compile-gsc-options)) - (_opts287677_ '())) - (let* ((_rest287678287698_ _rest287676_) - (_else287682287706_ + (lambda (_phi?290667_) + (let _lp290669_ ((_rest290671_ (gxc#current-compile-gsc-options)) + (_opts290672_ '())) + (let* ((_rest290673290693_ _rest290671_) + (_else290677290701_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?287672_)) + (if (and (let () (declare (not safe)) (not _phi?290667_)) (gxc#current-compile-debug)) - (let ((__tmp293412 - (let ((__tmp293413 (reverse _opts287677_))) + (let ((__tmp296507 + (let ((__tmp296508 (reverse _opts290672_))) (declare (not safe)) - (cons '"-track-scheme" __tmp293413)))) + (cons '"-track-scheme" __tmp296508)))) (declare (not safe)) - (cons '"-debug-source" __tmp293412)) - (reverse _opts287677_))))) - (let ((_K287692287749_ - (lambda (_rest287747_) + (cons '"-debug-source" __tmp296507)) + (reverse _opts290672_))))) + (let ((_K290687290744_ + (lambda (_rest290742_) (let () (declare (not safe)) - (_lp287674_ _rest287747_ _opts287677_)))) - (_K287687287731_ - (lambda (_rest287729_) + (_lp290669_ _rest290742_ _opts290672_)))) + (_K290682290726_ + (lambda (_rest290724_) (let () (declare (not safe)) - (_lp287674_ _rest287729_ _opts287677_)))) - (_K287684287713_ - (lambda (_rest287710_ _opt287711_) - (let ((__tmp293414 + (_lp290669_ _rest290724_ _opts290672_)))) + (_K290679290708_ + (lambda (_rest290705_ _opt290706_) + (let ((__tmp296509 (let () (declare (not safe)) - (cons _opt287711_ _opts287677_)))) + (cons _opt290706_ _opts290672_)))) (declare (not safe)) - (_lp287674_ _rest287710_ __tmp293414))))) - (if (let () (declare (not safe)) (##pair? _rest287678287698_)) - (let ((_tl287694287754_ + (_lp290669_ _rest290705_ __tmp296509))))) + (if (let () (declare (not safe)) (##pair? _rest290673290693_)) + (let ((_tl290689290749_ (let () (declare (not safe)) - (##cdr _rest287678287698_))) - (_hd287693287752_ + (##cdr _rest290673290693_))) + (_hd290688290747_ (let () (declare (not safe)) - (##car _rest287678287698_)))) + (##car _rest290673290693_)))) (if (let () (declare (not safe)) - (equal? _hd287693287752_ '"-cc-options")) + (equal? _hd290688290747_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl287694287754_)) - (let* ((_tl287696287757_ + (##pair? _tl290689290749_)) + (let* ((_tl290691290752_ (let () (declare (not safe)) - (##cdr _tl287694287754_))) - (_rest287760_ _tl287696287757_)) + (##cdr _tl290689290749_))) + (_rest290755_ _tl290691290752_)) (declare (not safe)) - (_K287692287749_ _rest287760_)) - (let ((_opt287721_ _hd287693287752_) - (_rest287723_ _tl287694287754_)) + (_K290687290744_ _rest290755_)) + (let ((_opt290716_ _hd290688290747_) + (_rest290718_ _tl290689290749_)) (let () (declare (not safe)) - (_K287684287713_ _rest287723_ _opt287721_)))) + (_K290679290708_ _rest290718_ _opt290716_)))) (if (let () (declare (not safe)) - (equal? _hd287693287752_ '"-ld-options")) + (equal? _hd290688290747_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl287694287754_)) - (let* ((_tl287691287739_ + (##pair? _tl290689290749_)) + (let* ((_tl290686290734_ (let () (declare (not safe)) - (##cdr _tl287694287754_))) - (_rest287742_ _tl287691287739_)) + (##cdr _tl290689290749_))) + (_rest290737_ _tl290686290734_)) (declare (not safe)) - (_K287687287731_ _rest287742_)) - (let ((_opt287721_ _hd287693287752_) - (_rest287723_ _tl287694287754_)) + (_K290682290726_ _rest290737_)) + (let ((_opt290716_ _hd290688290747_) + (_rest290718_ _tl290689290749_)) (let () (declare (not safe)) - (_K287684287713_ - _rest287723_ - _opt287721_)))) - (let ((_opt287721_ _hd287693287752_) - (_rest287723_ _tl287694287754_)) + (_K290679290708_ + _rest290718_ + _opt290716_)))) + (let ((_opt290716_ _hd290688290747_) + (_rest290718_ _tl290689290749_)) (let () (declare (not safe)) - (_K287684287713_ _rest287723_ _opt287721_)))))) - (let () (declare (not safe)) (_else287682287706_)))))))) + (_K290679290708_ _rest290718_ _opt290716_)))))) + (let () (declare (not safe)) (_else290677290701_)))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_phi?287766_ '#f)) + (let ((_phi?290761_ '#f)) (declare (not safe)) - (gxc#gsc-link-options__% _phi?287766_)))) + (gxc#gsc-link-options__% _phi?290761_)))) (define gxc#gsc-link-options - (lambda _g293416_ - (let ((_g293415_ (let () (declare (not safe)) (##length _g293416_)))) - (cond ((let () (declare (not safe)) (##fx= _g293415_ 0)) + (lambda _g296511_ + (let ((_g296510_ (let () (declare (not safe)) (##length _g296511_)))) + (cond ((let () (declare (not safe)) (##fx= _g296510_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-link-options__0))) - _g293416_)) - ((let () (declare (not safe)) (##fx= _g293415_ 1)) - (apply (lambda (_phi?287768_) + _g296511_)) + ((let () (declare (not safe)) (##fx= _g296510_ 1)) + (apply (lambda (_phi?290763_) (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?287768_))) - _g293416_)) + (gxc#gsc-link-options__% _phi?290763_))) + _g296511_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g293416_)))))) + _g296511_)))))) (define gxc#gsc-cc-options__% - (lambda (_phi?287573_) - (let _lp287575_ ((_rest287577_ (gxc#current-compile-gsc-options)) - (_opts287578_ '())) - (let* ((_rest287579287599_ _rest287577_) - (_else287583287607_ + (lambda (_phi?290568_) + (let _lp290570_ ((_rest290572_ (gxc#current-compile-gsc-options)) + (_opts290573_ '())) + (let* ((_rest290574290594_ _rest290572_) + (_else290578290602_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?287573_)) + (if (and (let () (declare (not safe)) (not _phi?290568_)) (gxc#current-compile-debug)) - (let ((__tmp293417 - (let ((__tmp293418 (reverse _opts287578_))) + (let ((__tmp296512 + (let ((__tmp296513 (reverse _opts290573_))) (declare (not safe)) - (cons '"-g" __tmp293418)))) + (cons '"-g" __tmp296513)))) (declare (not safe)) - (cons '"-cc-options" __tmp293417)) - (reverse _opts287578_))))) - (let ((_K287593287646_ - (lambda (_rest287643_ _opt287644_) - (let ((__tmp293419 - (let ((__tmp293420 + (cons '"-cc-options" __tmp296512)) + (reverse _opts290573_))))) + (let ((_K290588290641_ + (lambda (_rest290638_ _opt290639_) + (let ((__tmp296514 + (let ((__tmp296515 (let () (declare (not safe)) - (cons '"-cc-options" _opts287578_)))) + (cons '"-cc-options" _opts290573_)))) (declare (not safe)) - (cons _opt287644_ __tmp293420)))) + (cons _opt290639_ __tmp296515)))) (declare (not safe)) - (_lp287575_ _rest287643_ __tmp293419)))) - (_K287588287627_ - (lambda (_rest287625_) + (_lp290570_ _rest290638_ __tmp296514)))) + (_K290583290622_ + (lambda (_rest290620_) (let () (declare (not safe)) - (_lp287575_ _rest287625_ _opts287578_)))) - (_K287585287613_ - (lambda (_rest287611_) + (_lp290570_ _rest290620_ _opts290573_)))) + (_K290580290608_ + (lambda (_rest290606_) (let () (declare (not safe)) - (_lp287575_ _rest287611_ _opts287578_))))) - (if (let () (declare (not safe)) (##pair? _rest287579287599_)) - (let ((_tl287595287651_ + (_lp290570_ _rest290606_ _opts290573_))))) + (if (let () (declare (not safe)) (##pair? _rest290574290594_)) + (let ((_tl290590290646_ (let () (declare (not safe)) - (##cdr _rest287579287599_))) - (_hd287594287649_ + (##cdr _rest290574290594_))) + (_hd290589290644_ (let () (declare (not safe)) - (##car _rest287579287599_)))) + (##car _rest290574290594_)))) (if (let () (declare (not safe)) - (equal? _hd287594287649_ '"-cc-options")) + (equal? _hd290589290644_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl287595287651_)) - (let ((_tl287597287656_ + (##pair? _tl290590290646_)) + (let ((_tl290592290651_ (let () (declare (not safe)) - (##cdr _tl287595287651_))) - (_hd287596287654_ + (##cdr _tl290590290646_))) + (_hd290591290649_ (let () (declare (not safe)) - (##car _tl287595287651_)))) - (let ((_opt287659_ _hd287596287654_) - (_rest287661_ _tl287597287656_)) + (##car _tl290590290646_)))) + (let ((_opt290654_ _hd290591290649_) + (_rest290656_ _tl290592290651_)) (let () (declare (not safe)) - (_K287593287646_ _rest287661_ _opt287659_)))) - (let ((_rest287619_ _tl287595287651_)) + (_K290588290641_ _rest290656_ _opt290654_)))) + (let ((_rest290614_ _tl290590290646_)) (declare (not safe)) - (_K287585287613_ _rest287619_))) + (_K290580290608_ _rest290614_))) (if (let () (declare (not safe)) - (equal? _hd287594287649_ '"-ld-options")) + (equal? _hd290589290644_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl287595287651_)) - (let* ((_tl287592287635_ + (##pair? _tl290590290646_)) + (let* ((_tl290587290630_ (let () (declare (not safe)) - (##cdr _tl287595287651_))) - (_rest287638_ _tl287592287635_)) + (##cdr _tl290590290646_))) + (_rest290633_ _tl290587290630_)) (declare (not safe)) - (_K287588287627_ _rest287638_)) - (let ((_rest287619_ _tl287595287651_)) + (_K290583290622_ _rest290633_)) + (let ((_rest290614_ _tl290590290646_)) (declare (not safe)) - (_K287585287613_ _rest287619_))) - (let ((_rest287619_ _tl287595287651_)) + (_K290580290608_ _rest290614_))) + (let ((_rest290614_ _tl290590290646_)) (declare (not safe)) - (_K287585287613_ _rest287619_))))) - (let () (declare (not safe)) (_else287583287607_)))))))) + (_K290580290608_ _rest290614_))))) + (let () (declare (not safe)) (_else290578290602_)))))))) (define gxc#gsc-cc-options__0 (lambda () - (let ((_phi?287667_ '#f)) + (let ((_phi?290662_ '#f)) (declare (not safe)) - (gxc#gsc-cc-options__% _phi?287667_)))) + (gxc#gsc-cc-options__% _phi?290662_)))) (define gxc#gsc-cc-options - (lambda _g293422_ - (let ((_g293421_ (let () (declare (not safe)) (##length _g293422_)))) - (cond ((let () (declare (not safe)) (##fx= _g293421_ 0)) + (lambda _g296517_ + (let ((_g296516_ (let () (declare (not safe)) (##length _g296517_)))) + (cond ((let () (declare (not safe)) (##fx= _g296516_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - _g293422_)) - ((let () (declare (not safe)) (##fx= _g293421_ 1)) - (apply (lambda (_phi?287669_) + _g296517_)) + ((let () (declare (not safe)) (##fx= _g296516_ 1)) + (apply (lambda (_phi?290664_) (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?287669_))) - _g293422_)) + (gxc#gsc-cc-options__% _phi?290664_))) + _g296517_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options - _g293422_)))))) + _g296517_)))))) (define gxc#gsc-static-include-options - (lambda (_staticdir287568_) - (let* ((_user-staticdir287570_ + (lambda (_staticdir290563_) + (let* ((_user-staticdir290565_ (path-expand (path-expand '"lib/static" (let () (declare (not safe)) (gerbil-path))))) - (__tmp293423 - (let ((__tmp293424 + (__tmp296518 + (let ((__tmp296519 (string-append '"-I " - _staticdir287568_ + _staticdir290563_ '" -I " - _user-staticdir287570_))) + _user-staticdir290565_))) (declare (not safe)) - (cons __tmp293424 '())))) + (cons __tmp296519 '())))) (declare (not safe)) - (cons '"-cc-options" __tmp293423)))) + (cons '"-cc-options" __tmp296518)))) (define gxc#gcc-ld-options (lambda () - (let _lp287480_ ((_rest287482_ (gxc#current-compile-gsc-options)) - (_opts287483_ '())) - (let* ((_rest287484287504_ _rest287482_) - (_else287488287512_ (lambda () _opts287483_))) - (let ((_K287498287555_ - (lambda (_rest287553_) + (let _lp290475_ ((_rest290477_ (gxc#current-compile-gsc-options)) + (_opts290478_ '())) + (let* ((_rest290479290499_ _rest290477_) + (_else290483290507_ (lambda () _opts290478_))) + (let ((_K290493290550_ + (lambda (_rest290548_) (let () (declare (not safe)) - (_lp287480_ _rest287553_ _opts287483_)))) - (_K287493287533_ - (lambda (_rest287530_ _opt287531_) - (let ((__tmp293425 - (append _opts287483_ - (let ((__tmp293426 + (_lp290475_ _rest290548_ _opts290478_)))) + (_K290488290528_ + (lambda (_rest290525_ _opt290526_) + (let ((__tmp296520 + (append _opts290478_ + (let ((__tmp296521 (let () (declare (not safe)) (string-split - _opt287531_ + _opt290526_ '#\space)))) (declare (not safe)) (filter gxc#not-string-empty? - __tmp293426))))) + __tmp296521))))) (declare (not safe)) - (_lp287480_ _rest287530_ __tmp293425)))) - (_K287490287518_ - (lambda (_rest287516_) + (_lp290475_ _rest290525_ __tmp296520)))) + (_K290485290513_ + (lambda (_rest290511_) (let () (declare (not safe)) - (_lp287480_ _rest287516_ _opts287483_))))) - (if (let () (declare (not safe)) (##pair? _rest287484287504_)) - (let ((_tl287500287560_ + (_lp290475_ _rest290511_ _opts290478_))))) + (if (let () (declare (not safe)) (##pair? _rest290479290499_)) + (let ((_tl290495290555_ (let () (declare (not safe)) - (##cdr _rest287484287504_))) - (_hd287499287558_ + (##cdr _rest290479290499_))) + (_hd290494290553_ (let () (declare (not safe)) - (##car _rest287484287504_)))) + (##car _rest290479290499_)))) (if (let () (declare (not safe)) - (equal? _hd287499287558_ '"-cc-options")) + (equal? _hd290494290553_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl287500287560_)) - (let* ((_tl287502287563_ + (##pair? _tl290495290555_)) + (let* ((_tl290497290558_ (let () (declare (not safe)) - (##cdr _tl287500287560_))) - (_rest287566_ _tl287502287563_)) + (##cdr _tl290495290555_))) + (_rest290561_ _tl290497290558_)) (declare (not safe)) - (_K287498287555_ _rest287566_)) - (let ((_rest287524_ _tl287500287560_)) + (_K290493290550_ _rest290561_)) + (let ((_rest290519_ _tl290495290555_)) (declare (not safe)) - (_K287490287518_ _rest287524_))) + (_K290485290513_ _rest290519_))) (if (let () (declare (not safe)) - (equal? _hd287499287558_ '"-ld-options")) + (equal? _hd290494290553_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl287500287560_)) - (let ((_tl287497287543_ + (##pair? _tl290495290555_)) + (let ((_tl290492290538_ (let () (declare (not safe)) - (##cdr _tl287500287560_))) - (_hd287496287541_ + (##cdr _tl290495290555_))) + (_hd290491290536_ (let () (declare (not safe)) - (##car _tl287500287560_)))) - (let ((_opt287546_ _hd287496287541_) - (_rest287548_ _tl287497287543_)) + (##car _tl290495290555_)))) + (let ((_opt290541_ _hd290491290536_) + (_rest290543_ _tl290492290538_)) (let () (declare (not safe)) - (_K287493287533_ - _rest287548_ - _opt287546_)))) - (let ((_rest287524_ _tl287500287560_)) + (_K290488290528_ + _rest290543_ + _opt290541_)))) + (let ((_rest290519_ _tl290495290555_)) (declare (not safe)) - (_K287490287518_ _rest287524_))) - (let ((_rest287524_ _tl287500287560_)) + (_K290485290513_ _rest290519_))) + (let ((_rest290519_ _tl290495290555_)) (declare (not safe)) - (_K287490287518_ _rest287524_))))) - (let () (declare (not safe)) (_else287488287512_)))))))) + (_K290485290513_ _rest290519_))))) + (let () (declare (not safe)) (_else290483290507_)))))))) (define gxc#not-string-empty? - (lambda (_str287477_) - (let ((__tmp293427 - (let () (declare (not safe)) (string-empty? _str287477_)))) + (lambda (_str290472_) + (let ((__tmp296522 + (let () (declare (not safe)) (string-empty? _str290472_)))) (declare (not safe)) - (not __tmp293427)))) + (not __tmp296522)))) (define gxc#gsc-compile-file - (lambda (_path287445_ _phi?287446_) - (letrec ((_gsc-link-path287448_ - (lambda (_base-path287469_) - (let _lp287471_ ((_n287473_ '1)) - (let ((_path287475_ + (lambda (_path290440_ _phi?290441_) + (letrec ((_gsc-link-path290443_ + (lambda (_base-path290464_) + (let _lp290466_ ((_n290468_ '1)) + (let ((_path290470_ (string-append - _base-path287469_ + _base-path290464_ '".o" - (number->string _n287473_)))) - (if (file-exists? _path287475_) - (let ((__tmp293428 + (number->string _n290468_)))) + (if (file-exists? _path290470_) + (let ((__tmp296523 (let () (declare (not safe)) - (+ _n287473_ '1)))) + (+ _n290468_ '1)))) (declare (not safe)) - (_lp287471_ __tmp293428)) - _path287475_)))))) - (let* ((_base-path287450_ (path-strip-extension _path287445_)) - (_path-c287452_ (string-append _base-path287450_ '".c")) - (_path-o287454_ (string-append _base-path287450_ '".o")) - (_link-path287456_ + (_lp290466_ __tmp296523)) + _path290470_)))))) + (let* ((_base-path290445_ (path-strip-extension _path290440_)) + (_path-c290447_ (string-append _base-path290445_ '".c")) + (_path-o290449_ (string-append _base-path290445_ '".o")) + (_link-path290451_ (let () (declare (not safe)) - (_gsc-link-path287448_ _base-path287450_))) - (_link-path-c287458_ (string-append _link-path287456_ '".c")) - (_link-path-o287460_ (string-append _link-path287456_ '".o")) - (_gsc-link-opts287462_ + (_gsc-link-path290443_ _base-path290445_))) + (_link-path-c290453_ (string-append _link-path290451_ '".c")) + (_link-path-o290455_ (string-append _link-path290451_ '".o")) + (_gsc-link-opts290457_ (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?287446_))) - (_gsc-cc-opts287464_ + (gxc#gsc-link-options__% _phi?290441_))) + (_gsc-cc-opts290459_ (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?287446_))) - (_gcc-ld-opts287466_ + (gxc#gsc-cc-options__% _phi?290441_))) + (_gcc-ld-opts290461_ (let () (declare (not safe)) (gxc#gcc-ld-options)))) - (let ((__tmp293435 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp293429 - (let ((__tmp293430 - (let ((__tmp293431 - (let ((__tmp293432 - (let ((__tmp293433 - (let ((__tmp293434 + (let ((__tmp296530 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp296524 + (let ((__tmp296525 + (let ((__tmp296526 + (let ((__tmp296527 + (let ((__tmp296528 + (let ((__tmp296529 (let () (declare (not safe)) - (cons _path287445_ + (cons _path290440_ '())))) (declare (not safe)) (foldr1 cons - __tmp293434 - _gsc-link-opts287462_)))) + __tmp296529 + _gsc-link-opts290457_)))) (declare (not safe)) - (cons _link-path-c287458_ - __tmp293433)))) + (cons _link-path-c290453_ + __tmp296528)))) (declare (not safe)) - (cons '"-o" __tmp293432)))) + (cons '"-o" __tmp296527)))) (declare (not safe)) - (cons '"-flat" __tmp293431)))) + (cons '"-flat" __tmp296526)))) (declare (not safe)) - (cons '"-link" __tmp293430)))) + (cons '"-link" __tmp296525)))) (declare (not safe)) - (gxc#invoke__% '#f '#t absent-value __tmp293435 __tmp293429)) - (let ((__tmp293442 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp293436 - (let ((__tmp293437 - (let ((__tmp293438 - (let ((__tmp293439 - (let ((__tmp293440 - (let ((__tmp293441 + (gxc#invoke__% '#f '#t absent-value __tmp296530 __tmp296524)) + (let ((__tmp296537 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp296531 + (let ((__tmp296532 + (let ((__tmp296533 + (let ((__tmp296534 + (let ((__tmp296535 + (let ((__tmp296536 (let () (declare (not safe)) - (cons _link-path-c287458_ + (cons _link-path-c290453_ '())))) (declare (not safe)) - (cons _path-c287452_ - __tmp293441)))) + (cons _path-c290447_ + __tmp296536)))) (declare (not safe)) (foldr1 cons - __tmp293440 - _gsc-cc-opts287464_)))) + __tmp296535 + _gsc-cc-opts290459_)))) (declare (not safe)) - (cons '"-D___DYNAMIC" __tmp293439)))) + (cons '"-D___DYNAMIC" __tmp296534)))) (declare (not safe)) - (cons '"-cc-options" __tmp293438)))) + (cons '"-cc-options" __tmp296533)))) (declare (not safe)) - (cons '"-obj" __tmp293437)))) + (cons '"-obj" __tmp296532)))) (declare (not safe)) - (gxc#invoke__% '#f '#t absent-value __tmp293442 __tmp293436)) - (let ((__tmp293448 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp293443 - (let ((__tmp293444 - (let ((__tmp293445 - (let ((__tmp293446 - (let ((__tmp293447 + (gxc#invoke__% '#f '#t absent-value __tmp296537 __tmp296531)) + (let ((__tmp296543 (let () (declare (not safe)) (gxc#gerbil-gcc))) + (__tmp296538 + (let ((__tmp296539 + (let ((__tmp296540 + (let ((__tmp296541 + (let ((__tmp296542 (let () (declare (not safe)) - (cons _link-path-o287460_ - _gcc-ld-opts287466_)))) + (cons _link-path-o290455_ + _gcc-ld-opts290461_)))) (declare (not safe)) - (cons _path-o287454_ __tmp293447)))) + (cons _path-o290449_ __tmp296542)))) (declare (not safe)) - (cons _link-path287456_ __tmp293446)))) + (cons _link-path290451_ __tmp296541)))) (declare (not safe)) - (cons '"-o" __tmp293445)))) + (cons '"-o" __tmp296540)))) (declare (not safe)) - (cons '"-shared" __tmp293444)))) + (cons '"-shared" __tmp296539)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp293448 - __tmp293443)) + __tmp296543 + __tmp296538)) (for-each delete-file - (let ((__tmp293449 - (let ((__tmp293450 - (let ((__tmp293451 + (let ((__tmp296544 + (let ((__tmp296545 + (let ((__tmp296546 (let () (declare (not safe)) - (cons _link-path-o287460_ '())))) + (cons _link-path-o290455_ '())))) (declare (not safe)) - (cons _link-path-c287458_ __tmp293451)))) + (cons _link-path-c290453_ __tmp296546)))) (declare (not safe)) - (cons _path-o287454_ __tmp293450)))) + (cons _path-o290449_ __tmp296545)))) (declare (not safe)) - (cons _path-c287452_ __tmp293449))))))) + (cons _path-c290447_ __tmp296544))))))) (define gxc#compile-output-file - (lambda (_ctx287416_ _n287417_ _ext287418_) - (letrec ((_module-relative-path287420_ - (lambda (_ctx287443_) + (lambda (_ctx290411_ _n290412_ _ext290413_) + (letrec ((_module-relative-path290415_ + (lambda (_ctx290438_) (path-strip-directory - (let ((__tmp293452 + (let ((__tmp296547 (##structure-ref - _ctx287443_ + _ctx290438_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp293452))))) - (_module-source-directory287421_ - (lambda (_ctx287439_) + (gxc#module-id->path-string __tmp296547))))) + (_module-source-directory290416_ + (lambda (_ctx290434_) (path-directory - (let ((_mpath287441_ + (let ((_mpath290436_ (##structure-ref - _ctx287439_ + _ctx290434_ '7 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (string? _mpath287441_)) - _mpath287441_ + (string? _mpath290436_)) + _mpath290436_ (let () (declare (not safe)) - (last _mpath287441_))))))) - (_section-string287422_ - (lambda (_n287437_) - (if (let () (declare (not safe)) (number? _n287437_)) - (number->string _n287437_) - (if (let () (declare (not safe)) (symbol? _n287437_)) - (symbol->string _n287437_) + (last _mpath290436_))))))) + (_section-string290417_ + (lambda (_n290432_) + (if (let () (declare (not safe)) (number? _n290432_)) + (number->string _n290432_) + (if (let () (declare (not safe)) (symbol? _n290432_)) + (symbol->string _n290432_) (if (let () (declare (not safe)) - (string? _n287437_)) - _n287437_ + (string? _n290432_)) + _n290432_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _n287437_))))))) - (_file-name287423_ - (lambda (_path287435_) - (if _n287417_ + _n290432_))))))) + (_file-name290418_ + (lambda (_path290430_) + (if _n290412_ (string-append - _path287435_ + _path290430_ '"__" (let () (declare (not safe)) - (_section-string287422_ _n287417_)) - _ext287418_) - (string-append _path287435_ _ext287418_)))) - (_file-path287424_ + (_section-string290417_ _n290412_)) + _ext290413_) + (string-append _path290430_ _ext290413_)))) + (_file-path290419_ (lambda () - (let ((_$e287430_ (gxc#current-compile-output-dir))) - (if _$e287430_ - ((lambda (_outdir287433_) + (let ((_$e290425_ (gxc#current-compile-output-dir))) + (if _$e290425_ + ((lambda (_outdir290428_) (path-expand - (let ((__tmp293454 - (let ((__tmp293455 + (let ((__tmp296549 + (let ((__tmp296550 (##structure-ref - _ctx287416_ + _ctx290411_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp293455)))) + __tmp296550)))) (declare (not safe)) - (_file-name287423_ __tmp293454)) - _outdir287433_)) - _$e287430_) + (_file-name290418_ __tmp296549)) + _outdir290428_)) + _$e290425_) (path-expand - (let ((__tmp293453 + (let ((__tmp296548 (let () (declare (not safe)) - (_module-relative-path287420_ - _ctx287416_)))) + (_module-relative-path290415_ + _ctx290411_)))) (declare (not safe)) - (_file-name287423_ __tmp293453)) + (_file-name290418_ __tmp296548)) (let () (declare (not safe)) - (_module-source-directory287421_ - _ctx287416_)))))))) - (let ((_path287426_ - (let () (declare (not safe)) (_file-path287424_)))) - (let ((__tmp293456 + (_module-source-directory290416_ + _ctx290411_)))))))) + (let ((_path290421_ + (let () (declare (not safe)) (_file-path290419_)))) + (let ((__tmp296551 (lambda () - (let ((__tmp293457 (path-directory _path287426_))) + (let ((__tmp296552 (path-directory _path290421_))) (declare (not safe)) - (create-directory* __tmp293457))))) + (create-directory* __tmp296552))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp293456)) - _path287426_)))) + (with-lock gxc#+driver-mutex+ __tmp296551)) + _path290421_)))) (define gxc#compile-static-output-file - (lambda (_ctx287398_) - (letrec ((_file-name287400_ - (lambda (_id287414_) + (lambda (_ctx290393_) + (letrec ((_file-name290395_ + (lambda (_id290409_) (string-append (let () (declare (not safe)) - (gxc#static-module-name _id287414_)) + (gxc#static-module-name _id290409_)) '".scm"))) - (_file-path287401_ + (_file-path290396_ (lambda () - (let* ((_file287407_ - (let ((__tmp293458 + (let* ((_file290402_ + (let ((__tmp296553 (##structure-ref - _ctx287398_ + _ctx290393_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (_file-name287400_ __tmp293458))) - (_$e287409_ (gxc#current-compile-output-dir))) - (if _$e287409_ - ((lambda (_outdir287412_) + (_file-name290395_ __tmp296553))) + (_$e290404_ (gxc#current-compile-output-dir))) + (if _$e290404_ + ((lambda (_outdir290407_) (path-expand - _file287407_ - (path-expand '"static" _outdir287412_))) - _$e287409_) - (path-expand _file287407_ '"static")))))) - (let ((_path287403_ - (let () (declare (not safe)) (_file-path287401_)))) - (let ((__tmp293459 + _file290402_ + (path-expand '"static" _outdir290407_))) + _$e290404_) + (path-expand _file290402_ '"static")))))) + (let ((_path290398_ + (let () (declare (not safe)) (_file-path290396_)))) + (let ((__tmp296554 (lambda () - (let ((__tmp293460 (path-directory _path287403_))) + (let ((__tmp296555 (path-directory _path290398_))) (declare (not safe)) - (create-directory* __tmp293460))))) + (create-directory* __tmp296555))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp293459)) - _path287403_)))) + (with-lock gxc#+driver-mutex+ __tmp296554)) + _path290398_)))) (define gxc#compile-exe-output-file - (lambda (_ctx287392_ _opts287393_) - (let ((_$e287395_ + (lambda (_ctx290387_ _opts290388_) + (let ((_$e290390_ (let () (declare (not safe)) - (pgetq 'output-file: _opts287393_)))) - (if _$e287395_ - (values _$e287395_) + (pgetq 'output-file: _opts290388_)))) + (if _$e290390_ + (values _$e290390_) (path-strip-directory (symbol->string (##structure-ref - _ctx287392_ + _ctx290387_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_idstr287385_) - (if (let () (declare (not safe)) (string? _idstr287385_)) - (let* ((_str287387_ + (lambda (_idstr290380_) + (if (let () (declare (not safe)) (string? _idstr290380_)) + (let* ((_str290382_ (let () (declare (not safe)) - (gxc#module-id->path-string _idstr287385_))) - (_strs287389_ + (gxc#module-id->path-string _idstr290380_))) + (_strs290384_ (let () (declare (not safe)) - (string-split _str287387_ '#\/)))) - (let () (declare (not safe)) (string-join _strs287389_ '"__"))) - (if (let () (declare (not safe)) (symbol? _idstr287385_)) - (let ((__tmp293461 (symbol->string _idstr287385_))) + (string-split _str290382_ '#\/)))) + (let () (declare (not safe)) (string-join _strs290384_ '"__"))) + (if (let () (declare (not safe)) (symbol? _idstr290380_)) + (let ((__tmp296556 (symbol->string _idstr290380_))) (declare (not safe)) - (gxc#static-module-name __tmp293461)) - (error '"Bad module id" _idstr287385_))))) + (gxc#static-module-name __tmp296556)) + (error '"Bad module id" _idstr290380_))))) (define gxc#invoke__% - (lambda (_g293462_ - _stdout-redirection287349287353_ - _stderr-redirection287350287355_ - _program287357_ - _args287358_) - (let* ((_stdout-redirection287360_ + (lambda (_g296557_ + _stdout-redirection290344290348_ + _stderr-redirection290345290350_ + _program290352_ + _args290353_) + (let* ((_stdout-redirection290355_ (if (let () (declare (not safe)) - (eq? _stdout-redirection287349287353_ absent-value)) + (eq? _stdout-redirection290344290348_ absent-value)) '#f - _stdout-redirection287349287353_)) - (_stderr-redirection287362_ + _stdout-redirection290344290348_)) + (_stderr-redirection290357_ (if (let () (declare (not safe)) - (eq? _stderr-redirection287350287355_ absent-value)) + (eq? _stderr-redirection290345290350_ absent-value)) '#f - _stderr-redirection287350287355_))) - (let ((__tmp293463 + _stderr-redirection290345290350_))) + (let ((__tmp296558 (let () (declare (not safe)) - (cons _program287357_ _args287358_)))) + (cons _program290352_ _args290353_)))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp293463)) - (let ((_proc287364_ + (gxc#verbose '"invoke " __tmp296558)) + (let ((_proc290359_ (open-process - (let ((__tmp293464 - (let ((__tmp293465 - (let ((__tmp293466 - (let ((__tmp293467 - (let ((__tmp293468 - (let ((__tmp293469 - (let ((__tmp293470 + (let ((__tmp296559 + (let ((__tmp296560 + (let ((__tmp296561 + (let ((__tmp296562 + (let ((__tmp296563 + (let ((__tmp296564 + (let ((__tmp296565 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _stderr-redirection287362_ '())))) + (cons _stderr-redirection290357_ '())))) (declare (not safe)) - (cons 'stderr-redirection: __tmp293470)))) + (cons 'stderr-redirection: __tmp296565)))) (declare (not safe)) - (cons _stdout-redirection287360_ __tmp293469)))) + (cons _stdout-redirection290355_ __tmp296564)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'stdout-redirection: - __tmp293468)))) + __tmp296563)))) (declare (not safe)) - (cons _args287358_ __tmp293467)))) + (cons _args290353_ __tmp296562)))) (declare (not safe)) - (cons 'arguments: __tmp293466)))) + (cons 'arguments: __tmp296561)))) (declare (not safe)) - (cons _program287357_ __tmp293465)))) + (cons _program290352_ __tmp296560)))) (declare (not safe)) - (cons 'path: __tmp293464))))) - (if (or _stdout-redirection287360_ _stderr-redirection287362_) - (read-line _proc287364_ '#f) + (cons 'path: __tmp296559))))) + (if (or _stdout-redirection290355_ _stderr-redirection290357_) + (read-line _proc290359_ '#f) '#!void) - (let ((_status287369_ (process-status _proc287364_))) - (close-port _proc287364_) - (if (let () (declare (not safe)) (zero? _status287369_)) + (let ((_status290364_ (process-status _proc290359_))) + (close-port _proc290359_) + (if (let () (declare (not safe)) (zero? _status290364_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - _program287357_)))))))) + _program290352_)))))))) (define gxc#invoke__@ - (lambda (_keys287348287374_ . _args287376_) + (lambda (_keys290343290369_ . _args290371_) (apply gxc#invoke__% - _keys287348287374_ + _keys290343290369_ (let () (declare (not safe)) (table-ref - _keys287348287374_ + _keys290343290369_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (table-ref - _keys287348287374_ + _keys290343290369_ 'stderr-redirection: absent-value)) - _args287376_))) + _args290371_))) (define gxc#invoke - (lambda _args287351287382_ + (lambda _args290346290377_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _args287351287382_))) + _args290346290377_))) (define gxc#join! - (lambda (_thread287342_) - (let ((__tmp293472 - (lambda (_exn287344_) - (if (uncaught-exception? _exn287344_) - (raise (uncaught-exception-reason _exn287344_)) - (raise _exn287344_)))) - (__tmp293471 (lambda () (thread-join! _thread287342_)))) + (lambda (_thread290337_) + (let ((__tmp296567 + (lambda (_exn290339_) + (if (uncaught-exception? _exn290339_) + (raise (uncaught-exception-reason _exn290339_)) + (raise _exn290339_)))) + (__tmp296566 (lambda () (thread-join! _thread290337_)))) (declare (not safe)) - (with-catch __tmp293472 __tmp293471)))))) + (with-catch __tmp296567 __tmp296566)))))) diff --git a/src/bootstrap/gerbil/compiler/driver__1.scm b/src/bootstrap/gerbil/compiler/driver__1.scm index b18db0f48..f1242c178 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 (_$stx287215_) - (let* ((_g287219287233_ - (lambda (_g287220287229_) + (lambda (_$stx290210_) + (let* ((_g290214290228_ + (lambda (_g290215290224_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g287220287229_)))) - (_g287218287275_ - (lambda (_g287220287237_) + _g290215290224_)))) + (_g290213290270_ + (lambda (_g290215290232_) (if (let () (declare (not safe)) - (gx#stx-pair? _g287220287237_)) - (let ((_e287224287240_ + (gx#stx-pair? _g290215290232_)) + (let ((_e290219290235_ (let () (declare (not safe)) - (gx#syntax-e _g287220287237_)))) - (let ((_hd287223287244_ + (gx#syntax-e _g290215290232_)))) + (let ((_hd290218290239_ (let () (declare (not safe)) - (##car _e287224287240_))) - (_tl287222287247_ + (##car _e290219290235_))) + (_tl290217290242_ (let () (declare (not safe)) - (##cdr _e287224287240_)))) + (##cdr _e290219290235_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl287222287247_)) - (let ((_e287227287250_ + (gx#stx-pair? _tl290217290242_)) + (let ((_e290222290245_ (let () (declare (not safe)) - (gx#syntax-e _tl287222287247_)))) - (let ((_hd287226287254_ + (gx#syntax-e _tl290217290242_)))) + (let ((_hd290221290249_ (let () (declare (not safe)) - (##car _e287227287250_))) - (_tl287225287257_ + (##car _e290222290245_))) + (_tl290220290252_ (let () (declare (not safe)) - (##cdr _e287227287250_)))) + (##cdr _e290222290245_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl287225287257_)) - ((lambda (_L287260_) - (let ((__tmp293480 + (gx#stx-null? _tl290220290252_)) + ((lambda (_L290255_) + (let ((__tmp296575 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp293473 - (let ((__tmp293479 + (__tmp296568 + (let ((__tmp296574 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+driver-mutex+))) - (__tmp293474 - (let ((__tmp293475 - (let ((__tmp293478 + (__tmp296569 + (let ((__tmp296570 + (let ((__tmp296573 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp293476 - (let ((__tmp293477 + (__tmp296571 + (let ((__tmp296572 (let () (declare (not safe)) - (cons _L287260_ '())))) + (cons _L290255_ '())))) (declare (not safe)) - (cons '() __tmp293477)))) + (cons '() __tmp296572)))) (declare (not safe)) - (cons __tmp293478 __tmp293476)))) + (cons __tmp296573 __tmp296571)))) (declare (not safe)) - (cons __tmp293475 '())))) + (cons __tmp296570 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp293479 - __tmp293474)))) + (cons __tmp296574 + __tmp296569)))) (declare (not safe)) - (cons __tmp293480 __tmp293473))) - _hd287226287254_) - (_g287219287233_ _g287220287237_)))) - (_g287219287233_ _g287220287237_)))) - (_g287219287233_ _g287220287237_))))) - (_g287218287275_ _$stx287215_)))) + (cons __tmp296575 __tmp296568))) + _hd290221290249_) + (_g290214290228_ _g290215290232_)))) + (_g290214290228_ _g290215290232_)))) + (_g290214290228_ _g290215290232_))))) + (_g290213290270_ _$stx290210_)))) (define |gxc[:0:]#go!| - (lambda (_$stx287279_) - (let* ((_g287283287297_ - (lambda (_g287284287293_) + (lambda (_$stx290274_) + (let* ((_g290278290292_ + (lambda (_g290279290288_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g287284287293_)))) - (_g287282287338_ - (lambda (_g287284287301_) + _g290279290288_)))) + (_g290277290333_ + (lambda (_g290279290296_) (if (let () (declare (not safe)) - (gx#stx-pair? _g287284287301_)) - (let ((_e287288287304_ + (gx#stx-pair? _g290279290296_)) + (let ((_e290283290299_ (let () (declare (not safe)) - (gx#syntax-e _g287284287301_)))) - (let ((_hd287287287308_ + (gx#syntax-e _g290279290296_)))) + (let ((_hd290282290303_ (let () (declare (not safe)) - (##car _e287288287304_))) - (_tl287286287311_ + (##car _e290283290299_))) + (_tl290281290306_ (let () (declare (not safe)) - (##cdr _e287288287304_)))) + (##cdr _e290283290299_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl287286287311_)) - (let ((_e287291287314_ + (gx#stx-pair? _tl290281290306_)) + (let ((_e290286290309_ (let () (declare (not safe)) - (gx#syntax-e _tl287286287311_)))) - (let ((_hd287290287318_ + (gx#syntax-e _tl290281290306_)))) + (let ((_hd290285290313_ (let () (declare (not safe)) - (##car _e287291287314_))) - (_tl287289287321_ + (##car _e290286290309_))) + (_tl290284290316_ (let () (declare (not safe)) - (##cdr _e287291287314_)))) + (##cdr _e290286290309_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl287289287321_)) - ((lambda (_L287324_) - (let ((__tmp293486 + (gx#stx-null? _tl290284290316_)) + ((lambda (_L290319_) + (let ((__tmp296581 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'spawn))) - (__tmp293481 - (let ((__tmp293482 - (let ((__tmp293485 + (__tmp296576 + (let ((__tmp296577 + (let ((__tmp296580 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp293483 - (let ((__tmp293484 + (__tmp296578 + (let ((__tmp296579 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L287324_ '())))) + (let () (declare (not safe)) (cons _L290319_ '())))) (declare (not safe)) - (cons '() __tmp293484)))) + (cons '() __tmp296579)))) (declare (not safe)) - (cons __tmp293485 __tmp293483)))) + (cons __tmp296580 __tmp296578)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp293482 '())))) + (cons __tmp296577 '())))) (declare (not safe)) - (cons __tmp293486 __tmp293481))) - _hd287290287318_) - (_g287283287297_ _g287284287301_)))) - (_g287283287297_ _g287284287301_)))) - (_g287283287297_ _g287284287301_))))) - (_g287282287338_ _$stx287279_))))) + (cons __tmp296581 __tmp296576))) + _hd290285290313_) + (_g290278290292_ _g290279290296_)))) + (_g290278290292_ _g290279290296_)))) + (_g290278290292_ _g290279290296_))))) + (_g290277290333_ _$stx290274_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm index 637ee0385..c786d3e31 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 1707573216) + (define gerbil/compiler/optimize-ann::timestamp 1707674935) (begin (declare (inlining-limit 200)) (define gxc#&optmize-annotated (make-promise (lambda () - (let ((_tbl264150_ + (let ((_tbl266845_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp271740 (force gxc#&basic-xform))) + (let ((__tmp274535 (force gxc#&basic-xform))) (declare (not safe)) - (hash-copy! _tbl264150_ __tmp271740)) + (hash-copy! _tbl266845_ __tmp274535)) (let () (declare (not safe)) (table-set! - _tbl264150_ + _tbl266845_ '%#begin-annotation gxc#optimize-annotation%)) - _tbl264150_)))) + _tbl266845_)))) (define gxc#apply-optimize-annotated - (lambda (_stx264133_ . _args264135_) - (let ((__tmp271742 + (lambda (_stx266828_ . _args266830_) + (let ((__tmp274537 (lambda () (declare (not safe)) - (if (null? _args264135_) - (gxc#compile-e__0 _stx264133_) - (let ((_arg1264140_ (car _args264135_)) - (_rest264142_ (cdr _args264135_))) - (if (null? _rest264142_) - (gxc#compile-e__1 _stx264133_ _arg1264140_) - (let ((_arg2264145_ (car _rest264142_)) - (_rest264147_ (cdr _rest264142_))) - (if (null? _rest264147_) + (if (null? _args266830_) + (gxc#compile-e__0 _stx266828_) + (let ((_arg1266835_ (car _args266830_)) + (_rest266837_ (cdr _args266830_))) + (if (null? _rest266837_) + (gxc#compile-e__1 _stx266828_ _arg1266835_) + (let ((_arg2266840_ (car _rest266837_)) + (_rest266842_ (cdr _rest266837_))) + (if (null? _rest266842_) (gxc#compile-e__2 - _stx264133_ - _arg1264140_ - _arg2264145_) + _stx266828_ + _arg1266835_ + _arg2266840_) (apply gxc#compile-e - _stx264133_ - _arg1264140_ - _arg2264145_ - _rest264147_)))))))) - (__tmp271741 (force gxc#&optmize-annotated))) + _stx266828_ + _arg1266835_ + _arg2266840_ + _rest266842_)))))))) + (__tmp274536 (force gxc#&optmize-annotated))) (declare (not safe)) (call-with-parameters - __tmp271742 + __tmp274537 gxc#current-compile-methods - __tmp271741)))) + __tmp274536)))) (define gxc#&generate-runtime-repr (make-promise (lambda () - (let ((_tbl264130_ + (let ((_tbl266825_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp271743 (force gxc#&generate-runtime))) + (let ((__tmp274538 (force gxc#&generate-runtime))) (declare (not safe)) - (hash-copy! _tbl264130_ __tmp271743)) + (hash-copy! _tbl266825_ __tmp274538)) (let () (declare (not safe)) - (table-set! _tbl264130_ '%#quote-syntax identity)) - _tbl264130_)))) + (table-set! _tbl266825_ '%#quote-syntax identity)) + _tbl266825_)))) (define gxc#apply-generate-runtime-repr - (lambda (_stx264113_ . _args264115_) - (let ((__tmp271745 + (lambda (_stx266808_ . _args266810_) + (let ((__tmp274540 (lambda () (declare (not safe)) - (if (null? _args264115_) - (gxc#compile-e__0 _stx264113_) - (let ((_arg1264120_ (car _args264115_)) - (_rest264122_ (cdr _args264115_))) - (if (null? _rest264122_) - (gxc#compile-e__1 _stx264113_ _arg1264120_) - (let ((_arg2264125_ (car _rest264122_)) - (_rest264127_ (cdr _rest264122_))) - (if (null? _rest264127_) + (if (null? _args266810_) + (gxc#compile-e__0 _stx266808_) + (let ((_arg1266815_ (car _args266810_)) + (_rest266817_ (cdr _args266810_))) + (if (null? _rest266817_) + (gxc#compile-e__1 _stx266808_ _arg1266815_) + (let ((_arg2266820_ (car _rest266817_)) + (_rest266822_ (cdr _rest266817_))) + (if (null? _rest266822_) (gxc#compile-e__2 - _stx264113_ - _arg1264120_ - _arg2264125_) + _stx266808_ + _arg1266815_ + _arg2266820_) (apply gxc#compile-e - _stx264113_ - _arg1264120_ - _arg2264125_ - _rest264127_)))))))) - (__tmp271744 (force gxc#&generate-runtime-repr))) + _stx266808_ + _arg1266815_ + _arg2266820_ + _rest266822_)))))))) + (__tmp274539 (force gxc#&generate-runtime-repr))) (declare (not safe)) (call-with-parameters - __tmp271745 + __tmp274540 gxc#current-compile-methods - __tmp271744)))) + __tmp274539)))) (define gxc#&push-match-vars (make-promise (lambda () - (let ((_tbl264110_ + (let ((_tbl266805_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl264110_ '%#lambda gxc#xform-lambda%)) + (table-set! _tbl266805_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) (table-set! - _tbl264110_ + _tbl266805_ '%#let-values gxc#push-match-vars-let-values%)) (let () (declare (not safe)) (table-set! - _tbl264110_ + _tbl266805_ '%#letrec-values gxc#push-match-vars-stop)) (let () (declare (not safe)) - (table-set! _tbl264110_ '%#if gxc#push-match-vars-if%)) + (table-set! _tbl266805_ '%#if gxc#push-match-vars-if%)) (let () (declare (not safe)) - (table-set! _tbl264110_ '%#call gxc#push-match-vars-call%)) - _tbl264110_)))) + (table-set! _tbl266805_ '%#call gxc#push-match-vars-call%)) + _tbl266805_)))) (define gxc#apply-push-match-vars - (lambda (_stx264093_ . _args264095_) - (let ((__tmp271747 + (lambda (_stx266788_ . _args266790_) + (let ((__tmp274542 (lambda () (declare (not safe)) - (if (null? _args264095_) - (gxc#compile-e__0 _stx264093_) - (let ((_arg1264100_ (car _args264095_)) - (_rest264102_ (cdr _args264095_))) - (if (null? _rest264102_) - (gxc#compile-e__1 _stx264093_ _arg1264100_) - (let ((_arg2264105_ (car _rest264102_)) - (_rest264107_ (cdr _rest264102_))) - (if (null? _rest264107_) + (if (null? _args266790_) + (gxc#compile-e__0 _stx266788_) + (let ((_arg1266795_ (car _args266790_)) + (_rest266797_ (cdr _args266790_))) + (if (null? _rest266797_) + (gxc#compile-e__1 _stx266788_ _arg1266795_) + (let ((_arg2266800_ (car _rest266797_)) + (_rest266802_ (cdr _rest266797_))) + (if (null? _rest266802_) (gxc#compile-e__2 - _stx264093_ - _arg1264100_ - _arg2264105_) + _stx266788_ + _arg1266795_ + _arg2266800_) (apply gxc#compile-e - _stx264093_ - _arg1264100_ - _arg2264105_ - _rest264107_)))))))) - (__tmp271746 (force gxc#&push-match-vars))) + _stx266788_ + _arg1266795_ + _arg2266800_ + _rest266802_)))))))) + (__tmp274541 (force gxc#&push-match-vars))) (declare (not safe)) (call-with-parameters - __tmp271747 + __tmp274542 gxc#current-compile-methods - __tmp271746)))) + __tmp274541)))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_stx263902_) - (let* ((___stx268634268635_ _stx263902_) - (_g263906263947_ + (lambda (_stx266597_) + (let* ((___stx271429271430_ _stx266597_) + (_g266601266642_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx268634268635_))))) - (let ((___kont268636268637_ - (lambda (_L264069_ _L264070_) - (let ((_ann264084_ - (let () (declare (not safe)) (gx#stx-e _L264070_)))) - (let ((__tmp271750 + ___stx271429271430_))))) + (let ((___kont271431271432_ + (lambda (_L266764_ _L266765_) + (let ((_ann266779_ + (let () (declare (not safe)) (gx#stx-e _L266765_)))) + (let ((__tmp274545 (lambda () - (let ((_$e264087_ _ann264084_)) + (let ((_$e266782_ _ann266779_)) (if (let () (declare (not safe)) - (eq? '@match _$e264087_)) + (eq? '@match _$e266782_)) (begin (let () (declare (not safe)) @@ -173,10 +173,10 @@ '"Optimizing match expansion")) (let () (declare (not safe)) - (gxc#optimize-match _L264069_))) + (gxc#optimize-match _L266764_))) (if (let () (declare (not safe)) - (eq? '@syntax-case _$e264087_)) + (eq? '@syntax-case _$e266782_)) (begin (let () (declare (not safe)) @@ -185,1994 +185,1994 @@ (let () (declare (not safe)) (gxc#optimize-syntax-case - _L264069_))) + _L266764_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L264069_))))))) - (__tmp271748 - (let ((__tmp271749 + (gxc#compile-e__0 _L266764_))))))) + (__tmp274543 + (let ((__tmp274544 (gxc#current-annotation-optimizer))) (declare (not safe)) - (cons _ann264084_ __tmp271749)))) + (cons _ann266779_ __tmp274544)))) (declare (not safe)) (call-with-parameters - __tmp271750 + __tmp274545 gxc#current-annotation-optimizer - __tmp271748))))) - (___kont268638268639_ - (lambda (_L264015_ _L264016_ _L264017_) - (let () (declare (not safe)) (gxc#compile-e__0 _L264015_)))) - (___kont268642268643_ + __tmp274543))))) + (___kont271433271434_ + (lambda (_L266710_ _L266711_ _L266712_) + (let () (declare (not safe)) (gxc#compile-e__0 _L266710_)))) + (___kont271437271438_ (lambda () (let () (declare (not safe)) - (gxc#xform-begin-annotation% _stx263902_))))) - (let* ((___match268689268690_ - (lambda (_e263924263959_ - _hd263923263962_ - _tl263922263964_ - _e263927263967_ - _hd263926263970_ - _tl263925263972_ - _e263930263975_ - _hd263929263978_ - _tl263928263980_ - ___splice268640268641_ - _target263931263983_ - _tl263933263985_) - (letrec ((_loop263934263988_ - (lambda (_hd263932263991_ _param263938263993_) + (gxc#xform-begin-annotation% _stx266597_))))) + (let* ((___match271484271485_ + (lambda (_e266619266654_ + _hd266618266657_ + _tl266617266659_ + _e266622266662_ + _hd266621266665_ + _tl266620266667_ + _e266625266670_ + _hd266624266673_ + _tl266623266675_ + ___splice271435271436_ + _target266626266678_ + _tl266628266680_) + (letrec ((_loop266629266683_ + (lambda (_hd266627266686_ _param266633266688_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263932263991_)) - (let ((_e263935263996_ + (gx#stx-pair? _hd266627266686_)) + (let ((_e266630266691_ (let () (declare (not safe)) - (gx#stx-e _hd263932263991_)))) - (let ((_lp-tl263937264001_ + (gx#stx-e _hd266627266686_)))) + (let ((_lp-tl266632266696_ (let () (declare (not safe)) - (##cdr _e263935263996_))) - (_lp-hd263936263999_ + (##cdr _e266630266691_))) + (_lp-hd266631266694_ (let () (declare (not safe)) - (##car _e263935263996_)))) - (let ((__tmp271752 + (##car _e266630266691_)))) + (let ((__tmp274547 (let () (declare (not safe)) - (cons _lp-hd263936263999_ - _param263938263993_)))) + (cons _lp-hd266631266694_ + _param266633266688_)))) (declare (not safe)) - (_loop263934263988_ - _lp-tl263937264001_ - __tmp271752)))) - (let ((_param263939264004_ - (reverse _param263938263993_))) + (_loop266629266683_ + _lp-tl266632266696_ + __tmp274547)))) + (let ((_param266634266699_ + (reverse _param266633266688_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263925263972_)) - (let ((_e263942264007_ + (gx#stx-pair? _tl266620266667_)) + (let ((_e266637266702_ (let () (declare (not safe)) (gx#stx-e - _tl263925263972_)))) - (let ((_tl263940264012_ + _tl266620266667_)))) + (let ((_tl266635266707_ (let () (declare (not safe)) - (##cdr _e263942264007_))) - (_hd263941264010_ + (##cdr _e266637266702_))) + (_hd266636266705_ (let () (declare (not safe)) - (##car _e263942264007_)))) + (##car _e266637266702_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263940264012_)) - (let ((_L264015_ - _hd263941264010_) - (_L264016_ - _param263939264004_) - (_L264017_ - _hd263929263978_)) + _tl266635266707_)) + (let ((_L266710_ + _hd266636266705_) + (_L266711_ + _param266634266699_) + (_L266712_ + _hd266624266673_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L264017_)) - (let ((__tmp271751 + (gx#identifier? _L266712_)) + (let ((__tmp274546 (memq (let () (declare (not safe)) - (gx#stx-e _L264017_)) + (gx#stx-e _L266712_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp271751))) - (___kont268638268639_ _L264015_ _L264016_ _L264017_) - (___kont268642268643_))) + (not __tmp274546))) + (___kont271433271434_ _L266710_ _L266711_ _L266712_) + (___kont271437271438_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont268642268643_)))) - (___kont268642268643_))))))) + (___kont271437271438_)))) + (___kont271437271438_))))))) (let () (declare (not safe)) - (_loop263934263988_ _target263931263983_ '()))))) - (___match268663268664_ - (lambda (_e263912264045_ - _hd263911264048_ - _tl263910264050_ - _e263915264053_ - _hd263914264056_ - _tl263913264058_ - _e263918264061_ - _hd263917264064_ - _tl263916264066_) - (let ((_L264069_ _hd263917264064_) - (_L264070_ _hd263914264056_)) + (_loop266629266683_ _target266626266678_ '()))))) + (___match271458271459_ + (lambda (_e266607266740_ + _hd266606266743_ + _tl266605266745_ + _e266610266748_ + _hd266609266751_ + _tl266608266753_ + _e266613266756_ + _hd266612266759_ + _tl266611266761_) + (let ((_L266764_ _hd266612266759_) + (_L266765_ _hd266609266751_)) (if (let () (declare (not safe)) - (gx#identifier? _L264070_)) - (___kont268636268637_ _L264069_ _L264070_) + (gx#identifier? _L266765_)) + (___kont271431271432_ _L266764_ _L266765_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263914264056_)) - (let ((_e263930263975_ + (gx#stx-pair? _hd266609266751_)) + (let ((_e266625266670_ (let () (declare (not safe)) - (gx#stx-e _hd263914264056_)))) - (let ((_tl263928263980_ + (gx#stx-e _hd266609266751_)))) + (let ((_tl266623266675_ (let () (declare (not safe)) - (##cdr _e263930263975_))) - (_hd263929263978_ + (##cdr _e266625266670_))) + (_hd266624266673_ (let () (declare (not safe)) - (##car _e263930263975_)))) + (##car _e266625266670_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl263928263980_)) - (let ((___splice268640268641_ + (gx#stx-pair/null? _tl266623266675_)) + (let ((___splice271435271436_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl263928263980_ + _tl266623266675_ '0)))) - (let ((_tl263933263985_ + (let ((_tl266628266680_ (let () (declare (not safe)) (##vector-ref - ___splice268640268641_ + ___splice271435271436_ '1))) - (_target263931263983_ + (_target266626266678_ (let () (declare (not safe)) (##vector-ref - ___splice268640268641_ + ___splice271435271436_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263933263985_)) - (___match268689268690_ - _e263912264045_ - _hd263911264048_ - _tl263910264050_ - _e263915264053_ - _hd263914264056_ - _tl263913264058_ - _e263930263975_ - _hd263929263978_ - _tl263928263980_ - ___splice268640268641_ - _target263931263983_ - _tl263933263985_) - (___kont268642268643_)))) - (___kont268642268643_)))) - (___kont268642268643_))))))) + _tl266628266680_)) + (___match271484271485_ + _e266607266740_ + _hd266606266743_ + _tl266605266745_ + _e266610266748_ + _hd266609266751_ + _tl266608266753_ + _e266625266670_ + _hd266624266673_ + _tl266623266675_ + ___splice271435271436_ + _target266626266678_ + _tl266628266680_) + (___kont271437271438_)))) + (___kont271437271438_)))) + (___kont271437271438_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx268634268635_)) - (let ((_e263912264045_ + (gx#stx-pair? ___stx271429271430_)) + (let ((_e266607266740_ (let () (declare (not safe)) - (gx#stx-e ___stx268634268635_)))) - (let ((_tl263910264050_ + (gx#stx-e ___stx271429271430_)))) + (let ((_tl266605266745_ (let () (declare (not safe)) - (##cdr _e263912264045_))) - (_hd263911264048_ + (##cdr _e266607266740_))) + (_hd266606266743_ (let () (declare (not safe)) - (##car _e263912264045_)))) + (##car _e266607266740_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263910264050_)) - (let ((_e263915264053_ + (gx#stx-pair? _tl266605266745_)) + (let ((_e266610266748_ (let () (declare (not safe)) - (gx#stx-e _tl263910264050_)))) - (let ((_tl263913264058_ + (gx#stx-e _tl266605266745_)))) + (let ((_tl266608266753_ (let () (declare (not safe)) - (##cdr _e263915264053_))) - (_hd263914264056_ + (##cdr _e266610266748_))) + (_hd266609266751_ (let () (declare (not safe)) - (##car _e263915264053_)))) + (##car _e266610266748_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263913264058_)) - (let ((_e263918264061_ + (gx#stx-pair? _tl266608266753_)) + (let ((_e266613266756_ (let () (declare (not safe)) - (gx#stx-e _tl263913264058_)))) - (let ((_tl263916264066_ + (gx#stx-e _tl266608266753_)))) + (let ((_tl266611266761_ (let () (declare (not safe)) - (##cdr _e263918264061_))) - (_hd263917264064_ + (##cdr _e266613266756_))) + (_hd266612266759_ (let () (declare (not safe)) - (##car _e263918264061_)))) + (##car _e266613266756_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263916264066_)) - (___match268663268664_ - _e263912264045_ - _hd263911264048_ - _tl263910264050_ - _e263915264053_ - _hd263914264056_ - _tl263913264058_ - _e263918264061_ - _hd263917264064_ - _tl263916264066_) + (gx#stx-null? _tl266611266761_)) + (___match271458271459_ + _e266607266740_ + _hd266606266743_ + _tl266605266745_ + _e266610266748_ + _hd266609266751_ + _tl266608266753_ + _e266613266756_ + _hd266612266759_ + _tl266611266761_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263914264056_)) - (let ((_e263930263975_ + _hd266609266751_)) + (let ((_e266625266670_ (let () (declare (not safe)) (gx#stx-e - _hd263914264056_)))) - (let ((_tl263928263980_ + _hd266609266751_)))) + (let ((_tl266623266675_ (let () (declare (not safe)) - (##cdr _e263930263975_))) - (_hd263929263978_ + (##cdr _e266625266670_))) + (_hd266624266673_ (let () (declare (not safe)) - (##car _e263930263975_)))) + (##car _e266625266670_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl263928263980_)) - (let ((___splice268640268641_ + _tl266623266675_)) + (let ((___splice271435271436_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl263928263980_ '0)))) - (let ((_tl263933263985_ + (gx#syntax-split-splice _tl266623266675_ '0)))) + (let ((_tl266628266680_ (let () (declare (not safe)) - (##vector-ref ___splice268640268641_ '1))) - (_target263931263983_ + (##vector-ref ___splice271435271436_ '1))) + (_target266626266678_ (let () (declare (not safe)) - (##vector-ref ___splice268640268641_ '0)))) + (##vector-ref ___splice271435271436_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263933263985_)) - (___match268689268690_ - _e263912264045_ - _hd263911264048_ - _tl263910264050_ - _e263915264053_ - _hd263914264056_ - _tl263913264058_ - _e263930263975_ - _hd263929263978_ - _tl263928263980_ - ___splice268640268641_ - _target263931263983_ - _tl263933263985_) - (___kont268642268643_)))) - (___kont268642268643_)))) + (gx#stx-null? _tl266628266680_)) + (___match271484271485_ + _e266607266740_ + _hd266606266743_ + _tl266605266745_ + _e266610266748_ + _hd266609266751_ + _tl266608266753_ + _e266625266670_ + _hd266624266673_ + _tl266623266675_ + ___splice271435271436_ + _target266626266678_ + _tl266628266680_) + (___kont271437271438_)))) + (___kont271437271438_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont268642268643_))))) + (___kont271437271438_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263914264056_)) - (let ((_e263930263975_ + (gx#stx-pair? _hd266609266751_)) + (let ((_e266625266670_ (let () (declare (not safe)) - (gx#stx-e _hd263914264056_)))) - (let ((_tl263928263980_ + (gx#stx-e _hd266609266751_)))) + (let ((_tl266623266675_ (let () (declare (not safe)) - (##cdr _e263930263975_))) - (_hd263929263978_ + (##cdr _e266625266670_))) + (_hd266624266673_ (let () (declare (not safe)) - (##car _e263930263975_)))) + (##car _e266625266670_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl263928263980_)) - (let ((___splice268640268641_ + _tl266623266675_)) + (let ((___splice271435271436_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl263928263980_ + _tl266623266675_ '0)))) - (let ((_tl263933263985_ + (let ((_tl266628266680_ (let () (declare (not safe)) (##vector-ref - ___splice268640268641_ + ___splice271435271436_ '1))) - (_target263931263983_ + (_target266626266678_ (let () (declare (not safe)) (##vector-ref - ___splice268640268641_ + ___splice271435271436_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263933263985_)) - (___match268689268690_ - _e263912264045_ - _hd263911264048_ - _tl263910264050_ - _e263915264053_ - _hd263914264056_ - _tl263913264058_ - _e263930263975_ - _hd263929263978_ - _tl263928263980_ - ___splice268640268641_ - _target263931263983_ - _tl263933263985_) - (___kont268642268643_)))) - (___kont268642268643_)))) - (___kont268642268643_))))) - (___kont268642268643_)))) - (___kont268642268643_))))))) + _tl266628266680_)) + (___match271484271485_ + _e266607266740_ + _hd266606266743_ + _tl266605266745_ + _e266610266748_ + _hd266609266751_ + _tl266608266753_ + _e266625266670_ + _hd266624266673_ + _tl266623266675_ + ___splice271435271436_ + _target266626266678_ + _tl266628266680_) + (___kont271437271438_)))) + (___kont271437271438_)))) + (___kont271437271438_))))) + (___kont271437271438_)))) + (___kont271437271438_))))))) (define gxc#optimize-match - (lambda (_stx263201_) - (let* ((_g263203263233_ - (lambda (_g263204263230_) + (lambda (_stx265896_) + (let* ((_g265898265928_ + (lambda (_g265899265925_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g263204263230_)))) - (_g263202263899_ - (lambda (_g263204263236_) + _g265899265925_)))) + (_g265897266594_ + (lambda (_g265899265931_) (if (let () (declare (not safe)) - (gx#stx-pair? _g263204263236_)) - (let ((_e263210263238_ + (gx#stx-pair? _g265899265931_)) + (let ((_e265905265933_ (let () (declare (not safe)) - (gx#stx-e _g263204263236_)))) - (let ((_hd263209263241_ + (gx#stx-e _g265899265931_)))) + (let ((_hd265904265936_ (let () (declare (not safe)) - (##car _e263210263238_))) - (_tl263208263243_ + (##car _e265905265933_))) + (_tl265903265938_ (let () (declare (not safe)) - (##cdr _e263210263238_)))) + (##cdr _e265905265933_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263209263241_)) + (gx#identifier? _hd265904265936_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd263209263241_)) + _hd265904265936_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263208263243_)) - (let ((_e263213263246_ + (gx#stx-pair? _tl265903265938_)) + (let ((_e265908265941_ (let () (declare (not safe)) - (gx#stx-e _tl263208263243_)))) - (let ((_hd263212263249_ + (gx#stx-e _tl265903265938_)))) + (let ((_hd265907265944_ (let () (declare (not safe)) - (##car _e263213263246_))) - (_tl263211263251_ + (##car _e265908265941_))) + (_tl265906265946_ (let () (declare (not safe)) - (##cdr _e263213263246_)))) + (##cdr _e265908265941_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263212263249_)) - (let ((_e263216263254_ + _hd265907265944_)) + (let ((_e265911265949_ (let () (declare (not safe)) (gx#stx-e - _hd263212263249_)))) - (let ((_hd263215263257_ + _hd265907265944_)))) + (let ((_hd265910265952_ (let () (declare (not safe)) - (##car _e263216263254_))) - (_tl263214263259_ + (##car _e265911265949_))) + (_tl265909265954_ (let () (declare (not safe)) - (##cdr _e263216263254_)))) + (##cdr _e265911265949_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263215263257_)) - (let ((_e263219263262_ + _hd265910265952_)) + (let ((_e265914265957_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd263215263257_)))) - (let ((_hd263218263265_ - (let () (declare (not safe)) (##car _e263219263262_))) - (_tl263217263267_ - (let () (declare (not safe)) (##cdr _e263219263262_)))) + (gx#stx-e _hd265910265952_)))) + (let ((_hd265913265960_ + (let () (declare (not safe)) (##car _e265914265957_))) + (_tl265912265962_ + (let () (declare (not safe)) (##cdr _e265914265957_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263218263265_)) - (let ((_e263222263270_ + (gx#stx-pair? _hd265913265960_)) + (let ((_e265917265965_ (let () (declare (not safe)) - (gx#stx-e _hd263218263265_)))) - (let ((_hd263221263273_ + (gx#stx-e _hd265913265960_)))) + (let ((_hd265916265968_ (let () (declare (not safe)) - (##car _e263222263270_))) - (_tl263220263275_ + (##car _e265917265965_))) + (_tl265915265970_ (let () (declare (not safe)) - (##cdr _e263222263270_)))) + (##cdr _e265917265965_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263220263275_)) + (gx#stx-null? _tl265915265970_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263217263267_)) - (let ((_e263225263278_ + (gx#stx-pair? _tl265912265962_)) + (let ((_e265920265973_ (let () (declare (not safe)) - (gx#stx-e _tl263217263267_)))) - (let ((_hd263224263281_ + (gx#stx-e _tl265912265962_)))) + (let ((_hd265919265976_ (let () (declare (not safe)) - (##car _e263225263278_))) - (_tl263223263283_ + (##car _e265920265973_))) + (_tl265918265978_ (let () (declare (not safe)) - (##cdr _e263225263278_)))) + (##cdr _e265920265973_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263223263283_)) + (gx#stx-null? _tl265918265978_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl263214263259_)) + _tl265909265954_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263211263251_)) - (let ((_e263228263286_ + _tl265906265946_)) + (let ((_e265923265981_ (let () (declare (not safe)) (gx#stx-e - _tl263211263251_)))) - (let ((_hd263227263289_ + _tl265906265946_)))) + (let ((_hd265922265984_ (let () (declare (not safe)) - (##car _e263228263286_))) - (_tl263226263291_ + (##car _e265923265981_))) + (_tl265921265986_ (let () (declare (not safe)) - (##cdr _e263228263286_)))) + (##cdr _e265923265981_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263226263291_)) - ((lambda (_L263294_ + _tl265921265986_)) + ((lambda (_L265989_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L263295_ - _L263296_) - (let _lp263320_ ((_body263322_ _L263294_) - (_negation263323_ + _L265990_ + _L265991_) + (let _lp266015_ ((_body266017_ _L265989_) + (_negation266018_ (let () (declare (not safe)) - (cons _L263296_ _L263295_))) - (_clauses263324_ '()) - (_konts263325_ '())) - (let* ((___stx268872268873_ _body263322_) - (_g263328263368_ + (cons _L265991_ _L265990_))) + (_clauses266019_ '()) + (_konts266020_ '())) + (let* ((___stx271667271668_ _body266017_) + (_g266023266063_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx268872268873_))))) - (let ((___kont268874268875_ - (lambda (_L263698_) - (let* ((___stx268808268809_ _L263698_) - (_g263712263742_ + ___stx271667271668_))))) + (let ((___kont271669271670_ + (lambda (_L266393_) + (let* ((___stx271603271604_ _L266393_) + (_g266407266437_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx268808268809_))))) - (let ((___kont268810268811_ - (lambda (_L263838_ - _L263839_ - _L263840_) + ___stx271603271604_))))) + (let ((___kont271605271606_ + (lambda (_L266533_ + _L266534_ + _L266535_) (if (let () (declare (not safe)) - (null? _clauses263324_)) - (let* ((_negation263864263871_ - _negation263323_) - (_E263866263875_ + (null? _clauses266019_)) + (let* ((_negation266559266566_ + _negation266018_) + (_E266561266570_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _negation263864263871_))) - (_K263867263881_ - (lambda (_negate263878_ _E263879_) - (let ((__tmp271762 - (let ((__tmp271763 - (let ((__tmp271773 - (let ((__tmp271774 - (let ((__tmp271776 + _negation266559266566_))) + (_K266562266576_ + (lambda (_negate266573_ _E266574_) + (let ((__tmp274557 + (let ((__tmp274558 + (let ((__tmp274568 + (let ((__tmp274569 + (let ((__tmp274571 (let () (declare (not safe)) - (cons _E263879_ '()))) - (__tmp271775 + (cons _E266574_ '()))) + (__tmp274570 (let () (declare (not safe)) - (cons _negate263878_ + (cons _negate266573_ '())))) (declare (not safe)) - (cons __tmp271776 - __tmp271775)))) + (cons __tmp274571 + __tmp274570)))) (declare (not safe)) - (cons __tmp271774 '()))) - (__tmp271764 - (let ((__tmp271765 - (let ((__tmp271766 - (let ((__tmp271768 - (let ((__tmp271769 + (cons __tmp274569 '()))) + (__tmp274559 + (let ((__tmp274560 + (let ((__tmp274561 + (let ((__tmp274563 + (let ((__tmp274564 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271772 + (let ((__tmp274567 (let () (declare (not safe)) - (cons _L263840_ '()))) - (__tmp271770 - (let ((__tmp271771 + (cons _L266535_ '()))) + (__tmp274565 + (let ((__tmp274566 (let () (declare (not safe)) - (gxc#compile-e__0 _L263839_)))) + (gxc#compile-e__0 _L266534_)))) (declare (not safe)) - (cons __tmp271771 '())))) + (cons __tmp274566 '())))) (declare (not safe)) - (cons __tmp271772 __tmp271770)))) + (cons __tmp274567 __tmp274565)))) (declare (not safe)) - (cons __tmp271769 '()))) - (__tmp271767 - (let () (declare (not safe)) (cons _L263838_ '())))) + (cons __tmp274564 '()))) + (__tmp274562 + (let () (declare (not safe)) (cons _L266533_ '())))) (declare (not safe)) - (cons __tmp271768 __tmp271767)))) + (cons __tmp274563 __tmp274562)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp271766)))) + __tmp274561)))) (declare (not safe)) - (cons __tmp271765 '())))) + (cons __tmp274560 '())))) (declare (not safe)) - (cons __tmp271773 __tmp271764)))) + (cons __tmp274568 __tmp274559)))) (declare (not safe)) - (cons '%#let-values __tmp271763)))) + (cons '%#let-values __tmp274558)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp271762 _stx263201_))))) + (gxc#xform-wrap-source __tmp274557 _stx265896_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation263864263871_)) - (let ((_hd263868263884_ + (##pair? _negation266559266566_)) + (let ((_hd266563266579_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _negation263864263871_))) - (_tl263869263886_ + (##car _negation266559266566_))) + (_tl266564266581_ (let () (declare (not safe)) - (##cdr _negation263864263871_)))) - (let* ((_E263889_ _hd263868263884_) - (_negate263891_ _tl263869263886_)) + (##cdr _negation266559266566_)))) + (let* ((_E266584_ _hd266563266579_) + (_negate266586_ _tl266564266581_)) (declare (not safe)) - (_K263867263881_ _negate263891_ _E263889_))) - (let () (declare (not safe)) (_E263866263875_)))) + (_K266562266576_ _negate266586_ _E266584_))) + (let () (declare (not safe)) (_E266561266570_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp271756 - (let ((__tmp271757 - (let ((__tmp271758 + (let ((__tmp274551 + (let ((__tmp274552 + (let ((__tmp274553 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271761 + (let ((__tmp274556 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp271759 - (let ((__tmp271760 + (__tmp274554 + (let ((__tmp274555 (let () (declare (not safe)) - (cons _L263838_ '())))) + (cons _L266533_ '())))) (declare (not safe)) - (cons '() __tmp271760)))) + (cons '() __tmp274555)))) (declare (not safe)) - (cons __tmp271761 __tmp271759)))) + (cons __tmp274556 __tmp274554)))) (declare (not safe)) - (cons '#f __tmp271758)))) + (cons '#f __tmp274553)))) (declare (not safe)) - (cons __tmp271757 _clauses263324_))) - (__tmp271753 - (let ((__tmp271754 - (let ((__tmp271755 + (cons __tmp274552 _clauses266019_))) + (__tmp274548 + (let ((__tmp274549 + (let ((__tmp274550 (let () (declare (not safe)) - (gxc#compile-e__0 _L263839_)))) + (gxc#compile-e__0 _L266534_)))) (declare (not safe)) - (cons _L263840_ __tmp271755)))) + (cons _L266535_ __tmp274550)))) (declare (not safe)) - (cons __tmp271754 _konts263325_)))) + (cons __tmp274549 _konts266020_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimize-match-body - _stx263201_ - _negation263323_ - __tmp271756 - __tmp271753))))) - (___kont268812268813_ + _stx265896_ + _negation266018_ + __tmp274551 + __tmp274548))))) + (___kont271607271608_ (lambda () - (let* ((_negation263748263755_ - _negation263323_) - (_E263750263759_ + (let* ((_negation266443266450_ + _negation266018_) + (_E266445266454_ (lambda () (error '"No clause matching" - _negation263748263755_))) - (_K263751263765_ - (lambda (_negate263762_ - _E263763_) - (let ((__tmp271777 - (let ((__tmp271778 + _negation266443266450_))) + (_K266446266460_ + (lambda (_negate266457_ + _E266458_) + (let ((__tmp274572 + (let ((__tmp274573 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271780 - (let ((__tmp271781 - (let ((__tmp271783 + (let ((__tmp274575 + (let ((__tmp274576 + (let ((__tmp274578 (let () (declare (not safe)) - (cons _E263763_ '()))) - (__tmp271782 + (cons _E266458_ '()))) + (__tmp274577 (let () (declare (not safe)) - (cons _negate263762_ + (cons _negate266457_ '())))) (declare (not safe)) - (cons __tmp271783 __tmp271782)))) + (cons __tmp274578 __tmp274577)))) (declare (not safe)) - (cons __tmp271781 '()))) - (__tmp271779 + (cons __tmp274576 '()))) + (__tmp274574 (let () (declare (not safe)) - (cons _L263698_ '())))) + (cons _L266393_ '())))) (declare (not safe)) - (cons __tmp271780 __tmp271779)))) + (cons __tmp274575 __tmp274574)))) (declare (not safe)) - (cons '%#let-values __tmp271778)))) + (cons '%#let-values __tmp274573)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp271777 _stx263201_))))) + (gxc#xform-wrap-source __tmp274572 _stx265896_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation263748263755_)) - (let ((_hd263752263768_ + (##pair? _negation266443266450_)) + (let ((_hd266447266463_ (let () (declare (not safe)) - (##car _negation263748263755_))) - (_tl263753263770_ + (##car _negation266443266450_))) + (_tl266448266465_ (let () (declare (not safe)) - (##cdr _negation263748263755_)))) - (let* ((_E263773_ - _hd263752263768_) - (_negate263775_ - _tl263753263770_)) + (##cdr _negation266443266450_)))) + (let* ((_E266468_ + _hd266447266463_) + (_negate266470_ + _tl266448266465_)) (declare (not safe)) - (_K263751263765_ - _negate263775_ - _E263773_))) + (_K266446266460_ + _negate266470_ + _E266468_))) (let () (declare (not safe)) - (_E263750263759_))))))) - (let ((_g263711263777_ + (_E266445266454_))))))) + (let ((_g266406266472_ (lambda () (if (let () (declare (not safe)) - (null? _clauses263324_)) - (___kont268812268813_) + (null? _clauses266019_)) + (___kont271607271608_) (let () (declare (not safe)) - (_g263712263742_)))))) + (_g266407266437_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx268808268809_)) - (let ((_e263719263782_ + ___stx271603271604_)) + (let ((_e266414266477_ (let () (declare (not safe)) (gx#stx-e - ___stx268808268809_)))) - (let ((_tl263717263787_ + ___stx271603271604_)))) + (let ((_tl266412266482_ (let () (declare (not safe)) - (##cdr _e263719263782_))) - (_hd263718263785_ + (##cdr _e266414266477_))) + (_hd266413266480_ (let () (declare (not safe)) - (##car _e263719263782_)))) + (##car _e266414266477_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd263718263785_)) + _hd266413266480_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd263718263785_)) + _hd266413266480_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263717263787_)) - (let ((_e263722263790_ + _tl266412266482_)) + (let ((_e266417266485_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl263717263787_)))) - (let ((_tl263720263795_ + (gx#stx-e _tl266412266482_)))) + (let ((_tl266415266490_ (let () (declare (not safe)) - (##cdr _e263722263790_))) - (_hd263721263793_ + (##cdr _e266417266485_))) + (_hd266416266488_ (let () (declare (not safe)) - (##car _e263722263790_)))) + (##car _e266417266485_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263721263793_)) - (let ((_e263725263798_ + (gx#stx-pair? _hd266416266488_)) + (let ((_e266420266493_ (let () (declare (not safe)) - (gx#stx-e _hd263721263793_)))) - (let ((_tl263723263803_ + (gx#stx-e _hd266416266488_)))) + (let ((_tl266418266498_ (let () (declare (not safe)) - (##cdr _e263725263798_))) - (_hd263724263801_ + (##cdr _e266420266493_))) + (_hd266419266496_ (let () (declare (not safe)) - (##car _e263725263798_)))) + (##car _e266420266493_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263724263801_)) - (let ((_e263728263806_ + (gx#stx-pair? _hd266419266496_)) + (let ((_e266423266501_ (let () (declare (not safe)) - (gx#stx-e _hd263724263801_)))) - (let ((_tl263726263811_ + (gx#stx-e _hd266419266496_)))) + (let ((_tl266421266506_ (let () (declare (not safe)) - (##cdr _e263728263806_))) - (_hd263727263809_ + (##cdr _e266423266501_))) + (_hd266422266504_ (let () (declare (not safe)) - (##car _e263728263806_)))) + (##car _e266423266501_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263727263809_)) - (let ((_e263731263814_ + (gx#stx-pair? _hd266422266504_)) + (let ((_e266426266509_ (let () (declare (not safe)) (gx#stx-e - _hd263727263809_)))) - (let ((_tl263729263819_ + _hd266422266504_)))) + (let ((_tl266424266514_ (let () (declare (not safe)) - (##cdr _e263731263814_))) - (_hd263730263817_ + (##cdr _e266426266509_))) + (_hd266425266512_ (let () (declare (not safe)) - (##car _e263731263814_)))) + (##car _e266426266509_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263729263819_)) + _tl266424266514_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263726263811_)) - (let ((_e263734263822_ + _tl266421266506_)) + (let ((_e266429266517_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl263726263811_)))) - (let ((_tl263732263827_ - (let () (declare (not safe)) (##cdr _e263734263822_))) - (_hd263733263825_ + (gx#stx-e _tl266421266506_)))) + (let ((_tl266427266522_ + (let () (declare (not safe)) (##cdr _e266429266517_))) + (_hd266428266520_ (let () (declare (not safe)) - (##car _e263734263822_)))) + (##car _e266429266517_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263732263827_)) + (gx#stx-null? _tl266427266522_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263723263803_)) + (gx#stx-null? _tl266418266498_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263720263795_)) - (let ((_e263737263830_ + (gx#stx-pair? _tl266415266490_)) + (let ((_e266432266525_ (let () (declare (not safe)) - (gx#stx-e _tl263720263795_)))) - (let ((_tl263735263835_ + (gx#stx-e _tl266415266490_)))) + (let ((_tl266430266530_ (let () (declare (not safe)) - (##cdr _e263737263830_))) - (_hd263736263833_ + (##cdr _e266432266525_))) + (_hd266431266528_ (let () (declare (not safe)) - (##car _e263737263830_)))) + (##car _e266432266525_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263735263835_)) - (___kont268810268811_ - _hd263736263833_ - _hd263733263825_ - _hd263730263817_) + (gx#stx-null? _tl266430266530_)) + (___kont271605271606_ + _hd266431266528_ + _hd266428266520_ + _hd266425266512_) (let () (declare (not safe)) - (_g263711263777_))))) + (_g266406266472_))))) (let () (declare (not safe)) - (_g263711263777_))) - (let () (declare (not safe)) (_g263711263777_))) - (let () (declare (not safe)) (_g263711263777_))))) - (let () (declare (not safe)) (_g263711263777_))) + (_g266406266472_))) + (let () (declare (not safe)) (_g266406266472_))) + (let () (declare (not safe)) (_g266406266472_))))) + (let () (declare (not safe)) (_g266406266472_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g263711263777_))))) + (_g266406266472_))))) (let () (declare (not safe)) - (_g263711263777_))))) + (_g266406266472_))))) (let () (declare (not safe)) - (_g263711263777_))))) - (let () (declare (not safe)) (_g263711263777_))))) - (let () (declare (not safe)) (_g263711263777_))) - (let () (declare (not safe)) (_g263711263777_))) + (_g266406266472_))))) + (let () (declare (not safe)) (_g266406266472_))))) + (let () (declare (not safe)) (_g266406266472_))) + (let () (declare (not safe)) (_g266406266472_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g263711263777_))))) + (_g266406266472_))))) (let () (declare (not safe)) - (_g263711263777_)))))))) - (___kont268876268877_ - (lambda (_L263429_ _L263430_ _L263431_) - (let* ((___stx268692268693_ _L263430_) - (_g263458263507_ + (_g266406266472_)))))))) + (___kont271671271672_ + (lambda (_L266124_ _L266125_ _L266126_) + (let* ((___stx271487271488_ _L266125_) + (_g266153266202_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx268692268693_))))) - (let ((___kont268694268695_ - (lambda (_L263635_ - _L263636_ - _L263637_) - (let ((__tmp271787 - (let ((__tmp271788 - (let ((__tmp271789 + ___stx271487271488_))))) + (let ((___kont271489271490_ + (lambda (_L266330_ + _L266331_ + _L266332_) + (let ((__tmp274582 + (let ((__tmp274583 + (let ((__tmp274584 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271792 + (let ((__tmp274587 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp271790 - (let ((__tmp271791 + (__tmp274585 + (let ((__tmp274586 (let () (declare (not safe)) - (cons _L263635_ '())))) + (cons _L266330_ '())))) (declare (not safe)) - (cons '() __tmp271791)))) + (cons '() __tmp274586)))) (declare (not safe)) - (cons __tmp271792 __tmp271790)))) + (cons __tmp274587 __tmp274585)))) (declare (not safe)) - (cons _L263431_ __tmp271789)))) + (cons _L266126_ __tmp274584)))) (declare (not safe)) - (cons __tmp271788 _clauses263324_))) + (cons __tmp274583 _clauses266019_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp271784 - (let ((__tmp271785 - (let ((__tmp271786 + (__tmp274579 + (let ((__tmp274580 + (let ((__tmp274581 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L263636_)))) + (gxc#compile-e__0 _L266331_)))) (declare (not safe)) - (cons _L263637_ __tmp271786)))) + (cons _L266332_ __tmp274581)))) (declare (not safe)) - (cons __tmp271785 _konts263325_)))) + (cons __tmp274580 _konts266020_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp263320_ - _L263429_ - _negation263323_ - __tmp271787 - __tmp271784)))) - (___kont268696268697_ - (lambda (_L263536_) - (let ((__tmp271793 - (let ((__tmp271794 + (_lp266015_ + _L266124_ + _negation266018_ + __tmp274582 + __tmp274579)))) + (___kont271491271492_ + (lambda (_L266231_) + (let ((__tmp274588 + (let ((__tmp274589 (let () (declare (not safe)) (gxc#compile-e__0 - _L263536_)))) + _L266231_)))) (declare (not safe)) - (cons _L263431_ - __tmp271794)))) + (cons _L266126_ + __tmp274589)))) (declare (not safe)) - (_lp263320_ - _L263429_ - __tmp271793 - _clauses263324_ - _konts263325_))))) + (_lp266015_ + _L266124_ + __tmp274588 + _clauses266019_ + _konts266020_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx268692268693_)) - (let ((_e263465263555_ + (gx#stx-pair? ___stx271487271488_)) + (let ((_e266160266250_ (let () (declare (not safe)) (gx#stx-e - ___stx268692268693_)))) - (let ((_tl263463263560_ + ___stx271487271488_)))) + (let ((_tl266158266255_ (let () (declare (not safe)) - (##cdr _e263465263555_))) - (_hd263464263558_ + (##cdr _e266160266250_))) + (_hd266159266253_ (let () (declare (not safe)) - (##car _e263465263555_)))) + (##car _e266160266250_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd263464263558_)) + _hd266159266253_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd263464263558_)) + _hd266159266253_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263463263560_)) - (let ((_e263468263563_ + _tl266158266255_)) + (let ((_e266163266258_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl263463263560_)))) - (let ((_tl263466263568_ + (gx#stx-e _tl266158266255_)))) + (let ((_tl266161266263_ (let () (declare (not safe)) - (##cdr _e263468263563_))) - (_hd263467263566_ + (##cdr _e266163266258_))) + (_hd266162266261_ (let () (declare (not safe)) - (##car _e263468263563_)))) + (##car _e266163266258_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd263467263566_)) + (gx#stx-null? _hd266162266261_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263466263568_)) - (let ((_e263471263571_ + (gx#stx-pair? _tl266161266263_)) + (let ((_e266166266266_ (let () (declare (not safe)) - (gx#stx-e _tl263466263568_)))) - (let ((_tl263469263576_ + (gx#stx-e _tl266161266263_)))) + (let ((_tl266164266271_ (let () (declare (not safe)) - (##cdr _e263471263571_))) - (_hd263470263574_ + (##cdr _e266166266266_))) + (_hd266165266269_ (let () (declare (not safe)) - (##car _e263471263571_)))) + (##car _e266166266266_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263470263574_)) - (let ((_e263474263579_ + (gx#stx-pair? _hd266165266269_)) + (let ((_e266169266274_ (let () (declare (not safe)) - (gx#stx-e _hd263470263574_)))) - (let ((_tl263472263584_ + (gx#stx-e _hd266165266269_)))) + (let ((_tl266167266279_ (let () (declare (not safe)) - (##cdr _e263474263579_))) - (_hd263473263582_ + (##cdr _e266169266274_))) + (_hd266168266277_ (let () (declare (not safe)) - (##car _e263474263579_)))) + (##car _e266169266274_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd263473263582_)) + _hd266168266277_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd263473263582_)) + _hd266168266277_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263472263584_)) - (let ((_e263477263587_ + _tl266167266279_)) + (let ((_e266172266282_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl263472263584_)))) - (let ((_tl263475263592_ - (let () (declare (not safe)) (##cdr _e263477263587_))) - (_hd263476263590_ - (let () (declare (not safe)) (##car _e263477263587_)))) + (gx#stx-e _tl266167266279_)))) + (let ((_tl266170266287_ + (let () (declare (not safe)) (##cdr _e266172266282_))) + (_hd266171266285_ + (let () (declare (not safe)) (##car _e266172266282_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263476263590_)) - (let ((_e263480263595_ + (gx#stx-pair? _hd266171266285_)) + (let ((_e266175266290_ (let () (declare (not safe)) - (gx#stx-e _hd263476263590_)))) - (let ((_tl263478263600_ + (gx#stx-e _hd266171266285_)))) + (let ((_tl266173266295_ (let () (declare (not safe)) - (##cdr _e263480263595_))) - (_hd263479263598_ + (##cdr _e266175266290_))) + (_hd266174266293_ (let () (declare (not safe)) - (##car _e263480263595_)))) + (##car _e266175266290_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263479263598_)) - (let ((_e263483263603_ + (gx#stx-pair? _hd266174266293_)) + (let ((_e266178266298_ (let () (declare (not safe)) - (gx#stx-e _hd263479263598_)))) - (let ((_tl263481263608_ + (gx#stx-e _hd266174266293_)))) + (let ((_tl266176266303_ (let () (declare (not safe)) - (##cdr _e263483263603_))) - (_hd263482263606_ + (##cdr _e266178266298_))) + (_hd266177266301_ (let () (declare (not safe)) - (##car _e263483263603_)))) + (##car _e266178266298_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263482263606_)) - (let ((_e263486263611_ + (gx#stx-pair? _hd266177266301_)) + (let ((_e266181266306_ (let () (declare (not safe)) - (gx#stx-e _hd263482263606_)))) - (let ((_tl263484263616_ + (gx#stx-e _hd266177266301_)))) + (let ((_tl266179266311_ (let () (declare (not safe)) - (##cdr _e263486263611_))) - (_hd263485263614_ + (##cdr _e266181266306_))) + (_hd266180266309_ (let () (declare (not safe)) - (##car _e263486263611_)))) + (##car _e266181266306_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263484263616_)) + _tl266179266311_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263481263608_)) - (let ((_e263489263619_ + _tl266176266303_)) + (let ((_e266184266314_ (let () (declare (not safe)) (gx#stx-e - _tl263481263608_)))) - (let ((_tl263487263624_ + _tl266176266303_)))) + (let ((_tl266182266319_ (let () (declare (not safe)) - (##cdr _e263489263619_))) - (_hd263488263622_ + (##cdr _e266184266314_))) + (_hd266183266317_ (let () (declare (not safe)) - (##car _e263489263619_)))) + (##car _e266184266314_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263487263624_)) + _tl266182266319_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl263478263600_)) + (gx#stx-null? _tl266173266295_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263475263592_)) - (let ((_e263492263627_ + (gx#stx-pair? _tl266170266287_)) + (let ((_e266187266322_ (let () (declare (not safe)) - (gx#stx-e _tl263475263592_)))) - (let ((_tl263490263632_ + (gx#stx-e _tl266170266287_)))) + (let ((_tl266185266327_ (let () (declare (not safe)) - (##cdr _e263492263627_))) - (_hd263491263630_ + (##cdr _e266187266322_))) + (_hd266186266325_ (let () (declare (not safe)) - (##car _e263492263627_)))) + (##car _e266187266322_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263490263632_)) + (gx#stx-null? _tl266185266327_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263469263576_)) - (___kont268694268695_ - _hd263491263630_ - _hd263488263622_ - _hd263485263614_) + (gx#stx-null? _tl266164266271_)) + (___kont271489271490_ + _hd266186266325_ + _hd266183266317_ + _hd266180266309_) (let () (declare (not safe)) - (_g263458263507_))) + (_g266153266202_))) (let () (declare (not safe)) - (_g263458263507_))))) - (let () (declare (not safe)) (_g263458263507_))) - (let () (declare (not safe)) (_g263458263507_))) - (let () (declare (not safe)) (_g263458263507_))))) + (_g266153266202_))))) + (let () (declare (not safe)) (_g266153266202_))) + (let () (declare (not safe)) (_g266153266202_))) + (let () (declare (not safe)) (_g266153266202_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g263458263507_))) + (_g266153266202_))) (let () (declare (not safe)) - (_g263458263507_))))) + (_g266153266202_))))) (let () (declare (not safe)) - (_g263458263507_))))) + (_g266153266202_))))) (let () (declare (not safe)) - (_g263458263507_))))) - (let () (declare (not safe)) (_g263458263507_))))) - (let () (declare (not safe)) (_g263458263507_))) + (_g266153266202_))))) + (let () (declare (not safe)) (_g266153266202_))))) + (let () (declare (not safe)) (_g266153266202_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g263458263507_))) + (_g266153266202_))) (let () (declare (not safe)) - (_g263458263507_))))) + (_g266153266202_))))) (let () (declare (not safe)) - (_g263458263507_))))) - (let () (declare (not safe)) (_g263458263507_))) - (let () (declare (not safe)) (_g263458263507_))))) - (let () (declare (not safe)) (_g263458263507_))) + (_g266153266202_))))) + (let () (declare (not safe)) (_g266153266202_))) + (let () (declare (not safe)) (_g266153266202_))))) + (let () (declare (not safe)) (_g266153266202_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _hd263464263558_)) + (gx#stx-eq? '%#begin-annotation _hd266159266253_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263463263560_)) - (let ((_e263499263520_ + (gx#stx-pair? _tl266158266255_)) + (let ((_e266194266215_ (let () (declare (not safe)) - (gx#stx-e _tl263463263560_)))) - (let ((_tl263497263525_ + (gx#stx-e _tl266158266255_)))) + (let ((_tl266192266220_ (let () (declare (not safe)) - (##cdr _e263499263520_))) - (_hd263498263523_ + (##cdr _e266194266215_))) + (_hd266193266218_ (let () (declare (not safe)) - (##car _e263499263520_)))) + (##car _e266194266215_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263498263523_)) + (gx#identifier? _hd266193266218_)) (if (let () (declare (not safe)) - (gx#stx-eq? '@match-else _hd263498263523_)) + (gx#stx-eq? '@match-else _hd266193266218_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263497263525_)) - (let ((_e263502263528_ + (gx#stx-pair? _tl266192266220_)) + (let ((_e266197266223_ (let () (declare (not safe)) - (gx#stx-e _tl263497263525_)))) - (let ((_tl263500263533_ + (gx#stx-e _tl266192266220_)))) + (let ((_tl266195266228_ (let () (declare (not safe)) - (##cdr _e263502263528_))) - (_hd263501263531_ + (##cdr _e266197266223_))) + (_hd266196266226_ (let () (declare (not safe)) - (##car _e263502263528_)))) + (##car _e266197266223_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263500263533_)) - (___kont268696268697_ - _hd263501263531_) + _tl266195266228_)) + (___kont271491271492_ + _hd266196266226_) (let () (declare (not safe)) - (_g263458263507_))))) + (_g266153266202_))))) (let () (declare (not safe)) - (_g263458263507_))) + (_g266153266202_))) (let () (declare (not safe)) - (_g263458263507_))) + (_g266153266202_))) (let () (declare (not safe)) - (_g263458263507_))))) - (let () (declare (not safe)) (_g263458263507_))) - (let () (declare (not safe)) (_g263458263507_)))) + (_g266153266202_))))) + (let () (declare (not safe)) (_g266153266202_))) + (let () (declare (not safe)) (_g266153266202_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g263458263507_))))) + (_g266153266202_))))) (let () (declare (not safe)) - (_g263458263507_)))))))) + (_g266153266202_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx268872268873_)) - (let ((_e263333263674_ + (gx#stx-pair? ___stx271667271668_)) + (let ((_e266028266369_ (let () (declare (not safe)) - (gx#stx-e ___stx268872268873_)))) - (let ((_tl263331263679_ + (gx#stx-e ___stx271667271668_)))) + (let ((_tl266026266374_ (let () (declare (not safe)) - (##cdr _e263333263674_))) - (_hd263332263677_ + (##cdr _e266028266369_))) + (_hd266027266372_ (let () (declare (not safe)) - (##car _e263333263674_)))) + (##car _e266028266369_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263332263677_)) + (gx#identifier? _hd266027266372_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _hd263332263677_)) + _hd266027266372_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263331263679_)) - (let ((_e263336263682_ + _tl266026266374_)) + (let ((_e266031266377_ (let () (declare (not safe)) (gx#stx-e - _tl263331263679_)))) - (let ((_tl263334263687_ + _tl266026266374_)))) + (let ((_tl266029266382_ (let () (declare (not safe)) - (##cdr _e263336263682_))) - (_hd263335263685_ + (##cdr _e266031266377_))) + (_hd266030266380_ (let () (declare (not safe)) - (##car _e263336263682_)))) + (##car _e266031266377_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd263335263685_)) + _hd266030266380_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _hd263335263685_)) + _hd266030266380_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl263334263687_)) - (let ((_e263339263690_ + (gx#stx-pair? _tl266029266382_)) + (let ((_e266034266385_ (let () (declare (not safe)) - (gx#stx-e _tl263334263687_)))) - (let ((_tl263337263695_ + (gx#stx-e _tl266029266382_)))) + (let ((_tl266032266390_ (let () (declare (not safe)) - (##cdr _e263339263690_))) - (_hd263338263693_ + (##cdr _e266034266385_))) + (_hd266033266388_ (let () (declare (not safe)) - (##car _e263339263690_)))) + (##car _e266034266385_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263337263695_)) - (___kont268874268875_ _hd263338263693_) + (gx#stx-null? _tl266032266390_)) + (___kont271669271670_ _hd266033266388_) (let () (declare (not safe)) - (_g263328263368_))))) - (let () (declare (not safe)) (_g263328263368_))) - (let () (declare (not safe)) (_g263328263368_))) - (let () (declare (not safe)) (_g263328263368_))))) + (_g266023266063_))))) + (let () (declare (not safe)) (_g266023266063_))) + (let () (declare (not safe)) (_g266023266063_))) + (let () (declare (not safe)) (_g266023266063_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g263328263368_))) + (_g266023266063_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd263332263677_)) + _hd266027266372_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263331263679_)) - (let ((_e263348263381_ + _tl266026266374_)) + (let ((_e266043266076_ (let () (declare (not safe)) (gx#stx-e - _tl263331263679_)))) - (let ((_tl263346263386_ + _tl266026266374_)))) + (let ((_tl266041266081_ (let () (declare (not safe)) - (##cdr _e263348263381_))) - (_hd263347263384_ + (##cdr _e266043266076_))) + (_hd266042266079_ (let () (declare (not safe)) - (##car _e263348263381_)))) + (##car _e266043266076_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263347263384_)) - (let ((_e263351263389_ + _hd266042266079_)) + (let ((_e266046266084_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd263347263384_)))) - (let ((_tl263349263394_ + (gx#stx-e _hd266042266079_)))) + (let ((_tl266044266089_ (let () (declare (not safe)) - (##cdr _e263351263389_))) - (_hd263350263392_ + (##cdr _e266046266084_))) + (_hd266045266087_ (let () (declare (not safe)) - (##car _e263351263389_)))) + (##car _e266046266084_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263350263392_)) - (let ((_e263354263397_ + (gx#stx-pair? _hd266045266087_)) + (let ((_e266049266092_ (let () (declare (not safe)) - (gx#stx-e _hd263350263392_)))) - (let ((_tl263352263402_ + (gx#stx-e _hd266045266087_)))) + (let ((_tl266047266097_ (let () (declare (not safe)) - (##cdr _e263354263397_))) - (_hd263353263400_ + (##cdr _e266049266092_))) + (_hd266048266095_ (let () (declare (not safe)) - (##car _e263354263397_)))) + (##car _e266049266092_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263353263400_)) - (let ((_e263357263405_ + (gx#stx-pair? _hd266048266095_)) + (let ((_e266052266100_ (let () (declare (not safe)) - (gx#stx-e _hd263353263400_)))) - (let ((_tl263355263410_ + (gx#stx-e _hd266048266095_)))) + (let ((_tl266050266105_ (let () (declare (not safe)) - (##cdr _e263357263405_))) - (_hd263356263408_ + (##cdr _e266052266100_))) + (_hd266051266103_ (let () (declare (not safe)) - (##car _e263357263405_)))) + (##car _e266052266100_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263355263410_)) + (gx#stx-null? _tl266050266105_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263352263402_)) - (let ((_e263360263413_ + _tl266047266097_)) + (let ((_e266055266108_ (let () (declare (not safe)) (gx#stx-e - _tl263352263402_)))) - (let ((_tl263358263418_ + _tl266047266097_)))) + (let ((_tl266053266113_ (let () (declare (not safe)) - (##cdr _e263360263413_))) - (_hd263359263416_ + (##cdr _e266055266108_))) + (_hd266054266111_ (let () (declare (not safe)) - (##car _e263360263413_)))) + (##car _e266055266108_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263358263418_)) + _tl266053266113_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl263349263394_)) + _tl266044266089_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl263346263386_)) - (let ((_e263363263421_ + (gx#stx-pair? _tl266041266081_)) + (let ((_e266058266116_ (let () (declare (not safe)) - (gx#stx-e _tl263346263386_)))) - (let ((_tl263361263426_ + (gx#stx-e _tl266041266081_)))) + (let ((_tl266056266121_ (let () (declare (not safe)) - (##cdr _e263363263421_))) - (_hd263362263424_ + (##cdr _e266058266116_))) + (_hd266057266119_ (let () (declare (not safe)) - (##car _e263363263421_)))) + (##car _e266058266116_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263361263426_)) - (___kont268876268877_ - _hd263362263424_ - _hd263359263416_ - _hd263356263408_) + (gx#stx-null? _tl266056266121_)) + (___kont271671271672_ + _hd266057266119_ + _hd266054266111_ + _hd266051266103_) (let () (declare (not safe)) - (_g263328263368_))))) - (let () (declare (not safe)) (_g263328263368_))) - (let () (declare (not safe)) (_g263328263368_))) - (let () (declare (not safe)) (_g263328263368_))))) + (_g266023266063_))))) + (let () (declare (not safe)) (_g266023266063_))) + (let () (declare (not safe)) (_g266023266063_))) + (let () (declare (not safe)) (_g266023266063_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g263328263368_))) + (_g266023266063_))) (let () (declare (not safe)) - (_g263328263368_))))) + (_g266023266063_))))) (let () (declare (not safe)) - (_g263328263368_))))) - (let () (declare (not safe)) (_g263328263368_))))) - (let () (declare (not safe)) (_g263328263368_))))) + (_g266023266063_))))) + (let () (declare (not safe)) (_g266023266063_))))) + (let () (declare (not safe)) (_g266023266063_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g263328263368_))) + (_g266023266063_))) (let () (declare (not safe)) - (_g263328263368_)))) + (_g266023266063_)))) (let () (declare (not safe)) - (_g263328263368_))))) + (_g266023266063_))))) (let () (declare (not safe)) - (_g263328263368_))))))) - _hd263227263289_ - _hd263224263281_ - _hd263221263273_) + (_g266023266063_))))))) + _hd265922265984_ + _hd265919265976_ + _hd265916265968_) (let () (declare (not safe)) - (_g263203263233_ _g263204263236_))))) + (_g265898265928_ _g265899265931_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g263203263233_ - _g263204263236_))) + (_g265898265928_ + _g265899265931_))) (let () (declare (not safe)) - (_g263203263233_ - _g263204263236_))) + (_g265898265928_ + _g265899265931_))) (let () (declare (not safe)) - (_g263203263233_ - _g263204263236_))))) + (_g265898265928_ + _g265899265931_))))) (let () (declare (not safe)) - (_g263203263233_ _g263204263236_))) + (_g265898265928_ _g265899265931_))) (let () (declare (not safe)) - (_g263203263233_ _g263204263236_))))) + (_g265898265928_ _g265899265931_))))) (let () (declare (not safe)) - (_g263203263233_ _g263204263236_))))) + (_g265898265928_ _g265899265931_))))) (let () (declare (not safe)) - (_g263203263233_ _g263204263236_))))) + (_g265898265928_ _g265899265931_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g263203263233_ - _g263204263236_))))) + (_g265898265928_ + _g265899265931_))))) (let () (declare (not safe)) - (_g263203263233_ _g263204263236_))) + (_g265898265928_ _g265899265931_))) (let () (declare (not safe)) - (_g263203263233_ _g263204263236_))) + (_g265898265928_ _g265899265931_))) (let () (declare (not safe)) - (_g263203263233_ _g263204263236_))))) + (_g265898265928_ _g265899265931_))))) (let () (declare (not safe)) - (_g263203263233_ _g263204263236_)))))) + (_g265898265928_ _g265899265931_)))))) (declare (not safe)) - (_g263202263899_ _stx263201_)))) + (_g265897266594_ _stx265896_)))) (define gxc#optimize-match-body - (lambda (_stx262907_ _negation262908_ _clauses262909_ _konts262910_) - (letrec ((_push-variables262912_ - (lambda (_clause263159_ _kont263160_) - (let ((_clause263161263171_ _clause263159_) - (_kont263162263173_ _kont263160_)) - (let* ((_E263164263177_ + (lambda (_stx265602_ _negation265603_ _clauses265604_ _konts265605_) + (letrec ((_push-variables265607_ + (lambda (_clause265854_ _kont265855_) + (let ((_clause265856265866_ _clause265854_) + (_kont265857265868_ _kont265855_)) + (let* ((_E265859265872_ (lambda () (error '"No clause matching" - _clause263161263171_ - _kont263162263173_))) - (_K263165263184_ - (lambda (_clause-lambda263180_ - _clause-name263181_ - _K263182_) - (let ((__tmp271795 + _clause265856265866_ + _kont265857265868_))) + (_K265860265879_ + (lambda (_clause-lambda265875_ + _clause-name265876_ + _K265877_) + (let ((__tmp274590 (let () (declare (not safe)) (gxc#apply-push-match-vars - _clause-lambda263180_ + _clause-lambda265875_ '() - _K263182_)))) + _K265877_)))) (declare (not safe)) - (cons _clause-name263181_ __tmp271795))))) + (cons _clause-name265876_ __tmp274590))))) (if (let () (declare (not safe)) - (##pair? _clause263161263171_)) - (let ((_hd263168263187_ + (##pair? _clause265856265866_)) + (let ((_hd265863265882_ (let () (declare (not safe)) - (##car _clause263161263171_))) - (_tl263169263189_ + (##car _clause265856265866_))) + (_tl265864265884_ (let () (declare (not safe)) - (##cdr _clause263161263171_)))) - (let* ((_clause-name263192_ _hd263168263187_) - (_clause-lambda263194_ _tl263169263189_)) + (##cdr _clause265856265866_)))) + (let* ((_clause-name265887_ _hd265863265882_) + (_clause-lambda265889_ _tl265864265884_)) (if (let () (declare (not safe)) - (##pair? _kont263162263173_)) - (let* ((_hd263166263196_ + (##pair? _kont265857265868_)) + (let* ((_hd265861265891_ (let () (declare (not safe)) - (##car _kont263162263173_))) - (_K263199_ _hd263166263196_)) + (##car _kont265857265868_))) + (_K265894_ _hd265861265891_)) (declare (not safe)) - (_K263165263184_ - _clause-lambda263194_ - _clause-name263192_ - _K263199_)) + (_K265860265879_ + _clause-lambda265889_ + _clause-name265887_ + _K265894_)) (let () (declare (not safe)) - (_E263164263177_))))) + (_E265859265872_))))) (let () (declare (not safe)) - (_E263164263177_))))))) - (_start-match262913_ - (lambda (_kont263093_) - (let* ((_g263095263111_ - (lambda (_g263096263108_) + (_E265859265872_))))))) + (_start-match265608_ + (lambda (_kont265788_) + (let* ((_g265790265806_ + (lambda (_g265791265803_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g263096263108_)))) - (_g263094263156_ - (lambda (_g263096263114_) + _g265791265803_)))) + (_g265789265851_ + (lambda (_g265791265809_) (if (let () (declare (not safe)) - (gx#stx-pair? _g263096263114_)) - (let ((_e263100263116_ + (gx#stx-pair? _g265791265809_)) + (let ((_e265795265811_ (let () (declare (not safe)) - (gx#stx-e _g263096263114_)))) - (let ((_hd263099263119_ + (gx#stx-e _g265791265809_)))) + (let ((_hd265794265814_ (let () (declare (not safe)) - (##car _e263100263116_))) - (_tl263098263121_ + (##car _e265795265811_))) + (_tl265793265816_ (let () (declare (not safe)) - (##cdr _e263100263116_)))) + (##cdr _e265795265811_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263099263119_)) + (gx#identifier? _hd265794265814_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd263099263119_)) + _hd265794265814_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263098263121_)) - (let ((_e263103263124_ + _tl265793265816_)) + (let ((_e265798265819_ (let () (declare (not safe)) (gx#stx-e - _tl263098263121_)))) - (let ((_hd263102263127_ + _tl265793265816_)))) + (let ((_hd265797265822_ (let () (declare (not safe)) - (##car _e263103263124_))) - (_tl263101263129_ + (##car _e265798265819_))) + (_tl265796265824_ (let () (declare (not safe)) - (##cdr _e263103263124_)))) + (##cdr _e265798265819_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd263102263127_)) + _hd265797265822_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl263101263129_)) - (let ((_e263106263132_ + (gx#stx-pair? _tl265796265824_)) + (let ((_e265801265827_ (let () (declare (not safe)) - (gx#stx-e _tl263101263129_)))) - (let ((_hd263105263135_ + (gx#stx-e _tl265796265824_)))) + (let ((_hd265800265830_ (let () (declare (not safe)) - (##car _e263106263132_))) - (_tl263104263137_ + (##car _e265801265827_))) + (_tl265799265832_ (let () (declare (not safe)) - (##cdr _e263106263132_)))) + (##cdr _e265801265827_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263104263137_)) - ((lambda (_L263140_) _L263140_) _hd263105263135_) + (gx#stx-null? _tl265799265832_)) + ((lambda (_L265835_) _L265835_) _hd265800265830_) (let () (declare (not safe)) - (_g263095263111_ _g263096263114_))))) + (_g265790265806_ _g265791265809_))))) (let () (declare (not safe)) - (_g263095263111_ _g263096263114_))) + (_g265790265806_ _g265791265809_))) (let () (declare (not safe)) - (_g263095263111_ _g263096263114_))))) + (_g265790265806_ _g265791265809_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g263095263111_ - _g263096263114_))) + (_g265790265806_ + _g265791265809_))) (let () (declare (not safe)) - (_g263095263111_ - _g263096263114_))) + (_g265790265806_ + _g265791265809_))) (let () (declare (not safe)) - (_g263095263111_ - _g263096263114_))))) + (_g265790265806_ + _g265791265809_))))) (let () (declare (not safe)) - (_g263095263111_ _g263096263114_)))))) + (_g265790265806_ _g265791265809_)))))) (declare (not safe)) - (_g263094263156_ _kont263093_)))) - (_match-body262914_ - (lambda (_blocks262990_) - (let* ((_blocks262991263000_ _blocks262990_) - (_E262993263004_ + (_g265789265851_ _kont265788_)))) + (_match-body265609_ + (lambda (_blocks265685_) + (let* ((_blocks265686265695_ _blocks265685_) + (_E265688265699_ (lambda () (error '"No clause matching" - _blocks262991263000_))) - (_K262994263076_ - (lambda (_rest263007_ _start263008_) - (let _lp263010_ ((_rest263012_ _rest263007_) - (_body263013_ + _blocks265686265695_))) + (_K265689265771_ + (lambda (_rest265702_ _start265703_) + (let _lp265705_ ((_rest265707_ _rest265702_) + (_body265708_ (let () (declare (not safe)) - (_start-match262913_ - _start263008_)))) - (let* ((_rest263014263022_ _rest263012_) - (_else263016263030_ - (lambda () _body263013_)) - (_K263018263064_ - (lambda (_rest263033_ _block263034_) - (let* ((_block263035263042_ - _block263034_) - (_E263037263046_ + (_start-match265608_ + _start265703_)))) + (let* ((_rest265709265717_ _rest265707_) + (_else265711265725_ + (lambda () _body265708_)) + (_K265713265759_ + (lambda (_rest265728_ _block265729_) + (let* ((_block265730265737_ + _block265729_) + (_E265732265741_ (lambda () (error '"No clause matching" - _block263035263042_))) - (_K263038263052_ - (lambda (_kont263049_ - _K263050_) - (let ((__tmp271796 - (let ((__tmp271797 + _block265730265737_))) + (_K265733265747_ + (lambda (_kont265744_ + _K265745_) + (let ((__tmp274591 + (let ((__tmp274592 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271799 - (let ((__tmp271800 - (let ((__tmp271802 + (let ((__tmp274594 + (let ((__tmp274595 + (let ((__tmp274597 (let () (declare (not safe)) - (cons _K263050_ '()))) - (__tmp271801 + (cons _K265745_ '()))) + (__tmp274596 (let () (declare (not safe)) - (cons _kont263049_ '())))) + (cons _kont265744_ '())))) (declare (not safe)) - (cons __tmp271802 __tmp271801)))) + (cons __tmp274597 __tmp274596)))) (declare (not safe)) - (cons __tmp271800 '()))) - (__tmp271798 + (cons __tmp274595 '()))) + (__tmp274593 (let () (declare (not safe)) - (cons _body263013_ '())))) + (cons _body265708_ '())))) (declare (not safe)) - (cons __tmp271799 __tmp271798)))) + (cons __tmp274594 __tmp274593)))) (declare (not safe)) - (cons '%#let-values __tmp271797)))) + (cons '%#let-values __tmp274592)))) (declare (not safe)) - (_lp263010_ _rest263033_ __tmp271796))))) + (_lp265705_ _rest265728_ __tmp274591))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _block263035263042_)) - (let ((_hd263039263055_ + (##pair? _block265730265737_)) + (let ((_hd265734265750_ (let () (declare (not safe)) - (##car _block263035263042_))) - (_tl263040263057_ + (##car _block265730265737_))) + (_tl265735265752_ (let () (declare (not safe)) - (##cdr _block263035263042_)))) - (let* ((_K263060_ - _hd263039263055_) - (_kont263062_ - _tl263040263057_)) + (##cdr _block265730265737_)))) + (let* ((_K265755_ + _hd265734265750_) + (_kont265757_ + _tl265735265752_)) (declare (not safe)) - (_K263038263052_ - _kont263062_ - _K263060_))) + (_K265733265747_ + _kont265757_ + _K265755_))) (let () (declare (not safe)) - (_E263037263046_))))))) + (_E265732265741_))))))) (if (let () (declare (not safe)) - (##pair? _rest263014263022_)) - (let ((_hd263019263067_ + (##pair? _rest265709265717_)) + (let ((_hd265714265762_ (let () (declare (not safe)) - (##car _rest263014263022_))) - (_tl263020263069_ + (##car _rest265709265717_))) + (_tl265715265764_ (let () (declare (not safe)) - (##cdr _rest263014263022_)))) - (let* ((_block263072_ _hd263019263067_) - (_rest263074_ _tl263020263069_)) + (##cdr _rest265709265717_)))) + (let* ((_block265767_ _hd265714265762_) + (_rest265769_ _tl265715265764_)) (declare (not safe)) - (_K263018263064_ - _rest263074_ - _block263072_))) + (_K265713265759_ + _rest265769_ + _block265767_))) (let () (declare (not safe)) - (_else263016263030_)))))))) + (_else265711265725_)))))))) (if (let () (declare (not safe)) - (##pair? _blocks262991263000_)) - (let ((_hd262995263079_ + (##pair? _blocks265686265695_)) + (let ((_hd265690265774_ (let () (declare (not safe)) - (##car _blocks262991263000_))) - (_tl262996263081_ + (##car _blocks265686265695_))) + (_tl265691265776_ (let () (declare (not safe)) - (##cdr _blocks262991263000_)))) + (##cdr _blocks265686265695_)))) (if (let () (declare (not safe)) - (##pair? _hd262995263079_)) - (let ((_hd262997263084_ + (##pair? _hd265690265774_)) + (let ((_hd265692265779_ (let () (declare (not safe)) - (##car _hd262995263079_))) - (_tl262998263086_ + (##car _hd265690265774_))) + (_tl265693265781_ (let () (declare (not safe)) - (##cdr _hd262995263079_)))) + (##cdr _hd265690265774_)))) (if (let () (declare (not safe)) - (##eq? _hd262997263084_ '#f)) - (let* ((_start263089_ _tl262998263086_) - (_rest263091_ _tl262996263081_)) + (##eq? _hd265692265779_ '#f)) + (let* ((_start265784_ _tl265693265781_) + (_rest265786_ _tl265691265776_)) (declare (not safe)) - (_K262994263076_ - _rest263091_ - _start263089_)) + (_K265689265771_ + _rest265786_ + _start265784_)) (let () (declare (not safe)) - (_E262993263004_)))) + (_E265688265699_)))) (let () (declare (not safe)) - (_E262993263004_)))) - (let () (declare (not safe)) (_E262993263004_))))))) - (let ((__tmp271804 + (_E265688265699_)))) + (let () (declare (not safe)) (_E265688265699_))))))) + (let ((__tmp274599 (lambda () - (let* ((_clauses262917_ - (map _push-variables262912_ - _clauses262909_ - _konts262910_)) - (_blocks262919_ + (let* ((_clauses265612_ + (map _push-variables265607_ + _clauses265604_ + _konts265605_)) + (_blocks265614_ (let () (declare (not safe)) (gxc#optimize-match-basic-blocks - _clauses262917_))) - (_blocks262921_ + _clauses265612_))) + (_blocks265616_ (let () (declare (not safe)) (gxc#optimize-match-fold-basic-blocks - _blocks262919_))) - (_body262923_ + _blocks265614_))) + (_body265618_ (let () (declare (not safe)) - (_match-body262914_ _blocks262921_))) - (_bind262957_ - (map (lambda (_e262924262926_) - (let* ((_g262928262935_ _e262924262926_) - (_E262930262939_ + (_match-body265609_ _blocks265616_))) + (_bind265652_ + (map (lambda (_e265619265621_) + (let* ((_g265623265630_ _e265619265621_) + (_E265625265634_ (lambda () (error '"No clause matching" - _g262928262935_))) - (_K262931262945_ - (lambda (_kont262942_ _K262943_) - (let ((__tmp271806 + _g265623265630_))) + (_K265626265640_ + (lambda (_kont265637_ _K265638_) + (let ((__tmp274601 (let () (declare (not safe)) - (cons _K262943_ '()))) - (__tmp271805 + (cons _K265638_ '()))) + (__tmp274600 (let () (declare (not safe)) - (cons _kont262942_ '())))) + (cons _kont265637_ '())))) (declare (not safe)) - (cons __tmp271806 - __tmp271805))))) + (cons __tmp274601 + __tmp274600))))) (if (let () (declare (not safe)) - (##pair? _g262928262935_)) - (let ((_hd262932262948_ + (##pair? _g265623265630_)) + (let ((_hd265627265643_ (let () (declare (not safe)) - (##car _g262928262935_))) - (_tl262933262950_ + (##car _g265623265630_))) + (_tl265628265645_ (let () (declare (not safe)) - (##cdr _g262928262935_)))) - (let* ((_K262953_ _hd262932262948_) - (_kont262955_ - _tl262933262950_)) + (##cdr _g265623265630_)))) + (let* ((_K265648_ _hd265627265643_) + (_kont265650_ + _tl265628265645_)) (declare (not safe)) - (_K262931262945_ - _kont262955_ - _K262953_))) + (_K265626265640_ + _kont265650_ + _K265648_))) (let () (declare (not safe)) - (_E262930262939_))))) - _konts262910_)) - (_negate262987_ - (let* ((_negation262958262965_ _negation262908_) - (_E262960262969_ + (_E265625265634_))))) + _konts265605_)) + (_negate265682_ + (let* ((_negation265653265660_ _negation265603_) + (_E265655265664_ (lambda () (error '"No clause matching" - _negation262958262965_))) - (_K262961262975_ - (lambda (_kont262972_ _K262973_) - (let ((__tmp271808 + _negation265653265660_))) + (_K265656265670_ + (lambda (_kont265667_ _K265668_) + (let ((__tmp274603 (let () (declare (not safe)) - (cons _K262973_ '()))) - (__tmp271807 + (cons _K265668_ '()))) + (__tmp274602 (let () (declare (not safe)) - (cons _kont262972_ '())))) + (cons _kont265667_ '())))) (declare (not safe)) - (cons __tmp271808 __tmp271807))))) + (cons __tmp274603 __tmp274602))))) (if (let () (declare (not safe)) - (##pair? _negation262958262965_)) - (let ((_hd262962262978_ + (##pair? _negation265653265660_)) + (let ((_hd265657265673_ (let () (declare (not safe)) - (##car _negation262958262965_))) - (_tl262963262980_ + (##car _negation265653265660_))) + (_tl265658265675_ (let () (declare (not safe)) - (##cdr _negation262958262965_)))) - (let* ((_K262983_ _hd262962262978_) - (_kont262985_ _tl262963262980_)) + (##cdr _negation265653265660_)))) + (let* ((_K265678_ _hd265657265673_) + (_kont265680_ _tl265658265675_)) (declare (not safe)) - (_K262961262975_ _kont262985_ _K262983_))) + (_K265656265670_ _kont265680_ _K265678_))) (let () (declare (not safe)) - (_E262960262969_)))))) - (let ((__tmp271809 - (let ((__tmp271810 - (let ((__tmp271815 + (_E265655265664_)))))) + (let ((__tmp274604 + (let ((__tmp274605 + (let ((__tmp274610 (let () (declare (not safe)) - (cons _negate262987_ '()))) - (__tmp271811 - (let ((__tmp271812 - (let ((__tmp271813 - (let ((__tmp271814 + (cons _negate265682_ '()))) + (__tmp274606 + (let ((__tmp274607 + (let ((__tmp274608 + (let ((__tmp274609 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body262923_ '())))) + (cons _body265618_ '())))) (declare (not safe)) - (cons _bind262957_ __tmp271814)))) + (cons _bind265652_ __tmp274609)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp271813)))) + __tmp274608)))) (declare (not safe)) - (cons __tmp271812 '())))) + (cons __tmp274607 '())))) (declare (not safe)) - (cons __tmp271815 __tmp271811)))) + (cons __tmp274610 __tmp274606)))) (declare (not safe)) - (cons '%#let-values __tmp271810)))) + (cons '%#let-values __tmp274605)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp271809 _stx262907_))))) - (__tmp271803 - (let ((__obj271737 + (gxc#xform-wrap-source __tmp274604 _stx265602_))))) + (__tmp274598 + (let ((__obj274532 (let () (declare (not safe)) (##structure @@ -2182,2103 +2182,2103 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj271737) - __obj271737))) + (gx#local-context:::init! __obj274532) + __obj274532))) (declare (not safe)) (call-with-parameters - __tmp271804 + __tmp274599 gx#current-expander-context - __tmp271803))))) + __tmp274598))))) (define gxc#optimize-match-basic-blocks - (lambda (_clauses262867_) - (let _lp262869_ ((_rest262871_ _clauses262867_) (_blocks262872_ '())) - (let* ((_rest262873262881_ _rest262871_) - (_else262875262889_ (lambda () (reverse _blocks262872_))) - (_K262877262895_ - (lambda (_rest262892_ _clause262893_) - (let ((__tmp271816 + (lambda (_clauses265562_) + (let _lp265564_ ((_rest265566_ _clauses265562_) (_blocks265567_ '())) + (let* ((_rest265568265576_ _rest265566_) + (_else265570265584_ (lambda () (reverse _blocks265567_))) + (_K265572265590_ + (lambda (_rest265587_ _clause265588_) + (let ((__tmp274611 (let () (declare (not safe)) (gxc#optimize-match-lift-basic-blocks - _clause262893_ - _blocks262872_)))) + _clause265588_ + _blocks265567_)))) (declare (not safe)) - (_lp262869_ _rest262892_ __tmp271816))))) - (if (let () (declare (not safe)) (##pair? _rest262873262881_)) - (let ((_hd262878262898_ + (_lp265564_ _rest265587_ __tmp274611))))) + (if (let () (declare (not safe)) (##pair? _rest265568265576_)) + (let ((_hd265573265593_ (let () (declare (not safe)) - (##car _rest262873262881_))) - (_tl262879262900_ + (##car _rest265568265576_))) + (_tl265574265595_ (let () (declare (not safe)) - (##cdr _rest262873262881_)))) - (let* ((_clause262903_ _hd262878262898_) - (_rest262905_ _tl262879262900_)) + (##cdr _rest265568265576_)))) + (let* ((_clause265598_ _hd265573265593_) + (_rest265600_ _tl265574265595_)) (declare (not safe)) - (_K262877262895_ _rest262905_ _clause262903_))) - (let () (declare (not safe)) (_else262875262889_))))))) + (_K265572265590_ _rest265600_ _clause265598_))) + (let () (declare (not safe)) (_else265570265584_))))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_clause262211_ _blocks262212_) - (letrec ((_bind->args262214_ - (lambda (_bind262862_) - (let ((__tmp271817 - (lambda (_b262864_ _r262865_) - (let ((__tmp271818 - (let ((__tmp271819 - (let ((__tmp271820 (car _b262864_))) + (lambda (_clause264906_ _blocks264907_) + (letrec ((_bind->args264909_ + (lambda (_bind265557_) + (let ((__tmp274612 + (lambda (_b265559_ _r265560_) + (let ((__tmp274613 + (let ((__tmp274614 + (let ((__tmp274615 (car _b265559_))) (declare (not safe)) - (cons __tmp271820 '())))) + (cons __tmp274615 '())))) (declare (not safe)) - (cons '%#ref __tmp271819)))) + (cons '%#ref __tmp274614)))) (declare (not safe)) - (cons __tmp271818 _r262865_))))) + (cons __tmp274613 _r265560_))))) (declare (not safe)) - (foldl1 __tmp271817 '() _bind262862_)))) - (_create-block262215_ - (lambda (_body262811_ - _let-bind262812_ - _bind262813_ - _assert262814_) - (let* ((_id262816_ - (let ((__tmp271821 (gensym '__match))) + (foldl1 __tmp274612 '() _bind265557_)))) + (_create-block264910_ + (lambda (_body265506_ + _let-bind265507_ + _bind265508_ + _assert265509_) + (let* ((_id265511_ + (let ((__tmp274616 (gensym '__match))) (declare (not safe)) - (make-symbol__0 __tmp271821))) - (_id262818_ + (make-symbol__0 __tmp274616))) + (_id265513_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id262816_))) - (_g271822_ + (gx#core-quote-syntax__0 _id265511_))) + (_g274617_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id262818_))) - (_block262821_ - (let ((__tmp271823 - (let ((__tmp271824 - (let ((__tmp271825 + (gx#core-bind-runtime!__0 _id265513_))) + (_block265516_ + (let ((__tmp274618 + (let ((__tmp274619 + (let ((__tmp274620 (let () (declare (not safe)) - (cons _assert262814_ '())))) + (cons _assert265509_ '())))) (declare (not safe)) - (cons _bind262813_ __tmp271825)))) + (cons _bind265508_ __tmp274620)))) (declare (not safe)) - (cons _body262811_ __tmp271824)))) + (cons _body265506_ __tmp274619)))) (declare (not safe)) - (cons _id262818_ __tmp271823))) - (_continue262823_ - (let ((__tmp271826 - (let ((__tmp271828 - (let ((__tmp271829 + (cons _id265513_ __tmp274618))) + (_continue265518_ + (let ((__tmp274621 + (let ((__tmp274623 + (let ((__tmp274624 (let () (declare (not safe)) - (cons _id262818_ '())))) + (cons _id265513_ '())))) (declare (not safe)) - (cons '%#ref __tmp271829))) - (__tmp271827 + (cons '%#ref __tmp274624))) + (__tmp274622 (let () (declare (not safe)) - (_bind->args262214_ - _bind262813_)))) + (_bind->args264909_ + _bind265508_)))) (declare (not safe)) - (cons __tmp271828 __tmp271827)))) + (cons __tmp274623 __tmp274622)))) (declare (not safe)) - (cons '%#call __tmp271826))) - (_continue262859_ + (cons '%#call __tmp274621))) + (_continue265554_ (if (let () (declare (not safe)) - (null? _let-bind262812_)) - _continue262823_ - (let* ((_locals262857_ - (map (lambda (_e262824262826_) - (let* ((_g262828262835_ - _e262824262826_) - (_E262830262839_ + (null? _let-bind265507_)) + _continue265518_ + (let* ((_locals265552_ + (map (lambda (_e265519265521_) + (let* ((_g265523265530_ + _e265519265521_) + (_E265525265534_ (lambda () (error '"No clause matching" - _g262828262835_))) - (_K262831262845_ - (lambda (_expr262842_ - _id262843_) - (let ((__tmp271831 + _g265523265530_))) + (_K265526265540_ + (lambda (_expr265537_ + _id265538_) + (let ((__tmp274626 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _id262843_ '()))) - (__tmp271830 - (let () (declare (not safe)) (cons _expr262842_ '())))) + (cons _id265538_ '()))) + (__tmp274625 + (let () (declare (not safe)) (cons _expr265537_ '())))) (declare (not safe)) - (cons __tmp271831 __tmp271830))))) + (cons __tmp274626 __tmp274625))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _g262828262835_)) - (let ((_hd262832262848_ + (##pair? _g265523265530_)) + (let ((_hd265527265543_ (let () (declare (not safe)) - (##car _g262828262835_))) - (_tl262833262850_ + (##car _g265523265530_))) + (_tl265528265545_ (let () (declare (not safe)) - (##cdr _g262828262835_)))) - (let* ((_id262853_ - _hd262832262848_) - (_expr262855_ - _tl262833262850_)) + (##cdr _g265523265530_)))) + (let* ((_id265548_ + _hd265527265543_) + (_expr265550_ + _tl265528265545_)) (declare (not safe)) - (_K262831262845_ - _expr262855_ - _id262853_))) + (_K265526265540_ + _expr265550_ + _id265548_))) (let () (declare (not safe)) - (_E262830262839_))))) - _let-bind262812_)) - (__tmp271832 - (let ((__tmp271833 + (_E265525265534_))))) + _let-bind265507_)) + (__tmp274627 + (let ((__tmp274628 (let () (declare (not safe)) - (cons _continue262823_ '())))) + (cons _continue265518_ '())))) (declare (not safe)) - (cons _locals262857_ __tmp271833)))) + (cons _locals265552_ __tmp274628)))) (declare (not safe)) - (cons '%#let-values __tmp271832))))) - (values _continue262859_ _block262821_)))) - (_basic-block262216_ - (lambda (_body262397_ _bind262398_ _assert262399_) - (let* ((___stx268980268981_ _body262397_) - (_g262404262488_ + (cons '%#let-values __tmp274627))))) + (values _continue265554_ _block265516_)))) + (_basic-block264911_ + (lambda (_body265092_ _bind265093_ _assert265094_) + (let* ((___stx271775271776_ _body265092_) + (_g265099265183_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx268980268981_))))) - (let ((___kont268982268983_ - (lambda (_L262747_ _L262748_ _L262749_) - (let ((_g271834_ - (let ((__tmp271836 - (let ((__tmp271837 + ___stx271775271776_))))) + (let ((___kont271777271778_ + (lambda (_L265442_ _L265443_ _L265444_) + (let ((_g274629_ + (let ((__tmp274631 + (let ((__tmp274632 (let () (declare (not safe)) - (cons _L262749_ '#t)))) + (cons _L265444_ '#t)))) (declare (not safe)) - (cons __tmp271837 - _assert262399_)))) + (cons __tmp274632 + _assert265094_)))) (declare (not safe)) - (_create-block262215_ - _L262748_ + (_create-block264910_ + _L265443_ '() - _bind262398_ - __tmp271836)))) + _bind265093_ + __tmp274631)))) (begin - (let ((_g271835_ + (let ((_g274630_ (let () (declare (not safe)) - (if (##values? _g271834_) - (##vector-length _g271834_) + (if (##values? _g274629_) + (##vector-length _g274629_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g271835_ 2))) + (##fx= _g274630_ 2))) (error "Context expects 2 values" - _g271835_))) - (let ((_k-continue262767_ + _g274630_))) + (let ((_k-continue265462_ (let () (declare (not safe)) - (##vector-ref _g271834_ 0))) - (_k-block262768_ + (##vector-ref _g274629_ 0))) + (_k-block265463_ (let () (declare (not safe)) - (##vector-ref _g271834_ 1)))) - (let* ((___stx268962268963_ _L262747_) - (_g262771262780_ + (##vector-ref _g274629_ 1)))) + (let* ((___stx271757271758_ _L265442_) + (_g265466265475_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx268962268963_))))) - (let ((___kont268964268965_ + ___stx271757271758_))))) + (let ((___kont271759271760_ (lambda () - (values (let ((__tmp271838 - (let ((__tmp271839 + (values (let ((__tmp274633 + (let ((__tmp274634 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271840 + (let ((__tmp274635 (let () (declare (not safe)) - (cons _L262747_ '())))) + (cons _L265442_ '())))) (declare (not safe)) - (cons _k-continue262767_ __tmp271840)))) + (cons _k-continue265462_ __tmp274635)))) (declare (not safe)) - (cons _L262749_ __tmp271839)))) + (cons _L265444_ __tmp274634)))) (declare (not safe)) - (cons '%#if __tmp271838)) - (let () (declare (not safe)) (cons _k-block262768_ '()))))) + (cons '%#if __tmp274633)) + (let () (declare (not safe)) (cons _k-block265463_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont268966268967_ + (___kont271761271762_ (lambda () - (let ((_g271841_ - (let ((__tmp271843 - (let ((__tmp271844 + (let ((_g274636_ + (let ((__tmp274638 + (let ((__tmp274639 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L262749_ '#f)))) + (cons _L265444_ '#f)))) (declare (not safe)) - (cons __tmp271844 _assert262399_)))) + (cons __tmp274639 _assert265094_)))) (declare (not safe)) - (_create-block262215_ - _L262747_ + (_create-block264910_ + _L265442_ '() - _bind262398_ - __tmp271843)))) + _bind265093_ + __tmp274638)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g271842_ + (let ((_g274637_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g271841_) - (##vector-length _g271841_) + _g274636_) + (##vector-length _g274636_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g271842_ 2))) - (error "Context expects 2 values" _g271842_))) + (if (not (let () (declare (not safe)) (##fx= _g274637_ 2))) + (error "Context expects 2 values" _g274637_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_e-continue262787_ + (let ((_e-continue265482_ (let () (declare (not safe)) (##vector-ref - _g271841_ + _g274636_ 0))) - (_e-block262788_ + (_e-block265483_ (let () (declare (not safe)) (##vector-ref - _g271841_ + _g274636_ 1)))) - (values (let ((__tmp271845 + (values (let ((__tmp274640 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271846 - (let ((__tmp271847 + (let ((__tmp274641 + (let ((__tmp274642 (let () (declare (not safe)) - (cons _e-continue262787_ '())))) + (cons _e-continue265482_ '())))) (declare (not safe)) - (cons _k-continue262767_ __tmp271847)))) + (cons _k-continue265462_ __tmp274642)))) (declare (not safe)) - (cons _L262749_ __tmp271846)))) + (cons _L265444_ __tmp274641)))) (declare (not safe)) - (cons '%#if __tmp271845)) - (let ((__tmp271848 + (cons '%#if __tmp274640)) + (let ((__tmp274643 (let () (declare (not safe)) - (cons _e-block262788_ '())))) + (cons _e-block265483_ '())))) (declare (not safe)) - (cons _k-block262768_ __tmp271848))))))))) + (cons _k-block265463_ __tmp274643))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx268962268963_)) - (let ((_e262775262795_ + ___stx271757271758_)) + (let ((_e265470265490_ (let () (declare (not safe)) (gx#stx-e - ___stx268962268963_)))) - (let ((_tl262773262800_ + ___stx271757271758_)))) + (let ((_tl265468265495_ (let () (declare (not safe)) - (##cdr _e262775262795_))) - (_hd262774262798_ + (##cdr _e265470265490_))) + (_hd265469265493_ (let () (declare (not safe)) - (##car _e262775262795_)))) + (##car _e265470265490_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd262774262798_)) + _hd265469265493_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd262774262798_)) - (___kont268964268965_) - (___kont268966268967_)) - (___kont268966268967_)))) - (___kont268966268967_))))))))) - (___kont268984268985_ - (lambda () (values _body262397_ '()))) - (___kont268988268989_ - (lambda (_L262576_ _L262577_ _L262578_) - (let* ((_let-bind262613_ + _hd265469265493_)) + (___kont271759271760_) + (___kont271761271762_)) + (___kont271761271762_)))) + (___kont271761271762_))))))))) + (___kont271779271780_ + (lambda () (values _body265092_ '()))) + (___kont271783271784_ + (lambda (_L265271_ _L265272_ _L265273_) + (let* ((_let-bind265308_ (map cons - (let ((__tmp271849 - (lambda (_g262598262601_ - _g262599262603_) + (let ((__tmp274644 + (lambda (_g265293265296_ + _g265294265298_) (let () (declare (not safe)) - (cons _g262598262601_ - _g262599262603_))))) + (cons _g265293265296_ + _g265294265298_))))) (declare (not safe)) - (foldr1 __tmp271849 + (foldr1 __tmp274644 '() - _L262578_)) - (let ((__tmp271850 - (lambda (_g262605262608_ - _g262606262610_) + _L265273_)) + (let ((__tmp274645 + (lambda (_g265300265303_ + _g265301265305_) (let () (declare (not safe)) - (cons _g262605262608_ - _g262606262610_))))) + (cons _g265300265303_ + _g265301265305_))))) (declare (not safe)) - (foldr1 __tmp271850 + (foldr1 __tmp274645 '() - _L262577_)))) - (_g271851_ - (let ((__tmp271853 + _L265272_)))) + (_g274646_ + (let ((__tmp274648 (let () (declare (not safe)) (foldl1 cons - _bind262398_ - _let-bind262613_)))) + _bind265093_ + _let-bind265308_)))) (declare (not safe)) - (_create-block262215_ - _L262576_ - _let-bind262613_ - __tmp271853 - _assert262399_)))) + (_create-block264910_ + _L265271_ + _let-bind265308_ + __tmp274648 + _assert265094_)))) (begin - (let ((_g271852_ + (let ((_g274647_ (let () (declare (not safe)) - (if (##values? _g271851_) - (##vector-length _g271851_) + (if (##values? _g274646_) + (##vector-length _g274646_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g271852_ 2))) + (##fx= _g274647_ 2))) (error "Context expects 2 values" - _g271852_))) - (let ((_continue262615_ + _g274647_))) + (let ((_continue265310_ (let () (declare (not safe)) - (##vector-ref _g271851_ 0))) - (_block262616_ + (##vector-ref _g274646_ 0))) + (_block265311_ (let () (declare (not safe)) - (##vector-ref _g271851_ 1)))) + (##vector-ref _g274646_ 1)))) (let () - (values _continue262615_ + (values _continue265310_ (let () (declare (not safe)) - (cons _block262616_ + (cons _block265311_ '()))))))))) - (___kont268992268993_ - (lambda () (values _body262397_ '())))) - (let* ((___match269071269072_ - (lambda (_e262457262500_ - _hd262456262503_ - _tl262455262505_ - _e262460262508_ - _hd262459262511_ - _tl262458262513_ - ___splice268990268991_ - _target262461262516_ - _tl262463262518_) - (letrec ((_loop262464262521_ - (lambda (_hd262462262524_ - _expr262468262526_ - _id262469262528_) + (___kont271787271788_ + (lambda () (values _body265092_ '())))) + (let* ((___match271866271867_ + (lambda (_e265152265195_ + _hd265151265198_ + _tl265150265200_ + _e265155265203_ + _hd265154265206_ + _tl265153265208_ + ___splice271785271786_ + _target265156265211_ + _tl265158265213_) + (letrec ((_loop265159265216_ + (lambda (_hd265157265219_ + _expr265163265221_ + _id265164265223_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262462262524_)) - (let ((_e262465262531_ + _hd265157265219_)) + (let ((_e265160265226_ (let () (declare (not safe)) (gx#stx-e - _hd262462262524_)))) - (let ((_lp-tl262467262536_ + _hd265157265219_)))) + (let ((_lp-tl265162265231_ (let () (declare (not safe)) - (##cdr _e262465262531_))) - (_lp-hd262466262534_ + (##cdr _e265160265226_))) + (_lp-hd265161265229_ (let () (declare (not safe)) - (##car _e262465262531_)))) + (##car _e265160265226_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd262466262534_)) - (let ((_e262474262539_ + _lp-hd265161265229_)) + (let ((_e265169265234_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd262466262534_)))) - (let ((_tl262472262544_ + (gx#stx-e _lp-hd265161265229_)))) + (let ((_tl265167265239_ (let () (declare (not safe)) - (##cdr _e262474262539_))) - (_hd262473262542_ + (##cdr _e265169265234_))) + (_hd265168265237_ (let () (declare (not safe)) - (##car _e262474262539_)))) + (##car _e265169265234_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd262473262542_)) - (let ((_e262477262547_ + (gx#stx-pair? _hd265168265237_)) + (let ((_e265172265242_ (let () (declare (not safe)) - (gx#stx-e _hd262473262542_)))) - (let ((_tl262475262552_ + (gx#stx-e _hd265168265237_)))) + (let ((_tl265170265247_ (let () (declare (not safe)) - (##cdr _e262477262547_))) - (_hd262476262550_ + (##cdr _e265172265242_))) + (_hd265171265245_ (let () (declare (not safe)) - (##car _e262477262547_)))) + (##car _e265172265242_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262475262552_)) + (gx#stx-null? _tl265170265247_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262472262544_)) - (let ((_e262480262555_ + (gx#stx-pair? _tl265167265239_)) + (let ((_e265175265250_ (let () (declare (not safe)) - (gx#stx-e _tl262472262544_)))) - (let ((_tl262478262560_ + (gx#stx-e _tl265167265239_)))) + (let ((_tl265173265255_ (let () (declare (not safe)) - (##cdr _e262480262555_))) - (_hd262479262558_ + (##cdr _e265175265250_))) + (_hd265174265253_ (let () (declare (not safe)) - (##car _e262480262555_)))) + (##car _e265175265250_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl262478262560_)) - (let ((__tmp271855 + _tl265173265255_)) + (let ((__tmp274650 (let () (declare (not safe)) - (cons _hd262479262558_ - _expr262468262526_))) - (__tmp271854 + (cons _hd265174265253_ + _expr265163265221_))) + (__tmp274649 (let () (declare (not safe)) - (cons _hd262476262550_ - _id262469262528_)))) + (cons _hd265171265245_ + _id265164265223_)))) (declare (not safe)) - (_loop262464262521_ - _lp-tl262467262536_ - __tmp271855 - __tmp271854)) - (___kont268992268993_)))) - (___kont268992268993_)) - (___kont268992268993_)))) - (___kont268992268993_)))) - (___kont268992268993_)))) + (_loop265159265216_ + _lp-tl265162265231_ + __tmp274650 + __tmp274649)) + (___kont271787271788_)))) + (___kont271787271788_)) + (___kont271787271788_)))) + (___kont271787271788_)))) + (___kont271787271788_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id262471262565_ - (reverse _id262469262528_)) - (_expr262470262563_ - (reverse _expr262468262526_))) + (let ((_id265166265260_ + (reverse _id265164265223_)) + (_expr265165265258_ + (reverse _expr265163265221_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262458262513_)) - (let ((_e262483262568_ + _tl265153265208_)) + (let ((_e265178265263_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl262458262513_)))) - (let ((_tl262481262573_ - (let () (declare (not safe)) (##cdr _e262483262568_))) - (_hd262482262571_ + (gx#stx-e _tl265153265208_)))) + (let ((_tl265176265268_ + (let () (declare (not safe)) (##cdr _e265178265263_))) + (_hd265177265266_ (let () (declare (not safe)) - (##car _e262483262568_)))) + (##car _e265178265263_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262481262573_)) - (___kont268988268989_ - _hd262482262571_ - _expr262470262563_ - _id262471262565_) - (___kont268992268993_)))) - (___kont268992268993_))))))) + (gx#stx-null? _tl265176265268_)) + (___kont271783271784_ + _hd265177265266_ + _expr265165265258_ + _id265166265260_) + (___kont271787271788_)))) + (___kont271787271788_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop262464262521_ - _target262461262516_ + (_loop265159265216_ + _target265156265211_ '() '()))))) - (___match269047269048_ - (lambda (_e262423262624_ - _hd262422262627_ - _tl262421262629_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_) - (letrec ((_loop262430262645_ - (lambda (_hd262428262648_) + (___match271842271843_ + (lambda (_e265118265319_ + _hd265117265322_ + _tl265116265324_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_) + (letrec ((_loop265125265340_ + (lambda (_hd265123265343_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262428262648_)) - (let ((_e262431262651_ + _hd265123265343_)) + (let ((_e265126265346_ (let () (declare (not safe)) (gx#stx-e - _hd262428262648_)))) - (let ((_lp-tl262433262656_ + _hd265123265343_)))) + (let ((_lp-tl265128265351_ (let () (declare (not safe)) - (##cdr _e262431262651_))) - (_lp-hd262432262654_ + (##cdr _e265126265346_))) + (_lp-hd265127265349_ (let () (declare (not safe)) - (##car _e262431262651_)))) + (##car _e265126265346_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd262432262654_)) - (let ((_e262436262659_ + _lp-hd265127265349_)) + (let ((_e265131265354_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd262432262654_)))) - (let ((_tl262434262664_ + (gx#stx-e _lp-hd265127265349_)))) + (let ((_tl265129265359_ (let () (declare (not safe)) - (##cdr _e262436262659_))) - (_hd262435262662_ + (##cdr _e265131265354_))) + (_hd265130265357_ (let () (declare (not safe)) - (##car _e262436262659_)))) + (##car _e265131265354_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd262435262662_)) - (let ((_e262439262667_ + (gx#stx-pair? _hd265130265357_)) + (let ((_e265134265362_ (let () (declare (not safe)) - (gx#stx-e _hd262435262662_)))) - (let ((_tl262437262672_ + (gx#stx-e _hd265130265357_)))) + (let ((_tl265132265367_ (let () (declare (not safe)) - (##cdr _e262439262667_))) - (_hd262438262670_ + (##cdr _e265134265362_))) + (_hd265133265365_ (let () (declare (not safe)) - (##car _e262439262667_)))) + (##car _e265134265362_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262437262672_)) + (gx#stx-null? _tl265132265367_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262434262664_)) - (let ((_e262442262675_ + (gx#stx-pair? _tl265129265359_)) + (let ((_e265137265370_ (let () (declare (not safe)) - (gx#stx-e _tl262434262664_)))) - (let ((_tl262440262680_ + (gx#stx-e _tl265129265359_)))) + (let ((_tl265135265375_ (let () (declare (not safe)) - (##cdr _e262442262675_))) - (_hd262441262678_ + (##cdr _e265137265370_))) + (_hd265136265373_ (let () (declare (not safe)) - (##car _e262442262675_)))) + (##car _e265137265370_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262441262678_)) - (let ((_e262445262683_ + _hd265136265373_)) + (let ((_e265140265378_ (let () (declare (not safe)) (gx#stx-e - _hd262441262678_)))) - (let ((_tl262443262688_ + _hd265136265373_)))) + (let ((_tl265138265383_ (let () (declare (not safe)) - (##cdr _e262445262683_))) - (_hd262444262686_ + (##cdr _e265140265378_))) + (_hd265139265381_ (let () (declare (not safe)) - (##car _e262445262683_)))) + (##car _e265140265378_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd262444262686_)) + _hd265139265381_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd262444262686_)) + _hd265139265381_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl262443262688_)) - (let ((_e262448262691_ + (gx#stx-pair? _tl265138265383_)) + (let ((_e265143265386_ (let () (declare (not safe)) - (gx#stx-e _tl262443262688_)))) - (let ((_tl262446262696_ + (gx#stx-e _tl265138265383_)))) + (let ((_tl265141265391_ (let () (declare (not safe)) - (##cdr _e262448262691_))) - (_hd262447262694_ + (##cdr _e265143265386_))) + (_hd265142265389_ (let () (declare (not safe)) - (##car _e262448262691_)))) + (##car _e265143265386_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262446262696_)) + (gx#stx-null? _tl265141265391_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl262440262680_)) + (gx#stx-null? _tl265135265375_)) (let () (declare (not safe)) - (_loop262430262645_ _lp-tl262433262656_)) - (___match269071269072_ - _e262423262624_ - _hd262422262627_ - _tl262421262629_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_)) - (___match269071269072_ - _e262423262624_ - _hd262422262627_ - _tl262421262629_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_)))) - (___match269071269072_ - _e262423262624_ - _hd262422262627_ - _tl262421262629_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_)) - (___match269071269072_ - _e262423262624_ - _hd262422262627_ - _tl262421262629_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_)) - (___match269071269072_ - _e262423262624_ - _hd262422262627_ - _tl262421262629_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_)))) + (_loop265125265340_ _lp-tl265128265351_)) + (___match271866271867_ + _e265118265319_ + _hd265117265322_ + _tl265116265324_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_)) + (___match271866271867_ + _e265118265319_ + _hd265117265322_ + _tl265116265324_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_)))) + (___match271866271867_ + _e265118265319_ + _hd265117265322_ + _tl265116265324_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_)) + (___match271866271867_ + _e265118265319_ + _hd265117265322_ + _tl265116265324_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_)) + (___match271866271867_ + _e265118265319_ + _hd265117265322_ + _tl265116265324_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match269071269072_ - _e262423262624_ - _hd262422262627_ - _tl262421262629_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_)))) - (___match269071269072_ - _e262423262624_ - _hd262422262627_ - _tl262421262629_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_)) - (___match269071269072_ - _e262423262624_ - _hd262422262627_ - _tl262421262629_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_)))) - (___match269071269072_ - _e262423262624_ - _hd262422262627_ - _tl262421262629_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_)))) - (___match269071269072_ - _e262423262624_ - _hd262422262627_ - _tl262421262629_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_)))) + (___match271866271867_ + _e265118265319_ + _hd265117265322_ + _tl265116265324_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_)))) + (___match271866271867_ + _e265118265319_ + _hd265117265322_ + _tl265116265324_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_)) + (___match271866271867_ + _e265118265319_ + _hd265117265322_ + _tl265116265324_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_)))) + (___match271866271867_ + _e265118265319_ + _hd265117265322_ + _tl265116265324_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_)))) + (___match271866271867_ + _e265118265319_ + _hd265117265322_ + _tl265116265324_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (if (let () (declare (not safe)) (gx#stx-pair? - _tl262424262637_)) - (let ((_e262451262700_ + _tl265119265332_)) + (let ((_e265146265395_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl262424262637_)))) - (let ((_tl262449262705_ - (let () (declare (not safe)) (##cdr _e262451262700_))) - (_hd262450262703_ + (gx#stx-e _tl265119265332_)))) + (let ((_tl265144265400_ + (let () (declare (not safe)) (##cdr _e265146265395_))) + (_hd265145265398_ (let () (declare (not safe)) - (##car _e262451262700_)))) + (##car _e265146265395_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262449262705_)) - (___kont268984268985_) - (___match269071269072_ - _e262423262624_ - _hd262422262627_ - _tl262421262629_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_)))) - (___match269071269072_ - _e262423262624_ - _hd262422262627_ - _tl262421262629_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_))))))) + (gx#stx-null? _tl265144265400_)) + (___kont271779271780_) + (___match271866271867_ + _e265118265319_ + _hd265117265322_ + _tl265116265324_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_)))) + (___match271866271867_ + _e265118265319_ + _hd265117265322_ + _tl265116265324_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop262430262645_ - _target262427262640_)))))) + (_loop265125265340_ + _target265122265335_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx268980268981_)) - (let ((_e262411262715_ + (gx#stx-pair? ___stx271775271776_)) + (let ((_e265106265410_ (let () (declare (not safe)) - (gx#stx-e ___stx268980268981_)))) - (let ((_tl262409262720_ + (gx#stx-e ___stx271775271776_)))) + (let ((_tl265104265415_ (let () (declare (not safe)) - (##cdr _e262411262715_))) - (_hd262410262718_ + (##cdr _e265106265410_))) + (_hd265105265413_ (let () (declare (not safe)) - (##car _e262411262715_)))) + (##car _e265106265410_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd262410262718_)) + (gx#identifier? _hd265105265413_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd262410262718_)) + _hd265105265413_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262409262720_)) - (let ((_e262414262723_ + _tl265104265415_)) + (let ((_e265109265418_ (let () (declare (not safe)) (gx#stx-e - _tl262409262720_)))) - (let ((_tl262412262728_ + _tl265104265415_)))) + (let ((_tl265107265423_ (let () (declare (not safe)) - (##cdr _e262414262723_))) - (_hd262413262726_ + (##cdr _e265109265418_))) + (_hd265108265421_ (let () (declare (not safe)) - (##car _e262414262723_)))) + (##car _e265109265418_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262412262728_)) - (let ((_e262417262731_ + _tl265107265423_)) + (let ((_e265112265426_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl262412262728_)))) - (let ((_tl262415262736_ - (let () (declare (not safe)) (##cdr _e262417262731_))) - (_hd262416262734_ - (let () (declare (not safe)) (##car _e262417262731_)))) + (gx#stx-e _tl265107265423_)))) + (let ((_tl265110265431_ + (let () (declare (not safe)) (##cdr _e265112265426_))) + (_hd265111265429_ + (let () (declare (not safe)) (##car _e265112265426_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262415262736_)) - (let ((_e262420262739_ + (gx#stx-pair? _tl265110265431_)) + (let ((_e265115265434_ (let () (declare (not safe)) - (gx#stx-e _tl262415262736_)))) - (let ((_tl262418262744_ + (gx#stx-e _tl265110265431_)))) + (let ((_tl265113265439_ (let () (declare (not safe)) - (##cdr _e262420262739_))) - (_hd262419262742_ + (##cdr _e265115265434_))) + (_hd265114265437_ (let () (declare (not safe)) - (##car _e262420262739_)))) + (##car _e265115265434_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262418262744_)) - (___kont268982268983_ - _hd262419262742_ - _hd262416262734_ - _hd262413262726_) - (___kont268992268993_)))) - (___kont268992268993_)))) - (___kont268992268993_)))) + (gx#stx-null? _tl265113265439_)) + (___kont271777271778_ + _hd265114265437_ + _hd265111265429_ + _hd265108265421_) + (___kont271787271788_)))) + (___kont271787271788_)))) + (___kont271787271788_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont268992268993_)) + (___kont271787271788_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd262410262718_)) + _hd265105265413_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262409262720_)) - (let ((_e262426262632_ + _tl265104265415_)) + (let ((_e265121265327_ (let () (declare (not safe)) (gx#stx-e - _tl262409262720_)))) - (let ((_tl262424262637_ + _tl265104265415_)))) + (let ((_tl265119265332_ (let () (declare (not safe)) - (##cdr _e262426262632_))) - (_hd262425262635_ + (##cdr _e265121265327_))) + (_hd265120265330_ (let () (declare (not safe)) - (##car _e262426262632_)))) + (##car _e265121265327_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd262425262635_)) - (let ((___splice268986268987_ + _hd265120265330_)) + (let ((___splice271781271782_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd262425262635_ '0)))) - (let ((_tl262429262642_ + (gx#syntax-split-splice _hd265120265330_ '0)))) + (let ((_tl265124265337_ (let () (declare (not safe)) - (##vector-ref ___splice268986268987_ '1))) - (_target262427262640_ + (##vector-ref ___splice271781271782_ '1))) + (_target265122265335_ (let () (declare (not safe)) - (##vector-ref ___splice268986268987_ '0)))) + (##vector-ref ___splice271781271782_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262429262642_)) - (___match269047269048_ - _e262411262715_ - _hd262410262718_ - _tl262409262720_ - _e262426262632_ - _hd262425262635_ - _tl262424262637_ - ___splice268986268987_ - _target262427262640_ - _tl262429262642_) - (___kont268992268993_)))) - (___kont268992268993_)))) + (gx#stx-null? _tl265124265337_)) + (___match271842271843_ + _e265106265410_ + _hd265105265413_ + _tl265104265415_ + _e265121265327_ + _hd265120265330_ + _tl265119265332_ + ___splice271781271782_ + _target265122265335_ + _tl265124265337_) + (___kont271787271788_)))) + (___kont271787271788_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont268992268993_)) - (___kont268992268993_))) - (___kont268992268993_)))) - (___kont268992268993_))))))) - (_fold-blocks262217_ - (lambda (_rest262316_ _blocks262317_) - (let* ((_rest262318262335_ _rest262316_) - (_E262321262339_ + (___kont271787271788_)) + (___kont271787271788_))) + (___kont271787271788_)))) + (___kont271787271788_))))))) + (_fold-blocks264912_ + (lambda (_rest265011_ _blocks265012_) + (let* ((_rest265013265030_ _rest265011_) + (_E265016265034_ (lambda () (error '"No clause matching" - _rest262318262335_)))) - (let ((_K262323262359_ - (lambda (_rest262350_ - _assert262351_ - _bind262352_ - _body262353_ - _name262354_) - (let ((_g271856_ + _rest265013265030_)))) + (let ((_K265018265054_ + (lambda (_rest265045_ + _assert265046_ + _bind265047_ + _body265048_ + _name265049_) + (let ((_g274651_ (let () (declare (not safe)) - (_basic-block262216_ - _body262353_ - _bind262352_ - _assert262351_)))) + (_basic-block264911_ + _body265048_ + _bind265047_ + _assert265046_)))) (begin - (let ((_g271857_ + (let ((_g274652_ (let () (declare (not safe)) - (if (##values? _g271856_) - (##vector-length _g271856_) + (if (##values? _g274651_) + (##vector-length _g274651_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g271857_ 2))) + (##fx= _g274652_ 2))) (error "Context expects 2 values" - _g271857_))) - (let ((_body262356_ + _g274652_))) + (let ((_body265051_ (let () (declare (not safe)) - (##vector-ref _g271856_ 0))) - (_body-blocks262357_ + (##vector-ref _g274651_ 0))) + (_body-blocks265052_ (let () (declare (not safe)) - (##vector-ref _g271856_ 1)))) - (let ((__tmp271868 + (##vector-ref _g274651_ 1)))) + (let ((__tmp274663 (let () (declare (not safe)) (foldl1 cons - _rest262350_ - _body-blocks262357_))) - (__tmp271858 - (let ((__tmp271859 - (let ((__tmp271860 - (let ((__tmp271861 + _rest265045_ + _body-blocks265052_))) + (__tmp274653 + (let ((__tmp274654 + (let ((__tmp274655 + (let ((__tmp274656 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271864 - (let ((__tmp271865 - (let ((__tmp271867 - (reverse (map car _bind262352_))) - (__tmp271866 + (let ((__tmp274659 + (let ((__tmp274660 + (let ((__tmp274662 + (reverse (map car _bind265047_))) + (__tmp274661 (let () (declare (not safe)) - (cons _body262356_ '())))) + (cons _body265051_ '())))) (declare (not safe)) - (cons __tmp271867 __tmp271866)))) + (cons __tmp274662 __tmp274661)))) (declare (not safe)) - (cons '%#lambda __tmp271865))) - (__tmp271862 - (let ((__tmp271863 + (cons '%#lambda __tmp274660))) + (__tmp274657 + (let ((__tmp274658 (let () (declare (not safe)) - (cons _bind262352_ '())))) + (cons _bind265047_ '())))) (declare (not safe)) - (cons _assert262351_ __tmp271863)))) + (cons _assert265046_ __tmp274658)))) (declare (not safe)) - (cons __tmp271864 __tmp271862)))) + (cons __tmp274659 __tmp274657)))) (declare (not safe)) - (cons 'continue: __tmp271861)))) + (cons 'continue: __tmp274656)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _name262354_ - __tmp271860)))) + (cons _name265049_ + __tmp274655)))) (declare (not safe)) - (cons __tmp271859 - _blocks262317_)))) + (cons __tmp274654 + _blocks265012_)))) (declare (not safe)) - (_fold-blocks262217_ - __tmp271868 - __tmp271858))))))) - (_K262322262344_ (lambda () _blocks262317_))) - (let ((_try-match262320262347_ + (_fold-blocks264912_ + __tmp274663 + __tmp274653))))))) + (_K265017265039_ (lambda () _blocks265012_))) + (let ((_try-match265015265042_ (lambda () (if (let () (declare (not safe)) - (##null? _rest262318262335_)) + (##null? _rest265013265030_)) (let () (declare (not safe)) - (_K262322262344_)) + (_K265017265039_)) (let () (declare (not safe)) - (_E262321262339_)))))) + (_E265016265034_)))))) (if (let () (declare (not safe)) - (##pair? _rest262318262335_)) - (let ((_tl262325262364_ + (##pair? _rest265013265030_)) + (let ((_tl265020265059_ (let () (declare (not safe)) - (##cdr _rest262318262335_))) - (_hd262324262362_ + (##cdr _rest265013265030_))) + (_hd265019265057_ (let () (declare (not safe)) - (##car _rest262318262335_)))) + (##car _rest265013265030_)))) (if (let () (declare (not safe)) - (##pair? _hd262324262362_)) - (let ((_tl262327262369_ + (##pair? _hd265019265057_)) + (let ((_tl265022265064_ (let () (declare (not safe)) - (##cdr _hd262324262362_))) - (_hd262326262367_ + (##cdr _hd265019265057_))) + (_hd265021265062_ (let () (declare (not safe)) - (##car _hd262324262362_)))) + (##car _hd265019265057_)))) (if (let () (declare (not safe)) - (##pair? _tl262327262369_)) - (let ((_tl262329262376_ + (##pair? _tl265022265064_)) + (let ((_tl265024265071_ (let () (declare (not safe)) - (##cdr _tl262327262369_))) - (_hd262328262374_ + (##cdr _tl265022265064_))) + (_hd265023265069_ (let () (declare (not safe)) - (##car _tl262327262369_)))) + (##car _tl265022265064_)))) (if (let () (declare (not safe)) - (##pair? _tl262329262376_)) - (let ((_tl262331262383_ + (##pair? _tl265024265071_)) + (let ((_tl265026265078_ (let () (declare (not safe)) - (##cdr _tl262329262376_))) - (_hd262330262381_ + (##cdr _tl265024265071_))) + (_hd265025265076_ (let () (declare (not safe)) - (##car _tl262329262376_)))) + (##car _tl265024265071_)))) (if (let () (declare (not safe)) - (##pair? _tl262331262383_)) - (let ((_tl262333262390_ + (##pair? _tl265026265078_)) + (let ((_tl265028265085_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl262331262383_))) - (_hd262332262388_ - (let () (declare (not safe)) (##car _tl262331262383_)))) - (if (let () (declare (not safe)) (##null? _tl262333262390_)) - (let ((_name262372_ _hd262326262367_) - (_body262379_ _hd262328262374_) - (_bind262386_ _hd262330262381_) - (_assert262393_ _hd262332262388_) - (_rest262395_ _tl262325262364_)) + (##cdr _tl265026265078_))) + (_hd265027265083_ + (let () (declare (not safe)) (##car _tl265026265078_)))) + (if (let () (declare (not safe)) (##null? _tl265028265085_)) + (let ((_name265067_ _hd265021265062_) + (_body265074_ _hd265023265069_) + (_bind265081_ _hd265025265076_) + (_assert265088_ _hd265027265083_) + (_rest265090_ _tl265020265059_)) (let () (declare (not safe)) - (_K262323262359_ - _rest262395_ - _assert262393_ - _bind262386_ - _body262379_ - _name262372_))) - (let () (declare (not safe)) (_E262321262339_)))) - (let () (declare (not safe)) (_E262321262339_)))) + (_K265018265054_ + _rest265090_ + _assert265088_ + _bind265081_ + _body265074_ + _name265067_))) + (let () (declare (not safe)) (_E265016265034_)))) + (let () (declare (not safe)) (_E265016265034_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E262321262339_)))) + (_E265016265034_)))) (let () (declare (not safe)) - (_E262321262339_)))) + (_E265016265034_)))) (let () (declare (not safe)) - (_E262321262339_)))) + (_E265016265034_)))) (let () (declare (not safe)) - (_try-match262320262347_))))))))) - (let* ((_clause262218262225_ _clause262211_) - (_E262220262229_ + (_try-match265015265042_))))))))) + (let* ((_clause264913264920_ _clause264906_) + (_E264915264924_ (lambda () - (error '"No clause matching" _clause262218262225_))) - (_K262221262304_ - (lambda (_body262232_ _name262233_) - (let* ((_g262235262251_ - (lambda (_g262236262248_) + (error '"No clause matching" _clause264913264920_))) + (_K264916264999_ + (lambda (_body264927_ _name264928_) + (let* ((_g264930264946_ + (lambda (_g264931264943_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g262236262248_)))) - (_g262234262301_ - (lambda (_g262236262254_) + _g264931264943_)))) + (_g264929264996_ + (lambda (_g264931264949_) (if (let () (declare (not safe)) - (gx#stx-pair? _g262236262254_)) - (let ((_e262240262256_ + (gx#stx-pair? _g264931264949_)) + (let ((_e264935264951_ (let () (declare (not safe)) - (gx#stx-e _g262236262254_)))) - (let ((_hd262239262259_ + (gx#stx-e _g264931264949_)))) + (let ((_hd264934264954_ (let () (declare (not safe)) - (##car _e262240262256_))) - (_tl262238262261_ + (##car _e264935264951_))) + (_tl264933264956_ (let () (declare (not safe)) - (##cdr _e262240262256_)))) + (##cdr _e264935264951_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd262239262259_)) + (gx#identifier? _hd264934264954_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd262239262259_)) + _hd264934264954_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262238262261_)) - (let ((_e262243262264_ + _tl264933264956_)) + (let ((_e264938264959_ (let () (declare (not safe)) (gx#stx-e - _tl262238262261_)))) - (let ((_hd262242262267_ + _tl264933264956_)))) + (let ((_hd264937264962_ (let () (declare (not safe)) - (##car _e262243262264_))) - (_tl262241262269_ + (##car _e264938264959_))) + (_tl264936264964_ (let () (declare (not safe)) - (##cdr _e262243262264_)))) + (##cdr _e264938264959_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd262242262267_)) + _hd264937264962_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl262241262269_)) - (let ((_e262246262272_ + (gx#stx-pair? _tl264936264964_)) + (let ((_e264941264967_ (let () (declare (not safe)) - (gx#stx-e _tl262241262269_)))) - (let ((_hd262245262275_ + (gx#stx-e _tl264936264964_)))) + (let ((_hd264940264970_ (let () (declare (not safe)) - (##car _e262246262272_))) - (_tl262244262277_ + (##car _e264941264967_))) + (_tl264939264972_ (let () (declare (not safe)) - (##cdr _e262246262272_)))) + (##cdr _e264941264967_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262244262277_)) - ((lambda (_L262280_) - (let ((_g271869_ + (gx#stx-null? _tl264939264972_)) + ((lambda (_L264975_) + (let ((_g274664_ (let () (declare (not safe)) - (_basic-block262216_ - _L262280_ + (_basic-block264911_ + _L264975_ '() '())))) (begin - (let ((_g271870_ + (let ((_g274665_ (let () (declare (not safe)) - (if (##values? _g271869_) - (##vector-length _g271869_) + (if (##values? _g274664_) + (##vector-length _g274664_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g271870_ 2))) + (##fx= _g274665_ 2))) (error "Context expects 2 values" - _g271870_))) - (let ((_body262298_ + _g274665_))) + (let ((_body264993_ (let () (declare (not safe)) - (##vector-ref _g271869_ 0))) - (_body-blocks262299_ + (##vector-ref _g274664_ 0))) + (_body-blocks264994_ (let () (declare (not safe)) - (##vector-ref _g271869_ 1)))) - (let ((__tmp271871 - (let ((__tmp271872 - (let ((__tmp271873 - (let ((__tmp271874 + (##vector-ref _g274664_ 1)))) + (let ((__tmp274666 + (let ((__tmp274667 + (let ((__tmp274668 + (let ((__tmp274669 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271876 - (let ((__tmp271877 - (let ((__tmp271878 + (let ((__tmp274671 + (let ((__tmp274672 + (let ((__tmp274673 (let () (declare (not safe)) - (cons _body262298_ '())))) + (cons _body264993_ '())))) (declare (not safe)) - (cons '() __tmp271878)))) + (cons '() __tmp274673)))) (declare (not safe)) - (cons '%#lambda __tmp271877))) - (__tmp271875 + (cons '%#lambda __tmp274672))) + (__tmp274670 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp271876 __tmp271875)))) + (cons __tmp274671 __tmp274670)))) (declare (not safe)) - (cons 'restart: __tmp271874)))) + (cons 'restart: __tmp274669)))) (declare (not safe)) - (cons _name262233_ __tmp271873)))) + (cons _name264928_ __tmp274668)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp271872 - _blocks262212_)))) + (cons __tmp274667 + _blocks264907_)))) (declare (not safe)) - (_fold-blocks262217_ - _body-blocks262299_ - __tmp271871)))))) - _hd262245262275_) + (_fold-blocks264912_ + _body-blocks264994_ + __tmp274666)))))) + _hd264940264970_) (let () (declare (not safe)) - (_g262235262251_ _g262236262254_))))) + (_g264930264946_ _g264931264949_))))) (let () (declare (not safe)) - (_g262235262251_ _g262236262254_))) + (_g264930264946_ _g264931264949_))) (let () (declare (not safe)) - (_g262235262251_ _g262236262254_))))) + (_g264930264946_ _g264931264949_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g262235262251_ - _g262236262254_))) + (_g264930264946_ + _g264931264949_))) (let () (declare (not safe)) - (_g262235262251_ - _g262236262254_))) + (_g264930264946_ + _g264931264949_))) (let () (declare (not safe)) - (_g262235262251_ - _g262236262254_))))) + (_g264930264946_ + _g264931264949_))))) (let () (declare (not safe)) - (_g262235262251_ _g262236262254_)))))) + (_g264930264946_ _g264931264949_)))))) (declare (not safe)) - (_g262234262301_ _body262232_))))) - (if (let () (declare (not safe)) (##pair? _clause262218262225_)) - (let ((_hd262222262307_ + (_g264929264996_ _body264927_))))) + (if (let () (declare (not safe)) (##pair? _clause264913264920_)) + (let ((_hd264917265002_ (let () (declare (not safe)) - (##car _clause262218262225_))) - (_tl262223262309_ + (##car _clause264913264920_))) + (_tl264918265004_ (let () (declare (not safe)) - (##cdr _clause262218262225_)))) - (let* ((_name262312_ _hd262222262307_) - (_body262314_ _tl262223262309_)) + (##cdr _clause264913264920_)))) + (let* ((_name265007_ _hd264917265002_) + (_body265009_ _tl264918265004_)) (declare (not safe)) - (_K262221262304_ _body262314_ _name262312_))) - (let () (declare (not safe)) (_E262220262229_))))))) + (_K264916264999_ _body265009_ _name265007_))) + (let () (declare (not safe)) (_E264915264924_))))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_blocks261817_) - (let _lp261819_ ((_rest261821_ _blocks261817_) (_blocks261822_ '())) - (let* ((_rest261823261831_ _rest261821_) - (_else261825261880_ + (lambda (_blocks264512_) + (let _lp264514_ ((_rest264516_ _blocks264512_) (_blocks264517_ '())) + (let* ((_rest264518264526_ _rest264516_) + (_else264520264575_ (lambda () - (let ((__tmp271879 - (lambda (_block261839_ _r261840_) - (let* ((_block261841261852_ _block261839_) - (_E261843261856_ + (let ((__tmp274674 + (lambda (_block264534_ _r264535_) + (let* ((_block264536264547_ _block264534_) + (_E264538264551_ (lambda () (error '"No clause matching" - _block261841261852_))) - (_K261844261862_ - (lambda (_kont261859_ _name261860_) - (let ((__tmp271880 + _block264536264547_))) + (_K264539264557_ + (lambda (_kont264554_ _name264555_) + (let ((__tmp274675 (let () (declare (not safe)) - (cons _name261860_ - _kont261859_)))) + (cons _name264555_ + _kont264554_)))) (declare (not safe)) - (cons __tmp271880 _r261840_))))) + (cons __tmp274675 _r264535_))))) (if (let () (declare (not safe)) - (##pair? _block261841261852_)) - (let ((_hd261845261865_ + (##pair? _block264536264547_)) + (let ((_hd264540264560_ (let () (declare (not safe)) - (##car _block261841261852_))) - (_tl261846261867_ + (##car _block264536264547_))) + (_tl264541264562_ (let () (declare (not safe)) - (##cdr _block261841261852_)))) - (let ((_name261870_ _hd261845261865_)) + (##cdr _block264536264547_)))) + (let ((_name264565_ _hd264540264560_)) (if (let () (declare (not safe)) - (##pair? _tl261846261867_)) - (let ((_tl261848261872_ + (##pair? _tl264541264562_)) + (let ((_tl264543264567_ (let () (declare (not safe)) - (##cdr _tl261846261867_)))) + (##cdr _tl264541264562_)))) (if (let () (declare (not safe)) - (##pair? _tl261848261872_)) - (let* ((_hd261849261875_ + (##pair? _tl264543264567_)) + (let* ((_hd264544264570_ (let () (declare (not safe)) - (##car _tl261848261872_))) - (_kont261878_ - _hd261849261875_)) + (##car _tl264543264567_))) + (_kont264573_ + _hd264544264570_)) (declare (not safe)) - (_K261844261862_ - _kont261878_ - _name261870_)) + (_K264539264557_ + _kont264573_ + _name264565_)) (let () (declare (not safe)) - (_E261843261856_)))) + (_E264538264551_)))) (let () (declare (not safe)) - (_E261843261856_))))) + (_E264538264551_))))) (let () (declare (not safe)) - (_E261843261856_))))))) + (_E264538264551_))))))) (declare (not safe)) - (foldl1 __tmp271879 '() _blocks261822_)))) - (_K261827262199_ - (lambda (_rest261883_ _block261884_) - (let* ((_block261885261910_ _block261884_) - (_E261888261914_ + (foldl1 __tmp274674 '() _blocks264517_)))) + (_K264522264894_ + (lambda (_rest264578_ _block264579_) + (let* ((_block264580264605_ _block264579_) + (_E264583264609_ (lambda () (error '"No clause matching" - _block261885261910_)))) - (let ((_K261900262170_ - (lambda (_assert262092_ _kont262093_ _name262094_) - (let* ((_g262096262112_ - (lambda (_g262097262109_) + _block264580264605_)))) + (let ((_K264595264865_ + (lambda (_assert264787_ _kont264788_ _name264789_) + (let* ((_g264791264807_ + (lambda (_g264792264804_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g262097262109_)))) - (_g262095262167_ - (lambda (_g262097262115_) + _g264792264804_)))) + (_g264790264862_ + (lambda (_g264792264810_) (if (let () (declare (not safe)) - (gx#stx-pair? _g262097262115_)) - (let ((_e262101262117_ + (gx#stx-pair? _g264792264810_)) + (let ((_e264796264812_ (let () (declare (not safe)) (gx#stx-e - _g262097262115_)))) - (let ((_hd262100262120_ + _g264792264810_)))) + (let ((_hd264795264815_ (let () (declare (not safe)) - (##car _e262101262117_))) - (_tl262099262122_ + (##car _e264796264812_))) + (_tl264794264817_ (let () (declare (not safe)) - (##cdr _e262101262117_)))) + (##cdr _e264796264812_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd262100262120_)) + _hd264795264815_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd262100262120_)) + _hd264795264815_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl262099262122_)) - (let ((_e262104262125_ + (gx#stx-pair? _tl264794264817_)) + (let ((_e264799264820_ (let () (declare (not safe)) - (gx#stx-e _tl262099262122_)))) - (let ((_hd262103262128_ + (gx#stx-e _tl264794264817_)))) + (let ((_hd264798264823_ (let () (declare (not safe)) - (##car _e262104262125_))) - (_tl262102262130_ + (##car _e264799264820_))) + (_tl264797264825_ (let () (declare (not safe)) - (##cdr _e262104262125_)))) + (##cdr _e264799264820_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd262103262128_)) + (gx#stx-null? _hd264798264823_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262102262130_)) - (let ((_e262107262133_ + (gx#stx-pair? _tl264797264825_)) + (let ((_e264802264828_ (let () (declare (not safe)) - (gx#stx-e _tl262102262130_)))) - (let ((_hd262106262136_ + (gx#stx-e _tl264797264825_)))) + (let ((_hd264801264831_ (let () (declare (not safe)) - (##car _e262107262133_))) - (_tl262105262138_ + (##car _e264802264828_))) + (_tl264800264833_ (let () (declare (not safe)) - (##cdr _e262107262133_)))) + (##cdr _e264802264828_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262105262138_)) - ((lambda (_L262141_) - (let* ((_body262156_ + (gx#stx-null? _tl264800264833_)) + ((lambda (_L264836_) + (let* ((_body264851_ (let () (declare (not safe)) (gxc#optimize-match-block - _L262141_ - _assert262092_ + _L264836_ + _assert264787_ '() - _rest261883_))) - (_block262158_ - (let ((__tmp271881 - (let ((__tmp271882 + _rest264578_))) + (_block264853_ + (let ((__tmp274676 + (let ((__tmp274677 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271884 - (let ((__tmp271885 - (let ((__tmp271886 + (let ((__tmp274679 + (let ((__tmp274680 + (let ((__tmp274681 (let () (declare (not safe)) - (cons _body262156_ '())))) + (cons _body264851_ '())))) (declare (not safe)) - (cons '() __tmp271886)))) + (cons '() __tmp274681)))) (declare (not safe)) - (cons '%#lambda __tmp271885))) - (__tmp271883 + (cons '%#lambda __tmp274680))) + (__tmp274678 (let () (declare (not safe)) - (cons _assert262092_ '())))) + (cons _assert264787_ '())))) (declare (not safe)) - (cons __tmp271884 __tmp271883)))) + (cons __tmp274679 __tmp274678)))) (declare (not safe)) - (cons 'restart: __tmp271882)))) + (cons 'restart: __tmp274677)))) (declare (not safe)) - (cons _name262094_ __tmp271881))) + (cons _name264789_ __tmp274676))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_blocks262160_ + (_blocks264855_ (let () (declare (not safe)) - (cons _block262158_ - _blocks261822_))) - (_rest262162_ + (cons _block264853_ + _blocks264517_))) + (_rest264857_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest261883_ - _blocks262160_))) - (_rest262164_ + _rest264578_ + _blocks264855_))) + (_rest264859_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest262162_ - _blocks262160_)))) + _rest264857_ + _blocks264855_)))) (let () (declare (not safe)) - (_lp261819_ - _rest262164_ - _blocks262160_)))) - _hd262106262136_) + (_lp264514_ + _rest264859_ + _blocks264855_)))) + _hd264801264831_) (let () (declare (not safe)) - (_g262096262112_ - _g262097262115_))))) + (_g264791264807_ + _g264792264810_))))) (let () (declare (not safe)) - (_g262096262112_ _g262097262115_))) + (_g264791264807_ _g264792264810_))) (let () (declare (not safe)) - (_g262096262112_ _g262097262115_))))) + (_g264791264807_ _g264792264810_))))) (let () (declare (not safe)) - (_g262096262112_ _g262097262115_))) + (_g264791264807_ _g264792264810_))) (let () (declare (not safe)) - (_g262096262112_ _g262097262115_))) + (_g264791264807_ _g264792264810_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g262096262112_ - _g262097262115_))))) + (_g264791264807_ + _g264792264810_))))) (let () (declare (not safe)) - (_g262096262112_ - _g262097262115_)))))) + (_g264791264807_ + _g264792264810_)))))) (declare (not safe)) - (_g262095262167_ _kont262093_)))) - (_K261889262053_ - (lambda (_bind261918_ - _assert261919_ - _kont261920_ - _name261921_) - (let* ((_g261923261949_ - (lambda (_g261924261946_) + (_g264790264862_ _kont264788_)))) + (_K264584264748_ + (lambda (_bind264613_ + _assert264614_ + _kont264615_ + _name264616_) + (let* ((_g264618264644_ + (lambda (_g264619264641_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g261924261946_)))) - (_g261922262050_ - (lambda (_g261924261952_) + _g264619264641_)))) + (_g264617264745_ + (lambda (_g264619264647_) (if (let () (declare (not safe)) - (gx#stx-pair? _g261924261952_)) - (let ((_e261929261954_ + (gx#stx-pair? _g264619264647_)) + (let ((_e264624264649_ (let () (declare (not safe)) (gx#stx-e - _g261924261952_)))) - (let ((_hd261928261957_ + _g264619264647_)))) + (let ((_hd264623264652_ (let () (declare (not safe)) - (##car _e261929261954_))) - (_tl261927261959_ + (##car _e264624264649_))) + (_tl264622264654_ (let () (declare (not safe)) - (##cdr _e261929261954_)))) + (##cdr _e264624264649_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd261928261957_)) + _hd264623264652_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd261928261957_)) + _hd264623264652_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl261927261959_)) - (let ((_e261932261962_ + (gx#stx-pair? _tl264622264654_)) + (let ((_e264627264657_ (let () (declare (not safe)) - (gx#stx-e _tl261927261959_)))) - (let ((_hd261931261965_ + (gx#stx-e _tl264622264654_)))) + (let ((_hd264626264660_ (let () (declare (not safe)) - (##car _e261932261962_))) - (_tl261930261967_ + (##car _e264627264657_))) + (_tl264625264662_ (let () (declare (not safe)) - (##cdr _e261932261962_)))) + (##cdr _e264627264657_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd261931261965_)) - (let ((_g271887_ + (gx#stx-pair/null? _hd264626264660_)) + (let ((_g274682_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd261931261965_ + _hd264626264660_ '0)))) (begin - (let ((_g271888_ + (let ((_g274683_ (let () (declare (not safe)) - (if (##values? _g271887_) - (##vector-length _g271887_) + (if (##values? _g274682_) + (##vector-length _g274682_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g271888_ 2))) + (##fx= _g274683_ 2))) (error "Context expects 2 values" - _g271888_))) - (let ((_target261933261970_ + _g274683_))) + (let ((_target264628264665_ (let () (declare (not safe)) - (##vector-ref _g271887_ 0))) - (_tl261935261972_ + (##vector-ref _g274682_ 0))) + (_tl264630264667_ (let () (declare (not safe)) - (##vector-ref _g271887_ 1)))) + (##vector-ref _g274682_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261935261972_)) - (letrec ((_loop261936261975_ - (lambda (_hd261934261978_ - _id261940261980_) + (gx#stx-null? _tl264630264667_)) + (letrec ((_loop264631264670_ + (lambda (_hd264629264673_ + _id264635264675_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd261934261978_)) - (let ((_e261937261983_ + _hd264629264673_)) + (let ((_e264632264678_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd261934261978_)))) - (let ((_lp-hd261938261986_ - (let () (declare (not safe)) (##car _e261937261983_))) - (_lp-tl261939261988_ - (let () (declare (not safe)) (##cdr _e261937261983_)))) - (let ((__tmp271898 + (gx#stx-e _hd264629264673_)))) + (let ((_lp-hd264633264681_ + (let () (declare (not safe)) (##car _e264632264678_))) + (_lp-tl264634264683_ + (let () (declare (not safe)) (##cdr _e264632264678_)))) + (let ((__tmp274693 (let () (declare (not safe)) - (cons _lp-hd261938261986_ _id261940261980_)))) + (cons _lp-hd264633264681_ _id264635264675_)))) (declare (not safe)) - (_loop261936261975_ _lp-tl261939261988_ __tmp271898)))) - (let ((_id261941261991_ (reverse _id261940261980_))) + (_loop264631264670_ _lp-tl264634264683_ __tmp274693)))) + (let ((_id264636264686_ (reverse _id264635264675_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261930261967_)) - (let ((_e261944261994_ + (gx#stx-pair? _tl264625264662_)) + (let ((_e264639264689_ (let () (declare (not safe)) - (gx#stx-e _tl261930261967_)))) - (let ((_hd261943261997_ + (gx#stx-e _tl264625264662_)))) + (let ((_hd264638264692_ (let () (declare (not safe)) - (##car _e261944261994_))) - (_tl261942261999_ + (##car _e264639264689_))) + (_tl264637264694_ (let () (declare (not safe)) - (##cdr _e261944261994_)))) + (##cdr _e264639264689_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261942261999_)) - ((lambda (_L262002_ _L262003_) - (let* ((_body262032_ + (gx#stx-null? _tl264637264694_)) + ((lambda (_L264697_ _L264698_) + (let* ((_body264727_ (let () (declare (not safe)) (gxc#optimize-match-block - _L262002_ - _assert261919_ - _bind261918_ - _rest261883_))) - (_block262041_ - (let ((__tmp271889 - (let ((__tmp271890 - (let ((__tmp271893 - (let ((__tmp271894 + _L264697_ + _assert264614_ + _bind264613_ + _rest264578_))) + (_block264736_ + (let ((__tmp274684 + (let ((__tmp274685 + (let ((__tmp274688 + (let ((__tmp274689 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271896 - (let ((__tmp271897 - (lambda (_g262033262036_ - _g262034262038_) + (let ((__tmp274691 + (let ((__tmp274692 + (lambda (_g264728264731_ + _g264729264733_) (let () (declare (not safe)) - (cons _g262033262036_ - _g262034262038_))))) + (cons _g264728264731_ + _g264729264733_))))) (declare (not safe)) - (foldr1 __tmp271897 '() _L262003_))) - (__tmp271895 + (foldr1 __tmp274692 '() _L264698_))) + (__tmp274690 (let () (declare (not safe)) - (cons _body262032_ '())))) + (cons _body264727_ '())))) (declare (not safe)) - (cons __tmp271896 __tmp271895)))) + (cons __tmp274691 __tmp274690)))) (declare (not safe)) - (cons '%#lambda __tmp271894))) - (__tmp271891 - (let ((__tmp271892 + (cons '%#lambda __tmp274689))) + (__tmp274686 + (let ((__tmp274687 (let () (declare (not safe)) - (cons _bind261918_ '())))) + (cons _bind264613_ '())))) (declare (not safe)) - (cons _assert261919_ __tmp271892)))) + (cons _assert264614_ __tmp274687)))) (declare (not safe)) - (cons __tmp271893 __tmp271891)))) + (cons __tmp274688 __tmp274686)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'continue: - __tmp271890)))) + __tmp274685)))) (declare (not safe)) - (cons _name261921_ __tmp271889))) - (_blocks262043_ + (cons _name264616_ __tmp274684))) + (_blocks264738_ (let () (declare (not safe)) - (cons _block262041_ _blocks261822_))) - (_rest262045_ + (cons _block264736_ _blocks264517_))) + (_rest264740_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest261883_ - _blocks262043_))) - (_rest262047_ + _rest264578_ + _blocks264738_))) + (_rest264742_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest262045_ - _blocks262043_)))) + _rest264740_ + _blocks264738_)))) (let () (declare (not safe)) - (_lp261819_ _rest262047_ _blocks262043_)))) - _hd261943261997_ - _id261941261991_) + (_lp264514_ _rest264742_ _blocks264738_)))) + _hd264638264692_ + _id264636264686_) (let () (declare (not safe)) - (_g261923261949_ _g261924261952_))))) + (_g264618264644_ _g264619264647_))))) (let () (declare (not safe)) - (_g261923261949_ _g261924261952_)))))))) + (_g264618264644_ _g264619264647_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop261936261975_ - _target261933261970_ + (_loop264631264670_ + _target264628264665_ '()))) (let () (declare (not safe)) - (_g261923261949_ _g261924261952_)))))) + (_g264618264644_ _g264619264647_)))))) (let () (declare (not safe)) - (_g261923261949_ _g261924261952_))))) + (_g264618264644_ _g264619264647_))))) (let () (declare (not safe)) - (_g261923261949_ _g261924261952_))) + (_g264618264644_ _g264619264647_))) (let () (declare (not safe)) - (_g261923261949_ _g261924261952_))) + (_g264618264644_ _g264619264647_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g261923261949_ - _g261924261952_))))) + (_g264618264644_ + _g264619264647_))))) (let () (declare (not safe)) - (_g261923261949_ - _g261924261952_)))))) + (_g264618264644_ + _g264619264647_)))))) (declare (not safe)) - (_g261922262050_ _kont261920_))))) + (_g264617264745_ _kont264615_))))) (if (let () (declare (not safe)) - (##pair? _block261885261910_)) - (let ((_tl261902262175_ + (##pair? _block264580264605_)) + (let ((_tl264597264870_ (let () (declare (not safe)) - (##cdr _block261885261910_))) - (_hd261901262173_ + (##cdr _block264580264605_))) + (_hd264596264868_ (let () (declare (not safe)) - (##car _block261885261910_)))) + (##car _block264580264605_)))) (if (let () (declare (not safe)) - (##pair? _tl261902262175_)) - (let ((_tl261904262182_ + (##pair? _tl264597264870_)) + (let ((_tl264599264877_ (let () (declare (not safe)) - (##cdr _tl261902262175_))) - (_hd261903262180_ + (##cdr _tl264597264870_))) + (_hd264598264875_ (let () (declare (not safe)) - (##car _tl261902262175_)))) + (##car _tl264597264870_)))) (if (let () (declare (not safe)) - (##eq? _hd261903262180_ 'restart:)) + (##eq? _hd264598264875_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl261904262182_)) - (let ((_tl261906262187_ + (##pair? _tl264599264877_)) + (let ((_tl264601264882_ (let () (declare (not safe)) - (##cdr _tl261904262182_))) - (_hd261905262185_ + (##cdr _tl264599264877_))) + (_hd264600264880_ (let () (declare (not safe)) - (##car _tl261904262182_)))) + (##car _tl264599264877_)))) (if (let () (declare (not safe)) - (##pair? _tl261906262187_)) - (let ((_tl261908262194_ + (##pair? _tl264601264882_)) + (let ((_tl264603264889_ (let () (declare (not safe)) - (##cdr _tl261906262187_))) - (_hd261907262192_ + (##cdr _tl264601264882_))) + (_hd264602264887_ (let () (declare (not safe)) - (##car _tl261906262187_)))) + (##car _tl264601264882_)))) (if (let () (declare (not safe)) - (##null? _tl261908262194_)) - (let ((_name262178_ - _hd261901262173_) - (_kont262190_ - _hd261905262185_) - (_assert262197_ - _hd261907262192_)) + (##null? _tl264603264889_)) + (let ((_name264873_ + _hd264596264868_) + (_kont264885_ + _hd264600264880_) + (_assert264892_ + _hd264602264887_)) (let () (declare (not safe)) - (_K261900262170_ - _assert262197_ - _kont262190_ - _name262178_))) + (_K264595264865_ + _assert264892_ + _kont264885_ + _name264873_))) (let () (declare (not safe)) - (_E261888261914_)))) + (_E264583264609_)))) (let () (declare (not safe)) - (_E261888261914_)))) + (_E264583264609_)))) (let () (declare (not safe)) - (_E261888261914_))) + (_E264583264609_))) (if (let () (declare (not safe)) - (##eq? _hd261903262180_ + (##eq? _hd264598264875_ 'continue:)) (if (let () (declare (not safe)) - (##pair? _tl261904262182_)) - (let ((_tl261895262070_ + (##pair? _tl264599264877_)) + (let ((_tl264590264765_ (let () (declare (not safe)) - (##cdr _tl261904262182_))) - (_hd261894262068_ + (##cdr _tl264599264877_))) + (_hd264589264763_ (let () (declare (not safe)) - (##car _tl261904262182_)))) + (##car _tl264599264877_)))) (if (let () (declare (not safe)) - (##pair? _tl261895262070_)) - (let ((_tl261897262077_ + (##pair? _tl264590264765_)) + (let ((_tl264592264772_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl261895262070_))) - (_hd261896262075_ - (let () (declare (not safe)) (##car _tl261895262070_)))) - (if (let () (declare (not safe)) (##pair? _tl261897262077_)) - (let ((_tl261899262084_ + (##cdr _tl264590264765_))) + (_hd264591264770_ + (let () (declare (not safe)) (##car _tl264590264765_)))) + (if (let () (declare (not safe)) (##pair? _tl264592264772_)) + (let ((_tl264594264779_ (let () (declare (not safe)) - (##cdr _tl261897262077_))) - (_hd261898262082_ + (##cdr _tl264592264772_))) + (_hd264593264777_ (let () (declare (not safe)) - (##car _tl261897262077_)))) + (##car _tl264592264772_)))) (if (let () (declare (not safe)) - (##null? _tl261899262084_)) - (let ((_name262061_ _hd261901262173_) - (_kont262073_ _hd261894262068_) - (_assert262080_ _hd261896262075_) - (_bind262087_ _hd261898262082_)) + (##null? _tl264594264779_)) + (let ((_name264756_ _hd264596264868_) + (_kont264768_ _hd264589264763_) + (_assert264775_ _hd264591264770_) + (_bind264782_ _hd264593264777_)) (let () (declare (not safe)) - (_K261889262053_ - _bind262087_ - _assert262080_ - _kont262073_ - _name262061_))) - (let () (declare (not safe)) (_E261888261914_)))) - (let () (declare (not safe)) (_E261888261914_)))) - (let () (declare (not safe)) (_E261888261914_)))) + (_K264584264748_ + _bind264782_ + _assert264775_ + _kont264768_ + _name264756_))) + (let () (declare (not safe)) (_E264583264609_)))) + (let () (declare (not safe)) (_E264583264609_)))) + (let () (declare (not safe)) (_E264583264609_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E261888261914_))) + (_E264583264609_))) (let () (declare (not safe)) - (_E261888261914_))))) + (_E264583264609_))))) (let () (declare (not safe)) - (_E261888261914_)))) + (_E264583264609_)))) (let () (declare (not safe)) - (_E261888261914_)))))))) - (if (let () (declare (not safe)) (##pair? _rest261823261831_)) - (let ((_hd261828262202_ + (_E264583264609_)))))))) + (if (let () (declare (not safe)) (##pair? _rest264518264526_)) + (let ((_hd264523264897_ (let () (declare (not safe)) - (##car _rest261823261831_))) - (_tl261829262204_ + (##car _rest264518264526_))) + (_tl264524264899_ (let () (declare (not safe)) - (##cdr _rest261823261831_)))) - (let* ((_block262207_ _hd261828262202_) - (_rest262209_ _tl261829262204_)) + (##cdr _rest264518264526_)))) + (let* ((_block264902_ _hd264523264897_) + (_rest264904_ _tl264524264899_)) (declare (not safe)) - (_K261827262199_ _rest262209_ _block262207_))) - (let () (declare (not safe)) (_else261825261880_))))))) + (_K264522264894_ _rest264904_ _block264902_))) + (let () (declare (not safe)) (_else264520264575_))))))) (define gxc#optimize-match-block - (lambda (_body256450_ _assert256451_ _bind256452_ _blocks256453_) - (letrec* ((_env-assert256688_ '()) - (_env-type256689_ '()) - (_env-bind256690_ '()) - (_in-splice?256691_ '#f) - (_do-assert256692_ - (lambda (_assert261740_ _K261741_) - (if (let () (declare (not safe)) (pair? _assert261740_)) - (let _lp261743_ ((_rest261745_ _assert261740_) - (_env-assert261746_ - _env-assert256688_) - (_env-type261747_ _env-type256689_)) - (let* ((_rest261748261756_ _rest261745_) - (_else261750261764_ + (lambda (_body259145_ _assert259146_ _bind259147_ _blocks259148_) + (letrec* ((_env-assert259383_ '()) + (_env-type259384_ '()) + (_env-bind259385_ '()) + (_in-splice?259386_ '#f) + (_do-assert259387_ + (lambda (_assert264435_ _K264436_) + (if (let () (declare (not safe)) (pair? _assert264435_)) + (let _lp264438_ ((_rest264440_ _assert264435_) + (_env-assert264441_ + _env-assert259383_) + (_env-type264442_ _env-type259384_)) + (let* ((_rest264443264451_ _rest264440_) + (_else264445264459_ (lambda () (let () (declare (not safe)) - (_do-assert!256698_ - _env-assert261746_ - _env-type261747_ - _K261741_)))) - (_K261752261805_ - (lambda (_rest261767_ _assert261768_) - (let* ((_assert261769261776_ - _assert261768_) - (_E261771261780_ + (_do-assert!259393_ + _env-assert264441_ + _env-type264442_ + _K264436_)))) + (_K264447264500_ + (lambda (_rest264462_ _assert264463_) + (let* ((_assert264464264471_ + _assert264463_) + (_E264466264475_ (lambda () (error '"No clause matching" - _assert261769261776_))) - (_K261772261793_ - (lambda (_val261783_ _expr261784_) - (let* ((_sexpr261786_ + _assert264464264471_))) + (_K264467264488_ + (lambda (_val264478_ _expr264479_) + (let* ((_sexpr264481_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr261784_))) - (_env-assert261788_ - (let ((__tmp271899 + _expr264479_))) + (_env-assert264483_ + (let ((__tmp274694 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _sexpr261786_ _val261783_)))) + (cons _sexpr264481_ _val264478_)))) (declare (not safe)) - (cons __tmp271899 _env-assert261746_))) - (_env-type261790_ + (cons __tmp274694 _env-assert264441_))) + (_env-type264485_ (let () (declare (not safe)) - (_fold-assert-type256694_ - _expr261784_ - _val261783_ - _env-type261747_)))) + (_fold-assert-type259389_ + _expr264479_ + _val264478_ + _env-type264442_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp261743_ - _rest261767_ - _env-assert261788_ - _env-type261790_)))))) + (_lp264438_ + _rest264462_ + _env-assert264483_ + _env-type264485_)))))) (if (let () (declare (not safe)) - (##pair? _assert261769261776_)) - (let ((_hd261773261796_ + (##pair? _assert264464264471_)) + (let ((_hd264468264491_ (let () (declare (not safe)) - (##car _assert261769261776_))) - (_tl261774261798_ + (##car _assert264464264471_))) + (_tl264469264493_ (let () (declare (not safe)) - (##cdr _assert261769261776_)))) - (let* ((_expr261801_ - _hd261773261796_) - (_val261803_ - _tl261774261798_)) + (##cdr _assert264464264471_)))) + (let* ((_expr264496_ + _hd264468264491_) + (_val264498_ + _tl264469264493_)) (declare (not safe)) - (_K261772261793_ - _val261803_ - _expr261801_))) + (_K264467264488_ + _val264498_ + _expr264496_))) (let () (declare (not safe)) - (_E261771261780_))))))) + (_E264466264475_))))))) (if (let () (declare (not safe)) - (##pair? _rest261748261756_)) - (let ((_hd261753261808_ + (##pair? _rest264443264451_)) + (let ((_hd264448264503_ (let () (declare (not safe)) - (##car _rest261748261756_))) - (_tl261754261810_ + (##car _rest264443264451_))) + (_tl264449264505_ (let () (declare (not safe)) - (##cdr _rest261748261756_)))) - (let* ((_assert261813_ _hd261753261808_) - (_rest261815_ _tl261754261810_)) + (##cdr _rest264443264451_)))) + (let* ((_assert264508_ _hd264448264503_) + (_rest264510_ _tl264449264505_)) (declare (not safe)) - (_K261752261805_ - _rest261815_ - _assert261813_))) + (_K264447264500_ + _rest264510_ + _assert264508_))) (let () (declare (not safe)) - (_else261750261764_))))) - (_K261741_)))) - (_predicate-type256693_ - (lambda (_id261685_) - (let* ((_sym261687_ + (_else264445264459_))))) + (_K264436_)))) + (_predicate-type259388_ + (lambda (_id264380_) + (let* ((_sym264382_ (let () (declare (not safe)) - (gxc#identifier-symbol _id261685_))) - (_$e261689_ _sym261687_)) - (let ((_default261691261722_ + (gxc#identifier-symbol _id264380_))) + (_$e264384_ _sym264382_)) + (let ((_default264386264417_ (lambda () - (let* ((_g261694261701_ + (let* ((_g264389264396_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _sym261687_))) - (_else261696261709_ (lambda () '#f)) - (_K261698261714_ - (lambda (_t261712_) + _sym264382_))) + (_else264391264404_ (lambda () '#f)) + (_K264393264409_ + (lambda (_t264407_) (let () (declare (not safe)) (gxc#optimizer-resolve-type - _t261712_))))) + _t264407_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g261694261701_ + _g264389264396_ 'gxc#!predicate::t)) - (let* ((_e261699261717_ + (let* ((_e264394264412_ (let () (declare (not safe)) (##unchecked-structure-ref - _g261694261701_ + _g264389264396_ '1 gxc#!type::t '#f))) - (_t261720_ _e261699261717_)) + (_t264415_ _e264394264412_)) (declare (not safe)) - (gxc#optimizer-resolve-type _t261720_)) + (gxc#optimizer-resolve-type _t264415_)) (let () (declare (not safe)) - (_else261696261709_)))))) - (_table261692261724_ + (_else264391264404_)))))) + (_table264387264419_ '#(#f (##box? . 3) #f @@ -4342,50 +4342,50 @@ #f #f #f))) - (if (let () (declare (not safe)) (symbol? _$e261689_)) - (let* ((_h261727_ + (if (let () (declare (not safe)) (symbol? _$e264384_)) + (let* ((_h264422_ (let () (declare (not safe)) - (##symbol-hash _$e261689_))) - (_ix261730_ + (##symbol-hash _$e264384_))) + (_ix264425_ (let () (declare (not safe)) - (##fxmodulo _h261727_ '63))) - (_q261733_ + (##fxmodulo _h264422_ '63))) + (_q264428_ (let () (declare (not safe)) (##vector-ref - _table261692261724_ - _ix261730_)))) - (if _q261733_ - (if (let ((__tmp271900 + _table264387264419_ + _ix264425_)))) + (if _q264428_ + (if (let ((__tmp274695 (let () (declare (not safe)) - (##car _q261733_)))) + (##car _q264428_)))) (declare (not safe)) - (eq? __tmp271900 _$e261689_)) - (let ((_x261737_ + (eq? __tmp274695 _$e264384_)) + (let ((_x264432_ (let () (declare (not safe)) - (##cdr _q261733_)))) + (##cdr _q264428_)))) (if (let () (declare (not safe)) - (##fx< _x261737_ '5)) + (##fx< _x264432_ '5)) (if (let () (declare (not safe)) - (##fx< _x261737_ '2)) + (##fx< _x264432_ '2)) (if (let () (declare (not safe)) - (##fx= _x261737_ '0)) + (##fx= _x264432_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _x261737_ '2)) + (##fx= _x264432_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _x261737_ + (##fx= _x264432_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -4393,19 +4393,19 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _x261737_ '7)) + (##fx< _x264432_ '7)) (if (let () (declare (not safe)) - (##fx= _x261737_ '5)) + (##fx= _x264432_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _x261737_ '7)) + (##fx= _x264432_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _x261737_ + (##fx= _x264432_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box @@ -4413,5304 +4413,5304 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_default261691261722_))) + (_default264386264417_))) (let () (declare (not safe)) - (_default261691261722_)))) + (_default264386264417_)))) (let () (declare (not safe)) - (_default261691261722_))))))) - (_fold-assert-type256694_ - (lambda (_expr260633_ _val260634_ _env260635_) - (let* ((___stx269238269239_ _expr260633_) - (_g260643260822_ + (_default264386264417_))))))) + (_fold-assert-type259389_ + (lambda (_expr263328_ _val263329_ _env263330_) + (let* ((___stx272033272034_ _expr263328_) + (_g263338263517_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx269238269239_))))) - (let ((___kont269240269241_ - (lambda (_L261654_ _L261655_) - (let ((_$e261677_ + ___stx272033272034_))))) + (let ((___kont272035272036_ + (lambda (_L264349_ _L264350_) + (let ((_$e264372_ (let () (declare (not safe)) - (_predicate-type256693_ _L261655_)))) - (if _$e261677_ - ((lambda (_t261680_) - (let ((__tmp271901 - (let ((__tmp271902 - (let ((__tmp271903 + (_predicate-type259388_ _L264350_)))) + (if _$e264372_ + ((lambda (_t264375_) + (let ((__tmp274696 + (let ((__tmp274697 + (let ((__tmp274698 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _val260634_ '())))) + (cons _val263329_ '())))) (declare (not safe)) - (cons _t261680_ __tmp271903)))) + (cons _t264375_ __tmp274698)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L261654_ - __tmp271902)))) + (cons _L264349_ + __tmp274697)))) (declare (not safe)) - (cons __tmp271901 _env260635_))) - _$e261677_) - _env260635_)))) - (___kont269242269243_ - (lambda (_L261344_ _L261345_ _L261346_) - (let ((_$e261371_ + (cons __tmp274696 _env263330_))) + _$e264372_) + _env263330_)))) + (___kont272037272038_ + (lambda (_L264039_ _L264040_ _L264041_) + (let ((_$e264066_ (let () (declare (not safe)) - (gxc#identifier-symbol _L261346_)))) + (gxc#identifier-symbol _L264041_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e261371_)) + (eq? '##fx= _$e264066_)) (let () (declare (not safe)) - (eq? 'fx= _$e261371_))) - (let* ((___stx269144269145_ _L261345_) - (_g261378261407_ + (eq? 'fx= _$e264066_))) + (let* ((___stx271939271940_ _L264040_) + (_g264073264102_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx269144269145_))))) - (let ((___kont269146269147_ - (lambda (_L261475_ _L261476_) - (let ((_$e261501_ + ___stx271939271940_))))) + (let ((___kont271941271942_ + (lambda (_L264170_ _L264171_) + (let ((_$e264196_ (let () (declare (not safe)) - (_countf-symbol256695_ - _L261476_)))) - (if _$e261501_ - ((lambda (_sym261504_) - (let ((__tmp271909 + (_countf-symbol259390_ + _L264171_)))) + (if _$e264196_ + ((lambda (_sym264199_) + (let ((__tmp274704 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271910 - (let ((__tmp271911 - (let ((__tmp271913 + (let ((__tmp274705 + (let ((__tmp274706 + (let ((__tmp274708 (let () (declare (not safe)) - (gx#stx-e _L261344_))) - (__tmp271912 + (gx#stx-e _L264039_))) + (__tmp274707 (let () (declare (not safe)) - (cons _val260634_ '())))) + (cons _val263329_ '())))) (declare (not safe)) - (cons __tmp271913 __tmp271912)))) + (cons __tmp274708 __tmp274707)))) (declare (not safe)) - (cons _sym261504_ __tmp271911)))) + (cons _sym264199_ __tmp274706)))) (declare (not safe)) - (cons _L261475_ __tmp271910)))) + (cons _L264170_ __tmp274705)))) (declare (not safe)) - (cons __tmp271909 _env260635_))) - _$e261501_) - _env260635_)))) + (cons __tmp274704 _env263330_))) + _$e264196_) + _env263330_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269148269149_ - (lambda () _env260635_))) + (___kont271943271944_ + (lambda () _env263330_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx269144269145_)) - (let ((_e261384261419_ + ___stx271939271940_)) + (let ((_e264079264114_ (let () (declare (not safe)) (gx#stx-e - ___stx269144269145_)))) - (let ((_tl261382261424_ + ___stx271939271940_)))) + (let ((_tl264077264119_ (let () (declare (not safe)) - (##cdr _e261384261419_))) - (_hd261383261422_ + (##cdr _e264079264114_))) + (_hd264078264117_ (let () (declare (not safe)) - (##car _e261384261419_)))) + (##car _e264079264114_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd261383261422_)) + _hd264078264117_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd261383261422_)) + _hd264078264117_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl261382261424_)) - (let ((_e261387261427_ + (gx#stx-pair? _tl264077264119_)) + (let ((_e264082264122_ (let () (declare (not safe)) - (gx#stx-e _tl261382261424_)))) - (let ((_tl261385261432_ + (gx#stx-e _tl264077264119_)))) + (let ((_tl264080264127_ (let () (declare (not safe)) - (##cdr _e261387261427_))) - (_hd261386261430_ + (##cdr _e264082264122_))) + (_hd264081264125_ (let () (declare (not safe)) - (##car _e261387261427_)))) + (##car _e264082264122_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261386261430_)) - (let ((_e261390261435_ + (gx#stx-pair? _hd264081264125_)) + (let ((_e264085264130_ (let () (declare (not safe)) - (gx#stx-e _hd261386261430_)))) - (let ((_tl261388261440_ + (gx#stx-e _hd264081264125_)))) + (let ((_tl264083264135_ (let () (declare (not safe)) - (##cdr _e261390261435_))) - (_hd261389261438_ + (##cdr _e264085264130_))) + (_hd264084264133_ (let () (declare (not safe)) - (##car _e261390261435_)))) + (##car _e264085264130_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261389261438_)) + (gx#identifier? _hd264084264133_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd261389261438_)) + _hd264084264133_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261388261440_)) - (let ((_e261393261443_ + _tl264083264135_)) + (let ((_e264088264138_ (let () (declare (not safe)) (gx#stx-e - _tl261388261440_)))) - (let ((_tl261391261448_ + _tl264083264135_)))) + (let ((_tl264086264143_ (let () (declare (not safe)) - (##cdr _e261393261443_))) - (_hd261392261446_ + (##cdr _e264088264138_))) + (_hd264087264141_ (let () (declare (not safe)) - (##car _e261393261443_)))) + (##car _e264088264138_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261391261448_)) + _tl264086264143_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261385261432_)) - (let ((_e261396261451_ + _tl264080264127_)) + (let ((_e264091264146_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl261385261432_)))) - (let ((_tl261394261456_ + (gx#stx-e _tl264080264127_)))) + (let ((_tl264089264151_ (let () (declare (not safe)) - (##cdr _e261396261451_))) - (_hd261395261454_ + (##cdr _e264091264146_))) + (_hd264090264149_ (let () (declare (not safe)) - (##car _e261396261451_)))) + (##car _e264091264146_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261395261454_)) - (let ((_e261399261459_ + (gx#stx-pair? _hd264090264149_)) + (let ((_e264094264154_ (let () (declare (not safe)) - (gx#stx-e _hd261395261454_)))) - (let ((_tl261397261464_ + (gx#stx-e _hd264090264149_)))) + (let ((_tl264092264159_ (let () (declare (not safe)) - (##cdr _e261399261459_))) - (_hd261398261462_ + (##cdr _e264094264154_))) + (_hd264093264157_ (let () (declare (not safe)) - (##car _e261399261459_)))) + (##car _e264094264154_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261398261462_)) + (gx#identifier? _hd264093264157_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd261398261462_)) + (gx#stx-eq? '%#ref _hd264093264157_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261397261464_)) - (let ((_e261402261467_ + (gx#stx-pair? _tl264092264159_)) + (let ((_e264097264162_ (let () (declare (not safe)) (gx#stx-e - _tl261397261464_)))) - (let ((_tl261400261472_ + _tl264092264159_)))) + (let ((_tl264095264167_ (let () (declare (not safe)) - (##cdr _e261402261467_))) - (_hd261401261470_ + (##cdr _e264097264162_))) + (_hd264096264165_ (let () (declare (not safe)) - (##car _e261402261467_)))) + (##car _e264097264162_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261400261472_)) + _tl264095264167_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl261394261456_)) - (___kont269146269147_ - _hd261401261470_ - _hd261392261446_) - (___kont269148269149_)) - (___kont269148269149_)))) - (___kont269148269149_)) - (___kont269148269149_)) - (___kont269148269149_)))) - (___kont269148269149_)))) - (___kont269148269149_)) - (___kont269148269149_)))) + _tl264089264151_)) + (___kont271941271942_ + _hd264096264165_ + _hd264087264141_) + (___kont271943271944_)) + (___kont271943271944_)))) + (___kont271943271944_)) + (___kont271943271944_)) + (___kont271943271944_)))) + (___kont271943271944_)))) + (___kont271943271944_)) + (___kont271943271944_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269148269149_)) - (___kont269148269149_)) - (___kont269148269149_)))) - (___kont269148269149_)))) - (___kont269148269149_)) - (___kont269148269149_)) - (___kont269148269149_)))) + (___kont271943271944_)) + (___kont271943271944_)) + (___kont271943271944_)))) + (___kont271943271944_)))) + (___kont271943271944_)) + (___kont271943271944_)) + (___kont271943271944_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269148269149_)))) + (___kont271943271944_)))) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e261371_)) + (eq? '##eq? _$e264066_)) (let () (declare (not safe)) - (eq? 'eq? _$e261371_)) + (eq? 'eq? _$e264066_)) (let () (declare (not safe)) - (eq? '##eqv? _$e261371_)) + (eq? '##eqv? _$e264066_)) (let () (declare (not safe)) - (eq? 'eqv? _$e261371_)) + (eq? 'eqv? _$e264066_)) (let () (declare (not safe)) - (eq? '##equal? _$e261371_)) + (eq? '##equal? _$e264066_)) (let () (declare (not safe)) - (eq? 'equal? _$e261371_)) + (eq? 'equal? _$e264066_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e261371_)) + _$e264066_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e261371_))) - ((lambda (_sym261530_) - (let* ((_sym261532_ + (eq? 'gx#stx-eq? _$e264066_))) + ((lambda (_sym264225_) + (let* ((_sym264227_ (let () (declare (not safe)) - (_eqf-symbol256696_ - _sym261530_))) - (___stx269212269213_ - _L261345_) - (_g261535261548_ + (_eqf-symbol259391_ + _sym264225_))) + (___stx272007272008_ + _L264040_) + (_g264230264243_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx269212269213_))))) - (let ((___kont269214269215_ - (lambda (_L261576_) - (let ((__tmp271904 - (let ((__tmp271905 + ___stx272007272008_))))) + (let ((___kont272009272010_ + (lambda (_L264271_) + (let ((__tmp274699 + (let ((__tmp274700 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271906 - (let ((__tmp271908 + (let ((__tmp274701 + (let ((__tmp274703 (let () (declare (not safe)) - (gx#stx-e _L261344_))) - (__tmp271907 + (gx#stx-e _L264039_))) + (__tmp274702 (let () (declare (not safe)) - (cons _val260634_ '())))) + (cons _val263329_ '())))) (declare (not safe)) - (cons __tmp271908 __tmp271907)))) + (cons __tmp274703 __tmp274702)))) (declare (not safe)) - (cons _sym261532_ __tmp271906)))) + (cons _sym264227_ __tmp274701)))) (declare (not safe)) - (cons _L261576_ __tmp271905)))) + (cons _L264271_ __tmp274700)))) (declare (not safe)) - (cons __tmp271904 _env260635_)))) + (cons __tmp274699 _env263330_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269216269217_ - (lambda () _env260635_))) + (___kont272011272012_ + (lambda () _env263330_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx269212269213_)) - (let ((_e261540261560_ + ___stx272007272008_)) + (let ((_e264235264255_ (let () (declare (not safe)) (gx#stx-e - ___stx269212269213_)))) - (let ((_tl261538261565_ + ___stx272007272008_)))) + (let ((_tl264233264260_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e261540261560_))) - (_hd261539261563_ - (let () (declare (not safe)) (##car _e261540261560_)))) + (##cdr _e264235264255_))) + (_hd264234264258_ + (let () (declare (not safe)) (##car _e264235264255_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261539261563_)) + (gx#identifier? _hd264234264258_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd261539261563_)) + (gx#stx-eq? '%#ref _hd264234264258_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261538261565_)) - (let ((_e261543261568_ + (gx#stx-pair? _tl264233264260_)) + (let ((_e264238264263_ (let () (declare (not safe)) - (gx#stx-e _tl261538261565_)))) - (let ((_tl261541261573_ + (gx#stx-e _tl264233264260_)))) + (let ((_tl264236264268_ (let () (declare (not safe)) - (##cdr _e261543261568_))) - (_hd261542261571_ + (##cdr _e264238264263_))) + (_hd264237264266_ (let () (declare (not safe)) - (##car _e261543261568_)))) + (##car _e264238264263_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261541261573_)) - (___kont269214269215_ _hd261542261571_) - (___kont269216269217_)))) - (___kont269216269217_)) - (___kont269216269217_)) - (___kont269216269217_)))) + (gx#stx-null? _tl264236264268_)) + (___kont272009272010_ _hd264237264266_) + (___kont272011272012_)))) + (___kont272011272012_)) + (___kont272011272012_)) + (___kont272011272012_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269216269217_))))) - _$e261371_) - _env260635_))))) - (___kont269244269245_ - (lambda (_L261248_ _L261249_ _L261250_) - (let ((__tmp271914 - (let ((__tmp271924 + (___kont272011272012_))))) + _$e264066_) + _env263330_))))) + (___kont272039272040_ + (lambda (_L263943_ _L263944_ _L263945_) + (let ((__tmp274709 + (let ((__tmp274719 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp271915 - (let ((__tmp271921 - (let ((__tmp271923 + (__tmp274710 + (let ((__tmp274716 + (let ((__tmp274718 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp271922 + (__tmp274717 (let () (declare (not safe)) - (cons _L261250_ + (cons _L263945_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp271923 __tmp271922))) + (cons __tmp274718 __tmp274717))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp271916 - (let ((__tmp271917 - (let ((__tmp271918 + (__tmp274711 + (let ((__tmp274712 + (let ((__tmp274713 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271920 + (let ((__tmp274715 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp271919 + (__tmp274714 (let () (declare (not safe)) - (cons _L261249_ '())))) + (cons _L263944_ '())))) (declare (not safe)) - (cons __tmp271920 __tmp271919)))) + (cons __tmp274715 __tmp274714)))) (declare (not safe)) - (cons __tmp271918 '())))) + (cons __tmp274713 '())))) (declare (not safe)) - (cons _L261248_ __tmp271917)))) + (cons _L263943_ __tmp274712)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp271921 - __tmp271916)))) + (cons __tmp274716 + __tmp274711)))) (declare (not safe)) - (cons __tmp271924 __tmp271915)))) + (cons __tmp274719 __tmp274710)))) (declare (not safe)) - (_fold-assert-type256694_ - __tmp271914 - _val260634_ - _env260635_)))) - (___kont269246269247_ - (lambda (_L261138_ _L261139_ _L261140_) - (let ((_$e261169_ + (_fold-assert-type259389_ + __tmp274709 + _val263329_ + _env263330_)))) + (___kont272041272042_ + (lambda (_L263833_ _L263834_ _L263835_) + (let ((_$e263864_ (let () (declare (not safe)) - (gxc#identifier-symbol _L261140_)))) + (gxc#identifier-symbol _L263835_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e261169_)) + _$e263864_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e261169_))) - ((lambda (_sym261175_) - (let* ((_sym261177_ + (eq? 'gx#stx-eq? _$e263864_))) + ((lambda (_sym263870_) + (let* ((_sym263872_ (let () (declare (not safe)) - (_eqf-symbol256696_ - _sym261175_))) - (__tmp271925 - (let ((__tmp271926 - (let ((__tmp271927 - (let ((__tmp271928 + (_eqf-symbol259391_ + _sym263870_))) + (__tmp274720 + (let ((__tmp274721 + (let ((__tmp274722 + (let ((__tmp274723 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _val260634_ '())))) + (cons _val263329_ '())))) (declare (not safe)) - (cons _L261138_ __tmp271928)))) + (cons _L263833_ __tmp274723)))) (declare (not safe)) - (cons _sym261177_ __tmp271927)))) + (cons _sym263872_ __tmp274722)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L261139_ - __tmp271926)))) + (cons _L263834_ + __tmp274721)))) (declare (not safe)) - (cons __tmp271925 _env260635_))) - _$e261169_) - _env260635_)))) - (___kont269248269249_ - (lambda (_L261022_ _L261023_ _L261024_) - (let ((__tmp271929 - (let ((__tmp271942 + (cons __tmp274720 _env263330_))) + _$e263864_) + _env263330_)))) + (___kont272043272044_ + (lambda (_L263717_ _L263718_ _L263719_) + (let ((__tmp274724 + (let ((__tmp274737 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp271930 - (let ((__tmp271939 - (let ((__tmp271941 + (__tmp274725 + (let ((__tmp274734 + (let ((__tmp274736 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp271940 + (__tmp274735 (let () (declare (not safe)) - (cons _L261024_ + (cons _L263719_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp271941 __tmp271940))) + (cons __tmp274736 __tmp274735))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp271931 - (let ((__tmp271936 - (let ((__tmp271938 + (__tmp274726 + (let ((__tmp274731 + (let ((__tmp274733 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp271937 - (let () (declare (not safe)) (cons _L261022_ '())))) + (__tmp274732 + (let () (declare (not safe)) (cons _L263717_ '())))) (declare (not safe)) - (cons __tmp271938 __tmp271937))) - (__tmp271932 - (let ((__tmp271933 - (let ((__tmp271935 + (cons __tmp274733 __tmp274732))) + (__tmp274727 + (let ((__tmp274728 + (let ((__tmp274730 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp271934 + (__tmp274729 (let () (declare (not safe)) - (cons _L261023_ '())))) + (cons _L263718_ '())))) (declare (not safe)) - (cons __tmp271935 __tmp271934)))) + (cons __tmp274730 __tmp274729)))) (declare (not safe)) - (cons __tmp271933 '())))) + (cons __tmp274728 '())))) (declare (not safe)) - (cons __tmp271936 __tmp271932)))) + (cons __tmp274731 __tmp274727)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp271939 - __tmp271931)))) + (cons __tmp274734 + __tmp274726)))) (declare (not safe)) - (cons __tmp271942 __tmp271930)))) + (cons __tmp274737 __tmp274725)))) (declare (not safe)) - (_fold-assert-type256694_ - __tmp271929 - _val260634_ - _env260635_)))) - (___kont269250269251_ - (lambda (_L260906_ _L260907_ _L260908_) - (let ((__tmp271943 + (_fold-assert-type259389_ + __tmp274724 + _val263329_ + _env263330_)))) + (___kont272045272046_ + (lambda (_L263601_ _L263602_ _L263603_) + (let ((__tmp274738 (let () (declare (not safe)) (gxc#apply-expression-subst - _L260907_ - _L260908_ - _L260906_)))) + _L263602_ + _L263603_ + _L263601_)))) (declare (not safe)) - (_fold-assert-type256694_ - __tmp271943 - _val260634_ - _env260635_)))) - (___kont269252269253_ (lambda () _env260635_))) + (_fold-assert-type259389_ + __tmp274738 + _val263329_ + _env263330_)))) + (___kont272047272048_ (lambda () _env263330_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx269238269239_)) - (let ((_e260649261598_ + (gx#stx-pair? ___stx272033272034_)) + (let ((_e263344264293_ (let () (declare (not safe)) - (gx#stx-e ___stx269238269239_)))) - (let ((_tl260647261603_ + (gx#stx-e ___stx272033272034_)))) + (let ((_tl263342264298_ (let () (declare (not safe)) - (##cdr _e260649261598_))) - (_hd260648261601_ + (##cdr _e263344264293_))) + (_hd263343264296_ (let () (declare (not safe)) - (##car _e260649261598_)))) + (##car _e263344264293_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260648261601_)) + (gx#identifier? _hd263343264296_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd260648261601_)) + _hd263343264296_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260647261603_)) - (let ((_e260652261606_ + (gx#stx-pair? _tl263342264298_)) + (let ((_e263347264301_ (let () (declare (not safe)) (gx#stx-e - _tl260647261603_)))) - (let ((_tl260650261611_ + _tl263342264298_)))) + (let ((_tl263345264306_ (let () (declare (not safe)) - (##cdr _e260652261606_))) - (_hd260651261609_ + (##cdr _e263347264301_))) + (_hd263346264304_ (let () (declare (not safe)) - (##car _e260652261606_)))) + (##car _e263347264301_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd260651261609_)) - (let ((_e260655261614_ + _hd263346264304_)) + (let ((_e263350264309_ (let () (declare (not safe)) (gx#stx-e - _hd260651261609_)))) - (let ((_tl260653261619_ + _hd263346264304_)))) + (let ((_tl263348264314_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e260655261614_))) - (_hd260654261617_ - (let () (declare (not safe)) (##car _e260655261614_)))) + (##cdr _e263350264309_))) + (_hd263349264312_ + (let () (declare (not safe)) (##car _e263350264309_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260654261617_)) + (gx#identifier? _hd263349264312_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd260654261617_)) + (gx#stx-eq? '%#ref _hd263349264312_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260653261619_)) - (let ((_e260658261622_ + (gx#stx-pair? _tl263348264314_)) + (let ((_e263353264317_ (let () (declare (not safe)) - (gx#stx-e _tl260653261619_)))) - (let ((_tl260656261627_ + (gx#stx-e _tl263348264314_)))) + (let ((_tl263351264322_ (let () (declare (not safe)) - (##cdr _e260658261622_))) - (_hd260657261625_ + (##cdr _e263353264317_))) + (_hd263352264320_ (let () (declare (not safe)) - (##car _e260658261622_)))) + (##car _e263353264317_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260656261627_)) + (gx#stx-null? _tl263351264322_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260650261611_)) - (let ((_e260661261630_ + (gx#stx-pair? _tl263345264306_)) + (let ((_e263356264325_ (let () (declare (not safe)) (gx#stx-e - _tl260650261611_)))) - (let ((_tl260659261635_ + _tl263345264306_)))) + (let ((_tl263354264330_ (let () (declare (not safe)) - (##cdr _e260661261630_))) - (_hd260660261633_ + (##cdr _e263356264325_))) + (_hd263355264328_ (let () (declare (not safe)) - (##car _e260661261630_)))) + (##car _e263356264325_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd260660261633_)) - (let ((_e260664261638_ + _hd263355264328_)) + (let ((_e263359264333_ (let () (declare (not safe)) (gx#stx-e - _hd260660261633_)))) - (let ((_tl260662261643_ + _hd263355264328_)))) + (let ((_tl263357264338_ (let () (declare (not safe)) - (##cdr _e260664261638_))) - (_hd260663261641_ + (##cdr _e263359264333_))) + (_hd263358264336_ (let () (declare (not safe)) - (##car _e260664261638_)))) + (##car _e263359264333_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd260663261641_)) + _hd263358264336_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd260663261641_)) + (gx#stx-eq? '%#ref _hd263358264336_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260662261643_)) - (let ((_e260667261646_ + (gx#stx-pair? _tl263357264338_)) + (let ((_e263362264341_ (let () (declare (not safe)) - (gx#stx-e _tl260662261643_)))) - (let ((_tl260665261651_ + (gx#stx-e _tl263357264338_)))) + (let ((_tl263360264346_ (let () (declare (not safe)) - (##cdr _e260667261646_))) - (_hd260666261649_ + (##cdr _e263362264341_))) + (_hd263361264344_ (let () (declare (not safe)) - (##car _e260667261646_)))) + (##car _e263362264341_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260665261651_)) + (gx#stx-null? _tl263360264346_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260659261635_)) - (___kont269240269241_ - _hd260666261649_ - _hd260657261625_) + (gx#stx-null? _tl263354264330_)) + (___kont272035272036_ + _hd263361264344_ + _hd263352264320_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260659261635_)) - (let ((_e260688261320_ + (gx#stx-pair? _tl263354264330_)) + (let ((_e263383264015_ (let () (declare (not safe)) (gx#stx-e - _tl260659261635_)))) - (let ((_tl260686261325_ + _tl263354264330_)))) + (let ((_tl263381264020_ (let () (declare (not safe)) - (##cdr _e260688261320_))) - (_hd260687261323_ + (##cdr _e263383264015_))) + (_hd263382264018_ (let () (declare (not safe)) - (##car _e260688261320_)))) + (##car _e263383264015_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd260687261323_)) - (let ((_e260691261328_ + _hd263382264018_)) + (let ((_e263386264023_ (let () (declare (not safe)) (gx#stx-e - _hd260687261323_)))) - (let ((_tl260689261333_ + _hd263382264018_)))) + (let ((_tl263384264028_ (let () (declare (not safe)) - (##cdr _e260691261328_))) - (_hd260690261331_ + (##cdr _e263386264023_))) + (_hd263385264026_ (let () (declare (not safe)) - (##car _e260691261328_)))) + (##car _e263386264023_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd260690261331_)) + _hd263385264026_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd260690261331_)) + (gx#stx-eq? '%#quote _hd263385264026_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260689261333_)) - (let ((_e260694261336_ + (gx#stx-pair? _tl263384264028_)) + (let ((_e263389264031_ (let () (declare (not safe)) - (gx#stx-e _tl260689261333_)))) - (let ((_tl260692261341_ + (gx#stx-e _tl263384264028_)))) + (let ((_tl263387264036_ (let () (declare (not safe)) - (##cdr _e260694261336_))) - (_hd260693261339_ + (##cdr _e263389264031_))) + (_hd263388264034_ (let () (declare (not safe)) - (##car _e260694261336_)))) + (##car _e263389264031_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260692261341_)) + (gx#stx-null? _tl263387264036_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260686261325_)) - (___kont269242269243_ - _hd260693261339_ - _hd260660261633_ - _hd260657261625_) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)) + (gx#stx-null? _tl263381264020_)) + (___kont272037272038_ + _hd263388264034_ + _hd263355264328_ + _hd263352264320_) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd260690261331_)) + (gx#stx-eq? '%#quote-syntax _hd263385264026_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260689261333_)) - (let ((_e260754261130_ + (gx#stx-pair? _tl263384264028_)) + (let ((_e263449263825_ (let () (declare (not safe)) - (gx#stx-e _tl260689261333_)))) - (let ((_tl260752261135_ + (gx#stx-e _tl263384264028_)))) + (let ((_tl263447263830_ (let () (declare (not safe)) - (##cdr _e260754261130_))) - (_hd260753261133_ + (##cdr _e263449263825_))) + (_hd263448263828_ (let () (declare (not safe)) - (##car _e260754261130_)))) + (##car _e263449263825_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260752261135_)) + (gx#stx-null? _tl263447263830_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260686261325_)) - (___kont269246269247_ - _hd260753261133_ - _hd260666261649_ - _hd260657261625_) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)) - (___kont269252269253_))) - (___kont269252269253_)))) + (gx#stx-null? _tl263381264020_)) + (___kont272041272042_ + _hd263448263828_ + _hd263361264344_ + _hd263352264320_) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)) + (___kont272047272048_))) + (___kont272047272048_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269252269253_)))) - (___kont269252269253_))) + (___kont272047272048_)))) + (___kont272047272048_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260659261635_)) - (let ((_e260688261320_ + (gx#stx-pair? _tl263354264330_)) + (let ((_e263383264015_ (let () (declare (not safe)) - (gx#stx-e _tl260659261635_)))) - (let ((_tl260686261325_ + (gx#stx-e _tl263354264330_)))) + (let ((_tl263381264020_ (let () (declare (not safe)) - (##cdr _e260688261320_))) - (_hd260687261323_ + (##cdr _e263383264015_))) + (_hd263382264018_ (let () (declare (not safe)) - (##car _e260688261320_)))) + (##car _e263383264015_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260687261323_)) - (let ((_e260691261328_ + (gx#stx-pair? _hd263382264018_)) + (let ((_e263386264023_ (let () (declare (not safe)) (gx#stx-e - _hd260687261323_)))) - (let ((_tl260689261333_ + _hd263382264018_)))) + (let ((_tl263384264028_ (let () (declare (not safe)) - (##cdr _e260691261328_))) - (_hd260690261331_ + (##cdr _e263386264023_))) + (_hd263385264026_ (let () (declare (not safe)) - (##car _e260691261328_)))) + (##car _e263386264023_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd260690261331_)) + _hd263385264026_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260690261331_)) + _hd263385264026_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl260689261333_)) - (let ((_e260694261336_ + (gx#stx-pair? _tl263384264028_)) + (let ((_e263389264031_ (let () (declare (not safe)) - (gx#stx-e _tl260689261333_)))) - (let ((_tl260692261341_ + (gx#stx-e _tl263384264028_)))) + (let ((_tl263387264036_ (let () (declare (not safe)) - (##cdr _e260694261336_))) - (_hd260693261339_ + (##cdr _e263389264031_))) + (_hd263388264034_ (let () (declare (not safe)) - (##car _e260694261336_)))) + (##car _e263389264031_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260692261341_)) + (gx#stx-null? _tl263387264036_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260686261325_)) - (___kont269242269243_ - _hd260693261339_ - _hd260660261633_ - _hd260657261625_) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)) - (___kont269252269253_)) + (gx#stx-null? _tl263381264020_)) + (___kont272037272038_ + _hd263388264034_ + _hd263355264328_ + _hd263352264320_) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)) + (___kont272047272048_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269252269253_)))) - (___kont269252269253_)))) - (___kont269252269253_))))) + (___kont272047272048_)))) + (___kont272047272048_)))) + (___kont272047272048_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260659261635_)) - (let ((_e260688261320_ + (gx#stx-pair? _tl263354264330_)) + (let ((_e263383264015_ (let () (declare (not safe)) - (gx#stx-e _tl260659261635_)))) - (let ((_tl260686261325_ + (gx#stx-e _tl263354264330_)))) + (let ((_tl263381264020_ (let () (declare (not safe)) - (##cdr _e260688261320_))) - (_hd260687261323_ + (##cdr _e263383264015_))) + (_hd263382264018_ (let () (declare (not safe)) - (##car _e260688261320_)))) + (##car _e263383264015_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260687261323_)) - (let ((_e260691261328_ + (gx#stx-pair? _hd263382264018_)) + (let ((_e263386264023_ (let () (declare (not safe)) - (gx#stx-e _hd260687261323_)))) - (let ((_tl260689261333_ + (gx#stx-e _hd263382264018_)))) + (let ((_tl263384264028_ (let () (declare (not safe)) - (##cdr _e260691261328_))) - (_hd260690261331_ + (##cdr _e263386264023_))) + (_hd263385264026_ (let () (declare (not safe)) - (##car _e260691261328_)))) + (##car _e263386264023_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd260690261331_)) + _hd263385264026_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260690261331_)) + _hd263385264026_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260689261333_)) - (let ((_e260694261336_ + _tl263384264028_)) + (let ((_e263389264031_ (let () (declare (not safe)) (gx#stx-e - _tl260689261333_)))) - (let ((_tl260692261341_ + _tl263384264028_)))) + (let ((_tl263387264036_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e260694261336_))) - (_hd260693261339_ - (let () (declare (not safe)) (##car _e260694261336_)))) + (##cdr _e263389264031_))) + (_hd263388264034_ + (let () (declare (not safe)) (##car _e263389264031_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260692261341_)) + (gx#stx-null? _tl263387264036_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260686261325_)) - (___kont269242269243_ - _hd260693261339_ - _hd260660261633_ - _hd260657261625_) - (___kont269252269253_)) - (___kont269252269253_)))) + (gx#stx-null? _tl263381264020_)) + (___kont272037272038_ + _hd263388264034_ + _hd263355264328_ + _hd263352264320_) + (___kont272047272048_)) + (___kont272047272048_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269252269253_)) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)))) - (___kont269252269253_))) + (___kont272047272048_)) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)))) + (___kont272047272048_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260659261635_)) - (let ((_e260688261320_ + (gx#stx-pair? _tl263354264330_)) + (let ((_e263383264015_ (let () (declare (not safe)) - (gx#stx-e _tl260659261635_)))) - (let ((_tl260686261325_ + (gx#stx-e _tl263354264330_)))) + (let ((_tl263381264020_ (let () (declare (not safe)) - (##cdr _e260688261320_))) - (_hd260687261323_ + (##cdr _e263383264015_))) + (_hd263382264018_ (let () (declare (not safe)) - (##car _e260688261320_)))) + (##car _e263383264015_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260687261323_)) - (let ((_e260691261328_ + (gx#stx-pair? _hd263382264018_)) + (let ((_e263386264023_ (let () (declare (not safe)) - (gx#stx-e _hd260687261323_)))) - (let ((_tl260689261333_ + (gx#stx-e _hd263382264018_)))) + (let ((_tl263384264028_ (let () (declare (not safe)) - (##cdr _e260691261328_))) - (_hd260690261331_ + (##cdr _e263386264023_))) + (_hd263385264026_ (let () (declare (not safe)) - (##car _e260691261328_)))) + (##car _e263386264023_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260690261331_)) + (gx#identifier? _hd263385264026_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260690261331_)) + _hd263385264026_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260689261333_)) - (let ((_e260694261336_ + _tl263384264028_)) + (let ((_e263389264031_ (let () (declare (not safe)) (gx#stx-e - _tl260689261333_)))) - (let ((_tl260692261341_ + _tl263384264028_)))) + (let ((_tl263387264036_ (let () (declare (not safe)) - (##cdr _e260694261336_))) - (_hd260693261339_ + (##cdr _e263389264031_))) + (_hd263388264034_ (let () (declare (not safe)) - (##car _e260694261336_)))) + (##car _e263389264031_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260692261341_)) + _tl263387264036_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl260686261325_)) - (___kont269242269243_ - _hd260693261339_ - _hd260660261633_ - _hd260657261625_) + (gx#stx-null? _tl263381264020_)) + (___kont272037272038_ + _hd263388264034_ + _hd263355264328_ + _hd263352264320_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd260663261641_)) + (gx#stx-eq? '%#quote _hd263358264336_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260662261643_)) - (let ((_e260718261232_ + (gx#stx-pair? _tl263357264338_)) + (let ((_e263413263927_ (let () (declare (not safe)) - (gx#stx-e _tl260662261643_)))) - (let ((_tl260716261237_ + (gx#stx-e _tl263357264338_)))) + (let ((_tl263411263932_ (let () (declare (not safe)) - (##cdr _e260718261232_))) - (_hd260717261235_ + (##cdr _e263413263927_))) + (_hd263412263930_ (let () (declare (not safe)) - (##car _e260718261232_)))) - (___kont269252269253_))) - (___kont269252269253_)) + (##car _e263413263927_)))) + (___kont272047272048_))) + (___kont272047272048_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd260663261641_)) + (gx#stx-eq? '%#quote-syntax _hd263358264336_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260662261643_)) - (let ((_e260778260990_ + (gx#stx-pair? _tl263357264338_)) + (let ((_e263473263685_ (let () (declare (not safe)) - (gx#stx-e _tl260662261643_)))) - (let ((_tl260776260995_ + (gx#stx-e _tl263357264338_)))) + (let ((_tl263471263690_ (let () (declare (not safe)) - (##cdr _e260778260990_))) - (_hd260777260993_ + (##cdr _e263473263685_))) + (_hd263472263688_ (let () (declare (not safe)) - (##car _e260778260990_)))) - (___kont269252269253_))) - (___kont269252269253_)) - (___kont269252269253_)))) + (##car _e263473263685_)))) + (___kont272047272048_))) + (___kont272047272048_)) + (___kont272047272048_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd260663261641_)) + (gx#stx-eq? '%#quote _hd263358264336_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260662261643_)) - (let ((_e260718261232_ + (gx#stx-pair? _tl263357264338_)) + (let ((_e263413263927_ (let () (declare (not safe)) - (gx#stx-e _tl260662261643_)))) - (let ((_tl260716261237_ + (gx#stx-e _tl263357264338_)))) + (let ((_tl263411263932_ (let () (declare (not safe)) - (##cdr _e260718261232_))) - (_hd260717261235_ + (##cdr _e263413263927_))) + (_hd263412263930_ (let () (declare (not safe)) - (##car _e260718261232_)))) + (##car _e263413263927_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260716261237_)) + (gx#stx-null? _tl263411263932_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260686261325_)) - (___kont269244269245_ - _hd260687261323_ - _hd260717261235_ - _hd260657261625_) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)) + (gx#stx-null? _tl263381264020_)) + (___kont272039272040_ + _hd263382264018_ + _hd263412263930_ + _hd263352264320_) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd260663261641_)) + (gx#stx-eq? '%#quote-syntax _hd263358264336_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260662261643_)) - (let ((_e260778260990_ + (gx#stx-pair? _tl263357264338_)) + (let ((_e263473263685_ (let () (declare (not safe)) - (gx#stx-e _tl260662261643_)))) - (let ((_tl260776260995_ + (gx#stx-e _tl263357264338_)))) + (let ((_tl263471263690_ (let () (declare (not safe)) - (##cdr _e260778260990_))) - (_hd260777260993_ + (##cdr _e263473263685_))) + (_hd263472263688_ (let () (declare (not safe)) - (##car _e260778260990_)))) - (___kont269252269253_))) - (___kont269252269253_)) - (___kont269252269253_)))))) + (##car _e263473263685_)))) + (___kont272047272048_))) + (___kont272047272048_)) + (___kont272047272048_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260663261641_)) + _hd263358264336_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260662261643_)) - (let ((_e260718261232_ + _tl263357264338_)) + (let ((_e263413263927_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl260662261643_)))) - (let ((_tl260716261237_ + (gx#stx-e _tl263357264338_)))) + (let ((_tl263411263932_ (let () (declare (not safe)) - (##cdr _e260718261232_))) - (_hd260717261235_ + (##cdr _e263413263927_))) + (_hd263412263930_ (let () (declare (not safe)) - (##car _e260718261232_)))) + (##car _e263413263927_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260716261237_)) + (gx#stx-null? _tl263411263932_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260686261325_)) - (___kont269244269245_ - _hd260687261323_ - _hd260717261235_ - _hd260657261625_) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)) + (gx#stx-null? _tl263381264020_)) + (___kont272039272040_ + _hd263382264018_ + _hd263412263930_ + _hd263352264320_) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd260663261641_)) + _hd263358264336_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl260662261643_)) - (let ((_e260778260990_ + (gx#stx-pair? _tl263357264338_)) + (let ((_e263473263685_ (let () (declare (not safe)) - (gx#stx-e _tl260662261643_)))) - (let ((_tl260776260995_ + (gx#stx-e _tl263357264338_)))) + (let ((_tl263471263690_ (let () (declare (not safe)) - (##cdr _e260778260990_))) - (_hd260777260993_ + (##cdr _e263473263685_))) + (_hd263472263688_ (let () (declare (not safe)) - (##car _e260778260990_)))) - (___kont269252269253_))) - (___kont269252269253_)) - (___kont269252269253_)))) + (##car _e263473263685_)))) + (___kont272047272048_))) + (___kont272047272048_)) + (___kont272047272048_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260663261641_)) + _hd263358264336_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260662261643_)) - (let ((_e260718261232_ + _tl263357264338_)) + (let ((_e263413263927_ (let () (declare (not safe)) (gx#stx-e - _tl260662261643_)))) - (let ((_tl260716261237_ + _tl263357264338_)))) + (let ((_tl263411263932_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e260718261232_))) - (_hd260717261235_ - (let () (declare (not safe)) (##car _e260718261232_)))) + (##cdr _e263413263927_))) + (_hd263412263930_ + (let () (declare (not safe)) (##car _e263413263927_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260716261237_)) + (gx#stx-null? _tl263411263932_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260686261325_)) - (___kont269244269245_ - _hd260687261323_ - _hd260717261235_ - _hd260657261625_) - (___kont269252269253_)) - (___kont269252269253_)))) + (gx#stx-null? _tl263381264020_)) + (___kont272039272040_ + _hd263382264018_ + _hd263412263930_ + _hd263352264320_) + (___kont272047272048_)) + (___kont272047272048_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269252269253_)) + (___kont272047272048_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd260663261641_)) + _hd263358264336_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260662261643_)) - (let ((_e260778260990_ + _tl263357264338_)) + (let ((_e263473263685_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl260662261643_)))) - (let ((_tl260776260995_ + (gx#stx-e _tl263357264338_)))) + (let ((_tl263471263690_ (let () (declare (not safe)) - (##cdr _e260778260990_))) - (_hd260777260993_ + (##cdr _e263473263685_))) + (_hd263472263688_ (let () (declare (not safe)) - (##car _e260778260990_)))) + (##car _e263473263685_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260776260995_)) + (gx#stx-null? _tl263471263690_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd260690261331_)) + (gx#stx-eq? '%#ref _hd263385264026_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260689261333_)) - (let ((_e260787261014_ + (gx#stx-pair? _tl263384264028_)) + (let ((_e263482263709_ (let () (declare (not safe)) - (gx#stx-e _tl260689261333_)))) - (let ((_tl260785261019_ + (gx#stx-e _tl263384264028_)))) + (let ((_tl263480263714_ (let () (declare (not safe)) - (##cdr _e260787261014_))) - (_hd260786261017_ + (##cdr _e263482263709_))) + (_hd263481263712_ (let () (declare (not safe)) - (##car _e260787261014_)))) + (##car _e263482263709_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260785261019_)) + (gx#stx-null? _tl263480263714_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260686261325_)) - (___kont269248269249_ - _hd260786261017_ - _hd260777260993_ - _hd260657261625_) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)) + (gx#stx-null? _tl263381264020_)) + (___kont272043272044_ + _hd263481263712_ + _hd263472263688_ + _hd263352264320_) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269252269253_)))) + (___kont272047272048_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260663261641_)) + _hd263358264336_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260662261643_)) - (let ((_e260718261232_ + _tl263357264338_)) + (let ((_e263413263927_ (let () (declare (not safe)) (gx#stx-e - _tl260662261643_)))) - (let ((_tl260716261237_ + _tl263357264338_)))) + (let ((_tl263411263932_ (let () (declare (not safe)) - (##cdr _e260718261232_))) - (_hd260717261235_ + (##cdr _e263413263927_))) + (_hd263412263930_ (let () (declare (not safe)) - (##car _e260718261232_)))) + (##car _e263413263927_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260716261237_)) + _tl263411263932_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl260686261325_)) - (___kont269244269245_ - _hd260687261323_ - _hd260717261235_ - _hd260657261625_) - (___kont269252269253_)) - (___kont269252269253_)))) + (gx#stx-null? _tl263381264020_)) + (___kont272039272040_ + _hd263382264018_ + _hd263412263930_ + _hd263352264320_) + (___kont272047272048_)) + (___kont272047272048_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269252269253_)) + (___kont272047272048_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd260663261641_)) + _hd263358264336_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260662261643_)) - (let ((_e260778260990_ + _tl263357264338_)) + (let ((_e263473263685_ (let () (declare (not safe)) (gx#stx-e - _tl260662261643_)))) - (let ((_tl260776260995_ + _tl263357264338_)))) + (let ((_tl263471263690_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e260778260990_))) - (_hd260777260993_ - (let () (declare (not safe)) (##car _e260778260990_)))) - (___kont269252269253_))) + (##cdr _e263473263685_))) + (_hd263472263688_ + (let () (declare (not safe)) (##car _e263473263685_)))) + (___kont272047272048_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269252269253_)) - (___kont269252269253_)))))) + (___kont272047272048_)) + (___kont272047272048_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd260663261641_)) + (gx#stx-eq? '%#quote _hd263358264336_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260662261643_)) - (let ((_e260718261232_ + (gx#stx-pair? _tl263357264338_)) + (let ((_e263413263927_ (let () (declare (not safe)) (gx#stx-e - _tl260662261643_)))) - (let ((_tl260716261237_ + _tl263357264338_)))) + (let ((_tl263411263932_ (let () (declare (not safe)) - (##cdr _e260718261232_))) - (_hd260717261235_ + (##cdr _e263413263927_))) + (_hd263412263930_ (let () (declare (not safe)) - (##car _e260718261232_)))) + (##car _e263413263927_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260716261237_)) + _tl263411263932_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl260686261325_)) - (___kont269244269245_ - _hd260687261323_ - _hd260717261235_ - _hd260657261625_) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)) + _tl263381264020_)) + (___kont272039272040_ + _hd263382264018_ + _hd263412263930_ + _hd263352264320_) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd260663261641_)) + _hd263358264336_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260662261643_)) - (let ((_e260778260990_ + (gx#stx-pair? _tl263357264338_)) + (let ((_e263473263685_ (let () (declare (not safe)) (gx#stx-e - _tl260662261643_)))) - (let ((_tl260776260995_ + _tl263357264338_)))) + (let ((_tl263471263690_ (let () (declare (not safe)) - (##cdr _e260778260990_))) - (_hd260777260993_ + (##cdr _e263473263685_))) + (_hd263472263688_ (let () (declare (not safe)) - (##car _e260778260990_)))) - (___kont269252269253_))) - (___kont269252269253_)) - (___kont269252269253_)))))) + (##car _e263473263685_)))) + (___kont272047272048_))) + (___kont272047272048_)) + (___kont272047272048_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd260663261641_)) + (gx#stx-eq? '%#quote _hd263358264336_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260662261643_)) - (let ((_e260718261232_ + (gx#stx-pair? _tl263357264338_)) + (let ((_e263413263927_ (let () (declare (not safe)) - (gx#stx-e _tl260662261643_)))) - (let ((_tl260716261237_ + (gx#stx-e _tl263357264338_)))) + (let ((_tl263411263932_ (let () (declare (not safe)) - (##cdr _e260718261232_))) - (_hd260717261235_ + (##cdr _e263413263927_))) + (_hd263412263930_ (let () (declare (not safe)) - (##car _e260718261232_)))) - (___kont269252269253_))) - (___kont269252269253_)) + (##car _e263413263927_)))) + (___kont272047272048_))) + (___kont272047272048_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd260663261641_)) + _hd263358264336_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260662261643_)) - (let ((_e260778260990_ + (gx#stx-pair? _tl263357264338_)) + (let ((_e263473263685_ (let () (declare (not safe)) - (gx#stx-e _tl260662261643_)))) - (let ((_tl260776260995_ + (gx#stx-e _tl263357264338_)))) + (let ((_tl263471263690_ (let () (declare (not safe)) - (##cdr _e260778260990_))) - (_hd260777260993_ + (##cdr _e263473263685_))) + (_hd263472263688_ (let () (declare (not safe)) - (##car _e260778260990_)))) - (___kont269252269253_))) - (___kont269252269253_)) - (___kont269252269253_))))) + (##car _e263473263685_)))) + (___kont272047272048_))) + (___kont272047272048_)) + (___kont272047272048_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260659261635_)) - (let ((_e260688261320_ + (gx#stx-pair? _tl263354264330_)) + (let ((_e263383264015_ (let () (declare (not safe)) - (gx#stx-e _tl260659261635_)))) - (let ((_tl260686261325_ + (gx#stx-e _tl263354264330_)))) + (let ((_tl263381264020_ (let () (declare (not safe)) - (##cdr _e260688261320_))) - (_hd260687261323_ + (##cdr _e263383264015_))) + (_hd263382264018_ (let () (declare (not safe)) - (##car _e260688261320_)))) + (##car _e263383264015_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260687261323_)) - (let ((_e260691261328_ + (gx#stx-pair? _hd263382264018_)) + (let ((_e263386264023_ (let () (declare (not safe)) - (gx#stx-e _hd260687261323_)))) - (let ((_tl260689261333_ + (gx#stx-e _hd263382264018_)))) + (let ((_tl263384264028_ (let () (declare (not safe)) - (##cdr _e260691261328_))) - (_hd260690261331_ + (##cdr _e263386264023_))) + (_hd263385264026_ (let () (declare (not safe)) - (##car _e260691261328_)))) + (##car _e263386264023_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260690261331_)) + (gx#identifier? _hd263385264026_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260690261331_)) + _hd263385264026_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260689261333_)) - (let ((_e260694261336_ + (gx#stx-pair? _tl263384264028_)) + (let ((_e263389264031_ (let () (declare (not safe)) (gx#stx-e - _tl260689261333_)))) - (let ((_tl260692261341_ + _tl263384264028_)))) + (let ((_tl263387264036_ (let () (declare (not safe)) - (##cdr _e260694261336_))) - (_hd260693261339_ + (##cdr _e263389264031_))) + (_hd263388264034_ (let () (declare (not safe)) - (##car _e260694261336_)))) + (##car _e263389264031_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260692261341_)) + _tl263387264036_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl260686261325_)) - (___kont269242269243_ - _hd260693261339_ - _hd260660261633_ - _hd260657261625_) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)))) - (___kont269252269253_))))) + _tl263381264020_)) + (___kont272037272038_ + _hd263388264034_ + _hd263355264328_ + _hd263352264320_) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)))) + (___kont272047272048_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl260659261635_)) - (let ((_e260688261320_ + _tl263354264330_)) + (let ((_e263383264015_ (let () (declare (not safe)) (gx#stx-e - _tl260659261635_)))) - (let ((_tl260686261325_ + _tl263354264330_)))) + (let ((_tl263381264020_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e260688261320_))) - (_hd260687261323_ - (let () (declare (not safe)) (##car _e260688261320_)))) + (##cdr _e263383264015_))) + (_hd263382264018_ + (let () (declare (not safe)) (##car _e263383264015_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260687261323_)) - (let ((_e260691261328_ + (gx#stx-pair? _hd263382264018_)) + (let ((_e263386264023_ (let () (declare (not safe)) - (gx#stx-e _hd260687261323_)))) - (let ((_tl260689261333_ + (gx#stx-e _hd263382264018_)))) + (let ((_tl263384264028_ (let () (declare (not safe)) - (##cdr _e260691261328_))) - (_hd260690261331_ + (##cdr _e263386264023_))) + (_hd263385264026_ (let () (declare (not safe)) - (##car _e260691261328_)))) + (##car _e263386264023_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260690261331_)) + (gx#identifier? _hd263385264026_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd260690261331_)) + (gx#stx-eq? '%#quote _hd263385264026_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260689261333_)) - (let ((_e260694261336_ + (gx#stx-pair? _tl263384264028_)) + (let ((_e263389264031_ (let () (declare (not safe)) - (gx#stx-e _tl260689261333_)))) - (let ((_tl260692261341_ + (gx#stx-e _tl263384264028_)))) + (let ((_tl263387264036_ (let () (declare (not safe)) - (##cdr _e260694261336_))) - (_hd260693261339_ + (##cdr _e263389264031_))) + (_hd263388264034_ (let () (declare (not safe)) - (##car _e260694261336_)))) + (##car _e263389264031_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260692261341_)) + (gx#stx-null? _tl263387264036_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl260686261325_)) - (___kont269242269243_ - _hd260693261339_ - _hd260660261633_ - _hd260657261625_) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)))) + _tl263381264020_)) + (___kont272037272038_ + _hd263388264034_ + _hd263355264328_ + _hd263352264320_) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269252269253_))))) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)) + (___kont272047272048_))))) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd260654261617_)) + (gx#stx-eq? '%#lambda _hd263349264312_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260653261619_)) - (let ((_e260802260858_ + (gx#stx-pair? _tl263348264314_)) + (let ((_e263497263553_ (let () (declare (not safe)) - (gx#stx-e _tl260653261619_)))) - (let ((_tl260800260863_ + (gx#stx-e _tl263348264314_)))) + (let ((_tl263495263558_ (let () (declare (not safe)) - (##cdr _e260802260858_))) - (_hd260801260861_ + (##cdr _e263497263553_))) + (_hd263496263556_ (let () (declare (not safe)) - (##car _e260802260858_)))) + (##car _e263497263553_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260801260861_)) - (let ((_e260805260866_ + (gx#stx-pair? _hd263496263556_)) + (let ((_e263500263561_ (let () (declare (not safe)) (gx#stx-e - _hd260801260861_)))) - (let ((_tl260803260871_ + _hd263496263556_)))) + (let ((_tl263498263566_ (let () (declare (not safe)) - (##cdr _e260805260866_))) - (_hd260804260869_ + (##cdr _e263500263561_))) + (_hd263499263564_ (let () (declare (not safe)) - (##car _e260805260866_)))) + (##car _e263500263561_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260803260871_)) + _tl263498263566_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260800260863_)) - (let ((_e260808260874_ + _tl263495263558_)) + (let ((_e263503263569_ (let () (declare (not safe)) (gx#stx-e - _tl260800260863_)))) - (let ((_tl260806260879_ + _tl263495263558_)))) + (let ((_tl263501263574_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e260808260874_))) - (_hd260807260877_ - (let () (declare (not safe)) (##car _e260808260874_)))) + (##cdr _e263503263569_))) + (_hd263502263572_ + (let () (declare (not safe)) (##car _e263503263569_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260806260879_)) + (gx#stx-null? _tl263501263574_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260650261611_)) - (let ((_e260811260882_ + (gx#stx-pair? _tl263345264306_)) + (let ((_e263506263577_ (let () (declare (not safe)) - (gx#stx-e _tl260650261611_)))) - (let ((_tl260809260887_ + (gx#stx-e _tl263345264306_)))) + (let ((_tl263504263582_ (let () (declare (not safe)) - (##cdr _e260811260882_))) - (_hd260810260885_ + (##cdr _e263506263577_))) + (_hd263505263580_ (let () (declare (not safe)) - (##car _e260811260882_)))) + (##car _e263506263577_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260810260885_)) - (let ((_e260814260890_ + (gx#stx-pair? _hd263505263580_)) + (let ((_e263509263585_ (let () (declare (not safe)) - (gx#stx-e _hd260810260885_)))) - (let ((_tl260812260895_ + (gx#stx-e _hd263505263580_)))) + (let ((_tl263507263590_ (let () (declare (not safe)) - (##cdr _e260814260890_))) - (_hd260813260893_ + (##cdr _e263509263585_))) + (_hd263508263588_ (let () (declare (not safe)) - (##car _e260814260890_)))) + (##car _e263509263585_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260813260893_)) + (gx#identifier? _hd263508263588_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd260813260893_)) + _hd263508263588_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260812260895_)) - (let ((_e260817260898_ + _tl263507263590_)) + (let ((_e263512263593_ (let () (declare (not safe)) (gx#stx-e - _tl260812260895_)))) - (let ((_tl260815260903_ + _tl263507263590_)))) + (let ((_tl263510263598_ (let () (declare (not safe)) - (##cdr _e260817260898_))) - (_hd260816260901_ + (##cdr _e263512263593_))) + (_hd263511263596_ (let () (declare (not safe)) - (##car _e260817260898_)))) + (##car _e263512263593_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260815260903_)) + _tl263510263598_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl260809260887_)) - (___kont269250269251_ - _hd260816260901_ - _hd260807260877_ - _hd260804260869_) - (___kont269252269253_)) - (___kont269252269253_)))) + (gx#stx-null? _tl263504263582_)) + (___kont272045272046_ + _hd263511263596_ + _hd263502263572_ + _hd263499263564_) + (___kont272047272048_)) + (___kont272047272048_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269252269253_)) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)))) - (___kont269252269253_)) - (___kont269252269253_)))) + (___kont272047272048_)) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)))) + (___kont272047272048_)) + (___kont272047272048_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)))) - (___kont269252269253_)) - (___kont269252269253_))) - (___kont269252269253_)))) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)))) + (___kont272047272048_)) + (___kont272047272048_))) + (___kont272047272048_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269252269253_)))) - (___kont269252269253_)) - (___kont269252269253_)) - (___kont269252269253_)))) - (___kont269252269253_)))))) - (_countf-symbol256695_ - (lambda (_id260625_) - (let ((_$e260627_ + (___kont272047272048_)))) + (___kont272047272048_)) + (___kont272047272048_)) + (___kont272047272048_)))) + (___kont272047272048_)))))) + (_countf-symbol259390_ + (lambda (_id263320_) + (let ((_$e263322_ (let () (declare (not safe)) - (gxc#identifier-symbol _id260625_)))) + (gxc#identifier-symbol _id263320_)))) (if (or (let () (declare (not safe)) - (eq? '##vector-length _$e260627_)) + (eq? '##vector-length _$e263322_)) (let () (declare (not safe)) - (eq? 'vector-length _$e260627_))) + (eq? 'vector-length _$e263322_))) 'vector-length (if (let () (declare (not safe)) - (eq? 'values-count _$e260627_)) + (eq? 'values-count _$e263322_)) 'values-count '#f))))) - (_eqf-symbol256696_ - (lambda (_sym260611_) - (let ((_$e260613_ _sym260611_)) + (_eqf-symbol259391_ + (lambda (_sym263306_) + (let ((_$e263308_ _sym263306_)) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e260613_)) + (eq? '##eq? _$e263308_)) (let () (declare (not safe)) - (eq? 'eq? _$e260613_))) + (eq? 'eq? _$e263308_))) 'eq? (if (or (let () (declare (not safe)) - (eq? '##eqv? _$e260613_)) + (eq? '##eqv? _$e263308_)) (let () (declare (not safe)) - (eq? 'eqv? _$e260613_))) + (eq? 'eqv? _$e263308_))) 'eqv? (if (or (let () (declare (not safe)) - (eq? '##equal? _$e260613_)) + (eq? '##equal? _$e263308_)) (let () (declare (not safe)) - (eq? 'equal? _$e260613_))) + (eq? 'equal? _$e263308_))) 'equal? (if (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e260613_)) + _$e263308_)) 'free-identifier=? (if (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e260613_)) + (eq? 'gx#stx-eq? _$e263308_)) 'stx-eq? '#f)))))))) - (_eqf-symbol?256697_ - (lambda (_sym260594_) - (let ((_$e260596_ _sym260594_)) + (_eqf-symbol?259392_ + (lambda (_sym263289_) + (let ((_$e263291_ _sym263289_)) (if (or (let () (declare (not safe)) - (eq? 'eq? _$e260596_)) + (eq? 'eq? _$e263291_)) (let () (declare (not safe)) - (eq? 'eqv? _$e260596_)) + (eq? 'eqv? _$e263291_)) (let () (declare (not safe)) - (eq? 'equal? _$e260596_)) + (eq? 'equal? _$e263291_)) (let () (declare (not safe)) - (eq? 'free-identifier=? _$e260596_)) + (eq? 'free-identifier=? _$e263291_)) (let () (declare (not safe)) - (eq? 'stx-eq? _$e260596_))) + (eq? 'stx-eq? _$e263291_))) '#t '#f)))) - (_do-assert!256698_ - (lambda (_assert260585_ _type260586_ _K260587_) - (let ((_unwind-assert260589_ _env-assert256688_) - (_unwind-type260590_ _env-type256689_)) - (set! _env-assert256688_ _assert260585_) - (set! _env-type256689_ _type260586_) - (let ((_val260592_ (_K260587_))) - (set! _env-assert256688_ _unwind-assert260589_) - (set! _env-type256689_ _unwind-type260590_) - _val260592_)))) - (_do-bind256699_ - (lambda (_bind260582_ _K260583_) - (if (let () (declare (not safe)) (pair? _bind260582_)) - (let ((__tmp271944 + (_do-assert!259393_ + (lambda (_assert263280_ _type263281_ _K263282_) + (let ((_unwind-assert263284_ _env-assert259383_) + (_unwind-type263285_ _env-type259384_)) + (set! _env-assert259383_ _assert263280_) + (set! _env-type259384_ _type263281_) + (let ((_val263287_ (_K263282_))) + (set! _env-assert259383_ _unwind-assert263284_) + (set! _env-type259384_ _unwind-type263285_) + _val263287_)))) + (_do-bind259394_ + (lambda (_bind263277_ _K263278_) + (if (let () (declare (not safe)) (pair? _bind263277_)) + (let ((__tmp274739 (let () (declare (not safe)) - (_fold-bind-env256700_ - _bind260582_ - _env-bind256690_)))) + (_fold-bind-env259395_ + _bind263277_ + _env-bind259385_)))) (declare (not safe)) - (_do-bind!256701_ __tmp271944 _K260583_)) - (_K260583_)))) - (_fold-bind-env256700_ - (lambda (_bind260511_ _env260512_) - (let _lp260514_ ((_rest260516_ _bind260511_) - (_env260517_ _env260512_)) - (let* ((_rest260518260526_ _rest260516_) - (_else260520260534_ (lambda () _env260517_)) - (_K260522260570_ - (lambda (_rest260537_ _bind260538_) - (let* ((_bind260539260546_ _bind260538_) - (_E260541260550_ + (_do-bind!259396_ __tmp274739 _K263278_)) + (_K263278_)))) + (_fold-bind-env259395_ + (lambda (_bind263206_ _env263207_) + (let _lp263209_ ((_rest263211_ _bind263206_) + (_env263212_ _env263207_)) + (let* ((_rest263213263221_ _rest263211_) + (_else263215263229_ (lambda () _env263212_)) + (_K263217263265_ + (lambda (_rest263232_ _bind263233_) + (let* ((_bind263234263241_ _bind263233_) + (_E263236263245_ (lambda () (error '"No clause matching" - _bind260539260546_))) - (_K260542260558_ - (lambda (_expr260553_ _id260554_) - (let* ((_sexpr260556_ + _bind263234263241_))) + (_K263237263253_ + (lambda (_expr263248_ _id263249_) + (let* ((_sexpr263251_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr260553_))) - (__tmp271945 - (let ((__tmp271946 + _expr263248_))) + (__tmp274740 + (let ((__tmp274741 (let () (declare (not safe)) - (cons _sexpr260556_ + (cons _sexpr263251_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id260554_)))) + _id263249_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp271946 - _env260517_)))) + (cons __tmp274741 + _env263212_)))) (declare (not safe)) - (_lp260514_ - _rest260537_ - __tmp271945))))) + (_lp263209_ + _rest263232_ + __tmp274740))))) (if (let () (declare (not safe)) - (##pair? _bind260539260546_)) - (let ((_hd260543260561_ + (##pair? _bind263234263241_)) + (let ((_hd263238263256_ (let () (declare (not safe)) - (##car _bind260539260546_))) - (_tl260544260563_ + (##car _bind263234263241_))) + (_tl263239263258_ (let () (declare (not safe)) - (##cdr _bind260539260546_)))) - (let* ((_id260566_ _hd260543260561_) - (_expr260568_ - _tl260544260563_)) + (##cdr _bind263234263241_)))) + (let* ((_id263261_ _hd263238263256_) + (_expr263263_ + _tl263239263258_)) (declare (not safe)) - (_K260542260558_ - _expr260568_ - _id260566_))) + (_K263237263253_ + _expr263263_ + _id263261_))) (let () (declare (not safe)) - (_E260541260550_))))))) + (_E263236263245_))))))) (if (let () (declare (not safe)) - (##pair? _rest260518260526_)) - (let ((_hd260523260573_ + (##pair? _rest263213263221_)) + (let ((_hd263218263268_ (let () (declare (not safe)) - (##car _rest260518260526_))) - (_tl260524260575_ + (##car _rest263213263221_))) + (_tl263219263270_ (let () (declare (not safe)) - (##cdr _rest260518260526_)))) - (let* ((_bind260578_ _hd260523260573_) - (_rest260580_ _tl260524260575_)) + (##cdr _rest263213263221_)))) + (let* ((_bind263273_ _hd263218263268_) + (_rest263275_ _tl263219263270_)) (declare (not safe)) - (_K260522260570_ _rest260580_ _bind260578_))) + (_K263217263265_ _rest263275_ _bind263273_))) (let () (declare (not safe)) - (_else260520260534_))))))) - (_do-bind!256701_ - (lambda (_env260504_ _K260505_) - (let ((_unwind260507_ _env-bind256690_)) - (set! _env-bind256690_ _env260504_) - (let ((_val260509_ (_K260505_))) - (set! _env-bind256690_ _unwind260507_) - _val260509_)))) - (_do-splice!256702_ - (lambda (_K260498_) - (let ((_unwind260500_ _in-splice?256691_)) - (set! _in-splice?256691_ '#t) - (let ((_val260502_ (_K260498_))) - (set! _in-splice?256691_ _unwind260500_) - _val260502_)))) - (_optimize-e256703_ - (lambda (_expr259695_) - (let* ((___stx269690269691_ _expr259695_) - (_g259702259875_ + (_else263215263229_))))))) + (_do-bind!259396_ + (lambda (_env263199_ _K263200_) + (let ((_unwind263202_ _env-bind259385_)) + (set! _env-bind259385_ _env263199_) + (let ((_val263204_ (_K263200_))) + (set! _env-bind259385_ _unwind263202_) + _val263204_)))) + (_do-splice!259397_ + (lambda (_K263193_) + (let ((_unwind263195_ _in-splice?259386_)) + (set! _in-splice?259386_ '#t) + (let ((_val263197_ (_K263193_))) + (set! _in-splice?259386_ _unwind263195_) + _val263197_)))) + (_optimize-e259398_ + (lambda (_expr262390_) + (let* ((___stx272485272486_ _expr262390_) + (_g262397262570_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx269690269691_))))) - (let ((___kont269692269693_ - (lambda (_L260470_ _L260471_ _L260472_) - (let ((_$e260489_ + ___stx272485272486_))))) + (let ((___kont272487272488_ + (lambda (_L263165_ _L263166_ _L263167_) + (let ((_$e263184_ (let () (declare (not safe)) - (_assert-e256706_ _L260472_)))) + (_assert-e259401_ _L263167_)))) (if (let () (declare (not safe)) - (eq? '#t _$e260489_)) + (eq? '#t _$e263184_)) (let () (declare (not safe)) - (_optimize-e256703_ _L260471_)) + (_optimize-e259398_ _L263166_)) (if (let () (declare (not safe)) - (eq? '#f _$e260489_)) + (eq? '#f _$e263184_)) (let () (declare (not safe)) - (_optimize-e256703_ _L260470_)) - (let ((_K260492_ + (_optimize-e259398_ _L263165_)) + (let ((_K263187_ (let () (declare (not safe)) - (_optimize-t__0__268623268624_ - _L260471_ - _L260472_))) - (_E260493_ + (_optimize-t__0__271418271419_ + _L263166_ + _L263167_))) + (_E263188_ (let () (declare (not safe)) - (_optimize-f__268625268626_ - _L260470_ - _L260472_)))) - (if (let ((__tmp271951 + (_optimize-f__271420271421_ + _L263165_ + _L263167_)))) + (if (let ((__tmp274746 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _K260492_))) - (__tmp271950 + _K263187_))) + (__tmp274745 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _E260493_)))) + _E263188_)))) (declare (not safe)) - (equal? __tmp271951 - __tmp271950)) - _K260492_ - (let ((__tmp271947 - (let ((__tmp271948 - (let ((__tmp271949 + (equal? __tmp274746 + __tmp274745)) + _K263187_ + (let ((__tmp274742 + (let ((__tmp274743 + (let ((__tmp274744 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E260493_ '())))) + (cons _E263188_ '())))) (declare (not safe)) - (cons _K260492_ __tmp271949)))) + (cons _K263187_ __tmp274744)))) (declare (not safe)) - (cons _L260472_ __tmp271948)))) + (cons _L263167_ __tmp274743)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#if - __tmp271947))))))))) - (___kont269694269695_ - (lambda (_L260400_ _L260401_) - (let ((_$e260421_ + __tmp274742))))))))) + (___kont272489272490_ + (lambda (_L263095_ _L263096_) + (let ((_$e263116_ (let () (declare (not safe)) - (_lookup-block256711_ _L260401_)))) - (if _$e260421_ - ((lambda (_block260424_) + (_lookup-block259406_ _L263096_)))) + (if _$e263116_ + ((lambda (_block263119_) (if (let () (declare (not safe)) - (_nonlinear-block?256713_ - _block260424_)) - _expr259695_ - (let ((__tmp271952 - (let ((__tmp271953 - (let ((__tmp271954 + (_nonlinear-block?259408_ + _block263119_)) + _expr262390_ + (let ((__tmp274747 + (let ((__tmp274748 + (let ((__tmp274749 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g260425260428_ _g260426260430_) + (lambda (_g263120263123_ _g263121263125_) (let () (declare (not safe)) - (cons _g260425260428_ _g260426260430_))))) + (cons _g263120263123_ _g263121263125_))))) (declare (not safe)) - (foldr1 __tmp271954 '() _L260400_)))) + (foldr1 __tmp274749 '() _L263095_)))) (declare (not safe)) - (_inline-block256712_ _block260424_ __tmp271953)))) + (_inline-block259407_ _block263119_ __tmp274748)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_optimize-e256703_ - __tmp271952)))) - _$e260421_) - _expr259695_)))) - (___kont269698269699_ - (lambda (_L260290_ _L260291_ _L260292_) - (let* ((_body260311_ + (_optimize-e259398_ + __tmp274747)))) + _$e263116_) + _expr262390_)))) + (___kont272493272494_ + (lambda (_L262985_ _L262986_ _L262987_) + (let* ((_body263006_ (let () (declare (not safe)) - (_optimize-e256703_ _L260290_))) - (__tmp271955 - (let ((__tmp271957 + (_optimize-e259398_ _L262985_))) + (__tmp274750 + (let ((__tmp274752 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L260291_ - _L260292_)) - (let ((__tmp271958 - (lambda (_g260312260316_ + _L262986_ + _L262987_)) + (let ((__tmp274753 + (lambda (_g263007263011_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g260313260318_ - _g260314260320_) - (let ((__tmp271959 - (let ((__tmp271964 + _g263008263013_ + _g263009263015_) + (let ((__tmp274754 + (let ((__tmp274759 (let () (declare (not safe)) - (cons _g260313260318_ '()))) - (__tmp271960 - (let ((__tmp271961 - (let ((__tmp271963 + (cons _g263008263013_ '()))) + (__tmp274755 + (let ((__tmp274756 + (let ((__tmp274758 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp271962 + (__tmp274757 (let () (declare (not safe)) - (cons _g260312260316_ '())))) + (cons _g263007263011_ '())))) (declare (not safe)) - (cons __tmp271963 __tmp271962)))) + (cons __tmp274758 __tmp274757)))) (declare (not safe)) - (cons __tmp271961 '())))) + (cons __tmp274756 '())))) (declare (not safe)) - (cons __tmp271964 __tmp271960)))) + (cons __tmp274759 __tmp274755)))) (declare (not safe)) - (cons __tmp271959 _g260314260320_))))) + (cons __tmp274754 _g263009263015_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp271958 + (foldr2 __tmp274753 '() - _L260291_ - _L260292_)))) - (__tmp271956 + _L262986_ + _L262987_)))) + (__tmp274751 (let () (declare (not safe)) - (cons _body260311_ '())))) + (cons _body263006_ '())))) (declare (not safe)) - (cons __tmp271957 __tmp271956)))) + (cons __tmp274752 __tmp274751)))) (declare (not safe)) - (cons '%#let-values __tmp271955)))) - (___kont269702269703_ - (lambda (_L260158_ _L260159_ _L260160_) - (let ((__tmp271965 + (cons '%#let-values __tmp274750)))) + (___kont272497272498_ + (lambda (_L262853_ _L262854_ _L262855_) + (let ((__tmp274760 (map cons - (let ((__tmp271966 - (lambda (_g260178260181_ - _g260179260183_) + (let ((__tmp274761 + (lambda (_g262873262876_ + _g262874262878_) (let () (declare (not safe)) - (cons _g260178260181_ - _g260179260183_))))) + (cons _g262873262876_ + _g262874262878_))))) (declare (not safe)) - (foldr1 __tmp271966 + (foldr1 __tmp274761 '() - _L260160_)) - (let ((__tmp271967 - (lambda (_g260185260188_ - _g260186260190_) + _L262855_)) + (let ((__tmp274762 + (lambda (_g262880262883_ + _g262881262885_) (let () (declare (not safe)) - (cons _g260185260188_ - _g260186260190_))))) + (cons _g262880262883_ + _g262881262885_))))) (declare (not safe)) - (foldr1 __tmp271967 + (foldr1 __tmp274762 '() - _L260159_))))) + _L262854_))))) (declare (not safe)) - (_bind-e__0__268631268632_ - __tmp271965 - _L260158_)))) - (___kont269706269707_ - (lambda (_L260015_ - _L260016_ - _L260017_ - _L260018_ - _L260019_) - (let ((__tmp271968 + (_bind-e__0__271426271427_ + __tmp274760 + _L262853_)))) + (___kont272501272502_ + (lambda (_L262710_ + _L262711_ + _L262712_ + _L262713_ + _L262714_) + (let ((__tmp274763 (lambda () - (let* ((_expr260061_ + (let* ((_expr262756_ (let () (declare (not safe)) - (_optimize-e256703_ - _L260017_))) - (__tmp271969 - (let ((__tmp271971 - (let ((__tmp271974 - (let ((__tmp271981 + (_optimize-e259398_ + _L262712_))) + (__tmp274764 + (let ((__tmp274766 + (let ((__tmp274769 + (let ((__tmp274776 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L260019_ '()))) - (__tmp271975 - (let ((__tmp271976 - (let ((__tmp271977 - (let ((__tmp271979 - (let ((__tmp271980 - (lambda (_g260062260065_ + (cons _L262714_ '()))) + (__tmp274770 + (let ((__tmp274771 + (let ((__tmp274772 + (let ((__tmp274774 + (let ((__tmp274775 + (lambda (_g262757262760_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g260063260067_) + _g262758262762_) (let () (declare (not safe)) - (cons _g260062260065_ _g260063260067_))))) + (cons _g262757262760_ _g262758262762_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp271980 + (foldr1 __tmp274775 '() - _L260018_))) - (__tmp271978 + _L262713_))) + (__tmp274773 (let () (declare (not safe)) - (cons _expr260061_ '())))) + (cons _expr262756_ '())))) (declare (not safe)) - (cons __tmp271979 __tmp271978)))) + (cons __tmp274774 __tmp274773)))) (declare (not safe)) - (cons '%#lambda __tmp271977)))) + (cons '%#lambda __tmp274772)))) (declare (not safe)) - (cons __tmp271976 '())))) + (cons __tmp274771 '())))) (declare (not safe)) - (cons __tmp271981 __tmp271975))) - (__tmp271972 - (let ((__tmp271973 - (lambda (_g260069260072_ _g260070260074_) + (cons __tmp274776 __tmp274770))) + (__tmp274767 + (let ((__tmp274768 + (lambda (_g262764262767_ _g262765262769_) (let () (declare (not safe)) - (cons _g260069260072_ _g260070260074_))))) + (cons _g262764262767_ _g262765262769_))))) (declare (not safe)) - (foldr1 __tmp271973 '() _L260016_)))) + (foldr1 __tmp274768 '() _L262711_)))) (declare (not safe)) - (cons __tmp271974 __tmp271972))) - (__tmp271970 - (let () (declare (not safe)) (cons _L260015_ '())))) + (cons __tmp274769 __tmp274767))) + (__tmp274765 + (let () (declare (not safe)) (cons _L262710_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp271971 - __tmp271970)))) + (cons __tmp274766 + __tmp274765)))) (declare (not safe)) (cons '%#letrec-values - __tmp271969))))) + __tmp274764))))) (declare (not safe)) - (_do-splice!256702_ __tmp271968)))) - (___kont269712269713_ (lambda () _expr259695_))) - (let* ((___match269899269900_ - (lambda (_e259825259887_ - _hd259824259890_ - _tl259823259892_ - _e259828259895_ - _hd259827259898_ - _tl259826259900_ - _e259831259903_ - _hd259830259906_ - _tl259829259908_ - _e259834259911_ - _hd259833259914_ - _tl259832259916_ - _e259837259919_ - _hd259836259922_ - _tl259835259924_ - _e259840259927_ - _hd259839259930_ - _tl259838259932_ - _e259843259935_ - _hd259842259938_ - _tl259841259940_ - _e259846259943_ - _hd259845259946_ - _tl259844259948_ - ___splice269708269709_ - _target259847259951_ - _tl259849259953_) - (letrec ((_loop259850259956_ - (lambda (_hd259848259959_ - _id259854259961_) + (_do-splice!259397_ __tmp274763)))) + (___kont272507272508_ (lambda () _expr262390_))) + (let* ((___match272694272695_ + (lambda (_e262520262582_ + _hd262519262585_ + _tl262518262587_ + _e262523262590_ + _hd262522262593_ + _tl262521262595_ + _e262526262598_ + _hd262525262601_ + _tl262524262603_ + _e262529262606_ + _hd262528262609_ + _tl262527262611_ + _e262532262614_ + _hd262531262617_ + _tl262530262619_ + _e262535262622_ + _hd262534262625_ + _tl262533262627_ + _e262538262630_ + _hd262537262633_ + _tl262536262635_ + _e262541262638_ + _hd262540262641_ + _tl262539262643_ + ___splice272503272504_ + _target262542262646_ + _tl262544262648_) + (letrec ((_loop262545262651_ + (lambda (_hd262543262654_ + _id262549262656_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259848259959_)) - (let ((_e259851259964_ + _hd262543262654_)) + (let ((_e262546262659_ (let () (declare (not safe)) (gx#stx-e - _hd259848259959_)))) - (let ((_lp-tl259853259969_ + _hd262543262654_)))) + (let ((_lp-tl262548262664_ (let () (declare (not safe)) - (##cdr _e259851259964_))) - (_lp-hd259852259967_ + (##cdr _e262546262659_))) + (_lp-hd262547262662_ (let () (declare (not safe)) - (##car _e259851259964_)))) - (let ((__tmp271983 + (##car _e262546262659_)))) + (let ((__tmp274778 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd259852259967_ _id259854259961_)))) + (cons _lp-hd262547262662_ _id262549262656_)))) (declare (not safe)) - (_loop259850259956_ _lp-tl259853259969_ __tmp271983)))) + (_loop262545262651_ _lp-tl262548262664_ __tmp274778)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id259855259972_ - (reverse _id259854259961_))) + (let ((_id262550262667_ + (reverse _id262549262656_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259844259948_)) - (let ((_e259858259975_ + _tl262539262643_)) + (let ((_e262553262670_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl259844259948_)))) - (let ((_tl259856259980_ + (gx#stx-e _tl262539262643_)))) + (let ((_tl262551262675_ (let () (declare (not safe)) - (##cdr _e259858259975_))) - (_hd259857259978_ + (##cdr _e262553262670_))) + (_hd262552262673_ (let () (declare (not safe)) - (##car _e259858259975_)))) + (##car _e262553262670_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259856259980_)) + (gx#stx-null? _tl262551262675_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl259838259932_)) + (gx#stx-null? _tl262533262627_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl259829259908_)) - (let ((___splice269710269711_ + (gx#stx-pair/null? _tl262524262603_)) + (let ((___splice272505272506_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl259829259908_ + _tl262524262603_ '0)))) - (let ((_tl259861259985_ + (let ((_tl262556262680_ (let () (declare (not safe)) (##vector-ref - ___splice269710269711_ + ___splice272505272506_ '1))) - (_target259859259983_ + (_target262554262678_ (let () (declare (not safe)) (##vector-ref - ___splice269710269711_ + ___splice272505272506_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259861259985_)) - (letrec ((_loop259862259988_ - (lambda (_hd259860259991_ - _bind259866259993_) + (gx#stx-null? _tl262556262680_)) + (letrec ((_loop262557262683_ + (lambda (_hd262555262686_ + _bind262561262688_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259860259991_)) - (let ((_e259863259996_ + _hd262555262686_)) + (let ((_e262558262691_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd259860259991_)))) - (let ((_lp-tl259865260001_ + (gx#stx-e _hd262555262686_)))) + (let ((_lp-tl262560262696_ (let () (declare (not safe)) - (##cdr _e259863259996_))) - (_lp-hd259864259999_ + (##cdr _e262558262691_))) + (_lp-hd262559262694_ (let () (declare (not safe)) - (##car _e259863259996_)))) - (let ((__tmp271982 + (##car _e262558262691_)))) + (let ((__tmp274777 (let () (declare (not safe)) - (cons _lp-hd259864259999_ _bind259866259993_)))) + (cons _lp-hd262559262694_ _bind262561262688_)))) (declare (not safe)) - (_loop259862259988_ _lp-tl259865260001_ __tmp271982)))) - (let ((_bind259867260004_ (reverse _bind259866259993_))) + (_loop262557262683_ _lp-tl262560262696_ __tmp274777)))) + (let ((_bind262562262699_ (reverse _bind262561262688_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259826259900_)) - (let ((_e259870260007_ + (gx#stx-pair? _tl262521262595_)) + (let ((_e262565262702_ (let () (declare (not safe)) - (gx#stx-e _tl259826259900_)))) - (let ((_tl259868260012_ + (gx#stx-e _tl262521262595_)))) + (let ((_tl262563262707_ (let () (declare (not safe)) - (##cdr _e259870260007_))) - (_hd259869260010_ + (##cdr _e262565262702_))) + (_hd262564262705_ (let () (declare (not safe)) - (##car _e259870260007_)))) + (##car _e262565262702_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259868260012_)) - (___kont269706269707_ - _hd259869260010_ - _bind259867260004_ - _hd259857259978_ - _id259855259972_ - _hd259836259922_) - (___kont269712269713_)))) - (___kont269712269713_))))))) + (gx#stx-null? _tl262563262707_)) + (___kont272501272502_ + _hd262564262705_ + _bind262562262699_ + _hd262552262673_ + _id262550262667_ + _hd262531262617_) + (___kont272507272508_)))) + (___kont272507272508_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop259862259988_ - _target259859259983_ + (_loop262557262683_ + _target262554262678_ '()))) - (___kont269712269713_)))) - (___kont269712269713_)) - (___kont269712269713_)) - (___kont269712269713_)))) - (___kont269712269713_))))))) + (___kont272507272508_)))) + (___kont272507272508_)) + (___kont272507272508_)) + (___kont272507272508_)))) + (___kont272507272508_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop259850259956_ - _target259847259951_ + (_loop262545262651_ + _target262542262646_ '()))))) - (___match269833269834_ - (lambda (_e259791260082_ - _hd259790260085_ - _tl259789260087_ - _e259794260090_ - _hd259793260093_ - _tl259792260095_ - ___splice269704269705_ - _target259795260098_ - _tl259797260100_) - (letrec ((_loop259798260103_ - (lambda (_hd259796260106_ - _expr259802260108_ - _id259803260110_) + (___match272628272629_ + (lambda (_e262486262777_ + _hd262485262780_ + _tl262484262782_ + _e262489262785_ + _hd262488262788_ + _tl262487262790_ + ___splice272499272500_ + _target262490262793_ + _tl262492262795_) + (letrec ((_loop262493262798_ + (lambda (_hd262491262801_ + _expr262497262803_ + _id262498262805_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259796260106_)) - (let ((_e259799260113_ + _hd262491262801_)) + (let ((_e262494262808_ (let () (declare (not safe)) (gx#stx-e - _hd259796260106_)))) - (let ((_lp-tl259801260118_ + _hd262491262801_)))) + (let ((_lp-tl262496262813_ (let () (declare (not safe)) - (##cdr _e259799260113_))) - (_lp-hd259800260116_ + (##cdr _e262494262808_))) + (_lp-hd262495262811_ (let () (declare (not safe)) - (##car _e259799260113_)))) + (##car _e262494262808_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd259800260116_)) - (let ((_e259808260121_ + _lp-hd262495262811_)) + (let ((_e262503262816_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd259800260116_)))) - (let ((_tl259806260126_ + (gx#stx-e _lp-hd262495262811_)))) + (let ((_tl262501262821_ (let () (declare (not safe)) - (##cdr _e259808260121_))) - (_hd259807260124_ + (##cdr _e262503262816_))) + (_hd262502262819_ (let () (declare (not safe)) - (##car _e259808260121_)))) + (##car _e262503262816_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd259807260124_)) - (let ((_e259811260129_ + (gx#stx-pair? _hd262502262819_)) + (let ((_e262506262824_ (let () (declare (not safe)) - (gx#stx-e _hd259807260124_)))) - (let ((_tl259809260134_ + (gx#stx-e _hd262502262819_)))) + (let ((_tl262504262829_ (let () (declare (not safe)) - (##cdr _e259811260129_))) - (_hd259810260132_ + (##cdr _e262506262824_))) + (_hd262505262827_ (let () (declare (not safe)) - (##car _e259811260129_)))) + (##car _e262506262824_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259809260134_)) + (gx#stx-null? _tl262504262829_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259806260126_)) - (let ((_e259814260137_ + (gx#stx-pair? _tl262501262821_)) + (let ((_e262509262832_ (let () (declare (not safe)) - (gx#stx-e _tl259806260126_)))) - (let ((_tl259812260142_ + (gx#stx-e _tl262501262821_)))) + (let ((_tl262507262837_ (let () (declare (not safe)) - (##cdr _e259814260137_))) - (_hd259813260140_ + (##cdr _e262509262832_))) + (_hd262508262835_ (let () (declare (not safe)) - (##car _e259814260137_)))) + (##car _e262509262832_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl259812260142_)) - (let ((__tmp271985 + _tl262507262837_)) + (let ((__tmp274780 (let () (declare (not safe)) - (cons _hd259813260140_ - _expr259802260108_))) - (__tmp271984 + (cons _hd262508262835_ + _expr262497262803_))) + (__tmp274779 (let () (declare (not safe)) - (cons _hd259810260132_ - _id259803260110_)))) + (cons _hd262505262827_ + _id262498262805_)))) (declare (not safe)) - (_loop259798260103_ - _lp-tl259801260118_ - __tmp271985 - __tmp271984)) - (___kont269712269713_)))) - (___kont269712269713_)) - (___kont269712269713_)))) - (___kont269712269713_)))) - (___kont269712269713_)))) + (_loop262493262798_ + _lp-tl262496262813_ + __tmp274780 + __tmp274779)) + (___kont272507272508_)))) + (___kont272507272508_)) + (___kont272507272508_)))) + (___kont272507272508_)))) + (___kont272507272508_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id259805260147_ - (reverse _id259803260110_)) - (_expr259804260145_ - (reverse _expr259802260108_))) + (let ((_id262500262842_ + (reverse _id262498262805_)) + (_expr262499262840_ + (reverse _expr262497262803_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259792260095_)) - (let ((_e259817260150_ + _tl262487262790_)) + (let ((_e262512262845_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl259792260095_)))) - (let ((_tl259815260155_ + (gx#stx-e _tl262487262790_)))) + (let ((_tl262510262850_ (let () (declare (not safe)) - (##cdr _e259817260150_))) - (_hd259816260153_ + (##cdr _e262512262845_))) + (_hd262511262848_ (let () (declare (not safe)) - (##car _e259817260150_)))) + (##car _e262512262845_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259815260155_)) - (___kont269702269703_ - _hd259816260153_ - _expr259804260145_ - _id259805260147_) - (___kont269712269713_)))) - (___kont269712269713_))))))) + (gx#stx-null? _tl262510262850_)) + (___kont272497272498_ + _hd262511262848_ + _expr262499262840_ + _id262500262842_) + (___kont272507272508_)))) + (___kont272507272508_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop259798260103_ - _target259795260098_ + (_loop262493262798_ + _target262490262793_ '() '()))))) - (___match269809269810_ - (lambda (_e259753260198_ - _hd259752260201_ - _tl259751260203_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_) - (letrec ((_loop259760260219_ - (lambda (_hd259758260222_ - _xid259764260224_ - _id259765260226_) + (___match272604272605_ + (lambda (_e262448262893_ + _hd262447262896_ + _tl262446262898_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_) + (letrec ((_loop262455262914_ + (lambda (_hd262453262917_ + _xid262459262919_ + _id262460262921_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259758260222_)) - (let ((_e259761260229_ + _hd262453262917_)) + (let ((_e262456262924_ (let () (declare (not safe)) (gx#stx-e - _hd259758260222_)))) - (let ((_lp-tl259763260234_ + _hd262453262917_)))) + (let ((_lp-tl262458262929_ (let () (declare (not safe)) - (##cdr _e259761260229_))) - (_lp-hd259762260232_ + (##cdr _e262456262924_))) + (_lp-hd262457262927_ (let () (declare (not safe)) - (##car _e259761260229_)))) + (##car _e262456262924_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd259762260232_)) - (let ((_e259770260237_ + _lp-hd262457262927_)) + (let ((_e262465262932_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd259762260232_)))) - (let ((_tl259768260242_ + (gx#stx-e _lp-hd262457262927_)))) + (let ((_tl262463262937_ (let () (declare (not safe)) - (##cdr _e259770260237_))) - (_hd259769260240_ + (##cdr _e262465262932_))) + (_hd262464262935_ (let () (declare (not safe)) - (##car _e259770260237_)))) + (##car _e262465262932_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd259769260240_)) - (let ((_e259773260245_ + (gx#stx-pair? _hd262464262935_)) + (let ((_e262468262940_ (let () (declare (not safe)) - (gx#stx-e _hd259769260240_)))) - (let ((_tl259771260250_ + (gx#stx-e _hd262464262935_)))) + (let ((_tl262466262945_ (let () (declare (not safe)) - (##cdr _e259773260245_))) - (_hd259772260248_ + (##cdr _e262468262940_))) + (_hd262467262943_ (let () (declare (not safe)) - (##car _e259773260245_)))) + (##car _e262468262940_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259771260250_)) + (gx#stx-null? _tl262466262945_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259768260242_)) - (let ((_e259776260253_ + (gx#stx-pair? _tl262463262937_)) + (let ((_e262471262948_ (let () (declare (not safe)) - (gx#stx-e _tl259768260242_)))) - (let ((_tl259774260258_ + (gx#stx-e _tl262463262937_)))) + (let ((_tl262469262953_ (let () (declare (not safe)) - (##cdr _e259776260253_))) - (_hd259775260256_ + (##cdr _e262471262948_))) + (_hd262470262951_ (let () (declare (not safe)) - (##car _e259776260253_)))) + (##car _e262471262948_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259775260256_)) - (let ((_e259779260261_ + _hd262470262951_)) + (let ((_e262474262956_ (let () (declare (not safe)) (gx#stx-e - _hd259775260256_)))) - (let ((_tl259777260266_ + _hd262470262951_)))) + (let ((_tl262472262961_ (let () (declare (not safe)) - (##cdr _e259779260261_))) - (_hd259778260264_ + (##cdr _e262474262956_))) + (_hd262473262959_ (let () (declare (not safe)) - (##car _e259779260261_)))) + (##car _e262474262956_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd259778260264_)) + _hd262473262959_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd259778260264_)) + _hd262473262959_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl259777260266_)) - (let ((_e259782260269_ + (gx#stx-pair? _tl262472262961_)) + (let ((_e262477262964_ (let () (declare (not safe)) - (gx#stx-e _tl259777260266_)))) - (let ((_tl259780260274_ + (gx#stx-e _tl262472262961_)))) + (let ((_tl262475262969_ (let () (declare (not safe)) - (##cdr _e259782260269_))) - (_hd259781260272_ + (##cdr _e262477262964_))) + (_hd262476262967_ (let () (declare (not safe)) - (##car _e259782260269_)))) + (##car _e262477262964_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259780260274_)) + (gx#stx-null? _tl262475262969_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl259774260258_)) - (let ((__tmp271987 + (gx#stx-null? _tl262469262953_)) + (let ((__tmp274782 (let () (declare (not safe)) - (cons _hd259781260272_ - _xid259764260224_))) - (__tmp271986 + (cons _hd262476262967_ + _xid262459262919_))) + (__tmp274781 (let () (declare (not safe)) - (cons _hd259772260248_ - _id259765260226_)))) + (cons _hd262467262943_ + _id262460262921_)))) (declare (not safe)) - (_loop259760260219_ - _lp-tl259763260234_ - __tmp271987 - __tmp271986)) - (___match269833269834_ - _e259753260198_ - _hd259752260201_ - _tl259751260203_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_)) - (___match269833269834_ - _e259753260198_ - _hd259752260201_ - _tl259751260203_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_)))) - (___match269833269834_ - _e259753260198_ - _hd259752260201_ - _tl259751260203_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_)) - (___match269833269834_ - _e259753260198_ - _hd259752260201_ - _tl259751260203_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_)) - (___match269833269834_ - _e259753260198_ - _hd259752260201_ - _tl259751260203_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_)))) + (_loop262455262914_ + _lp-tl262458262929_ + __tmp274782 + __tmp274781)) + (___match272628272629_ + _e262448262893_ + _hd262447262896_ + _tl262446262898_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_)) + (___match272628272629_ + _e262448262893_ + _hd262447262896_ + _tl262446262898_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_)))) + (___match272628272629_ + _e262448262893_ + _hd262447262896_ + _tl262446262898_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_)) + (___match272628272629_ + _e262448262893_ + _hd262447262896_ + _tl262446262898_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_)) + (___match272628272629_ + _e262448262893_ + _hd262447262896_ + _tl262446262898_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match269833269834_ - _e259753260198_ - _hd259752260201_ - _tl259751260203_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_)))) - (___match269833269834_ - _e259753260198_ - _hd259752260201_ - _tl259751260203_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_)) - (___match269833269834_ - _e259753260198_ - _hd259752260201_ - _tl259751260203_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_)))) - (___match269833269834_ - _e259753260198_ - _hd259752260201_ - _tl259751260203_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_)))) - (___match269833269834_ - _e259753260198_ - _hd259752260201_ - _tl259751260203_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_)))) + (___match272628272629_ + _e262448262893_ + _hd262447262896_ + _tl262446262898_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_)))) + (___match272628272629_ + _e262448262893_ + _hd262447262896_ + _tl262446262898_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_)) + (___match272628272629_ + _e262448262893_ + _hd262447262896_ + _tl262446262898_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_)))) + (___match272628272629_ + _e262448262893_ + _hd262447262896_ + _tl262446262898_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_)))) + (___match272628272629_ + _e262448262893_ + _hd262447262896_ + _tl262446262898_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id259767260279_ - (reverse _id259765260226_)) - (_xid259766260277_ - (reverse _xid259764260224_))) + (let ((_id262462262974_ + (reverse _id262460262921_)) + (_xid262461262972_ + (reverse _xid262459262919_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259754260211_)) - (let ((_e259785260282_ + _tl262449262906_)) + (let ((_e262480262977_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl259754260211_)))) - (let ((_tl259783260287_ + (gx#stx-e _tl262449262906_)))) + (let ((_tl262478262982_ (let () (declare (not safe)) - (##cdr _e259785260282_))) - (_hd259784260285_ + (##cdr _e262480262977_))) + (_hd262479262980_ (let () (declare (not safe)) - (##car _e259785260282_)))) + (##car _e262480262977_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259783260287_)) - (___kont269698269699_ - _hd259784260285_ - _xid259766260277_ - _id259767260279_) - (___match269833269834_ - _e259753260198_ - _hd259752260201_ - _tl259751260203_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_)))) - (___match269833269834_ - _e259753260198_ - _hd259752260201_ - _tl259751260203_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_))))))) + (gx#stx-null? _tl262478262982_)) + (___kont272493272494_ + _hd262479262980_ + _xid262461262972_ + _id262462262974_) + (___match272628272629_ + _e262448262893_ + _hd262447262896_ + _tl262446262898_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_)))) + (___match272628272629_ + _e262448262893_ + _hd262447262896_ + _tl262446262898_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop259760260219_ - _target259757260214_ + (_loop262455262914_ + _target262452262909_ '() '()))))) - (___match269785269786_ - (lambda (_e259723260328_ - _hd259722260331_ - _tl259721260333_ - _e259726260336_ - _hd259725260339_ - _tl259724260341_ - _e259729260344_ - _hd259728260347_ - _tl259727260349_ - _e259732260352_ - _hd259731260355_ - _tl259730260357_ - ___splice269696269697_ - _target259733260360_ - _tl259735260362_) - (letrec ((_loop259736260365_ - (lambda (_hd259734260368_ - _id259740260370_) + (___match272580272581_ + (lambda (_e262418263023_ + _hd262417263026_ + _tl262416263028_ + _e262421263031_ + _hd262420263034_ + _tl262419263036_ + _e262424263039_ + _hd262423263042_ + _tl262422263044_ + _e262427263047_ + _hd262426263050_ + _tl262425263052_ + ___splice272491272492_ + _target262428263055_ + _tl262430263057_) + (letrec ((_loop262431263060_ + (lambda (_hd262429263063_ + _id262435263065_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259734260368_)) - (let ((_e259737260373_ + _hd262429263063_)) + (let ((_e262432263068_ (let () (declare (not safe)) (gx#stx-e - _hd259734260368_)))) - (let ((_lp-tl259739260378_ + _hd262429263063_)))) + (let ((_lp-tl262434263073_ (let () (declare (not safe)) - (##cdr _e259737260373_))) - (_lp-hd259738260376_ + (##cdr _e262432263068_))) + (_lp-hd262433263071_ (let () (declare (not safe)) - (##car _e259737260373_)))) + (##car _e262432263068_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd259738260376_)) - (let ((_e259744260381_ + _lp-hd262433263071_)) + (let ((_e262439263076_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd259738260376_)))) - (let ((_tl259742260386_ + (gx#stx-e _lp-hd262433263071_)))) + (let ((_tl262437263081_ (let () (declare (not safe)) - (##cdr _e259744260381_))) - (_hd259743260384_ + (##cdr _e262439263076_))) + (_hd262438263079_ (let () (declare (not safe)) - (##car _e259744260381_)))) + (##car _e262439263076_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd259743260384_)) + (gx#identifier? _hd262438263079_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd259743260384_)) + (gx#stx-eq? '%#ref _hd262438263079_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259742260386_)) - (let ((_e259747260389_ + (gx#stx-pair? _tl262437263081_)) + (let ((_e262442263084_ (let () (declare (not safe)) - (gx#stx-e _tl259742260386_)))) - (let ((_tl259745260394_ + (gx#stx-e _tl262437263081_)))) + (let ((_tl262440263089_ (let () (declare (not safe)) - (##cdr _e259747260389_))) - (_hd259746260392_ + (##cdr _e262442263084_))) + (_hd262441263087_ (let () (declare (not safe)) - (##car _e259747260389_)))) + (##car _e262442263084_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259745260394_)) - (let ((__tmp271988 + (gx#stx-null? _tl262440263089_)) + (let ((__tmp274783 (let () (declare (not safe)) - (cons _hd259746260392_ - _id259740260370_)))) + (cons _hd262441263087_ + _id262435263065_)))) (declare (not safe)) - (_loop259736260365_ - _lp-tl259739260378_ - __tmp271988)) - (___kont269712269713_)))) - (___kont269712269713_)) - (___kont269712269713_)) - (___kont269712269713_)))) - (___kont269712269713_)))) + (_loop262431263060_ + _lp-tl262434263073_ + __tmp274783)) + (___kont272507272508_)))) + (___kont272507272508_)) + (___kont272507272508_)) + (___kont272507272508_)))) + (___kont272507272508_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id259741260397_ - (reverse _id259740260370_))) - (___kont269694269695_ - _id259741260397_ - _hd259731260355_)))))) + (let ((_id262436263092_ + (reverse _id262435263065_))) + (___kont272489272490_ + _id262436263092_ + _hd262426263050_)))))) (let () (declare (not safe)) - (_loop259736260365_ - _target259733260360_ + (_loop262431263060_ + _target262428263055_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx269690269691_)) - (let ((_e259709260438_ + (gx#stx-pair? ___stx272485272486_)) + (let ((_e262404263133_ (let () (declare (not safe)) - (gx#stx-e ___stx269690269691_)))) - (let ((_tl259707260443_ + (gx#stx-e ___stx272485272486_)))) + (let ((_tl262402263138_ (let () (declare (not safe)) - (##cdr _e259709260438_))) - (_hd259708260441_ + (##cdr _e262404263133_))) + (_hd262403263136_ (let () (declare (not safe)) - (##car _e259709260438_)))) + (##car _e262404263133_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd259708260441_)) + (gx#identifier? _hd262403263136_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd259708260441_)) + _hd262403263136_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259707260443_)) - (let ((_e259712260446_ + _tl262402263138_)) + (let ((_e262407263141_ (let () (declare (not safe)) (gx#stx-e - _tl259707260443_)))) - (let ((_tl259710260451_ + _tl262402263138_)))) + (let ((_tl262405263146_ (let () (declare (not safe)) - (##cdr _e259712260446_))) - (_hd259711260449_ + (##cdr _e262407263141_))) + (_hd262406263144_ (let () (declare (not safe)) - (##car _e259712260446_)))) + (##car _e262407263141_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259710260451_)) - (let ((_e259715260454_ + _tl262405263146_)) + (let ((_e262410263149_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl259710260451_)))) - (let ((_tl259713260459_ - (let () (declare (not safe)) (##cdr _e259715260454_))) - (_hd259714260457_ - (let () (declare (not safe)) (##car _e259715260454_)))) + (gx#stx-e _tl262405263146_)))) + (let ((_tl262408263154_ + (let () (declare (not safe)) (##cdr _e262410263149_))) + (_hd262409263152_ + (let () (declare (not safe)) (##car _e262410263149_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259713260459_)) - (let ((_e259718260462_ + (gx#stx-pair? _tl262408263154_)) + (let ((_e262413263157_ (let () (declare (not safe)) - (gx#stx-e _tl259713260459_)))) - (let ((_tl259716260467_ + (gx#stx-e _tl262408263154_)))) + (let ((_tl262411263162_ (let () (declare (not safe)) - (##cdr _e259718260462_))) - (_hd259717260465_ + (##cdr _e262413263157_))) + (_hd262412263160_ (let () (declare (not safe)) - (##car _e259718260462_)))) + (##car _e262413263157_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259716260467_)) - (___kont269692269693_ - _hd259717260465_ - _hd259714260457_ - _hd259711260449_) - (___kont269712269713_)))) - (___kont269712269713_)))) - (___kont269712269713_)))) + (gx#stx-null? _tl262411263162_)) + (___kont272487272488_ + _hd262412263160_ + _hd262409263152_ + _hd262406263144_) + (___kont272507272508_)))) + (___kont272507272508_)))) + (___kont272507272508_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269712269713_)) + (___kont272507272508_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd259708260441_)) + _hd262403263136_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259707260443_)) - (let ((_e259726260336_ + _tl262402263138_)) + (let ((_e262421263031_ (let () (declare (not safe)) (gx#stx-e - _tl259707260443_)))) - (let ((_tl259724260341_ + _tl262402263138_)))) + (let ((_tl262419263036_ (let () (declare (not safe)) - (##cdr _e259726260336_))) - (_hd259725260339_ + (##cdr _e262421263031_))) + (_hd262420263034_ (let () (declare (not safe)) - (##car _e259726260336_)))) + (##car _e262421263031_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259725260339_)) - (let ((_e259729260344_ + _hd262420263034_)) + (let ((_e262424263039_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd259725260339_)))) - (let ((_tl259727260349_ + (gx#stx-e _hd262420263034_)))) + (let ((_tl262422263044_ (let () (declare (not safe)) - (##cdr _e259729260344_))) - (_hd259728260347_ + (##cdr _e262424263039_))) + (_hd262423263042_ (let () (declare (not safe)) - (##car _e259729260344_)))) + (##car _e262424263039_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd259728260347_)) + (gx#identifier? _hd262423263042_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd259728260347_)) + (gx#stx-eq? '%#ref _hd262423263042_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259727260349_)) - (let ((_e259732260352_ + (gx#stx-pair? _tl262422263044_)) + (let ((_e262427263047_ (let () (declare (not safe)) - (gx#stx-e _tl259727260349_)))) - (let ((_tl259730260357_ + (gx#stx-e _tl262422263044_)))) + (let ((_tl262425263052_ (let () (declare (not safe)) - (##cdr _e259732260352_))) - (_hd259731260355_ + (##cdr _e262427263047_))) + (_hd262426263050_ (let () (declare (not safe)) - (##car _e259732260352_)))) + (##car _e262427263047_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259730260357_)) + (gx#stx-null? _tl262425263052_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl259724260341_)) - (let ((___splice269696269697_ + _tl262419263036_)) + (let ((___splice272491272492_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl259724260341_ + _tl262419263036_ '0)))) - (let ((_tl259735260362_ + (let ((_tl262430263057_ (let () (declare (not safe)) (##vector-ref - ___splice269696269697_ + ___splice272491272492_ '1))) - (_target259733260360_ + (_target262428263055_ (let () (declare (not safe)) (##vector-ref - ___splice269696269697_ + ___splice272491272492_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl259735260362_)) - (___match269785269786_ - _e259709260438_ - _hd259708260441_ - _tl259707260443_ - _e259726260336_ - _hd259725260339_ - _tl259724260341_ - _e259729260344_ - _hd259728260347_ - _tl259727260349_ - _e259732260352_ - _hd259731260355_ - _tl259730260357_ - ___splice269696269697_ - _target259733260360_ - _tl259735260362_) - (___kont269712269713_)))) - (___kont269712269713_)) - (___kont269712269713_)))) - (___kont269712269713_)) - (___kont269712269713_)) - (___kont269712269713_)))) - (___kont269712269713_)))) + _tl262430263057_)) + (___match272580272581_ + _e262404263133_ + _hd262403263136_ + _tl262402263138_ + _e262421263031_ + _hd262420263034_ + _tl262419263036_ + _e262424263039_ + _hd262423263042_ + _tl262422263044_ + _e262427263047_ + _hd262426263050_ + _tl262425263052_ + ___splice272491272492_ + _target262428263055_ + _tl262430263057_) + (___kont272507272508_)))) + (___kont272507272508_)) + (___kont272507272508_)))) + (___kont272507272508_)) + (___kont272507272508_)) + (___kont272507272508_)))) + (___kont272507272508_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269712269713_)) + (___kont272507272508_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd259708260441_)) + _hd262403263136_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259707260443_)) - (let ((_e259756260206_ + _tl262402263138_)) + (let ((_e262451262901_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl259707260443_)))) - (let ((_tl259754260211_ - (let () (declare (not safe)) (##cdr _e259756260206_))) - (_hd259755260209_ - (let () (declare (not safe)) (##car _e259756260206_)))) + (gx#stx-e _tl262402263138_)))) + (let ((_tl262449262906_ + (let () (declare (not safe)) (##cdr _e262451262901_))) + (_hd262450262904_ + (let () (declare (not safe)) (##car _e262451262901_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd259755260209_)) - (let ((___splice269700269701_ + (gx#stx-pair/null? _hd262450262904_)) + (let ((___splice272495272496_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd259755260209_ '0)))) - (let ((_tl259759260216_ + (gx#syntax-split-splice _hd262450262904_ '0)))) + (let ((_tl262454262911_ (let () (declare (not safe)) - (##vector-ref ___splice269700269701_ '1))) - (_target259757260214_ + (##vector-ref ___splice272495272496_ '1))) + (_target262452262909_ (let () (declare (not safe)) - (##vector-ref ___splice269700269701_ '0)))) + (##vector-ref ___splice272495272496_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259759260216_)) - (___match269809269810_ - _e259709260438_ - _hd259708260441_ - _tl259707260443_ - _e259756260206_ - _hd259755260209_ - _tl259754260211_ - ___splice269700269701_ - _target259757260214_ - _tl259759260216_) - (___kont269712269713_)))) - (___kont269712269713_)))) - (___kont269712269713_)) + (gx#stx-null? _tl262454262911_)) + (___match272604272605_ + _e262404263133_ + _hd262403263136_ + _tl262402263138_ + _e262451262901_ + _hd262450262904_ + _tl262449262906_ + ___splice272495272496_ + _target262452262909_ + _tl262454262911_) + (___kont272507272508_)))) + (___kont272507272508_)))) + (___kont272507272508_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd259708260441_)) + _hd262403263136_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259707260443_)) - (let ((_e259828259895_ + _tl262402263138_)) + (let ((_e262523262590_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl259707260443_)))) - (let ((_tl259826259900_ + (gx#stx-e _tl262402263138_)))) + (let ((_tl262521262595_ (let () (declare (not safe)) - (##cdr _e259828259895_))) - (_hd259827259898_ + (##cdr _e262523262590_))) + (_hd262522262593_ (let () (declare (not safe)) - (##car _e259828259895_)))) + (##car _e262523262590_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd259827259898_)) - (let ((_e259831259903_ + (gx#stx-pair? _hd262522262593_)) + (let ((_e262526262598_ (let () (declare (not safe)) - (gx#stx-e _hd259827259898_)))) - (let ((_tl259829259908_ + (gx#stx-e _hd262522262593_)))) + (let ((_tl262524262603_ (let () (declare (not safe)) - (##cdr _e259831259903_))) - (_hd259830259906_ + (##cdr _e262526262598_))) + (_hd262525262601_ (let () (declare (not safe)) - (##car _e259831259903_)))) + (##car _e262526262598_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd259830259906_)) - (let ((_e259834259911_ + (gx#stx-pair? _hd262525262601_)) + (let ((_e262529262606_ (let () (declare (not safe)) - (gx#stx-e _hd259830259906_)))) - (let ((_tl259832259916_ + (gx#stx-e _hd262525262601_)))) + (let ((_tl262527262611_ (let () (declare (not safe)) - (##cdr _e259834259911_))) - (_hd259833259914_ + (##cdr _e262529262606_))) + (_hd262528262609_ (let () (declare (not safe)) - (##car _e259834259911_)))) + (##car _e262529262606_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd259833259914_)) - (let ((_e259837259919_ + (gx#stx-pair? _hd262528262609_)) + (let ((_e262532262614_ (let () (declare (not safe)) (gx#stx-e - _hd259833259914_)))) - (let ((_tl259835259924_ + _hd262528262609_)))) + (let ((_tl262530262619_ (let () (declare (not safe)) - (##cdr _e259837259919_))) - (_hd259836259922_ + (##cdr _e262532262614_))) + (_hd262531262617_ (let () (declare (not safe)) - (##car _e259837259919_)))) + (##car _e262532262614_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl259835259924_)) + _tl262530262619_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259832259916_)) - (let ((_e259840259927_ + _tl262527262611_)) + (let ((_e262535262622_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl259832259916_)))) - (let ((_tl259838259932_ - (let () (declare (not safe)) (##cdr _e259840259927_))) - (_hd259839259930_ - (let () (declare (not safe)) (##car _e259840259927_)))) + (gx#stx-e _tl262527262611_)))) + (let ((_tl262533262627_ + (let () (declare (not safe)) (##cdr _e262535262622_))) + (_hd262534262625_ + (let () (declare (not safe)) (##car _e262535262622_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd259839259930_)) - (let ((_e259843259935_ + (gx#stx-pair? _hd262534262625_)) + (let ((_e262538262630_ (let () (declare (not safe)) - (gx#stx-e _hd259839259930_)))) - (let ((_tl259841259940_ + (gx#stx-e _hd262534262625_)))) + (let ((_tl262536262635_ (let () (declare (not safe)) - (##cdr _e259843259935_))) - (_hd259842259938_ + (##cdr _e262538262630_))) + (_hd262537262633_ (let () (declare (not safe)) - (##car _e259843259935_)))) + (##car _e262538262630_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd259842259938_)) + (gx#identifier? _hd262537262633_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd259842259938_)) + (gx#stx-eq? '%#lambda _hd262537262633_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259841259940_)) - (let ((_e259846259943_ + (gx#stx-pair? _tl262536262635_)) + (let ((_e262541262638_ (let () (declare (not safe)) - (gx#stx-e _tl259841259940_)))) - (let ((_tl259844259948_ + (gx#stx-e _tl262536262635_)))) + (let ((_tl262539262643_ (let () (declare (not safe)) - (##cdr _e259846259943_))) - (_hd259845259946_ + (##cdr _e262541262638_))) + (_hd262540262641_ (let () (declare (not safe)) - (##car _e259846259943_)))) + (##car _e262541262638_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd259845259946_)) - (let ((___splice269708269709_ + _hd262540262641_)) + (let ((___splice272503272504_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd259845259946_ + _hd262540262641_ '0)))) - (let ((_tl259849259953_ + (let ((_tl262544262648_ (let () (declare (not safe)) (##vector-ref - ___splice269708269709_ + ___splice272503272504_ '1))) - (_target259847259951_ + (_target262542262646_ (let () (declare (not safe)) (##vector-ref - ___splice269708269709_ + ___splice272503272504_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl259849259953_)) - (___match269899269900_ - _e259709260438_ - _hd259708260441_ - _tl259707260443_ - _e259828259895_ - _hd259827259898_ - _tl259826259900_ - _e259831259903_ - _hd259830259906_ - _tl259829259908_ - _e259834259911_ - _hd259833259914_ - _tl259832259916_ - _e259837259919_ - _hd259836259922_ - _tl259835259924_ - _e259840259927_ - _hd259839259930_ - _tl259838259932_ - _e259843259935_ - _hd259842259938_ - _tl259841259940_ - _e259846259943_ - _hd259845259946_ - _tl259844259948_ - ___splice269708269709_ - _target259847259951_ - _tl259849259953_) - (___kont269712269713_)))) - (___kont269712269713_)))) - (___kont269712269713_)) - (___kont269712269713_)) - (___kont269712269713_)))) - (___kont269712269713_)))) - (___kont269712269713_)) + _tl262544262648_)) + (___match272694272695_ + _e262404263133_ + _hd262403263136_ + _tl262402263138_ + _e262523262590_ + _hd262522262593_ + _tl262521262595_ + _e262526262598_ + _hd262525262601_ + _tl262524262603_ + _e262529262606_ + _hd262528262609_ + _tl262527262611_ + _e262532262614_ + _hd262531262617_ + _tl262530262619_ + _e262535262622_ + _hd262534262625_ + _tl262533262627_ + _e262538262630_ + _hd262537262633_ + _tl262536262635_ + _e262541262638_ + _hd262540262641_ + _tl262539262643_ + ___splice272503272504_ + _target262542262646_ + _tl262544262648_) + (___kont272507272508_)))) + (___kont272507272508_)))) + (___kont272507272508_)) + (___kont272507272508_)) + (___kont272507272508_)))) + (___kont272507272508_)))) + (___kont272507272508_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269712269713_)))) - (___kont269712269713_)))) - (___kont269712269713_)))) - (___kont269712269713_)))) - (___kont269712269713_)) - (___kont269712269713_))))) + (___kont272507272508_)))) + (___kont272507272508_)))) + (___kont272507272508_)))) + (___kont272507272508_)))) + (___kont272507272508_)) + (___kont272507272508_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269712269713_)))) - (___kont269712269713_))))))) - (_optimize-t__268621268622_ - (lambda (_expr259678_ _test259679_ _continue259680_) - (let ((__tmp271990 - (let ((__tmp271991 + (___kont272507272508_)))) + (___kont272507272508_))))))) + (_optimize-t__271416271417_ + (lambda (_expr262373_ _test262374_ _continue262375_) + (let ((__tmp274785 + (let ((__tmp274786 (let () (declare (not safe)) - (cons _test259679_ '#t)))) + (cons _test262374_ '#t)))) (declare (not safe)) - (cons __tmp271991 '()))) - (__tmp271989 - (lambda () (_continue259680_ _expr259678_)))) + (cons __tmp274786 '()))) + (__tmp274784 + (lambda () (_continue262375_ _expr262373_)))) (declare (not safe)) - (_do-assert256692_ __tmp271990 __tmp271989)))) - (_optimize-t__0__268623268624_ - (lambda (_expr259686_ _test259687_) - (let ((_continue259689_ _optimize-e256703_)) + (_do-assert259387_ __tmp274785 __tmp274784)))) + (_optimize-t__0__271418271419_ + (lambda (_expr262381_ _test262382_) + (let ((_continue262384_ _optimize-e259398_)) (declare (not safe)) - (_optimize-t__268621268622_ - _expr259686_ - _test259687_ - _continue259689_)))) - (_optimize-t256704_ - (lambda _g271993_ - (let ((_g271992_ + (_optimize-t__271416271417_ + _expr262381_ + _test262382_ + _continue262384_)))) + (_optimize-t259399_ + (lambda _g274788_ + (let ((_g274787_ (let () (declare (not safe)) - (##length _g271993_)))) - (cond ((let () (declare (not safe)) (##fx= _g271992_ 2)) - (apply (lambda (_expr259686_ _test259687_) + (##length _g274788_)))) + (cond ((let () (declare (not safe)) (##fx= _g274787_ 2)) + (apply (lambda (_expr262381_ _test262382_) (let () (declare (not safe)) - (_optimize-t__0__268623268624_ - _expr259686_ - _test259687_))) - _g271993_)) - ((let () (declare (not safe)) (##fx= _g271992_ 3)) - (apply (lambda (_expr259691_ - _test259692_ - _continue259693_) + (_optimize-t__0__271418271419_ + _expr262381_ + _test262382_))) + _g274788_)) + ((let () (declare (not safe)) (##fx= _g274787_ 3)) + (apply (lambda (_expr262386_ + _test262387_ + _continue262388_) (let () (declare (not safe)) - (_optimize-t__268621268622_ - _expr259691_ - _test259692_ - _continue259693_))) - _g271993_)) + (_optimize-t__271416271417_ + _expr262386_ + _test262387_ + _continue262388_))) + _g274788_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g271993_)))))) - (_optimize-f__268625268626_ - (lambda (_expr258763_ _test258764_) - (let ((__tmp272036 - (if _test258764_ - (let ((__tmp272037 + _g274788_)))))) + (_optimize-f__271420271421_ + (lambda (_expr261458_ _test261459_) + (let ((__tmp274831 + (if _test261459_ + (let ((__tmp274832 (let () (declare (not safe)) - (cons _test258764_ '#f)))) + (cons _test261459_ '#f)))) (declare (not safe)) - (cons __tmp272037 '())) + (cons __tmp274832 '())) '())) - (__tmp271994 + (__tmp274789 (lambda () - (let* ((___stx269940269941_ _expr258763_) - (_g258772258945_ + (let* ((___stx272735272736_ _expr261458_) + (_g261467261640_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx269940269941_))))) - (let ((___kont269942269943_ - (lambda (_L259533_ _L259534_) - (let ((_$e259554_ + ___stx272735272736_))))) + (let ((___kont272737272738_ + (lambda (_L262228_ _L262229_) + (let ((_$e262249_ (let () (declare (not safe)) - (_lookup-block256711_ - _L259534_)))) - (if _$e259554_ - ((lambda (_block259557_) + (_lookup-block259406_ + _L262229_)))) + (if _$e262249_ + ((lambda (_block262252_) (if (let () (declare (not safe)) - (_nonlinear-block?256713_ - _block259557_)) - _expr258763_ - (let* ((_inline259566_ - (let ((__tmp271995 + (_nonlinear-block?259408_ + _block262252_)) + _expr261458_ + (let* ((_inline262261_ + (let ((__tmp274790 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp271996 - (lambda (_g259558259561_ _g259559259563_) + (let ((__tmp274791 + (lambda (_g262253262256_ _g262254262258_) (let () (declare (not safe)) - (cons _g259558259561_ - _g259559259563_))))) + (cons _g262253262256_ + _g262254262258_))))) (declare (not safe)) - (foldr1 __tmp271996 '() _L259533_)))) + (foldr1 __tmp274791 '() _L262228_)))) (declare (not safe)) - (_inline-block256712_ _block259557_ __tmp271995))) - (___stx269902269903_ _inline259566_) - (_g259569259590_ + (_inline-block259407_ _block262252_ __tmp274790))) + (___stx272697272698_ _inline262261_) + (_g262264262285_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx269902269903_))))) - (let ((___kont269904269905_ - (lambda (_L259634_ _L259635_ _L259636_) - (let ((_$e259658_ + ___stx272697272698_))))) + (let ((___kont272699272700_ + (lambda (_L262329_ _L262330_ _L262331_) + (let ((_$e262353_ (let () (declare (not safe)) - (_assert-e256706_ _L259636_)))) + (_assert-e259401_ _L262331_)))) (if (let () (declare (not safe)) - (eq? '#t _$e259658_)) - (if _in-splice?256691_ + (eq? '#t _$e262353_)) + (if _in-splice?259386_ (let () (declare (not safe)) - (_optimize-f__0__268627268628_ _L259635_)) + (_optimize-f__0__271422271423_ _L262330_)) (let () (declare (not safe)) - (_optimize-e256703_ _L259635_))) + (_optimize-e259398_ _L262330_))) (if (let () (declare (not safe)) - (eq? '#f _$e259658_)) + (eq? '#f _$e262353_)) (let () (declare (not safe)) - (_optimize-f__0__268627268628_ _L259634_)) - _expr258763_))))) - (___kont269906269907_ + (_optimize-f__0__271422271423_ _L262329_)) + _expr261458_))))) + (___kont272701272702_ (lambda () (let () (declare (not safe)) - (_optimize-f__0__268627268628_ _inline259566_))))) + (_optimize-f__0__271422271423_ _inline262261_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx269902269903_)) - (let ((_e259576259602_ + (gx#stx-pair? ___stx272697272698_)) + (let ((_e262271262297_ (let () (declare (not safe)) - (gx#stx-e ___stx269902269903_)))) - (let ((_tl259574259607_ + (gx#stx-e ___stx272697272698_)))) + (let ((_tl262269262302_ (let () (declare (not safe)) - (##cdr _e259576259602_))) - (_hd259575259605_ + (##cdr _e262271262297_))) + (_hd262270262300_ (let () (declare (not safe)) - (##car _e259576259602_)))) + (##car _e262271262297_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd259575259605_)) + (gx#identifier? _hd262270262300_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd259575259605_)) + (gx#stx-eq? '%#if _hd262270262300_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259574259607_)) - (let ((_e259579259610_ + (gx#stx-pair? _tl262269262302_)) + (let ((_e262274262305_ (let () (declare (not safe)) - (gx#stx-e _tl259574259607_)))) - (let ((_tl259577259615_ + (gx#stx-e _tl262269262302_)))) + (let ((_tl262272262310_ (let () (declare (not safe)) - (##cdr _e259579259610_))) - (_hd259578259613_ + (##cdr _e262274262305_))) + (_hd262273262308_ (let () (declare (not safe)) - (##car _e259579259610_)))) + (##car _e262274262305_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259577259615_)) - (let ((_e259582259618_ + _tl262272262310_)) + (let ((_e262277262313_ (let () (declare (not safe)) (gx#stx-e - _tl259577259615_)))) - (let ((_tl259580259623_ + _tl262272262310_)))) + (let ((_tl262275262318_ (let () (declare (not safe)) - (##cdr _e259582259618_))) - (_hd259581259621_ + (##cdr _e262277262313_))) + (_hd262276262316_ (let () (declare (not safe)) - (##car _e259582259618_)))) + (##car _e262277262313_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259580259623_)) - (let ((_e259585259626_ + _tl262275262318_)) + (let ((_e262280262321_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl259580259623_)))) - (let ((_tl259583259631_ - (let () (declare (not safe)) (##cdr _e259585259626_))) - (_hd259584259629_ - (let () (declare (not safe)) (##car _e259585259626_)))) + (gx#stx-e _tl262275262318_)))) + (let ((_tl262278262326_ + (let () (declare (not safe)) (##cdr _e262280262321_))) + (_hd262279262324_ + (let () (declare (not safe)) (##car _e262280262321_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259583259631_)) - (___kont269904269905_ - _hd259584259629_ - _hd259581259621_ - _hd259578259613_) - (___kont269906269907_)))) - (___kont269906269907_)))) + (gx#stx-null? _tl262278262326_)) + (___kont272699272700_ + _hd262279262324_ + _hd262276262316_ + _hd262273262308_) + (___kont272701272702_)))) + (___kont272701272702_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269906269907_)))) - (___kont269906269907_)) - (___kont269906269907_)) - (___kont269906269907_)))) - (___kont269906269907_)))))) + (___kont272701272702_)))) + (___kont272701272702_)) + (___kont272701272702_)) + (___kont272701272702_)))) + (___kont272701272702_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e259554_) - _expr258763_)))) - (___kont269946269947_ - (lambda (_L259431_ _L259432_ _L259433_) - (let ((_$e259450_ + _$e262249_) + _expr261458_)))) + (___kont272741272742_ + (lambda (_L262126_ _L262127_ _L262128_) + (let ((_$e262145_ (let () (declare (not safe)) - (_assert-e256706_ - _L259433_)))) + (_assert-e259401_ + _L262128_)))) (if (let () (declare (not safe)) - (eq? '#t _$e259450_)) - (if _in-splice?256691_ + (eq? '#t _$e262145_)) + (if _in-splice?259386_ (let () (declare (not safe)) - (_optimize-f__0__268627268628_ - _L259432_)) + (_optimize-f__0__271422271423_ + _L262127_)) (let () (declare (not safe)) - (_optimize-e256703_ - _L259432_))) + (_optimize-e259398_ + _L262127_))) (if (let () (declare (not safe)) - (eq? '#f _$e259450_)) + (eq? '#f _$e262145_)) (let () (declare (not safe)) - (_optimize-f__0__268627268628_ - _L259431_)) - (let ((_K259453_ + (_optimize-f__0__271422271423_ + _L262126_)) + (let ((_K262148_ (let () (declare (not safe)) - (_optimize-t__268621268622_ - _L259432_ - _L259433_ - _optimize-f256705_))) - (_E259454_ + (_optimize-t__271416271417_ + _L262127_ + _L262128_ + _optimize-f259400_))) + (_E262149_ (let () (declare (not safe)) - (_optimize-f__268625268626_ - _L259431_ - _L259433_)))) - (if (let ((__tmp272001 + (_optimize-f__271420271421_ + _L262126_ + _L262128_)))) + (if (let ((__tmp274796 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#apply-generate-runtime-repr _K259453_))) - (__tmp272000 + (gxc#apply-generate-runtime-repr _K262148_))) + (__tmp274795 (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _E259454_)))) + (gxc#apply-generate-runtime-repr _E262149_)))) (declare (not safe)) - (equal? __tmp272001 __tmp272000)) - _K259453_ - (let ((__tmp271997 - (let ((__tmp271998 - (let ((__tmp271999 + (equal? __tmp274796 __tmp274795)) + _K262148_ + (let ((__tmp274792 + (let ((__tmp274793 + (let ((__tmp274794 (let () (declare (not safe)) - (cons _E259454_ '())))) + (cons _E262149_ '())))) (declare (not safe)) - (cons _K259453_ __tmp271999)))) + (cons _K262148_ __tmp274794)))) (declare (not safe)) - (cons _L259433_ __tmp271998)))) + (cons _L262128_ __tmp274793)))) (declare (not safe)) - (cons '%#if __tmp271997))))))))) + (cons '%#if __tmp274792))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269948269949_ - (lambda (_L259361_ _L259362_ _L259363_) - (let* ((_body259382_ + (___kont272743272744_ + (lambda (_L262056_ _L262057_ _L262058_) + (let* ((_body262077_ (let () (declare (not safe)) - (_optimize-f__0__268627268628_ - _L259361_))) - (__tmp272002 - (let ((__tmp272004 + (_optimize-f__0__271422271423_ + _L262056_))) + (__tmp274797 + (let ((__tmp274799 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L259362_ - _L259363_)) - (let ((__tmp272005 + _L262057_ + _L262058_)) + (let ((__tmp274800 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g259383259387_ - _g259384259389_ - _g259385259391_) - (let ((__tmp272006 - (let ((__tmp272011 + (lambda (_g262078262082_ + _g262079262084_ + _g262080262086_) + (let ((__tmp274801 + (let ((__tmp274806 (let () (declare (not safe)) - (cons _g259384259389_ '()))) - (__tmp272007 - (let ((__tmp272008 - (let ((__tmp272010 + (cons _g262079262084_ '()))) + (__tmp274802 + (let ((__tmp274803 + (let ((__tmp274805 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp272009 + (__tmp274804 (let () (declare (not safe)) - (cons _g259383259387_ + (cons _g262078262082_ '())))) (declare (not safe)) - (cons __tmp272010 - __tmp272009)))) + (cons __tmp274805 + __tmp274804)))) (declare (not safe)) - (cons __tmp272008 '())))) + (cons __tmp274803 '())))) (declare (not safe)) - (cons __tmp272011 __tmp272007)))) + (cons __tmp274806 __tmp274802)))) (declare (not safe)) - (cons __tmp272006 _g259385259391_))))) + (cons __tmp274801 _g262080262086_))))) (declare (not safe)) - (foldr2 __tmp272005 '() _L259362_ _L259363_)))) - (__tmp272003 - (let () (declare (not safe)) (cons _body259382_ '())))) + (foldr2 __tmp274800 '() _L262057_ _L262058_)))) + (__tmp274798 + (let () (declare (not safe)) (cons _body262077_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272004 - __tmp272003)))) + (cons __tmp274799 + __tmp274798)))) (declare (not safe)) - (cons '%#let-values __tmp272002)))) - (___kont269952269953_ - (lambda (_L259229_ _L259230_ _L259231_) - (let ((__tmp272012 + (cons '%#let-values __tmp274797)))) + (___kont272747272748_ + (lambda (_L261924_ _L261925_ _L261926_) + (let ((__tmp274807 (map cons - (let ((__tmp272013 - (lambda (_g259249259252_ + (let ((__tmp274808 + (lambda (_g261944261947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g259250259254_) + _g261945261949_) (let () (declare (not safe)) - (cons _g259249259252_ _g259250259254_))))) + (cons _g261944261947_ _g261945261949_))))) (declare (not safe)) - (foldr1 __tmp272013 '() _L259231_)) + (foldr1 __tmp274808 '() _L261926_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp272014 - (lambda (_g259256259259_ + (let ((__tmp274809 + (lambda (_g261951261954_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g259257259261_) + _g261952261956_) (let () (declare (not safe)) - (cons _g259256259259_ _g259257259261_))))) + (cons _g261951261954_ _g261952261956_))))) (declare (not safe)) - (foldr1 __tmp272014 '() _L259230_))))) + (foldr1 __tmp274809 '() _L261925_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_bind-e__268629268630_ - __tmp272012 - _L259229_ - _optimize-f256705_)))) - (___kont269956269957_ - (lambda (_L259085_ - _L259086_ - _L259087_ - _L259088_ - _L259089_) - (let ((__tmp272015 + (_bind-e__271424271425_ + __tmp274807 + _L261924_ + _optimize-f259400_)))) + (___kont272751272752_ + (lambda (_L261780_ + _L261781_ + _L261782_ + _L261783_ + _L261784_) + (let ((__tmp274810 (lambda () - (let* ((_expr259132_ + (let* ((_expr261827_ (let () (declare (not safe)) - (_optimize-f__0__268627268628_ - _L259087_))) - (__tmp272016 - (let ((__tmp272018 + (_optimize-f__0__271422271423_ + _L261782_))) + (__tmp274811 + (let ((__tmp274813 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp272021 - (let ((__tmp272028 + (let ((__tmp274816 + (let ((__tmp274823 (let () (declare (not safe)) - (cons _L259089_ '()))) - (__tmp272022 - (let ((__tmp272023 - (let ((__tmp272024 - (let ((__tmp272026 - (let ((__tmp272027 + (cons _L261784_ '()))) + (__tmp274817 + (let ((__tmp274818 + (let ((__tmp274819 + (let ((__tmp274821 + (let ((__tmp274822 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g259133259136_ _g259134259138_) + (lambda (_g261828261831_ _g261829261833_) (let () (declare (not safe)) - (cons _g259133259136_ _g259134259138_))))) + (cons _g261828261831_ _g261829261833_))))) (declare (not safe)) - (foldr1 __tmp272027 '() _L259088_))) - (__tmp272025 - (let () (declare (not safe)) (cons _expr259132_ '())))) + (foldr1 __tmp274822 '() _L261783_))) + (__tmp274820 + (let () (declare (not safe)) (cons _expr261827_ '())))) (declare (not safe)) - (cons __tmp272026 __tmp272025)))) + (cons __tmp274821 __tmp274820)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#lambda __tmp272024)))) + (cons '%#lambda __tmp274819)))) (declare (not safe)) - (cons __tmp272023 '())))) + (cons __tmp274818 '())))) (declare (not safe)) - (cons __tmp272028 __tmp272022))) - (__tmp272019 - (let ((__tmp272020 - (lambda (_g259140259143_ - _g259141259145_) + (cons __tmp274823 __tmp274817))) + (__tmp274814 + (let ((__tmp274815 + (lambda (_g261835261838_ + _g261836261840_) (let () (declare (not safe)) - (cons _g259140259143_ - _g259141259145_))))) + (cons _g261835261838_ + _g261836261840_))))) (declare (not safe)) - (foldr1 __tmp272020 '() _L259086_)))) + (foldr1 __tmp274815 '() _L261781_)))) (declare (not safe)) - (cons __tmp272021 __tmp272019))) - (__tmp272017 - (let () (declare (not safe)) (cons _L259085_ '())))) + (cons __tmp274816 __tmp274814))) + (__tmp274812 + (let () (declare (not safe)) (cons _L261780_ '())))) (declare (not safe)) - (cons __tmp272018 __tmp272017)))) + (cons __tmp274813 __tmp274812)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#letrec-values - __tmp272016))))) + __tmp274811))))) (declare (not safe)) - (_do-splice!256702_ __tmp272015)))) - (___kont269962269963_ - (lambda () _expr258763_))) - (let* ((___match270149270150_ - (lambda (_e258895258957_ - _hd258894258960_ - _tl258893258962_ - _e258898258965_ - _hd258897258968_ - _tl258896258970_ - _e258901258973_ - _hd258900258976_ - _tl258899258978_ - _e258904258981_ - _hd258903258984_ - _tl258902258986_ - _e258907258989_ - _hd258906258992_ - _tl258905258994_ - _e258910258997_ - _hd258909259000_ - _tl258908259002_ - _e258913259005_ - _hd258912259008_ - _tl258911259010_ - _e258916259013_ - _hd258915259016_ - _tl258914259018_ - ___splice269958269959_ - _target258917259021_ - _tl258919259023_) - (letrec ((_loop258920259026_ - (lambda (_hd258918259029_ - _id258924259031_) + (_do-splice!259397_ __tmp274810)))) + (___kont272757272758_ + (lambda () _expr261458_))) + (let* ((___match272944272945_ + (lambda (_e261590261652_ + _hd261589261655_ + _tl261588261657_ + _e261593261660_ + _hd261592261663_ + _tl261591261665_ + _e261596261668_ + _hd261595261671_ + _tl261594261673_ + _e261599261676_ + _hd261598261679_ + _tl261597261681_ + _e261602261684_ + _hd261601261687_ + _tl261600261689_ + _e261605261692_ + _hd261604261695_ + _tl261603261697_ + _e261608261700_ + _hd261607261703_ + _tl261606261705_ + _e261611261708_ + _hd261610261711_ + _tl261609261713_ + ___splice272753272754_ + _target261612261716_ + _tl261614261718_) + (letrec ((_loop261615261721_ + (lambda (_hd261613261724_ + _id261619261726_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258918259029_)) - (let ((_e258921259034_ + _hd261613261724_)) + (let ((_e261616261729_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd258918259029_)))) - (let ((_lp-tl258923259039_ + (gx#stx-e _hd261613261724_)))) + (let ((_lp-tl261618261734_ (let () (declare (not safe)) - (##cdr _e258921259034_))) - (_lp-hd258922259037_ + (##cdr _e261616261729_))) + (_lp-hd261617261732_ (let () (declare (not safe)) - (##car _e258921259034_)))) - (let ((__tmp272030 + (##car _e261616261729_)))) + (let ((__tmp274825 (let () (declare (not safe)) - (cons _lp-hd258922259037_ _id258924259031_)))) + (cons _lp-hd261617261732_ _id261619261726_)))) (declare (not safe)) - (_loop258920259026_ - _lp-tl258923259039_ - __tmp272030)))) - (let ((_id258925259042_ (reverse _id258924259031_))) + (_loop261615261721_ + _lp-tl261618261734_ + __tmp274825)))) + (let ((_id261620261737_ (reverse _id261619261726_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258914259018_)) - (let ((_e258928259045_ + (gx#stx-pair? _tl261609261713_)) + (let ((_e261623261740_ (let () (declare (not safe)) - (gx#stx-e _tl258914259018_)))) - (let ((_tl258926259050_ + (gx#stx-e _tl261609261713_)))) + (let ((_tl261621261745_ (let () (declare (not safe)) - (##cdr _e258928259045_))) - (_hd258927259048_ + (##cdr _e261623261740_))) + (_hd261622261743_ (let () (declare (not safe)) - (##car _e258928259045_)))) + (##car _e261623261740_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258926259050_)) + (gx#stx-null? _tl261621261745_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl258908259002_)) + (gx#stx-null? _tl261603261697_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl258899258978_)) - (let ((___splice269960269961_ + _tl261594261673_)) + (let ((___splice272755272756_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl258899258978_ + _tl261594261673_ '0)))) - (let ((_tl258931259055_ + (let ((_tl261626261750_ (let () (declare (not safe)) (##vector-ref - ___splice269960269961_ + ___splice272755272756_ '1))) - (_target258929259053_ + (_target261624261748_ (let () (declare (not safe)) (##vector-ref - ___splice269960269961_ + ___splice272755272756_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258931259055_)) - (letrec ((_loop258932259058_ - (lambda (_hd258930259061_ + _tl261626261750_)) + (letrec ((_loop261627261753_ + (lambda (_hd261625261756_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind258936259063_) + _bind261631261758_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258930259061_)) - (let ((_e258933259066_ + (gx#stx-pair? _hd261625261756_)) + (let ((_e261628261761_ (let () (declare (not safe)) - (gx#stx-e _hd258930259061_)))) - (let ((_lp-tl258935259071_ + (gx#stx-e _hd261625261756_)))) + (let ((_lp-tl261630261766_ (let () (declare (not safe)) - (##cdr _e258933259066_))) - (_lp-hd258934259069_ + (##cdr _e261628261761_))) + (_lp-hd261629261764_ (let () (declare (not safe)) - (##car _e258933259066_)))) - (let ((__tmp272029 + (##car _e261628261761_)))) + (let ((__tmp274824 (let () (declare (not safe)) - (cons _lp-hd258934259069_ - _bind258936259063_)))) + (cons _lp-hd261629261764_ + _bind261631261758_)))) (declare (not safe)) - (_loop258932259058_ - _lp-tl258935259071_ - __tmp272029)))) - (let ((_bind258937259074_ - (reverse _bind258936259063_))) + (_loop261627261753_ + _lp-tl261630261766_ + __tmp274824)))) + (let ((_bind261632261769_ + (reverse _bind261631261758_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258896258970_)) - (let ((_e258940259077_ + (gx#stx-pair? _tl261591261665_)) + (let ((_e261635261772_ (let () (declare (not safe)) - (gx#stx-e _tl258896258970_)))) - (let ((_tl258938259082_ + (gx#stx-e _tl261591261665_)))) + (let ((_tl261633261777_ (let () (declare (not safe)) - (##cdr _e258940259077_))) - (_hd258939259080_ + (##cdr _e261635261772_))) + (_hd261634261775_ (let () (declare (not safe)) - (##car _e258940259077_)))) + (##car _e261635261772_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258938259082_)) - (___kont269956269957_ - _hd258939259080_ - _bind258937259074_ - _hd258927259048_ - _id258925259042_ - _hd258906258992_) - (___kont269962269963_)))) - (___kont269962269963_))))))) + (gx#stx-null? _tl261633261777_)) + (___kont272751272752_ + _hd261634261775_ + _bind261632261769_ + _hd261622261743_ + _id261620261737_ + _hd261601261687_) + (___kont272757272758_)))) + (___kont272757272758_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop258932259058_ - _target258929259053_ + (_loop261627261753_ + _target261624261748_ '()))) - (___kont269962269963_)))) - (___kont269962269963_)) - (___kont269962269963_)) - (___kont269962269963_)))) - (___kont269962269963_))))))) + (___kont272757272758_)))) + (___kont272757272758_)) + (___kont272757272758_)) + (___kont272757272758_)))) + (___kont272757272758_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop258920259026_ - _target258917259021_ + (_loop261615261721_ + _target261612261716_ '()))))) - (___match270083270084_ - (lambda (_e258861259153_ - _hd258860259156_ - _tl258859259158_ - _e258864259161_ - _hd258863259164_ - _tl258862259166_ - ___splice269954269955_ - _target258865259169_ - _tl258867259171_) - (letrec ((_loop258868259174_ - (lambda (_hd258866259177_ - _expr258872259179_ - _id258873259181_) + (___match272878272879_ + (lambda (_e261556261848_ + _hd261555261851_ + _tl261554261853_ + _e261559261856_ + _hd261558261859_ + _tl261557261861_ + ___splice272749272750_ + _target261560261864_ + _tl261562261866_) + (letrec ((_loop261563261869_ + (lambda (_hd261561261872_ + _expr261567261874_ + _id261568261876_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258866259177_)) - (let ((_e258869259184_ + _hd261561261872_)) + (let ((_e261564261879_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd258866259177_)))) - (let ((_lp-tl258871259189_ + (gx#stx-e _hd261561261872_)))) + (let ((_lp-tl261566261884_ (let () (declare (not safe)) - (##cdr _e258869259184_))) - (_lp-hd258870259187_ + (##cdr _e261564261879_))) + (_lp-hd261565261882_ (let () (declare (not safe)) - (##car _e258869259184_)))) + (##car _e261564261879_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd258870259187_)) - (let ((_e258878259192_ + (gx#stx-pair? _lp-hd261565261882_)) + (let ((_e261573261887_ (let () (declare (not safe)) - (gx#stx-e _lp-hd258870259187_)))) - (let ((_tl258876259197_ + (gx#stx-e _lp-hd261565261882_)))) + (let ((_tl261571261892_ (let () (declare (not safe)) - (##cdr _e258878259192_))) - (_hd258877259195_ + (##cdr _e261573261887_))) + (_hd261572261890_ (let () (declare (not safe)) - (##car _e258878259192_)))) + (##car _e261573261887_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258877259195_)) - (let ((_e258881259200_ + (gx#stx-pair? _hd261572261890_)) + (let ((_e261576261895_ (let () (declare (not safe)) - (gx#stx-e _hd258877259195_)))) - (let ((_tl258879259205_ + (gx#stx-e _hd261572261890_)))) + (let ((_tl261574261900_ (let () (declare (not safe)) - (##cdr _e258881259200_))) - (_hd258880259203_ + (##cdr _e261576261895_))) + (_hd261575261898_ (let () (declare (not safe)) - (##car _e258881259200_)))) + (##car _e261576261895_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258879259205_)) + (gx#stx-null? _tl261574261900_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258876259197_)) - (let ((_e258884259208_ + _tl261571261892_)) + (let ((_e261579261903_ (let () (declare (not safe)) (gx#stx-e - _tl258876259197_)))) - (let ((_tl258882259213_ + _tl261571261892_)))) + (let ((_tl261577261908_ (let () (declare (not safe)) - (##cdr _e258884259208_))) - (_hd258883259211_ + (##cdr _e261579261903_))) + (_hd261578261906_ (let () (declare (not safe)) - (##car _e258884259208_)))) + (##car _e261579261903_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258882259213_)) - (let ((__tmp272032 + _tl261577261908_)) + (let ((__tmp274827 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _hd258883259211_ _expr258872259179_))) - (__tmp272031 + (cons _hd261578261906_ _expr261567261874_))) + (__tmp274826 (let () (declare (not safe)) - (cons _hd258880259203_ _id258873259181_)))) + (cons _hd261575261898_ _id261568261876_)))) (declare (not safe)) - (_loop258868259174_ - _lp-tl258871259189_ - __tmp272032 - __tmp272031)) - (___kont269962269963_)))) + (_loop261563261869_ + _lp-tl261566261884_ + __tmp274827 + __tmp274826)) + (___kont272757272758_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269962269963_)) - (___kont269962269963_)))) - (___kont269962269963_)))) - (___kont269962269963_)))) - (let ((_id258875259218_ (reverse _id258873259181_)) - (_expr258874259216_ (reverse _expr258872259179_))) + (___kont272757272758_)) + (___kont272757272758_)))) + (___kont272757272758_)))) + (___kont272757272758_)))) + (let ((_id261570261913_ (reverse _id261568261876_)) + (_expr261569261911_ (reverse _expr261567261874_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258862259166_)) - (let ((_e258887259221_ + (gx#stx-pair? _tl261557261861_)) + (let ((_e261582261916_ (let () (declare (not safe)) - (gx#stx-e _tl258862259166_)))) - (let ((_tl258885259226_ + (gx#stx-e _tl261557261861_)))) + (let ((_tl261580261921_ (let () (declare (not safe)) - (##cdr _e258887259221_))) - (_hd258886259224_ + (##cdr _e261582261916_))) + (_hd261581261919_ (let () (declare (not safe)) - (##car _e258887259221_)))) + (##car _e261582261916_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258885259226_)) - (___kont269952269953_ - _hd258886259224_ - _expr258874259216_ - _id258875259218_) - (___kont269962269963_)))) - (___kont269962269963_))))))) + (gx#stx-null? _tl261580261921_)) + (___kont272747272748_ + _hd261581261919_ + _expr261569261911_ + _id261570261913_) + (___kont272757272758_)))) + (___kont272757272758_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop258868259174_ - _target258865259169_ + (_loop261563261869_ + _target261560261864_ '() '()))))) - (___match270059270060_ - (lambda (_e258823259269_ - _hd258822259272_ - _tl258821259274_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_) - (letrec ((_loop258830259290_ - (lambda (_hd258828259293_ - _xid258834259295_ - _id258835259297_) + (___match272854272855_ + (lambda (_e261518261964_ + _hd261517261967_ + _tl261516261969_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_) + (letrec ((_loop261525261985_ + (lambda (_hd261523261988_ + _xid261529261990_ + _id261530261992_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258828259293_)) - (let ((_e258831259300_ + _hd261523261988_)) + (let ((_e261526261995_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd258828259293_)))) - (let ((_lp-tl258833259305_ + (gx#stx-e _hd261523261988_)))) + (let ((_lp-tl261528262000_ (let () (declare (not safe)) - (##cdr _e258831259300_))) - (_lp-hd258832259303_ + (##cdr _e261526261995_))) + (_lp-hd261527261998_ (let () (declare (not safe)) - (##car _e258831259300_)))) + (##car _e261526261995_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd258832259303_)) - (let ((_e258840259308_ + (gx#stx-pair? _lp-hd261527261998_)) + (let ((_e261535262003_ (let () (declare (not safe)) - (gx#stx-e _lp-hd258832259303_)))) - (let ((_tl258838259313_ + (gx#stx-e _lp-hd261527261998_)))) + (let ((_tl261533262008_ (let () (declare (not safe)) - (##cdr _e258840259308_))) - (_hd258839259311_ + (##cdr _e261535262003_))) + (_hd261534262006_ (let () (declare (not safe)) - (##car _e258840259308_)))) + (##car _e261535262003_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258839259311_)) - (let ((_e258843259316_ + (gx#stx-pair? _hd261534262006_)) + (let ((_e261538262011_ (let () (declare (not safe)) - (gx#stx-e _hd258839259311_)))) - (let ((_tl258841259321_ + (gx#stx-e _hd261534262006_)))) + (let ((_tl261536262016_ (let () (declare (not safe)) - (##cdr _e258843259316_))) - (_hd258842259319_ + (##cdr _e261538262011_))) + (_hd261537262014_ (let () (declare (not safe)) - (##car _e258843259316_)))) + (##car _e261538262011_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258841259321_)) + (gx#stx-null? _tl261536262016_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258838259313_)) - (let ((_e258846259324_ + _tl261533262008_)) + (let ((_e261541262019_ (let () (declare (not safe)) (gx#stx-e - _tl258838259313_)))) - (let ((_tl258844259329_ + _tl261533262008_)))) + (let ((_tl261539262024_ (let () (declare (not safe)) - (##cdr _e258846259324_))) - (_hd258845259327_ + (##cdr _e261541262019_))) + (_hd261540262022_ (let () (declare (not safe)) - (##car _e258846259324_)))) + (##car _e261541262019_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258845259327_)) - (let ((_e258849259332_ + _hd261540262022_)) + (let ((_e261544262027_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd258845259327_)))) - (let ((_tl258847259337_ - (let () (declare (not safe)) (##cdr _e258849259332_))) - (_hd258848259335_ + (gx#stx-e _hd261540262022_)))) + (let ((_tl261542262032_ + (let () (declare (not safe)) (##cdr _e261544262027_))) + (_hd261543262030_ (let () (declare (not safe)) - (##car _e258849259332_)))) + (##car _e261544262027_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258848259335_)) + (gx#identifier? _hd261543262030_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd258848259335_)) + (gx#stx-eq? '%#ref _hd261543262030_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258847259337_)) - (let ((_e258852259340_ + (gx#stx-pair? _tl261542262032_)) + (let ((_e261547262035_ (let () (declare (not safe)) - (gx#stx-e _tl258847259337_)))) - (let ((_tl258850259345_ + (gx#stx-e _tl261542262032_)))) + (let ((_tl261545262040_ (let () (declare (not safe)) - (##cdr _e258852259340_))) - (_hd258851259343_ + (##cdr _e261547262035_))) + (_hd261546262038_ (let () (declare (not safe)) - (##car _e258852259340_)))) + (##car _e261547262035_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258850259345_)) + (gx#stx-null? _tl261545262040_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl258844259329_)) - (let ((__tmp272034 + (gx#stx-null? _tl261539262024_)) + (let ((__tmp274829 (let () (declare (not safe)) - (cons _hd258851259343_ - _xid258834259295_))) - (__tmp272033 + (cons _hd261546262038_ + _xid261529261990_))) + (__tmp274828 (let () (declare (not safe)) - (cons _hd258842259319_ - _id258835259297_)))) + (cons _hd261537262014_ + _id261530261992_)))) (declare (not safe)) - (_loop258830259290_ - _lp-tl258833259305_ - __tmp272034 - __tmp272033)) - (___match270083270084_ - _e258823259269_ - _hd258822259272_ - _tl258821259274_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_)) - (___match270083270084_ - _e258823259269_ - _hd258822259272_ - _tl258821259274_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_)))) - (___match270083270084_ - _e258823259269_ - _hd258822259272_ - _tl258821259274_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_)) - (___match270083270084_ - _e258823259269_ - _hd258822259272_ - _tl258821259274_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_)) - (___match270083270084_ - _e258823259269_ - _hd258822259272_ - _tl258821259274_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_)))) - (___match270083270084_ - _e258823259269_ - _hd258822259272_ - _tl258821259274_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_)))) + (_loop261525261985_ + _lp-tl261528262000_ + __tmp274829 + __tmp274828)) + (___match272878272879_ + _e261518261964_ + _hd261517261967_ + _tl261516261969_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_)) + (___match272878272879_ + _e261518261964_ + _hd261517261967_ + _tl261516261969_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_)))) + (___match272878272879_ + _e261518261964_ + _hd261517261967_ + _tl261516261969_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_)) + (___match272878272879_ + _e261518261964_ + _hd261517261967_ + _tl261516261969_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_)) + (___match272878272879_ + _e261518261964_ + _hd261517261967_ + _tl261516261969_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_)))) + (___match272878272879_ + _e261518261964_ + _hd261517261967_ + _tl261516261969_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match270083270084_ - _e258823259269_ - _hd258822259272_ - _tl258821259274_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_)) - (___match270083270084_ - _e258823259269_ - _hd258822259272_ - _tl258821259274_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_)))) - (___match270083270084_ - _e258823259269_ - _hd258822259272_ - _tl258821259274_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_)))) - (___match270083270084_ - _e258823259269_ - _hd258822259272_ - _tl258821259274_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_)))) - (let ((_id258837259350_ (reverse _id258835259297_)) - (_xid258836259348_ (reverse _xid258834259295_))) + (___match272878272879_ + _e261518261964_ + _hd261517261967_ + _tl261516261969_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_)) + (___match272878272879_ + _e261518261964_ + _hd261517261967_ + _tl261516261969_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_)))) + (___match272878272879_ + _e261518261964_ + _hd261517261967_ + _tl261516261969_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_)))) + (___match272878272879_ + _e261518261964_ + _hd261517261967_ + _tl261516261969_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_)))) + (let ((_id261532262045_ (reverse _id261530261992_)) + (_xid261531262043_ (reverse _xid261529261990_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258824259282_)) - (let ((_e258855259353_ + (gx#stx-pair? _tl261519261977_)) + (let ((_e261550262048_ (let () (declare (not safe)) - (gx#stx-e _tl258824259282_)))) - (let ((_tl258853259358_ + (gx#stx-e _tl261519261977_)))) + (let ((_tl261548262053_ (let () (declare (not safe)) - (##cdr _e258855259353_))) - (_hd258854259356_ + (##cdr _e261550262048_))) + (_hd261549262051_ (let () (declare (not safe)) - (##car _e258855259353_)))) + (##car _e261550262048_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258853259358_)) - (___kont269948269949_ - _hd258854259356_ - _xid258836259348_ - _id258837259350_) - (___match270083270084_ - _e258823259269_ - _hd258822259272_ - _tl258821259274_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_)))) - (___match270083270084_ - _e258823259269_ - _hd258822259272_ - _tl258821259274_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_))))))) + (gx#stx-null? _tl261548262053_)) + (___kont272743272744_ + _hd261549262051_ + _xid261531262043_ + _id261532262045_) + (___match272878272879_ + _e261518261964_ + _hd261517261967_ + _tl261516261969_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_)))) + (___match272878272879_ + _e261518261964_ + _hd261517261967_ + _tl261516261969_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop258830259290_ - _target258827259285_ + (_loop261525261985_ + _target261522261980_ '() '()))))) - (___match270005270006_ - (lambda (_e258778259461_ - _hd258777259464_ - _tl258776259466_ - _e258781259469_ - _hd258780259472_ - _tl258779259474_ - _e258784259477_ - _hd258783259480_ - _tl258782259482_ - _e258787259485_ - _hd258786259488_ - _tl258785259490_ - ___splice269944269945_ - _target258788259493_ - _tl258790259495_) - (letrec ((_loop258791259498_ - (lambda (_hd258789259501_ - _id258795259503_) + (___match272800272801_ + (lambda (_e261473262156_ + _hd261472262159_ + _tl261471262161_ + _e261476262164_ + _hd261475262167_ + _tl261474262169_ + _e261479262172_ + _hd261478262175_ + _tl261477262177_ + _e261482262180_ + _hd261481262183_ + _tl261480262185_ + ___splice272739272740_ + _target261483262188_ + _tl261485262190_) + (letrec ((_loop261486262193_ + (lambda (_hd261484262196_ + _id261490262198_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258789259501_)) - (let ((_e258792259506_ + _hd261484262196_)) + (let ((_e261487262201_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd258789259501_)))) - (let ((_lp-tl258794259511_ + (gx#stx-e _hd261484262196_)))) + (let ((_lp-tl261489262206_ (let () (declare (not safe)) - (##cdr _e258792259506_))) - (_lp-hd258793259509_ + (##cdr _e261487262201_))) + (_lp-hd261488262204_ (let () (declare (not safe)) - (##car _e258792259506_)))) + (##car _e261487262201_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd258793259509_)) - (let ((_e258799259514_ + (gx#stx-pair? _lp-hd261488262204_)) + (let ((_e261494262209_ (let () (declare (not safe)) - (gx#stx-e _lp-hd258793259509_)))) - (let ((_tl258797259519_ + (gx#stx-e _lp-hd261488262204_)))) + (let ((_tl261492262214_ (let () (declare (not safe)) - (##cdr _e258799259514_))) - (_hd258798259517_ + (##cdr _e261494262209_))) + (_hd261493262212_ (let () (declare (not safe)) - (##car _e258799259514_)))) + (##car _e261494262209_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258798259517_)) + (gx#identifier? _hd261493262212_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd258798259517_)) + (gx#stx-eq? '%#ref _hd261493262212_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258797259519_)) - (let ((_e258802259522_ + (gx#stx-pair? _tl261492262214_)) + (let ((_e261497262217_ (let () (declare (not safe)) (gx#stx-e - _tl258797259519_)))) - (let ((_tl258800259527_ + _tl261492262214_)))) + (let ((_tl261495262222_ (let () (declare (not safe)) - (##cdr _e258802259522_))) - (_hd258801259525_ + (##cdr _e261497262217_))) + (_hd261496262220_ (let () (declare (not safe)) - (##car _e258802259522_)))) + (##car _e261497262217_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258800259527_)) - (let ((__tmp272035 + _tl261495262222_)) + (let ((__tmp274830 (let () (declare (not safe)) - (cons _hd258801259525_ + (cons _hd261496262220_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id258795259503_)))) + _id261490262198_)))) (declare (not safe)) - (_loop258791259498_ _lp-tl258794259511_ __tmp272035)) + (_loop261486262193_ _lp-tl261489262206_ __tmp274830)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269962269963_)))) - (___kont269962269963_)) - (___kont269962269963_)) - (___kont269962269963_)))) - (___kont269962269963_)))) - (let ((_id258796259530_ (reverse _id258795259503_))) - (___kont269942269943_ - _id258796259530_ - _hd258786259488_)))))) + (___kont272757272758_)))) + (___kont272757272758_)) + (___kont272757272758_)) + (___kont272757272758_)))) + (___kont272757272758_)))) + (let ((_id261491262225_ (reverse _id261490262198_))) + (___kont272737272738_ + _id261491262225_ + _hd261481262183_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop258791259498_ - _target258788259493_ + (_loop261486262193_ + _target261483262188_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx269940269941_)) - (let ((_e258778259461_ + (gx#stx-pair? ___stx272735272736_)) + (let ((_e261473262156_ (let () (declare (not safe)) (gx#stx-e - ___stx269940269941_)))) - (let ((_tl258776259466_ + ___stx272735272736_)))) + (let ((_tl261471262161_ (let () (declare (not safe)) - (##cdr _e258778259461_))) - (_hd258777259464_ + (##cdr _e261473262156_))) + (_hd261472262159_ (let () (declare (not safe)) - (##car _e258778259461_)))) + (##car _e261473262156_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd258777259464_)) + _hd261472262159_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd258777259464_)) + _hd261472262159_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258776259466_)) - (let ((_e258781259469_ + _tl261471262161_)) + (let ((_e261476262164_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl258776259466_)))) - (let ((_tl258779259474_ - (let () (declare (not safe)) (##cdr _e258781259469_))) - (_hd258780259472_ + (gx#stx-e _tl261471262161_)))) + (let ((_tl261474262169_ + (let () (declare (not safe)) (##cdr _e261476262164_))) + (_hd261475262167_ (let () (declare (not safe)) - (##car _e258781259469_)))) + (##car _e261476262164_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258780259472_)) - (let ((_e258784259477_ + (gx#stx-pair? _hd261475262167_)) + (let ((_e261479262172_ (let () (declare (not safe)) - (gx#stx-e _hd258780259472_)))) - (let ((_tl258782259482_ + (gx#stx-e _hd261475262167_)))) + (let ((_tl261477262177_ (let () (declare (not safe)) - (##cdr _e258784259477_))) - (_hd258783259480_ + (##cdr _e261479262172_))) + (_hd261478262175_ (let () (declare (not safe)) - (##car _e258784259477_)))) + (##car _e261479262172_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258783259480_)) + (gx#identifier? _hd261478262175_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd258783259480_)) + (gx#stx-eq? '%#ref _hd261478262175_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258782259482_)) - (let ((_e258787259485_ + (gx#stx-pair? _tl261477262177_)) + (let ((_e261482262180_ (let () (declare (not safe)) - (gx#stx-e _tl258782259482_)))) - (let ((_tl258785259490_ + (gx#stx-e _tl261477262177_)))) + (let ((_tl261480262185_ (let () (declare (not safe)) - (##cdr _e258787259485_))) - (_hd258786259488_ + (##cdr _e261482262180_))) + (_hd261481262183_ (let () (declare (not safe)) - (##car _e258787259485_)))) + (##car _e261482262180_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258785259490_)) + _tl261480262185_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl258779259474_)) - (let ((___splice269944269945_ + _tl261474262169_)) + (let ((___splice272739272740_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl258779259474_ + _tl261474262169_ '0)))) - (let ((_tl258790259495_ + (let ((_tl261485262190_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice269944269945_ '1))) - (_target258788259493_ + (##vector-ref ___splice272739272740_ '1))) + (_target261483262188_ (let () (declare (not safe)) - (##vector-ref ___splice269944269945_ '0)))) + (##vector-ref ___splice272739272740_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258790259495_)) - (___match270005270006_ - _e258778259461_ - _hd258777259464_ - _tl258776259466_ - _e258781259469_ - _hd258780259472_ - _tl258779259474_ - _e258784259477_ - _hd258783259480_ - _tl258782259482_ - _e258787259485_ - _hd258786259488_ - _tl258785259490_ - ___splice269944269945_ - _target258788259493_ - _tl258790259495_) - (___kont269962269963_)))) + (gx#stx-null? _tl261485262190_)) + (___match272800272801_ + _e261473262156_ + _hd261472262159_ + _tl261471262161_ + _e261476262164_ + _hd261475262167_ + _tl261474262169_ + _e261479262172_ + _hd261478262175_ + _tl261477262177_ + _e261482262180_ + _hd261481262183_ + _tl261480262185_ + ___splice272739272740_ + _target261483262188_ + _tl261485262190_) + (___kont272757272758_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269962269963_)) - (___kont269962269963_)))) - (___kont269962269963_)) - (___kont269962269963_)) - (___kont269962269963_)))) - (___kont269962269963_)))) - (___kont269962269963_)) + (___kont272757272758_)) + (___kont272757272758_)))) + (___kont272757272758_)) + (___kont272757272758_)) + (___kont272757272758_)))) + (___kont272757272758_)))) + (___kont272757272758_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd258777259464_)) + _hd261472262159_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258776259466_)) - (let ((_e258811259407_ + _tl261471262161_)) + (let ((_e261506262102_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl258776259466_)))) - (let ((_tl258809259412_ + (gx#stx-e _tl261471262161_)))) + (let ((_tl261504262107_ (let () (declare (not safe)) - (##cdr _e258811259407_))) - (_hd258810259410_ + (##cdr _e261506262102_))) + (_hd261505262105_ (let () (declare (not safe)) - (##car _e258811259407_)))) + (##car _e261506262102_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258809259412_)) - (let ((_e258814259415_ + (gx#stx-pair? _tl261504262107_)) + (let ((_e261509262110_ (let () (declare (not safe)) - (gx#stx-e _tl258809259412_)))) - (let ((_tl258812259420_ + (gx#stx-e _tl261504262107_)))) + (let ((_tl261507262115_ (let () (declare (not safe)) - (##cdr _e258814259415_))) - (_hd258813259418_ + (##cdr _e261509262110_))) + (_hd261508262113_ (let () (declare (not safe)) - (##car _e258814259415_)))) + (##car _e261509262110_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258812259420_)) - (let ((_e258817259423_ + (gx#stx-pair? _tl261507262115_)) + (let ((_e261512262118_ (let () (declare (not safe)) - (gx#stx-e _tl258812259420_)))) - (let ((_tl258815259428_ + (gx#stx-e _tl261507262115_)))) + (let ((_tl261510262123_ (let () (declare (not safe)) - (##cdr _e258817259423_))) - (_hd258816259426_ + (##cdr _e261512262118_))) + (_hd261511262121_ (let () (declare (not safe)) - (##car _e258817259423_)))) + (##car _e261512262118_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258815259428_)) - (___kont269946269947_ - _hd258816259426_ - _hd258813259418_ - _hd258810259410_) - (___kont269962269963_)))) - (___kont269962269963_)))) - (___kont269962269963_)))) - (___kont269962269963_)) + (gx#stx-null? _tl261510262123_)) + (___kont272741272742_ + _hd261511262121_ + _hd261508262113_ + _hd261505262105_) + (___kont272757272758_)))) + (___kont272757272758_)))) + (___kont272757272758_)))) + (___kont272757272758_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd258777259464_)) + (gx#stx-eq? '%#let-values _hd261472262159_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258776259466_)) - (let ((_e258826259277_ + (gx#stx-pair? _tl261471262161_)) + (let ((_e261521261972_ (let () (declare (not safe)) - (gx#stx-e _tl258776259466_)))) - (let ((_tl258824259282_ + (gx#stx-e _tl261471262161_)))) + (let ((_tl261519261977_ (let () (declare (not safe)) - (##cdr _e258826259277_))) - (_hd258825259280_ + (##cdr _e261521261972_))) + (_hd261520261975_ (let () (declare (not safe)) - (##car _e258826259277_)))) + (##car _e261521261972_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd258825259280_)) - (let ((___splice269950269951_ + (gx#stx-pair/null? _hd261520261975_)) + (let ((___splice272745272746_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd258825259280_ + _hd261520261975_ '0)))) - (let ((_tl258829259287_ + (let ((_tl261524261982_ (let () (declare (not safe)) (##vector-ref - ___splice269950269951_ + ___splice272745272746_ '1))) - (_target258827259285_ + (_target261522261980_ (let () (declare (not safe)) (##vector-ref - ___splice269950269951_ + ___splice272745272746_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258829259287_)) - (___match270059270060_ - _e258778259461_ - _hd258777259464_ - _tl258776259466_ - _e258826259277_ - _hd258825259280_ - _tl258824259282_ - ___splice269950269951_ - _target258827259285_ - _tl258829259287_) - (___kont269962269963_)))) - (___kont269962269963_)))) - (___kont269962269963_)) + (gx#stx-null? _tl261524261982_)) + (___match272854272855_ + _e261473262156_ + _hd261472262159_ + _tl261471262161_ + _e261521261972_ + _hd261520261975_ + _tl261519261977_ + ___splice272745272746_ + _target261522261980_ + _tl261524261982_) + (___kont272757272758_)))) + (___kont272757272758_)))) + (___kont272757272758_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _hd258777259464_)) + (gx#stx-eq? '%#letrec-values _hd261472262159_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258776259466_)) - (let ((_e258898258965_ + (gx#stx-pair? _tl261471262161_)) + (let ((_e261593261660_ (let () (declare (not safe)) - (gx#stx-e _tl258776259466_)))) - (let ((_tl258896258970_ + (gx#stx-e _tl261471262161_)))) + (let ((_tl261591261665_ (let () (declare (not safe)) - (##cdr _e258898258965_))) - (_hd258897258968_ + (##cdr _e261593261660_))) + (_hd261592261663_ (let () (declare (not safe)) - (##car _e258898258965_)))) + (##car _e261593261660_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258897258968_)) - (let ((_e258901258973_ + (gx#stx-pair? _hd261592261663_)) + (let ((_e261596261668_ (let () (declare (not safe)) - (gx#stx-e _hd258897258968_)))) - (let ((_tl258899258978_ + (gx#stx-e _hd261592261663_)))) + (let ((_tl261594261673_ (let () (declare (not safe)) - (##cdr _e258901258973_))) - (_hd258900258976_ + (##cdr _e261596261668_))) + (_hd261595261671_ (let () (declare (not safe)) - (##car _e258901258973_)))) + (##car _e261596261668_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258900258976_)) - (let ((_e258904258981_ + (gx#stx-pair? _hd261595261671_)) + (let ((_e261599261676_ (let () (declare (not safe)) (gx#stx-e - _hd258900258976_)))) - (let ((_tl258902258986_ + _hd261595261671_)))) + (let ((_tl261597261681_ (let () (declare (not safe)) - (##cdr _e258904258981_))) - (_hd258903258984_ + (##cdr _e261599261676_))) + (_hd261598261679_ (let () (declare (not safe)) - (##car _e258904258981_)))) + (##car _e261599261676_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258903258984_)) - (let ((_e258907258989_ + _hd261598261679_)) + (let ((_e261602261684_ (let () (declare (not safe)) (gx#stx-e - _hd258903258984_)))) - (let ((_tl258905258994_ + _hd261598261679_)))) + (let ((_tl261600261689_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e258907258989_))) - (_hd258906258992_ - (let () (declare (not safe)) (##car _e258907258989_)))) + (##cdr _e261602261684_))) + (_hd261601261687_ + (let () (declare (not safe)) (##car _e261602261684_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258905258994_)) + (gx#stx-null? _tl261600261689_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258902258986_)) - (let ((_e258910258997_ + (gx#stx-pair? _tl261597261681_)) + (let ((_e261605261692_ (let () (declare (not safe)) - (gx#stx-e _tl258902258986_)))) - (let ((_tl258908259002_ + (gx#stx-e _tl261597261681_)))) + (let ((_tl261603261697_ (let () (declare (not safe)) - (##cdr _e258910258997_))) - (_hd258909259000_ + (##cdr _e261605261692_))) + (_hd261604261695_ (let () (declare (not safe)) - (##car _e258910258997_)))) + (##car _e261605261692_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258909259000_)) - (let ((_e258913259005_ + (gx#stx-pair? _hd261604261695_)) + (let ((_e261608261700_ (let () (declare (not safe)) - (gx#stx-e _hd258909259000_)))) - (let ((_tl258911259010_ + (gx#stx-e _hd261604261695_)))) + (let ((_tl261606261705_ (let () (declare (not safe)) - (##cdr _e258913259005_))) - (_hd258912259008_ + (##cdr _e261608261700_))) + (_hd261607261703_ (let () (declare (not safe)) - (##car _e258913259005_)))) + (##car _e261608261700_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258912259008_)) + (gx#identifier? _hd261607261703_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd258912259008_)) + _hd261607261703_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258911259010_)) - (let ((_e258916259013_ + _tl261606261705_)) + (let ((_e261611261708_ (let () (declare (not safe)) (gx#stx-e - _tl258911259010_)))) - (let ((_tl258914259018_ + _tl261606261705_)))) + (let ((_tl261609261713_ (let () (declare (not safe)) - (##cdr _e258916259013_))) - (_hd258915259016_ + (##cdr _e261611261708_))) + (_hd261610261711_ (let () (declare (not safe)) - (##car _e258916259013_)))) + (##car _e261611261708_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd258915259016_)) - (let ((___splice269958269959_ + _hd261610261711_)) + (let ((___splice272753272754_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _hd258915259016_ '0)))) - (let ((_tl258919259023_ + (gx#syntax-split-splice _hd261610261711_ '0)))) + (let ((_tl261614261718_ (let () (declare (not safe)) - (##vector-ref ___splice269958269959_ '1))) - (_target258917259021_ + (##vector-ref ___splice272753272754_ '1))) + (_target261612261716_ (let () (declare (not safe)) - (##vector-ref ___splice269958269959_ '0)))) + (##vector-ref ___splice272753272754_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258919259023_)) - (___match270149270150_ - _e258778259461_ - _hd258777259464_ - _tl258776259466_ - _e258898258965_ - _hd258897258968_ - _tl258896258970_ - _e258901258973_ - _hd258900258976_ - _tl258899258978_ - _e258904258981_ - _hd258903258984_ - _tl258902258986_ - _e258907258989_ - _hd258906258992_ - _tl258905258994_ - _e258910258997_ - _hd258909259000_ - _tl258908259002_ - _e258913259005_ - _hd258912259008_ - _tl258911259010_ - _e258916259013_ - _hd258915259016_ - _tl258914259018_ - ___splice269958269959_ - _target258917259021_ - _tl258919259023_) - (___kont269962269963_)))) - (___kont269962269963_)))) + (gx#stx-null? _tl261614261718_)) + (___match272944272945_ + _e261473262156_ + _hd261472262159_ + _tl261471262161_ + _e261593261660_ + _hd261592261663_ + _tl261591261665_ + _e261596261668_ + _hd261595261671_ + _tl261594261673_ + _e261599261676_ + _hd261598261679_ + _tl261597261681_ + _e261602261684_ + _hd261601261687_ + _tl261600261689_ + _e261605261692_ + _hd261604261695_ + _tl261603261697_ + _e261608261700_ + _hd261607261703_ + _tl261606261705_ + _e261611261708_ + _hd261610261711_ + _tl261609261713_ + ___splice272753272754_ + _target261612261716_ + _tl261614261718_) + (___kont272757272758_)))) + (___kont272757272758_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269962269963_)) - (___kont269962269963_)) - (___kont269962269963_)))) - (___kont269962269963_)))) - (___kont269962269963_)) - (___kont269962269963_)))) + (___kont272757272758_)) + (___kont272757272758_)) + (___kont272757272758_)))) + (___kont272757272758_)))) + (___kont272757272758_)) + (___kont272757272758_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269962269963_)))) - (___kont269962269963_)))) - (___kont269962269963_)))) - (___kont269962269963_)) - (___kont269962269963_))))) + (___kont272757272758_)))) + (___kont272757272758_)))) + (___kont272757272758_)))) + (___kont272757272758_)) + (___kont272757272758_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont269962269963_)))) - (___kont269962269963_)))))))) + (___kont272757272758_)))) + (___kont272757272758_)))))))) (declare (not safe)) - (_do-assert256692_ __tmp272036 __tmp271994)))) - (_optimize-f__0__268627268628_ - (lambda (_expr259670_) - (let ((_test259672_ '#f)) + (_do-assert259387_ __tmp274831 __tmp274789)))) + (_optimize-f__0__271422271423_ + (lambda (_expr262365_) + (let ((_test262367_ '#f)) (declare (not safe)) - (_optimize-f__268625268626_ - _expr259670_ - _test259672_)))) - (_optimize-f256705_ - (lambda _g272039_ - (let ((_g272038_ + (_optimize-f__271420271421_ + _expr262365_ + _test262367_)))) + (_optimize-f259400_ + (lambda _g274834_ + (let ((_g274833_ (let () (declare (not safe)) - (##length _g272039_)))) - (cond ((let () (declare (not safe)) (##fx= _g272038_ 1)) - (apply (lambda (_expr259670_) + (##length _g274834_)))) + (cond ((let () (declare (not safe)) (##fx= _g274833_ 1)) + (apply (lambda (_expr262365_) (let () (declare (not safe)) - (_optimize-f__0__268627268628_ - _expr259670_))) - _g272039_)) - ((let () (declare (not safe)) (##fx= _g272038_ 2)) - (apply (lambda (_expr259674_ _test259675_) + (_optimize-f__0__271422271423_ + _expr262365_))) + _g274834_)) + ((let () (declare (not safe)) (##fx= _g274833_ 2)) + (apply (lambda (_expr262369_ _test262370_) (let () (declare (not safe)) - (_optimize-f__268625268626_ - _expr259674_ - _test259675_))) - _g272039_)) + (_optimize-f__271420271421_ + _expr262369_ + _test262370_))) + _g274834_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g272039_)))))) - (_assert-e256706_ - (lambda (_expr257704_) - (let* ((_sexpr257706_ + _g274834_)))))) + (_assert-e259401_ + (lambda (_expr260399_) + (let* ((_sexpr260401_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _expr257704_))) - (_$e257708_ - (assoc _sexpr257706_ _env-assert256688_))) - (if _$e257708_ - (cdr _$e257708_) - (let _assert257711_ ((_expr257713_ _expr257704_)) - (let* ((___stx270246270247_ _expr257713_) - (_g257721257900_ + (gxc#apply-generate-runtime-repr _expr260399_))) + (_$e260403_ + (assoc _sexpr260401_ _env-assert259383_))) + (if _$e260403_ + (cdr _$e260403_) + (let _assert260406_ ((_expr260408_ _expr260399_)) + (let* ((___stx273041273042_ _expr260408_) + (_g260416260595_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx270246270247_))))) - (let ((___kont270248270249_ - (lambda (_L258731_ _L258732_) - (let ((_$e258754_ + ___stx273041273042_))))) + (let ((___kont273043273044_ + (lambda (_L261426_ _L261427_) + (let ((_$e261449_ (let () (declare (not safe)) - (_predicate-type256693_ - _L258732_)))) - (if _$e258754_ - ((lambda (_t258757_) + (_predicate-type259388_ + _L261427_)))) + (if _$e261449_ + ((lambda (_t261452_) (let () (declare (not safe)) - (_assert-type256707_ - _L258731_ - _t258757_))) - _$e258754_) + (_assert-type259402_ + _L261426_ + _t261452_))) + _$e261449_) '#!void)))) - (___kont270250270251_ - (lambda (_L258424_ _L258425_ _L258426_) - (let ((_$e258451_ + (___kont273045273046_ + (lambda (_L261119_ _L261120_ _L261121_) + (let ((_$e261146_ (let () (declare (not safe)) (gxc#identifier-symbol - _L258426_)))) + _L261121_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e258451_)) + (eq? '##fx= _$e261146_)) (let () (declare (not safe)) - (eq? 'fx= _$e258451_))) - (let* ((___stx270152270153_ - _L258425_) - (_g258458258487_ + (eq? 'fx= _$e261146_))) + (let* ((___stx272947272948_ + _L261120_) + (_g261153261182_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx270152270153_))))) - (let ((___kont270154270155_ - (lambda (_L258555_ - _L258556_) - (let ((_$e258581_ + ___stx272947272948_))))) + (let ((___kont272949272950_ + (lambda (_L261250_ + _L261251_) + (let ((_$e261276_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_countf-symbol256695_ _L258556_)))) - (if _$e258581_ - ((lambda (_sym258584_) - (let ((__tmp272042 + (_countf-symbol259390_ _L261251_)))) + (if _$e261276_ + ((lambda (_sym261279_) + (let ((__tmp274837 (let () (declare (not safe)) - (gx#stx-e _L258424_)))) + (gx#stx-e _L261119_)))) (declare (not safe)) - (_assert-count256708_ - _L258555_ - _sym258584_ - __tmp272042))) - _$e258581_) + (_assert-count259403_ + _L261250_ + _sym261279_ + __tmp274837))) + _$e261276_) '#!void)))) - (___kont270156270157_ (lambda () '#!void))) + (___kont272951272952_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx270152270153_)) - (let ((_e258464258499_ + ___stx272947272948_)) + (let ((_e261159261194_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx270152270153_)))) - (let ((_tl258462258504_ - (let () (declare (not safe)) (##cdr _e258464258499_))) - (_hd258463258502_ - (let () (declare (not safe)) (##car _e258464258499_)))) + (gx#stx-e ___stx272947272948_)))) + (let ((_tl261157261199_ + (let () (declare (not safe)) (##cdr _e261159261194_))) + (_hd261158261197_ + (let () (declare (not safe)) (##car _e261159261194_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258463258502_)) + (gx#identifier? _hd261158261197_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd258463258502_)) + (gx#stx-eq? '%#call _hd261158261197_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258462258504_)) - (let ((_e258467258507_ + (gx#stx-pair? _tl261157261199_)) + (let ((_e261162261202_ (let () (declare (not safe)) - (gx#stx-e _tl258462258504_)))) - (let ((_tl258465258512_ + (gx#stx-e _tl261157261199_)))) + (let ((_tl261160261207_ (let () (declare (not safe)) - (##cdr _e258467258507_))) - (_hd258466258510_ + (##cdr _e261162261202_))) + (_hd261161261205_ (let () (declare (not safe)) - (##car _e258467258507_)))) + (##car _e261162261202_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258466258510_)) - (let ((_e258470258515_ + (gx#stx-pair? _hd261161261205_)) + (let ((_e261165261210_ (let () (declare (not safe)) - (gx#stx-e _hd258466258510_)))) - (let ((_tl258468258520_ + (gx#stx-e _hd261161261205_)))) + (let ((_tl261163261215_ (let () (declare (not safe)) - (##cdr _e258470258515_))) - (_hd258469258518_ + (##cdr _e261165261210_))) + (_hd261164261213_ (let () (declare (not safe)) - (##car _e258470258515_)))) + (##car _e261165261210_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd258469258518_)) + _hd261164261213_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd258469258518_)) + _hd261164261213_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258468258520_)) - (let ((_e258473258523_ + _tl261163261215_)) + (let ((_e261168261218_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl258468258520_)))) - (let ((_tl258471258528_ - (let () (declare (not safe)) (##cdr _e258473258523_))) - (_hd258472258526_ - (let () (declare (not safe)) (##car _e258473258523_)))) + (gx#stx-e _tl261163261215_)))) + (let ((_tl261166261223_ + (let () (declare (not safe)) (##cdr _e261168261218_))) + (_hd261167261221_ + (let () (declare (not safe)) (##car _e261168261218_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258471258528_)) + (gx#stx-null? _tl261166261223_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258465258512_)) - (let ((_e258476258531_ + (gx#stx-pair? _tl261160261207_)) + (let ((_e261171261226_ (let () (declare (not safe)) - (gx#stx-e _tl258465258512_)))) - (let ((_tl258474258536_ + (gx#stx-e _tl261160261207_)))) + (let ((_tl261169261231_ (let () (declare (not safe)) - (##cdr _e258476258531_))) - (_hd258475258534_ + (##cdr _e261171261226_))) + (_hd261170261229_ (let () (declare (not safe)) - (##car _e258476258531_)))) + (##car _e261171261226_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258475258534_)) - (let ((_e258479258539_ + (gx#stx-pair? _hd261170261229_)) + (let ((_e261174261234_ (let () (declare (not safe)) - (gx#stx-e _hd258475258534_)))) - (let ((_tl258477258544_ + (gx#stx-e _hd261170261229_)))) + (let ((_tl261172261239_ (let () (declare (not safe)) - (##cdr _e258479258539_))) - (_hd258478258542_ + (##cdr _e261174261234_))) + (_hd261173261237_ (let () (declare (not safe)) - (##car _e258479258539_)))) + (##car _e261174261234_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258478258542_)) + (gx#identifier? _hd261173261237_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd258478258542_)) + _hd261173261237_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258477258544_)) - (let ((_e258482258547_ + _tl261172261239_)) + (let ((_e261177261242_ (let () (declare (not safe)) (gx#stx-e - _tl258477258544_)))) - (let ((_tl258480258552_ + _tl261172261239_)))) + (let ((_tl261175261247_ (let () (declare (not safe)) - (##cdr _e258482258547_))) - (_hd258481258550_ + (##cdr _e261177261242_))) + (_hd261176261245_ (let () (declare (not safe)) - (##car _e258482258547_)))) + (##car _e261177261242_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258480258552_)) + _tl261175261247_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl258474258536_)) - (___kont270154270155_ _hd258481258550_ _hd258472258526_) - (___kont270156270157_)) - (___kont270156270157_)))) + (gx#stx-null? _tl261169261231_)) + (___kont272949272950_ _hd261176261245_ _hd261167261221_) + (___kont272951272952_)) + (___kont272951272952_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270156270157_)) - (___kont270156270157_)) - (___kont270156270157_)))) - (___kont270156270157_)))) - (___kont270156270157_)) - (___kont270156270157_)))) - (___kont270156270157_)) + (___kont272951272952_)) + (___kont272951272952_)) + (___kont272951272952_)))) + (___kont272951272952_)))) + (___kont272951272952_)) + (___kont272951272952_)))) + (___kont272951272952_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270156270157_)) - (___kont270156270157_)))) - (___kont270156270157_)))) - (___kont270156270157_)) - (___kont270156270157_)) - (___kont270156270157_)))) - (___kont270156270157_)))) + (___kont272951272952_)) + (___kont272951272952_)))) + (___kont272951272952_)))) + (___kont272951272952_)) + (___kont272951272952_)) + (___kont272951272952_)))) + (___kont272951272952_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (or (let () (declare (not safe)) (eq? '##eq? - _$e258451_)) + _$e261146_)) (let () (declare (not safe)) - (eq? 'eq? _$e258451_)) + (eq? 'eq? _$e261146_)) (let () (declare (not safe)) (eq? '##eqv? - _$e258451_)) + _$e261146_)) (let () (declare (not safe)) - (eq? 'eqv? _$e258451_)) + (eq? 'eqv? _$e261146_)) (let () (declare (not safe)) (eq? '##equal? - _$e258451_)) + _$e261146_)) (let () (declare (not safe)) (eq? 'equal? - _$e258451_)) + _$e261146_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e258451_)) + _$e261146_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e258451_))) - ((lambda (_sym258610_) - (let* ((___stx270220270221_ - _L258425_) - (_g258613258626_ + _$e261146_))) + ((lambda (_sym261305_) + (let* ((___stx273015273016_ + _L261120_) + (_g261308261321_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -9718,1465 +9718,1465 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx270220270221_))))) - (let ((___kont270222270223_ - (lambda (_L258654_) - (let ((__tmp272041 + ___stx273015273016_))))) + (let ((___kont273017273018_ + (lambda (_L261349_) + (let ((__tmp274836 (let () (declare (not safe)) - (_eqf-symbol256696_ _sym258610_))) - (__tmp272040 + (_eqf-symbol259391_ _sym261305_))) + (__tmp274835 (let () (declare (not safe)) - (gx#stx-e _L258424_)))) + (gx#stx-e _L261119_)))) (declare (not safe)) - (_assert-eqf256709_ - _L258654_ - __tmp272041 - __tmp272040)))) - (___kont270224270225_ (lambda () '#!void))) + (_assert-eqf259404_ + _L261349_ + __tmp274836 + __tmp274835)))) + (___kont273019273020_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx270220270221_)) - (let ((_e258618258638_ + (gx#stx-pair? ___stx273015273016_)) + (let ((_e261313261333_ (let () (declare (not safe)) - (gx#stx-e ___stx270220270221_)))) - (let ((_tl258616258643_ + (gx#stx-e ___stx273015273016_)))) + (let ((_tl261311261338_ (let () (declare (not safe)) - (##cdr _e258618258638_))) - (_hd258617258641_ + (##cdr _e261313261333_))) + (_hd261312261336_ (let () (declare (not safe)) - (##car _e258618258638_)))) + (##car _e261313261333_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258617258641_)) + (gx#identifier? _hd261312261336_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd258617258641_)) + (gx#stx-eq? '%#ref _hd261312261336_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258616258643_)) - (let ((_e258621258646_ + (gx#stx-pair? _tl261311261338_)) + (let ((_e261316261341_ (let () (declare (not safe)) - (gx#stx-e _tl258616258643_)))) - (let ((_tl258619258651_ + (gx#stx-e _tl261311261338_)))) + (let ((_tl261314261346_ (let () (declare (not safe)) - (##cdr _e258621258646_))) - (_hd258620258649_ + (##cdr _e261316261341_))) + (_hd261315261344_ (let () (declare (not safe)) - (##car _e258621258646_)))) + (##car _e261316261341_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258619258651_)) - (___kont270222270223_ - _hd258620258649_) - (___kont270224270225_)))) - (___kont270224270225_)) - (___kont270224270225_)) - (___kont270224270225_)))) - (___kont270224270225_))))) + (gx#stx-null? _tl261314261346_)) + (___kont273017273018_ + _hd261315261344_) + (___kont273019273020_)))) + (___kont273019273020_)) + (___kont273019273020_)) + (___kont273019273020_)))) + (___kont273019273020_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e258451_) + _$e261146_) '#!void))))) - (___kont270252270253_ - (lambda (_L258328_ _L258329_ _L258330_) - (let ((__tmp272043 - (let ((__tmp272053 + (___kont273047273048_ + (lambda (_L261023_ _L261024_ _L261025_) + (let ((__tmp274838 + (let ((__tmp274848 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp272044 - (let ((__tmp272050 - (let ((__tmp272052 + (__tmp274839 + (let ((__tmp274845 + (let ((__tmp274847 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp272051 + (__tmp274846 (let () (declare (not safe)) - (cons _L258330_ '())))) + (cons _L261025_ '())))) (declare (not safe)) - (cons __tmp272052 __tmp272051))) - (__tmp272045 - (let ((__tmp272046 - (let ((__tmp272047 - (let ((__tmp272049 + (cons __tmp274847 __tmp274846))) + (__tmp274840 + (let ((__tmp274841 + (let ((__tmp274842 + (let ((__tmp274844 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp272048 + (__tmp274843 (let () (declare (not safe)) - (cons _L258329_ '())))) + (cons _L261024_ '())))) (declare (not safe)) - (cons __tmp272049 __tmp272048)))) + (cons __tmp274844 __tmp274843)))) (declare (not safe)) - (cons __tmp272047 '())))) + (cons __tmp274842 '())))) (declare (not safe)) - (cons _L258328_ __tmp272046)))) + (cons _L261023_ __tmp274841)))) (declare (not safe)) - (cons __tmp272050 __tmp272045)))) + (cons __tmp274845 __tmp274840)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272053 - __tmp272044)))) + (cons __tmp274848 + __tmp274839)))) (declare (not safe)) - (_assert257711_ __tmp272043)))) - (___kont270254270255_ - (lambda (_L258220_ _L258221_ _L258222_) - (let ((_$e258251_ + (_assert260406_ __tmp274838)))) + (___kont273049273050_ + (lambda (_L260915_ _L260916_ _L260917_) + (let ((_$e260946_ (let () (declare (not safe)) (gxc#identifier-symbol - _L258222_)))) + _L260917_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e258251_)) + _$e260946_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e258251_))) - ((lambda (_sym258257_) - (let ((__tmp272054 + _$e260946_))) + ((lambda (_sym260952_) + (let ((__tmp274849 (let () (declare (not safe)) - (_eqf-symbol256696_ - _sym258257_)))) + (_eqf-symbol259391_ + _sym260952_)))) (declare (not safe)) - (_assert-eqf256709_ - _L258221_ - __tmp272054 - _L258220_))) - _$e258251_) + (_assert-eqf259404_ + _L260916_ + __tmp274849 + _L260915_))) + _$e260946_) '#!void)))) - (___kont270256270257_ - (lambda (_L258104_ _L258105_ _L258106_) - (let ((__tmp272055 - (let ((__tmp272068 + (___kont273051273052_ + (lambda (_L260799_ _L260800_ _L260801_) + (let ((__tmp274850 + (let ((__tmp274863 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp272056 - (let ((__tmp272065 - (let ((__tmp272067 + (__tmp274851 + (let ((__tmp274860 + (let ((__tmp274862 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp272066 + (__tmp274861 (let () (declare (not safe)) - (cons _L258106_ '())))) + (cons _L260801_ '())))) (declare (not safe)) - (cons __tmp272067 __tmp272066))) - (__tmp272057 - (let ((__tmp272062 - (let ((__tmp272064 + (cons __tmp274862 __tmp274861))) + (__tmp274852 + (let ((__tmp274857 + (let ((__tmp274859 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp272063 + (__tmp274858 (let () (declare (not safe)) - (cons _L258104_ '())))) + (cons _L260799_ '())))) (declare (not safe)) - (cons __tmp272064 __tmp272063))) - (__tmp272058 - (let ((__tmp272059 - (let ((__tmp272061 + (cons __tmp274859 __tmp274858))) + (__tmp274853 + (let ((__tmp274854 + (let ((__tmp274856 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp272060 + (__tmp274855 (let () (declare (not safe)) - (cons _L258105_ '())))) + (cons _L260800_ '())))) (declare (not safe)) - (cons __tmp272061 __tmp272060)))) + (cons __tmp274856 __tmp274855)))) (declare (not safe)) - (cons __tmp272059 '())))) + (cons __tmp274854 '())))) (declare (not safe)) - (cons __tmp272062 __tmp272058)))) + (cons __tmp274857 __tmp274853)))) (declare (not safe)) - (cons __tmp272065 __tmp272057)))) + (cons __tmp274860 __tmp274852)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272068 - __tmp272056)))) + (cons __tmp274863 + __tmp274851)))) (declare (not safe)) - (_assert257711_ __tmp272055)))) - (___kont270258270259_ - (lambda (_L257984_ _L257985_ _L257986_) - (let ((__tmp272069 + (_assert260406_ __tmp274850)))) + (___kont273053273054_ + (lambda (_L260679_ _L260680_ _L260681_) + (let ((__tmp274864 (let () (declare (not safe)) (gxc#apply-expression-subst - _L257985_ - _L257986_ - _L257984_)))) + _L260680_ + _L260681_ + _L260679_)))) (declare (not safe)) - (_assert257711_ __tmp272069)))) - (___kont270260270261_ + (_assert260406_ __tmp274864)))) + (___kont273055273056_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx270246270247_)) - (let ((_e257727258675_ + (gx#stx-pair? ___stx273041273042_)) + (let ((_e260422261370_ (let () (declare (not safe)) - (gx#stx-e ___stx270246270247_)))) - (let ((_tl257725258680_ + (gx#stx-e ___stx273041273042_)))) + (let ((_tl260420261375_ (let () (declare (not safe)) - (##cdr _e257727258675_))) - (_hd257726258678_ + (##cdr _e260422261370_))) + (_hd260421261373_ (let () (declare (not safe)) - (##car _e257727258675_)))) + (##car _e260422261370_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd257726258678_)) + _hd260421261373_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd257726258678_)) + _hd260421261373_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257725258680_)) - (let ((_e257730258683_ + _tl260420261375_)) + (let ((_e260425261378_ (let () (declare (not safe)) (gx#stx-e - _tl257725258680_)))) - (let ((_tl257728258688_ + _tl260420261375_)))) + (let ((_tl260423261383_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e257730258683_))) - (_hd257729258686_ - (let () (declare (not safe)) (##car _e257730258683_)))) + (##cdr _e260425261378_))) + (_hd260424261381_ + (let () (declare (not safe)) (##car _e260425261378_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257729258686_)) - (let ((_e257733258691_ + (gx#stx-pair? _hd260424261381_)) + (let ((_e260428261386_ (let () (declare (not safe)) - (gx#stx-e _hd257729258686_)))) - (let ((_tl257731258696_ + (gx#stx-e _hd260424261381_)))) + (let ((_tl260426261391_ (let () (declare (not safe)) - (##cdr _e257733258691_))) - (_hd257732258694_ + (##cdr _e260428261386_))) + (_hd260427261389_ (let () (declare (not safe)) - (##car _e257733258691_)))) + (##car _e260428261386_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257732258694_)) + (gx#identifier? _hd260427261389_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd257732258694_)) + (gx#stx-eq? '%#ref _hd260427261389_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257731258696_)) - (let ((_e257736258699_ + (gx#stx-pair? _tl260426261391_)) + (let ((_e260431261394_ (let () (declare (not safe)) - (gx#stx-e _tl257731258696_)))) - (let ((_tl257734258704_ + (gx#stx-e _tl260426261391_)))) + (let ((_tl260429261399_ (let () (declare (not safe)) - (##cdr _e257736258699_))) - (_hd257735258702_ + (##cdr _e260431261394_))) + (_hd260430261397_ (let () (declare (not safe)) - (##car _e257736258699_)))) + (##car _e260431261394_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257734258704_)) + (gx#stx-null? _tl260429261399_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257728258688_)) - (let ((_e257739258707_ + _tl260423261383_)) + (let ((_e260434261402_ (let () (declare (not safe)) (gx#stx-e - _tl257728258688_)))) - (let ((_tl257737258712_ + _tl260423261383_)))) + (let ((_tl260432261407_ (let () (declare (not safe)) - (##cdr _e257739258707_))) - (_hd257738258710_ + (##cdr _e260434261402_))) + (_hd260433261405_ (let () (declare (not safe)) - (##car _e257739258707_)))) + (##car _e260434261402_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd257738258710_)) - (let ((_e257742258715_ + _hd260433261405_)) + (let ((_e260437261410_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd257738258710_)))) - (let ((_tl257740258720_ + (gx#stx-e _hd260433261405_)))) + (let ((_tl260435261415_ (let () (declare (not safe)) - (##cdr _e257742258715_))) - (_hd257741258718_ + (##cdr _e260437261410_))) + (_hd260436261413_ (let () (declare (not safe)) - (##car _e257742258715_)))) + (##car _e260437261410_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257741258718_)) + (gx#identifier? _hd260436261413_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd257741258718_)) + (gx#stx-eq? '%#ref _hd260436261413_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257740258720_)) - (let ((_e257745258723_ + (gx#stx-pair? _tl260435261415_)) + (let ((_e260440261418_ (let () (declare (not safe)) - (gx#stx-e _tl257740258720_)))) - (let ((_tl257743258728_ + (gx#stx-e _tl260435261415_)))) + (let ((_tl260438261423_ (let () (declare (not safe)) - (##cdr _e257745258723_))) - (_hd257744258726_ + (##cdr _e260440261418_))) + (_hd260439261421_ (let () (declare (not safe)) - (##car _e257745258723_)))) + (##car _e260440261418_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257743258728_)) + (gx#stx-null? _tl260438261423_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257737258712_)) - (___kont270248270249_ - _hd257744258726_ - _hd257735258702_) + (gx#stx-null? _tl260432261407_)) + (___kont273043273044_ + _hd260439261421_ + _hd260430261397_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257737258712_)) - (let ((_e257766258400_ + _tl260432261407_)) + (let ((_e260461261095_ (let () (declare (not safe)) (gx#stx-e - _tl257737258712_)))) - (let ((_tl257764258405_ + _tl260432261407_)))) + (let ((_tl260459261100_ (let () (declare (not safe)) - (##cdr _e257766258400_))) - (_hd257765258403_ + (##cdr _e260461261095_))) + (_hd260460261098_ (let () (declare (not safe)) - (##car _e257766258400_)))) + (##car _e260461261095_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd257765258403_)) - (let ((_e257769258408_ + _hd260460261098_)) + (let ((_e260464261103_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd257765258403_)))) - (let ((_tl257767258413_ + (gx#stx-e _hd260460261098_)))) + (let ((_tl260462261108_ (let () (declare (not safe)) - (##cdr _e257769258408_))) - (_hd257768258411_ + (##cdr _e260464261103_))) + (_hd260463261106_ (let () (declare (not safe)) - (##car _e257769258408_)))) + (##car _e260464261103_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257768258411_)) + (gx#identifier? _hd260463261106_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd257768258411_)) + (gx#stx-eq? '%#quote _hd260463261106_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257767258413_)) - (let ((_e257772258416_ + (gx#stx-pair? _tl260462261108_)) + (let ((_e260467261111_ (let () (declare (not safe)) - (gx#stx-e _tl257767258413_)))) - (let ((_tl257770258421_ + (gx#stx-e _tl260462261108_)))) + (let ((_tl260465261116_ (let () (declare (not safe)) - (##cdr _e257772258416_))) - (_hd257771258419_ + (##cdr _e260467261111_))) + (_hd260466261114_ (let () (declare (not safe)) - (##car _e257772258416_)))) + (##car _e260467261111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257770258421_)) + (gx#stx-null? _tl260465261116_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257764258405_)) - (___kont270250270251_ - _hd257771258419_ - _hd257738258710_ - _hd257735258702_) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) + (gx#stx-null? _tl260459261100_)) + (___kont273045273046_ + _hd260466261114_ + _hd260433261405_ + _hd260430261397_) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd257768258411_)) + _hd260463261106_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257767258413_)) - (let ((_e257832258212_ + (gx#stx-pair? _tl260462261108_)) + (let ((_e260527260907_ (let () (declare (not safe)) - (gx#stx-e _tl257767258413_)))) - (let ((_tl257830258217_ + (gx#stx-e _tl260462261108_)))) + (let ((_tl260525260912_ (let () (declare (not safe)) - (##cdr _e257832258212_))) - (_hd257831258215_ + (##cdr _e260527260907_))) + (_hd260526260910_ (let () (declare (not safe)) - (##car _e257832258212_)))) + (##car _e260527260907_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257830258217_)) + (gx#stx-null? _tl260525260912_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl257764258405_)) - (___kont270254270255_ - _hd257831258215_ - _hd257744258726_ - _hd257735258702_) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) - (___kont270260270261_))) - (___kont270260270261_)))) - (___kont270260270261_)))) + _tl260459261100_)) + (___kont273049273050_ + _hd260526260910_ + _hd260439261421_ + _hd260430261397_) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) + (___kont273055273056_))) + (___kont273055273056_)))) + (___kont273055273056_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270260270261_))) + (___kont273055273056_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257737258712_)) - (let ((_e257766258400_ + (gx#stx-pair? _tl260432261407_)) + (let ((_e260461261095_ (let () (declare (not safe)) (gx#stx-e - _tl257737258712_)))) - (let ((_tl257764258405_ + _tl260432261407_)))) + (let ((_tl260459261100_ (let () (declare (not safe)) - (##cdr _e257766258400_))) - (_hd257765258403_ + (##cdr _e260461261095_))) + (_hd260460261098_ (let () (declare (not safe)) - (##car _e257766258400_)))) + (##car _e260461261095_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd257765258403_)) - (let ((_e257769258408_ + _hd260460261098_)) + (let ((_e260464261103_ (let () (declare (not safe)) (gx#stx-e - _hd257765258403_)))) - (let ((_tl257767258413_ + _hd260460261098_)))) + (let ((_tl260462261108_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e257769258408_))) - (_hd257768258411_ - (let () (declare (not safe)) (##car _e257769258408_)))) + (##cdr _e260464261103_))) + (_hd260463261106_ + (let () (declare (not safe)) (##car _e260464261103_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257768258411_)) + (gx#identifier? _hd260463261106_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd257768258411_)) + (gx#stx-eq? '%#quote _hd260463261106_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257767258413_)) - (let ((_e257772258416_ + (gx#stx-pair? _tl260462261108_)) + (let ((_e260467261111_ (let () (declare (not safe)) - (gx#stx-e _tl257767258413_)))) - (let ((_tl257770258421_ + (gx#stx-e _tl260462261108_)))) + (let ((_tl260465261116_ (let () (declare (not safe)) - (##cdr _e257772258416_))) - (_hd257771258419_ + (##cdr _e260467261111_))) + (_hd260466261114_ (let () (declare (not safe)) - (##car _e257772258416_)))) + (##car _e260467261111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257770258421_)) + (gx#stx-null? _tl260465261116_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257764258405_)) - (___kont270250270251_ - _hd257771258419_ - _hd257738258710_ - _hd257735258702_) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) - (___kont270260270261_)) - (___kont270260270261_)))) + (gx#stx-null? _tl260459261100_)) + (___kont273045273046_ + _hd260466261114_ + _hd260433261405_ + _hd260430261397_) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) + (___kont273055273056_)) + (___kont273055273056_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270260270261_)))) - (___kont270260270261_))))) + (___kont273055273056_)))) + (___kont273055273056_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257737258712_)) - (let ((_e257766258400_ + (gx#stx-pair? _tl260432261407_)) + (let ((_e260461261095_ (let () (declare (not safe)) - (gx#stx-e _tl257737258712_)))) - (let ((_tl257764258405_ + (gx#stx-e _tl260432261407_)))) + (let ((_tl260459261100_ (let () (declare (not safe)) - (##cdr _e257766258400_))) - (_hd257765258403_ + (##cdr _e260461261095_))) + (_hd260460261098_ (let () (declare (not safe)) - (##car _e257766258400_)))) + (##car _e260461261095_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257765258403_)) - (let ((_e257769258408_ + (gx#stx-pair? _hd260460261098_)) + (let ((_e260464261103_ (let () (declare (not safe)) (gx#stx-e - _hd257765258403_)))) - (let ((_tl257767258413_ + _hd260460261098_)))) + (let ((_tl260462261108_ (let () (declare (not safe)) - (##cdr _e257769258408_))) - (_hd257768258411_ + (##cdr _e260464261103_))) + (_hd260463261106_ (let () (declare (not safe)) - (##car _e257769258408_)))) + (##car _e260464261103_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd257768258411_)) + _hd260463261106_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd257768258411_)) + _hd260463261106_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl257767258413_)) - (let ((_e257772258416_ + (gx#stx-pair? _tl260462261108_)) + (let ((_e260467261111_ (let () (declare (not safe)) - (gx#stx-e _tl257767258413_)))) - (let ((_tl257770258421_ + (gx#stx-e _tl260462261108_)))) + (let ((_tl260465261116_ (let () (declare (not safe)) - (##cdr _e257772258416_))) - (_hd257771258419_ + (##cdr _e260467261111_))) + (_hd260466261114_ (let () (declare (not safe)) - (##car _e257772258416_)))) + (##car _e260467261111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257770258421_)) + (gx#stx-null? _tl260465261116_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257764258405_)) - (___kont270250270251_ - _hd257771258419_ - _hd257738258710_ - _hd257735258702_) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) - (___kont270260270261_)) + (gx#stx-null? _tl260459261100_)) + (___kont273045273046_ + _hd260466261114_ + _hd260433261405_ + _hd260430261397_) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) + (___kont273055273056_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270260270261_)))) - (___kont270260270261_)))) - (___kont270260270261_))) + (___kont273055273056_)))) + (___kont273055273056_)))) + (___kont273055273056_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257737258712_)) - (let ((_e257766258400_ + (gx#stx-pair? _tl260432261407_)) + (let ((_e260461261095_ (let () (declare (not safe)) - (gx#stx-e _tl257737258712_)))) - (let ((_tl257764258405_ + (gx#stx-e _tl260432261407_)))) + (let ((_tl260459261100_ (let () (declare (not safe)) - (##cdr _e257766258400_))) - (_hd257765258403_ + (##cdr _e260461261095_))) + (_hd260460261098_ (let () (declare (not safe)) - (##car _e257766258400_)))) + (##car _e260461261095_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257765258403_)) - (let ((_e257769258408_ + (gx#stx-pair? _hd260460261098_)) + (let ((_e260464261103_ (let () (declare (not safe)) (gx#stx-e - _hd257765258403_)))) - (let ((_tl257767258413_ + _hd260460261098_)))) + (let ((_tl260462261108_ (let () (declare (not safe)) - (##cdr _e257769258408_))) - (_hd257768258411_ + (##cdr _e260464261103_))) + (_hd260463261106_ (let () (declare (not safe)) - (##car _e257769258408_)))) + (##car _e260464261103_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd257768258411_)) + _hd260463261106_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd257768258411_)) + _hd260463261106_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257767258413_)) - (let ((_e257772258416_ + _tl260462261108_)) + (let ((_e260467261111_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl257767258413_)))) - (let ((_tl257770258421_ + (gx#stx-e _tl260462261108_)))) + (let ((_tl260465261116_ (let () (declare (not safe)) - (##cdr _e257772258416_))) - (_hd257771258419_ + (##cdr _e260467261111_))) + (_hd260466261114_ (let () (declare (not safe)) - (##car _e257772258416_)))) + (##car _e260467261111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257770258421_)) + (gx#stx-null? _tl260465261116_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257764258405_)) - (___kont270250270251_ - _hd257771258419_ - _hd257738258710_ - _hd257735258702_) + (gx#stx-null? _tl260459261100_)) + (___kont273045273046_ + _hd260466261114_ + _hd260433261405_ + _hd260430261397_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd257741258718_)) + (gx#stx-eq? '%#quote _hd260436261413_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257740258720_)) - (let ((_e257796258312_ + (gx#stx-pair? _tl260435261415_)) + (let ((_e260491261007_ (let () (declare (not safe)) - (gx#stx-e _tl257740258720_)))) - (let ((_tl257794258317_ + (gx#stx-e _tl260435261415_)))) + (let ((_tl260489261012_ (let () (declare (not safe)) - (##cdr _e257796258312_))) - (_hd257795258315_ + (##cdr _e260491261007_))) + (_hd260490261010_ (let () (declare (not safe)) - (##car _e257796258312_)))) - (___kont270260270261_))) - (___kont270260270261_)) + (##car _e260491261007_)))) + (___kont273055273056_))) + (___kont273055273056_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd257741258718_)) + _hd260436261413_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257740258720_)) - (let ((_e257856258072_ + (gx#stx-pair? _tl260435261415_)) + (let ((_e260551260767_ (let () (declare (not safe)) (gx#stx-e - _tl257740258720_)))) - (let ((_tl257854258077_ + _tl260435261415_)))) + (let ((_tl260549260772_ (let () (declare (not safe)) - (##cdr _e257856258072_))) - (_hd257855258075_ + (##cdr _e260551260767_))) + (_hd260550260770_ (let () (declare (not safe)) - (##car _e257856258072_)))) - (___kont270260270261_))) - (___kont270260270261_)) - (___kont270260270261_)))) + (##car _e260551260767_)))) + (___kont273055273056_))) + (___kont273055273056_)) + (___kont273055273056_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd257741258718_)) + (gx#stx-eq? '%#quote _hd260436261413_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257740258720_)) - (let ((_e257796258312_ + (gx#stx-pair? _tl260435261415_)) + (let ((_e260491261007_ (let () (declare (not safe)) - (gx#stx-e _tl257740258720_)))) - (let ((_tl257794258317_ + (gx#stx-e _tl260435261415_)))) + (let ((_tl260489261012_ (let () (declare (not safe)) - (##cdr _e257796258312_))) - (_hd257795258315_ + (##cdr _e260491261007_))) + (_hd260490261010_ (let () (declare (not safe)) - (##car _e257796258312_)))) + (##car _e260491261007_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257794258317_)) + (gx#stx-null? _tl260489261012_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257764258405_)) - (___kont270252270253_ - _hd257765258403_ - _hd257795258315_ - _hd257735258702_) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) + (gx#stx-null? _tl260459261100_)) + (___kont273047273048_ + _hd260460261098_ + _hd260490261010_ + _hd260430261397_) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd257741258718_)) + _hd260436261413_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257740258720_)) - (let ((_e257856258072_ + (gx#stx-pair? _tl260435261415_)) + (let ((_e260551260767_ (let () (declare (not safe)) - (gx#stx-e _tl257740258720_)))) - (let ((_tl257854258077_ + (gx#stx-e _tl260435261415_)))) + (let ((_tl260549260772_ (let () (declare (not safe)) - (##cdr _e257856258072_))) - (_hd257855258075_ + (##cdr _e260551260767_))) + (_hd260550260770_ (let () (declare (not safe)) - (##car _e257856258072_)))) - (___kont270260270261_))) - (___kont270260270261_)) - (___kont270260270261_)))))) + (##car _e260551260767_)))) + (___kont273055273056_))) + (___kont273055273056_)) + (___kont273055273056_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd257741258718_)) + (gx#stx-eq? '%#quote _hd260436261413_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257740258720_)) - (let ((_e257796258312_ + (gx#stx-pair? _tl260435261415_)) + (let ((_e260491261007_ (let () (declare (not safe)) - (gx#stx-e _tl257740258720_)))) - (let ((_tl257794258317_ + (gx#stx-e _tl260435261415_)))) + (let ((_tl260489261012_ (let () (declare (not safe)) - (##cdr _e257796258312_))) - (_hd257795258315_ + (##cdr _e260491261007_))) + (_hd260490261010_ (let () (declare (not safe)) - (##car _e257796258312_)))) + (##car _e260491261007_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257794258317_)) + (gx#stx-null? _tl260489261012_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257764258405_)) - (___kont270252270253_ - _hd257765258403_ - _hd257795258315_ - _hd257735258702_) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) + (gx#stx-null? _tl260459261100_)) + (___kont273047273048_ + _hd260460261098_ + _hd260490261010_ + _hd260430261397_) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd257741258718_)) + (gx#stx-eq? '%#quote-syntax _hd260436261413_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257740258720_)) - (let ((_e257856258072_ + (gx#stx-pair? _tl260435261415_)) + (let ((_e260551260767_ (let () (declare (not safe)) - (gx#stx-e _tl257740258720_)))) - (let ((_tl257854258077_ + (gx#stx-e _tl260435261415_)))) + (let ((_tl260549260772_ (let () (declare (not safe)) - (##cdr _e257856258072_))) - (_hd257855258075_ + (##cdr _e260551260767_))) + (_hd260550260770_ (let () (declare (not safe)) - (##car _e257856258072_)))) - (___kont270260270261_))) - (___kont270260270261_)) - (___kont270260270261_)))) + (##car _e260551260767_)))) + (___kont273055273056_))) + (___kont273055273056_)) + (___kont273055273056_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd257741258718_)) + _hd260436261413_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl257740258720_)) - (let ((_e257796258312_ + (gx#stx-pair? _tl260435261415_)) + (let ((_e260491261007_ (let () (declare (not safe)) - (gx#stx-e _tl257740258720_)))) - (let ((_tl257794258317_ + (gx#stx-e _tl260435261415_)))) + (let ((_tl260489261012_ (let () (declare (not safe)) - (##cdr _e257796258312_))) - (_hd257795258315_ + (##cdr _e260491261007_))) + (_hd260490261010_ (let () (declare (not safe)) - (##car _e257796258312_)))) + (##car _e260491261007_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257794258317_)) + (gx#stx-null? _tl260489261012_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257764258405_)) - (___kont270252270253_ - _hd257765258403_ - _hd257795258315_ - _hd257735258702_) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) + (gx#stx-null? _tl260459261100_)) + (___kont273047273048_ + _hd260460261098_ + _hd260490261010_ + _hd260430261397_) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd257741258718_)) + (gx#stx-eq? '%#quote-syntax _hd260436261413_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257740258720_)) - (let ((_e257856258072_ + (gx#stx-pair? _tl260435261415_)) + (let ((_e260551260767_ (let () (declare (not safe)) - (gx#stx-e _tl257740258720_)))) - (let ((_tl257854258077_ + (gx#stx-e _tl260435261415_)))) + (let ((_tl260549260772_ (let () (declare (not safe)) - (##cdr _e257856258072_))) - (_hd257855258075_ + (##cdr _e260551260767_))) + (_hd260550260770_ (let () (declare (not safe)) - (##car _e257856258072_)))) + (##car _e260551260767_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257854258077_)) + (gx#stx-null? _tl260549260772_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd257768258411_)) + (gx#stx-eq? '%#ref _hd260463261106_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257767258413_)) - (let ((_e257865258096_ + (gx#stx-pair? _tl260462261108_)) + (let ((_e260560260791_ (let () (declare (not safe)) (gx#stx-e - _tl257767258413_)))) - (let ((_tl257863258101_ + _tl260462261108_)))) + (let ((_tl260558260796_ (let () (declare (not safe)) - (##cdr _e257865258096_))) - (_hd257864258099_ + (##cdr _e260560260791_))) + (_hd260559260794_ (let () (declare (not safe)) - (##car _e257865258096_)))) + (##car _e260560260791_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257863258101_)) + _tl260558260796_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl257764258405_)) - (___kont270256270257_ - _hd257864258099_ - _hd257855258075_ - _hd257735258702_) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) - (___kont270260270261_)))) + _tl260459261100_)) + (___kont273051273052_ + _hd260559260794_ + _hd260550260770_ + _hd260430261397_) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) + (___kont273055273056_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd257741258718_)) + _hd260436261413_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257740258720_)) - (let ((_e257796258312_ + _tl260435261415_)) + (let ((_e260491261007_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl257740258720_)))) - (let ((_tl257794258317_ + (gx#stx-e _tl260435261415_)))) + (let ((_tl260489261012_ (let () (declare (not safe)) - (##cdr _e257796258312_))) - (_hd257795258315_ + (##cdr _e260491261007_))) + (_hd260490261010_ (let () (declare (not safe)) - (##car _e257796258312_)))) + (##car _e260491261007_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257794258317_)) + (gx#stx-null? _tl260489261012_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257764258405_)) - (___kont270252270253_ - _hd257765258403_ - _hd257795258315_ - _hd257735258702_) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) + (gx#stx-null? _tl260459261100_)) + (___kont273047273048_ + _hd260460261098_ + _hd260490261010_ + _hd260430261397_) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd257741258718_)) + _hd260436261413_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl257740258720_)) - (let ((_e257856258072_ + (gx#stx-pair? _tl260435261415_)) + (let ((_e260551260767_ (let () (declare (not safe)) - (gx#stx-e _tl257740258720_)))) - (let ((_tl257854258077_ + (gx#stx-e _tl260435261415_)))) + (let ((_tl260549260772_ (let () (declare (not safe)) - (##cdr _e257856258072_))) - (_hd257855258075_ + (##cdr _e260551260767_))) + (_hd260550260770_ (let () (declare (not safe)) - (##car _e257856258072_)))) - (___kont270260270261_))) - (___kont270260270261_)) - (___kont270260270261_)))))) + (##car _e260551260767_)))) + (___kont273055273056_))) + (___kont273055273056_)) + (___kont273055273056_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd257741258718_)) + _hd260436261413_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257740258720_)) - (let ((_e257796258312_ + _tl260435261415_)) + (let ((_e260491261007_ (let () (declare (not safe)) (gx#stx-e - _tl257740258720_)))) - (let ((_tl257794258317_ + _tl260435261415_)))) + (let ((_tl260489261012_ (let () (declare (not safe)) - (##cdr _e257796258312_))) - (_hd257795258315_ + (##cdr _e260491261007_))) + (_hd260490261010_ (let () (declare (not safe)) - (##car _e257796258312_)))) + (##car _e260491261007_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257794258317_)) + _tl260489261012_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl257764258405_)) - (___kont270252270253_ - _hd257765258403_ - _hd257795258315_ - _hd257735258702_) - (___kont270260270261_)) - (___kont270260270261_)))) + (gx#stx-null? _tl260459261100_)) + (___kont273047273048_ + _hd260460261098_ + _hd260490261010_ + _hd260430261397_) + (___kont273055273056_)) + (___kont273055273056_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270260270261_)) + (___kont273055273056_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd257741258718_)) + _hd260436261413_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257740258720_)) - (let ((_e257856258072_ + _tl260435261415_)) + (let ((_e260551260767_ (let () (declare (not safe)) (gx#stx-e - _tl257740258720_)))) - (let ((_tl257854258077_ + _tl260435261415_)))) + (let ((_tl260549260772_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e257856258072_))) - (_hd257855258075_ - (let () (declare (not safe)) (##car _e257856258072_)))) - (___kont270260270261_))) + (##cdr _e260551260767_))) + (_hd260550260770_ + (let () (declare (not safe)) (##car _e260551260767_)))) + (___kont273055273056_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270260270261_)) - (___kont270260270261_)))))) + (___kont273055273056_)) + (___kont273055273056_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd257741258718_)) + (gx#stx-eq? '%#quote _hd260436261413_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257740258720_)) - (let ((_e257796258312_ + (gx#stx-pair? _tl260435261415_)) + (let ((_e260491261007_ (let () (declare (not safe)) (gx#stx-e - _tl257740258720_)))) - (let ((_tl257794258317_ + _tl260435261415_)))) + (let ((_tl260489261012_ (let () (declare (not safe)) - (##cdr _e257796258312_))) - (_hd257795258315_ + (##cdr _e260491261007_))) + (_hd260490261010_ (let () (declare (not safe)) - (##car _e257796258312_)))) - (___kont270260270261_))) - (___kont270260270261_)) + (##car _e260491261007_)))) + (___kont273055273056_))) + (___kont273055273056_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd257741258718_)) + _hd260436261413_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257740258720_)) - (let ((_e257856258072_ + (gx#stx-pair? _tl260435261415_)) + (let ((_e260551260767_ (let () (declare (not safe)) (gx#stx-e - _tl257740258720_)))) - (let ((_tl257854258077_ + _tl260435261415_)))) + (let ((_tl260549260772_ (let () (declare (not safe)) - (##cdr _e257856258072_))) - (_hd257855258075_ + (##cdr _e260551260767_))) + (_hd260550260770_ (let () (declare (not safe)) - (##car _e257856258072_)))) - (___kont270260270261_))) - (___kont270260270261_)) - (___kont270260270261_))))) + (##car _e260551260767_)))) + (___kont273055273056_))) + (___kont273055273056_)) + (___kont273055273056_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257737258712_)) - (let ((_e257766258400_ + (gx#stx-pair? _tl260432261407_)) + (let ((_e260461261095_ (let () (declare (not safe)) - (gx#stx-e _tl257737258712_)))) - (let ((_tl257764258405_ + (gx#stx-e _tl260432261407_)))) + (let ((_tl260459261100_ (let () (declare (not safe)) - (##cdr _e257766258400_))) - (_hd257765258403_ + (##cdr _e260461261095_))) + (_hd260460261098_ (let () (declare (not safe)) - (##car _e257766258400_)))) + (##car _e260461261095_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257765258403_)) - (let ((_e257769258408_ + (gx#stx-pair? _hd260460261098_)) + (let ((_e260464261103_ (let () (declare (not safe)) - (gx#stx-e _hd257765258403_)))) - (let ((_tl257767258413_ + (gx#stx-e _hd260460261098_)))) + (let ((_tl260462261108_ (let () (declare (not safe)) - (##cdr _e257769258408_))) - (_hd257768258411_ + (##cdr _e260464261103_))) + (_hd260463261106_ (let () (declare (not safe)) - (##car _e257769258408_)))) + (##car _e260464261103_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd257768258411_)) + _hd260463261106_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd257768258411_)) + _hd260463261106_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257767258413_)) - (let ((_e257772258416_ + _tl260462261108_)) + (let ((_e260467261111_ (let () (declare (not safe)) (gx#stx-e - _tl257767258413_)))) - (let ((_tl257770258421_ + _tl260462261108_)))) + (let ((_tl260465261116_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e257772258416_))) - (_hd257771258419_ - (let () (declare (not safe)) (##car _e257772258416_)))) + (##cdr _e260467261111_))) + (_hd260466261114_ + (let () (declare (not safe)) (##car _e260467261111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257770258421_)) + (gx#stx-null? _tl260465261116_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257764258405_)) - (___kont270250270251_ - _hd257771258419_ - _hd257738258710_ - _hd257735258702_) - (___kont270260270261_)) - (___kont270260270261_)))) + (gx#stx-null? _tl260459261100_)) + (___kont273045273046_ + _hd260466261114_ + _hd260433261405_ + _hd260430261397_) + (___kont273055273056_)) + (___kont273055273056_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270260270261_)) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)))) - (___kont270260270261_))))) + (___kont273055273056_)) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)))) + (___kont273055273056_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257737258712_)) - (let ((_e257766258400_ + (gx#stx-pair? _tl260432261407_)) + (let ((_e260461261095_ (let () (declare (not safe)) - (gx#stx-e _tl257737258712_)))) - (let ((_tl257764258405_ + (gx#stx-e _tl260432261407_)))) + (let ((_tl260459261100_ (let () (declare (not safe)) - (##cdr _e257766258400_))) - (_hd257765258403_ + (##cdr _e260461261095_))) + (_hd260460261098_ (let () (declare (not safe)) - (##car _e257766258400_)))) + (##car _e260461261095_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257765258403_)) - (let ((_e257769258408_ + (gx#stx-pair? _hd260460261098_)) + (let ((_e260464261103_ (let () (declare (not safe)) - (gx#stx-e _hd257765258403_)))) - (let ((_tl257767258413_ + (gx#stx-e _hd260460261098_)))) + (let ((_tl260462261108_ (let () (declare (not safe)) - (##cdr _e257769258408_))) - (_hd257768258411_ + (##cdr _e260464261103_))) + (_hd260463261106_ (let () (declare (not safe)) - (##car _e257769258408_)))) + (##car _e260464261103_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257768258411_)) + (gx#identifier? _hd260463261106_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd257768258411_)) + _hd260463261106_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257767258413_)) - (let ((_e257772258416_ + (gx#stx-pair? _tl260462261108_)) + (let ((_e260467261111_ (let () (declare (not safe)) (gx#stx-e - _tl257767258413_)))) - (let ((_tl257770258421_ + _tl260462261108_)))) + (let ((_tl260465261116_ (let () (declare (not safe)) - (##cdr _e257772258416_))) - (_hd257771258419_ + (##cdr _e260467261111_))) + (_hd260466261114_ (let () (declare (not safe)) - (##car _e257772258416_)))) + (##car _e260467261111_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257770258421_)) + _tl260465261116_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl257764258405_)) - (___kont270250270251_ - _hd257771258419_ - _hd257738258710_ - _hd257735258702_) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)))) - (___kont270260270261_))))) + _tl260459261100_)) + (___kont273045273046_ + _hd260466261114_ + _hd260433261405_ + _hd260430261397_) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)))) + (___kont273055273056_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd257732258694_)) + (gx#stx-eq? '%#lambda _hd260427261389_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257731258696_)) - (let ((_e257880257936_ + (gx#stx-pair? _tl260426261391_)) + (let ((_e260575260631_ (let () (declare (not safe)) (gx#stx-e - _tl257731258696_)))) - (let ((_tl257878257941_ + _tl260426261391_)))) + (let ((_tl260573260636_ (let () (declare (not safe)) - (##cdr _e257880257936_))) - (_hd257879257939_ + (##cdr _e260575260631_))) + (_hd260574260634_ (let () (declare (not safe)) - (##car _e257880257936_)))) + (##car _e260575260631_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd257879257939_)) - (let ((_e257883257944_ + _hd260574260634_)) + (let ((_e260578260639_ (let () (declare (not safe)) (gx#stx-e - _hd257879257939_)))) - (let ((_tl257881257949_ + _hd260574260634_)))) + (let ((_tl260576260644_ (let () (declare (not safe)) - (##cdr _e257883257944_))) - (_hd257882257947_ + (##cdr _e260578260639_))) + (_hd260577260642_ (let () (declare (not safe)) - (##car _e257883257944_)))) + (##car _e260578260639_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257881257949_)) + _tl260576260644_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl257878257941_)) - (let ((_e257886257952_ + (gx#stx-pair? _tl260573260636_)) + (let ((_e260581260647_ (let () (declare (not safe)) - (gx#stx-e _tl257878257941_)))) - (let ((_tl257884257957_ + (gx#stx-e _tl260573260636_)))) + (let ((_tl260579260652_ (let () (declare (not safe)) - (##cdr _e257886257952_))) - (_hd257885257955_ + (##cdr _e260581260647_))) + (_hd260580260650_ (let () (declare (not safe)) - (##car _e257886257952_)))) + (##car _e260581260647_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257884257957_)) + (gx#stx-null? _tl260579260652_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257728258688_)) - (let ((_e257889257960_ + (gx#stx-pair? _tl260423261383_)) + (let ((_e260584260655_ (let () (declare (not safe)) - (gx#stx-e _tl257728258688_)))) - (let ((_tl257887257965_ + (gx#stx-e _tl260423261383_)))) + (let ((_tl260582260660_ (let () (declare (not safe)) - (##cdr _e257889257960_))) - (_hd257888257963_ + (##cdr _e260584260655_))) + (_hd260583260658_ (let () (declare (not safe)) - (##car _e257889257960_)))) + (##car _e260584260655_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257888257963_)) - (let ((_e257892257968_ + (gx#stx-pair? _hd260583260658_)) + (let ((_e260587260663_ (let () (declare (not safe)) (gx#stx-e - _hd257888257963_)))) - (let ((_tl257890257973_ + _hd260583260658_)))) + (let ((_tl260585260668_ (let () (declare (not safe)) - (##cdr _e257892257968_))) - (_hd257891257971_ + (##cdr _e260587260663_))) + (_hd260586260666_ (let () (declare (not safe)) - (##car _e257892257968_)))) + (##car _e260587260663_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd257891257971_)) + _hd260586260666_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd257891257971_)) + _hd260586260666_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257890257973_)) - (let ((_e257895257976_ + _tl260585260668_)) + (let ((_e260590260671_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl257890257973_)))) - (let ((_tl257893257981_ + (gx#stx-e _tl260585260668_)))) + (let ((_tl260588260676_ (let () (declare (not safe)) - (##cdr _e257895257976_))) - (_hd257894257979_ + (##cdr _e260590260671_))) + (_hd260589260674_ (let () (declare (not safe)) - (##car _e257895257976_)))) + (##car _e260590260671_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257893257981_)) + (gx#stx-null? _tl260588260676_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257887257965_)) - (___kont270258270259_ - _hd257894257979_ - _hd257885257955_ - _hd257882257947_) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) + (gx#stx-null? _tl260582260660_)) + (___kont273053273054_ + _hd260589260674_ + _hd260580260650_ + _hd260577260642_) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)))) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_)) - (___kont270260270261_)))) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)))) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_)) + (___kont273055273056_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270260270261_)))) - (___kont270260270261_)) - (___kont270260270261_))) - (___kont270260270261_)))) - (___kont270260270261_)))) + (___kont273055273056_)))) + (___kont273055273056_)) + (___kont273055273056_))) + (___kont273055273056_)))) + (___kont273055273056_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270260270261_)) - (___kont270260270261_)) - (___kont270260270261_)))) - (___kont270260270261_))))))))) - (_assert-type256707_ - (lambda (_id257606_ _t257607_) - (let _lp257609_ ((_rest257611_ _env-type256689_)) - (let* ((_rest257612257620_ _rest257611_) - (_else257614257628_ (lambda () '#!void)) - (_K257616257692_ - (lambda (_rest257631_ _type-info257632_) - (let* ((_type-info257633257645_ - _type-info257632_) - (_else257635257653_ + (___kont273055273056_)) + (___kont273055273056_)) + (___kont273055273056_)))) + (___kont273055273056_))))))))) + (_assert-type259402_ + (lambda (_id260301_ _t260302_) + (let _lp260304_ ((_rest260306_ _env-type259384_)) + (let* ((_rest260307260315_ _rest260306_) + (_else260309260323_ (lambda () '#!void)) + (_K260311260387_ + (lambda (_rest260326_ _type-info260327_) + (let* ((_type-info260328260340_ + _type-info260327_) + (_else260330260348_ (lambda () (let () (declare (not safe)) - (_lp257609_ _rest257631_)))) - (_K257637257668_ - (lambda (_val257656_ - _xt257657_ - _xid257658_) + (_lp260304_ _rest260326_)))) + (_K260332260363_ + (lambda (_val260351_ + _xt260352_ + _xid260353_) (if (let () (declare (not safe)) (gx#free-identifier=? - _id257606_ - _xid257658_)) + _id260301_ + _xid260353_)) (if (let () (declare (not safe)) - (eq? _t257607_ - _xt257657_)) - _val257656_ - (if _val257656_ + (eq? _t260302_ + _xt260352_)) + _val260351_ + (if _val260351_ (if (let () (declare (not safe)) (##structure-instance-of? - _t257607_ + _t260302_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##structure-instance-of? _xt257657_ 'gxc#!class::t)) - (memq _t257607_ - (map (lambda (_g257659257661_) + (##structure-instance-of? _xt260352_ 'gxc#!class::t)) + (memq _t260302_ + (map (lambda (_g260354260356_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _xt257657_ - _g257659257661_))) + _xt260352_ + _g260354260356_))) (##structure-ref - _xt257657_ + _xt260352_ '3 gxc#!class::t '#f))) @@ -11184,3500 +11184,3500 @@ '#f) (if (and (let () (declare (not safe)) - (##structure-instance-of? _t257607_ 'gxc#!class::t)) + (##structure-instance-of? _t260302_ 'gxc#!class::t)) (let () (declare (not safe)) - (##structure-instance-of? _xt257657_ 'gxc#!class::t)) - (memq _xt257657_ - (map (lambda (_g257663257665_) + (##structure-instance-of? _xt260352_ 'gxc#!class::t)) + (memq _xt260352_ + (map (lambda (_g260358260360_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _t257607_ - _g257663257665_))) + _t260302_ + _g260358260360_))) (##structure-ref - _t257607_ + _t260302_ '3 gxc#!class::t '#f)))) '#f - (let () (declare (not safe)) (_lp257609_ _rest257631_))))) + (let () (declare (not safe)) (_lp260304_ _rest260326_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp257609_ _rest257631_)))))) + (_lp260304_ _rest260326_)))))) (if (let () (declare (not safe)) - (##pair? _type-info257633257645_)) - (let ((_hd257638257671_ + (##pair? _type-info260328260340_)) + (let ((_hd260333260366_ (let () (declare (not safe)) - (##car _type-info257633257645_))) - (_tl257639257673_ + (##car _type-info260328260340_))) + (_tl260334260368_ (let () (declare (not safe)) - (##cdr _type-info257633257645_)))) - (let ((_xid257676_ _hd257638257671_)) + (##cdr _type-info260328260340_)))) + (let ((_xid260371_ _hd260333260366_)) (if (let () (declare (not safe)) - (##pair? _tl257639257673_)) - (let ((_hd257640257678_ + (##pair? _tl260334260368_)) + (let ((_hd260335260373_ (let () (declare (not safe)) - (##car _tl257639257673_))) - (_tl257641257680_ + (##car _tl260334260368_))) + (_tl260336260375_ (let () (declare (not safe)) - (##cdr _tl257639257673_)))) - (let ((_xt257683_ - _hd257640257678_)) + (##cdr _tl260334260368_)))) + (let ((_xt260378_ + _hd260335260373_)) (if (let () (declare (not safe)) - (##pair? _tl257641257680_)) - (let ((_hd257642257685_ + (##pair? _tl260336260375_)) + (let ((_hd260337260380_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl257641257680_))) - (_tl257643257687_ - (let () (declare (not safe)) (##cdr _tl257641257680_)))) - (let ((_val257690_ _hd257642257685_)) - (if (let () (declare (not safe)) (##null? _tl257643257687_)) + (##car _tl260336260375_))) + (_tl260338260382_ + (let () (declare (not safe)) (##cdr _tl260336260375_)))) + (let ((_val260385_ _hd260337260380_)) + (if (let () (declare (not safe)) (##null? _tl260338260382_)) (let () (declare (not safe)) - (_K257637257668_ _val257690_ _xt257683_ _xid257676_)) - (let () (declare (not safe)) (_else257635257653_))))) - (let () (declare (not safe)) (_else257635257653_))))) + (_K260332260363_ _val260385_ _xt260378_ _xid260371_)) + (let () (declare (not safe)) (_else260330260348_))))) + (let () (declare (not safe)) (_else260330260348_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else257635257653_))))) + (_else260330260348_))))) (let () (declare (not safe)) - (_else257635257653_))))))) + (_else260330260348_))))))) (if (let () (declare (not safe)) - (##pair? _rest257612257620_)) - (let ((_hd257617257695_ + (##pair? _rest260307260315_)) + (let ((_hd260312260390_ (let () (declare (not safe)) - (##car _rest257612257620_))) - (_tl257618257697_ + (##car _rest260307260315_))) + (_tl260313260392_ (let () (declare (not safe)) - (##cdr _rest257612257620_)))) - (let* ((_type-info257700_ _hd257617257695_) - (_rest257702_ _tl257618257697_)) + (##cdr _rest260307260315_)))) + (let* ((_type-info260395_ _hd260312260390_) + (_rest260397_ _tl260313260392_)) (declare (not safe)) - (_K257616257692_ - _rest257702_ - _type-info257700_))) + (_K260311260387_ + _rest260397_ + _type-info260395_))) (let () (declare (not safe)) - (_else257614257628_))))))) - (_assert-count256708_ - (lambda (_id257505_ _sym257506_ _count257507_) - (let _lp257509_ ((_rest257511_ _env-type256689_)) - (let* ((_rest257512257520_ _rest257511_) - (_else257514257528_ (lambda () '#!void)) - (_K257516257594_ - (lambda (_rest257531_ _type-info257532_) - (let* ((_type-info257533257547_ - _type-info257532_) - (_else257535257555_ + (_else260309260323_))))))) + (_assert-count259403_ + (lambda (_id260200_ _sym260201_ _count260202_) + (let _lp260204_ ((_rest260206_ _env-type259384_)) + (let* ((_rest260207260215_ _rest260206_) + (_else260209260223_ (lambda () '#!void)) + (_K260211260289_ + (lambda (_rest260226_ _type-info260227_) + (let* ((_type-info260228260242_ + _type-info260227_) + (_else260230260250_ (lambda () (let () (declare (not safe)) - (_lp257509_ _rest257531_)))) - (_K257537257563_ - (lambda (_val257558_ - _xcount257559_ - _xsym257560_ - _xid257561_) + (_lp260204_ _rest260226_)))) + (_K260232260258_ + (lambda (_val260253_ + _xcount260254_ + _xsym260255_ + _xid260256_) (if (and (let () (declare (not safe)) - (eq? _sym257506_ - _xsym257560_)) + (eq? _sym260201_ + _xsym260255_)) (let () (declare (not safe)) (gx#free-identifier=? - _id257505_ - _xid257561_))) - (if _val257558_ - (fx= _count257507_ - _xcount257559_) - (if (fx= _count257507_ - _xcount257559_) + _id260200_ + _xid260256_))) + (if _val260253_ + (fx= _count260202_ + _xcount260254_) + (if (fx= _count260202_ + _xcount260254_) '#f (let () (declare (not safe)) - (_lp257509_ - _rest257531_)))) + (_lp260204_ + _rest260226_)))) (let () (declare (not safe)) - (_lp257509_ _rest257531_)))))) + (_lp260204_ _rest260226_)))))) (if (let () (declare (not safe)) - (##pair? _type-info257533257547_)) - (let ((_hd257538257566_ + (##pair? _type-info260228260242_)) + (let ((_hd260233260261_ (let () (declare (not safe)) - (##car _type-info257533257547_))) - (_tl257539257568_ + (##car _type-info260228260242_))) + (_tl260234260263_ (let () (declare (not safe)) - (##cdr _type-info257533257547_)))) - (let ((_xid257571_ _hd257538257566_)) + (##cdr _type-info260228260242_)))) + (let ((_xid260266_ _hd260233260261_)) (if (let () (declare (not safe)) - (##pair? _tl257539257568_)) - (let ((_hd257540257573_ + (##pair? _tl260234260263_)) + (let ((_hd260235260268_ (let () (declare (not safe)) - (##car _tl257539257568_))) - (_tl257541257575_ + (##car _tl260234260263_))) + (_tl260236260270_ (let () (declare (not safe)) - (##cdr _tl257539257568_)))) - (let ((_xsym257578_ - _hd257540257573_)) + (##cdr _tl260234260263_)))) + (let ((_xsym260273_ + _hd260235260268_)) (if (let () (declare (not safe)) - (##pair? _tl257541257575_)) - (let ((_hd257542257580_ + (##pair? _tl260236260270_)) + (let ((_hd260237260275_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl257541257575_))) - (_tl257543257582_ - (let () (declare (not safe)) (##cdr _tl257541257575_)))) - (let ((_xcount257585_ _hd257542257580_)) - (if (let () (declare (not safe)) (##pair? _tl257543257582_)) - (let ((_hd257544257587_ + (##car _tl260236260270_))) + (_tl260238260277_ + (let () (declare (not safe)) (##cdr _tl260236260270_)))) + (let ((_xcount260280_ _hd260237260275_)) + (if (let () (declare (not safe)) (##pair? _tl260238260277_)) + (let ((_hd260239260282_ (let () (declare (not safe)) - (##car _tl257543257582_))) - (_tl257545257589_ + (##car _tl260238260277_))) + (_tl260240260284_ (let () (declare (not safe)) - (##cdr _tl257543257582_)))) - (let ((_val257592_ _hd257544257587_)) + (##cdr _tl260238260277_)))) + (let ((_val260287_ _hd260239260282_)) (if (let () (declare (not safe)) - (##null? _tl257545257589_)) + (##null? _tl260240260284_)) (let () (declare (not safe)) - (_K257537257563_ - _val257592_ - _xcount257585_ - _xsym257578_ - _xid257571_)) + (_K260232260258_ + _val260287_ + _xcount260280_ + _xsym260273_ + _xid260266_)) (let () (declare (not safe)) - (_else257535257555_))))) - (let () (declare (not safe)) (_else257535257555_))))) - (let () (declare (not safe)) (_else257535257555_))))) + (_else260230260250_))))) + (let () (declare (not safe)) (_else260230260250_))))) + (let () (declare (not safe)) (_else260230260250_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else257535257555_))))) + (_else260230260250_))))) (let () (declare (not safe)) - (_else257535257555_))))))) + (_else260230260250_))))))) (if (let () (declare (not safe)) - (##pair? _rest257512257520_)) - (let ((_hd257517257597_ + (##pair? _rest260207260215_)) + (let ((_hd260212260292_ (let () (declare (not safe)) - (##car _rest257512257520_))) - (_tl257518257599_ + (##car _rest260207260215_))) + (_tl260213260294_ (let () (declare (not safe)) - (##cdr _rest257512257520_)))) - (let* ((_type-info257602_ _hd257517257597_) - (_rest257604_ _tl257518257599_)) + (##cdr _rest260207260215_)))) + (let* ((_type-info260297_ _hd260212260292_) + (_rest260299_ _tl260213260294_)) (declare (not safe)) - (_K257516257594_ - _rest257604_ - _type-info257602_))) + (_K260211260289_ + _rest260299_ + _type-info260297_))) (let () (declare (not safe)) - (_else257514257528_))))))) - (_assert-eqf256709_ - (lambda (_id257395_ _sym257396_ _datum257397_) - (letrec ((_eqf257399_ - (lambda (_sym257500_) - (let ((_$e257502_ _sym257500_)) + (_else260209260223_))))))) + (_assert-eqf259404_ + (lambda (_id260090_ _sym260091_ _datum260092_) + (letrec ((_eqf260094_ + (lambda (_sym260195_) + (let ((_$e260197_ _sym260195_)) (if (let () (declare (not safe)) - (eq? 'eq? _$e257502_)) + (eq? 'eq? _$e260197_)) eq? (if (let () (declare (not safe)) - (eq? 'eqv? _$e257502_)) + (eq? 'eqv? _$e260197_)) eqv? (if (let () (declare (not safe)) - (eq? 'equal? _$e257502_)) + (eq? 'equal? _$e260197_)) equal? (if (let () (declare (not safe)) (eq? 'free-identifier=? - _$e257502_)) + _$e260197_)) gx#free-identifier=? (if (let () (declare (not safe)) (eq? 'stx-eq? - _$e257502_)) + _$e260197_)) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _body256450_ - _sym257500_))))))))))) - (let _lp257401_ ((_rest257403_ _env-type256689_)) - (let* ((_rest257404257412_ _rest257403_) - (_else257406257420_ (lambda () '#!void)) - (_K257408257488_ - (lambda (_rest257423_ _type-info257424_) - (let* ((_type-info257425257439_ - _type-info257424_) - (_else257427257447_ + _body259145_ + _sym260195_))))))))))) + (let _lp260096_ ((_rest260098_ _env-type259384_)) + (let* ((_rest260099260107_ _rest260098_) + (_else260101260115_ (lambda () '#!void)) + (_K260103260183_ + (lambda (_rest260118_ _type-info260119_) + (let* ((_type-info260120260134_ + _type-info260119_) + (_else260122260142_ (lambda () (let () (declare (not safe)) - (_lp257401_ _rest257423_)))) - (_K257429257457_ - (lambda (_val257450_ - _xdatum257451_ - _xsym257452_ - _xid257453_) + (_lp260096_ _rest260118_)))) + (_K260124260152_ + (lambda (_val260145_ + _xdatum260146_ + _xsym260147_ + _xid260148_) (if (and (let () (declare (not safe)) - (eq? _sym257396_ - _xsym257452_)) + (eq? _sym260091_ + _xsym260147_)) (let () (declare (not safe)) (gx#free-identifier=? - _id257395_ - _xid257453_))) - (let ((_=?257455_ + _id260090_ + _xid260148_))) + (let ((_=?260150_ (let () (declare (not safe)) - (_eqf257399_ - _sym257396_)))) - (if _val257450_ - (_=?257455_ - _datum257397_ - _xdatum257451_) - (if (_=?257455_ - _datum257397_ - _xdatum257451_) + (_eqf260094_ + _sym260091_)))) + (if _val260145_ + (_=?260150_ + _datum260092_ + _xdatum260146_) + (if (_=?260150_ + _datum260092_ + _xdatum260146_) '#f (let () (declare (not safe)) - (_lp257401_ - _rest257423_))))) + (_lp260096_ + _rest260118_))))) (let () (declare (not safe)) - (_lp257401_ - _rest257423_)))))) + (_lp260096_ + _rest260118_)))))) (if (let () (declare (not safe)) - (##pair? _type-info257425257439_)) - (let ((_hd257430257460_ + (##pair? _type-info260120260134_)) + (let ((_hd260125260155_ (let () (declare (not safe)) - (##car _type-info257425257439_))) - (_tl257431257462_ + (##car _type-info260120260134_))) + (_tl260126260157_ (let () (declare (not safe)) - (##cdr _type-info257425257439_)))) - (let ((_xid257465_ - _hd257430257460_)) + (##cdr _type-info260120260134_)))) + (let ((_xid260160_ + _hd260125260155_)) (if (let () (declare (not safe)) - (##pair? _tl257431257462_)) - (let ((_hd257432257467_ + (##pair? _tl260126260157_)) + (let ((_hd260127260162_ (let () (declare (not safe)) - (##car _tl257431257462_))) - (_tl257433257469_ + (##car _tl260126260157_))) + (_tl260128260164_ (let () (declare (not safe)) - (##cdr _tl257431257462_)))) - (let ((_xsym257472_ - _hd257432257467_)) + (##cdr _tl260126260157_)))) + (let ((_xsym260167_ + _hd260127260162_)) (if (let () (declare (not safe)) - (##pair? _tl257433257469_)) - (let ((_hd257434257474_ + (##pair? _tl260128260164_)) + (let ((_hd260129260169_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _tl257433257469_))) - (_tl257435257476_ + (##car _tl260128260164_))) + (_tl260130260171_ (let () (declare (not safe)) - (##cdr _tl257433257469_)))) - (let ((_xdatum257479_ _hd257434257474_)) + (##cdr _tl260128260164_)))) + (let ((_xdatum260174_ _hd260129260169_)) (if (let () (declare (not safe)) - (##pair? _tl257435257476_)) - (let ((_hd257436257481_ + (##pair? _tl260130260171_)) + (let ((_hd260131260176_ (let () (declare (not safe)) - (##car _tl257435257476_))) - (_tl257437257483_ + (##car _tl260130260171_))) + (_tl260132260178_ (let () (declare (not safe)) - (##cdr _tl257435257476_)))) - (let ((_val257486_ _hd257436257481_)) + (##cdr _tl260130260171_)))) + (let ((_val260181_ _hd260131260176_)) (if (let () (declare (not safe)) - (##null? _tl257437257483_)) + (##null? _tl260132260178_)) (let () (declare (not safe)) - (_K257429257457_ - _val257486_ - _xdatum257479_ - _xsym257472_ - _xid257465_)) + (_K260124260152_ + _val260181_ + _xdatum260174_ + _xsym260167_ + _xid260160_)) (let () (declare (not safe)) - (_else257427257447_))))) - (let () (declare (not safe)) (_else257427257447_))))) - (let () (declare (not safe)) (_else257427257447_))))) + (_else260122260142_))))) + (let () (declare (not safe)) (_else260122260142_))))) + (let () (declare (not safe)) (_else260122260142_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else257427257447_))))) + (_else260122260142_))))) (let () (declare (not safe)) - (_else257427257447_))))))) + (_else260122260142_))))))) (if (let () (declare (not safe)) - (##pair? _rest257404257412_)) - (let ((_hd257409257491_ + (##pair? _rest260099260107_)) + (let ((_hd260104260186_ (let () (declare (not safe)) - (##car _rest257404257412_))) - (_tl257410257493_ + (##car _rest260099260107_))) + (_tl260105260188_ (let () (declare (not safe)) - (##cdr _rest257404257412_)))) - (let* ((_type-info257496_ _hd257409257491_) - (_rest257498_ _tl257410257493_)) + (##cdr _rest260099260107_)))) + (let* ((_type-info260191_ _hd260104260186_) + (_rest260193_ _tl260105260188_)) (declare (not safe)) - (_K257408257488_ - _rest257498_ - _type-info257496_))) + (_K260103260183_ + _rest260193_ + _type-info260191_))) (let () (declare (not safe)) - (_else257406257420_)))))))) - (_bind-e__268629268630_ - (lambda (_bind257298_ _body257299_ _continue257300_) - (let _lp257302_ ((_rest257304_ _bind257298_) - (_subst257305_ '()) - (_locals257306_ '()) - (_env257307_ _env-bind256690_)) - (let* ((_rest257308257316_ _rest257304_) - (_else257310257330_ + (_else260101260115_)))))))) + (_bind-e__271424271425_ + (lambda (_bind259993_ _body259994_ _continue259995_) + (let _lp259997_ ((_rest259999_ _bind259993_) + (_subst260000_ '()) + (_locals260001_ '()) + (_env260002_ _env-bind259385_)) + (let* ((_rest260003260011_ _rest259999_) + (_else260005260025_ (lambda () - (let* ((_body257324_ + (let* ((_body260019_ (if (let () (declare (not safe)) - (null? _subst257305_)) - _body257299_ + (null? _subst260000_)) + _body259994_ (let () (declare (not safe)) (gxc#apply-expression-subst* - _body257299_ - _subst257305_)))) - (_body257327_ - (let ((__tmp272070 + _body259994_ + _subst260000_)))) + (_body260022_ + (let ((__tmp274865 (lambda () - (_continue257300_ - _body257324_)))) + (_continue259995_ + _body260019_)))) (declare (not safe)) - (_do-bind!256701_ - _env257307_ - __tmp272070)))) + (_do-bind!259396_ + _env260002_ + __tmp274865)))) (if (let () (declare (not safe)) - (null? _locals257306_)) - _body257327_ - (let ((__tmp272071 - (let ((__tmp272072 + (null? _locals260001_)) + _body260022_ + (let ((__tmp274866 + (let ((__tmp274867 (let () (declare (not safe)) - (cons _body257327_ + (cons _body260022_ '())))) (declare (not safe)) - (cons _locals257306_ - __tmp272072)))) + (cons _locals260001_ + __tmp274867)))) (declare (not safe)) - (cons '%#let-values __tmp272071)))))) - (_K257312257371_ - (lambda (_rest257333_ _bind257334_) - (let* ((_bind257335257342_ _bind257334_) - (_E257337257346_ + (cons '%#let-values __tmp274866)))))) + (_K260007260066_ + (lambda (_rest260028_ _bind260029_) + (let* ((_bind260030260037_ _bind260029_) + (_E260032260041_ (lambda () (error '"No clause matching" - _bind257335257342_))) - (_K257338257359_ - (lambda (_expr257349_ _id257350_) - (let* ((_sexpr257352_ + _bind260030260037_))) + (_K260033260054_ + (lambda (_expr260044_ _id260045_) + (let* ((_sexpr260047_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr257349_))) - (_$e257354_ + _expr260044_))) + (_$e260049_ (let () (declare (not safe)) - (assget _sexpr257352_ - _env-bind256690_)))) - (if _$e257354_ - ((lambda (_xid257357_) - (let ((__tmp272079 - (let ((__tmp272080 + (assget _sexpr260047_ + _env-bind259385_)))) + (if _$e260049_ + ((lambda (_xid260052_) + (let ((__tmp274874 + (let ((__tmp274875 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id257350_ _xid257357_)))) + (cons _id260045_ _xid260052_)))) (declare (not safe)) - (cons __tmp272080 _subst257305_)))) + (cons __tmp274875 _subst260000_)))) (declare (not safe)) - (_lp257302_ - _rest257333_ - __tmp272079 - _locals257306_ - _env257307_))) + (_lp259997_ + _rest260028_ + __tmp274874 + _locals260001_ + _env260002_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e257354_) - (let ((__tmp272075 - (let ((__tmp272076 - (let ((__tmp272078 + _$e260049_) + (let ((__tmp274870 + (let ((__tmp274871 + (let ((__tmp274873 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id257350_ '()))) - (__tmp272077 + (cons _id260045_ '()))) + (__tmp274872 (let () (declare (not safe)) - (cons _expr257349_ '())))) + (cons _expr260044_ '())))) (declare (not safe)) - (cons __tmp272078 __tmp272077)))) + (cons __tmp274873 __tmp274872)))) (declare (not safe)) - (cons __tmp272076 _locals257306_))) - (__tmp272073 - (let ((__tmp272074 + (cons __tmp274871 _locals260001_))) + (__tmp274868 + (let ((__tmp274869 (let () (declare (not safe)) - (cons _sexpr257352_ _id257350_)))) + (cons _sexpr260047_ _id260045_)))) (declare (not safe)) - (cons __tmp272074 _env257307_)))) + (cons __tmp274869 _env260002_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp257302_ - _rest257333_ - _subst257305_ - __tmp272075 - __tmp272073))))))) + (_lp259997_ + _rest260028_ + _subst260000_ + __tmp274870 + __tmp274868))))))) (if (let () (declare (not safe)) - (##pair? _bind257335257342_)) - (let ((_hd257339257362_ + (##pair? _bind260030260037_)) + (let ((_hd260034260057_ (let () (declare (not safe)) - (##car _bind257335257342_))) - (_tl257340257364_ + (##car _bind260030260037_))) + (_tl260035260059_ (let () (declare (not safe)) - (##cdr _bind257335257342_)))) - (let* ((_id257367_ _hd257339257362_) - (_expr257369_ - _tl257340257364_)) + (##cdr _bind260030260037_)))) + (let* ((_id260062_ _hd260034260057_) + (_expr260064_ + _tl260035260059_)) (declare (not safe)) - (_K257338257359_ - _expr257369_ - _id257367_))) + (_K260033260054_ + _expr260064_ + _id260062_))) (let () (declare (not safe)) - (_E257337257346_))))))) + (_E260032260041_))))))) (if (let () (declare (not safe)) - (##pair? _rest257308257316_)) - (let ((_hd257313257374_ + (##pair? _rest260003260011_)) + (let ((_hd260008260069_ (let () (declare (not safe)) - (##car _rest257308257316_))) - (_tl257314257376_ + (##car _rest260003260011_))) + (_tl260009260071_ (let () (declare (not safe)) - (##cdr _rest257308257316_)))) - (let* ((_bind257379_ _hd257313257374_) - (_rest257381_ _tl257314257376_)) + (##cdr _rest260003260011_)))) + (let* ((_bind260074_ _hd260008260069_) + (_rest260076_ _tl260009260071_)) (declare (not safe)) - (_K257312257371_ _rest257381_ _bind257379_))) + (_K260007260066_ _rest260076_ _bind260074_))) (let () (declare (not safe)) - (_else257310257330_))))))) - (_bind-e__0__268631268632_ - (lambda (_bind257386_ _body257387_) - (let ((_continue257389_ _optimize-e256703_)) + (_else260005260025_))))))) + (_bind-e__0__271426271427_ + (lambda (_bind260081_ _body260082_) + (let ((_continue260084_ _optimize-e259398_)) (declare (not safe)) - (_bind-e__268629268630_ - _bind257386_ - _body257387_ - _continue257389_)))) - (_bind-e256710_ - (lambda _g272082_ - (let ((_g272081_ + (_bind-e__271424271425_ + _bind260081_ + _body260082_ + _continue260084_)))) + (_bind-e259405_ + (lambda _g274877_ + (let ((_g274876_ (let () (declare (not safe)) - (##length _g272082_)))) - (cond ((let () (declare (not safe)) (##fx= _g272081_ 2)) - (apply (lambda (_bind257386_ _body257387_) + (##length _g274877_)))) + (cond ((let () (declare (not safe)) (##fx= _g274876_ 2)) + (apply (lambda (_bind260081_ _body260082_) (let () (declare (not safe)) - (_bind-e__0__268631268632_ - _bind257386_ - _body257387_))) - _g272082_)) - ((let () (declare (not safe)) (##fx= _g272081_ 3)) - (apply (lambda (_bind257391_ - _body257392_ - _continue257393_) + (_bind-e__0__271426271427_ + _bind260081_ + _body260082_))) + _g274877_)) + ((let () (declare (not safe)) (##fx= _g274876_ 3)) + (apply (lambda (_bind260086_ + _body260087_ + _continue260088_) (let () (declare (not safe)) - (_bind-e__268629268630_ - _bind257391_ - _body257392_ - _continue257393_))) - _g272082_)) + (_bind-e__271424271425_ + _bind260086_ + _body260087_ + _continue260088_))) + _g274877_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g272082_)))))) - (_lookup-block256711_ - (lambda (_id257293_) - (let ((__tmp272083 - (lambda (_block257295_) - (let ((__tmp272084 (car _block257295_))) + _g274877_)))))) + (_lookup-block259406_ + (lambda (_id259988_) + (let ((__tmp274878 + (lambda (_block259990_) + (let ((__tmp274879 (car _block259990_))) (declare (not safe)) (gx#free-identifier=? - __tmp272084 - _id257293_))))) + __tmp274879 + _id259988_))))) (declare (not safe)) - (find __tmp272083 _blocks256453_)))) - (_inline-block256712_ - (lambda (_block257169_ _args257170_) - (let* ((_kont257172_ (caddr _block257169_)) - (_g257174257200_ - (lambda (_g257175257197_) + (find __tmp274878 _blocks259148_)))) + (_inline-block259407_ + (lambda (_block259864_ _args259865_) + (let* ((_kont259867_ (caddr _block259864_)) + (_g259869259895_ + (lambda (_g259870259892_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g257175257197_)))) - (_g257173257290_ - (lambda (_g257175257203_) + _g259870259892_)))) + (_g259868259985_ + (lambda (_g259870259898_) (if (let () (declare (not safe)) - (gx#stx-pair? _g257175257203_)) - (let ((_e257180257205_ + (gx#stx-pair? _g259870259898_)) + (let ((_e259875259900_ (let () (declare (not safe)) - (gx#stx-e _g257175257203_)))) - (let ((_hd257179257208_ + (gx#stx-e _g259870259898_)))) + (let ((_hd259874259903_ (let () (declare (not safe)) - (##car _e257180257205_))) - (_tl257178257210_ + (##car _e259875259900_))) + (_tl259873259905_ (let () (declare (not safe)) - (##cdr _e257180257205_)))) + (##cdr _e259875259900_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257179257208_)) + (gx#identifier? _hd259874259903_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd257179257208_)) + _hd259874259903_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257178257210_)) - (let ((_e257183257213_ + _tl259873259905_)) + (let ((_e259878259908_ (let () (declare (not safe)) (gx#stx-e - _tl257178257210_)))) - (let ((_hd257182257216_ + _tl259873259905_)))) + (let ((_hd259877259911_ (let () (declare (not safe)) - (##car _e257183257213_))) - (_tl257181257218_ + (##car _e259878259908_))) + (_tl259876259913_ (let () (declare (not safe)) - (##cdr _e257183257213_)))) + (##cdr _e259878259908_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd257182257216_)) - (let ((_g272085_ + _hd259877259911_)) + (let ((_g274880_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd257182257216_ '0)))) + (gx#syntax-split-splice _hd259877259911_ '0)))) (begin - (let ((_g272086_ + (let ((_g274881_ (let () (declare (not safe)) - (if (##values? _g272085_) - (##vector-length _g272085_) + (if (##values? _g274880_) + (##vector-length _g274880_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g272086_ 2))) - (error "Context expects 2 values" _g272086_))) - (let ((_target257184257221_ + (##fx= _g274881_ 2))) + (error "Context expects 2 values" _g274881_))) + (let ((_target259879259916_ (let () (declare (not safe)) - (##vector-ref _g272085_ 0))) - (_tl257186257223_ + (##vector-ref _g274880_ 0))) + (_tl259881259918_ (let () (declare (not safe)) - (##vector-ref _g272085_ 1)))) + (##vector-ref _g274880_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257186257223_)) - (letrec ((_loop257187257226_ - (lambda (_hd257185257229_ - _id257191257231_) + (gx#stx-null? _tl259881259918_)) + (letrec ((_loop259882259921_ + (lambda (_hd259880259924_ + _id259886259926_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257185257229_)) - (let ((_e257188257234_ + (gx#stx-pair? _hd259880259924_)) + (let ((_e259883259929_ (let () (declare (not safe)) (gx#stx-e - _hd257185257229_)))) - (let ((_lp-hd257189257237_ + _hd259880259924_)))) + (let ((_lp-hd259884259932_ (let () (declare (not safe)) - (##car _e257188257234_))) - (_lp-tl257190257239_ + (##car _e259883259929_))) + (_lp-tl259885259934_ (let () (declare (not safe)) - (##cdr _e257188257234_)))) - (let ((__tmp272090 + (##cdr _e259883259929_)))) + (let ((__tmp274885 (let () (declare (not safe)) - (cons _lp-hd257189257237_ - _id257191257231_)))) + (cons _lp-hd259884259932_ + _id259886259926_)))) (declare (not safe)) - (_loop257187257226_ - _lp-tl257190257239_ - __tmp272090)))) - (let ((_id257192257242_ - (reverse _id257191257231_))) + (_loop259882259921_ + _lp-tl259885259934_ + __tmp274885)))) + (let ((_id259887259937_ + (reverse _id259886259926_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257181257218_)) - (let ((_e257195257245_ + _tl259876259913_)) + (let ((_e259890259940_ (let () (declare (not safe)) (gx#stx-e - _tl257181257218_)))) - (let ((_hd257194257248_ + _tl259876259913_)))) + (let ((_hd259889259943_ (let () (declare (not safe)) - (##car _e257195257245_))) - (_tl257193257250_ + (##car _e259890259940_))) + (_tl259888259945_ (let () (declare (not safe)) - (##cdr _e257195257245_)))) + (##cdr _e259890259940_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257193257250_)) - ((lambda (_L257253_ + _tl259888259945_)) + ((lambda (_L259948_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L257254_) - (if (let ((__tmp272088 - (let ((__tmp272089 - (lambda (_g257273257276_ - _g257274257278_) + _L259949_) + (if (let ((__tmp274883 + (let ((__tmp274884 + (lambda (_g259968259971_ + _g259969259973_) (let () (declare (not safe)) - (cons _g257273257276_ - _g257274257278_))))) + (cons _g259968259971_ + _g259969259973_))))) (declare (not safe)) - (foldr1 __tmp272089 '() _L257254_)))) + (foldr1 __tmp274884 '() _L259949_)))) (declare (not safe)) - (null? __tmp272088)) - _L257253_ - (let ((_subst257288_ + (null? __tmp274883)) + _L259948_ + (let ((_subst259983_ (map cons - (let ((__tmp272087 - (lambda (_g257280257283_ - _g257281257285_) + (let ((__tmp274882 + (lambda (_g259975259978_ + _g259976259980_) (let () (declare (not safe)) - (cons _g257280257283_ - _g257281257285_))))) + (cons _g259975259978_ + _g259976259980_))))) (declare (not safe)) - (foldr1 __tmp272087 '() _L257254_)) - _args257170_))) + (foldr1 __tmp274882 '() _L259949_)) + _args259865_))) (declare (not safe)) (gxc#apply-expression-subst* - _L257253_ - _subst257288_)))) - _hd257194257248_ - _id257192257242_) + _L259948_ + _subst259983_)))) + _hd259889259943_ + _id259887259937_) (let () (declare (not safe)) - (_g257174257200_ _g257175257203_))))) + (_g259869259895_ _g259870259898_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257174257200_ - _g257175257203_)))))))) + (_g259869259895_ + _g259870259898_)))))))) (let () (declare (not safe)) - (_loop257187257226_ - _target257184257221_ + (_loop259882259921_ + _target259879259916_ '()))) (let () (declare (not safe)) - (_g257174257200_ _g257175257203_)))))) + (_g259869259895_ _g259870259898_)))))) (let () (declare (not safe)) - (_g257174257200_ _g257175257203_))))) + (_g259869259895_ _g259870259898_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257174257200_ - _g257175257203_))) + (_g259869259895_ + _g259870259898_))) (let () (declare (not safe)) - (_g257174257200_ - _g257175257203_))) + (_g259869259895_ + _g259870259898_))) (let () (declare (not safe)) - (_g257174257200_ - _g257175257203_))))) + (_g259869259895_ + _g259870259898_))))) (let () (declare (not safe)) - (_g257174257200_ _g257175257203_)))))) + (_g259869259895_ _g259870259898_)))))) (declare (not safe)) - (_g257173257290_ _kont257172_)))) - (_nonlinear-block?256713_ - (lambda (_block256718_) - (letrec ((_nonlinear-expr?256720_ - (lambda (_expr256828_) - (let* ((___stx270716270717_ _expr256828_) - (_g256834256900_ + (_g259868259985_ _kont259867_)))) + (_nonlinear-block?259408_ + (lambda (_block259413_) + (letrec ((_nonlinear-expr?259415_ + (lambda (_expr259523_) + (let* ((___stx273511273512_ _expr259523_) + (_g259529259595_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx270716270717_))))) - (let ((___kont270718270719_ (lambda () '#t)) - (___kont270720270721_ - (lambda (_L257099_) - (let* ((___stx270698270699_ - _L257099_) - (_g257117257126_ + ___stx273511273512_))))) + (let ((___kont273513273514_ (lambda () '#t)) + (___kont273515273516_ + (lambda (_L259794_) + (let* ((___stx273493273494_ + _L259794_) + (_g259812259821_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx270698270699_))))) - (let ((___kont270700270701_ + ___stx273493273494_))))) + (let ((___kont273495273496_ (lambda () '#f)) - (___kont270702270703_ + (___kont273497273498_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx270698270699_)) - (let ((_e257121257138_ + ___stx273493273494_)) + (let ((_e259816259833_ (let () (declare (not safe)) (gx#stx-e - ___stx270698270699_)))) - (let ((_tl257119257143_ + ___stx273493273494_)))) + (let ((_tl259814259838_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e257121257138_))) - (_hd257120257141_ - (let () (declare (not safe)) (##car _e257121257138_)))) + (##cdr _e259816259833_))) + (_hd259815259836_ + (let () (declare (not safe)) (##car _e259816259833_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257120257141_)) + (gx#identifier? _hd259815259836_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd257120257141_)) - (___kont270700270701_) - (___kont270702270703_)) - (___kont270702270703_)))) + (gx#stx-eq? '%#call _hd259815259836_)) + (___kont273495273496_) + (___kont273497273498_)) + (___kont273497273498_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270702270703_)))))) - (___kont270724270725_ - (lambda (_L256997_) + (___kont273497273498_)))))) + (___kont273519273520_ + (lambda (_L259692_) (let () (declare (not safe)) - (_nonlinear-expr?256720_ - _L256997_)))) - (___kont270726270727_ - (lambda (_L256944_ - _L256945_ - _L256946_) - (let ((_$e256965_ + (_nonlinear-expr?259415_ + _L259692_)))) + (___kont273521273522_ + (lambda (_L259639_ + _L259640_ + _L259641_) + (let ((_$e259660_ (let () (declare (not safe)) - (_nonlinear-expr?256720_ - _L256945_)))) - (if _$e256965_ - _$e256965_ + (_nonlinear-expr?259415_ + _L259640_)))) + (if _$e259660_ + _$e259660_ (let () (declare (not safe)) - (_nonlinear-expr?256720_ - _L256944_)))))) - (___kont270728270729_ + (_nonlinear-expr?259415_ + _L259639_)))))) + (___kont273523273524_ (lambda () '#f))) - (let* ((___match270779270780_ - (lambda (_e256874256973_ - _hd256873256976_ - _tl256872256978_ - _e256877256981_ - _hd256876256984_ - _tl256875256986_) + (let* ((___match273574273575_ + (lambda (_e259569259668_ + _hd259568259671_ + _tl259567259673_ + _e259572259676_ + _hd259571259679_ + _tl259570259681_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256875256986_)) - (let ((_e256880256989_ + _tl259570259681_)) + (let ((_e259575259684_ (let () (declare (not safe)) (gx#stx-e - _tl256875256986_)))) - (let ((_tl256878256994_ + _tl259570259681_)))) + (let ((_tl259573259689_ (let () (declare (not safe)) - (##cdr _e256880256989_))) - (_hd256879256992_ + (##cdr _e259575259684_))) + (_hd259574259687_ (let () (declare (not safe)) - (##car _e256880256989_)))) + (##car _e259575259684_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl256878256994_)) - (___kont270724270725_ - _hd256879256992_) - (___kont270728270729_)))) - (___kont270728270729_)))) - (___match270763270764_ - (lambda (_e256842257015_ - _hd256841257018_ - _tl256840257020_ - _e256845257023_ - _hd256844257026_ - _tl256843257028_ - ___splice270722270723_ - _target256846257031_ - _tl256848257033_) - (letrec ((_loop256849257036_ - (lambda (_hd256847257039_) + _tl259573259689_)) + (___kont273519273520_ + _hd259574259687_) + (___kont273523273524_)))) + (___kont273523273524_)))) + (___match273558273559_ + (lambda (_e259537259710_ + _hd259536259713_ + _tl259535259715_ + _e259540259718_ + _hd259539259721_ + _tl259538259723_ + ___splice273517273518_ + _target259541259726_ + _tl259543259728_) + (letrec ((_loop259544259731_ + (lambda (_hd259542259734_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _hd256847257039_)) - (let ((_e256850257042_ + (gx#stx-pair? _hd259542259734_)) + (let ((_e259545259737_ (let () (declare (not safe)) - (gx#stx-e _hd256847257039_)))) - (let ((_lp-tl256852257047_ + (gx#stx-e _hd259542259734_)))) + (let ((_lp-tl259547259742_ (let () (declare (not safe)) - (##cdr _e256850257042_))) - (_lp-hd256851257045_ + (##cdr _e259545259737_))) + (_lp-hd259546259740_ (let () (declare (not safe)) - (##car _e256850257042_)))) + (##car _e259545259737_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd256851257045_)) - (let ((_e256855257050_ + (gx#stx-pair? _lp-hd259546259740_)) + (let ((_e259550259745_ (let () (declare (not safe)) - (gx#stx-e _lp-hd256851257045_)))) - (let ((_tl256853257055_ + (gx#stx-e _lp-hd259546259740_)))) + (let ((_tl259548259750_ (let () (declare (not safe)) - (##cdr _e256855257050_))) - (_hd256854257053_ + (##cdr _e259550259745_))) + (_hd259549259748_ (let () (declare (not safe)) - (##car _e256855257050_)))) + (##car _e259550259745_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd256854257053_)) - (let ((_e256858257058_ + (gx#stx-pair? _hd259549259748_)) + (let ((_e259553259753_ (let () (declare (not safe)) - (gx#stx-e _hd256854257053_)))) - (let ((_tl256856257063_ + (gx#stx-e _hd259549259748_)))) + (let ((_tl259551259758_ (let () (declare (not safe)) - (##cdr _e256858257058_))) - (_hd256857257061_ + (##cdr _e259553259753_))) + (_hd259552259756_ (let () (declare (not safe)) - (##car _e256858257058_)))) + (##car _e259553259753_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl256856257063_)) + _tl259551259758_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256853257055_)) - (let ((_e256861257066_ + _tl259548259750_)) + (let ((_e259556259761_ (let () (declare (not safe)) (gx#stx-e - _tl256853257055_)))) - (let ((_tl256859257071_ + _tl259548259750_)))) + (let ((_tl259554259766_ (let () (declare (not safe)) - (##cdr _e256861257066_))) - (_hd256860257069_ + (##cdr _e259556259761_))) + (_hd259555259764_ (let () (declare (not safe)) - (##car _e256861257066_)))) + (##car _e259556259761_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd256860257069_)) - (let ((_e256864257074_ + _hd259555259764_)) + (let ((_e259559259769_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd256860257069_)))) - (let ((_tl256862257079_ + (gx#stx-e _hd259555259764_)))) + (let ((_tl259557259774_ (let () (declare (not safe)) - (##cdr _e256864257074_))) - (_hd256863257077_ + (##cdr _e259559259769_))) + (_hd259558259772_ (let () (declare (not safe)) - (##car _e256864257074_)))) + (##car _e259559259769_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd256863257077_)) + (gx#identifier? _hd259558259772_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd256863257077_)) + (gx#stx-eq? '%#ref _hd259558259772_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl256862257079_)) - (let ((_e256867257082_ + (gx#stx-pair? _tl259557259774_)) + (let ((_e259562259777_ (let () (declare (not safe)) - (gx#stx-e _tl256862257079_)))) - (let ((_tl256865257087_ + (gx#stx-e _tl259557259774_)))) + (let ((_tl259560259782_ (let () (declare (not safe)) - (##cdr _e256867257082_))) - (_hd256866257085_ + (##cdr _e259562259777_))) + (_hd259561259780_ (let () (declare (not safe)) - (##car _e256867257082_)))) + (##car _e259562259777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256865257087_)) + (gx#stx-null? _tl259560259782_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl256859257071_)) + _tl259554259766_)) (let () (declare (not safe)) - (_loop256849257036_ - _lp-tl256852257047_)) - (___match270779270780_ - _e256842257015_ - _hd256841257018_ - _tl256840257020_ - _e256845257023_ - _hd256844257026_ - _tl256843257028_)) - (___match270779270780_ - _e256842257015_ - _hd256841257018_ - _tl256840257020_ - _e256845257023_ - _hd256844257026_ - _tl256843257028_)))) - (___match270779270780_ - _e256842257015_ - _hd256841257018_ - _tl256840257020_ - _e256845257023_ - _hd256844257026_ - _tl256843257028_)) - (___match270779270780_ - _e256842257015_ - _hd256841257018_ - _tl256840257020_ - _e256845257023_ - _hd256844257026_ - _tl256843257028_)) - (___match270779270780_ - _e256842257015_ - _hd256841257018_ - _tl256840257020_ - _e256845257023_ - _hd256844257026_ - _tl256843257028_)))) - (___match270779270780_ - _e256842257015_ - _hd256841257018_ - _tl256840257020_ - _e256845257023_ - _hd256844257026_ - _tl256843257028_)))) + (_loop259544259731_ + _lp-tl259547259742_)) + (___match273574273575_ + _e259537259710_ + _hd259536259713_ + _tl259535259715_ + _e259540259718_ + _hd259539259721_ + _tl259538259723_)) + (___match273574273575_ + _e259537259710_ + _hd259536259713_ + _tl259535259715_ + _e259540259718_ + _hd259539259721_ + _tl259538259723_)))) + (___match273574273575_ + _e259537259710_ + _hd259536259713_ + _tl259535259715_ + _e259540259718_ + _hd259539259721_ + _tl259538259723_)) + (___match273574273575_ + _e259537259710_ + _hd259536259713_ + _tl259535259715_ + _e259540259718_ + _hd259539259721_ + _tl259538259723_)) + (___match273574273575_ + _e259537259710_ + _hd259536259713_ + _tl259535259715_ + _e259540259718_ + _hd259539259721_ + _tl259538259723_)))) + (___match273574273575_ + _e259537259710_ + _hd259536259713_ + _tl259535259715_ + _e259540259718_ + _hd259539259721_ + _tl259538259723_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match270779270780_ - _e256842257015_ - _hd256841257018_ - _tl256840257020_ - _e256845257023_ - _hd256844257026_ - _tl256843257028_)) - (___match270779270780_ - _e256842257015_ - _hd256841257018_ - _tl256840257020_ - _e256845257023_ - _hd256844257026_ - _tl256843257028_)))) - (___match270779270780_ - _e256842257015_ - _hd256841257018_ - _tl256840257020_ - _e256845257023_ - _hd256844257026_ - _tl256843257028_)))) - (___match270779270780_ - _e256842257015_ - _hd256841257018_ - _tl256840257020_ - _e256845257023_ - _hd256844257026_ - _tl256843257028_)))) + (___match273574273575_ + _e259537259710_ + _hd259536259713_ + _tl259535259715_ + _e259540259718_ + _hd259539259721_ + _tl259538259723_)) + (___match273574273575_ + _e259537259710_ + _hd259536259713_ + _tl259535259715_ + _e259540259718_ + _hd259539259721_ + _tl259538259723_)))) + (___match273574273575_ + _e259537259710_ + _hd259536259713_ + _tl259535259715_ + _e259540259718_ + _hd259539259721_ + _tl259538259723_)))) + (___match273574273575_ + _e259537259710_ + _hd259536259713_ + _tl259535259715_ + _e259540259718_ + _hd259539259721_ + _tl259538259723_)))) (let () (if (let () (declare (not safe)) - (gx#stx-pair? _tl256843257028_)) - (let ((_e256870257091_ + (gx#stx-pair? _tl259538259723_)) + (let ((_e259565259786_ (let () (declare (not safe)) - (gx#stx-e _tl256843257028_)))) - (let ((_tl256868257096_ + (gx#stx-e _tl259538259723_)))) + (let ((_tl259563259791_ (let () (declare (not safe)) - (##cdr _e256870257091_))) - (_hd256869257094_ + (##cdr _e259565259786_))) + (_hd259564259789_ (let () (declare (not safe)) - (##car _e256870257091_)))) + (##car _e259565259786_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256868257096_)) - (___kont270720270721_ _hd256869257094_) - (___kont270728270729_)))) - (___kont270728270729_))))))) + (gx#stx-null? _tl259563259791_)) + (___kont273515273516_ _hd259564259789_) + (___kont273523273524_)))) + (___kont273523273524_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop256849257036_ - _target256846257031_)))))) + (_loop259544259731_ + _target259541259726_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx270716270717_)) - (let ((_e256838257156_ + ___stx273511273512_)) + (let ((_e259533259851_ (let () (declare (not safe)) (gx#stx-e - ___stx270716270717_)))) - (let ((_tl256836257161_ + ___stx273511273512_)))) + (let ((_tl259531259856_ (let () (declare (not safe)) - (##cdr _e256838257156_))) - (_hd256837257159_ + (##cdr _e259533259851_))) + (_hd259532259854_ (let () (declare (not safe)) - (##car _e256838257156_)))) + (##car _e259533259851_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd256837257159_)) + _hd259532259854_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd256837257159_)) - (___kont270718270719_) + _hd259532259854_)) + (___kont273513273514_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd256837257159_)) + _hd259532259854_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl256836257161_)) - (let ((_e256845257023_ + (gx#stx-pair? _tl259531259856_)) + (let ((_e259540259718_ (let () (declare (not safe)) - (gx#stx-e _tl256836257161_)))) - (let ((_tl256843257028_ + (gx#stx-e _tl259531259856_)))) + (let ((_tl259538259723_ (let () (declare (not safe)) - (##cdr _e256845257023_))) - (_hd256844257026_ + (##cdr _e259540259718_))) + (_hd259539259721_ (let () (declare (not safe)) - (##car _e256845257023_)))) + (##car _e259540259718_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd256844257026_)) - (let ((___splice270722270723_ + (gx#stx-pair/null? _hd259539259721_)) + (let ((___splice273517273518_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd256844257026_ + _hd259539259721_ '0)))) - (let ((_tl256848257033_ + (let ((_tl259543259728_ (let () (declare (not safe)) (##vector-ref - ___splice270722270723_ + ___splice273517273518_ '1))) - (_target256846257031_ + (_target259541259726_ (let () (declare (not safe)) (##vector-ref - ___splice270722270723_ + ___splice273517273518_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256848257033_)) - (___match270763270764_ - _e256838257156_ - _hd256837257159_ - _tl256836257161_ - _e256845257023_ - _hd256844257026_ - _tl256843257028_ - ___splice270722270723_ - _target256846257031_ - _tl256848257033_) + (gx#stx-null? _tl259543259728_)) + (___match273558273559_ + _e259533259851_ + _hd259532259854_ + _tl259531259856_ + _e259540259718_ + _hd259539259721_ + _tl259538259723_ + ___splice273517273518_ + _target259541259726_ + _tl259543259728_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl256843257028_)) - (let ((_e256880256989_ + (gx#stx-pair? _tl259538259723_)) + (let ((_e259575259684_ (let () (declare (not safe)) (gx#stx-e - _tl256843257028_)))) - (let ((_tl256878256994_ + _tl259538259723_)))) + (let ((_tl259573259689_ (let () (declare (not safe)) - (##cdr _e256880256989_))) - (_hd256879256992_ + (##cdr _e259575259684_))) + (_hd259574259687_ (let () (declare (not safe)) - (##car _e256880256989_)))) + (##car _e259575259684_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl256878256994_)) - (___kont270724270725_ - _hd256879256992_) - (___kont270728270729_)))) - (___kont270728270729_))))) + _tl259573259689_)) + (___kont273519273520_ + _hd259574259687_) + (___kont273523273524_)))) + (___kont273523273524_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl256843257028_)) - (let ((_e256880256989_ + (gx#stx-pair? _tl259538259723_)) + (let ((_e259575259684_ (let () (declare (not safe)) - (gx#stx-e _tl256843257028_)))) - (let ((_tl256878256994_ + (gx#stx-e _tl259538259723_)))) + (let ((_tl259573259689_ (let () (declare (not safe)) - (##cdr _e256880256989_))) - (_hd256879256992_ + (##cdr _e259575259684_))) + (_hd259574259687_ (let () (declare (not safe)) - (##car _e256880256989_)))) + (##car _e259575259684_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256878256994_)) - (___kont270724270725_ - _hd256879256992_) - (___kont270728270729_)))) - (___kont270728270729_))))) - (___kont270728270729_)) + (gx#stx-null? _tl259573259689_)) + (___kont273519273520_ + _hd259574259687_) + (___kont273523273524_)))) + (___kont273523273524_))))) + (___kont273523273524_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd256837257159_)) + (gx#stx-eq? '%#if _hd259532259854_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl256836257161_)) - (let ((_e256889256920_ + (gx#stx-pair? _tl259531259856_)) + (let ((_e259584259615_ (let () (declare (not safe)) - (gx#stx-e _tl256836257161_)))) - (let ((_tl256887256925_ + (gx#stx-e _tl259531259856_)))) + (let ((_tl259582259620_ (let () (declare (not safe)) - (##cdr _e256889256920_))) - (_hd256888256923_ + (##cdr _e259584259615_))) + (_hd259583259618_ (let () (declare (not safe)) - (##car _e256889256920_)))) + (##car _e259584259615_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl256887256925_)) - (let ((_e256892256928_ + (gx#stx-pair? _tl259582259620_)) + (let ((_e259587259623_ (let () (declare (not safe)) - (gx#stx-e _tl256887256925_)))) - (let ((_tl256890256933_ + (gx#stx-e _tl259582259620_)))) + (let ((_tl259585259628_ (let () (declare (not safe)) - (##cdr _e256892256928_))) - (_hd256891256931_ + (##cdr _e259587259623_))) + (_hd259586259626_ (let () (declare (not safe)) - (##car _e256892256928_)))) + (##car _e259587259623_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl256890256933_)) - (let ((_e256895256936_ + (gx#stx-pair? _tl259585259628_)) + (let ((_e259590259631_ (let () (declare (not safe)) (gx#stx-e - _tl256890256933_)))) - (let ((_tl256893256941_ + _tl259585259628_)))) + (let ((_tl259588259636_ (let () (declare (not safe)) - (##cdr _e256895256936_))) - (_hd256894256939_ + (##cdr _e259590259631_))) + (_hd259589259634_ (let () (declare (not safe)) - (##car _e256895256936_)))) + (##car _e259590259631_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl256893256941_)) - (___kont270726270727_ - _hd256894256939_ - _hd256891256931_ - _hd256888256923_) - (___kont270728270729_)))) - (___kont270728270729_)))) - (___kont270728270729_)))) - (___kont270728270729_)) - (___kont270728270729_)))) + _tl259588259636_)) + (___kont273521273522_ + _hd259589259634_ + _hd259586259626_ + _hd259583259618_) + (___kont273523273524_)))) + (___kont273523273524_)))) + (___kont273523273524_)))) + (___kont273523273524_)) + (___kont273523273524_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270728270729_)))) - (___kont270728270729_)))))))) - (let* ((_kont256722_ (caddr _block256718_)) - (_g256724256750_ - (lambda (_g256725256747_) + (___kont273523273524_)))) + (___kont273523273524_)))))))) + (let* ((_kont259417_ (caddr _block259413_)) + (_g259419259445_ + (lambda (_g259420259442_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g256725256747_)))) - (_g256723256825_ - (lambda (_g256725256753_) + _g259420259442_)))) + (_g259418259520_ + (lambda (_g259420259448_) (if (let () (declare (not safe)) - (gx#stx-pair? _g256725256753_)) - (let ((_e256730256755_ + (gx#stx-pair? _g259420259448_)) + (let ((_e259425259450_ (let () (declare (not safe)) - (gx#stx-e _g256725256753_)))) - (let ((_hd256729256758_ + (gx#stx-e _g259420259448_)))) + (let ((_hd259424259453_ (let () (declare (not safe)) - (##car _e256730256755_))) - (_tl256728256760_ + (##car _e259425259450_))) + (_tl259423259455_ (let () (declare (not safe)) - (##cdr _e256730256755_)))) + (##cdr _e259425259450_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd256729256758_)) + _hd259424259453_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd256729256758_)) + _hd259424259453_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256728256760_)) - (let ((_e256733256763_ + _tl259423259455_)) + (let ((_e259428259458_ (let () (declare (not safe)) (gx#stx-e - _tl256728256760_)))) - (let ((_hd256732256766_ + _tl259423259455_)))) + (let ((_hd259427259461_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e256733256763_))) - (_tl256731256768_ - (let () (declare (not safe)) (##cdr _e256733256763_)))) + (##car _e259428259458_))) + (_tl259426259463_ + (let () (declare (not safe)) (##cdr _e259428259458_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd256732256766_)) - (let ((_g272091_ + (gx#stx-pair/null? _hd259427259461_)) + (let ((_g274886_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd256732256766_ '0)))) + (gx#syntax-split-splice _hd259427259461_ '0)))) (begin - (let ((_g272092_ + (let ((_g274887_ (let () (declare (not safe)) - (if (##values? _g272091_) - (##vector-length _g272091_) + (if (##values? _g274886_) + (##vector-length _g274886_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g272092_ 2))) - (error "Context expects 2 values" _g272092_))) - (let ((_target256734256771_ + (##fx= _g274887_ 2))) + (error "Context expects 2 values" _g274887_))) + (let ((_target259429259466_ (let () (declare (not safe)) - (##vector-ref _g272091_ 0))) - (_tl256736256773_ + (##vector-ref _g274886_ 0))) + (_tl259431259468_ (let () (declare (not safe)) - (##vector-ref _g272091_ 1)))) + (##vector-ref _g274886_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256736256773_)) - (letrec ((_loop256737256776_ - (lambda (_hd256735256779_ - _id256741256781_) + (gx#stx-null? _tl259431259468_)) + (letrec ((_loop259432259471_ + (lambda (_hd259430259474_ + _id259436259476_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd256735256779_)) - (let ((_e256738256784_ + _hd259430259474_)) + (let ((_e259433259479_ (let () (declare (not safe)) (gx#stx-e - _hd256735256779_)))) - (let ((_lp-hd256739256787_ + _hd259430259474_)))) + (let ((_lp-hd259434259482_ (let () (declare (not safe)) - (##car _e256738256784_))) - (_lp-tl256740256789_ + (##car _e259433259479_))) + (_lp-tl259435259484_ (let () (declare (not safe)) - (##cdr _e256738256784_)))) - (let ((__tmp272093 + (##cdr _e259433259479_)))) + (let ((__tmp274888 (let () (declare (not safe)) - (cons _lp-hd256739256787_ + (cons _lp-hd259434259482_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id256741256781_)))) + _id259436259476_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop256737256776_ - _lp-tl256740256789_ - __tmp272093)))) - (let ((_id256742256792_ - (reverse _id256741256781_))) + (_loop259432259471_ + _lp-tl259435259484_ + __tmp274888)))) + (let ((_id259437259487_ + (reverse _id259436259476_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256731256768_)) - (let ((_e256745256795_ + _tl259426259463_)) + (let ((_e259440259490_ (let () (declare (not safe)) (gx#stx-e - _tl256731256768_)))) - (let ((_hd256744256798_ + _tl259426259463_)))) + (let ((_hd259439259493_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e256745256795_))) - (_tl256743256800_ - (let () (declare (not safe)) (##cdr _e256745256795_)))) + (##car _e259440259490_))) + (_tl259438259495_ + (let () (declare (not safe)) (##cdr _e259440259490_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256743256800_)) - ((lambda (_L256803_ _L256804_) + (gx#stx-null? _tl259438259495_)) + ((lambda (_L259498_ _L259499_) (let () (declare (not safe)) - (_nonlinear-expr?256720_ _L256803_))) - _hd256744256798_ - _id256742256792_) + (_nonlinear-expr?259415_ _L259498_))) + _hd259439259493_ + _id259437259487_) (let () (declare (not safe)) - (_g256724256750_ _g256725256753_))))) + (_g259419259445_ _g259420259448_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g256724256750_ - _g256725256753_)))))))) + (_g259419259445_ + _g259420259448_)))))))) (let () (declare (not safe)) - (_loop256737256776_ - _target256734256771_ + (_loop259432259471_ + _target259429259466_ '()))) (let () (declare (not safe)) - (_g256724256750_ _g256725256753_)))))) + (_g259419259445_ _g259420259448_)))))) (let () (declare (not safe)) - (_g256724256750_ _g256725256753_))))) + (_g259419259445_ _g259420259448_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g256724256750_ - _g256725256753_))) + (_g259419259445_ + _g259420259448_))) (let () (declare (not safe)) - (_g256724256750_ - _g256725256753_))) + (_g259419259445_ + _g259420259448_))) (let () (declare (not safe)) - (_g256724256750_ - _g256725256753_))))) + (_g259419259445_ + _g259420259448_))))) (let () (declare (not safe)) - (_g256724256750_ _g256725256753_)))))) + (_g259419259445_ _g259420259448_)))))) (declare (not safe)) - (_g256723256825_ _kont256722_)))))) - (let ((__tmp272094 + (_g259418259520_ _kont259417_)))))) + (let ((__tmp274889 (lambda () - (let ((__tmp272095 + (let ((__tmp274890 (lambda () (if (memq '@match:prefix (gxc#current-annotation-optimizer)) - (let ((__tmp272096 + (let ((__tmp274891 (lambda () (let () (declare (not safe)) - (_optimize-e256703_ - _body256450_))))) + (_optimize-e259398_ + _body259145_))))) (declare (not safe)) - (_do-splice!256702_ __tmp272096)) + (_do-splice!259397_ __tmp274891)) (let () (declare (not safe)) - (_optimize-e256703_ _body256450_)))))) + (_optimize-e259398_ _body259145_)))))) (declare (not safe)) - (_do-bind256699_ _bind256452_ __tmp272095))))) + (_do-bind259394_ _bind259147_ __tmp274890))))) (declare (not safe)) - (_do-assert256692_ _assert256451_ __tmp272094))))) + (_do-assert259387_ _assert259146_ __tmp274889))))) (define gxc#optimize-match-prune-blocks - (lambda (_blocks256362_ _konts256363_) - (letrec* ((_rtab256365_ + (lambda (_blocks259057_ _konts259058_) + (letrec* ((_rtab259060_ (let () (declare (not safe)) (make-table 'test: eq?)))) (for-each - (lambda (_block256367_) - (let ((__tmp272097 (caddr _block256367_))) + (lambda (_block259062_) + (let ((__tmp274892 (caddr _block259062_))) (declare (not safe)) - (gxc#apply-collect-runtime-refs __tmp272097 _rtab256365_))) - _konts256363_) - (let _lp256369_ ((_rest256371_ _blocks256362_) (_r256372_ '())) - (let* ((_rest256373256381_ _rest256371_) - (_else256375256389_ (lambda () (reverse _r256372_))) - (_K256377256438_ - (lambda (_rest256392_ _block256393_) - (let* ((_block256394256405_ _block256393_) - (_E256396256409_ + (gxc#apply-collect-runtime-refs __tmp274892 _rtab259060_))) + _konts259058_) + (let _lp259064_ ((_rest259066_ _blocks259057_) (_r259067_ '())) + (let* ((_rest259068259076_ _rest259066_) + (_else259070259084_ (lambda () (reverse _r259067_))) + (_K259072259133_ + (lambda (_rest259087_ _block259088_) + (let* ((_block259089259100_ _block259088_) + (_E259091259104_ (lambda () (error '"No clause matching" - _block256394256405_))) - (_K256397256416_ - (lambda (_kont256412_ _type256413_ _name256414_) - (if (let ((__tmp272099 + _block259089259100_))) + (_K259092259111_ + (lambda (_kont259107_ _type259108_ _name259109_) + (if (let ((__tmp274894 (let () (declare (not safe)) (gxc#identifier-symbol - _name256414_)))) + _name259109_)))) (declare (not safe)) - (table-ref _rtab256365_ __tmp272099 '#f)) + (table-ref _rtab259060_ __tmp274894 '#f)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs - _kont256412_ - _rtab256365_)) - (let ((__tmp272098 + _kont259107_ + _rtab259060_)) + (let ((__tmp274893 (let () (declare (not safe)) - (cons _block256393_ - _r256372_)))) + (cons _block259088_ + _r259067_)))) (declare (not safe)) - (_lp256369_ _rest256392_ __tmp272098))) + (_lp259064_ _rest259087_ __tmp274893))) (let () (declare (not safe)) - (_lp256369_ _rest256392_ _r256372_)))))) + (_lp259064_ _rest259087_ _r259067_)))))) (if (let () (declare (not safe)) - (##pair? _block256394256405_)) - (let ((_hd256398256419_ + (##pair? _block259089259100_)) + (let ((_hd259093259114_ (let () (declare (not safe)) - (##car _block256394256405_))) - (_tl256399256421_ + (##car _block259089259100_))) + (_tl259094259116_ (let () (declare (not safe)) - (##cdr _block256394256405_)))) - (let ((_name256424_ _hd256398256419_)) + (##cdr _block259089259100_)))) + (let ((_name259119_ _hd259093259114_)) (if (let () (declare (not safe)) - (##pair? _tl256399256421_)) - (let ((_hd256400256426_ + (##pair? _tl259094259116_)) + (let ((_hd259095259121_ (let () (declare (not safe)) - (##car _tl256399256421_))) - (_tl256401256428_ + (##car _tl259094259116_))) + (_tl259096259123_ (let () (declare (not safe)) - (##cdr _tl256399256421_)))) - (let ((_type256431_ _hd256400256426_)) + (##cdr _tl259094259116_)))) + (let ((_type259126_ _hd259095259121_)) (if (let () (declare (not safe)) - (##pair? _tl256401256428_)) - (let* ((_hd256402256433_ + (##pair? _tl259096259123_)) + (let* ((_hd259097259128_ (let () (declare (not safe)) - (##car _tl256401256428_))) - (_kont256436_ - _hd256402256433_)) + (##car _tl259096259123_))) + (_kont259131_ + _hd259097259128_)) (declare (not safe)) - (_K256397256416_ - _kont256436_ - _type256431_ - _name256424_)) + (_K259092259111_ + _kont259131_ + _type259126_ + _name259119_)) (let () (declare (not safe)) - (_E256396256409_))))) + (_E259091259104_))))) (let () (declare (not safe)) - (_E256396256409_))))) + (_E259091259104_))))) (let () (declare (not safe)) - (_E256396256409_))))))) - (if (let () (declare (not safe)) (##pair? _rest256373256381_)) - (let ((_hd256378256441_ + (_E259091259104_))))))) + (if (let () (declare (not safe)) (##pair? _rest259068259076_)) + (let ((_hd259073259136_ (let () (declare (not safe)) - (##car _rest256373256381_))) - (_tl256379256443_ + (##car _rest259068259076_))) + (_tl259074259138_ (let () (declare (not safe)) - (##cdr _rest256373256381_)))) - (let* ((_block256446_ _hd256378256441_) - (_rest256448_ _tl256379256443_)) + (##cdr _rest259068259076_)))) + (let* ((_block259141_ _hd259073259136_) + (_rest259143_ _tl259074259138_)) (declare (not safe)) - (_K256377256438_ _rest256448_ _block256446_))) - (let () (declare (not safe)) (_else256375256389_)))))))) + (_K259072259133_ _rest259143_ _block259141_))) + (let () (declare (not safe)) (_else259070259084_)))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_blocks256286_ _konts256287_) - (let* ((_blocks256288256304_ _blocks256286_) - (_else256290256312_ (lambda () _blocks256286_)) - (_K256292256330_ - (lambda (_rest256315_ _kont256316_ _name256317_) - (letrec* ((_rtab256319_ + (lambda (_blocks258981_ _konts258982_) + (let* ((_blocks258983258999_ _blocks258981_) + (_else258985259007_ (lambda () _blocks258981_)) + (_K258987259025_ + (lambda (_rest259010_ _kont259011_ _name259012_) + (letrec* ((_rtab259014_ (let () (declare (not safe)) (make-table 'test: eq?)))) (for-each - (lambda (_block256321_) - (let ((__tmp272100 (caddr _block256321_))) + (lambda (_block259016_) + (let ((__tmp274895 (caddr _block259016_))) (declare (not safe)) (gxc#apply-collect-runtime-refs - __tmp272100 - _rtab256319_))) - _konts256287_) - (if (fx= (let ((__tmp272108 + __tmp274895 + _rtab259014_))) + _konts258982_) + (if (fx= (let ((__tmp274903 (let () (declare (not safe)) - (gxc#identifier-symbol _name256317_)))) + (gxc#identifier-symbol _name259012_)))) (declare (not safe)) - (table-ref _rtab256319_ __tmp272108)) + (table-ref _rtab259014_ __tmp274903)) '1) - (let* ((_rblock256325_ - (let ((__tmp272101 - (lambda (_block256323_) - (let ((__tmp272103 - (caddr _block256323_)) - (__tmp272102 + (let* ((_rblock259020_ + (let ((__tmp274896 + (lambda (_block259018_) + (let ((__tmp274898 + (caddr _block259018_)) + (__tmp274897 (let () (declare (not safe)) - (cons _name256317_ '())))) + (cons _name259012_ '())))) (declare (not safe)) (gxc#apply-find-var-refs - __tmp272103 - __tmp272102))))) + __tmp274898 + __tmp274897))))) (declare (not safe)) - (find __tmp272101 _konts256287_))) - (_assert256327_ + (find __tmp274896 _konts258982_))) + (_assert259022_ (let () (declare (not safe)) (gxc#optimize-match-assert-restart - _rblock256325_ - _name256317_)))) - (let ((__tmp272104 - (let ((__tmp272105 - (let ((__tmp272106 - (let ((__tmp272107 + _rblock259020_ + _name259012_)))) + (let ((__tmp274899 + (let ((__tmp274900 + (let ((__tmp274901 + (let ((__tmp274902 (let () (declare (not safe)) - (cons _assert256327_ + (cons _assert259022_ '())))) (declare (not safe)) - (cons _kont256316_ - __tmp272107)))) + (cons _kont259011_ + __tmp274902)))) (declare (not safe)) - (cons 'restart: __tmp272106)))) + (cons 'restart: __tmp274901)))) (declare (not safe)) - (cons _name256317_ __tmp272105)))) + (cons _name259012_ __tmp274900)))) (declare (not safe)) - (cons __tmp272104 _rest256315_))) - _blocks256286_))))) - (if (let () (declare (not safe)) (##pair? _blocks256288256304_)) - (let ((_hd256293256333_ + (cons __tmp274899 _rest259010_))) + _blocks258981_))))) + (if (let () (declare (not safe)) (##pair? _blocks258983258999_)) + (let ((_hd258988259028_ (let () (declare (not safe)) - (##car _blocks256288256304_))) - (_tl256294256335_ + (##car _blocks258983258999_))) + (_tl258989259030_ (let () (declare (not safe)) - (##cdr _blocks256288256304_)))) - (if (let () (declare (not safe)) (##pair? _hd256293256333_)) - (let ((_hd256295256338_ + (##cdr _blocks258983258999_)))) + (if (let () (declare (not safe)) (##pair? _hd258988259028_)) + (let ((_hd258990259033_ (let () (declare (not safe)) - (##car _hd256293256333_))) - (_tl256296256340_ + (##car _hd258988259028_))) + (_tl258991259035_ (let () (declare (not safe)) - (##cdr _hd256293256333_)))) - (let ((_name256343_ _hd256295256338_)) + (##cdr _hd258988259028_)))) + (let ((_name259038_ _hd258990259033_)) (if (let () (declare (not safe)) - (##pair? _tl256296256340_)) - (let ((_hd256297256345_ + (##pair? _tl258991259035_)) + (let ((_hd258992259040_ (let () (declare (not safe)) - (##car _tl256296256340_))) - (_tl256298256347_ + (##car _tl258991259035_))) + (_tl258993259042_ (let () (declare (not safe)) - (##cdr _tl256296256340_)))) + (##cdr _tl258991259035_)))) (if (let () (declare (not safe)) - (##eq? _hd256297256345_ 'restart:)) + (##eq? _hd258992259040_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl256298256347_)) - (let ((_hd256299256350_ + (##pair? _tl258993259042_)) + (let ((_hd258994259045_ (let () (declare (not safe)) - (##car _tl256298256347_))) - (_tl256300256352_ + (##car _tl258993259042_))) + (_tl258995259047_ (let () (declare (not safe)) - (##cdr _tl256298256347_)))) - (let ((_kont256355_ _hd256299256350_)) + (##cdr _tl258993259042_)))) + (let ((_kont259050_ _hd258994259045_)) (if (let () (declare (not safe)) - (##pair? _tl256300256352_)) - (let ((_tl256302256357_ + (##pair? _tl258995259047_)) + (let ((_tl258997259052_ (let () (declare (not safe)) - (##cdr _tl256300256352_)))) + (##cdr _tl258995259047_)))) (if (let () (declare (not safe)) - (##null? _tl256302256357_)) - (let ((_rest256360_ - _tl256294256335_)) + (##null? _tl258997259052_)) + (let ((_rest259055_ + _tl258989259030_)) (declare (not safe)) - (_K256292256330_ - _rest256360_ - _kont256355_ - _name256343_)) + (_K258987259025_ + _rest259055_ + _kont259050_ + _name259038_)) (let () (declare (not safe)) - (_else256290256312_)))) + (_else258985259007_)))) (let () (declare (not safe)) - (_else256290256312_))))) + (_else258985259007_))))) (let () (declare (not safe)) - (_else256290256312_))) + (_else258985259007_))) (let () (declare (not safe)) - (_else256290256312_)))) + (_else258985259007_)))) (let () (declare (not safe)) - (_else256290256312_))))) - (let () (declare (not safe)) (_else256290256312_)))) - (let () (declare (not safe)) (_else256290256312_)))))) + (_else258985259007_))))) + (let () (declare (not safe)) (_else258985259007_)))) + (let () (declare (not safe)) (_else258985259007_)))))) (define gxc#optimize-match-assert-restart - (lambda (_block255682_ _name255683_) - (letrec ((_assert-restart255685_ - (lambda (_expr255841_ _assert255842_) - (let* ((___stx270820270821_ _expr255841_) - (_g255848255945_ + (lambda (_block258377_ _name258378_) + (letrec ((_assert-restart258380_ + (lambda (_expr258536_ _assert258537_) + (let* ((___stx273615273616_ _expr258536_) + (_g258543258640_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx270820270821_))))) - (let ((___kont270822270823_ - (lambda (_L256261_ _L256262_ _L256263_) - (let ((_$e256280_ - (let ((__tmp272109 - (let ((__tmp272110 + ___stx273615273616_))))) + (let ((___kont273617273618_ + (lambda (_L258956_ _L258957_ _L258958_) + (let ((_$e258975_ + (let ((__tmp274904 + (let ((__tmp274905 (let () (declare (not safe)) - (cons _L256263_ '#t)))) + (cons _L258958_ '#t)))) (declare (not safe)) - (cons __tmp272110 - _assert255842_)))) + (cons __tmp274905 + _assert258537_)))) (declare (not safe)) - (_assert-restart255685_ - _L256262_ - __tmp272109)))) - (if _$e256280_ - _$e256280_ - (let ((__tmp272111 - (let ((__tmp272112 + (_assert-restart258380_ + _L258957_ + __tmp274904)))) + (if _$e258975_ + _$e258975_ + (let ((__tmp274906 + (let ((__tmp274907 (let () (declare (not safe)) - (cons _L256263_ '#f)))) + (cons _L258958_ '#f)))) (declare (not safe)) - (cons __tmp272112 - _assert255842_)))) + (cons __tmp274907 + _assert258537_)))) (declare (not safe)) - (_assert-restart255685_ - _L256261_ - __tmp272111)))))) - (___kont270824270825_ - (lambda (_L256209_) + (_assert-restart258380_ + _L258956_ + __tmp274906)))))) + (___kont273619273620_ + (lambda (_L258904_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L256209_ - _name255683_)) - _assert255842_ + _L258904_ + _name258378_)) + _assert258537_ '#f))) - (___kont270826270827_ - (lambda (_L256159_) + (___kont273621273622_ + (lambda (_L258854_) (let () (declare (not safe)) - (_assert-restart255685_ - _L256159_ - _assert255842_)))) - (___kont270828270829_ - (lambda (_L256085_ - _L256086_ - _L256087_ - _L256088_ - _L256089_) + (_assert-restart258380_ + _L258854_ + _assert258537_)))) + (___kont273623273624_ + (lambda (_L258780_ + _L258781_ + _L258782_ + _L258783_ + _L258784_) (let () (declare (not safe)) - (_assert-restart255685_ - _L256087_ - _assert255842_)))) - (___kont270834270835_ (lambda () '#f))) - (let ((___match270989270990_ - (lambda (_e255895255957_ - _hd255894255960_ - _tl255893255962_ - _e255898255965_ - _hd255897255968_ - _tl255896255970_ - _e255901255973_ - _hd255900255976_ - _tl255899255978_ - _e255904255981_ - _hd255903255984_ - _tl255902255986_ - _e255907255989_ - _hd255906255992_ - _tl255905255994_ - _e255910255997_ - _hd255909256000_ - _tl255908256002_ - _e255913256005_ - _hd255912256008_ - _tl255911256010_ - _e255916256013_ - _hd255915256016_ - _tl255914256018_ - ___splice270830270831_ - _target255917256021_ - _tl255919256023_) - (letrec ((_loop255920256026_ - (lambda (_hd255918256029_ - _id255924256031_) + (_assert-restart258380_ + _L258782_ + _assert258537_)))) + (___kont273629273630_ (lambda () '#f))) + (let ((___match273784273785_ + (lambda (_e258590258652_ + _hd258589258655_ + _tl258588258657_ + _e258593258660_ + _hd258592258663_ + _tl258591258665_ + _e258596258668_ + _hd258595258671_ + _tl258594258673_ + _e258599258676_ + _hd258598258679_ + _tl258597258681_ + _e258602258684_ + _hd258601258687_ + _tl258600258689_ + _e258605258692_ + _hd258604258695_ + _tl258603258697_ + _e258608258700_ + _hd258607258703_ + _tl258606258705_ + _e258611258708_ + _hd258610258711_ + _tl258609258713_ + ___splice273625273626_ + _target258612258716_ + _tl258614258718_) + (letrec ((_loop258615258721_ + (lambda (_hd258613258724_ + _id258619258726_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd255918256029_)) - (let ((_e255921256034_ + _hd258613258724_)) + (let ((_e258616258729_ (let () (declare (not safe)) (gx#stx-e - _hd255918256029_)))) - (let ((_lp-tl255923256039_ + _hd258613258724_)))) + (let ((_lp-tl258618258734_ (let () (declare (not safe)) - (##cdr _e255921256034_))) - (_lp-hd255922256037_ + (##cdr _e258616258729_))) + (_lp-hd258617258732_ (let () (declare (not safe)) - (##car _e255921256034_)))) - (let ((__tmp272114 + (##car _e258616258729_)))) + (let ((__tmp274909 (let () (declare (not safe)) - (cons _lp-hd255922256037_ + (cons _lp-hd258617258732_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id255924256031_)))) + _id258619258726_)))) (declare (not safe)) - (_loop255920256026_ _lp-tl255923256039_ __tmp272114)))) + (_loop258615258721_ _lp-tl258618258734_ __tmp274909)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id255925256042_ - (reverse _id255924256031_))) + (let ((_id258620258737_ + (reverse _id258619258726_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255914256018_)) - (let ((_e255928256045_ + _tl258609258713_)) + (let ((_e258623258740_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl255914256018_)))) - (let ((_tl255926256050_ - (let () (declare (not safe)) (##cdr _e255928256045_))) - (_hd255927256048_ - (let () (declare (not safe)) (##car _e255928256045_)))) + (gx#stx-e _tl258609258713_)))) + (let ((_tl258621258745_ + (let () (declare (not safe)) (##cdr _e258623258740_))) + (_hd258622258743_ + (let () (declare (not safe)) (##car _e258623258740_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255926256050_)) + (gx#stx-null? _tl258621258745_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl255908256002_)) + (gx#stx-null? _tl258603258697_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl255899255978_)) - (let ((___splice270832270833_ + (gx#stx-pair/null? _tl258594258673_)) + (let ((___splice273627273628_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl255899255978_ + _tl258594258673_ '0)))) - (let ((_tl255931256055_ + (let ((_tl258626258750_ (let () (declare (not safe)) (##vector-ref - ___splice270832270833_ + ___splice273627273628_ '1))) - (_target255929256053_ + (_target258624258748_ (let () (declare (not safe)) (##vector-ref - ___splice270832270833_ + ___splice273627273628_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255931256055_)) - (letrec ((_loop255932256058_ - (lambda (_hd255930256061_ - _bind255936256063_) + (gx#stx-null? _tl258626258750_)) + (letrec ((_loop258627258753_ + (lambda (_hd258625258756_ + _bind258631258758_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd255930256061_)) - (let ((_e255933256066_ + _hd258625258756_)) + (let ((_e258628258761_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd255930256061_)))) - (let ((_lp-tl255935256071_ - (let () (declare (not safe)) (##cdr _e255933256066_))) - (_lp-hd255934256069_ - (let () (declare (not safe)) (##car _e255933256066_)))) - (let ((__tmp272113 + (gx#stx-e _hd258625258756_)))) + (let ((_lp-tl258630258766_ + (let () (declare (not safe)) (##cdr _e258628258761_))) + (_lp-hd258629258764_ + (let () (declare (not safe)) (##car _e258628258761_)))) + (let ((__tmp274908 (let () (declare (not safe)) - (cons _lp-hd255934256069_ _bind255936256063_)))) + (cons _lp-hd258629258764_ _bind258631258758_)))) (declare (not safe)) - (_loop255932256058_ _lp-tl255935256071_ __tmp272113)))) - (let ((_bind255937256074_ (reverse _bind255936256063_))) + (_loop258627258753_ _lp-tl258630258766_ __tmp274908)))) + (let ((_bind258632258769_ (reverse _bind258631258758_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255896255970_)) - (let ((_e255940256077_ + (gx#stx-pair? _tl258591258665_)) + (let ((_e258635258772_ (let () (declare (not safe)) - (gx#stx-e _tl255896255970_)))) - (let ((_tl255938256082_ + (gx#stx-e _tl258591258665_)))) + (let ((_tl258633258777_ (let () (declare (not safe)) - (##cdr _e255940256077_))) - (_hd255939256080_ + (##cdr _e258635258772_))) + (_hd258634258775_ (let () (declare (not safe)) - (##car _e255940256077_)))) + (##car _e258635258772_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255938256082_)) - (___kont270828270829_ - _hd255939256080_ - _bind255937256074_ - _hd255927256048_ - _id255925256042_ - _hd255906255992_) - (___kont270834270835_)))) - (___kont270834270835_))))))) + (gx#stx-null? _tl258633258777_)) + (___kont273623273624_ + _hd258634258775_ + _bind258632258769_ + _hd258622258743_ + _id258620258737_ + _hd258601258687_) + (___kont273629273630_)))) + (___kont273629273630_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop255932256058_ - _target255929256053_ + (_loop258627258753_ + _target258624258748_ '()))) - (___kont270834270835_)))) - (___kont270834270835_)) - (___kont270834270835_)) - (___kont270834270835_)))) - (___kont270834270835_))))))) + (___kont273629273630_)))) + (___kont273629273630_)) + (___kont273629273630_)) + (___kont273629273630_)))) + (___kont273629273630_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop255920256026_ - _target255917256021_ + (_loop258615258721_ + _target258612258716_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx270820270821_)) - (let ((_e255855256229_ + (gx#stx-pair? ___stx273615273616_)) + (let ((_e258550258924_ (let () (declare (not safe)) - (gx#stx-e ___stx270820270821_)))) - (let ((_tl255853256234_ + (gx#stx-e ___stx273615273616_)))) + (let ((_tl258548258929_ (let () (declare (not safe)) - (##cdr _e255855256229_))) - (_hd255854256232_ + (##cdr _e258550258924_))) + (_hd258549258927_ (let () (declare (not safe)) - (##car _e255855256229_)))) + (##car _e258550258924_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd255854256232_)) + (gx#identifier? _hd258549258927_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd255854256232_)) + _hd258549258927_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255853256234_)) - (let ((_e255858256237_ + _tl258548258929_)) + (let ((_e258553258932_ (let () (declare (not safe)) (gx#stx-e - _tl255853256234_)))) - (let ((_tl255856256242_ + _tl258548258929_)))) + (let ((_tl258551258937_ (let () (declare (not safe)) - (##cdr _e255858256237_))) - (_hd255857256240_ + (##cdr _e258553258932_))) + (_hd258552258935_ (let () (declare (not safe)) - (##car _e255858256237_)))) + (##car _e258553258932_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255856256242_)) - (let ((_e255861256245_ + _tl258551258937_)) + (let ((_e258556258940_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl255856256242_)))) - (let ((_tl255859256250_ - (let () (declare (not safe)) (##cdr _e255861256245_))) - (_hd255860256248_ - (let () (declare (not safe)) (##car _e255861256245_)))) + (gx#stx-e _tl258551258937_)))) + (let ((_tl258554258945_ + (let () (declare (not safe)) (##cdr _e258556258940_))) + (_hd258555258943_ + (let () (declare (not safe)) (##car _e258556258940_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255859256250_)) - (let ((_e255864256253_ + (gx#stx-pair? _tl258554258945_)) + (let ((_e258559258948_ (let () (declare (not safe)) - (gx#stx-e _tl255859256250_)))) - (let ((_tl255862256258_ + (gx#stx-e _tl258554258945_)))) + (let ((_tl258557258953_ (let () (declare (not safe)) - (##cdr _e255864256253_))) - (_hd255863256256_ + (##cdr _e258559258948_))) + (_hd258558258951_ (let () (declare (not safe)) - (##car _e255864256253_)))) + (##car _e258559258948_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255862256258_)) - (___kont270822270823_ - _hd255863256256_ - _hd255860256248_ - _hd255857256240_) - (___kont270834270835_)))) - (___kont270834270835_)))) - (___kont270834270835_)))) + (gx#stx-null? _tl258557258953_)) + (___kont273617273618_ + _hd258558258951_ + _hd258555258943_ + _hd258552258935_) + (___kont273629273630_)))) + (___kont273629273630_)))) + (___kont273629273630_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270834270835_)) + (___kont273629273630_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd255854256232_)) + _hd258549258927_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255853256234_)) - (let ((_e255871256185_ + _tl258548258929_)) + (let ((_e258566258880_ (let () (declare (not safe)) (gx#stx-e - _tl255853256234_)))) - (let ((_tl255869256190_ + _tl258548258929_)))) + (let ((_tl258564258885_ (let () (declare (not safe)) - (##cdr _e255871256185_))) - (_hd255870256188_ + (##cdr _e258566258880_))) + (_hd258565258883_ (let () (declare (not safe)) - (##car _e255871256185_)))) + (##car _e258566258880_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd255870256188_)) - (let ((_e255874256193_ + _hd258565258883_)) + (let ((_e258569258888_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd255870256188_)))) - (let ((_tl255872256198_ + (gx#stx-e _hd258565258883_)))) + (let ((_tl258567258893_ (let () (declare (not safe)) - (##cdr _e255874256193_))) - (_hd255873256196_ + (##cdr _e258569258888_))) + (_hd258568258891_ (let () (declare (not safe)) - (##car _e255874256193_)))) + (##car _e258569258888_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd255873256196_)) + (gx#identifier? _hd258568258891_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd255873256196_)) + (gx#stx-eq? '%#ref _hd258568258891_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255872256198_)) - (let ((_e255877256201_ + (gx#stx-pair? _tl258567258893_)) + (let ((_e258572258896_ (let () (declare (not safe)) - (gx#stx-e _tl255872256198_)))) - (let ((_tl255875256206_ + (gx#stx-e _tl258567258893_)))) + (let ((_tl258570258901_ (let () (declare (not safe)) - (##cdr _e255877256201_))) - (_hd255876256204_ + (##cdr _e258572258896_))) + (_hd258571258899_ (let () (declare (not safe)) - (##car _e255877256201_)))) + (##car _e258572258896_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255875256206_)) - (___kont270824270825_ - _hd255876256204_) - (___kont270834270835_)))) - (___kont270834270835_)) - (___kont270834270835_)) - (___kont270834270835_)))) - (___kont270834270835_)))) + (gx#stx-null? _tl258570258901_)) + (___kont273619273620_ + _hd258571258899_) + (___kont273629273630_)))) + (___kont273629273630_)) + (___kont273629273630_)) + (___kont273629273630_)))) + (___kont273629273630_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270834270835_)) + (___kont273629273630_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd255854256232_)) + _hd258549258927_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255853256234_)) - (let ((_e255884256143_ + _tl258548258929_)) + (let ((_e258579258838_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl255853256234_)))) - (let ((_tl255882256148_ - (let () (declare (not safe)) (##cdr _e255884256143_))) - (_hd255883256146_ - (let () (declare (not safe)) (##car _e255884256143_)))) + (gx#stx-e _tl258548258929_)))) + (let ((_tl258577258843_ + (let () (declare (not safe)) (##cdr _e258579258838_))) + (_hd258578258841_ + (let () (declare (not safe)) (##car _e258579258838_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255882256148_)) - (let ((_e255887256151_ + (gx#stx-pair? _tl258577258843_)) + (let ((_e258582258846_ (let () (declare (not safe)) - (gx#stx-e _tl255882256148_)))) - (let ((_tl255885256156_ + (gx#stx-e _tl258577258843_)))) + (let ((_tl258580258851_ (let () (declare (not safe)) - (##cdr _e255887256151_))) - (_hd255886256154_ + (##cdr _e258582258846_))) + (_hd258581258849_ (let () (declare (not safe)) - (##car _e255887256151_)))) + (##car _e258582258846_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255885256156_)) - (___kont270826270827_ _hd255886256154_) - (___kont270834270835_)))) - (___kont270834270835_)))) - (___kont270834270835_)) + (gx#stx-null? _tl258580258851_)) + (___kont273621273622_ _hd258581258849_) + (___kont273629273630_)))) + (___kont273629273630_)))) + (___kont273629273630_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd255854256232_)) + _hd258549258927_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255853256234_)) - (let ((_e255898255965_ + _tl258548258929_)) + (let ((_e258593258660_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl255853256234_)))) - (let ((_tl255896255970_ + (gx#stx-e _tl258548258929_)))) + (let ((_tl258591258665_ (let () (declare (not safe)) - (##cdr _e255898255965_))) - (_hd255897255968_ + (##cdr _e258593258660_))) + (_hd258592258663_ (let () (declare (not safe)) - (##car _e255898255965_)))) + (##car _e258593258660_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255897255968_)) - (let ((_e255901255973_ + (gx#stx-pair? _hd258592258663_)) + (let ((_e258596258668_ (let () (declare (not safe)) - (gx#stx-e _hd255897255968_)))) - (let ((_tl255899255978_ + (gx#stx-e _hd258592258663_)))) + (let ((_tl258594258673_ (let () (declare (not safe)) - (##cdr _e255901255973_))) - (_hd255900255976_ + (##cdr _e258596258668_))) + (_hd258595258671_ (let () (declare (not safe)) - (##car _e255901255973_)))) + (##car _e258596258668_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255900255976_)) - (let ((_e255904255981_ + (gx#stx-pair? _hd258595258671_)) + (let ((_e258599258676_ (let () (declare (not safe)) - (gx#stx-e _hd255900255976_)))) - (let ((_tl255902255986_ + (gx#stx-e _hd258595258671_)))) + (let ((_tl258597258681_ (let () (declare (not safe)) - (##cdr _e255904255981_))) - (_hd255903255984_ + (##cdr _e258599258676_))) + (_hd258598258679_ (let () (declare (not safe)) - (##car _e255904255981_)))) + (##car _e258599258676_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255903255984_)) - (let ((_e255907255989_ + (gx#stx-pair? _hd258598258679_)) + (let ((_e258602258684_ (let () (declare (not safe)) (gx#stx-e - _hd255903255984_)))) - (let ((_tl255905255994_ + _hd258598258679_)))) + (let ((_tl258600258689_ (let () (declare (not safe)) - (##cdr _e255907255989_))) - (_hd255906255992_ + (##cdr _e258602258684_))) + (_hd258601258687_ (let () (declare (not safe)) - (##car _e255907255989_)))) + (##car _e258602258684_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255905255994_)) + _tl258600258689_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255902255986_)) - (let ((_e255910255997_ + _tl258597258681_)) + (let ((_e258605258692_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl255902255986_)))) - (let ((_tl255908256002_ - (let () (declare (not safe)) (##cdr _e255910255997_))) - (_hd255909256000_ - (let () (declare (not safe)) (##car _e255910255997_)))) + (gx#stx-e _tl258597258681_)))) + (let ((_tl258603258697_ + (let () (declare (not safe)) (##cdr _e258605258692_))) + (_hd258604258695_ + (let () (declare (not safe)) (##car _e258605258692_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255909256000_)) - (let ((_e255913256005_ + (gx#stx-pair? _hd258604258695_)) + (let ((_e258608258700_ (let () (declare (not safe)) - (gx#stx-e _hd255909256000_)))) - (let ((_tl255911256010_ + (gx#stx-e _hd258604258695_)))) + (let ((_tl258606258705_ (let () (declare (not safe)) - (##cdr _e255913256005_))) - (_hd255912256008_ + (##cdr _e258608258700_))) + (_hd258607258703_ (let () (declare (not safe)) - (##car _e255913256005_)))) + (##car _e258608258700_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd255912256008_)) + (gx#identifier? _hd258607258703_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd255912256008_)) + (gx#stx-eq? '%#lambda _hd258607258703_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255911256010_)) - (let ((_e255916256013_ + (gx#stx-pair? _tl258606258705_)) + (let ((_e258611258708_ (let () (declare (not safe)) - (gx#stx-e _tl255911256010_)))) - (let ((_tl255914256018_ + (gx#stx-e _tl258606258705_)))) + (let ((_tl258609258713_ (let () (declare (not safe)) - (##cdr _e255916256013_))) - (_hd255915256016_ + (##cdr _e258611258708_))) + (_hd258610258711_ (let () (declare (not safe)) - (##car _e255916256013_)))) + (##car _e258611258708_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd255915256016_)) - (let ((___splice270830270831_ + _hd258610258711_)) + (let ((___splice273625273626_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd255915256016_ + _hd258610258711_ '0)))) - (let ((_tl255919256023_ + (let ((_tl258614258718_ (let () (declare (not safe)) (##vector-ref - ___splice270830270831_ + ___splice273625273626_ '1))) - (_target255917256021_ + (_target258612258716_ (let () (declare (not safe)) (##vector-ref - ___splice270830270831_ + ___splice273625273626_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255919256023_)) - (___match270989270990_ - _e255855256229_ - _hd255854256232_ - _tl255853256234_ - _e255898255965_ - _hd255897255968_ - _tl255896255970_ - _e255901255973_ - _hd255900255976_ - _tl255899255978_ - _e255904255981_ - _hd255903255984_ - _tl255902255986_ - _e255907255989_ - _hd255906255992_ - _tl255905255994_ - _e255910255997_ - _hd255909256000_ - _tl255908256002_ - _e255913256005_ - _hd255912256008_ - _tl255911256010_ - _e255916256013_ - _hd255915256016_ - _tl255914256018_ - ___splice270830270831_ - _target255917256021_ - _tl255919256023_) - (___kont270834270835_)))) - (___kont270834270835_)))) - (___kont270834270835_)) - (___kont270834270835_)) - (___kont270834270835_)))) - (___kont270834270835_)))) - (___kont270834270835_)) + _tl258614258718_)) + (___match273784273785_ + _e258550258924_ + _hd258549258927_ + _tl258548258929_ + _e258593258660_ + _hd258592258663_ + _tl258591258665_ + _e258596258668_ + _hd258595258671_ + _tl258594258673_ + _e258599258676_ + _hd258598258679_ + _tl258597258681_ + _e258602258684_ + _hd258601258687_ + _tl258600258689_ + _e258605258692_ + _hd258604258695_ + _tl258603258697_ + _e258608258700_ + _hd258607258703_ + _tl258606258705_ + _e258611258708_ + _hd258610258711_ + _tl258609258713_ + ___splice273625273626_ + _target258612258716_ + _tl258614258718_) + (___kont273629273630_)))) + (___kont273629273630_)))) + (___kont273629273630_)) + (___kont273629273630_)) + (___kont273629273630_)))) + (___kont273629273630_)))) + (___kont273629273630_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270834270835_)))) - (___kont270834270835_)))) - (___kont270834270835_)))) - (___kont270834270835_)))) - (___kont270834270835_)) - (___kont270834270835_))))) + (___kont273629273630_)))) + (___kont273629273630_)))) + (___kont273629273630_)))) + (___kont273629273630_)))) + (___kont273629273630_)) + (___kont273629273630_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont270834270835_)))) - (___kont270834270835_)))))))) - (let* ((_block255686255699_ _block255682_) - (_E255688255703_ + (___kont273629273630_)))) + (___kont273629273630_)))))))) + (let* ((_block258381258394_ _block258377_) + (_E258383258398_ (lambda () - (error '"No clause matching" _block255686255699_))) - (_K255689255816_ - (lambda (_maybe-bind255706_ _assert255707_ _kont255708_) - (let* ((_g255710255736_ - (lambda (_g255711255733_) + (error '"No clause matching" _block258381258394_))) + (_K258384258511_ + (lambda (_maybe-bind258401_ _assert258402_ _kont258403_) + (let* ((_g258405258431_ + (lambda (_g258406258428_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g255711255733_)))) - (_g255709255813_ - (lambda (_g255711255739_) + _g258406258428_)))) + (_g258404258508_ + (lambda (_g258406258434_) (if (let () (declare (not safe)) - (gx#stx-pair? _g255711255739_)) - (let ((_e255716255741_ + (gx#stx-pair? _g258406258434_)) + (let ((_e258411258436_ (let () (declare (not safe)) - (gx#stx-e _g255711255739_)))) - (let ((_hd255715255744_ + (gx#stx-e _g258406258434_)))) + (let ((_hd258410258439_ (let () (declare (not safe)) - (##car _e255716255741_))) - (_tl255714255746_ + (##car _e258411258436_))) + (_tl258409258441_ (let () (declare (not safe)) - (##cdr _e255716255741_)))) + (##cdr _e258411258436_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd255715255744_)) + (gx#identifier? _hd258410258439_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd255715255744_)) + _hd258410258439_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255714255746_)) - (let ((_e255719255749_ + _tl258409258441_)) + (let ((_e258414258444_ (let () (declare (not safe)) (gx#stx-e - _tl255714255746_)))) - (let ((_hd255718255752_ + _tl258409258441_)))) + (let ((_hd258413258447_ (let () (declare (not safe)) - (##car _e255719255749_))) - (_tl255717255754_ + (##car _e258414258444_))) + (_tl258412258449_ (let () (declare (not safe)) - (##cdr _e255719255749_)))) + (##cdr _e258414258444_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd255718255752_)) - (let ((_g272115_ + _hd258413258447_)) + (let ((_g274910_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd255718255752_ '0)))) + (gx#syntax-split-splice _hd258413258447_ '0)))) (begin - (let ((_g272116_ + (let ((_g274911_ (let () (declare (not safe)) - (if (##values? _g272115_) - (##vector-length _g272115_) + (if (##values? _g274910_) + (##vector-length _g274910_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g272116_ 2))) - (error "Context expects 2 values" _g272116_))) - (let ((_target255720255757_ + (##fx= _g274911_ 2))) + (error "Context expects 2 values" _g274911_))) + (let ((_target258415258452_ (let () (declare (not safe)) - (##vector-ref _g272115_ 0))) - (_tl255722255759_ + (##vector-ref _g274910_ 0))) + (_tl258417258454_ (let () (declare (not safe)) - (##vector-ref _g272115_ 1)))) + (##vector-ref _g274910_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255722255759_)) - (letrec ((_loop255723255762_ - (lambda (_hd255721255765_ - _id255727255767_) + (gx#stx-null? _tl258417258454_)) + (letrec ((_loop258418258457_ + (lambda (_hd258416258460_ + _id258422258462_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255721255765_)) - (let ((_e255724255770_ + (gx#stx-pair? _hd258416258460_)) + (let ((_e258419258465_ (let () (declare (not safe)) (gx#stx-e - _hd255721255765_)))) - (let ((_lp-hd255725255773_ + _hd258416258460_)))) + (let ((_lp-hd258420258468_ (let () (declare (not safe)) - (##car _e255724255770_))) - (_lp-tl255726255775_ + (##car _e258419258465_))) + (_lp-tl258421258470_ (let () (declare (not safe)) - (##cdr _e255724255770_)))) - (let ((__tmp272117 + (##cdr _e258419258465_)))) + (let ((__tmp274912 (let () (declare (not safe)) - (cons _lp-hd255725255773_ - _id255727255767_)))) + (cons _lp-hd258420258468_ + _id258422258462_)))) (declare (not safe)) - (_loop255723255762_ - _lp-tl255726255775_ - __tmp272117)))) - (let ((_id255728255778_ - (reverse _id255727255767_))) + (_loop258418258457_ + _lp-tl258421258470_ + __tmp274912)))) + (let ((_id258423258473_ + (reverse _id258422258462_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255717255754_)) - (let ((_e255731255781_ + _tl258412258449_)) + (let ((_e258426258476_ (let () (declare (not safe)) (gx#stx-e - _tl255717255754_)))) - (let ((_hd255730255784_ + _tl258412258449_)))) + (let ((_hd258425258479_ (let () (declare (not safe)) - (##car _e255731255781_))) - (_tl255729255786_ + (##car _e258426258476_))) + (_tl258424258481_ (let () (declare (not safe)) - (##cdr _e255731255781_)))) + (##cdr _e258426258476_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255729255786_)) - ((lambda (_L255789_ + _tl258424258481_)) + ((lambda (_L258484_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L255790_) + _L258485_) (let () (declare (not safe)) - (_assert-restart255685_ _L255789_ _assert255707_))) - _hd255730255784_ - _id255728255778_) + (_assert-restart258380_ _L258484_ _assert258402_))) + _hd258425258479_ + _id258423258473_) (let () (declare (not safe)) - (_g255710255736_ _g255711255739_))))) + (_g258405258431_ _g258406258434_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255710255736_ - _g255711255739_)))))))) + (_g258405258431_ + _g258406258434_)))))))) (let () (declare (not safe)) - (_loop255723255762_ _target255720255757_ '()))) + (_loop258418258457_ _target258415258452_ '()))) (let () (declare (not safe)) - (_g255710255736_ _g255711255739_)))))) + (_g258405258431_ _g258406258434_)))))) (let () (declare (not safe)) - (_g255710255736_ _g255711255739_))))) + (_g258405258431_ _g258406258434_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255710255736_ - _g255711255739_))) + (_g258405258431_ + _g258406258434_))) (let () (declare (not safe)) - (_g255710255736_ - _g255711255739_))) + (_g258405258431_ + _g258406258434_))) (let () (declare (not safe)) - (_g255710255736_ - _g255711255739_))))) + (_g258405258431_ + _g258406258434_))))) (let () (declare (not safe)) - (_g255710255736_ _g255711255739_)))))) + (_g258405258431_ _g258406258434_)))))) (declare (not safe)) - (_g255709255813_ _kont255708_))))) - (if (let () (declare (not safe)) (##pair? _block255686255699_)) - (let ((_tl255691255819_ + (_g258404258508_ _kont258403_))))) + (if (let () (declare (not safe)) (##pair? _block258381258394_)) + (let ((_tl258386258514_ (let () (declare (not safe)) - (##cdr _block255686255699_)))) - (if (let () (declare (not safe)) (##pair? _tl255691255819_)) - (let ((_tl255693255822_ + (##cdr _block258381258394_)))) + (if (let () (declare (not safe)) (##pair? _tl258386258514_)) + (let ((_tl258388258517_ (let () (declare (not safe)) - (##cdr _tl255691255819_)))) + (##cdr _tl258386258514_)))) (if (let () (declare (not safe)) - (##pair? _tl255693255822_)) - (let ((_hd255694255825_ + (##pair? _tl258388258517_)) + (let ((_hd258389258520_ (let () (declare (not safe)) - (##car _tl255693255822_))) - (_tl255695255827_ + (##car _tl258388258517_))) + (_tl258390258522_ (let () (declare (not safe)) - (##cdr _tl255693255822_)))) - (let ((_kont255830_ _hd255694255825_)) + (##cdr _tl258388258517_)))) + (let ((_kont258525_ _hd258389258520_)) (if (let () (declare (not safe)) - (##pair? _tl255695255827_)) - (let ((_hd255696255832_ + (##pair? _tl258390258522_)) + (let ((_hd258391258527_ (let () (declare (not safe)) - (##car _tl255695255827_))) - (_tl255697255834_ + (##car _tl258390258522_))) + (_tl258392258529_ (let () (declare (not safe)) - (##cdr _tl255695255827_)))) - (let* ((_assert255837_ _hd255696255832_) - (_maybe-bind255839_ - _tl255697255834_)) + (##cdr _tl258390258522_)))) + (let* ((_assert258532_ _hd258391258527_) + (_maybe-bind258534_ + _tl258392258529_)) (declare (not safe)) - (_K255689255816_ - _maybe-bind255839_ - _assert255837_ - _kont255830_))) + (_K258384258511_ + _maybe-bind258534_ + _assert258532_ + _kont258525_))) (let () (declare (not safe)) - (_E255688255703_))))) - (let () (declare (not safe)) (_E255688255703_)))) - (let () (declare (not safe)) (_E255688255703_)))) - (let () (declare (not safe)) (_E255688255703_))))))) + (_E258383258398_))))) + (let () (declare (not safe)) (_E258383258398_)))) + (let () (declare (not safe)) (_E258383258398_)))) + (let () (declare (not safe)) (_E258383258398_))))))) (define gxc#optimize-syntax-case - (lambda (_stx255313_) - (let* ((_g255315255345_ - (lambda (_g255316255342_) + (lambda (_stx258008_) + (let* ((_g258010258040_ + (lambda (_g258011258037_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g255316255342_)))) - (_g255314255679_ - (lambda (_g255316255348_) + _g258011258037_)))) + (_g258009258374_ + (lambda (_g258011258043_) (if (let () (declare (not safe)) - (gx#stx-pair? _g255316255348_)) - (let ((_e255322255350_ + (gx#stx-pair? _g258011258043_)) + (let ((_e258017258045_ (let () (declare (not safe)) - (gx#stx-e _g255316255348_)))) - (let ((_hd255321255353_ + (gx#stx-e _g258011258043_)))) + (let ((_hd258016258048_ (let () (declare (not safe)) - (##car _e255322255350_))) - (_tl255320255355_ + (##car _e258017258045_))) + (_tl258015258050_ (let () (declare (not safe)) - (##cdr _e255322255350_)))) + (##cdr _e258017258045_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd255321255353_)) + (gx#identifier? _hd258016258048_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd255321255353_)) + _hd258016258048_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255320255355_)) - (let ((_e255325255358_ + (gx#stx-pair? _tl258015258050_)) + (let ((_e258020258053_ (let () (declare (not safe)) - (gx#stx-e _tl255320255355_)))) - (let ((_hd255324255361_ + (gx#stx-e _tl258015258050_)))) + (let ((_hd258019258056_ (let () (declare (not safe)) - (##car _e255325255358_))) - (_tl255323255363_ + (##car _e258020258053_))) + (_tl258018258058_ (let () (declare (not safe)) - (##cdr _e255325255358_)))) + (##cdr _e258020258053_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd255324255361_)) - (let ((_e255328255366_ + _hd258019258056_)) + (let ((_e258023258061_ (let () (declare (not safe)) (gx#stx-e - _hd255324255361_)))) - (let ((_hd255327255369_ + _hd258019258056_)))) + (let ((_hd258022258064_ (let () (declare (not safe)) - (##car _e255328255366_))) - (_tl255326255371_ + (##car _e258023258061_))) + (_tl258021258066_ (let () (declare (not safe)) - (##cdr _e255328255366_)))) + (##cdr _e258023258061_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd255327255369_)) - (let ((_e255331255374_ + _hd258022258064_)) + (let ((_e258026258069_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd255327255369_)))) - (let ((_hd255330255377_ - (let () (declare (not safe)) (##car _e255331255374_))) - (_tl255329255379_ - (let () (declare (not safe)) (##cdr _e255331255374_)))) + (gx#stx-e _hd258022258064_)))) + (let ((_hd258025258072_ + (let () (declare (not safe)) (##car _e258026258069_))) + (_tl258024258074_ + (let () (declare (not safe)) (##cdr _e258026258069_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255330255377_)) - (let ((_e255334255382_ + (gx#stx-pair? _hd258025258072_)) + (let ((_e258029258077_ (let () (declare (not safe)) - (gx#stx-e _hd255330255377_)))) - (let ((_hd255333255385_ + (gx#stx-e _hd258025258072_)))) + (let ((_hd258028258080_ (let () (declare (not safe)) - (##car _e255334255382_))) - (_tl255332255387_ + (##car _e258029258077_))) + (_tl258027258082_ (let () (declare (not safe)) - (##cdr _e255334255382_)))) + (##cdr _e258029258077_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255332255387_)) + (gx#stx-null? _tl258027258082_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255329255379_)) - (let ((_e255337255390_ + (gx#stx-pair? _tl258024258074_)) + (let ((_e258032258085_ (let () (declare (not safe)) - (gx#stx-e _tl255329255379_)))) - (let ((_hd255336255393_ + (gx#stx-e _tl258024258074_)))) + (let ((_hd258031258088_ (let () (declare (not safe)) - (##car _e255337255390_))) - (_tl255335255395_ + (##car _e258032258085_))) + (_tl258030258090_ (let () (declare (not safe)) - (##cdr _e255337255390_)))) + (##cdr _e258032258085_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255335255395_)) + (gx#stx-null? _tl258030258090_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl255326255371_)) + _tl258021258066_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255323255363_)) - (let ((_e255340255398_ + _tl258018258058_)) + (let ((_e258035258093_ (let () (declare (not safe)) (gx#stx-e - _tl255323255363_)))) - (let ((_hd255339255401_ + _tl258018258058_)))) + (let ((_hd258034258096_ (let () (declare (not safe)) - (##car _e255340255398_))) - (_tl255338255403_ + (##car _e258035258093_))) + (_tl258033258098_ (let () (declare (not safe)) - (##cdr _e255340255398_)))) + (##cdr _e258035258093_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255338255403_)) - ((lambda (_L255406_ + _tl258033258098_)) + ((lambda (_L258101_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L255407_ - _L255408_) - (let _lp255432_ ((_body255434_ _L255406_) - (_clauses255435_ '())) - (let* ((___stx270992270993_ _body255434_) - (_g255438255485_ + _L258102_ + _L258103_) + (let _lp258127_ ((_body258129_ _L258101_) + (_clauses258130_ '())) + (let* ((___stx273787273788_ _body258129_) + (_g258133258180_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx270992270993_))))) - (let ((___kont270994270995_ - (lambda (_L255651_ _L255652_ _L255653_) - (let ((__tmp272118 - (let ((__tmp272119 - (let ((__tmp272120 + ___stx273787273788_))))) + (let ((___kont273789273790_ + (lambda (_L258346_ _L258347_ _L258348_) + (let ((__tmp274913 + (let ((__tmp274914 + (let ((__tmp274915 (let () (declare (not safe)) (gxc#compile-e__0 - _L255652_)))) + _L258347_)))) (declare (not safe)) - (cons _L255653_ - __tmp272120)))) + (cons _L258348_ + __tmp274915)))) (declare (not safe)) - (cons __tmp272119 - _clauses255435_)))) + (cons __tmp274914 + _clauses258130_)))) (declare (not safe)) - (_lp255432_ _L255651_ __tmp272118)))) - (___kont270996270997_ - (lambda (_L255530_ _L255531_) - (let ((_$e255552_ (length _clauses255435_))) + (_lp258127_ _L258346_ __tmp274913)))) + (___kont273791273792_ + (lambda (_L258225_ _L258226_) + (let ((_$e258247_ (length _clauses258130_))) (if (let () (declare (not safe)) - (eq? '0 _$e255552_)) - (let ((__tmp272138 - (let ((__tmp272139 - (let ((__tmp272142 - (let ((__tmp272143 + (eq? '0 _$e258247_)) + (let ((__tmp274933 + (let ((__tmp274934 + (let ((__tmp274937 + (let ((__tmp274938 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp272145 + (let ((__tmp274940 (let () (declare (not safe)) - (cons _L255408_ '()))) - (__tmp272144 + (cons _L258103_ '()))) + (__tmp274939 (let () (declare (not safe)) - (cons _L255407_ '())))) + (cons _L258102_ '())))) (declare (not safe)) - (cons __tmp272145 __tmp272144)))) + (cons __tmp274940 __tmp274939)))) (declare (not safe)) - (cons __tmp272143 '()))) - (__tmp272140 - (let ((__tmp272141 + (cons __tmp274938 '()))) + (__tmp274935 + (let ((__tmp274936 (let () (declare (not safe)) - (gxc#compile-e__0 _body255434_)))) + (gxc#compile-e__0 _body258129_)))) (declare (not safe)) - (cons __tmp272141 '())))) + (cons __tmp274936 '())))) (declare (not safe)) - (cons __tmp272142 __tmp272140)))) + (cons __tmp274937 __tmp274935)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp272139)))) + __tmp274934)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp272138 - _stx255313_)) + __tmp274933 + _stx258008_)) (if (let () (declare (not safe)) - (eq? '1 _$e255552_)) - (let* ((_clauses255554255563_ - _clauses255435_) - (_E255556255567_ + (eq? '1 _$e258247_)) + (let* ((_clauses258249258258_ + _clauses258130_) + (_E258251258262_ (lambda () (error '"No clause matching" - _clauses255554255563_))) - (_K255557255573_ - (lambda (_clause-lambda255570_ - _clause255571_) - (let ((__tmp272123 - (let ((__tmp272124 + _clauses258249258258_))) + (_K258252258268_ + (lambda (_clause-lambda258265_ + _clause258266_) + (let ((__tmp274918 + (let ((__tmp274919 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp272134 - (let ((__tmp272135 - (let ((__tmp272137 + (let ((__tmp274929 + (let ((__tmp274930 + (let ((__tmp274932 (let () (declare (not safe)) - (cons _L255408_ '()))) - (__tmp272136 + (cons _L258103_ '()))) + (__tmp274931 (let () (declare (not safe)) - (cons _L255407_ '())))) + (cons _L258102_ '())))) (declare (not safe)) - (cons __tmp272137 __tmp272136)))) + (cons __tmp274932 __tmp274931)))) (declare (not safe)) - (cons __tmp272135 '()))) - (__tmp272125 - (let ((__tmp272126 - (let ((__tmp272127 - (let ((__tmp272130 - (let ((__tmp272131 - (let ((__tmp272133 + (cons __tmp274930 '()))) + (__tmp274920 + (let ((__tmp274921 + (let ((__tmp274922 + (let ((__tmp274925 + (let ((__tmp274926 + (let ((__tmp274928 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _clause255571_ '()))) - (__tmp272132 + (cons _clause258266_ '()))) + (__tmp274927 (let () (declare (not safe)) - (cons _clause-lambda255570_ '())))) + (cons _clause-lambda258265_ '())))) (declare (not safe)) - (cons __tmp272133 __tmp272132)))) + (cons __tmp274928 __tmp274927)))) (declare (not safe)) - (cons __tmp272131 '()))) - (__tmp272128 - (let ((__tmp272129 + (cons __tmp274926 '()))) + (__tmp274923 + (let ((__tmp274924 (let () (declare (not safe)) - (gxc#compile-e__0 _body255434_)))) + (gxc#compile-e__0 _body258129_)))) (declare (not safe)) - (cons __tmp272129 '())))) + (cons __tmp274924 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272130 - __tmp272128)))) + (cons __tmp274925 + __tmp274923)))) (declare (not safe)) - (cons '%#let-values __tmp272127)))) + (cons '%#let-values __tmp274922)))) (declare (not safe)) - (cons __tmp272126 '())))) + (cons __tmp274921 '())))) (declare (not safe)) - (cons __tmp272134 __tmp272125)))) + (cons __tmp274929 __tmp274920)))) (declare (not safe)) - (cons '%#let-values __tmp272124)))) + (cons '%#let-values __tmp274919)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp272123 _stx255313_))))) + (gxc#xform-wrap-source __tmp274918 _stx258008_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _clauses255554255563_)) - (let ((_hd255558255576_ + (##pair? _clauses258249258258_)) + (let ((_hd258253258271_ (let () (declare (not safe)) - (##car _clauses255554255563_))) - (_tl255559255578_ + (##car _clauses258249258258_))) + (_tl258254258273_ (let () (declare (not safe)) - (##cdr _clauses255554255563_)))) + (##cdr _clauses258249258258_)))) (if (let () (declare (not safe)) - (##pair? _hd255558255576_)) - (let ((_hd255560255581_ + (##pair? _hd258253258271_)) + (let ((_hd258255258276_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _hd255558255576_))) - (_tl255561255583_ - (let () (declare (not safe)) (##cdr _hd255558255576_)))) - (let* ((_clause255586_ _hd255560255581_) - (_clause-lambda255588_ _tl255561255583_)) + (##car _hd258253258271_))) + (_tl258256258278_ + (let () (declare (not safe)) (##cdr _hd258253258271_)))) + (let* ((_clause258281_ _hd258255258276_) + (_clause-lambda258283_ _tl258256258278_)) (if (let () (declare (not safe)) - (##null? _tl255559255578_)) + (##null? _tl258254258273_)) (let () (declare (not safe)) - (_K255557255573_ - _clause-lambda255588_ - _clause255586_)) - (let () (declare (not safe)) (_E255556255567_))))) - (let () (declare (not safe)) (_E255556255567_)))) + (_K258252258268_ + _clause-lambda258283_ + _clause258281_)) + (let () (declare (not safe)) (_E258251258262_))))) + (let () (declare (not safe)) (_E258251258262_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E255556255567_)))) - (let ((__tmp272122 + (_E258251258262_)))) + (let ((__tmp274917 (let () (declare (not safe)) (gxc#compile-e__0 - _L255530_))) - (__tmp272121 + _L258225_))) + (__tmp274916 (let () (declare (not safe)) - (cons _L255408_ - _L255407_)))) + (cons _L258103_ + _L258102_)))) (declare (not safe)) (gxc#optimize-syntax-case-body - _stx255313_ - __tmp272122 - __tmp272121 - _clauses255435_)))))))) + _stx258008_ + __tmp274917 + __tmp274916 + _clauses258130_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx270992270993_)) - (let ((_e255445255595_ + (gx#stx-pair? ___stx273787273788_)) + (let ((_e258140258290_ (let () (declare (not safe)) - (gx#stx-e ___stx270992270993_)))) - (let ((_tl255443255600_ + (gx#stx-e ___stx273787273788_)))) + (let ((_tl258138258295_ (let () (declare (not safe)) - (##cdr _e255445255595_))) - (_hd255444255598_ + (##cdr _e258140258290_))) + (_hd258139258293_ (let () (declare (not safe)) - (##car _e255445255595_)))) + (##car _e258140258290_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd255444255598_)) + (gx#identifier? _hd258139258293_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd255444255598_)) + _hd258139258293_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255443255600_)) - (let ((_e255448255603_ + _tl258138258295_)) + (let ((_e258143258298_ (let () (declare (not safe)) (gx#stx-e - _tl255443255600_)))) - (let ((_tl255446255608_ + _tl258138258295_)))) + (let ((_tl258141258303_ (let () (declare (not safe)) - (##cdr _e255448255603_))) - (_hd255447255606_ + (##cdr _e258143258298_))) + (_hd258142258301_ (let () (declare (not safe)) - (##car _e255448255603_)))) + (##car _e258143258298_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd255447255606_)) - (let ((_e255451255611_ + _hd258142258301_)) + (let ((_e258146258306_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd255447255606_)))) - (let ((_tl255449255616_ - (let () (declare (not safe)) (##cdr _e255451255611_))) - (_hd255450255614_ - (let () (declare (not safe)) (##car _e255451255611_)))) + (gx#stx-e _hd258142258301_)))) + (let ((_tl258144258311_ + (let () (declare (not safe)) (##cdr _e258146258306_))) + (_hd258145258309_ + (let () (declare (not safe)) (##car _e258146258306_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255450255614_)) - (let ((_e255454255619_ + (gx#stx-pair? _hd258145258309_)) + (let ((_e258149258314_ (let () (declare (not safe)) - (gx#stx-e _hd255450255614_)))) - (let ((_tl255452255624_ + (gx#stx-e _hd258145258309_)))) + (let ((_tl258147258319_ (let () (declare (not safe)) - (##cdr _e255454255619_))) - (_hd255453255622_ + (##cdr _e258149258314_))) + (_hd258148258317_ (let () (declare (not safe)) - (##car _e255454255619_)))) + (##car _e258149258314_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255453255622_)) - (let ((_e255457255627_ + (gx#stx-pair? _hd258148258317_)) + (let ((_e258152258322_ (let () (declare (not safe)) - (gx#stx-e _hd255453255622_)))) - (let ((_tl255455255632_ + (gx#stx-e _hd258148258317_)))) + (let ((_tl258150258327_ (let () (declare (not safe)) - (##cdr _e255457255627_))) - (_hd255456255630_ + (##cdr _e258152258322_))) + (_hd258151258325_ (let () (declare (not safe)) - (##car _e255457255627_)))) + (##car _e258152258322_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255455255632_)) + (gx#stx-null? _tl258150258327_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255452255624_)) - (let ((_e255460255635_ + (gx#stx-pair? _tl258147258319_)) + (let ((_e258155258330_ (let () (declare (not safe)) (gx#stx-e - _tl255452255624_)))) - (let ((_tl255458255640_ + _tl258147258319_)))) + (let ((_tl258153258335_ (let () (declare (not safe)) - (##cdr _e255460255635_))) - (_hd255459255638_ + (##cdr _e258155258330_))) + (_hd258154258333_ (let () (declare (not safe)) - (##car _e255460255635_)))) + (##car _e258155258330_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255458255640_)) + _tl258153258335_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl255449255616_)) + _tl258144258311_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255446255608_)) - (let ((_e255463255643_ + _tl258141258303_)) + (let ((_e258158258338_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl255446255608_)))) - (let ((_tl255461255648_ + (gx#stx-e _tl258141258303_)))) + (let ((_tl258156258343_ (let () (declare (not safe)) - (##cdr _e255463255643_))) - (_hd255462255646_ + (##cdr _e258158258338_))) + (_hd258157258341_ (let () (declare (not safe)) - (##car _e255463255643_)))) + (##car _e258158258338_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255461255648_)) - (___kont270994270995_ - _hd255462255646_ - _hd255459255638_ - _hd255456255630_) - (let () (declare (not safe)) (_g255438255485_))))) - (let () (declare (not safe)) (_g255438255485_))) - (let () (declare (not safe)) (_g255438255485_))) + (gx#stx-null? _tl258156258343_)) + (___kont273789273790_ + _hd258157258341_ + _hd258154258333_ + _hd258151258325_) + (let () (declare (not safe)) (_g258133258180_))))) + (let () (declare (not safe)) (_g258133258180_))) + (let () (declare (not safe)) (_g258133258180_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255438255485_))))) + (_g258133258180_))))) (let () (declare (not safe)) - (_g255438255485_))) + (_g258133258180_))) (let () (declare (not safe)) - (_g255438255485_))))) + (_g258133258180_))))) (let () (declare (not safe)) - (_g255438255485_))))) - (let () (declare (not safe)) (_g255438255485_))))) - (let () (declare (not safe)) (_g255438255485_))))) + (_g258133258180_))))) + (let () (declare (not safe)) (_g258133258180_))))) + (let () (declare (not safe)) (_g258133258180_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255438255485_))) + (_g258133258180_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd255444255598_)) + _hd258139258293_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255443255600_)) - (let ((_e255471255498_ + _tl258138258295_)) + (let ((_e258166258193_ (let () (declare (not safe)) (gx#stx-e - _tl255443255600_)))) - (let ((_tl255469255503_ + _tl258138258295_)))) + (let ((_tl258164258198_ (let () (declare (not safe)) - (##cdr _e255471255498_))) - (_hd255470255501_ + (##cdr _e258166258193_))) + (_hd258165258196_ (let () (declare (not safe)) - (##car _e255471255498_)))) + (##car _e258166258193_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd255470255501_)) - (let ((_e255474255506_ + _hd258165258196_)) + (let ((_e258169258201_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd255470255501_)))) - (let ((_tl255472255511_ + (gx#stx-e _hd258165258196_)))) + (let ((_tl258167258206_ (let () (declare (not safe)) - (##cdr _e255474255506_))) - (_hd255473255509_ + (##cdr _e258169258201_))) + (_hd258168258204_ (let () (declare (not safe)) - (##car _e255474255506_)))) + (##car _e258169258201_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd255473255509_)) + (gx#identifier? _hd258168258204_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd255473255509_)) + (gx#stx-eq? '%#ref _hd258168258204_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255472255511_)) - (let ((_e255477255514_ + (gx#stx-pair? _tl258167258206_)) + (let ((_e258172258209_ (let () (declare (not safe)) - (gx#stx-e _tl255472255511_)))) - (let ((_tl255475255519_ + (gx#stx-e _tl258167258206_)))) + (let ((_tl258170258214_ (let () (declare (not safe)) - (##cdr _e255477255514_))) - (_hd255476255517_ + (##cdr _e258172258209_))) + (_hd258171258212_ (let () (declare (not safe)) - (##car _e255477255514_)))) + (##car _e258172258209_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255475255519_)) + (gx#stx-null? _tl258170258214_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255469255503_)) - (let ((_e255480255522_ + _tl258164258198_)) + (let ((_e258175258217_ (let () (declare (not safe)) (gx#stx-e - _tl255469255503_)))) - (let ((_tl255478255527_ + _tl258164258198_)))) + (let ((_tl258173258222_ (let () (declare (not safe)) - (##cdr _e255480255522_))) - (_hd255479255525_ + (##cdr _e258175258217_))) + (_hd258174258220_ (let () (declare (not safe)) - (##car _e255480255522_)))) + (##car _e258175258217_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255478255527_)) - (___kont270996270997_ - _hd255479255525_ - _hd255476255517_) + _tl258173258222_)) + (___kont273791273792_ + _hd258174258220_ + _hd258171258212_) (let () (declare (not safe)) - (_g255438255485_))))) + (_g258133258180_))))) (let () (declare (not safe)) - (_g255438255485_))) + (_g258133258180_))) (let () (declare (not safe)) - (_g255438255485_))))) + (_g258133258180_))))) (let () (declare (not safe)) - (_g255438255485_))) - (let () (declare (not safe)) (_g255438255485_))) - (let () (declare (not safe)) (_g255438255485_))))) - (let () (declare (not safe)) (_g255438255485_))))) + (_g258133258180_))) + (let () (declare (not safe)) (_g258133258180_))) + (let () (declare (not safe)) (_g258133258180_))))) + (let () (declare (not safe)) (_g258133258180_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255438255485_))) + (_g258133258180_))) (let () (declare (not safe)) - (_g255438255485_)))) + (_g258133258180_)))) (let () (declare (not safe)) - (_g255438255485_))))) + (_g258133258180_))))) (let () (declare (not safe)) - (_g255438255485_))))))) - _hd255339255401_ - _hd255336255393_ - _hd255333255385_) + (_g258133258180_))))))) + _hd258034258096_ + _hd258031258088_ + _hd258028258080_) (let () (declare (not safe)) - (_g255315255345_ _g255316255348_))))) + (_g258010258040_ _g258011258043_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255315255345_ - _g255316255348_))) + (_g258010258040_ + _g258011258043_))) (let () (declare (not safe)) - (_g255315255345_ - _g255316255348_))) + (_g258010258040_ + _g258011258043_))) (let () (declare (not safe)) - (_g255315255345_ - _g255316255348_))))) + (_g258010258040_ + _g258011258043_))))) (let () (declare (not safe)) - (_g255315255345_ _g255316255348_))) + (_g258010258040_ _g258011258043_))) (let () (declare (not safe)) - (_g255315255345_ _g255316255348_))))) + (_g258010258040_ _g258011258043_))))) (let () (declare (not safe)) - (_g255315255345_ _g255316255348_))))) + (_g258010258040_ _g258011258043_))))) (let () (declare (not safe)) - (_g255315255345_ _g255316255348_))))) + (_g258010258040_ _g258011258043_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255315255345_ - _g255316255348_))))) + (_g258010258040_ + _g258011258043_))))) (let () (declare (not safe)) - (_g255315255345_ _g255316255348_))) + (_g258010258040_ _g258011258043_))) (let () (declare (not safe)) - (_g255315255345_ _g255316255348_))) + (_g258010258040_ _g258011258043_))) (let () (declare (not safe)) - (_g255315255345_ _g255316255348_))))) + (_g258010258040_ _g258011258043_))))) (let () (declare (not safe)) - (_g255315255345_ _g255316255348_)))))) + (_g258010258040_ _g258011258043_)))))) (declare (not safe)) - (_g255314255679_ _stx255313_)))) + (_g258009258374_ _stx258008_)))) (define gxc#optimize-syntax-case-body - (lambda (_stx255241_ _expr255242_ _negation255243_ _clauses255244_) - (letrec ((_normalize255246_ - (lambda (_clauses255273_) - (let* ((_clauses255274255283_ _clauses255273_) - (_E255276255287_ + (lambda (_stx257936_ _expr257937_ _negation257938_ _clauses257939_) + (letrec ((_normalize257941_ + (lambda (_clauses257968_) + (let* ((_clauses257969257978_ _clauses257968_) + (_E257971257982_ (lambda () (error '"No clause matching" - _clauses255274255283_))) - (_K255277255294_ - (lambda (_rest255290_ _kont255291_ _id255292_) - (let ((__tmp272146 + _clauses257969257978_))) + (_K257972257989_ + (lambda (_rest257985_ _kont257986_ _id257987_) + (let ((__tmp274941 (let () (declare (not safe)) - (cons '#f _kont255291_)))) + (cons '#f _kont257986_)))) (declare (not safe)) - (cons __tmp272146 _rest255290_))))) + (cons __tmp274941 _rest257985_))))) (if (let () (declare (not safe)) - (##pair? _clauses255274255283_)) - (let ((_hd255278255297_ + (##pair? _clauses257969257978_)) + (let ((_hd257973257992_ (let () (declare (not safe)) - (##car _clauses255274255283_))) - (_tl255279255299_ + (##car _clauses257969257978_))) + (_tl257974257994_ (let () (declare (not safe)) - (##cdr _clauses255274255283_)))) + (##cdr _clauses257969257978_)))) (if (let () (declare (not safe)) - (##pair? _hd255278255297_)) - (let ((_hd255280255302_ + (##pair? _hd257973257992_)) + (let ((_hd257975257997_ (let () (declare (not safe)) - (##car _hd255278255297_))) - (_tl255281255304_ + (##car _hd257973257992_))) + (_tl257976257999_ (let () (declare (not safe)) - (##cdr _hd255278255297_)))) - (let* ((_id255307_ _hd255280255302_) - (_kont255309_ _tl255281255304_) - (_rest255311_ _tl255279255299_)) + (##cdr _hd257973257992_)))) + (let* ((_id258002_ _hd257975257997_) + (_kont258004_ _tl257976257999_) + (_rest258006_ _tl257974257994_)) (declare (not safe)) - (_K255277255294_ - _rest255311_ - _kont255309_ - _id255307_))) + (_K257972257989_ + _rest258006_ + _kont258004_ + _id258002_))) (let () (declare (not safe)) - (_E255276255287_)))) - (let () (declare (not safe)) (_E255276255287_))))))) - (let ((__tmp272148 + (_E257971257982_)))) + (let () (declare (not safe)) (_E257971257982_))))))) + (let ((__tmp274943 (lambda () - (let* ((_id255249_ - (let ((__tmp272149 (gensym '__stx))) + (let* ((_id257944_ + (let ((__tmp274944 (gensym '__stx))) (declare (not safe)) - (make-symbol__0 __tmp272149))) - (_id255251_ + (make-symbol__0 __tmp274944))) + (_id257946_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id255249_))) - (_g272150_ + (gx#core-quote-syntax__0 _id257944_))) + (_g274945_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id255251_))) - (_g272151_ - (let ((__tmp272153 (car _negation255243_))) + (gx#core-bind-runtime!__0 _id257946_))) + (_g274946_ + (let ((__tmp274948 (car _negation257938_))) (declare (not safe)) (gxc#optimize-syntax-case-clauses - _clauses255244_ - __tmp272153)))) + _clauses257939_ + __tmp274948)))) (begin - (let ((_g272152_ + (let ((_g274947_ (let () (declare (not safe)) - (if (##values? _g272151_) - (##vector-length _g272151_) + (if (##values? _g274946_) + (##vector-length _g274946_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g272152_ 2))) - (error "Context expects 2 values" _g272152_))) - (let ((_clauses255254_ + (##fx= _g274947_ 2))) + (error "Context expects 2 values" _g274947_))) + (let ((_clauses257949_ (let () (declare (not safe)) - (##vector-ref _g272151_ 0))) - (_konts255255_ + (##vector-ref _g274946_ 0))) + (_konts257950_ (let () (declare (not safe)) - (##vector-ref _g272151_ 1)))) - (let* ((_clauses255264_ - (map (lambda (_g255256255259_ _g255257255261_) + (##vector-ref _g274946_ 1)))) + (let* ((_clauses257959_ + (map (lambda (_g257951257954_ _g257952257956_) (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _g255256255259_ - _g255257255261_ - _id255251_))) - _clauses255254_ - (let ((__tmp272155 - (let ((__tmp272156 - (car _negation255243_))) + _g257951257954_ + _g257952257956_ + _id257946_))) + _clauses257949_ + (let ((__tmp274950 + (let ((__tmp274951 + (car _negation257938_))) (declare (not safe)) - (cons __tmp272156 '()))) - (__tmp272154 - (map car (cdr _clauses255254_)))) + (cons __tmp274951 '()))) + (__tmp274949 + (map car (cdr _clauses257949_)))) (declare (not safe)) (foldr1 cons - __tmp272155 - __tmp272154)))) - (_clauses255266_ + __tmp274950 + __tmp274949)))) + (_clauses257961_ (let () (declare (not safe)) - (_normalize255246_ _clauses255264_))) - (_negation255268_ + (_normalize257941_ _clauses257959_))) + (_negation257963_ (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _negation255243_ + _negation257938_ '#f - _id255251_))) - (_body255270_ + _id257946_))) + (_body257965_ (let () (declare (not safe)) (gxc#optimize-match-body - _stx255241_ - _negation255268_ - _clauses255266_ - _konts255255_)))) - (let ((__tmp272157 - (let ((__tmp272158 - (let ((__tmp272160 - (let ((__tmp272161 - (let ((__tmp272163 + _stx257936_ + _negation257963_ + _clauses257961_ + _konts257950_)))) + (let ((__tmp274952 + (let ((__tmp274953 + (let ((__tmp274955 + (let ((__tmp274956 + (let ((__tmp274958 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id255251_ '()))) - (__tmp272162 - (let () (declare (not safe)) (cons _expr255242_ '())))) + (cons _id257946_ '()))) + (__tmp274957 + (let () (declare (not safe)) (cons _expr257937_ '())))) (declare (not safe)) - (cons __tmp272163 __tmp272162)))) + (cons __tmp274958 __tmp274957)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272161 '()))) - (__tmp272159 + (cons __tmp274956 '()))) + (__tmp274954 (let () (declare (not safe)) - (cons _body255270_ '())))) + (cons _body257965_ '())))) (declare (not safe)) - (cons __tmp272160 __tmp272159)))) + (cons __tmp274955 __tmp274954)))) (declare (not safe)) - (cons '%#let-values __tmp272158)))) + (cons '%#let-values __tmp274953)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp272157 - _stx255241_)))))))) - (__tmp272147 - (let ((__obj271738 + __tmp274952 + _stx257936_)))))))) + (__tmp274942 + (let ((__obj274533 (let () (declare (not safe)) (##structure @@ -14687,3729 +14687,3729 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj271738) - __obj271738))) + (gx#local-context:::init! __obj274533) + __obj274533))) (declare (not safe)) (call-with-parameters - __tmp272148 + __tmp274943 gx#current-expander-context - __tmp272147))))) + __tmp274942))))) (define gxc#optimize-syntax-case-clauses - (lambda (_clauses253999_ _negation-id254000_) - (letrec ((_xform-e254002_ - (lambda (_expr254386_ - _kont-id254387_ - _kont-box254388_ - _negation-id254389_) - (let* ((___stx271194271195_ _expr254386_) - (_g254395254528_ + (lambda (_clauses256694_ _negation-id256695_) + (letrec ((_xform-e256697_ + (lambda (_expr257081_ + _kont-id257082_ + _kont-box257083_ + _negation-id257084_) + (let* ((___stx273989273990_ _expr257081_) + (_g257090257223_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx271194271195_))))) - (let ((___kont271196271197_ - (lambda (_L255217_ _L255218_ _L255219_) - (let* ((_K255236_ + ___stx273989273990_))))) + (let ((___kont273991273992_ + (lambda (_L257912_ _L257913_ _L257914_) + (let* ((_K257931_ (let () (declare (not safe)) - (_xform-e254002_ - _L255218_ - _kont-id254387_ - _kont-box254388_ - _negation-id254389_))) - (__tmp272164 - (let ((__tmp272165 - (let ((__tmp272166 + (_xform-e256697_ + _L257913_ + _kont-id257082_ + _kont-box257083_ + _negation-id257084_))) + (__tmp274959 + (let ((__tmp274960 + (let ((__tmp274961 (let () (declare (not safe)) - (cons _L255217_ '())))) + (cons _L257912_ '())))) (declare (not safe)) - (cons _K255236_ __tmp272166)))) + (cons _K257931_ __tmp274961)))) (declare (not safe)) - (cons _L255219_ __tmp272165)))) + (cons _L257914_ __tmp274960)))) (declare (not safe)) - (cons '%#if __tmp272164)))) - (___kont271198271199_ - (lambda (_L255133_ - _L255134_ - _L255135_ - _L255136_ - _L255137_) - (let* ((_id255172_ - (let ((__tmp272167 (gensym '__splice))) + (cons '%#if __tmp274959)))) + (___kont273993273994_ + (lambda (_L257828_ + _L257829_ + _L257830_ + _L257831_ + _L257832_) + (let* ((_id257867_ + (let ((__tmp274962 (gensym '__splice))) (declare (not safe)) - (make-symbol__0 __tmp272167))) - (_id255174_ + (make-symbol__0 __tmp274962))) + (_id257869_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id255172_))) - (_g272168_ + (gx#core-quote-syntax__0 _id257867_))) + (_g274963_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id255174_))) - (_body255177_ + _id257869_))) + (_body257872_ (let () (declare (not safe)) - (_xform-e254002_ - _L255133_ - _kont-id254387_ - _kont-box254388_ - _negation-id254389_)))) - (let ((__tmp272169 - (let ((__tmp272194 - (let ((__tmp272195 - (let ((__tmp272203 + (_xform-e256697_ + _L257828_ + _kont-id257082_ + _kont-box257083_ + _negation-id257084_)))) + (let ((__tmp274964 + (let ((__tmp274989 + (let ((__tmp274990 + (let ((__tmp274998 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id255174_ '()))) - (__tmp272196 - (let ((__tmp272197 - (let ((__tmp272202 + (cons _id257869_ '()))) + (__tmp274991 + (let ((__tmp274992 + (let ((__tmp274997 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp272198 - (let ((__tmp272199 - (let ((__tmp272201 + (__tmp274993 + (let ((__tmp274994 + (let ((__tmp274996 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp272200 + (__tmp274995 (let () (declare (not safe)) - (cons _L255135_ '())))) + (cons _L257830_ '())))) (declare (not safe)) - (cons __tmp272201 __tmp272200)))) + (cons __tmp274996 __tmp274995)))) (declare (not safe)) - (cons __tmp272199 _L255134_)))) + (cons __tmp274994 _L257829_)))) (declare (not safe)) - (cons __tmp272202 __tmp272198)))) + (cons __tmp274997 __tmp274993)))) (declare (not safe)) - (cons __tmp272197 '())))) + (cons __tmp274992 '())))) (declare (not safe)) - (cons __tmp272203 __tmp272196)))) + (cons __tmp274998 __tmp274991)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272195 '()))) - (__tmp272170 - (let ((__tmp272171 - (let ((__tmp272172 - (let ((__tmp272174 + (cons __tmp274990 '()))) + (__tmp274965 + (let ((__tmp274966 + (let ((__tmp274967 + (let ((__tmp274969 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp272185 - (let ((__tmp272193 + (let ((__tmp274980 + (let ((__tmp274988 (let () (declare (not safe)) - (cons _L255137_ '()))) - (__tmp272186 - (let ((__tmp272187 - (let ((__tmp272188 - (let ((__tmp272189 - (let ((__tmp272191 + (cons _L257832_ '()))) + (__tmp274981 + (let ((__tmp274982 + (let ((__tmp274983 + (let ((__tmp274984 + (let ((__tmp274986 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp272192 + (let ((__tmp274987 (let () (declare (not safe)) - (cons _id255174_ '())))) + (cons _id257869_ '())))) (declare (not safe)) - (cons '%#ref __tmp272192))) - (__tmp272190 + (cons '%#ref __tmp274987))) + (__tmp274985 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp272191 __tmp272190)))) + (cons __tmp274986 __tmp274985)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp272189)))) + (cons '(%#ref ##vector-ref) __tmp274984)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp272188)))) + __tmp274983)))) (declare (not safe)) - (cons __tmp272187 '())))) + (cons __tmp274982 '())))) (declare (not safe)) - (cons __tmp272193 __tmp272186))) - (__tmp272175 - (let ((__tmp272176 - (let ((__tmp272184 + (cons __tmp274988 __tmp274981))) + (__tmp274970 + (let ((__tmp274971 + (let ((__tmp274979 (let () (declare (not safe)) - (cons _L255136_ '()))) - (__tmp272177 - (let ((__tmp272178 - (let ((__tmp272179 - (let ((__tmp272180 + (cons _L257831_ '()))) + (__tmp274972 + (let ((__tmp274973 + (let ((__tmp274974 + (let ((__tmp274975 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp272182 - (let ((__tmp272183 + (let ((__tmp274977 + (let ((__tmp274978 (let () (declare (not safe)) - (cons _id255174_ '())))) + (cons _id257869_ '())))) (declare (not safe)) - (cons '%#ref __tmp272183))) - (__tmp272181 + (cons '%#ref __tmp274978))) + (__tmp274976 (let () (declare (not safe)) (cons '(%#quote 1) '())))) (declare (not safe)) - (cons __tmp272182 __tmp272181)))) + (cons __tmp274977 __tmp274976)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp272180)))) + (cons '(%#ref ##vector-ref) __tmp274975)))) (declare (not safe)) - (cons '%#call __tmp272179)))) + (cons '%#call __tmp274974)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272178 '())))) + (cons __tmp274973 '())))) (declare (not safe)) - (cons __tmp272184 __tmp272177)))) + (cons __tmp274979 __tmp274972)))) (declare (not safe)) - (cons __tmp272176 '())))) + (cons __tmp274971 '())))) (declare (not safe)) - (cons __tmp272185 __tmp272175))) - (__tmp272173 + (cons __tmp274980 __tmp274970))) + (__tmp274968 (let () (declare (not safe)) - (cons _body255177_ '())))) + (cons _body257872_ '())))) (declare (not safe)) - (cons __tmp272174 __tmp272173)))) + (cons __tmp274969 __tmp274968)))) (declare (not safe)) - (cons '%#let-values __tmp272172)))) + (cons '%#let-values __tmp274967)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272171 '())))) + (cons __tmp274966 '())))) (declare (not safe)) - (cons __tmp272194 __tmp272170)))) + (cons __tmp274989 __tmp274965)))) (declare (not safe)) - (cons '%#let-values __tmp272169))))) - (___kont271200271201_ - (lambda (_L255015_ _L255016_) - (let* ((_body255030_ + (cons '%#let-values __tmp274964))))) + (___kont273995273996_ + (lambda (_L257710_ _L257711_) + (let* ((_body257725_ (let () (declare (not safe)) - (_xform-e254002_ - _L255015_ - _kont-id254387_ - _kont-box254388_ - _negation-id254389_))) - (__tmp272204 - (let ((__tmp272205 + (_xform-e256697_ + _L257710_ + _kont-id257082_ + _kont-box257083_ + _negation-id257084_))) + (__tmp274999 + (let ((__tmp275000 (let () (declare (not safe)) - (cons _body255030_ '())))) + (cons _body257725_ '())))) (declare (not safe)) - (cons _L255016_ __tmp272205)))) + (cons _L257711_ __tmp275000)))) (declare (not safe)) - (cons '%#let-values __tmp272204)))) - (___kont271202271203_ - (lambda (_L254959_ _L254960_ _L254961_) - (let* ((_lambda-expr254984_ + (cons '%#let-values __tmp274999)))) + (___kont273997273998_ + (lambda (_L257654_ _L257655_ _L257656_) + (let* ((_lambda-expr257679_ (let () (declare (not safe)) - (_xform-loop-e254003_ - _L254960_ - _kont-id254387_ - _kont-box254388_ - _negation-id254389_))) - (__tmp272206 - (let ((__tmp272208 - (let ((__tmp272209 - (let ((__tmp272211 + (_xform-loop-e256698_ + _L257655_ + _kont-id257082_ + _kont-box257083_ + _negation-id257084_))) + (__tmp275001 + (let ((__tmp275003 + (let ((__tmp275004 + (let ((__tmp275006 (let () (declare (not safe)) - (cons _L254961_ + (cons _L257656_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp272210 + (__tmp275005 (let () (declare (not safe)) - (cons _lambda-expr254984_ '())))) + (cons _lambda-expr257679_ '())))) (declare (not safe)) - (cons __tmp272211 __tmp272210)))) + (cons __tmp275006 __tmp275005)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272209 '()))) - (__tmp272207 + (cons __tmp275004 '()))) + (__tmp275002 (let () (declare (not safe)) - (cons _L254959_ '())))) + (cons _L257654_ '())))) (declare (not safe)) - (cons __tmp272208 __tmp272207)))) + (cons __tmp275003 __tmp275002)))) (declare (not safe)) - (cons '%#letrec-values __tmp272206)))) - (___kont271204271205_ - (lambda (_L254621_ _L254622_ _L254623_) - (let* ((___stx271096271097_ _L254622_) - (_g254652254695_ + (cons '%#letrec-values __tmp275001)))) + (___kont273999274000_ + (lambda (_L257316_ _L257317_ _L257318_) + (let* ((___stx273891273892_ _L257317_) + (_g257347257390_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx271096271097_))))) - (let ((___kont271098271099_ - (lambda (_L254811_ - _L254812_ - _L254813_ - _L254814_) - (let ((_kont254855_ - (let ((__tmp272216 + ___stx273891273892_))))) + (let ((___kont273893273894_ + (lambda (_L257506_ + _L257507_ + _L257508_ + _L257509_) + (let ((_kont257550_ + (let ((__tmp275011 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp272212 - (let ((__tmp272214 - (let ((__tmp272215 + (__tmp275007 + (let ((__tmp275009 + (let ((__tmp275010 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g254847254850_ _g254848254852_) + (lambda (_g257542257545_ _g257543257547_) (let () (declare (not safe)) - (cons _g254847254850_ _g254848254852_))))) + (cons _g257542257545_ _g257543257547_))))) (declare (not safe)) - (foldr1 __tmp272215 '() _L254623_))) - (__tmp272213 - (let () (declare (not safe)) (cons _L254813_ '())))) + (foldr1 __tmp275010 '() _L257318_))) + (__tmp275008 + (let () (declare (not safe)) (cons _L257508_ '())))) (declare (not safe)) - (cons __tmp272214 __tmp272213)))) + (cons __tmp275009 __tmp275008)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272216 - __tmp272212)))) + (cons __tmp275011 + __tmp275007)))) (set-box! - _kont-box254388_ - _kont254855_) - (let* ((_kont-args254866_ - (map (lambda (_id254857_) - (let ((__tmp272217 + _kont-box257083_ + _kont257550_) + (let* ((_kont-args257561_ + (map (lambda (_id257552_) + (let ((__tmp275012 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id254857_ '())))) + (let () (declare (not safe)) (cons _id257552_ '())))) (declare (not safe)) - (cons '%#ref __tmp272217))) - (let ((__tmp272218 - (lambda (_g254858254861_ _g254859254863_) + (cons '%#ref __tmp275012))) + (let ((__tmp275013 + (lambda (_g257553257556_ _g257554257558_) (let () (declare (not safe)) - (cons _g254858254861_ _g254859254863_))))) + (cons _g257553257556_ _g257554257558_))))) (declare (not safe)) - (foldr1 __tmp272218 '() _L254623_)))) + (foldr1 __tmp275013 '() _L257318_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_body254868_ - (let ((__tmp272219 - (let ((__tmp272220 + (_body257563_ + (let ((__tmp275014 + (let ((__tmp275015 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp272232 - (let ((__tmp272233 - (let ((__tmp272234 - (let ((__tmp272235 + (let ((__tmp275027 + (let ((__tmp275028 + (let ((__tmp275029 + (let ((__tmp275030 (let () (declare (not safe)) - (cons _kont-id254387_ + (cons _kont-id257082_ '())))) (declare (not safe)) - (cons '%#ref __tmp272235)))) + (cons '%#ref __tmp275030)))) (declare (not safe)) - (cons __tmp272234 - _kont-args254866_)))) + (cons __tmp275029 + _kont-args257561_)))) (declare (not safe)) - (cons '%#call __tmp272233))) - (__tmp272221 - (let ((__tmp272222 - (let ((__tmp272231 + (cons '%#call __tmp275028))) + (__tmp275016 + (let ((__tmp275017 + (let ((__tmp275026 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp272223 - (let ((__tmp272228 - (let ((__tmp272230 + (__tmp275018 + (let ((__tmp275023 + (let ((__tmp275025 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp272229 - (let () (declare (not safe)) (cons _L254812_ '())))) + (__tmp275024 + (let () (declare (not safe)) (cons _L257507_ '())))) (declare (not safe)) - (cons __tmp272230 __tmp272229))) + (cons __tmp275025 __tmp275024))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp272224 - (let ((__tmp272225 - (let ((__tmp272227 + (__tmp275019 + (let ((__tmp275020 + (let ((__tmp275022 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp272226 + (__tmp275021 (let () (declare (not safe)) - (cons _L254811_ '())))) + (cons _L257506_ '())))) (declare (not safe)) - (cons __tmp272227 __tmp272226)))) + (cons __tmp275022 __tmp275021)))) (declare (not safe)) - (cons __tmp272225 '())))) + (cons __tmp275020 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272228 - __tmp272224)))) + (cons __tmp275023 + __tmp275019)))) (declare (not safe)) - (cons __tmp272231 __tmp272223)))) + (cons __tmp275026 __tmp275018)))) (declare (not safe)) - (cons __tmp272222 '())))) + (cons __tmp275017 '())))) (declare (not safe)) - (cons __tmp272232 __tmp272221)))) + (cons __tmp275027 __tmp275016)))) (declare (not safe)) - (cons _L254814_ __tmp272220)))) + (cons _L257509_ __tmp275015)))) (declare (not safe)) - (cons '%#if __tmp272219)))) + (cons '%#if __tmp275014)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp272243 - (let ((__tmp272244 - (lambda (_g254870254873_ + (if (let ((__tmp275038 + (let ((__tmp275039 + (lambda (_g257565257568_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g254871254875_) + _g257566257570_) (let () (declare (not safe)) - (cons _g254870254873_ _g254871254875_))))) + (cons _g257565257568_ _g257566257570_))))) (declare (not safe)) - (foldr1 __tmp272244 '() _L254623_)))) + (foldr1 __tmp275039 '() _L257318_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp272243)) - _body254868_ - (let ((__tmp272236 - (let ((__tmp272238 - (map (lambda (_id254878_ + (null? __tmp275038)) + _body257563_ + (let ((__tmp275031 + (let ((__tmp275033 + (map (lambda (_id257573_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _arg254879_) - (let ((__tmp272240 + _arg257574_) + (let ((__tmp275035 (let () (declare (not safe)) - (cons _id254878_ '()))) - (__tmp272239 + (cons _id257573_ '()))) + (__tmp275034 (let () (declare (not safe)) - (cons _arg254879_ '())))) + (cons _arg257574_ '())))) (declare (not safe)) - (cons __tmp272240 __tmp272239))) - (let ((__tmp272241 - (lambda (_g254880254883_ _g254881254885_) + (cons __tmp275035 __tmp275034))) + (let ((__tmp275036 + (lambda (_g257575257578_ _g257576257580_) (let () (declare (not safe)) - (cons _g254880254883_ - _g254881254885_))))) + (cons _g257575257578_ + _g257576257580_))))) (declare (not safe)) - (foldr1 __tmp272241 '() _L254623_)) - (let ((__tmp272242 - (lambda (_g254887254890_ _g254888254892_) + (foldr1 __tmp275036 '() _L257318_)) + (let ((__tmp275037 + (lambda (_g257582257585_ _g257583257587_) (let () (declare (not safe)) - (cons _g254887254890_ - _g254888254892_))))) + (cons _g257582257585_ + _g257583257587_))))) (declare (not safe)) - (foldr1 __tmp272242 '() _L254621_)))) - (__tmp272237 - (let () (declare (not safe)) (cons _body254868_ '())))) + (foldr1 __tmp275037 '() _L257316_)))) + (__tmp275032 + (let () (declare (not safe)) (cons _body257563_ '())))) (declare (not safe)) - (cons __tmp272238 __tmp272237)))) + (cons __tmp275033 __tmp275032)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp272236))))))) - (___kont271100271101_ + __tmp275031))))))) + (___kont273895273896_ (lambda () - (let ((_kont254709_ - (let ((__tmp272249 + (let ((_kont257404_ + (let ((__tmp275044 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp272245 - (let ((__tmp272247 - (let ((__tmp272248 + (__tmp275040 + (let ((__tmp275042 + (let ((__tmp275043 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g254701254704_ _g254702254706_) + (lambda (_g257396257399_ _g257397257401_) (let () (declare (not safe)) - (cons _g254701254704_ _g254702254706_))))) + (cons _g257396257399_ _g257397257401_))))) (declare (not safe)) - (foldr1 __tmp272248 '() _L254623_))) - (__tmp272246 - (let () (declare (not safe)) (cons _L254622_ '())))) + (foldr1 __tmp275043 '() _L257318_))) + (__tmp275041 + (let () (declare (not safe)) (cons _L257317_ '())))) (declare (not safe)) - (cons __tmp272247 __tmp272246)))) + (cons __tmp275042 __tmp275041)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272249 - __tmp272245)))) + (cons __tmp275044 + __tmp275040)))) (set-box! - _kont-box254388_ - _kont254709_) - (let ((__tmp272250 - (let ((__tmp272253 - (let ((__tmp272254 + _kont-box257083_ + _kont257404_) + (let ((__tmp275045 + (let ((__tmp275048 + (let ((__tmp275049 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kont-id254387_ '())))) + (cons _kont-id257082_ '())))) (declare (not safe)) - (cons '%#ref __tmp272254))) - (__tmp272251 - (let ((__tmp272252 - (lambda (_g254710254713_ _g254711254715_) + (cons '%#ref __tmp275049))) + (__tmp275046 + (let ((__tmp275047 + (lambda (_g257405257408_ _g257406257410_) (let () (declare (not safe)) - (cons _g254710254713_ _g254711254715_))))) + (cons _g257405257408_ _g257406257410_))))) (declare (not safe)) - (foldr1 __tmp272252 '() _L254621_)))) + (foldr1 __tmp275047 '() _L257316_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272253 - __tmp272251)))) + (cons __tmp275048 + __tmp275046)))) (declare (not safe)) - (cons '%#call __tmp272250)))))) - (let ((___match271191271192_ - (lambda (_e254660254723_ - _hd254659254726_ - _tl254658254728_ - _e254663254731_ - _hd254662254734_ - _tl254661254736_ - _e254666254739_ - _hd254665254742_ - _tl254664254744_ - _e254669254747_ - _hd254668254750_ - _tl254667254752_ - _e254672254755_ - _hd254671254758_ - _tl254670254760_ - _e254675254763_ - _hd254674254766_ - _tl254673254768_ - _e254678254771_ - _hd254677254774_ - _tl254676254776_ - _e254681254779_ - _hd254680254782_ - _tl254679254784_ - _e254684254787_ - _hd254683254790_ - _tl254682254792_ - _e254687254795_ - _hd254686254798_ - _tl254685254800_ - _e254690254803_ - _hd254689254806_ - _tl254688254808_) - (let ((_L254811_ _hd254689254806_) - (_L254812_ _hd254680254782_) - (_L254813_ _hd254665254742_) - (_L254814_ _hd254662254734_)) + (cons '%#call __tmp275045)))))) + (let ((___match273986273987_ + (lambda (_e257355257418_ + _hd257354257421_ + _tl257353257423_ + _e257358257426_ + _hd257357257429_ + _tl257356257431_ + _e257361257434_ + _hd257360257437_ + _tl257359257439_ + _e257364257442_ + _hd257363257445_ + _tl257362257447_ + _e257367257450_ + _hd257366257453_ + _tl257365257455_ + _e257370257458_ + _hd257369257461_ + _tl257368257463_ + _e257373257466_ + _hd257372257469_ + _tl257371257471_ + _e257376257474_ + _hd257375257477_ + _tl257374257479_ + _e257379257482_ + _hd257378257485_ + _tl257377257487_ + _e257382257490_ + _hd257381257493_ + _tl257380257495_ + _e257385257498_ + _hd257384257501_ + _tl257383257503_) + (let ((_L257506_ _hd257384257501_) + (_L257507_ _hd257375257477_) + (_L257508_ _hd257360257437_) + (_L257509_ _hd257357257429_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L254812_ - _negation-id254389_)) - (___kont271098271099_ - _L254811_ - _L254812_ - _L254813_ - _L254814_) - (___kont271100271101_)))))) + _L257507_ + _negation-id257084_)) + (___kont273893273894_ + _L257506_ + _L257507_ + _L257508_ + _L257509_) + (___kont273895273896_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx271096271097_)) - (let ((_e254660254723_ + (gx#stx-pair? ___stx273891273892_)) + (let ((_e257355257418_ (let () (declare (not safe)) (gx#stx-e - ___stx271096271097_)))) - (let ((_tl254658254728_ + ___stx273891273892_)))) + (let ((_tl257353257423_ (let () (declare (not safe)) - (##cdr _e254660254723_))) - (_hd254659254726_ + (##cdr _e257355257418_))) + (_hd257354257421_ (let () (declare (not safe)) - (##car _e254660254723_)))) + (##car _e257355257418_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd254659254726_)) + _hd257354257421_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd254659254726_)) + _hd257354257421_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254658254728_)) - (let ((_e254663254731_ + _tl257353257423_)) + (let ((_e257358257426_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl254658254728_)))) - (let ((_tl254661254736_ + (gx#stx-e _tl257353257423_)))) + (let ((_tl257356257431_ (let () (declare (not safe)) - (##cdr _e254663254731_))) - (_hd254662254734_ + (##cdr _e257358257426_))) + (_hd257357257429_ (let () (declare (not safe)) - (##car _e254663254731_)))) + (##car _e257358257426_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254661254736_)) - (let ((_e254666254739_ + (gx#stx-pair? _tl257356257431_)) + (let ((_e257361257434_ (let () (declare (not safe)) - (gx#stx-e _tl254661254736_)))) - (let ((_tl254664254744_ + (gx#stx-e _tl257356257431_)))) + (let ((_tl257359257439_ (let () (declare (not safe)) - (##cdr _e254666254739_))) - (_hd254665254742_ + (##cdr _e257361257434_))) + (_hd257360257437_ (let () (declare (not safe)) - (##car _e254666254739_)))) + (##car _e257361257434_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254664254744_)) - (let ((_e254669254747_ + (gx#stx-pair? _tl257359257439_)) + (let ((_e257364257442_ (let () (declare (not safe)) - (gx#stx-e _tl254664254744_)))) - (let ((_tl254667254752_ + (gx#stx-e _tl257359257439_)))) + (let ((_tl257362257447_ (let () (declare (not safe)) - (##cdr _e254669254747_))) - (_hd254668254750_ + (##cdr _e257364257442_))) + (_hd257363257445_ (let () (declare (not safe)) - (##car _e254669254747_)))) + (##car _e257364257442_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254668254750_)) - (let ((_e254672254755_ + (gx#stx-pair? _hd257363257445_)) + (let ((_e257367257450_ (let () (declare (not safe)) (gx#stx-e - _hd254668254750_)))) - (let ((_tl254670254760_ + _hd257363257445_)))) + (let ((_tl257365257455_ (let () (declare (not safe)) - (##cdr _e254672254755_))) - (_hd254671254758_ + (##cdr _e257367257450_))) + (_hd257366257453_ (let () (declare (not safe)) - (##car _e254672254755_)))) + (##car _e257367257450_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd254671254758_)) + _hd257366257453_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd254671254758_)) + _hd257366257453_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254670254760_)) - (let ((_e254675254763_ + _tl257365257455_)) + (let ((_e257370257458_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl254670254760_)))) - (let ((_tl254673254768_ + (gx#stx-e _tl257365257455_)))) + (let ((_tl257368257463_ (let () (declare (not safe)) - (##cdr _e254675254763_))) - (_hd254674254766_ + (##cdr _e257370257458_))) + (_hd257369257461_ (let () (declare (not safe)) - (##car _e254675254763_)))) + (##car _e257370257458_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254674254766_)) - (let ((_e254678254771_ + (gx#stx-pair? _hd257369257461_)) + (let ((_e257373257466_ (let () (declare (not safe)) - (gx#stx-e _hd254674254766_)))) - (let ((_tl254676254776_ + (gx#stx-e _hd257369257461_)))) + (let ((_tl257371257471_ (let () (declare (not safe)) - (##cdr _e254678254771_))) - (_hd254677254774_ + (##cdr _e257373257466_))) + (_hd257372257469_ (let () (declare (not safe)) - (##car _e254678254771_)))) + (##car _e257373257466_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd254677254774_)) + (gx#identifier? _hd257372257469_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd254677254774_)) + (gx#stx-eq? '%#ref _hd257372257469_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254676254776_)) - (let ((_e254681254779_ + (gx#stx-pair? _tl257371257471_)) + (let ((_e257376257474_ (let () (declare (not safe)) (gx#stx-e - _tl254676254776_)))) - (let ((_tl254679254784_ + _tl257371257471_)))) + (let ((_tl257374257479_ (let () (declare (not safe)) - (##cdr _e254681254779_))) - (_hd254680254782_ + (##cdr _e257376257474_))) + (_hd257375257477_ (let () (declare (not safe)) - (##car _e254681254779_)))) + (##car _e257376257474_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254679254784_)) + _tl257374257479_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254673254768_)) - (let ((_e254684254787_ + _tl257368257463_)) + (let ((_e257379257482_ (let () (declare (not safe)) (gx#stx-e - _tl254673254768_)))) - (let ((_tl254682254792_ + _tl257368257463_)))) + (let ((_tl257377257487_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e254684254787_))) - (_hd254683254790_ - (let () (declare (not safe)) (##car _e254684254787_)))) + (##cdr _e257379257482_))) + (_hd257378257485_ + (let () (declare (not safe)) (##car _e257379257482_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254683254790_)) - (let ((_e254687254795_ + (gx#stx-pair? _hd257378257485_)) + (let ((_e257382257490_ (let () (declare (not safe)) - (gx#stx-e _hd254683254790_)))) - (let ((_tl254685254800_ + (gx#stx-e _hd257378257485_)))) + (let ((_tl257380257495_ (let () (declare (not safe)) - (##cdr _e254687254795_))) - (_hd254686254798_ + (##cdr _e257382257490_))) + (_hd257381257493_ (let () (declare (not safe)) - (##car _e254687254795_)))) + (##car _e257382257490_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd254686254798_)) + (gx#identifier? _hd257381257493_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd254686254798_)) + (gx#stx-eq? '%#ref _hd257381257493_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254685254800_)) - (let ((_e254690254803_ + (gx#stx-pair? _tl257380257495_)) + (let ((_e257385257498_ (let () (declare (not safe)) - (gx#stx-e _tl254685254800_)))) - (let ((_tl254688254808_ + (gx#stx-e _tl257380257495_)))) + (let ((_tl257383257503_ (let () (declare (not safe)) - (##cdr _e254690254803_))) - (_hd254689254806_ + (##cdr _e257385257498_))) + (_hd257384257501_ (let () (declare (not safe)) - (##car _e254690254803_)))) + (##car _e257385257498_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254688254808_)) + (gx#stx-null? _tl257383257503_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl254682254792_)) + _tl257377257487_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl254667254752_)) - (___match271191271192_ - _e254660254723_ - _hd254659254726_ - _tl254658254728_ - _e254663254731_ - _hd254662254734_ - _tl254661254736_ - _e254666254739_ - _hd254665254742_ - _tl254664254744_ - _e254669254747_ - _hd254668254750_ - _tl254667254752_ - _e254672254755_ - _hd254671254758_ - _tl254670254760_ - _e254675254763_ - _hd254674254766_ - _tl254673254768_ - _e254678254771_ - _hd254677254774_ - _tl254676254776_ - _e254681254779_ - _hd254680254782_ - _tl254679254784_ - _e254684254787_ - _hd254683254790_ - _tl254682254792_ - _e254687254795_ - _hd254686254798_ - _tl254685254800_ - _e254690254803_ - _hd254689254806_ - _tl254688254808_) - (___kont271100271101_)) - (___kont271100271101_)) - (___kont271100271101_)))) - (___kont271100271101_)) - (___kont271100271101_)) - (___kont271100271101_)))) - (___kont271100271101_)))) + _tl257362257447_)) + (___match273986273987_ + _e257355257418_ + _hd257354257421_ + _tl257353257423_ + _e257358257426_ + _hd257357257429_ + _tl257356257431_ + _e257361257434_ + _hd257360257437_ + _tl257359257439_ + _e257364257442_ + _hd257363257445_ + _tl257362257447_ + _e257367257450_ + _hd257366257453_ + _tl257365257455_ + _e257370257458_ + _hd257369257461_ + _tl257368257463_ + _e257373257466_ + _hd257372257469_ + _tl257371257471_ + _e257376257474_ + _hd257375257477_ + _tl257374257479_ + _e257379257482_ + _hd257378257485_ + _tl257377257487_ + _e257382257490_ + _hd257381257493_ + _tl257380257495_ + _e257385257498_ + _hd257384257501_ + _tl257383257503_) + (___kont273895273896_)) + (___kont273895273896_)) + (___kont273895273896_)))) + (___kont273895273896_)) + (___kont273895273896_)) + (___kont273895273896_)))) + (___kont273895273896_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont271100271101_)) - (___kont271100271101_)))) - (___kont271100271101_)) - (___kont271100271101_)) - (___kont271100271101_)))) - (___kont271100271101_)))) - (___kont271100271101_)) + (___kont273895273896_)) + (___kont273895273896_)))) + (___kont273895273896_)) + (___kont273895273896_)) + (___kont273895273896_)))) + (___kont273895273896_)))) + (___kont273895273896_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont271100271101_)) - (___kont271100271101_)))) - (___kont271100271101_)))) - (___kont271100271101_)))) - (___kont271100271101_)))) - (___kont271100271101_)) + (___kont273895273896_)) + (___kont273895273896_)))) + (___kont273895273896_)))) + (___kont273895273896_)))) + (___kont273895273896_)))) + (___kont273895273896_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont271100271101_)) - (___kont271100271101_)))) - (___kont271100271101_)))))))) - (let* ((___match271451271452_ - (lambda (_e254493254533_ - _hd254492254536_ - _tl254491254538_ - _e254496254541_ - _hd254495254544_ - _tl254494254546_ - _e254499254549_ - _hd254498254552_ - _tl254497254554_ - _e254502254557_ - _hd254501254560_ - _tl254500254562_ - ___splice271206271207_ - _target254503254565_ - _tl254505254567_) - (letrec ((_loop254506254570_ - (lambda (_hd254504254573_ - _id254510254575_) + (___kont273895273896_)) + (___kont273895273896_)))) + (___kont273895273896_)))))))) + (let* ((___match274246274247_ + (lambda (_e257188257228_ + _hd257187257231_ + _tl257186257233_ + _e257191257236_ + _hd257190257239_ + _tl257189257241_ + _e257194257244_ + _hd257193257247_ + _tl257192257249_ + _e257197257252_ + _hd257196257255_ + _tl257195257257_ + ___splice274001274002_ + _target257198257260_ + _tl257200257262_) + (letrec ((_loop257201257265_ + (lambda (_hd257199257268_ + _id257205257270_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd254504254573_)) - (let ((_e254507254578_ + _hd257199257268_)) + (let ((_e257202257273_ (let () (declare (not safe)) (gx#stx-e - _hd254504254573_)))) - (let ((_lp-tl254509254583_ + _hd257199257268_)))) + (let ((_lp-tl257204257278_ (let () (declare (not safe)) - (##cdr _e254507254578_))) - (_lp-hd254508254581_ + (##cdr _e257202257273_))) + (_lp-hd257203257276_ (let () (declare (not safe)) - (##car _e254507254578_)))) - (let ((__tmp272256 + (##car _e257202257273_)))) + (let ((__tmp275051 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd254508254581_ _id254510254575_)))) + (cons _lp-hd257203257276_ _id257205257270_)))) (declare (not safe)) - (_loop254506254570_ _lp-tl254509254583_ __tmp272256)))) + (_loop257201257265_ _lp-tl257204257278_ __tmp275051)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id254511254586_ - (reverse _id254510254575_))) + (let ((_id257206257281_ + (reverse _id257205257270_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254500254562_)) - (let ((_e254514254589_ + _tl257195257257_)) + (let ((_e257209257284_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl254500254562_)))) - (let ((_tl254512254594_ - (let () (declare (not safe)) (##cdr _e254514254589_))) - (_hd254513254592_ + (gx#stx-e _tl257195257257_)))) + (let ((_tl257207257289_ + (let () (declare (not safe)) (##cdr _e257209257284_))) + (_hd257208257287_ (let () (declare (not safe)) - (##car _e254514254589_)))) + (##car _e257209257284_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254512254594_)) + (gx#stx-null? _tl257207257289_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl254494254546_)) - (let ((___splice271208271209_ + (gx#stx-pair/null? _tl257189257241_)) + (let ((___splice274003274004_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl254494254546_ + _tl257189257241_ '0)))) - (let ((_tl254517254599_ + (let ((_tl257212257294_ (let () (declare (not safe)) (##vector-ref - ___splice271208271209_ + ___splice274003274004_ '1))) - (_target254515254597_ + (_target257210257292_ (let () (declare (not safe)) (##vector-ref - ___splice271208271209_ + ___splice274003274004_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254517254599_)) - (letrec ((_loop254518254602_ - (lambda (_hd254516254605_ - _arg254522254607_) + (gx#stx-null? _tl257212257294_)) + (letrec ((_loop257213257297_ + (lambda (_hd257211257300_ + _arg257217257302_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd254516254605_)) - (let ((_e254519254610_ + _hd257211257300_)) + (let ((_e257214257305_ (let () (declare (not safe)) (gx#stx-e - _hd254516254605_)))) - (let ((_lp-tl254521254615_ + _hd257211257300_)))) + (let ((_lp-tl257216257310_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e254519254610_))) - (_lp-hd254520254613_ - (let () (declare (not safe)) (##car _e254519254610_)))) - (let ((__tmp272255 + (##cdr _e257214257305_))) + (_lp-hd257215257308_ + (let () (declare (not safe)) (##car _e257214257305_)))) + (let ((__tmp275050 (let () (declare (not safe)) - (cons _lp-hd254520254613_ _arg254522254607_)))) + (cons _lp-hd257215257308_ _arg257217257302_)))) (declare (not safe)) - (_loop254518254602_ _lp-tl254521254615_ __tmp272255)))) + (_loop257213257297_ _lp-tl257216257310_ __tmp275050)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg254523254618_ - (reverse _arg254522254607_))) - (___kont271204271205_ - _arg254523254618_ - _hd254513254592_ - _id254511254586_)))))) + (let ((_arg257218257313_ + (reverse _arg257217257302_))) + (___kont273999274000_ + _arg257218257313_ + _hd257208257287_ + _id257206257281_)))))) (let () (declare (not safe)) - (_loop254518254602_ - _target254515254597_ + (_loop257213257297_ + _target257210257292_ '()))) (let () (declare (not safe)) - (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_))) - (let () (declare (not safe)) (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_)))))))) + (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_))) + (let () (declare (not safe)) (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop254506254570_ - _target254503254565_ + (_loop257201257265_ + _target257198257260_ '()))))) - (___match271333271334_ - (lambda (_e254419255037_ - _hd254418255040_ - _tl254417255042_ - _e254422255045_ - _hd254421255048_ - _tl254420255050_ - _e254425255053_ - _hd254424255056_ - _tl254423255058_ - _e254428255061_ - _hd254427255064_ - _tl254426255066_ - _e254431255069_ - _hd254430255072_ - _tl254429255074_ - _e254434255077_ - _hd254433255080_ - _tl254432255082_ - _e254437255085_ - _hd254436255088_ - _tl254435255090_ - _e254440255093_ - _hd254439255096_ - _tl254438255098_ - _e254443255101_ - _hd254442255104_ - _tl254441255106_ - _e254446255109_ - _hd254445255112_ - _tl254444255114_ - _e254449255117_ - _hd254448255120_ - _tl254447255122_ - _e254452255125_ - _hd254451255128_ - _tl254450255130_) - (let ((_L255133_ _hd254451255128_) - (_L255134_ _tl254441255106_) - (_L255135_ _hd254448255120_) - (_L255136_ _hd254433255080_) - (_L255137_ _hd254430255072_)) + (___match274128274129_ + (lambda (_e257114257732_ + _hd257113257735_ + _tl257112257737_ + _e257117257740_ + _hd257116257743_ + _tl257115257745_ + _e257120257748_ + _hd257119257751_ + _tl257118257753_ + _e257123257756_ + _hd257122257759_ + _tl257121257761_ + _e257126257764_ + _hd257125257767_ + _tl257124257769_ + _e257129257772_ + _hd257128257775_ + _tl257127257777_ + _e257132257780_ + _hd257131257783_ + _tl257130257785_ + _e257135257788_ + _hd257134257791_ + _tl257133257793_ + _e257138257796_ + _hd257137257799_ + _tl257136257801_ + _e257141257804_ + _hd257140257807_ + _tl257139257809_ + _e257144257812_ + _hd257143257815_ + _tl257142257817_ + _e257147257820_ + _hd257146257823_ + _tl257145257825_) + (let ((_L257828_ _hd257146257823_) + (_L257829_ _tl257136257801_) + (_L257830_ _hd257143257815_) + (_L257831_ _hd257128257775_) + (_L257832_ _hd257125257767_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L255135_ + _L257830_ 'gx#syntax-split-splice)) - (___kont271198271199_ - _L255133_ - _L255134_ - _L255135_ - _L255136_ - _L255137_) - (___kont271200271201_ - _hd254451255128_ - _hd254421255048_)))))) + (___kont273993273994_ + _L257828_ + _L257829_ + _L257830_ + _L257831_ + _L257832_) + (___kont273995273996_ + _hd257146257823_ + _hd257116257743_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx271194271195_)) - (let ((_e254402255185_ + (gx#stx-pair? ___stx273989273990_)) + (let ((_e257097257880_ (let () (declare (not safe)) - (gx#stx-e ___stx271194271195_)))) - (let ((_tl254400255190_ + (gx#stx-e ___stx273989273990_)))) + (let ((_tl257095257885_ (let () (declare (not safe)) - (##cdr _e254402255185_))) - (_hd254401255188_ + (##cdr _e257097257880_))) + (_hd257096257883_ (let () (declare (not safe)) - (##car _e254402255185_)))) + (##car _e257097257880_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd254401255188_)) + (gx#identifier? _hd257096257883_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd254401255188_)) + _hd257096257883_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254400255190_)) - (let ((_e254405255193_ + _tl257095257885_)) + (let ((_e257100257888_ (let () (declare (not safe)) (gx#stx-e - _tl254400255190_)))) - (let ((_tl254403255198_ + _tl257095257885_)))) + (let ((_tl257098257893_ (let () (declare (not safe)) - (##cdr _e254405255193_))) - (_hd254404255196_ + (##cdr _e257100257888_))) + (_hd257099257891_ (let () (declare (not safe)) - (##car _e254405255193_)))) + (##car _e257100257888_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254403255198_)) - (let ((_e254408255201_ + _tl257098257893_)) + (let ((_e257103257896_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl254403255198_)))) - (let ((_tl254406255206_ - (let () (declare (not safe)) (##cdr _e254408255201_))) - (_hd254407255204_ - (let () (declare (not safe)) (##car _e254408255201_)))) + (gx#stx-e _tl257098257893_)))) + (let ((_tl257101257901_ + (let () (declare (not safe)) (##cdr _e257103257896_))) + (_hd257102257899_ + (let () (declare (not safe)) (##car _e257103257896_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254406255206_)) - (let ((_e254411255209_ + (gx#stx-pair? _tl257101257901_)) + (let ((_e257106257904_ (let () (declare (not safe)) - (gx#stx-e _tl254406255206_)))) - (let ((_tl254409255214_ + (gx#stx-e _tl257101257901_)))) + (let ((_tl257104257909_ (let () (declare (not safe)) - (##cdr _e254411255209_))) - (_hd254410255212_ + (##cdr _e257106257904_))) + (_hd257105257907_ (let () (declare (not safe)) - (##car _e254411255209_)))) + (##car _e257106257904_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254409255214_)) - (___kont271196271197_ - _hd254410255212_ - _hd254407255204_ - _hd254404255196_) + (gx#stx-null? _tl257104257909_)) + (___kont273991273992_ + _hd257105257907_ + _hd257102257899_ + _hd257099257891_) (let () (declare (not safe)) - (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_))))) + (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g254395254528_))) + (_g257090257223_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd254401255188_)) + _hd257096257883_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254400255190_)) - (let ((_e254422255045_ + _tl257095257885_)) + (let ((_e257117257740_ (let () (declare (not safe)) (gx#stx-e - _tl254400255190_)))) - (let ((_tl254420255050_ + _tl257095257885_)))) + (let ((_tl257115257745_ (let () (declare (not safe)) - (##cdr _e254422255045_))) - (_hd254421255048_ + (##cdr _e257117257740_))) + (_hd257116257743_ (let () (declare (not safe)) - (##car _e254422255045_)))) + (##car _e257117257740_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd254421255048_)) - (let ((_e254425255053_ + _hd257116257743_)) + (let ((_e257120257748_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd254421255048_)))) - (let ((_tl254423255058_ + (gx#stx-e _hd257116257743_)))) + (let ((_tl257118257753_ (let () (declare (not safe)) - (##cdr _e254425255053_))) - (_hd254424255056_ + (##cdr _e257120257748_))) + (_hd257119257751_ (let () (declare (not safe)) - (##car _e254425255053_)))) + (##car _e257120257748_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254424255056_)) - (let ((_e254428255061_ + (gx#stx-pair? _hd257119257751_)) + (let ((_e257123257756_ (let () (declare (not safe)) - (gx#stx-e _hd254424255056_)))) - (let ((_tl254426255066_ + (gx#stx-e _hd257119257751_)))) + (let ((_tl257121257761_ (let () (declare (not safe)) - (##cdr _e254428255061_))) - (_hd254427255064_ + (##cdr _e257123257756_))) + (_hd257122257759_ (let () (declare (not safe)) - (##car _e254428255061_)))) + (##car _e257123257756_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254427255064_)) - (let ((_e254431255069_ + (gx#stx-pair? _hd257122257759_)) + (let ((_e257126257764_ (let () (declare (not safe)) - (gx#stx-e _hd254427255064_)))) - (let ((_tl254429255074_ + (gx#stx-e _hd257122257759_)))) + (let ((_tl257124257769_ (let () (declare (not safe)) - (##cdr _e254431255069_))) - (_hd254430255072_ + (##cdr _e257126257764_))) + (_hd257125257767_ (let () (declare (not safe)) - (##car _e254431255069_)))) + (##car _e257126257764_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254429255074_)) - (let ((_e254434255077_ + (gx#stx-pair? _tl257124257769_)) + (let ((_e257129257772_ (let () (declare (not safe)) (gx#stx-e - _tl254429255074_)))) - (let ((_tl254432255082_ + _tl257124257769_)))) + (let ((_tl257127257777_ (let () (declare (not safe)) - (##cdr _e254434255077_))) - (_hd254433255080_ + (##cdr _e257129257772_))) + (_hd257128257775_ (let () (declare (not safe)) - (##car _e254434255077_)))) + (##car _e257129257772_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254432255082_)) + _tl257127257777_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254426255066_)) - (let ((_e254437255085_ + _tl257121257761_)) + (let ((_e257132257780_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl254426255066_)))) - (let ((_tl254435255090_ - (let () (declare (not safe)) (##cdr _e254437255085_))) - (_hd254436255088_ - (let () (declare (not safe)) (##car _e254437255085_)))) + (gx#stx-e _tl257121257761_)))) + (let ((_tl257130257785_ + (let () (declare (not safe)) (##cdr _e257132257780_))) + (_hd257131257783_ + (let () (declare (not safe)) (##car _e257132257780_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254436255088_)) - (let ((_e254440255093_ + (gx#stx-pair? _hd257131257783_)) + (let ((_e257135257788_ (let () (declare (not safe)) - (gx#stx-e _hd254436255088_)))) - (let ((_tl254438255098_ + (gx#stx-e _hd257131257783_)))) + (let ((_tl257133257793_ (let () (declare (not safe)) - (##cdr _e254440255093_))) - (_hd254439255096_ + (##cdr _e257135257788_))) + (_hd257134257791_ (let () (declare (not safe)) - (##car _e254440255093_)))) + (##car _e257135257788_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd254439255096_)) + (gx#identifier? _hd257134257791_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd254439255096_)) + (gx#stx-eq? '%#call _hd257134257791_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254438255098_)) - (let ((_e254443255101_ + (gx#stx-pair? _tl257133257793_)) + (let ((_e257138257796_ (let () (declare (not safe)) - (gx#stx-e _tl254438255098_)))) - (let ((_tl254441255106_ + (gx#stx-e _tl257133257793_)))) + (let ((_tl257136257801_ (let () (declare (not safe)) - (##cdr _e254443255101_))) - (_hd254442255104_ + (##cdr _e257138257796_))) + (_hd257137257799_ (let () (declare (not safe)) - (##car _e254443255101_)))) + (##car _e257138257796_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd254442255104_)) - (let ((_e254446255109_ + _hd257137257799_)) + (let ((_e257141257804_ (let () (declare (not safe)) (gx#stx-e - _hd254442255104_)))) - (let ((_tl254444255114_ + _hd257137257799_)))) + (let ((_tl257139257809_ (let () (declare (not safe)) - (##cdr _e254446255109_))) - (_hd254445255112_ + (##cdr _e257141257804_))) + (_hd257140257807_ (let () (declare (not safe)) - (##car _e254446255109_)))) + (##car _e257141257804_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd254445255112_)) + _hd257140257807_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd254445255112_)) + _hd257140257807_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl254444255114_)) - (let ((_e254449255117_ + (gx#stx-pair? _tl257139257809_)) + (let ((_e257144257812_ (let () (declare (not safe)) - (gx#stx-e _tl254444255114_)))) - (let ((_tl254447255122_ + (gx#stx-e _tl257139257809_)))) + (let ((_tl257142257817_ (let () (declare (not safe)) - (##cdr _e254449255117_))) - (_hd254448255120_ + (##cdr _e257144257812_))) + (_hd257143257815_ (let () (declare (not safe)) - (##car _e254449255117_)))) + (##car _e257144257812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254447255122_)) + (gx#stx-null? _tl257142257817_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl254435255090_)) + (gx#stx-null? _tl257130257785_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl254423255058_)) + (gx#stx-null? _tl257118257753_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254420255050_)) - (let ((_e254452255125_ + (gx#stx-pair? _tl257115257745_)) + (let ((_e257147257820_ (let () (declare (not safe)) (gx#stx-e - _tl254420255050_)))) - (let ((_tl254450255130_ + _tl257115257745_)))) + (let ((_tl257145257825_ (let () (declare (not safe)) - (##cdr _e254452255125_))) - (_hd254451255128_ + (##cdr _e257147257820_))) + (_hd257146257823_ (let () (declare (not safe)) - (##car _e254452255125_)))) + (##car _e257147257820_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254450255130_)) - (___match271333271334_ - _e254402255185_ - _hd254401255188_ - _tl254400255190_ - _e254422255045_ - _hd254421255048_ - _tl254420255050_ - _e254425255053_ - _hd254424255056_ - _tl254423255058_ - _e254428255061_ - _hd254427255064_ - _tl254426255066_ - _e254431255069_ - _hd254430255072_ - _tl254429255074_ - _e254434255077_ - _hd254433255080_ - _tl254432255082_ - _e254437255085_ - _hd254436255088_ - _tl254435255090_ - _e254440255093_ - _hd254439255096_ - _tl254438255098_ - _e254443255101_ - _hd254442255104_ - _tl254441255106_ - _e254446255109_ - _hd254445255112_ - _tl254444255114_ - _e254449255117_ - _hd254448255120_ - _tl254447255122_ - _e254452255125_ - _hd254451255128_ - _tl254450255130_) + _tl257145257825_)) + (___match274128274129_ + _e257097257880_ + _hd257096257883_ + _tl257095257885_ + _e257117257740_ + _hd257116257743_ + _tl257115257745_ + _e257120257748_ + _hd257119257751_ + _tl257118257753_ + _e257123257756_ + _hd257122257759_ + _tl257121257761_ + _e257126257764_ + _hd257125257767_ + _tl257124257769_ + _e257129257772_ + _hd257128257775_ + _tl257127257777_ + _e257132257780_ + _hd257131257783_ + _tl257130257785_ + _e257135257788_ + _hd257134257791_ + _tl257133257793_ + _e257138257796_ + _hd257137257799_ + _tl257136257801_ + _e257141257804_ + _hd257140257807_ + _tl257139257809_ + _e257144257812_ + _hd257143257815_ + _tl257142257817_ + _e257147257820_ + _hd257146257823_ + _tl257145257825_) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_))) + (_g257090257223_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) (gx#stx-e - _tl254420255050_)))) - (let ((_tl254461255012_ + _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_)))) + (_g257090257223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) - (gx#stx-e _tl254420255050_)))) - (let ((_tl254461255012_ + (gx#stx-e _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_)))) + (_g257090257223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) - (gx#stx-e _tl254420255050_)))) - (let ((_tl254461255012_ + (gx#stx-e _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + (gx#stx-null? _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_)))))) + (_g257090257223_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) - (gx#stx-e _tl254420255050_)))) - (let ((_tl254461255012_ + (gx#stx-e _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + (gx#stx-null? _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_)))) + (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) - (gx#stx-e _tl254420255050_)))) - (let ((_tl254461255012_ + (gx#stx-e _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + (gx#stx-null? _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_)))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) - (gx#stx-e _tl254420255050_)))) - (let ((_tl254461255012_ + (gx#stx-e _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) - (let () (declare (not safe)) (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_)))))) + (gx#stx-null? _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) + (let () (declare (not safe)) (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl254420255050_)) - (let ((_e254463255007_ + _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) (gx#stx-e - _tl254420255050_)))) - (let ((_tl254461255012_ + _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_)))))) + (_g257090257223_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) (gx#stx-e - _tl254420255050_)))) - (let ((_tl254461255012_ + _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_)))) + (_g257090257223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) - (gx#stx-e _tl254420255050_)))) - (let ((_tl254461255012_ + (gx#stx-e _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_)))) + (_g257090257223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) - (gx#stx-e _tl254420255050_)))) - (let ((_tl254461255012_ + (gx#stx-e _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + (gx#stx-null? _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_)))))) + (_g257090257223_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) - (gx#stx-e _tl254420255050_)))) - (let ((_tl254461255012_ + (gx#stx-e _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + (gx#stx-null? _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_)))))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_)))))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) - (gx#stx-e _tl254420255050_)))) - (let ((_tl254461255012_ + (gx#stx-e _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) - (let () (declare (not safe)) (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_)))) + (gx#stx-null? _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) + (let () (declare (not safe)) (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl254420255050_)) - (let ((_e254463255007_ + _tl257115257745_)) + (let ((_e257158257702_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl254420255050_)))) - (let ((_tl254461255012_ - (let () (declare (not safe)) (##cdr _e254463255007_))) - (_hd254462255010_ - (let () (declare (not safe)) (##car _e254463255007_)))) + (gx#stx-e _tl257115257745_)))) + (let ((_tl257156257707_ + (let () (declare (not safe)) (##cdr _e257158257702_))) + (_hd257157257705_ + (let () (declare (not safe)) (##car _e257158257702_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254461255012_)) - (___kont271200271201_ _hd254462255010_ _hd254421255048_) - (let () (declare (not safe)) (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_)))))) + (gx#stx-null? _tl257156257707_)) + (___kont273995273996_ _hd257157257705_ _hd257116257743_) + (let () (declare (not safe)) (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl254420255050_)) - (let ((_e254463255007_ + _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) (gx#stx-e - _tl254420255050_)))) - (let ((_tl254461255012_ + _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_)))))) + (_g257090257223_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) - (gx#stx-e _tl254420255050_)))) - (let ((_tl254461255012_ + (gx#stx-e _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_)))))) + (_g257090257223_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) - (gx#stx-e _tl254420255050_)))) - (let ((_tl254461255012_ + (gx#stx-e _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + (gx#stx-null? _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_)))))) + (_g257090257223_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254420255050_)) - (let ((_e254463255007_ + (gx#stx-pair? _tl257115257745_)) + (let ((_e257158257702_ (let () (declare (not safe)) - (gx#stx-e _tl254420255050_)))) - (let ((_tl254461255012_ + (gx#stx-e _tl257115257745_)))) + (let ((_tl257156257707_ (let () (declare (not safe)) - (##cdr _e254463255007_))) - (_hd254462255010_ + (##cdr _e257158257702_))) + (_hd257157257705_ (let () (declare (not safe)) - (##car _e254463255007_)))) + (##car _e257158257702_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254461255012_)) - (___kont271200271201_ - _hd254462255010_ - _hd254421255048_) + (gx#stx-null? _tl257156257707_)) + (___kont273995273996_ + _hd257157257705_ + _hd257116257743_) (let () (declare (not safe)) - (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_)))))) + (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g254395254528_))) + (_g257090257223_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd254401255188_)) + _hd257096257883_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254400255190_)) - (let ((_e254472254911_ + _tl257095257885_)) + (let ((_e257167257606_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl254400255190_)))) - (let ((_tl254470254916_ - (let () (declare (not safe)) (##cdr _e254472254911_))) - (_hd254471254914_ - (let () (declare (not safe)) (##car _e254472254911_)))) + (gx#stx-e _tl257095257885_)))) + (let ((_tl257165257611_ + (let () (declare (not safe)) (##cdr _e257167257606_))) + (_hd257166257609_ + (let () (declare (not safe)) (##car _e257167257606_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254471254914_)) - (let ((_e254475254919_ + (gx#stx-pair? _hd257166257609_)) + (let ((_e257170257614_ (let () (declare (not safe)) - (gx#stx-e _hd254471254914_)))) - (let ((_tl254473254924_ + (gx#stx-e _hd257166257609_)))) + (let ((_tl257168257619_ (let () (declare (not safe)) - (##cdr _e254475254919_))) - (_hd254474254922_ + (##cdr _e257170257614_))) + (_hd257169257617_ (let () (declare (not safe)) - (##car _e254475254919_)))) + (##car _e257170257614_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254474254922_)) - (let ((_e254478254927_ + (gx#stx-pair? _hd257169257617_)) + (let ((_e257173257622_ (let () (declare (not safe)) - (gx#stx-e _hd254474254922_)))) - (let ((_tl254476254932_ + (gx#stx-e _hd257169257617_)))) + (let ((_tl257171257627_ (let () (declare (not safe)) - (##cdr _e254478254927_))) - (_hd254477254930_ + (##cdr _e257173257622_))) + (_hd257172257625_ (let () (declare (not safe)) - (##car _e254478254927_)))) + (##car _e257173257622_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254477254930_)) - (let ((_e254481254935_ + (gx#stx-pair? _hd257172257625_)) + (let ((_e257176257630_ (let () (declare (not safe)) - (gx#stx-e _hd254477254930_)))) - (let ((_tl254479254940_ + (gx#stx-e _hd257172257625_)))) + (let ((_tl257174257635_ (let () (declare (not safe)) - (##cdr _e254481254935_))) - (_hd254480254938_ + (##cdr _e257176257630_))) + (_hd257175257633_ (let () (declare (not safe)) - (##car _e254481254935_)))) + (##car _e257176257630_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254479254940_)) + _tl257174257635_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254476254932_)) - (let ((_e254484254943_ + _tl257171257627_)) + (let ((_e257179257638_ (let () (declare (not safe)) (gx#stx-e - _tl254476254932_)))) - (let ((_tl254482254948_ + _tl257171257627_)))) + (let ((_tl257177257643_ (let () (declare (not safe)) - (##cdr _e254484254943_))) - (_hd254483254946_ + (##cdr _e257179257638_))) + (_hd257178257641_ (let () (declare (not safe)) - (##car _e254484254943_)))) + (##car _e257179257638_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254482254948_)) + _tl257177257643_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl254473254924_)) + (gx#stx-null? _tl257168257619_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254470254916_)) - (let ((_e254487254951_ + (gx#stx-pair? _tl257165257611_)) + (let ((_e257182257646_ (let () (declare (not safe)) - (gx#stx-e _tl254470254916_)))) - (let ((_tl254485254956_ + (gx#stx-e _tl257165257611_)))) + (let ((_tl257180257651_ (let () (declare (not safe)) - (##cdr _e254487254951_))) - (_hd254486254954_ + (##cdr _e257182257646_))) + (_hd257181257649_ (let () (declare (not safe)) - (##car _e254487254951_)))) + (##car _e257182257646_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254485254956_)) - (___kont271202271203_ - _hd254486254954_ - _hd254483254946_ - _hd254480254938_) + (gx#stx-null? _tl257180257651_)) + (___kont273997273998_ + _hd257181257649_ + _hd257178257641_ + _hd257175257633_) (let () (declare (not safe)) - (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_))) - (let () (declare (not safe)) (_g254395254528_))) - (let () (declare (not safe)) (_g254395254528_))))) + (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_))) + (let () (declare (not safe)) (_g257090257223_))) + (let () (declare (not safe)) (_g257090257223_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g254395254528_))) + (_g257090257223_))) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_))) + (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd254401255188_)) + _hd257096257883_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254400255190_)) - (let ((_e254496254541_ + _tl257095257885_)) + (let ((_e257191257236_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl254400255190_)))) - (let ((_tl254494254546_ + (gx#stx-e _tl257095257885_)))) + (let ((_tl257189257241_ (let () (declare (not safe)) - (##cdr _e254496254541_))) - (_hd254495254544_ + (##cdr _e257191257236_))) + (_hd257190257239_ (let () (declare (not safe)) - (##car _e254496254541_)))) + (##car _e257191257236_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254495254544_)) - (let ((_e254499254549_ + (gx#stx-pair? _hd257190257239_)) + (let ((_e257194257244_ (let () (declare (not safe)) - (gx#stx-e _hd254495254544_)))) - (let ((_tl254497254554_ + (gx#stx-e _hd257190257239_)))) + (let ((_tl257192257249_ (let () (declare (not safe)) - (##cdr _e254499254549_))) - (_hd254498254552_ + (##cdr _e257194257244_))) + (_hd257193257247_ (let () (declare (not safe)) - (##car _e254499254549_)))) + (##car _e257194257244_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd254498254552_)) + (gx#identifier? _hd257193257247_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd254498254552_)) + _hd257193257247_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254497254554_)) - (let ((_e254502254557_ + (gx#stx-pair? _tl257192257249_)) + (let ((_e257197257252_ (let () (declare (not safe)) (gx#stx-e - _tl254497254554_)))) - (let ((_tl254500254562_ + _tl257192257249_)))) + (let ((_tl257195257257_ (let () (declare (not safe)) - (##cdr _e254502254557_))) - (_hd254501254560_ + (##cdr _e257197257252_))) + (_hd257196257255_ (let () (declare (not safe)) - (##car _e254502254557_)))) + (##car _e257197257252_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd254501254560_)) - (let ((___splice271206271207_ + _hd257196257255_)) + (let ((___splice274001274002_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd254501254560_ + _hd257196257255_ '0)))) - (let ((_tl254505254567_ + (let ((_tl257200257262_ (let () (declare (not safe)) (##vector-ref - ___splice271206271207_ + ___splice274001274002_ '1))) - (_target254503254565_ + (_target257198257260_ (let () (declare (not safe)) (##vector-ref - ___splice271206271207_ + ___splice274001274002_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254505254567_)) - (___match271451271452_ - _e254402255185_ - _hd254401255188_ - _tl254400255190_ - _e254496254541_ - _hd254495254544_ - _tl254494254546_ - _e254499254549_ - _hd254498254552_ - _tl254497254554_ - _e254502254557_ - _hd254501254560_ - _tl254500254562_ - ___splice271206271207_ - _target254503254565_ - _tl254505254567_) + _tl257200257262_)) + (___match274246274247_ + _e257097257880_ + _hd257096257883_ + _tl257095257885_ + _e257191257236_ + _hd257190257239_ + _tl257189257241_ + _e257194257244_ + _hd257193257247_ + _tl257192257249_ + _e257197257252_ + _hd257196257255_ + _tl257195257257_ + ___splice274001274002_ + _target257198257260_ + _tl257200257262_) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_))) + (_g257090257223_))) (let () (declare (not safe)) - (_g254395254528_))) + (_g257090257223_))) (let () (declare (not safe)) - (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_))))) - (let () (declare (not safe)) (_g254395254528_))) - (let () (declare (not safe)) (_g254395254528_)))))) + (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_))))) + (let () (declare (not safe)) (_g257090257223_))) + (let () (declare (not safe)) (_g257090257223_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g254395254528_))))) + (_g257090257223_))))) (let () (declare (not safe)) - (_g254395254528_)))))))) - (_xform-loop-e254003_ - (lambda (_expr254212_ - _kont-id254213_ - _kont-box254214_ - _negation-id254215_) - (let* ((_g254217254257_ - (lambda (_g254218254254_) + (_g257090257223_)))))))) + (_xform-loop-e256698_ + (lambda (_expr256907_ + _kont-id256908_ + _kont-box256909_ + _negation-id256910_) + (let* ((_g256912256952_ + (lambda (_g256913256949_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g254218254254_)))) - (_g254216254383_ - (lambda (_g254218254260_) + _g256913256949_)))) + (_g256911257078_ + (lambda (_g256913256955_) (if (let () (declare (not safe)) - (gx#stx-pair? _g254218254260_)) - (let ((_e254225254262_ + (gx#stx-pair? _g256913256955_)) + (let ((_e256920256957_ (let () (declare (not safe)) - (gx#stx-e _g254218254260_)))) - (let ((_hd254224254265_ + (gx#stx-e _g256913256955_)))) + (let ((_hd256919256960_ (let () (declare (not safe)) - (##car _e254225254262_))) - (_tl254223254267_ + (##car _e256920256957_))) + (_tl256918256962_ (let () (declare (not safe)) - (##cdr _e254225254262_)))) + (##cdr _e256920256957_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd254224254265_)) + (gx#identifier? _hd256919256960_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd254224254265_)) + _hd256919256960_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254223254267_)) - (let ((_e254228254270_ + _tl256918256962_)) + (let ((_e256923256965_ (let () (declare (not safe)) (gx#stx-e - _tl254223254267_)))) - (let ((_hd254227254273_ + _tl256918256962_)))) + (let ((_hd256922256968_ (let () (declare (not safe)) - (##car _e254228254270_))) - (_tl254226254275_ + (##car _e256923256965_))) + (_tl256921256970_ (let () (declare (not safe)) - (##cdr _e254228254270_)))) + (##cdr _e256923256965_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd254227254273_)) - (let ((_g272257_ + _hd256922256968_)) + (let ((_g275052_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd254227254273_ '0)))) + (gx#syntax-split-splice _hd256922256968_ '0)))) (begin - (let ((_g272258_ + (let ((_g275053_ (let () (declare (not safe)) - (if (##values? _g272257_) - (##vector-length _g272257_) + (if (##values? _g275052_) + (##vector-length _g275052_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g272258_ 2))) - (error "Context expects 2 values" _g272258_))) - (let ((_target254229254278_ + (##fx= _g275053_ 2))) + (error "Context expects 2 values" _g275053_))) + (let ((_target256924256973_ (let () (declare (not safe)) - (##vector-ref _g272257_ 0))) - (_tl254231254280_ + (##vector-ref _g275052_ 0))) + (_tl256926256975_ (let () (declare (not safe)) - (##vector-ref _g272257_ 1)))) + (##vector-ref _g275052_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254231254280_)) - (letrec ((_loop254232254283_ - (lambda (_hd254230254286_ - _id254236254288_) + (gx#stx-null? _tl256926256975_)) + (letrec ((_loop256927256978_ + (lambda (_hd256925256981_ + _id256931256983_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254230254286_)) - (let ((_e254233254291_ + (gx#stx-pair? _hd256925256981_)) + (let ((_e256928256986_ (let () (declare (not safe)) (gx#stx-e - _hd254230254286_)))) - (let ((_lp-hd254234254294_ + _hd256925256981_)))) + (let ((_lp-hd256929256989_ (let () (declare (not safe)) - (##car _e254233254291_))) - (_lp-tl254235254296_ + (##car _e256928256986_))) + (_lp-tl256930256991_ (let () (declare (not safe)) - (##cdr _e254233254291_)))) - (let ((__tmp272267 + (##cdr _e256928256986_)))) + (let ((__tmp275062 (let () (declare (not safe)) - (cons _lp-hd254234254294_ - _id254236254288_)))) + (cons _lp-hd256929256989_ + _id256931256983_)))) (declare (not safe)) - (_loop254232254283_ - _lp-tl254235254296_ - __tmp272267)))) - (let ((_id254237254299_ - (reverse _id254236254288_))) + (_loop256927256978_ + _lp-tl256930256991_ + __tmp275062)))) + (let ((_id256932256994_ + (reverse _id256931256983_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254226254275_)) - (let ((_e254240254302_ + _tl256921256970_)) + (let ((_e256935256997_ (let () (declare (not safe)) (gx#stx-e - _tl254226254275_)))) - (let ((_hd254239254305_ + _tl256921256970_)))) + (let ((_hd256934257000_ (let () (declare (not safe)) - (##car _e254240254302_))) - (_tl254238254307_ + (##car _e256935256997_))) + (_tl256933257002_ (let () (declare (not safe)) - (##cdr _e254240254302_)))) + (##cdr _e256935256997_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd254239254305_)) - (let ((_e254243254310_ + _hd256934257000_)) + (let ((_e256938257005_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd254239254305_)))) - (let ((_hd254242254313_ + (gx#stx-e _hd256934257000_)))) + (let ((_hd256937257008_ (let () (declare (not safe)) - (##car _e254243254310_))) - (_tl254241254315_ + (##car _e256938257005_))) + (_tl256936257010_ (let () (declare (not safe)) - (##cdr _e254243254310_)))) + (##cdr _e256938257005_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd254242254313_)) + (gx#identifier? _hd256937257008_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd254242254313_)) + (gx#stx-eq? '%#if _hd256937257008_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254241254315_)) - (let ((_e254246254318_ + (gx#stx-pair? _tl256936257010_)) + (let ((_e256941257013_ (let () (declare (not safe)) - (gx#stx-e _tl254241254315_)))) - (let ((_hd254245254321_ + (gx#stx-e _tl256936257010_)))) + (let ((_hd256940257016_ (let () (declare (not safe)) - (##car _e254246254318_))) - (_tl254244254323_ + (##car _e256941257013_))) + (_tl256939257018_ (let () (declare (not safe)) - (##cdr _e254246254318_)))) + (##cdr _e256941257013_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254244254323_)) - (let ((_e254249254326_ + (gx#stx-pair? _tl256939257018_)) + (let ((_e256944257021_ (let () (declare (not safe)) (gx#stx-e - _tl254244254323_)))) - (let ((_hd254248254329_ + _tl256939257018_)))) + (let ((_hd256943257024_ (let () (declare (not safe)) - (##car _e254249254326_))) - (_tl254247254331_ + (##car _e256944257021_))) + (_tl256942257026_ (let () (declare (not safe)) - (##cdr _e254249254326_)))) + (##cdr _e256944257021_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254247254331_)) - (let ((_e254252254334_ + _tl256942257026_)) + (let ((_e256947257029_ (let () (declare (not safe)) (gx#stx-e - _tl254247254331_)))) - (let ((_hd254251254337_ + _tl256942257026_)))) + (let ((_hd256946257032_ (let () (declare (not safe)) - (##car _e254252254334_))) - (_tl254250254339_ + (##car _e256947257029_))) + (_tl256945257034_ (let () (declare (not safe)) - (##cdr _e254252254334_)))) + (##cdr _e256947257029_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl254250254339_)) + _tl256945257034_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl254238254307_)) - ((lambda (_L254342_ _L254343_ _L254344_ _L254345_) - (let* ((_E254374_ + (gx#stx-null? _tl256933257002_)) + ((lambda (_L257037_ _L257038_ _L257039_ _L257040_) + (let* ((_E257069_ (let () (declare (not safe)) - (_xform-e254002_ - _L254342_ - _kont-id254213_ - _kont-box254214_ - _negation-id254215_))) - (__tmp272259 - (let ((__tmp272265 - (let ((__tmp272266 - (lambda (_g254375254378_ - _g254376254380_) + (_xform-e256697_ + _L257037_ + _kont-id256908_ + _kont-box256909_ + _negation-id256910_))) + (__tmp275054 + (let ((__tmp275060 + (let ((__tmp275061 + (lambda (_g257070257073_ + _g257071257075_) (let () (declare (not safe)) - (cons _g254375254378_ - _g254376254380_))))) + (cons _g257070257073_ + _g257071257075_))))) (declare (not safe)) - (foldr1 __tmp272266 '() _L254345_))) - (__tmp272260 - (let ((__tmp272261 - (let ((__tmp272262 - (let ((__tmp272263 - (let ((__tmp272264 + (foldr1 __tmp275061 '() _L257040_))) + (__tmp275055 + (let ((__tmp275056 + (let ((__tmp275057 + (let ((__tmp275058 + (let ((__tmp275059 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E254374_ '())))) + (cons _E257069_ '())))) (declare (not safe)) - (cons _L254343_ __tmp272264)))) + (cons _L257038_ __tmp275059)))) (declare (not safe)) - (cons _L254344_ __tmp272263)))) + (cons _L257039_ __tmp275058)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp272262)))) + (cons '%#if __tmp275057)))) (declare (not safe)) - (cons __tmp272261 '())))) + (cons __tmp275056 '())))) (declare (not safe)) - (cons __tmp272265 __tmp272260)))) + (cons __tmp275060 __tmp275055)))) (declare (not safe)) - (cons '%#lambda __tmp272259))) - _hd254251254337_ - _hd254248254329_ - _hd254245254321_ - _id254237254299_) + (cons '%#lambda __tmp275054))) + _hd256946257032_ + _hd256943257024_ + _hd256940257016_ + _id256932256994_) (let () (declare (not safe)) - (_g254217254257_ _g254218254260_))) + (_g256912256952_ _g256913256955_))) (let () (declare (not safe)) - (_g254217254257_ _g254218254260_))))) + (_g256912256952_ _g256913256955_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g254217254257_ - _g254218254260_))))) + (_g256912256952_ + _g256913256955_))))) (let () (declare (not safe)) - (_g254217254257_ - _g254218254260_))))) + (_g256912256952_ + _g256913256955_))))) (let () (declare (not safe)) - (_g254217254257_ _g254218254260_))) + (_g256912256952_ _g256913256955_))) (let () (declare (not safe)) - (_g254217254257_ _g254218254260_))) + (_g256912256952_ _g256913256955_))) (let () (declare (not safe)) - (_g254217254257_ _g254218254260_))))) + (_g256912256952_ _g256913256955_))))) (let () (declare (not safe)) - (_g254217254257_ _g254218254260_))))) + (_g256912256952_ _g256913256955_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g254217254257_ - _g254218254260_)))))))) + (_g256912256952_ + _g256913256955_)))))))) (let () (declare (not safe)) - (_loop254232254283_ _target254229254278_ '()))) + (_loop256927256978_ _target256924256973_ '()))) (let () (declare (not safe)) - (_g254217254257_ _g254218254260_)))))) + (_g256912256952_ _g256913256955_)))))) (let () (declare (not safe)) - (_g254217254257_ _g254218254260_))))) + (_g256912256952_ _g256913256955_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g254217254257_ - _g254218254260_))) + (_g256912256952_ + _g256913256955_))) (let () (declare (not safe)) - (_g254217254257_ - _g254218254260_))) + (_g256912256952_ + _g256913256955_))) (let () (declare (not safe)) - (_g254217254257_ - _g254218254260_))))) + (_g256912256952_ + _g256913256955_))))) (let () (declare (not safe)) - (_g254217254257_ _g254218254260_)))))) + (_g256912256952_ _g256913256955_)))))) (declare (not safe)) - (_g254216254383_ _expr254212_)))) - (_clause-e254004_ - (lambda (_clause-lambda254082_ _kont-id254083_ _rest254084_) - (letrec* ((_kont-box254086_ + (_g256911257078_ _expr256907_)))) + (_clause-e256699_ + (lambda (_clause-lambda256777_ _kont-id256778_ _rest256779_) + (letrec* ((_kont-box256781_ (let () (declare (not safe)) (box '#f)))) - (let* ((_negation-id254126_ - (let* ((_rest254087254097_ _rest254084_) - (_else254089254105_ - (lambda () _negation-id254000_)) - (_K254091254111_ - (lambda (_clause254108_ - _clause-id254109_) - _clause-id254109_))) + (let* ((_negation-id256821_ + (let* ((_rest256782256792_ _rest256779_) + (_else256784256800_ + (lambda () _negation-id256695_)) + (_K256786256806_ + (lambda (_clause256803_ + _clause-id256804_) + _clause-id256804_))) (if (let () (declare (not safe)) - (##pair? _rest254087254097_)) - (let ((_hd254092254114_ + (##pair? _rest256782256792_)) + (let ((_hd256787256809_ (let () (declare (not safe)) - (##car _rest254087254097_)))) + (##car _rest256782256792_)))) (if (let () (declare (not safe)) - (##pair? _hd254092254114_)) - (let ((_hd254094254117_ + (##pair? _hd256787256809_)) + (let ((_hd256789256812_ (let () (declare (not safe)) - (##car _hd254092254114_))) - (_tl254095254119_ + (##car _hd256787256809_))) + (_tl256790256814_ (let () (declare (not safe)) - (##cdr _hd254092254114_)))) - (let* ((_clause-id254122_ - _hd254094254117_) - (_clause254124_ - _tl254095254119_)) + (##cdr _hd256787256809_)))) + (let* ((_clause-id256817_ + _hd256789256812_) + (_clause256819_ + _tl256790256814_)) (declare (not safe)) - (_K254091254111_ - _clause254124_ - _clause-id254122_))) + (_K256786256806_ + _clause256819_ + _clause-id256817_))) (let () (declare (not safe)) - (_else254089254105_)))) + (_else256784256800_)))) (let () (declare (not safe)) - (_else254089254105_))))) - (_g254128254148_ - (lambda (_g254129254145_) + (_else256784256800_))))) + (_g256823256843_ + (lambda (_g256824256840_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g254129254145_)))) - (_g254127254209_ - (lambda (_g254129254151_) + _g256824256840_)))) + (_g256822256904_ + (lambda (_g256824256846_) (if (let () (declare (not safe)) - (gx#stx-pair? _g254129254151_)) - (let ((_e254134254153_ + (gx#stx-pair? _g256824256846_)) + (let ((_e256829256848_ (let () (declare (not safe)) - (gx#stx-e _g254129254151_)))) - (let ((_hd254133254156_ + (gx#stx-e _g256824256846_)))) + (let ((_hd256828256851_ (let () (declare (not safe)) - (##car _e254134254153_))) - (_tl254132254158_ + (##car _e256829256848_))) + (_tl256827256853_ (let () (declare (not safe)) - (##cdr _e254134254153_)))) + (##cdr _e256829256848_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd254133254156_)) + _hd256828256851_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd254133254156_)) + _hd256828256851_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl254132254158_)) - (let ((_e254137254161_ + _tl256827256853_)) + (let ((_e256832256856_ (let () (declare (not safe)) (gx#stx-e - _tl254132254158_)))) - (let ((_hd254136254164_ + _tl256827256853_)))) + (let ((_hd256831256859_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e254137254161_))) - (_tl254135254166_ - (let () (declare (not safe)) (##cdr _e254137254161_)))) + (##car _e256832256856_))) + (_tl256830256861_ + (let () (declare (not safe)) (##cdr _e256832256856_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd254136254164_)) - (let ((_e254140254169_ + (gx#stx-pair? _hd256831256859_)) + (let ((_e256835256864_ (let () (declare (not safe)) - (gx#stx-e _hd254136254164_)))) - (let ((_hd254139254172_ + (gx#stx-e _hd256831256859_)))) + (let ((_hd256834256867_ (let () (declare (not safe)) - (##car _e254140254169_))) - (_tl254138254174_ + (##car _e256835256864_))) + (_tl256833256869_ (let () (declare (not safe)) - (##cdr _e254140254169_)))) + (##cdr _e256835256864_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254138254174_)) + (gx#stx-null? _tl256833256869_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl254135254166_)) - (let ((_e254143254177_ + (gx#stx-pair? _tl256830256861_)) + (let ((_e256838256872_ (let () (declare (not safe)) - (gx#stx-e _tl254135254166_)))) - (let ((_hd254142254180_ + (gx#stx-e _tl256830256861_)))) + (let ((_hd256837256875_ (let () (declare (not safe)) - (##car _e254143254177_))) - (_tl254141254182_ + (##car _e256838256872_))) + (_tl256836256877_ (let () (declare (not safe)) - (##cdr _e254143254177_)))) + (##cdr _e256838256872_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl254141254182_)) - ((lambda (_L254185_ _L254186_) - (let ((_body254207_ + (gx#stx-null? _tl256836256877_)) + ((lambda (_L256880_ _L256881_) + (let ((_body256902_ (let () (declare (not safe)) - (_xform-e254002_ - _L254185_ - _kont-id254083_ - _kont-box254086_ - _negation-id254126_)))) - (values (let ((__tmp272268 - (let ((__tmp272270 + (_xform-e256697_ + _L256880_ + _kont-id256778_ + _kont-box256781_ + _negation-id256821_)))) + (values (let ((__tmp275063 + (let ((__tmp275065 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L254186_ '()))) - (__tmp272269 + (let () (declare (not safe)) (cons _L256881_ '()))) + (__tmp275064 (let () (declare (not safe)) - (cons _body254207_ '())))) + (cons _body256902_ '())))) (declare (not safe)) - (cons __tmp272270 __tmp272269)))) + (cons __tmp275065 __tmp275064)))) (declare (not safe)) - (cons '%#lambda __tmp272268)) + (cons '%#lambda __tmp275063)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _kont-box254086_)))) - _hd254142254180_ - _hd254139254172_) + (unbox _kont-box256781_)))) + _hd256837256875_ + _hd256834256867_) (let () (declare (not safe)) - (_g254128254148_ _g254129254151_))))) + (_g256823256843_ _g256824256846_))))) (let () (declare (not safe)) - (_g254128254148_ _g254129254151_))) + (_g256823256843_ _g256824256846_))) (let () (declare (not safe)) - (_g254128254148_ _g254129254151_))))) + (_g256823256843_ _g256824256846_))))) (let () (declare (not safe)) - (_g254128254148_ _g254129254151_))))) + (_g256823256843_ _g256824256846_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g254128254148_ - _g254129254151_))) + (_g256823256843_ + _g256824256846_))) (let () (declare (not safe)) - (_g254128254148_ - _g254129254151_))) + (_g256823256843_ + _g256824256846_))) (let () (declare (not safe)) - (_g254128254148_ - _g254129254151_))))) + (_g256823256843_ + _g256824256846_))))) (let () (declare (not safe)) - (_g254128254148_ _g254129254151_)))))) + (_g256823256843_ _g256824256846_)))))) (declare (not safe)) - (_g254127254209_ _clause-lambda254082_)))))) - (let _lp254006_ ((_rest254008_ _clauses253999_) - (_clauses254009_ '()) - (_konts254010_ '())) - (let* ((_rest254011254019_ _rest254008_) - (_else254013254027_ + (_g256822256904_ _clause-lambda256777_)))))) + (let _lp256701_ ((_rest256703_ _clauses256694_) + (_clauses256704_ '()) + (_konts256705_ '())) + (let* ((_rest256706256714_ _rest256703_) + (_else256708256722_ (lambda () - (values (reverse _clauses254009_) - (reverse _konts254010_)))) - (_K254015254070_ - (lambda (_rest254030_ _clause254031_) - (let* ((_clause254032254039_ _clause254031_) - (_E254034254043_ + (values (reverse _clauses256704_) + (reverse _konts256705_)))) + (_K256710256765_ + (lambda (_rest256725_ _clause256726_) + (let* ((_clause256727256734_ _clause256726_) + (_E256729256738_ (lambda () (error '"No clause matching" - _clause254032254039_))) - (_K254035254058_ - (lambda (_clause-lambda254046_ _clause-id254047_) - (let* ((_id254049_ - (let ((__tmp272271 (gensym '__kont))) + _clause256727256734_))) + (_K256730256753_ + (lambda (_clause-lambda256741_ _clause-id256742_) + (let* ((_id256744_ + (let ((__tmp275066 (gensym '__kont))) (declare (not safe)) - (make-symbol__0 __tmp272271))) - (_id254051_ + (make-symbol__0 __tmp275066))) + (_id256746_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _id254049_))) - (_g272272_ + _id256744_))) + (_g275067_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id254051_))) - (_g272273_ + _id256746_))) + (_g275068_ (let () (declare (not safe)) - (_clause-e254004_ - _clause-lambda254046_ - _id254051_ - _rest254030_)))) + (_clause-e256699_ + _clause-lambda256741_ + _id256746_ + _rest256725_)))) (begin - (let ((_g272274_ + (let ((_g275069_ (let () (declare (not safe)) - (if (##values? _g272273_) - (##vector-length _g272273_) + (if (##values? _g275068_) + (##vector-length _g275068_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g272274_ 2))) + (##fx= _g275069_ 2))) (error "Context expects 2 values" - _g272274_))) - (let ((_clause-lambda254054_ + _g275069_))) + (let ((_clause-lambda256749_ (let () (declare (not safe)) - (##vector-ref _g272273_ 0))) - (_kont254055_ + (##vector-ref _g275068_ 0))) + (_kont256750_ (let () (declare (not safe)) - (##vector-ref _g272273_ 1)))) + (##vector-ref _g275068_ 1)))) (let () - (let ((__tmp272277 - (let ((__tmp272278 + (let ((__tmp275072 + (let ((__tmp275073 (let () (declare (not safe)) - (cons _clause-id254047_ - _clause-lambda254054_)))) + (cons _clause-id256742_ + _clause-lambda256749_)))) (declare (not safe)) - (cons __tmp272278 - _clauses254009_))) - (__tmp272275 - (let ((__tmp272276 + (cons __tmp275073 + _clauses256704_))) + (__tmp275070 + (let ((__tmp275071 (let () (declare (not safe)) - (cons _id254051_ - _kont254055_)))) + (cons _id256746_ + _kont256750_)))) (declare (not safe)) - (cons __tmp272276 - _konts254010_)))) + (cons __tmp275071 + _konts256705_)))) (declare (not safe)) - (_lp254006_ - _rest254030_ - __tmp272277 - __tmp272275))))))))) + (_lp256701_ + _rest256725_ + __tmp275072 + __tmp275070))))))))) (if (let () (declare (not safe)) - (##pair? _clause254032254039_)) - (let ((_hd254036254061_ + (##pair? _clause256727256734_)) + (let ((_hd256731256756_ (let () (declare (not safe)) - (##car _clause254032254039_))) - (_tl254037254063_ + (##car _clause256727256734_))) + (_tl256732256758_ (let () (declare (not safe)) - (##cdr _clause254032254039_)))) - (let* ((_clause-id254066_ _hd254036254061_) - (_clause-lambda254068_ _tl254037254063_)) + (##cdr _clause256727256734_)))) + (let* ((_clause-id256761_ _hd256731256756_) + (_clause-lambda256763_ _tl256732256758_)) (declare (not safe)) - (_K254035254058_ - _clause-lambda254068_ - _clause-id254066_))) + (_K256730256753_ + _clause-lambda256763_ + _clause-id256761_))) (let () (declare (not safe)) - (_E254034254043_))))))) - (if (let () (declare (not safe)) (##pair? _rest254011254019_)) - (let ((_hd254016254073_ + (_E256729256738_))))))) + (if (let () (declare (not safe)) (##pair? _rest256706256714_)) + (let ((_hd256711256768_ (let () (declare (not safe)) - (##car _rest254011254019_))) - (_tl254017254075_ + (##car _rest256706256714_))) + (_tl256712256770_ (let () (declare (not safe)) - (##cdr _rest254011254019_)))) - (let* ((_clause254078_ _hd254016254073_) - (_rest254080_ _tl254017254075_)) + (##cdr _rest256706256714_)))) + (let* ((_clause256773_ _hd256711256768_) + (_rest256775_ _tl256712256770_)) (declare (not safe)) - (_K254015254070_ _rest254080_ _clause254078_))) - (let () (declare (not safe)) (_else254013254027_)))))))) + (_K256710256765_ _rest256775_ _clause256773_))) + (let () (declare (not safe)) (_else256708256722_)))))))) (define gxc#optimize-syntax-case-closure - (lambda (_clause253343_ _negation253344_ _target253345_) - (letrec ((_closure-e253347_ - (lambda (_expr253464_) - (let* ((___stx271454271455_ _expr253464_) - (_g253471253586_ + (lambda (_clause256038_ _negation256039_ _target256040_) + (letrec ((_closure-e256042_ + (lambda (_expr256159_) + (let* ((___stx274249274250_ _expr256159_) + (_g256166256281_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx271454271455_))))) - (let ((___kont271456271457_ - (lambda (_L253977_ _L253978_ _L253979_) - (let ((__tmp272279 - (let ((__tmp272280 - (let ((__tmp272283 + ___stx274249274250_))))) + (let ((___kont274251274252_ + (lambda (_L256672_ _L256673_ _L256674_) + (let ((__tmp275074 + (let ((__tmp275075 + (let ((__tmp275078 (let () (declare (not safe)) - (_closure-e253347_ - _L253978_))) - (__tmp272281 - (let ((__tmp272282 + (_closure-e256042_ + _L256673_))) + (__tmp275076 + (let ((__tmp275077 (let () (declare (not safe)) - (_closure-e253347_ - _L253977_)))) + (_closure-e256042_ + _L256672_)))) (declare (not safe)) - (cons __tmp272282 '())))) + (cons __tmp275077 '())))) (declare (not safe)) - (cons __tmp272283 - __tmp272281)))) + (cons __tmp275078 + __tmp275076)))) (declare (not safe)) - (cons _L253979_ __tmp272280)))) + (cons _L256674_ __tmp275075)))) (declare (not safe)) - (cons '%#if __tmp272279)))) - (___kont271458271459_ - (lambda (_L253925_ _L253926_) - (let ((__tmp272284 - (let ((__tmp272285 - (let ((__tmp272286 + (cons '%#if __tmp275074)))) + (___kont274253274254_ + (lambda (_L256620_ _L256621_) + (let ((__tmp275079 + (let ((__tmp275080 + (let ((__tmp275081 (let () (declare (not safe)) - (_closure-e253347_ - _L253925_)))) + (_closure-e256042_ + _L256620_)))) (declare (not safe)) - (cons __tmp272286 '())))) + (cons __tmp275081 '())))) (declare (not safe)) - (cons _L253926_ __tmp272285)))) + (cons _L256621_ __tmp275080)))) (declare (not safe)) - (cons '%#let-values __tmp272284)))) - (___kont271460271461_ - (lambda (_L253871_ _L253872_ _L253873_) - (let ((__tmp272287 - (let ((__tmp272289 - (let ((__tmp272290 - (let ((__tmp272293 + (cons '%#let-values __tmp275079)))) + (___kont274255274256_ + (lambda (_L256566_ _L256567_ _L256568_) + (let ((__tmp275082 + (let ((__tmp275084 + (let ((__tmp275085 + (let ((__tmp275088 (let () (declare (not safe)) - (cons _L253873_ + (cons _L256568_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp272291 - (let ((__tmp272292 + (__tmp275086 + (let ((__tmp275087 (let () (declare (not safe)) - (_closure-e253347_ _L253872_)))) + (_closure-e256042_ _L256567_)))) (declare (not safe)) - (cons __tmp272292 '())))) + (cons __tmp275087 '())))) (declare (not safe)) - (cons __tmp272293 __tmp272291)))) + (cons __tmp275088 __tmp275086)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp272290 '()))) - (__tmp272288 + (cons __tmp275085 '()))) + (__tmp275083 (let () (declare (not safe)) - (cons _L253871_ '())))) + (cons _L256566_ '())))) (declare (not safe)) - (cons __tmp272289 __tmp272288)))) + (cons __tmp275084 __tmp275083)))) (declare (not safe)) - (cons '%#letrec-values __tmp272287)))) - (___kont271462271463_ - (lambda (_L253784_ _L253785_) - (let ((__tmp272294 - (let ((__tmp272297 - (let ((__tmp272298 - (lambda (_g253802253805_ - _g253803253807_) + (cons '%#letrec-values __tmp275082)))) + (___kont274257274258_ + (lambda (_L256479_ _L256480_) + (let ((__tmp275089 + (let ((__tmp275092 + (let ((__tmp275093 + (lambda (_g256497256500_ + _g256498256502_) (let () (declare (not safe)) - (cons _g253802253805_ - _g253803253807_))))) + (cons _g256497256500_ + _g256498256502_))))) (declare (not safe)) - (foldr1 __tmp272298 + (foldr1 __tmp275093 '() - _L253785_))) - (__tmp272295 - (let ((__tmp272296 + _L256480_))) + (__tmp275090 + (let ((__tmp275091 (let () (declare (not safe)) - (_closure-e253347_ - _L253784_)))) + (_closure-e256042_ + _L256479_)))) (declare (not safe)) - (cons __tmp272296 '())))) + (cons __tmp275091 '())))) (declare (not safe)) - (cons __tmp272297 __tmp272295)))) + (cons __tmp275092 __tmp275090)))) (declare (not safe)) - (cons '%#lambda __tmp272294)))) - (___kont271466271467_ - (lambda (_L253714_) - (let ((__tmp272299 - (let ((__tmp272300 - (let ((__tmp272302 + (cons '%#lambda __tmp275089)))) + (___kont274261274262_ + (lambda (_L256409_) + (let ((__tmp275094 + (let ((__tmp275095 + (let ((__tmp275097 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp272301 + (__tmp275096 (let () (declare (not safe)) - (cons _L253714_ '())))) + (cons _L256409_ '())))) (declare (not safe)) - (cons __tmp272302 - __tmp272301)))) + (cons __tmp275097 + __tmp275096)))) (declare (not safe)) - (cons __tmp272300 '())))) + (cons __tmp275095 '())))) (declare (not safe)) - (cons '%#call __tmp272299)))) - (___kont271468271469_ - (lambda (_L253647_ _L253648_) _expr253464_))) - (let* ((___match271687271688_ - (lambda (_e253563253591_ - _hd253562253594_ - _tl253561253596_ - _e253566253599_ - _hd253565253602_ - _tl253564253604_ - _e253569253607_ - _hd253568253610_ - _tl253567253612_ - _e253572253615_ - _hd253571253618_ - _tl253570253620_ - ___splice271470271471_ - _target253573253623_ - _tl253575253625_) - (letrec ((_loop253576253628_ - (lambda (_hd253574253631_ - _arg253580253633_) + (cons '%#call __tmp275094)))) + (___kont274263274264_ + (lambda (_L256342_ _L256343_) _expr256159_))) + (let* ((___match274482274483_ + (lambda (_e256258256286_ + _hd256257256289_ + _tl256256256291_ + _e256261256294_ + _hd256260256297_ + _tl256259256299_ + _e256264256302_ + _hd256263256305_ + _tl256262256307_ + _e256267256310_ + _hd256266256313_ + _tl256265256315_ + ___splice274265274266_ + _target256268256318_ + _tl256270256320_) + (letrec ((_loop256271256323_ + (lambda (_hd256269256326_ + _arg256275256328_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd253574253631_)) - (let ((_e253577253636_ + _hd256269256326_)) + (let ((_e256272256331_ (let () (declare (not safe)) (gx#stx-e - _hd253574253631_)))) - (let ((_lp-tl253579253641_ + _hd256269256326_)))) + (let ((_lp-tl256274256336_ (let () (declare (not safe)) - (##cdr _e253577253636_))) - (_lp-hd253578253639_ + (##cdr _e256272256331_))) + (_lp-hd256273256334_ (let () (declare (not safe)) - (##car _e253577253636_)))) - (let ((__tmp272303 + (##car _e256272256331_)))) + (let ((__tmp275098 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd253578253639_ _arg253580253633_)))) + (cons _lp-hd256273256334_ _arg256275256328_)))) (declare (not safe)) - (_loop253576253628_ _lp-tl253579253641_ __tmp272303)))) + (_loop256271256323_ _lp-tl256274256336_ __tmp275098)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg253581253644_ - (reverse _arg253580253633_))) - (___kont271468271469_ - _arg253581253644_ - _hd253571253618_)))))) + (let ((_arg256276256339_ + (reverse _arg256275256328_))) + (___kont274263274264_ + _arg256276256339_ + _hd256266256313_)))))) (let () (declare (not safe)) - (_loop253576253628_ - _target253573253623_ + (_loop256271256323_ + _target256268256318_ '()))))) - (___match271645271646_ - (lambda (_e253546253674_ - _hd253545253677_ - _tl253544253679_ - _e253549253682_ - _hd253548253685_ - _tl253547253687_ - _e253552253690_ - _hd253551253693_ - _tl253550253695_ - _e253555253698_ - _hd253554253701_ - _tl253553253703_ - _e253558253706_ - _hd253557253709_ - _tl253556253711_) - (let ((_L253714_ _hd253554253701_)) + (___match274440274441_ + (lambda (_e256241256369_ + _hd256240256372_ + _tl256239256374_ + _e256244256377_ + _hd256243256380_ + _tl256242256382_ + _e256247256385_ + _hd256246256388_ + _tl256245256390_ + _e256250256393_ + _hd256249256396_ + _tl256248256398_ + _e256253256401_ + _hd256252256404_ + _tl256251256406_) + (let ((_L256409_ _hd256249256396_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L253714_ - _negation253344_)) - (___kont271466271467_ _L253714_) + _L256409_ + _negation256039_)) + (___kont274261274262_ _L256409_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl253547253687_)) - (let ((___splice271470271471_ + _tl256242256382_)) + (let ((___splice274265274266_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl253547253687_ + _tl256242256382_ '0)))) - (let ((_tl253575253625_ + (let ((_tl256270256320_ (let () (declare (not safe)) (##vector-ref - ___splice271470271471_ + ___splice274265274266_ '1))) - (_target253573253623_ + (_target256268256318_ (let () (declare (not safe)) (##vector-ref - ___splice271470271471_ + ___splice274265274266_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl253575253625_)) - (___match271687271688_ - _e253546253674_ - _hd253545253677_ - _tl253544253679_ - _e253549253682_ - _hd253548253685_ - _tl253547253687_ - _e253552253690_ - _hd253551253693_ - _tl253550253695_ - _e253555253698_ - _hd253554253701_ - _tl253553253703_ - ___splice271470271471_ - _target253573253623_ - _tl253575253625_) + _tl256270256320_)) + (___match274482274483_ + _e256241256369_ + _hd256240256372_ + _tl256239256374_ + _e256244256377_ + _hd256243256380_ + _tl256242256382_ + _e256247256385_ + _hd256246256388_ + _tl256245256390_ + _e256250256393_ + _hd256249256396_ + _tl256248256398_ + ___splice274265274266_ + _target256268256318_ + _tl256270256320_) (let () (declare (not safe)) - (_g253471253586_))))) + (_g256166256281_))))) (let () (declare (not safe)) - (_g253471253586_))))))) - (___match271603271604_ - (lambda (_e253527253736_ - _hd253526253739_ - _tl253525253741_ - _e253530253744_ - _hd253529253747_ - _tl253528253749_ - ___splice271464271465_ - _target253531253752_ - _tl253533253754_) - (letrec ((_loop253534253757_ - (lambda (_hd253532253760_ - _id253538253762_) + (_g256166256281_))))))) + (___match274398274399_ + (lambda (_e256222256431_ + _hd256221256434_ + _tl256220256436_ + _e256225256439_ + _hd256224256442_ + _tl256223256444_ + ___splice274259274260_ + _target256226256447_ + _tl256228256449_) + (letrec ((_loop256229256452_ + (lambda (_hd256227256455_ + _id256233256457_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd253532253760_)) - (let ((_e253535253765_ + _hd256227256455_)) + (let ((_e256230256460_ (let () (declare (not safe)) (gx#stx-e - _hd253532253760_)))) - (let ((_lp-tl253537253770_ + _hd256227256455_)))) + (let ((_lp-tl256232256465_ (let () (declare (not safe)) - (##cdr _e253535253765_))) - (_lp-hd253536253768_ + (##cdr _e256230256460_))) + (_lp-hd256231256463_ (let () (declare (not safe)) - (##car _e253535253765_)))) - (let ((__tmp272304 + (##car _e256230256460_)))) + (let ((__tmp275099 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd253536253768_ _id253538253762_)))) + (cons _lp-hd256231256463_ _id256233256457_)))) (declare (not safe)) - (_loop253534253757_ _lp-tl253537253770_ __tmp272304)))) + (_loop256229256452_ _lp-tl256232256465_ __tmp275099)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id253539253773_ - (reverse _id253538253762_))) + (let ((_id256234256468_ + (reverse _id256233256457_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253528253749_)) - (let ((_e253542253776_ + _tl256223256444_)) + (let ((_e256237256471_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl253528253749_)))) - (let ((_tl253540253781_ - (let () (declare (not safe)) (##cdr _e253542253776_))) - (_hd253541253779_ + (gx#stx-e _tl256223256444_)))) + (let ((_tl256235256476_ + (let () (declare (not safe)) (##cdr _e256237256471_))) + (_hd256236256474_ (let () (declare (not safe)) - (##car _e253542253776_)))) + (##car _e256237256471_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253540253781_)) - (___kont271462271463_ - _hd253541253779_ - _id253539253773_) - (let () (declare (not safe)) (_g253471253586_))))) - (let () (declare (not safe)) (_g253471253586_)))))))) + (gx#stx-null? _tl256235256476_)) + (___kont274257274258_ + _hd256236256474_ + _id256234256468_) + (let () (declare (not safe)) (_g256166256281_))))) + (let () (declare (not safe)) (_g256166256281_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop253534253757_ - _target253531253752_ + (_loop256229256452_ + _target256226256447_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx271454271455_)) - (let ((_e253478253945_ + (gx#stx-pair? ___stx274249274250_)) + (let ((_e256173256640_ (let () (declare (not safe)) - (gx#stx-e ___stx271454271455_)))) - (let ((_tl253476253950_ + (gx#stx-e ___stx274249274250_)))) + (let ((_tl256171256645_ (let () (declare (not safe)) - (##cdr _e253478253945_))) - (_hd253477253948_ + (##cdr _e256173256640_))) + (_hd256172256643_ (let () (declare (not safe)) - (##car _e253478253945_)))) + (##car _e256173256640_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd253477253948_)) + (gx#identifier? _hd256172256643_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd253477253948_)) + _hd256172256643_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253476253950_)) - (let ((_e253481253953_ + _tl256171256645_)) + (let ((_e256176256648_ (let () (declare (not safe)) (gx#stx-e - _tl253476253950_)))) - (let ((_tl253479253958_ + _tl256171256645_)))) + (let ((_tl256174256653_ (let () (declare (not safe)) - (##cdr _e253481253953_))) - (_hd253480253956_ + (##cdr _e256176256648_))) + (_hd256175256651_ (let () (declare (not safe)) - (##car _e253481253953_)))) + (##car _e256176256648_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253479253958_)) - (let ((_e253484253961_ + _tl256174256653_)) + (let ((_e256179256656_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl253479253958_)))) - (let ((_tl253482253966_ - (let () (declare (not safe)) (##cdr _e253484253961_))) - (_hd253483253964_ - (let () (declare (not safe)) (##car _e253484253961_)))) + (gx#stx-e _tl256174256653_)))) + (let ((_tl256177256661_ + (let () (declare (not safe)) (##cdr _e256179256656_))) + (_hd256178256659_ + (let () (declare (not safe)) (##car _e256179256656_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl253482253966_)) - (let ((_e253487253969_ + (gx#stx-pair? _tl256177256661_)) + (let ((_e256182256664_ (let () (declare (not safe)) - (gx#stx-e _tl253482253966_)))) - (let ((_tl253485253974_ + (gx#stx-e _tl256177256661_)))) + (let ((_tl256180256669_ (let () (declare (not safe)) - (##cdr _e253487253969_))) - (_hd253486253972_ + (##cdr _e256182256664_))) + (_hd256181256667_ (let () (declare (not safe)) - (##car _e253487253969_)))) + (##car _e256182256664_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253485253974_)) - (___kont271456271457_ - _hd253486253972_ - _hd253483253964_ - _hd253480253956_) + (gx#stx-null? _tl256180256669_)) + (___kont274251274252_ + _hd256181256667_ + _hd256178256659_ + _hd256175256651_) (let () (declare (not safe)) - (_g253471253586_))))) - (let () (declare (not safe)) (_g253471253586_))))) - (let () (declare (not safe)) (_g253471253586_))))) + (_g256166256281_))))) + (let () (declare (not safe)) (_g256166256281_))))) + (let () (declare (not safe)) (_g256166256281_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g253471253586_))) + (_g256166256281_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd253477253948_)) + _hd256172256643_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253476253950_)) - (let ((_e253495253909_ + _tl256171256645_)) + (let ((_e256190256604_ (let () (declare (not safe)) (gx#stx-e - _tl253476253950_)))) - (let ((_tl253493253914_ + _tl256171256645_)))) + (let ((_tl256188256609_ (let () (declare (not safe)) - (##cdr _e253495253909_))) - (_hd253494253912_ + (##cdr _e256190256604_))) + (_hd256189256607_ (let () (declare (not safe)) - (##car _e253495253909_)))) + (##car _e256190256604_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253493253914_)) - (let ((_e253498253917_ + _tl256188256609_)) + (let ((_e256193256612_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl253493253914_)))) - (let ((_tl253496253922_ + (gx#stx-e _tl256188256609_)))) + (let ((_tl256191256617_ (let () (declare (not safe)) - (##cdr _e253498253917_))) - (_hd253497253920_ + (##cdr _e256193256612_))) + (_hd256192256615_ (let () (declare (not safe)) - (##car _e253498253917_)))) + (##car _e256193256612_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253496253922_)) - (___kont271458271459_ - _hd253497253920_ - _hd253494253912_) - (let () (declare (not safe)) (_g253471253586_))))) - (let () (declare (not safe)) (_g253471253586_))))) + (gx#stx-null? _tl256191256617_)) + (___kont274253274254_ + _hd256192256615_ + _hd256189256607_) + (let () (declare (not safe)) (_g256166256281_))))) + (let () (declare (not safe)) (_g256166256281_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g253471253586_))) + (_g256166256281_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd253477253948_)) + _hd256172256643_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253476253950_)) - (let ((_e253507253823_ + _tl256171256645_)) + (let ((_e256202256518_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl253476253950_)))) - (let ((_tl253505253828_ - (let () (declare (not safe)) (##cdr _e253507253823_))) - (_hd253506253826_ - (let () (declare (not safe)) (##car _e253507253823_)))) + (gx#stx-e _tl256171256645_)))) + (let ((_tl256200256523_ + (let () (declare (not safe)) (##cdr _e256202256518_))) + (_hd256201256521_ + (let () (declare (not safe)) (##car _e256202256518_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd253506253826_)) - (let ((_e253510253831_ + (gx#stx-pair? _hd256201256521_)) + (let ((_e256205256526_ (let () (declare (not safe)) - (gx#stx-e _hd253506253826_)))) - (let ((_tl253508253836_ + (gx#stx-e _hd256201256521_)))) + (let ((_tl256203256531_ (let () (declare (not safe)) - (##cdr _e253510253831_))) - (_hd253509253834_ + (##cdr _e256205256526_))) + (_hd256204256529_ (let () (declare (not safe)) - (##car _e253510253831_)))) + (##car _e256205256526_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd253509253834_)) - (let ((_e253513253839_ + (gx#stx-pair? _hd256204256529_)) + (let ((_e256208256534_ (let () (declare (not safe)) - (gx#stx-e _hd253509253834_)))) - (let ((_tl253511253844_ + (gx#stx-e _hd256204256529_)))) + (let ((_tl256206256539_ (let () (declare (not safe)) - (##cdr _e253513253839_))) - (_hd253512253842_ + (##cdr _e256208256534_))) + (_hd256207256537_ (let () (declare (not safe)) - (##car _e253513253839_)))) + (##car _e256208256534_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd253512253842_)) - (let ((_e253516253847_ + (gx#stx-pair? _hd256207256537_)) + (let ((_e256211256542_ (let () (declare (not safe)) - (gx#stx-e _hd253512253842_)))) - (let ((_tl253514253852_ + (gx#stx-e _hd256207256537_)))) + (let ((_tl256209256547_ (let () (declare (not safe)) - (##cdr _e253516253847_))) - (_hd253515253850_ + (##cdr _e256211256542_))) + (_hd256210256545_ (let () (declare (not safe)) - (##car _e253516253847_)))) + (##car _e256211256542_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl253514253852_)) + _tl256209256547_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253511253844_)) - (let ((_e253519253855_ + _tl256206256539_)) + (let ((_e256214256550_ (let () (declare (not safe)) (gx#stx-e - _tl253511253844_)))) - (let ((_tl253517253860_ + _tl256206256539_)))) + (let ((_tl256212256555_ (let () (declare (not safe)) - (##cdr _e253519253855_))) - (_hd253518253858_ + (##cdr _e256214256550_))) + (_hd256213256553_ (let () (declare (not safe)) - (##car _e253519253855_)))) + (##car _e256214256550_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl253517253860_)) + _tl256212256555_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl253508253836_)) + (gx#stx-null? _tl256203256531_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl253505253828_)) - (let ((_e253522253863_ + (gx#stx-pair? _tl256200256523_)) + (let ((_e256217256558_ (let () (declare (not safe)) - (gx#stx-e _tl253505253828_)))) - (let ((_tl253520253868_ + (gx#stx-e _tl256200256523_)))) + (let ((_tl256215256563_ (let () (declare (not safe)) - (##cdr _e253522253863_))) - (_hd253521253866_ + (##cdr _e256217256558_))) + (_hd256216256561_ (let () (declare (not safe)) - (##car _e253522253863_)))) + (##car _e256217256558_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253520253868_)) - (___kont271460271461_ - _hd253521253866_ - _hd253518253858_ - _hd253515253850_) + (gx#stx-null? _tl256215256563_)) + (___kont274255274256_ + _hd256216256561_ + _hd256213256553_ + _hd256210256545_) (let () (declare (not safe)) - (_g253471253586_))))) - (let () (declare (not safe)) (_g253471253586_))) - (let () (declare (not safe)) (_g253471253586_))) - (let () (declare (not safe)) (_g253471253586_))))) + (_g256166256281_))))) + (let () (declare (not safe)) (_g256166256281_))) + (let () (declare (not safe)) (_g256166256281_))) + (let () (declare (not safe)) (_g256166256281_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g253471253586_))) + (_g256166256281_))) (let () (declare (not safe)) - (_g253471253586_))))) + (_g256166256281_))))) (let () (declare (not safe)) - (_g253471253586_))))) + (_g256166256281_))))) (let () (declare (not safe)) - (_g253471253586_))))) - (let () (declare (not safe)) (_g253471253586_))))) - (let () (declare (not safe)) (_g253471253586_))) + (_g256166256281_))))) + (let () (declare (not safe)) (_g256166256281_))))) + (let () (declare (not safe)) (_g256166256281_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd253477253948_)) + _hd256172256643_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253476253950_)) - (let ((_e253530253744_ + _tl256171256645_)) + (let ((_e256225256439_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl253476253950_)))) - (let ((_tl253528253749_ + (gx#stx-e _tl256171256645_)))) + (let ((_tl256223256444_ (let () (declare (not safe)) - (##cdr _e253530253744_))) - (_hd253529253747_ + (##cdr _e256225256439_))) + (_hd256224256442_ (let () (declare (not safe)) - (##car _e253530253744_)))) + (##car _e256225256439_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd253529253747_)) - (let ((___splice271464271465_ + (gx#stx-pair/null? _hd256224256442_)) + (let ((___splice274259274260_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd253529253747_ + _hd256224256442_ '0)))) - (let ((_tl253533253754_ + (let ((_tl256228256449_ (let () (declare (not safe)) - (##vector-ref ___splice271464271465_ '1))) - (_target253531253752_ + (##vector-ref ___splice274259274260_ '1))) + (_target256226256447_ (let () (declare (not safe)) (##vector-ref - ___splice271464271465_ + ___splice274259274260_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253533253754_)) - (___match271603271604_ - _e253478253945_ - _hd253477253948_ - _tl253476253950_ - _e253530253744_ - _hd253529253747_ - _tl253528253749_ - ___splice271464271465_ - _target253531253752_ - _tl253533253754_) + (gx#stx-null? _tl256228256449_)) + (___match274398274399_ + _e256173256640_ + _hd256172256643_ + _tl256171256645_ + _e256225256439_ + _hd256224256442_ + _tl256223256444_ + ___splice274259274260_ + _target256226256447_ + _tl256228256449_) (let () (declare (not safe)) - (_g253471253586_))))) - (let () (declare (not safe)) (_g253471253586_))))) - (let () (declare (not safe)) (_g253471253586_))) + (_g256166256281_))))) + (let () (declare (not safe)) (_g256166256281_))))) + (let () (declare (not safe)) (_g256166256281_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd253477253948_)) + (gx#stx-eq? '%#call _hd256172256643_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl253476253950_)) - (let ((_e253549253682_ + (gx#stx-pair? _tl256171256645_)) + (let ((_e256244256377_ (let () (declare (not safe)) - (gx#stx-e _tl253476253950_)))) - (let ((_tl253547253687_ + (gx#stx-e _tl256171256645_)))) + (let ((_tl256242256382_ (let () (declare (not safe)) - (##cdr _e253549253682_))) - (_hd253548253685_ + (##cdr _e256244256377_))) + (_hd256243256380_ (let () (declare (not safe)) - (##car _e253549253682_)))) + (##car _e256244256377_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd253548253685_)) - (let ((_e253552253690_ + (gx#stx-pair? _hd256243256380_)) + (let ((_e256247256385_ (let () (declare (not safe)) - (gx#stx-e _hd253548253685_)))) - (let ((_tl253550253695_ + (gx#stx-e _hd256243256380_)))) + (let ((_tl256245256390_ (let () (declare (not safe)) - (##cdr _e253552253690_))) - (_hd253551253693_ + (##cdr _e256247256385_))) + (_hd256246256388_ (let () (declare (not safe)) - (##car _e253552253690_)))) + (##car _e256247256385_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd253551253693_)) + (gx#identifier? _hd256246256388_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd253551253693_)) + _hd256246256388_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253550253695_)) - (let ((_e253555253698_ + _tl256245256390_)) + (let ((_e256250256393_ (let () (declare (not safe)) (gx#stx-e - _tl253550253695_)))) - (let ((_tl253553253703_ + _tl256245256390_)))) + (let ((_tl256248256398_ (let () (declare (not safe)) - (##cdr _e253555253698_))) - (_hd253554253701_ + (##cdr _e256250256393_))) + (_hd256249256396_ (let () (declare (not safe)) - (##car _e253555253698_)))) + (##car _e256250256393_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl253553253703_)) + _tl256248256398_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253547253687_)) - (let ((_e253558253706_ + _tl256242256382_)) + (let ((_e256253256401_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl253547253687_)))) - (let ((_tl253556253711_ + (gx#stx-e _tl256242256382_)))) + (let ((_tl256251256406_ (let () (declare (not safe)) - (##cdr _e253558253706_))) - (_hd253557253709_ + (##cdr _e256253256401_))) + (_hd256252256404_ (let () (declare (not safe)) - (##car _e253558253706_)))) + (##car _e256253256401_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253556253711_)) - (___match271645271646_ - _e253478253945_ - _hd253477253948_ - _tl253476253950_ - _e253549253682_ - _hd253548253685_ - _tl253547253687_ - _e253552253690_ - _hd253551253693_ - _tl253550253695_ - _e253555253698_ - _hd253554253701_ - _tl253553253703_ - _e253558253706_ - _hd253557253709_ - _tl253556253711_) + (gx#stx-null? _tl256251256406_)) + (___match274440274441_ + _e256173256640_ + _hd256172256643_ + _tl256171256645_ + _e256244256377_ + _hd256243256380_ + _tl256242256382_ + _e256247256385_ + _hd256246256388_ + _tl256245256390_ + _e256250256393_ + _hd256249256396_ + _tl256248256398_ + _e256253256401_ + _hd256252256404_ + _tl256251256406_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl253547253687_)) - (let ((___splice271470271471_ + (gx#stx-pair/null? _tl256242256382_)) + (let ((___splice274265274266_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl253547253687_ + _tl256242256382_ '0)))) - (let ((_tl253575253625_ + (let ((_tl256270256320_ (let () (declare (not safe)) (##vector-ref - ___splice271470271471_ + ___splice274265274266_ '1))) - (_target253573253623_ + (_target256268256318_ (let () (declare (not safe)) (##vector-ref - ___splice271470271471_ + ___splice274265274266_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253575253625_)) - (___match271687271688_ - _e253478253945_ - _hd253477253948_ - _tl253476253950_ - _e253549253682_ - _hd253548253685_ - _tl253547253687_ - _e253552253690_ - _hd253551253693_ - _tl253550253695_ - _e253555253698_ - _hd253554253701_ - _tl253553253703_ - ___splice271470271471_ - _target253573253623_ - _tl253575253625_) + (gx#stx-null? _tl256270256320_)) + (___match274482274483_ + _e256173256640_ + _hd256172256643_ + _tl256171256645_ + _e256244256377_ + _hd256243256380_ + _tl256242256382_ + _e256247256385_ + _hd256246256388_ + _tl256245256390_ + _e256250256393_ + _hd256249256396_ + _tl256248256398_ + ___splice274265274266_ + _target256268256318_ + _tl256270256320_) (let () (declare (not safe)) - (_g253471253586_))))) + (_g256166256281_))))) (let () (declare (not safe)) - (_g253471253586_)))))) + (_g256166256281_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl253547253687_)) - (let ((___splice271470271471_ + (gx#stx-pair/null? _tl256242256382_)) + (let ((___splice274265274266_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl253547253687_ '0)))) - (let ((_tl253575253625_ + (gx#syntax-split-splice _tl256242256382_ '0)))) + (let ((_tl256270256320_ (let () (declare (not safe)) - (##vector-ref ___splice271470271471_ '1))) - (_target253573253623_ + (##vector-ref ___splice274265274266_ '1))) + (_target256268256318_ (let () (declare (not safe)) - (##vector-ref ___splice271470271471_ '0)))) + (##vector-ref ___splice274265274266_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253575253625_)) - (___match271687271688_ - _e253478253945_ - _hd253477253948_ - _tl253476253950_ - _e253549253682_ - _hd253548253685_ - _tl253547253687_ - _e253552253690_ - _hd253551253693_ - _tl253550253695_ - _e253555253698_ - _hd253554253701_ - _tl253553253703_ - ___splice271470271471_ - _target253573253623_ - _tl253575253625_) + (gx#stx-null? _tl256270256320_)) + (___match274482274483_ + _e256173256640_ + _hd256172256643_ + _tl256171256645_ + _e256244256377_ + _hd256243256380_ + _tl256242256382_ + _e256247256385_ + _hd256246256388_ + _tl256245256390_ + _e256250256393_ + _hd256249256396_ + _tl256248256398_ + ___splice274265274266_ + _target256268256318_ + _tl256270256320_) (let () (declare (not safe)) - (_g253471253586_))))) - (let () (declare (not safe)) (_g253471253586_)))) - (let () (declare (not safe)) (_g253471253586_))))) + (_g256166256281_))))) + (let () (declare (not safe)) (_g256166256281_)))) + (let () (declare (not safe)) (_g256166256281_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g253471253586_))) + (_g256166256281_))) (let () (declare (not safe)) - (_g253471253586_))) + (_g256166256281_))) (let () (declare (not safe)) - (_g253471253586_))))) + (_g256166256281_))))) (let () (declare (not safe)) - (_g253471253586_))))) - (let () (declare (not safe)) (_g253471253586_))) - (let () (declare (not safe)) (_g253471253586_))))))) + (_g256166256281_))))) + (let () (declare (not safe)) (_g256166256281_))) + (let () (declare (not safe)) (_g256166256281_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g253471253586_))))) + (_g256166256281_))))) (let () (declare (not safe)) - (_g253471253586_))))))))) - (let* ((_clause253348253355_ _clause253343_) - (_E253350253359_ + (_g256166256281_))))))))) + (let* ((_clause256043256050_ _clause256038_) + (_E256045256054_ (lambda () - (error '"No clause matching" _clause253348253355_))) - (_K253351253452_ - (lambda (_kont253362_ _id253363_) - (let* ((_g253365253385_ - (lambda (_g253366253382_) + (error '"No clause matching" _clause256043256050_))) + (_K256046256147_ + (lambda (_kont256057_ _id256058_) + (let* ((_g256060256080_ + (lambda (_g256061256077_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g253366253382_)))) - (_g253364253449_ - (lambda (_g253366253388_) + _g256061256077_)))) + (_g256059256144_ + (lambda (_g256061256083_) (if (let () (declare (not safe)) - (gx#stx-pair? _g253366253388_)) - (let ((_e253371253390_ + (gx#stx-pair? _g256061256083_)) + (let ((_e256066256085_ (let () (declare (not safe)) - (gx#stx-e _g253366253388_)))) - (let ((_hd253370253393_ + (gx#stx-e _g256061256083_)))) + (let ((_hd256065256088_ (let () (declare (not safe)) - (##car _e253371253390_))) - (_tl253369253395_ + (##car _e256066256085_))) + (_tl256064256090_ (let () (declare (not safe)) - (##cdr _e253371253390_)))) + (##cdr _e256066256085_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd253370253393_)) + (gx#identifier? _hd256065256088_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd253370253393_)) + _hd256065256088_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253369253395_)) - (let ((_e253374253398_ + _tl256064256090_)) + (let ((_e256069256093_ (let () (declare (not safe)) (gx#stx-e - _tl253369253395_)))) - (let ((_hd253373253401_ + _tl256064256090_)))) + (let ((_hd256068256096_ (let () (declare (not safe)) - (##car _e253374253398_))) - (_tl253372253403_ + (##car _e256069256093_))) + (_tl256067256098_ (let () (declare (not safe)) - (##cdr _e253374253398_)))) + (##cdr _e256069256093_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd253373253401_)) - (let ((_e253377253406_ + _hd256068256096_)) + (let ((_e256072256101_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd253373253401_)))) - (let ((_hd253376253409_ + (gx#stx-e _hd256068256096_)))) + (let ((_hd256071256104_ (let () (declare (not safe)) - (##car _e253377253406_))) - (_tl253375253411_ + (##car _e256072256101_))) + (_tl256070256106_ (let () (declare (not safe)) - (##cdr _e253377253406_)))) + (##cdr _e256072256101_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253375253411_)) + (gx#stx-null? _tl256070256106_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl253372253403_)) - (let ((_e253380253414_ + (gx#stx-pair? _tl256067256098_)) + (let ((_e256075256109_ (let () (declare (not safe)) - (gx#stx-e _tl253372253403_)))) - (let ((_hd253379253417_ + (gx#stx-e _tl256067256098_)))) + (let ((_hd256074256112_ (let () (declare (not safe)) - (##car _e253380253414_))) - (_tl253378253419_ + (##car _e256075256109_))) + (_tl256073256114_ (let () (declare (not safe)) - (##cdr _e253380253414_)))) + (##cdr _e256075256109_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253378253419_)) - ((lambda (_L253422_ _L253423_) - (let* ((_body253444_ + (gx#stx-null? _tl256073256114_)) + ((lambda (_L256117_ _L256118_) + (let* ((_body256139_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L253422_ - _L253423_ - _target253345_))) - (_body253446_ - (if _negation253344_ + _L256117_ + _L256118_ + _target256040_))) + (_body256141_ + (if _negation256039_ (let () (declare (not safe)) - (_closure-e253347_ - _body253444_)) - _body253444_))) - (let ((__tmp272306 + (_closure-e256042_ + _body256139_)) + _body256139_))) + (let ((__tmp275101 (let () (declare (not safe)) (gxc#identifier-symbol - _id253363_))) - (__tmp272305 - (let ((__obj271739 + _id256058_))) + (__tmp275100 + (let ((__obj274534 (let () (declare (not safe)) (##structure @@ -18420,641 +18420,641 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj271739 + __obj274534 'lambda '0 '#f) - __obj271739))) + __obj274534))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp272306 - __tmp272305 + __tmp275101 + __tmp275100 '#t)) - (let ((__tmp272307 - (let ((__tmp272308 - (let ((__tmp272309 + (let ((__tmp275102 + (let ((__tmp275103 + (let ((__tmp275104 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body253446_ '())))) + (cons _body256141_ '())))) (declare (not safe)) - (cons '() __tmp272309)))) + (cons '() __tmp275104)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#lambda - __tmp272308)))) + __tmp275103)))) (declare (not safe)) - (cons _id253363_ __tmp272307)))) - _hd253379253417_ - _hd253376253409_) + (cons _id256058_ __tmp275102)))) + _hd256074256112_ + _hd256071256104_) (let () (declare (not safe)) - (_g253365253385_ _g253366253388_))))) + (_g256060256080_ _g256061256083_))))) (let () (declare (not safe)) - (_g253365253385_ _g253366253388_))) + (_g256060256080_ _g256061256083_))) (let () (declare (not safe)) - (_g253365253385_ _g253366253388_))))) + (_g256060256080_ _g256061256083_))))) (let () (declare (not safe)) - (_g253365253385_ _g253366253388_))))) + (_g256060256080_ _g256061256083_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g253365253385_ - _g253366253388_))) + (_g256060256080_ + _g256061256083_))) (let () (declare (not safe)) - (_g253365253385_ - _g253366253388_))) + (_g256060256080_ + _g256061256083_))) (let () (declare (not safe)) - (_g253365253385_ - _g253366253388_))))) + (_g256060256080_ + _g256061256083_))))) (let () (declare (not safe)) - (_g253365253385_ _g253366253388_)))))) + (_g256060256080_ _g256061256083_)))))) (declare (not safe)) - (_g253364253449_ _kont253362_))))) - (if (let () (declare (not safe)) (##pair? _clause253348253355_)) - (let ((_hd253352253455_ + (_g256059256144_ _kont256057_))))) + (if (let () (declare (not safe)) (##pair? _clause256043256050_)) + (let ((_hd256047256150_ (let () (declare (not safe)) - (##car _clause253348253355_))) - (_tl253353253457_ + (##car _clause256043256050_))) + (_tl256048256152_ (let () (declare (not safe)) - (##cdr _clause253348253355_)))) - (let* ((_id253460_ _hd253352253455_) - (_kont253462_ _tl253353253457_)) + (##cdr _clause256043256050_)))) + (let* ((_id256155_ _hd256047256150_) + (_kont256157_ _tl256048256152_)) (declare (not safe)) - (_K253351253452_ _kont253462_ _id253460_))) - (let () (declare (not safe)) (_E253350253359_))))))) + (_K256046256147_ _kont256157_ _id256155_))) + (let () (declare (not safe)) (_E256045256054_))))))) (define gxc#push-match-vars-let-values% - (lambda (_stx253129_ _vars253130_ _K253131_) - (let* ((_g253133253150_ - (lambda (_g253134253147_) + (lambda (_stx255824_ _vars255825_ _K255826_) + (let* ((_g255828255845_ + (lambda (_g255829255842_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g253134253147_)))) - (_g253132253340_ - (lambda (_g253134253153_) + _g255829255842_)))) + (_g255827256035_ + (lambda (_g255829255848_) (if (let () (declare (not safe)) - (gx#stx-pair? _g253134253153_)) - (let ((_e253139253155_ + (gx#stx-pair? _g255829255848_)) + (let ((_e255834255850_ (let () (declare (not safe)) - (gx#stx-e _g253134253153_)))) - (let ((_hd253138253158_ + (gx#stx-e _g255829255848_)))) + (let ((_hd255833255853_ (let () (declare (not safe)) - (##car _e253139253155_))) - (_tl253137253160_ + (##car _e255834255850_))) + (_tl255832255855_ (let () (declare (not safe)) - (##cdr _e253139253155_)))) + (##cdr _e255834255850_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl253137253160_)) - (let ((_e253142253163_ + (gx#stx-pair? _tl255832255855_)) + (let ((_e255837255858_ (let () (declare (not safe)) - (gx#stx-e _tl253137253160_)))) - (let ((_hd253141253166_ + (gx#stx-e _tl255832255855_)))) + (let ((_hd255836255861_ (let () (declare (not safe)) - (##car _e253142253163_))) - (_tl253140253168_ + (##car _e255837255858_))) + (_tl255835255863_ (let () (declare (not safe)) - (##cdr _e253142253163_)))) + (##cdr _e255837255858_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl253140253168_)) - (let ((_e253145253171_ + (gx#stx-pair? _tl255835255863_)) + (let ((_e255840255866_ (let () (declare (not safe)) - (gx#stx-e _tl253140253168_)))) - (let ((_hd253144253174_ + (gx#stx-e _tl255835255863_)))) + (let ((_hd255839255869_ (let () (declare (not safe)) - (##car _e253145253171_))) - (_tl253143253176_ + (##car _e255840255866_))) + (_tl255838255871_ (let () (declare (not safe)) - (##cdr _e253145253171_)))) + (##cdr _e255840255866_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl253143253176_)) - ((lambda (_L253179_ _L253180_) - (let _lp253195_ ((_rest253197_ + _tl255838255871_)) + ((lambda (_L255874_ _L255875_) + (let _lp255890_ ((_rest255892_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L253180_) - (_rebind253198_ '()) - (_vars253199_ _vars253130_)) + _L255875_) + (_rebind255893_ '()) + (_vars255894_ _vars255825_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest253200253208_ - _rest253197_) - (_else253202253216_ + (let* ((_rest255895255903_ + _rest255892_) + (_else255897255911_ (lambda () (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (null? _rebind253198_)) + (null? _rebind255893_)) (let () (declare (not safe)) - (gxc#compile-e__2 _L253179_ _vars253199_ _K253131_)) - (let ((__tmp272310 - (let ((__tmp272311 - (let ((__tmp272314 - (reverse _rebind253198_)) - (__tmp272312 - (let ((__tmp272313 + (gxc#compile-e__2 _L255874_ _vars255894_ _K255826_)) + (let ((__tmp275105 + (let ((__tmp275106 + (let ((__tmp275109 + (reverse _rebind255893_)) + (__tmp275107 + (let ((__tmp275108 (let () (declare (not safe)) (gxc#compile-e__2 - _L253179_ - _vars253199_ - _K253131_)))) + _L255874_ + _vars255894_ + _K255826_)))) (declare (not safe)) - (cons __tmp272313 '())))) + (cons __tmp275108 '())))) (declare (not safe)) - (cons __tmp272314 __tmp272312)))) + (cons __tmp275109 __tmp275107)))) (declare (not safe)) - (cons '%#let-values __tmp272311)))) + (cons '%#let-values __tmp275106)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp272310 _stx253129_))))) - (_K253204253328_ - (lambda (_rest253219_ _bind253220_) - (let* ((___stx271690271691_ _bind253220_) - (_g253223253246_ + (gxc#xform-wrap-source __tmp275105 _stx255824_))))) + (_K255899256023_ + (lambda (_rest255914_ _bind255915_) + (let* ((___stx274485274486_ _bind255915_) + (_g255918255941_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx271690271691_))))) - (let ((___kont271692271693_ - (lambda (_L253298_ _L253299_) - (let ((__tmp272315 + ___stx274485274486_))))) + (let ((___kont274487274488_ + (lambda (_L255993_ _L255994_) + (let ((__tmp275110 (let () (declare (not safe)) - (cons _bind253220_ _vars253199_)))) + (cons _bind255915_ _vars255894_)))) (declare (not safe)) - (_lp253195_ - _rest253219_ - _rebind253198_ - __tmp272315)))) - (___kont271694271695_ + (_lp255890_ + _rest255914_ + _rebind255893_ + __tmp275110)))) + (___kont274489274490_ (lambda () - (let ((__tmp272316 + (let ((__tmp275111 (let () (declare (not safe)) - (cons _bind253220_ _rebind253198_)))) + (cons _bind255915_ _rebind255893_)))) (declare (not safe)) - (_lp253195_ - _rest253219_ - __tmp272316 - _vars253199_))))) + (_lp255890_ + _rest255914_ + __tmp275111 + _vars255894_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx271690271691_)) - (let ((_e253229253258_ + (gx#stx-pair? ___stx274485274486_)) + (let ((_e255924255953_ (let () (declare (not safe)) - (gx#stx-e ___stx271690271691_)))) - (let ((_tl253227253263_ + (gx#stx-e ___stx274485274486_)))) + (let ((_tl255922255958_ (let () (declare (not safe)) - (##cdr _e253229253258_))) - (_hd253228253261_ + (##cdr _e255924255953_))) + (_hd255923255956_ (let () (declare (not safe)) - (##car _e253229253258_)))) + (##car _e255924255953_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd253228253261_)) - (let ((_e253232253266_ + (gx#stx-pair? _hd255923255956_)) + (let ((_e255927255961_ (let () (declare (not safe)) - (gx#stx-e _hd253228253261_)))) - (let ((_tl253230253271_ + (gx#stx-e _hd255923255956_)))) + (let ((_tl255925255966_ (let () (declare (not safe)) - (##cdr _e253232253266_))) - (_hd253231253269_ + (##cdr _e255927255961_))) + (_hd255926255964_ (let () (declare (not safe)) - (##car _e253232253266_)))) + (##car _e255927255961_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253230253271_)) + (gx#stx-null? _tl255925255966_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253227253263_)) - (let ((_e253235253274_ + _tl255922255958_)) + (let ((_e255930255969_ (let () (declare (not safe)) (gx#stx-e - _tl253227253263_)))) - (let ((_tl253233253279_ + _tl255922255958_)))) + (let ((_tl255928255974_ (let () (declare (not safe)) - (##cdr _e253235253274_))) - (_hd253234253277_ + (##cdr _e255930255969_))) + (_hd255929255972_ (let () (declare (not safe)) - (##car _e253235253274_)))) + (##car _e255930255969_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd253234253277_)) - (let ((_e253238253282_ + _hd255929255972_)) + (let ((_e255933255977_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd253234253277_)))) - (let ((_tl253236253287_ + (gx#stx-e _hd255929255972_)))) + (let ((_tl255931255982_ (let () (declare (not safe)) - (##cdr _e253238253282_))) - (_hd253237253285_ + (##cdr _e255933255977_))) + (_hd255932255980_ (let () (declare (not safe)) - (##car _e253238253282_)))) + (##car _e255933255977_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd253237253285_)) + (gx#identifier? _hd255932255980_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd253237253285_)) + (gx#stx-eq? '%#ref _hd255932255980_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl253236253287_)) - (let ((_e253241253290_ + (gx#stx-pair? _tl255931255982_)) + (let ((_e255936255985_ (let () (declare (not safe)) - (gx#stx-e _tl253236253287_)))) - (let ((_tl253239253295_ + (gx#stx-e _tl255931255982_)))) + (let ((_tl255934255990_ (let () (declare (not safe)) - (##cdr _e253241253290_))) - (_hd253240253293_ + (##cdr _e255936255985_))) + (_hd255935255988_ (let () (declare (not safe)) - (##car _e253241253290_)))) + (##car _e255936255985_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl253239253295_)) + (gx#stx-null? _tl255934255990_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl253233253279_)) - (___kont271692271693_ - _hd253240253293_ - _hd253231253269_) - (___kont271694271695_)) - (___kont271694271695_)))) - (___kont271694271695_)) - (___kont271694271695_)) - (___kont271694271695_)))) - (___kont271694271695_)))) + (gx#stx-null? _tl255928255974_)) + (___kont274487274488_ + _hd255935255988_ + _hd255926255964_) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont271694271695_)) - (___kont271694271695_)))) - (___kont271694271695_)))) - (___kont271694271695_))))))) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)))) + (___kont274489274490_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest253200253208_)) - (let ((_hd253205253331_ + (##pair? _rest255895255903_)) + (let ((_hd255900256026_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _rest253200253208_))) - (_tl253206253333_ + (##car _rest255895255903_))) + (_tl255901256028_ (let () (declare (not safe)) - (##cdr _rest253200253208_)))) - (let* ((_bind253336_ _hd253205253331_) - (_rest253338_ _tl253206253333_)) + (##cdr _rest255895255903_)))) + (let* ((_bind256031_ _hd255900256026_) + (_rest256033_ _tl255901256028_)) (declare (not safe)) - (_K253204253328_ _rest253338_ _bind253336_))) - (let () (declare (not safe)) (_else253202253216_)))))) + (_K255899256023_ _rest256033_ _bind256031_))) + (let () (declare (not safe)) (_else255897255911_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd253144253174_ - _hd253141253166_) + _hd255839255869_ + _hd255836255861_) (let () (declare (not safe)) - (_g253133253150_ - _g253134253153_))))) + (_g255828255845_ + _g255829255848_))))) (let () (declare (not safe)) - (_g253133253150_ _g253134253153_))))) + (_g255828255845_ _g255829255848_))))) (let () (declare (not safe)) - (_g253133253150_ _g253134253153_))))) + (_g255828255845_ _g255829255848_))))) (let () (declare (not safe)) - (_g253133253150_ _g253134253153_)))))) + (_g255828255845_ _g255829255848_)))))) (declare (not safe)) - (_g253132253340_ _stx253129_)))) + (_g255827256035_ _stx255824_)))) (define gxc#push-match-vars-if% - (lambda (_stx253044_ _vars253045_ _K253046_) - (let* ((_g253048253069_ - (lambda (_g253049253066_) + (lambda (_stx255739_ _vars255740_ _K255741_) + (let* ((_g255743255764_ + (lambda (_g255744255761_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g253049253066_)))) - (_g253047253126_ - (lambda (_g253049253072_) + _g255744255761_)))) + (_g255742255821_ + (lambda (_g255744255767_) (if (let () (declare (not safe)) - (gx#stx-pair? _g253049253072_)) - (let ((_e253055253074_ + (gx#stx-pair? _g255744255767_)) + (let ((_e255750255769_ (let () (declare (not safe)) - (gx#stx-e _g253049253072_)))) - (let ((_hd253054253077_ + (gx#stx-e _g255744255767_)))) + (let ((_hd255749255772_ (let () (declare (not safe)) - (##car _e253055253074_))) - (_tl253053253079_ + (##car _e255750255769_))) + (_tl255748255774_ (let () (declare (not safe)) - (##cdr _e253055253074_)))) + (##cdr _e255750255769_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl253053253079_)) - (let ((_e253058253082_ + (gx#stx-pair? _tl255748255774_)) + (let ((_e255753255777_ (let () (declare (not safe)) - (gx#stx-e _tl253053253079_)))) - (let ((_hd253057253085_ + (gx#stx-e _tl255748255774_)))) + (let ((_hd255752255780_ (let () (declare (not safe)) - (##car _e253058253082_))) - (_tl253056253087_ + (##car _e255753255777_))) + (_tl255751255782_ (let () (declare (not safe)) - (##cdr _e253058253082_)))) + (##cdr _e255753255777_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl253056253087_)) - (let ((_e253061253090_ + (gx#stx-pair? _tl255751255782_)) + (let ((_e255756255785_ (let () (declare (not safe)) - (gx#stx-e _tl253056253087_)))) - (let ((_hd253060253093_ + (gx#stx-e _tl255751255782_)))) + (let ((_hd255755255788_ (let () (declare (not safe)) - (##car _e253061253090_))) - (_tl253059253095_ + (##car _e255756255785_))) + (_tl255754255790_ (let () (declare (not safe)) - (##cdr _e253061253090_)))) + (##cdr _e255756255785_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl253059253095_)) - (let ((_e253064253098_ + _tl255754255790_)) + (let ((_e255759255793_ (let () (declare (not safe)) (gx#stx-e - _tl253059253095_)))) - (let ((_hd253063253101_ + _tl255754255790_)))) + (let ((_hd255758255796_ (let () (declare (not safe)) - (##car _e253064253098_))) - (_tl253062253103_ + (##car _e255759255793_))) + (_tl255757255798_ (let () (declare (not safe)) - (##cdr _e253064253098_)))) + (##cdr _e255759255793_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl253062253103_)) - ((lambda (_L253106_ - _L253107_ - _L253108_) - (if (let ((__tmp272323 + _tl255757255798_)) + ((lambda (_L255801_ + _L255802_ + _L255803_) + (if (let ((__tmp275118 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (map caar _vars253045_))) + (map caar _vars255740_))) (declare (not safe)) - (gxc#apply-find-var-refs _L253108_ __tmp272323)) + (gxc#apply-find-var-refs _L255803_ __tmp275118)) (let () (declare (not safe)) (gxc#push-match-vars-stop - _stx253044_ - _vars253045_ - _K253046_)) - (let ((__tmp272317 - (let ((__tmp272318 - (let ((__tmp272319 - (let ((__tmp272322 + _stx255739_ + _vars255740_ + _K255741_)) + (let ((__tmp275112 + (let ((__tmp275113 + (let ((__tmp275114 + (let ((__tmp275117 (let () (declare (not safe)) (gxc#compile-e__2 - _L253107_ - _vars253045_ - _K253046_))) - (__tmp272320 - (let ((__tmp272321 + _L255802_ + _vars255740_ + _K255741_))) + (__tmp275115 + (let ((__tmp275116 (let () (declare (not safe)) (gxc#compile-e__2 - _L253106_ - _vars253045_ - _K253046_)))) + _L255801_ + _vars255740_ + _K255741_)))) (declare (not safe)) - (cons __tmp272321 '())))) + (cons __tmp275116 '())))) (declare (not safe)) - (cons __tmp272322 __tmp272320)))) + (cons __tmp275117 __tmp275115)))) (declare (not safe)) - (cons _L253108_ __tmp272319)))) + (cons _L255803_ __tmp275114)))) (declare (not safe)) - (cons '%#if __tmp272318)))) + (cons '%#if __tmp275113)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp272317 _stx253044_)))) - _hd253063253101_ - _hd253060253093_ - _hd253057253085_) + (gxc#xform-wrap-source __tmp275112 _stx255739_)))) + _hd255758255796_ + _hd255755255788_ + _hd255752255780_) (let () (declare (not safe)) - (_g253048253069_ _g253049253072_))))) + (_g255743255764_ _g255744255767_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g253048253069_ - _g253049253072_))))) + (_g255743255764_ + _g255744255767_))))) (let () (declare (not safe)) - (_g253048253069_ _g253049253072_))))) + (_g255743255764_ _g255744255767_))))) (let () (declare (not safe)) - (_g253048253069_ _g253049253072_))))) + (_g255743255764_ _g255744255767_))))) (let () (declare (not safe)) - (_g253048253069_ _g253049253072_)))))) + (_g255743255764_ _g255744255767_)))))) (declare (not safe)) - (_g253047253126_ _stx253044_)))) + (_g255742255821_ _stx255739_)))) (define gxc#push-match-vars-call% - (lambda (_stx252964_ _vars252965_ _K252966_) - (let* ((_g252968252987_ - (lambda (_g252969252984_) + (lambda (_stx255659_ _vars255660_ _K255661_) + (let* ((_g255663255682_ + (lambda (_g255664255679_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g252969252984_)))) - (_g252967253041_ - (lambda (_g252969252990_) + _g255664255679_)))) + (_g255662255736_ + (lambda (_g255664255685_) (if (let () (declare (not safe)) - (gx#stx-pair? _g252969252990_)) - (let ((_e252973252992_ + (gx#stx-pair? _g255664255685_)) + (let ((_e255668255687_ (let () (declare (not safe)) - (gx#stx-e _g252969252990_)))) - (let ((_hd252972252995_ + (gx#stx-e _g255664255685_)))) + (let ((_hd255667255690_ (let () (declare (not safe)) - (##car _e252973252992_))) - (_tl252971252997_ + (##car _e255668255687_))) + (_tl255666255692_ (let () (declare (not safe)) - (##cdr _e252973252992_)))) + (##cdr _e255668255687_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl252971252997_)) - (let ((_e252976253000_ + (gx#stx-pair? _tl255666255692_)) + (let ((_e255671255695_ (let () (declare (not safe)) - (gx#stx-e _tl252971252997_)))) - (let ((_hd252975253003_ + (gx#stx-e _tl255666255692_)))) + (let ((_hd255670255698_ (let () (declare (not safe)) - (##car _e252976253000_))) - (_tl252974253005_ + (##car _e255671255695_))) + (_tl255669255700_ (let () (declare (not safe)) - (##cdr _e252976253000_)))) + (##cdr _e255671255695_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd252975253003_)) - (let ((_e252979253008_ + (gx#stx-pair? _hd255670255698_)) + (let ((_e255674255703_ (let () (declare (not safe)) - (gx#stx-e _hd252975253003_)))) - (let ((_hd252978253011_ + (gx#stx-e _hd255670255698_)))) + (let ((_hd255673255706_ (let () (declare (not safe)) - (##car _e252979253008_))) - (_tl252977253013_ + (##car _e255674255703_))) + (_tl255672255708_ (let () (declare (not safe)) - (##cdr _e252979253008_)))) + (##cdr _e255674255703_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd252978253011_)) + _hd255673255706_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd252978253011_)) + _hd255673255706_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl252977253013_)) - (let ((_e252982253016_ + _tl255672255708_)) + (let ((_e255677255711_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl252977253013_)))) - (let ((_hd252981253019_ - (let () (declare (not safe)) (##car _e252982253016_))) - (_tl252980253021_ - (let () (declare (not safe)) (##cdr _e252982253016_)))) + (gx#stx-e _tl255672255708_)))) + (let ((_hd255676255714_ + (let () (declare (not safe)) (##car _e255677255711_))) + (_tl255675255716_ + (let () (declare (not safe)) (##cdr _e255677255711_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl252980253021_)) - ((lambda (_L253024_) + (gx#stx-null? _tl255675255716_)) + ((lambda (_L255719_) (if (and (let () (declare (not safe)) - (gx#free-identifier=? _L253024_ _K252966_)) + (gx#free-identifier=? _L255719_ _K255661_)) (let () (declare (not safe)) - (pair? _vars252965_))) - (let ((__tmp272324 - (let ((__tmp272325 - (let ((__tmp272327 - (reverse _vars252965_)) - (__tmp272326 + (pair? _vars255660_))) + (let ((__tmp275119 + (let ((__tmp275120 + (let ((__tmp275122 + (reverse _vars255660_)) + (__tmp275121 (let () (declare (not safe)) - (cons _stx252964_ '())))) + (cons _stx255659_ '())))) (declare (not safe)) - (cons __tmp272327 __tmp272326)))) + (cons __tmp275122 __tmp275121)))) (declare (not safe)) - (cons '%#let-values __tmp272325)))) + (cons '%#let-values __tmp275120)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp272324 _stx252964_)) - _stx252964_)) - _hd252981253019_) + (gxc#xform-wrap-source __tmp275119 _stx255659_)) + _stx255659_)) + _hd255676255714_) (let () (declare (not safe)) - (_g252968252987_ _g252969252990_))))) - (let () (declare (not safe)) (_g252968252987_ _g252969252990_))) + (_g255663255682_ _g255664255685_))))) + (let () (declare (not safe)) (_g255663255682_ _g255664255685_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g252968252987_ - _g252969252990_))) + (_g255663255682_ + _g255664255685_))) (let () (declare (not safe)) - (_g252968252987_ - _g252969252990_))))) + (_g255663255682_ + _g255664255685_))))) (let () (declare (not safe)) - (_g252968252987_ _g252969252990_))))) + (_g255663255682_ _g255664255685_))))) (let () (declare (not safe)) - (_g252968252987_ _g252969252990_))))) + (_g255663255682_ _g255664255685_))))) (let () (declare (not safe)) - (_g252968252987_ _g252969252990_)))))) + (_g255663255682_ _g255664255685_)))))) (declare (not safe)) - (_g252967253041_ _stx252964_)))) + (_g255662255736_ _stx255659_)))) (define gxc#push-match-vars-stop - (lambda (_stx252960_ _vars252961_ _K252962_) - (if (let () (declare (not safe)) (null? _vars252961_)) - _stx252960_ - (let ((__tmp272328 - (let ((__tmp272329 - (let ((__tmp272331 (reverse _vars252961_)) - (__tmp272330 + (lambda (_stx255655_ _vars255656_ _K255657_) + (if (let () (declare (not safe)) (null? _vars255656_)) + _stx255655_ + (let ((__tmp275123 + (let ((__tmp275124 + (let ((__tmp275126 (reverse _vars255656_)) + (__tmp275125 (let () (declare (not safe)) - (cons _stx252960_ '())))) + (cons _stx255655_ '())))) (declare (not safe)) - (cons __tmp272331 __tmp272330)))) + (cons __tmp275126 __tmp275125)))) (declare (not safe)) - (cons '%#let-values __tmp272329)))) + (cons '%#let-values __tmp275124)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp272328 _stx252960_))))))) + (gxc#xform-wrap-source __tmp275123 _stx255655_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base.ssi b/src/bootstrap/gerbil/compiler/optimize-base.ssi index 82aabb43d..629eabe2c 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base.ssi +++ b/src/bootstrap/gerbil/compiler/optimize-base.ssi @@ -4,6 +4,7 @@ namespace: gxc (%#begin (%#import :gerbil/expander + :gerbil/runtime/c3 :gerbil/compiler/base :gerbil/compiler/compile (in: :gerbil/core ) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__0.scm b/src/bootstrap/gerbil/compiler/optimize-base__0.scm index 74d79c008..462e99f7c 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__0.scm @@ -1,133 +1,134 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1707573214) + (define gerbil/compiler/optimize-base::timestamp 1707674933) (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 ((__tmp217626 - (let ((__tmp217627 + (let ((__tmp220018 (list)) + (__tmp220016 + (let ((__tmp220017 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp217627 '())))) + (cons __tmp220017 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#optimizer-info::t 'optimizer-info - '#f + __tmp220018 '(type ssxi methods) - __tmp217626 + __tmp220016 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) - (make-struct-predicate gxc#optimizer-info::t))) + (make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _$args213083_ - (apply make-struct-instance gxc#optimizer-info::t _$args213083_))) + (lambda _$args215391_ + (apply make-instance gxc#optimizer-info::t _$args215391_))) (define gxc#optimizer-info-type (let () (declare (not safe)) - (make-struct-slot-accessor gxc#optimizer-info::t 'type))) + (make-class-slot-accessor gxc#optimizer-info::t 'type))) (define gxc#optimizer-info-ssxi (let () (declare (not safe)) - (make-struct-slot-accessor gxc#optimizer-info::t 'ssxi))) + (make-class-slot-accessor gxc#optimizer-info::t 'ssxi))) (define gxc#optimizer-info-methods (let () (declare (not safe)) - (make-struct-slot-accessor gxc#optimizer-info::t 'methods))) + (make-class-slot-accessor gxc#optimizer-info::t 'methods))) (define gxc#optimizer-info-type-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#optimizer-info::t 'type))) + (make-class-slot-mutator gxc#optimizer-info::t 'type))) (define gxc#optimizer-info-ssxi-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#optimizer-info::t 'ssxi))) + (make-class-slot-mutator gxc#optimizer-info::t 'ssxi))) (define gxc#optimizer-info-methods-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#optimizer-info::t 'methods))) + (make-class-slot-mutator gxc#optimizer-info::t 'methods))) (define gxc#&optimizer-info-type (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#optimizer-info::t 'type))) + (make-class-slot-unchecked-accessor gxc#optimizer-info::t 'type))) (define gxc#&optimizer-info-ssxi (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#optimizer-info::t 'ssxi))) + (make-class-slot-unchecked-accessor gxc#optimizer-info::t 'ssxi))) (define gxc#&optimizer-info-methods (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#optimizer-info::t 'methods))) + (make-class-slot-unchecked-accessor gxc#optimizer-info::t 'methods))) (define gxc#&optimizer-info-type-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#optimizer-info::t 'type))) + (make-class-slot-unchecked-mutator gxc#optimizer-info::t 'type))) (define gxc#&optimizer-info-ssxi-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#optimizer-info::t 'ssxi))) + (make-class-slot-unchecked-mutator gxc#optimizer-info::t 'ssxi))) (define gxc#&optimizer-info-methods-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#optimizer-info::t 'methods))) + (make-class-slot-unchecked-mutator gxc#optimizer-info::t 'methods))) (define gxc#optimizer-info:::init! - (lambda (_self213081_) - (if (let ((__tmp217634 + (lambda (_self215389_) + (if (let ((__tmp220025 (let () (declare (not safe)) - (##structure-length _self213081_)))) + (##structure-length _self215389_)))) (declare (not safe)) - (##fx< '3 __tmp217634)) + (##fx< '3 __tmp220025)) (begin - (let ((__tmp217629 + (let ((__tmp220020 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp217628 + (__tmp220019 (let () (declare (not safe)) - (##structure-type _self213081_)))) + (##structure-type _self215389_)))) (declare (not safe)) (##unchecked-structure-set! - _self213081_ - __tmp217629 + _self215389_ + __tmp220020 '1 - __tmp217628 + __tmp220019 '#f)) - (let ((__tmp217631 + (let ((__tmp220022 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp217630 + (__tmp220021 (let () (declare (not safe)) - (##structure-type _self213081_)))) + (##structure-type _self215389_)))) (declare (not safe)) (##unchecked-structure-set! - _self213081_ - __tmp217631 + _self215389_ + __tmp220022 '2 - __tmp217630 + __tmp220021 '#f)) - (let ((__tmp217633 + (let ((__tmp220024 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp217632 + (__tmp220023 (let () (declare (not safe)) - (##structure-type _self213081_)))) + (##structure-type _self215389_)))) (declare (not safe)) (##unchecked-structure-set! - _self213081_ - __tmp217633 + _self215389_ + __tmp220024 '3 - __tmp217632 + __tmp220023 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self213081_ + _self215389_ '3 (let () (declare (not safe)) - (##vector-length _self213081_)))))) + (##vector-length _self215389_)))))) (let () (declare (not safe)) (bind-method! @@ -136,115 +137,121 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp217635 - (let ((__tmp217636 + (let ((__tmp220028 (list)) + (__tmp220026 + (let ((__tmp220027 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp217636 '())))) + (cons __tmp220027 '())))) (declare (not safe)) - (make-struct-type 'gxc#!type::t '!type '#f '(id) __tmp217635 '#f))) + (make-class-type + 'gxc#!type::t + '!type + __tmp220028 + '(id) + __tmp220026 + '#f))) (define gxc#!type? - (let () (declare (not safe)) (make-struct-predicate gxc#!type::t))) + (let () (declare (not safe)) (make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _$args212956_ - (apply make-struct-instance gxc#!type::t _$args212956_))) + (lambda _$args215264_ (apply make-instance gxc#!type::t _$args215264_))) (define gxc#!type-id (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!type::t 'id))) + (make-class-slot-accessor gxc#!type::t 'id))) (define gxc#!type-id-set! - (let () - (declare (not safe)) - (make-struct-slot-mutator gxc#!type::t 'id))) + (let () (declare (not safe)) (make-class-slot-mutator gxc#!type::t 'id))) (define gxc#&!type-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!type::t 'id))) + (make-class-slot-unchecked-accessor gxc#!type::t 'id))) (define gxc#&!type-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!type::t 'id))) + (make-class-slot-unchecked-mutator gxc#!type::t 'id))) (define gxc#!alias::t - (let ((__tmp217637 - (let ((__tmp217638 + (let ((__tmp220031 (list gxc#!type::t)) + (__tmp220029 + (let ((__tmp220030 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp217638 '())))) + (cons __tmp220030 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#!alias::t '!alias - gxc#!type::t + __tmp220031 '() - __tmp217637 + __tmp220029 '#f))) (define gxc#!alias? - (let () (declare (not safe)) (make-struct-predicate gxc#!alias::t))) + (let () (declare (not safe)) (make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _$args212953_ - (apply make-struct-instance gxc#!alias::t _$args212953_))) + (lambda _$args215261_ (apply make-instance gxc#!alias::t _$args215261_))) (define gxc#!alias-id (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!alias::t 'id))) + (make-class-slot-accessor gxc#!alias::t 'id))) (define gxc#!alias-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!alias::t 'id))) + (make-class-slot-mutator gxc#!alias::t 'id))) (define gxc#&!alias-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!alias::t 'id))) + (make-class-slot-unchecked-accessor gxc#!alias::t 'id))) (define gxc#&!alias-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!alias::t 'id))) + (make-class-slot-unchecked-mutator gxc#!alias::t 'id))) (define gxc#!procedure::t - (let ((__tmp217639 - (let ((__tmp217640 + (let ((__tmp220034 (list gxc#!type::t)) + (__tmp220032 + (let ((__tmp220033 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp217640 '())))) + (cons __tmp220033 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#!procedure::t '!procedure - gxc#!type::t + __tmp220034 '() - __tmp217639 + __tmp220032 '#f))) (define gxc#!procedure? - (let () (declare (not safe)) (make-struct-predicate gxc#!procedure::t))) + (let () (declare (not safe)) (make-class-predicate gxc#!procedure::t))) (define gxc#make-!procedure - (lambda _$args212950_ - (apply make-struct-instance gxc#!procedure::t _$args212950_))) + (lambda _$args215258_ + (apply make-instance gxc#!procedure::t _$args215258_))) (define gxc#!procedure-id (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!procedure::t 'id))) + (make-class-slot-accessor gxc#!procedure::t 'id))) (define gxc#!procedure-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!procedure::t 'id))) + (make-class-slot-mutator gxc#!procedure::t 'id))) (define gxc#&!procedure-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!procedure::t 'id))) + (make-class-slot-unchecked-accessor gxc#!procedure::t 'id))) (define gxc#&!procedure-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!procedure::t 'id))) + (make-class-slot-unchecked-mutator gxc#!procedure::t 'id))) (define gxc#!class::t - (let ((__tmp217641 - (let ((__tmp217642 + (let ((__tmp220037 (list gxc#!type::t)) + (__tmp220035 + (let ((__tmp220036 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp217642 '())))) + (cons __tmp220036 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#!class::t '!class - gxc#!type::t + __tmp220037 '(super precedence-list slots fields @@ -252,673 +259,676 @@ struct? final? methods) - __tmp217641 + __tmp220035 ':init!))) (define gxc#!class? - (let () (declare (not safe)) (make-struct-predicate gxc#!class::t))) + (let () (declare (not safe)) (make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _$args212947_ - (apply make-struct-instance gxc#!class::t _$args212947_))) + (lambda _$args215255_ (apply make-instance gxc#!class::t _$args215255_))) (define gxc#!class-super (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!class::t 'super))) + (make-class-slot-accessor gxc#!class::t 'super))) (define gxc#!class-precedence-list (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!class::t 'precedence-list))) + (make-class-slot-accessor gxc#!class::t 'precedence-list))) (define gxc#!class-slots (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!class::t 'slots))) + (make-class-slot-accessor gxc#!class::t 'slots))) (define gxc#!class-fields (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!class::t 'fields))) + (make-class-slot-accessor gxc#!class::t 'fields))) (define gxc#!class-constructor (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!class::t 'constructor))) + (make-class-slot-accessor gxc#!class::t 'constructor))) (define gxc#!class-struct? (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!class::t 'struct?))) + (make-class-slot-accessor gxc#!class::t 'struct?))) (define gxc#!class-final? (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!class::t 'final?))) + (make-class-slot-accessor gxc#!class::t 'final?))) (define gxc#!class-methods (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!class::t 'methods))) + (make-class-slot-accessor gxc#!class::t 'methods))) (define gxc#!class-id (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!class::t 'id))) + (make-class-slot-accessor gxc#!class::t 'id))) (define gxc#!class-super-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!class::t 'super))) + (make-class-slot-mutator gxc#!class::t 'super))) (define gxc#!class-precedence-list-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!class::t 'precedence-list))) + (make-class-slot-mutator gxc#!class::t 'precedence-list))) (define gxc#!class-slots-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!class::t 'slots))) + (make-class-slot-mutator gxc#!class::t 'slots))) (define gxc#!class-fields-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!class::t 'fields))) + (make-class-slot-mutator gxc#!class::t 'fields))) (define gxc#!class-constructor-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!class::t 'constructor))) + (make-class-slot-mutator gxc#!class::t 'constructor))) (define gxc#!class-struct?-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!class::t 'struct?))) + (make-class-slot-mutator gxc#!class::t 'struct?))) (define gxc#!class-final?-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!class::t 'final?))) + (make-class-slot-mutator gxc#!class::t 'final?))) (define gxc#!class-methods-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!class::t 'methods))) + (make-class-slot-mutator gxc#!class::t 'methods))) (define gxc#!class-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!class::t 'id))) + (make-class-slot-mutator gxc#!class::t 'id))) (define gxc#&!class-super (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!class::t 'super))) + (make-class-slot-unchecked-accessor gxc#!class::t 'super))) (define gxc#&!class-precedence-list (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!class::t 'precedence-list))) + (make-class-slot-unchecked-accessor gxc#!class::t 'precedence-list))) (define gxc#&!class-slots (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!class::t 'slots))) + (make-class-slot-unchecked-accessor gxc#!class::t 'slots))) (define gxc#&!class-fields (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!class::t 'fields))) + (make-class-slot-unchecked-accessor gxc#!class::t 'fields))) (define gxc#&!class-constructor (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!class::t 'constructor))) + (make-class-slot-unchecked-accessor gxc#!class::t 'constructor))) (define gxc#&!class-struct? (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!class::t 'struct?))) + (make-class-slot-unchecked-accessor gxc#!class::t 'struct?))) (define gxc#&!class-final? (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!class::t 'final?))) + (make-class-slot-unchecked-accessor gxc#!class::t 'final?))) (define gxc#&!class-methods (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!class::t 'methods))) + (make-class-slot-unchecked-accessor gxc#!class::t 'methods))) (define gxc#&!class-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!class::t 'id))) + (make-class-slot-unchecked-accessor gxc#!class::t 'id))) (define gxc#&!class-super-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!class::t 'super))) + (make-class-slot-unchecked-mutator gxc#!class::t 'super))) (define gxc#&!class-precedence-list-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!class::t 'precedence-list))) + (make-class-slot-unchecked-mutator gxc#!class::t 'precedence-list))) (define gxc#&!class-slots-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!class::t 'slots))) + (make-class-slot-unchecked-mutator gxc#!class::t 'slots))) (define gxc#&!class-fields-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!class::t 'fields))) + (make-class-slot-unchecked-mutator gxc#!class::t 'fields))) (define gxc#&!class-constructor-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!class::t 'constructor))) + (make-class-slot-unchecked-mutator gxc#!class::t 'constructor))) (define gxc#&!class-struct?-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!class::t 'struct?))) + (make-class-slot-unchecked-mutator gxc#!class::t 'struct?))) (define gxc#&!class-final?-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!class::t 'final?))) + (make-class-slot-unchecked-mutator gxc#!class::t 'final?))) (define gxc#&!class-methods-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!class::t 'methods))) + (make-class-slot-unchecked-mutator gxc#!class::t 'methods))) (define gxc#&!class-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!class::t 'id))) + (make-class-slot-unchecked-mutator gxc#!class::t 'id))) (define gxc#!predicate::t - (let ((__tmp217643 - (let ((__tmp217644 + (let ((__tmp220040 (list gxc#!procedure::t)) + (__tmp220038 + (let ((__tmp220039 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp217644 '())))) + (cons __tmp220039 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#!predicate::t '!predicate - gxc#!procedure::t + __tmp220040 '() - __tmp217643 + __tmp220038 '#f))) (define gxc#!predicate? - (let () (declare (not safe)) (make-struct-predicate gxc#!predicate::t))) + (let () (declare (not safe)) (make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _$args212944_ - (apply make-struct-instance gxc#!predicate::t _$args212944_))) + (lambda _$args215252_ + (apply make-instance gxc#!predicate::t _$args215252_))) (define gxc#!predicate-id (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!predicate::t 'id))) + (make-class-slot-accessor gxc#!predicate::t 'id))) (define gxc#!predicate-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!predicate::t 'id))) + (make-class-slot-mutator gxc#!predicate::t 'id))) (define gxc#&!predicate-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!predicate::t 'id))) + (make-class-slot-unchecked-accessor gxc#!predicate::t 'id))) (define gxc#&!predicate-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!predicate::t 'id))) + (make-class-slot-unchecked-mutator gxc#!predicate::t 'id))) (define gxc#!constructor::t - (let ((__tmp217645 - (let ((__tmp217646 + (let ((__tmp220043 (list gxc#!procedure::t)) + (__tmp220041 + (let ((__tmp220042 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp217646 '())))) + (cons __tmp220042 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#!constructor::t '!constructor - gxc#!procedure::t + __tmp220043 '() - __tmp217645 + __tmp220041 '#f))) (define gxc#!constructor? - (let () - (declare (not safe)) - (make-struct-predicate gxc#!constructor::t))) + (let () (declare (not safe)) (make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _$args212941_ - (apply make-struct-instance gxc#!constructor::t _$args212941_))) + (lambda _$args215249_ + (apply make-instance gxc#!constructor::t _$args215249_))) (define gxc#!constructor-id (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!constructor::t 'id))) + (make-class-slot-accessor gxc#!constructor::t 'id))) (define gxc#!constructor-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!constructor::t 'id))) + (make-class-slot-mutator gxc#!constructor::t 'id))) (define gxc#&!constructor-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!constructor::t 'id))) + (make-class-slot-unchecked-accessor gxc#!constructor::t 'id))) (define gxc#&!constructor-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!constructor::t 'id))) + (make-class-slot-unchecked-mutator gxc#!constructor::t 'id))) (define gxc#!accessor::t - (let ((__tmp217647 - (let ((__tmp217648 + (let ((__tmp220046 (list gxc#!procedure::t)) + (__tmp220044 + (let ((__tmp220045 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp217648 '())))) + (cons __tmp220045 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#!accessor::t '!accessor - gxc#!procedure::t + __tmp220046 '(slot checked?) - __tmp217647 + __tmp220044 '#f))) (define gxc#!accessor? - (let () (declare (not safe)) (make-struct-predicate gxc#!accessor::t))) + (let () (declare (not safe)) (make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _$args212938_ - (apply make-struct-instance gxc#!accessor::t _$args212938_))) + (lambda _$args215246_ + (apply make-instance gxc#!accessor::t _$args215246_))) (define gxc#!accessor-slot (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!accessor::t 'slot))) + (make-class-slot-accessor gxc#!accessor::t 'slot))) (define gxc#!accessor-checked? (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!accessor::t 'checked?))) + (make-class-slot-accessor gxc#!accessor::t 'checked?))) (define gxc#!accessor-id (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!accessor::t 'id))) + (make-class-slot-accessor gxc#!accessor::t 'id))) (define gxc#!accessor-slot-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!accessor::t 'slot))) + (make-class-slot-mutator gxc#!accessor::t 'slot))) (define gxc#!accessor-checked?-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!accessor::t 'checked?))) + (make-class-slot-mutator gxc#!accessor::t 'checked?))) (define gxc#!accessor-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!accessor::t 'id))) + (make-class-slot-mutator gxc#!accessor::t 'id))) (define gxc#&!accessor-slot (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!accessor::t 'slot))) + (make-class-slot-unchecked-accessor gxc#!accessor::t 'slot))) (define gxc#&!accessor-checked? (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!accessor::t 'checked?))) + (make-class-slot-unchecked-accessor gxc#!accessor::t 'checked?))) (define gxc#&!accessor-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!accessor::t 'id))) + (make-class-slot-unchecked-accessor gxc#!accessor::t 'id))) (define gxc#&!accessor-slot-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!accessor::t 'slot))) + (make-class-slot-unchecked-mutator gxc#!accessor::t 'slot))) (define gxc#&!accessor-checked?-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!accessor::t 'checked?))) + (make-class-slot-unchecked-mutator gxc#!accessor::t 'checked?))) (define gxc#&!accessor-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!accessor::t 'id))) + (make-class-slot-unchecked-mutator gxc#!accessor::t 'id))) (define gxc#!mutator::t - (let ((__tmp217649 - (let ((__tmp217650 + (let ((__tmp220049 (list gxc#!procedure::t)) + (__tmp220047 + (let ((__tmp220048 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp217650 '())))) + (cons __tmp220048 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#!mutator::t '!mutator - gxc#!procedure::t + __tmp220049 '(slot checked?) - __tmp217649 + __tmp220047 '#f))) (define gxc#!mutator? - (let () (declare (not safe)) (make-struct-predicate gxc#!mutator::t))) + (let () (declare (not safe)) (make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _$args212935_ - (apply make-struct-instance gxc#!mutator::t _$args212935_))) + (lambda _$args215243_ + (apply make-instance gxc#!mutator::t _$args215243_))) (define gxc#!mutator-slot (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!mutator::t 'slot))) + (make-class-slot-accessor gxc#!mutator::t 'slot))) (define gxc#!mutator-checked? (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!mutator::t 'checked?))) + (make-class-slot-accessor gxc#!mutator::t 'checked?))) (define gxc#!mutator-id (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!mutator::t 'id))) + (make-class-slot-accessor gxc#!mutator::t 'id))) (define gxc#!mutator-slot-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!mutator::t 'slot))) + (make-class-slot-mutator gxc#!mutator::t 'slot))) (define gxc#!mutator-checked?-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!mutator::t 'checked?))) + (make-class-slot-mutator gxc#!mutator::t 'checked?))) (define gxc#!mutator-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!mutator::t 'id))) + (make-class-slot-mutator gxc#!mutator::t 'id))) (define gxc#&!mutator-slot (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!mutator::t 'slot))) + (make-class-slot-unchecked-accessor gxc#!mutator::t 'slot))) (define gxc#&!mutator-checked? (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!mutator::t 'checked?))) + (make-class-slot-unchecked-accessor gxc#!mutator::t 'checked?))) (define gxc#&!mutator-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!mutator::t 'id))) + (make-class-slot-unchecked-accessor gxc#!mutator::t 'id))) (define gxc#&!mutator-slot-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!mutator::t 'slot))) + (make-class-slot-unchecked-mutator gxc#!mutator::t 'slot))) (define gxc#&!mutator-checked?-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!mutator::t 'checked?))) + (make-class-slot-unchecked-mutator gxc#!mutator::t 'checked?))) (define gxc#&!mutator-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!mutator::t 'id))) + (make-class-slot-unchecked-mutator gxc#!mutator::t 'id))) (define gxc#!lambda::t - (let ((__tmp217651 - (let ((__tmp217652 + (let ((__tmp220052 (list gxc#!procedure::t)) + (__tmp220050 + (let ((__tmp220051 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp217652 '())))) + (cons __tmp220051 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#!lambda::t '!lambda - gxc#!procedure::t + __tmp220052 '(arity dispatch inline inline-typedecl) - __tmp217651 + __tmp220050 ':init!))) (define gxc#!lambda? - (let () (declare (not safe)) (make-struct-predicate gxc#!lambda::t))) + (let () (declare (not safe)) (make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _$args212932_ - (apply make-struct-instance gxc#!lambda::t _$args212932_))) + (lambda _$args215240_ + (apply make-instance gxc#!lambda::t _$args215240_))) (define gxc#!lambda-arity (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!lambda::t 'arity))) + (make-class-slot-accessor gxc#!lambda::t 'arity))) (define gxc#!lambda-dispatch (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!lambda::t 'dispatch))) + (make-class-slot-accessor gxc#!lambda::t 'dispatch))) (define gxc#!lambda-inline (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!lambda::t 'inline))) + (make-class-slot-accessor gxc#!lambda::t 'inline))) (define gxc#!lambda-inline-typedecl (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!lambda::t 'inline-typedecl))) + (make-class-slot-accessor gxc#!lambda::t 'inline-typedecl))) (define gxc#!lambda-id (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!lambda::t 'id))) + (make-class-slot-accessor gxc#!lambda::t 'id))) (define gxc#!lambda-arity-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!lambda::t 'arity))) + (make-class-slot-mutator gxc#!lambda::t 'arity))) (define gxc#!lambda-dispatch-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!lambda::t 'dispatch))) + (make-class-slot-mutator gxc#!lambda::t 'dispatch))) (define gxc#!lambda-inline-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!lambda::t 'inline))) + (make-class-slot-mutator gxc#!lambda::t 'inline))) (define gxc#!lambda-inline-typedecl-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!lambda::t 'inline-typedecl))) + (make-class-slot-mutator gxc#!lambda::t 'inline-typedecl))) (define gxc#!lambda-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!lambda::t 'id))) + (make-class-slot-mutator gxc#!lambda::t 'id))) (define gxc#&!lambda-arity (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!lambda::t 'arity))) + (make-class-slot-unchecked-accessor gxc#!lambda::t 'arity))) (define gxc#&!lambda-dispatch (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!lambda::t 'dispatch))) + (make-class-slot-unchecked-accessor gxc#!lambda::t 'dispatch))) (define gxc#&!lambda-inline (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!lambda::t 'inline))) + (make-class-slot-unchecked-accessor gxc#!lambda::t 'inline))) (define gxc#&!lambda-inline-typedecl (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!lambda::t 'inline-typedecl))) + (make-class-slot-unchecked-accessor gxc#!lambda::t 'inline-typedecl))) (define gxc#&!lambda-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!lambda::t 'id))) + (make-class-slot-unchecked-accessor gxc#!lambda::t 'id))) (define gxc#&!lambda-arity-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!lambda::t 'arity))) + (make-class-slot-unchecked-mutator gxc#!lambda::t 'arity))) (define gxc#&!lambda-dispatch-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!lambda::t 'dispatch))) + (make-class-slot-unchecked-mutator gxc#!lambda::t 'dispatch))) (define gxc#&!lambda-inline-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!lambda::t 'inline))) + (make-class-slot-unchecked-mutator gxc#!lambda::t 'inline))) (define gxc#&!lambda-inline-typedecl-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!lambda::t 'inline-typedecl))) + (make-class-slot-unchecked-mutator gxc#!lambda::t 'inline-typedecl))) (define gxc#&!lambda-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!lambda::t 'id))) + (make-class-slot-unchecked-mutator gxc#!lambda::t 'id))) (define gxc#!case-lambda::t - (let ((__tmp217653 - (let ((__tmp217654 + (let ((__tmp220055 (list gxc#!procedure::t)) + (__tmp220053 + (let ((__tmp220054 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp217654 '())))) + (cons __tmp220054 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#!case-lambda::t '!case-lambda - gxc#!procedure::t + __tmp220055 '(clauses) - __tmp217653 + __tmp220053 '#f))) (define gxc#!case-lambda? - (let () - (declare (not safe)) - (make-struct-predicate gxc#!case-lambda::t))) + (let () (declare (not safe)) (make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _$args212929_ - (apply make-struct-instance gxc#!case-lambda::t _$args212929_))) + (lambda _$args215237_ + (apply make-instance gxc#!case-lambda::t _$args215237_))) (define gxc#!case-lambda-clauses (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!case-lambda::t 'clauses))) + (make-class-slot-accessor gxc#!case-lambda::t 'clauses))) (define gxc#!case-lambda-id (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!case-lambda::t 'id))) + (make-class-slot-accessor gxc#!case-lambda::t 'id))) (define gxc#!case-lambda-clauses-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!case-lambda::t 'clauses))) + (make-class-slot-mutator gxc#!case-lambda::t 'clauses))) (define gxc#!case-lambda-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!case-lambda::t 'id))) + (make-class-slot-mutator gxc#!case-lambda::t 'id))) (define gxc#&!case-lambda-clauses (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!case-lambda::t 'clauses))) + (make-class-slot-unchecked-accessor gxc#!case-lambda::t 'clauses))) (define gxc#&!case-lambda-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!case-lambda::t 'id))) + (make-class-slot-unchecked-accessor gxc#!case-lambda::t 'id))) (define gxc#&!case-lambda-clauses-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!case-lambda::t 'clauses))) + (make-class-slot-unchecked-mutator gxc#!case-lambda::t 'clauses))) (define gxc#&!case-lambda-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!case-lambda::t 'id))) + (make-class-slot-unchecked-mutator gxc#!case-lambda::t 'id))) (define gxc#!kw-lambda::t - (let ((__tmp217655 - (let ((__tmp217656 + (let ((__tmp220058 (list gxc#!procedure::t)) + (__tmp220056 + (let ((__tmp220057 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp217656 '())))) + (cons __tmp220057 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#!kw-lambda::t '!kw-lambda - gxc#!procedure::t + __tmp220058 '(table dispatch) - __tmp217655 + __tmp220056 '#f))) (define gxc#!kw-lambda? - (let () (declare (not safe)) (make-struct-predicate gxc#!kw-lambda::t))) + (let () (declare (not safe)) (make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _$args212926_ - (apply make-struct-instance gxc#!kw-lambda::t _$args212926_))) + (lambda _$args215234_ + (apply make-instance gxc#!kw-lambda::t _$args215234_))) (define gxc#!kw-lambda-table (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!kw-lambda::t 'table))) + (make-class-slot-accessor gxc#!kw-lambda::t 'table))) (define gxc#!kw-lambda-dispatch (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!kw-lambda::t 'dispatch))) + (make-class-slot-accessor gxc#!kw-lambda::t 'dispatch))) (define gxc#!kw-lambda-id (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!kw-lambda::t 'id))) + (make-class-slot-accessor gxc#!kw-lambda::t 'id))) (define gxc#!kw-lambda-table-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!kw-lambda::t 'table))) + (make-class-slot-mutator gxc#!kw-lambda::t 'table))) (define gxc#!kw-lambda-dispatch-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!kw-lambda::t 'dispatch))) + (make-class-slot-mutator gxc#!kw-lambda::t 'dispatch))) (define gxc#!kw-lambda-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!kw-lambda::t 'id))) + (make-class-slot-mutator gxc#!kw-lambda::t 'id))) (define gxc#&!kw-lambda-table (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!kw-lambda::t 'table))) + (make-class-slot-unchecked-accessor gxc#!kw-lambda::t 'table))) (define gxc#&!kw-lambda-dispatch (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!kw-lambda::t 'dispatch))) + (make-class-slot-unchecked-accessor gxc#!kw-lambda::t 'dispatch))) (define gxc#&!kw-lambda-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!kw-lambda::t 'id))) + (make-class-slot-unchecked-accessor gxc#!kw-lambda::t 'id))) (define gxc#&!kw-lambda-table-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!kw-lambda::t 'table))) + (make-class-slot-unchecked-mutator gxc#!kw-lambda::t 'table))) (define gxc#&!kw-lambda-dispatch-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!kw-lambda::t 'dispatch))) + (make-class-slot-unchecked-mutator gxc#!kw-lambda::t 'dispatch))) (define gxc#&!kw-lambda-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!kw-lambda::t 'id))) + (make-class-slot-unchecked-mutator gxc#!kw-lambda::t 'id))) (define gxc#!kw-lambda-primary::t - (let ((__tmp217657 - (let ((__tmp217658 + (let ((__tmp220061 (list gxc#!procedure::t)) + (__tmp220059 + (let ((__tmp220060 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp217658 '())))) + (cons __tmp220060 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - gxc#!procedure::t + __tmp220061 '(keys main) - __tmp217657 + __tmp220059 '#f))) (define gxc#!kw-lambda-primary? (let () (declare (not safe)) - (make-struct-predicate gxc#!kw-lambda-primary::t))) + (make-class-predicate gxc#!kw-lambda-primary::t))) (define gxc#make-!kw-lambda-primary - (lambda _$args212923_ - (apply make-struct-instance gxc#!kw-lambda-primary::t _$args212923_))) + (lambda _$args215231_ + (apply make-instance gxc#!kw-lambda-primary::t _$args215231_))) (define gxc#!kw-lambda-primary-keys (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!kw-lambda-primary::t 'keys))) + (make-class-slot-accessor gxc#!kw-lambda-primary::t 'keys))) (define gxc#!kw-lambda-primary-main (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!kw-lambda-primary::t 'main))) + (make-class-slot-accessor gxc#!kw-lambda-primary::t 'main))) (define gxc#!kw-lambda-primary-id (let () (declare (not safe)) - (make-struct-slot-accessor gxc#!kw-lambda-primary::t 'id))) + (make-class-slot-accessor gxc#!kw-lambda-primary::t 'id))) (define gxc#!kw-lambda-primary-keys-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!kw-lambda-primary::t 'keys))) + (make-class-slot-mutator gxc#!kw-lambda-primary::t 'keys))) (define gxc#!kw-lambda-primary-main-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!kw-lambda-primary::t 'main))) + (make-class-slot-mutator gxc#!kw-lambda-primary::t 'main))) (define gxc#!kw-lambda-primary-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator gxc#!kw-lambda-primary::t 'id))) + (make-class-slot-mutator gxc#!kw-lambda-primary::t 'id))) (define gxc#&!kw-lambda-primary-keys (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!kw-lambda-primary::t 'keys))) + (make-class-slot-unchecked-accessor gxc#!kw-lambda-primary::t 'keys))) (define gxc#&!kw-lambda-primary-main (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!kw-lambda-primary::t 'main))) + (make-class-slot-unchecked-accessor gxc#!kw-lambda-primary::t 'main))) (define gxc#&!kw-lambda-primary-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gxc#!kw-lambda-primary::t 'id))) + (make-class-slot-unchecked-accessor gxc#!kw-lambda-primary::t 'id))) (define gxc#&!kw-lambda-primary-keys-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'keys))) + (make-class-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'keys))) (define gxc#&!kw-lambda-primary-main-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'main))) + (make-class-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'main))) (define gxc#&!kw-lambda-primary-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'id))) + (make-class-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'id))) (define gxc#!primitive::t - (let ((__tmp217659 (list))) + (let ((__tmp220062 (list))) (declare (not safe)) (make-class-type 'gxc#!primitive::t '!primitive - __tmp217659 + __tmp220062 '() '() '#f))) (define gxc#!primitive? (let () (declare (not safe)) (make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _$args212920_ - (apply make-class-instance gxc#!primitive::t _$args212920_))) + (lambda _$args215228_ + (apply make-instance gxc#!primitive::t _$args215228_))) (define gxc#!primitive-lambda::t - (let ((__tmp217660 (list gxc#!primitive::t gxc#!lambda::t))) + (let ((__tmp220063 (list gxc#!primitive::t gxc#!lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp217660 + __tmp220063 '() '() ':init!))) @@ -927,8 +937,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _$args212917_ - (apply make-class-instance gxc#!primitive-lambda::t _$args212917_))) + (lambda _$args215225_ + (apply make-instance gxc#!primitive-lambda::t _$args215225_))) (define gxc#!primitive-lambda-arity (let () (declare (not safe)) @@ -1018,12 +1028,12 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-lambda::t 'id))) (define gxc#!primitive-case-lambda::t - (let ((__tmp217661 (list gxc#!primitive::t gxc#!case-lambda::t))) + (let ((__tmp220064 (list gxc#!primitive::t gxc#!case-lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp217661 + __tmp220064 '() '() ':init!))) @@ -1032,10 +1042,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-case-lambda::t))) (define gxc#make-!primitive-case-lambda - (lambda _$args212914_ - (apply make-class-instance - gxc#!primitive-case-lambda::t - _$args212914_))) + (lambda _$args215222_ + (apply make-instance gxc#!primitive-case-lambda::t _$args215222_))) (define gxc#!primitive-case-lambda-clauses (let () (declare (not safe)) @@ -1075,942 +1083,828 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-case-lambda::t 'id))) (define gxc#!class:::init!__0 - (lambda (_self212755_ - _id212756_ - _super212757_ - _slots212758_ - _ctor-method212759_ - _struct?212760_ - _final?212761_) - (let _lp212763_ ((_rest212765_ _super212757_)) - (let* ((_rest212766212774_ _rest212765_) - (_else212768212782_ (lambda () '#!void)) - (_K212770212788_ - (lambda (_rest212785_ _super-id212786_) + (lambda (_self215106_ + _id215107_ + _super215108_ + _slots215109_ + _ctor-method215110_ + _struct?215111_ + _final?215112_) + (let _lp215114_ ((_rest215116_ _super215108_)) + (let* ((_rest215117215125_ _rest215116_) + (_else215119215133_ (lambda () '#!void)) + (_K215121215139_ + (lambda (_rest215136_ _super-id215137_) (if (##structure-ref - (let ((__tmp217664 - (let ((__tmp217665 + (let ((__tmp220067 + (let ((__tmp220068 (let () (declare (not safe)) - (cons _id212756_ '())))) + (cons _id215107_ '())))) (declare (not safe)) - (cons '!class __tmp217665)))) + (cons '!class __tmp220068)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp217664 - _super-id212786_)) + __tmp220067 + _super-id215137_)) '8 gxc#!class::t '#f) - (let ((__tmp217662 - (let ((__tmp217663 + (let ((__tmp220065 + (let ((__tmp220066 (let () (declare (not safe)) - (cons _id212756_ '())))) + (cons _id215107_ '())))) (declare (not safe)) - (cons '!class __tmp217663)))) + (cons '!class __tmp220066)))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp217662 - _super-id212786_)) + __tmp220065 + _super-id215137_)) '#!void) - (let () (declare (not safe)) (_lp212763_ _rest212785_))))) - (if (let () (declare (not safe)) (##pair? _rest212766212774_)) - (let ((_hd212771212791_ + (let () (declare (not safe)) (_lp215114_ _rest215136_))))) + (if (let () (declare (not safe)) (##pair? _rest215117215125_)) + (let ((_hd215122215142_ (let () (declare (not safe)) - (##car _rest212766212774_))) - (_tl212772212793_ + (##car _rest215117215125_))) + (_tl215123215144_ (let () (declare (not safe)) - (##cdr _rest212766212774_)))) - (let* ((_super-id212796_ _hd212771212791_) - (_rest212798_ _tl212772212793_)) + (##cdr _rest215117215125_)))) + (let* ((_super-id215147_ _hd215122215142_) + (_rest215149_ _tl215123215144_)) (declare (not safe)) - (_K212770212788_ _rest212798_ _super-id212796_))) + (_K215121215139_ _rest215149_ _super-id215147_))) '#!void))) - (if _struct?212760_ - (let* ((_super212799212809_ _super212757_) - (_else212802212817_ - (lambda () - (let ((__tmp217666 - (let ((__tmp217667 - (let () - (declare (not safe)) - (cons _id212756_ '())))) - (declare (not safe)) - (cons '!class __tmp217667)))) - (declare (not safe)) - (gxc#raise-compile-error - '"bad class; struct can only extend a single struct" - __tmp217666 - _super212757_))))) - (let ((_K212807212839_ (lambda () '#!void)) - (_K212804212825_ - (lambda (_super-id212821_) - (let ((_klass212823_ - (let ((__tmp217668 - (let ((__tmp217669 - (let () - (declare (not safe)) - (cons _id212756_ '())))) - (declare (not safe)) - (cons '!class __tmp217669)))) - (declare (not safe)) - (gxc#optimizer-resolve-class - __tmp217668 - _super-id212821_)))) - (if (##structure-ref - _klass212823_ - '7 - gxc#!class::t - '#f) - '#!void - (let ((__tmp217670 - (let ((__tmp217671 - (let () - (declare (not safe)) - (cons _id212756_ '())))) - (declare (not safe)) - (cons '!class __tmp217671)))) - (declare (not safe)) - (gxc#raise-compile-error - '"bad class; struct extending non struct" - __tmp217670 - _super-id212821_))))))) - (let ((_try-match212801212835_ - (lambda () - (if (let () - (declare (not safe)) - (##pair? _super212799212809_)) - (let ((_tl212806212830_ - (let () - (declare (not safe)) - (##cdr _super212799212809_))) - (_hd212805212828_ - (let () - (declare (not safe)) - (##car _super212799212809_)))) - (if (let () - (declare (not safe)) - (##null? _tl212806212830_)) - (let ((_super-id212833_ _hd212805212828_)) - (declare (not safe)) - (_K212804212825_ _super-id212833_)) - (let () - (declare (not safe)) - (_else212802212817_)))) - (let () - (declare (not safe)) - (_else212802212817_)))))) - (if (let () - (declare (not safe)) - (##null? _super212799212809_)) - '#!void - (let () - (declare (not safe)) - (_try-match212801212835_)))))) - '#!void) - (let* ((_ctor-method212890_ - (let ((_$e212842_ _ctor-method212759_)) - (if _$e212842_ - _$e212842_ - (let _lp212845_ ((_rest212847_ _super212757_) - (_method212848_ '#f)) - (let* ((_rest212849212857_ _rest212847_) - (_else212851212865_ (lambda () _method212848_)) - (_K212853212878_ - (lambda (_rest212868_ _super-id212869_) - (let* ((_klass212871_ - (let ((__tmp217672 - (let ((__tmp217673 + (let* ((_ctor-method215199_ + (let ((_$e215151_ _ctor-method215110_)) + (if _$e215151_ + _$e215151_ + (let _lp215154_ ((_rest215156_ _super215108_) + (_method215157_ '#f)) + (let* ((_rest215158215166_ _rest215156_) + (_else215160215174_ (lambda () _method215157_)) + (_K215162215187_ + (lambda (_rest215177_ _super-id215178_) + (let* ((_klass215180_ + (let ((__tmp220069 + (let ((__tmp220070 (let () (declare (not safe)) - (cons _id212756_ + (cons _id215107_ '())))) (declare (not safe)) (cons '!class - __tmp217673)))) + __tmp220070)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp217672 - _super-id212869_))) - (_$e212873_ + __tmp220069 + _super-id215178_))) + (_$e215182_ (##structure-ref - _klass212871_ + _klass215180_ '6 gxc#!class::t '#f))) - (if _$e212873_ - ((lambda (_ctor-method212876_) - (if _method212848_ + (if _$e215182_ + ((lambda (_ctor-method215185_) + (if _method215157_ (if (let () (declare (not safe)) - (eq? _ctor-method212876_ - _method212848_)) + (eq? _ctor-method215185_ + _method215157_)) (let () (declare (not safe)) - (_lp212845_ - _rest212868_ - _ctor-method212876_)) - (let ((__tmp217674 - (let ((__tmp217675 + (_lp215154_ + _rest215177_ + _ctor-method215185_)) + (let ((__tmp220071 + (let ((__tmp220072 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id212756_ '())))) + (let () (declare (not safe)) (cons _id215107_ '())))) (declare (not safe)) - (cons '!class __tmp217675)))) + (cons '!class __tmp220072)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp217674 - _method212848_ - _ctor-method212876_))) + __tmp220071 + _method215157_ + _ctor-method215185_))) (let () (declare (not safe)) - (_lp212845_ - _rest212868_ - _ctor-method212876_)))) - _$e212873_) + (_lp215154_ + _rest215177_ + _ctor-method215185_)))) + _$e215182_) (let () (declare (not safe)) - (_lp212845_ - _rest212868_ - _method212848_))))))) + (_lp215154_ + _rest215177_ + _method215157_))))))) (if (let () (declare (not safe)) - (##pair? _rest212849212857_)) - (let ((_hd212854212881_ + (##pair? _rest215158215166_)) + (let ((_hd215163215190_ (let () (declare (not safe)) - (##car _rest212849212857_))) - (_tl212855212883_ + (##car _rest215158215166_))) + (_tl215164215192_ (let () (declare (not safe)) - (##cdr _rest212849212857_)))) - (let* ((_super-id212886_ _hd212854212881_) - (_rest212888_ _tl212855212883_)) + (##cdr _rest215158215166_)))) + (let* ((_super-id215195_ _hd215163215190_) + (_rest215197_ _tl215164215192_)) (declare (not safe)) - (_K212853212878_ - _rest212888_ - _super-id212886_))) + (_K215162215187_ + _rest215197_ + _super-id215195_))) (let () (declare (not safe)) - (_else212851212865_)))))))) - (_precedence-list212894_ - (let ((__tmp217676 - (lambda (_klass-id212892_) - (let ((__tmp217677 + (_else215160215174_)))))))) + (_g220073_ + (let ((__tmp220078 + (lambda (_klass-id215201_) + (let ((__tmp220079 (##structure-ref - (let ((__tmp217678 - (let ((__tmp217679 + (let ((__tmp220080 + (let ((__tmp220081 (let () (declare (not safe)) - (cons _id212756_ '())))) + (cons _id215107_ '())))) (declare (not safe)) - (cons '!class __tmp217679)))) + (cons '!class __tmp220081)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp217678 - _klass-id212892_)) + __tmp220080 + _klass-id215201_)) '3 gxc#!class::t '#f))) (declare (not safe)) - (cons _klass-id212892_ __tmp217677))))) + (cons _klass-id215201_ __tmp220079)))) + (__tmp220075 + (lambda (_klass-id215203_) + (##structure-ref + (let ((__tmp220076 + (let ((__tmp220077 + (let () + (declare (not safe)) + (cons _id215107_ '())))) + (declare (not safe)) + (cons '!class __tmp220077)))) + (declare (not safe)) + (gxc#optimizer-resolve-class + __tmp220076 + _klass-id215203_)) + '7 + gxc#!class::t + '#f)))) (declare (not safe)) - (c3-linearize__% - '() - _super212757_ - __tmp217676 + (c4-linearize__% + '#f + __tmp220078 + __tmp220075 eq? - identity))) - (_fields212900_ - (let* ((_base-struct212898_ - (let ((__tmp217680 - (lambda (_klass-id212896_) - (##structure-ref - (let ((__tmp217681 - (let ((__tmp217682 - (let () - (declare (not safe)) - (cons _id212756_ '())))) - (declare (not safe)) - (cons '!class __tmp217682)))) - (declare (not safe)) - (gxc#optimizer-resolve-class - __tmp217681 - _klass-id212896_)) - '7 - gxc#!class::t - '#f)))) - (declare (not safe)) - (find __tmp217680 _precedence-list212894_))) - (__tmp217683 - (let ((__tmp217684 - (let () - (declare (not safe)) - (cons _id212756_ '())))) - (declare (not safe)) - (cons '!class __tmp217684)))) - (declare (not safe)) - (gxc#compute-class-fields - __tmp217683 - _base-struct212898_ - _precedence-list212894_ - _slots212758_)))) - (##structure-set! _self212755_ _id212756_ '1 gxc#!type::t '#f) - (##structure-set! _self212755_ _super212757_ '2 gxc#!class::t '#f) - (##structure-set! - _self212755_ - _precedence-list212894_ - '3 - gxc#!class::t - '#f) - (##structure-set! _self212755_ _slots212758_ '4 gxc#!class::t '#f) - (##structure-set! _self212755_ _fields212900_ '5 gxc#!class::t '#f) - (##structure-set! - _self212755_ - _ctor-method212890_ - '6 - gxc#!class::t - '#f) - (##structure-set! _self212755_ _struct?212760_ '7 gxc#!class::t '#f) - (##structure-set! - _self212755_ - _final?212761_ - '8 - gxc#!class::t - '#f)))) + identity + '() + _super215108_)))) + (begin + (let ((_g220074_ + (let () + (declare (not safe)) + (if (##values? _g220073_) + (##vector-length _g220073_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g220074_ 2))) + (error "Context expects 2 values" _g220074_))) + (let ((_precedence-list215205_ + (let () (declare (not safe)) (##vector-ref _g220073_ 0))) + (_base-struct215206_ + (let () (declare (not safe)) (##vector-ref _g220073_ 1)))) + (let ((_fields215208_ + (let ((__tmp220082 + (let ((__tmp220083 + (let () + (declare (not safe)) + (cons _id215107_ '())))) + (declare (not safe)) + (cons '!class __tmp220083)))) + (declare (not safe)) + (gxc#compute-class-fields + __tmp220082 + _base-struct215206_ + _precedence-list215205_ + _slots215109_)))) + (##structure-set! _self215106_ _id215107_ '1 gxc#!type::t '#f) + (##structure-set! + _self215106_ + _super215108_ + '2 + gxc#!class::t + '#f) + (##structure-set! + _self215106_ + _precedence-list215205_ + '3 + gxc#!class::t + '#f) + (##structure-set! + _self215106_ + _slots215109_ + '4 + gxc#!class::t + '#f) + (##structure-set! + _self215106_ + _fields215208_ + '5 + gxc#!class::t + '#f) + (##structure-set! + _self215106_ + _ctor-method215199_ + '6 + gxc#!class::t + '#f) + (##structure-set! + _self215106_ + _struct?215111_ + '7 + gxc#!class::t + '#f) + (##structure-set! + _self215106_ + _final?215112_ + '8 + gxc#!class::t + '#f))))))) (define gxc#!class:::init!__1 - (lambda (_self212903_ - _id212904_ - _super212905_ - _precedence-list212906_ - _slots212907_ - _fields212908_ - _constructor212909_ - _struct?212910_ - _final?212911_ - _methods212912_) - (##structure-set! _self212903_ _id212904_ '1 gxc#!type::t '#f) - (##structure-set! _self212903_ _super212905_ '2 gxc#!class::t '#f) + (lambda (_self215211_ + _id215212_ + _super215213_ + _precedence-list215214_ + _slots215215_ + _fields215216_ + _constructor215217_ + _struct?215218_ + _final?215219_ + _methods215220_) + (##structure-set! _self215211_ _id215212_ '1 gxc#!type::t '#f) + (##structure-set! _self215211_ _super215213_ '2 gxc#!class::t '#f) (##structure-set! - _self212903_ - _precedence-list212906_ + _self215211_ + _precedence-list215214_ '3 gxc#!class::t '#f) - (##structure-set! _self212903_ _slots212907_ '4 gxc#!class::t '#f) - (##structure-set! _self212903_ _fields212908_ '5 gxc#!class::t '#f) + (##structure-set! _self215211_ _slots215215_ '4 gxc#!class::t '#f) + (##structure-set! _self215211_ _fields215216_ '5 gxc#!class::t '#f) (##structure-set! - _self212903_ - _constructor212909_ + _self215211_ + _constructor215217_ '6 gxc#!class::t '#f) - (##structure-set! _self212903_ _struct?212910_ '7 gxc#!class::t '#f) - (##structure-set! _self212903_ _final?212911_ '8 gxc#!class::t '#f) - (if _methods212912_ + (##structure-set! _self215211_ _struct?215218_ '7 gxc#!class::t '#f) + (##structure-set! _self215211_ _final?215219_ '8 gxc#!class::t '#f) + (if _methods215220_ (##structure-set! - _self212903_ + _self215211_ (let () (declare (not safe)) - (list->table _methods212912_ 'test: eq?)) + (list->table _methods215220_ 'test: eq?)) '9 gxc#!class::t '#f) '#!void))) (define gxc#!class:::init! - (lambda _g217686_ - (let ((_g217685_ (let () (declare (not safe)) (##length _g217686_)))) - (cond ((let () (declare (not safe)) (##fx= _g217685_ 7)) - (apply (lambda (_self212755_ - _id212756_ - _super212757_ - _slots212758_ - _ctor-method212759_ - _struct?212760_ - _final?212761_) + (lambda _g220085_ + (let ((_g220084_ (let () (declare (not safe)) (##length _g220085_)))) + (cond ((let () (declare (not safe)) (##fx= _g220084_ 7)) + (apply (lambda (_self215106_ + _id215107_ + _super215108_ + _slots215109_ + _ctor-method215110_ + _struct?215111_ + _final?215112_) (let () (declare (not safe)) (gxc#!class:::init!__0 - _self212755_ - _id212756_ - _super212757_ - _slots212758_ - _ctor-method212759_ - _struct?212760_ - _final?212761_))) - _g217686_)) - ((let () (declare (not safe)) (##fx= _g217685_ 10)) - (apply (lambda (_self212903_ - _id212904_ - _super212905_ - _precedence-list212906_ - _slots212907_ - _fields212908_ - _constructor212909_ - _struct?212910_ - _final?212911_ - _methods212912_) + _self215106_ + _id215107_ + _super215108_ + _slots215109_ + _ctor-method215110_ + _struct?215111_ + _final?215112_))) + _g220085_)) + ((let () (declare (not safe)) (##fx= _g220084_ 10)) + (apply (lambda (_self215211_ + _id215212_ + _super215213_ + _precedence-list215214_ + _slots215215_ + _fields215216_ + _constructor215217_ + _struct?215218_ + _final?215219_ + _methods215220_) (let () (declare (not safe)) (gxc#!class:::init!__1 - _self212903_ - _id212904_ - _super212905_ - _precedence-list212906_ - _slots212907_ - _fields212908_ - _constructor212909_ - _struct?212910_ - _final?212911_ - _methods212912_))) - _g217686_)) + _self215211_ + _id215212_ + _super215213_ + _precedence-list215214_ + _slots215215_ + _fields215216_ + _constructor215217_ + _struct?215218_ + _final?215219_ + _methods215220_))) + _g220085_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g217686_)))))) + _g220085_)))))) (define gxc#!class:::init!::specialize - (lambda (__t217553) - (let ((__precedence-list217554 - (let ((__tmp217563 + (lambda (__t219961) + (let ((__final?219962 + (let ((__tmp219971 (let () (declare (not safe)) - (class-slot-offset __t217553 'precedence-list)))) - (if __tmp217563 - __tmp217563 - (error '"Unknown slot" 'precedence-list)))) - (__final?217555 - (let ((__tmp217564 + (class-slot-offset __t219961 'final?)))) + (if __tmp219971 __tmp219971 (error '"Unknown slot" 'final?)))) + (__id219963 + (let ((__tmp219972 (let () (declare (not safe)) - (class-slot-offset __t217553 'final?)))) - (if __tmp217564 __tmp217564 (error '"Unknown slot" 'final?)))) - (__fields217556 - (let ((__tmp217565 + (class-slot-offset __t219961 'id)))) + (if __tmp219972 __tmp219972 (error '"Unknown slot" 'id)))) + (__constructor219964 + (let ((__tmp219973 (let () (declare (not safe)) - (class-slot-offset __t217553 'fields)))) - (if __tmp217565 __tmp217565 (error '"Unknown slot" 'fields)))) - (__super217557 - (let ((__tmp217566 + (class-slot-offset __t219961 'constructor)))) + (if __tmp219973 + __tmp219973 + (error '"Unknown slot" 'constructor)))) + (__fields219965 + (let ((__tmp219974 (let () (declare (not safe)) - (class-slot-offset __t217553 'super)))) - (if __tmp217566 __tmp217566 (error '"Unknown slot" 'super)))) - (__id217558 - (let ((__tmp217567 + (class-slot-offset __t219961 'fields)))) + (if __tmp219974 __tmp219974 (error '"Unknown slot" 'fields)))) + (__precedence-list219966 + (let ((__tmp219975 (let () (declare (not safe)) - (class-slot-offset __t217553 'id)))) - (if __tmp217567 __tmp217567 (error '"Unknown slot" 'id)))) - (__slots217559 - (let ((__tmp217568 + (class-slot-offset __t219961 'precedence-list)))) + (if __tmp219975 + __tmp219975 + (error '"Unknown slot" 'precedence-list)))) + (__methods219967 + (let ((__tmp219976 (let () (declare (not safe)) - (class-slot-offset __t217553 'slots)))) - (if __tmp217568 __tmp217568 (error '"Unknown slot" 'slots)))) - (__constructor217560 - (let ((__tmp217569 + (class-slot-offset __t219961 'methods)))) + (if __tmp219976 + __tmp219976 + (error '"Unknown slot" 'methods)))) + (__super219968 + (let ((__tmp219977 (let () (declare (not safe)) - (class-slot-offset __t217553 'constructor)))) - (if __tmp217569 - __tmp217569 - (error '"Unknown slot" 'constructor)))) - (__methods217561 - (let ((__tmp217570 + (class-slot-offset __t219961 'super)))) + (if __tmp219977 __tmp219977 (error '"Unknown slot" 'super)))) + (__slots219969 + (let ((__tmp219978 (let () (declare (not safe)) - (class-slot-offset __t217553 'methods)))) - (if __tmp217570 - __tmp217570 - (error '"Unknown slot" 'methods)))) - (__struct?217562 - (let ((__tmp217571 + (class-slot-offset __t219961 'slots)))) + (if __tmp219978 __tmp219978 (error '"Unknown slot" 'slots)))) + (__struct?219970 + (let ((__tmp219979 (let () (declare (not safe)) - (class-slot-offset __t217553 'struct?)))) - (if __tmp217571 - __tmp217571 + (class-slot-offset __t219961 'struct?)))) + (if __tmp219979 + __tmp219979 (error '"Unknown slot" 'struct?))))) - (lambda _g217688_ - (let ((_g217687_ - (let () (declare (not safe)) (##length _g217688_)))) - (cond ((let () (declare (not safe)) (##fx= _g217687_ 7)) - (apply (lambda (_self212755_ - _id212756_ - _super212757_ - _slots212758_ - _ctor-method212759_ - _struct?212760_ - _final?212761_) - (let _lp212763_ ((_rest212765_ _super212757_)) - (let* ((_rest212766212774_ _rest212765_) - (_else212768212782_ (lambda () '#!void)) - (_K212770212788_ - (lambda (_rest212785_ _super-id212786_) + (lambda _g220087_ + (let ((_g220086_ + (let () (declare (not safe)) (##length _g220087_)))) + (cond ((let () (declare (not safe)) (##fx= _g220086_ 7)) + (apply (lambda (_self215106_ + _id215107_ + _super215108_ + _slots215109_ + _ctor-method215110_ + _struct?215111_ + _final?215112_) + (let _lp215114_ ((_rest215116_ _super215108_)) + (let* ((_rest215117215125_ _rest215116_) + (_else215119215133_ (lambda () '#!void)) + (_K215121215139_ + (lambda (_rest215136_ _super-id215137_) (if (##structure-ref - (let ((__tmp217691 - (let ((__tmp217692 + (let ((__tmp220090 + (let ((__tmp220091 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id212756_ '())))) + (cons _id215107_ '())))) (declare (not safe)) - (cons '!class __tmp217692)))) + (cons '!class __tmp220091)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp217691 - _super-id212786_)) + __tmp220090 + _super-id215137_)) '8 gxc#!class::t '#f) - (let ((__tmp217689 - (let ((__tmp217690 + (let ((__tmp220088 + (let ((__tmp220089 (let () (declare (not safe)) - (cons _id212756_ + (cons _id215107_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '!class __tmp217690)))) + (cons '!class __tmp220089)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp217689 - _super-id212786_)) + __tmp220088 + _super-id215137_)) '#!void) (let () (declare (not safe)) - (_lp212763_ _rest212785_))))) + (_lp215114_ _rest215136_))))) (if (let () (declare (not safe)) - (##pair? _rest212766212774_)) - (let ((_hd212771212791_ + (##pair? _rest215117215125_)) + (let ((_hd215122215142_ (let () (declare (not safe)) - (##car _rest212766212774_))) - (_tl212772212793_ + (##car _rest215117215125_))) + (_tl215123215144_ (let () (declare (not safe)) - (##cdr _rest212766212774_)))) - (let* ((_super-id212796_ - _hd212771212791_) - (_rest212798_ _tl212772212793_)) + (##cdr _rest215117215125_)))) + (let* ((_super-id215147_ + _hd215122215142_) + (_rest215149_ _tl215123215144_)) (declare (not safe)) - (_K212770212788_ - _rest212798_ - _super-id212796_))) + (_K215121215139_ + _rest215149_ + _super-id215147_))) '#!void))) - (if _struct?212760_ - (let* ((_super212799212809_ _super212757_) - (_else212802212817_ - (lambda () - (let ((__tmp217693 - (let ((__tmp217694 - (let () - (declare - (not safe)) - (cons _id212756_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons '!class - __tmp217694)))) - (declare (not safe)) - (gxc#raise-compile-error - '"bad class; struct can only extend a single struct" - __tmp217693 - _super212757_))))) - (let ((_K212807212839_ (lambda () '#!void)) - (_K212804212825_ - (lambda (_super-id212821_) - (let ((_klass212823_ - (let ((__tmp217695 - (let ((__tmp217696 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id212756_ '())))) - (declare (not safe)) - (cons '!class __tmp217696)))) - (declare (not safe)) - (gxc#optimizer-resolve-class __tmp217695 _super-id212821_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##structure-ref - _klass212823_ - '7 - gxc#!class::t - '#f) - '#!void - (let ((__tmp217697 - (let ((__tmp217698 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id212756_ '())))) - (declare (not safe)) - (cons '!class __tmp217698)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (gxc#raise-compile-error - '"bad class; struct extending non struct" - __tmp217697 - _super-id212821_))))))) - (let ((_try-match212801212835_ - (lambda () - (if (let () - (declare (not safe)) - (##pair? _super212799212809_)) - (let ((_tl212806212830_ - (let () - (declare - (not safe)) - (##cdr _super212799212809_))) - (_hd212805212828_ - (let () - (declare - (not safe)) - (##car _super212799212809_)))) - (if (let () - (declare (not safe)) - (##null? _tl212806212830_)) - (let ((_super-id212833_ - _hd212805212828_)) - (declare (not safe)) - (_K212804212825_ - _super-id212833_)) - (let () - (declare (not safe)) - (_else212802212817_)))) - (let () - (declare (not safe)) - (_else212802212817_)))))) - (if (let () - (declare (not safe)) - (##null? _super212799212809_)) - '#!void - (let () - (declare (not safe)) - (_try-match212801212835_)))))) - '#!void) - (let* ((_ctor-method212890_ - (let ((_$e212842_ _ctor-method212759_)) - (if _$e212842_ - _$e212842_ - (let _lp212845_ ((_rest212847_ - _super212757_) - (_method212848_ + (let* ((_ctor-method215199_ + (let ((_$e215151_ _ctor-method215110_)) + (if _$e215151_ + _$e215151_ + (let _lp215154_ ((_rest215156_ + _super215108_) + (_method215157_ '#f)) - (let* ((_rest212849212857_ - _rest212847_) - (_else212851212865_ + (let* ((_rest215158215166_ + _rest215156_) + (_else215160215174_ (lambda () - _method212848_)) - (_K212853212878_ - (lambda (_rest212868_ - _super-id212869_) - (let* ((_klass212871_ - (let ((__tmp217699 + _method215157_)) + (_K215162215187_ + (lambda (_rest215177_ + _super-id215178_) + (let* ((_klass215180_ + (let ((__tmp220092 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp217700 + (let ((__tmp220093 (let () (declare (not safe)) - (cons _id212756_ '())))) + (cons _id215107_ '())))) (declare (not safe)) - (cons '!class __tmp217700)))) + (cons '!class __tmp220093)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp217699 - _super-id212869_))) - (_$e212873_ - (##structure-ref _klass212871_ '6 gxc#!class::t '#f))) - (if _$e212873_ - ((lambda (_ctor-method212876_) - (if _method212848_ + __tmp220092 + _super-id215178_))) + (_$e215182_ + (##structure-ref _klass215180_ '6 gxc#!class::t '#f))) + (if _$e215182_ + ((lambda (_ctor-method215185_) + (if _method215157_ (if (let () (declare (not safe)) - (eq? _ctor-method212876_ _method212848_)) + (eq? _ctor-method215185_ _method215157_)) (let () (declare (not safe)) - (_lp212845_ - _rest212868_ - _ctor-method212876_)) - (let ((__tmp217701 - (let ((__tmp217702 + (_lp215154_ + _rest215177_ + _ctor-method215185_)) + (let ((__tmp220094 + (let ((__tmp220095 (let () (declare (not safe)) - (cons _id212756_ '())))) + (cons _id215107_ '())))) (declare (not safe)) - (cons '!class __tmp217702)))) + (cons '!class __tmp220095)))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp217701 - _method212848_ - _ctor-method212876_))) + __tmp220094 + _method215157_ + _ctor-method215185_))) (let () (declare (not safe)) - (_lp212845_ _rest212868_ _ctor-method212876_)))) - _$e212873_) + (_lp215154_ _rest215177_ _ctor-method215185_)))) + _$e215182_) (let () (declare (not safe)) - (_lp212845_ _rest212868_ _method212848_))))))) + (_lp215154_ _rest215177_ _method215157_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest212849212857_)) - (let ((_hd212854212881_ + (##pair? _rest215158215166_)) + (let ((_hd215163215190_ (let () (declare (not safe)) - (##car _rest212849212857_))) - (_tl212855212883_ + (##car _rest215158215166_))) + (_tl215164215192_ (let () (declare (not safe)) - (##cdr _rest212849212857_)))) - (let* ((_super-id212886_ - _hd212854212881_) - (_rest212888_ - _tl212855212883_)) + (##cdr _rest215158215166_)))) + (let* ((_super-id215195_ + _hd215163215190_) + (_rest215197_ + _tl215164215192_)) (declare (not safe)) - (_K212853212878_ - _rest212888_ - _super-id212886_))) + (_K215162215187_ + _rest215197_ + _super-id215195_))) (let () (declare (not safe)) - (_else212851212865_)))))))) - (_precedence-list212894_ - (let ((__tmp217703 - (lambda (_klass-id212892_) - (let ((__tmp217704 + (_else215160215174_)))))))) + (_g220096_ + (let ((__tmp220101 + (lambda (_klass-id215201_) + (let ((__tmp220102 (##structure-ref - (let ((__tmp217705 - (let ((__tmp217706 + (let ((__tmp220103 + (let ((__tmp220104 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id212756_ '())))) + (cons _id215107_ '())))) (declare (not safe)) - (cons '!class __tmp217706)))) + (cons '!class __tmp220104)))) (declare (not safe)) - (gxc#optimizer-resolve-class __tmp217705 _klass-id212892_)) + (gxc#optimizer-resolve-class __tmp220103 _klass-id215201_)) '3 gxc#!class::t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _klass-id212892_ - __tmp217704))))) + (cons _klass-id215201_ + __tmp220102)))) + (__tmp220098 + (lambda (_klass-id215203_) + (##structure-ref + (let ((__tmp220099 + (let ((__tmp220100 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _id215107_ '())))) + (declare (not safe)) + (cons '!class __tmp220100)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#optimizer-resolve-class + __tmp220099 + _klass-id215203_)) + '7 + gxc#!class::t + '#f)))) (declare (not safe)) - (c3-linearize__% - '() - _super212757_ - __tmp217703 + (c4-linearize__% + '#f + __tmp220101 + __tmp220098 eq? - identity))) - (_fields212900_ - (let* ((_base-struct212898_ - (let ((__tmp217707 - (lambda (_klass-id212896_) - (##structure-ref - (let ((__tmp217708 - (let ((__tmp217709 + identity + '() + _super215108_)))) + (begin + (let ((_g220097_ + (let () + (declare (not safe)) + (if (##values? _g220096_) + (##vector-length _g220096_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g220097_ 2))) + (error "Context expects 2 values" + _g220097_))) + (let ((_precedence-list215205_ + (let () + (declare (not safe)) + (##vector-ref _g220096_ 0))) + (_base-struct215206_ + (let () + (declare (not safe)) + (##vector-ref _g220096_ 1)))) + (let ((_fields215208_ + (let ((__tmp220105 + (let ((__tmp220106 + (let () + (declare (not safe)) + (cons _id215107_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (cons _id212756_ '())))) - (declare (not safe)) - (cons '!class __tmp217709)))) - (declare (not safe)) - (gxc#optimizer-resolve-class __tmp217708 _klass-id212896_)) - '7 - gxc#!class::t - '#f)))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (find __tmp217707 - _precedence-list212894_))) - (__tmp217710 - (let ((__tmp217711 - (let () - (declare (not safe)) - (cons _id212756_ '())))) - (declare (not safe)) - (cons '!class __tmp217711)))) + (declare (not safe)) + (cons '!class + __tmp220106)))) + (declare (not safe)) + (gxc#compute-class-fields + __tmp220105 + _base-struct215206_ + _precedence-list215205_ + _slots215109_)))) + (let () (declare (not safe)) - (gxc#compute-class-fields - __tmp217710 - _base-struct212898_ - _precedence-list212894_ - _slots212758_)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _self212755_ - _id212756_ - __id217558 - __t217553 - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _self212755_ - _super212757_ - __super217557 - __t217553 - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _self212755_ - _precedence-list212894_ - __precedence-list217554 - __t217553 - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _self212755_ - _slots212758_ - __slots217559 - __t217553 - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _self212755_ - _fields212900_ - __fields217556 - __t217553 - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _self212755_ - _ctor-method212890_ - __constructor217560 - __t217553 - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _self212755_ - _struct?212760_ - __struct?217562 - __t217553 - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _self212755_ - _final?212761_ - __final?217555 - __t217553 - '#f)))) - _g217688_)) - ((let () (declare (not safe)) (##fx= _g217687_ 10)) - (apply (lambda (_self212903_ - _id212904_ - _super212905_ - _precedence-list212906_ - _slots212907_ - _fields212908_ - _constructor212909_ - _struct?212910_ - _final?212911_ - _methods212912_) + (##unchecked-structure-set! + _self215106_ + _id215107_ + __id219963 + __t219961 + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _self215106_ + _super215108_ + __super219968 + __t219961 + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _self215106_ + _precedence-list215205_ + __precedence-list219966 + __t219961 + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _self215106_ + _slots215109_ + __slots219969 + __t219961 + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _self215106_ + _fields215208_ + __fields219965 + __t219961 + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _self215106_ + _ctor-method215199_ + __constructor219964 + __t219961 + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _self215106_ + _struct?215111_ + __struct?219970 + __t219961 + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _self215106_ + _final?215112_ + __final?219962 + __t219961 + '#f))))))) + _g220087_)) + ((let () (declare (not safe)) (##fx= _g220086_ 10)) + (apply (lambda (_self215211_ + _id215212_ + _super215213_ + _precedence-list215214_ + _slots215215_ + _fields215216_ + _constructor215217_ + _struct?215218_ + _final?215219_ + _methods215220_) (let () (declare (not safe)) (##unchecked-structure-set! - _self212903_ - _id212904_ - __id217558 - __t217553 + _self215211_ + _id215212_ + __id219963 + __t219961 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self212903_ - _super212905_ - __super217557 - __t217553 + _self215211_ + _super215213_ + __super219968 + __t219961 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self212903_ - _precedence-list212906_ - __precedence-list217554 - __t217553 + _self215211_ + _precedence-list215214_ + __precedence-list219966 + __t219961 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self212903_ - _slots212907_ - __slots217559 - __t217553 + _self215211_ + _slots215215_ + __slots219969 + __t219961 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self212903_ - _fields212908_ - __fields217556 - __t217553 + _self215211_ + _fields215216_ + __fields219965 + __t219961 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self212903_ - _constructor212909_ - __constructor217560 - __t217553 + _self215211_ + _constructor215217_ + __constructor219964 + __t219961 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self212903_ - _struct?212910_ - __struct?217562 - __t217553 + _self215211_ + _struct?215218_ + __struct?219970 + __t219961 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self212903_ - _final?212911_ - __final?217555 - __t217553 + _self215211_ + _final?215219_ + __final?219962 + __t219961 '#f)) - (if _methods212912_ - (let ((__tmp217712 + (if _methods215220_ + (let ((__tmp220107 (let () (declare (not safe)) (list->table - _methods212912_ + _methods215220_ 'test: eq?)))) (declare (not safe)) (##unchecked-structure-set! - _self212903_ - __tmp217712 - __methods217561 - __t217553 + _self215211_ + __tmp220107 + __methods219967 + __t219961 '#f)) '#!void)) - _g217688_)) + _g220087_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g217688_)))))))) + _g220087_)))))))) (let () (declare (not safe)) (bind-specializer! gxc#!class:::init! gxc#!class:::init!::specialize)) @@ -2018,199 +1912,199 @@ (declare (not safe)) (bind-method! gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_where212607_ - _base-struct212608_ - _precedence-list212609_ - _direct-slots212610_) - (let* ((_base-fields212612_ - (if _base-struct212608_ + (lambda (_where214958_ + _base-struct214959_ + _precedence-list214960_ + _direct-slots214961_) + (let* ((_base-fields214963_ + (if _base-struct214959_ (##structure-ref (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where212607_ - _base-struct212608_)) + _where214958_ + _base-struct214959_)) '5 gxc#!class::t '#f) '())) - (_r-fields212614_ (reverse _base-fields212612_)) - (_seen-slots212622_ - (let ((_tab212616_ + (_r-fields214965_ (reverse _base-fields214963_)) + (_seen-slots214973_ + (let ((_tab214967_ (let () (declare (not safe)) (make-table 'test: eq?)))) (for-each - (lambda (_g212617212619_) + (lambda (_g214968214970_) (let () (declare (not safe)) - (table-set! _tab212616_ _g212617212619_ '#t))) - _base-fields212612_) - _tab212616_)) - (_process-slot212626_ - (lambda (_slot212624_) + (table-set! _tab214967_ _g214968214970_ '#t))) + _base-fields214963_) + _tab214967_)) + (_process-slot214977_ + (lambda (_slot214975_) (if (let () (declare (not safe)) - (table-ref _seen-slots212622_ _slot212624_ '#f)) + (table-ref _seen-slots214973_ _slot214975_ '#f)) '#!void (begin (let () (declare (not safe)) - (table-set! _seen-slots212622_ _slot212624_ '#t)) - (set! _r-fields212614_ + (table-set! _seen-slots214973_ _slot214975_ '#t)) + (set! _r-fields214965_ (let () (declare (not safe)) - (cons _slot212624_ _r-fields212614_)))))))) + (cons _slot214975_ _r-fields214965_)))))))) (for-each - (lambda (_mixin212629_) - (let ((_klass212631_ + (lambda (_mixin214980_) + (let ((_klass214982_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where212607_ - _mixin212629_)))) - (if (##structure-ref _klass212631_ '7 gxc#!class::t '#f) + _where214958_ + _mixin214980_)))) + (if (##structure-ref _klass214982_ '7 gxc#!class::t '#f) '#!void (for-each - _process-slot212626_ - (##structure-ref _klass212631_ '5 gxc#!class::t '#f))))) - _precedence-list212609_) - (for-each _process-slot212626_ _direct-slots212610_) - (reverse _r-fields212614_)))) + _process-slot214977_ + (##structure-ref _klass214982_ '5 gxc#!class::t '#f))))) + _precedence-list214960_) + (for-each _process-slot214977_ _direct-slots214961_) + (reverse _r-fields214965_)))) (define gxc#!class-slot->field-offset - (lambda (_klass212566_ _slot212567_) - (let _lp212569_ ((_rest212571_ - (##structure-ref _klass212566_ '5 gxc#!class::t '#f)) - (_offset212572_ '1)) - (let* ((_rest212573212581_ _rest212571_) - (_else212575212589_ + (lambda (_klass214917_ _slot214918_) + (let _lp214920_ ((_rest214922_ + (##structure-ref _klass214917_ '5 gxc#!class::t '#f)) + (_offset214923_ '1)) + (let* ((_rest214924214932_ _rest214922_) + (_else214926214940_ (lambda () - (let ((__tmp217714 - (##structure-ref _klass212566_ '1 gxc#!type::t '#f)) - (__tmp217713 + (let ((__tmp220109 + (##structure-ref _klass214917_ '1 gxc#!type::t '#f)) + (__tmp220108 (##structure-ref - _klass212566_ + _klass214917_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp217714 - __tmp217713 - _slot212567_)))) - (_K212577212595_ - (lambda (_rest212592_ _s212593_) + __tmp220109 + __tmp220108 + _slot214918_)))) + (_K214928214946_ + (lambda (_rest214943_ _s214944_) (if (let () (declare (not safe)) - (eq? _s212593_ _slot212567_)) - _offset212572_ - (let ((__tmp217715 + (eq? _s214944_ _slot214918_)) + _offset214923_ + (let ((__tmp220110 (let () (declare (not safe)) - (fx+ _offset212572_ '1)))) + (fx+ _offset214923_ '1)))) (declare (not safe)) - (_lp212569_ _rest212592_ __tmp217715)))))) - (if (let () (declare (not safe)) (##pair? _rest212573212581_)) - (let ((_hd212578212598_ + (_lp214920_ _rest214943_ __tmp220110)))))) + (if (let () (declare (not safe)) (##pair? _rest214924214932_)) + (let ((_hd214929214949_ (let () (declare (not safe)) - (##car _rest212573212581_))) - (_tl212579212600_ + (##car _rest214924214932_))) + (_tl214930214951_ (let () (declare (not safe)) - (##cdr _rest212573212581_)))) - (let* ((_s212603_ _hd212578212598_) - (_rest212605_ _tl212579212600_)) + (##cdr _rest214924214932_)))) + (let* ((_s214954_ _hd214929214949_) + (_rest214956_ _tl214930214951_)) (declare (not safe)) - (_K212577212595_ _rest212605_ _s212603_))) - (let () (declare (not safe)) (_else212575212589_))))))) + (_K214928214946_ _rest214956_ _s214954_))) + (let () (declare (not safe)) (_else214926214940_))))))) (define gxc#!class-slot-find-struct - (lambda (_klass212524_ _slot212525_) + (lambda (_klass214875_ _slot214876_) (if (let () (declare (not safe)) - (gxc#!class-struct-slot? _klass212524_ _slot212525_)) - _klass212524_ - (let _lp212527_ ((_rest212529_ + (gxc#!class-struct-slot? _klass214875_ _slot214876_)) + _klass214875_ + (let _lp214878_ ((_rest214880_ (##structure-ref - _klass212524_ + _klass214875_ '3 gxc#!class::t '#f))) - (let* ((_rest212530212538_ _rest212529_) - (_else212532212546_ (lambda () '#f)) - (_K212534212554_ - (lambda (_rest212549_ _super212550_) - (let ((_super-class212552_ - (let ((__tmp217716 - (let ((__tmp217717 - (let ((__tmp217719 + (let* ((_rest214881214889_ _rest214880_) + (_else214883214897_ (lambda () '#f)) + (_K214885214905_ + (lambda (_rest214900_ _super214901_) + (let ((_super-class214903_ + (let ((__tmp220111 + (let ((__tmp220112 + (let ((__tmp220114 (##structure-ref - _klass212524_ + _klass214875_ '1 gxc#!type::t '#f)) - (__tmp217718 + (__tmp220113 (let () (declare (not safe)) - (cons _slot212525_ + (cons _slot214876_ '())))) (declare (not safe)) - (cons __tmp217719 - __tmp217718)))) + (cons __tmp220114 + __tmp220113)))) (declare (not safe)) (cons '!class-slot-find-struct - __tmp217717)))) + __tmp220112)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp217716 - _super212550_)))) + __tmp220111 + _super214901_)))) (if (let () (declare (not safe)) (gxc#!class-struct-slot? - _super-class212552_ - _slot212525_)) - _super-class212552_ + _super-class214903_ + _slot214876_)) + _super-class214903_ (let () (declare (not safe)) - (_lp212527_ _rest212549_))))))) - (if (let () (declare (not safe)) (##pair? _rest212530212538_)) - (let ((_hd212535212557_ + (_lp214878_ _rest214900_))))))) + (if (let () (declare (not safe)) (##pair? _rest214881214889_)) + (let ((_hd214886214908_ (let () (declare (not safe)) - (##car _rest212530212538_))) - (_tl212536212559_ + (##car _rest214881214889_))) + (_tl214887214910_ (let () (declare (not safe)) - (##cdr _rest212530212538_)))) - (let* ((_super212562_ _hd212535212557_) - (_rest212564_ _tl212536212559_)) + (##cdr _rest214881214889_)))) + (let* ((_super214913_ _hd214886214908_) + (_rest214915_ _tl214887214910_)) (declare (not safe)) - (_K212534212554_ _rest212564_ _super212562_))) - (let () (declare (not safe)) (_else212532212546_)))))))) + (_K214885214905_ _rest214915_ _super214913_))) + (let () (declare (not safe)) (_else214883214897_)))))))) (define gxc#!class-struct-slot? - (lambda (_klass212521_ _slot212522_) - (if (##structure-ref _klass212521_ '7 gxc#!class::t '#f) - (memq _slot212522_ - (##structure-ref _klass212521_ '5 gxc#!class::t '#f)) + (lambda (_klass214872_ _slot214873_) + (if (##structure-ref _klass214872_ '7 gxc#!class::t '#f) + (memq _slot214873_ + (##structure-ref _klass214872_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_self212518_ _id212519_) - (##structure-set! _self212518_ _id212519_ '1 gxc#!type::t '#f))) + (lambda (_self214869_ _id214870_) + (##structure-set! _self214869_ _id214870_ '1 gxc#!type::t '#f))) (define gxc#!predicate:::init!::specialize - (lambda (__t217572) - (let ((__id217573 - (let ((__tmp217574 + (lambda (__t219980) + (let ((__id219981 + (let ((__tmp219982 (let () (declare (not safe)) - (class-slot-offset __t217572 'id)))) - (if __tmp217574 __tmp217574 (error '"Unknown slot" 'id))))) - (lambda (_self212518_ _id212519_) + (class-slot-offset __t219980 'id)))) + (if __tmp219982 __tmp219982 (error '"Unknown slot" 'id))))) + (lambda (_self214869_ _id214870_) (let () (declare (not safe)) (##unchecked-structure-set! - _self212518_ - _id212519_ - __id217573 - __t217572 + _self214869_ + _id214870_ + __id219981 + __t219980 '#f)))))) (let () (declare (not safe)) @@ -2221,24 +2115,24 @@ (declare (not safe)) (bind-method! gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_self212393_ _id212394_) - (##structure-set! _self212393_ _id212394_ '1 gxc#!type::t '#f))) + (lambda (_self214744_ _id214745_) + (##structure-set! _self214744_ _id214745_ '1 gxc#!type::t '#f))) (define gxc#!constructor:::init!::specialize - (lambda (__t217575) - (let ((__id217576 - (let ((__tmp217577 + (lambda (__t219983) + (let ((__id219984 + (let ((__tmp219985 (let () (declare (not safe)) - (class-slot-offset __t217575 'id)))) - (if __tmp217577 __tmp217577 (error '"Unknown slot" 'id))))) - (lambda (_self212393_ _id212394_) + (class-slot-offset __t219983 'id)))) + (if __tmp219985 __tmp219985 (error '"Unknown slot" 'id))))) + (lambda (_self214744_ _id214745_) (let () (declare (not safe)) (##unchecked-structure-set! - _self212393_ - _id212394_ - __id217576 - __t217575 + _self214744_ + _id214745_ + __id219984 + __t219983 '#f)))))) (let () (declare (not safe)) @@ -2249,61 +2143,61 @@ (declare (not safe)) (bind-method! gxc#!constructor::t ':init! gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_self212266_ _id212267_ _slot212268_ _checked?212269_) - (##structure-set! _self212266_ _id212267_ '1 gxc#!type::t '#f) - (##structure-set! _self212266_ _slot212268_ '2 gxc#!accessor::t '#f) + (lambda (_self214617_ _id214618_ _slot214619_ _checked?214620_) + (##structure-set! _self214617_ _id214618_ '1 gxc#!type::t '#f) + (##structure-set! _self214617_ _slot214619_ '2 gxc#!accessor::t '#f) (##structure-set! - _self212266_ - _checked?212269_ + _self214617_ + _checked?214620_ '3 gxc#!accessor::t '#f))) (define gxc#!accessor:::init!::specialize - (lambda (__t217578) - (let ((__slot217579 - (let ((__tmp217582 + (lambda (__t219986) + (let ((__id219987 + (let ((__tmp219990 (let () (declare (not safe)) - (class-slot-offset __t217578 'slot)))) - (if __tmp217582 __tmp217582 (error '"Unknown slot" 'slot)))) - (__id217580 - (let ((__tmp217583 + (class-slot-offset __t219986 'id)))) + (if __tmp219990 __tmp219990 (error '"Unknown slot" 'id)))) + (__slot219988 + (let ((__tmp219991 (let () (declare (not safe)) - (class-slot-offset __t217578 'id)))) - (if __tmp217583 __tmp217583 (error '"Unknown slot" 'id)))) - (__checked?217581 - (let ((__tmp217584 + (class-slot-offset __t219986 'slot)))) + (if __tmp219991 __tmp219991 (error '"Unknown slot" 'slot)))) + (__checked?219989 + (let ((__tmp219992 (let () (declare (not safe)) - (class-slot-offset __t217578 'checked?)))) - (if __tmp217584 - __tmp217584 + (class-slot-offset __t219986 'checked?)))) + (if __tmp219992 + __tmp219992 (error '"Unknown slot" 'checked?))))) - (lambda (_self212266_ _id212267_ _slot212268_ _checked?212269_) + (lambda (_self214617_ _id214618_ _slot214619_ _checked?214620_) (let () (declare (not safe)) (##unchecked-structure-set! - _self212266_ - _id212267_ - __id217580 - __t217578 + _self214617_ + _id214618_ + __id219987 + __t219986 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self212266_ - _slot212268_ - __slot217579 - __t217578 + _self214617_ + _slot214619_ + __slot219988 + __t219986 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self212266_ - _checked?212269_ - __checked?217581 - __t217578 + _self214617_ + _checked?214620_ + __checked?219989 + __t219986 '#f)))))) (let () (declare (not safe)) @@ -2314,61 +2208,61 @@ (declare (not safe)) (bind-method! gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_self212139_ _id212140_ _slot212141_ _checked?212142_) - (##structure-set! _self212139_ _id212140_ '1 gxc#!type::t '#f) - (##structure-set! _self212139_ _slot212141_ '2 gxc#!mutator::t '#f) + (lambda (_self214490_ _id214491_ _slot214492_ _checked?214493_) + (##structure-set! _self214490_ _id214491_ '1 gxc#!type::t '#f) + (##structure-set! _self214490_ _slot214492_ '2 gxc#!mutator::t '#f) (##structure-set! - _self212139_ - _checked?212142_ + _self214490_ + _checked?214493_ '3 gxc#!mutator::t '#f))) (define gxc#!mutator:::init!::specialize - (lambda (__t217585) - (let ((__slot217586 - (let ((__tmp217589 + (lambda (__t219993) + (let ((__id219994 + (let ((__tmp219997 (let () (declare (not safe)) - (class-slot-offset __t217585 'slot)))) - (if __tmp217589 __tmp217589 (error '"Unknown slot" 'slot)))) - (__id217587 - (let ((__tmp217590 + (class-slot-offset __t219993 'id)))) + (if __tmp219997 __tmp219997 (error '"Unknown slot" 'id)))) + (__slot219995 + (let ((__tmp219998 (let () (declare (not safe)) - (class-slot-offset __t217585 'id)))) - (if __tmp217590 __tmp217590 (error '"Unknown slot" 'id)))) - (__checked?217588 - (let ((__tmp217591 + (class-slot-offset __t219993 'slot)))) + (if __tmp219998 __tmp219998 (error '"Unknown slot" 'slot)))) + (__checked?219996 + (let ((__tmp219999 (let () (declare (not safe)) - (class-slot-offset __t217585 'checked?)))) - (if __tmp217591 - __tmp217591 + (class-slot-offset __t219993 'checked?)))) + (if __tmp219999 + __tmp219999 (error '"Unknown slot" 'checked?))))) - (lambda (_self212139_ _id212140_ _slot212141_ _checked?212142_) + (lambda (_self214490_ _id214491_ _slot214492_ _checked?214493_) (let () (declare (not safe)) (##unchecked-structure-set! - _self212139_ - _id212140_ - __id217587 - __t217585 + _self214490_ + _id214491_ + __id219994 + __t219993 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self212139_ - _slot212141_ - __slot217586 - __t217585 + _self214490_ + _slot214492_ + __slot219995 + __t219993 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self212139_ - _checked?212142_ - __checked?217588 - __t217585 + _self214490_ + _checked?214493_ + __checked?219996 + __t219993 '#f)))))) (let () (declare (not safe)) @@ -2379,337 +2273,337 @@ (declare (not safe)) (bind-method! gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_self211983_ - _id211984_ - _arity211985_ - _dispatch211986_ - _inline211987_ - _typedecl211988_) - (if (let ((__tmp217725 + (lambda (_self214334_ + _id214335_ + _arity214336_ + _dispatch214337_ + _inline214338_ + _typedecl214339_) + (if (let ((__tmp220120 (let () (declare (not safe)) - (##structure-length _self211983_)))) + (##structure-length _self214334_)))) (declare (not safe)) - (##fx< '5 __tmp217725)) + (##fx< '5 __tmp220120)) (begin - (let ((__tmp217720 + (let ((__tmp220115 (let () (declare (not safe)) - (##structure-type _self211983_)))) + (##structure-type _self214334_)))) (declare (not safe)) (##unchecked-structure-set! - _self211983_ - _id211984_ + _self214334_ + _id214335_ '1 - __tmp217720 + __tmp220115 '#f)) - (let ((__tmp217721 + (let ((__tmp220116 (let () (declare (not safe)) - (##structure-type _self211983_)))) + (##structure-type _self214334_)))) (declare (not safe)) (##unchecked-structure-set! - _self211983_ - _arity211985_ + _self214334_ + _arity214336_ '2 - __tmp217721 + __tmp220116 '#f)) - (let ((__tmp217722 + (let ((__tmp220117 (let () (declare (not safe)) - (##structure-type _self211983_)))) + (##structure-type _self214334_)))) (declare (not safe)) (##unchecked-structure-set! - _self211983_ - _dispatch211986_ + _self214334_ + _dispatch214337_ '3 - __tmp217722 + __tmp220117 '#f)) - (let ((__tmp217723 + (let ((__tmp220118 (let () (declare (not safe)) - (##structure-type _self211983_)))) + (##structure-type _self214334_)))) (declare (not safe)) (##unchecked-structure-set! - _self211983_ - _inline211987_ + _self214334_ + _inline214338_ '4 - __tmp217723 + __tmp220118 '#f)) - (let ((__tmp217724 + (let ((__tmp220119 (let () (declare (not safe)) - (##structure-type _self211983_)))) + (##structure-type _self214334_)))) (declare (not safe)) (##unchecked-structure-set! - _self211983_ - _typedecl211988_ + _self214334_ + _typedecl214339_ '5 - __tmp217724 + __tmp220119 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self211983_ + _self214334_ '5 (let () (declare (not safe)) - (##vector-length _self211983_)))))) + (##vector-length _self214334_)))))) (define gxc#!lambda:::init!__0 - (lambda (_self211993_ _id211994_ _arity211995_ _dispatch211996_) - (let* ((_inline211998_ '#f) (_typedecl212000_ '#f)) - (if (let ((__tmp217731 + (lambda (_self214344_ _id214345_ _arity214346_ _dispatch214347_) + (let* ((_inline214349_ '#f) (_typedecl214351_ '#f)) + (if (let ((__tmp220126 (let () (declare (not safe)) - (##structure-length _self211993_)))) + (##structure-length _self214344_)))) (declare (not safe)) - (##fx< '5 __tmp217731)) + (##fx< '5 __tmp220126)) (begin - (let ((__tmp217726 + (let ((__tmp220121 (let () (declare (not safe)) - (##structure-type _self211993_)))) + (##structure-type _self214344_)))) (declare (not safe)) (##unchecked-structure-set! - _self211993_ - _id211994_ + _self214344_ + _id214345_ '1 - __tmp217726 + __tmp220121 '#f)) - (let ((__tmp217727 + (let ((__tmp220122 (let () (declare (not safe)) - (##structure-type _self211993_)))) + (##structure-type _self214344_)))) (declare (not safe)) (##unchecked-structure-set! - _self211993_ - _arity211995_ + _self214344_ + _arity214346_ '2 - __tmp217727 + __tmp220122 '#f)) - (let ((__tmp217728 + (let ((__tmp220123 (let () (declare (not safe)) - (##structure-type _self211993_)))) + (##structure-type _self214344_)))) (declare (not safe)) (##unchecked-structure-set! - _self211993_ - _dispatch211996_ + _self214344_ + _dispatch214347_ '3 - __tmp217728 + __tmp220123 '#f)) - (let ((__tmp217729 + (let ((__tmp220124 (let () (declare (not safe)) - (##structure-type _self211993_)))) + (##structure-type _self214344_)))) (declare (not safe)) (##unchecked-structure-set! - _self211993_ - _inline211998_ + _self214344_ + _inline214349_ '4 - __tmp217729 + __tmp220124 '#f)) - (let ((__tmp217730 + (let ((__tmp220125 (let () (declare (not safe)) - (##structure-type _self211993_)))) + (##structure-type _self214344_)))) (declare (not safe)) (##unchecked-structure-set! - _self211993_ - _typedecl212000_ + _self214344_ + _typedecl214351_ '5 - __tmp217730 + __tmp220125 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self211993_ + _self214344_ '5 (let () (declare (not safe)) - (##vector-length _self211993_))))))) + (##vector-length _self214344_))))))) (define gxc#!lambda:::init!__1 - (lambda (_self212002_ - _id212003_ - _arity212004_ - _dispatch212005_ - _inline212006_) - (let ((_typedecl212008_ '#f)) - (if (let ((__tmp217737 + (lambda (_self214353_ + _id214354_ + _arity214355_ + _dispatch214356_ + _inline214357_) + (let ((_typedecl214359_ '#f)) + (if (let ((__tmp220132 (let () (declare (not safe)) - (##structure-length _self212002_)))) + (##structure-length _self214353_)))) (declare (not safe)) - (##fx< '5 __tmp217737)) + (##fx< '5 __tmp220132)) (begin - (let ((__tmp217732 + (let ((__tmp220127 (let () (declare (not safe)) - (##structure-type _self212002_)))) + (##structure-type _self214353_)))) (declare (not safe)) (##unchecked-structure-set! - _self212002_ - _id212003_ + _self214353_ + _id214354_ '1 - __tmp217732 + __tmp220127 '#f)) - (let ((__tmp217733 + (let ((__tmp220128 (let () (declare (not safe)) - (##structure-type _self212002_)))) + (##structure-type _self214353_)))) (declare (not safe)) (##unchecked-structure-set! - _self212002_ - _arity212004_ + _self214353_ + _arity214355_ '2 - __tmp217733 + __tmp220128 '#f)) - (let ((__tmp217734 + (let ((__tmp220129 (let () (declare (not safe)) - (##structure-type _self212002_)))) + (##structure-type _self214353_)))) (declare (not safe)) (##unchecked-structure-set! - _self212002_ - _dispatch212005_ + _self214353_ + _dispatch214356_ '3 - __tmp217734 + __tmp220129 '#f)) - (let ((__tmp217735 + (let ((__tmp220130 (let () (declare (not safe)) - (##structure-type _self212002_)))) + (##structure-type _self214353_)))) (declare (not safe)) (##unchecked-structure-set! - _self212002_ - _inline212006_ + _self214353_ + _inline214357_ '4 - __tmp217735 + __tmp220130 '#f)) - (let ((__tmp217736 + (let ((__tmp220131 (let () (declare (not safe)) - (##structure-type _self212002_)))) + (##structure-type _self214353_)))) (declare (not safe)) (##unchecked-structure-set! - _self212002_ - _typedecl212008_ + _self214353_ + _typedecl214359_ '5 - __tmp217736 + __tmp220131 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self212002_ + _self214353_ '5 (let () (declare (not safe)) - (##vector-length _self212002_))))))) + (##vector-length _self214353_))))))) (define gxc#!lambda:::init! - (lambda _g217739_ - (let ((_g217738_ (let () (declare (not safe)) (##length _g217739_)))) - (cond ((let () (declare (not safe)) (##fx= _g217738_ 4)) - (apply (lambda (_self211993_ - _id211994_ - _arity211995_ - _dispatch211996_) + (lambda _g220134_ + (let ((_g220133_ (let () (declare (not safe)) (##length _g220134_)))) + (cond ((let () (declare (not safe)) (##fx= _g220133_ 4)) + (apply (lambda (_self214344_ + _id214345_ + _arity214346_ + _dispatch214347_) (let () (declare (not safe)) (gxc#!lambda:::init!__0 - _self211993_ - _id211994_ - _arity211995_ - _dispatch211996_))) - _g217739_)) - ((let () (declare (not safe)) (##fx= _g217738_ 5)) - (apply (lambda (_self212002_ - _id212003_ - _arity212004_ - _dispatch212005_ - _inline212006_) + _self214344_ + _id214345_ + _arity214346_ + _dispatch214347_))) + _g220134_)) + ((let () (declare (not safe)) (##fx= _g220133_ 5)) + (apply (lambda (_self214353_ + _id214354_ + _arity214355_ + _dispatch214356_ + _inline214357_) (let () (declare (not safe)) (gxc#!lambda:::init!__1 - _self212002_ - _id212003_ - _arity212004_ - _dispatch212005_ - _inline212006_))) - _g217739_)) - ((let () (declare (not safe)) (##fx= _g217738_ 6)) - (apply (lambda (_self212010_ - _id212011_ - _arity212012_ - _dispatch212013_ - _inline212014_ - _typedecl212015_) - (if (let ((__tmp217745 + _self214353_ + _id214354_ + _arity214355_ + _dispatch214356_ + _inline214357_))) + _g220134_)) + ((let () (declare (not safe)) (##fx= _g220133_ 6)) + (apply (lambda (_self214361_ + _id214362_ + _arity214363_ + _dispatch214364_ + _inline214365_ + _typedecl214366_) + (if (let ((__tmp220140 (let () (declare (not safe)) - (##structure-length _self212010_)))) + (##structure-length _self214361_)))) (declare (not safe)) - (##fx< '5 __tmp217745)) + (##fx< '5 __tmp220140)) (begin - (let ((__tmp217740 + (let ((__tmp220135 (let () (declare (not safe)) - (##structure-type _self212010_)))) + (##structure-type _self214361_)))) (declare (not safe)) (##unchecked-structure-set! - _self212010_ - _id212011_ + _self214361_ + _id214362_ '1 - __tmp217740 + __tmp220135 '#f)) - (let ((__tmp217741 + (let ((__tmp220136 (let () (declare (not safe)) - (##structure-type _self212010_)))) + (##structure-type _self214361_)))) (declare (not safe)) (##unchecked-structure-set! - _self212010_ - _arity212012_ + _self214361_ + _arity214363_ '2 - __tmp217741 + __tmp220136 '#f)) - (let ((__tmp217742 + (let ((__tmp220137 (let () (declare (not safe)) - (##structure-type _self212010_)))) + (##structure-type _self214361_)))) (declare (not safe)) (##unchecked-structure-set! - _self212010_ - _dispatch212013_ + _self214361_ + _dispatch214364_ '3 - __tmp217742 + __tmp220137 '#f)) - (let ((__tmp217743 + (let ((__tmp220138 (let () (declare (not safe)) - (##structure-type _self212010_)))) + (##structure-type _self214361_)))) (declare (not safe)) (##unchecked-structure-set! - _self212010_ - _inline212014_ + _self214361_ + _inline214365_ '4 - __tmp217743 + __tmp220138 '#f)) - (let ((__tmp217744 + (let ((__tmp220139 (let () (declare (not safe)) - (##structure-type _self212010_)))) + (##structure-type _self214361_)))) (declare (not safe)) (##unchecked-structure-set! - _self212010_ - _typedecl212015_ + _self214361_ + _typedecl214366_ '5 - __tmp217744 + __tmp220139 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self212010_ + _self214361_ '5 (let () (declare (not safe)) - (##vector-length _self212010_))))) - _g217739_)) + (##vector-length _self214361_))))) + _g220134_)) (else (##raise-wrong-number-of-arguments-exception gxc#!lambda:::init! - _g217739_)))))) + _g220134_)))))) (let () (declare (not safe)) (bind-method! gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) @@ -2722,8 +2616,8 @@ gxc#!primitive-lambda:::init! '#f)) (define gxc#!primitive-case-lambda:::init! - (lambda (_self211735_ . _args211736_) - (apply struct-instance-init! _self211735_ _args211736_))) + (lambda (_self214086_ . _args214087_) + (apply struct-instance-init! _self214086_ _args214087_))) (let () (declare (not safe)) (bind-method! @@ -2732,62 +2626,62 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!type-vtab - (lambda (_type211610_) + (lambda (_type213961_) (if (let () (declare (not safe)) - (##structure-instance-of? _type211610_ 'gxc#!class::t)) + (##structure-instance-of? _type213961_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-method-table _type211610_)) + (gxc#!class-method-table _type213961_)) '#f))) (define gxc#!class-method-table - (lambda (_klass211603_) - (let ((_$e211605_ - (##structure-ref _klass211603_ '9 gxc#!class::t '#f))) - (if _$e211605_ - _$e211605_ - (let ((_tab211608_ + (lambda (_klass213954_) + (let ((_$e213956_ + (##structure-ref _klass213954_ '9 gxc#!class::t '#f))) + (if _$e213956_ + _$e213956_ + (let ((_tab213959_ (let () (declare (not safe)) (make-table 'test: eq?)))) (##structure-set! - _klass211603_ - _tab211608_ + _klass213954_ + _tab213959_ '9 gxc#!class::t '#f) - _tab211608_))))) + _tab213959_))))) (define gxc#!class-lookup-method - (lambda (_klass211594_ _method211595_) - (let ((_tab211596211598_ - (##structure-ref _klass211594_ '9 gxc#!class::t '#f))) - (if _tab211596211598_ - (let ((_tab211601_ _tab211596211598_)) + (lambda (_klass213945_ _method213946_) + (let ((_tab213947213949_ + (##structure-ref _klass213945_ '9 gxc#!class::t '#f))) + (if _tab213947213949_ + (let ((_tab213952_ _tab213947213949_)) (declare (not safe)) - (table-ref _tab211601_ _method211595_ '#f)) + (table-ref _tab213952_ _method213946_ '#f)) '#f)))) (define gxc#!type-lookup-method - (lambda (_type211591_ _method211592_) + (lambda (_type213942_ _method213943_) (if (let () (declare (not safe)) - (##structure-instance-of? _type211591_ 'gxc#!class::t)) + (##structure-instance-of? _type213942_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-lookup-method _type211591_ _method211592_)) + (gxc#!class-lookup-method _type213942_ _method213943_)) '#f))) (define gxc#optimizer-declare-type!__% - (lambda (_sym211575_ _type211576_ _local?211577_) + (lambda (_sym213926_ _type213927_ _local?213928_) (if (let () (declare (not safe)) - (##structure-instance-of? _type211576_ 'gxc#!type::t)) + (##structure-instance-of? _type213927_ 'gxc#!type::t)) '#!void (error '"bad declaration: expected !type" - _sym211575_ - _type211576_)) - (let ((__tmp217746 - (let () (declare (not safe)) (struct->list _type211576_)))) + _sym213926_ + _type213927_)) + (let ((__tmp220141 + (let () (declare (not safe)) (struct->list _type213927_)))) (declare (not safe)) - (gxc#verbose '"declare-type " _sym211575_ '" " __tmp217746)) - (let ((__tmp217747 - (if _local?211577_ + (gxc#verbose '"declare-type " _sym213926_ '" " __tmp220141)) + (let ((__tmp220142 + (if _local?213928_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2795,44 +2689,44 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (table-set! __tmp217747 _sym211575_ _type211576_)))) + (table-set! __tmp220142 _sym213926_ _type213927_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_sym211582_ _type211583_) - (let ((_local?211585_ '#f)) + (lambda (_sym213933_ _type213934_) + (let ((_local?213936_ '#f)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym211582_ - _type211583_ - _local?211585_)))) + _sym213933_ + _type213934_ + _local?213936_)))) (define gxc#optimizer-declare-type! - (lambda _g217749_ - (let ((_g217748_ (let () (declare (not safe)) (##length _g217749_)))) - (cond ((let () (declare (not safe)) (##fx= _g217748_ 2)) - (apply (lambda (_sym211582_ _type211583_) + (lambda _g220144_ + (let ((_g220143_ (let () (declare (not safe)) (##length _g220144_)))) + (cond ((let () (declare (not safe)) (##fx= _g220143_ 2)) + (apply (lambda (_sym213933_ _type213934_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym211582_ - _type211583_))) - _g217749_)) - ((let () (declare (not safe)) (##fx= _g217748_ 3)) - (apply (lambda (_sym211587_ _type211588_ _local?211589_) + _sym213933_ + _type213934_))) + _g220144_)) + ((let () (declare (not safe)) (##fx= _g220143_ 3)) + (apply (lambda (_sym213938_ _type213939_ _local?213940_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym211587_ - _type211588_ - _local?211589_))) - _g217749_)) + _sym213938_ + _type213939_ + _local?213940_))) + _g220144_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g217749_)))))) + _g220144_)))))) (define gxc#optimizer-clear-type!__% - (lambda (_sym211561_ _local?211562_) - (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym211561_)) - (let ((__tmp217750 - (if _local?211562_ + (lambda (_sym213912_ _local?213913_) + (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym213912_)) + (let ((__tmp220145 + (if _local?213913_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2840,262 +2734,262 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (table-set! __tmp217750 _sym211561_)))) + (table-set! __tmp220145 _sym213912_)))) (define gxc#optimizer-clear-type!__0 - (lambda (_sym211567_) - (let ((_local?211569_ '#f)) + (lambda (_sym213918_) + (let ((_local?213920_ '#f)) (declare (not safe)) - (gxc#optimizer-clear-type!__% _sym211567_ _local?211569_)))) + (gxc#optimizer-clear-type!__% _sym213918_ _local?213920_)))) (define gxc#optimizer-clear-type! - (lambda _g217752_ - (let ((_g217751_ (let () (declare (not safe)) (##length _g217752_)))) - (cond ((let () (declare (not safe)) (##fx= _g217751_ 1)) - (apply (lambda (_sym211567_) + (lambda _g220147_ + (let ((_g220146_ (let () (declare (not safe)) (##length _g220147_)))) + (cond ((let () (declare (not safe)) (##fx= _g220146_ 1)) + (apply (lambda (_sym213918_) (let () (declare (not safe)) - (gxc#optimizer-clear-type!__0 _sym211567_))) - _g217752_)) - ((let () (declare (not safe)) (##fx= _g217751_ 2)) - (apply (lambda (_sym211571_ _local?211572_) + (gxc#optimizer-clear-type!__0 _sym213918_))) + _g220147_)) + ((let () (declare (not safe)) (##fx= _g220146_ 2)) + (apply (lambda (_sym213922_ _local?213923_) (let () (declare (not safe)) (gxc#optimizer-clear-type!__% - _sym211571_ - _local?211572_))) - _g217752_)) + _sym213922_ + _local?213923_))) + _g220147_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-clear-type! - _g217752_)))))) + _g220147_)))))) (define gxc#optimizer-declare-method!__% - (lambda (_type-t211534_ _method211535_ _sym211536_ _rebind?211537_) - (let* ((_type211539_ + (lambda (_type-t213885_ _method213886_ _sym213887_ _rebind?213888_) + (let* ((_type213890_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t211534_))) - (_$e211541_ - (let () (declare (not safe)) (gxc#!type-vtab _type211539_)))) - (if _$e211541_ - ((lambda (_vtab211544_) + (gxc#optimizer-resolve-type _type-t213885_))) + (_$e213892_ + (let () (declare (not safe)) (gxc#!type-vtab _type213890_)))) + (if _$e213892_ + ((lambda (_vtab213895_) (if (let () (declare (not safe)) - (hash-key? _vtab211544_ _method211535_)) - (if _rebind?211537_ + (hash-key? _vtab213895_ _method213886_)) + (if _rebind?213888_ (begin (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _type-t211534_ + _type-t213885_ '" " - _method211535_)) + _method213886_)) (let () (declare (not safe)) (table-set! - _vtab211544_ - _method211535_ - _sym211536_))) - (let ((__tmp217757 - (let ((__tmp217758 - (let ((__tmp217759 - (let ((__tmp217760 + _vtab213895_ + _method213886_ + _sym213887_))) + (let ((__tmp220152 + (let ((__tmp220153 + (let ((__tmp220154 + (let ((__tmp220155 (let () (declare (not safe)) - (cons _sym211536_ + (cons _sym213887_ '())))) (declare (not safe)) - (cons _method211535_ - __tmp217760)))) + (cons _method213886_ + __tmp220155)))) (declare (not safe)) - (cons _type-t211534_ __tmp217759)))) + (cons _type-t213885_ __tmp220154)))) (declare (not safe)) - (cons 'bind-method! __tmp217758)))) + (cons 'bind-method! __tmp220153)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp217757 - _method211535_))) + __tmp220152 + _method213886_))) (begin (let () (declare (not safe)) (gxc#verbose '"declare-method " - _type-t211534_ + _type-t213885_ '" " - _method211535_ + _method213886_ '" => " - _sym211536_)) + _sym213887_)) (let () (declare (not safe)) (table-set! - _vtab211544_ - _method211535_ - _sym211536_))))) - _$e211541_) - (if (let () (declare (not safe)) (not _type211539_)) + _vtab213895_ + _method213886_ + _sym213887_))))) + _$e213892_) + (if (let () (declare (not safe)) (not _type213890_)) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown type " - _type-t211534_)) - (let ((__tmp217753 - (let ((__tmp217754 - (let ((__tmp217755 - (let ((__tmp217756 + _type-t213885_)) + (let ((__tmp220148 + (let ((__tmp220149 + (let ((__tmp220150 + (let ((__tmp220151 (let () (declare (not safe)) - (cons _method211535_ '())))) + (cons _method213886_ '())))) (declare (not safe)) - (cons _sym211536_ __tmp217756)))) + (cons _sym213887_ __tmp220151)))) (declare (not safe)) - (cons _type-t211534_ __tmp217755)))) + (cons _type-t213885_ __tmp220150)))) (declare (not safe)) - (cons 'bind-method! __tmp217754)))) + (cons 'bind-method! __tmp220149)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: bad method declaration; no method table" - __tmp217753 - _type211539_))))))) + __tmp220148 + _type213890_))))))) (define gxc#optimizer-declare-method!__0 - (lambda (_type-t211549_ _method211550_ _sym211551_) - (let ((_rebind?211553_ '#f)) + (lambda (_type-t213900_ _method213901_ _sym213902_) + (let ((_rebind?213904_ '#f)) (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t211549_ - _method211550_ - _sym211551_ - _rebind?211553_)))) + _type-t213900_ + _method213901_ + _sym213902_ + _rebind?213904_)))) (define gxc#optimizer-declare-method! - (lambda _g217762_ - (let ((_g217761_ (let () (declare (not safe)) (##length _g217762_)))) - (cond ((let () (declare (not safe)) (##fx= _g217761_ 3)) - (apply (lambda (_type-t211549_ _method211550_ _sym211551_) + (lambda _g220157_ + (let ((_g220156_ (let () (declare (not safe)) (##length _g220157_)))) + (cond ((let () (declare (not safe)) (##fx= _g220156_ 3)) + (apply (lambda (_type-t213900_ _method213901_ _sym213902_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__0 - _type-t211549_ - _method211550_ - _sym211551_))) - _g217762_)) - ((let () (declare (not safe)) (##fx= _g217761_ 4)) - (apply (lambda (_type-t211555_ - _method211556_ - _sym211557_ - _rebind?211558_) + _type-t213900_ + _method213901_ + _sym213902_))) + _g220157_)) + ((let () (declare (not safe)) (##fx= _g220156_ 4)) + (apply (lambda (_type-t213906_ + _method213907_ + _sym213908_ + _rebind?213909_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t211555_ - _method211556_ - _sym211557_ - _rebind?211558_))) - _g217762_)) + _type-t213906_ + _method213907_ + _sym213908_ + _rebind?213909_))) + _g220157_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g217762_)))))) + _g220157_)))))) (define gxc#optimizer-lookup-type - (lambda (_sym211522_) - (let ((_$e211530_ - (let ((_ht211523211525_ (gxc#current-compile-local-type))) - (if _ht211523211525_ - (let ((_ht211528_ _ht211523211525_)) + (lambda (_sym213873_) + (let ((_$e213881_ + (let ((_ht213874213876_ (gxc#current-compile-local-type))) + (if _ht213874213876_ + (let ((_ht213879_ _ht213874213876_)) (declare (not safe)) - (table-ref _ht211528_ _sym211522_ '#f)) + (table-ref _ht213879_ _sym213873_ '#f)) '#f)))) - (if _$e211530_ - _$e211530_ - (let ((__tmp217763 + (if _$e213881_ + _$e213881_ + (let ((__tmp220158 (##structure-ref (gxc#current-compile-optimizer-info) '1 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-ref __tmp217763 _sym211522_ '#f)))))) + (table-ref __tmp220158 _sym213873_ '#f)))))) (define gxc#optimizer-resolve-type - (lambda (_sym211514_) - (let ((_type211515211517_ + (lambda (_sym213865_) + (let ((_type213866213868_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym211514_)))) - (if _type211515211517_ - (let ((_type211520_ _type211515211517_)) + (gxc#optimizer-lookup-type _sym213865_)))) + (if _type213866213868_ + (let ((_type213871_ _type213866213868_)) (if (let () (declare (not safe)) - (##structure-instance-of? _type211520_ 'gxc#!alias::t)) - (let ((__tmp217764 - (##structure-ref _type211520_ '1 gxc#!type::t '#f))) + (##structure-instance-of? _type213871_ 'gxc#!alias::t)) + (let ((__tmp220159 + (##structure-ref _type213871_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp217764)) - _type211520_)) + (gxc#optimizer-resolve-type __tmp220159)) + _type213871_)) '#f)))) (define gxc#optimizer-resolve-class - (lambda (_where211506_ _klass-id211507_) - (let ((_$e211509_ + (lambda (_where213857_ _klass-id213858_) + (let ((_$e213860_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _klass-id211507_)))) - (if _$e211509_ - ((lambda (_klass211512_) + (gxc#optimizer-resolve-type _klass-id213858_)))) + (if _$e213860_ + ((lambda (_klass213863_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass211512_ 'gxc#!class::t)) + (##structure-instance-of? _klass213863_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"bad class reference; not a class type" - _where211506_ - _klass-id211507_ - _klass211512_))) - _klass211512_) - _$e211509_) + _where213857_ + _klass-id213858_ + _klass213863_))) + _klass213863_) + _$e213860_) (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _where211506_ - _klass-id211507_)))))) + _where213857_ + _klass-id213858_)))))) (define gxc#optimizer-lookup-method - (lambda (_type-t211503_ _method211504_) - (let ((__tmp217765 + (lambda (_type-t213854_ _method213855_) + (let ((__tmp220160 (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t211503_)))) + (gxc#optimizer-resolve-type _type-t213854_)))) (declare (not safe)) - (gxc#!type-lookup-method __tmp217765 _method211504_)))) + (gxc#!type-lookup-method __tmp220160 _method213855_)))) (define gxc#optimizer-top-level-method! - (lambda (_sym211501_) + (lambda (_sym213852_) (let () (declare (not safe)) - (gxc#verbose '"top-level method: " _sym211501_)) - (let ((__tmp217766 + (gxc#verbose '"top-level method: " _sym213852_)) + (let ((__tmp220161 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-set! __tmp217766 _sym211501_ '#t)))) + (table-set! __tmp220161 _sym213852_ '#t)))) (define gxc#optimizer-top-level-method? - (lambda (_sym211499_) - (let ((__tmp217767 + (lambda (_sym213850_) + (let ((__tmp220162 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-ref __tmp217767 _sym211499_ '#f)))) + (table-ref __tmp220162 _sym213850_ '#f)))) (define gxc#identifier-symbol - (lambda (_stx211497_) + (lambda (_stx213848_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _stx211497_ + _stx213848_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _stx211497_)) - (let () (declare (not safe)) (gx#stx-e _stx211497_))))))) + (gxc#generate-runtime-binding-id _stx213848_)) + (let () (declare (not safe)) (gx#stx-e _stx213848_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__1.scm b/src/bootstrap/gerbil/compiler/optimize-base__1.scm index c1a89f32c..f72d024ec 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]#_g217769_| + (define |gxc[1]#_g220164_| (##structure gx#syntax-quote::t 'optimizer-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217771_| + (define |gxc[1]#_g220166_| (##structure gx#syntax-quote::t 'make-optimizer-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217773_| + (define |gxc[1]#_g220168_| (##structure gx#syntax-quote::t 'optimizer-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217779_| + (define |gxc[1]#_g220174_| (##structure gx#syntax-quote::t 'optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217782_| + (define |gxc[1]#_g220177_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217785_| + (define |gxc[1]#_g220180_| (##structure gx#syntax-quote::t 'optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217791_| + (define |gxc[1]#_g220186_| (##structure gx#syntax-quote::t 'optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217794_| + (define |gxc[1]#_g220189_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217797_| + (define |gxc[1]#_g220192_| (##structure gx#syntax-quote::t 'optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217803_| + (define |gxc[1]#_g220198_| (##structure gx#syntax-quote::t '&optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217806_| + (define |gxc[1]#_g220201_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217809_| + (define |gxc[1]#_g220204_| (##structure gx#syntax-quote::t '&optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217815_| + (define |gxc[1]#_g220210_| (##structure gx#syntax-quote::t '&optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217818_| + (define |gxc[1]#_g220213_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217821_| + (define |gxc[1]#_g220216_| (##structure gx#syntax-quote::t '&optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217823_| + (define |gxc[1]#_g220218_| (##structure gx#syntax-quote::t '!type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217825_| + (define |gxc[1]#_g220220_| (##structure gx#syntax-quote::t 'make-!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217827_| + (define |gxc[1]#_g220222_| (##structure gx#syntax-quote::t '!type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217831_| + (define |gxc[1]#_g220226_| (##structure gx#syntax-quote::t '!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217835_| + (define |gxc[1]#_g220230_| (##structure gx#syntax-quote::t '!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217839_| + (define |gxc[1]#_g220234_| (##structure gx#syntax-quote::t '&!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217843_| + (define |gxc[1]#_g220238_| (##structure gx#syntax-quote::t '&!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217846_| + (define |gxc[1]#_g220241_| (##structure gx#syntax-quote::t '!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217848_| + (define |gxc[1]#_g220243_| (##structure gx#syntax-quote::t '!alias::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217850_| + (define |gxc[1]#_g220245_| (##structure gx#syntax-quote::t 'make-!alias #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217852_| + (define |gxc[1]#_g220247_| (##structure gx#syntax-quote::t '!alias? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217856_| + (define |gxc[1]#_g220251_| (##structure gx#syntax-quote::t '!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217860_| + (define |gxc[1]#_g220255_| (##structure gx#syntax-quote::t '!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217864_| + (define |gxc[1]#_g220259_| (##structure gx#syntax-quote::t '&!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217868_| + (define |gxc[1]#_g220263_| (##structure gx#syntax-quote::t '&!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217872_| + (define |gxc[1]#_g220267_| (##structure gx#syntax-quote::t '!procedure::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217874_| + (define |gxc[1]#_g220269_| (##structure gx#syntax-quote::t 'make-!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217876_| + (define |gxc[1]#_g220271_| (##structure gx#syntax-quote::t '!procedure? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217880_| + (define |gxc[1]#_g220275_| (##structure gx#syntax-quote::t '!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217884_| + (define |gxc[1]#_g220279_| (##structure gx#syntax-quote::t '!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217888_| + (define |gxc[1]#_g220283_| (##structure gx#syntax-quote::t '&!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217892_| + (define |gxc[1]#_g220287_| (##structure gx#syntax-quote::t '&!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217896_| + (define |gxc[1]#_g220291_| (##structure gx#syntax-quote::t '!class::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217898_| + (define |gxc[1]#_g220293_| (##structure gx#syntax-quote::t 'make-!class #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217900_| + (define |gxc[1]#_g220295_| (##structure gx#syntax-quote::t '!class? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217912_| + (define |gxc[1]#_g220307_| (##structure gx#syntax-quote::t '!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217915_| + (define |gxc[1]#_g220310_| (##structure gx#syntax-quote::t '!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217918_| + (define |gxc[1]#_g220313_| (##structure gx#syntax-quote::t '!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217921_| + (define |gxc[1]#_g220316_| (##structure gx#syntax-quote::t '!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217924_| + (define |gxc[1]#_g220319_| (##structure gx#syntax-quote::t '!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217927_| + (define |gxc[1]#_g220322_| (##structure gx#syntax-quote::t '!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217930_| + (define |gxc[1]#_g220325_| (##structure gx#syntax-quote::t '!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217933_| + (define |gxc[1]#_g220328_| (##structure gx#syntax-quote::t '!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217936_| + (define |gxc[1]#_g220331_| (##structure gx#syntax-quote::t '!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217948_| + (define |gxc[1]#_g220343_| (##structure gx#syntax-quote::t '!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217951_| + (define |gxc[1]#_g220346_| (##structure gx#syntax-quote::t '!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217954_| + (define |gxc[1]#_g220349_| (##structure gx#syntax-quote::t '!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217957_| + (define |gxc[1]#_g220352_| (##structure gx#syntax-quote::t '!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217960_| + (define |gxc[1]#_g220355_| (##structure gx#syntax-quote::t '!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217963_| + (define |gxc[1]#_g220358_| (##structure gx#syntax-quote::t '!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217966_| + (define |gxc[1]#_g220361_| (##structure gx#syntax-quote::t '!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217969_| + (define |gxc[1]#_g220364_| (##structure gx#syntax-quote::t '!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217972_| + (define |gxc[1]#_g220367_| (##structure gx#syntax-quote::t '!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217984_| + (define |gxc[1]#_g220379_| (##structure gx#syntax-quote::t '&!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217987_| + (define |gxc[1]#_g220382_| (##structure gx#syntax-quote::t '&!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217990_| + (define |gxc[1]#_g220385_| (##structure gx#syntax-quote::t '&!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217993_| + (define |gxc[1]#_g220388_| (##structure gx#syntax-quote::t '&!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217996_| + (define |gxc[1]#_g220391_| (##structure gx#syntax-quote::t '&!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g217999_| + (define |gxc[1]#_g220394_| (##structure gx#syntax-quote::t '&!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218002_| + (define |gxc[1]#_g220397_| (##structure gx#syntax-quote::t '&!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218005_| + (define |gxc[1]#_g220400_| (##structure gx#syntax-quote::t '&!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218008_| + (define |gxc[1]#_g220403_| (##structure gx#syntax-quote::t '&!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218020_| + (define |gxc[1]#_g220415_| (##structure gx#syntax-quote::t '&!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218023_| + (define |gxc[1]#_g220418_| (##structure gx#syntax-quote::t '&!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218026_| + (define |gxc[1]#_g220421_| (##structure gx#syntax-quote::t '&!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218029_| + (define |gxc[1]#_g220424_| (##structure gx#syntax-quote::t '&!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218032_| + (define |gxc[1]#_g220427_| (##structure gx#syntax-quote::t '&!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218035_| + (define |gxc[1]#_g220430_| (##structure gx#syntax-quote::t '&!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218038_| + (define |gxc[1]#_g220433_| (##structure gx#syntax-quote::t '&!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218041_| + (define |gxc[1]#_g220436_| (##structure gx#syntax-quote::t '&!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218044_| + (define |gxc[1]#_g220439_| (##structure gx#syntax-quote::t '&!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218047_| + (define |gxc[1]#_g220442_| (##structure gx#syntax-quote::t '!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218049_| + (define |gxc[1]#_g220444_| (##structure gx#syntax-quote::t '!predicate::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218051_| + (define |gxc[1]#_g220446_| (##structure gx#syntax-quote::t 'make-!predicate #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218053_| + (define |gxc[1]#_g220448_| (##structure gx#syntax-quote::t '!predicate? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218057_| + (define |gxc[1]#_g220452_| (##structure gx#syntax-quote::t '!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218061_| + (define |gxc[1]#_g220456_| (##structure gx#syntax-quote::t '!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218065_| + (define |gxc[1]#_g220460_| (##structure gx#syntax-quote::t '&!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218069_| + (define |gxc[1]#_g220464_| (##structure gx#syntax-quote::t '&!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218073_| + (define |gxc[1]#_g220468_| (##structure gx#syntax-quote::t '!constructor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218075_| + (define |gxc[1]#_g220470_| (##structure gx#syntax-quote::t 'make-!constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218077_| + (define |gxc[1]#_g220472_| (##structure gx#syntax-quote::t '!constructor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218081_| + (define |gxc[1]#_g220476_| (##structure gx#syntax-quote::t '!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218085_| + (define |gxc[1]#_g220480_| (##structure gx#syntax-quote::t '!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218089_| + (define |gxc[1]#_g220484_| (##structure gx#syntax-quote::t '&!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218093_| + (define |gxc[1]#_g220488_| (##structure gx#syntax-quote::t '&!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218097_| + (define |gxc[1]#_g220492_| (##structure gx#syntax-quote::t '!accessor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218099_| + (define |gxc[1]#_g220494_| (##structure gx#syntax-quote::t 'make-!accessor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218101_| + (define |gxc[1]#_g220496_| (##structure gx#syntax-quote::t '!accessor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218107_| + (define |gxc[1]#_g220502_| (##structure gx#syntax-quote::t '!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218110_| + (define |gxc[1]#_g220505_| (##structure gx#syntax-quote::t '!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218113_| + (define |gxc[1]#_g220508_| (##structure gx#syntax-quote::t '!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218119_| + (define |gxc[1]#_g220514_| (##structure gx#syntax-quote::t '!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218122_| + (define |gxc[1]#_g220517_| (##structure gx#syntax-quote::t '!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218125_| + (define |gxc[1]#_g220520_| (##structure gx#syntax-quote::t '!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218131_| + (define |gxc[1]#_g220526_| (##structure gx#syntax-quote::t '&!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218134_| + (define |gxc[1]#_g220529_| (##structure gx#syntax-quote::t '&!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218137_| + (define |gxc[1]#_g220532_| (##structure gx#syntax-quote::t '&!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218143_| + (define |gxc[1]#_g220538_| (##structure gx#syntax-quote::t '&!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218146_| + (define |gxc[1]#_g220541_| (##structure gx#syntax-quote::t '&!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218149_| + (define |gxc[1]#_g220544_| (##structure gx#syntax-quote::t '&!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218153_| + (define |gxc[1]#_g220548_| (##structure gx#syntax-quote::t '!mutator::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218155_| + (define |gxc[1]#_g220550_| (##structure gx#syntax-quote::t 'make-!mutator #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218157_| + (define |gxc[1]#_g220552_| (##structure gx#syntax-quote::t '!mutator? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218163_| + (define |gxc[1]#_g220558_| (##structure gx#syntax-quote::t '!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218166_| + (define |gxc[1]#_g220561_| (##structure gx#syntax-quote::t '!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218169_| + (define |gxc[1]#_g220564_| (##structure gx#syntax-quote::t '!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218175_| + (define |gxc[1]#_g220570_| (##structure gx#syntax-quote::t '!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218178_| + (define |gxc[1]#_g220573_| (##structure gx#syntax-quote::t '!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218181_| + (define |gxc[1]#_g220576_| (##structure gx#syntax-quote::t '!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218187_| + (define |gxc[1]#_g220582_| (##structure gx#syntax-quote::t '&!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218190_| + (define |gxc[1]#_g220585_| (##structure gx#syntax-quote::t '&!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218193_| + (define |gxc[1]#_g220588_| (##structure gx#syntax-quote::t '&!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218199_| + (define |gxc[1]#_g220594_| (##structure gx#syntax-quote::t '&!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218202_| + (define |gxc[1]#_g220597_| (##structure gx#syntax-quote::t '&!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218205_| + (define |gxc[1]#_g220600_| (##structure gx#syntax-quote::t '&!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218209_| + (define |gxc[1]#_g220604_| (##structure gx#syntax-quote::t '!lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218211_| + (define |gxc[1]#_g220606_| (##structure gx#syntax-quote::t 'make-!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218213_| + (define |gxc[1]#_g220608_| (##structure gx#syntax-quote::t '!lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218221_| + (define |gxc[1]#_g220616_| (##structure gx#syntax-quote::t '!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218224_| + (define |gxc[1]#_g220619_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218227_| + (define |gxc[1]#_g220622_| (##structure gx#syntax-quote::t '!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218230_| + (define |gxc[1]#_g220625_| (##structure gx#syntax-quote::t '!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218233_| + (define |gxc[1]#_g220628_| (##structure gx#syntax-quote::t '!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218241_| + (define |gxc[1]#_g220636_| (##structure gx#syntax-quote::t '!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218244_| + (define |gxc[1]#_g220639_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218247_| + (define |gxc[1]#_g220642_| (##structure gx#syntax-quote::t '!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218250_| + (define |gxc[1]#_g220645_| (##structure gx#syntax-quote::t '!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218253_| + (define |gxc[1]#_g220648_| (##structure gx#syntax-quote::t '!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218261_| + (define |gxc[1]#_g220656_| (##structure gx#syntax-quote::t '&!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218264_| + (define |gxc[1]#_g220659_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218267_| + (define |gxc[1]#_g220662_| (##structure gx#syntax-quote::t '&!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218270_| + (define |gxc[1]#_g220665_| (##structure gx#syntax-quote::t '&!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218273_| + (define |gxc[1]#_g220668_| (##structure gx#syntax-quote::t '&!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218281_| + (define |gxc[1]#_g220676_| (##structure gx#syntax-quote::t '&!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218284_| + (define |gxc[1]#_g220679_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218287_| + (define |gxc[1]#_g220682_| (##structure gx#syntax-quote::t '&!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218290_| + (define |gxc[1]#_g220685_| (##structure gx#syntax-quote::t '&!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218293_| + (define |gxc[1]#_g220688_| (##structure gx#syntax-quote::t '&!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218297_| + (define |gxc[1]#_g220692_| (##structure gx#syntax-quote::t '!case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218299_| + (define |gxc[1]#_g220694_| (##structure gx#syntax-quote::t 'make-!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218301_| + (define |gxc[1]#_g220696_| (##structure gx#syntax-quote::t '!case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218306_| + (define |gxc[1]#_g220701_| (##structure gx#syntax-quote::t '!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218309_| + (define |gxc[1]#_g220704_| (##structure gx#syntax-quote::t '!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218314_| + (define |gxc[1]#_g220709_| (##structure gx#syntax-quote::t '!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218317_| + (define |gxc[1]#_g220712_| (##structure gx#syntax-quote::t '!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218322_| + (define |gxc[1]#_g220717_| (##structure gx#syntax-quote::t '&!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218325_| + (define |gxc[1]#_g220720_| (##structure gx#syntax-quote::t '&!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218330_| + (define |gxc[1]#_g220725_| (##structure gx#syntax-quote::t '&!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218333_| + (define |gxc[1]#_g220728_| (##structure gx#syntax-quote::t '&!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218337_| + (define |gxc[1]#_g220732_| (##structure gx#syntax-quote::t '!kw-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218339_| + (define |gxc[1]#_g220734_| (##structure gx#syntax-quote::t 'make-!kw-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218341_| + (define |gxc[1]#_g220736_| (##structure gx#syntax-quote::t '!kw-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218347_| + (define |gxc[1]#_g220742_| (##structure gx#syntax-quote::t '!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218350_| + (define |gxc[1]#_g220745_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218353_| + (define |gxc[1]#_g220748_| (##structure gx#syntax-quote::t '!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218359_| + (define |gxc[1]#_g220754_| (##structure gx#syntax-quote::t '!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218362_| + (define |gxc[1]#_g220757_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218365_| + (define |gxc[1]#_g220760_| (##structure gx#syntax-quote::t '!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218371_| + (define |gxc[1]#_g220766_| (##structure gx#syntax-quote::t '&!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218374_| + (define |gxc[1]#_g220769_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218377_| + (define |gxc[1]#_g220772_| (##structure gx#syntax-quote::t '&!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218383_| + (define |gxc[1]#_g220778_| (##structure gx#syntax-quote::t '&!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218386_| + (define |gxc[1]#_g220781_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218389_| + (define |gxc[1]#_g220784_| (##structure gx#syntax-quote::t '&!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218393_| + (define |gxc[1]#_g220788_| (##structure gx#syntax-quote::t '!kw-lambda-primary::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218395_| + (define |gxc[1]#_g220790_| (##structure gx#syntax-quote::t 'make-!kw-lambda-primary #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218397_| + (define |gxc[1]#_g220792_| (##structure gx#syntax-quote::t '!kw-lambda-primary? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218403_| + (define |gxc[1]#_g220798_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218406_| + (define |gxc[1]#_g220801_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218409_| + (define |gxc[1]#_g220804_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218415_| + (define |gxc[1]#_g220810_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218418_| + (define |gxc[1]#_g220813_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218421_| + (define |gxc[1]#_g220816_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218427_| + (define |gxc[1]#_g220822_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218430_| + (define |gxc[1]#_g220825_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218433_| + (define |gxc[1]#_g220828_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218439_| + (define |gxc[1]#_g220834_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218442_| + (define |gxc[1]#_g220837_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218445_| + (define |gxc[1]#_g220840_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218447_| + (define |gxc[1]#_g220842_| (##structure gx#syntax-quote::t '!primitive::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218449_| + (define |gxc[1]#_g220844_| (##structure gx#syntax-quote::t 'make-!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218451_| + (define |gxc[1]#_g220846_| (##structure gx#syntax-quote::t '!primitive? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218455_| + (define |gxc[1]#_g220850_| (##structure gx#syntax-quote::t '!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218457_| + (define |gxc[1]#_g220852_| (##structure gx#syntax-quote::t '!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218459_| + (define |gxc[1]#_g220854_| (##structure gx#syntax-quote::t '!primitive-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218461_| + (define |gxc[1]#_g220856_| (##structure gx#syntax-quote::t 'make-!primitive-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218463_| + (define |gxc[1]#_g220858_| (##structure gx#syntax-quote::t '!primitive-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218471_| + (define |gxc[1]#_g220866_| (##structure gx#syntax-quote::t '!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218474_| + (define |gxc[1]#_g220869_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218477_| + (define |gxc[1]#_g220872_| (##structure gx#syntax-quote::t '!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218480_| + (define |gxc[1]#_g220875_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218483_| + (define |gxc[1]#_g220878_| (##structure gx#syntax-quote::t '!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218491_| + (define |gxc[1]#_g220886_| (##structure gx#syntax-quote::t '!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218494_| + (define |gxc[1]#_g220889_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218497_| + (define |gxc[1]#_g220892_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218500_| + (define |gxc[1]#_g220895_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218503_| + (define |gxc[1]#_g220898_| (##structure gx#syntax-quote::t '!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218511_| + (define |gxc[1]#_g220906_| (##structure gx#syntax-quote::t '&!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218514_| + (define |gxc[1]#_g220909_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218517_| + (define |gxc[1]#_g220912_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218520_| + (define |gxc[1]#_g220915_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218523_| + (define |gxc[1]#_g220918_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218531_| + (define |gxc[1]#_g220926_| (##structure gx#syntax-quote::t '&!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218534_| + (define |gxc[1]#_g220929_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218537_| + (define |gxc[1]#_g220932_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218540_| + (define |gxc[1]#_g220935_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218543_| + (define |gxc[1]#_g220938_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218547_| + (define |gxc[1]#_g220942_| (##structure gx#syntax-quote::t '!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218550_| + (define |gxc[1]#_g220945_| (##structure gx#syntax-quote::t '!primitive-case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218552_| + (define |gxc[1]#_g220947_| (##structure gx#syntax-quote::t 'make-!primitive-case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218554_| + (define |gxc[1]#_g220949_| (##structure gx#syntax-quote::t '!primitive-case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218559_| + (define |gxc[1]#_g220954_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218562_| + (define |gxc[1]#_g220957_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218567_| + (define |gxc[1]#_g220962_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218570_| + (define |gxc[1]#_g220965_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218575_| + (define |gxc[1]#_g220970_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218578_| + (define |gxc[1]#_g220973_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218583_| + (define |gxc[1]#_g220978_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218586_| + (define |gxc[1]#_g220981_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses-set! @@ -1577,7 +1577,7 @@ '())) (begin (define |gxc[:0:]#optimizer-info| - (let ((__obj217610 + (let ((__obj220000 (let () (declare (not safe)) (##structure @@ -1599,7 +1599,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217610 + __obj220000 'gxc#optimizer-info::t '1 gerbil/core$$#class-type-info::t @@ -1607,7 +1607,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217610 + __obj220000 'optimizer-info '2 gerbil/core$$#class-type-info::t @@ -1615,7 +1615,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217610 + __obj220000 '(type ssxi methods) '4 gerbil/core$$#class-type-info::t @@ -1623,7 +1623,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217610 + __obj220000 '() '3 gerbil/core$$#class-type-info::t @@ -1631,7 +1631,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217610 + __obj220000 '#t '5 gerbil/core$$#class-type-info::t @@ -1639,7 +1639,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217610 + __obj220000 '#f '6 gerbil/core$$#class-type-info::t @@ -1647,150 +1647,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217610 + __obj220000 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217768 |gxc[1]#_g217769_|)) + (let ((__tmp220163 |gxc[1]#_g220164_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217610 - __tmp217768 + __obj220000 + __tmp220163 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217770 |gxc[1]#_g217771_|)) + (let ((__tmp220165 |gxc[1]#_g220166_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217610 - __tmp217770 + __obj220000 + __tmp220165 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217772 |gxc[1]#_g217773_|)) + (let ((__tmp220167 |gxc[1]#_g220168_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217610 - __tmp217772 + __obj220000 + __tmp220167 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217774 - (let ((__tmp217783 - (let ((__tmp217784 |gxc[1]#_g217785_|)) + (let ((__tmp220169 + (let ((__tmp220178 + (let ((__tmp220179 |gxc[1]#_g220180_|)) (declare (not safe)) - (cons 'type __tmp217784))) - (__tmp217775 - (let ((__tmp217780 - (let ((__tmp217781 |gxc[1]#_g217782_|)) + (cons 'type __tmp220179))) + (__tmp220170 + (let ((__tmp220175 + (let ((__tmp220176 |gxc[1]#_g220177_|)) (declare (not safe)) - (cons 'ssxi __tmp217781))) - (__tmp217776 - (let ((__tmp217777 - (let ((__tmp217778 |gxc[1]#_g217779_|)) + (cons 'ssxi __tmp220176))) + (__tmp220171 + (let ((__tmp220172 + (let ((__tmp220173 |gxc[1]#_g220174_|)) (declare (not safe)) - (cons 'methods __tmp217778)))) + (cons 'methods __tmp220173)))) (declare (not safe)) - (cons __tmp217777 '())))) + (cons __tmp220172 '())))) (declare (not safe)) - (cons __tmp217780 __tmp217776)))) + (cons __tmp220175 __tmp220171)))) (declare (not safe)) - (cons __tmp217783 __tmp217775)))) + (cons __tmp220178 __tmp220170)))) (declare (not safe)) (##unchecked-structure-set! - __obj217610 - __tmp217774 + __obj220000 + __tmp220169 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217786 - (let ((__tmp217795 - (let ((__tmp217796 |gxc[1]#_g217797_|)) + (let ((__tmp220181 + (let ((__tmp220190 + (let ((__tmp220191 |gxc[1]#_g220192_|)) (declare (not safe)) - (cons 'type __tmp217796))) - (__tmp217787 - (let ((__tmp217792 - (let ((__tmp217793 |gxc[1]#_g217794_|)) + (cons 'type __tmp220191))) + (__tmp220182 + (let ((__tmp220187 + (let ((__tmp220188 |gxc[1]#_g220189_|)) (declare (not safe)) - (cons 'ssxi __tmp217793))) - (__tmp217788 - (let ((__tmp217789 - (let ((__tmp217790 |gxc[1]#_g217791_|)) + (cons 'ssxi __tmp220188))) + (__tmp220183 + (let ((__tmp220184 + (let ((__tmp220185 |gxc[1]#_g220186_|)) (declare (not safe)) - (cons 'methods __tmp217790)))) + (cons 'methods __tmp220185)))) (declare (not safe)) - (cons __tmp217789 '())))) + (cons __tmp220184 '())))) (declare (not safe)) - (cons __tmp217792 __tmp217788)))) + (cons __tmp220187 __tmp220183)))) (declare (not safe)) - (cons __tmp217795 __tmp217787)))) + (cons __tmp220190 __tmp220182)))) (declare (not safe)) (##unchecked-structure-set! - __obj217610 - __tmp217786 + __obj220000 + __tmp220181 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217798 - (let ((__tmp217807 - (let ((__tmp217808 |gxc[1]#_g217809_|)) + (let ((__tmp220193 + (let ((__tmp220202 + (let ((__tmp220203 |gxc[1]#_g220204_|)) (declare (not safe)) - (cons 'type __tmp217808))) - (__tmp217799 - (let ((__tmp217804 - (let ((__tmp217805 |gxc[1]#_g217806_|)) + (cons 'type __tmp220203))) + (__tmp220194 + (let ((__tmp220199 + (let ((__tmp220200 |gxc[1]#_g220201_|)) (declare (not safe)) - (cons 'ssxi __tmp217805))) - (__tmp217800 - (let ((__tmp217801 - (let ((__tmp217802 |gxc[1]#_g217803_|)) + (cons 'ssxi __tmp220200))) + (__tmp220195 + (let ((__tmp220196 + (let ((__tmp220197 |gxc[1]#_g220198_|)) (declare (not safe)) - (cons 'methods __tmp217802)))) + (cons 'methods __tmp220197)))) (declare (not safe)) - (cons __tmp217801 '())))) + (cons __tmp220196 '())))) (declare (not safe)) - (cons __tmp217804 __tmp217800)))) + (cons __tmp220199 __tmp220195)))) (declare (not safe)) - (cons __tmp217807 __tmp217799)))) + (cons __tmp220202 __tmp220194)))) (declare (not safe)) (##unchecked-structure-set! - __obj217610 - __tmp217798 + __obj220000 + __tmp220193 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217810 - (let ((__tmp217819 - (let ((__tmp217820 |gxc[1]#_g217821_|)) + (let ((__tmp220205 + (let ((__tmp220214 + (let ((__tmp220215 |gxc[1]#_g220216_|)) (declare (not safe)) - (cons 'type __tmp217820))) - (__tmp217811 - (let ((__tmp217816 - (let ((__tmp217817 |gxc[1]#_g217818_|)) + (cons 'type __tmp220215))) + (__tmp220206 + (let ((__tmp220211 + (let ((__tmp220212 |gxc[1]#_g220213_|)) (declare (not safe)) - (cons 'ssxi __tmp217817))) - (__tmp217812 - (let ((__tmp217813 - (let ((__tmp217814 |gxc[1]#_g217815_|)) + (cons 'ssxi __tmp220212))) + (__tmp220207 + (let ((__tmp220208 + (let ((__tmp220209 |gxc[1]#_g220210_|)) (declare (not safe)) - (cons 'methods __tmp217814)))) + (cons 'methods __tmp220209)))) (declare (not safe)) - (cons __tmp217813 '())))) + (cons __tmp220208 '())))) (declare (not safe)) - (cons __tmp217816 __tmp217812)))) + (cons __tmp220211 __tmp220207)))) (declare (not safe)) - (cons __tmp217819 __tmp217811)))) + (cons __tmp220214 __tmp220206)))) (declare (not safe)) (##unchecked-structure-set! - __obj217610 - __tmp217810 + __obj220000 + __tmp220205 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217610)) + __obj220000)) (define |gxc[:0:]#!type| - (let ((__obj217611 + (let ((__obj220001 (let () (declare (not safe)) (##structure @@ -1812,7 +1812,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217611 + __obj220001 'gxc#!type::t '1 gerbil/core$$#class-type-info::t @@ -1820,7 +1820,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217611 + __obj220001 '!type '2 gerbil/core$$#class-type-info::t @@ -1828,7 +1828,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217611 + __obj220001 '(id) '4 gerbil/core$$#class-type-info::t @@ -1836,7 +1836,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217611 + __obj220001 '() '3 gerbil/core$$#class-type-info::t @@ -1844,7 +1844,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217611 + __obj220001 '#t '5 gerbil/core$$#class-type-info::t @@ -1852,7 +1852,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217611 + __obj220001 '#f '6 gerbil/core$$#class-type-info::t @@ -1860,94 +1860,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217611 + __obj220001 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217822 |gxc[1]#_g217823_|)) + (let ((__tmp220217 |gxc[1]#_g220218_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217611 - __tmp217822 + __obj220001 + __tmp220217 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217824 |gxc[1]#_g217825_|)) + (let ((__tmp220219 |gxc[1]#_g220220_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217611 - __tmp217824 + __obj220001 + __tmp220219 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217826 |gxc[1]#_g217827_|)) + (let ((__tmp220221 |gxc[1]#_g220222_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217611 - __tmp217826 + __obj220001 + __tmp220221 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217828 - (let ((__tmp217829 - (let ((__tmp217830 |gxc[1]#_g217831_|)) + (let ((__tmp220223 + (let ((__tmp220224 + (let ((__tmp220225 |gxc[1]#_g220226_|)) (declare (not safe)) - (cons 'id __tmp217830)))) + (cons 'id __tmp220225)))) (declare (not safe)) - (cons __tmp217829 '())))) + (cons __tmp220224 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217611 - __tmp217828 + __obj220001 + __tmp220223 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217832 - (let ((__tmp217833 - (let ((__tmp217834 |gxc[1]#_g217835_|)) + (let ((__tmp220227 + (let ((__tmp220228 + (let ((__tmp220229 |gxc[1]#_g220230_|)) (declare (not safe)) - (cons 'id __tmp217834)))) + (cons 'id __tmp220229)))) (declare (not safe)) - (cons __tmp217833 '())))) + (cons __tmp220228 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217611 - __tmp217832 + __obj220001 + __tmp220227 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217836 - (let ((__tmp217837 - (let ((__tmp217838 |gxc[1]#_g217839_|)) + (let ((__tmp220231 + (let ((__tmp220232 + (let ((__tmp220233 |gxc[1]#_g220234_|)) (declare (not safe)) - (cons 'id __tmp217838)))) + (cons 'id __tmp220233)))) (declare (not safe)) - (cons __tmp217837 '())))) + (cons __tmp220232 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217611 - __tmp217836 + __obj220001 + __tmp220231 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217840 - (let ((__tmp217841 - (let ((__tmp217842 |gxc[1]#_g217843_|)) + (let ((__tmp220235 + (let ((__tmp220236 + (let ((__tmp220237 |gxc[1]#_g220238_|)) (declare (not safe)) - (cons 'id __tmp217842)))) + (cons 'id __tmp220237)))) (declare (not safe)) - (cons __tmp217841 '())))) + (cons __tmp220236 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217611 - __tmp217840 + __obj220001 + __tmp220235 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217611)) + __obj220001)) (define |gxc[:0:]#!alias| - (let ((__obj217612 + (let ((__obj220002 (let () (declare (not safe)) (##structure @@ -1969,7 +1969,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217612 + __obj220002 'gxc#!alias::t '1 gerbil/core$$#class-type-info::t @@ -1977,7 +1977,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217612 + __obj220002 '!alias '2 gerbil/core$$#class-type-info::t @@ -1985,26 +1985,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217612 + __obj220002 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217844 - (let ((__tmp217845 |gxc[1]#_g217846_|)) + (let ((__tmp220239 + (let ((__tmp220240 |gxc[1]#_g220241_|)) (declare (not safe)) - (cons __tmp217845 '())))) + (cons __tmp220240 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217612 - __tmp217844 + __obj220002 + __tmp220239 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217612 + __obj220002 '#t '5 gerbil/core$$#class-type-info::t @@ -2012,7 +2012,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217612 + __obj220002 '#f '6 gerbil/core$$#class-type-info::t @@ -2020,94 +2020,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217612 + __obj220002 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217847 |gxc[1]#_g217848_|)) + (let ((__tmp220242 |gxc[1]#_g220243_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217612 - __tmp217847 + __obj220002 + __tmp220242 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217849 |gxc[1]#_g217850_|)) + (let ((__tmp220244 |gxc[1]#_g220245_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217612 - __tmp217849 + __obj220002 + __tmp220244 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217851 |gxc[1]#_g217852_|)) + (let ((__tmp220246 |gxc[1]#_g220247_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217612 - __tmp217851 + __obj220002 + __tmp220246 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217853 - (let ((__tmp217854 - (let ((__tmp217855 |gxc[1]#_g217856_|)) + (let ((__tmp220248 + (let ((__tmp220249 + (let ((__tmp220250 |gxc[1]#_g220251_|)) (declare (not safe)) - (cons 'id __tmp217855)))) + (cons 'id __tmp220250)))) (declare (not safe)) - (cons __tmp217854 '())))) + (cons __tmp220249 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217612 - __tmp217853 + __obj220002 + __tmp220248 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217857 - (let ((__tmp217858 - (let ((__tmp217859 |gxc[1]#_g217860_|)) + (let ((__tmp220252 + (let ((__tmp220253 + (let ((__tmp220254 |gxc[1]#_g220255_|)) (declare (not safe)) - (cons 'id __tmp217859)))) + (cons 'id __tmp220254)))) (declare (not safe)) - (cons __tmp217858 '())))) + (cons __tmp220253 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217612 - __tmp217857 + __obj220002 + __tmp220252 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217861 - (let ((__tmp217862 - (let ((__tmp217863 |gxc[1]#_g217864_|)) + (let ((__tmp220256 + (let ((__tmp220257 + (let ((__tmp220258 |gxc[1]#_g220259_|)) (declare (not safe)) - (cons 'id __tmp217863)))) + (cons 'id __tmp220258)))) (declare (not safe)) - (cons __tmp217862 '())))) + (cons __tmp220257 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217612 - __tmp217861 + __obj220002 + __tmp220256 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217865 - (let ((__tmp217866 - (let ((__tmp217867 |gxc[1]#_g217868_|)) + (let ((__tmp220260 + (let ((__tmp220261 + (let ((__tmp220262 |gxc[1]#_g220263_|)) (declare (not safe)) - (cons 'id __tmp217867)))) + (cons 'id __tmp220262)))) (declare (not safe)) - (cons __tmp217866 '())))) + (cons __tmp220261 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217612 - __tmp217865 + __obj220002 + __tmp220260 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217612)) + __obj220002)) (define |gxc[:0:]#!procedure| - (let ((__obj217613 + (let ((__obj220003 (let () (declare (not safe)) (##structure @@ -2129,7 +2129,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217613 + __obj220003 'gxc#!procedure::t '1 gerbil/core$$#class-type-info::t @@ -2137,7 +2137,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217613 + __obj220003 '!procedure '2 gerbil/core$$#class-type-info::t @@ -2145,26 +2145,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217613 + __obj220003 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217869 - (let ((__tmp217870 |gxc[1]#_g217846_|)) + (let ((__tmp220264 + (let ((__tmp220265 |gxc[1]#_g220241_|)) (declare (not safe)) - (cons __tmp217870 '())))) + (cons __tmp220265 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217613 - __tmp217869 + __obj220003 + __tmp220264 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217613 + __obj220003 '#t '5 gerbil/core$$#class-type-info::t @@ -2172,7 +2172,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217613 + __obj220003 '#f '6 gerbil/core$$#class-type-info::t @@ -2180,94 +2180,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217613 + __obj220003 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217871 |gxc[1]#_g217872_|)) + (let ((__tmp220266 |gxc[1]#_g220267_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217613 - __tmp217871 + __obj220003 + __tmp220266 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217873 |gxc[1]#_g217874_|)) + (let ((__tmp220268 |gxc[1]#_g220269_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217613 - __tmp217873 + __obj220003 + __tmp220268 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217875 |gxc[1]#_g217876_|)) + (let ((__tmp220270 |gxc[1]#_g220271_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217613 - __tmp217875 + __obj220003 + __tmp220270 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217877 - (let ((__tmp217878 - (let ((__tmp217879 |gxc[1]#_g217880_|)) + (let ((__tmp220272 + (let ((__tmp220273 + (let ((__tmp220274 |gxc[1]#_g220275_|)) (declare (not safe)) - (cons 'id __tmp217879)))) + (cons 'id __tmp220274)))) (declare (not safe)) - (cons __tmp217878 '())))) + (cons __tmp220273 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217613 - __tmp217877 + __obj220003 + __tmp220272 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217881 - (let ((__tmp217882 - (let ((__tmp217883 |gxc[1]#_g217884_|)) + (let ((__tmp220276 + (let ((__tmp220277 + (let ((__tmp220278 |gxc[1]#_g220279_|)) (declare (not safe)) - (cons 'id __tmp217883)))) + (cons 'id __tmp220278)))) (declare (not safe)) - (cons __tmp217882 '())))) + (cons __tmp220277 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217613 - __tmp217881 + __obj220003 + __tmp220276 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217885 - (let ((__tmp217886 - (let ((__tmp217887 |gxc[1]#_g217888_|)) + (let ((__tmp220280 + (let ((__tmp220281 + (let ((__tmp220282 |gxc[1]#_g220283_|)) (declare (not safe)) - (cons 'id __tmp217887)))) + (cons 'id __tmp220282)))) (declare (not safe)) - (cons __tmp217886 '())))) + (cons __tmp220281 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217613 - __tmp217885 + __obj220003 + __tmp220280 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217889 - (let ((__tmp217890 - (let ((__tmp217891 |gxc[1]#_g217892_|)) + (let ((__tmp220284 + (let ((__tmp220285 + (let ((__tmp220286 |gxc[1]#_g220287_|)) (declare (not safe)) - (cons 'id __tmp217891)))) + (cons 'id __tmp220286)))) (declare (not safe)) - (cons __tmp217890 '())))) + (cons __tmp220285 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217613 - __tmp217889 + __obj220003 + __tmp220284 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217613)) + __obj220003)) (define |gxc[:0:]#!class| - (let ((__obj217614 + (let ((__obj220004 (let () (declare (not safe)) (##structure @@ -2289,7 +2289,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217614 + __obj220004 'gxc#!class::t '1 gerbil/core$$#class-type-info::t @@ -2297,7 +2297,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217614 + __obj220004 '!class '2 gerbil/core$$#class-type-info::t @@ -2305,7 +2305,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217614 + __obj220004 '(super precedence-list slots fields @@ -2316,21 +2316,21 @@ '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217893 - (let ((__tmp217894 |gxc[1]#_g217846_|)) + (let ((__tmp220288 + (let ((__tmp220289 |gxc[1]#_g220241_|)) (declare (not safe)) - (cons __tmp217894 '())))) + (cons __tmp220289 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217614 - __tmp217893 + __obj220004 + __tmp220288 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217614 + __obj220004 '#t '5 gerbil/core$$#class-type-info::t @@ -2338,7 +2338,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217614 + __obj220004 '#f '6 gerbil/core$$#class-type-info::t @@ -2346,350 +2346,350 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217614 + __obj220004 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217895 |gxc[1]#_g217896_|)) + (let ((__tmp220290 |gxc[1]#_g220291_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217614 - __tmp217895 + __obj220004 + __tmp220290 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217897 |gxc[1]#_g217898_|)) + (let ((__tmp220292 |gxc[1]#_g220293_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217614 - __tmp217897 + __obj220004 + __tmp220292 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217899 |gxc[1]#_g217900_|)) + (let ((__tmp220294 |gxc[1]#_g220295_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217614 - __tmp217899 + __obj220004 + __tmp220294 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217901 - (let ((__tmp217934 - (let ((__tmp217935 |gxc[1]#_g217936_|)) + (let ((__tmp220296 + (let ((__tmp220329 + (let ((__tmp220330 |gxc[1]#_g220331_|)) (declare (not safe)) - (cons 'super __tmp217935))) - (__tmp217902 - (let ((__tmp217931 - (let ((__tmp217932 |gxc[1]#_g217933_|)) + (cons 'super __tmp220330))) + (__tmp220297 + (let ((__tmp220326 + (let ((__tmp220327 |gxc[1]#_g220328_|)) (declare (not safe)) - (cons 'precedence-list __tmp217932))) - (__tmp217903 - (let ((__tmp217928 - (let ((__tmp217929 |gxc[1]#_g217930_|)) + (cons 'precedence-list __tmp220327))) + (__tmp220298 + (let ((__tmp220323 + (let ((__tmp220324 |gxc[1]#_g220325_|)) (declare (not safe)) - (cons 'slots __tmp217929))) - (__tmp217904 - (let ((__tmp217925 - (let ((__tmp217926 - |gxc[1]#_g217927_|)) + (cons 'slots __tmp220324))) + (__tmp220299 + (let ((__tmp220320 + (let ((__tmp220321 + |gxc[1]#_g220322_|)) (declare (not safe)) - (cons 'fields __tmp217926))) - (__tmp217905 - (let ((__tmp217922 - (let ((__tmp217923 - |gxc[1]#_g217924_|)) + (cons 'fields __tmp220321))) + (__tmp220300 + (let ((__tmp220317 + (let ((__tmp220318 + |gxc[1]#_g220319_|)) (declare (not safe)) (cons 'constructor - __tmp217923))) - (__tmp217906 - (let ((__tmp217919 - (let ((__tmp217920 - |gxc[1]#_g217921_|)) + __tmp220318))) + (__tmp220301 + (let ((__tmp220314 + (let ((__tmp220315 + |gxc[1]#_g220316_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp217920))) - (__tmp217907 - (let ((__tmp217916 - (let ((__tmp217917 |gxc[1]#_g217918_|)) + __tmp220315))) + (__tmp220302 + (let ((__tmp220311 + (let ((__tmp220312 |gxc[1]#_g220313_|)) (declare (not safe)) - (cons 'final? __tmp217917))) - (__tmp217908 - (let ((__tmp217913 - (let ((__tmp217914 |gxc[1]#_g217915_|)) + (cons 'final? __tmp220312))) + (__tmp220303 + (let ((__tmp220308 + (let ((__tmp220309 |gxc[1]#_g220310_|)) (declare (not safe)) - (cons 'methods __tmp217914))) - (__tmp217909 - (let ((__tmp217910 - (let ((__tmp217911 |gxc[1]#_g217912_|)) + (cons 'methods __tmp220309))) + (__tmp220304 + (let ((__tmp220305 + (let ((__tmp220306 |gxc[1]#_g220307_|)) (declare (not safe)) - (cons 'id __tmp217911)))) + (cons 'id __tmp220306)))) (declare (not safe)) - (cons __tmp217910 '())))) + (cons __tmp220305 '())))) (declare (not safe)) - (cons __tmp217913 __tmp217909)))) + (cons __tmp220308 __tmp220304)))) (declare (not safe)) - (cons __tmp217916 __tmp217908)))) + (cons __tmp220311 __tmp220303)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp217919 - __tmp217907)))) + (cons __tmp220314 + __tmp220302)))) (declare (not safe)) - (cons __tmp217922 __tmp217906)))) + (cons __tmp220317 __tmp220301)))) (declare (not safe)) - (cons __tmp217925 __tmp217905)))) + (cons __tmp220320 __tmp220300)))) (declare (not safe)) - (cons __tmp217928 __tmp217904)))) + (cons __tmp220323 __tmp220299)))) (declare (not safe)) - (cons __tmp217931 __tmp217903)))) + (cons __tmp220326 __tmp220298)))) (declare (not safe)) - (cons __tmp217934 __tmp217902)))) + (cons __tmp220329 __tmp220297)))) (declare (not safe)) (##unchecked-structure-set! - __obj217614 - __tmp217901 + __obj220004 + __tmp220296 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217937 - (let ((__tmp217970 - (let ((__tmp217971 |gxc[1]#_g217972_|)) + (let ((__tmp220332 + (let ((__tmp220365 + (let ((__tmp220366 |gxc[1]#_g220367_|)) (declare (not safe)) - (cons 'super __tmp217971))) - (__tmp217938 - (let ((__tmp217967 - (let ((__tmp217968 |gxc[1]#_g217969_|)) + (cons 'super __tmp220366))) + (__tmp220333 + (let ((__tmp220362 + (let ((__tmp220363 |gxc[1]#_g220364_|)) (declare (not safe)) - (cons 'precedence-list __tmp217968))) - (__tmp217939 - (let ((__tmp217964 - (let ((__tmp217965 |gxc[1]#_g217966_|)) + (cons 'precedence-list __tmp220363))) + (__tmp220334 + (let ((__tmp220359 + (let ((__tmp220360 |gxc[1]#_g220361_|)) (declare (not safe)) - (cons 'slots __tmp217965))) - (__tmp217940 - (let ((__tmp217961 - (let ((__tmp217962 - |gxc[1]#_g217963_|)) + (cons 'slots __tmp220360))) + (__tmp220335 + (let ((__tmp220356 + (let ((__tmp220357 + |gxc[1]#_g220358_|)) (declare (not safe)) - (cons 'fields __tmp217962))) - (__tmp217941 - (let ((__tmp217958 - (let ((__tmp217959 - |gxc[1]#_g217960_|)) + (cons 'fields __tmp220357))) + (__tmp220336 + (let ((__tmp220353 + (let ((__tmp220354 + |gxc[1]#_g220355_|)) (declare (not safe)) (cons 'constructor - __tmp217959))) - (__tmp217942 - (let ((__tmp217955 - (let ((__tmp217956 - |gxc[1]#_g217957_|)) + __tmp220354))) + (__tmp220337 + (let ((__tmp220350 + (let ((__tmp220351 + |gxc[1]#_g220352_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp217956))) - (__tmp217943 - (let ((__tmp217952 - (let ((__tmp217953 |gxc[1]#_g217954_|)) + __tmp220351))) + (__tmp220338 + (let ((__tmp220347 + (let ((__tmp220348 |gxc[1]#_g220349_|)) (declare (not safe)) - (cons 'final? __tmp217953))) - (__tmp217944 - (let ((__tmp217949 - (let ((__tmp217950 |gxc[1]#_g217951_|)) + (cons 'final? __tmp220348))) + (__tmp220339 + (let ((__tmp220344 + (let ((__tmp220345 |gxc[1]#_g220346_|)) (declare (not safe)) - (cons 'methods __tmp217950))) - (__tmp217945 - (let ((__tmp217946 - (let ((__tmp217947 |gxc[1]#_g217948_|)) + (cons 'methods __tmp220345))) + (__tmp220340 + (let ((__tmp220341 + (let ((__tmp220342 |gxc[1]#_g220343_|)) (declare (not safe)) - (cons 'id __tmp217947)))) + (cons 'id __tmp220342)))) (declare (not safe)) - (cons __tmp217946 '())))) + (cons __tmp220341 '())))) (declare (not safe)) - (cons __tmp217949 __tmp217945)))) + (cons __tmp220344 __tmp220340)))) (declare (not safe)) - (cons __tmp217952 __tmp217944)))) + (cons __tmp220347 __tmp220339)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp217955 - __tmp217943)))) + (cons __tmp220350 + __tmp220338)))) (declare (not safe)) - (cons __tmp217958 __tmp217942)))) + (cons __tmp220353 __tmp220337)))) (declare (not safe)) - (cons __tmp217961 __tmp217941)))) + (cons __tmp220356 __tmp220336)))) (declare (not safe)) - (cons __tmp217964 __tmp217940)))) + (cons __tmp220359 __tmp220335)))) (declare (not safe)) - (cons __tmp217967 __tmp217939)))) + (cons __tmp220362 __tmp220334)))) (declare (not safe)) - (cons __tmp217970 __tmp217938)))) + (cons __tmp220365 __tmp220333)))) (declare (not safe)) (##unchecked-structure-set! - __obj217614 - __tmp217937 + __obj220004 + __tmp220332 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp217973 - (let ((__tmp218006 - (let ((__tmp218007 |gxc[1]#_g218008_|)) + (let ((__tmp220368 + (let ((__tmp220401 + (let ((__tmp220402 |gxc[1]#_g220403_|)) (declare (not safe)) - (cons 'super __tmp218007))) - (__tmp217974 - (let ((__tmp218003 - (let ((__tmp218004 |gxc[1]#_g218005_|)) + (cons 'super __tmp220402))) + (__tmp220369 + (let ((__tmp220398 + (let ((__tmp220399 |gxc[1]#_g220400_|)) (declare (not safe)) - (cons 'precedence-list __tmp218004))) - (__tmp217975 - (let ((__tmp218000 - (let ((__tmp218001 |gxc[1]#_g218002_|)) + (cons 'precedence-list __tmp220399))) + (__tmp220370 + (let ((__tmp220395 + (let ((__tmp220396 |gxc[1]#_g220397_|)) (declare (not safe)) - (cons 'slots __tmp218001))) - (__tmp217976 - (let ((__tmp217997 - (let ((__tmp217998 - |gxc[1]#_g217999_|)) + (cons 'slots __tmp220396))) + (__tmp220371 + (let ((__tmp220392 + (let ((__tmp220393 + |gxc[1]#_g220394_|)) (declare (not safe)) - (cons 'fields __tmp217998))) - (__tmp217977 - (let ((__tmp217994 - (let ((__tmp217995 - |gxc[1]#_g217996_|)) + (cons 'fields __tmp220393))) + (__tmp220372 + (let ((__tmp220389 + (let ((__tmp220390 + |gxc[1]#_g220391_|)) (declare (not safe)) (cons 'constructor - __tmp217995))) - (__tmp217978 - (let ((__tmp217991 - (let ((__tmp217992 - |gxc[1]#_g217993_|)) + __tmp220390))) + (__tmp220373 + (let ((__tmp220386 + (let ((__tmp220387 + |gxc[1]#_g220388_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp217992))) - (__tmp217979 - (let ((__tmp217988 - (let ((__tmp217989 |gxc[1]#_g217990_|)) + __tmp220387))) + (__tmp220374 + (let ((__tmp220383 + (let ((__tmp220384 |gxc[1]#_g220385_|)) (declare (not safe)) - (cons 'final? __tmp217989))) - (__tmp217980 - (let ((__tmp217985 - (let ((__tmp217986 |gxc[1]#_g217987_|)) + (cons 'final? __tmp220384))) + (__tmp220375 + (let ((__tmp220380 + (let ((__tmp220381 |gxc[1]#_g220382_|)) (declare (not safe)) - (cons 'methods __tmp217986))) - (__tmp217981 - (let ((__tmp217982 - (let ((__tmp217983 |gxc[1]#_g217984_|)) + (cons 'methods __tmp220381))) + (__tmp220376 + (let ((__tmp220377 + (let ((__tmp220378 |gxc[1]#_g220379_|)) (declare (not safe)) - (cons 'id __tmp217983)))) + (cons 'id __tmp220378)))) (declare (not safe)) - (cons __tmp217982 '())))) + (cons __tmp220377 '())))) (declare (not safe)) - (cons __tmp217985 __tmp217981)))) + (cons __tmp220380 __tmp220376)))) (declare (not safe)) - (cons __tmp217988 __tmp217980)))) + (cons __tmp220383 __tmp220375)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp217991 - __tmp217979)))) + (cons __tmp220386 + __tmp220374)))) (declare (not safe)) - (cons __tmp217994 __tmp217978)))) + (cons __tmp220389 __tmp220373)))) (declare (not safe)) - (cons __tmp217997 __tmp217977)))) + (cons __tmp220392 __tmp220372)))) (declare (not safe)) - (cons __tmp218000 __tmp217976)))) + (cons __tmp220395 __tmp220371)))) (declare (not safe)) - (cons __tmp218003 __tmp217975)))) + (cons __tmp220398 __tmp220370)))) (declare (not safe)) - (cons __tmp218006 __tmp217974)))) + (cons __tmp220401 __tmp220369)))) (declare (not safe)) (##unchecked-structure-set! - __obj217614 - __tmp217973 + __obj220004 + __tmp220368 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218009 - (let ((__tmp218042 - (let ((__tmp218043 |gxc[1]#_g218044_|)) + (let ((__tmp220404 + (let ((__tmp220437 + (let ((__tmp220438 |gxc[1]#_g220439_|)) (declare (not safe)) - (cons 'super __tmp218043))) - (__tmp218010 - (let ((__tmp218039 - (let ((__tmp218040 |gxc[1]#_g218041_|)) + (cons 'super __tmp220438))) + (__tmp220405 + (let ((__tmp220434 + (let ((__tmp220435 |gxc[1]#_g220436_|)) (declare (not safe)) - (cons 'precedence-list __tmp218040))) - (__tmp218011 - (let ((__tmp218036 - (let ((__tmp218037 |gxc[1]#_g218038_|)) + (cons 'precedence-list __tmp220435))) + (__tmp220406 + (let ((__tmp220431 + (let ((__tmp220432 |gxc[1]#_g220433_|)) (declare (not safe)) - (cons 'slots __tmp218037))) - (__tmp218012 - (let ((__tmp218033 - (let ((__tmp218034 - |gxc[1]#_g218035_|)) + (cons 'slots __tmp220432))) + (__tmp220407 + (let ((__tmp220428 + (let ((__tmp220429 + |gxc[1]#_g220430_|)) (declare (not safe)) - (cons 'fields __tmp218034))) - (__tmp218013 - (let ((__tmp218030 - (let ((__tmp218031 - |gxc[1]#_g218032_|)) + (cons 'fields __tmp220429))) + (__tmp220408 + (let ((__tmp220425 + (let ((__tmp220426 + |gxc[1]#_g220427_|)) (declare (not safe)) (cons 'constructor - __tmp218031))) - (__tmp218014 - (let ((__tmp218027 - (let ((__tmp218028 - |gxc[1]#_g218029_|)) + __tmp220426))) + (__tmp220409 + (let ((__tmp220422 + (let ((__tmp220423 + |gxc[1]#_g220424_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp218028))) - (__tmp218015 - (let ((__tmp218024 - (let ((__tmp218025 |gxc[1]#_g218026_|)) + __tmp220423))) + (__tmp220410 + (let ((__tmp220419 + (let ((__tmp220420 |gxc[1]#_g220421_|)) (declare (not safe)) - (cons 'final? __tmp218025))) - (__tmp218016 - (let ((__tmp218021 - (let ((__tmp218022 |gxc[1]#_g218023_|)) + (cons 'final? __tmp220420))) + (__tmp220411 + (let ((__tmp220416 + (let ((__tmp220417 |gxc[1]#_g220418_|)) (declare (not safe)) - (cons 'methods __tmp218022))) - (__tmp218017 - (let ((__tmp218018 - (let ((__tmp218019 |gxc[1]#_g218020_|)) + (cons 'methods __tmp220417))) + (__tmp220412 + (let ((__tmp220413 + (let ((__tmp220414 |gxc[1]#_g220415_|)) (declare (not safe)) - (cons 'id __tmp218019)))) + (cons 'id __tmp220414)))) (declare (not safe)) - (cons __tmp218018 '())))) + (cons __tmp220413 '())))) (declare (not safe)) - (cons __tmp218021 __tmp218017)))) + (cons __tmp220416 __tmp220412)))) (declare (not safe)) - (cons __tmp218024 __tmp218016)))) + (cons __tmp220419 __tmp220411)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp218027 - __tmp218015)))) + (cons __tmp220422 + __tmp220410)))) (declare (not safe)) - (cons __tmp218030 __tmp218014)))) + (cons __tmp220425 __tmp220409)))) (declare (not safe)) - (cons __tmp218033 __tmp218013)))) + (cons __tmp220428 __tmp220408)))) (declare (not safe)) - (cons __tmp218036 __tmp218012)))) + (cons __tmp220431 __tmp220407)))) (declare (not safe)) - (cons __tmp218039 __tmp218011)))) + (cons __tmp220434 __tmp220406)))) (declare (not safe)) - (cons __tmp218042 __tmp218010)))) + (cons __tmp220437 __tmp220405)))) (declare (not safe)) (##unchecked-structure-set! - __obj217614 - __tmp218009 + __obj220004 + __tmp220404 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217614)) + __obj220004)) (define |gxc[:0:]#!predicate| - (let ((__obj217615 + (let ((__obj220005 (let () (declare (not safe)) (##structure @@ -2711,7 +2711,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217615 + __obj220005 'gxc#!predicate::t '1 gerbil/core$$#class-type-info::t @@ -2719,7 +2719,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217615 + __obj220005 '!predicate '2 gerbil/core$$#class-type-info::t @@ -2727,26 +2727,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217615 + __obj220005 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218045 - (let ((__tmp218046 |gxc[1]#_g218047_|)) + (let ((__tmp220440 + (let ((__tmp220441 |gxc[1]#_g220442_|)) (declare (not safe)) - (cons __tmp218046 '())))) + (cons __tmp220441 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217615 - __tmp218045 + __obj220005 + __tmp220440 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217615 + __obj220005 '#t '5 gerbil/core$$#class-type-info::t @@ -2754,7 +2754,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217615 + __obj220005 '#f '6 gerbil/core$$#class-type-info::t @@ -2762,94 +2762,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217615 + __obj220005 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218048 |gxc[1]#_g218049_|)) + (let ((__tmp220443 |gxc[1]#_g220444_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217615 - __tmp218048 + __obj220005 + __tmp220443 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218050 |gxc[1]#_g218051_|)) + (let ((__tmp220445 |gxc[1]#_g220446_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217615 - __tmp218050 + __obj220005 + __tmp220445 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218052 |gxc[1]#_g218053_|)) + (let ((__tmp220447 |gxc[1]#_g220448_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217615 - __tmp218052 + __obj220005 + __tmp220447 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218054 - (let ((__tmp218055 - (let ((__tmp218056 |gxc[1]#_g218057_|)) + (let ((__tmp220449 + (let ((__tmp220450 + (let ((__tmp220451 |gxc[1]#_g220452_|)) (declare (not safe)) - (cons 'id __tmp218056)))) + (cons 'id __tmp220451)))) (declare (not safe)) - (cons __tmp218055 '())))) + (cons __tmp220450 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217615 - __tmp218054 + __obj220005 + __tmp220449 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218058 - (let ((__tmp218059 - (let ((__tmp218060 |gxc[1]#_g218061_|)) + (let ((__tmp220453 + (let ((__tmp220454 + (let ((__tmp220455 |gxc[1]#_g220456_|)) (declare (not safe)) - (cons 'id __tmp218060)))) + (cons 'id __tmp220455)))) (declare (not safe)) - (cons __tmp218059 '())))) + (cons __tmp220454 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217615 - __tmp218058 + __obj220005 + __tmp220453 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218062 - (let ((__tmp218063 - (let ((__tmp218064 |gxc[1]#_g218065_|)) + (let ((__tmp220457 + (let ((__tmp220458 + (let ((__tmp220459 |gxc[1]#_g220460_|)) (declare (not safe)) - (cons 'id __tmp218064)))) + (cons 'id __tmp220459)))) (declare (not safe)) - (cons __tmp218063 '())))) + (cons __tmp220458 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217615 - __tmp218062 + __obj220005 + __tmp220457 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218066 - (let ((__tmp218067 - (let ((__tmp218068 |gxc[1]#_g218069_|)) + (let ((__tmp220461 + (let ((__tmp220462 + (let ((__tmp220463 |gxc[1]#_g220464_|)) (declare (not safe)) - (cons 'id __tmp218068)))) + (cons 'id __tmp220463)))) (declare (not safe)) - (cons __tmp218067 '())))) + (cons __tmp220462 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217615 - __tmp218066 + __obj220005 + __tmp220461 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217615)) + __obj220005)) (define |gxc[:0:]#!constructor| - (let ((__obj217616 + (let ((__obj220006 (let () (declare (not safe)) (##structure @@ -2871,7 +2871,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217616 + __obj220006 'gxc#!constructor::t '1 gerbil/core$$#class-type-info::t @@ -2879,7 +2879,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217616 + __obj220006 '!constructor '2 gerbil/core$$#class-type-info::t @@ -2887,26 +2887,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217616 + __obj220006 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218070 - (let ((__tmp218071 |gxc[1]#_g218047_|)) + (let ((__tmp220465 + (let ((__tmp220466 |gxc[1]#_g220442_|)) (declare (not safe)) - (cons __tmp218071 '())))) + (cons __tmp220466 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217616 - __tmp218070 + __obj220006 + __tmp220465 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217616 + __obj220006 '#t '5 gerbil/core$$#class-type-info::t @@ -2914,7 +2914,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217616 + __obj220006 '#f '6 gerbil/core$$#class-type-info::t @@ -2922,94 +2922,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217616 + __obj220006 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218072 |gxc[1]#_g218073_|)) + (let ((__tmp220467 |gxc[1]#_g220468_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217616 - __tmp218072 + __obj220006 + __tmp220467 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218074 |gxc[1]#_g218075_|)) + (let ((__tmp220469 |gxc[1]#_g220470_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217616 - __tmp218074 + __obj220006 + __tmp220469 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218076 |gxc[1]#_g218077_|)) + (let ((__tmp220471 |gxc[1]#_g220472_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217616 - __tmp218076 + __obj220006 + __tmp220471 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218078 - (let ((__tmp218079 - (let ((__tmp218080 |gxc[1]#_g218081_|)) + (let ((__tmp220473 + (let ((__tmp220474 + (let ((__tmp220475 |gxc[1]#_g220476_|)) (declare (not safe)) - (cons 'id __tmp218080)))) + (cons 'id __tmp220475)))) (declare (not safe)) - (cons __tmp218079 '())))) + (cons __tmp220474 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217616 - __tmp218078 + __obj220006 + __tmp220473 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218082 - (let ((__tmp218083 - (let ((__tmp218084 |gxc[1]#_g218085_|)) + (let ((__tmp220477 + (let ((__tmp220478 + (let ((__tmp220479 |gxc[1]#_g220480_|)) (declare (not safe)) - (cons 'id __tmp218084)))) + (cons 'id __tmp220479)))) (declare (not safe)) - (cons __tmp218083 '())))) + (cons __tmp220478 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217616 - __tmp218082 + __obj220006 + __tmp220477 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218086 - (let ((__tmp218087 - (let ((__tmp218088 |gxc[1]#_g218089_|)) + (let ((__tmp220481 + (let ((__tmp220482 + (let ((__tmp220483 |gxc[1]#_g220484_|)) (declare (not safe)) - (cons 'id __tmp218088)))) + (cons 'id __tmp220483)))) (declare (not safe)) - (cons __tmp218087 '())))) + (cons __tmp220482 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217616 - __tmp218086 + __obj220006 + __tmp220481 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218090 - (let ((__tmp218091 - (let ((__tmp218092 |gxc[1]#_g218093_|)) + (let ((__tmp220485 + (let ((__tmp220486 + (let ((__tmp220487 |gxc[1]#_g220488_|)) (declare (not safe)) - (cons 'id __tmp218092)))) + (cons 'id __tmp220487)))) (declare (not safe)) - (cons __tmp218091 '())))) + (cons __tmp220486 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217616 - __tmp218090 + __obj220006 + __tmp220485 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217616)) + __obj220006)) (define |gxc[:0:]#!accessor| - (let ((__obj217617 + (let ((__obj220007 (let () (declare (not safe)) (##structure @@ -3031,7 +3031,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217617 + __obj220007 'gxc#!accessor::t '1 gerbil/core$$#class-type-info::t @@ -3039,7 +3039,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217617 + __obj220007 '!accessor '2 gerbil/core$$#class-type-info::t @@ -3047,26 +3047,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217617 + __obj220007 '(slot checked?) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218094 - (let ((__tmp218095 |gxc[1]#_g218047_|)) + (let ((__tmp220489 + (let ((__tmp220490 |gxc[1]#_g220442_|)) (declare (not safe)) - (cons __tmp218095 '())))) + (cons __tmp220490 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217617 - __tmp218094 + __obj220007 + __tmp220489 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217617 + __obj220007 '#t '5 gerbil/core$$#class-type-info::t @@ -3074,7 +3074,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217617 + __obj220007 '#f '6 gerbil/core$$#class-type-info::t @@ -3082,150 +3082,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217617 + __obj220007 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218096 |gxc[1]#_g218097_|)) + (let ((__tmp220491 |gxc[1]#_g220492_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217617 - __tmp218096 + __obj220007 + __tmp220491 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218098 |gxc[1]#_g218099_|)) + (let ((__tmp220493 |gxc[1]#_g220494_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217617 - __tmp218098 + __obj220007 + __tmp220493 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218100 |gxc[1]#_g218101_|)) + (let ((__tmp220495 |gxc[1]#_g220496_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217617 - __tmp218100 + __obj220007 + __tmp220495 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218102 - (let ((__tmp218111 - (let ((__tmp218112 |gxc[1]#_g218113_|)) + (let ((__tmp220497 + (let ((__tmp220506 + (let ((__tmp220507 |gxc[1]#_g220508_|)) (declare (not safe)) - (cons 'slot __tmp218112))) - (__tmp218103 - (let ((__tmp218108 - (let ((__tmp218109 |gxc[1]#_g218110_|)) + (cons 'slot __tmp220507))) + (__tmp220498 + (let ((__tmp220503 + (let ((__tmp220504 |gxc[1]#_g220505_|)) (declare (not safe)) - (cons 'checked? __tmp218109))) - (__tmp218104 - (let ((__tmp218105 - (let ((__tmp218106 |gxc[1]#_g218107_|)) + (cons 'checked? __tmp220504))) + (__tmp220499 + (let ((__tmp220500 + (let ((__tmp220501 |gxc[1]#_g220502_|)) (declare (not safe)) - (cons 'id __tmp218106)))) + (cons 'id __tmp220501)))) (declare (not safe)) - (cons __tmp218105 '())))) + (cons __tmp220500 '())))) (declare (not safe)) - (cons __tmp218108 __tmp218104)))) + (cons __tmp220503 __tmp220499)))) (declare (not safe)) - (cons __tmp218111 __tmp218103)))) + (cons __tmp220506 __tmp220498)))) (declare (not safe)) (##unchecked-structure-set! - __obj217617 - __tmp218102 + __obj220007 + __tmp220497 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218114 - (let ((__tmp218123 - (let ((__tmp218124 |gxc[1]#_g218125_|)) + (let ((__tmp220509 + (let ((__tmp220518 + (let ((__tmp220519 |gxc[1]#_g220520_|)) (declare (not safe)) - (cons 'slot __tmp218124))) - (__tmp218115 - (let ((__tmp218120 - (let ((__tmp218121 |gxc[1]#_g218122_|)) + (cons 'slot __tmp220519))) + (__tmp220510 + (let ((__tmp220515 + (let ((__tmp220516 |gxc[1]#_g220517_|)) (declare (not safe)) - (cons 'checked? __tmp218121))) - (__tmp218116 - (let ((__tmp218117 - (let ((__tmp218118 |gxc[1]#_g218119_|)) + (cons 'checked? __tmp220516))) + (__tmp220511 + (let ((__tmp220512 + (let ((__tmp220513 |gxc[1]#_g220514_|)) (declare (not safe)) - (cons 'id __tmp218118)))) + (cons 'id __tmp220513)))) (declare (not safe)) - (cons __tmp218117 '())))) + (cons __tmp220512 '())))) (declare (not safe)) - (cons __tmp218120 __tmp218116)))) + (cons __tmp220515 __tmp220511)))) (declare (not safe)) - (cons __tmp218123 __tmp218115)))) + (cons __tmp220518 __tmp220510)))) (declare (not safe)) (##unchecked-structure-set! - __obj217617 - __tmp218114 + __obj220007 + __tmp220509 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218126 - (let ((__tmp218135 - (let ((__tmp218136 |gxc[1]#_g218137_|)) + (let ((__tmp220521 + (let ((__tmp220530 + (let ((__tmp220531 |gxc[1]#_g220532_|)) (declare (not safe)) - (cons 'slot __tmp218136))) - (__tmp218127 - (let ((__tmp218132 - (let ((__tmp218133 |gxc[1]#_g218134_|)) + (cons 'slot __tmp220531))) + (__tmp220522 + (let ((__tmp220527 + (let ((__tmp220528 |gxc[1]#_g220529_|)) (declare (not safe)) - (cons 'checked? __tmp218133))) - (__tmp218128 - (let ((__tmp218129 - (let ((__tmp218130 |gxc[1]#_g218131_|)) + (cons 'checked? __tmp220528))) + (__tmp220523 + (let ((__tmp220524 + (let ((__tmp220525 |gxc[1]#_g220526_|)) (declare (not safe)) - (cons 'id __tmp218130)))) + (cons 'id __tmp220525)))) (declare (not safe)) - (cons __tmp218129 '())))) + (cons __tmp220524 '())))) (declare (not safe)) - (cons __tmp218132 __tmp218128)))) + (cons __tmp220527 __tmp220523)))) (declare (not safe)) - (cons __tmp218135 __tmp218127)))) + (cons __tmp220530 __tmp220522)))) (declare (not safe)) (##unchecked-structure-set! - __obj217617 - __tmp218126 + __obj220007 + __tmp220521 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218138 - (let ((__tmp218147 - (let ((__tmp218148 |gxc[1]#_g218149_|)) + (let ((__tmp220533 + (let ((__tmp220542 + (let ((__tmp220543 |gxc[1]#_g220544_|)) (declare (not safe)) - (cons 'slot __tmp218148))) - (__tmp218139 - (let ((__tmp218144 - (let ((__tmp218145 |gxc[1]#_g218146_|)) + (cons 'slot __tmp220543))) + (__tmp220534 + (let ((__tmp220539 + (let ((__tmp220540 |gxc[1]#_g220541_|)) (declare (not safe)) - (cons 'checked? __tmp218145))) - (__tmp218140 - (let ((__tmp218141 - (let ((__tmp218142 |gxc[1]#_g218143_|)) + (cons 'checked? __tmp220540))) + (__tmp220535 + (let ((__tmp220536 + (let ((__tmp220537 |gxc[1]#_g220538_|)) (declare (not safe)) - (cons 'id __tmp218142)))) + (cons 'id __tmp220537)))) (declare (not safe)) - (cons __tmp218141 '())))) + (cons __tmp220536 '())))) (declare (not safe)) - (cons __tmp218144 __tmp218140)))) + (cons __tmp220539 __tmp220535)))) (declare (not safe)) - (cons __tmp218147 __tmp218139)))) + (cons __tmp220542 __tmp220534)))) (declare (not safe)) (##unchecked-structure-set! - __obj217617 - __tmp218138 + __obj220007 + __tmp220533 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217617)) + __obj220007)) (define |gxc[:0:]#!mutator| - (let ((__obj217618 + (let ((__obj220008 (let () (declare (not safe)) (##structure @@ -3247,7 +3247,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217618 + __obj220008 'gxc#!mutator::t '1 gerbil/core$$#class-type-info::t @@ -3255,7 +3255,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217618 + __obj220008 '!mutator '2 gerbil/core$$#class-type-info::t @@ -3263,26 +3263,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217618 + __obj220008 '(slot checked?) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218150 - (let ((__tmp218151 |gxc[1]#_g218047_|)) + (let ((__tmp220545 + (let ((__tmp220546 |gxc[1]#_g220442_|)) (declare (not safe)) - (cons __tmp218151 '())))) + (cons __tmp220546 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217618 - __tmp218150 + __obj220008 + __tmp220545 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217618 + __obj220008 '#t '5 gerbil/core$$#class-type-info::t @@ -3290,7 +3290,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217618 + __obj220008 '#f '6 gerbil/core$$#class-type-info::t @@ -3298,150 +3298,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217618 + __obj220008 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218152 |gxc[1]#_g218153_|)) + (let ((__tmp220547 |gxc[1]#_g220548_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217618 - __tmp218152 + __obj220008 + __tmp220547 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218154 |gxc[1]#_g218155_|)) + (let ((__tmp220549 |gxc[1]#_g220550_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217618 - __tmp218154 + __obj220008 + __tmp220549 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218156 |gxc[1]#_g218157_|)) + (let ((__tmp220551 |gxc[1]#_g220552_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217618 - __tmp218156 + __obj220008 + __tmp220551 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218158 - (let ((__tmp218167 - (let ((__tmp218168 |gxc[1]#_g218169_|)) + (let ((__tmp220553 + (let ((__tmp220562 + (let ((__tmp220563 |gxc[1]#_g220564_|)) (declare (not safe)) - (cons 'slot __tmp218168))) - (__tmp218159 - (let ((__tmp218164 - (let ((__tmp218165 |gxc[1]#_g218166_|)) + (cons 'slot __tmp220563))) + (__tmp220554 + (let ((__tmp220559 + (let ((__tmp220560 |gxc[1]#_g220561_|)) (declare (not safe)) - (cons 'checked? __tmp218165))) - (__tmp218160 - (let ((__tmp218161 - (let ((__tmp218162 |gxc[1]#_g218163_|)) + (cons 'checked? __tmp220560))) + (__tmp220555 + (let ((__tmp220556 + (let ((__tmp220557 |gxc[1]#_g220558_|)) (declare (not safe)) - (cons 'id __tmp218162)))) + (cons 'id __tmp220557)))) (declare (not safe)) - (cons __tmp218161 '())))) + (cons __tmp220556 '())))) (declare (not safe)) - (cons __tmp218164 __tmp218160)))) + (cons __tmp220559 __tmp220555)))) (declare (not safe)) - (cons __tmp218167 __tmp218159)))) + (cons __tmp220562 __tmp220554)))) (declare (not safe)) (##unchecked-structure-set! - __obj217618 - __tmp218158 + __obj220008 + __tmp220553 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218170 - (let ((__tmp218179 - (let ((__tmp218180 |gxc[1]#_g218181_|)) + (let ((__tmp220565 + (let ((__tmp220574 + (let ((__tmp220575 |gxc[1]#_g220576_|)) (declare (not safe)) - (cons 'slot __tmp218180))) - (__tmp218171 - (let ((__tmp218176 - (let ((__tmp218177 |gxc[1]#_g218178_|)) + (cons 'slot __tmp220575))) + (__tmp220566 + (let ((__tmp220571 + (let ((__tmp220572 |gxc[1]#_g220573_|)) (declare (not safe)) - (cons 'checked? __tmp218177))) - (__tmp218172 - (let ((__tmp218173 - (let ((__tmp218174 |gxc[1]#_g218175_|)) + (cons 'checked? __tmp220572))) + (__tmp220567 + (let ((__tmp220568 + (let ((__tmp220569 |gxc[1]#_g220570_|)) (declare (not safe)) - (cons 'id __tmp218174)))) + (cons 'id __tmp220569)))) (declare (not safe)) - (cons __tmp218173 '())))) + (cons __tmp220568 '())))) (declare (not safe)) - (cons __tmp218176 __tmp218172)))) + (cons __tmp220571 __tmp220567)))) (declare (not safe)) - (cons __tmp218179 __tmp218171)))) + (cons __tmp220574 __tmp220566)))) (declare (not safe)) (##unchecked-structure-set! - __obj217618 - __tmp218170 + __obj220008 + __tmp220565 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218182 - (let ((__tmp218191 - (let ((__tmp218192 |gxc[1]#_g218193_|)) + (let ((__tmp220577 + (let ((__tmp220586 + (let ((__tmp220587 |gxc[1]#_g220588_|)) (declare (not safe)) - (cons 'slot __tmp218192))) - (__tmp218183 - (let ((__tmp218188 - (let ((__tmp218189 |gxc[1]#_g218190_|)) + (cons 'slot __tmp220587))) + (__tmp220578 + (let ((__tmp220583 + (let ((__tmp220584 |gxc[1]#_g220585_|)) (declare (not safe)) - (cons 'checked? __tmp218189))) - (__tmp218184 - (let ((__tmp218185 - (let ((__tmp218186 |gxc[1]#_g218187_|)) + (cons 'checked? __tmp220584))) + (__tmp220579 + (let ((__tmp220580 + (let ((__tmp220581 |gxc[1]#_g220582_|)) (declare (not safe)) - (cons 'id __tmp218186)))) + (cons 'id __tmp220581)))) (declare (not safe)) - (cons __tmp218185 '())))) + (cons __tmp220580 '())))) (declare (not safe)) - (cons __tmp218188 __tmp218184)))) + (cons __tmp220583 __tmp220579)))) (declare (not safe)) - (cons __tmp218191 __tmp218183)))) + (cons __tmp220586 __tmp220578)))) (declare (not safe)) (##unchecked-structure-set! - __obj217618 - __tmp218182 + __obj220008 + __tmp220577 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218194 - (let ((__tmp218203 - (let ((__tmp218204 |gxc[1]#_g218205_|)) + (let ((__tmp220589 + (let ((__tmp220598 + (let ((__tmp220599 |gxc[1]#_g220600_|)) (declare (not safe)) - (cons 'slot __tmp218204))) - (__tmp218195 - (let ((__tmp218200 - (let ((__tmp218201 |gxc[1]#_g218202_|)) + (cons 'slot __tmp220599))) + (__tmp220590 + (let ((__tmp220595 + (let ((__tmp220596 |gxc[1]#_g220597_|)) (declare (not safe)) - (cons 'checked? __tmp218201))) - (__tmp218196 - (let ((__tmp218197 - (let ((__tmp218198 |gxc[1]#_g218199_|)) + (cons 'checked? __tmp220596))) + (__tmp220591 + (let ((__tmp220592 + (let ((__tmp220593 |gxc[1]#_g220594_|)) (declare (not safe)) - (cons 'id __tmp218198)))) + (cons 'id __tmp220593)))) (declare (not safe)) - (cons __tmp218197 '())))) + (cons __tmp220592 '())))) (declare (not safe)) - (cons __tmp218200 __tmp218196)))) + (cons __tmp220595 __tmp220591)))) (declare (not safe)) - (cons __tmp218203 __tmp218195)))) + (cons __tmp220598 __tmp220590)))) (declare (not safe)) (##unchecked-structure-set! - __obj217618 - __tmp218194 + __obj220008 + __tmp220589 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217618)) + __obj220008)) (define |gxc[:0:]#!lambda| - (let ((__obj217619 + (let ((__obj220009 (let () (declare (not safe)) (##structure @@ -3463,7 +3463,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217619 + __obj220009 'gxc#!lambda::t '1 gerbil/core$$#class-type-info::t @@ -3471,7 +3471,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217619 + __obj220009 '!lambda '2 gerbil/core$$#class-type-info::t @@ -3479,26 +3479,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217619 + __obj220009 '(arity dispatch inline inline-typedecl) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218206 - (let ((__tmp218207 |gxc[1]#_g218047_|)) + (let ((__tmp220601 + (let ((__tmp220602 |gxc[1]#_g220442_|)) (declare (not safe)) - (cons __tmp218207 '())))) + (cons __tmp220602 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217619 - __tmp218206 + __obj220009 + __tmp220601 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217619 + __obj220009 '#t '5 gerbil/core$$#class-type-info::t @@ -3506,7 +3506,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217619 + __obj220009 '#f '6 gerbil/core$$#class-type-info::t @@ -3514,218 +3514,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217619 + __obj220009 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218208 |gxc[1]#_g218209_|)) + (let ((__tmp220603 |gxc[1]#_g220604_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217619 - __tmp218208 + __obj220009 + __tmp220603 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218210 |gxc[1]#_g218211_|)) + (let ((__tmp220605 |gxc[1]#_g220606_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217619 - __tmp218210 + __obj220009 + __tmp220605 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218212 |gxc[1]#_g218213_|)) + (let ((__tmp220607 |gxc[1]#_g220608_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217619 - __tmp218212 + __obj220009 + __tmp220607 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218214 - (let ((__tmp218231 - (let ((__tmp218232 |gxc[1]#_g218233_|)) + (let ((__tmp220609 + (let ((__tmp220626 + (let ((__tmp220627 |gxc[1]#_g220628_|)) (declare (not safe)) - (cons 'arity __tmp218232))) - (__tmp218215 - (let ((__tmp218228 - (let ((__tmp218229 |gxc[1]#_g218230_|)) + (cons 'arity __tmp220627))) + (__tmp220610 + (let ((__tmp220623 + (let ((__tmp220624 |gxc[1]#_g220625_|)) (declare (not safe)) - (cons 'dispatch __tmp218229))) - (__tmp218216 - (let ((__tmp218225 - (let ((__tmp218226 |gxc[1]#_g218227_|)) + (cons 'dispatch __tmp220624))) + (__tmp220611 + (let ((__tmp220620 + (let ((__tmp220621 |gxc[1]#_g220622_|)) (declare (not safe)) - (cons 'inline __tmp218226))) - (__tmp218217 - (let ((__tmp218222 - (let ((__tmp218223 - |gxc[1]#_g218224_|)) + (cons 'inline __tmp220621))) + (__tmp220612 + (let ((__tmp220617 + (let ((__tmp220618 + |gxc[1]#_g220619_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp218223))) - (__tmp218218 - (let ((__tmp218219 - (let ((__tmp218220 - |gxc[1]#_g218221_|)) + __tmp220618))) + (__tmp220613 + (let ((__tmp220614 + (let ((__tmp220615 + |gxc[1]#_g220616_|)) (declare (not safe)) - (cons 'id __tmp218220)))) + (cons 'id __tmp220615)))) (declare (not safe)) - (cons __tmp218219 '())))) + (cons __tmp220614 '())))) (declare (not safe)) - (cons __tmp218222 __tmp218218)))) + (cons __tmp220617 __tmp220613)))) (declare (not safe)) - (cons __tmp218225 __tmp218217)))) + (cons __tmp220620 __tmp220612)))) (declare (not safe)) - (cons __tmp218228 __tmp218216)))) + (cons __tmp220623 __tmp220611)))) (declare (not safe)) - (cons __tmp218231 __tmp218215)))) + (cons __tmp220626 __tmp220610)))) (declare (not safe)) (##unchecked-structure-set! - __obj217619 - __tmp218214 + __obj220009 + __tmp220609 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218234 - (let ((__tmp218251 - (let ((__tmp218252 |gxc[1]#_g218253_|)) + (let ((__tmp220629 + (let ((__tmp220646 + (let ((__tmp220647 |gxc[1]#_g220648_|)) (declare (not safe)) - (cons 'arity __tmp218252))) - (__tmp218235 - (let ((__tmp218248 - (let ((__tmp218249 |gxc[1]#_g218250_|)) + (cons 'arity __tmp220647))) + (__tmp220630 + (let ((__tmp220643 + (let ((__tmp220644 |gxc[1]#_g220645_|)) (declare (not safe)) - (cons 'dispatch __tmp218249))) - (__tmp218236 - (let ((__tmp218245 - (let ((__tmp218246 |gxc[1]#_g218247_|)) + (cons 'dispatch __tmp220644))) + (__tmp220631 + (let ((__tmp220640 + (let ((__tmp220641 |gxc[1]#_g220642_|)) (declare (not safe)) - (cons 'inline __tmp218246))) - (__tmp218237 - (let ((__tmp218242 - (let ((__tmp218243 - |gxc[1]#_g218244_|)) + (cons 'inline __tmp220641))) + (__tmp220632 + (let ((__tmp220637 + (let ((__tmp220638 + |gxc[1]#_g220639_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp218243))) - (__tmp218238 - (let ((__tmp218239 - (let ((__tmp218240 - |gxc[1]#_g218241_|)) + __tmp220638))) + (__tmp220633 + (let ((__tmp220634 + (let ((__tmp220635 + |gxc[1]#_g220636_|)) (declare (not safe)) - (cons 'id __tmp218240)))) + (cons 'id __tmp220635)))) (declare (not safe)) - (cons __tmp218239 '())))) + (cons __tmp220634 '())))) (declare (not safe)) - (cons __tmp218242 __tmp218238)))) + (cons __tmp220637 __tmp220633)))) (declare (not safe)) - (cons __tmp218245 __tmp218237)))) + (cons __tmp220640 __tmp220632)))) (declare (not safe)) - (cons __tmp218248 __tmp218236)))) + (cons __tmp220643 __tmp220631)))) (declare (not safe)) - (cons __tmp218251 __tmp218235)))) + (cons __tmp220646 __tmp220630)))) (declare (not safe)) (##unchecked-structure-set! - __obj217619 - __tmp218234 + __obj220009 + __tmp220629 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218254 - (let ((__tmp218271 - (let ((__tmp218272 |gxc[1]#_g218273_|)) + (let ((__tmp220649 + (let ((__tmp220666 + (let ((__tmp220667 |gxc[1]#_g220668_|)) (declare (not safe)) - (cons 'arity __tmp218272))) - (__tmp218255 - (let ((__tmp218268 - (let ((__tmp218269 |gxc[1]#_g218270_|)) + (cons 'arity __tmp220667))) + (__tmp220650 + (let ((__tmp220663 + (let ((__tmp220664 |gxc[1]#_g220665_|)) (declare (not safe)) - (cons 'dispatch __tmp218269))) - (__tmp218256 - (let ((__tmp218265 - (let ((__tmp218266 |gxc[1]#_g218267_|)) + (cons 'dispatch __tmp220664))) + (__tmp220651 + (let ((__tmp220660 + (let ((__tmp220661 |gxc[1]#_g220662_|)) (declare (not safe)) - (cons 'inline __tmp218266))) - (__tmp218257 - (let ((__tmp218262 - (let ((__tmp218263 - |gxc[1]#_g218264_|)) + (cons 'inline __tmp220661))) + (__tmp220652 + (let ((__tmp220657 + (let ((__tmp220658 + |gxc[1]#_g220659_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp218263))) - (__tmp218258 - (let ((__tmp218259 - (let ((__tmp218260 - |gxc[1]#_g218261_|)) + __tmp220658))) + (__tmp220653 + (let ((__tmp220654 + (let ((__tmp220655 + |gxc[1]#_g220656_|)) (declare (not safe)) - (cons 'id __tmp218260)))) + (cons 'id __tmp220655)))) (declare (not safe)) - (cons __tmp218259 '())))) + (cons __tmp220654 '())))) (declare (not safe)) - (cons __tmp218262 __tmp218258)))) + (cons __tmp220657 __tmp220653)))) (declare (not safe)) - (cons __tmp218265 __tmp218257)))) + (cons __tmp220660 __tmp220652)))) (declare (not safe)) - (cons __tmp218268 __tmp218256)))) + (cons __tmp220663 __tmp220651)))) (declare (not safe)) - (cons __tmp218271 __tmp218255)))) + (cons __tmp220666 __tmp220650)))) (declare (not safe)) (##unchecked-structure-set! - __obj217619 - __tmp218254 + __obj220009 + __tmp220649 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218274 - (let ((__tmp218291 - (let ((__tmp218292 |gxc[1]#_g218293_|)) + (let ((__tmp220669 + (let ((__tmp220686 + (let ((__tmp220687 |gxc[1]#_g220688_|)) (declare (not safe)) - (cons 'arity __tmp218292))) - (__tmp218275 - (let ((__tmp218288 - (let ((__tmp218289 |gxc[1]#_g218290_|)) + (cons 'arity __tmp220687))) + (__tmp220670 + (let ((__tmp220683 + (let ((__tmp220684 |gxc[1]#_g220685_|)) (declare (not safe)) - (cons 'dispatch __tmp218289))) - (__tmp218276 - (let ((__tmp218285 - (let ((__tmp218286 |gxc[1]#_g218287_|)) + (cons 'dispatch __tmp220684))) + (__tmp220671 + (let ((__tmp220680 + (let ((__tmp220681 |gxc[1]#_g220682_|)) (declare (not safe)) - (cons 'inline __tmp218286))) - (__tmp218277 - (let ((__tmp218282 - (let ((__tmp218283 - |gxc[1]#_g218284_|)) + (cons 'inline __tmp220681))) + (__tmp220672 + (let ((__tmp220677 + (let ((__tmp220678 + |gxc[1]#_g220679_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp218283))) - (__tmp218278 - (let ((__tmp218279 - (let ((__tmp218280 - |gxc[1]#_g218281_|)) + __tmp220678))) + (__tmp220673 + (let ((__tmp220674 + (let ((__tmp220675 + |gxc[1]#_g220676_|)) (declare (not safe)) - (cons 'id __tmp218280)))) + (cons 'id __tmp220675)))) (declare (not safe)) - (cons __tmp218279 '())))) + (cons __tmp220674 '())))) (declare (not safe)) - (cons __tmp218282 __tmp218278)))) + (cons __tmp220677 __tmp220673)))) (declare (not safe)) - (cons __tmp218285 __tmp218277)))) + (cons __tmp220680 __tmp220672)))) (declare (not safe)) - (cons __tmp218288 __tmp218276)))) + (cons __tmp220683 __tmp220671)))) (declare (not safe)) - (cons __tmp218291 __tmp218275)))) + (cons __tmp220686 __tmp220670)))) (declare (not safe)) (##unchecked-structure-set! - __obj217619 - __tmp218274 + __obj220009 + __tmp220669 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217619)) + __obj220009)) (define |gxc[:0:]#!case-lambda| - (let ((__obj217620 + (let ((__obj220010 (let () (declare (not safe)) (##structure @@ -3747,7 +3747,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217620 + __obj220010 'gxc#!case-lambda::t '1 gerbil/core$$#class-type-info::t @@ -3755,7 +3755,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217620 + __obj220010 '!case-lambda '2 gerbil/core$$#class-type-info::t @@ -3763,26 +3763,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217620 + __obj220010 '(clauses) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218294 - (let ((__tmp218295 |gxc[1]#_g218047_|)) + (let ((__tmp220689 + (let ((__tmp220690 |gxc[1]#_g220442_|)) (declare (not safe)) - (cons __tmp218295 '())))) + (cons __tmp220690 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217620 - __tmp218294 + __obj220010 + __tmp220689 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217620 + __obj220010 '#t '5 gerbil/core$$#class-type-info::t @@ -3790,7 +3790,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217620 + __obj220010 '#f '6 gerbil/core$$#class-type-info::t @@ -3798,122 +3798,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217620 + __obj220010 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218296 |gxc[1]#_g218297_|)) + (let ((__tmp220691 |gxc[1]#_g220692_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217620 - __tmp218296 + __obj220010 + __tmp220691 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218298 |gxc[1]#_g218299_|)) + (let ((__tmp220693 |gxc[1]#_g220694_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217620 - __tmp218298 + __obj220010 + __tmp220693 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218300 |gxc[1]#_g218301_|)) + (let ((__tmp220695 |gxc[1]#_g220696_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217620 - __tmp218300 + __obj220010 + __tmp220695 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218302 - (let ((__tmp218307 - (let ((__tmp218308 |gxc[1]#_g218309_|)) + (let ((__tmp220697 + (let ((__tmp220702 + (let ((__tmp220703 |gxc[1]#_g220704_|)) (declare (not safe)) - (cons 'clauses __tmp218308))) - (__tmp218303 - (let ((__tmp218304 - (let ((__tmp218305 |gxc[1]#_g218306_|)) + (cons 'clauses __tmp220703))) + (__tmp220698 + (let ((__tmp220699 + (let ((__tmp220700 |gxc[1]#_g220701_|)) (declare (not safe)) - (cons 'id __tmp218305)))) + (cons 'id __tmp220700)))) (declare (not safe)) - (cons __tmp218304 '())))) + (cons __tmp220699 '())))) (declare (not safe)) - (cons __tmp218307 __tmp218303)))) + (cons __tmp220702 __tmp220698)))) (declare (not safe)) (##unchecked-structure-set! - __obj217620 - __tmp218302 + __obj220010 + __tmp220697 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218310 - (let ((__tmp218315 - (let ((__tmp218316 |gxc[1]#_g218317_|)) + (let ((__tmp220705 + (let ((__tmp220710 + (let ((__tmp220711 |gxc[1]#_g220712_|)) (declare (not safe)) - (cons 'clauses __tmp218316))) - (__tmp218311 - (let ((__tmp218312 - (let ((__tmp218313 |gxc[1]#_g218314_|)) + (cons 'clauses __tmp220711))) + (__tmp220706 + (let ((__tmp220707 + (let ((__tmp220708 |gxc[1]#_g220709_|)) (declare (not safe)) - (cons 'id __tmp218313)))) + (cons 'id __tmp220708)))) (declare (not safe)) - (cons __tmp218312 '())))) + (cons __tmp220707 '())))) (declare (not safe)) - (cons __tmp218315 __tmp218311)))) + (cons __tmp220710 __tmp220706)))) (declare (not safe)) (##unchecked-structure-set! - __obj217620 - __tmp218310 + __obj220010 + __tmp220705 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218318 - (let ((__tmp218323 - (let ((__tmp218324 |gxc[1]#_g218325_|)) + (let ((__tmp220713 + (let ((__tmp220718 + (let ((__tmp220719 |gxc[1]#_g220720_|)) (declare (not safe)) - (cons 'clauses __tmp218324))) - (__tmp218319 - (let ((__tmp218320 - (let ((__tmp218321 |gxc[1]#_g218322_|)) + (cons 'clauses __tmp220719))) + (__tmp220714 + (let ((__tmp220715 + (let ((__tmp220716 |gxc[1]#_g220717_|)) (declare (not safe)) - (cons 'id __tmp218321)))) + (cons 'id __tmp220716)))) (declare (not safe)) - (cons __tmp218320 '())))) + (cons __tmp220715 '())))) (declare (not safe)) - (cons __tmp218323 __tmp218319)))) + (cons __tmp220718 __tmp220714)))) (declare (not safe)) (##unchecked-structure-set! - __obj217620 - __tmp218318 + __obj220010 + __tmp220713 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218326 - (let ((__tmp218331 - (let ((__tmp218332 |gxc[1]#_g218333_|)) + (let ((__tmp220721 + (let ((__tmp220726 + (let ((__tmp220727 |gxc[1]#_g220728_|)) (declare (not safe)) - (cons 'clauses __tmp218332))) - (__tmp218327 - (let ((__tmp218328 - (let ((__tmp218329 |gxc[1]#_g218330_|)) + (cons 'clauses __tmp220727))) + (__tmp220722 + (let ((__tmp220723 + (let ((__tmp220724 |gxc[1]#_g220725_|)) (declare (not safe)) - (cons 'id __tmp218329)))) + (cons 'id __tmp220724)))) (declare (not safe)) - (cons __tmp218328 '())))) + (cons __tmp220723 '())))) (declare (not safe)) - (cons __tmp218331 __tmp218327)))) + (cons __tmp220726 __tmp220722)))) (declare (not safe)) (##unchecked-structure-set! - __obj217620 - __tmp218326 + __obj220010 + __tmp220721 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217620)) + __obj220010)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj217621 + (let ((__obj220011 (let () (declare (not safe)) (##structure @@ -3935,7 +3935,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217621 + __obj220011 'gxc#!kw-lambda::t '1 gerbil/core$$#class-type-info::t @@ -3943,7 +3943,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217621 + __obj220011 '!kw-lambda '2 gerbil/core$$#class-type-info::t @@ -3951,26 +3951,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217621 + __obj220011 '(table dispatch) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218334 - (let ((__tmp218335 |gxc[1]#_g218047_|)) + (let ((__tmp220729 + (let ((__tmp220730 |gxc[1]#_g220442_|)) (declare (not safe)) - (cons __tmp218335 '())))) + (cons __tmp220730 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217621 - __tmp218334 + __obj220011 + __tmp220729 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217621 + __obj220011 '#t '5 gerbil/core$$#class-type-info::t @@ -3978,7 +3978,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217621 + __obj220011 '#f '6 gerbil/core$$#class-type-info::t @@ -3986,150 +3986,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217621 + __obj220011 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218336 |gxc[1]#_g218337_|)) + (let ((__tmp220731 |gxc[1]#_g220732_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217621 - __tmp218336 + __obj220011 + __tmp220731 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218338 |gxc[1]#_g218339_|)) + (let ((__tmp220733 |gxc[1]#_g220734_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217621 - __tmp218338 + __obj220011 + __tmp220733 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218340 |gxc[1]#_g218341_|)) + (let ((__tmp220735 |gxc[1]#_g220736_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217621 - __tmp218340 + __obj220011 + __tmp220735 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218342 - (let ((__tmp218351 - (let ((__tmp218352 |gxc[1]#_g218353_|)) + (let ((__tmp220737 + (let ((__tmp220746 + (let ((__tmp220747 |gxc[1]#_g220748_|)) (declare (not safe)) - (cons 'table __tmp218352))) - (__tmp218343 - (let ((__tmp218348 - (let ((__tmp218349 |gxc[1]#_g218350_|)) + (cons 'table __tmp220747))) + (__tmp220738 + (let ((__tmp220743 + (let ((__tmp220744 |gxc[1]#_g220745_|)) (declare (not safe)) - (cons 'dispatch __tmp218349))) - (__tmp218344 - (let ((__tmp218345 - (let ((__tmp218346 |gxc[1]#_g218347_|)) + (cons 'dispatch __tmp220744))) + (__tmp220739 + (let ((__tmp220740 + (let ((__tmp220741 |gxc[1]#_g220742_|)) (declare (not safe)) - (cons 'id __tmp218346)))) + (cons 'id __tmp220741)))) (declare (not safe)) - (cons __tmp218345 '())))) + (cons __tmp220740 '())))) (declare (not safe)) - (cons __tmp218348 __tmp218344)))) + (cons __tmp220743 __tmp220739)))) (declare (not safe)) - (cons __tmp218351 __tmp218343)))) + (cons __tmp220746 __tmp220738)))) (declare (not safe)) (##unchecked-structure-set! - __obj217621 - __tmp218342 + __obj220011 + __tmp220737 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218354 - (let ((__tmp218363 - (let ((__tmp218364 |gxc[1]#_g218365_|)) + (let ((__tmp220749 + (let ((__tmp220758 + (let ((__tmp220759 |gxc[1]#_g220760_|)) (declare (not safe)) - (cons 'table __tmp218364))) - (__tmp218355 - (let ((__tmp218360 - (let ((__tmp218361 |gxc[1]#_g218362_|)) + (cons 'table __tmp220759))) + (__tmp220750 + (let ((__tmp220755 + (let ((__tmp220756 |gxc[1]#_g220757_|)) (declare (not safe)) - (cons 'dispatch __tmp218361))) - (__tmp218356 - (let ((__tmp218357 - (let ((__tmp218358 |gxc[1]#_g218359_|)) + (cons 'dispatch __tmp220756))) + (__tmp220751 + (let ((__tmp220752 + (let ((__tmp220753 |gxc[1]#_g220754_|)) (declare (not safe)) - (cons 'id __tmp218358)))) + (cons 'id __tmp220753)))) (declare (not safe)) - (cons __tmp218357 '())))) + (cons __tmp220752 '())))) (declare (not safe)) - (cons __tmp218360 __tmp218356)))) + (cons __tmp220755 __tmp220751)))) (declare (not safe)) - (cons __tmp218363 __tmp218355)))) + (cons __tmp220758 __tmp220750)))) (declare (not safe)) (##unchecked-structure-set! - __obj217621 - __tmp218354 + __obj220011 + __tmp220749 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218366 - (let ((__tmp218375 - (let ((__tmp218376 |gxc[1]#_g218377_|)) + (let ((__tmp220761 + (let ((__tmp220770 + (let ((__tmp220771 |gxc[1]#_g220772_|)) (declare (not safe)) - (cons 'table __tmp218376))) - (__tmp218367 - (let ((__tmp218372 - (let ((__tmp218373 |gxc[1]#_g218374_|)) + (cons 'table __tmp220771))) + (__tmp220762 + (let ((__tmp220767 + (let ((__tmp220768 |gxc[1]#_g220769_|)) (declare (not safe)) - (cons 'dispatch __tmp218373))) - (__tmp218368 - (let ((__tmp218369 - (let ((__tmp218370 |gxc[1]#_g218371_|)) + (cons 'dispatch __tmp220768))) + (__tmp220763 + (let ((__tmp220764 + (let ((__tmp220765 |gxc[1]#_g220766_|)) (declare (not safe)) - (cons 'id __tmp218370)))) + (cons 'id __tmp220765)))) (declare (not safe)) - (cons __tmp218369 '())))) + (cons __tmp220764 '())))) (declare (not safe)) - (cons __tmp218372 __tmp218368)))) + (cons __tmp220767 __tmp220763)))) (declare (not safe)) - (cons __tmp218375 __tmp218367)))) + (cons __tmp220770 __tmp220762)))) (declare (not safe)) (##unchecked-structure-set! - __obj217621 - __tmp218366 + __obj220011 + __tmp220761 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218378 - (let ((__tmp218387 - (let ((__tmp218388 |gxc[1]#_g218389_|)) + (let ((__tmp220773 + (let ((__tmp220782 + (let ((__tmp220783 |gxc[1]#_g220784_|)) (declare (not safe)) - (cons 'table __tmp218388))) - (__tmp218379 - (let ((__tmp218384 - (let ((__tmp218385 |gxc[1]#_g218386_|)) + (cons 'table __tmp220783))) + (__tmp220774 + (let ((__tmp220779 + (let ((__tmp220780 |gxc[1]#_g220781_|)) (declare (not safe)) - (cons 'dispatch __tmp218385))) - (__tmp218380 - (let ((__tmp218381 - (let ((__tmp218382 |gxc[1]#_g218383_|)) + (cons 'dispatch __tmp220780))) + (__tmp220775 + (let ((__tmp220776 + (let ((__tmp220777 |gxc[1]#_g220778_|)) (declare (not safe)) - (cons 'id __tmp218382)))) + (cons 'id __tmp220777)))) (declare (not safe)) - (cons __tmp218381 '())))) + (cons __tmp220776 '())))) (declare (not safe)) - (cons __tmp218384 __tmp218380)))) + (cons __tmp220779 __tmp220775)))) (declare (not safe)) - (cons __tmp218387 __tmp218379)))) + (cons __tmp220782 __tmp220774)))) (declare (not safe)) (##unchecked-structure-set! - __obj217621 - __tmp218378 + __obj220011 + __tmp220773 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217621)) + __obj220011)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj217622 + (let ((__obj220012 (let () (declare (not safe)) (##structure @@ -4151,7 +4151,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217622 + __obj220012 'gxc#!kw-lambda-primary::t '1 gerbil/core$$#class-type-info::t @@ -4159,7 +4159,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217622 + __obj220012 '!kw-lambda-primary '2 gerbil/core$$#class-type-info::t @@ -4167,26 +4167,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217622 + __obj220012 '(keys main) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218390 - (let ((__tmp218391 |gxc[1]#_g218047_|)) + (let ((__tmp220785 + (let ((__tmp220786 |gxc[1]#_g220442_|)) (declare (not safe)) - (cons __tmp218391 '())))) + (cons __tmp220786 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj217622 - __tmp218390 + __obj220012 + __tmp220785 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217622 + __obj220012 '#t '5 gerbil/core$$#class-type-info::t @@ -4194,7 +4194,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217622 + __obj220012 '#f '6 gerbil/core$$#class-type-info::t @@ -4202,150 +4202,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217622 + __obj220012 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218392 |gxc[1]#_g218393_|)) + (let ((__tmp220787 |gxc[1]#_g220788_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217622 - __tmp218392 + __obj220012 + __tmp220787 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218394 |gxc[1]#_g218395_|)) + (let ((__tmp220789 |gxc[1]#_g220790_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217622 - __tmp218394 + __obj220012 + __tmp220789 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218396 |gxc[1]#_g218397_|)) + (let ((__tmp220791 |gxc[1]#_g220792_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217622 - __tmp218396 + __obj220012 + __tmp220791 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218398 - (let ((__tmp218407 - (let ((__tmp218408 |gxc[1]#_g218409_|)) + (let ((__tmp220793 + (let ((__tmp220802 + (let ((__tmp220803 |gxc[1]#_g220804_|)) (declare (not safe)) - (cons 'keys __tmp218408))) - (__tmp218399 - (let ((__tmp218404 - (let ((__tmp218405 |gxc[1]#_g218406_|)) + (cons 'keys __tmp220803))) + (__tmp220794 + (let ((__tmp220799 + (let ((__tmp220800 |gxc[1]#_g220801_|)) (declare (not safe)) - (cons 'main __tmp218405))) - (__tmp218400 - (let ((__tmp218401 - (let ((__tmp218402 |gxc[1]#_g218403_|)) + (cons 'main __tmp220800))) + (__tmp220795 + (let ((__tmp220796 + (let ((__tmp220797 |gxc[1]#_g220798_|)) (declare (not safe)) - (cons 'id __tmp218402)))) + (cons 'id __tmp220797)))) (declare (not safe)) - (cons __tmp218401 '())))) + (cons __tmp220796 '())))) (declare (not safe)) - (cons __tmp218404 __tmp218400)))) + (cons __tmp220799 __tmp220795)))) (declare (not safe)) - (cons __tmp218407 __tmp218399)))) + (cons __tmp220802 __tmp220794)))) (declare (not safe)) (##unchecked-structure-set! - __obj217622 - __tmp218398 + __obj220012 + __tmp220793 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218410 - (let ((__tmp218419 - (let ((__tmp218420 |gxc[1]#_g218421_|)) + (let ((__tmp220805 + (let ((__tmp220814 + (let ((__tmp220815 |gxc[1]#_g220816_|)) (declare (not safe)) - (cons 'keys __tmp218420))) - (__tmp218411 - (let ((__tmp218416 - (let ((__tmp218417 |gxc[1]#_g218418_|)) + (cons 'keys __tmp220815))) + (__tmp220806 + (let ((__tmp220811 + (let ((__tmp220812 |gxc[1]#_g220813_|)) (declare (not safe)) - (cons 'main __tmp218417))) - (__tmp218412 - (let ((__tmp218413 - (let ((__tmp218414 |gxc[1]#_g218415_|)) + (cons 'main __tmp220812))) + (__tmp220807 + (let ((__tmp220808 + (let ((__tmp220809 |gxc[1]#_g220810_|)) (declare (not safe)) - (cons 'id __tmp218414)))) + (cons 'id __tmp220809)))) (declare (not safe)) - (cons __tmp218413 '())))) + (cons __tmp220808 '())))) (declare (not safe)) - (cons __tmp218416 __tmp218412)))) + (cons __tmp220811 __tmp220807)))) (declare (not safe)) - (cons __tmp218419 __tmp218411)))) + (cons __tmp220814 __tmp220806)))) (declare (not safe)) (##unchecked-structure-set! - __obj217622 - __tmp218410 + __obj220012 + __tmp220805 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218422 - (let ((__tmp218431 - (let ((__tmp218432 |gxc[1]#_g218433_|)) + (let ((__tmp220817 + (let ((__tmp220826 + (let ((__tmp220827 |gxc[1]#_g220828_|)) (declare (not safe)) - (cons 'keys __tmp218432))) - (__tmp218423 - (let ((__tmp218428 - (let ((__tmp218429 |gxc[1]#_g218430_|)) + (cons 'keys __tmp220827))) + (__tmp220818 + (let ((__tmp220823 + (let ((__tmp220824 |gxc[1]#_g220825_|)) (declare (not safe)) - (cons 'main __tmp218429))) - (__tmp218424 - (let ((__tmp218425 - (let ((__tmp218426 |gxc[1]#_g218427_|)) + (cons 'main __tmp220824))) + (__tmp220819 + (let ((__tmp220820 + (let ((__tmp220821 |gxc[1]#_g220822_|)) (declare (not safe)) - (cons 'id __tmp218426)))) + (cons 'id __tmp220821)))) (declare (not safe)) - (cons __tmp218425 '())))) + (cons __tmp220820 '())))) (declare (not safe)) - (cons __tmp218428 __tmp218424)))) + (cons __tmp220823 __tmp220819)))) (declare (not safe)) - (cons __tmp218431 __tmp218423)))) + (cons __tmp220826 __tmp220818)))) (declare (not safe)) (##unchecked-structure-set! - __obj217622 - __tmp218422 + __obj220012 + __tmp220817 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218434 - (let ((__tmp218443 - (let ((__tmp218444 |gxc[1]#_g218445_|)) + (let ((__tmp220829 + (let ((__tmp220838 + (let ((__tmp220839 |gxc[1]#_g220840_|)) (declare (not safe)) - (cons 'keys __tmp218444))) - (__tmp218435 - (let ((__tmp218440 - (let ((__tmp218441 |gxc[1]#_g218442_|)) + (cons 'keys __tmp220839))) + (__tmp220830 + (let ((__tmp220835 + (let ((__tmp220836 |gxc[1]#_g220837_|)) (declare (not safe)) - (cons 'main __tmp218441))) - (__tmp218436 - (let ((__tmp218437 - (let ((__tmp218438 |gxc[1]#_g218439_|)) + (cons 'main __tmp220836))) + (__tmp220831 + (let ((__tmp220832 + (let ((__tmp220833 |gxc[1]#_g220834_|)) (declare (not safe)) - (cons 'id __tmp218438)))) + (cons 'id __tmp220833)))) (declare (not safe)) - (cons __tmp218437 '())))) + (cons __tmp220832 '())))) (declare (not safe)) - (cons __tmp218440 __tmp218436)))) + (cons __tmp220835 __tmp220831)))) (declare (not safe)) - (cons __tmp218443 __tmp218435)))) + (cons __tmp220838 __tmp220830)))) (declare (not safe)) (##unchecked-structure-set! - __obj217622 - __tmp218434 + __obj220012 + __tmp220829 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217622)) + __obj220012)) (define |gxc[:0:]#!primitive| - (let ((__obj217623 + (let ((__obj220013 (let () (declare (not safe)) (##structure @@ -4367,7 +4367,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217623 + __obj220013 'gxc#!primitive::t '1 gerbil/core$$#class-type-info::t @@ -4375,7 +4375,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217623 + __obj220013 '!primitive '2 gerbil/core$$#class-type-info::t @@ -4383,7 +4383,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217623 + __obj220013 '() '4 gerbil/core$$#class-type-info::t @@ -4391,7 +4391,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217623 + __obj220013 '() '3 gerbil/core$$#class-type-info::t @@ -4399,7 +4399,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217623 + __obj220013 '#f '5 gerbil/core$$#class-type-info::t @@ -4407,7 +4407,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217623 + __obj220013 '#f '6 gerbil/core$$#class-type-info::t @@ -4415,39 +4415,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217623 + __obj220013 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218446 |gxc[1]#_g218447_|)) + (let ((__tmp220841 |gxc[1]#_g220842_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217623 - __tmp218446 + __obj220013 + __tmp220841 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218448 |gxc[1]#_g218449_|)) + (let ((__tmp220843 |gxc[1]#_g220844_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217623 - __tmp218448 + __obj220013 + __tmp220843 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218450 |gxc[1]#_g218451_|)) + (let ((__tmp220845 |gxc[1]#_g220846_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217623 - __tmp218450 + __obj220013 + __tmp220845 '10 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217623 + __obj220013 '() '11 gerbil/core$$#class-type-info::t @@ -4455,7 +4455,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217623 + __obj220013 '() '12 gerbil/core$$#class-type-info::t @@ -4463,7 +4463,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217623 + __obj220013 '() '13 gerbil/core$$#class-type-info::t @@ -4471,14 +4471,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217623 + __obj220013 '() '14 gerbil/core$$#class-type-info::t '#f)) - __obj217623)) + __obj220013)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj217624 + (let ((__obj220014 (let () (declare (not safe)) (##structure @@ -4500,7 +4500,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217624 + __obj220014 'gxc#!primitive-lambda::t '1 gerbil/core$$#class-type-info::t @@ -4508,7 +4508,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217624 + __obj220014 '!primitive-lambda '2 gerbil/core$$#class-type-info::t @@ -4516,30 +4516,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217624 + __obj220014 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218452 - (let ((__tmp218456 |gxc[1]#_g218457_|) - (__tmp218453 - (let ((__tmp218454 |gxc[1]#_g218455_|)) + (let ((__tmp220847 + (let ((__tmp220851 |gxc[1]#_g220852_|) + (__tmp220848 + (let ((__tmp220849 |gxc[1]#_g220850_|)) (declare (not safe)) - (cons __tmp218454 '())))) + (cons __tmp220849 '())))) (declare (not safe)) - (cons __tmp218456 __tmp218453)))) + (cons __tmp220851 __tmp220848)))) (declare (not safe)) (##unchecked-structure-set! - __obj217624 - __tmp218452 + __obj220014 + __tmp220847 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217624 + __obj220014 '#f '5 gerbil/core$$#class-type-info::t @@ -4547,7 +4547,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217624 + __obj220014 '#f '6 gerbil/core$$#class-type-info::t @@ -4555,218 +4555,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217624 + __obj220014 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218458 |gxc[1]#_g218459_|)) + (let ((__tmp220853 |gxc[1]#_g220854_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217624 - __tmp218458 + __obj220014 + __tmp220853 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218460 |gxc[1]#_g218461_|)) + (let ((__tmp220855 |gxc[1]#_g220856_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217624 - __tmp218460 + __obj220014 + __tmp220855 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218462 |gxc[1]#_g218463_|)) + (let ((__tmp220857 |gxc[1]#_g220858_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217624 - __tmp218462 + __obj220014 + __tmp220857 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218464 - (let ((__tmp218481 - (let ((__tmp218482 |gxc[1]#_g218483_|)) + (let ((__tmp220859 + (let ((__tmp220876 + (let ((__tmp220877 |gxc[1]#_g220878_|)) (declare (not safe)) - (cons 'arity __tmp218482))) - (__tmp218465 - (let ((__tmp218478 - (let ((__tmp218479 |gxc[1]#_g218480_|)) + (cons 'arity __tmp220877))) + (__tmp220860 + (let ((__tmp220873 + (let ((__tmp220874 |gxc[1]#_g220875_|)) (declare (not safe)) - (cons 'dispatch __tmp218479))) - (__tmp218466 - (let ((__tmp218475 - (let ((__tmp218476 |gxc[1]#_g218477_|)) + (cons 'dispatch __tmp220874))) + (__tmp220861 + (let ((__tmp220870 + (let ((__tmp220871 |gxc[1]#_g220872_|)) (declare (not safe)) - (cons 'inline __tmp218476))) - (__tmp218467 - (let ((__tmp218472 - (let ((__tmp218473 - |gxc[1]#_g218474_|)) + (cons 'inline __tmp220871))) + (__tmp220862 + (let ((__tmp220867 + (let ((__tmp220868 + |gxc[1]#_g220869_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp218473))) - (__tmp218468 - (let ((__tmp218469 - (let ((__tmp218470 - |gxc[1]#_g218471_|)) + __tmp220868))) + (__tmp220863 + (let ((__tmp220864 + (let ((__tmp220865 + |gxc[1]#_g220866_|)) (declare (not safe)) - (cons 'id __tmp218470)))) + (cons 'id __tmp220865)))) (declare (not safe)) - (cons __tmp218469 '())))) + (cons __tmp220864 '())))) (declare (not safe)) - (cons __tmp218472 __tmp218468)))) + (cons __tmp220867 __tmp220863)))) (declare (not safe)) - (cons __tmp218475 __tmp218467)))) + (cons __tmp220870 __tmp220862)))) (declare (not safe)) - (cons __tmp218478 __tmp218466)))) + (cons __tmp220873 __tmp220861)))) (declare (not safe)) - (cons __tmp218481 __tmp218465)))) + (cons __tmp220876 __tmp220860)))) (declare (not safe)) (##unchecked-structure-set! - __obj217624 - __tmp218464 + __obj220014 + __tmp220859 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218484 - (let ((__tmp218501 - (let ((__tmp218502 |gxc[1]#_g218503_|)) + (let ((__tmp220879 + (let ((__tmp220896 + (let ((__tmp220897 |gxc[1]#_g220898_|)) (declare (not safe)) - (cons 'arity __tmp218502))) - (__tmp218485 - (let ((__tmp218498 - (let ((__tmp218499 |gxc[1]#_g218500_|)) + (cons 'arity __tmp220897))) + (__tmp220880 + (let ((__tmp220893 + (let ((__tmp220894 |gxc[1]#_g220895_|)) (declare (not safe)) - (cons 'dispatch __tmp218499))) - (__tmp218486 - (let ((__tmp218495 - (let ((__tmp218496 |gxc[1]#_g218497_|)) + (cons 'dispatch __tmp220894))) + (__tmp220881 + (let ((__tmp220890 + (let ((__tmp220891 |gxc[1]#_g220892_|)) (declare (not safe)) - (cons 'inline __tmp218496))) - (__tmp218487 - (let ((__tmp218492 - (let ((__tmp218493 - |gxc[1]#_g218494_|)) + (cons 'inline __tmp220891))) + (__tmp220882 + (let ((__tmp220887 + (let ((__tmp220888 + |gxc[1]#_g220889_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp218493))) - (__tmp218488 - (let ((__tmp218489 - (let ((__tmp218490 - |gxc[1]#_g218491_|)) + __tmp220888))) + (__tmp220883 + (let ((__tmp220884 + (let ((__tmp220885 + |gxc[1]#_g220886_|)) (declare (not safe)) - (cons 'id __tmp218490)))) + (cons 'id __tmp220885)))) (declare (not safe)) - (cons __tmp218489 '())))) + (cons __tmp220884 '())))) (declare (not safe)) - (cons __tmp218492 __tmp218488)))) + (cons __tmp220887 __tmp220883)))) (declare (not safe)) - (cons __tmp218495 __tmp218487)))) + (cons __tmp220890 __tmp220882)))) (declare (not safe)) - (cons __tmp218498 __tmp218486)))) + (cons __tmp220893 __tmp220881)))) (declare (not safe)) - (cons __tmp218501 __tmp218485)))) + (cons __tmp220896 __tmp220880)))) (declare (not safe)) (##unchecked-structure-set! - __obj217624 - __tmp218484 + __obj220014 + __tmp220879 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218504 - (let ((__tmp218521 - (let ((__tmp218522 |gxc[1]#_g218523_|)) + (let ((__tmp220899 + (let ((__tmp220916 + (let ((__tmp220917 |gxc[1]#_g220918_|)) (declare (not safe)) - (cons 'arity __tmp218522))) - (__tmp218505 - (let ((__tmp218518 - (let ((__tmp218519 |gxc[1]#_g218520_|)) + (cons 'arity __tmp220917))) + (__tmp220900 + (let ((__tmp220913 + (let ((__tmp220914 |gxc[1]#_g220915_|)) (declare (not safe)) - (cons 'dispatch __tmp218519))) - (__tmp218506 - (let ((__tmp218515 - (let ((__tmp218516 |gxc[1]#_g218517_|)) + (cons 'dispatch __tmp220914))) + (__tmp220901 + (let ((__tmp220910 + (let ((__tmp220911 |gxc[1]#_g220912_|)) (declare (not safe)) - (cons 'inline __tmp218516))) - (__tmp218507 - (let ((__tmp218512 - (let ((__tmp218513 - |gxc[1]#_g218514_|)) + (cons 'inline __tmp220911))) + (__tmp220902 + (let ((__tmp220907 + (let ((__tmp220908 + |gxc[1]#_g220909_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp218513))) - (__tmp218508 - (let ((__tmp218509 - (let ((__tmp218510 - |gxc[1]#_g218511_|)) + __tmp220908))) + (__tmp220903 + (let ((__tmp220904 + (let ((__tmp220905 + |gxc[1]#_g220906_|)) (declare (not safe)) - (cons 'id __tmp218510)))) + (cons 'id __tmp220905)))) (declare (not safe)) - (cons __tmp218509 '())))) + (cons __tmp220904 '())))) (declare (not safe)) - (cons __tmp218512 __tmp218508)))) + (cons __tmp220907 __tmp220903)))) (declare (not safe)) - (cons __tmp218515 __tmp218507)))) + (cons __tmp220910 __tmp220902)))) (declare (not safe)) - (cons __tmp218518 __tmp218506)))) + (cons __tmp220913 __tmp220901)))) (declare (not safe)) - (cons __tmp218521 __tmp218505)))) + (cons __tmp220916 __tmp220900)))) (declare (not safe)) (##unchecked-structure-set! - __obj217624 - __tmp218504 + __obj220014 + __tmp220899 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218524 - (let ((__tmp218541 - (let ((__tmp218542 |gxc[1]#_g218543_|)) + (let ((__tmp220919 + (let ((__tmp220936 + (let ((__tmp220937 |gxc[1]#_g220938_|)) (declare (not safe)) - (cons 'arity __tmp218542))) - (__tmp218525 - (let ((__tmp218538 - (let ((__tmp218539 |gxc[1]#_g218540_|)) + (cons 'arity __tmp220937))) + (__tmp220920 + (let ((__tmp220933 + (let ((__tmp220934 |gxc[1]#_g220935_|)) (declare (not safe)) - (cons 'dispatch __tmp218539))) - (__tmp218526 - (let ((__tmp218535 - (let ((__tmp218536 |gxc[1]#_g218537_|)) + (cons 'dispatch __tmp220934))) + (__tmp220921 + (let ((__tmp220930 + (let ((__tmp220931 |gxc[1]#_g220932_|)) (declare (not safe)) - (cons 'inline __tmp218536))) - (__tmp218527 - (let ((__tmp218532 - (let ((__tmp218533 - |gxc[1]#_g218534_|)) + (cons 'inline __tmp220931))) + (__tmp220922 + (let ((__tmp220927 + (let ((__tmp220928 + |gxc[1]#_g220929_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp218533))) - (__tmp218528 - (let ((__tmp218529 - (let ((__tmp218530 - |gxc[1]#_g218531_|)) + __tmp220928))) + (__tmp220923 + (let ((__tmp220924 + (let ((__tmp220925 + |gxc[1]#_g220926_|)) (declare (not safe)) - (cons 'id __tmp218530)))) + (cons 'id __tmp220925)))) (declare (not safe)) - (cons __tmp218529 '())))) + (cons __tmp220924 '())))) (declare (not safe)) - (cons __tmp218532 __tmp218528)))) + (cons __tmp220927 __tmp220923)))) (declare (not safe)) - (cons __tmp218535 __tmp218527)))) + (cons __tmp220930 __tmp220922)))) (declare (not safe)) - (cons __tmp218538 __tmp218526)))) + (cons __tmp220933 __tmp220921)))) (declare (not safe)) - (cons __tmp218541 __tmp218525)))) + (cons __tmp220936 __tmp220920)))) (declare (not safe)) (##unchecked-structure-set! - __obj217624 - __tmp218524 + __obj220014 + __tmp220919 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217624)) + __obj220014)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj217625 + (let ((__obj220015 (let () (declare (not safe)) (##structure @@ -4788,7 +4788,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217625 + __obj220015 'gxc#!primitive-case-lambda::t '1 gerbil/core$$#class-type-info::t @@ -4796,7 +4796,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217625 + __obj220015 '!primitive-case-lambda '2 gerbil/core$$#class-type-info::t @@ -4804,30 +4804,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217625 + __obj220015 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218544 - (let ((__tmp218548 |gxc[1]#_g218457_|) - (__tmp218545 - (let ((__tmp218546 |gxc[1]#_g218547_|)) + (let ((__tmp220939 + (let ((__tmp220943 |gxc[1]#_g220852_|) + (__tmp220940 + (let ((__tmp220941 |gxc[1]#_g220942_|)) (declare (not safe)) - (cons __tmp218546 '())))) + (cons __tmp220941 '())))) (declare (not safe)) - (cons __tmp218548 __tmp218545)))) + (cons __tmp220943 __tmp220940)))) (declare (not safe)) (##unchecked-structure-set! - __obj217625 - __tmp218544 + __obj220015 + __tmp220939 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj217625 + __obj220015 '#f '5 gerbil/core$$#class-type-info::t @@ -4835,7 +4835,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217625 + __obj220015 '#f '6 gerbil/core$$#class-type-info::t @@ -4843,117 +4843,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj217625 + __obj220015 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218549 |gxc[1]#_g218550_|)) + (let ((__tmp220944 |gxc[1]#_g220945_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217625 - __tmp218549 + __obj220015 + __tmp220944 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218551 |gxc[1]#_g218552_|)) + (let ((__tmp220946 |gxc[1]#_g220947_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217625 - __tmp218551 + __obj220015 + __tmp220946 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218553 |gxc[1]#_g218554_|)) + (let ((__tmp220948 |gxc[1]#_g220949_|)) (declare (not safe)) (##unchecked-structure-set! - __obj217625 - __tmp218553 + __obj220015 + __tmp220948 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218555 - (let ((__tmp218560 - (let ((__tmp218561 |gxc[1]#_g218562_|)) + (let ((__tmp220950 + (let ((__tmp220955 + (let ((__tmp220956 |gxc[1]#_g220957_|)) (declare (not safe)) - (cons 'clauses __tmp218561))) - (__tmp218556 - (let ((__tmp218557 - (let ((__tmp218558 |gxc[1]#_g218559_|)) + (cons 'clauses __tmp220956))) + (__tmp220951 + (let ((__tmp220952 + (let ((__tmp220953 |gxc[1]#_g220954_|)) (declare (not safe)) - (cons 'id __tmp218558)))) + (cons 'id __tmp220953)))) (declare (not safe)) - (cons __tmp218557 '())))) + (cons __tmp220952 '())))) (declare (not safe)) - (cons __tmp218560 __tmp218556)))) + (cons __tmp220955 __tmp220951)))) (declare (not safe)) (##unchecked-structure-set! - __obj217625 - __tmp218555 + __obj220015 + __tmp220950 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218563 - (let ((__tmp218568 - (let ((__tmp218569 |gxc[1]#_g218570_|)) + (let ((__tmp220958 + (let ((__tmp220963 + (let ((__tmp220964 |gxc[1]#_g220965_|)) (declare (not safe)) - (cons 'clauses __tmp218569))) - (__tmp218564 - (let ((__tmp218565 - (let ((__tmp218566 |gxc[1]#_g218567_|)) + (cons 'clauses __tmp220964))) + (__tmp220959 + (let ((__tmp220960 + (let ((__tmp220961 |gxc[1]#_g220962_|)) (declare (not safe)) - (cons 'id __tmp218566)))) + (cons 'id __tmp220961)))) (declare (not safe)) - (cons __tmp218565 '())))) + (cons __tmp220960 '())))) (declare (not safe)) - (cons __tmp218568 __tmp218564)))) + (cons __tmp220963 __tmp220959)))) (declare (not safe)) (##unchecked-structure-set! - __obj217625 - __tmp218563 + __obj220015 + __tmp220958 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218571 - (let ((__tmp218576 - (let ((__tmp218577 |gxc[1]#_g218578_|)) + (let ((__tmp220966 + (let ((__tmp220971 + (let ((__tmp220972 |gxc[1]#_g220973_|)) (declare (not safe)) - (cons 'clauses __tmp218577))) - (__tmp218572 - (let ((__tmp218573 - (let ((__tmp218574 |gxc[1]#_g218575_|)) + (cons 'clauses __tmp220972))) + (__tmp220967 + (let ((__tmp220968 + (let ((__tmp220969 |gxc[1]#_g220970_|)) (declare (not safe)) - (cons 'id __tmp218574)))) + (cons 'id __tmp220969)))) (declare (not safe)) - (cons __tmp218573 '())))) + (cons __tmp220968 '())))) (declare (not safe)) - (cons __tmp218576 __tmp218572)))) + (cons __tmp220971 __tmp220967)))) (declare (not safe)) (##unchecked-structure-set! - __obj217625 - __tmp218571 + __obj220015 + __tmp220966 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp218579 - (let ((__tmp218584 - (let ((__tmp218585 |gxc[1]#_g218586_|)) + (let ((__tmp220974 + (let ((__tmp220979 + (let ((__tmp220980 |gxc[1]#_g220981_|)) (declare (not safe)) - (cons 'clauses __tmp218585))) - (__tmp218580 - (let ((__tmp218581 - (let ((__tmp218582 |gxc[1]#_g218583_|)) + (cons 'clauses __tmp220980))) + (__tmp220975 + (let ((__tmp220976 + (let ((__tmp220977 |gxc[1]#_g220978_|)) (declare (not safe)) - (cons 'id __tmp218582)))) + (cons 'id __tmp220977)))) (declare (not safe)) - (cons __tmp218581 '())))) + (cons __tmp220976 '())))) (declare (not safe)) - (cons __tmp218584 __tmp218580)))) + (cons __tmp220979 __tmp220975)))) (declare (not safe)) (##unchecked-structure-set! - __obj217625 - __tmp218579 + __obj220015 + __tmp220974 '14 gerbil/core$$#class-type-info::t '#f)) - __obj217625)))) + __obj220015)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__rt.scm b/src/bootstrap/gerbil/compiler/optimize-base__rt.scm index 263524140..0c3de3fc3 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__rt.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__rt.scm @@ -2,6 +2,7 @@ (begin (begin (load-module "gerbil/expander__rt") + (load-module "gerbil/runtime/c3__rt") (load-module "gerbil/compiler/base__rt") (load-module "gerbil/compiler/compile__rt") (load-module "gerbil/core$_syntax-case___rt") diff --git a/src/bootstrap/gerbil/compiler/optimize-call__0.scm b/src/bootstrap/gerbil/compiler/optimize-call__0.scm index a476666ca..9a0e0ce04 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 1707573218) + (define gerbil/compiler/optimize-call::timestamp 1707674937) (begin (define gxc#&optimize-call (make-promise (lambda () - (let ((_tbl274325_ + (let ((_tbl277120_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp279084 (force gxc#&basic-xform))) + (let ((__tmp281979 (force gxc#&basic-xform))) (declare (not safe)) - (hash-copy! _tbl274325_ __tmp279084)) + (hash-copy! _tbl277120_ __tmp281979)) (let () (declare (not safe)) - (table-set! _tbl274325_ '%#call gxc#optimize-call%)) - _tbl274325_)))) + (table-set! _tbl277120_ '%#call gxc#optimize-call%)) + _tbl277120_)))) (define gxc#apply-optimize-call - (lambda (_stx274308_ . _args274310_) - (let ((__tmp279086 + (lambda (_stx277103_ . _args277105_) + (let ((__tmp281981 (lambda () (declare (not safe)) - (if (null? _args274310_) - (gxc#compile-e__0 _stx274308_) - (let ((_arg1274315_ (car _args274310_)) - (_rest274317_ (cdr _args274310_))) - (if (null? _rest274317_) - (gxc#compile-e__1 _stx274308_ _arg1274315_) - (let ((_arg2274320_ (car _rest274317_)) - (_rest274322_ (cdr _rest274317_))) - (if (null? _rest274322_) + (if (null? _args277105_) + (gxc#compile-e__0 _stx277103_) + (let ((_arg1277110_ (car _args277105_)) + (_rest277112_ (cdr _args277105_))) + (if (null? _rest277112_) + (gxc#compile-e__1 _stx277103_ _arg1277110_) + (let ((_arg2277115_ (car _rest277112_)) + (_rest277117_ (cdr _rest277112_))) + (if (null? _rest277117_) (gxc#compile-e__2 - _stx274308_ - _arg1274315_ - _arg2274320_) + _stx277103_ + _arg1277110_ + _arg2277115_) (apply gxc#compile-e - _stx274308_ - _arg1274315_ - _arg2274320_ - _rest274322_)))))))) - (__tmp279085 (force gxc#&optimize-call))) + _stx277103_ + _arg1277110_ + _arg2277115_ + _rest277117_)))))))) + (__tmp281980 (force gxc#&optimize-call))) (declare (not safe)) (call-with-parameters - __tmp279086 + __tmp281981 gxc#current-compile-methods - __tmp279085)))) + __tmp281980)))) (define gxc#optimize-call% - (lambda (_stx274163_) - (let* ((___stx278834278835_ _stx274163_) - (_g274166274186_ + (lambda (_stx276958_) + (let* ((___stx281729281730_ _stx276958_) + (_g276961276981_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx278834278835_))))) - (let ((___kont278836278837_ - (lambda (_L274230_ _L274231_) - (let* ((_rator-id274249_ + ___stx281729281730_))))) + (let ((___kont281731281732_ + (lambda (_L277025_ _L277026_) + (let* ((_rator-id277044_ (let () (declare (not safe)) - (gxc#identifier-symbol _L274231_))) - (_rator-type274251_ + (gxc#identifier-symbol _L277026_))) + (_rator-type277046_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _rator-id274249_)))) + (gxc#optimizer-resolve-type _rator-id277044_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _rator-type274251_ + _rator-type277046_ 'gxc#!procedure::t)) (begin - (let ((__tmp279087 + (let ((__tmp281982 (##structure-ref - _rator-type274251_ + _rator-type277046_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#verbose '"optimize-call " - _rator-id274249_ + _rator-id277044_ '" => " - _rator-type274251_ + _rator-type277046_ '" " - __tmp279087)) - (let ((_optimized274254_ - (let ((__method279082 + __tmp281982)) + (let ((_optimized277049_ + (let ((__method281977 (let () (declare (not safe)) (method-ref - _rator-type274251_ + _rator-type277046_ 'optimize-call)))) - (if __method279082 - (__method279082 - _rator-type274251_ - _stx274163_ - _L274230_) + (if __method281977 + (__method281977 + _rator-type277046_ + _stx276958_ + _L277025_) (error '"Missing method" - _rator-type274251_ + _rator-type277046_ 'optimize-call))))) (if (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _rator-type274251_)) - _optimized274254_ - (let* ((___stx278816278817_ _optimized274254_) - (_g274257274267_ + _rator-type277046_)) + _optimized277049_ + (let* ((___stx281711281712_ _optimized277049_) + (_g277052277062_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx278816278817_))))) - (let ((___kont278818278819_ - (lambda (_L274287_) - (let ((__tmp279088 + ___stx281711281712_))))) + (let ((___kont281713281714_ + (lambda (_L277082_) + (let ((__tmp281983 (let () (declare (not safe)) (cons '%#call-unchecked - _L274287_)))) + _L277082_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279088 - _stx274163_)))) - (___kont278820278821_ - (lambda () _optimized274254_))) + __tmp281983 + _stx276958_)))) + (___kont281715281716_ + (lambda () _optimized277049_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx278816278817_)) - (let ((_e274262274279_ + (gx#stx-pair? ___stx281711281712_)) + (let ((_e277057277074_ (let () (declare (not safe)) (gx#stx-e - ___stx278816278817_)))) - (let ((_tl274260274284_ + ___stx281711281712_)))) + (let ((_tl277055277079_ (let () (declare (not safe)) - (##cdr _e274262274279_))) - (_hd274261274282_ + (##cdr _e277057277074_))) + (_hd277056277077_ (let () (declare (not safe)) - (##car _e274262274279_)))) + (##car _e277057277074_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd274261274282_)) + _hd277056277077_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd274261274282_)) - (___kont278818278819_ - _tl274260274284_) - (___kont278820278821_)) - (___kont278820278821_)))) - (___kont278820278821_))))))) + _hd277056277077_)) + (___kont281713281714_ + _tl277055277079_) + (___kont281715281716_)) + (___kont281715281716_)))) + (___kont281715281716_))))))) (if (let () (declare (not safe)) - (not _rator-type274251_)) + (not _rator-type277046_)) (let () (declare (not safe)) - (gxc#xform-call% _stx274163_)) + (gxc#xform-call% _stx276958_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _stx274163_ - _rator-type274251_))))))) - (___kont278838278839_ + _stx276958_ + _rator-type277046_))))))) + (___kont281733281734_ (lambda () (let () (declare (not safe)) - (gxc#xform-call% _stx274163_))))) + (gxc#xform-call% _stx276958_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx278834278835_)) - (let ((_e274172274198_ + (gx#stx-pair? ___stx281729281730_)) + (let ((_e276967276993_ (let () (declare (not safe)) - (gx#stx-e ___stx278834278835_)))) - (let ((_tl274170274203_ - (let () (declare (not safe)) (##cdr _e274172274198_))) - (_hd274171274201_ + (gx#stx-e ___stx281729281730_)))) + (let ((_tl276965276998_ + (let () (declare (not safe)) (##cdr _e276967276993_))) + (_hd276966276996_ (let () (declare (not safe)) - (##car _e274172274198_)))) + (##car _e276967276993_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl274170274203_)) - (let ((_e274175274206_ + (gx#stx-pair? _tl276965276998_)) + (let ((_e276970277001_ (let () (declare (not safe)) - (gx#stx-e _tl274170274203_)))) - (let ((_tl274173274211_ + (gx#stx-e _tl276965276998_)))) + (let ((_tl276968277006_ (let () (declare (not safe)) - (##cdr _e274175274206_))) - (_hd274174274209_ + (##cdr _e276970277001_))) + (_hd276969277004_ (let () (declare (not safe)) - (##car _e274175274206_)))) + (##car _e276970277001_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd274174274209_)) - (let ((_e274178274214_ + (gx#stx-pair? _hd276969277004_)) + (let ((_e276973277009_ (let () (declare (not safe)) - (gx#stx-e _hd274174274209_)))) - (let ((_tl274176274219_ + (gx#stx-e _hd276969277004_)))) + (let ((_tl276971277014_ (let () (declare (not safe)) - (##cdr _e274178274214_))) - (_hd274177274217_ + (##cdr _e276973277009_))) + (_hd276972277012_ (let () (declare (not safe)) - (##car _e274178274214_)))) + (##car _e276973277009_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd274177274217_)) + (gx#identifier? _hd276972277012_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd274177274217_)) + _hd276972277012_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl274176274219_)) - (let ((_e274181274222_ + _tl276971277014_)) + (let ((_e276976277017_ (let () (declare (not safe)) (gx#stx-e - _tl274176274219_)))) - (let ((_tl274179274227_ + _tl276971277014_)))) + (let ((_tl276974277022_ (let () (declare (not safe)) - (##cdr _e274181274222_))) - (_hd274180274225_ + (##cdr _e276976277017_))) + (_hd276975277020_ (let () (declare (not safe)) - (##car _e274181274222_)))) + (##car _e276976277017_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl274179274227_)) - (___kont278836278837_ - _tl274173274211_ - _hd274180274225_) - (___kont278838278839_)))) - (___kont278838278839_)) - (___kont278838278839_)) - (___kont278838278839_)))) - (___kont278838278839_)))) - (___kont278838278839_)))) - (___kont278838278839_)))))) + _tl276974277022_)) + (___kont281731281732_ + _tl276968277006_ + _hd276975277020_) + (___kont281733281734_)))) + (___kont281733281734_)) + (___kont281733281734_)) + (___kont281733281734_)))) + (___kont281733281734_)))) + (___kont281733281734_)))) + (___kont281733281734_)))))) (define gxc#!predicate::optimize-call - (lambda (_self274117_ _stx274118_ _args274119_) - (let* ((_g274121274131_ - (lambda (_g274122274128_) + (lambda (_self276912_ _stx276913_ _args276914_) + (let* ((_g276916276926_ + (lambda (_g276917276923_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g274122274128_)))) - (_g274120274160_ - (lambda (_g274122274134_) + _g276917276923_)))) + (_g276915276955_ + (lambda (_g276917276929_) (if (let () (declare (not safe)) - (gx#stx-pair? _g274122274134_)) - (let ((_e274126274136_ + (gx#stx-pair? _g276917276929_)) + (let ((_e276921276931_ (let () (declare (not safe)) - (gx#stx-e _g274122274134_)))) - (let ((_hd274125274139_ + (gx#stx-e _g276917276929_)))) + (let ((_hd276920276934_ (let () (declare (not safe)) - (##car _e274126274136_))) - (_tl274124274141_ + (##car _e276921276931_))) + (_tl276919276936_ (let () (declare (not safe)) - (##cdr _e274126274136_)))) + (##cdr _e276921276931_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl274124274141_)) - ((lambda (_L274144_) - (let* ((_klass274155_ - (let ((__tmp279089 + (gx#stx-null? _tl276919276936_)) + ((lambda (_L276939_) + (let* ((_klass276950_ + (let ((__tmp281984 (##structure-ref - _self274117_ + _self276912_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx274118_ - __tmp279089))) - (_object274157_ + _stx276913_ + __tmp281984))) + (_object276952_ (let () (declare (not safe)) - (gxc#compile-e__0 _L274144_)))) + (gxc#compile-e__0 _L276939_)))) (if (##structure-ref - _klass274155_ + _klass276950_ '8 gxc#!class::t '#f) - (let ((__tmp279105 - (let ((__tmp279106 - (let ((__tmp279108 - (let ((__tmp279109 + (let ((__tmp282000 + (let ((__tmp282001 + (let ((__tmp282003 + (let ((__tmp282004 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279110 + (let ((__tmp282005 (##structure-ref - _klass274155_ + _klass276950_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279110 '())))) + (cons __tmp282005 '())))) (declare (not safe)) - (cons '%#quote __tmp279109))) - (__tmp279107 - (let () (declare (not safe)) (cons _object274157_ '())))) + (cons '%#quote __tmp282004))) + (__tmp282002 + (let () (declare (not safe)) (cons _object276952_ '())))) (declare (not safe)) - (cons __tmp279108 __tmp279107)))) + (cons __tmp282003 __tmp282002)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp279106)))) + __tmp282001)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279105 - _stx274118_)) + __tmp282000 + _stx276913_)) (if (##structure-ref - _klass274155_ + _klass276950_ '7 gxc#!class::t '#f) - (let ((__tmp279099 - (let ((__tmp279100 - (let ((__tmp279102 - (let ((__tmp279103 + (let ((__tmp281994 + (let ((__tmp281995 + (let ((__tmp281997 + (let ((__tmp281998 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279104 + (let ((__tmp281999 (##structure-ref - _klass274155_ + _klass276950_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279104 '())))) + (cons __tmp281999 '())))) (declare (not safe)) - (cons '%#quote __tmp279103))) - (__tmp279101 + (cons '%#quote __tmp281998))) + (__tmp281996 (let () (declare (not safe)) - (cons _object274157_ '())))) + (cons _object276952_ '())))) (declare (not safe)) - (cons __tmp279102 __tmp279101)))) + (cons __tmp281997 __tmp281996)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-instance? - __tmp279100)))) + __tmp281995)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279099 - _stx274118_)) - (let ((__tmp279090 - (let ((__tmp279091 - (let ((__tmp279097 - (let ((__tmp279098 + __tmp281994 + _stx276913_)) + (let ((__tmp281985 + (let ((__tmp281986 + (let ((__tmp281992 + (let ((__tmp281993 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp279098))) - (__tmp279092 - (let ((__tmp279094 - (let ((__tmp279095 - (let ((__tmp279096 + (cons '%#ref __tmp281993))) + (__tmp281987 + (let ((__tmp281989 + (let ((__tmp281990 + (let ((__tmp281991 (##structure-ref - _self274117_ + _self276912_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279096 '())))) + (cons __tmp281991 '())))) (declare (not safe)) - (cons '%#ref __tmp279095))) - (__tmp279093 + (cons '%#ref __tmp281990))) + (__tmp281988 (let () (declare (not safe)) - (cons _object274157_ '())))) + (cons _object276952_ '())))) (declare (not safe)) - (cons __tmp279094 __tmp279093)))) + (cons __tmp281989 __tmp281988)))) (declare (not safe)) - (cons __tmp279097 __tmp279092)))) + (cons __tmp281992 __tmp281987)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp279091)))) + __tmp281986)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279090 - _stx274118_)))))) - _hd274125274139_) + __tmp281985 + _stx276913_)))))) + _hd276920276934_) (let () (declare (not safe)) - (_g274121274131_ _g274122274134_))))) + (_g276916276926_ _g276917276929_))))) (let () (declare (not safe)) - (_g274121274131_ _g274122274134_)))))) + (_g276916276926_ _g276917276929_)))))) (declare (not safe)) - (_g274120274160_ _args274119_)))) + (_g276915276955_ _args276914_)))) (define gxc#!predicate::optimize-call::specialize - (lambda (__t278795) - (let ((__id278796 - (let ((__tmp278797 + (lambda (__t281690) + (let ((__id281691 + (let ((__tmp281692 (let () (declare (not safe)) - (class-slot-offset __t278795 'id)))) - (if __tmp278797 __tmp278797 (error '"Unknown slot" 'id))))) - (lambda (_self274117_ _stx274118_ _args274119_) - (let* ((_g274121274131_ - (lambda (_g274122274128_) + (class-slot-offset __t281690 'id)))) + (if __tmp281692 __tmp281692 (error '"Unknown slot" 'id))))) + (lambda (_self276912_ _stx276913_ _args276914_) + (let* ((_g276916276926_ + (lambda (_g276917276923_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g274122274128_)))) - (_g274120274160_ - (lambda (_g274122274134_) + _g276917276923_)))) + (_g276915276955_ + (lambda (_g276917276929_) (if (let () (declare (not safe)) - (gx#stx-pair? _g274122274134_)) - (let ((_e274126274136_ + (gx#stx-pair? _g276917276929_)) + (let ((_e276921276931_ (let () (declare (not safe)) - (gx#stx-e _g274122274134_)))) - (let ((_hd274125274139_ + (gx#stx-e _g276917276929_)))) + (let ((_hd276920276934_ (let () (declare (not safe)) - (##car _e274126274136_))) - (_tl274124274141_ + (##car _e276921276931_))) + (_tl276919276936_ (let () (declare (not safe)) - (##cdr _e274126274136_)))) + (##cdr _e276921276931_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl274124274141_)) - ((lambda (_L274144_) - (let* ((_klass274155_ - (let ((__tmp279111 + (gx#stx-null? _tl276919276936_)) + ((lambda (_L276939_) + (let* ((_klass276950_ + (let ((__tmp282006 (let () (declare (not safe)) (##unchecked-structure-ref - _self274117_ - __id278796 - __t278795 + _self276912_ + __id281691 + __t281690 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx274118_ - __tmp279111))) - (_object274157_ + _stx276913_ + __tmp282006))) + (_object276952_ (let () (declare (not safe)) - (gxc#compile-e__0 _L274144_)))) + (gxc#compile-e__0 _L276939_)))) (if (##structure-ref - _klass274155_ + _klass276950_ '8 gxc#!class::t '#f) - (let ((__tmp279127 - (let ((__tmp279128 - (let ((__tmp279130 - (let ((__tmp279131 + (let ((__tmp282022 + (let ((__tmp282023 + (let ((__tmp282025 + (let ((__tmp282026 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279132 + (let ((__tmp282027 (##structure-ref - _klass274155_ + _klass276950_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279132 '())))) + (cons __tmp282027 '())))) (declare (not safe)) - (cons '%#quote __tmp279131))) - (__tmp279129 + (cons '%#quote __tmp282026))) + (__tmp282024 (let () (declare (not safe)) - (cons _object274157_ '())))) + (cons _object276952_ '())))) (declare (not safe)) - (cons __tmp279130 __tmp279129)))) + (cons __tmp282025 __tmp282024)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp279128)))) + __tmp282023)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279127 - _stx274118_)) + __tmp282022 + _stx276913_)) (if (##structure-ref - _klass274155_ + _klass276950_ '7 gxc#!class::t '#f) - (let ((__tmp279121 - (let ((__tmp279122 - (let ((__tmp279124 + (let ((__tmp282016 + (let ((__tmp282017 + (let ((__tmp282019 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279125 - (let ((__tmp279126 + (let ((__tmp282020 + (let ((__tmp282021 (##structure-ref - _klass274155_ + _klass276950_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279126 '())))) + (cons __tmp282021 '())))) (declare (not safe)) - (cons '%#quote __tmp279125))) - (__tmp279123 + (cons '%#quote __tmp282020))) + (__tmp282018 (let () (declare (not safe)) - (cons _object274157_ '())))) + (cons _object276952_ '())))) (declare (not safe)) - (cons __tmp279124 __tmp279123)))) + (cons __tmp282019 __tmp282018)))) (declare (not safe)) - (cons '%#struct-instance? __tmp279122)))) + (cons '%#struct-instance? __tmp282017)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp279121 - _stx274118_)) - (let ((__tmp279112 - (let ((__tmp279113 - (let ((__tmp279119 + __tmp282016 + _stx276913_)) + (let ((__tmp282007 + (let ((__tmp282008 + (let ((__tmp282014 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279120 + (let ((__tmp282015 (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp279120))) - (__tmp279114 - (let ((__tmp279116 - (let ((__tmp279117 - (let ((__tmp279118 + (cons '%#ref __tmp282015))) + (__tmp282009 + (let ((__tmp282011 + (let ((__tmp282012 + (let ((__tmp282013 (let () (declare (not safe)) (##unchecked-structure-ref - _self274117_ - __id278796 - __t278795 + _self276912_ + __id281691 + __t281690 '#f)))) (declare (not safe)) - (cons __tmp279118 '())))) + (cons __tmp282013 '())))) (declare (not safe)) - (cons '%#ref __tmp279117))) - (__tmp279115 + (cons '%#ref __tmp282012))) + (__tmp282010 (let () (declare (not safe)) - (cons _object274157_ '())))) + (cons _object276952_ '())))) (declare (not safe)) - (cons __tmp279116 __tmp279115)))) + (cons __tmp282011 __tmp282010)))) (declare (not safe)) - (cons __tmp279119 __tmp279114)))) + (cons __tmp282014 __tmp282009)))) (declare (not safe)) - (cons '%#call __tmp279113)))) + (cons '%#call __tmp282008)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp279112 - _stx274118_)))))) - _hd274125274139_) + __tmp282007 + _stx276913_)))))) + _hd276920276934_) (let () (declare (not safe)) - (_g274121274131_ _g274122274134_))))) + (_g276916276926_ _g276917276929_))))) (let () (declare (not safe)) - (_g274121274131_ _g274122274134_)))))) + (_g276916276926_ _g276917276929_)))))) (declare (not safe)) - (_g274120274160_ _args274119_)))))) + (_g276915276955_ _args276914_)))))) (let () (declare (not safe)) (bind-specializer! @@ -600,220 +600,220 @@ gxc#!predicate::optimize-call '#f)) (define gxc#!constructor::optimize-call - (lambda (_self273848_ _stx273849_ _args273850_) - (let* ((_klass273852_ - (let ((__tmp279133 - (##structure-ref _self273848_ '1 gxc#!type::t '#f))) + (lambda (_self276643_ _stx276644_ _args276645_) + (let* ((_klass276647_ + (let ((__tmp282028 + (##structure-ref _self276643_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx273849_ __tmp279133))) - (_fields273854_ - (length (##structure-ref _klass273852_ '5 gxc#!class::t '#f))) - (_args273856_ (map gxc#compile-e _args273850_)) - (_inline-make-object273858_ - (let ((__tmp279134 - (let ((__tmp279140 - (let ((__tmp279141 + (gxc#optimizer-resolve-class _stx276644_ __tmp282028))) + (_fields276649_ + (length (##structure-ref _klass276647_ '5 gxc#!class::t '#f))) + (_args276651_ (map gxc#compile-e _args276645_)) + (_inline-make-object276653_ + (let ((__tmp282029 + (let ((__tmp282035 + (let ((__tmp282036 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp279141))) - (__tmp279135 - (let ((__tmp279137 - (let ((__tmp279138 - (let ((__tmp279139 + (cons '%#ref __tmp282036))) + (__tmp282030 + (let ((__tmp282032 + (let ((__tmp282033 + (let ((__tmp282034 (##structure-ref - _self273848_ + _self276643_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279139 '())))) + (cons __tmp282034 '())))) (declare (not safe)) - (cons '%#ref __tmp279138))) - (__tmp279136 - (make-list _fields273854_ '(%#quote #f)))) + (cons '%#ref __tmp282033))) + (__tmp282031 + (make-list _fields276649_ '(%#quote #f)))) (declare (not safe)) - (cons __tmp279137 __tmp279136)))) + (cons __tmp282032 __tmp282031)))) (declare (not safe)) - (cons __tmp279140 __tmp279135)))) + (cons __tmp282035 __tmp282030)))) (declare (not safe)) - (cons '%#call __tmp279134)))) - (let ((_$e273861_ - (##structure-ref _klass273852_ '6 gxc#!class::t '#f))) - (if _$e273861_ - ((lambda (_ctor273864_) - (let ((_$obj273866_ - (let ((__tmp279203 (gensym '__obj))) + (cons '%#call __tmp282029)))) + (let ((_$e276656_ + (##structure-ref _klass276647_ '6 gxc#!class::t '#f))) + (if _$e276656_ + ((lambda (_ctor276659_) + (let ((_$obj276661_ + (let ((__tmp282098 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp279203))) - (_ctor-impl273867_ + (make-symbol__0 __tmp282098))) + (_ctor-impl276662_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass273852_ - _ctor273864_)))) - (let ((__tmp279204 - (let ((__tmp279205 - (let ((__tmp279270 - (let ((__tmp279271 - (let ((__tmp279273 + _klass276647_ + _ctor276659_)))) + (let ((__tmp282099 + (let ((__tmp282100 + (let ((__tmp282165 + (let ((__tmp282166 + (let ((__tmp282168 (let () (declare (not safe)) - (cons _$obj273866_ + (cons _$obj276661_ '()))) - (__tmp279272 + (__tmp282167 (let () (declare (not safe)) - (cons _inline-make-object273858_ + (cons _inline-make-object276653_ '())))) (declare (not safe)) - (cons __tmp279273 - __tmp279272)))) + (cons __tmp282168 + __tmp282167)))) (declare (not safe)) - (cons __tmp279271 '()))) - (__tmp279206 - (let ((__tmp279207 - (let ((__tmp279208 - (let ((__tmp279212 - (if _ctor-impl273867_ + (cons __tmp282166 '()))) + (__tmp282101 + (let ((__tmp282102 + (let ((__tmp282103 + (let ((__tmp282107 + (if _ctor-impl276662_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279264 - (let ((__tmp279268 - (let ((__tmp279269 + (let ((__tmp282159 + (let ((__tmp282163 + (let ((__tmp282164 (let () (declare (not safe)) - (cons _ctor-impl273867_ + (cons _ctor-impl276662_ '())))) (declare (not safe)) - (cons '%#ref __tmp279269))) - (__tmp279265 - (let ((__tmp279266 - (let ((__tmp279267 + (cons '%#ref __tmp282164))) + (__tmp282160 + (let ((__tmp282161 + (let ((__tmp282162 (let () (declare (not safe)) - (cons _$obj273866_ + (cons _$obj276661_ '())))) (declare (not safe)) - (cons '%#ref __tmp279267)))) + (cons '%#ref __tmp282162)))) (declare (not safe)) - (cons __tmp279266 _args273856_)))) + (cons __tmp282161 _args276651_)))) (declare (not safe)) - (cons __tmp279268 __tmp279265)))) + (cons __tmp282163 __tmp282160)))) (declare (not safe)) - (cons '%#call __tmp279264)) - (let* ((_$ctor273869_ - (let ((__tmp279213 (gensym '__constructor))) + (cons '%#call __tmp282159)) + (let* ((_$ctor276664_ + (let ((__tmp282108 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp279213))) - (__tmp279214 - (let ((__tmp279249 - (let ((__tmp279250 - (let ((__tmp279263 + (make-symbol__0 __tmp282108))) + (__tmp282109 + (let ((__tmp282144 + (let ((__tmp282145 + (let ((__tmp282158 (let () (declare (not safe)) - (cons _$ctor273869_ + (cons _$ctor276664_ '()))) - (__tmp279251 - (let ((__tmp279252 - (let ((__tmp279253 + (__tmp282146 + (let ((__tmp282147 + (let ((__tmp282148 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279261 - (let ((__tmp279262 + (let ((__tmp282156 + (let ((__tmp282157 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp279262))) - (__tmp279254 - (let ((__tmp279258 - (let ((__tmp279259 - (let ((__tmp279260 + (cons '%#ref __tmp282157))) + (__tmp282149 + (let ((__tmp282153 + (let ((__tmp282154 + (let ((__tmp282155 (##structure-ref - _self273848_ + _self276643_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279260 '())))) + (cons __tmp282155 '())))) (declare (not safe)) - (cons '%#ref __tmp279259))) - (__tmp279255 - (let ((__tmp279256 - (let ((__tmp279257 + (cons '%#ref __tmp282154))) + (__tmp282150 + (let ((__tmp282151 + (let ((__tmp282152 (let () (declare (not safe)) - (cons _ctor273864_ + (cons _ctor276659_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#quote - __tmp279257)))) + __tmp282152)))) (declare (not safe)) - (cons __tmp279256 '())))) + (cons __tmp282151 '())))) (declare (not safe)) - (cons __tmp279258 __tmp279255)))) + (cons __tmp282153 __tmp282150)))) (declare (not safe)) - (cons __tmp279261 __tmp279254)))) + (cons __tmp282156 __tmp282149)))) (declare (not safe)) - (cons '%#call __tmp279253)))) + (cons '%#call __tmp282148)))) (declare (not safe)) - (cons __tmp279252 '())))) + (cons __tmp282147 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279263 - __tmp279251)))) + (cons __tmp282158 + __tmp282146)))) (declare (not safe)) - (cons __tmp279250 '()))) - (__tmp279215 - (let ((__tmp279216 - (let ((__tmp279217 - (let ((__tmp279247 - (let ((__tmp279248 + (cons __tmp282145 '()))) + (__tmp282110 + (let ((__tmp282111 + (let ((__tmp282112 + (let ((__tmp282142 + (let ((__tmp282143 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$ctor273869_ '())))) + (cons _$ctor276664_ '())))) (declare (not safe)) - (cons '%#ref __tmp279248))) - (__tmp279218 - (let ((__tmp279240 - (let ((__tmp279241 - (let ((__tmp279245 - (let ((__tmp279246 + (cons '%#ref __tmp282143))) + (__tmp282113 + (let ((__tmp282135 + (let ((__tmp282136 + (let ((__tmp282140 + (let ((__tmp282141 (let () (declare (not safe)) - (cons _$ctor273869_ + (cons _$ctor276664_ '())))) (declare (not safe)) - (cons '%#ref __tmp279246))) - (__tmp279242 - (let ((__tmp279243 - (let ((__tmp279244 + (cons '%#ref __tmp282141))) + (__tmp282137 + (let ((__tmp282138 + (let ((__tmp282139 (let () (declare (not safe)) - (cons _$obj273866_ + (cons _$obj276661_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp279244)))) + __tmp282139)))) (declare (not safe)) - (cons __tmp279243 - _args273856_)))) + (cons __tmp282138 + _args276651_)))) (declare (not safe)) - (cons __tmp279245 __tmp279242)))) + (cons __tmp282140 __tmp282137)))) (declare (not safe)) - (cons '%#call __tmp279241))) - (__tmp279219 - (let ((__tmp279220 - (let ((__tmp279221 - (let ((__tmp279238 - (let ((__tmp279239 + (cons '%#call __tmp282136))) + (__tmp282114 + (let ((__tmp282115 + (let ((__tmp282116 + (let ((__tmp282133 + (let ((__tmp282134 (let () (declare (not safe)) @@ -823,341 +823,341 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp279239))) - (__tmp279222 - (let ((__tmp279236 - (let ((__tmp279237 + __tmp282134))) + (__tmp282117 + (let ((__tmp282131 + (let ((__tmp282132 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp279237))) - (__tmp279223 - (let ((__tmp279234 - (let ((__tmp279235 + (cons '%#quote __tmp282132))) + (__tmp282118 + (let ((__tmp282129 + (let ((__tmp282130 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp279235))) - (__tmp279224 - (let ((__tmp279231 - (let ((__tmp279232 - (let ((__tmp279233 + (cons '%#quote __tmp282130))) + (__tmp282119 + (let ((__tmp282126 + (let ((__tmp282127 + (let ((__tmp282128 (##structure-ref - _self273848_ + _self276643_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279233 '())))) + (cons __tmp282128 '())))) (declare (not safe)) - (cons '%#ref __tmp279232))) - (__tmp279225 - (let ((__tmp279229 - (let ((__tmp279230 + (cons '%#ref __tmp282127))) + (__tmp282120 + (let ((__tmp282124 + (let ((__tmp282125 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp279230))) - (__tmp279226 - (let ((__tmp279227 - (let ((__tmp279228 + (cons '%#quote __tmp282125))) + (__tmp282121 + (let ((__tmp282122 + (let ((__tmp282123 (let () (declare (not safe)) - (cons _ctor273864_ + (cons _ctor276659_ '())))) (declare (not safe)) - (cons '%#quote __tmp279228)))) + (cons '%#quote __tmp282123)))) (declare (not safe)) - (cons __tmp279227 '())))) + (cons __tmp282122 '())))) (declare (not safe)) - (cons __tmp279229 __tmp279226)))) + (cons __tmp282124 __tmp282121)))) (declare (not safe)) - (cons __tmp279231 __tmp279225)))) + (cons __tmp282126 __tmp282120)))) (declare (not safe)) - (cons __tmp279234 __tmp279224)))) + (cons __tmp282129 __tmp282119)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279236 - __tmp279223)))) + (cons __tmp282131 + __tmp282118)))) (declare (not safe)) - (cons __tmp279238 __tmp279222)))) + (cons __tmp282133 __tmp282117)))) (declare (not safe)) - (cons '%#call __tmp279221)))) + (cons '%#call __tmp282116)))) (declare (not safe)) - (cons __tmp279220 '())))) + (cons __tmp282115 '())))) (declare (not safe)) - (cons __tmp279240 __tmp279219)))) + (cons __tmp282135 __tmp282114)))) (declare (not safe)) - (cons __tmp279247 __tmp279218)))) + (cons __tmp282142 __tmp282113)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp279217)))) + (cons '%#if __tmp282112)))) (declare (not safe)) - (cons __tmp279216 '())))) + (cons __tmp282111 '())))) (declare (not safe)) - (cons __tmp279249 __tmp279215)))) + (cons __tmp282144 __tmp282110)))) (declare (not safe)) - (cons '%#let-values __tmp279214)))) - (__tmp279209 - (let ((__tmp279210 - (let ((__tmp279211 + (cons '%#let-values __tmp282109)))) + (__tmp282104 + (let ((__tmp282105 + (let ((__tmp282106 (let () (declare (not safe)) - (cons _$obj273866_ '())))) + (cons _$obj276661_ '())))) (declare (not safe)) - (cons '%#ref __tmp279211)))) + (cons '%#ref __tmp282106)))) (declare (not safe)) - (cons __tmp279210 '())))) + (cons __tmp282105 '())))) (declare (not safe)) - (cons __tmp279212 __tmp279209)))) + (cons __tmp282107 __tmp282104)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#begin - __tmp279208)))) + __tmp282103)))) (declare (not safe)) - (cons __tmp279207 '())))) + (cons __tmp282102 '())))) (declare (not safe)) - (cons __tmp279270 __tmp279206)))) + (cons __tmp282165 __tmp282101)))) (declare (not safe)) - (cons '%#let-values __tmp279205)))) + (cons '%#let-values __tmp282100)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279204 _stx273849_)))) - _$e273861_) - (if (##structure-ref _klass273852_ '7 gxc#!class::t '#f) - (if (fx= (length _args273856_) _fields273854_) - (let ((__tmp279195 - (let ((__tmp279196 - (let ((__tmp279201 - (let ((__tmp279202 + (gxc#xform-wrap-source __tmp282099 _stx276644_)))) + _$e276656_) + (if (##structure-ref _klass276647_ '7 gxc#!class::t '#f) + (if (fx= (length _args276651_) _fields276649_) + (let ((__tmp282090 + (let ((__tmp282091 + (let ((__tmp282096 + (let ((__tmp282097 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp279202))) - (__tmp279197 - (let ((__tmp279198 - (let ((__tmp279199 - (let ((__tmp279200 + (cons '%#ref __tmp282097))) + (__tmp282092 + (let ((__tmp282093 + (let ((__tmp282094 + (let ((__tmp282095 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##structure-ref _self273848_ '1 gxc#!type::t '#f))) + (##structure-ref _self276643_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279200 '())))) + (cons __tmp282095 '())))) (declare (not safe)) - (cons '%#ref __tmp279199)))) + (cons '%#ref __tmp282094)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279198 - _args273856_)))) + (cons __tmp282093 + _args276651_)))) (declare (not safe)) - (cons __tmp279201 __tmp279197)))) + (cons __tmp282096 __tmp282092)))) (declare (not safe)) - (cons '%#call __tmp279196)))) + (cons '%#call __tmp282091)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279195 _stx273849_)) - (let ((__tmp279194 + (gxc#xform-wrap-source __tmp282090 _stx276644_)) + (let ((__tmp282089 (##structure-ref - _self273848_ + _self276643_ '1 gxc#!type::t '#f)) - (__tmp279193 + (__tmp282088 (length (##structure-ref - _klass273852_ + _klass276647_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx273849_ - __tmp279194 - __tmp279193))) - (let ((_$obj273871_ - (let ((__tmp279142 (gensym '__obj))) + _stx276644_ + __tmp282089 + __tmp282088))) + (let ((_$obj276666_ + (let ((__tmp282037 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp279142)))) - (let _lp273873_ ((_rest273875_ _args273856_) - (_initializers273876_ '())) - (let* ((___stx278872278873_ _rest273875_) - (_g273880273901_ + (make-symbol__0 __tmp282037)))) + (let _lp276668_ ((_rest276670_ _args276651_) + (_initializers276671_ '())) + (let* ((___stx281767281768_ _rest276670_) + (_g276675276696_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx278872278873_))))) - (let ((___kont278874278875_ - (lambda (_L273955_ _L273956_ _L273957_) - (let* ((_slot273987_ + ___stx281767281768_))))) + (let ((___kont281769281770_ + (lambda (_L276750_ _L276751_ _L276752_) + (let* ((_slot276782_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L273957_)))) - (_off273989_ + (gx#stx-e _L276752_)))) + (_off276784_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass273852_ - _slot273987_)))) - (if _off273989_ - (let ((__tmp279144 - (let ((__tmp279145 + _klass276647_ + _slot276782_)))) + (if _off276784_ + (let ((__tmp282039 + (let ((__tmp282040 (let () (declare (not safe)) - (cons _off273989_ - _L273956_)))) + (cons _off276784_ + _L276751_)))) (declare (not safe)) - (cons __tmp279145 - _initializers273876_)))) + (cons __tmp282040 + _initializers276671_)))) (declare (not safe)) - (_lp273873_ _L273955_ __tmp279144)) - (let ((__tmp279143 + (_lp276668_ _L276750_ __tmp282039)) + (let ((__tmp282038 (##structure-ref - _self273848_ + _self276643_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx273849_ - __tmp279143 - _slot273987_)))))) - (___kont278876278877_ + _stx276644_ + __tmp282038 + _slot276782_)))))) + (___kont281771281772_ (lambda () - (let ((__tmp279146 - (let ((__tmp279147 - (let ((__tmp279170 - (let ((__tmp279171 - (let ((__tmp279173 + (let ((__tmp282041 + (let ((__tmp282042 + (let ((__tmp282065 + (let ((__tmp282066 + (let ((__tmp282068 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj273871_ '()))) - (__tmp279172 + (cons _$obj276666_ '()))) + (__tmp282067 (let () (declare (not safe)) - (cons _inline-make-object273858_ '())))) + (cons _inline-make-object276653_ '())))) (declare (not safe)) - (cons __tmp279173 __tmp279172)))) + (cons __tmp282068 __tmp282067)))) (declare (not safe)) - (cons __tmp279171 '()))) - (__tmp279148 - (let ((__tmp279149 - (let ((__tmp279150 - (let ((__tmp279167 - (let ((__tmp279168 - (let ((__tmp279169 + (cons __tmp282066 '()))) + (__tmp282043 + (let ((__tmp282044 + (let ((__tmp282045 + (let ((__tmp282062 + (let ((__tmp282063 + (let ((__tmp282064 (let () (declare (not safe)) - (cons _$obj273871_ '())))) + (cons _$obj276666_ '())))) (declare (not safe)) - (cons '%#ref __tmp279169)))) + (cons '%#ref __tmp282064)))) (declare (not safe)) - (cons __tmp279168 '()))) - (__tmp279151 - (let ((__tmp279152 - (lambda (_i273915_ _r273916_) - (let ((__tmp279153 - (let ((__tmp279154 - (let ((__tmp279164 + (cons __tmp282063 '()))) + (__tmp282046 + (let ((__tmp282047 + (lambda (_i276710_ _r276711_) + (let ((__tmp282048 + (let ((__tmp282049 + (let ((__tmp282059 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279165 - (let ((__tmp279166 + (let ((__tmp282060 + (let ((__tmp282061 (##structure-ref - _self273848_ + _self276643_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279166 '())))) + (cons __tmp282061 '())))) (declare (not safe)) - (cons '%#ref __tmp279165))) - (__tmp279155 - (let ((__tmp279161 - (let ((__tmp279162 - (let ((__tmp279163 (car _i273915_))) + (cons '%#ref __tmp282060))) + (__tmp282050 + (let ((__tmp282056 + (let ((__tmp282057 + (let ((__tmp282058 (car _i276710_))) (declare (not safe)) - (cons __tmp279163 '())))) + (cons __tmp282058 '())))) (declare (not safe)) - (cons '%#quote __tmp279162))) - (__tmp279156 - (let ((__tmp279159 - (let ((__tmp279160 + (cons '%#quote __tmp282057))) + (__tmp282051 + (let ((__tmp282054 + (let ((__tmp282055 (let () (declare (not safe)) - (cons _$obj273871_ '())))) + (cons _$obj276666_ '())))) (declare (not safe)) - (cons '%#ref __tmp279160))) - (__tmp279157 - (let ((__tmp279158 (cdr _i273915_))) + (cons '%#ref __tmp282055))) + (__tmp282052 + (let ((__tmp282053 (cdr _i276710_))) (declare (not safe)) - (cons __tmp279158 '())))) + (cons __tmp282053 '())))) (declare (not safe)) - (cons __tmp279159 __tmp279157)))) + (cons __tmp282054 __tmp282052)))) (declare (not safe)) - (cons __tmp279161 __tmp279156)))) + (cons __tmp282056 __tmp282051)))) (declare (not safe)) - (cons __tmp279164 __tmp279155)))) + (cons __tmp282059 __tmp282050)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp279154)))) + (cons '%#struct-unchecked-set! __tmp282049)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279153 - _r273916_))))) + (cons __tmp282048 + _r276711_))))) (declare (not safe)) - (foldl1 __tmp279152 + (foldl1 __tmp282047 '() - _initializers273876_)))) + _initializers276671_)))) (declare (not safe)) - (foldr1 cons __tmp279167 __tmp279151)))) + (foldr1 cons __tmp282062 __tmp282046)))) (declare (not safe)) - (cons '%#begin __tmp279150)))) + (cons '%#begin __tmp282045)))) (declare (not safe)) - (cons __tmp279149 '())))) + (cons __tmp282044 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279170 - __tmp279148)))) + (cons __tmp282065 + __tmp282043)))) (declare (not safe)) - (cons '%#let-values __tmp279147)))) + (cons '%#let-values __tmp282042)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279146 - _stx273849_)))) - (___kont278878278879_ + __tmp282041 + _stx276644_)))) + (___kont281773281774_ (lambda () - (let ((__tmp279174 - (let ((__tmp279175 - (let ((__tmp279189 - (let ((__tmp279190 - (let ((__tmp279192 + (let ((__tmp282069 + (let ((__tmp282070 + (let ((__tmp282084 + (let ((__tmp282085 + (let ((__tmp282087 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj273871_ '()))) - (__tmp279191 + (cons _$obj276666_ '()))) + (__tmp282086 (let () (declare (not safe)) - (cons _inline-make-object273858_ '())))) + (cons _inline-make-object276653_ '())))) (declare (not safe)) - (cons __tmp279192 __tmp279191)))) + (cons __tmp282087 __tmp282086)))) (declare (not safe)) - (cons __tmp279190 '()))) - (__tmp279176 - (let ((__tmp279177 - (let ((__tmp279178 - (let ((__tmp279182 - (let ((__tmp279183 - (let ((__tmp279187 - (let ((__tmp279188 + (cons __tmp282085 '()))) + (__tmp282071 + (let ((__tmp282072 + (let ((__tmp282073 + (let ((__tmp282077 + (let ((__tmp282078 + (let ((__tmp282082 + (let ((__tmp282083 (let () (declare (not safe)) @@ -1167,971 +1167,971 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp279188))) - (__tmp279184 - (let ((__tmp279185 - (let ((__tmp279186 + __tmp282083))) + (__tmp282079 + (let ((__tmp282080 + (let ((__tmp282081 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj273871_ '())))) + (cons _$obj276666_ '())))) (declare (not safe)) - (cons '%#ref __tmp279186)))) + (cons '%#ref __tmp282081)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279185 - _args273856_)))) + (cons __tmp282080 + _args276651_)))) (declare (not safe)) - (cons __tmp279187 __tmp279184)))) + (cons __tmp282082 __tmp282079)))) (declare (not safe)) - (cons '%#call __tmp279183))) - (__tmp279179 - (let ((__tmp279180 - (let ((__tmp279181 + (cons '%#call __tmp282078))) + (__tmp282074 + (let ((__tmp282075 + (let ((__tmp282076 (let () (declare (not safe)) - (cons _$obj273871_ '())))) + (cons _$obj276666_ '())))) (declare (not safe)) - (cons '%#ref __tmp279181)))) + (cons '%#ref __tmp282076)))) (declare (not safe)) - (cons __tmp279180 '())))) + (cons __tmp282075 '())))) (declare (not safe)) - (cons __tmp279182 __tmp279179)))) + (cons __tmp282077 __tmp282074)))) (declare (not safe)) - (cons '%#begin __tmp279178)))) + (cons '%#begin __tmp282073)))) (declare (not safe)) - (cons __tmp279177 '())))) + (cons __tmp282072 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279189 - __tmp279176)))) + (cons __tmp282084 + __tmp282071)))) (declare (not safe)) - (cons '%#let-values __tmp279175)))) + (cons '%#let-values __tmp282070)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279174 - _stx273849_))))) - (let* ((_g273878273918_ + __tmp282069 + _stx276644_))))) + (let* ((_g276673276713_ (lambda () (if (let () (declare (not safe)) - (gx#stx-null? ___stx278872278873_)) - (___kont278876278877_) - (___kont278878278879_)))) - (___match278909278910_ - (lambda (_e273887273923_ - _hd273886273926_ - _tl273885273928_ - _e273890273931_ - _hd273889273934_ - _tl273888273936_ - _e273893273939_ - _hd273892273942_ - _tl273891273944_ - _e273896273947_ - _hd273895273950_ - _tl273894273952_) - (let ((_L273955_ _tl273894273952_) - (_L273956_ _hd273895273950_) - (_L273957_ _hd273892273942_)) + (gx#stx-null? ___stx281767281768_)) + (___kont281771281772_) + (___kont281773281774_)))) + (___match281804281805_ + (lambda (_e276682276718_ + _hd276681276721_ + _tl276680276723_ + _e276685276726_ + _hd276684276729_ + _tl276683276731_ + _e276688276734_ + _hd276687276737_ + _tl276686276739_ + _e276691276742_ + _hd276690276745_ + _tl276689276747_) + (let ((_L276750_ _tl276689276747_) + (_L276751_ _hd276690276745_) + (_L276752_ _hd276687276737_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _L273957_)) - (___kont278874278875_ - _L273955_ - _L273956_ - _L273957_) - (___kont278878278879_)))))) + (gx#stx-keyword? _L276752_)) + (___kont281769281770_ + _L276750_ + _L276751_ + _L276752_) + (___kont281773281774_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx278872278873_)) - (let ((_e273887273923_ + (gx#stx-pair? ___stx281767281768_)) + (let ((_e276682276718_ (let () (declare (not safe)) - (gx#stx-e ___stx278872278873_)))) - (let ((_tl273885273928_ + (gx#stx-e ___stx281767281768_)))) + (let ((_tl276680276723_ (let () (declare (not safe)) - (##cdr _e273887273923_))) - (_hd273886273926_ + (##cdr _e276682276718_))) + (_hd276681276721_ (let () (declare (not safe)) - (##car _e273887273923_)))) + (##car _e276682276718_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd273886273926_)) - (let ((_e273890273931_ + (gx#stx-pair? _hd276681276721_)) + (let ((_e276685276726_ (let () (declare (not safe)) (gx#stx-e - _hd273886273926_)))) - (let ((_tl273888273936_ + _hd276681276721_)))) + (let ((_tl276683276731_ (let () (declare (not safe)) - (##cdr _e273890273931_))) - (_hd273889273934_ + (##cdr _e276685276726_))) + (_hd276684276729_ (let () (declare (not safe)) - (##car _e273890273931_)))) + (##car _e276685276726_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd273889273934_)) + _hd276684276729_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd273889273934_)) + _hd276684276729_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl273888273936_)) - (let ((_e273893273939_ + _tl276683276731_)) + (let ((_e276688276734_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl273888273936_)))) - (let ((_tl273891273944_ + (gx#stx-e _tl276683276731_)))) + (let ((_tl276686276739_ (let () (declare (not safe)) - (##cdr _e273893273939_))) - (_hd273892273942_ + (##cdr _e276688276734_))) + (_hd276687276737_ (let () (declare (not safe)) - (##car _e273893273939_)))) + (##car _e276688276734_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl273891273944_)) + (gx#stx-null? _tl276686276739_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl273885273928_)) - (let ((_e273896273947_ + (gx#stx-pair? _tl276680276723_)) + (let ((_e276691276742_ (let () (declare (not safe)) - (gx#stx-e _tl273885273928_)))) - (let ((_tl273894273952_ + (gx#stx-e _tl276680276723_)))) + (let ((_tl276689276747_ (let () (declare (not safe)) - (##cdr _e273896273947_))) - (_hd273895273950_ + (##cdr _e276691276742_))) + (_hd276690276745_ (let () (declare (not safe)) - (##car _e273896273947_)))) - (___match278909278910_ - _e273887273923_ - _hd273886273926_ - _tl273885273928_ - _e273890273931_ - _hd273889273934_ - _tl273888273936_ - _e273893273939_ - _hd273892273942_ - _tl273891273944_ - _e273896273947_ - _hd273895273950_ - _tl273894273952_))) - (___kont278878278879_)) - (___kont278878278879_)))) - (___kont278878278879_)) - (___kont278878278879_)) + (##car _e276691276742_)))) + (___match281804281805_ + _e276682276718_ + _hd276681276721_ + _tl276680276723_ + _e276685276726_ + _hd276684276729_ + _tl276683276731_ + _e276688276734_ + _hd276687276737_ + _tl276686276739_ + _e276691276742_ + _hd276690276745_ + _tl276689276747_))) + (___kont281773281774_)) + (___kont281773281774_)))) + (___kont281773281774_)) + (___kont281773281774_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont278878278879_)))) - (___kont278878278879_)))) + (___kont281773281774_)))) + (___kont281773281774_)))) (let () (declare (not safe)) - (_g273878273918_)))))))))))))) + (_g276673276713_)))))))))))))) (define gxc#!constructor::optimize-call::specialize - (lambda (__t278798) - (let ((__id278799 - (let ((__tmp278800 + (lambda (__t281693) + (let ((__id281694 + (let ((__tmp281695 (let () (declare (not safe)) - (class-slot-offset __t278798 'id)))) - (if __tmp278800 __tmp278800 (error '"Unknown slot" 'id))))) - (lambda (_self273848_ _stx273849_ _args273850_) - (let* ((_klass273852_ - (let ((__tmp279274 + (class-slot-offset __t281693 'id)))) + (if __tmp281695 __tmp281695 (error '"Unknown slot" 'id))))) + (lambda (_self276643_ _stx276644_ _args276645_) + (let* ((_klass276647_ + (let ((__tmp282169 (let () (declare (not safe)) (##unchecked-structure-ref - _self273848_ - __id278799 - __t278798 + _self276643_ + __id281694 + __t281693 '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx273849_ __tmp279274))) - (_fields273854_ + (gxc#optimizer-resolve-class _stx276644_ __tmp282169))) + (_fields276649_ (length (##structure-ref - _klass273852_ + _klass276647_ '5 gxc#!class::t '#f))) - (_args273856_ (map gxc#compile-e _args273850_)) - (_inline-make-object273858_ - (let ((__tmp279275 - (let ((__tmp279281 - (let ((__tmp279282 + (_args276651_ (map gxc#compile-e _args276645_)) + (_inline-make-object276653_ + (let ((__tmp282170 + (let ((__tmp282176 + (let ((__tmp282177 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp279282))) - (__tmp279276 - (let ((__tmp279278 - (let ((__tmp279279 - (let ((__tmp279280 + (cons '%#ref __tmp282177))) + (__tmp282171 + (let ((__tmp282173 + (let ((__tmp282174 + (let ((__tmp282175 (let () (declare (not safe)) (##unchecked-structure-ref - _self273848_ - __id278799 - __t278798 + _self276643_ + __id281694 + __t281693 '#f)))) (declare (not safe)) - (cons __tmp279280 '())))) + (cons __tmp282175 '())))) (declare (not safe)) - (cons '%#ref __tmp279279))) - (__tmp279277 + (cons '%#ref __tmp282174))) + (__tmp282172 (make-list - _fields273854_ + _fields276649_ '(%#quote #f)))) (declare (not safe)) - (cons __tmp279278 __tmp279277)))) + (cons __tmp282173 __tmp282172)))) (declare (not safe)) - (cons __tmp279281 __tmp279276)))) + (cons __tmp282176 __tmp282171)))) (declare (not safe)) - (cons '%#call __tmp279275)))) - (let ((_$e273861_ - (##structure-ref _klass273852_ '6 gxc#!class::t '#f))) - (if _$e273861_ - ((lambda (_ctor273864_) - (let ((_$obj273866_ - (let ((__tmp279344 (gensym '__obj))) + (cons '%#call __tmp282170)))) + (let ((_$e276656_ + (##structure-ref _klass276647_ '6 gxc#!class::t '#f))) + (if _$e276656_ + ((lambda (_ctor276659_) + (let ((_$obj276661_ + (let ((__tmp282239 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp279344))) - (_ctor-impl273867_ + (make-symbol__0 __tmp282239))) + (_ctor-impl276662_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass273852_ - _ctor273864_)))) - (let ((__tmp279345 - (let ((__tmp279346 - (let ((__tmp279411 - (let ((__tmp279412 - (let ((__tmp279414 + _klass276647_ + _ctor276659_)))) + (let ((__tmp282240 + (let ((__tmp282241 + (let ((__tmp282306 + (let ((__tmp282307 + (let ((__tmp282309 (let () (declare (not safe)) - (cons _$obj273866_ + (cons _$obj276661_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp279413 + (__tmp282308 (let () (declare (not safe)) - (cons _inline-make-object273858_ '())))) + (cons _inline-make-object276653_ '())))) (declare (not safe)) - (cons __tmp279414 __tmp279413)))) + (cons __tmp282309 __tmp282308)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279412 '()))) - (__tmp279347 - (let ((__tmp279348 - (let ((__tmp279349 - (let ((__tmp279353 + (cons __tmp282307 '()))) + (__tmp282242 + (let ((__tmp282243 + (let ((__tmp282244 + (let ((__tmp282248 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _ctor-impl273867_ - (let ((__tmp279405 - (let ((__tmp279409 - (let ((__tmp279410 + (if _ctor-impl276662_ + (let ((__tmp282300 + (let ((__tmp282304 + (let ((__tmp282305 (let () (declare (not safe)) - (cons _ctor-impl273867_ + (cons _ctor-impl276662_ '())))) (declare (not safe)) - (cons '%#ref __tmp279410))) - (__tmp279406 - (let ((__tmp279407 - (let ((__tmp279408 + (cons '%#ref __tmp282305))) + (__tmp282301 + (let ((__tmp282302 + (let ((__tmp282303 (let () (declare (not safe)) - (cons _$obj273866_ + (cons _$obj276661_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp279408)))) + (cons '%#ref __tmp282303)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279407 - _args273856_)))) + (cons __tmp282302 + _args276651_)))) (declare (not safe)) - (cons __tmp279409 __tmp279406)))) + (cons __tmp282304 __tmp282301)))) (declare (not safe)) - (cons '%#call __tmp279405)) - (let* ((_$ctor273869_ - (let ((__tmp279354 + (cons '%#call __tmp282300)) + (let* ((_$ctor276664_ + (let ((__tmp282249 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp279354))) - (__tmp279355 - (let ((__tmp279390 - (let ((__tmp279391 - (let ((__tmp279404 + (make-symbol__0 __tmp282249))) + (__tmp282250 + (let ((__tmp282285 + (let ((__tmp282286 + (let ((__tmp282299 (let () (declare (not safe)) - (cons _$ctor273869_ + (cons _$ctor276664_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp279392 - (let ((__tmp279393 - (let ((__tmp279394 - (let ((__tmp279402 - (let ((__tmp279403 + (__tmp282287 + (let ((__tmp282288 + (let ((__tmp282289 + (let ((__tmp282297 + (let ((__tmp282298 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp279403))) - (__tmp279395 - (let ((__tmp279399 - (let ((__tmp279400 - (let ((__tmp279401 + (cons '%#ref __tmp282298))) + (__tmp282290 + (let ((__tmp282294 + (let ((__tmp282295 + (let ((__tmp282296 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self273848_ - __id278799 - __t278798 + _self276643_ + __id281694 + __t281693 '#f)))) (declare (not safe)) - (cons __tmp279401 '())))) + (cons __tmp282296 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp279400))) - (__tmp279396 - (let ((__tmp279397 - (let ((__tmp279398 + (cons '%#ref __tmp282295))) + (__tmp282291 + (let ((__tmp282292 + (let ((__tmp282293 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _ctor273864_ '())))) + (cons _ctor276659_ '())))) (declare (not safe)) - (cons '%#quote __tmp279398)))) + (cons '%#quote __tmp282293)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279397 '())))) + (cons __tmp282292 '())))) (declare (not safe)) - (cons __tmp279399 __tmp279396)))) + (cons __tmp282294 __tmp282291)))) (declare (not safe)) - (cons __tmp279402 __tmp279395)))) + (cons __tmp282297 __tmp282290)))) (declare (not safe)) - (cons '%#call __tmp279394)))) + (cons '%#call __tmp282289)))) (declare (not safe)) - (cons __tmp279393 '())))) + (cons __tmp282288 '())))) (declare (not safe)) - (cons __tmp279404 __tmp279392)))) + (cons __tmp282299 __tmp282287)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279391 '()))) - (__tmp279356 - (let ((__tmp279357 - (let ((__tmp279358 - (let ((__tmp279388 + (cons __tmp282286 '()))) + (__tmp282251 + (let ((__tmp282252 + (let ((__tmp282253 + (let ((__tmp282283 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279389 + (let ((__tmp282284 (let () (declare (not safe)) - (cons _$ctor273869_ '())))) + (cons _$ctor276664_ '())))) (declare (not safe)) - (cons '%#ref __tmp279389))) - (__tmp279359 - (let ((__tmp279381 - (let ((__tmp279382 - (let ((__tmp279386 - (let ((__tmp279387 + (cons '%#ref __tmp282284))) + (__tmp282254 + (let ((__tmp282276 + (let ((__tmp282277 + (let ((__tmp282281 + (let ((__tmp282282 (let () (declare (not safe)) - (cons _$ctor273869_ + (cons _$ctor276664_ '())))) (declare (not safe)) - (cons '%#ref __tmp279387))) - (__tmp279383 - (let ((__tmp279384 - (let ((__tmp279385 + (cons '%#ref __tmp282282))) + (__tmp282278 + (let ((__tmp282279 + (let ((__tmp282280 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj273866_ '())))) + (cons _$obj276661_ '())))) (declare (not safe)) - (cons '%#ref __tmp279385)))) + (cons '%#ref __tmp282280)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279384 - _args273856_)))) + (cons __tmp282279 + _args276651_)))) (declare (not safe)) - (cons __tmp279386 __tmp279383)))) + (cons __tmp282281 __tmp282278)))) (declare (not safe)) - (cons '%#call __tmp279382))) - (__tmp279360 - (let ((__tmp279361 - (let ((__tmp279362 - (let ((__tmp279379 - (let ((__tmp279380 + (cons '%#call __tmp282277))) + (__tmp282255 + (let ((__tmp282256 + (let ((__tmp282257 + (let ((__tmp282274 + (let ((__tmp282275 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp279380))) - (__tmp279363 - (let ((__tmp279377 - (let ((__tmp279378 + (cons '%#ref __tmp282275))) + (__tmp282258 + (let ((__tmp282272 + (let ((__tmp282273 (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp279378))) - (__tmp279364 - (let ((__tmp279375 - (let ((__tmp279376 + (cons '%#quote __tmp282273))) + (__tmp282259 + (let ((__tmp282270 + (let ((__tmp282271 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp279376))) - (__tmp279365 - (let ((__tmp279372 - (let ((__tmp279373 - (let ((__tmp279374 + (cons '%#quote __tmp282271))) + (__tmp282260 + (let ((__tmp282267 + (let ((__tmp282268 + (let ((__tmp282269 (let () (declare (not safe)) (##unchecked-structure-ref - _self273848_ - __id278799 - __t278798 + _self276643_ + __id281694 + __t281693 '#f)))) (declare (not safe)) - (cons __tmp279374 '())))) + (cons __tmp282269 '())))) (declare (not safe)) - (cons '%#ref __tmp279373))) - (__tmp279366 - (let ((__tmp279370 - (let ((__tmp279371 + (cons '%#ref __tmp282268))) + (__tmp282261 + (let ((__tmp282265 + (let ((__tmp282266 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp279371))) - (__tmp279367 - (let ((__tmp279368 - (let ((__tmp279369 + (cons '%#quote __tmp282266))) + (__tmp282262 + (let ((__tmp282263 + (let ((__tmp282264 (let () (declare (not safe)) - (cons _ctor273864_ + (cons _ctor276659_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#quote - __tmp279369)))) + __tmp282264)))) (declare (not safe)) - (cons __tmp279368 '())))) + (cons __tmp282263 '())))) (declare (not safe)) - (cons __tmp279370 __tmp279367)))) + (cons __tmp282265 __tmp282262)))) (declare (not safe)) - (cons __tmp279372 __tmp279366)))) + (cons __tmp282267 __tmp282261)))) (declare (not safe)) - (cons __tmp279375 __tmp279365)))) + (cons __tmp282270 __tmp282260)))) (declare (not safe)) - (cons __tmp279377 __tmp279364)))) + (cons __tmp282272 __tmp282259)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279379 - __tmp279363)))) + (cons __tmp282274 + __tmp282258)))) (declare (not safe)) - (cons '%#call __tmp279362)))) + (cons '%#call __tmp282257)))) (declare (not safe)) - (cons __tmp279361 '())))) + (cons __tmp282256 '())))) (declare (not safe)) - (cons __tmp279381 __tmp279360)))) + (cons __tmp282276 __tmp282255)))) (declare (not safe)) - (cons __tmp279388 __tmp279359)))) + (cons __tmp282283 __tmp282254)))) (declare (not safe)) - (cons '%#if __tmp279358)))) + (cons '%#if __tmp282253)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279357 '())))) + (cons __tmp282252 '())))) (declare (not safe)) - (cons __tmp279390 __tmp279356)))) + (cons __tmp282285 __tmp282251)))) (declare (not safe)) - (cons '%#let-values __tmp279355)))) - (__tmp279350 - (let ((__tmp279351 - (let ((__tmp279352 + (cons '%#let-values __tmp282250)))) + (__tmp282245 + (let ((__tmp282246 + (let ((__tmp282247 (let () (declare (not safe)) - (cons _$obj273866_ '())))) + (cons _$obj276661_ '())))) (declare (not safe)) - (cons '%#ref __tmp279352)))) + (cons '%#ref __tmp282247)))) (declare (not safe)) - (cons __tmp279351 '())))) + (cons __tmp282246 '())))) (declare (not safe)) - (cons __tmp279353 __tmp279350)))) + (cons __tmp282248 __tmp282245)))) (declare (not safe)) - (cons '%#begin __tmp279349)))) + (cons '%#begin __tmp282244)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279348 '())))) + (cons __tmp282243 '())))) (declare (not safe)) - (cons __tmp279411 __tmp279347)))) + (cons __tmp282306 __tmp282242)))) (declare (not safe)) - (cons '%#let-values __tmp279346)))) + (cons '%#let-values __tmp282241)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279345 _stx273849_)))) - _$e273861_) - (if (##structure-ref _klass273852_ '7 gxc#!class::t '#f) - (if (fx= (length _args273856_) _fields273854_) - (let ((__tmp279336 - (let ((__tmp279337 - (let ((__tmp279342 - (let ((__tmp279343 + (gxc#xform-wrap-source __tmp282240 _stx276644_)))) + _$e276656_) + (if (##structure-ref _klass276647_ '7 gxc#!class::t '#f) + (if (fx= (length _args276651_) _fields276649_) + (let ((__tmp282231 + (let ((__tmp282232 + (let ((__tmp282237 + (let ((__tmp282238 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp279343))) - (__tmp279338 - (let ((__tmp279339 - (let ((__tmp279340 - (let ((__tmp279341 + (cons '%#ref __tmp282238))) + (__tmp282233 + (let ((__tmp282234 + (let ((__tmp282235 + (let ((__tmp282236 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self273848_ - __id278799 - __t278798 + _self276643_ + __id281694 + __t281693 '#f)))) (declare (not safe)) - (cons __tmp279341 '())))) + (cons __tmp282236 '())))) (declare (not safe)) - (cons '%#ref __tmp279340)))) + (cons '%#ref __tmp282235)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279339 - _args273856_)))) + (cons __tmp282234 + _args276651_)))) (declare (not safe)) - (cons __tmp279342 __tmp279338)))) + (cons __tmp282237 __tmp282233)))) (declare (not safe)) - (cons '%#call __tmp279337)))) + (cons '%#call __tmp282232)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279336 _stx273849_)) - (let ((__tmp279335 + (gxc#xform-wrap-source __tmp282231 _stx276644_)) + (let ((__tmp282230 (let () (declare (not safe)) (##unchecked-structure-ref - _self273848_ - __id278799 - __t278798 + _self276643_ + __id281694 + __t281693 '#f))) - (__tmp279334 + (__tmp282229 (length (##structure-ref - _klass273852_ + _klass276647_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx273849_ - __tmp279335 - __tmp279334))) - (let ((_$obj273871_ - (let ((__tmp279283 (gensym '__obj))) + _stx276644_ + __tmp282230 + __tmp282229))) + (let ((_$obj276666_ + (let ((__tmp282178 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp279283)))) - (let _lp273873_ ((_rest273875_ _args273856_) - (_initializers273876_ '())) - (let* ((___stx278914278915_ _rest273875_) - (_g273880273901_ + (make-symbol__0 __tmp282178)))) + (let _lp276668_ ((_rest276670_ _args276651_) + (_initializers276671_ '())) + (let* ((___stx281809281810_ _rest276670_) + (_g276675276696_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx278914278915_))))) - (let ((___kont278916278917_ - (lambda (_L273955_ _L273956_ _L273957_) - (let* ((_slot273987_ + ___stx281809281810_))))) + (let ((___kont281811281812_ + (lambda (_L276750_ _L276751_ _L276752_) + (let* ((_slot276782_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L273957_)))) - (_off273989_ + (gx#stx-e _L276752_)))) + (_off276784_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass273852_ - _slot273987_)))) - (if _off273989_ - (let ((__tmp279285 - (let ((__tmp279286 + _klass276647_ + _slot276782_)))) + (if _off276784_ + (let ((__tmp282180 + (let ((__tmp282181 (let () (declare (not safe)) - (cons _off273989_ + (cons _off276784_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L273956_)))) + _L276751_)))) (declare (not safe)) - (cons __tmp279286 _initializers273876_)))) + (cons __tmp282181 _initializers276671_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp273873_ - _L273955_ - __tmp279285)) - (let ((__tmp279284 + (_lp276668_ + _L276750_ + __tmp282180)) + (let ((__tmp282179 (let () (declare (not safe)) (##unchecked-structure-ref - _self273848_ - __id278799 - __t278798 + _self276643_ + __id281694 + __t281693 '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx273849_ - __tmp279284 - _slot273987_)))))) - (___kont278918278919_ + _stx276644_ + __tmp282179 + _slot276782_)))))) + (___kont281813281814_ (lambda () - (let ((__tmp279287 - (let ((__tmp279288 - (let ((__tmp279311 - (let ((__tmp279312 + (let ((__tmp282182 + (let ((__tmp282183 + (let ((__tmp282206 + (let ((__tmp282207 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279314 + (let ((__tmp282209 (let () (declare (not safe)) - (cons _$obj273871_ '()))) - (__tmp279313 + (cons _$obj276666_ '()))) + (__tmp282208 (let () (declare (not safe)) - (cons _inline-make-object273858_ '())))) + (cons _inline-make-object276653_ '())))) (declare (not safe)) - (cons __tmp279314 __tmp279313)))) + (cons __tmp282209 __tmp282208)))) (declare (not safe)) - (cons __tmp279312 '()))) - (__tmp279289 - (let ((__tmp279290 - (let ((__tmp279291 - (let ((__tmp279308 - (let ((__tmp279309 - (let ((__tmp279310 + (cons __tmp282207 '()))) + (__tmp282184 + (let ((__tmp282185 + (let ((__tmp282186 + (let ((__tmp282203 + (let ((__tmp282204 + (let ((__tmp282205 (let () (declare (not safe)) - (cons _$obj273871_ + (cons _$obj276666_ '())))) (declare (not safe)) - (cons '%#ref __tmp279310)))) + (cons '%#ref __tmp282205)))) (declare (not safe)) - (cons __tmp279309 '()))) - (__tmp279292 - (let ((__tmp279293 - (lambda (_i273915_ _r273916_) - (let ((__tmp279294 - (let ((__tmp279295 - (let ((__tmp279305 + (cons __tmp282204 '()))) + (__tmp282187 + (let ((__tmp282188 + (lambda (_i276710_ _r276711_) + (let ((__tmp282189 + (let ((__tmp282190 + (let ((__tmp282200 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279306 - (let ((__tmp279307 + (let ((__tmp282201 + (let ((__tmp282202 (let () (declare (not safe)) (##unchecked-structure-ref - _self273848_ - __id278799 - __t278798 + _self276643_ + __id281694 + __t281693 '#f)))) (declare (not safe)) - (cons __tmp279307 '())))) + (cons __tmp282202 '())))) (declare (not safe)) - (cons '%#ref __tmp279306))) - (__tmp279296 - (let ((__tmp279302 - (let ((__tmp279303 - (let ((__tmp279304 - (car _i273915_))) + (cons '%#ref __tmp282201))) + (__tmp282191 + (let ((__tmp282197 + (let ((__tmp282198 + (let ((__tmp282199 + (car _i276710_))) (declare (not safe)) - (cons __tmp279304 '())))) + (cons __tmp282199 '())))) (declare (not safe)) - (cons '%#quote __tmp279303))) - (__tmp279297 - (let ((__tmp279300 - (let ((__tmp279301 + (cons '%#quote __tmp282198))) + (__tmp282192 + (let ((__tmp282195 + (let ((__tmp282196 (let () (declare (not safe)) - (cons _$obj273871_ + (cons _$obj276666_ '())))) (declare (not safe)) - (cons '%#ref __tmp279301))) - (__tmp279298 - (let ((__tmp279299 - (cdr _i273915_))) + (cons '%#ref __tmp282196))) + (__tmp282193 + (let ((__tmp282194 + (cdr _i276710_))) (declare (not safe)) - (cons __tmp279299 '())))) + (cons __tmp282194 '())))) (declare (not safe)) - (cons __tmp279300 __tmp279298)))) + (cons __tmp282195 __tmp282193)))) (declare (not safe)) - (cons __tmp279302 __tmp279297)))) + (cons __tmp282197 __tmp282192)))) (declare (not safe)) - (cons __tmp279305 __tmp279296)))) + (cons __tmp282200 __tmp282191)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp279295)))) + (cons '%#struct-unchecked-set! __tmp282190)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279294 - _r273916_))))) + (cons __tmp282189 + _r276711_))))) (declare (not safe)) - (foldl1 __tmp279293 + (foldl1 __tmp282188 '() - _initializers273876_)))) + _initializers276671_)))) (declare (not safe)) - (foldr1 cons __tmp279308 __tmp279292)))) + (foldr1 cons __tmp282203 __tmp282187)))) (declare (not safe)) - (cons '%#begin __tmp279291)))) + (cons '%#begin __tmp282186)))) (declare (not safe)) - (cons __tmp279290 '())))) + (cons __tmp282185 '())))) (declare (not safe)) - (cons __tmp279311 __tmp279289)))) + (cons __tmp282206 __tmp282184)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp279288)))) + __tmp282183)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279287 - _stx273849_)))) - (___kont278920278921_ + __tmp282182 + _stx276644_)))) + (___kont281815281816_ (lambda () - (let ((__tmp279315 - (let ((__tmp279316 - (let ((__tmp279330 - (let ((__tmp279331 + (let ((__tmp282210 + (let ((__tmp282211 + (let ((__tmp282225 + (let ((__tmp282226 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279333 + (let ((__tmp282228 (let () (declare (not safe)) - (cons _$obj273871_ '()))) - (__tmp279332 + (cons _$obj276666_ '()))) + (__tmp282227 (let () (declare (not safe)) - (cons _inline-make-object273858_ '())))) + (cons _inline-make-object276653_ '())))) (declare (not safe)) - (cons __tmp279333 __tmp279332)))) + (cons __tmp282228 __tmp282227)))) (declare (not safe)) - (cons __tmp279331 '()))) - (__tmp279317 - (let ((__tmp279318 - (let ((__tmp279319 - (let ((__tmp279323 - (let ((__tmp279324 - (let ((__tmp279328 - (let ((__tmp279329 + (cons __tmp282226 '()))) + (__tmp282212 + (let ((__tmp282213 + (let ((__tmp282214 + (let ((__tmp282218 + (let ((__tmp282219 + (let ((__tmp282223 + (let ((__tmp282224 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp279329))) - (__tmp279325 - (let ((__tmp279326 - (let ((__tmp279327 + (cons '%#ref __tmp282224))) + (__tmp282220 + (let ((__tmp282221 + (let ((__tmp282222 (let () (declare (not safe)) - (cons _$obj273871_ '())))) + (cons _$obj276666_ '())))) (declare (not safe)) - (cons '%#ref __tmp279327)))) + (cons '%#ref __tmp282222)))) (declare (not safe)) - (cons __tmp279326 _args273856_)))) + (cons __tmp282221 _args276651_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279328 - __tmp279325)))) + (cons __tmp282223 + __tmp282220)))) (declare (not safe)) - (cons '%#call __tmp279324))) - (__tmp279320 - (let ((__tmp279321 - (let ((__tmp279322 + (cons '%#call __tmp282219))) + (__tmp282215 + (let ((__tmp282216 + (let ((__tmp282217 (let () (declare (not safe)) - (cons _$obj273871_ + (cons _$obj276666_ '())))) (declare (not safe)) - (cons '%#ref __tmp279322)))) + (cons '%#ref __tmp282217)))) (declare (not safe)) - (cons __tmp279321 '())))) + (cons __tmp282216 '())))) (declare (not safe)) - (cons __tmp279323 __tmp279320)))) + (cons __tmp282218 __tmp282215)))) (declare (not safe)) - (cons '%#begin __tmp279319)))) + (cons '%#begin __tmp282214)))) (declare (not safe)) - (cons __tmp279318 '())))) + (cons __tmp282213 '())))) (declare (not safe)) - (cons __tmp279330 __tmp279317)))) + (cons __tmp282225 __tmp282212)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp279316)))) + __tmp282211)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279315 - _stx273849_))))) - (let* ((_g273878273918_ + __tmp282210 + _stx276644_))))) + (let* ((_g276673276713_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx278914278915_)) - (___kont278918278919_) - (___kont278920278921_)))) - (___match278951278952_ - (lambda (_e273887273923_ - _hd273886273926_ - _tl273885273928_ - _e273890273931_ - _hd273889273934_ - _tl273888273936_ - _e273893273939_ - _hd273892273942_ - _tl273891273944_ - _e273896273947_ - _hd273895273950_ - _tl273894273952_) - (let ((_L273955_ _tl273894273952_) - (_L273956_ _hd273895273950_) - (_L273957_ _hd273892273942_)) + ___stx281809281810_)) + (___kont281813281814_) + (___kont281815281816_)))) + (___match281846281847_ + (lambda (_e276682276718_ + _hd276681276721_ + _tl276680276723_ + _e276685276726_ + _hd276684276729_ + _tl276683276731_ + _e276688276734_ + _hd276687276737_ + _tl276686276739_ + _e276691276742_ + _hd276690276745_ + _tl276689276747_) + (let ((_L276750_ _tl276689276747_) + (_L276751_ _hd276690276745_) + (_L276752_ _hd276687276737_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _L273957_)) - (___kont278916278917_ - _L273955_ - _L273956_ - _L273957_) - (___kont278920278921_)))))) + (gx#stx-keyword? _L276752_)) + (___kont281811281812_ + _L276750_ + _L276751_ + _L276752_) + (___kont281815281816_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx278914278915_)) - (let ((_e273887273923_ + (gx#stx-pair? ___stx281809281810_)) + (let ((_e276682276718_ (let () (declare (not safe)) (gx#stx-e - ___stx278914278915_)))) - (let ((_tl273885273928_ + ___stx281809281810_)))) + (let ((_tl276680276723_ (let () (declare (not safe)) - (##cdr _e273887273923_))) - (_hd273886273926_ + (##cdr _e276682276718_))) + (_hd276681276721_ (let () (declare (not safe)) - (##car _e273887273923_)))) + (##car _e276682276718_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd273886273926_)) - (let ((_e273890273931_ + _hd276681276721_)) + (let ((_e276685276726_ (let () (declare (not safe)) (gx#stx-e - _hd273886273926_)))) - (let ((_tl273888273936_ + _hd276681276721_)))) + (let ((_tl276683276731_ (let () (declare (not safe)) - (##cdr _e273890273931_))) - (_hd273889273934_ + (##cdr _e276685276726_))) + (_hd276684276729_ (let () (declare (not safe)) - (##car _e273890273931_)))) + (##car _e276685276726_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd273889273934_)) + _hd276684276729_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd273889273934_)) + _hd276684276729_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl273888273936_)) - (let ((_e273893273939_ + (gx#stx-pair? _tl276683276731_)) + (let ((_e276688276734_ (let () (declare (not safe)) - (gx#stx-e _tl273888273936_)))) - (let ((_tl273891273944_ + (gx#stx-e _tl276683276731_)))) + (let ((_tl276686276739_ (let () (declare (not safe)) - (##cdr _e273893273939_))) - (_hd273892273942_ + (##cdr _e276688276734_))) + (_hd276687276737_ (let () (declare (not safe)) - (##car _e273893273939_)))) + (##car _e276688276734_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl273891273944_)) + (gx#stx-null? _tl276686276739_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl273885273928_)) - (let ((_e273896273947_ + (gx#stx-pair? _tl276680276723_)) + (let ((_e276691276742_ (let () (declare (not safe)) - (gx#stx-e _tl273885273928_)))) - (let ((_tl273894273952_ + (gx#stx-e _tl276680276723_)))) + (let ((_tl276689276747_ (let () (declare (not safe)) - (##cdr _e273896273947_))) - (_hd273895273950_ + (##cdr _e276691276742_))) + (_hd276690276745_ (let () (declare (not safe)) - (##car _e273896273947_)))) - (___match278951278952_ - _e273887273923_ - _hd273886273926_ - _tl273885273928_ - _e273890273931_ - _hd273889273934_ - _tl273888273936_ - _e273893273939_ - _hd273892273942_ - _tl273891273944_ - _e273896273947_ - _hd273895273950_ - _tl273894273952_))) - (___kont278920278921_)) - (___kont278920278921_)))) - (___kont278920278921_)) - (___kont278920278921_)) - (___kont278920278921_)))) + (##car _e276691276742_)))) + (___match281846281847_ + _e276682276718_ + _hd276681276721_ + _tl276680276723_ + _e276685276726_ + _hd276684276729_ + _tl276683276731_ + _e276688276734_ + _hd276687276737_ + _tl276686276739_ + _e276691276742_ + _hd276690276745_ + _tl276689276747_))) + (___kont281815281816_)) + (___kont281815281816_)))) + (___kont281815281816_)) + (___kont281815281816_)) + (___kont281815281816_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont278920278921_)))) + (___kont281815281816_)))) (let () (declare (not safe)) - (_g273878273918_)))))))))))))))) + (_g276673276713_)))))))))))))))) (let () (declare (not safe)) (bind-specializer! @@ -2145,944 +2145,944 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_self273671_ _stx273672_ _args273673_) - (let* ((_g273675273685_ - (lambda (_g273676273682_) + (lambda (_self276466_ _stx276467_ _args276468_) + (let* ((_g276470276480_ + (lambda (_g276471276477_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g273676273682_)))) - (_g273674273723_ - (lambda (_g273676273688_) + _g276471276477_)))) + (_g276469276518_ + (lambda (_g276471276483_) (if (let () (declare (not safe)) - (gx#stx-pair? _g273676273688_)) - (let ((_e273680273690_ + (gx#stx-pair? _g276471276483_)) + (let ((_e276475276485_ (let () (declare (not safe)) - (gx#stx-e _g273676273688_)))) - (let ((_hd273679273693_ + (gx#stx-e _g276471276483_)))) + (let ((_hd276474276488_ (let () (declare (not safe)) - (##car _e273680273690_))) - (_tl273678273695_ + (##car _e276475276485_))) + (_tl276473276490_ (let () (declare (not safe)) - (##cdr _e273680273690_)))) + (##cdr _e276475276485_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl273678273695_)) - ((lambda (_L273698_) - (let* ((_klass273709_ - (let ((__tmp279415 + (gx#stx-null? _tl276473276490_)) + ((lambda (_L276493_) + (let* ((_klass276504_ + (let ((__tmp282310 (##structure-ref - _self273671_ + _self276466_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx273672_ - __tmp279415))) - (_field273711_ - (let ((__tmp279416 + _stx276467_ + __tmp282310))) + (_field276506_ + (let ((__tmp282311 (##structure-ref - _self273671_ + _self276466_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass273709_ - __tmp279416))) - (_object273713_ + _klass276504_ + __tmp282311))) + (_object276508_ (let () (declare (not safe)) - (gxc#compile-e__0 _L273698_)))) + (gxc#compile-e__0 _L276493_)))) (if (##structure-ref - _klass273709_ + _klass276504_ '8 gxc#!class::t '#f) - (let ((__tmp279493 - (let ((__tmp279502 + (let ((__tmp282388 + (let ((__tmp282397 (if (##structure-ref - _self273671_ + _self276466_ '3 gxc#!accessor::t '#f) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp279494 - (let ((__tmp279499 - (let ((__tmp279500 + (__tmp282389 + (let ((__tmp282394 + (let ((__tmp282395 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279501 + (let ((__tmp282396 (##structure-ref - _self273671_ + _self276466_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279501 '())))) + (cons __tmp282396 '())))) (declare (not safe)) - (cons '%#ref __tmp279500))) - (__tmp279495 - (let ((__tmp279497 - (let ((__tmp279498 + (cons '%#ref __tmp282395))) + (__tmp282390 + (let ((__tmp282392 + (let ((__tmp282393 (let () (declare (not safe)) - (cons _field273711_ '())))) + (cons _field276506_ '())))) (declare (not safe)) - (cons '%#quote __tmp279498))) - (__tmp279496 + (cons '%#quote __tmp282393))) + (__tmp282391 (let () (declare (not safe)) - (cons _object273713_ '())))) + (cons _object276508_ '())))) (declare (not safe)) - (cons __tmp279497 __tmp279496)))) + (cons __tmp282392 __tmp282391)))) (declare (not safe)) - (cons __tmp279499 __tmp279495)))) + (cons __tmp282394 __tmp282390)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279502 - __tmp279494)))) + (cons __tmp282397 + __tmp282389)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279493 - _stx273672_)) + __tmp282388 + _stx276467_)) (if (##structure-ref - _klass273709_ + _klass276504_ '7 gxc#!class::t '#f) - (let ((__tmp279483 - (let ((__tmp279492 + (let ((__tmp282378 + (let ((__tmp282387 (if (##structure-ref - _self273671_ + _self276466_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp279484 - (let ((__tmp279489 - (let ((__tmp279490 + (__tmp282379 + (let ((__tmp282384 + (let ((__tmp282385 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279491 + (let ((__tmp282386 (##structure-ref - _self273671_ + _self276466_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279491 '())))) + (cons __tmp282386 '())))) (declare (not safe)) - (cons '%#ref __tmp279490))) - (__tmp279485 - (let ((__tmp279487 - (let ((__tmp279488 + (cons '%#ref __tmp282385))) + (__tmp282380 + (let ((__tmp282382 + (let ((__tmp282383 (let () (declare (not safe)) - (cons _field273711_ '())))) + (cons _field276506_ '())))) (declare (not safe)) - (cons '%#quote __tmp279488))) - (__tmp279486 + (cons '%#quote __tmp282383))) + (__tmp282381 (let () (declare (not safe)) - (cons _object273713_ '())))) + (cons _object276508_ '())))) (declare (not safe)) - (cons __tmp279487 __tmp279486)))) + (cons __tmp282382 __tmp282381)))) (declare (not safe)) - (cons __tmp279489 __tmp279485)))) + (cons __tmp282384 __tmp282380)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279492 - __tmp279484)))) + (cons __tmp282387 + __tmp282379)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279483 - _stx273672_)) - (let ((_$e273716_ - (let ((__tmp279417 + __tmp282378 + _stx276467_)) + (let ((_$e276511_ + (let ((__tmp282312 (##structure-ref - _self273671_ + _self276466_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass273709_ - __tmp279417)))) - (if _$e273716_ - ((lambda (_klass273719_) - (let ((__tmp279473 - (let ((__tmp279482 + _klass276504_ + __tmp282312)))) + (if _$e276511_ + ((lambda (_klass276514_) + (let ((__tmp282368 + (let ((__tmp282377 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self273671_ + _self276466_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp279474 - (let ((__tmp279479 - (let ((__tmp279480 - (let ((__tmp279481 + (__tmp282369 + (let ((__tmp282374 + (let ((__tmp282375 + (let ((__tmp282376 (##structure-ref - _self273671_ + _self276466_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279481 '())))) + (cons __tmp282376 '())))) (declare (not safe)) - (cons '%#ref __tmp279480))) - (__tmp279475 - (let ((__tmp279477 - (let ((__tmp279478 + (cons '%#ref __tmp282375))) + (__tmp282370 + (let ((__tmp282372 + (let ((__tmp282373 (let () (declare (not safe)) - (cons _field273711_ '())))) + (cons _field276506_ '())))) (declare (not safe)) - (cons '%#quote __tmp279478))) - (__tmp279476 + (cons '%#quote __tmp282373))) + (__tmp282371 (let () (declare (not safe)) - (cons _object273713_ '())))) + (cons _object276508_ '())))) (declare (not safe)) - (cons __tmp279477 __tmp279476)))) + (cons __tmp282372 __tmp282371)))) (declare (not safe)) - (cons __tmp279479 __tmp279475)))) + (cons __tmp282374 __tmp282370)))) (declare (not safe)) - (cons __tmp279482 __tmp279474)))) + (cons __tmp282377 __tmp282369)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279473 _stx273672_))) + (gxc#xform-wrap-source __tmp282368 _stx276467_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e273716_) + _$e276511_) (if (##structure-ref - _self273671_ + _self276466_ '3 gxc#!accessor::t '#f) - (let ((__tmp279427 - (let* ((_$obj273721_ + (let ((__tmp282322 + (let* ((_$obj276516_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279428 (gensym '__obj))) + (let ((__tmp282323 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp279428))) - (__tmp279429 - (let ((__tmp279469 - (let ((__tmp279470 - (let ((__tmp279472 + (make-symbol__0 __tmp282323))) + (__tmp282324 + (let ((__tmp282364 + (let ((__tmp282365 + (let ((__tmp282367 (let () (declare (not safe)) - (cons _$obj273721_ '()))) - (__tmp279471 + (cons _$obj276516_ '()))) + (__tmp282366 (let () (declare (not safe)) - (cons _object273713_ '())))) + (cons _object276508_ '())))) (declare (not safe)) - (cons __tmp279472 __tmp279471)))) + (cons __tmp282367 __tmp282366)))) (declare (not safe)) - (cons __tmp279470 '()))) - (__tmp279430 - (let ((__tmp279431 - (let ((__tmp279432 - (let ((__tmp279461 - (let ((__tmp279462 - (let ((__tmp279466 + (cons __tmp282365 '()))) + (__tmp282325 + (let ((__tmp282326 + (let ((__tmp282327 + (let ((__tmp282356 + (let ((__tmp282357 + (let ((__tmp282361 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279467 - (let ((__tmp279468 + (let ((__tmp282362 + (let ((__tmp282363 (##structure-ref - _klass273709_ + _klass276504_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279468 '())))) + (cons __tmp282363 '())))) (declare (not safe)) - (cons '%#quote __tmp279467))) - (__tmp279463 - (let ((__tmp279464 - (let ((__tmp279465 + (cons '%#quote __tmp282362))) + (__tmp282358 + (let ((__tmp282359 + (let ((__tmp282360 (let () (declare (not safe)) - (cons _$obj273721_ '())))) + (cons _$obj276516_ '())))) (declare (not safe)) - (cons '%#ref __tmp279465)))) + (cons '%#ref __tmp282360)))) (declare (not safe)) - (cons __tmp279464 '())))) + (cons __tmp282359 '())))) (declare (not safe)) - (cons __tmp279466 __tmp279463)))) + (cons __tmp282361 __tmp282358)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp279462))) - (__tmp279433 - (let ((__tmp279450 - (let ((__tmp279451 - (let ((__tmp279458 - (let ((__tmp279459 - (let ((__tmp279460 + (cons '%#struct-direct-instance? __tmp282357))) + (__tmp282328 + (let ((__tmp282345 + (let ((__tmp282346 + (let ((__tmp282353 + (let ((__tmp282354 + (let ((__tmp282355 (##structure-ref - _self273671_ + _self276466_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279460 '())))) + (cons __tmp282355 '())))) (declare (not safe)) - (cons '%#ref __tmp279459))) - (__tmp279452 - (let ((__tmp279456 - (let ((__tmp279457 + (cons '%#ref __tmp282354))) + (__tmp282347 + (let ((__tmp282351 + (let ((__tmp282352 (let () (declare (not safe)) - (cons _field273711_ + (cons _field276506_ '())))) (declare (not safe)) - (cons '%#quote __tmp279457))) - (__tmp279453 - (let ((__tmp279454 - (let ((__tmp279455 + (cons '%#quote __tmp282352))) + (__tmp282348 + (let ((__tmp282349 + (let ((__tmp282350 (let () (declare (not safe)) - (cons _$obj273721_ + (cons _$obj276516_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp279455)))) + __tmp282350)))) (declare (not safe)) - (cons __tmp279454 '())))) + (cons __tmp282349 '())))) (declare (not safe)) - (cons __tmp279456 __tmp279453)))) + (cons __tmp282351 __tmp282348)))) (declare (not safe)) - (cons __tmp279458 __tmp279452)))) + (cons __tmp282353 __tmp282347)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp279451))) - (__tmp279434 - (let ((__tmp279435 - (let ((__tmp279436 - (let ((__tmp279448 - (let ((__tmp279449 + (cons '%#struct-unchecked-ref __tmp282346))) + (__tmp282329 + (let ((__tmp282330 + (let ((__tmp282331 + (let ((__tmp282343 + (let ((__tmp282344 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp279449))) - (__tmp279437 - (let ((__tmp279445 - (let ((__tmp279446 - (let ((__tmp279447 + (cons '%#ref __tmp282344))) + (__tmp282332 + (let ((__tmp282340 + (let ((__tmp282341 + (let ((__tmp282342 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##structure-ref _self273671_ '1 gxc#!type::t '#f))) + (##structure-ref _self276466_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279447 '())))) + (cons __tmp282342 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp279446))) - (__tmp279438 - (let ((__tmp279443 - (let ((__tmp279444 + __tmp282341))) + (__tmp282333 + (let ((__tmp282338 + (let ((__tmp282339 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj273721_ '())))) + (cons _$obj276516_ '())))) (declare (not safe)) - (cons '%#ref __tmp279444))) - (__tmp279439 - (let ((__tmp279440 - (let ((__tmp279441 - (let ((__tmp279442 + (cons '%#ref __tmp282339))) + (__tmp282334 + (let ((__tmp282335 + (let ((__tmp282336 + (let ((__tmp282337 (##structure-ref - _self273671_ + _self276466_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp279442 '())))) + (cons __tmp282337 '())))) (declare (not safe)) - (cons '%#quote __tmp279441)))) + (cons '%#quote __tmp282336)))) (declare (not safe)) - (cons __tmp279440 '())))) + (cons __tmp282335 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279443 - __tmp279439)))) + (cons __tmp282338 + __tmp282334)))) (declare (not safe)) - (cons __tmp279445 __tmp279438)))) + (cons __tmp282340 __tmp282333)))) (declare (not safe)) - (cons __tmp279448 __tmp279437)))) + (cons __tmp282343 __tmp282332)))) (declare (not safe)) - (cons '%#call __tmp279436)))) + (cons '%#call __tmp282331)))) (declare (not safe)) - (cons __tmp279435 '())))) + (cons __tmp282330 '())))) (declare (not safe)) - (cons __tmp279450 __tmp279434)))) + (cons __tmp282345 __tmp282329)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279461 - __tmp279433)))) + (cons __tmp282356 + __tmp282328)))) (declare (not safe)) - (cons '%#if __tmp279432)))) + (cons '%#if __tmp282327)))) (declare (not safe)) - (cons __tmp279431 '())))) + (cons __tmp282326 '())))) (declare (not safe)) - (cons __tmp279469 __tmp279430)))) + (cons __tmp282364 __tmp282325)))) (declare (not safe)) - (cons '%#let-values __tmp279429)))) + (cons '%#let-values __tmp282324)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279427 _stx273672_)) + (gxc#xform-wrap-source __tmp282322 _stx276467_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp279418 - (let ((__tmp279419 + (let ((__tmp282313 + (let ((__tmp282314 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279425 - (let ((__tmp279426 + (let ((__tmp282320 + (let ((__tmp282321 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp279426))) - (__tmp279420 - (let ((__tmp279421 - (let ((__tmp279422 - (let ((__tmp279423 - (let ((__tmp279424 + (cons '%#ref __tmp282321))) + (__tmp282315 + (let ((__tmp282316 + (let ((__tmp282317 + (let ((__tmp282318 + (let ((__tmp282319 (##structure-ref - _self273671_ + _self276466_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp279424 + (cons __tmp282319 '())))) (declare (not safe)) (cons '%#quote - __tmp279423)))) + __tmp282318)))) (declare (not safe)) - (cons __tmp279422 '())))) + (cons __tmp282317 '())))) (declare (not safe)) - (cons _object273713_ __tmp279421)))) + (cons _object276508_ __tmp282316)))) (declare (not safe)) - (cons __tmp279425 __tmp279420)))) + (cons __tmp282320 __tmp282315)))) (declare (not safe)) - (cons '%#call __tmp279419)))) + (cons '%#call __tmp282314)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279418 _stx273672_))))))))) + (gxc#xform-wrap-source __tmp282313 _stx276467_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd273679273693_) + _hd276474276488_) (let () (declare (not safe)) - (_g273675273685_ _g273676273688_))))) + (_g276470276480_ _g276471276483_))))) (let () (declare (not safe)) - (_g273675273685_ _g273676273688_)))))) + (_g276470276480_ _g276471276483_)))))) (declare (not safe)) - (_g273674273723_ _args273673_)))) + (_g276469276518_ _args276468_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__t278801) - (let ((__slot278802 - (let ((__tmp278805 + (lambda (__t281696) + (let ((__id281697 + (let ((__tmp281700 (let () (declare (not safe)) - (class-slot-offset __t278801 'slot)))) - (if __tmp278805 __tmp278805 (error '"Unknown slot" 'slot)))) - (__id278803 - (let ((__tmp278806 + (class-slot-offset __t281696 'id)))) + (if __tmp281700 __tmp281700 (error '"Unknown slot" 'id)))) + (__slot281698 + (let ((__tmp281701 (let () (declare (not safe)) - (class-slot-offset __t278801 'id)))) - (if __tmp278806 __tmp278806 (error '"Unknown slot" 'id)))) - (__checked?278804 - (let ((__tmp278807 + (class-slot-offset __t281696 'slot)))) + (if __tmp281701 __tmp281701 (error '"Unknown slot" 'slot)))) + (__checked?281699 + (let ((__tmp281702 (let () (declare (not safe)) - (class-slot-offset __t278801 'checked?)))) - (if __tmp278807 - __tmp278807 + (class-slot-offset __t281696 'checked?)))) + (if __tmp281702 + __tmp281702 (error '"Unknown slot" 'checked?))))) - (lambda (_self273671_ _stx273672_ _args273673_) - (let* ((_g273675273685_ - (lambda (_g273676273682_) + (lambda (_self276466_ _stx276467_ _args276468_) + (let* ((_g276470276480_ + (lambda (_g276471276477_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g273676273682_)))) - (_g273674273723_ - (lambda (_g273676273688_) + _g276471276477_)))) + (_g276469276518_ + (lambda (_g276471276483_) (if (let () (declare (not safe)) - (gx#stx-pair? _g273676273688_)) - (let ((_e273680273690_ + (gx#stx-pair? _g276471276483_)) + (let ((_e276475276485_ (let () (declare (not safe)) - (gx#stx-e _g273676273688_)))) - (let ((_hd273679273693_ + (gx#stx-e _g276471276483_)))) + (let ((_hd276474276488_ (let () (declare (not safe)) - (##car _e273680273690_))) - (_tl273678273695_ + (##car _e276475276485_))) + (_tl276473276490_ (let () (declare (not safe)) - (##cdr _e273680273690_)))) + (##cdr _e276475276485_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl273678273695_)) - ((lambda (_L273698_) - (let* ((_klass273709_ - (let ((__tmp279503 + (gx#stx-null? _tl276473276490_)) + ((lambda (_L276493_) + (let* ((_klass276504_ + (let ((__tmp282398 (let () (declare (not safe)) (##unchecked-structure-ref - _self273671_ - __id278803 - __t278801 + _self276466_ + __id281697 + __t281696 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx273672_ - __tmp279503))) - (_field273711_ - (let ((__tmp279504 + _stx276467_ + __tmp282398))) + (_field276506_ + (let ((__tmp282399 (let () (declare (not safe)) (##unchecked-structure-ref - _self273671_ - __slot278802 - __t278801 + _self276466_ + __slot281698 + __t281696 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass273709_ - __tmp279504))) - (_object273713_ + _klass276504_ + __tmp282399))) + (_object276508_ (let () (declare (not safe)) - (gxc#compile-e__0 _L273698_)))) + (gxc#compile-e__0 _L276493_)))) (if (##structure-ref - _klass273709_ + _klass276504_ '8 gxc#!class::t '#f) - (let ((__tmp279581 - (let ((__tmp279590 + (let ((__tmp282476 + (let ((__tmp282485 (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self273671_ - __checked?278804 - __t278801 + _self276466_ + __checked?281699 + __t281696 '#f)) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp279582 - (let ((__tmp279587 - (let ((__tmp279588 - (let ((__tmp279589 + (__tmp282477 + (let ((__tmp282482 + (let ((__tmp282483 + (let ((__tmp282484 (let () (declare (not safe)) (##unchecked-structure-ref - _self273671_ - __id278803 - __t278801 + _self276466_ + __id281697 + __t281696 '#f)))) (declare (not safe)) - (cons __tmp279589 '())))) + (cons __tmp282484 '())))) (declare (not safe)) - (cons '%#ref __tmp279588))) - (__tmp279583 - (let ((__tmp279585 - (let ((__tmp279586 + (cons '%#ref __tmp282483))) + (__tmp282478 + (let ((__tmp282480 + (let ((__tmp282481 (let () (declare (not safe)) - (cons _field273711_ '())))) + (cons _field276506_ '())))) (declare (not safe)) - (cons '%#quote __tmp279586))) - (__tmp279584 + (cons '%#quote __tmp282481))) + (__tmp282479 (let () (declare (not safe)) - (cons _object273713_ '())))) + (cons _object276508_ '())))) (declare (not safe)) - (cons __tmp279585 __tmp279584)))) + (cons __tmp282480 __tmp282479)))) (declare (not safe)) - (cons __tmp279587 __tmp279583)))) + (cons __tmp282482 __tmp282478)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279590 - __tmp279582)))) + (cons __tmp282485 + __tmp282477)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279581 - _stx273672_)) + __tmp282476 + _stx276467_)) (if (##structure-ref - _klass273709_ + _klass276504_ '7 gxc#!class::t '#f) - (let ((__tmp279571 - (let ((__tmp279580 + (let ((__tmp282466 + (let ((__tmp282475 (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self273671_ - __checked?278804 - __t278801 + _self276466_ + __checked?281699 + __t281696 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp279572 - (let ((__tmp279577 - (let ((__tmp279578 - (let ((__tmp279579 + (__tmp282467 + (let ((__tmp282472 + (let ((__tmp282473 + (let ((__tmp282474 (let () (declare (not safe)) (##unchecked-structure-ref - _self273671_ - __id278803 - __t278801 + _self276466_ + __id281697 + __t281696 '#f)))) (declare (not safe)) - (cons __tmp279579 '())))) + (cons __tmp282474 '())))) (declare (not safe)) - (cons '%#ref __tmp279578))) - (__tmp279573 - (let ((__tmp279575 - (let ((__tmp279576 + (cons '%#ref __tmp282473))) + (__tmp282468 + (let ((__tmp282470 + (let ((__tmp282471 (let () (declare (not safe)) - (cons _field273711_ '())))) + (cons _field276506_ '())))) (declare (not safe)) - (cons '%#quote __tmp279576))) - (__tmp279574 + (cons '%#quote __tmp282471))) + (__tmp282469 (let () (declare (not safe)) - (cons _object273713_ '())))) + (cons _object276508_ '())))) (declare (not safe)) - (cons __tmp279575 __tmp279574)))) + (cons __tmp282470 __tmp282469)))) (declare (not safe)) - (cons __tmp279577 __tmp279573)))) + (cons __tmp282472 __tmp282468)))) (declare (not safe)) - (cons __tmp279580 __tmp279572)))) + (cons __tmp282475 __tmp282467)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp279571 - _stx273672_)) - (let ((_$e273716_ - (let ((__tmp279505 + __tmp282466 + _stx276467_)) + (let ((_$e276511_ + (let ((__tmp282400 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self273671_ - __slot278802 - __t278801 + _self276466_ + __slot281698 + __t281696 '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass273709_ __tmp279505)))) + (gxc#!class-slot-find-struct _klass276504_ __tmp282400)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e273716_ - ((lambda (_klass273719_) - (let ((__tmp279561 - (let ((__tmp279570 + (if _$e276511_ + ((lambda (_klass276514_) + (let ((__tmp282456 + (let ((__tmp282465 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self273671_ - __checked?278804 - __t278801 + _self276466_ + __checked?281699 + __t281696 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp279562 - (let ((__tmp279567 - (let ((__tmp279568 - (let ((__tmp279569 + (__tmp282457 + (let ((__tmp282462 + (let ((__tmp282463 + (let ((__tmp282464 (let () (declare (not safe)) (##unchecked-structure-ref - _self273671_ - __id278803 - __t278801 + _self276466_ + __id281697 + __t281696 '#f)))) (declare (not safe)) - (cons __tmp279569 '())))) + (cons __tmp282464 '())))) (declare (not safe)) - (cons '%#ref __tmp279568))) - (__tmp279563 - (let ((__tmp279565 - (let ((__tmp279566 + (cons '%#ref __tmp282463))) + (__tmp282458 + (let ((__tmp282460 + (let ((__tmp282461 (let () (declare (not safe)) - (cons _field273711_ + (cons _field276506_ '())))) (declare (not safe)) - (cons '%#quote __tmp279566))) - (__tmp279564 + (cons '%#quote __tmp282461))) + (__tmp282459 (let () (declare (not safe)) - (cons _object273713_ '())))) + (cons _object276508_ '())))) (declare (not safe)) - (cons __tmp279565 __tmp279564)))) + (cons __tmp282460 __tmp282459)))) (declare (not safe)) - (cons __tmp279567 __tmp279563)))) + (cons __tmp282462 __tmp282458)))) (declare (not safe)) - (cons __tmp279570 __tmp279562)))) + (cons __tmp282465 __tmp282457)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279561 _stx273672_))) - _$e273716_) + (gxc#xform-wrap-source __tmp282456 _stx276467_))) + _$e276511_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _self273671_ - __checked?278804 - __t278801 + _self276466_ + __checked?281699 + __t281696 '#f)) - (let ((__tmp279515 - (let* ((_$obj273721_ + (let ((__tmp282410 + (let* ((_$obj276516_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279516 (gensym '__obj))) + (let ((__tmp282411 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp279516))) - (__tmp279517 - (let ((__tmp279557 - (let ((__tmp279558 - (let ((__tmp279560 + (make-symbol__0 __tmp282411))) + (__tmp282412 + (let ((__tmp282452 + (let ((__tmp282453 + (let ((__tmp282455 (let () (declare (not safe)) - (cons _$obj273721_ + (cons _$obj276516_ '()))) - (__tmp279559 + (__tmp282454 (let () (declare (not safe)) - (cons _object273713_ + (cons _object276508_ '())))) (declare (not safe)) - (cons __tmp279560 - __tmp279559)))) + (cons __tmp282455 + __tmp282454)))) (declare (not safe)) - (cons __tmp279558 '()))) - (__tmp279518 - (let ((__tmp279519 - (let ((__tmp279520 - (let ((__tmp279549 - (let ((__tmp279550 + (cons __tmp282453 '()))) + (__tmp282413 + (let ((__tmp282414 + (let ((__tmp282415 + (let ((__tmp282444 + (let ((__tmp282445 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279554 - (let ((__tmp279555 - (let ((__tmp279556 + (let ((__tmp282449 + (let ((__tmp282450 + (let ((__tmp282451 (##structure-ref - _klass273709_ + _klass276504_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279556 '())))) + (cons __tmp282451 '())))) (declare (not safe)) - (cons '%#quote __tmp279555))) - (__tmp279551 - (let ((__tmp279552 - (let ((__tmp279553 + (cons '%#quote __tmp282450))) + (__tmp282446 + (let ((__tmp282447 + (let ((__tmp282448 (let () (declare (not safe)) - (cons _$obj273721_ '())))) + (cons _$obj276516_ '())))) (declare (not safe)) - (cons '%#ref __tmp279553)))) + (cons '%#ref __tmp282448)))) (declare (not safe)) - (cons __tmp279552 '())))) + (cons __tmp282447 '())))) (declare (not safe)) - (cons __tmp279554 __tmp279551)))) + (cons __tmp282449 __tmp282446)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp279550))) - (__tmp279521 - (let ((__tmp279538 - (let ((__tmp279539 - (let ((__tmp279546 - (let ((__tmp279547 - (let ((__tmp279548 + (cons '%#struct-direct-instance? __tmp282445))) + (__tmp282416 + (let ((__tmp282433 + (let ((__tmp282434 + (let ((__tmp282441 + (let ((__tmp282442 + (let ((__tmp282443 (let () (declare (not safe)) (##unchecked-structure-ref - _self273671_ - __id278803 - __t278801 + _self276466_ + __id281697 + __t281696 '#f)))) (declare (not safe)) - (cons __tmp279548 '())))) + (cons __tmp282443 '())))) (declare (not safe)) - (cons '%#ref __tmp279547))) - (__tmp279540 - (let ((__tmp279544 - (let ((__tmp279545 + (cons '%#ref __tmp282442))) + (__tmp282435 + (let ((__tmp282439 + (let ((__tmp282440 (let () (declare (not safe)) - (cons _field273711_ + (cons _field276506_ '())))) (declare (not safe)) - (cons '%#quote __tmp279545))) - (__tmp279541 - (let ((__tmp279542 - (let ((__tmp279543 + (cons '%#quote __tmp282440))) + (__tmp282436 + (let ((__tmp282437 + (let ((__tmp282438 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj273721_ '())))) + (cons _$obj276516_ '())))) (declare (not safe)) - (cons '%#ref __tmp279543)))) + (cons '%#ref __tmp282438)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279542 '())))) + (cons __tmp282437 '())))) (declare (not safe)) - (cons __tmp279544 __tmp279541)))) + (cons __tmp282439 __tmp282436)))) (declare (not safe)) - (cons __tmp279546 __tmp279540)))) + (cons __tmp282441 __tmp282435)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp279539))) - (__tmp279522 - (let ((__tmp279523 - (let ((__tmp279524 - (let ((__tmp279536 - (let ((__tmp279537 + (cons '%#struct-unchecked-ref __tmp282434))) + (__tmp282417 + (let ((__tmp282418 + (let ((__tmp282419 + (let ((__tmp282431 + (let ((__tmp282432 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp279537))) - (__tmp279525 - (let ((__tmp279533 - (let ((__tmp279534 - (let ((__tmp279535 + (cons '%#ref __tmp282432))) + (__tmp282420 + (let ((__tmp282428 + (let ((__tmp282429 + (let ((__tmp282430 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self273671_ - __id278803 - __t278801 + _self276466_ + __id281697 + __t281696 '#f)))) (declare (not safe)) - (cons __tmp279535 '())))) + (cons __tmp282430 '())))) (declare (not safe)) - (cons '%#ref __tmp279534))) - (__tmp279526 - (let ((__tmp279531 - (let ((__tmp279532 + (cons '%#ref __tmp282429))) + (__tmp282421 + (let ((__tmp282426 + (let ((__tmp282427 (let () (declare (not safe)) - (cons _$obj273721_ '())))) + (cons _$obj276516_ '())))) (declare (not safe)) - (cons '%#ref __tmp279532))) - (__tmp279527 - (let ((__tmp279528 - (let ((__tmp279529 - (let ((__tmp279530 + (cons '%#ref __tmp282427))) + (__tmp282422 + (let ((__tmp282423 + (let ((__tmp282424 + (let ((__tmp282425 (let () (declare (not safe)) (##unchecked-structure-ref - _self273671_ - __slot278802 - __t278801 + _self276466_ + __slot281698 + __t281696 '#f)))) (declare (not safe)) - (cons __tmp279530 '())))) + (cons __tmp282425 '())))) (declare (not safe)) - (cons '%#quote __tmp279529)))) + (cons '%#quote __tmp282424)))) (declare (not safe)) - (cons __tmp279528 '())))) + (cons __tmp282423 '())))) (declare (not safe)) - (cons __tmp279531 __tmp279527)))) + (cons __tmp282426 __tmp282422)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279533 - __tmp279526)))) + (cons __tmp282428 + __tmp282421)))) (declare (not safe)) - (cons __tmp279536 __tmp279525)))) + (cons __tmp282431 __tmp282420)))) (declare (not safe)) - (cons '%#call __tmp279524)))) + (cons '%#call __tmp282419)))) (declare (not safe)) - (cons __tmp279523 '())))) + (cons __tmp282418 '())))) (declare (not safe)) - (cons __tmp279538 __tmp279522)))) + (cons __tmp282433 __tmp282417)))) (declare (not safe)) - (cons __tmp279549 __tmp279521)))) + (cons __tmp282444 __tmp282416)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp279520)))) + (cons '%#if __tmp282415)))) (declare (not safe)) - (cons __tmp279519 '())))) + (cons __tmp282414 '())))) (declare (not safe)) - (cons __tmp279557 __tmp279518)))) + (cons __tmp282452 __tmp282413)))) (declare (not safe)) - (cons '%#let-values __tmp279517)))) + (cons '%#let-values __tmp282412)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279515 _stx273672_)) - (let ((__tmp279506 - (let ((__tmp279507 - (let ((__tmp279513 - (let ((__tmp279514 + (gxc#xform-wrap-source __tmp282410 _stx276467_)) + (let ((__tmp282401 + (let ((__tmp282402 + (let ((__tmp282408 + (let ((__tmp282409 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp279514))) - (__tmp279508 - (let ((__tmp279509 - (let ((__tmp279510 - (let ((__tmp279511 - (let ((__tmp279512 + (cons '%#ref __tmp282409))) + (__tmp282403 + (let ((__tmp282404 + (let ((__tmp282405 + (let ((__tmp282406 + (let ((__tmp282407 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self273671_ - __slot278802 - __t278801 + _self276466_ + __slot281698 + __t281696 '#f)))) (declare (not safe)) - (cons __tmp279512 '())))) + (cons __tmp282407 '())))) (declare (not safe)) - (cons '%#quote __tmp279511)))) + (cons '%#quote __tmp282406)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279510 '())))) + (cons __tmp282405 '())))) (declare (not safe)) - (cons _object273713_ __tmp279509)))) + (cons _object276508_ __tmp282404)))) (declare (not safe)) - (cons __tmp279513 __tmp279508)))) + (cons __tmp282408 __tmp282403)))) (declare (not safe)) - (cons '%#call __tmp279507)))) + (cons '%#call __tmp282402)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279506 _stx273672_))))))))) + (gxc#xform-wrap-source __tmp282401 _stx276467_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd273679273693_) + _hd276474276488_) (let () (declare (not safe)) - (_g273675273685_ _g273676273688_))))) + (_g276470276480_ _g276471276483_))))) (let () (declare (not safe)) - (_g273675273685_ _g273676273688_)))))) + (_g276470276480_ _g276471276483_)))))) (declare (not safe)) - (_g273674273723_ _args273673_)))))) + (_g276469276518_ _args276468_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3096,363 +3096,363 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_self273476_ _stx273477_ _args273478_) - (let* ((_g273480273494_ - (lambda (_g273481273491_) + (lambda (_self276271_ _stx276272_ _args276273_) + (let* ((_g276275276289_ + (lambda (_g276276276286_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g273481273491_)))) - (_g273479273546_ - (lambda (_g273481273497_) + _g276276276286_)))) + (_g276274276341_ + (lambda (_g276276276292_) (if (let () (declare (not safe)) - (gx#stx-pair? _g273481273497_)) - (let ((_e273486273499_ + (gx#stx-pair? _g276276276292_)) + (let ((_e276281276294_ (let () (declare (not safe)) - (gx#stx-e _g273481273497_)))) - (let ((_hd273485273502_ + (gx#stx-e _g276276276292_)))) + (let ((_hd276280276297_ (let () (declare (not safe)) - (##car _e273486273499_))) - (_tl273484273504_ + (##car _e276281276294_))) + (_tl276279276299_ (let () (declare (not safe)) - (##cdr _e273486273499_)))) + (##cdr _e276281276294_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl273484273504_)) - (let ((_e273489273507_ + (gx#stx-pair? _tl276279276299_)) + (let ((_e276284276302_ (let () (declare (not safe)) - (gx#stx-e _tl273484273504_)))) - (let ((_hd273488273510_ + (gx#stx-e _tl276279276299_)))) + (let ((_hd276283276305_ (let () (declare (not safe)) - (##car _e273489273507_))) - (_tl273487273512_ + (##car _e276284276302_))) + (_tl276282276307_ (let () (declare (not safe)) - (##cdr _e273489273507_)))) + (##cdr _e276284276302_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl273487273512_)) - ((lambda (_L273515_ _L273516_) - (let* ((_klass273530_ - (let ((__tmp279591 + (gx#stx-null? _tl276282276307_)) + ((lambda (_L276310_ _L276311_) + (let* ((_klass276325_ + (let ((__tmp282486 (##structure-ref - _self273476_ + _self276271_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx273477_ - __tmp279591))) - (_field273532_ - (let ((__tmp279592 + _stx276272_ + __tmp282486))) + (_field276327_ + (let ((__tmp282487 (##structure-ref - _self273476_ + _self276271_ '2 gxc#!mutator::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass273530_ - __tmp279592))) - (_object273534_ + _klass276325_ + __tmp282487))) + (_object276329_ (let () (declare (not safe)) (gxc#compile-e__0 - _L273516_))) - (_value273536_ + _L276311_))) + (_value276331_ (let () (declare (not safe)) (gxc#compile-e__0 - _L273515_)))) + _L276310_)))) (if (##structure-ref - _klass273530_ + _klass276325_ '8 gxc#!class::t '#f) - (let ((__tmp279674 - (let ((__tmp279684 + (let ((__tmp282569 + (let ((__tmp282579 (if (##structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _self273476_ + _self276271_ '3 gxc#!mutator::t '#f) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp279675 - (let ((__tmp279681 - (let ((__tmp279682 - (let ((__tmp279683 + (__tmp282570 + (let ((__tmp282576 + (let ((__tmp282577 + (let ((__tmp282578 (##structure-ref - _self273476_ + _self276271_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279683 '())))) + (cons __tmp282578 '())))) (declare (not safe)) - (cons '%#ref __tmp279682))) - (__tmp279676 - (let ((__tmp279679 - (let ((__tmp279680 + (cons '%#ref __tmp282577))) + (__tmp282571 + (let ((__tmp282574 + (let ((__tmp282575 (let () (declare (not safe)) - (cons _field273532_ '())))) + (cons _field276327_ '())))) (declare (not safe)) - (cons '%#quote __tmp279680))) - (__tmp279677 - (let ((__tmp279678 + (cons '%#quote __tmp282575))) + (__tmp282572 + (let ((__tmp282573 (let () (declare (not safe)) - (cons _value273536_ '())))) + (cons _value276331_ '())))) (declare (not safe)) - (cons _object273534_ __tmp279678)))) + (cons _object276329_ __tmp282573)))) (declare (not safe)) - (cons __tmp279679 __tmp279677)))) + (cons __tmp282574 __tmp282572)))) (declare (not safe)) - (cons __tmp279681 __tmp279676)))) + (cons __tmp282576 __tmp282571)))) (declare (not safe)) - (cons __tmp279684 __tmp279675)))) + (cons __tmp282579 __tmp282570)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp279674 - _stx273477_)) + __tmp282569 + _stx276272_)) (if (##structure-ref - _klass273530_ + _klass276325_ '7 gxc#!class::t '#f) - (let ((__tmp279663 - (let ((__tmp279673 + (let ((__tmp282558 + (let ((__tmp282568 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self273476_ + _self276271_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp279664 - (let ((__tmp279670 - (let ((__tmp279671 - (let ((__tmp279672 + (__tmp282559 + (let ((__tmp282565 + (let ((__tmp282566 + (let ((__tmp282567 (##structure-ref - _self273476_ + _self276271_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279672 '())))) + (cons __tmp282567 '())))) (declare (not safe)) - (cons '%#ref __tmp279671))) - (__tmp279665 - (let ((__tmp279668 - (let ((__tmp279669 + (cons '%#ref __tmp282566))) + (__tmp282560 + (let ((__tmp282563 + (let ((__tmp282564 (let () (declare (not safe)) - (cons _field273532_ '())))) + (cons _field276327_ '())))) (declare (not safe)) - (cons '%#quote __tmp279669))) - (__tmp279666 - (let ((__tmp279667 + (cons '%#quote __tmp282564))) + (__tmp282561 + (let ((__tmp282562 (let () (declare (not safe)) - (cons _value273536_ '())))) + (cons _value276331_ '())))) (declare (not safe)) - (cons _object273534_ __tmp279667)))) + (cons _object276329_ __tmp282562)))) (declare (not safe)) - (cons __tmp279668 __tmp279666)))) + (cons __tmp282563 __tmp282561)))) (declare (not safe)) - (cons __tmp279670 __tmp279665)))) + (cons __tmp282565 __tmp282560)))) (declare (not safe)) - (cons __tmp279673 __tmp279664)))) + (cons __tmp282568 __tmp282559)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp279663 - _stx273477_)) - (let ((_$e273539_ - (let ((__tmp279593 + __tmp282558 + _stx276272_)) + (let ((_$e276334_ + (let ((__tmp282488 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self273476_ + _self276271_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass273530_ __tmp279593)))) + (gxc#!class-slot-find-struct _klass276325_ __tmp282488)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e273539_ - ((lambda (_klass273542_) - (let ((__tmp279652 + (if _$e276334_ + ((lambda (_klass276337_) + (let ((__tmp282547 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279662 + (let ((__tmp282557 (if (##structure-ref - _self273476_ + _self276271_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp279653 - (let ((__tmp279659 - (let ((__tmp279660 - (let ((__tmp279661 + (__tmp282548 + (let ((__tmp282554 + (let ((__tmp282555 + (let ((__tmp282556 (##structure-ref - _self273476_ + _self276271_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279661 '())))) + (cons __tmp282556 '())))) (declare (not safe)) - (cons '%#ref __tmp279660))) - (__tmp279654 - (let ((__tmp279657 - (let ((__tmp279658 + (cons '%#ref __tmp282555))) + (__tmp282549 + (let ((__tmp282552 + (let ((__tmp282553 (let () (declare (not safe)) - (cons _field273532_ + (cons _field276327_ '())))) (declare (not safe)) - (cons '%#quote __tmp279658))) - (__tmp279655 - (let ((__tmp279656 + (cons '%#quote __tmp282553))) + (__tmp282550 + (let ((__tmp282551 (let () (declare (not safe)) - (cons _value273536_ + (cons _value276331_ '())))) (declare (not safe)) - (cons _object273534_ - __tmp279656)))) + (cons _object276329_ + __tmp282551)))) (declare (not safe)) - (cons __tmp279657 __tmp279655)))) + (cons __tmp282552 __tmp282550)))) (declare (not safe)) - (cons __tmp279659 __tmp279654)))) + (cons __tmp282554 __tmp282549)))) (declare (not safe)) - (cons __tmp279662 __tmp279653)))) + (cons __tmp282557 __tmp282548)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279652 _stx273477_))) - _$e273539_) - (if (##structure-ref _self273476_ '3 gxc#!mutator::t '#f) - (let ((__tmp279604 - (let* ((_$obj273544_ - (let ((__tmp279605 (gensym '__obj))) + (gxc#xform-wrap-source __tmp282547 _stx276272_))) + _$e276334_) + (if (##structure-ref _self276271_ '3 gxc#!mutator::t '#f) + (let ((__tmp282499 + (let* ((_$obj276339_ + (let ((__tmp282500 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp279605))) - (__tmp279606 - (let ((__tmp279648 - (let ((__tmp279649 - (let ((__tmp279651 + (make-symbol__0 __tmp282500))) + (__tmp282501 + (let ((__tmp282543 + (let ((__tmp282544 + (let ((__tmp282546 (let () (declare (not safe)) - (cons _$obj273544_ + (cons _$obj276339_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp279650 - (let () (declare (not safe)) (cons _object273534_ '())))) + (__tmp282545 + (let () (declare (not safe)) (cons _object276329_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279651 - __tmp279650)))) + (cons __tmp282546 + __tmp282545)))) (declare (not safe)) - (cons __tmp279649 '()))) - (__tmp279607 - (let ((__tmp279608 - (let ((__tmp279609 - (let ((__tmp279640 - (let ((__tmp279641 + (cons __tmp282544 '()))) + (__tmp282502 + (let ((__tmp282503 + (let ((__tmp282504 + (let ((__tmp282535 + (let ((__tmp282536 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279645 - (let ((__tmp279646 - (let ((__tmp279647 + (let ((__tmp282540 + (let ((__tmp282541 + (let ((__tmp282542 (##structure-ref - _klass273530_ + _klass276325_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279647 '())))) + (cons __tmp282542 '())))) (declare (not safe)) - (cons '%#quote __tmp279646))) - (__tmp279642 - (let ((__tmp279643 - (let ((__tmp279644 + (cons '%#quote __tmp282541))) + (__tmp282537 + (let ((__tmp282538 + (let ((__tmp282539 (let () (declare (not safe)) - (cons _$obj273544_ + (cons _$obj276339_ '())))) (declare (not safe)) - (cons '%#ref __tmp279644)))) + (cons '%#ref __tmp282539)))) (declare (not safe)) - (cons __tmp279643 '())))) + (cons __tmp282538 '())))) (declare (not safe)) - (cons __tmp279645 __tmp279642)))) + (cons __tmp282540 __tmp282537)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp279641))) - (__tmp279610 - (let ((__tmp279628 - (let ((__tmp279629 - (let ((__tmp279637 - (let ((__tmp279638 - (let ((__tmp279639 + (cons '%#struct-direct-instance? __tmp282536))) + (__tmp282505 + (let ((__tmp282523 + (let ((__tmp282524 + (let ((__tmp282532 + (let ((__tmp282533 + (let ((__tmp282534 (##structure-ref - _self273476_ + _self276271_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279639 '())))) + (cons __tmp282534 '())))) (declare (not safe)) - (cons '%#ref __tmp279638))) - (__tmp279630 - (let ((__tmp279635 - (let ((__tmp279636 + (cons '%#ref __tmp282533))) + (__tmp282525 + (let ((__tmp282530 + (let ((__tmp282531 (let () (declare (not safe)) - (cons _field273532_ + (cons _field276327_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp279636))) + (cons '%#quote __tmp282531))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp279631 - (let ((__tmp279633 - (let ((__tmp279634 + (__tmp282526 + (let ((__tmp282528 + (let ((__tmp282529 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj273544_ '())))) + (cons _$obj276339_ '())))) (declare (not safe)) - (cons '%#ref __tmp279634))) - (__tmp279632 - (let () (declare (not safe)) (cons _value273536_ '())))) + (cons '%#ref __tmp282529))) + (__tmp282527 + (let () (declare (not safe)) (cons _value276331_ '())))) (declare (not safe)) - (cons __tmp279633 __tmp279632)))) + (cons __tmp282528 __tmp282527)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279635 - __tmp279631)))) + (cons __tmp282530 + __tmp282526)))) (declare (not safe)) - (cons __tmp279637 __tmp279630)))) + (cons __tmp282532 __tmp282525)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp279629))) - (__tmp279611 - (let ((__tmp279612 - (let ((__tmp279613 - (let ((__tmp279626 - (let ((__tmp279627 + (cons '%#struct-unchecked-set! __tmp282524))) + (__tmp282506 + (let ((__tmp282507 + (let ((__tmp282508 + (let ((__tmp282521 + (let ((__tmp282522 (let () (declare (not safe)) @@ -3460,674 +3460,674 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp279627))) + (cons '%#ref __tmp282522))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp279614 - (let ((__tmp279623 - (let ((__tmp279624 + (__tmp282509 + (let ((__tmp282518 + (let ((__tmp282519 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279625 + (let ((__tmp282520 (##structure-ref - _self273476_ + _self276271_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279625 '())))) + (cons __tmp282520 '())))) (declare (not safe)) - (cons '%#ref __tmp279624))) - (__tmp279615 - (let ((__tmp279621 - (let ((__tmp279622 + (cons '%#ref __tmp282519))) + (__tmp282510 + (let ((__tmp282516 + (let ((__tmp282517 (let () (declare (not safe)) - (cons _$obj273544_ '())))) + (cons _$obj276339_ '())))) (declare (not safe)) - (cons '%#ref __tmp279622))) - (__tmp279616 - (let ((__tmp279618 - (let ((__tmp279619 - (let ((__tmp279620 + (cons '%#ref __tmp282517))) + (__tmp282511 + (let ((__tmp282513 + (let ((__tmp282514 + (let ((__tmp282515 (##structure-ref - _self273476_ + _self276271_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp279620 '())))) + (cons __tmp282515 '())))) (declare (not safe)) - (cons '%#quote __tmp279619))) - (__tmp279617 + (cons '%#quote __tmp282514))) + (__tmp282512 (let () (declare (not safe)) - (cons _value273536_ '())))) + (cons _value276331_ '())))) (declare (not safe)) - (cons __tmp279618 __tmp279617)))) + (cons __tmp282513 __tmp282512)))) (declare (not safe)) - (cons __tmp279621 __tmp279616)))) + (cons __tmp282516 __tmp282511)))) (declare (not safe)) - (cons __tmp279623 __tmp279615)))) + (cons __tmp282518 __tmp282510)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279626 - __tmp279614)))) + (cons __tmp282521 + __tmp282509)))) (declare (not safe)) - (cons '%#call __tmp279613)))) + (cons '%#call __tmp282508)))) (declare (not safe)) - (cons __tmp279612 '())))) + (cons __tmp282507 '())))) (declare (not safe)) - (cons __tmp279628 __tmp279611)))) + (cons __tmp282523 __tmp282506)))) (declare (not safe)) - (cons __tmp279640 __tmp279610)))) + (cons __tmp282535 __tmp282505)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp279609)))) + (cons '%#if __tmp282504)))) (declare (not safe)) - (cons __tmp279608 '())))) + (cons __tmp282503 '())))) (declare (not safe)) - (cons __tmp279648 __tmp279607)))) + (cons __tmp282543 __tmp282502)))) (declare (not safe)) - (cons '%#let-values __tmp279606)))) + (cons '%#let-values __tmp282501)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279604 _stx273477_)) - (let ((__tmp279594 - (let ((__tmp279595 - (let ((__tmp279602 - (let ((__tmp279603 + (gxc#xform-wrap-source __tmp282499 _stx276272_)) + (let ((__tmp282489 + (let ((__tmp282490 + (let ((__tmp282497 + (let ((__tmp282498 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp279603))) - (__tmp279596 - (let ((__tmp279597 - (let ((__tmp279599 - (let ((__tmp279600 - (let ((__tmp279601 + (cons '%#ref __tmp282498))) + (__tmp282491 + (let ((__tmp282492 + (let ((__tmp282494 + (let ((__tmp282495 + (let ((__tmp282496 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self273476_ + _self276271_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp279601 '())))) + (cons __tmp282496 '())))) (declare (not safe)) - (cons '%#quote __tmp279600))) - (__tmp279598 - (let () (declare (not safe)) (cons _value273536_ '())))) + (cons '%#quote __tmp282495))) + (__tmp282493 + (let () (declare (not safe)) (cons _value276331_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279599 - __tmp279598)))) + (cons __tmp282494 + __tmp282493)))) (declare (not safe)) - (cons _object273534_ - __tmp279597)))) + (cons _object276329_ + __tmp282492)))) (declare (not safe)) - (cons __tmp279602 __tmp279596)))) + (cons __tmp282497 __tmp282491)))) (declare (not safe)) - (cons '%#call __tmp279595)))) + (cons '%#call __tmp282490)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279594 _stx273477_))))))))) + (gxc#xform-wrap-source __tmp282489 _stx276272_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd273488273510_ - _hd273485273502_) + _hd276283276305_ + _hd276280276297_) (let () (declare (not safe)) - (_g273480273494_ _g273481273497_))))) + (_g276275276289_ _g276276276292_))))) (let () (declare (not safe)) - (_g273480273494_ _g273481273497_))))) + (_g276275276289_ _g276276276292_))))) (let () (declare (not safe)) - (_g273480273494_ _g273481273497_)))))) + (_g276275276289_ _g276276276292_)))))) (declare (not safe)) - (_g273479273546_ _args273478_)))) + (_g276274276341_ _args276273_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__t278808) - (let ((__slot278809 - (let ((__tmp278812 + (lambda (__t281703) + (let ((__id281704 + (let ((__tmp281707 (let () (declare (not safe)) - (class-slot-offset __t278808 'slot)))) - (if __tmp278812 __tmp278812 (error '"Unknown slot" 'slot)))) - (__id278810 - (let ((__tmp278813 + (class-slot-offset __t281703 'id)))) + (if __tmp281707 __tmp281707 (error '"Unknown slot" 'id)))) + (__slot281705 + (let ((__tmp281708 (let () (declare (not safe)) - (class-slot-offset __t278808 'id)))) - (if __tmp278813 __tmp278813 (error '"Unknown slot" 'id)))) - (__checked?278811 - (let ((__tmp278814 + (class-slot-offset __t281703 'slot)))) + (if __tmp281708 __tmp281708 (error '"Unknown slot" 'slot)))) + (__checked?281706 + (let ((__tmp281709 (let () (declare (not safe)) - (class-slot-offset __t278808 'checked?)))) - (if __tmp278814 - __tmp278814 + (class-slot-offset __t281703 'checked?)))) + (if __tmp281709 + __tmp281709 (error '"Unknown slot" 'checked?))))) - (lambda (_self273476_ _stx273477_ _args273478_) - (let* ((_g273480273494_ - (lambda (_g273481273491_) + (lambda (_self276271_ _stx276272_ _args276273_) + (let* ((_g276275276289_ + (lambda (_g276276276286_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g273481273491_)))) - (_g273479273546_ - (lambda (_g273481273497_) + _g276276276286_)))) + (_g276274276341_ + (lambda (_g276276276292_) (if (let () (declare (not safe)) - (gx#stx-pair? _g273481273497_)) - (let ((_e273486273499_ + (gx#stx-pair? _g276276276292_)) + (let ((_e276281276294_ (let () (declare (not safe)) - (gx#stx-e _g273481273497_)))) - (let ((_hd273485273502_ + (gx#stx-e _g276276276292_)))) + (let ((_hd276280276297_ (let () (declare (not safe)) - (##car _e273486273499_))) - (_tl273484273504_ + (##car _e276281276294_))) + (_tl276279276299_ (let () (declare (not safe)) - (##cdr _e273486273499_)))) + (##cdr _e276281276294_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl273484273504_)) - (let ((_e273489273507_ + (gx#stx-pair? _tl276279276299_)) + (let ((_e276284276302_ (let () (declare (not safe)) - (gx#stx-e _tl273484273504_)))) - (let ((_hd273488273510_ + (gx#stx-e _tl276279276299_)))) + (let ((_hd276283276305_ (let () (declare (not safe)) - (##car _e273489273507_))) - (_tl273487273512_ + (##car _e276284276302_))) + (_tl276282276307_ (let () (declare (not safe)) - (##cdr _e273489273507_)))) + (##cdr _e276284276302_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl273487273512_)) - ((lambda (_L273515_ _L273516_) - (let* ((_klass273530_ - (let ((__tmp279685 + (gx#stx-null? _tl276282276307_)) + ((lambda (_L276310_ _L276311_) + (let* ((_klass276325_ + (let ((__tmp282580 (let () (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __id278810 - __t278808 + _self276271_ + __id281704 + __t281703 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx273477_ - __tmp279685))) - (_field273532_ - (let ((__tmp279686 + _stx276272_ + __tmp282580))) + (_field276327_ + (let ((__tmp282581 (let () (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __slot278809 - __t278808 + _self276271_ + __slot281705 + __t281703 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass273530_ - __tmp279686))) - (_object273534_ + _klass276325_ + __tmp282581))) + (_object276329_ (let () (declare (not safe)) (gxc#compile-e__0 - _L273516_))) - (_value273536_ + _L276311_))) + (_value276331_ (let () (declare (not safe)) (gxc#compile-e__0 - _L273515_)))) + _L276310_)))) (if (##structure-ref - _klass273530_ + _klass276325_ '8 gxc#!class::t '#f) - (let ((__tmp279768 - (let ((__tmp279778 + (let ((__tmp282663 + (let ((__tmp282673 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __checked?278811 - __t278808 + _self276271_ + __checked?281706 + __t281703 '#f)) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp279769 - (let ((__tmp279775 - (let ((__tmp279776 - (let ((__tmp279777 + (__tmp282664 + (let ((__tmp282670 + (let ((__tmp282671 + (let ((__tmp282672 (let () (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __id278810 - __t278808 + _self276271_ + __id281704 + __t281703 '#f)))) (declare (not safe)) - (cons __tmp279777 '())))) + (cons __tmp282672 '())))) (declare (not safe)) - (cons '%#ref __tmp279776))) - (__tmp279770 - (let ((__tmp279773 - (let ((__tmp279774 + (cons '%#ref __tmp282671))) + (__tmp282665 + (let ((__tmp282668 + (let ((__tmp282669 (let () (declare (not safe)) - (cons _field273532_ '())))) + (cons _field276327_ '())))) (declare (not safe)) - (cons '%#quote __tmp279774))) - (__tmp279771 - (let ((__tmp279772 + (cons '%#quote __tmp282669))) + (__tmp282666 + (let ((__tmp282667 (let () (declare (not safe)) - (cons _value273536_ '())))) + (cons _value276331_ '())))) (declare (not safe)) - (cons _object273534_ __tmp279772)))) + (cons _object276329_ __tmp282667)))) (declare (not safe)) - (cons __tmp279773 __tmp279771)))) + (cons __tmp282668 __tmp282666)))) (declare (not safe)) - (cons __tmp279775 __tmp279770)))) + (cons __tmp282670 __tmp282665)))) (declare (not safe)) - (cons __tmp279778 __tmp279769)))) + (cons __tmp282673 __tmp282664)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp279768 - _stx273477_)) + __tmp282663 + _stx276272_)) (if (##structure-ref - _klass273530_ + _klass276325_ '7 gxc#!class::t '#f) - (let ((__tmp279757 - (let ((__tmp279767 + (let ((__tmp282652 + (let ((__tmp282662 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __checked?278811 - __t278808 + _self276271_ + __checked?281706 + __t281703 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp279758 - (let ((__tmp279764 - (let ((__tmp279765 - (let ((__tmp279766 + (__tmp282653 + (let ((__tmp282659 + (let ((__tmp282660 + (let ((__tmp282661 (let () (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __id278810 - __t278808 + _self276271_ + __id281704 + __t281703 '#f)))) (declare (not safe)) - (cons __tmp279766 '())))) + (cons __tmp282661 '())))) (declare (not safe)) - (cons '%#ref __tmp279765))) - (__tmp279759 - (let ((__tmp279762 - (let ((__tmp279763 + (cons '%#ref __tmp282660))) + (__tmp282654 + (let ((__tmp282657 + (let ((__tmp282658 (let () (declare (not safe)) - (cons _field273532_ '())))) + (cons _field276327_ '())))) (declare (not safe)) - (cons '%#quote __tmp279763))) - (__tmp279760 - (let ((__tmp279761 + (cons '%#quote __tmp282658))) + (__tmp282655 + (let ((__tmp282656 (let () (declare (not safe)) - (cons _value273536_ '())))) + (cons _value276331_ '())))) (declare (not safe)) - (cons _object273534_ - __tmp279761)))) + (cons _object276329_ + __tmp282656)))) (declare (not safe)) - (cons __tmp279762 __tmp279760)))) + (cons __tmp282657 __tmp282655)))) (declare (not safe)) - (cons __tmp279764 __tmp279759)))) + (cons __tmp282659 __tmp282654)))) (declare (not safe)) - (cons __tmp279767 __tmp279758)))) + (cons __tmp282662 __tmp282653)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279757 _stx273477_)) - (let ((_$e273539_ - (let ((__tmp279687 + (gxc#xform-wrap-source __tmp282652 _stx276272_)) + (let ((_$e276334_ + (let ((__tmp282582 (let () (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __slot278809 - __t278808 + _self276271_ + __slot281705 + __t281703 '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass273530_ - __tmp279687)))) - (if _$e273539_ - ((lambda (_klass273542_) - (let ((__tmp279746 - (let ((__tmp279756 + _klass276325_ + __tmp282582)))) + (if _$e276334_ + ((lambda (_klass276337_) + (let ((__tmp282641 + (let ((__tmp282651 (if (let () (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __checked?278811 - __t278808 + _self276271_ + __checked?281706 + __t281703 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp279747 - (let ((__tmp279753 - (let ((__tmp279754 - (let ((__tmp279755 + (__tmp282642 + (let ((__tmp282648 + (let ((__tmp282649 + (let ((__tmp282650 (let () (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __id278810 - __t278808 + _self276271_ + __id281704 + __t281703 '#f)))) (declare (not safe)) - (cons __tmp279755 '())))) + (cons __tmp282650 '())))) (declare (not safe)) - (cons '%#ref __tmp279754))) - (__tmp279748 - (let ((__tmp279751 - (let ((__tmp279752 + (cons '%#ref __tmp282649))) + (__tmp282643 + (let ((__tmp282646 + (let ((__tmp282647 (let () (declare (not safe)) - (cons _field273532_ + (cons _field276327_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp279752))) + (cons '%#quote __tmp282647))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp279749 - (let ((__tmp279750 + (__tmp282644 + (let ((__tmp282645 (let () (declare (not safe)) - (cons _value273536_ + (cons _value276331_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _object273534_ __tmp279750)))) + (cons _object276329_ __tmp282645)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279751 - __tmp279749)))) + (cons __tmp282646 + __tmp282644)))) (declare (not safe)) - (cons __tmp279753 __tmp279748)))) + (cons __tmp282648 __tmp282643)))) (declare (not safe)) - (cons __tmp279756 __tmp279747)))) + (cons __tmp282651 __tmp282642)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279746 _stx273477_))) - _$e273539_) + (gxc#xform-wrap-source __tmp282641 _stx276272_))) + _$e276334_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __checked?278811 - __t278808 + _self276271_ + __checked?281706 + __t281703 '#f)) - (let ((__tmp279698 - (let* ((_$obj273544_ - (let ((__tmp279699 (gensym '__obj))) + (let ((__tmp282593 + (let* ((_$obj276339_ + (let ((__tmp282594 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp279699))) - (__tmp279700 - (let ((__tmp279742 - (let ((__tmp279743 - (let ((__tmp279745 + (make-symbol__0 __tmp282594))) + (__tmp282595 + (let ((__tmp282637 + (let ((__tmp282638 + (let ((__tmp282640 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj273544_ '()))) - (__tmp279744 - (let () (declare (not safe)) (cons _object273534_ '())))) + (cons _$obj276339_ '()))) + (__tmp282639 + (let () (declare (not safe)) (cons _object276329_ '())))) (declare (not safe)) - (cons __tmp279745 __tmp279744)))) + (cons __tmp282640 __tmp282639)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279743 '()))) - (__tmp279701 - (let ((__tmp279702 - (let ((__tmp279703 - (let ((__tmp279734 + (cons __tmp282638 '()))) + (__tmp282596 + (let ((__tmp282597 + (let ((__tmp282598 + (let ((__tmp282629 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279735 - (let ((__tmp279739 - (let ((__tmp279740 - (let ((__tmp279741 + (let ((__tmp282630 + (let ((__tmp282634 + (let ((__tmp282635 + (let ((__tmp282636 (##structure-ref - _klass273530_ + _klass276325_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp279741 '())))) + (cons __tmp282636 '())))) (declare (not safe)) - (cons '%#quote __tmp279740))) - (__tmp279736 - (let ((__tmp279737 - (let ((__tmp279738 + (cons '%#quote __tmp282635))) + (__tmp282631 + (let ((__tmp282632 + (let ((__tmp282633 (let () (declare (not safe)) - (cons _$obj273544_ + (cons _$obj276339_ '())))) (declare (not safe)) - (cons '%#ref __tmp279738)))) + (cons '%#ref __tmp282633)))) (declare (not safe)) - (cons __tmp279737 '())))) + (cons __tmp282632 '())))) (declare (not safe)) - (cons __tmp279739 __tmp279736)))) + (cons __tmp282634 __tmp282631)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp279735))) - (__tmp279704 - (let ((__tmp279722 - (let ((__tmp279723 - (let ((__tmp279731 - (let ((__tmp279732 - (let ((__tmp279733 + (cons '%#struct-direct-instance? __tmp282630))) + (__tmp282599 + (let ((__tmp282617 + (let ((__tmp282618 + (let ((__tmp282626 + (let ((__tmp282627 + (let ((__tmp282628 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __id278810 - __t278808 + _self276271_ + __id281704 + __t281703 '#f)))) (declare (not safe)) - (cons __tmp279733 '())))) + (cons __tmp282628 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp279732))) - (__tmp279724 - (let ((__tmp279729 - (let ((__tmp279730 + (cons '%#ref __tmp282627))) + (__tmp282619 + (let ((__tmp282624 + (let ((__tmp282625 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _field273532_ '())))) + (cons _field276327_ '())))) (declare (not safe)) - (cons '%#quote __tmp279730))) - (__tmp279725 - (let ((__tmp279727 - (let ((__tmp279728 + (cons '%#quote __tmp282625))) + (__tmp282620 + (let ((__tmp282622 + (let ((__tmp282623 (let () (declare (not safe)) - (cons _$obj273544_ '())))) + (cons _$obj276339_ '())))) (declare (not safe)) - (cons '%#ref __tmp279728))) - (__tmp279726 - (let () (declare (not safe)) (cons _value273536_ '())))) + (cons '%#ref __tmp282623))) + (__tmp282621 + (let () (declare (not safe)) (cons _value276331_ '())))) (declare (not safe)) - (cons __tmp279727 __tmp279726)))) + (cons __tmp282622 __tmp282621)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279729 - __tmp279725)))) + (cons __tmp282624 + __tmp282620)))) (declare (not safe)) - (cons __tmp279731 __tmp279724)))) + (cons __tmp282626 __tmp282619)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp279723))) - (__tmp279705 - (let ((__tmp279706 - (let ((__tmp279707 - (let ((__tmp279720 - (let ((__tmp279721 + __tmp282618))) + (__tmp282600 + (let ((__tmp282601 + (let ((__tmp282602 + (let ((__tmp282615 + (let ((__tmp282616 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp279721))) - (__tmp279708 - (let ((__tmp279717 - (let ((__tmp279718 - (let ((__tmp279719 + (cons '%#ref __tmp282616))) + (__tmp282603 + (let ((__tmp282612 + (let ((__tmp282613 + (let ((__tmp282614 (let () (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __id278810 - __t278808 + _self276271_ + __id281704 + __t281703 '#f)))) (declare (not safe)) - (cons __tmp279719 '())))) + (cons __tmp282614 '())))) (declare (not safe)) - (cons '%#ref __tmp279718))) - (__tmp279709 - (let ((__tmp279715 - (let ((__tmp279716 + (cons '%#ref __tmp282613))) + (__tmp282604 + (let ((__tmp282610 + (let ((__tmp282611 (let () (declare (not safe)) - (cons _$obj273544_ '())))) + (cons _$obj276339_ '())))) (declare (not safe)) - (cons '%#ref __tmp279716))) - (__tmp279710 - (let ((__tmp279712 - (let ((__tmp279713 - (let ((__tmp279714 + (cons '%#ref __tmp282611))) + (__tmp282605 + (let ((__tmp282607 + (let ((__tmp282608 + (let ((__tmp282609 (let () (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __slot278809 - __t278808 + _self276271_ + __slot281705 + __t281703 '#f)))) (declare (not safe)) - (cons __tmp279714 '())))) + (cons __tmp282609 '())))) (declare (not safe)) - (cons '%#quote __tmp279713))) - (__tmp279711 + (cons '%#quote __tmp282608))) + (__tmp282606 (let () (declare (not safe)) - (cons _value273536_ '())))) + (cons _value276331_ '())))) (declare (not safe)) - (cons __tmp279712 __tmp279711)))) + (cons __tmp282607 __tmp282606)))) (declare (not safe)) - (cons __tmp279715 __tmp279710)))) + (cons __tmp282610 __tmp282605)))) (declare (not safe)) - (cons __tmp279717 __tmp279709)))) + (cons __tmp282612 __tmp282604)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279720 - __tmp279708)))) + (cons __tmp282615 + __tmp282603)))) (declare (not safe)) - (cons '%#call __tmp279707)))) + (cons '%#call __tmp282602)))) (declare (not safe)) - (cons __tmp279706 '())))) + (cons __tmp282601 '())))) (declare (not safe)) - (cons __tmp279722 __tmp279705)))) + (cons __tmp282617 __tmp282600)))) (declare (not safe)) - (cons __tmp279734 __tmp279704)))) + (cons __tmp282629 __tmp282599)))) (declare (not safe)) - (cons '%#if __tmp279703)))) + (cons '%#if __tmp282598)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279702 '())))) + (cons __tmp282597 '())))) (declare (not safe)) - (cons __tmp279742 __tmp279701)))) + (cons __tmp282637 __tmp282596)))) (declare (not safe)) - (cons '%#let-values __tmp279700)))) + (cons '%#let-values __tmp282595)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp279698 _stx273477_)) - (let ((__tmp279688 - (let ((__tmp279689 - (let ((__tmp279696 - (let ((__tmp279697 + (gxc#xform-wrap-source __tmp282593 _stx276272_)) + (let ((__tmp282583 + (let ((__tmp282584 + (let ((__tmp282591 + (let ((__tmp282592 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp279697))) - (__tmp279690 - (let ((__tmp279691 - (let ((__tmp279693 - (let ((__tmp279694 + (cons '%#ref __tmp282592))) + (__tmp282585 + (let ((__tmp282586 + (let ((__tmp282588 + (let ((__tmp282589 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279695 + (let ((__tmp282590 (let () (declare (not safe)) (##unchecked-structure-ref - _self273476_ - __slot278809 - __t278808 + _self276271_ + __slot281705 + __t281703 '#f)))) (declare (not safe)) - (cons __tmp279695 '())))) + (cons __tmp282590 '())))) (declare (not safe)) - (cons '%#quote __tmp279694))) - (__tmp279692 - (let () (declare (not safe)) (cons _value273536_ '())))) + (cons '%#quote __tmp282589))) + (__tmp282587 + (let () (declare (not safe)) (cons _value276331_ '())))) (declare (not safe)) - (cons __tmp279693 __tmp279692)))) + (cons __tmp282588 __tmp282587)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _object273534_ - __tmp279691)))) + (cons _object276329_ + __tmp282586)))) (declare (not safe)) - (cons __tmp279696 __tmp279690)))) + (cons __tmp282591 __tmp282585)))) (declare (not safe)) - (cons '%#call __tmp279689)))) + (cons '%#call __tmp282584)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279688 - _stx273477_))))))))) + __tmp282583 + _stx276272_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd273488273510_ - _hd273485273502_) + _hd276283276305_ + _hd276280276297_) (let () (declare (not safe)) - (_g273480273494_ - _g273481273497_))))) + (_g276275276289_ + _g276276276292_))))) (let () (declare (not safe)) - (_g273480273494_ _g273481273497_))))) + (_g276275276289_ _g276276276292_))))) (let () (declare (not safe)) - (_g273480273494_ _g273481273497_)))))) + (_g276275276289_ _g276276276292_)))))) (declare (not safe)) - (_g273479273546_ _args273478_)))))) + (_g276274276341_ _args276273_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4141,113 +4141,113 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_self273310_ _stx273311_ _args273312_) - (let* ((_self273313273322_ _self273310_) - (_E273315273326_ - (lambda () (error '"No clause matching" _self273313273322_))) - (_K273316273333_ - (lambda (_inline273329_ _dispatch273330_ _arity273331_) + (lambda (_self276105_ _stx276106_ _args276107_) + (let* ((_self276108276117_ _self276105_) + (_E276110276121_ + (lambda () (error '"No clause matching" _self276108276117_))) + (_K276111276128_ + (lambda (_inline276124_ _dispatch276125_ _arity276126_) (if (let () (declare (not safe)) - (gxc#!lambda-arity-match? _self273310_ _args273312_)) + (gxc#!lambda-arity-match? _self276105_ _args276107_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _stx273311_ - _arity273331_))) - (if _inline273329_ + _stx276106_ + _arity276126_))) + (if _inline276124_ (begin (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp279784 - (let ((__tmp279785 - (_inline273329_ _stx273311_))) + (let ((__tmp282679 + (let ((__tmp282680 + (_inline276124_ _stx276106_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279785 - _stx273311_)))) + __tmp282680 + _stx276106_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp279784))) - (if _dispatch273330_ + (gxc#compile-e__0 __tmp282679))) + (if _dispatch276125_ (begin (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _dispatch273330_)) - (let ((__tmp279779 - (let ((__tmp279780 - (let ((__tmp279781 - (let ((__tmp279782 - (let ((__tmp279783 + _dispatch276125_)) + (let ((__tmp282674 + (let ((__tmp282675 + (let ((__tmp282676 + (let ((__tmp282677 + (let ((__tmp282678 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _dispatch273330_ '())))) + (cons _dispatch276125_ '())))) (declare (not safe)) - (cons '%#ref __tmp279783)))) + (cons '%#ref __tmp282678)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279782 - _args273312_)))) + (cons __tmp282677 + _args276107_)))) (declare (not safe)) - (cons '%#call __tmp279781)))) + (cons '%#call __tmp282676)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279780 - _stx273311_)))) + __tmp282675 + _stx276106_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp279779))) + (gxc#compile-e__0 __tmp282674))) (let () (declare (not safe)) - (gxc#xform-call% _stx273311_))))))) + (gxc#xform-call% _stx276106_))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self273313273322_ 'gxc#!lambda::t)) - (let* ((_e273317273336_ + (##structure-instance-of? _self276108276117_ 'gxc#!lambda::t)) + (let* ((_e276112276131_ (let () (declare (not safe)) (##unchecked-structure-ref - _self273313273322_ + _self276108276117_ '1 gxc#!type::t '#f))) - (_e273318273339_ + (_e276113276134_ (let () (declare (not safe)) (##unchecked-structure-ref - _self273313273322_ + _self276108276117_ '2 gxc#!lambda::t '#f))) - (_arity273342_ _e273318273339_) - (_e273319273344_ + (_arity276137_ _e276113276134_) + (_e276114276139_ (let () (declare (not safe)) (##unchecked-structure-ref - _self273313273322_ + _self276108276117_ '3 gxc#!lambda::t '#f))) - (_dispatch273347_ _e273319273344_) - (_e273320273349_ + (_dispatch276142_ _e276114276139_) + (_e276115276144_ (let () (declare (not safe)) (##unchecked-structure-ref - _self273313273322_ + _self276108276117_ '4 gxc#!lambda::t '#f))) - (_inline273352_ _e273320273349_)) + (_inline276147_ _e276115276144_)) (declare (not safe)) - (_K273316273333_ - _inline273352_ - _dispatch273347_ - _arity273342_)) - (let () (declare (not safe)) (_E273315273326_)))))) + (_K276111276128_ + _inline276147_ + _dispatch276142_ + _arity276137_)) + (let () (declare (not safe)) (_E276110276121_)))))) (let () (declare (not safe)) (bind-method! @@ -4256,71 +4256,71 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_self273149_ _stx273150_ _args273151_) - (let* ((_self273152273159_ _self273149_) - (_E273154273163_ - (lambda () (error '"No clause matching" _self273152273159_))) - (_K273155273177_ - (lambda (_clauses273166_) - (let ((_$e273172_ - (let ((__tmp279786 - (lambda (_g273167273169_) + (lambda (_self275944_ _stx275945_ _args275946_) + (let* ((_self275947275954_ _self275944_) + (_E275949275958_ + (lambda () (error '"No clause matching" _self275947275954_))) + (_K275950275972_ + (lambda (_clauses275961_) + (let ((_$e275967_ + (let ((__tmp282681 + (lambda (_g275962275964_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _g273167273169_ - _args273151_))))) + _g275962275964_ + _args275946_))))) (declare (not safe)) - (find __tmp279786 _clauses273166_)))) - (if _$e273172_ - ((lambda (_clause273175_) - (let ((__method279083 + (find __tmp282681 _clauses275961_)))) + (if _$e275967_ + ((lambda (_clause275970_) + (let ((__method281978 (let () (declare (not safe)) (method-ref - _clause273175_ + _clause275970_ 'optimize-call)))) - (if __method279083 - (__method279083 - _clause273175_ - _stx273150_ - _args273151_) + (if __method281978 + (__method281978 + _clause275970_ + _stx275945_ + _args275946_) (error '"Missing method" - _clause273175_ + _clause275970_ 'optimize-call)))) - _$e273172_) - (let ((__tmp279787 - (map gxc#!lambda-arity _clauses273166_))) + _$e275967_) + (let ((__tmp282682 + (map gxc#!lambda-arity _clauses275961_))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _stx273150_ - __tmp279787))))))) + _stx275945_ + __tmp282682))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self273152273159_ + _self275947275954_ 'gxc#!case-lambda::t)) - (let* ((_e273156273180_ + (let* ((_e275951275975_ (let () (declare (not safe)) (##unchecked-structure-ref - _self273152273159_ + _self275947275954_ '1 gxc#!type::t '#f))) - (_e273157273183_ + (_e275952275978_ (let () (declare (not safe)) (##unchecked-structure-ref - _self273152273159_ + _self275947275954_ '2 gxc#!case-lambda::t '#f))) - (_clauses273186_ _e273157273183_)) + (_clauses275981_ _e275952275978_)) (declare (not safe)) - (_K273155273177_ _clauses273186_)) - (let () (declare (not safe)) (_E273154273163_)))))) + (_K275950275972_ _clauses275981_)) + (let () (declare (not safe)) (_E275949275958_)))))) (let () (declare (not safe)) (bind-method! @@ -4329,484 +4329,484 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!lambda-arity-match? - (lambda (_self272963_ _args272964_) - (let* ((_self272965272972_ _self272963_) - (_E272967272976_ - (lambda () (error '"No clause matching" _self272965272972_))) - (_K272968273016_ - (lambda (_arity272979_) - (let* ((_arity272980272989_ _arity272979_) - (_E272983272993_ + (lambda (_self275758_ _args275759_) + (let* ((_self275760275767_ _self275758_) + (_E275762275771_ + (lambda () (error '"No clause matching" _self275760275767_))) + (_K275763275811_ + (lambda (_arity275774_) + (let* ((_arity275775275784_ _arity275774_) + (_E275778275788_ (lambda () (error '"No clause matching" - _arity272980272989_)))) - (let ((_K272987273013_ + _arity275775275784_)))) + (let ((_K275782275808_ (lambda () - (fx= (length _args272964_) _arity272979_))) - (_K272984272999_ - (lambda (_arity272997_) - (fx>= (length _args272964_) _arity272997_)))) - (let ((_try-match272982273009_ + (fx= (length _args275759_) _arity275774_))) + (_K275779275794_ + (lambda (_arity275792_) + (fx>= (length _args275759_) _arity275792_)))) + (let ((_try-match275777275804_ (lambda () (if (let () (declare (not safe)) - (##pair? _arity272980272989_)) - (let ((_tl272986273004_ + (##pair? _arity275775275784_)) + (let ((_tl275781275799_ (let () (declare (not safe)) - (##cdr _arity272980272989_))) - (_hd272985273002_ + (##cdr _arity275775275784_))) + (_hd275780275797_ (let () (declare (not safe)) - (##car _arity272980272989_)))) + (##car _arity275775275784_)))) (if (let () (declare (not safe)) - (##null? _tl272986273004_)) - (let ((_arity273007_ - _hd272985273002_)) + (##null? _tl275781275799_)) + (let ((_arity275802_ + _hd275780275797_)) (declare (not safe)) - (_K272984272999_ _arity273007_)) + (_K275779275794_ _arity275802_)) (let () (declare (not safe)) - (_E272983272993_)))) + (_E275778275788_)))) (let () (declare (not safe)) - (_E272983272993_)))))) - (if (fixnum? _arity272980272989_) - (let () (declare (not safe)) (_K272987273013_)) + (_E275778275788_)))))) + (if (fixnum? _arity275775275784_) + (let () (declare (not safe)) (_K275782275808_)) (let () (declare (not safe)) - (_try-match272982273009_))))))))) + (_try-match275777275804_))))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self272965272972_ 'gxc#!lambda::t)) - (let* ((_e272969273019_ + (##structure-instance-of? _self275760275767_ 'gxc#!lambda::t)) + (let* ((_e275764275814_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272965272972_ + _self275760275767_ '1 gxc#!type::t '#f))) - (_e272970273022_ + (_e275765275817_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272965272972_ + _self275760275767_ '2 gxc#!lambda::t '#f))) - (_arity273025_ _e272970273022_)) + (_arity275820_ _e275765275817_)) (declare (not safe)) - (_K272968273016_ _arity273025_)) - (let () (declare (not safe)) (_E272967272976_)))))) + (_K275763275811_ _arity275820_)) + (let () (declare (not safe)) (_E275762275771_)))))) (define gxc#!kw-lambda::optimize-call - (lambda (_self272848_ _stx272849_ _args272850_) - (let* ((_self272851272859_ _self272848_) - (_E272853272863_ - (lambda () (error '"No clause matching" _self272851272859_))) - (_K272854272947_ - (lambda (_dispatch272866_ _table272867_) - (let* ((_g272868272877_ + (lambda (_self275643_ _stx275644_ _args275645_) + (let* ((_self275646275654_ _self275643_) + (_E275648275658_ + (lambda () (error '"No clause matching" _self275646275654_))) + (_K275649275742_ + (lambda (_dispatch275661_ _table275662_) + (let* ((_g275663275672_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _dispatch272866_))) - (_else272870272885_ + (gxc#optimizer-lookup-type _dispatch275661_))) + (_else275665275680_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _dispatch272866_)) + _dispatch275661_)) (let () (declare (not safe)) - (gxc#xform-call% _stx272849_)))) - (_K272872272931_ - (lambda (_main272888_ _keys272889_) - (let ((_g279788_ + (gxc#xform-call% _stx275644_)))) + (_K275667275726_ + (lambda (_main275683_ _keys275684_) + (let ((_g282683_ (let () (declare (not safe)) (gxc#!kw-lambda-split-args - _stx272849_ - _args272850_)))) + _stx275644_ + _args275645_)))) (begin - (let ((_g279789_ + (let ((_g282684_ (let () (declare (not safe)) - (if (##values? _g279788_) - (##vector-length _g279788_) + (if (##values? _g282683_) + (##vector-length _g282683_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g279789_ 2))) + (##fx= _g282684_ 2))) (error "Context expects 2 values" - _g279789_))) - (let ((_pargs272891_ + _g282684_))) + (let ((_pargs275686_ (let () (declare (not safe)) - (##vector-ref _g279788_ 0))) - (_kwargs272892_ + (##vector-ref _g282683_ 0))) + (_kwargs275687_ (let () (declare (not safe)) - (##vector-ref _g279788_ 1)))) + (##vector-ref _g282683_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _main272888_)) - (if _table272867_ - (let ((_xargs272899_ - (map (lambda (_key272894_) - (let ((_$e272896_ + _main275683_)) + (if _table275662_ + (let ((_xargs275694_ + (map (lambda (_key275689_) + (let ((_$e275691_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq _key272894_ _kwargs272892_)))) - (if _$e272896_ (values _$e272896_) '(%#ref absent-value)))) + (assgetq _key275689_ _kwargs275687_)))) + (if _$e275691_ (values _$e275691_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys272889_))) + _keys275684_))) (for-each - (lambda (_kw272901_) - (if (memq (car _kw272901_) - _keys272889_) + (lambda (_kw275696_) + (if (memq (car _kw275696_) + _keys275684_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _stx272849_ - _keys272889_ - _kw272901_)))) - _kwargs272892_) - (let ((__tmp279841 - (let ((__tmp279842 - (let ((__tmp279843 - (let ((__tmp279848 + _stx275644_ + _keys275684_ + _kw275696_)))) + _kwargs275687_) + (let ((__tmp282736 + (let ((__tmp282737 + (let ((__tmp282738 + (let ((__tmp282743 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279849 + (let ((__tmp282744 (let () (declare (not safe)) - (cons _main272888_ '())))) + (cons _main275683_ '())))) (declare (not safe)) - (cons '%#ref __tmp279849))) - (__tmp279844 - (let ((__tmp279846 - (let ((__tmp279847 + (cons '%#ref __tmp282744))) + (__tmp282739 + (let ((__tmp282741 + (let ((__tmp282742 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp279847))) - (__tmp279845 + (cons '%#quote __tmp282742))) + (__tmp282740 (let () (declare (not safe)) (foldr1 cons - _pargs272891_ - _xargs272899_)))) + _pargs275686_ + _xargs275694_)))) (declare (not safe)) - (cons __tmp279846 __tmp279845)))) + (cons __tmp282741 __tmp282740)))) (declare (not safe)) - (cons __tmp279848 __tmp279844)))) + (cons __tmp282743 __tmp282739)))) (declare (not safe)) - (cons '%#call __tmp279843)))) + (cons '%#call __tmp282738)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp279842 - _stx272849_)))) + __tmp282737 + _stx275644_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp279841))) - (let* ((_kwt272903_ - (let ((__tmp279790 + (gxc#compile-e__0 __tmp282736))) + (let* ((_kwt275698_ + (let ((__tmp282685 (gensym '__kwt))) (declare (not safe)) (make-symbol__0 - __tmp279790))) - (_kwvars272906_ - (map (lambda (_g279791_) - (let ((__tmp279792 + __tmp282685))) + (_kwvars275701_ + (map (lambda (_g282686_) + (let ((__tmp282687 (gensym '__kw))) (declare (not safe)) (make-symbol__0 - __tmp279792))) - _kwargs272892_)) - (_kwbind272911_ - (map (lambda (_kw272908_ - _kwvar272909_) - (let ((__tmp279795 + __tmp282687))) + _kwargs275687_)) + (_kwbind275706_ + (map (lambda (_kw275703_ + _kwvar275704_) + (let ((__tmp282690 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _kwvar272909_ '()))) - (__tmp279793 - (let ((__tmp279794 (cdr _kw272908_))) + (cons _kwvar275704_ '()))) + (__tmp282688 + (let ((__tmp282689 (cdr _kw275703_))) (declare (not safe)) - (cons __tmp279794 '())))) + (cons __tmp282689 '())))) (declare (not safe)) - (cons __tmp279795 __tmp279793))) + (cons __tmp282690 __tmp282688))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs272892_ - _kwvars272906_)) - (_kwset272916_ - (map (lambda (_kw272913_ - _kwvar272914_) - (let ((__tmp279796 - (let ((__tmp279797 + _kwargs275687_ + _kwvars275701_)) + (_kwset275711_ + (map (lambda (_kw275708_ + _kwvar275709_) + (let ((__tmp282691 + (let ((__tmp282692 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279805 - (let ((__tmp279806 + (let ((__tmp282700 + (let ((__tmp282701 (let () (declare (not safe)) - (cons _kwt272903_ '())))) + (cons _kwt275698_ '())))) (declare (not safe)) - (cons '%#ref __tmp279806))) - (__tmp279798 - (let ((__tmp279802 - (let ((__tmp279803 - (let ((__tmp279804 - (car _kw272913_))) + (cons '%#ref __tmp282701))) + (__tmp282693 + (let ((__tmp282697 + (let ((__tmp282698 + (let ((__tmp282699 + (car _kw275708_))) (declare (not safe)) - (cons __tmp279804 '())))) + (cons __tmp282699 '())))) (declare (not safe)) - (cons '%#quote __tmp279803))) - (__tmp279799 - (let ((__tmp279800 - (let ((__tmp279801 + (cons '%#quote __tmp282698))) + (__tmp282694 + (let ((__tmp282695 + (let ((__tmp282696 (let () (declare (not safe)) - (cons _kwvar272914_ + (cons _kwvar275709_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp279801)))) + __tmp282696)))) (declare (not safe)) - (cons __tmp279800 '())))) + (cons __tmp282695 '())))) (declare (not safe)) - (cons __tmp279802 __tmp279799)))) + (cons __tmp282697 __tmp282694)))) (declare (not safe)) - (cons __tmp279805 __tmp279798)))) + (cons __tmp282700 __tmp282693)))) (declare (not safe)) - (cons '(%#ref hash-put!) __tmp279797)))) + (cons '(%#ref hash-put!) __tmp282692)))) (declare (not safe)) - (cons '%#call __tmp279796))) + (cons '%#call __tmp282691))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs272892_ - _kwvars272906_)) - (_xkwargs272921_ - (map (lambda (_kw272918_ - _kwvar272919_) - (let ((__tmp279809 - (car _kw272918_)) - (__tmp279807 - (let ((__tmp279808 + _kwargs275687_ + _kwvars275701_)) + (_xkwargs275716_ + (map (lambda (_kw275713_ + _kwvar275714_) + (let ((__tmp282704 + (car _kw275713_)) + (__tmp282702 + (let ((__tmp282703 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kwvar272919_ '())))) + (cons _kwvar275714_ '())))) (declare (not safe)) - (cons '%#ref __tmp279808)))) + (cons '%#ref __tmp282703)))) (declare (not safe)) - (cons __tmp279809 __tmp279807))) + (cons __tmp282704 __tmp282702))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs272892_ - _kwvars272906_)) - (_xargs272928_ - (map (lambda (_key272923_) - (let ((_$e272925_ + _kwargs275687_ + _kwvars275701_)) + (_xargs275723_ + (map (lambda (_key275718_) + (let ((_$e275720_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq _key272923_ _xkwargs272921_)))) - (if _$e272925_ (values _$e272925_) '(%#ref absent-value)))) + (assgetq _key275718_ _xkwargs275716_)))) + (if _$e275720_ (values _$e275720_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys272889_))) - (let ((__tmp279810 - (let ((__tmp279811 - (let ((__tmp279812 - (let ((__tmp279813 + _keys275684_))) + (let ((__tmp282705 + (let ((__tmp282706 + (let ((__tmp282707 + (let ((__tmp282708 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279814 - (let ((__tmp279815 - (let ((__tmp279829 - (let ((__tmp279830 - (let ((__tmp279840 + (let ((__tmp282709 + (let ((__tmp282710 + (let ((__tmp282724 + (let ((__tmp282725 + (let ((__tmp282735 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _kwt272903_ '()))) - (__tmp279831 - (let ((__tmp279832 - (let ((__tmp279833 - (let ((__tmp279834 - (let ((__tmp279835 - (let ((__tmp279836 - (let ((__tmp279837 + (let () (declare (not safe)) (cons _kwt275698_ '()))) + (__tmp282726 + (let ((__tmp282727 + (let ((__tmp282728 + (let ((__tmp282729 + (let ((__tmp282730 + (let ((__tmp282731 + (let ((__tmp282732 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279838 - (let ((__tmp279839 (length _kwargs272892_))) + (let ((__tmp282733 + (let ((__tmp282734 (length _kwargs275687_))) (declare (not safe)) - (cons __tmp279839 '())))) + (cons __tmp282734 '())))) (declare (not safe)) - (cons '%#quote __tmp279838)))) + (cons '%#quote __tmp282733)))) (declare (not safe)) - (cons __tmp279837 '())))) + (cons __tmp282732 '())))) (declare (not safe)) - (cons '(%#quote size:) __tmp279836)))) + (cons '(%#quote size:) __tmp282731)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(%#ref make-hash-table-eq) - __tmp279835)))) + __tmp282730)))) (declare (not safe)) - (cons '%#call __tmp279834)))) + (cons '%#call __tmp282729)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279833 - _stx272849_)))) + __tmp282728 + _stx275644_)))) (declare (not safe)) - (cons __tmp279832 '())))) + (cons __tmp282727 '())))) (declare (not safe)) - (cons __tmp279840 __tmp279831)))) + (cons __tmp282735 __tmp282726)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279830 '()))) - (__tmp279816 - (let ((__tmp279817 - (let ((__tmp279818 + (cons __tmp282725 '()))) + (__tmp282711 + (let ((__tmp282712 + (let ((__tmp282713 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp279819 - (let ((__tmp279820 - (let ((__tmp279821 - (let ((__tmp279822 - (let ((__tmp279827 - (let ((__tmp279828 + (let ((__tmp282714 + (let ((__tmp282715 + (let ((__tmp282716 + (let ((__tmp282717 + (let ((__tmp282722 + (let ((__tmp282723 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main272888_ '())))) + (cons _main275683_ '())))) (declare (not safe)) - (cons '%#ref __tmp279828))) - (__tmp279823 - (let ((__tmp279825 - (let ((__tmp279826 + (cons '%#ref __tmp282723))) + (__tmp282718 + (let ((__tmp282720 + (let ((__tmp282721 (let () (declare (not safe)) - (cons _kwt272903_ '())))) + (cons _kwt275698_ '())))) (declare (not safe)) - (cons '%#ref __tmp279826))) - (__tmp279824 + (cons '%#ref __tmp282721))) + (__tmp282719 (let () (declare (not safe)) - (foldr1 cons _pargs272891_ _xargs272928_)))) + (foldr1 cons _pargs275686_ _xargs275723_)))) (declare (not safe)) - (cons __tmp279825 __tmp279824)))) + (cons __tmp282720 __tmp282719)))) (declare (not safe)) - (cons __tmp279827 __tmp279823)))) + (cons __tmp282722 __tmp282718)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp279822)))) + (cons '%#call __tmp282717)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp279821 - _stx272849_)))) + __tmp282716 + _stx275644_)))) (declare (not safe)) - (cons __tmp279820 '())))) + (cons __tmp282715 '())))) (declare (not safe)) - (foldr1 cons __tmp279819 _kwset272916_)))) + (foldr1 cons __tmp282714 _kwset275711_)))) (declare (not safe)) - (cons '%#begin __tmp279818)))) + (cons '%#begin __tmp282713)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp279817 '())))) + (cons __tmp282712 '())))) (declare (not safe)) - (cons __tmp279829 __tmp279816)))) + (cons __tmp282724 __tmp282711)))) (declare (not safe)) - (cons '%#let-values __tmp279815)))) + (cons '%#let-values __tmp282710)))) (declare (not safe)) - (cons __tmp279814 '())))) + (cons __tmp282709 '())))) (declare (not safe)) - (cons _kwbind272911_ __tmp279813)))) + (cons _kwbind275706_ __tmp282708)))) (declare (not safe)) - (cons '%#let-values __tmp279812)))) + (cons '%#let-values __tmp282707)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp279811 - _stx272849_)))) + __tmp282706 + _stx275644_)))) (declare (not safe)) (gxc#compile-e__0 - __tmp279810))))))))))) + __tmp282705))))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g272868272877_ + _g275663275672_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e272873272934_ + (let* ((_e275668275729_ (let () (declare (not safe)) (##unchecked-structure-ref - _g272868272877_ + _g275663275672_ '1 gxc#!type::t '#f))) - (_e272874272937_ + (_e275669275732_ (let () (declare (not safe)) (##unchecked-structure-ref - _g272868272877_ + _g275663275672_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys272940_ _e272874272937_) - (_e272875272942_ + (_keys275735_ _e275669275732_) + (_e275670275737_ (let () (declare (not safe)) (##unchecked-structure-ref - _g272868272877_ + _g275663275672_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main272945_ _e272875272942_)) + (_main275740_ _e275670275737_)) (declare (not safe)) - (_K272872272931_ _main272945_ _keys272940_)) - (let () (declare (not safe)) (_else272870272885_))))))) + (_K275667275726_ _main275740_ _keys275735_)) + (let () (declare (not safe)) (_else275665275680_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self272851272859_ + _self275646275654_ 'gxc#!kw-lambda::t)) - (let* ((_e272855272950_ + (let* ((_e275650275745_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272851272859_ + _self275646275654_ '1 gxc#!type::t '#f))) - (_e272856272953_ + (_e275651275748_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272851272859_ + _self275646275654_ '2 gxc#!kw-lambda::t '#f))) - (_table272956_ _e272856272953_) - (_e272857272958_ + (_table275751_ _e275651275748_) + (_e275652275753_ (let () (declare (not safe)) (##unchecked-structure-ref - _self272851272859_ + _self275646275654_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch272961_ _e272857272958_)) + (_dispatch275756_ _e275652275753_)) (declare (not safe)) - (_K272854272947_ _dispatch272961_ _table272956_)) - (let () (declare (not safe)) (_E272853272863_)))))) + (_K275649275742_ _dispatch275756_ _table275751_)) + (let () (declare (not safe)) (_E275648275658_)))))) (let () (declare (not safe)) (bind-method! @@ -4815,300 +4815,300 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_stx272461_ _args272462_) - (let _lp272464_ ((_rest272466_ _args272462_) - (_pargs272467_ '()) - (_kwargs272468_ '())) - (let* ((___stx278965278966_ _rest272466_) - (_g272474272526_ + (lambda (_stx275256_ _args275257_) + (let _lp275259_ ((_rest275261_ _args275257_) + (_pargs275262_ '()) + (_kwargs275263_ '())) + (let* ((___stx281860281861_ _rest275261_) + (_g275269275321_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx278965278966_))))) - (let ((___kont278967278968_ - (lambda (_L272705_ _L272706_) - (let ((__tmp279850 + ___stx281860281861_))))) + (let ((___kont281862281863_ + (lambda (_L275500_ _L275501_) + (let ((__tmp282745 (let () (declare (not safe)) - (cons _L272706_ _pargs272467_)))) + (cons _L275501_ _pargs275262_)))) (declare (not safe)) - (_lp272464_ _L272705_ __tmp279850 _kwargs272468_)))) - (___kont278969278970_ - (lambda (_L272651_) + (_lp275259_ _L275500_ __tmp282745 _kwargs275263_)))) + (___kont281864281865_ + (lambda (_L275446_) (values (let () (declare (not safe)) - (foldl1 cons _L272651_ _pargs272467_)) - (reverse _kwargs272468_)))) - (___kont278971278972_ - (lambda (_L272598_ _L272599_ _L272600_) - (let ((_kw272617_ + (foldl1 cons _L275446_ _pargs275262_)) + (reverse _kwargs275263_)))) + (___kont281866281867_ + (lambda (_L275393_ _L275394_ _L275395_) + (let ((_kw275412_ (let () (declare (not safe)) - (gx#stx-e _L272600_)))) - (if (assq _kw272617_ _kwargs272468_) + (gx#stx-e _L275395_)))) + (if (assq _kw275412_ _kwargs275263_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _stx272461_ - _kw272617_)) - (let ((__tmp279851 - (let ((__tmp279852 + _stx275256_ + _kw275412_)) + (let ((__tmp282746 + (let ((__tmp282747 (let () (declare (not safe)) - (cons _kw272617_ _L272599_)))) + (cons _kw275412_ _L275394_)))) (declare (not safe)) - (cons __tmp279852 _kwargs272468_)))) + (cons __tmp282747 _kwargs275263_)))) (declare (not safe)) - (_lp272464_ - _L272598_ - _pargs272467_ - __tmp279851)))))) - (___kont278973278974_ - (lambda (_L272546_ _L272547_) - (let ((__tmp279853 + (_lp275259_ + _L275393_ + _pargs275262_ + __tmp282746)))))) + (___kont281868281869_ + (lambda (_L275341_ _L275342_) + (let ((__tmp282748 (let () (declare (not safe)) - (cons _L272547_ _pargs272467_)))) + (cons _L275342_ _pargs275262_)))) (declare (not safe)) - (_lp272464_ _L272546_ __tmp279853 _kwargs272468_)))) - (___kont278975278976_ + (_lp275259_ _L275341_ __tmp282748 _kwargs275263_)))) + (___kont281870281871_ (lambda () - (values (reverse _pargs272467_) - (reverse _kwargs272468_))))) - (let* ((_g272473272533_ + (values (reverse _pargs275262_) + (reverse _kwargs275263_))))) + (let* ((_g275268275328_ (lambda () (if (let () (declare (not safe)) - (gx#stx-null? ___stx278965278966_)) - (___kont278975278976_) - (let () (declare (not safe)) (_g272474272526_))))) - (___match279072279073_ - (lambda (_e272507272566_ - _hd272506272569_ - _tl272505272571_ - _e272510272574_ - _hd272509272577_ - _tl272508272579_ - _e272513272582_ - _hd272512272585_ - _tl272511272587_ - _e272516272590_ - _hd272515272593_ - _tl272514272595_) - (let ((_L272598_ _tl272514272595_) - (_L272599_ _hd272515272593_) - (_L272600_ _hd272512272585_)) + (gx#stx-null? ___stx281860281861_)) + (___kont281870281871_) + (let () (declare (not safe)) (_g275269275321_))))) + (___match281967281968_ + (lambda (_e275302275361_ + _hd275301275364_ + _tl275300275366_ + _e275305275369_ + _hd275304275372_ + _tl275303275374_ + _e275308275377_ + _hd275307275380_ + _tl275306275382_ + _e275311275385_ + _hd275310275388_ + _tl275309275390_) + (let ((_L275393_ _tl275309275390_) + (_L275394_ _hd275310275388_) + (_L275395_ _hd275307275380_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _L272600_)) - (___kont278971278972_ - _L272598_ - _L272599_ - _L272600_) - (___kont278973278974_ - _tl272505272571_ - _hd272506272569_)))))) + (gx#stx-keyword? _L275395_)) + (___kont281866281867_ + _L275393_ + _L275394_ + _L275395_) + (___kont281868281869_ + _tl275300275366_ + _hd275301275364_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx278965278966_)) - (let ((_e272480272670_ + (gx#stx-pair? ___stx281860281861_)) + (let ((_e275275275465_ (let () (declare (not safe)) - (gx#stx-e ___stx278965278966_)))) - (let ((_tl272478272675_ + (gx#stx-e ___stx281860281861_)))) + (let ((_tl275273275470_ (let () (declare (not safe)) - (##cdr _e272480272670_))) - (_hd272479272673_ + (##cdr _e275275275465_))) + (_hd275274275468_ (let () (declare (not safe)) - (##car _e272480272670_)))) + (##car _e275275275465_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd272479272673_)) - (let ((_e272483272678_ + (gx#stx-pair? _hd275274275468_)) + (let ((_e275278275473_ (let () (declare (not safe)) - (gx#stx-e _hd272479272673_)))) - (let ((_tl272481272683_ + (gx#stx-e _hd275274275468_)))) + (let ((_tl275276275478_ (let () (declare (not safe)) - (##cdr _e272483272678_))) - (_hd272482272681_ + (##cdr _e275278275473_))) + (_hd275277275476_ (let () (declare (not safe)) - (##car _e272483272678_)))) + (##car _e275278275473_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd272482272681_)) + (gx#identifier? _hd275277275476_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd272482272681_)) + _hd275277275476_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl272481272683_)) - (let ((_e272486272686_ + (gx#stx-pair? _tl275276275478_)) + (let ((_e275281275481_ (let () (declare (not safe)) (gx#stx-e - _tl272481272683_)))) - (let ((_tl272484272691_ + _tl275276275478_)))) + (let ((_tl275279275486_ (let () (declare (not safe)) - (##cdr _e272486272686_))) - (_hd272485272689_ + (##cdr _e275281275481_))) + (_hd275280275484_ (let () (declare (not safe)) - (##car _e272486272686_)))) + (##car _e275281275481_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd272485272689_)) - (let ((_e272487272694_ + _hd275280275484_)) + (let ((_e275282275489_ (let () (declare (not safe)) (gx#stx-e - _hd272485272689_)))) + _hd275280275484_)))) (if (let () (declare (not safe)) - (equal? _e272487272694_ + (equal? _e275282275489_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key)) (if (let () (declare (not safe)) - (gx#stx-null? _tl272484272691_)) + (gx#stx-null? _tl275279275486_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl272478272675_)) - (let ((_e272490272697_ + (gx#stx-pair? _tl275273275470_)) + (let ((_e275285275492_ (let () (declare (not safe)) - (gx#stx-e _tl272478272675_)))) - (let ((_tl272488272702_ + (gx#stx-e _tl275273275470_)))) + (let ((_tl275283275497_ (let () (declare (not safe)) - (##cdr _e272490272697_))) - (_hd272489272700_ + (##cdr _e275285275492_))) + (_hd275284275495_ (let () (declare (not safe)) - (##car _e272490272697_)))) - (___kont278967278968_ - _tl272488272702_ - _hd272489272700_))) - (___kont278973278974_ - _tl272478272675_ - _hd272479272673_)) - (___kont278973278974_ _tl272478272675_ _hd272479272673_)) + (##car _e275285275492_)))) + (___kont281862281863_ + _tl275283275497_ + _hd275284275495_))) + (___kont281868281869_ + _tl275273275470_ + _hd275274275468_)) + (___kont281868281869_ _tl275273275470_ _hd275274275468_)) (if (let () (declare (not safe)) - (equal? _e272487272694_ '#!rest)) + (equal? _e275282275489_ '#!rest)) (if (let () (declare (not safe)) - (gx#stx-null? _tl272484272691_)) - (___kont278969278970_ _tl272478272675_) - (___kont278973278974_ - _tl272478272675_ - _hd272479272673_)) + (gx#stx-null? _tl275279275486_)) + (___kont281864281865_ _tl275273275470_) + (___kont281868281869_ + _tl275273275470_ + _hd275274275468_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl272484272691_)) + (gx#stx-null? _tl275279275486_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl272478272675_)) - (let ((_e272516272590_ + (gx#stx-pair? _tl275273275470_)) + (let ((_e275311275385_ (let () (declare (not safe)) - (gx#stx-e _tl272478272675_)))) - (let ((_tl272514272595_ + (gx#stx-e _tl275273275470_)))) + (let ((_tl275309275390_ (let () (declare (not safe)) - (##cdr _e272516272590_))) - (_hd272515272593_ + (##cdr _e275311275385_))) + (_hd275310275388_ (let () (declare (not safe)) - (##car _e272516272590_)))) - (___match279072279073_ - _e272480272670_ - _hd272479272673_ - _tl272478272675_ - _e272483272678_ - _hd272482272681_ - _tl272481272683_ - _e272486272686_ - _hd272485272689_ - _tl272484272691_ - _e272516272590_ - _hd272515272593_ - _tl272514272595_))) - (___kont278973278974_ - _tl272478272675_ - _hd272479272673_)) - (___kont278973278974_ - _tl272478272675_ - _hd272479272673_))))) + (##car _e275311275385_)))) + (___match281967281968_ + _e275275275465_ + _hd275274275468_ + _tl275273275470_ + _e275278275473_ + _hd275277275476_ + _tl275276275478_ + _e275281275481_ + _hd275280275484_ + _tl275279275486_ + _e275311275385_ + _hd275310275388_ + _tl275309275390_))) + (___kont281868281869_ + _tl275273275470_ + _hd275274275468_)) + (___kont281868281869_ + _tl275273275470_ + _hd275274275468_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl272484272691_)) + _tl275279275486_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl272478272675_)) - (let ((_e272516272590_ + _tl275273275470_)) + (let ((_e275311275385_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl272478272675_)))) - (let ((_tl272514272595_ + (gx#stx-e _tl275273275470_)))) + (let ((_tl275309275390_ (let () (declare (not safe)) - (##cdr _e272516272590_))) - (_hd272515272593_ + (##cdr _e275311275385_))) + (_hd275310275388_ (let () (declare (not safe)) - (##car _e272516272590_)))) - (___match279072279073_ - _e272480272670_ - _hd272479272673_ - _tl272478272675_ - _e272483272678_ - _hd272482272681_ - _tl272481272683_ - _e272486272686_ - _hd272485272689_ - _tl272484272691_ - _e272516272590_ - _hd272515272593_ - _tl272514272595_))) - (___kont278973278974_ _tl272478272675_ _hd272479272673_)) - (___kont278973278974_ _tl272478272675_ _hd272479272673_))))) + (##car _e275311275385_)))) + (___match281967281968_ + _e275275275465_ + _hd275274275468_ + _tl275273275470_ + _e275278275473_ + _hd275277275476_ + _tl275276275478_ + _e275281275481_ + _hd275280275484_ + _tl275279275486_ + _e275311275385_ + _hd275310275388_ + _tl275309275390_))) + (___kont281868281869_ _tl275273275470_ _hd275274275468_)) + (___kont281868281869_ _tl275273275470_ _hd275274275468_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont278973278974_ - _tl272478272675_ - _hd272479272673_)) - (___kont278973278974_ - _tl272478272675_ - _hd272479272673_)) - (___kont278973278974_ - _tl272478272675_ - _hd272479272673_)))) - (___kont278973278974_ - _tl272478272675_ - _hd272479272673_)))) - (let () (declare (not safe)) (_g272473272533_))))))))) + (___kont281868281869_ + _tl275273275470_ + _hd275274275468_)) + (___kont281868281869_ + _tl275273275470_ + _hd275274275468_)) + (___kont281868281869_ + _tl275273275470_ + _hd275274275468_)))) + (___kont281868281869_ + _tl275273275470_ + _hd275274275468_)))) + (let () (declare (not safe)) (_g275268275328_))))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_self272457_ _stx272458_ _args272459_) - (let () (declare (not safe)) (gxc#xform-call% _stx272458_)))) + (lambda (_self275252_ _stx275253_ _args275254_) + (let () (declare (not safe)) (gxc#xform-call% _stx275253_)))) (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 e9082bb74..71a7c8976 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 1707573215) + (define gerbil/compiler/optimize-spec::timestamp 1707674934) (begin (define gxc#&generate-method-specializers (make-promise (lambda () - (let ((_tbl246916_ + (let ((_tbl249511_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp252512 (force gxc#&identity))) + (let ((__tmp255207 (force gxc#&identity))) (declare (not safe)) - (hash-copy! _tbl246916_ __tmp252512)) + (hash-copy! _tbl249511_ __tmp255207)) (let () (declare (not safe)) - (table-set! _tbl246916_ '%#begin gxc#xform-begin%)) + (table-set! _tbl249511_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl246916_ '%#begin-syntax gxc#xform-begin-syntax%)) + (table-set! _tbl249511_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl246916_ '%#module gxc#xform-module%)) + (table-set! _tbl249511_ '%#module gxc#xform-module%)) (let () (declare (not safe)) (table-set! - _tbl246916_ + _tbl249511_ '%#define-values gxc#generate-method-specializers-define-values%)) - _tbl246916_)))) + _tbl249511_)))) (define gxc#apply-generate-method-specializers - (lambda (_stx246899_ . _args246901_) - (let ((__tmp252514 + (lambda (_stx249494_ . _args249496_) + (let ((__tmp255209 (lambda () (declare (not safe)) - (if (null? _args246901_) - (gxc#compile-e__0 _stx246899_) - (let ((_arg1246906_ (car _args246901_)) - (_rest246908_ (cdr _args246901_))) - (if (null? _rest246908_) - (gxc#compile-e__1 _stx246899_ _arg1246906_) - (let ((_arg2246911_ (car _rest246908_)) - (_rest246913_ (cdr _rest246908_))) - (if (null? _rest246913_) + (if (null? _args249496_) + (gxc#compile-e__0 _stx249494_) + (let ((_arg1249501_ (car _args249496_)) + (_rest249503_ (cdr _args249496_))) + (if (null? _rest249503_) + (gxc#compile-e__1 _stx249494_ _arg1249501_) + (let ((_arg2249506_ (car _rest249503_)) + (_rest249508_ (cdr _rest249503_))) + (if (null? _rest249508_) (gxc#compile-e__2 - _stx246899_ - _arg1246906_ - _arg2246911_) + _stx249494_ + _arg1249501_ + _arg2249506_) (apply gxc#compile-e - _stx246899_ - _arg1246906_ - _arg2246911_ - _rest246913_)))))))) - (__tmp252513 (force gxc#&generate-method-specializers))) + _stx249494_ + _arg1249501_ + _arg2249506_ + _rest249508_)))))))) + (__tmp255208 (force gxc#&generate-method-specializers))) (declare (not safe)) (call-with-parameters - __tmp252514 + __tmp255209 gxc#current-compile-methods - __tmp252513)))) + __tmp255208)))) (define gxc#&collect-object-refs (make-promise (lambda () - (let ((_tbl246896_ + (let ((_tbl249491_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp252515 (force gxc#&void))) + (let ((__tmp255210 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl246896_ __tmp252515)) + (hash-copy! _tbl249491_ __tmp255210)) (let () (declare (not safe)) - (table-set! _tbl246896_ '%#begin gxc#collect-begin%)) + (table-set! _tbl249491_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl246896_ + _tbl249491_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl246896_ '%#lambda gxc#collect-body-lambda%)) + (table-set! _tbl249491_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (table-set! - _tbl246896_ + _tbl249491_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl246896_ + _tbl249491_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl246896_ + _tbl249491_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl246896_ + _tbl249491_ '%#letrec-values* gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! _tbl246896_ '%#call gxc#collect-object-refs-call%)) + (table-set! _tbl249491_ '%#call gxc#collect-object-refs-call%)) (let () (declare (not safe)) - (table-set! _tbl246896_ '%#if gxc#collect-operands)) + (table-set! _tbl249491_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl246896_ '%#set! gxc#collect-body-setq%)) + (table-set! _tbl249491_ '%#set! gxc#collect-body-setq%)) (let () (declare (not safe)) - (table-set! _tbl246896_ '%#struct-ref gxc#collect-operands)) + (table-set! _tbl249491_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl246896_ '%#struct-set! gxc#collect-operands)) + (table-set! _tbl249491_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl246896_ + _tbl249491_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl246896_ + _tbl249491_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl246896_ + _tbl249491_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl246896_ + _tbl249491_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl246896_)))) + _tbl249491_)))) (define gxc#apply-collect-object-refs - (lambda (_stx246879_ . _args246881_) - (let ((__tmp252517 + (lambda (_stx249474_ . _args249476_) + (let ((__tmp255212 (lambda () (declare (not safe)) - (if (null? _args246881_) - (gxc#compile-e__0 _stx246879_) - (let ((_arg1246886_ (car _args246881_)) - (_rest246888_ (cdr _args246881_))) - (if (null? _rest246888_) - (gxc#compile-e__1 _stx246879_ _arg1246886_) - (let ((_arg2246891_ (car _rest246888_)) - (_rest246893_ (cdr _rest246888_))) - (if (null? _rest246893_) + (if (null? _args249476_) + (gxc#compile-e__0 _stx249474_) + (let ((_arg1249481_ (car _args249476_)) + (_rest249483_ (cdr _args249476_))) + (if (null? _rest249483_) + (gxc#compile-e__1 _stx249474_ _arg1249481_) + (let ((_arg2249486_ (car _rest249483_)) + (_rest249488_ (cdr _rest249483_))) + (if (null? _rest249488_) (gxc#compile-e__2 - _stx246879_ - _arg1246886_ - _arg2246891_) + _stx249474_ + _arg1249481_ + _arg2249486_) (apply gxc#compile-e - _stx246879_ - _arg1246886_ - _arg2246891_ - _rest246893_)))))))) - (__tmp252516 (force gxc#&collect-object-refs))) + _stx249474_ + _arg1249481_ + _arg2249486_ + _rest249488_)))))))) + (__tmp255211 (force gxc#&collect-object-refs))) (declare (not safe)) (call-with-parameters - __tmp252517 + __tmp255212 gxc#current-compile-methods - __tmp252516)))) + __tmp255211)))) (define gxc#&subst-object-refs (make-promise (lambda () - (let ((_tbl246876_ + (let ((_tbl249471_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp252518 (force gxc#&basic-xform-expression))) + (let ((__tmp255213 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-copy! _tbl246876_ __tmp252518)) + (hash-copy! _tbl249471_ __tmp255213)) (let () (declare (not safe)) - (table-set! _tbl246876_ '%#begin gxc#xform-begin%)) + (table-set! _tbl249471_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl246876_ '%#call gxc#subst-object-refs-call%)) - _tbl246876_)))) + (table-set! _tbl249471_ '%#call gxc#subst-object-refs-call%)) + _tbl249471_)))) (define gxc#apply-subst-object-refs - (lambda (_stx246859_ . _args246861_) - (let ((__tmp252520 + (lambda (_stx249454_ . _args249456_) + (let ((__tmp255215 (lambda () (declare (not safe)) - (if (null? _args246861_) - (gxc#compile-e__0 _stx246859_) - (let ((_arg1246866_ (car _args246861_)) - (_rest246868_ (cdr _args246861_))) - (if (null? _rest246868_) - (gxc#compile-e__1 _stx246859_ _arg1246866_) - (let ((_arg2246871_ (car _rest246868_)) - (_rest246873_ (cdr _rest246868_))) - (if (null? _rest246873_) + (if (null? _args249456_) + (gxc#compile-e__0 _stx249454_) + (let ((_arg1249461_ (car _args249456_)) + (_rest249463_ (cdr _args249456_))) + (if (null? _rest249463_) + (gxc#compile-e__1 _stx249454_ _arg1249461_) + (let ((_arg2249466_ (car _rest249463_)) + (_rest249468_ (cdr _rest249463_))) + (if (null? _rest249468_) (gxc#compile-e__2 - _stx246859_ - _arg1246866_ - _arg2246871_) + _stx249454_ + _arg1249461_ + _arg2249466_) (apply gxc#compile-e - _stx246859_ - _arg1246866_ - _arg2246871_ - _rest246873_)))))))) - (__tmp252519 (force gxc#&subst-object-refs))) + _stx249454_ + _arg1249461_ + _arg2249466_ + _rest249468_)))))))) + (__tmp255214 (force gxc#&subst-object-refs))) (declare (not safe)) (call-with-parameters - __tmp252520 + __tmp255215 gxc#current-compile-methods - __tmp252519)))) + __tmp255214)))) (define gxc#generate-method-specializers-define-values% - (lambda (_stx243529_) - (letrec ((_generate-method-bind243531_ - (lambda (_$t246853_ _id246854_ _$id246855_) - (let ((_$tmp246857_ - (let ((__tmp252521 (gensym '__tmp))) + (lambda (_stx246124_) + (letrec ((_generate-method-bind246126_ + (lambda (_$t249448_ _id249449_ _$id249450_) + (let ((_$tmp249452_ + (let ((__tmp255216 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp252521)))) - (let ((__tmp252566 + (make-symbol__0 __tmp255216)))) + (let ((__tmp255261 (let () (declare (not safe)) - (cons _$id246855_ '()))) - (__tmp252522 - (let ((__tmp252523 - (let ((__tmp252524 - (let ((__tmp252564 - (let ((__tmp252565 + (cons _$id249450_ '()))) + (__tmp255217 + (let ((__tmp255218 + (let ((__tmp255219 + (let ((__tmp255259 + (let ((__tmp255260 (let () (declare (not safe)) (cons 'make-promise @@ -236,1268 +236,1268 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp252565))) - (__tmp252525 - (let ((__tmp252526 - (let ((__tmp252527 - (let ((__tmp252528 + (cons '%#ref __tmp255260))) + (__tmp255220 + (let ((__tmp255221 + (let ((__tmp255222 + (let ((__tmp255223 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp252529 - (let ((__tmp252530 - (let ((__tmp252550 - (let ((__tmp252551 - (let ((__tmp252563 + (let ((__tmp255224 + (let ((__tmp255225 + (let ((__tmp255245 + (let ((__tmp255246 + (let ((__tmp255258 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$tmp246857_ '()))) - (__tmp252552 - (let ((__tmp252553 - (let ((__tmp252554 - (let ((__tmp252561 - (let ((__tmp252562 + (cons _$tmp249452_ '()))) + (__tmp255247 + (let ((__tmp255248 + (let ((__tmp255249 + (let ((__tmp255256 + (let ((__tmp255257 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp252562))) - (__tmp252555 - (let ((__tmp252559 - (let ((__tmp252560 + (cons '%#ref __tmp255257))) + (__tmp255250 + (let ((__tmp255254 + (let ((__tmp255255 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$t246853_ '())))) + (cons _$t249448_ '())))) (declare (not safe)) - (cons '%#ref __tmp252560))) + (cons '%#ref __tmp255255))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp252556 - (let ((__tmp252557 - (let ((__tmp252558 + (__tmp255251 + (let ((__tmp255252 + (let ((__tmp255253 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id246854_ '())))) + (cons _id249449_ '())))) (declare (not safe)) - (cons '%#quote __tmp252558)))) + (cons '%#quote __tmp255253)))) (declare (not safe)) - (cons __tmp252557 '())))) + (cons __tmp255252 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252559 - __tmp252556)))) + (cons __tmp255254 + __tmp255251)))) (declare (not safe)) - (cons __tmp252561 __tmp252555)))) + (cons __tmp255256 __tmp255250)))) (declare (not safe)) - (cons '%#call __tmp252554)))) + (cons '%#call __tmp255249)))) (declare (not safe)) - (cons __tmp252553 '())))) + (cons __tmp255248 '())))) (declare (not safe)) - (cons __tmp252563 __tmp252552)))) + (cons __tmp255258 __tmp255247)))) (declare (not safe)) - (cons __tmp252551 '()))) + (cons __tmp255246 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp252531 - (let ((__tmp252532 - (let ((__tmp252533 + (__tmp255226 + (let ((__tmp255227 + (let ((__tmp255228 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp252548 - (let ((__tmp252549 + (let ((__tmp255243 + (let ((__tmp255244 (let () (declare (not safe)) - (cons _$tmp246857_ '())))) + (cons _$tmp249452_ '())))) (declare (not safe)) - (cons '%#ref __tmp252549))) - (__tmp252534 - (let ((__tmp252546 - (let ((__tmp252547 + (cons '%#ref __tmp255244))) + (__tmp255229 + (let ((__tmp255241 + (let ((__tmp255242 (let () (declare (not safe)) - (cons _$tmp246857_ '())))) + (cons _$tmp249452_ '())))) (declare (not safe)) - (cons '%#ref __tmp252547))) - (__tmp252535 - (let ((__tmp252536 - (let ((__tmp252537 - (let ((__tmp252544 - (let ((__tmp252545 + (cons '%#ref __tmp255242))) + (__tmp255230 + (let ((__tmp255231 + (let ((__tmp255232 + (let ((__tmp255239 + (let ((__tmp255240 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp252545))) - (__tmp252538 - (let ((__tmp252542 - (let ((__tmp252543 + (cons '%#ref __tmp255240))) + (__tmp255233 + (let ((__tmp255237 + (let ((__tmp255238 (let () (declare (not safe)) (cons '"Missing method" '())))) (declare (not safe)) - (cons '%#quote __tmp252543))) - (__tmp252539 - (let ((__tmp252540 - (let ((__tmp252541 + (cons '%#quote __tmp255238))) + (__tmp255234 + (let ((__tmp255235 + (let ((__tmp255236 (let () (declare (not safe)) - (cons _id246854_ '())))) + (cons _id249449_ '())))) (declare (not safe)) - (cons '%#quote __tmp252541)))) + (cons '%#quote __tmp255236)))) (declare (not safe)) - (cons __tmp252540 '())))) + (cons __tmp255235 '())))) (declare (not safe)) - (cons __tmp252542 __tmp252539)))) + (cons __tmp255237 __tmp255234)))) (declare (not safe)) - (cons __tmp252544 __tmp252538)))) + (cons __tmp255239 __tmp255233)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp252537)))) + (cons '%#call __tmp255232)))) (declare (not safe)) - (cons __tmp252536 '())))) + (cons __tmp255231 '())))) (declare (not safe)) - (cons __tmp252546 __tmp252535)))) + (cons __tmp255241 __tmp255230)))) (declare (not safe)) - (cons __tmp252548 __tmp252534)))) + (cons __tmp255243 __tmp255229)))) (declare (not safe)) - (cons '%#if __tmp252533)))) + (cons '%#if __tmp255228)))) (declare (not safe)) - (cons __tmp252532 '())))) + (cons __tmp255227 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252550 - __tmp252531)))) + (cons __tmp255245 + __tmp255226)))) (declare (not safe)) - (cons '%#let-values __tmp252530)))) + (cons '%#let-values __tmp255225)))) (declare (not safe)) - (cons __tmp252529 '())))) + (cons __tmp255224 '())))) (declare (not safe)) - (cons '() __tmp252528)))) + (cons '() __tmp255223)))) (declare (not safe)) - (cons '%#lambda __tmp252527)))) + (cons '%#lambda __tmp255222)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252526 '())))) + (cons __tmp255221 '())))) (declare (not safe)) - (cons __tmp252564 __tmp252525)))) + (cons __tmp255259 __tmp255220)))) (declare (not safe)) - (cons '%#call __tmp252524)))) + (cons '%#call __tmp255219)))) (declare (not safe)) - (cons __tmp252523 '())))) + (cons __tmp255218 '())))) (declare (not safe)) - (cons __tmp252566 __tmp252522))))) - (_generate-slot-bind243532_ - (lambda (_$t246847_ _id246848_ _$id246849_) - (let ((_$tmp246851_ - (let ((__tmp252567 (gensym '__tmp))) + (cons __tmp255261 __tmp255217))))) + (_generate-slot-bind246127_ + (lambda (_$t249442_ _id249443_ _$id249444_) + (let ((_$tmp249446_ + (let ((__tmp255262 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp252567)))) - (let ((__tmp252604 + (make-symbol__0 __tmp255262)))) + (let ((__tmp255299 (let () (declare (not safe)) - (cons _$id246849_ '()))) - (__tmp252568 - (let ((__tmp252569 - (let ((__tmp252570 - (let ((__tmp252590 - (let ((__tmp252591 - (let ((__tmp252603 + (cons _$id249444_ '()))) + (__tmp255263 + (let ((__tmp255264 + (let ((__tmp255265 + (let ((__tmp255285 + (let ((__tmp255286 + (let ((__tmp255298 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tmp246851_ '()))) - (__tmp252592 - (let ((__tmp252593 - (let ((__tmp252594 - (let ((__tmp252601 - (let ((__tmp252602 + (cons _$tmp249446_ '()))) + (__tmp255287 + (let ((__tmp255288 + (let ((__tmp255289 + (let ((__tmp255296 + (let ((__tmp255297 (let () (declare (not safe)) (cons 'class-slot-offset '())))) (declare (not safe)) - (cons '%#ref __tmp252602))) - (__tmp252595 - (let ((__tmp252599 - (let ((__tmp252600 + (cons '%#ref __tmp255297))) + (__tmp255290 + (let ((__tmp255294 + (let ((__tmp255295 (let () (declare (not safe)) - (cons _$t246847_ + (cons _$t249442_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp252600))) + (cons '%#ref __tmp255295))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp252596 - (let ((__tmp252597 - (let ((__tmp252598 + (__tmp255291 + (let ((__tmp255292 + (let ((__tmp255293 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id246848_ '())))) + (let () (declare (not safe)) (cons _id249443_ '())))) (declare (not safe)) - (cons '%#quote __tmp252598)))) + (cons '%#quote __tmp255293)))) (declare (not safe)) - (cons __tmp252597 '())))) + (cons __tmp255292 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252599 - __tmp252596)))) + (cons __tmp255294 + __tmp255291)))) (declare (not safe)) - (cons __tmp252601 __tmp252595)))) + (cons __tmp255296 __tmp255290)))) (declare (not safe)) - (cons '%#call __tmp252594)))) + (cons '%#call __tmp255289)))) (declare (not safe)) - (cons __tmp252593 '())))) + (cons __tmp255288 '())))) (declare (not safe)) - (cons __tmp252603 __tmp252592)))) + (cons __tmp255298 __tmp255287)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252591 '()))) - (__tmp252571 - (let ((__tmp252572 - (let ((__tmp252573 - (let ((__tmp252588 + (cons __tmp255286 '()))) + (__tmp255266 + (let ((__tmp255267 + (let ((__tmp255268 + (let ((__tmp255283 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp252589 + (let ((__tmp255284 (let () (declare (not safe)) - (cons _$tmp246851_ '())))) + (cons _$tmp249446_ '())))) (declare (not safe)) - (cons '%#ref __tmp252589))) - (__tmp252574 - (let ((__tmp252586 - (let ((__tmp252587 + (cons '%#ref __tmp255284))) + (__tmp255269 + (let ((__tmp255281 + (let ((__tmp255282 (let () (declare (not safe)) - (cons _$tmp246851_ '())))) + (cons _$tmp249446_ '())))) (declare (not safe)) - (cons '%#ref __tmp252587))) - (__tmp252575 - (let ((__tmp252576 - (let ((__tmp252577 - (let ((__tmp252584 - (let ((__tmp252585 + (cons '%#ref __tmp255282))) + (__tmp255270 + (let ((__tmp255271 + (let ((__tmp255272 + (let ((__tmp255279 + (let ((__tmp255280 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp252585))) - (__tmp252578 - (let ((__tmp252582 - (let ((__tmp252583 + (cons '%#ref __tmp255280))) + (__tmp255273 + (let ((__tmp255277 + (let ((__tmp255278 (let () (declare (not safe)) (cons '"Unknown slot" '())))) (declare (not safe)) - (cons '%#quote __tmp252583))) - (__tmp252579 - (let ((__tmp252580 - (let ((__tmp252581 + (cons '%#quote __tmp255278))) + (__tmp255274 + (let ((__tmp255275 + (let ((__tmp255276 (let () (declare (not safe)) - (cons _id246848_ '())))) + (cons _id249443_ '())))) (declare (not safe)) - (cons '%#quote __tmp252581)))) + (cons '%#quote __tmp255276)))) (declare (not safe)) - (cons __tmp252580 '())))) + (cons __tmp255275 '())))) (declare (not safe)) - (cons __tmp252582 __tmp252579)))) + (cons __tmp255277 __tmp255274)))) (declare (not safe)) - (cons __tmp252584 __tmp252578)))) + (cons __tmp255279 __tmp255273)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp252577)))) + (cons '%#call __tmp255272)))) (declare (not safe)) - (cons __tmp252576 '())))) + (cons __tmp255271 '())))) (declare (not safe)) - (cons __tmp252586 __tmp252575)))) + (cons __tmp255281 __tmp255270)))) (declare (not safe)) - (cons __tmp252588 __tmp252574)))) + (cons __tmp255283 __tmp255269)))) (declare (not safe)) - (cons '%#if __tmp252573)))) + (cons '%#if __tmp255268)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252572 '())))) + (cons __tmp255267 '())))) (declare (not safe)) - (cons __tmp252590 __tmp252571)))) + (cons __tmp255285 __tmp255266)))) (declare (not safe)) - (cons '%#let-values __tmp252570)))) + (cons '%#let-values __tmp255265)))) (declare (not safe)) - (cons __tmp252569 '())))) + (cons __tmp255264 '())))) (declare (not safe)) - (cons __tmp252604 __tmp252568))))) - (_generate-class-check-bind243533_ - (lambda (_$t246843_ _class-type246844_ _$class-type246845_) - (let ((__tmp252616 + (cons __tmp255299 __tmp255263))))) + (_generate-class-check-bind246128_ + (lambda (_$t249438_ _class-type249439_ _$class-type249440_) + (let ((__tmp255311 (let () (declare (not safe)) - (cons _$class-type246845_ '()))) - (__tmp252605 - (let ((__tmp252606 - (let ((__tmp252607 - (let ((__tmp252614 - (let ((__tmp252615 + (cons _$class-type249440_ '()))) + (__tmp255300 + (let ((__tmp255301 + (let ((__tmp255302 + (let ((__tmp255309 + (let ((__tmp255310 (let () (declare (not safe)) (cons 'subclass? '())))) (declare (not safe)) - (cons '%#ref __tmp252615))) - (__tmp252608 - (let ((__tmp252612 - (let ((__tmp252613 + (cons '%#ref __tmp255310))) + (__tmp255303 + (let ((__tmp255307 + (let ((__tmp255308 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$t246843_ '())))) + (cons _$t249438_ '())))) (declare (not safe)) - (cons '%#ref __tmp252613))) - (__tmp252609 - (let ((__tmp252610 - (let ((__tmp252611 + (cons '%#ref __tmp255308))) + (__tmp255304 + (let ((__tmp255305 + (let ((__tmp255306 (let () (declare (not safe)) - (cons _class-type246844_ '())))) + (cons _class-type249439_ '())))) (declare (not safe)) - (cons '%#ref __tmp252611)))) + (cons '%#ref __tmp255306)))) (declare (not safe)) - (cons __tmp252610 '())))) + (cons __tmp255305 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252612 - __tmp252609)))) + (cons __tmp255307 + __tmp255304)))) (declare (not safe)) - (cons __tmp252614 __tmp252608)))) + (cons __tmp255309 __tmp255303)))) (declare (not safe)) - (cons '%#call __tmp252607)))) + (cons '%#call __tmp255302)))) (declare (not safe)) - (cons __tmp252606 '())))) + (cons __tmp255301 '())))) (declare (not safe)) - (cons __tmp252616 __tmp252605)))) - (_generate-struct-check-bind243534_ - (lambda (_$t246839_ _class-type246840_ _$class-type246841_) - (let ((__tmp252628 + (cons __tmp255311 __tmp255300)))) + (_generate-struct-check-bind246129_ + (lambda (_$t249434_ _class-type249435_ _$class-type249436_) + (let ((__tmp255323 (let () (declare (not safe)) - (cons _$class-type246841_ '()))) - (__tmp252617 - (let ((__tmp252618 - (let ((__tmp252619 - (let ((__tmp252626 - (let ((__tmp252627 + (cons _$class-type249436_ '()))) + (__tmp255312 + (let ((__tmp255313 + (let ((__tmp255314 + (let ((__tmp255321 + (let ((__tmp255322 (let () (declare (not safe)) (cons 'substruct? '())))) (declare (not safe)) - (cons '%#ref __tmp252627))) - (__tmp252620 - (let ((__tmp252624 - (let ((__tmp252625 + (cons '%#ref __tmp255322))) + (__tmp255315 + (let ((__tmp255319 + (let ((__tmp255320 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$t246839_ '())))) + (cons _$t249434_ '())))) (declare (not safe)) - (cons '%#ref __tmp252625))) - (__tmp252621 - (let ((__tmp252622 - (let ((__tmp252623 + (cons '%#ref __tmp255320))) + (__tmp255316 + (let ((__tmp255317 + (let ((__tmp255318 (let () (declare (not safe)) - (cons _class-type246840_ '())))) + (cons _class-type249435_ '())))) (declare (not safe)) - (cons '%#ref __tmp252623)))) + (cons '%#ref __tmp255318)))) (declare (not safe)) - (cons __tmp252622 '())))) + (cons __tmp255317 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252624 - __tmp252621)))) + (cons __tmp255319 + __tmp255316)))) (declare (not safe)) - (cons __tmp252626 __tmp252620)))) + (cons __tmp255321 __tmp255315)))) (declare (not safe)) - (cons '%#call __tmp252619)))) + (cons '%#call __tmp255314)))) (declare (not safe)) - (cons __tmp252618 '())))) + (cons __tmp255313 '())))) (declare (not safe)) - (cons __tmp252628 __tmp252617)))) - (_generate-specializer-impl243535_ - (lambda (_$t246788_ - _methods-bind246789_ - _slots-bind246790_ - _class-check-bind246791_ - _struct-check-bind246792_ - _specializer-impl246793_ - _lifted-specializer-id246794_ - _unchecked-specializer-impl246795_) - (let ((__tmp252629 - (let ((__tmp252630 - (let ((__tmp252656 + (cons __tmp255323 __tmp255312)))) + (_generate-specializer-impl246130_ + (lambda (_$t249383_ + _methods-bind249384_ + _slots-bind249385_ + _class-check-bind249386_ + _struct-check-bind249387_ + _specializer-impl249388_ + _lifted-specializer-id249389_ + _unchecked-specializer-impl249390_) + (let ((__tmp255324 + (let ((__tmp255325 + (let ((__tmp255351 (let () (declare (not safe)) - (cons _$t246788_ '()))) - (__tmp252631 - (let ((__tmp252632 - (let ((__tmp252633 - (let ((__tmp252653 - (let ((__tmp252654 + (cons _$t249383_ '()))) + (__tmp255326 + (let ((__tmp255327 + (let ((__tmp255328 + (let ((__tmp255348 + (let ((__tmp255349 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp252655 + (let ((__tmp255350 (let () (declare (not safe)) (foldr1 cons - _struct-check-bind246792_ - _class-check-bind246791_)))) + _struct-check-bind249387_ + _class-check-bind249386_)))) (declare (not safe)) - (foldr1 cons __tmp252655 _slots-bind246790_)))) + (foldr1 cons __tmp255350 _slots-bind249385_)))) (declare (not safe)) - (foldr1 cons __tmp252654 _methods-bind246789_))) - (__tmp252634 - (let ((__tmp252635 - (if (or _lifted-specializer-id246794_ - _unchecked-specializer-impl246795_) - (let* ((_$specializer246800_ - (let ((__tmp252636 + (foldr1 cons __tmp255349 _methods-bind249384_))) + (__tmp255329 + (let ((__tmp255330 + (if (or _lifted-specializer-id249389_ + _unchecked-specializer-impl249390_) + (let* ((_$specializer249395_ + (let ((__tmp255331 (gensym '__specializer))) (declare (not safe)) - (make-symbol__0 __tmp252636))) - (__tmp252637 - (let ((__tmp252649 - (let ((__tmp252650 - (let ((__tmp252652 + (make-symbol__0 __tmp255331))) + (__tmp255332 + (let ((__tmp255344 + (let ((__tmp255345 + (let ((__tmp255347 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$specializer246800_ '()))) - (__tmp252651 + (cons _$specializer249395_ '()))) + (__tmp255346 (let () (declare (not safe)) - (cons _specializer-impl246793_ '())))) + (cons _specializer-impl249388_ '())))) (declare (not safe)) - (cons __tmp252652 __tmp252651)))) + (cons __tmp255347 __tmp255346)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252650 '()))) - (__tmp252638 - (let ((__tmp252639 - (let _recur246802_ ((_rest246804_ + (cons __tmp255345 '()))) + (__tmp255333 + (let ((__tmp255334 + (let _recur249397_ ((_rest249399_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (map caar _struct-check-bind246792_))) - (let* ((_rest246805246813_ _rest246804_) - (_else246807246821_ + (map caar _struct-check-bind249387_))) + (let* ((_rest249400249408_ _rest249399_) + (_else249402249416_ (lambda () - (if _lifted-specializer-id246794_ - (let ((__tmp252640 + (if _lifted-specializer-id249389_ + (let ((__tmp255335 (let () (declare (not safe)) - (cons _lifted-specializer-id246794_ + (cons _lifted-specializer-id249389_ '())))) (declare (not safe)) - (cons '%#ref __tmp252640)) - _unchecked-specializer-impl246795_))) - (_K246809246827_ - (lambda (_rest246824_ _checkq246825_) - (let ((__tmp252641 - (let ((__tmp252647 - (let ((__tmp252648 + (cons '%#ref __tmp255335)) + _unchecked-specializer-impl249390_))) + (_K249404249422_ + (lambda (_rest249419_ _checkq249420_) + (let ((__tmp255336 + (let ((__tmp255342 + (let ((__tmp255343 (let () (declare (not safe)) - (cons _checkq246825_ '())))) + (cons _checkq249420_ '())))) (declare (not safe)) - (cons '%#ref __tmp252648))) - (__tmp252642 - (let ((__tmp252646 + (cons '%#ref __tmp255343))) + (__tmp255337 + (let ((__tmp255341 (let () (declare (not safe)) - (_recur246802_ - _rest246824_))) - (__tmp252643 - (let ((__tmp252644 - (let ((__tmp252645 + (_recur249397_ + _rest249419_))) + (__tmp255338 + (let ((__tmp255339 + (let ((__tmp255340 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$specializer246800_ '())))) + (cons _$specializer249395_ '())))) (declare (not safe)) - (cons '%#ref __tmp252645)))) + (cons '%#ref __tmp255340)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252644 '())))) + (cons __tmp255339 '())))) (declare (not safe)) - (cons __tmp252646 __tmp252643)))) + (cons __tmp255341 __tmp255338)))) (declare (not safe)) - (cons __tmp252647 __tmp252642)))) + (cons __tmp255342 __tmp255337)))) (declare (not safe)) - (cons '%#if __tmp252641))))) + (cons '%#if __tmp255336))))) (if (let () (declare (not safe)) - (##pair? _rest246805246813_)) - (let ((_hd246810246830_ + (##pair? _rest249400249408_)) + (let ((_hd249405249425_ (let () (declare (not safe)) - (##car _rest246805246813_))) - (_tl246811246832_ + (##car _rest249400249408_))) + (_tl249406249427_ (let () (declare (not safe)) - (##cdr _rest246805246813_)))) - (let* ((_checkq246835_ _hd246810246830_) - (_rest246837_ _tl246811246832_)) + (##cdr _rest249400249408_)))) + (let* ((_checkq249430_ _hd249405249425_) + (_rest249432_ _tl249406249427_)) (declare (not safe)) - (_K246809246827_ _rest246837_ _checkq246835_))) - (let () (declare (not safe)) (_else246807246821_))))))) + (_K249404249422_ _rest249432_ _checkq249430_))) + (let () (declare (not safe)) (_else249402249416_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252639 '())))) + (cons __tmp255334 '())))) (declare (not safe)) - (cons __tmp252649 __tmp252638)))) + (cons __tmp255344 __tmp255333)))) (declare (not safe)) - (cons '%#let-values __tmp252637)) - _specializer-impl246793_))) + (cons '%#let-values __tmp255332)) + _specializer-impl249388_))) (declare (not safe)) - (cons __tmp252635 '())))) + (cons __tmp255330 '())))) (declare (not safe)) - (cons __tmp252653 __tmp252634)))) + (cons __tmp255348 __tmp255329)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp252633)))) + __tmp255328)))) (declare (not safe)) - (cons __tmp252632 '())))) + (cons __tmp255327 '())))) (declare (not safe)) - (cons __tmp252656 __tmp252631)))) + (cons __tmp255351 __tmp255326)))) (declare (not safe)) - (cons '%#lambda __tmp252630)))) + (cons '%#lambda __tmp255325)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252629 _stx243529_)))) - (_generate-specializer-def243536_ - (lambda (_id246782_ - _specializer-id246783_ - _specializer-impl246784_ - _lifted-specializer-id246785_ - _unchecked-specializer-impl246786_) - (let ((__tmp252657 - (let ((__tmp252658 - (let ((__tmp252659 - (let ((__tmp252679 - (let ((__tmp252680 - (let ((__tmp252681 - (let ((__tmp252683 + (gxc#xform-wrap-source __tmp255324 _stx246124_)))) + (_generate-specializer-def246131_ + (lambda (_id249377_ + _specializer-id249378_ + _specializer-impl249379_ + _lifted-specializer-id249380_ + _unchecked-specializer-impl249381_) + (let ((__tmp255352 + (let ((__tmp255353 + (let ((__tmp255354 + (let ((__tmp255374 + (let ((__tmp255375 + (let ((__tmp255376 + (let ((__tmp255378 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _specializer-id246783_ '()))) - (__tmp252682 + (cons _specializer-id249378_ '()))) + (__tmp255377 (let () (declare (not safe)) - (cons _specializer-impl246784_ '())))) + (cons _specializer-impl249379_ '())))) (declare (not safe)) - (cons __tmp252683 __tmp252682)))) + (cons __tmp255378 __tmp255377)))) (declare (not safe)) - (cons '%#define-values __tmp252681)))) + (cons '%#define-values __tmp255376)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp252680 - _stx243529_))) - (__tmp252660 - (let ((__tmp252667 - (let ((__tmp252668 - (let ((__tmp252669 + __tmp255375 + _stx246124_))) + (__tmp255355 + (let ((__tmp255362 + (let ((__tmp255363 + (let ((__tmp255364 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp252670 - (let ((__tmp252677 - (let ((__tmp252678 + (let ((__tmp255365 + (let ((__tmp255372 + (let ((__tmp255373 (let () (declare (not safe)) (cons 'bind-specializer! '())))) (declare (not safe)) - (cons '%#ref __tmp252678))) - (__tmp252671 - (let ((__tmp252675 - (let ((__tmp252676 + (cons '%#ref __tmp255373))) + (__tmp255366 + (let ((__tmp255370 + (let ((__tmp255371 (let () (declare (not safe)) - (cons _id246782_ + (cons _id249377_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp252676))) - (__tmp252672 - (let ((__tmp252673 - (let ((__tmp252674 + (cons '%#ref __tmp255371))) + (__tmp255367 + (let ((__tmp255368 + (let ((__tmp255369 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _specializer-id246783_ '())))) + (cons _specializer-id249378_ '())))) (declare (not safe)) - (cons '%#ref __tmp252674)))) + (cons '%#ref __tmp255369)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252673 '())))) + (cons __tmp255368 '())))) (declare (not safe)) - (cons __tmp252675 __tmp252672)))) + (cons __tmp255370 __tmp255367)))) (declare (not safe)) - (cons __tmp252677 __tmp252671)))) + (cons __tmp255372 __tmp255366)))) (declare (not safe)) - (cons '%#call __tmp252670)))) + (cons '%#call __tmp255365)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252669 _stx243529_)))) + (gxc#xform-wrap-source __tmp255364 _stx246124_)))) (declare (not safe)) - (cons __tmp252668 '()))) - (__tmp252661 - (if _lifted-specializer-id246785_ - (let ((__tmp252662 - (let ((__tmp252663 - (let ((__tmp252664 - (let ((__tmp252666 + (cons __tmp255363 '()))) + (__tmp255356 + (if _lifted-specializer-id249380_ + (let ((__tmp255357 + (let ((__tmp255358 + (let ((__tmp255359 + (let ((__tmp255361 (let () (declare (not safe)) - (cons _lifted-specializer-id246785_ + (cons _lifted-specializer-id249380_ '()))) - (__tmp252665 + (__tmp255360 (let () (declare (not safe)) - (cons _unchecked-specializer-impl246786_ + (cons _unchecked-specializer-impl249381_ '())))) (declare (not safe)) - (cons __tmp252666 __tmp252665)))) + (cons __tmp255361 __tmp255360)))) (declare (not safe)) - (cons '%#define-values __tmp252664)))) + (cons '%#define-values __tmp255359)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252663 _stx243529_)))) + (gxc#xform-wrap-source __tmp255358 _stx246124_)))) (declare (not safe)) - (cons __tmp252662 '())) + (cons __tmp255357 '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp252667 - __tmp252661)))) + __tmp255362 + __tmp255356)))) (declare (not safe)) - (cons __tmp252679 __tmp252660)))) + (cons __tmp255374 __tmp255355)))) (declare (not safe)) - (cons _stx243529_ __tmp252659)))) + (cons _stx246124_ __tmp255354)))) (declare (not safe)) - (cons '%#begin __tmp252658)))) + (cons '%#begin __tmp255353)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252657 _stx243529_))))) - (let* ((___stx251473251474_ _stx243529_) - (_g243539243559_ + (gxc#xform-wrap-source __tmp255352 _stx246124_))))) + (let* ((___stx254168254169_ _stx246124_) + (_g246134246154_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx251473251474_))))) - (let ((___kont251475251476_ - (lambda (_L243603_ _L243604_) - (let ((_method-calls243623_ + ___stx254168254169_))))) + (let ((___kont254170254171_ + (lambda (_L246198_ _L246199_) + (let ((_method-calls246218_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_slot-refs243624_ + (_slot-refs246219_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_class-type-check243625_ + (_class-type-check246220_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_struct-type-check243626_ + (_struct-type-check246221_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_struct-type-assert243627_ + (_struct-type-assert246222_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_empty243628_ + (_empty246223_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (letrec ((_no-specializer?243630_ + (letrec ((_no-specializer?246225_ (lambda () - (if (let ((__tmp252688 + (if (let ((__tmp255383 (let () (declare (not safe)) (table-length - _method-calls243623_)))) + _method-calls246218_)))) (declare (not safe)) - (fxzero? __tmp252688)) - (if (let ((__tmp252687 + (fxzero? __tmp255383)) + (if (let ((__tmp255382 (let () (declare (not safe)) (table-length - _slot-refs243624_)))) + _slot-refs246219_)))) (declare (not safe)) - (fxzero? __tmp252687)) - (if (let ((__tmp252686 + (fxzero? __tmp255382)) + (if (let ((__tmp255381 (let () (declare (not safe)) (table-length - _class-type-check243625_)))) + _class-type-check246220_)))) (declare (not safe)) - (fxzero? __tmp252686)) - (if (let ((__tmp252685 + (fxzero? __tmp255381)) + (if (let ((__tmp255380 (let () (declare (not safe)) (table-length - _struct-type-check243626_)))) + _struct-type-check246221_)))) (declare (not safe)) - (fxzero? __tmp252685)) - (let ((__tmp252684 + (fxzero? __tmp255380)) + (let ((__tmp255379 (let () (declare (not safe)) (table-length - _struct-type-assert243627_)))) + _struct-type-assert246222_)))) (declare (not safe)) - (fxzero? __tmp252684)) + (fxzero? __tmp255379)) '#f) '#f) '#f) '#f))) - (_unchecked-specializer?243631_ + (_unchecked-specializer?246226_ (lambda () - (let ((_$e246775_ - (let ((__tmp252689 - (let ((__tmp252690 + (let ((_$e249370_ + (let ((__tmp255384 + (let ((__tmp255385 (let () (declare (not safe)) (table-length - _struct-type-check243626_)))) + _struct-type-check246221_)))) (declare (not safe)) - (fxzero? __tmp252690)))) + (fxzero? __tmp255385)))) (declare (not safe)) - (not __tmp252689)))) - (if _$e246775_ - _$e246775_ - (let ((__tmp252691 - (let ((__tmp252692 + (not __tmp255384)))) + (if _$e249370_ + _$e249370_ + (let ((__tmp255386 + (let ((__tmp255387 (let () (declare (not safe)) (table-length - _struct-type-assert243627_)))) + _struct-type-assert246222_)))) (declare (not safe)) - (fxzero? __tmp252692)))) + (fxzero? __tmp255387)))) (declare (not safe)) - (not __tmp252691)))))) - (_lift-unchecked-specializer?243632_ + (not __tmp255386)))))) + (_lift-unchecked-specializer?246227_ (lambda () - (if (let ((__tmp252695 + (if (let ((__tmp255390 (let () (declare (not safe)) (table-length - _method-calls243623_)))) + _method-calls246218_)))) (declare (not safe)) - (fxzero? __tmp252695)) - (if (let ((__tmp252694 + (fxzero? __tmp255390)) + (if (let ((__tmp255389 (let () (declare (not safe)) (table-length - _slot-refs243624_)))) + _slot-refs246219_)))) (declare (not safe)) - (fxzero? __tmp252694)) - (let ((__tmp252693 + (fxzero? __tmp255389)) + (let ((__tmp255388 (let () (declare (not safe)) (table-length - _class-type-check243625_)))) + _class-type-check246220_)))) (declare (not safe)) - (fxzero? __tmp252693)) + (fxzero? __tmp255388)) '#f) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L243603_)) - (let* ((___stx251387251388_ _L243603_) - (_g244145244163_ + (gxc#lambda-expr? _L246198_)) + (let* ((___stx254082254083_ _L246198_) + (_g246740246758_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx251387251388_))))) - (let ((___kont251389251390_ - (lambda (_L244199_ _L244200_ _L244201_) + ___stx254082254083_))))) + (let ((___kont254084254085_ + (lambda (_L246794_ _L246795_ _L246796_) (for-each - (lambda (_g244216244218_) + (lambda (_g246811246813_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g244216244218_ - _L244201_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check243626_ - _struct-type-assert243627_))) - _L244199_) + _g246811246813_ + _L246796_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check246221_ + _struct-type-assert246222_))) + _L246794_) (if (let () (declare (not safe)) - (_no-specializer?243630_)) - _stx243529_ - (let* ((_specializer-id244227_ - (let* ((_id244221_ - (let ((__tmp252845 + (_no-specializer?246225_)) + _stx246124_ + (let* ((_specializer-id246822_ + (let* ((_id246816_ + (let ((__tmp255540 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L243604_)))) + (let () (declare (not safe)) (gx#stx-e _L246199_)))) (declare (not safe)) - (make-symbol__1 __tmp252845 '"::specialize"))) - (_specializer-id244224_ - (let ((__tmp252846 + (make-symbol__1 __tmp255540 '"::specialize"))) + (_specializer-id246819_ + (let ((__tmp255541 (let () (declare (not safe)) - (gx#stx-source _stx243529_)))) + (gx#stx-source _stx246124_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id244221_ __tmp252846)))) + (gx#core-quote-syntax__1 _id246816_ __tmp255541)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id244224_)) - _specializer-id244224_)) + (gx#core-bind-runtime!__0 _specializer-id246819_)) + _specializer-id246819_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lifted-specializer-id244234_ + (_lifted-specializer-id246829_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?243632_)) - (let* ((_id244229_ - (let ((__tmp252847 + (_lift-unchecked-specializer?246227_)) + (let* ((_id246824_ + (let ((__tmp255542 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _L243604_)))) + (gx#stx-e _L246199_)))) (declare (not safe)) (make-symbol__1 - __tmp252847 + __tmp255542 '"::specialize::unchecked"))) - (_lifted-specializer-id244231_ - (let ((__tmp252848 + (_lifted-specializer-id246826_ + (let ((__tmp255543 (let () (declare (not safe)) - (gx#stx-source _stx243529_)))) + (gx#stx-source _stx246124_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id244229_ __tmp252848)))) + (gx#core-quote-syntax__1 _id246824_ __tmp255543)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lifted-specializer-id244231_)) - _lifted-specializer-id244231_) + (gx#core-bind-runtime!__0 _lifted-specializer-id246826_)) + _lifted-specializer-id246826_) '#f)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$t244236_ - (let ((__tmp252849 + (_$t246831_ + (let ((__tmp255544 (gensym '__t))) (declare (not safe)) (make-symbol__0 - __tmp252849))) - (_methods244238_ + __tmp255544))) + (_methods246833_ (let () (declare (not safe)) (hash-keys - _method-calls243623_))) - (_$methods244242_ - (map (lambda (_id244240_) - (let ((__tmp252850 + _method-calls246218_))) + (_$methods246837_ + (map (lambda (_id246835_) + (let ((__tmp255545 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id244240_))) + (gensym _id246835_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp252850))) - _methods244238_)) + (make-symbol__1 '"__" __tmp255545))) + _methods246833_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g252851_ + (_g255546_ (for-each - (lambda (_g244243244246_ - _g244244244248_) + (lambda (_g246838246841_ + _g246839246843_) (let () (declare (not safe)) (table-set! - _method-calls243623_ - _g244243244246_ - _g244244244248_))) - _methods244238_ - _$methods244242_)) - (_methods-bind244259_ - (map (lambda (_g244251244254_ + _method-calls246218_ + _g246838246841_ + _g246839246843_))) + _methods246833_ + _$methods246837_)) + (_methods-bind246854_ + (map (lambda (_g246846246849_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g244252244256_) + _g246847246851_) (let () (declare (not safe)) - (_generate-method-bind243531_ - _$t244236_ - _g244251244254_ - _g244252244256_))) - _methods244238_ - _$methods244242_)) + (_generate-method-bind246126_ + _$t246831_ + _g246846246849_ + _g246847246851_))) + _methods246833_ + _$methods246837_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots244261_ + (_slots246856_ (let () (declare (not safe)) (hash-keys - _slot-refs243624_))) - (_$slots244265_ - (map (lambda (_id244263_) - (let ((__tmp252852 + _slot-refs246219_))) + (_$slots246860_ + (map (lambda (_id246858_) + (let ((__tmp255547 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id244263_))) + (gensym _id246858_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp252852))) - _slots244261_)) + (make-symbol__1 '"__" __tmp255547))) + _slots246856_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g252853_ + (_g255548_ (for-each - (lambda (_g244266244269_ - _g244267244271_) + (lambda (_g246861246864_ + _g246862246866_) (let () (declare (not safe)) (table-set! - _slot-refs243624_ - _g244266244269_ - _g244267244271_))) - _slots244261_ - _$slots244265_)) - (_slots-bind244282_ - (map (lambda (_g244274244277_ + _slot-refs246219_ + _g246861246864_ + _g246862246866_))) + _slots246856_ + _$slots246860_)) + (_slots-bind246877_ + (map (lambda (_g246869246872_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g244275244279_) + _g246870246874_) (let () (declare (not safe)) - (_generate-slot-bind243532_ - _$t244236_ - _g244274244277_ - _g244275244279_))) - _slots244261_ - _$slots244265_)) + (_generate-slot-bind246127_ + _$t246831_ + _g246869246872_ + _g246870246874_))) + _slots246856_ + _$slots246860_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_class-check244284_ + (_class-check246879_ (let () (declare (not safe)) (hash-keys - _class-type-check243625_))) - (_$class-check244287_ - (map (lambda (_g252854_) - (let ((__tmp252855 + _class-type-check246220_))) + (_$class-check246882_ + (map (lambda (_g255549_) + (let ((__tmp255550 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp252855))) - _class-check244284_)) + (make-symbol__0 __tmp255550))) + _class-check246879_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g252856_ + (_g255551_ (for-each - (lambda (_g244288244291_ - _g244289244293_) + (lambda (_g246883246886_ + _g246884246888_) (let () (declare (not safe)) (table-set! - _class-type-check243625_ - _g244288244291_ - _g244289244293_))) - _class-check244284_ - _$class-check244287_)) - (_class-check-bind244304_ - (map (lambda (_g244296244299_ + _class-type-check246220_ + _g246883246886_ + _g246884246888_))) + _class-check246879_ + _$class-check246882_)) + (_class-check-bind246899_ + (map (lambda (_g246891246894_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g244297244301_) + _g246892246896_) (let () (declare (not safe)) - (_generate-class-check-bind243533_ - _$t244236_ - _g244296244299_ - _g244297244301_))) - _class-check244284_ - _$class-check244287_)) + (_generate-class-check-bind246128_ + _$t246831_ + _g246891246894_ + _g246892246896_))) + _class-check246879_ + _$class-check246882_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_struct-check-all244306_ + (_struct-check-all246901_ (let () (declare (not safe)) (hash-merge - _struct-type-check243626_ - _struct-type-assert243627_))) - (_struct-check244308_ + _struct-type-check246221_ + _struct-type-assert246222_))) + (_struct-check246903_ (let () (declare (not safe)) (hash-keys - _struct-check-all244306_))) - (_$struct-check244311_ - (map (lambda (_g252857_) - (let ((__tmp252858 + _struct-check-all246901_))) + (_$struct-check246906_ + (map (lambda (_g255552_) + (let ((__tmp255553 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp252858))) - _struct-check244308_)) + (make-symbol__0 __tmp255553))) + _struct-check246903_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g252859_ + (_g255554_ (for-each - (lambda (_g244312244315_ - _g244313244317_) + (lambda (_g246907246910_ + _g246908246912_) (let () (declare (not safe)) (table-set! - _struct-check-all244306_ - _g244312244315_ - _g244313244317_))) - _struct-check244308_ - _$struct-check244311_)) - (_struct-check-bind244328_ - (map (lambda (_g244320244323_ + _struct-check-all246901_ + _g246907246910_ + _g246908246912_))) + _struct-check246903_ + _$struct-check246906_)) + (_struct-check-bind246923_ + (map (lambda (_g246915246918_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g244321244325_) + _g246916246920_) (let () (declare (not safe)) - (_generate-struct-check-bind243534_ - _$t244236_ - _g244320244323_ - _g244321244325_))) - _struct-check244308_ - _$struct-check244311_)) + (_generate-struct-check-bind246129_ + _$t246831_ + _g246915246918_ + _g246916246920_))) + _struct-check246903_ + _$struct-check246906_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-impl244339_ - (lambda (_struct-type-check1244330_ - _struct-type-check2244331_) - (let* ((_specializer-body244337_ - (map (lambda (_g244332244334_) + (_make-specializer-impl246934_ + (lambda (_struct-type-check1246925_ + _struct-type-check2246926_) + (let* ((_specializer-body246932_ + (map (lambda (_g246927246929_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g244332244334_ - _L244201_ - _$t244236_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check1244330_ - _struct-type-check2244331_))) - _L244199_)) - (__tmp252860 - (let ((__tmp252861 - (let ((__tmp252862 + _g246927246929_ + _L246796_ + _$t246831_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check1246925_ + _struct-type-check2246926_))) + _L246794_)) + (__tmp255555 + (let ((__tmp255556 + (let ((__tmp255557 (let () (declare (not safe)) - (cons _L244201_ _L244200_)))) + (cons _L246796_ _L246795_)))) (declare (not safe)) - (cons __tmp252862 _specializer-body244337_)))) + (cons __tmp255557 _specializer-body246932_)))) (declare (not safe)) - (cons '%#lambda __tmp252861)))) + (cons '%#lambda __tmp255556)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252860 _stx243529_)))) + (gxc#xform-wrap-source __tmp255555 _stx246124_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl244341_ + (_specializer-impl246936_ (let () (declare (not safe)) - (_make-specializer-impl244339_ - _struct-check-all244306_ - _empty243628_))) - (_unchecked-specializer-impl244343_ + (_make-specializer-impl246934_ + _struct-check-all246901_ + _empty246223_))) + (_unchecked-specializer-impl246938_ (if (let () (declare (not safe)) - (_unchecked-specializer?243631_)) + (_unchecked-specializer?246226_)) (let () (declare (not safe)) - (_make-specializer-impl244339_ - _empty243628_ - _struct-check-all244306_)) + (_make-specializer-impl246934_ + _empty246223_ + _struct-check-all246901_)) '#f)) - (_specializer-impl244345_ + (_specializer-impl246940_ (let () (declare (not safe)) - (_generate-specializer-impl243535_ - _$t244236_ - _methods-bind244259_ - _slots-bind244282_ - _class-check-bind244304_ - _struct-check-bind244328_ - _specializer-impl244341_ - _lifted-specializer-id244234_ - _unchecked-specializer-impl244343_)))) - (let ((__tmp252864 + (_generate-specializer-impl246130_ + _$t246831_ + _methods-bind246854_ + _slots-bind246877_ + _class-check-bind246899_ + _struct-check-bind246923_ + _specializer-impl246936_ + _lifted-specializer-id246829_ + _unchecked-specializer-impl246938_)))) + (let ((__tmp255559 (let () (declare (not safe)) - (gx#stx-e _L243604_))) - (__tmp252863 + (gx#stx-e _L246199_))) + (__tmp255558 (let () (declare (not safe)) (gx#stx-e - _specializer-id244227_)))) + _specializer-id246822_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp252864 + __tmp255559 '" => " - __tmp252863)) + __tmp255558)) (let () (declare (not safe)) - (_generate-specializer-def243536_ - _L243604_ - _specializer-id244227_ - _specializer-impl244345_ - _lifted-specializer-id244234_ - _unchecked-specializer-impl244343_)))))) - (___kont251391251392_ - (lambda () _stx243529_))) + (_generate-specializer-def246131_ + _L246199_ + _specializer-id246822_ + _specializer-impl246940_ + _lifted-specializer-id246829_ + _unchecked-specializer-impl246938_)))))) + (___kont254086254087_ + (lambda () _stx246124_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx251387251388_)) - (let ((_e244152244175_ + (gx#stx-pair? ___stx254082254083_)) + (let ((_e246747246770_ (let () (declare (not safe)) - (gx#stx-e ___stx251387251388_)))) - (let ((_tl244150244180_ + (gx#stx-e ___stx254082254083_)))) + (let ((_tl246745246775_ (let () (declare (not safe)) - (##cdr _e244152244175_))) - (_hd244151244178_ + (##cdr _e246747246770_))) + (_hd246746246773_ (let () (declare (not safe)) - (##car _e244152244175_)))) + (##car _e246747246770_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244150244180_)) - (let ((_e244155244183_ + (gx#stx-pair? _tl246745246775_)) + (let ((_e246750246778_ (let () (declare (not safe)) (gx#stx-e - _tl244150244180_)))) - (let ((_tl244153244188_ + _tl246745246775_)))) + (let ((_tl246748246783_ (let () (declare (not safe)) - (##cdr _e244155244183_))) - (_hd244154244186_ + (##cdr _e246750246778_))) + (_hd246749246781_ (let () (declare (not safe)) - (##car _e244155244183_)))) + (##car _e246750246778_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd244154244186_)) - (let ((_e244158244191_ + _hd246749246781_)) + (let ((_e246753246786_ (let () (declare (not safe)) (gx#stx-e - _hd244154244186_)))) - (let ((_tl244156244196_ + _hd246749246781_)))) + (let ((_tl246751246791_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e244158244191_))) - (_hd244157244194_ - (let () (declare (not safe)) (##car _e244158244191_)))) - (___kont251389251390_ - _tl244153244188_ - _tl244156244196_ - _hd244157244194_))) + (##cdr _e246753246786_))) + (_hd246752246789_ + (let () (declare (not safe)) (##car _e246753246786_)))) + (___kont254084254085_ + _tl246748246783_ + _tl246751246791_ + _hd246752246789_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont251391251392_)))) - (___kont251391251392_)))) - (___kont251391251392_)))) + (___kont254086254087_)))) + (___kont254086254087_)))) + (___kont254086254087_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _L243603_)) - (let* ((_g244351244370_ - (lambda (_g244352244367_) + (gxc#case-lambda-expr? _L246198_)) + (let* ((_g246946246965_ + (lambda (_g246947246962_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g244352244367_)))) - (_g244350244721_ - (lambda (_g244352244373_) + _g246947246962_)))) + (_g246945247316_ + (lambda (_g246947246968_) (if (let () (declare (not safe)) (gx#stx-pair? - _g244352244373_)) - (let ((_e244356244375_ + _g246947246968_)) + (let ((_e246951246970_ (let () (declare (not safe)) (gx#stx-e - _g244352244373_)))) - (let ((_hd244355244378_ + _g246947246968_)))) + (let ((_hd246950246973_ (let () (declare (not safe)) - (##car _e244356244375_))) - (_tl244354244380_ + (##car _e246951246970_))) + (_tl246949246975_ (let () (declare (not safe)) - (##cdr _e244356244375_)))) + (##cdr _e246951246970_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl244354244380_)) - (let ((_g252821_ + _tl246949246975_)) + (let ((_g255516_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl244354244380_ '0)))) + (gx#syntax-split-splice _tl246949246975_ '0)))) (begin - (let ((_g252822_ + (let ((_g255517_ (let () (declare (not safe)) - (if (##values? _g252821_) - (##vector-length _g252821_) + (if (##values? _g255516_) + (##vector-length _g255516_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g252822_ 2))) - (error "Context expects 2 values" _g252822_))) - (let ((_target244357244383_ + (##fx= _g255517_ 2))) + (error "Context expects 2 values" _g255517_))) + (let ((_target246952246978_ (let () (declare (not safe)) - (##vector-ref _g252821_ 0))) - (_tl244359244385_ + (##vector-ref _g255516_ 0))) + (_tl246954246980_ (let () (declare (not safe)) - (##vector-ref _g252821_ 1)))) + (##vector-ref _g255516_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl244359244385_)) - (letrec ((_loop244360244388_ - (lambda (_hd244358244391_ - _clause244364244393_) + (gx#stx-null? _tl246954246980_)) + (letrec ((_loop246955246983_ + (lambda (_hd246953246986_ + _clause246959246988_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd244358244391_)) - (let ((_e244361244396_ + (gx#stx-pair? _hd246953246986_)) + (let ((_e246956246991_ (let () (declare (not safe)) (gx#stx-e - _hd244358244391_)))) - (let ((_lp-hd244362244399_ + _hd246953246986_)))) + (let ((_lp-hd246957246994_ (let () (declare (not safe)) - (##car _e244361244396_))) - (_lp-tl244363244401_ + (##car _e246956246991_))) + (_lp-tl246958246996_ (let () (declare (not safe)) - (##cdr _e244361244396_)))) - (let ((__tmp252844 + (##cdr _e246956246991_)))) + (let ((__tmp255539 (let () (declare (not safe)) - (cons _lp-hd244362244399_ - _clause244364244393_)))) + (cons _lp-hd246957246994_ + _clause246959246988_)))) (declare (not safe)) - (_loop244360244388_ - _lp-tl244363244401_ - __tmp252844)))) - (let ((_clause244365244404_ - (reverse _clause244364244393_))) - ((lambda (_L244407_) + (_loop246955246983_ + _lp-tl246958246996_ + __tmp255539)))) + (let ((_clause246960246999_ + (reverse _clause246959246988_))) + ((lambda (_L247002_) (for-each - (lambda (_clause244420_) - (let* ((___stx251413251414_ - _clause244420_) - (_g244423244438_ + (lambda (_clause247015_) + (let* ((___stx254108254109_ + _clause247015_) + (_g247018247033_ (lambda () (let () (declare @@ -1505,8193 +1505,8193 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx251413251414_))))) - (let ((___kont251415251416_ - (lambda (_L244466_ + ___stx254108254109_))))) + (let ((___kont254110254111_ + (lambda (_L247061_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L244467_ - _L244468_) + _L247062_ + _L247063_) (for-each - (lambda (_g244483244485_) + (lambda (_g247078247080_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g244483244485_ - _L244468_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check243626_ - _struct-type-assert243627_))) - _L244466_))) - (___kont251417251418_ (lambda () '#!void))) + _g247078247080_ + _L247063_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check246221_ + _struct-type-assert246222_))) + _L247061_))) + (___kont254112254113_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx251413251414_)) - (let ((_e244430244450_ + ___stx254108254109_)) + (let ((_e247025247045_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e ___stx251413251414_)))) - (let ((_tl244428244455_ + (gx#stx-e ___stx254108254109_)))) + (let ((_tl247023247050_ (let () (declare (not safe)) - (##cdr _e244430244450_))) - (_hd244429244453_ + (##cdr _e247025247045_))) + (_hd247024247048_ (let () (declare (not safe)) - (##car _e244430244450_)))) + (##car _e247025247045_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd244429244453_)) - (let ((_e244433244458_ + (gx#stx-pair? _hd247024247048_)) + (let ((_e247028247053_ (let () (declare (not safe)) - (gx#stx-e _hd244429244453_)))) - (let ((_tl244431244463_ + (gx#stx-e _hd247024247048_)))) + (let ((_tl247026247058_ (let () (declare (not safe)) - (##cdr _e244433244458_))) - (_hd244432244461_ + (##cdr _e247028247053_))) + (_hd247027247056_ (let () (declare (not safe)) - (##car _e244433244458_)))) - (___kont251415251416_ - _tl244428244455_ - _tl244431244463_ - _hd244432244461_))) - (___kont251417251418_)))) - (___kont251417251418_))))) + (##car _e247028247053_)))) + (___kont254110254111_ + _tl247023247050_ + _tl247026247058_ + _hd247027247056_))) + (___kont254112254113_)))) + (___kont254112254113_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp252823 - (lambda (_g244490244493_ - _g244491244495_) + (let ((__tmp255518 + (lambda (_g247085247088_ + _g247086247090_) (let () (declare (not safe)) - (cons _g244490244493_ - _g244491244495_))))) + (cons _g247085247088_ + _g247086247090_))))) (declare (not safe)) - (foldr1 __tmp252823 + (foldr1 __tmp255518 '() - _L244407_))) + _L247002_))) (if (let () (declare (not safe)) - (_no-specializer?243630_)) - _stx243529_ - (let* ((_specializer-id244504_ - (let* ((_id244498_ + (_no-specializer?246225_)) + _stx246124_ + (let* ((_specializer-id247099_ + (let* ((_id247093_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp252824 + (let ((__tmp255519 (let () (declare (not safe)) - (gx#stx-e _L243604_)))) + (gx#stx-e _L246199_)))) (declare (not safe)) - (make-symbol__1 __tmp252824 '"::specialize"))) - (_specializer-id244501_ - (let ((__tmp252825 + (make-symbol__1 __tmp255519 '"::specialize"))) + (_specializer-id247096_ + (let ((__tmp255520 (let () (declare (not safe)) - (gx#stx-source _stx243529_)))) + (gx#stx-source _stx246124_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id244498_ __tmp252825)))) + (gx#core-quote-syntax__1 _id247093_ __tmp255520)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id244501_)) - _specializer-id244501_)) - (_lifted-specializer-id244511_ + (gx#core-bind-runtime!__0 _specializer-id247096_)) + _specializer-id247096_)) + (_lifted-specializer-id247106_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?243632_)) - (let* ((_id244506_ - (let ((__tmp252826 + (_lift-unchecked-specializer?246227_)) + (let* ((_id247101_ + (let ((__tmp255521 (let () (declare (not safe)) - (gx#stx-e _L243604_)))) + (gx#stx-e _L246199_)))) (declare (not safe)) (make-symbol__1 - __tmp252826 + __tmp255521 '"::specialize::unchecked"))) - (_lifted-specializer-id244508_ - (let ((__tmp252827 + (_lifted-specializer-id247103_ + (let ((__tmp255522 (let () (declare (not safe)) - (gx#stx-source _stx243529_)))) + (gx#stx-source _stx246124_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id244506_ - __tmp252827)))) + _id247101_ + __tmp255522)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lifted-specializer-id244508_)) - _lifted-specializer-id244508_) + _lifted-specializer-id247103_)) + _lifted-specializer-id247103_) '#f)) - (_$t244513_ - (let ((__tmp252828 (gensym '__t))) + (_$t247108_ + (let ((__tmp255523 (gensym '__t))) (declare (not safe)) - (make-symbol__0 __tmp252828))) - (_methods244515_ + (make-symbol__0 __tmp255523))) + (_methods247110_ (let () (declare (not safe)) - (hash-keys _method-calls243623_))) - (_$methods244519_ - (map (lambda (_id244517_) - (let ((__tmp252829 (gensym _id244517_))) + (hash-keys _method-calls246218_))) + (_$methods247114_ + (map (lambda (_id247112_) + (let ((__tmp255524 (gensym _id247112_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp252829))) - _methods244515_)) - (_g252830_ + (make-symbol__1 '"__" __tmp255524))) + _methods247110_)) + (_g255525_ (for-each - (lambda (_g244520244523_ _g244521244525_) + (lambda (_g247115247118_ _g247116247120_) (let () (declare (not safe)) (table-set! - _method-calls243623_ - _g244520244523_ - _g244521244525_))) - _methods244515_ - _$methods244519_)) - (_methods-bind244536_ - (map (lambda (_g244528244531_ _g244529244533_) + _method-calls246218_ + _g247115247118_ + _g247116247120_))) + _methods247110_ + _$methods247114_)) + (_methods-bind247131_ + (map (lambda (_g247123247126_ _g247124247128_) (let () (declare (not safe)) - (_generate-method-bind243531_ - _$t244513_ - _g244528244531_ - _g244529244533_))) - _methods244515_ - _$methods244519_)) - (_slots244538_ - (let () (declare (not safe)) (hash-keys _slot-refs243624_))) - (_$slots244542_ - (map (lambda (_id244540_) - (let ((__tmp252831 (gensym _id244540_))) + (_generate-method-bind246126_ + _$t247108_ + _g247123247126_ + _g247124247128_))) + _methods247110_ + _$methods247114_)) + (_slots247133_ + (let () (declare (not safe)) (hash-keys _slot-refs246219_))) + (_$slots247137_ + (map (lambda (_id247135_) + (let ((__tmp255526 (gensym _id247135_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp252831))) - _slots244538_)) - (_g252832_ + (make-symbol__1 '"__" __tmp255526))) + _slots247133_)) + (_g255527_ (for-each - (lambda (_g244543244546_ _g244544244548_) + (lambda (_g247138247141_ _g247139247143_) (let () (declare (not safe)) (table-set! - _slot-refs243624_ - _g244543244546_ - _g244544244548_))) - _slots244538_ - _$slots244542_)) - (_slots-bind244559_ - (map (lambda (_g244551244554_ _g244552244556_) + _slot-refs246219_ + _g247138247141_ + _g247139247143_))) + _slots247133_ + _$slots247137_)) + (_slots-bind247154_ + (map (lambda (_g247146247149_ _g247147247151_) (let () (declare (not safe)) - (_generate-slot-bind243532_ - _$t244513_ - _g244551244554_ - _g244552244556_))) - _slots244538_ - _$slots244542_)) - (_class-check244561_ + (_generate-slot-bind246127_ + _$t247108_ + _g247146247149_ + _g247147247151_))) + _slots247133_ + _$slots247137_)) + (_class-check247156_ (let () (declare (not safe)) - (hash-keys _class-type-check243625_))) - (_$class-check244564_ - (map (lambda (_g252833_) - (let ((__tmp252834 (gensym '__class))) + (hash-keys _class-type-check246220_))) + (_$class-check247159_ + (map (lambda (_g255528_) + (let ((__tmp255529 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp252834))) - _class-check244561_)) - (_g252835_ + (make-symbol__0 __tmp255529))) + _class-check247156_)) + (_g255530_ (for-each - (lambda (_g244565244568_ _g244566244570_) + (lambda (_g247160247163_ _g247161247165_) (let () (declare (not safe)) (table-set! - _class-type-check243625_ - _g244565244568_ - _g244566244570_))) - _class-check244561_ - _$class-check244564_)) - (_class-check-bind244581_ - (map (lambda (_g244573244576_ _g244574244578_) + _class-type-check246220_ + _g247160247163_ + _g247161247165_))) + _class-check247156_ + _$class-check247159_)) + (_class-check-bind247176_ + (map (lambda (_g247168247171_ _g247169247173_) (let () (declare (not safe)) - (_generate-class-check-bind243533_ - _$t244513_ - _g244573244576_ - _g244574244578_))) - _class-check244561_ - _$class-check244564_)) - (_struct-check-all244583_ + (_generate-class-check-bind246128_ + _$t247108_ + _g247168247171_ + _g247169247173_))) + _class-check247156_ + _$class-check247159_)) + (_struct-check-all247178_ (let () (declare (not safe)) (hash-merge - _struct-type-check243626_ - _struct-type-assert243627_))) - (_struct-check244585_ + _struct-type-check246221_ + _struct-type-assert246222_))) + (_struct-check247180_ (let () (declare (not safe)) - (hash-keys _struct-check-all244583_))) - (_$struct-check244588_ - (map (lambda (_g252836_) - (let ((__tmp252837 (gensym '__class))) + (hash-keys _struct-check-all247178_))) + (_$struct-check247183_ + (map (lambda (_g255531_) + (let ((__tmp255532 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp252837))) - _struct-check244585_)) - (_g252838_ + (make-symbol__0 __tmp255532))) + _struct-check247180_)) + (_g255533_ (for-each - (lambda (_g244589244592_ _g244590244594_) + (lambda (_g247184247187_ _g247185247189_) (let () (declare (not safe)) (table-set! - _struct-check-all244583_ - _g244589244592_ - _g244590244594_))) - _struct-check244585_ - _$struct-check244588_)) - (_struct-check-bind244605_ - (map (lambda (_g244597244600_ _g244598244602_) + _struct-check-all247178_ + _g247184247187_ + _g247185247189_))) + _struct-check247180_ + _$struct-check247183_)) + (_struct-check-bind247200_ + (map (lambda (_g247192247195_ _g247193247197_) (let () (declare (not safe)) - (_generate-struct-check-bind243534_ - _$t244513_ - _g244597244600_ - _g244598244602_))) - _struct-check244585_ - _$struct-check244588_)) - (_make-specializer-impl244712_ - (lambda (_struct-type-check1244607_ - _struct-type-check2244608_) - (let* ((_specializer-clauses244710_ - (map (lambda (_clause244610_) - (let* ((___stx251433251434_ _clause244610_) - (_g244613244628_ + (_generate-struct-check-bind246129_ + _$t247108_ + _g247192247195_ + _g247193247197_))) + _struct-check247180_ + _$struct-check247183_)) + (_make-specializer-impl247307_ + (lambda (_struct-type-check1247202_ + _struct-type-check2247203_) + (let* ((_specializer-clauses247305_ + (map (lambda (_clause247205_) + (let* ((___stx254128254129_ _clause247205_) + (_g247208247223_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx251433251434_))))) - (let ((___kont251435251436_ - (lambda (_L244656_ - _L244657_ - _L244658_) - (let* ((_body244698_ - (map (lambda (_g244693244695_) + ___stx254128254129_))))) + (let ((___kont254130254131_ + (lambda (_L247251_ + _L247252_ + _L247253_) + (let* ((_body247293_ + (map (lambda (_g247288247290_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#apply-subst-object-refs - _g244693244695_ - _L244658_ - _$t244513_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check1244607_ - _struct-type-check2244608_))) - _L244656_)) + _g247288247290_ + _L247253_ + _$t247108_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check1247202_ + _struct-type-check2247203_))) + _L247251_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp252839 + (__tmp255534 (let () (declare (not safe)) - (cons _L244658_ - _L244657_)))) + (cons _L247253_ + _L247252_)))) (declare (not safe)) - (cons __tmp252839 - _body244698_)))) - (___kont251437251438_ - (lambda () _clause244610_))) + (cons __tmp255534 + _body247293_)))) + (___kont254132254133_ + (lambda () _clause247205_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx251433251434_)) - (let ((_e244620244640_ + ___stx254128254129_)) + (let ((_e247215247235_ (let () (declare (not safe)) (gx#stx-e - ___stx251433251434_)))) - (let ((_tl244618244645_ + ___stx254128254129_)))) + (let ((_tl247213247240_ (let () (declare (not safe)) - (##cdr _e244620244640_))) - (_hd244619244643_ + (##cdr _e247215247235_))) + (_hd247214247238_ (let () (declare (not safe)) - (##car _e244620244640_)))) + (##car _e247215247235_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd244619244643_)) - (let ((_e244623244648_ + _hd247214247238_)) + (let ((_e247218247243_ (let () (declare (not safe)) (gx#stx-e - _hd244619244643_)))) - (let ((_tl244621244653_ + _hd247214247238_)))) + (let ((_tl247216247248_ (let () (declare (not safe)) - (##cdr _e244623244648_))) - (_hd244622244651_ + (##cdr _e247218247243_))) + (_hd247217247246_ (let () (declare (not safe)) - (##car _e244623244648_)))) - (___kont251435251436_ - _tl244618244645_ - _tl244621244653_ - _hd244622244651_))) - (___kont251437251438_)))) - (___kont251437251438_))))) - (let ((__tmp252840 - (lambda (_g244702244705_ - _g244703244707_) + (##car _e247218247243_)))) + (___kont254130254131_ + _tl247213247240_ + _tl247216247248_ + _hd247217247246_))) + (___kont254132254133_)))) + (___kont254132254133_))))) + (let ((__tmp255535 + (lambda (_g247297247300_ + _g247298247302_) (let () (declare (not safe)) - (cons _g244702244705_ - _g244703244707_))))) + (cons _g247297247300_ + _g247298247302_))))) (declare (not safe)) - (foldr1 __tmp252840 '() _L244407_)))) - (__tmp252841 + (foldr1 __tmp255535 '() _L247002_)))) + (__tmp255536 (let () (declare (not safe)) (cons '%#case-lambda - _specializer-clauses244710_)))) + _specializer-clauses247305_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252841 _stx243529_)))) - (_specializer-impl244714_ + (gxc#xform-wrap-source __tmp255536 _stx246124_)))) + (_specializer-impl247309_ (let () (declare (not safe)) - (_make-specializer-impl244712_ - _struct-check-all244583_ - _empty243628_))) - (_unchecked-specializer-impl244716_ + (_make-specializer-impl247307_ + _struct-check-all247178_ + _empty246223_))) + (_unchecked-specializer-impl247311_ (if (let () (declare (not safe)) - (_unchecked-specializer?243631_)) + (_unchecked-specializer?246226_)) (let () (declare (not safe)) - (_make-specializer-impl244712_ - _empty243628_ - _struct-check-all244583_)) + (_make-specializer-impl247307_ + _empty246223_ + _struct-check-all247178_)) '#f)) - (_specializer-impl244718_ + (_specializer-impl247313_ (let () (declare (not safe)) - (_generate-specializer-impl243535_ - _$t244513_ - _methods-bind244536_ - _slots-bind244559_ - _class-check-bind244581_ - _struct-check-bind244605_ - _specializer-impl244714_ - _lifted-specializer-id244511_ - _unchecked-specializer-impl244716_)))) + (_generate-specializer-impl246130_ + _$t247108_ + _methods-bind247131_ + _slots-bind247154_ + _class-check-bind247176_ + _struct-check-bind247200_ + _specializer-impl247309_ + _lifted-specializer-id247106_ + _unchecked-specializer-impl247311_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp252843 + (let ((__tmp255538 (let () (declare (not safe)) (gx#stx-e - _L243604_))) - (__tmp252842 + _L246199_))) + (__tmp255537 (let () (declare (not safe)) (gx#stx-e - _specializer-id244504_)))) + _specializer-id247099_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp252843 + __tmp255538 '" => " - __tmp252842)) + __tmp255537)) (let () (declare (not safe)) - (_generate-specializer-def243536_ - _L243604_ - _specializer-id244504_ - _specializer-impl244718_ - _lifted-specializer-id244511_ - _unchecked-specializer-impl244716_))))) - _clause244365244404_)))))) + (_generate-specializer-def246131_ + _L246199_ + _specializer-id247099_ + _specializer-impl247313_ + _lifted-specializer-id247106_ + _unchecked-specializer-impl247311_))))) + _clause246960246999_)))))) (let () (declare (not safe)) - (_loop244360244388_ _target244357244383_ '()))) + (_loop246955246983_ _target246952246978_ '()))) (let () (declare (not safe)) - (_g244351244370_ _g244352244373_)))))) + (_g246946246965_ _g246947246968_)))))) (let () (declare (not safe)) - (_g244351244370_ _g244352244373_))))) + (_g246946246965_ _g246947246968_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g244351244370_ - _g244352244373_)))))) + (_g246946246965_ + _g246947246968_)))))) (declare (not safe)) - (_g244350244721_ _L243603_)) + (_g246945247316_ _L246198_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L243603_)) - (let* ((_g244724244754_ - (lambda (_g244725244751_) + (gxc#opt-lambda-expr? _L246198_)) + (let* ((_g247319247349_ + (lambda (_g247320247346_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g244725244751_)))) - (_g244723245442_ - (lambda (_g244725244757_) + _g247320247346_)))) + (_g247318248037_ + (lambda (_g247320247352_) (if (let () (declare (not safe)) (gx#stx-pair? - _g244725244757_)) - (let ((_e244731244759_ + _g247320247352_)) + (let ((_e247326247354_ (let () (declare (not safe)) (gx#stx-e - _g244725244757_)))) - (let ((_hd244730244762_ + _g247320247352_)))) + (let ((_hd247325247357_ (let () (declare (not safe)) - (##car _e244731244759_))) - (_tl244729244764_ + (##car _e247326247354_))) + (_tl247324247359_ (let () (declare (not safe)) - (##cdr _e244731244759_)))) + (##cdr _e247326247354_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl244729244764_)) - (let ((_e244734244767_ + _tl247324247359_)) + (let ((_e247329247362_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl244729244764_)))) - (let ((_hd244733244770_ + (gx#stx-e _tl247324247359_)))) + (let ((_hd247328247365_ (let () (declare (not safe)) - (##car _e244734244767_))) - (_tl244732244772_ + (##car _e247329247362_))) + (_tl247327247367_ (let () (declare (not safe)) - (##cdr _e244734244767_)))) + (##cdr _e247329247362_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd244733244770_)) - (let ((_e244737244775_ + (gx#stx-pair? _hd247328247365_)) + (let ((_e247332247370_ (let () (declare (not safe)) - (gx#stx-e _hd244733244770_)))) - (let ((_hd244736244778_ + (gx#stx-e _hd247328247365_)))) + (let ((_hd247331247373_ (let () (declare (not safe)) - (##car _e244737244775_))) - (_tl244735244780_ + (##car _e247332247370_))) + (_tl247330247375_ (let () (declare (not safe)) - (##cdr _e244737244775_)))) + (##cdr _e247332247370_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd244736244778_)) - (let ((_e244740244783_ + (gx#stx-pair? _hd247331247373_)) + (let ((_e247335247378_ (let () (declare (not safe)) - (gx#stx-e _hd244736244778_)))) - (let ((_hd244739244786_ + (gx#stx-e _hd247331247373_)))) + (let ((_hd247334247381_ (let () (declare (not safe)) - (##car _e244740244783_))) - (_tl244738244788_ + (##car _e247335247378_))) + (_tl247333247383_ (let () (declare (not safe)) - (##cdr _e244740244783_)))) + (##cdr _e247335247378_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd244739244786_)) - (let ((_e244743244791_ + (gx#stx-pair? _hd247334247381_)) + (let ((_e247338247386_ (let () (declare (not safe)) (gx#stx-e - _hd244739244786_)))) - (let ((_hd244742244794_ + _hd247334247381_)))) + (let ((_hd247337247389_ (let () (declare (not safe)) - (##car _e244743244791_))) - (_tl244741244796_ + (##car _e247338247386_))) + (_tl247336247391_ (let () (declare (not safe)) - (##cdr _e244743244791_)))) + (##cdr _e247338247386_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl244741244796_)) + _tl247336247391_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl244738244788_)) - (let ((_e244746244799_ + _tl247333247383_)) + (let ((_e247341247394_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl244738244788_)))) - (let ((_hd244745244802_ - (let () (declare (not safe)) (##car _e244746244799_))) - (_tl244744244804_ - (let () (declare (not safe)) (##cdr _e244746244799_)))) + (gx#stx-e _tl247333247383_)))) + (let ((_hd247340247397_ + (let () (declare (not safe)) (##car _e247341247394_))) + (_tl247339247399_ + (let () (declare (not safe)) (##cdr _e247341247394_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl244744244804_)) + (gx#stx-null? _tl247339247399_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl244735244780_)) + (gx#stx-null? _tl247330247375_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244732244772_)) - (let ((_e244749244807_ + (gx#stx-pair? _tl247327247367_)) + (let ((_e247344247402_ (let () (declare (not safe)) - (gx#stx-e _tl244732244772_)))) - (let ((_hd244748244810_ + (gx#stx-e _tl247327247367_)))) + (let ((_hd247343247405_ (let () (declare (not safe)) - (##car _e244749244807_))) - (_tl244747244812_ + (##car _e247344247402_))) + (_tl247342247407_ (let () (declare (not safe)) - (##cdr _e244749244807_)))) + (##cdr _e247344247402_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl244747244812_)) - ((lambda (_L244815_ _L244816_ _L244817_) - (let* ((_g244840244858_ - (lambda (_g244841244855_) + (gx#stx-null? _tl247342247407_)) + ((lambda (_L247410_ _L247411_ _L247412_) + (let* ((_g247435247453_ + (lambda (_g247436247450_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g244841244855_)))) - (_g244839244909_ - (lambda (_g244841244861_) + _g247436247450_)))) + (_g247434247504_ + (lambda (_g247436247456_) (if (let () (declare (not safe)) (gx#stx-pair? - _g244841244861_)) - (let ((_e244847244863_ + _g247436247456_)) + (let ((_e247442247458_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g244841244861_)))) - (let ((_hd244846244866_ - (let () (declare (not safe)) (##car _e244847244863_))) - (_tl244845244868_ + (gx#stx-e _g247436247456_)))) + (let ((_hd247441247461_ + (let () (declare (not safe)) (##car _e247442247458_))) + (_tl247440247463_ (let () (declare (not safe)) - (##cdr _e244847244863_)))) + (##cdr _e247442247458_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244845244868_)) - (let ((_e244850244871_ + (gx#stx-pair? _tl247440247463_)) + (let ((_e247445247466_ (let () (declare (not safe)) - (gx#stx-e _tl244845244868_)))) - (let ((_hd244849244874_ + (gx#stx-e _tl247440247463_)))) + (let ((_hd247444247469_ (let () (declare (not safe)) - (##car _e244850244871_))) - (_tl244848244876_ + (##car _e247445247466_))) + (_tl247443247471_ (let () (declare (not safe)) - (##cdr _e244850244871_)))) + (##cdr _e247445247466_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd244849244874_)) - (let ((_e244853244879_ + (gx#stx-pair? _hd247444247469_)) + (let ((_e247448247474_ (let () (declare (not safe)) - (gx#stx-e _hd244849244874_)))) - (let ((_hd244852244882_ + (gx#stx-e _hd247444247469_)))) + (let ((_hd247447247477_ (let () (declare (not safe)) - (##car _e244853244879_))) - (_tl244851244884_ + (##car _e247448247474_))) + (_tl247446247479_ (let () (declare (not safe)) - (##cdr _e244853244879_)))) - ((lambda (_L244887_ _L244888_ _L244889_) + (##cdr _e247448247474_)))) + ((lambda (_L247482_ _L247483_ _L247484_) (for-each - (lambda (_g244904244906_) + (lambda (_g247499247501_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g244904244906_ - _L244889_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check243626_ - _struct-type-assert243627_))) - _L244887_)) - _tl244848244876_ - _tl244851244884_ - _hd244852244882_))) + _g247499247501_ + _L247484_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check246221_ + _struct-type-assert246222_))) + _L247482_)) + _tl247443247471_ + _tl247446247479_ + _hd247447247477_))) (let () (declare (not safe)) - (_g244840244858_ _g244841244861_))))) + (_g247435247453_ _g247436247456_))))) (let () (declare (not safe)) - (_g244840244858_ _g244841244861_))))) + (_g247435247453_ _g247436247456_))))) (let () (declare (not safe)) - (_g244840244858_ _g244841244861_)))))) + (_g247435247453_ _g247436247456_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g244839244909_ _L244816_)) - (let* ((_g244912244931_ - (lambda (_g244913244928_) + (_g247434247504_ _L247411_)) + (let* ((_g247507247526_ + (lambda (_g247508247523_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g244913244928_)))) - (_g244911245050_ - (lambda (_g244913244934_) + _g247508247523_)))) + (_g247506247645_ + (lambda (_g247508247529_) (if (let () (declare (not safe)) (gx#stx-pair? - _g244913244934_)) - (let ((_e244917244936_ + _g247508247529_)) + (let ((_e247512247531_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g244913244934_)))) - (let ((_hd244916244939_ - (let () (declare (not safe)) (##car _e244917244936_))) - (_tl244915244941_ + (gx#stx-e _g247508247529_)))) + (let ((_hd247511247534_ + (let () (declare (not safe)) (##car _e247512247531_))) + (_tl247510247536_ (let () (declare (not safe)) - (##cdr _e244917244936_)))) + (##cdr _e247512247531_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl244915244941_)) - (let ((_g252784_ + (gx#stx-pair/null? _tl247510247536_)) + (let ((_g255479_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl244915244941_ + _tl247510247536_ '0)))) (begin - (let ((_g252785_ + (let ((_g255480_ (let () (declare (not safe)) - (if (##values? _g252784_) - (##vector-length _g252784_) + (if (##values? _g255479_) + (##vector-length _g255479_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g252785_ 2))) + (##fx= _g255480_ 2))) (error "Context expects 2 values" - _g252785_))) - (let ((_target244918244944_ + _g255480_))) + (let ((_target247513247539_ (let () (declare (not safe)) - (##vector-ref _g252784_ 0))) - (_tl244920244946_ + (##vector-ref _g255479_ 0))) + (_tl247515247541_ (let () (declare (not safe)) - (##vector-ref _g252784_ 1)))) + (##vector-ref _g255479_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl244920244946_)) - (letrec ((_loop244921244949_ - (lambda (_hd244919244952_ - _clause244925244954_) + (gx#stx-null? _tl247515247541_)) + (letrec ((_loop247516247544_ + (lambda (_hd247514247547_ + _clause247520247549_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd244919244952_)) - (let ((_e244922244957_ + _hd247514247547_)) + (let ((_e247517247552_ (let () (declare (not safe)) (gx#stx-e - _hd244919244952_)))) - (let ((_lp-hd244923244960_ + _hd247514247547_)))) + (let ((_lp-hd247518247555_ (let () (declare (not safe)) - (##car _e244922244957_))) - (_lp-tl244924244962_ + (##car _e247517247552_))) + (_lp-tl247519247557_ (let () (declare (not safe)) - (##cdr _e244922244957_)))) - (let ((__tmp252787 + (##cdr _e247517247552_)))) + (let ((__tmp255482 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd244923244960_ _clause244925244954_)))) + (cons _lp-hd247518247555_ _clause247520247549_)))) (declare (not safe)) - (_loop244921244949_ _lp-tl244924244962_ __tmp252787)))) + (_loop247516247544_ _lp-tl247519247557_ __tmp255482)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_clause244926244965_ - (reverse _clause244925244954_))) - ((lambda (_L244968_) + (let ((_clause247521247560_ + (reverse _clause247520247549_))) + ((lambda (_L247563_) (for-each - (lambda (_clause244981_) - (let* ((_g244983244998_ + (lambda (_clause247576_) + (let* ((_g247578247593_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g244984244995_) + (lambda (_g247579247590_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g244984244995_)))) - (_g244982245040_ - (lambda (_g244984245001_) + _g247579247590_)))) + (_g247577247635_ + (lambda (_g247579247596_) (if (let () (declare (not safe)) - (gx#stx-pair? _g244984245001_)) - (let ((_e244990245003_ + (gx#stx-pair? _g247579247596_)) + (let ((_e247585247598_ (let () (declare (not safe)) - (gx#stx-e _g244984245001_)))) - (let ((_hd244989245006_ + (gx#stx-e _g247579247596_)))) + (let ((_hd247584247601_ (let () (declare (not safe)) - (##car _e244990245003_))) - (_tl244988245008_ + (##car _e247585247598_))) + (_tl247583247603_ (let () (declare (not safe)) - (##cdr _e244990245003_)))) + (##cdr _e247585247598_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd244989245006_)) - (let ((_e244993245011_ + (gx#stx-pair? _hd247584247601_)) + (let ((_e247588247606_ (let () (declare (not safe)) - (gx#stx-e _hd244989245006_)))) - (let ((_hd244992245014_ + (gx#stx-e _hd247584247601_)))) + (let ((_hd247587247609_ (let () (declare (not safe)) - (##car _e244993245011_))) - (_tl244991245016_ + (##car _e247588247606_))) + (_tl247586247611_ (let () (declare (not safe)) - (##cdr _e244993245011_)))) - ((lambda (_L245019_ - _L245020_ - _L245021_) + (##cdr _e247588247606_)))) + ((lambda (_L247614_ + _L247615_ + _L247616_) (for-each - (lambda (_g245035245037_) + (lambda (_g247630247632_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g245035245037_ - _L245021_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check243626_ - _struct-type-assert243627_))) - _L245019_)) - _tl244988245008_ - _tl244991245016_ - _hd244992245014_))) + _g247630247632_ + _L247616_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check246221_ + _struct-type-assert246222_))) + _L247614_)) + _tl247583247603_ + _tl247586247611_ + _hd247587247609_))) (let () (declare (not safe)) - (_g244983244998_ _g244984245001_))))) + (_g247578247593_ _g247579247596_))))) (let () (declare (not safe)) - (_g244983244998_ _g244984245001_)))))) + (_g247578247593_ _g247579247596_)))))) (declare (not safe)) - (_g244982245040_ _clause244981_))) - (let ((__tmp252786 - (lambda (_g245042245045_ _g245043245047_) + (_g247577247635_ _clause247576_))) + (let ((__tmp255481 + (lambda (_g247637247640_ _g247638247642_) (let () (declare (not safe)) - (cons _g245042245045_ _g245043245047_))))) + (cons _g247637247640_ _g247638247642_))))) (declare (not safe)) - (foldr1 __tmp252786 '() _L244968_)))) + (foldr1 __tmp255481 '() _L247563_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _clause244926244965_)))))) + _clause247521247560_)))))) (let () (declare (not safe)) - (_loop244921244949_ - _target244918244944_ + (_loop247516247544_ + _target247513247539_ '()))) (let () (declare (not safe)) - (_g244912244931_ _g244913244934_)))))) + (_g247507247526_ _g247508247529_)))))) (let () (declare (not safe)) - (_g244912244931_ _g244913244934_))))) + (_g247507247526_ _g247508247529_))))) (let () (declare (not safe)) - (_g244912244931_ _g244913244934_)))))) + (_g247507247526_ _g247508247529_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g244911245050_ _L244815_)) + (_g247506247645_ _L247410_)) (if (let () (declare (not safe)) - (_no-specializer?243630_)) - _stx243529_ - (let* ((_specializer-id245059_ - (let* ((_id245053_ - (let ((__tmp252788 + (_no-specializer?246225_)) + _stx246124_ + (let* ((_specializer-id247654_ + (let* ((_id247648_ + (let ((__tmp255483 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _L243604_)))) + (gx#stx-e _L246199_)))) (declare (not safe)) - (make-symbol__1 __tmp252788 '"::specialize"))) - (_specializer-id245056_ - (let ((__tmp252789 + (make-symbol__1 __tmp255483 '"::specialize"))) + (_specializer-id247651_ + (let ((__tmp255484 (let () (declare (not safe)) - (gx#stx-source _stx243529_)))) + (gx#stx-source _stx246124_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id245053_ __tmp252789)))) + (gx#core-quote-syntax__1 _id247648_ __tmp255484)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id245056_)) - _specializer-id245056_)) + (gx#core-bind-runtime!__0 _specializer-id247651_)) + _specializer-id247651_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lifted-specializer-id245066_ + (_lifted-specializer-id247661_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?243632_)) - (let* ((_id245061_ + (_lift-unchecked-specializer?246227_)) + (let* ((_id247656_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp252790 + (let ((__tmp255485 (let () (declare (not safe)) - (gx#stx-e _L243604_)))) + (gx#stx-e _L246199_)))) (declare (not safe)) (make-symbol__1 - __tmp252790 + __tmp255485 '"::specialize::unchecked"))) - (_lifted-specializer-id245063_ - (let ((__tmp252791 + (_lifted-specializer-id247658_ + (let ((__tmp255486 (let () (declare (not safe)) - (gx#stx-source _stx243529_)))) + (gx#stx-source _stx246124_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id245061_ __tmp252791)))) + (gx#core-quote-syntax__1 _id247656_ __tmp255486)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lifted-specializer-id245063_)) - _lifted-specializer-id245063_) + (gx#core-bind-runtime!__0 _lifted-specializer-id247658_)) + _lifted-specializer-id247658_) '#f)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$t245068_ - (let ((__tmp252792 + (_$t247663_ + (let ((__tmp255487 (gensym '__t))) (declare (not safe)) (make-symbol__0 - __tmp252792))) - (_methods245070_ + __tmp255487))) + (_methods247665_ (let () (declare (not safe)) (hash-keys - _method-calls243623_))) - (_$methods245074_ - (map (lambda (_id245072_) - (let ((__tmp252793 + _method-calls246218_))) + (_$methods247669_ + (map (lambda (_id247667_) + (let ((__tmp255488 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id245072_))) + (gensym _id247667_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp252793))) - _methods245070_)) + (make-symbol__1 '"__" __tmp255488))) + _methods247665_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g252794_ + (_g255489_ (for-each - (lambda (_g245075245078_ - _g245076245080_) + (lambda (_g247670247673_ + _g247671247675_) (let () (declare (not safe)) (table-set! - _method-calls243623_ - _g245075245078_ - _g245076245080_))) - _methods245070_ - _$methods245074_)) - (_methods-bind245091_ - (map (lambda (_g245083245086_ + _method-calls246218_ + _g247670247673_ + _g247671247675_))) + _methods247665_ + _$methods247669_)) + (_methods-bind247686_ + (map (lambda (_g247678247681_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g245084245088_) + _g247679247683_) (let () (declare (not safe)) - (_generate-method-bind243531_ - _$t245068_ - _g245083245086_ - _g245084245088_))) - _methods245070_ - _$methods245074_)) + (_generate-method-bind246126_ + _$t247663_ + _g247678247681_ + _g247679247683_))) + _methods247665_ + _$methods247669_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots245093_ + (_slots247688_ (let () (declare (not safe)) (hash-keys - _slot-refs243624_))) - (_$slots245097_ - (map (lambda (_id245095_) - (let ((__tmp252795 + _slot-refs246219_))) + (_$slots247692_ + (map (lambda (_id247690_) + (let ((__tmp255490 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id245095_))) + (gensym _id247690_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp252795))) - _slots245093_)) + (make-symbol__1 '"__" __tmp255490))) + _slots247688_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g252796_ + (_g255491_ (for-each - (lambda (_g245098245101_ - _g245099245103_) + (lambda (_g247693247696_ + _g247694247698_) (let () (declare (not safe)) (table-set! - _slot-refs243624_ - _g245098245101_ - _g245099245103_))) - _slots245093_ - _$slots245097_)) - (_slots-bind245114_ - (map (lambda (_g245106245109_ + _slot-refs246219_ + _g247693247696_ + _g247694247698_))) + _slots247688_ + _$slots247692_)) + (_slots-bind247709_ + (map (lambda (_g247701247704_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g245107245111_) + _g247702247706_) (let () (declare (not safe)) - (_generate-slot-bind243532_ - _$t245068_ - _g245106245109_ - _g245107245111_))) - _slots245093_ - _$slots245097_)) + (_generate-slot-bind246127_ + _$t247663_ + _g247701247704_ + _g247702247706_))) + _slots247688_ + _$slots247692_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_class-check245116_ + (_class-check247711_ (let () (declare (not safe)) (hash-keys - _class-type-check243625_))) - (_$class-check245119_ - (map (lambda (_g252797_) - (let ((__tmp252798 + _class-type-check246220_))) + (_$class-check247714_ + (map (lambda (_g255492_) + (let ((__tmp255493 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp252798))) - _class-check245116_)) + (make-symbol__0 __tmp255493))) + _class-check247711_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g252799_ + (_g255494_ (for-each - (lambda (_g245120245123_ - _g245121245125_) + (lambda (_g247715247718_ + _g247716247720_) (let () (declare (not safe)) (table-set! - _class-type-check243625_ - _g245120245123_ - _g245121245125_))) - _class-check245116_ - _$class-check245119_)) - (_class-check-bind245136_ - (map (lambda (_g245128245131_ + _class-type-check246220_ + _g247715247718_ + _g247716247720_))) + _class-check247711_ + _$class-check247714_)) + (_class-check-bind247731_ + (map (lambda (_g247723247726_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g245129245133_) + _g247724247728_) (let () (declare (not safe)) - (_generate-class-check-bind243533_ - _$t245068_ - _g245128245131_ - _g245129245133_))) - _class-check245116_ - _$class-check245119_)) + (_generate-class-check-bind246128_ + _$t247663_ + _g247723247726_ + _g247724247728_))) + _class-check247711_ + _$class-check247714_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_struct-check-all245138_ + (_struct-check-all247733_ (let () (declare (not safe)) (hash-merge - _struct-type-check243626_ - _struct-type-assert243627_))) - (_struct-check245140_ + _struct-type-check246221_ + _struct-type-assert246222_))) + (_struct-check247735_ (let () (declare (not safe)) (hash-keys - _struct-check-all245138_))) - (_$struct-check245143_ - (map (lambda (_g252800_) - (let ((__tmp252801 + _struct-check-all247733_))) + (_$struct-check247738_ + (map (lambda (_g255495_) + (let ((__tmp255496 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp252801))) - _struct-check245140_)) + (make-symbol__0 __tmp255496))) + _struct-check247735_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g252802_ + (_g255497_ (for-each - (lambda (_g245144245147_ - _g245145245149_) + (lambda (_g247739247742_ + _g247740247744_) (let () (declare (not safe)) (table-set! - _struct-check-all245138_ - _g245144245147_ - _g245145245149_))) - _struct-check245140_ - _$struct-check245143_)) - (_struct-check-bind245160_ - (map (lambda (_g245152245155_ + _struct-check-all247733_ + _g247739247742_ + _g247740247744_))) + _struct-check247735_ + _$struct-check247738_)) + (_struct-check-bind247755_ + (map (lambda (_g247747247750_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g245153245157_) + _g247748247752_) (let () (declare (not safe)) - (_generate-struct-check-bind243534_ - _$t245068_ - _g245152245155_ - _g245153245157_))) - _struct-check245140_ - _$struct-check245143_)) + (_generate-struct-check-bind246129_ + _$t247663_ + _g247747247750_ + _g247748247752_))) + _struct-check247735_ + _$struct-check247738_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-lambda-expr245259_ - (lambda (_struct-type-check1245162_ - _struct-type-check2245163_) - (let* ((_g245165245183_ - (lambda (_g245166245180_) + (_make-specializer-lambda-expr247854_ + (lambda (_struct-type-check1247757_ + _struct-type-check2247758_) + (let* ((_g247760247778_ + (lambda (_g247761247775_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g245166245180_)))) - (_g245164245256_ - (lambda (_g245166245186_) + _g247761247775_)))) + (_g247759247851_ + (lambda (_g247761247781_) (if (let () (declare (not safe)) - (gx#stx-pair? _g245166245186_)) - (let ((_e245172245188_ + (gx#stx-pair? _g247761247781_)) + (let ((_e247767247783_ (let () (declare (not safe)) - (gx#stx-e _g245166245186_)))) - (let ((_hd245171245191_ + (gx#stx-e _g247761247781_)))) + (let ((_hd247766247786_ (let () (declare (not safe)) - (##car _e245172245188_))) - (_tl245170245193_ + (##car _e247767247783_))) + (_tl247765247788_ (let () (declare (not safe)) - (##cdr _e245172245188_)))) + (##cdr _e247767247783_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245170245193_)) - (let ((_e245175245196_ + (gx#stx-pair? _tl247765247788_)) + (let ((_e247770247791_ (let () (declare (not safe)) - (gx#stx-e _tl245170245193_)))) - (let ((_hd245174245199_ + (gx#stx-e _tl247765247788_)))) + (let ((_hd247769247794_ (let () (declare (not safe)) - (##car _e245175245196_))) - (_tl245173245201_ + (##car _e247770247791_))) + (_tl247768247796_ (let () (declare (not safe)) - (##cdr _e245175245196_)))) + (##cdr _e247770247791_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd245174245199_)) - (let ((_e245178245204_ + _hd247769247794_)) + (let ((_e247773247799_ (let () (declare (not safe)) (gx#stx-e - _hd245174245199_)))) - (let ((_hd245177245207_ + _hd247769247794_)))) + (let ((_hd247772247802_ (let () (declare (not safe)) - (##car _e245178245204_))) - (_tl245176245209_ + (##car _e247773247799_))) + (_tl247771247804_ (let () (declare (not safe)) - (##cdr _e245178245204_)))) - ((lambda (_L245212_ - _L245213_ - _L245214_) - (let* ((_body245254_ - (map (lambda (_g245249245251_) + (##cdr _e247773247799_)))) + ((lambda (_L247807_ + _L247808_ + _L247809_) + (let* ((_body247849_ + (map (lambda (_g247844247846_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g245249245251_ - _L245214_ - _$t245068_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check1245162_ - _struct-type-check2245163_))) - _L245212_)) - (__tmp252803 - (let ((__tmp252804 - (let ((__tmp252805 + _g247844247846_ + _L247809_ + _$t247663_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check1247757_ + _struct-type-check2247758_))) + _L247807_)) + (__tmp255498 + (let ((__tmp255499 + (let ((__tmp255500 (let () (declare (not safe)) - (cons _L245214_ _L245213_)))) + (cons _L247809_ _L247808_)))) (declare (not safe)) - (cons __tmp252805 _body245254_)))) + (cons __tmp255500 _body247849_)))) (declare (not safe)) - (cons '%#lambda __tmp252804)))) + (cons '%#lambda __tmp255499)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252803 _L244816_))) + (gxc#xform-wrap-source __tmp255498 _L247411_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl245173245201_ - _tl245176245209_ - _hd245177245207_))) + _tl247768247796_ + _tl247771247804_ + _hd247772247802_))) (let () (declare (not safe)) - (_g245165245183_ - _g245166245186_))))) + (_g247760247778_ + _g247761247781_))))) (let () (declare (not safe)) - (_g245165245183_ _g245166245186_))))) + (_g247760247778_ _g247761247781_))))) (let () (declare (not safe)) - (_g245165245183_ _g245166245186_)))))) + (_g247760247778_ _g247761247781_)))))) (declare (not safe)) - (_g245164245256_ _L244816_)))) + (_g247759247851_ _L247411_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-case-lambda-expr245420_ - (lambda (_struct-type-check1245261_ - _struct-type-check2245262_) - (let* ((_g245264245283_ - (lambda (_g245265245280_) + (_make-specializer-case-lambda-expr248015_ + (lambda (_struct-type-check1247856_ + _struct-type-check2247857_) + (let* ((_g247859247878_ + (lambda (_g247860247875_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g245265245280_)))) - (_g245263245417_ - (lambda (_g245265245286_) + _g247860247875_)))) + (_g247858248012_ + (lambda (_g247860247881_) (if (let () (declare (not safe)) - (gx#stx-pair? _g245265245286_)) - (let ((_e245269245288_ + (gx#stx-pair? _g247860247881_)) + (let ((_e247864247883_ (let () (declare (not safe)) - (gx#stx-e _g245265245286_)))) - (let ((_hd245268245291_ + (gx#stx-e _g247860247881_)))) + (let ((_hd247863247886_ (let () (declare (not safe)) - (##car _e245269245288_))) - (_tl245267245293_ + (##car _e247864247883_))) + (_tl247862247888_ (let () (declare (not safe)) - (##cdr _e245269245288_)))) + (##cdr _e247864247883_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl245267245293_)) - (let ((_g252806_ + (gx#stx-pair/null? _tl247862247888_)) + (let ((_g255501_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl245267245293_ + _tl247862247888_ '0)))) (begin - (let ((_g252807_ + (let ((_g255502_ (let () (declare (not safe)) - (if (##values? _g252806_) + (if (##values? _g255501_) (##vector-length - _g252806_) + _g255501_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g252807_ 2))) + (##fx= _g255502_ 2))) (error "Context expects 2 values" - _g252807_))) - (let ((_target245270245296_ + _g255502_))) + (let ((_target247865247891_ (let () (declare (not safe)) - (##vector-ref _g252806_ 0))) - (_tl245272245298_ + (##vector-ref _g255501_ 0))) + (_tl247867247893_ (let () (declare (not safe)) (##vector-ref - _g252806_ + _g255501_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245272245298_)) - (letrec ((_loop245273245301_ - (lambda (_hd245271245304_ + _tl247867247893_)) + (letrec ((_loop247868247896_ + (lambda (_hd247866247899_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause245277245306_) + _clause247872247901_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245271245304_)) - (let ((_e245274245309_ + (gx#stx-pair? _hd247866247899_)) + (let ((_e247869247904_ (let () (declare (not safe)) - (gx#stx-e _hd245271245304_)))) - (let ((_lp-hd245275245312_ + (gx#stx-e _hd247866247899_)))) + (let ((_lp-hd247870247907_ (let () (declare (not safe)) - (##car _e245274245309_))) - (_lp-tl245276245314_ + (##car _e247869247904_))) + (_lp-tl247871247909_ (let () (declare (not safe)) - (##cdr _e245274245309_)))) - (let ((__tmp252811 + (##cdr _e247869247904_)))) + (let ((__tmp255506 (let () (declare (not safe)) - (cons _lp-hd245275245312_ - _clause245277245306_)))) + (cons _lp-hd247870247907_ + _clause247872247901_)))) (declare (not safe)) - (_loop245273245301_ - _lp-tl245276245314_ - __tmp252811)))) - (let ((_clause245278245317_ - (reverse _clause245277245306_))) - ((lambda (_L245320_) - (let* ((_clauses245415_ - (map (lambda (_clause245335_) - (let* ((___stx251453251454_ - _clause245335_) - (_g245338245353_ + (_loop247868247896_ + _lp-tl247871247909_ + __tmp255506)))) + (let ((_clause247873247912_ + (reverse _clause247872247901_))) + ((lambda (_L247915_) + (let* ((_clauses248010_ + (map (lambda (_clause247930_) + (let* ((___stx254148254149_ + _clause247930_) + (_g247933247948_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx251453251454_))))) - (let ((___kont251455251456_ - (lambda (_L245381_ - _L245382_ - _L245383_) - (let* ((_body245403_ - (map (lambda (_g245398245400_) + ___stx254148254149_))))) + (let ((___kont254150254151_ + (lambda (_L247976_ + _L247977_ + _L247978_) + (let* ((_body247998_ + (map (lambda (_g247993247995_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g245398245400_ - _L245383_ - _$t245068_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check1245261_ - _struct-type-check2245262_))) - _L245381_)) - (__tmp252808 + _g247993247995_ + _L247978_ + _$t247663_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check1247856_ + _struct-type-check2247857_))) + _L247976_)) + (__tmp255503 (let () (declare (not safe)) - (cons _L245383_ _L245382_)))) + (cons _L247978_ _L247977_)))) (declare (not safe)) - (cons __tmp252808 _body245403_)))) + (cons __tmp255503 _body247998_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont251457251458_ + (___kont254152254153_ (lambda () - _clause245335_))) + _clause247930_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx251453251454_)) - (let ((_e245345245365_ + ___stx254148254149_)) + (let ((_e247940247960_ (let () (declare (not safe)) (gx#stx-e - ___stx251453251454_)))) - (let ((_tl245343245370_ + ___stx254148254149_)))) + (let ((_tl247938247965_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e245345245365_))) - (_hd245344245368_ - (let () (declare (not safe)) (##car _e245345245365_)))) + (##cdr _e247940247960_))) + (_hd247939247963_ + (let () (declare (not safe)) (##car _e247940247960_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245344245368_)) - (let ((_e245348245373_ + (gx#stx-pair? _hd247939247963_)) + (let ((_e247943247968_ (let () (declare (not safe)) - (gx#stx-e _hd245344245368_)))) - (let ((_tl245346245378_ + (gx#stx-e _hd247939247963_)))) + (let ((_tl247941247973_ (let () (declare (not safe)) - (##cdr _e245348245373_))) - (_hd245347245376_ + (##cdr _e247943247968_))) + (_hd247942247971_ (let () (declare (not safe)) - (##car _e245348245373_)))) - (___kont251455251456_ - _tl245343245370_ - _tl245346245378_ - _hd245347245376_))) - (___kont251457251458_)))) + (##car _e247943247968_)))) + (___kont254150254151_ + _tl247938247965_ + _tl247941247973_ + _hd247942247971_))) + (___kont254152254153_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont251457251458_))))) - (let ((__tmp252809 - (lambda (_g245407245410_ - _g245408245412_) + (___kont254152254153_))))) + (let ((__tmp255504 + (lambda (_g248002248005_ + _g248003248007_) (let () (declare (not safe)) - (cons _g245407245410_ - _g245408245412_))))) + (cons _g248002248005_ + _g248003248007_))))) (declare (not safe)) - (foldr1 __tmp252809 + (foldr1 __tmp255504 '() - _L245320_)))) - (__tmp252810 + _L247915_)))) + (__tmp255505 (let () (declare (not safe)) - (cons '%#case-lambda _clauses245415_)))) + (cons '%#case-lambda _clauses248010_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252810 _L244815_))) - _clause245278245317_)))))) + (gxc#xform-wrap-source __tmp255505 _L247410_))) + _clause247873247912_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop245273245301_ - _target245270245296_ + (_loop247868247896_ + _target247865247891_ '()))) (let () (declare (not safe)) - (_g245264245283_ - _g245265245286_)))))) + (_g247859247878_ + _g247860247881_)))))) (let () (declare (not safe)) - (_g245264245283_ _g245265245286_))))) + (_g247859247878_ _g247860247881_))))) (let () (declare (not safe)) - (_g245264245283_ _g245265245286_)))))) + (_g247859247878_ _g247860247881_)))))) (declare (not safe)) - (_g245263245417_ _L244815_)))) + (_g247858248012_ _L247410_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-impl245425_ - (lambda (_specializer-lambda-expr245422_ - _specializer-case-lambda-expr245423_) - (let ((__tmp252812 - (let ((__tmp252813 + (_make-specializer-impl248020_ + (lambda (_specializer-lambda-expr248017_ + _specializer-case-lambda-expr248018_) + (let ((__tmp255507 + (let ((__tmp255508 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp252815 - (let ((__tmp252816 - (let ((__tmp252818 + (let ((__tmp255510 + (let ((__tmp255511 + (let ((__tmp255513 (let () (declare (not safe)) - (cons _L244817_ '()))) - (__tmp252817 + (cons _L247412_ '()))) + (__tmp255512 (let () (declare (not safe)) - (cons _specializer-lambda-expr245422_ + (cons _specializer-lambda-expr248017_ '())))) (declare (not safe)) - (cons __tmp252818 __tmp252817)))) + (cons __tmp255513 __tmp255512)))) (declare (not safe)) - (cons __tmp252816 '()))) - (__tmp252814 + (cons __tmp255511 '()))) + (__tmp255509 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr245423_ + (cons _specializer-case-lambda-expr248018_ '())))) (declare (not safe)) - (cons __tmp252815 __tmp252814)))) + (cons __tmp255510 __tmp255509)))) (declare (not safe)) - (cons '%#let-values __tmp252813)))) + (cons '%#let-values __tmp255508)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252812 _stx243529_)))) + (gxc#xform-wrap-source __tmp255507 _stx246124_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-lambda-expr245427_ + (_specializer-lambda-expr248022_ (let () (declare (not safe)) - (_make-specializer-lambda-expr245259_ - _struct-check-all245138_ - _empty243628_))) - (_specializer-case-lambda-expr245429_ + (_make-specializer-lambda-expr247854_ + _struct-check-all247733_ + _empty246223_))) + (_specializer-case-lambda-expr248024_ (let () (declare (not safe)) - (_make-specializer-case-lambda-expr245420_ - _struct-check-all245138_ - _empty243628_))) - (_specializer-impl245431_ + (_make-specializer-case-lambda-expr248015_ + _struct-check-all247733_ + _empty246223_))) + (_specializer-impl248026_ (let () (declare (not safe)) - (_make-specializer-impl245425_ - _specializer-lambda-expr245427_ - _specializer-case-lambda-expr245429_))) - (_unchecked-specializer-lambda-expr245433_ + (_make-specializer-impl248020_ + _specializer-lambda-expr248022_ + _specializer-case-lambda-expr248024_))) + (_unchecked-specializer-lambda-expr248028_ (if (let () (declare (not safe)) - (_unchecked-specializer?243631_)) + (_unchecked-specializer?246226_)) (let () (declare (not safe)) - (_make-specializer-lambda-expr245259_ - _empty243628_ - _struct-check-all245138_)) + (_make-specializer-lambda-expr247854_ + _empty246223_ + _struct-check-all247733_)) '#f)) - (_unchecked-specializer-case-lambda-expr245435_ + (_unchecked-specializer-case-lambda-expr248030_ (if (let () (declare (not safe)) - (_unchecked-specializer?243631_)) + (_unchecked-specializer?246226_)) (let () (declare (not safe)) - (_make-specializer-case-lambda-expr245420_ - _empty243628_ - _struct-check-all245138_)) + (_make-specializer-case-lambda-expr248015_ + _empty246223_ + _struct-check-all247733_)) '#f)) - (_unchecked-specializer-impl245437_ + (_unchecked-specializer-impl248032_ (if (let () (declare (not safe)) - (_unchecked-specializer?243631_)) + (_unchecked-specializer?246226_)) (let () (declare (not safe)) - (_make-specializer-impl245425_ - _unchecked-specializer-lambda-expr245433_ - _unchecked-specializer-case-lambda-expr245435_)) + (_make-specializer-impl248020_ + _unchecked-specializer-lambda-expr248028_ + _unchecked-specializer-case-lambda-expr248030_)) '#f)) - (_specializer-impl245439_ + (_specializer-impl248034_ (let () (declare (not safe)) - (_generate-specializer-impl243535_ - _$t245068_ - _methods-bind245091_ - _slots-bind245114_ - _class-check-bind245136_ - _struct-check-bind245160_ - _specializer-impl245431_ - _lifted-specializer-id245066_ - _unchecked-specializer-impl245437_)))) - (let ((__tmp252820 + (_generate-specializer-impl246130_ + _$t247663_ + _methods-bind247686_ + _slots-bind247709_ + _class-check-bind247731_ + _struct-check-bind247755_ + _specializer-impl248026_ + _lifted-specializer-id247661_ + _unchecked-specializer-impl248032_)))) + (let ((__tmp255515 (let () (declare (not safe)) - (gx#stx-e _L243604_))) - (__tmp252819 + (gx#stx-e _L246199_))) + (__tmp255514 (let () (declare (not safe)) (gx#stx-e - _specializer-id245059_)))) + _specializer-id247654_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp252820 + __tmp255515 '" => " - __tmp252819)) + __tmp255514)) (let () (declare (not safe)) - (_generate-specializer-def243536_ - _L243604_ - _specializer-id245059_ - _specializer-impl245439_ - _lifted-specializer-id245066_ - _unchecked-specializer-impl245437_))))) - _hd244748244810_ - _hd244745244802_ - _hd244742244794_) + (_generate-specializer-def246131_ + _L246199_ + _specializer-id247654_ + _specializer-impl248034_ + _lifted-specializer-id247661_ + _unchecked-specializer-impl248032_))))) + _hd247343247405_ + _hd247340247397_ + _hd247337247389_) (let () (declare (not safe)) - (_g244724244754_ _g244725244757_))))) + (_g247319247349_ _g247320247352_))))) (let () (declare (not safe)) - (_g244724244754_ _g244725244757_))) + (_g247319247349_ _g247320247352_))) (let () (declare (not safe)) - (_g244724244754_ _g244725244757_))) + (_g247319247349_ _g247320247352_))) (let () (declare (not safe)) - (_g244724244754_ _g244725244757_))))) - (let () (declare (not safe)) (_g244724244754_ _g244725244757_))) + (_g247319247349_ _g247320247352_))))) + (let () (declare (not safe)) (_g247319247349_ _g247320247352_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g244724244754_ - _g244725244757_))))) + (_g247319247349_ + _g247320247352_))))) (let () (declare (not safe)) - (_g244724244754_ - _g244725244757_))))) + (_g247319247349_ + _g247320247352_))))) (let () (declare (not safe)) - (_g244724244754_ _g244725244757_))))) + (_g247319247349_ _g247320247352_))))) (let () (declare (not safe)) - (_g244724244754_ _g244725244757_))))) + (_g247319247349_ _g247320247352_))))) (let () (declare (not safe)) - (_g244724244754_ _g244725244757_))))) + (_g247319247349_ _g247320247352_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g244724244754_ - _g244725244757_)))))) + (_g247319247349_ + _g247320247352_)))))) (declare (not safe)) - (_g244723245442_ _L243603_)) + (_g247318248037_ _L246198_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L243603_)) - (let* ((_g245445245498_ - (lambda (_g245446245495_) + (gxc#kw-lambda-expr? _L246198_)) + (let* ((_g248040248093_ + (lambda (_g248041248090_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g245446245495_)))) - (_g245444246770_ - (lambda (_g245446245501_) + _g248041248090_)))) + (_g248039249365_ + (lambda (_g248041248096_) (if (let () (declare (not safe)) (gx#stx-pair? - _g245446245501_)) - (let ((_e245454245503_ + _g248041248096_)) + (let ((_e248049248098_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g245446245501_)))) - (let ((_hd245453245506_ - (let () (declare (not safe)) (##car _e245454245503_))) - (_tl245452245508_ - (let () (declare (not safe)) (##cdr _e245454245503_)))) + (gx#stx-e _g248041248096_)))) + (let ((_hd248048248101_ + (let () (declare (not safe)) (##car _e248049248098_))) + (_tl248047248103_ + (let () (declare (not safe)) (##cdr _e248049248098_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245453245506_)) + (gx#identifier? _hd248048248101_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd245453245506_)) + (gx#stx-eq? '%#let-values _hd248048248101_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245452245508_)) - (let ((_e245457245511_ + (gx#stx-pair? _tl248047248103_)) + (let ((_e248052248106_ (let () (declare (not safe)) - (gx#stx-e _tl245452245508_)))) - (let ((_hd245456245514_ + (gx#stx-e _tl248047248103_)))) + (let ((_hd248051248109_ (let () (declare (not safe)) - (##car _e245457245511_))) - (_tl245455245516_ + (##car _e248052248106_))) + (_tl248050248111_ (let () (declare (not safe)) - (##cdr _e245457245511_)))) + (##cdr _e248052248106_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245456245514_)) - (let ((_e245460245519_ + (gx#stx-pair? _hd248051248109_)) + (let ((_e248055248114_ (let () (declare (not safe)) - (gx#stx-e _hd245456245514_)))) - (let ((_hd245459245522_ + (gx#stx-e _hd248051248109_)))) + (let ((_hd248054248117_ (let () (declare (not safe)) - (##car _e245460245519_))) - (_tl245458245524_ + (##car _e248055248114_))) + (_tl248053248119_ (let () (declare (not safe)) - (##cdr _e245460245519_)))) + (##cdr _e248055248114_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd245459245522_)) - (let ((_e245463245527_ + _hd248054248117_)) + (let ((_e248058248122_ (let () (declare (not safe)) (gx#stx-e - _hd245459245522_)))) - (let ((_hd245462245530_ + _hd248054248117_)))) + (let ((_hd248057248125_ (let () (declare (not safe)) - (##car _e245463245527_))) - (_tl245461245532_ + (##car _e248058248122_))) + (_tl248056248127_ (let () (declare (not safe)) - (##cdr _e245463245527_)))) + (##cdr _e248058248122_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd245462245530_)) - (let ((_e245466245535_ + _hd248057248125_)) + (let ((_e248061248130_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd245462245530_)))) - (let ((_hd245465245538_ - (let () (declare (not safe)) (##car _e245466245535_))) - (_tl245464245540_ - (let () (declare (not safe)) (##cdr _e245466245535_)))) + (gx#stx-e _hd248057248125_)))) + (let ((_hd248060248133_ + (let () (declare (not safe)) (##car _e248061248130_))) + (_tl248059248135_ + (let () (declare (not safe)) (##cdr _e248061248130_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245464245540_)) + (gx#stx-null? _tl248059248135_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245461245532_)) - (let ((_e245469245543_ + (gx#stx-pair? _tl248056248127_)) + (let ((_e248064248138_ (let () (declare (not safe)) - (gx#stx-e _tl245461245532_)))) - (let ((_hd245468245546_ + (gx#stx-e _tl248056248127_)))) + (let ((_hd248063248141_ (let () (declare (not safe)) - (##car _e245469245543_))) - (_tl245467245548_ + (##car _e248064248138_))) + (_tl248062248143_ (let () (declare (not safe)) - (##cdr _e245469245543_)))) + (##cdr _e248064248138_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245468245546_)) - (let ((_e245472245551_ + (gx#stx-pair? _hd248063248141_)) + (let ((_e248067248146_ (let () (declare (not safe)) - (gx#stx-e _hd245468245546_)))) - (let ((_hd245471245554_ + (gx#stx-e _hd248063248141_)))) + (let ((_hd248066248149_ (let () (declare (not safe)) - (##car _e245472245551_))) - (_tl245470245556_ + (##car _e248067248146_))) + (_tl248065248151_ (let () (declare (not safe)) - (##cdr _e245472245551_)))) + (##cdr _e248067248146_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245471245554_)) + (gx#identifier? _hd248066248149_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd245471245554_)) + _hd248066248149_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245470245556_)) - (let ((_e245475245559_ + _tl248065248151_)) + (let ((_e248070248154_ (let () (declare (not safe)) (gx#stx-e - _tl245470245556_)))) - (let ((_hd245474245562_ + _tl248065248151_)))) + (let ((_hd248069248157_ (let () (declare (not safe)) - (##car _e245475245559_))) - (_tl245473245564_ + (##car _e248070248154_))) + (_tl248068248159_ (let () (declare (not safe)) - (##cdr _e245475245559_)))) + (##cdr _e248070248154_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd245474245562_)) - (let ((_e245478245567_ + _hd248069248157_)) + (let ((_e248073248162_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd245474245562_)))) - (let ((_hd245477245570_ + (gx#stx-e _hd248069248157_)))) + (let ((_hd248072248165_ (let () (declare (not safe)) - (##car _e245478245567_))) - (_tl245476245572_ + (##car _e248073248162_))) + (_tl248071248167_ (let () (declare (not safe)) - (##cdr _e245478245567_)))) + (##cdr _e248073248162_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245477245570_)) - (let ((_e245481245575_ + (gx#stx-pair? _hd248072248165_)) + (let ((_e248076248170_ (let () (declare (not safe)) - (gx#stx-e _hd245477245570_)))) - (let ((_hd245480245578_ + (gx#stx-e _hd248072248165_)))) + (let ((_hd248075248173_ (let () (declare (not safe)) - (##car _e245481245575_))) - (_tl245479245580_ + (##car _e248076248170_))) + (_tl248074248175_ (let () (declare (not safe)) - (##cdr _e245481245575_)))) + (##cdr _e248076248170_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245480245578_)) - (let ((_e245484245583_ + (gx#stx-pair? _hd248075248173_)) + (let ((_e248079248178_ (let () (declare (not safe)) - (gx#stx-e _hd245480245578_)))) - (let ((_hd245483245586_ + (gx#stx-e _hd248075248173_)))) + (let ((_hd248078248181_ (let () (declare (not safe)) - (##car _e245484245583_))) - (_tl245482245588_ + (##car _e248079248178_))) + (_tl248077248183_ (let () (declare (not safe)) - (##cdr _e245484245583_)))) + (##cdr _e248079248178_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245482245588_)) + (gx#stx-null? _tl248077248183_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245479245580_)) - (let ((_e245487245591_ + _tl248074248175_)) + (let ((_e248082248186_ (let () (declare (not safe)) (gx#stx-e - _tl245479245580_)))) - (let ((_hd245486245594_ + _tl248074248175_)))) + (let ((_hd248081248189_ (let () (declare (not safe)) - (##car _e245487245591_))) - (_tl245485245596_ + (##car _e248082248186_))) + (_tl248080248191_ (let () (declare (not safe)) - (##cdr _e245487245591_)))) + (##cdr _e248082248186_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245485245596_)) + _tl248080248191_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl245476245572_)) + _tl248071248167_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl245473245564_)) - (let ((_e245490245599_ + (gx#stx-pair? _tl248068248159_)) + (let ((_e248085248194_ (let () (declare (not safe)) - (gx#stx-e _tl245473245564_)))) - (let ((_hd245489245602_ + (gx#stx-e _tl248068248159_)))) + (let ((_hd248084248197_ (let () (declare (not safe)) - (##car _e245490245599_))) - (_tl245488245604_ + (##car _e248085248194_))) + (_tl248083248199_ (let () (declare (not safe)) - (##cdr _e245490245599_)))) + (##cdr _e248085248194_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245488245604_)) + (gx#stx-null? _tl248083248199_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl245467245548_)) + (gx#stx-null? _tl248062248143_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl245458245524_)) + (gx#stx-null? _tl248053248119_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245455245516_)) - (let ((_e245493245607_ + (gx#stx-pair? _tl248050248111_)) + (let ((_e248088248202_ (let () (declare (not safe)) (gx#stx-e - _tl245455245516_)))) - (let ((_hd245492245610_ + _tl248050248111_)))) + (let ((_hd248087248205_ (let () (declare (not safe)) - (##car _e245493245607_))) - (_tl245491245612_ + (##car _e248088248202_))) + (_tl248086248207_ (let () (declare (not safe)) - (##cdr _e245493245607_)))) + (##cdr _e248088248202_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245491245612_)) - ((lambda (_L245615_ - _L245616_ - _L245617_ - _L245618_ - _L245619_) - (let* ((_g245658245720_ - (lambda (_g245659245717_) + _tl248086248207_)) + ((lambda (_L248210_ + _L248211_ + _L248212_ + _L248213_ + _L248214_) + (let* ((_g248253248315_ + (lambda (_g248254248312_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g245659245717_)))) - (_g245657246767_ - (lambda (_g245659245723_) + _g248254248312_)))) + (_g248252249362_ + (lambda (_g248254248318_) (if (let () (declare (not safe)) - (gx#stx-pair? _g245659245723_)) - (let ((_e245667245725_ + (gx#stx-pair? _g248254248318_)) + (let ((_e248262248320_ (let () (declare (not safe)) - (gx#stx-e _g245659245723_)))) - (let ((_hd245666245728_ + (gx#stx-e _g248254248318_)))) + (let ((_hd248261248323_ (let () (declare (not safe)) - (##car _e245667245725_))) - (_tl245665245730_ + (##car _e248262248320_))) + (_tl248260248325_ (let () (declare (not safe)) - (##cdr _e245667245725_)))) + (##cdr _e248262248320_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245666245728_)) + (gx#identifier? _hd248261248323_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd245666245728_)) + _hd248261248323_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245665245730_)) - (let ((_e245670245733_ + (gx#stx-pair? _tl248260248325_)) + (let ((_e248265248328_ (let () (declare (not safe)) (gx#stx-e - _tl245665245730_)))) - (let ((_hd245669245736_ + _tl248260248325_)))) + (let ((_hd248264248331_ (let () (declare (not safe)) - (##car _e245670245733_))) - (_tl245668245738_ + (##car _e248265248328_))) + (_tl248263248333_ (let () (declare (not safe)) - (##cdr _e245670245733_)))) + (##cdr _e248265248328_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245668245738_)) - (let ((_e245673245741_ + _tl248263248333_)) + (let ((_e248268248336_ (let () (declare (not safe)) (gx#stx-e - _tl245668245738_)))) - (let ((_hd245672245744_ + _tl248263248333_)))) + (let ((_hd248267248339_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e245673245741_))) - (_tl245671245746_ - (let () (declare (not safe)) (##cdr _e245673245741_)))) + (##car _e248268248336_))) + (_tl248266248341_ + (let () (declare (not safe)) (##cdr _e248268248336_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245672245744_)) - (let ((_e245676245749_ + (gx#stx-pair? _hd248267248339_)) + (let ((_e248271248344_ (let () (declare (not safe)) - (gx#stx-e _hd245672245744_)))) - (let ((_hd245675245752_ + (gx#stx-e _hd248267248339_)))) + (let ((_hd248270248347_ (let () (declare (not safe)) - (##car _e245676245749_))) - (_tl245674245754_ + (##car _e248271248344_))) + (_tl248269248349_ (let () (declare (not safe)) - (##cdr _e245676245749_)))) + (##cdr _e248271248344_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245675245752_)) + (gx#identifier? _hd248270248347_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd245675245752_)) + (gx#stx-eq? '%#call _hd248270248347_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245674245754_)) - (let ((_e245679245757_ + (gx#stx-pair? _tl248269248349_)) + (let ((_e248274248352_ (let () (declare (not safe)) - (gx#stx-e _tl245674245754_)))) - (let ((_hd245678245760_ + (gx#stx-e _tl248269248349_)))) + (let ((_hd248273248355_ (let () (declare (not safe)) - (##car _e245679245757_))) - (_tl245677245762_ + (##car _e248274248352_))) + (_tl248272248357_ (let () (declare (not safe)) - (##cdr _e245679245757_)))) + (##cdr _e248274248352_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245678245760_)) - (let ((_e245682245765_ + (gx#stx-pair? _hd248273248355_)) + (let ((_e248277248360_ (let () (declare (not safe)) (gx#stx-e - _hd245678245760_)))) - (let ((_hd245681245768_ + _hd248273248355_)))) + (let ((_hd248276248363_ (let () (declare (not safe)) - (##car _e245682245765_))) - (_tl245680245770_ + (##car _e248277248360_))) + (_tl248275248365_ (let () (declare (not safe)) - (##cdr _e245682245765_)))) + (##cdr _e248277248360_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd245681245768_)) + _hd248276248363_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd245681245768_)) + _hd248276248363_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245680245770_)) - (let ((_e245685245773_ + _tl248275248365_)) + (let ((_e248280248368_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl245680245770_)))) - (let ((_hd245684245776_ + (gx#stx-e _tl248275248365_)))) + (let ((_hd248279248371_ (let () (declare (not safe)) - (##car _e245685245773_))) - (_tl245683245778_ + (##car _e248280248368_))) + (_tl248278248373_ (let () (declare (not safe)) - (##cdr _e245685245773_)))) + (##cdr _e248280248368_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245683245778_)) + (gx#stx-null? _tl248278248373_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245677245762_)) - (let ((_e245688245781_ + (gx#stx-pair? _tl248272248357_)) + (let ((_e248283248376_ (let () (declare (not safe)) - (gx#stx-e _tl245677245762_)))) - (let ((_hd245687245784_ + (gx#stx-e _tl248272248357_)))) + (let ((_hd248282248379_ (let () (declare (not safe)) - (##car _e245688245781_))) - (_tl245686245786_ + (##car _e248283248376_))) + (_tl248281248381_ (let () (declare (not safe)) - (##cdr _e245688245781_)))) + (##cdr _e248283248376_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245687245784_)) - (let ((_e245691245789_ + (gx#stx-pair? _hd248282248379_)) + (let ((_e248286248384_ (let () (declare (not safe)) - (gx#stx-e _hd245687245784_)))) - (let ((_hd245690245792_ + (gx#stx-e _hd248282248379_)))) + (let ((_hd248285248387_ (let () (declare (not safe)) - (##car _e245691245789_))) - (_tl245689245794_ + (##car _e248286248384_))) + (_tl248284248389_ (let () (declare (not safe)) - (##cdr _e245691245789_)))) + (##cdr _e248286248384_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd245690245792_)) + _hd248285248387_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd245690245792_)) + _hd248285248387_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245689245794_)) - (let ((_e245694245797_ + _tl248284248389_)) + (let ((_e248289248392_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl245689245794_)))) - (let ((_hd245693245800_ - (let () (declare (not safe)) (##car _e245694245797_))) - (_tl245692245802_ + (gx#stx-e _tl248284248389_)))) + (let ((_hd248288248395_ + (let () (declare (not safe)) (##car _e248289248392_))) + (_tl248287248397_ (let () (declare (not safe)) - (##cdr _e245694245797_)))) + (##cdr _e248289248392_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245692245802_)) + (gx#stx-null? _tl248287248397_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245686245786_)) - (let ((_e245697245805_ + (gx#stx-pair? _tl248281248381_)) + (let ((_e248292248400_ (let () (declare (not safe)) - (gx#stx-e _tl245686245786_)))) - (let ((_hd245696245808_ + (gx#stx-e _tl248281248381_)))) + (let ((_hd248291248403_ (let () (declare (not safe)) - (##car _e245697245805_))) - (_tl245695245810_ + (##car _e248292248400_))) + (_tl248290248405_ (let () (declare (not safe)) - (##cdr _e245697245805_)))) + (##cdr _e248292248400_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245696245808_)) - (let ((_e245700245813_ + (gx#stx-pair? _hd248291248403_)) + (let ((_e248295248408_ (let () (declare (not safe)) - (gx#stx-e _hd245696245808_)))) - (let ((_hd245699245816_ + (gx#stx-e _hd248291248403_)))) + (let ((_hd248294248411_ (let () (declare (not safe)) - (##car _e245700245813_))) - (_tl245698245818_ + (##car _e248295248408_))) + (_tl248293248413_ (let () (declare (not safe)) - (##cdr _e245700245813_)))) + (##cdr _e248295248408_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd245699245816_)) + _hd248294248411_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd245699245816_)) + _hd248294248411_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245698245818_)) - (let ((_e245703245821_ + _tl248293248413_)) + (let ((_e248298248416_ (let () (declare (not safe)) (gx#stx-e - _tl245698245818_)))) - (let ((_hd245702245824_ + _tl248293248413_)))) + (let ((_hd248297248419_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e245703245821_))) - (_tl245701245826_ - (let () (declare (not safe)) (##cdr _e245703245821_)))) + (##car _e248298248416_))) + (_tl248296248421_ + (let () (declare (not safe)) (##cdr _e248298248416_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245701245826_)) + (gx#stx-null? _tl248296248421_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl245695245810_)) + (gx#stx-pair/null? _tl248290248405_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl245695245810_)) + (gx#stx-length _tl248290248405_)) '1) - (let ((_g252696_ + (let ((_g255391_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl245695245810_ + _tl248290248405_ '1)))) (begin - (let ((_g252697_ + (let ((_g255392_ (let () (declare (not safe)) - (if (##values? _g252696_) - (##vector-length _g252696_) + (if (##values? _g255391_) + (##vector-length _g255391_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g252697_ 2))) + (##fx= _g255392_ 2))) (error "Context expects 2 values" - _g252697_))) - (let ((_target245704245829_ + _g255392_))) + (let ((_target248299248424_ (let () (declare (not safe)) - (##vector-ref _g252696_ 0))) - (_tl245706245831_ + (##vector-ref _g255391_ 0))) + (_tl248301248426_ (let () (declare (not safe)) - (##vector-ref _g252696_ 1)))) + (##vector-ref _g255391_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245706245831_)) - (let ((_e245715245834_ + (gx#stx-pair? _tl248301248426_)) + (let ((_e248310248429_ (let () (declare (not safe)) - (gx#stx-e _tl245706245831_)))) - (let ((_hd245714245837_ + (gx#stx-e _tl248301248426_)))) + (let ((_hd248309248432_ (let () (declare (not safe)) - (##car _e245715245834_))) - (_tl245713245839_ + (##car _e248310248429_))) + (_tl248308248434_ (let () (declare (not safe)) - (##cdr _e245715245834_)))) + (##cdr _e248310248429_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245713245839_)) - (letrec ((_loop245707245842_ - (lambda (_hd245705245845_ + _tl248308248434_)) + (letrec ((_loop248302248437_ + (lambda (_hd248300248440_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _kw-ref245711245847_) + _kw-ref248306248442_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245705245845_)) - (let ((_e245708245850_ + (gx#stx-pair? _hd248300248440_)) + (let ((_e248303248445_ (let () (declare (not safe)) - (gx#stx-e _hd245705245845_)))) - (let ((_lp-hd245709245853_ + (gx#stx-e _hd248300248440_)))) + (let ((_lp-hd248304248448_ (let () (declare (not safe)) - (##car _e245708245850_))) - (_lp-tl245710245855_ + (##car _e248303248445_))) + (_lp-tl248305248450_ (let () (declare (not safe)) - (##cdr _e245708245850_)))) - (let ((__tmp252783 + (##cdr _e248303248445_)))) + (let ((__tmp255478 (let () (declare (not safe)) - (cons _lp-hd245709245853_ - _kw-ref245711245847_)))) + (cons _lp-hd248304248448_ + _kw-ref248306248442_)))) (declare (not safe)) - (_loop245707245842_ - _lp-tl245710245855_ - __tmp252783)))) - (let ((_kw-ref245712245858_ - (reverse _kw-ref245711245847_))) + (_loop248302248437_ + _lp-tl248305248450_ + __tmp255478)))) + (let ((_kw-ref248307248453_ + (reverse _kw-ref248306248442_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245671245746_)) - ((lambda (_L245861_ - _L245862_ - _L245863_ - _L245864_ - _L245865_) - (let* ((_kw-count245916_ - (length (let ((__tmp252698 - (lambda (_g245908245911_ - _g245909245913_) + (gx#stx-null? _tl248266248341_)) + ((lambda (_L248456_ + _L248457_ + _L248458_ + _L248459_ + _L248460_) + (let* ((_kw-count248511_ + (length (let ((__tmp255393 + (lambda (_g248503248506_ + _g248504248508_) (let () (declare (not safe)) - (cons _g245908245911_ - _g245909245913_))))) + (cons _g248503248506_ + _g248504248508_))))) (declare (not safe)) - (foldr1 __tmp252698 + (foldr1 __tmp255393 '() - _L245862_)))) - (_self-index245918_ + _L248457_)))) + (_self-index248513_ (let () (declare (not safe)) - (fx+ _kw-count245916_ '1)))) + (fx+ _kw-count248511_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L245617_)) - (let* ((_g245921245935_ - (lambda (_g245922245932_) + (gxc#lambda-expr? _L248212_)) + (let* ((_g248516248530_ + (lambda (_g248517248527_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g245922245932_)))) - (_g245920246106_ - (lambda (_g245922245938_) + _g248517248527_)))) + (_g248515248701_ + (lambda (_g248517248533_) (if (let () (declare (not safe)) (gx#stx-pair? - _g245922245938_)) - (let ((_e245927245940_ + _g248517248533_)) + (let ((_e248522248535_ (let () (declare (not safe)) (gx#stx-e - _g245922245938_)))) - (let ((_hd245926245943_ + _g248517248533_)))) + (let ((_hd248521248538_ (let () (declare (not safe)) - (##car _e245927245940_))) - (_tl245925245945_ + (##car _e248522248535_))) + (_tl248520248540_ (let () (declare (not safe)) - (##cdr _e245927245940_)))) + (##cdr _e248522248535_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245925245945_)) - (let ((_e245930245948_ + _tl248520248540_)) + (let ((_e248525248543_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl245925245945_)))) - (let ((_hd245929245951_ + (gx#stx-e _tl248520248540_)))) + (let ((_hd248524248546_ (let () (declare (not safe)) - (##car _e245930245948_))) - (_tl245928245953_ + (##car _e248525248543_))) + (_tl248523248548_ (let () (declare (not safe)) - (##cdr _e245930245948_)))) - ((lambda (_L245956_ _L245957_) - (let ((_self245973_ - (list-ref _L245957_ _self-index245918_))) + (##cdr _e248525248543_)))) + ((lambda (_L248551_ _L248552_) + (let ((_self248568_ + (list-ref _L248552_ _self-index248513_))) (for-each - (lambda (_g245974245976_) + (lambda (_g248569248571_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g245974245976_ - _self245973_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check243626_ - _struct-type-assert243627_))) - _L245956_) + _g248569248571_ + _self248568_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check246221_ + _struct-type-assert246222_))) + _L248551_) (if (let () (declare (not safe)) - (_no-specializer?243630_)) - _stx243529_ - (let* ((_specializer-id245985_ - (let* ((_id245979_ - (let ((__tmp252749 + (_no-specializer?246225_)) + _stx246124_ + (let* ((_specializer-id248580_ + (let* ((_id248574_ + (let ((__tmp255444 (let () (declare (not safe)) (gx#stx-e - _L243604_)))) + _L246199_)))) (declare (not safe)) (make-symbol__1 - __tmp252749 + __tmp255444 '"::specialize"))) - (_specializer-id245982_ - (let ((__tmp252750 + (_specializer-id248577_ + (let ((__tmp255445 (let () (declare (not safe)) (gx#stx-source - _stx243529_)))) + _stx246124_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id245979_ - __tmp252750)))) + _id248574_ + __tmp255445)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _specializer-id245982_)) - _specializer-id245982_)) - (_lifted-specializer-id245992_ + _specializer-id248577_)) + _specializer-id248577_)) + (_lifted-specializer-id248587_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?243632_)) - (let* ((_id245987_ - (let ((__tmp252751 + (_lift-unchecked-specializer?246227_)) + (let* ((_id248582_ + (let ((__tmp255446 (let () (declare (not safe)) (gx#stx-e - _L243604_)))) + _L246199_)))) (declare (not safe)) (make-symbol__1 - __tmp252751 + __tmp255446 '"::specialize::unchecked"))) - (_lifted-specializer-id245989_ - (let ((__tmp252752 + (_lifted-specializer-id248584_ + (let ((__tmp255447 (let () (declare (not safe)) (gx#stx-source - _stx243529_)))) + _stx246124_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id245987_ - __tmp252752)))) + _id248582_ + __tmp255447)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lifted-specializer-id245989_)) - _lifted-specializer-id245989_) + _lifted-specializer-id248584_)) + _lifted-specializer-id248584_) '#f)) - (_$t245994_ - (let ((__tmp252753 (gensym '__t))) + (_$t248589_ + (let ((__tmp255448 (gensym '__t))) (declare (not safe)) - (make-symbol__0 __tmp252753))) - (_methods245996_ + (make-symbol__0 __tmp255448))) + (_methods248591_ (let () (declare (not safe)) - (hash-keys _method-calls243623_))) - (_$methods246000_ - (map (lambda (_id245998_) - (let ((__tmp252754 - (gensym _id245998_))) + (hash-keys _method-calls246218_))) + (_$methods248595_ + (map (lambda (_id248593_) + (let ((__tmp255449 + (gensym _id248593_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp252754))) - _methods245996_)) - (_g252755_ + __tmp255449))) + _methods248591_)) + (_g255450_ (for-each - (lambda (_g246001246004_ - _g246002246006_) + (lambda (_g248596248599_ + _g248597248601_) (let () (declare (not safe)) (table-set! - _method-calls243623_ - _g246001246004_ - _g246002246006_))) - _methods245996_ - _$methods246000_)) - (_methods-bind246017_ - (map (lambda (_g246009246012_ - _g246010246014_) + _method-calls246218_ + _g248596248599_ + _g248597248601_))) + _methods248591_ + _$methods248595_)) + (_methods-bind248612_ + (map (lambda (_g248604248607_ + _g248605248609_) (let () (declare (not safe)) - (_generate-method-bind243531_ - _$t245994_ - _g246009246012_ - _g246010246014_))) - _methods245996_ - _$methods246000_)) - (_slots246019_ + (_generate-method-bind246126_ + _$t248589_ + _g248604248607_ + _g248605248609_))) + _methods248591_ + _$methods248595_)) + (_slots248614_ (let () (declare (not safe)) - (hash-keys _slot-refs243624_))) - (_$slots246023_ - (map (lambda (_id246021_) - (let ((__tmp252756 - (gensym _id246021_))) + (hash-keys _slot-refs246219_))) + (_$slots248618_ + (map (lambda (_id248616_) + (let ((__tmp255451 + (gensym _id248616_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp252756))) - _slots246019_)) - (_g252757_ + __tmp255451))) + _slots248614_)) + (_g255452_ (for-each - (lambda (_g246024246027_ - _g246025246029_) + (lambda (_g248619248622_ + _g248620248624_) (let () (declare (not safe)) (table-set! - _slot-refs243624_ - _g246024246027_ - _g246025246029_))) - _slots246019_ - _$slots246023_)) - (_slots-bind246040_ - (map (lambda (_g246032246035_ - _g246033246037_) + _slot-refs246219_ + _g248619248622_ + _g248620248624_))) + _slots248614_ + _$slots248618_)) + (_slots-bind248635_ + (map (lambda (_g248627248630_ + _g248628248632_) (let () (declare (not safe)) - (_generate-slot-bind243532_ - _$t245994_ - _g246032246035_ - _g246033246037_))) - _slots246019_ - _$slots246023_)) - (_class-check246042_ + (_generate-slot-bind246127_ + _$t248589_ + _g248627248630_ + _g248628248632_))) + _slots248614_ + _$slots248618_)) + (_class-check248637_ (let () (declare (not safe)) (hash-keys - _class-type-check243625_))) - (_$class-check246045_ - (map (lambda (_g252758_) - (let ((__tmp252759 + _class-type-check246220_))) + (_$class-check248640_ + (map (lambda (_g255453_) + (let ((__tmp255454 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp252759))) - _class-check246042_)) - (_g252760_ + (make-symbol__0 __tmp255454))) + _class-check248637_)) + (_g255455_ (for-each - (lambda (_g246046246049_ - _g246047246051_) + (lambda (_g248641248644_ + _g248642248646_) (let () (declare (not safe)) (table-set! - _class-type-check243625_ - _g246046246049_ - _g246047246051_))) - _class-check246042_ - _$class-check246045_)) - (_class-check-bind246062_ - (map (lambda (_g246054246057_ - _g246055246059_) + _class-type-check246220_ + _g248641248644_ + _g248642248646_))) + _class-check248637_ + _$class-check248640_)) + (_class-check-bind248657_ + (map (lambda (_g248649248652_ + _g248650248654_) (let () (declare (not safe)) - (_generate-class-check-bind243533_ - _$t245994_ - _g246054246057_ - _g246055246059_))) - _class-check246042_ - _$class-check246045_)) - (_struct-check-all246064_ + (_generate-class-check-bind246128_ + _$t248589_ + _g248649248652_ + _g248650248654_))) + _class-check248637_ + _$class-check248640_)) + (_struct-check-all248659_ (let () (declare (not safe)) (hash-merge - _struct-type-check243626_ - _struct-type-assert243627_))) - (_struct-check246066_ + _struct-type-check246221_ + _struct-type-assert246222_))) + (_struct-check248661_ (let () (declare (not safe)) (hash-keys - _struct-check-all246064_))) - (_$struct-check246069_ - (map (lambda (_g252761_) - (let ((__tmp252762 + _struct-check-all248659_))) + (_$struct-check248664_ + (map (lambda (_g255456_) + (let ((__tmp255457 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp252762))) - _struct-check246066_)) - (_g252763_ + (make-symbol__0 __tmp255457))) + _struct-check248661_)) + (_g255458_ (for-each - (lambda (_g246070246073_ - _g246071246075_) + (lambda (_g248665248668_ + _g248666248670_) (let () (declare (not safe)) (table-set! - _struct-check-all246064_ - _g246070246073_ - _g246071246075_))) - _struct-check246066_ - _$struct-check246069_)) - (_struct-check-bind246086_ - (map (lambda (_g246078246081_ - _g246079246083_) + _struct-check-all248659_ + _g248665248668_ + _g248666248670_))) + _struct-check248661_ + _$struct-check248664_)) + (_struct-check-bind248681_ + (map (lambda (_g248673248676_ + _g248674248678_) (let () (declare (not safe)) - (_generate-struct-check-bind243534_ - _$t245994_ - _g246078246081_ - _g246079246083_))) - _struct-check246066_ - _$struct-check246069_)) - (_make-specializer-impl246097_ - (lambda (_struct-type-check1246088_ - _struct-type-check2246089_) - (let* ((_specializer-body246095_ - (map (lambda (_g246090246092_) + (_generate-struct-check-bind246129_ + _$t248589_ + _g248673248676_ + _g248674248678_))) + _struct-check248661_ + _$struct-check248664_)) + (_make-specializer-impl248692_ + (lambda (_struct-type-check1248683_ + _struct-type-check2248684_) + (let* ((_specializer-body248690_ + (map (lambda (_g248685248687_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g246090246092_ - _self245973_ - _$t245994_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check1246088_ - _struct-type-check2246089_))) - _L245956_)) - (__tmp252764 - (let ((__tmp252765 - (let ((__tmp252767 - (let ((__tmp252768 + _g248685248687_ + _self248568_ + _$t248589_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check1248683_ + _struct-type-check2248684_))) + _L248551_)) + (__tmp255459 + (let ((__tmp255460 + (let ((__tmp255462 + (let ((__tmp255463 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp252780 + (let ((__tmp255475 (let () (declare (not safe)) - (cons _L245619_ '()))) - (__tmp252769 - (let ((__tmp252770 - (let ((__tmp252771 - (let ((__tmp252773 - (let ((__tmp252774 + (cons _L248214_ '()))) + (__tmp255464 + (let ((__tmp255465 + (let ((__tmp255466 + (let ((__tmp255468 + (let ((__tmp255469 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp252779 + (let ((__tmp255474 (let () (declare (not safe)) - (cons _L245618_ '()))) - (__tmp252775 - (let ((__tmp252776 - (let ((__tmp252777 - (let ((__tmp252778 + (cons _L248213_ '()))) + (__tmp255470 + (let ((__tmp255471 + (let ((__tmp255472 + (let ((__tmp255473 (let () (declare (not safe)) - (cons _L245957_ - _specializer-body246095_)))) + (cons _L248552_ + _specializer-body248690_)))) (declare (not safe)) (cons '%#lambda - __tmp252778)))) + __tmp255473)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp252777 - _L245617_)))) + __tmp255472 + _L248212_)))) (declare (not safe)) - (cons __tmp252776 '())))) + (cons __tmp255471 '())))) (declare (not safe)) - (cons __tmp252779 __tmp252775)))) + (cons __tmp255474 __tmp255470)))) (declare (not safe)) - (cons __tmp252774 '()))) - (__tmp252772 - (let () (declare (not safe)) (cons _L245616_ '())))) + (cons __tmp255469 '()))) + (__tmp255467 + (let () (declare (not safe)) (cons _L248211_ '())))) (declare (not safe)) - (cons __tmp252773 __tmp252772)))) + (cons __tmp255468 __tmp255467)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp252771)))) + __tmp255466)))) (declare (not safe)) - (cons __tmp252770 '())))) + (cons __tmp255465 '())))) (declare (not safe)) - (cons __tmp252780 __tmp252769)))) + (cons __tmp255475 __tmp255464)))) (declare (not safe)) - (cons __tmp252768 '()))) - (__tmp252766 - (let () (declare (not safe)) (cons _L245615_ '())))) + (cons __tmp255463 '()))) + (__tmp255461 + (let () (declare (not safe)) (cons _L248210_ '())))) (declare (not safe)) - (cons __tmp252767 __tmp252766)))) + (cons __tmp255462 __tmp255461)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp252765)))) + __tmp255460)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp252764 - _stx243529_)))) - (_specializer-impl246099_ + __tmp255459 + _stx246124_)))) + (_specializer-impl248694_ (let () (declare (not safe)) - (_make-specializer-impl246097_ - _struct-check-all246064_ - _empty243628_))) - (_unchecked-specializer-impl246101_ + (_make-specializer-impl248692_ + _struct-check-all248659_ + _empty246223_))) + (_unchecked-specializer-impl248696_ (if (let () (declare (not safe)) - (_unchecked-specializer?243631_)) + (_unchecked-specializer?246226_)) (let () (declare (not safe)) - (_make-specializer-impl246097_ - _empty243628_ - _struct-check-all246064_)) + (_make-specializer-impl248692_ + _empty246223_ + _struct-check-all248659_)) '#f)) - (_specializer-impl246103_ + (_specializer-impl248698_ (let () (declare (not safe)) - (_generate-specializer-impl243535_ - _$t245994_ - _methods-bind246017_ - _slots-bind246040_ - _class-check-bind246062_ - _struct-check-bind246086_ - _specializer-impl246099_ - _lifted-specializer-id245992_ - _unchecked-specializer-impl246101_)))) - (let ((__tmp252782 + (_generate-specializer-impl246130_ + _$t248589_ + _methods-bind248612_ + _slots-bind248635_ + _class-check-bind248657_ + _struct-check-bind248681_ + _specializer-impl248694_ + _lifted-specializer-id248587_ + _unchecked-specializer-impl248696_)))) + (let ((__tmp255477 (let () (declare (not safe)) - (gx#stx-e _L243604_))) - (__tmp252781 + (gx#stx-e _L246199_))) + (__tmp255476 (let () (declare (not safe)) - (gx#stx-e _specializer-id245985_)))) + (gx#stx-e _specializer-id248580_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp252782 + __tmp255477 '" => " - __tmp252781)) + __tmp255476)) (let () (declare (not safe)) - (_generate-specializer-def243536_ - _L243604_ - _specializer-id245985_ - _specializer-impl246103_ - _lifted-specializer-id245992_ - _unchecked-specializer-impl246101_)))))) - _tl245928245953_ - _hd245929245951_))) + (_generate-specializer-def246131_ + _L246199_ + _specializer-id248580_ + _specializer-impl248698_ + _lifted-specializer-id248587_ + _unchecked-specializer-impl248696_)))))) + _tl248523248548_ + _hd248524248546_))) (let () (declare (not safe)) - (_g245921245935_ _g245922245938_))))) + (_g248516248530_ _g248517248533_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245921245935_ - _g245922245938_)))))) + (_g248516248530_ + _g248517248533_)))))) (declare (not safe)) - (_g245920246106_ _L245617_)) + (_g248515248701_ _L248212_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L245617_)) - (let* ((_g246109246139_ - (lambda (_g246110246136_) + (gxc#opt-lambda-expr? _L248212_)) + (let* ((_g248704248734_ + (lambda (_g248705248731_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g246110246136_)))) - (_g246108246764_ - (lambda (_g246110246142_) + _g248705248731_)))) + (_g248703249359_ + (lambda (_g248705248737_) (if (let () (declare (not safe)) (gx#stx-pair? - _g246110246142_)) - (let ((_e246116246144_ + _g248705248737_)) + (let ((_e248711248739_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g246110246142_)))) - (let ((_hd246115246147_ - (let () (declare (not safe)) (##car _e246116246144_))) - (_tl246114246149_ - (let () (declare (not safe)) (##cdr _e246116246144_)))) + (gx#stx-e _g248705248737_)))) + (let ((_hd248710248742_ + (let () (declare (not safe)) (##car _e248711248739_))) + (_tl248709248744_ + (let () (declare (not safe)) (##cdr _e248711248739_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246114246149_)) - (let ((_e246119246152_ + (gx#stx-pair? _tl248709248744_)) + (let ((_e248714248747_ (let () (declare (not safe)) - (gx#stx-e _tl246114246149_)))) - (let ((_hd246118246155_ + (gx#stx-e _tl248709248744_)))) + (let ((_hd248713248750_ (let () (declare (not safe)) - (##car _e246119246152_))) - (_tl246117246157_ + (##car _e248714248747_))) + (_tl248712248752_ (let () (declare (not safe)) - (##cdr _e246119246152_)))) + (##cdr _e248714248747_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246118246155_)) - (let ((_e246122246160_ + (gx#stx-pair? _hd248713248750_)) + (let ((_e248717248755_ (let () (declare (not safe)) - (gx#stx-e _hd246118246155_)))) - (let ((_hd246121246163_ + (gx#stx-e _hd248713248750_)))) + (let ((_hd248716248758_ (let () (declare (not safe)) - (##car _e246122246160_))) - (_tl246120246165_ + (##car _e248717248755_))) + (_tl248715248760_ (let () (declare (not safe)) - (##cdr _e246122246160_)))) + (##cdr _e248717248755_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246121246163_)) - (let ((_e246125246168_ + (gx#stx-pair? _hd248716248758_)) + (let ((_e248720248763_ (let () (declare (not safe)) - (gx#stx-e _hd246121246163_)))) - (let ((_hd246124246171_ + (gx#stx-e _hd248716248758_)))) + (let ((_hd248719248766_ (let () (declare (not safe)) - (##car _e246125246168_))) - (_tl246123246173_ + (##car _e248720248763_))) + (_tl248718248768_ (let () (declare (not safe)) - (##cdr _e246125246168_)))) + (##cdr _e248720248763_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd246124246171_)) - (let ((_e246128246176_ + _hd248719248766_)) + (let ((_e248723248771_ (let () (declare (not safe)) (gx#stx-e - _hd246124246171_)))) - (let ((_hd246127246179_ + _hd248719248766_)))) + (let ((_hd248722248774_ (let () (declare (not safe)) - (##car _e246128246176_))) - (_tl246126246181_ + (##car _e248723248771_))) + (_tl248721248776_ (let () (declare (not safe)) - (##cdr _e246128246176_)))) + (##cdr _e248723248771_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246126246181_)) + _tl248721248776_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246123246173_)) - (let ((_e246131246184_ + _tl248718248768_)) + (let ((_e248726248779_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl246123246173_)))) - (let ((_hd246130246187_ + (gx#stx-e _tl248718248768_)))) + (let ((_hd248725248782_ (let () (declare (not safe)) - (##car _e246131246184_))) - (_tl246129246189_ + (##car _e248726248779_))) + (_tl248724248784_ (let () (declare (not safe)) - (##cdr _e246131246184_)))) + (##cdr _e248726248779_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246129246189_)) + (gx#stx-null? _tl248724248784_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl246120246165_)) + (gx#stx-null? _tl248715248760_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246117246157_)) - (let ((_e246134246192_ + (gx#stx-pair? _tl248712248752_)) + (let ((_e248729248787_ (let () (declare (not safe)) - (gx#stx-e _tl246117246157_)))) - (let ((_hd246133246195_ + (gx#stx-e _tl248712248752_)))) + (let ((_hd248728248790_ (let () (declare (not safe)) - (##car _e246134246192_))) - (_tl246132246197_ + (##car _e248729248787_))) + (_tl248727248792_ (let () (declare (not safe)) - (##cdr _e246134246192_)))) + (##cdr _e248729248787_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246132246197_)) - ((lambda (_L246200_ - _L246201_ - _L246202_) - (let* ((_g246225246239_ - (lambda (_g246226246236_) + (gx#stx-null? _tl248727248792_)) + ((lambda (_L248795_ + _L248796_ + _L248797_) + (let* ((_g248820248834_ + (lambda (_g248821248831_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g246226246236_)))) - (_g246224246280_ - (lambda (_g246226246242_) + _g248821248831_)))) + (_g248819248875_ + (lambda (_g248821248837_) (if (let () (declare (not safe)) (gx#stx-pair? - _g246226246242_)) - (let ((_e246231246244_ + _g248821248837_)) + (let ((_e248826248839_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g246226246242_)))) - (let ((_hd246230246247_ + (gx#stx-e _g248821248837_)))) + (let ((_hd248825248842_ (let () (declare (not safe)) - (##car _e246231246244_))) - (_tl246229246249_ + (##car _e248826248839_))) + (_tl248824248844_ (let () (declare (not safe)) - (##cdr _e246231246244_)))) + (##cdr _e248826248839_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246229246249_)) - (let ((_e246234246252_ + (gx#stx-pair? _tl248824248844_)) + (let ((_e248829248847_ (let () (declare (not safe)) - (gx#stx-e _tl246229246249_)))) - (let ((_hd246233246255_ + (gx#stx-e _tl248824248844_)))) + (let ((_hd248828248850_ (let () (declare (not safe)) - (##car _e246234246252_))) - (_tl246232246257_ + (##car _e248829248847_))) + (_tl248827248852_ (let () (declare (not safe)) - (##cdr _e246234246252_)))) - ((lambda (_L246260_ _L246261_) - (let ((_self246274_ + (##cdr _e248829248847_)))) + ((lambda (_L248855_ _L248856_) + (let ((_self248869_ (list-ref - _L246261_ - _self-index245918_))) + _L248856_ + _self-index248513_))) (for-each - (lambda (_g246275246277_) + (lambda (_g248870248872_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g246275246277_ - _self246274_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check243626_ - _struct-type-assert243627_))) - _L246260_))) - _tl246232246257_ - _hd246233246255_))) + _g248870248872_ + _self248869_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check246221_ + _struct-type-assert246222_))) + _L248855_))) + _tl248827248852_ + _hd248828248850_))) (let () (declare (not safe)) - (_g246225246239_ _g246226246242_))))) + (_g248820248834_ _g248821248837_))))) (let () (declare (not safe)) - (_g246225246239_ _g246226246242_)))))) + (_g248820248834_ _g248821248837_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g246224246280_ _L246201_)) - (let* ((_g246283246302_ - (lambda (_g246284246299_) + (_g248819248875_ _L248796_)) + (let* ((_g248878248897_ + (lambda (_g248879248894_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g246284246299_)))) - (_g246282246407_ - (lambda (_g246284246305_) + _g248879248894_)))) + (_g248877249002_ + (lambda (_g248879248900_) (if (let () (declare (not safe)) (gx#stx-pair? - _g246284246305_)) - (let ((_e246288246307_ + _g248879248900_)) + (let ((_e248883248902_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g246284246305_)))) - (let ((_hd246287246310_ + (gx#stx-e _g248879248900_)))) + (let ((_hd248882248905_ (let () (declare (not safe)) - (##car _e246288246307_))) - (_tl246286246312_ + (##car _e248883248902_))) + (_tl248881248907_ (let () (declare (not safe)) - (##cdr _e246288246307_)))) + (##cdr _e248883248902_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl246286246312_)) - (let ((_g252699_ + (gx#stx-pair/null? _tl248881248907_)) + (let ((_g255394_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl246286246312_ + _tl248881248907_ '0)))) (begin - (let ((_g252700_ + (let ((_g255395_ (let () (declare (not safe)) - (if (##values? _g252699_) - (##vector-length _g252699_) + (if (##values? _g255394_) + (##vector-length _g255394_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g252700_ 2))) + (##fx= _g255395_ 2))) (error "Context expects 2 values" - _g252700_))) - (let ((_target246289246315_ + _g255395_))) + (let ((_target248884248910_ (let () (declare (not safe)) - (##vector-ref _g252699_ 0))) - (_tl246291246317_ + (##vector-ref _g255394_ 0))) + (_tl248886248912_ (let () (declare (not safe)) - (##vector-ref _g252699_ 1)))) + (##vector-ref _g255394_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246291246317_)) - (letrec ((_loop246292246320_ - (lambda (_hd246290246323_ - _clause246296246325_) + (gx#stx-null? _tl248886248912_)) + (letrec ((_loop248887248915_ + (lambda (_hd248885248918_ + _clause248891248920_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd246290246323_)) - (let ((_e246293246328_ + _hd248885248918_)) + (let ((_e248888248923_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd246290246323_)))) - (let ((_lp-hd246294246331_ - (let () (declare (not safe)) (##car _e246293246328_))) - (_lp-tl246295246333_ - (let () (declare (not safe)) (##cdr _e246293246328_)))) - (let ((__tmp252702 + (gx#stx-e _hd248885248918_)))) + (let ((_lp-hd248889248926_ + (let () (declare (not safe)) (##car _e248888248923_))) + (_lp-tl248890248928_ + (let () (declare (not safe)) (##cdr _e248888248923_)))) + (let ((__tmp255397 (let () (declare (not safe)) - (cons _lp-hd246294246331_ _clause246296246325_)))) + (cons _lp-hd248889248926_ _clause248891248920_)))) (declare (not safe)) - (_loop246292246320_ _lp-tl246295246333_ __tmp252702)))) - (let ((_clause246297246336_ (reverse _clause246296246325_))) - ((lambda (_L246339_) + (_loop248887248915_ _lp-tl248890248928_ __tmp255397)))) + (let ((_clause248892248931_ (reverse _clause248891248920_))) + ((lambda (_L248934_) (for-each - (lambda (_clause246352_) - (let* ((_g246354246365_ - (lambda (_g246355246362_) + (lambda (_clause248947_) + (let* ((_g248949248960_ + (lambda (_g248950248957_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g246355246362_)))) - (_g246353246397_ - (lambda (_g246355246368_) + _g248950248957_)))) + (_g248948248992_ + (lambda (_g248950248963_) (if (let () (declare (not safe)) - (gx#stx-pair? _g246355246368_)) - (let ((_e246360246370_ + (gx#stx-pair? _g248950248963_)) + (let ((_e248955248965_ (let () (declare (not safe)) - (gx#stx-e _g246355246368_)))) - (let ((_hd246359246373_ + (gx#stx-e _g248950248963_)))) + (let ((_hd248954248968_ (let () (declare (not safe)) - (##car _e246360246370_))) - (_tl246358246375_ + (##car _e248955248965_))) + (_tl248953248970_ (let () (declare (not safe)) - (##cdr _e246360246370_)))) - ((lambda (_L246378_ _L246379_) - (let ((_self246391_ + (##cdr _e248955248965_)))) + ((lambda (_L248973_ _L248974_) + (let ((_self248986_ (list-ref - _L246379_ - _self-index245918_))) + _L248974_ + _self-index248513_))) (for-each - (lambda (_g246392246394_) + (lambda (_g248987248989_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g246392246394_ - _self246391_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check243626_ - _struct-type-assert243627_))) - _L246378_))) - _tl246358246375_ - _hd246359246373_))) + _g248987248989_ + _self248986_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check246221_ + _struct-type-assert246222_))) + _L248973_))) + _tl248953248970_ + _hd248954248968_))) (let () (declare (not safe)) - (_g246354246365_ _g246355246368_)))))) + (_g248949248960_ _g248950248963_)))))) (declare (not safe)) - (_g246353246397_ _clause246352_))) - (let ((__tmp252701 - (lambda (_g246399246402_ _g246400246404_) + (_g248948248992_ _clause248947_))) + (let ((__tmp255396 + (lambda (_g248994248997_ _g248995248999_) (let () (declare (not safe)) - (cons _g246399246402_ _g246400246404_))))) + (cons _g248994248997_ _g248995248999_))))) (declare (not safe)) - (foldr1 __tmp252701 '() _L246339_)))) - _clause246297246336_)))))) + (foldr1 __tmp255396 '() _L248934_)))) + _clause248892248931_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop246292246320_ - _target246289246315_ + (_loop248887248915_ + _target248884248910_ '()))) (let () (declare (not safe)) - (_g246283246302_ _g246284246305_)))))) + (_g248878248897_ _g248879248900_)))))) (let () (declare (not safe)) - (_g246283246302_ _g246284246305_))))) + (_g248878248897_ _g248879248900_))))) (let () (declare (not safe)) - (_g246283246302_ _g246284246305_)))))) + (_g248878248897_ _g248879248900_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g246282246407_ _L246200_)) + (_g248877249002_ _L248795_)) (if (let () (declare (not safe)) - (_no-specializer?243630_)) - _stx243529_ - (let* ((_specializer-id246416_ - (let* ((_id246410_ + (_no-specializer?246225_)) + _stx246124_ + (let* ((_specializer-id249011_ + (let* ((_id249005_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp252703 + (let ((__tmp255398 (let () (declare (not safe)) - (gx#stx-e _L243604_)))) + (gx#stx-e _L246199_)))) (declare (not safe)) - (make-symbol__1 __tmp252703 '"::specialize"))) - (_specializer-id246413_ - (let ((__tmp252704 + (make-symbol__1 __tmp255398 '"::specialize"))) + (_specializer-id249008_ + (let ((__tmp255399 (let () (declare (not safe)) - (gx#stx-source _stx243529_)))) + (gx#stx-source _stx246124_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id246410_ __tmp252704)))) + (gx#core-quote-syntax__1 _id249005_ __tmp255399)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id246413_)) - _specializer-id246413_)) - (_lifted-specializer-id246423_ + (gx#core-bind-runtime!__0 _specializer-id249008_)) + _specializer-id249008_)) + (_lifted-specializer-id249018_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?243632_)) - (let* ((_id246418_ - (let ((__tmp252705 + (_lift-unchecked-specializer?246227_)) + (let* ((_id249013_ + (let ((__tmp255400 (let () (declare (not safe)) - (gx#stx-e _L243604_)))) + (gx#stx-e _L246199_)))) (declare (not safe)) (make-symbol__1 - __tmp252705 + __tmp255400 '"::specialize::unchecked"))) - (_lifted-specializer-id246420_ - (let ((__tmp252706 + (_lifted-specializer-id249015_ + (let ((__tmp255401 (let () (declare (not safe)) - (gx#stx-source _stx243529_)))) + (gx#stx-source _stx246124_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id246418_ - __tmp252706)))) + _id249013_ + __tmp255401)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lifted-specializer-id246420_)) - _lifted-specializer-id246420_) + _lifted-specializer-id249015_)) + _lifted-specializer-id249015_) '#f)) - (_$t246425_ - (let ((__tmp252707 (gensym '__t))) + (_$t249020_ + (let ((__tmp255402 (gensym '__t))) (declare (not safe)) - (make-symbol__0 __tmp252707))) - (_methods246427_ + (make-symbol__0 __tmp255402))) + (_methods249022_ (let () (declare (not safe)) - (hash-keys _method-calls243623_))) - (_$methods246431_ - (map (lambda (_id246429_) - (let ((__tmp252708 (gensym _id246429_))) + (hash-keys _method-calls246218_))) + (_$methods249026_ + (map (lambda (_id249024_) + (let ((__tmp255403 (gensym _id249024_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp252708))) - _methods246427_)) - (_g252709_ + (make-symbol__1 '"__" __tmp255403))) + _methods249022_)) + (_g255404_ (for-each - (lambda (_g246432246435_ _g246433246437_) + (lambda (_g249027249030_ _g249028249032_) (let () (declare (not safe)) (table-set! - _method-calls243623_ - _g246432246435_ - _g246433246437_))) - _methods246427_ - _$methods246431_)) - (_methods-bind246448_ - (map (lambda (_g246440246443_ _g246441246445_) + _method-calls246218_ + _g249027249030_ + _g249028249032_))) + _methods249022_ + _$methods249026_)) + (_methods-bind249043_ + (map (lambda (_g249035249038_ _g249036249040_) (let () (declare (not safe)) - (_generate-method-bind243531_ - _$t246425_ - _g246440246443_ - _g246441246445_))) - _methods246427_ - _$methods246431_)) - (_slots246450_ - (let () (declare (not safe)) (hash-keys _slot-refs243624_))) - (_$slots246454_ - (map (lambda (_id246452_) - (let ((__tmp252710 (gensym _id246452_))) + (_generate-method-bind246126_ + _$t249020_ + _g249035249038_ + _g249036249040_))) + _methods249022_ + _$methods249026_)) + (_slots249045_ + (let () (declare (not safe)) (hash-keys _slot-refs246219_))) + (_$slots249049_ + (map (lambda (_id249047_) + (let ((__tmp255405 (gensym _id249047_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp252710))) - _slots246450_)) - (_g252711_ + (make-symbol__1 '"__" __tmp255405))) + _slots249045_)) + (_g255406_ (for-each - (lambda (_g246455246458_ _g246456246460_) + (lambda (_g249050249053_ _g249051249055_) (let () (declare (not safe)) (table-set! - _slot-refs243624_ - _g246455246458_ - _g246456246460_))) - _slots246450_ - _$slots246454_)) - (_slots-bind246471_ - (map (lambda (_g246463246466_ _g246464246468_) + _slot-refs246219_ + _g249050249053_ + _g249051249055_))) + _slots249045_ + _$slots249049_)) + (_slots-bind249066_ + (map (lambda (_g249058249061_ _g249059249063_) (let () (declare (not safe)) - (_generate-slot-bind243532_ - _$t246425_ - _g246463246466_ - _g246464246468_))) - _slots246450_ - _$slots246454_)) - (_class-check246473_ + (_generate-slot-bind246127_ + _$t249020_ + _g249058249061_ + _g249059249063_))) + _slots249045_ + _$slots249049_)) + (_class-check249068_ (let () (declare (not safe)) - (hash-keys _class-type-check243625_))) - (_$class-check246476_ - (map (lambda (_g252712_) - (let ((__tmp252713 (gensym '__class))) + (hash-keys _class-type-check246220_))) + (_$class-check249071_ + (map (lambda (_g255407_) + (let ((__tmp255408 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp252713))) - _class-check246473_)) - (_g252714_ + (make-symbol__0 __tmp255408))) + _class-check249068_)) + (_g255409_ (for-each - (lambda (_g246477246480_ _g246478246482_) + (lambda (_g249072249075_ _g249073249077_) (let () (declare (not safe)) (table-set! - _class-type-check243625_ - _g246477246480_ - _g246478246482_))) - _class-check246473_ - _$class-check246476_)) - (_class-check-bind246493_ - (map (lambda (_g246485246488_ _g246486246490_) + _class-type-check246220_ + _g249072249075_ + _g249073249077_))) + _class-check249068_ + _$class-check249071_)) + (_class-check-bind249088_ + (map (lambda (_g249080249083_ _g249081249085_) (let () (declare (not safe)) - (_generate-class-check-bind243533_ - _$t246425_ - _g246485246488_ - _g246486246490_))) - _class-check246473_ - _$class-check246476_)) - (_struct-check-all246495_ + (_generate-class-check-bind246128_ + _$t249020_ + _g249080249083_ + _g249081249085_))) + _class-check249068_ + _$class-check249071_)) + (_struct-check-all249090_ (let () (declare (not safe)) (hash-merge - _struct-type-check243626_ - _struct-type-assert243627_))) - (_struct-check246497_ + _struct-type-check246221_ + _struct-type-assert246222_))) + (_struct-check249092_ (let () (declare (not safe)) - (hash-keys _struct-check-all246495_))) - (_$struct-check246500_ - (map (lambda (_g252715_) - (let ((__tmp252716 (gensym '__class))) + (hash-keys _struct-check-all249090_))) + (_$struct-check249095_ + (map (lambda (_g255410_) + (let ((__tmp255411 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp252716))) - _struct-check246497_)) - (_g252717_ + (make-symbol__0 __tmp255411))) + _struct-check249092_)) + (_g255412_ (for-each - (lambda (_g246501246504_ _g246502246506_) + (lambda (_g249096249099_ _g249097249101_) (let () (declare (not safe)) (table-set! - _struct-check-all246495_ - _g246501246504_ - _g246502246506_))) - _struct-check246497_ - _$struct-check246500_)) - (_struct-check-bind246517_ - (map (lambda (_g246509246512_ _g246510246514_) + _struct-check-all249090_ + _g249096249099_ + _g249097249101_))) + _struct-check249092_ + _$struct-check249095_)) + (_struct-check-bind249112_ + (map (lambda (_g249104249107_ _g249105249109_) (let () (declare (not safe)) - (_generate-struct-check-bind243534_ - _$t246425_ - _g246509246512_ - _g246510246514_))) - _struct-check246497_ - _$struct-check246500_)) - (_make-specializer-lambda-expr246603_ - (lambda (_struct-type-check1246519_ - _struct-type-check2246520_) - (let* ((_g246522246536_ - (lambda (_g246523246533_) + (_generate-struct-check-bind246129_ + _$t249020_ + _g249104249107_ + _g249105249109_))) + _struct-check249092_ + _$struct-check249095_)) + (_make-specializer-lambda-expr249198_ + (lambda (_struct-type-check1249114_ + _struct-type-check2249115_) + (let* ((_g249117249131_ + (lambda (_g249118249128_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g246523246533_)))) - (_g246521246600_ - (lambda (_g246523246539_) + _g249118249128_)))) + (_g249116249195_ + (lambda (_g249118249134_) (if (let () (declare (not safe)) - (gx#stx-pair? _g246523246539_)) - (let ((_e246528246541_ + (gx#stx-pair? _g249118249134_)) + (let ((_e249123249136_ (let () (declare (not safe)) - (gx#stx-e _g246523246539_)))) - (let ((_hd246527246544_ + (gx#stx-e _g249118249134_)))) + (let ((_hd249122249139_ (let () (declare (not safe)) - (##car _e246528246541_))) - (_tl246526246546_ + (##car _e249123249136_))) + (_tl249121249141_ (let () (declare (not safe)) - (##cdr _e246528246541_)))) + (##cdr _e249123249136_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246526246546_)) - (let ((_e246531246549_ + (gx#stx-pair? _tl249121249141_)) + (let ((_e249126249144_ (let () (declare (not safe)) (gx#stx-e - _tl246526246546_)))) - (let ((_hd246530246552_ + _tl249121249141_)))) + (let ((_hd249125249147_ (let () (declare (not safe)) - (##car _e246531246549_))) - (_tl246529246554_ + (##car _e249126249144_))) + (_tl249124249149_ (let () (declare (not safe)) - (##cdr _e246531246549_)))) - ((lambda (_L246557_ _L246558_) - (let* ((_self246591_ + (##cdr _e249126249144_)))) + ((lambda (_L249152_ _L249153_) + (let* ((_self249186_ (list-ref - _L246558_ - _self-index245918_)) - (_body246597_ - (map (lambda (_g246592246594_) + _L249153_ + _self-index248513_)) + (_body249192_ + (map (lambda (_g249187249189_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gxc#apply-subst-object-refs - _g246592246594_ - _self246591_ - _$t246425_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check1246519_ - _struct-type-check2246520_))) - _L246557_))) + _g249187249189_ + _self249186_ + _$t249020_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check1249114_ + _struct-type-check2249115_))) + _L249152_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp252718 - (let ((__tmp252719 + (let ((__tmp255413 + (let ((__tmp255414 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L246558_ _body246597_)))) + (cons _L249153_ _body249192_)))) (declare (not safe)) - (cons '%#lambda __tmp252719)))) + (cons '%#lambda __tmp255414)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp252718 - _L246201_)))) - _tl246529246554_ - _hd246530246552_))) + __tmp255413 + _L248796_)))) + _tl249124249149_ + _hd249125249147_))) (let () (declare (not safe)) - (_g246522246536_ - _g246523246539_))))) + (_g249117249131_ + _g249118249134_))))) (let () (declare (not safe)) - (_g246522246536_ _g246523246539_)))))) + (_g249117249131_ _g249118249134_)))))) (declare (not safe)) - (_g246521246600_ _L246201_)))) - (_make-specializer-case-lambda-expr246742_ - (lambda (_struct-type-check1246605_ - _struct-type-check2246606_) - (let* ((_g246608246627_ - (lambda (_g246609246624_) + (_g249116249195_ _L248796_)))) + (_make-specializer-case-lambda-expr249337_ + (lambda (_struct-type-check1249200_ + _struct-type-check2249201_) + (let* ((_g249203249222_ + (lambda (_g249204249219_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g246609246624_)))) - (_g246607246739_ - (lambda (_g246609246630_) + _g249204249219_)))) + (_g249202249334_ + (lambda (_g249204249225_) (if (let () (declare (not safe)) - (gx#stx-pair? _g246609246630_)) - (let ((_e246613246632_ + (gx#stx-pair? _g249204249225_)) + (let ((_e249208249227_ (let () (declare (not safe)) - (gx#stx-e _g246609246630_)))) - (let ((_hd246612246635_ + (gx#stx-e _g249204249225_)))) + (let ((_hd249207249230_ (let () (declare (not safe)) - (##car _e246613246632_))) - (_tl246611246637_ + (##car _e249208249227_))) + (_tl249206249232_ (let () (declare (not safe)) - (##cdr _e246613246632_)))) + (##cdr _e249208249227_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl246611246637_)) - (let ((_g252720_ + _tl249206249232_)) + (let ((_g255415_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl246611246637_ + _tl249206249232_ '0)))) (begin - (let ((_g252721_ + (let ((_g255416_ (let () (declare (not safe)) (if (##values? - _g252720_) + _g255415_) (##vector-length - _g252720_) + _g255415_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g252721_ + (##fx= _g255416_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g252721_))) - (let ((_target246614246640_ + _g255416_))) + (let ((_target249209249235_ (let () (declare (not safe)) (##vector-ref - _g252720_ + _g255415_ 0))) - (_tl246616246642_ + (_tl249211249237_ (let () (declare (not safe)) (##vector-ref - _g252720_ + _g255415_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246616246642_)) - (letrec ((_loop246617246645_ - (lambda (_hd246615246648_ + _tl249211249237_)) + (letrec ((_loop249212249240_ + (lambda (_hd249210249243_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause246621246650_) + _clause249216249245_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246615246648_)) - (let ((_e246618246653_ + (gx#stx-pair? _hd249210249243_)) + (let ((_e249213249248_ (let () (declare (not safe)) - (gx#stx-e _hd246615246648_)))) - (let ((_lp-hd246619246656_ + (gx#stx-e _hd249210249243_)))) + (let ((_lp-hd249214249251_ (let () (declare (not safe)) - (##car _e246618246653_))) - (_lp-tl246620246658_ + (##car _e249213249248_))) + (_lp-tl249215249253_ (let () (declare (not safe)) - (##cdr _e246618246653_)))) - (let ((__tmp252724 + (##cdr _e249213249248_)))) + (let ((__tmp255419 (let () (declare (not safe)) - (cons _lp-hd246619246656_ - _clause246621246650_)))) + (cons _lp-hd249214249251_ + _clause249216249245_)))) (declare (not safe)) - (_loop246617246645_ - _lp-tl246620246658_ - __tmp252724)))) - (let ((_clause246622246661_ - (reverse _clause246621246650_))) - ((lambda (_L246664_) - (let* ((_clauses246737_ - (map (lambda (_clause246679_) - (let* ((_g246681246692_ - (lambda (_g246682246689_) + (_loop249212249240_ + _lp-tl249215249253_ + __tmp255419)))) + (let ((_clause249217249256_ + (reverse _clause249216249245_))) + ((lambda (_L249259_) + (let* ((_clauses249332_ + (map (lambda (_clause249274_) + (let* ((_g249276249287_ + (lambda (_g249277249284_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g246682246689_)))) - (_g246680246727_ - (lambda (_g246682246695_) + _g249277249284_)))) + (_g249275249322_ + (lambda (_g249277249290_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _g246682246695_)) - (let ((_e246687246697_ + (gx#stx-pair? _g249277249290_)) + (let ((_e249282249292_ (let () (declare (not safe)) - (gx#stx-e _g246682246695_)))) - (let ((_hd246686246700_ + (gx#stx-e _g249277249290_)))) + (let ((_hd249281249295_ (let () (declare (not safe)) - (##car _e246687246697_))) - (_tl246685246702_ + (##car _e249282249292_))) + (_tl249280249297_ (let () (declare (not safe)) - (##cdr _e246687246697_)))) - ((lambda (_L246705_ _L246706_) - (let* ((_self246718_ - (list-ref _L246706_ _self-index245918_)) - (_body246724_ - (map (lambda (_g246719246721_) + (##cdr _e249282249292_)))) + ((lambda (_L249300_ _L249301_) + (let* ((_self249313_ + (list-ref _L249301_ _self-index248513_)) + (_body249319_ + (map (lambda (_g249314249316_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g246719246721_ - _self246718_ - _$t246425_ - _method-calls243623_ - _slot-refs243624_ - _class-type-check243625_ - _struct-type-check1246605_ - _struct-type-check2246606_))) - _L246705_))) + _g249314249316_ + _self249313_ + _$t249020_ + _method-calls246218_ + _slot-refs246219_ + _class-type-check246220_ + _struct-type-check1249200_ + _struct-type-check2249201_))) + _L249300_))) (let () (declare (not safe)) - (cons _L246706_ _body246724_)))) - _tl246685246702_ - _hd246686246700_))) + (cons _L249301_ _body249319_)))) + _tl249280249297_ + _hd249281249295_))) (let () (declare (not safe)) - (_g246681246692_ _g246682246695_)))))) + (_g249276249287_ _g249277249290_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g246680246727_ - _clause246679_))) - (let ((__tmp252722 - (lambda (_g246729246732_ - _g246730246734_) + (_g249275249322_ + _clause249274_))) + (let ((__tmp255417 + (lambda (_g249324249327_ + _g249325249329_) (let () (declare (not safe)) - (cons _g246729246732_ - _g246730246734_))))) + (cons _g249324249327_ + _g249325249329_))))) (declare (not safe)) - (foldr1 __tmp252722 + (foldr1 __tmp255417 '() - _L246664_)))) - (__tmp252723 + _L249259_)))) + (__tmp255418 (let () (declare (not safe)) (cons '%#case-lambda - _clauses246737_)))) + _clauses249332_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp252723 - _L246200_))) - _clause246622246661_)))))) + __tmp255418 + _L248795_))) + _clause249217249256_)))))) (let () (declare (not safe)) - (_loop246617246645_ _target246614246640_ '()))) + (_loop249212249240_ _target249209249235_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g246608246627_ - _g246609246630_)))))) + (_g249203249222_ + _g249204249225_)))))) (let () (declare (not safe)) - (_g246608246627_ - _g246609246630_))))) + (_g249203249222_ + _g249204249225_))))) (let () (declare (not safe)) - (_g246608246627_ _g246609246630_)))))) + (_g249203249222_ _g249204249225_)))))) (declare (not safe)) - (_g246607246739_ _L246200_)))) - (_make-specializer-impl246747_ - (lambda (_specializer-lambda-expr246744_ - _specializer-case-lambda-expr246745_) - (let ((__tmp252725 - (let ((__tmp252726 - (let ((__tmp252728 - (let ((__tmp252729 - (let ((__tmp252746 + (_g249202249334_ _L248795_)))) + (_make-specializer-impl249342_ + (lambda (_specializer-lambda-expr249339_ + _specializer-case-lambda-expr249340_) + (let ((__tmp255420 + (let ((__tmp255421 + (let ((__tmp255423 + (let ((__tmp255424 + (let ((__tmp255441 (let () (declare (not safe)) - (cons _L245619_ '()))) - (__tmp252730 - (let ((__tmp252731 - (let ((__tmp252732 + (cons _L248214_ '()))) + (__tmp255425 + (let ((__tmp255426 + (let ((__tmp255427 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp252734 - (let ((__tmp252735 - (let ((__tmp252745 + (let ((__tmp255429 + (let ((__tmp255430 + (let ((__tmp255440 (let () (declare (not safe)) - (cons _L245618_ '()))) - (__tmp252736 - (let ((__tmp252737 - (let ((__tmp252738 - (let ((__tmp252739 + (cons _L248213_ '()))) + (__tmp255431 + (let ((__tmp255432 + (let ((__tmp255433 + (let ((__tmp255434 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp252741 - (let ((__tmp252742 - (let ((__tmp252744 + (let ((__tmp255436 + (let ((__tmp255437 + (let ((__tmp255439 (let () (declare (not safe)) - (cons _L246202_ '()))) - (__tmp252743 + (cons _L248797_ '()))) + (__tmp255438 (let () (declare (not safe)) - (cons _specializer-lambda-expr246744_ + (cons _specializer-lambda-expr249339_ '())))) (declare (not safe)) - (cons __tmp252744 - __tmp252743)))) + (cons __tmp255439 + __tmp255438)))) (declare (not safe)) - (cons __tmp252742 '()))) - (__tmp252740 + (cons __tmp255437 '()))) + (__tmp255435 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr246745_ + (cons _specializer-case-lambda-expr249340_ '())))) (declare (not safe)) - (cons __tmp252741 __tmp252740)))) + (cons __tmp255436 __tmp255435)))) (declare (not safe)) - (cons '%#let-values __tmp252739)))) + (cons '%#let-values __tmp255434)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252738 _stx243529_)))) + (gxc#xform-wrap-source __tmp255433 _stx246124_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252737 '())))) + (cons __tmp255432 '())))) (declare (not safe)) - (cons __tmp252745 __tmp252736)))) + (cons __tmp255440 __tmp255431)))) (declare (not safe)) - (cons __tmp252735 '()))) - (__tmp252733 + (cons __tmp255430 '()))) + (__tmp255428 (let () (declare (not safe)) - (cons _L245616_ '())))) + (cons _L248211_ '())))) (declare (not safe)) - (cons __tmp252734 __tmp252733)))) + (cons __tmp255429 __tmp255428)))) (declare (not safe)) - (cons '%#let-values __tmp252732)))) + (cons '%#let-values __tmp255427)))) (declare (not safe)) - (cons __tmp252731 '())))) + (cons __tmp255426 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252746 - __tmp252730)))) + (cons __tmp255441 + __tmp255425)))) (declare (not safe)) - (cons __tmp252729 '()))) - (__tmp252727 + (cons __tmp255424 '()))) + (__tmp255422 (let () (declare (not safe)) - (cons _L245615_ '())))) + (cons _L248210_ '())))) (declare (not safe)) - (cons __tmp252728 __tmp252727)))) + (cons __tmp255423 __tmp255422)))) (declare (not safe)) - (cons '%#let-values __tmp252726)))) + (cons '%#let-values __tmp255421)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252725 _stx243529_)))) - (_specializer-lambda-expr246749_ + (gxc#xform-wrap-source __tmp255420 _stx246124_)))) + (_specializer-lambda-expr249344_ (let () (declare (not safe)) - (_make-specializer-lambda-expr246603_ - _struct-check-all246495_ - _empty243628_))) - (_specializer-case-lambda-expr246751_ + (_make-specializer-lambda-expr249198_ + _struct-check-all249090_ + _empty246223_))) + (_specializer-case-lambda-expr249346_ (let () (declare (not safe)) - (_make-specializer-case-lambda-expr246742_ - _struct-check-all246495_ - _empty243628_))) - (_specializer-impl246753_ + (_make-specializer-case-lambda-expr249337_ + _struct-check-all249090_ + _empty246223_))) + (_specializer-impl249348_ (let () (declare (not safe)) - (_make-specializer-impl246747_ - _specializer-lambda-expr246749_ - _specializer-case-lambda-expr246751_))) - (_unchecked-specializer-lambda-expr246755_ + (_make-specializer-impl249342_ + _specializer-lambda-expr249344_ + _specializer-case-lambda-expr249346_))) + (_unchecked-specializer-lambda-expr249350_ (if (let () (declare (not safe)) - (_unchecked-specializer?243631_)) + (_unchecked-specializer?246226_)) (let () (declare (not safe)) - (_make-specializer-lambda-expr246603_ - _empty243628_ - _struct-check-all246495_)) + (_make-specializer-lambda-expr249198_ + _empty246223_ + _struct-check-all249090_)) '#f)) - (_unchecked-specializer-case-lambda-expr246757_ + (_unchecked-specializer-case-lambda-expr249352_ (if (let () (declare (not safe)) - (_unchecked-specializer?243631_)) + (_unchecked-specializer?246226_)) (let () (declare (not safe)) - (_make-specializer-case-lambda-expr246742_ - _empty243628_ - _struct-check-all246495_)) + (_make-specializer-case-lambda-expr249337_ + _empty246223_ + _struct-check-all249090_)) '#f)) - (_unchecked-specializer-impl246759_ + (_unchecked-specializer-impl249354_ (if (let () (declare (not safe)) - (_unchecked-specializer?243631_)) + (_unchecked-specializer?246226_)) (let () (declare (not safe)) - (_make-specializer-impl246747_ - _unchecked-specializer-lambda-expr246755_ - _unchecked-specializer-case-lambda-expr246757_)) + (_make-specializer-impl249342_ + _unchecked-specializer-lambda-expr249350_ + _unchecked-specializer-case-lambda-expr249352_)) '#f)) - (_specializer-impl246761_ + (_specializer-impl249356_ (let () (declare (not safe)) - (_generate-specializer-impl243535_ - _$t246425_ - _methods-bind246448_ - _slots-bind246471_ - _class-check-bind246493_ - _struct-check-bind246517_ - _specializer-impl246753_ - _lifted-specializer-id246423_ - _unchecked-specializer-impl246759_)))) + (_generate-specializer-impl246130_ + _$t249020_ + _methods-bind249043_ + _slots-bind249066_ + _class-check-bind249088_ + _struct-check-bind249112_ + _specializer-impl249348_ + _lifted-specializer-id249018_ + _unchecked-specializer-impl249354_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp252748 + (let ((__tmp255443 (let () (declare (not safe)) (gx#stx-e - _L243604_))) - (__tmp252747 + _L246199_))) + (__tmp255442 (let () (declare (not safe)) (gx#stx-e - _specializer-id246416_)))) + _specializer-id249011_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp252748 + __tmp255443 '" => " - __tmp252747)) + __tmp255442)) (let () (declare (not safe)) - (_generate-specializer-def243536_ - _L243604_ - _specializer-id246416_ - _specializer-impl246761_ - _lifted-specializer-id246423_ - _unchecked-specializer-impl246759_))))) - _hd246133246195_ - _hd246130246187_ - _hd246127246179_) + (_generate-specializer-def246131_ + _L246199_ + _specializer-id249011_ + _specializer-impl249356_ + _lifted-specializer-id249018_ + _unchecked-specializer-impl249354_))))) + _hd248728248790_ + _hd248725248782_ + _hd248722248774_) (let () (declare (not safe)) - (_g246109246139_ - _g246110246142_))))) + (_g248704248734_ + _g248705248737_))))) (let () (declare (not safe)) - (_g246109246139_ _g246110246142_))) + (_g248704248734_ _g248705248737_))) (let () (declare (not safe)) - (_g246109246139_ _g246110246142_))) + (_g248704248734_ _g248705248737_))) (let () (declare (not safe)) - (_g246109246139_ _g246110246142_))))) + (_g248704248734_ _g248705248737_))))) (let () (declare (not safe)) - (_g246109246139_ _g246110246142_))) + (_g248704248734_ _g248705248737_))) (let () (declare (not safe)) - (_g246109246139_ _g246110246142_))))) + (_g248704248734_ _g248705248737_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g246109246139_ - _g246110246142_))))) + (_g248704248734_ + _g248705248737_))))) (let () (declare (not safe)) - (_g246109246139_ _g246110246142_))))) + (_g248704248734_ _g248705248737_))))) (let () (declare (not safe)) - (_g246109246139_ _g246110246142_))))) + (_g248704248734_ _g248705248737_))))) (let () (declare (not safe)) - (_g246109246139_ _g246110246142_))))) + (_g248704248734_ _g248705248737_))))) (let () (declare (not safe)) - (_g246109246139_ _g246110246142_)))))) + (_g248704248734_ _g248705248737_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g246108246764_ _L245617_)) - _stx243529_)))) - _hd245714245837_ - _kw-ref245712245858_ - _hd245702245824_ - _hd245693245800_ - _hd245684245776_) + (_g248703249359_ _L248212_)) + _stx246124_)))) + _hd248309248432_ + _kw-ref248307248453_ + _hd248297248419_ + _hd248288248395_ + _hd248279248371_) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_)))))))) + (_g248253248315_ _g248254248318_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop245707245842_ - _target245704245829_ + (_loop248302248437_ + _target248299248424_ '()))) (let () (declare (not safe)) - (_g245658245720_ - _g245659245723_))))) + (_g248253248315_ + _g248254248318_))))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_)))))) + (_g248253248315_ _g248254248318_)))))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))) + (_g248253248315_ _g248254248318_))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))) + (_g248253248315_ _g248254248318_))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))))) + (_g248253248315_ _g248254248318_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245658245720_ - _g245659245723_))) + (_g248253248315_ + _g248254248318_))) (let () (declare (not safe)) - (_g245658245720_ - _g245659245723_))) + (_g248253248315_ + _g248254248318_))) (let () (declare (not safe)) - (_g245658245720_ - _g245659245723_))))) + (_g248253248315_ + _g248254248318_))))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))))) + (_g248253248315_ _g248254248318_))))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))) + (_g248253248315_ _g248254248318_))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))))) + (_g248253248315_ _g248254248318_))))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))) + (_g248253248315_ _g248254248318_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245658245720_ - _g245659245723_))) + (_g248253248315_ + _g248254248318_))) (let () (declare (not safe)) - (_g245658245720_ - _g245659245723_))))) + (_g248253248315_ + _g248254248318_))))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))))) + (_g248253248315_ _g248254248318_))))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))) + (_g248253248315_ _g248254248318_))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))))) + (_g248253248315_ _g248254248318_))))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))) + (_g248253248315_ _g248254248318_))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))) + (_g248253248315_ _g248254248318_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245658245720_ - _g245659245723_))))) + (_g248253248315_ + _g248254248318_))))) (let () (declare (not safe)) - (_g245658245720_ - _g245659245723_))))) + (_g248253248315_ + _g248254248318_))))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))) + (_g248253248315_ _g248254248318_))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))) + (_g248253248315_ _g248254248318_))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))))) + (_g248253248315_ _g248254248318_))))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))))) + (_g248253248315_ _g248254248318_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245658245720_ - _g245659245723_))))) + (_g248253248315_ + _g248254248318_))))) (let () (declare (not safe)) - (_g245658245720_ - _g245659245723_))) + (_g248253248315_ + _g248254248318_))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))) + (_g248253248315_ _g248254248318_))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_))))) + (_g248253248315_ _g248254248318_))))) (let () (declare (not safe)) - (_g245658245720_ _g245659245723_)))))) + (_g248253248315_ _g248254248318_)))))) (declare (not safe)) - (_g245657246767_ _L245616_))) + (_g248252249362_ _L248211_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd245492245610_ - _hd245489245602_ - _hd245486245594_ - _hd245483245586_ - _hd245465245538_) + _hd248087248205_ + _hd248084248197_ + _hd248081248189_ + _hd248078248181_ + _hd248060248133_) (let () (declare (not safe)) - (_g245445245498_ - _g245446245501_))))) + (_g248040248093_ + _g248041248096_))))) (let () (declare (not safe)) - (_g245445245498_ - _g245446245501_))) + (_g248040248093_ + _g248041248096_))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))) + (_g248040248093_ _g248041248096_))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))) + (_g248040248093_ _g248041248096_))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))))) + (_g248040248093_ _g248041248096_))))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))) + (_g248040248093_ _g248041248096_))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))) + (_g248040248093_ _g248041248096_))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))))) + (_g248040248093_ _g248041248096_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245445245498_ - _g245446245501_))) + (_g248040248093_ + _g248041248096_))) (let () (declare (not safe)) - (_g245445245498_ - _g245446245501_))))) + (_g248040248093_ + _g248041248096_))))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))))) + (_g248040248093_ _g248041248096_))))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))))) + (_g248040248093_ _g248041248096_))))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))))) + (_g248040248093_ _g248041248096_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245445245498_ - _g245446245501_))) + (_g248040248093_ + _g248041248096_))) (let () (declare (not safe)) - (_g245445245498_ - _g245446245501_))) + (_g248040248093_ + _g248041248096_))) (let () (declare (not safe)) - (_g245445245498_ - _g245446245501_))))) + (_g248040248093_ + _g248041248096_))))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))))) + (_g248040248093_ _g248041248096_))))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))) + (_g248040248093_ _g248041248096_))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))))) + (_g248040248093_ _g248041248096_))))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))))) + (_g248040248093_ _g248041248096_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g245445245498_ - _g245446245501_))))) + (_g248040248093_ + _g248041248096_))))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))))) + (_g248040248093_ _g248041248096_))))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))) + (_g248040248093_ _g248041248096_))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))) + (_g248040248093_ _g248041248096_))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_))))) + (_g248040248093_ _g248041248096_))))) (let () (declare (not safe)) - (_g245445245498_ _g245446245501_)))))) + (_g248040248093_ _g248041248096_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g245444246770_ _L243603_)) - _stx243529_)))))))) - (___kont251477251478_ (lambda () _stx243529_))) - (let ((___match251506251507_ - (lambda (_e243545243571_ - _hd243544243574_ - _tl243543243576_ - _e243548243579_ - _hd243547243582_ - _tl243546243584_ - _e243551243587_ - _hd243550243590_ - _tl243549243592_ - _e243554243595_ - _hd243553243598_ - _tl243552243600_) - (let ((_L243603_ _hd243553243598_) - (_L243604_ _hd243550243590_)) - (if (let ((__tmp252865 + (_g248039249365_ _L246198_)) + _stx246124_)))))))) + (___kont254172254173_ (lambda () _stx246124_))) + (let ((___match254201254202_ + (lambda (_e246140246166_ + _hd246139246169_ + _tl246138246171_ + _e246143246174_ + _hd246142246177_ + _tl246141246179_ + _e246146246182_ + _hd246145246185_ + _tl246144246187_ + _e246149246190_ + _hd246148246193_ + _tl246147246195_) + (let ((_L246198_ _hd246148246193_) + (_L246199_ _hd246145246185_)) + (if (let ((__tmp255560 (let () (declare (not safe)) - (gxc#identifier-symbol _L243604_)))) + (gxc#identifier-symbol _L246199_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp252865)) - (___kont251475251476_ _L243603_ _L243604_) - (___kont251477251478_)))))) + (gxc#optimizer-top-level-method? __tmp255560)) + (___kont254170254171_ _L246198_ _L246199_) + (___kont254172254173_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx251473251474_)) - (let ((_e243545243571_ + (gx#stx-pair? ___stx254168254169_)) + (let ((_e246140246166_ (let () (declare (not safe)) - (gx#stx-e ___stx251473251474_)))) - (let ((_tl243543243576_ + (gx#stx-e ___stx254168254169_)))) + (let ((_tl246138246171_ (let () (declare (not safe)) - (##cdr _e243545243571_))) - (_hd243544243574_ + (##cdr _e246140246166_))) + (_hd246139246169_ (let () (declare (not safe)) - (##car _e243545243571_)))) + (##car _e246140246166_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl243543243576_)) - (let ((_e243548243579_ + (gx#stx-pair? _tl246138246171_)) + (let ((_e246143246174_ (let () (declare (not safe)) - (gx#stx-e _tl243543243576_)))) - (let ((_tl243546243584_ + (gx#stx-e _tl246138246171_)))) + (let ((_tl246141246179_ (let () (declare (not safe)) - (##cdr _e243548243579_))) - (_hd243547243582_ + (##cdr _e246143246174_))) + (_hd246142246177_ (let () (declare (not safe)) - (##car _e243548243579_)))) + (##car _e246143246174_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd243547243582_)) - (let ((_e243551243587_ + (gx#stx-pair? _hd246142246177_)) + (let ((_e246146246182_ (let () (declare (not safe)) - (gx#stx-e _hd243547243582_)))) - (let ((_tl243549243592_ + (gx#stx-e _hd246142246177_)))) + (let ((_tl246144246187_ (let () (declare (not safe)) - (##cdr _e243551243587_))) - (_hd243550243590_ + (##cdr _e246146246182_))) + (_hd246145246185_ (let () (declare (not safe)) - (##car _e243551243587_)))) + (##car _e246146246182_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl243549243592_)) + (gx#stx-null? _tl246144246187_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl243546243584_)) - (let ((_e243554243595_ + _tl246141246179_)) + (let ((_e246149246190_ (let () (declare (not safe)) (gx#stx-e - _tl243546243584_)))) - (let ((_tl243552243600_ + _tl246141246179_)))) + (let ((_tl246147246195_ (let () (declare (not safe)) - (##cdr _e243554243595_))) - (_hd243553243598_ + (##cdr _e246149246190_))) + (_hd246148246193_ (let () (declare (not safe)) - (##car _e243554243595_)))) + (##car _e246149246190_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl243552243600_)) - (___match251506251507_ - _e243545243571_ - _hd243544243574_ - _tl243543243576_ - _e243548243579_ - _hd243547243582_ - _tl243546243584_ - _e243551243587_ - _hd243550243590_ - _tl243549243592_ - _e243554243595_ - _hd243553243598_ - _tl243552243600_) - (___kont251477251478_)))) - (___kont251477251478_)) - (___kont251477251478_)))) - (___kont251477251478_)))) - (___kont251477251478_)))) - (___kont251477251478_)))))))) + _tl246147246195_)) + (___match254201254202_ + _e246140246166_ + _hd246139246169_ + _tl246138246171_ + _e246143246174_ + _hd246142246177_ + _tl246141246179_ + _e246146246182_ + _hd246145246185_ + _tl246144246187_ + _e246149246190_ + _hd246148246193_ + _tl246147246195_) + (___kont254172254173_)))) + (___kont254172254173_)) + (___kont254172254173_)))) + (___kont254172254173_)))) + (___kont254172254173_)))) + (___kont254172254173_)))))))) (define gxc#collect-object-refs-call% - (lambda (_stx242505_ - _self242506_ - _methods242507_ - _slots242508_ - _class-check242509_ - _struct-check242510_ - _struct-assert242511_) - (let* ((___stx251509251510_ _stx242505_) - (_g242519242741_ + (lambda (_stx245100_ + _self245101_ + _methods245102_ + _slots245103_ + _class-check245104_ + _struct-check245105_ + _struct-assert245106_) + (let* ((___stx254204254205_ _stx245100_) + (_g245114245336_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx251509251510_))))) - (let ((___kont251511251512_ - (lambda (_L243478_ _L243479_ _L243480_ _L243481_) - (let ((__tmp252866 - (let () (declare (not safe)) (gx#stx-e _L243479_)))) + ___stx254204254205_))))) + (let ((___kont254206254207_ + (lambda (_L246073_ _L246074_ _L246075_ _L246076_) + (let ((__tmp255561 + (let () (declare (not safe)) (gx#stx-e _L246074_)))) (declare (not safe)) - (table-set! _methods242507_ __tmp252866 '#t)) + (table-set! _methods245102_ __tmp255561 '#t)) (for-each - (lambda (_g243514243516_) + (lambda (_g246109246111_) (let () (declare (not safe)) (gxc#compile-e__3 - _g243514243516_ - _self242506_ - _methods242507_ - _slots242508_ - _class-check242509_ - _struct-check242510_ - _struct-assert242511_))) - (let ((__tmp252867 - (lambda (_g243518243521_ _g243519243523_) + _g246109246111_ + _self245101_ + _methods245102_ + _slots245103_ + _class-check245104_ + _struct-check245105_ + _struct-assert245106_))) + (let ((__tmp255562 + (lambda (_g246113246116_ _g246114246118_) (let () (declare (not safe)) - (cons _g243518243521_ _g243519243523_))))) + (cons _g246113246116_ _g246114246118_))))) (declare (not safe)) - (foldr1 __tmp252867 '() _L243478_))))) - (___kont251515251516_ - (lambda (_L243313_ _L243314_ _L243315_ _L243316_ _L243317_) - (let ((__tmp252868 - (let () (declare (not safe)) (gx#stx-e _L243314_)))) + (foldr1 __tmp255562 '() _L246073_))))) + (___kont254210254211_ + (lambda (_L245908_ _L245909_ _L245910_ _L245911_ _L245912_) + (let ((__tmp255563 + (let () (declare (not safe)) (gx#stx-e _L245909_)))) (declare (not safe)) - (table-set! _methods242507_ __tmp252868 '#t)) + (table-set! _methods245102_ __tmp255563 '#t)) (for-each - (lambda (_g243357243359_) + (lambda (_g245952245954_) (let () (declare (not safe)) (gxc#compile-e__3 - _g243357243359_ - _self242506_ - _methods242507_ - _slots242508_ - _class-check242509_ - _struct-check242510_ - _struct-assert242511_))) - (let ((__tmp252869 - (lambda (_g243361243364_ _g243362243366_) + _g245952245954_ + _self245101_ + _methods245102_ + _slots245103_ + _class-check245104_ + _struct-check245105_ + _struct-assert245106_))) + (let ((__tmp255564 + (lambda (_g245956245959_ _g245957245961_) (let () (declare (not safe)) - (cons _g243361243364_ _g243362243366_))))) + (cons _g245956245959_ _g245957245961_))))) (declare (not safe)) - (foldr1 __tmp252869 '() _L243313_))))) - (___kont251519251520_ - (lambda (_L243146_ _L243147_ _L243148_) - (let ((__tmp252870 - (let () (declare (not safe)) (gx#stx-e _L243146_)))) + (foldr1 __tmp255564 '() _L245908_))))) + (___kont254214254215_ + (lambda (_L245741_ _L245742_ _L245743_) + (let ((__tmp255565 + (let () (declare (not safe)) (gx#stx-e _L245741_)))) (declare (not safe)) - (table-set! _slots242508_ __tmp252870 '#t)))) - (___kont251521251522_ - (lambda (_L243023_ _L243024_ _L243025_ _L243026_) - (let ((__tmp252871 - (let () (declare (not safe)) (gx#stx-e _L243024_)))) + (table-set! _slots245103_ __tmp255565 '#t)))) + (___kont254216254217_ + (lambda (_L245618_ _L245619_ _L245620_ _L245621_) + (let ((__tmp255566 + (let () (declare (not safe)) (gx#stx-e _L245619_)))) (declare (not safe)) - (table-set! _slots242508_ __tmp252871 '#t)) + (table-set! _slots245103_ __tmp255566 '#t)) (let () (declare (not safe)) (gxc#compile-e__3 - _L243023_ - _self242506_ - _methods242507_ - _slots242508_ - _class-check242509_ - _struct-check242510_ - _struct-assert242511_)))) - (___kont251523251524_ - (lambda (_L242907_ _L242908_) - (let ((__tmp252872 + _L245618_ + _self245101_ + _methods245102_ + _slots245103_ + _class-check245104_ + _struct-check245105_ + _struct-assert245106_)))) + (___kont254218254219_ + (lambda (_L245502_ _L245503_) + (let ((__tmp255567 (##structure-ref - (let ((__tmp252873 + (let ((__tmp255568 (let () (declare (not safe)) - (gxc#identifier-symbol _L242908_)))) + (gxc#identifier-symbol _L245503_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp252873)) + (gxc#optimizer-resolve-type __tmp255568)) '2 gxc#!accessor::t '#f))) (declare (not safe)) - (table-set! _slots242508_ __tmp252872 '#t)))) - (___kont251525251526_ - (lambda (_L242817_ _L242818_ _L242819_) - (let ((__tmp252874 + (table-set! _slots245103_ __tmp255567 '#t)))) + (___kont254220254221_ + (lambda (_L245412_ _L245413_ _L245414_) + (let ((__tmp255569 (##structure-ref - (let ((__tmp252875 + (let ((__tmp255570 (let () (declare (not safe)) - (gxc#identifier-symbol _L242819_)))) + (gxc#identifier-symbol _L245414_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp252875)) + (gxc#optimizer-resolve-type __tmp255570)) '2 gxc#!mutator::t '#f))) (declare (not safe)) - (table-set! _slots242508_ __tmp252874 '#t)) + (table-set! _slots245103_ __tmp255569 '#t)) (let () (declare (not safe)) (gxc#compile-e__3 - _L242817_ - _self242506_ - _methods242507_ - _slots242508_ - _class-check242509_ - _struct-check242510_ - _struct-assert242511_)))) - (___kont251527251528_ + _L245412_ + _self245101_ + _methods245102_ + _slots245103_ + _class-check245104_ + _struct-check245105_ + _struct-assert245106_)))) + (___kont254222254223_ (lambda () (let () (declare (not safe)) (gxc#collect-operands - _stx242505_ - _self242506_ - _methods242507_ - _slots242508_ - _class-check242509_ - _struct-check242510_ - _struct-assert242511_))))) - (let* ((___match252008252009_ - (lambda (_e242715242753_ - _hd242714242756_ - _tl242713242758_ - _e242718242761_ - _hd242717242764_ - _tl242716242766_ - _e242721242769_ - _hd242720242772_ - _tl242719242774_ - _e242724242777_ - _hd242723242780_ - _tl242722242782_ - _e242727242785_ - _hd242726242788_ - _tl242725242790_ - _e242730242793_ - _hd242729242796_ - _tl242728242798_ - _e242733242801_ - _hd242732242804_ - _tl242731242806_ - _e242736242809_ - _hd242735242812_ - _tl242734242814_) - (let ((_L242817_ _hd242735242812_) - (_L242818_ _hd242732242804_) - (_L242819_ _hd242723242780_)) - (if (and (let ((__tmp252876 - (let ((__tmp252877 + _stx245100_ + _self245101_ + _methods245102_ + _slots245103_ + _class-check245104_ + _struct-check245105_ + _struct-assert245106_))))) + (let* ((___match254703254704_ + (lambda (_e245310245348_ + _hd245309245351_ + _tl245308245353_ + _e245313245356_ + _hd245312245359_ + _tl245311245361_ + _e245316245364_ + _hd245315245367_ + _tl245314245369_ + _e245319245372_ + _hd245318245375_ + _tl245317245377_ + _e245322245380_ + _hd245321245383_ + _tl245320245385_ + _e245325245388_ + _hd245324245391_ + _tl245323245393_ + _e245328245396_ + _hd245327245399_ + _tl245326245401_ + _e245331245404_ + _hd245330245407_ + _tl245329245409_) + (let ((_L245412_ _hd245330245407_) + (_L245413_ _hd245327245399_) + (_L245414_ _hd245318245375_)) + (if (and (let ((__tmp255571 + (let ((__tmp255572 (let () (declare (not safe)) (gxc#identifier-symbol - _L242819_)))) + _L245414_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp252877)))) + __tmp255572)))) (declare (not safe)) (##structure-instance-of? - __tmp252876 + __tmp255571 'gxc#!mutator::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L242818_ - _self242506_))) - (___kont251525251526_ - _L242817_ - _L242818_ - _L242819_) - (___kont251527251528_))))) - (___match252006252007_ - (lambda (_e242715242753_ - _hd242714242756_ - _tl242713242758_ - _e242718242761_ - _hd242717242764_ - _tl242716242766_ - _e242721242769_ - _hd242720242772_ - _tl242719242774_ - _e242724242777_ - _hd242723242780_ - _tl242722242782_ - _e242727242785_ - _hd242726242788_ - _tl242725242790_ - _e242730242793_ - _hd242729242796_ - _tl242728242798_ - _e242733242801_ - _hd242732242804_ - _tl242731242806_ - _e242736242809_ - _hd242735242812_ - _tl242734242814_) + _L245413_ + _self245101_))) + (___kont254220254221_ + _L245412_ + _L245413_ + _L245414_) + (___kont254222254223_))))) + (___match254701254702_ + (lambda (_e245310245348_ + _hd245309245351_ + _tl245308245353_ + _e245313245356_ + _hd245312245359_ + _tl245311245361_ + _e245316245364_ + _hd245315245367_ + _tl245314245369_ + _e245319245372_ + _hd245318245375_ + _tl245317245377_ + _e245322245380_ + _hd245321245383_ + _tl245320245385_ + _e245325245388_ + _hd245324245391_ + _tl245323245393_ + _e245328245396_ + _hd245327245399_ + _tl245326245401_ + _e245331245404_ + _hd245330245407_ + _tl245329245409_) (if (let () (declare (not safe)) - (gx#stx-null? _tl242734242814_)) - (___match252008252009_ - _e242715242753_ - _hd242714242756_ - _tl242713242758_ - _e242718242761_ - _hd242717242764_ - _tl242716242766_ - _e242721242769_ - _hd242720242772_ - _tl242719242774_ - _e242724242777_ - _hd242723242780_ - _tl242722242782_ - _e242727242785_ - _hd242726242788_ - _tl242725242790_ - _e242730242793_ - _hd242729242796_ - _tl242728242798_ - _e242733242801_ - _hd242732242804_ - _tl242731242806_ - _e242736242809_ - _hd242735242812_ - _tl242734242814_) - (___kont251527251528_)))) - (___match252000252001_ - (lambda (_e242715242753_ - _hd242714242756_ - _tl242713242758_ - _e242718242761_ - _hd242717242764_ - _tl242716242766_ - _e242721242769_ - _hd242720242772_ - _tl242719242774_ - _e242724242777_ - _hd242723242780_ - _tl242722242782_ - _e242727242785_ - _hd242726242788_ - _tl242725242790_ - _e242730242793_ - _hd242729242796_ - _tl242728242798_ - _e242733242801_ - _hd242732242804_ - _tl242731242806_) + (gx#stx-null? _tl245329245409_)) + (___match254703254704_ + _e245310245348_ + _hd245309245351_ + _tl245308245353_ + _e245313245356_ + _hd245312245359_ + _tl245311245361_ + _e245316245364_ + _hd245315245367_ + _tl245314245369_ + _e245319245372_ + _hd245318245375_ + _tl245317245377_ + _e245322245380_ + _hd245321245383_ + _tl245320245385_ + _e245325245388_ + _hd245324245391_ + _tl245323245393_ + _e245328245396_ + _hd245327245399_ + _tl245326245401_ + _e245331245404_ + _hd245330245407_ + _tl245329245409_) + (___kont254222254223_)))) + (___match254695254696_ + (lambda (_e245310245348_ + _hd245309245351_ + _tl245308245353_ + _e245313245356_ + _hd245312245359_ + _tl245311245361_ + _e245316245364_ + _hd245315245367_ + _tl245314245369_ + _e245319245372_ + _hd245318245375_ + _tl245317245377_ + _e245322245380_ + _hd245321245383_ + _tl245320245385_ + _e245325245388_ + _hd245324245391_ + _tl245323245393_ + _e245328245396_ + _hd245327245399_ + _tl245326245401_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl242725242790_)) - (let ((_e242736242809_ + (gx#stx-pair? _tl245320245385_)) + (let ((_e245331245404_ (let () (declare (not safe)) - (gx#stx-e _tl242725242790_)))) - (let ((_tl242734242814_ + (gx#stx-e _tl245320245385_)))) + (let ((_tl245329245409_ (let () (declare (not safe)) - (##cdr _e242736242809_))) - (_hd242735242812_ + (##cdr _e245331245404_))) + (_hd245330245407_ (let () (declare (not safe)) - (##car _e242736242809_)))) + (##car _e245331245404_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl242734242814_)) - (___match252008252009_ - _e242715242753_ - _hd242714242756_ - _tl242713242758_ - _e242718242761_ - _hd242717242764_ - _tl242716242766_ - _e242721242769_ - _hd242720242772_ - _tl242719242774_ - _e242724242777_ - _hd242723242780_ - _tl242722242782_ - _e242727242785_ - _hd242726242788_ - _tl242725242790_ - _e242730242793_ - _hd242729242796_ - _tl242728242798_ - _e242733242801_ - _hd242732242804_ - _tl242731242806_ - _e242736242809_ - _hd242735242812_ - _tl242734242814_) - (___kont251527251528_)))) - (___kont251527251528_)))) - (___match251946251947_ - (lambda (_e242691242851_ - _hd242690242854_ - _tl242689242856_ - _e242694242859_ - _hd242693242862_ - _tl242692242864_ - _e242697242867_ - _hd242696242870_ - _tl242695242872_ - _e242700242875_ - _hd242699242878_ - _tl242698242880_ - _e242703242883_ - _hd242702242886_ - _tl242701242888_ - _e242706242891_ - _hd242705242894_ - _tl242704242896_ - _e242709242899_ - _hd242708242902_ - _tl242707242904_) - (let ((_L242907_ _hd242708242902_) - (_L242908_ _hd242699242878_)) - (if (and (let ((__tmp252878 - (let ((__tmp252879 + (gx#stx-null? _tl245329245409_)) + (___match254703254704_ + _e245310245348_ + _hd245309245351_ + _tl245308245353_ + _e245313245356_ + _hd245312245359_ + _tl245311245361_ + _e245316245364_ + _hd245315245367_ + _tl245314245369_ + _e245319245372_ + _hd245318245375_ + _tl245317245377_ + _e245322245380_ + _hd245321245383_ + _tl245320245385_ + _e245325245388_ + _hd245324245391_ + _tl245323245393_ + _e245328245396_ + _hd245327245399_ + _tl245326245401_ + _e245331245404_ + _hd245330245407_ + _tl245329245409_) + (___kont254222254223_)))) + (___kont254222254223_)))) + (___match254641254642_ + (lambda (_e245286245446_ + _hd245285245449_ + _tl245284245451_ + _e245289245454_ + _hd245288245457_ + _tl245287245459_ + _e245292245462_ + _hd245291245465_ + _tl245290245467_ + _e245295245470_ + _hd245294245473_ + _tl245293245475_ + _e245298245478_ + _hd245297245481_ + _tl245296245483_ + _e245301245486_ + _hd245300245489_ + _tl245299245491_ + _e245304245494_ + _hd245303245497_ + _tl245302245499_) + (let ((_L245502_ _hd245303245497_) + (_L245503_ _hd245294245473_)) + (if (and (let ((__tmp255573 + (let ((__tmp255574 (let () (declare (not safe)) (gxc#identifier-symbol - _L242908_)))) + _L245503_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp252879)))) + __tmp255574)))) (declare (not safe)) (##structure-instance-of? - __tmp252878 + __tmp255573 'gxc#!accessor::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L242907_ - _self242506_))) - (___kont251523251524_ _L242907_ _L242908_) - (___kont251527251528_))))) - (___match251944251945_ - (lambda (_e242691242851_ - _hd242690242854_ - _tl242689242856_ - _e242694242859_ - _hd242693242862_ - _tl242692242864_ - _e242697242867_ - _hd242696242870_ - _tl242695242872_ - _e242700242875_ - _hd242699242878_ - _tl242698242880_ - _e242703242883_ - _hd242702242886_ - _tl242701242888_ - _e242706242891_ - _hd242705242894_ - _tl242704242896_ - _e242709242899_ - _hd242708242902_ - _tl242707242904_) + _L245502_ + _self245101_))) + (___kont254218254219_ _L245502_ _L245503_) + (___kont254222254223_))))) + (___match254639254640_ + (lambda (_e245286245446_ + _hd245285245449_ + _tl245284245451_ + _e245289245454_ + _hd245288245457_ + _tl245287245459_ + _e245292245462_ + _hd245291245465_ + _tl245290245467_ + _e245295245470_ + _hd245294245473_ + _tl245293245475_ + _e245298245478_ + _hd245297245481_ + _tl245296245483_ + _e245301245486_ + _hd245300245489_ + _tl245299245491_ + _e245304245494_ + _hd245303245497_ + _tl245302245499_) (if (let () (declare (not safe)) - (gx#stx-null? _tl242701242888_)) - (___match251946251947_ - _e242691242851_ - _hd242690242854_ - _tl242689242856_ - _e242694242859_ - _hd242693242862_ - _tl242692242864_ - _e242697242867_ - _hd242696242870_ - _tl242695242872_ - _e242700242875_ - _hd242699242878_ - _tl242698242880_ - _e242703242883_ - _hd242702242886_ - _tl242701242888_ - _e242706242891_ - _hd242705242894_ - _tl242704242896_ - _e242709242899_ - _hd242708242902_ - _tl242707242904_) - (___match252000252001_ - _e242691242851_ - _hd242690242854_ - _tl242689242856_ - _e242694242859_ - _hd242693242862_ - _tl242692242864_ - _e242697242867_ - _hd242696242870_ - _tl242695242872_ - _e242700242875_ - _hd242699242878_ - _tl242698242880_ - _e242703242883_ - _hd242702242886_ - _tl242701242888_ - _e242706242891_ - _hd242705242894_ - _tl242704242896_ - _e242709242899_ - _hd242708242902_ - _tl242707242904_)))) - (___match251890251891_ - (lambda (_e242656242935_ - _hd242655242938_ - _tl242654242940_ - _e242659242943_ - _hd242658242946_ - _tl242657242948_ - _e242662242951_ - _hd242661242954_ - _tl242660242956_ - _e242665242959_ - _hd242664242962_ - _tl242663242964_ - _e242668242967_ - _hd242667242970_ - _tl242666242972_ - _e242671242975_ - _hd242670242978_ - _tl242669242980_ - _e242674242983_ - _hd242673242986_ - _tl242672242988_ - _e242677242991_ - _hd242676242994_ - _tl242675242996_ - _e242680242999_ - _hd242679243002_ - _tl242678243004_ - _e242683243007_ - _hd242682243010_ - _tl242681243012_ - _e242686243015_ - _hd242685243018_ - _tl242684243020_) - (let ((_L243023_ _hd242685243018_) - (_L243024_ _hd242682243010_) - (_L243025_ _hd242673242986_) - (_L243026_ _hd242664242962_)) + (gx#stx-null? _tl245296245483_)) + (___match254641254642_ + _e245286245446_ + _hd245285245449_ + _tl245284245451_ + _e245289245454_ + _hd245288245457_ + _tl245287245459_ + _e245292245462_ + _hd245291245465_ + _tl245290245467_ + _e245295245470_ + _hd245294245473_ + _tl245293245475_ + _e245298245478_ + _hd245297245481_ + _tl245296245483_ + _e245301245486_ + _hd245300245489_ + _tl245299245491_ + _e245304245494_ + _hd245303245497_ + _tl245302245499_) + (___match254695254696_ + _e245286245446_ + _hd245285245449_ + _tl245284245451_ + _e245289245454_ + _hd245288245457_ + _tl245287245459_ + _e245292245462_ + _hd245291245465_ + _tl245290245467_ + _e245295245470_ + _hd245294245473_ + _tl245293245475_ + _e245298245478_ + _hd245297245481_ + _tl245296245483_ + _e245301245486_ + _hd245300245489_ + _tl245299245491_ + _e245304245494_ + _hd245303245497_ + _tl245302245499_)))) + (___match254585254586_ + (lambda (_e245251245530_ + _hd245250245533_ + _tl245249245535_ + _e245254245538_ + _hd245253245541_ + _tl245252245543_ + _e245257245546_ + _hd245256245549_ + _tl245255245551_ + _e245260245554_ + _hd245259245557_ + _tl245258245559_ + _e245263245562_ + _hd245262245565_ + _tl245261245567_ + _e245266245570_ + _hd245265245573_ + _tl245264245575_ + _e245269245578_ + _hd245268245581_ + _tl245267245583_ + _e245272245586_ + _hd245271245589_ + _tl245270245591_ + _e245275245594_ + _hd245274245597_ + _tl245273245599_ + _e245278245602_ + _hd245277245605_ + _tl245276245607_ + _e245281245610_ + _hd245280245613_ + _tl245279245615_) + (let ((_L245618_ _hd245280245613_) + (_L245619_ _hd245277245605_) + (_L245620_ _hd245268245581_) + (_L245621_ _hd245259245557_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L243026_ + _L245621_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L243026_ + _L245621_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L243025_ - _self242506_))) - (___kont251521251522_ - _L243023_ - _L243024_ - _L243025_ - _L243026_) - (___kont251527251528_))))) - (___match251882251883_ - (lambda (_e242656242935_ - _hd242655242938_ - _tl242654242940_ - _e242659242943_ - _hd242658242946_ - _tl242657242948_ - _e242662242951_ - _hd242661242954_ - _tl242660242956_ - _e242665242959_ - _hd242664242962_ - _tl242663242964_ - _e242668242967_ - _hd242667242970_ - _tl242666242972_ - _e242671242975_ - _hd242670242978_ - _tl242669242980_ - _e242674242983_ - _hd242673242986_ - _tl242672242988_ - _e242677242991_ - _hd242676242994_ - _tl242675242996_ - _e242680242999_ - _hd242679243002_ - _tl242678243004_ - _e242683243007_ - _hd242682243010_ - _tl242681243012_) + _L245620_ + _self245101_))) + (___kont254216254217_ + _L245618_ + _L245619_ + _L245620_ + _L245621_) + (___kont254222254223_))))) + (___match254577254578_ + (lambda (_e245251245530_ + _hd245250245533_ + _tl245249245535_ + _e245254245538_ + _hd245253245541_ + _tl245252245543_ + _e245257245546_ + _hd245256245549_ + _tl245255245551_ + _e245260245554_ + _hd245259245557_ + _tl245258245559_ + _e245263245562_ + _hd245262245565_ + _tl245261245567_ + _e245266245570_ + _hd245265245573_ + _tl245264245575_ + _e245269245578_ + _hd245268245581_ + _tl245267245583_ + _e245272245586_ + _hd245271245589_ + _tl245270245591_ + _e245275245594_ + _hd245274245597_ + _tl245273245599_ + _e245278245602_ + _hd245277245605_ + _tl245276245607_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl242675242996_)) - (let ((_e242686243015_ + (gx#stx-pair? _tl245270245591_)) + (let ((_e245281245610_ (let () (declare (not safe)) - (gx#stx-e _tl242675242996_)))) - (let ((_tl242684243020_ + (gx#stx-e _tl245270245591_)))) + (let ((_tl245279245615_ (let () (declare (not safe)) - (##cdr _e242686243015_))) - (_hd242685243018_ + (##cdr _e245281245610_))) + (_hd245280245613_ (let () (declare (not safe)) - (##car _e242686243015_)))) + (##car _e245281245610_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl242684243020_)) - (___match251890251891_ - _e242656242935_ - _hd242655242938_ - _tl242654242940_ - _e242659242943_ - _hd242658242946_ - _tl242657242948_ - _e242662242951_ - _hd242661242954_ - _tl242660242956_ - _e242665242959_ - _hd242664242962_ - _tl242663242964_ - _e242668242967_ - _hd242667242970_ - _tl242666242972_ - _e242671242975_ - _hd242670242978_ - _tl242669242980_ - _e242674242983_ - _hd242673242986_ - _tl242672242988_ - _e242677242991_ - _hd242676242994_ - _tl242675242996_ - _e242680242999_ - _hd242679243002_ - _tl242678243004_ - _e242683243007_ - _hd242682243010_ - _tl242681243012_ - _e242686243015_ - _hd242685243018_ - _tl242684243020_) - (___kont251527251528_)))) - (___match252006252007_ - _e242656242935_ - _hd242655242938_ - _tl242654242940_ - _e242659242943_ - _hd242658242946_ - _tl242657242948_ - _e242662242951_ - _hd242661242954_ - _tl242660242956_ - _e242665242959_ - _hd242664242962_ - _tl242663242964_ - _e242668242967_ - _hd242667242970_ - _tl242666242972_ - _e242671242975_ - _hd242670242978_ - _tl242669242980_ - _e242674242983_ - _hd242673242986_ - _tl242672242988_ - _e242677242991_ - _hd242676242994_ - _tl242675242996_)))) - (___match251804251805_ - (lambda (_e242622243066_ - _hd242621243069_ - _tl242620243071_ - _e242625243074_ - _hd242624243077_ - _tl242623243079_ - _e242628243082_ - _hd242627243085_ - _tl242626243087_ - _e242631243090_ - _hd242630243093_ - _tl242629243095_ - _e242634243098_ - _hd242633243101_ - _tl242632243103_ - _e242637243106_ - _hd242636243109_ - _tl242635243111_ - _e242640243114_ - _hd242639243117_ - _tl242638243119_ - _e242643243122_ - _hd242642243125_ - _tl242641243127_ - _e242646243130_ - _hd242645243133_ - _tl242644243135_ - _e242649243138_ - _hd242648243141_ - _tl242647243143_) - (let ((_L243146_ _hd242648243141_) - (_L243147_ _hd242639243117_) - (_L243148_ _hd242630243093_)) + (gx#stx-null? _tl245279245615_)) + (___match254585254586_ + _e245251245530_ + _hd245250245533_ + _tl245249245535_ + _e245254245538_ + _hd245253245541_ + _tl245252245543_ + _e245257245546_ + _hd245256245549_ + _tl245255245551_ + _e245260245554_ + _hd245259245557_ + _tl245258245559_ + _e245263245562_ + _hd245262245565_ + _tl245261245567_ + _e245266245570_ + _hd245265245573_ + _tl245264245575_ + _e245269245578_ + _hd245268245581_ + _tl245267245583_ + _e245272245586_ + _hd245271245589_ + _tl245270245591_ + _e245275245594_ + _hd245274245597_ + _tl245273245599_ + _e245278245602_ + _hd245277245605_ + _tl245276245607_ + _e245281245610_ + _hd245280245613_ + _tl245279245615_) + (___kont254222254223_)))) + (___match254701254702_ + _e245251245530_ + _hd245250245533_ + _tl245249245535_ + _e245254245538_ + _hd245253245541_ + _tl245252245543_ + _e245257245546_ + _hd245256245549_ + _tl245255245551_ + _e245260245554_ + _hd245259245557_ + _tl245258245559_ + _e245263245562_ + _hd245262245565_ + _tl245261245567_ + _e245266245570_ + _hd245265245573_ + _tl245264245575_ + _e245269245578_ + _hd245268245581_ + _tl245267245583_ + _e245272245586_ + _hd245271245589_ + _tl245270245591_)))) + (___match254499254500_ + (lambda (_e245217245661_ + _hd245216245664_ + _tl245215245666_ + _e245220245669_ + _hd245219245672_ + _tl245218245674_ + _e245223245677_ + _hd245222245680_ + _tl245221245682_ + _e245226245685_ + _hd245225245688_ + _tl245224245690_ + _e245229245693_ + _hd245228245696_ + _tl245227245698_ + _e245232245701_ + _hd245231245704_ + _tl245230245706_ + _e245235245709_ + _hd245234245712_ + _tl245233245714_ + _e245238245717_ + _hd245237245720_ + _tl245236245722_ + _e245241245725_ + _hd245240245728_ + _tl245239245730_ + _e245244245733_ + _hd245243245736_ + _tl245242245738_) + (let ((_L245741_ _hd245243245736_) + (_L245742_ _hd245234245712_) + (_L245743_ _hd245225245688_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L243148_ + _L245743_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L243148_ + _L245743_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L243147_ - _self242506_))) - (___kont251519251520_ - _L243146_ - _L243147_ - _L243148_) - (___match252008252009_ - _e242622243066_ - _hd242621243069_ - _tl242620243071_ - _e242625243074_ - _hd242624243077_ - _tl242623243079_ - _e242628243082_ - _hd242627243085_ - _tl242626243087_ - _e242631243090_ - _hd242630243093_ - _tl242629243095_ - _e242634243098_ - _hd242633243101_ - _tl242632243103_ - _e242637243106_ - _hd242636243109_ - _tl242635243111_ - _e242640243114_ - _hd242639243117_ - _tl242638243119_ - _e242643243122_ - _hd242642243125_ - _tl242641243127_))))) - (___match251802251803_ - (lambda (_e242622243066_ - _hd242621243069_ - _tl242620243071_ - _e242625243074_ - _hd242624243077_ - _tl242623243079_ - _e242628243082_ - _hd242627243085_ - _tl242626243087_ - _e242631243090_ - _hd242630243093_ - _tl242629243095_ - _e242634243098_ - _hd242633243101_ - _tl242632243103_ - _e242637243106_ - _hd242636243109_ - _tl242635243111_ - _e242640243114_ - _hd242639243117_ - _tl242638243119_ - _e242643243122_ - _hd242642243125_ - _tl242641243127_ - _e242646243130_ - _hd242645243133_ - _tl242644243135_ - _e242649243138_ - _hd242648243141_ - _tl242647243143_) + _L245742_ + _self245101_))) + (___kont254214254215_ + _L245741_ + _L245742_ + _L245743_) + (___match254703254704_ + _e245217245661_ + _hd245216245664_ + _tl245215245666_ + _e245220245669_ + _hd245219245672_ + _tl245218245674_ + _e245223245677_ + _hd245222245680_ + _tl245221245682_ + _e245226245685_ + _hd245225245688_ + _tl245224245690_ + _e245229245693_ + _hd245228245696_ + _tl245227245698_ + _e245232245701_ + _hd245231245704_ + _tl245230245706_ + _e245235245709_ + _hd245234245712_ + _tl245233245714_ + _e245238245717_ + _hd245237245720_ + _tl245236245722_))))) + (___match254497254498_ + (lambda (_e245217245661_ + _hd245216245664_ + _tl245215245666_ + _e245220245669_ + _hd245219245672_ + _tl245218245674_ + _e245223245677_ + _hd245222245680_ + _tl245221245682_ + _e245226245685_ + _hd245225245688_ + _tl245224245690_ + _e245229245693_ + _hd245228245696_ + _tl245227245698_ + _e245232245701_ + _hd245231245704_ + _tl245230245706_ + _e245235245709_ + _hd245234245712_ + _tl245233245714_ + _e245238245717_ + _hd245237245720_ + _tl245236245722_ + _e245241245725_ + _hd245240245728_ + _tl245239245730_ + _e245244245733_ + _hd245243245736_ + _tl245242245738_) (if (let () (declare (not safe)) - (gx#stx-null? _tl242641243127_)) - (___match251804251805_ - _e242622243066_ - _hd242621243069_ - _tl242620243071_ - _e242625243074_ - _hd242624243077_ - _tl242623243079_ - _e242628243082_ - _hd242627243085_ - _tl242626243087_ - _e242631243090_ - _hd242630243093_ - _tl242629243095_ - _e242634243098_ - _hd242633243101_ - _tl242632243103_ - _e242637243106_ - _hd242636243109_ - _tl242635243111_ - _e242640243114_ - _hd242639243117_ - _tl242638243119_ - _e242643243122_ - _hd242642243125_ - _tl242641243127_ - _e242646243130_ - _hd242645243133_ - _tl242644243135_ - _e242649243138_ - _hd242648243141_ - _tl242647243143_) - (___match251882251883_ - _e242622243066_ - _hd242621243069_ - _tl242620243071_ - _e242625243074_ - _hd242624243077_ - _tl242623243079_ - _e242628243082_ - _hd242627243085_ - _tl242626243087_ - _e242631243090_ - _hd242630243093_ - _tl242629243095_ - _e242634243098_ - _hd242633243101_ - _tl242632243103_ - _e242637243106_ - _hd242636243109_ - _tl242635243111_ - _e242640243114_ - _hd242639243117_ - _tl242638243119_ - _e242643243122_ - _hd242642243125_ - _tl242641243127_ - _e242646243130_ - _hd242645243133_ - _tl242644243135_ - _e242649243138_ - _hd242648243141_ - _tl242647243143_)))) - (___match251792251793_ - (lambda (_e242622243066_ - _hd242621243069_ - _tl242620243071_ - _e242625243074_ - _hd242624243077_ - _tl242623243079_ - _e242628243082_ - _hd242627243085_ - _tl242626243087_ - _e242631243090_ - _hd242630243093_ - _tl242629243095_ - _e242634243098_ - _hd242633243101_ - _tl242632243103_ - _e242637243106_ - _hd242636243109_ - _tl242635243111_ - _e242640243114_ - _hd242639243117_ - _tl242638243119_ - _e242643243122_ - _hd242642243125_ - _tl242641243127_ - _e242646243130_ - _hd242645243133_ - _tl242644243135_) + (gx#stx-null? _tl245236245722_)) + (___match254499254500_ + _e245217245661_ + _hd245216245664_ + _tl245215245666_ + _e245220245669_ + _hd245219245672_ + _tl245218245674_ + _e245223245677_ + _hd245222245680_ + _tl245221245682_ + _e245226245685_ + _hd245225245688_ + _tl245224245690_ + _e245229245693_ + _hd245228245696_ + _tl245227245698_ + _e245232245701_ + _hd245231245704_ + _tl245230245706_ + _e245235245709_ + _hd245234245712_ + _tl245233245714_ + _e245238245717_ + _hd245237245720_ + _tl245236245722_ + _e245241245725_ + _hd245240245728_ + _tl245239245730_ + _e245244245733_ + _hd245243245736_ + _tl245242245738_) + (___match254577254578_ + _e245217245661_ + _hd245216245664_ + _tl245215245666_ + _e245220245669_ + _hd245219245672_ + _tl245218245674_ + _e245223245677_ + _hd245222245680_ + _tl245221245682_ + _e245226245685_ + _hd245225245688_ + _tl245224245690_ + _e245229245693_ + _hd245228245696_ + _tl245227245698_ + _e245232245701_ + _hd245231245704_ + _tl245230245706_ + _e245235245709_ + _hd245234245712_ + _tl245233245714_ + _e245238245717_ + _hd245237245720_ + _tl245236245722_ + _e245241245725_ + _hd245240245728_ + _tl245239245730_ + _e245244245733_ + _hd245243245736_ + _tl245242245738_)))) + (___match254487254488_ + (lambda (_e245217245661_ + _hd245216245664_ + _tl245215245666_ + _e245220245669_ + _hd245219245672_ + _tl245218245674_ + _e245223245677_ + _hd245222245680_ + _tl245221245682_ + _e245226245685_ + _hd245225245688_ + _tl245224245690_ + _e245229245693_ + _hd245228245696_ + _tl245227245698_ + _e245232245701_ + _hd245231245704_ + _tl245230245706_ + _e245235245709_ + _hd245234245712_ + _tl245233245714_ + _e245238245717_ + _hd245237245720_ + _tl245236245722_ + _e245241245725_ + _hd245240245728_ + _tl245239245730_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd242645243133_)) + (gx#stx-eq? '%#quote _hd245240245728_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl242644243135_)) - (let ((_e242649243138_ + (gx#stx-pair? _tl245239245730_)) + (let ((_e245244245733_ (let () (declare (not safe)) - (gx#stx-e _tl242644243135_)))) - (let ((_tl242647243143_ + (gx#stx-e _tl245239245730_)))) + (let ((_tl245242245738_ (let () (declare (not safe)) - (##cdr _e242649243138_))) - (_hd242648243141_ + (##cdr _e245244245733_))) + (_hd245243245736_ (let () (declare (not safe)) - (##car _e242649243138_)))) + (##car _e245244245733_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl242647243143_)) + (gx#stx-null? _tl245242245738_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl242641243127_)) - (___match251804251805_ - _e242622243066_ - _hd242621243069_ - _tl242620243071_ - _e242625243074_ - _hd242624243077_ - _tl242623243079_ - _e242628243082_ - _hd242627243085_ - _tl242626243087_ - _e242631243090_ - _hd242630243093_ - _tl242629243095_ - _e242634243098_ - _hd242633243101_ - _tl242632243103_ - _e242637243106_ - _hd242636243109_ - _tl242635243111_ - _e242640243114_ - _hd242639243117_ - _tl242638243119_ - _e242643243122_ - _hd242642243125_ - _tl242641243127_ - _e242646243130_ - _hd242645243133_ - _tl242644243135_ - _e242649243138_ - _hd242648243141_ - _tl242647243143_) - (___match251882251883_ - _e242622243066_ - _hd242621243069_ - _tl242620243071_ - _e242625243074_ - _hd242624243077_ - _tl242623243079_ - _e242628243082_ - _hd242627243085_ - _tl242626243087_ - _e242631243090_ - _hd242630243093_ - _tl242629243095_ - _e242634243098_ - _hd242633243101_ - _tl242632243103_ - _e242637243106_ - _hd242636243109_ - _tl242635243111_ - _e242640243114_ - _hd242639243117_ - _tl242638243119_ - _e242643243122_ - _hd242642243125_ - _tl242641243127_ - _e242646243130_ - _hd242645243133_ - _tl242644243135_ - _e242649243138_ - _hd242648243141_ - _tl242647243143_)) - (___match252006252007_ - _e242622243066_ - _hd242621243069_ - _tl242620243071_ - _e242625243074_ - _hd242624243077_ - _tl242623243079_ - _e242628243082_ - _hd242627243085_ - _tl242626243087_ - _e242631243090_ - _hd242630243093_ - _tl242629243095_ - _e242634243098_ - _hd242633243101_ - _tl242632243103_ - _e242637243106_ - _hd242636243109_ - _tl242635243111_ - _e242640243114_ - _hd242639243117_ - _tl242638243119_ - _e242643243122_ - _hd242642243125_ - _tl242641243127_)))) - (___match252006252007_ - _e242622243066_ - _hd242621243069_ - _tl242620243071_ - _e242625243074_ - _hd242624243077_ - _tl242623243079_ - _e242628243082_ - _hd242627243085_ - _tl242626243087_ - _e242631243090_ - _hd242630243093_ - _tl242629243095_ - _e242634243098_ - _hd242633243101_ - _tl242632243103_ - _e242637243106_ - _hd242636243109_ - _tl242635243111_ - _e242640243114_ - _hd242639243117_ - _tl242638243119_ - _e242643243122_ - _hd242642243125_ - _tl242641243127_)) - (___match252006252007_ - _e242622243066_ - _hd242621243069_ - _tl242620243071_ - _e242625243074_ - _hd242624243077_ - _tl242623243079_ - _e242628243082_ - _hd242627243085_ - _tl242626243087_ - _e242631243090_ - _hd242630243093_ - _tl242629243095_ - _e242634243098_ - _hd242633243101_ - _tl242632243103_ - _e242637243106_ - _hd242636243109_ - _tl242635243111_ - _e242640243114_ - _hd242639243117_ - _tl242638243119_ - _e242643243122_ - _hd242642243125_ - _tl242641243127_)))) - (___match251724251725_ - (lambda (_e242571243185_ - _hd242570243188_ - _tl242569243190_ - _e242574243193_ - _hd242573243196_ - _tl242572243198_ - _e242577243201_ - _hd242576243204_ - _tl242575243206_ - _e242580243209_ - _hd242579243212_ - _tl242578243214_ - _e242583243217_ - _hd242582243220_ - _tl242581243222_ - _e242586243225_ - _hd242585243228_ - _tl242584243230_ - _e242589243233_ - _hd242588243236_ - _tl242587243238_ - _e242592243241_ - _hd242591243244_ - _tl242590243246_ - _e242595243249_ - _hd242594243252_ - _tl242593243254_ - _e242598243257_ - _hd242597243260_ - _tl242596243262_ - _e242601243265_ - _hd242600243268_ - _tl242599243270_ - _e242604243273_ - _hd242603243276_ - _tl242602243278_ - _e242607243281_ - _hd242606243284_ - _tl242605243286_ - ___splice251517251518_ - _target242608243289_ - _tl242610243291_) - (letrec ((_loop242611243294_ - (lambda (_hd242609243297_ _args242615243299_) + (gx#stx-null? _tl245236245722_)) + (___match254499254500_ + _e245217245661_ + _hd245216245664_ + _tl245215245666_ + _e245220245669_ + _hd245219245672_ + _tl245218245674_ + _e245223245677_ + _hd245222245680_ + _tl245221245682_ + _e245226245685_ + _hd245225245688_ + _tl245224245690_ + _e245229245693_ + _hd245228245696_ + _tl245227245698_ + _e245232245701_ + _hd245231245704_ + _tl245230245706_ + _e245235245709_ + _hd245234245712_ + _tl245233245714_ + _e245238245717_ + _hd245237245720_ + _tl245236245722_ + _e245241245725_ + _hd245240245728_ + _tl245239245730_ + _e245244245733_ + _hd245243245736_ + _tl245242245738_) + (___match254577254578_ + _e245217245661_ + _hd245216245664_ + _tl245215245666_ + _e245220245669_ + _hd245219245672_ + _tl245218245674_ + _e245223245677_ + _hd245222245680_ + _tl245221245682_ + _e245226245685_ + _hd245225245688_ + _tl245224245690_ + _e245229245693_ + _hd245228245696_ + _tl245227245698_ + _e245232245701_ + _hd245231245704_ + _tl245230245706_ + _e245235245709_ + _hd245234245712_ + _tl245233245714_ + _e245238245717_ + _hd245237245720_ + _tl245236245722_ + _e245241245725_ + _hd245240245728_ + _tl245239245730_ + _e245244245733_ + _hd245243245736_ + _tl245242245738_)) + (___match254701254702_ + _e245217245661_ + _hd245216245664_ + _tl245215245666_ + _e245220245669_ + _hd245219245672_ + _tl245218245674_ + _e245223245677_ + _hd245222245680_ + _tl245221245682_ + _e245226245685_ + _hd245225245688_ + _tl245224245690_ + _e245229245693_ + _hd245228245696_ + _tl245227245698_ + _e245232245701_ + _hd245231245704_ + _tl245230245706_ + _e245235245709_ + _hd245234245712_ + _tl245233245714_ + _e245238245717_ + _hd245237245720_ + _tl245236245722_)))) + (___match254701254702_ + _e245217245661_ + _hd245216245664_ + _tl245215245666_ + _e245220245669_ + _hd245219245672_ + _tl245218245674_ + _e245223245677_ + _hd245222245680_ + _tl245221245682_ + _e245226245685_ + _hd245225245688_ + _tl245224245690_ + _e245229245693_ + _hd245228245696_ + _tl245227245698_ + _e245232245701_ + _hd245231245704_ + _tl245230245706_ + _e245235245709_ + _hd245234245712_ + _tl245233245714_ + _e245238245717_ + _hd245237245720_ + _tl245236245722_)) + (___match254701254702_ + _e245217245661_ + _hd245216245664_ + _tl245215245666_ + _e245220245669_ + _hd245219245672_ + _tl245218245674_ + _e245223245677_ + _hd245222245680_ + _tl245221245682_ + _e245226245685_ + _hd245225245688_ + _tl245224245690_ + _e245229245693_ + _hd245228245696_ + _tl245227245698_ + _e245232245701_ + _hd245231245704_ + _tl245230245706_ + _e245235245709_ + _hd245234245712_ + _tl245233245714_ + _e245238245717_ + _hd245237245720_ + _tl245236245722_)))) + (___match254419254420_ + (lambda (_e245166245780_ + _hd245165245783_ + _tl245164245785_ + _e245169245788_ + _hd245168245791_ + _tl245167245793_ + _e245172245796_ + _hd245171245799_ + _tl245170245801_ + _e245175245804_ + _hd245174245807_ + _tl245173245809_ + _e245178245812_ + _hd245177245815_ + _tl245176245817_ + _e245181245820_ + _hd245180245823_ + _tl245179245825_ + _e245184245828_ + _hd245183245831_ + _tl245182245833_ + _e245187245836_ + _hd245186245839_ + _tl245185245841_ + _e245190245844_ + _hd245189245847_ + _tl245188245849_ + _e245193245852_ + _hd245192245855_ + _tl245191245857_ + _e245196245860_ + _hd245195245863_ + _tl245194245865_ + _e245199245868_ + _hd245198245871_ + _tl245197245873_ + _e245202245876_ + _hd245201245879_ + _tl245200245881_ + ___splice254212254213_ + _target245203245884_ + _tl245205245886_) + (letrec ((_loop245206245889_ + (lambda (_hd245204245892_ _args245210245894_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd242609243297_)) - (let ((_e242612243302_ + (gx#stx-pair? _hd245204245892_)) + (let ((_e245207245897_ (let () (declare (not safe)) - (gx#stx-e _hd242609243297_)))) - (let ((_lp-tl242614243307_ + (gx#stx-e _hd245204245892_)))) + (let ((_lp-tl245209245902_ (let () (declare (not safe)) - (##cdr _e242612243302_))) - (_lp-hd242613243305_ + (##cdr _e245207245897_))) + (_lp-hd245208245900_ (let () (declare (not safe)) - (##car _e242612243302_)))) - (let ((__tmp252880 + (##car _e245207245897_)))) + (let ((__tmp255575 (let () (declare (not safe)) - (cons _lp-hd242613243305_ - _args242615243299_)))) + (cons _lp-hd245208245900_ + _args245210245894_)))) (declare (not safe)) - (_loop242611243294_ - _lp-tl242614243307_ - __tmp252880)))) - (let ((_args242616243310_ - (reverse _args242615243299_))) - (let ((_L243313_ _args242616243310_) - (_L243314_ _hd242606243284_) - (_L243315_ _hd242597243260_) - (_L243316_ _hd242588243236_) - (_L243317_ _hd242579243212_)) + (_loop245206245889_ + _lp-tl245209245902_ + __tmp255575)))) + (let ((_args245211245905_ + (reverse _args245210245894_))) + (let ((_L245908_ _args245211245905_) + (_L245909_ _hd245201245879_) + (_L245910_ _hd245192245855_) + (_L245911_ _hd245183245831_) + (_L245912_ _hd245174245807_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L243317_ + _L245912_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L243316_ + _L245911_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L243315_ - _self242506_))) - (___kont251515251516_ - _L243313_ - _L243314_ - _L243315_ - _L243316_ - _L243317_) - (___kont251527251528_)))))))) + _L245910_ + _self245101_))) + (___kont254210254211_ + _L245908_ + _L245909_ + _L245910_ + _L245911_ + _L245912_) + (___kont254222254223_)))))))) (let () (declare (not safe)) - (_loop242611243294_ _target242608243289_ '()))))) - (___match251682251683_ - (lambda (_e242571243185_ - _hd242570243188_ - _tl242569243190_ - _e242574243193_ - _hd242573243196_ - _tl242572243198_ - _e242577243201_ - _hd242576243204_ - _tl242575243206_ - _e242580243209_ - _hd242579243212_ - _tl242578243214_ - _e242583243217_ - _hd242582243220_ - _tl242581243222_ - _e242586243225_ - _hd242585243228_ - _tl242584243230_ - _e242589243233_ - _hd242588243236_ - _tl242587243238_ - _e242592243241_ - _hd242591243244_ - _tl242590243246_ - _e242595243249_ - _hd242594243252_ - _tl242593243254_) + (_loop245206245889_ _target245203245884_ '()))))) + (___match254377254378_ + (lambda (_e245166245780_ + _hd245165245783_ + _tl245164245785_ + _e245169245788_ + _hd245168245791_ + _tl245167245793_ + _e245172245796_ + _hd245171245799_ + _tl245170245801_ + _e245175245804_ + _hd245174245807_ + _tl245173245809_ + _e245178245812_ + _hd245177245815_ + _tl245176245817_ + _e245181245820_ + _hd245180245823_ + _tl245179245825_ + _e245184245828_ + _hd245183245831_ + _tl245182245833_ + _e245187245836_ + _hd245186245839_ + _tl245185245841_ + _e245190245844_ + _hd245189245847_ + _tl245188245849_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd242594243252_)) + (gx#stx-eq? '%#ref _hd245189245847_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl242593243254_)) - (let ((_e242598243257_ + (gx#stx-pair? _tl245188245849_)) + (let ((_e245193245852_ (let () (declare (not safe)) - (gx#stx-e _tl242593243254_)))) - (let ((_tl242596243262_ + (gx#stx-e _tl245188245849_)))) + (let ((_tl245191245857_ (let () (declare (not safe)) - (##cdr _e242598243257_))) - (_hd242597243260_ + (##cdr _e245193245852_))) + (_hd245192245855_ (let () (declare (not safe)) - (##car _e242598243257_)))) + (##car _e245193245852_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl242596243262_)) + (gx#stx-null? _tl245191245857_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl242590243246_)) - (let ((_e242601243265_ + (gx#stx-pair? _tl245185245841_)) + (let ((_e245196245860_ (let () (declare (not safe)) (gx#stx-e - _tl242590243246_)))) - (let ((_tl242599243270_ + _tl245185245841_)))) + (let ((_tl245194245865_ (let () (declare (not safe)) - (##cdr _e242601243265_))) - (_hd242600243268_ + (##cdr _e245196245860_))) + (_hd245195245863_ (let () (declare (not safe)) - (##car _e242601243265_)))) + (##car _e245196245860_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd242600243268_)) - (let ((_e242604243273_ + _hd245195245863_)) + (let ((_e245199245868_ (let () (declare (not safe)) (gx#stx-e - _hd242600243268_)))) - (let ((_tl242602243278_ + _hd245195245863_)))) + (let ((_tl245197245873_ (let () (declare (not safe)) - (##cdr _e242604243273_))) - (_hd242603243276_ + (##cdr _e245199245868_))) + (_hd245198245871_ (let () (declare (not safe)) - (##car _e242604243273_)))) + (##car _e245199245868_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd242603243276_)) + _hd245198245871_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd242603243276_)) + (gx#stx-eq? '%#quote _hd245198245871_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl242602243278_)) - (let ((_e242607243281_ + (gx#stx-pair? _tl245197245873_)) + (let ((_e245202245876_ (let () (declare (not safe)) - (gx#stx-e _tl242602243278_)))) - (let ((_tl242605243286_ + (gx#stx-e _tl245197245873_)))) + (let ((_tl245200245881_ (let () (declare (not safe)) - (##cdr _e242607243281_))) - (_hd242606243284_ + (##cdr _e245202245876_))) + (_hd245201245879_ (let () (declare (not safe)) - (##car _e242607243281_)))) + (##car _e245202245876_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl242605243286_)) + (gx#stx-null? _tl245200245881_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl242599243270_)) - (let ((___splice251517251518_ + (gx#stx-pair/null? _tl245194245865_)) + (let ((___splice254212254213_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl242599243270_ + _tl245194245865_ '0)))) - (let ((_tl242610243291_ + (let ((_tl245205245886_ (let () (declare (not safe)) (##vector-ref - ___splice251517251518_ + ___splice254212254213_ '1))) - (_target242608243289_ + (_target245203245884_ (let () (declare (not safe)) (##vector-ref - ___splice251517251518_ + ___splice254212254213_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl242610243291_)) - (___match251724251725_ - _e242571243185_ - _hd242570243188_ - _tl242569243190_ - _e242574243193_ - _hd242573243196_ - _tl242572243198_ - _e242577243201_ - _hd242576243204_ - _tl242575243206_ - _e242580243209_ - _hd242579243212_ - _tl242578243214_ - _e242583243217_ - _hd242582243220_ - _tl242581243222_ - _e242586243225_ - _hd242585243228_ - _tl242584243230_ - _e242589243233_ - _hd242588243236_ - _tl242587243238_ - _e242592243241_ - _hd242591243244_ - _tl242590243246_ - _e242595243249_ - _hd242594243252_ - _tl242593243254_ - _e242598243257_ - _hd242597243260_ - _tl242596243262_ - _e242601243265_ - _hd242600243268_ - _tl242599243270_ - _e242604243273_ - _hd242603243276_ - _tl242602243278_ - _e242607243281_ - _hd242606243284_ - _tl242605243286_ - ___splice251517251518_ - _target242608243289_ - _tl242610243291_) - (___kont251527251528_)))) - (___kont251527251528_)) - (___kont251527251528_)))) - (___kont251527251528_)) - (___kont251527251528_)) - (___kont251527251528_)))) + _tl245205245886_)) + (___match254419254420_ + _e245166245780_ + _hd245165245783_ + _tl245164245785_ + _e245169245788_ + _hd245168245791_ + _tl245167245793_ + _e245172245796_ + _hd245171245799_ + _tl245170245801_ + _e245175245804_ + _hd245174245807_ + _tl245173245809_ + _e245178245812_ + _hd245177245815_ + _tl245176245817_ + _e245181245820_ + _hd245180245823_ + _tl245179245825_ + _e245184245828_ + _hd245183245831_ + _tl245182245833_ + _e245187245836_ + _hd245186245839_ + _tl245185245841_ + _e245190245844_ + _hd245189245847_ + _tl245188245849_ + _e245193245852_ + _hd245192245855_ + _tl245191245857_ + _e245196245860_ + _hd245195245863_ + _tl245194245865_ + _e245199245868_ + _hd245198245871_ + _tl245197245873_ + _e245202245876_ + _hd245201245879_ + _tl245200245881_ + ___splice254212254213_ + _target245203245884_ + _tl245205245886_) + (___kont254222254223_)))) + (___kont254222254223_)) + (___kont254222254223_)))) + (___kont254222254223_)) + (___kont254222254223_)) + (___kont254222254223_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont251527251528_)))) - (___match252006252007_ - _e242571243185_ - _hd242570243188_ - _tl242569243190_ - _e242574243193_ - _hd242573243196_ - _tl242572243198_ - _e242577243201_ - _hd242576243204_ - _tl242575243206_ - _e242580243209_ - _hd242579243212_ - _tl242578243214_ - _e242583243217_ - _hd242582243220_ - _tl242581243222_ - _e242586243225_ - _hd242585243228_ - _tl242584243230_ - _e242589243233_ - _hd242588243236_ - _tl242587243238_ - _e242592243241_ - _hd242591243244_ - _tl242590243246_)) - (___match252006252007_ - _e242571243185_ - _hd242570243188_ - _tl242569243190_ - _e242574243193_ - _hd242573243196_ - _tl242572243198_ - _e242577243201_ - _hd242576243204_ - _tl242575243206_ - _e242580243209_ - _hd242579243212_ - _tl242578243214_ - _e242583243217_ - _hd242582243220_ - _tl242581243222_ - _e242586243225_ - _hd242585243228_ - _tl242584243230_ - _e242589243233_ - _hd242588243236_ - _tl242587243238_ - _e242592243241_ - _hd242591243244_ - _tl242590243246_)))) - (___match252006252007_ - _e242571243185_ - _hd242570243188_ - _tl242569243190_ - _e242574243193_ - _hd242573243196_ - _tl242572243198_ - _e242577243201_ - _hd242576243204_ - _tl242575243206_ - _e242580243209_ - _hd242579243212_ - _tl242578243214_ - _e242583243217_ - _hd242582243220_ - _tl242581243222_ - _e242586243225_ - _hd242585243228_ - _tl242584243230_ - _e242589243233_ - _hd242588243236_ - _tl242587243238_ - _e242592243241_ - _hd242591243244_ - _tl242590243246_)) - (___match251792251793_ - _e242571243185_ - _hd242570243188_ - _tl242569243190_ - _e242574243193_ - _hd242573243196_ - _tl242572243198_ - _e242577243201_ - _hd242576243204_ - _tl242575243206_ - _e242580243209_ - _hd242579243212_ - _tl242578243214_ - _e242583243217_ - _hd242582243220_ - _tl242581243222_ - _e242586243225_ - _hd242585243228_ - _tl242584243230_ - _e242589243233_ - _hd242588243236_ - _tl242587243238_ - _e242592243241_ - _hd242591243244_ - _tl242590243246_ - _e242595243249_ - _hd242594243252_ - _tl242593243254_)))) - (___match251614251615_ - (lambda (_e242527243374_ - _hd242526243377_ - _tl242525243379_ - _e242530243382_ - _hd242529243385_ - _tl242528243387_ - _e242533243390_ - _hd242532243393_ - _tl242531243395_ - _e242536243398_ - _hd242535243401_ - _tl242534243403_ - _e242539243406_ - _hd242538243409_ - _tl242537243411_ - _e242542243414_ - _hd242541243417_ - _tl242540243419_ - _e242545243422_ - _hd242544243425_ - _tl242543243427_ - _e242548243430_ - _hd242547243433_ - _tl242546243435_ - _e242551243438_ - _hd242550243441_ - _tl242549243443_ - _e242554243446_ - _hd242553243449_ - _tl242552243451_ - ___splice251513251514_ - _target242555243454_ - _tl242557243456_) - (letrec ((_loop242558243459_ - (lambda (_hd242556243462_ _args242562243464_) + (___kont254222254223_)))) + (___match254701254702_ + _e245166245780_ + _hd245165245783_ + _tl245164245785_ + _e245169245788_ + _hd245168245791_ + _tl245167245793_ + _e245172245796_ + _hd245171245799_ + _tl245170245801_ + _e245175245804_ + _hd245174245807_ + _tl245173245809_ + _e245178245812_ + _hd245177245815_ + _tl245176245817_ + _e245181245820_ + _hd245180245823_ + _tl245179245825_ + _e245184245828_ + _hd245183245831_ + _tl245182245833_ + _e245187245836_ + _hd245186245839_ + _tl245185245841_)) + (___match254701254702_ + _e245166245780_ + _hd245165245783_ + _tl245164245785_ + _e245169245788_ + _hd245168245791_ + _tl245167245793_ + _e245172245796_ + _hd245171245799_ + _tl245170245801_ + _e245175245804_ + _hd245174245807_ + _tl245173245809_ + _e245178245812_ + _hd245177245815_ + _tl245176245817_ + _e245181245820_ + _hd245180245823_ + _tl245179245825_ + _e245184245828_ + _hd245183245831_ + _tl245182245833_ + _e245187245836_ + _hd245186245839_ + _tl245185245841_)))) + (___match254701254702_ + _e245166245780_ + _hd245165245783_ + _tl245164245785_ + _e245169245788_ + _hd245168245791_ + _tl245167245793_ + _e245172245796_ + _hd245171245799_ + _tl245170245801_ + _e245175245804_ + _hd245174245807_ + _tl245173245809_ + _e245178245812_ + _hd245177245815_ + _tl245176245817_ + _e245181245820_ + _hd245180245823_ + _tl245179245825_ + _e245184245828_ + _hd245183245831_ + _tl245182245833_ + _e245187245836_ + _hd245186245839_ + _tl245185245841_)) + (___match254487254488_ + _e245166245780_ + _hd245165245783_ + _tl245164245785_ + _e245169245788_ + _hd245168245791_ + _tl245167245793_ + _e245172245796_ + _hd245171245799_ + _tl245170245801_ + _e245175245804_ + _hd245174245807_ + _tl245173245809_ + _e245178245812_ + _hd245177245815_ + _tl245176245817_ + _e245181245820_ + _hd245180245823_ + _tl245179245825_ + _e245184245828_ + _hd245183245831_ + _tl245182245833_ + _e245187245836_ + _hd245186245839_ + _tl245185245841_ + _e245190245844_ + _hd245189245847_ + _tl245188245849_)))) + (___match254309254310_ + (lambda (_e245122245969_ + _hd245121245972_ + _tl245120245974_ + _e245125245977_ + _hd245124245980_ + _tl245123245982_ + _e245128245985_ + _hd245127245988_ + _tl245126245990_ + _e245131245993_ + _hd245130245996_ + _tl245129245998_ + _e245134246001_ + _hd245133246004_ + _tl245132246006_ + _e245137246009_ + _hd245136246012_ + _tl245135246014_ + _e245140246017_ + _hd245139246020_ + _tl245138246022_ + _e245143246025_ + _hd245142246028_ + _tl245141246030_ + _e245146246033_ + _hd245145246036_ + _tl245144246038_ + _e245149246041_ + _hd245148246044_ + _tl245147246046_ + ___splice254208254209_ + _target245150246049_ + _tl245152246051_) + (letrec ((_loop245153246054_ + (lambda (_hd245151246057_ _args245157246059_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd242556243462_)) - (let ((_e242559243467_ + (gx#stx-pair? _hd245151246057_)) + (let ((_e245154246062_ (let () (declare (not safe)) - (gx#stx-e _hd242556243462_)))) - (let ((_lp-tl242561243472_ + (gx#stx-e _hd245151246057_)))) + (let ((_lp-tl245156246067_ (let () (declare (not safe)) - (##cdr _e242559243467_))) - (_lp-hd242560243470_ + (##cdr _e245154246062_))) + (_lp-hd245155246065_ (let () (declare (not safe)) - (##car _e242559243467_)))) - (let ((__tmp252881 + (##car _e245154246062_)))) + (let ((__tmp255576 (let () (declare (not safe)) - (cons _lp-hd242560243470_ - _args242562243464_)))) + (cons _lp-hd245155246065_ + _args245157246059_)))) (declare (not safe)) - (_loop242558243459_ - _lp-tl242561243472_ - __tmp252881)))) - (let ((_args242563243475_ - (reverse _args242562243464_))) - (let ((_L243478_ _args242563243475_) - (_L243479_ _hd242553243449_) - (_L243480_ _hd242544243425_) - (_L243481_ _hd242535243401_)) + (_loop245153246054_ + _lp-tl245156246067_ + __tmp255576)))) + (let ((_args245158246070_ + (reverse _args245157246059_))) + (let ((_L246073_ _args245158246070_) + (_L246074_ _hd245148246044_) + (_L246075_ _hd245139246020_) + (_L246076_ _hd245130245996_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L243481_ + _L246076_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L243480_ - _self242506_))) - (___kont251511251512_ - _L243478_ - _L243479_ - _L243480_ - _L243481_) - (___match251802251803_ - _e242527243374_ - _hd242526243377_ - _tl242525243379_ - _e242530243382_ - _hd242529243385_ - _tl242528243387_ - _e242533243390_ - _hd242532243393_ - _tl242531243395_ - _e242536243398_ - _hd242535243401_ - _tl242534243403_ - _e242539243406_ - _hd242538243409_ - _tl242537243411_ - _e242542243414_ - _hd242541243417_ - _tl242540243419_ - _e242545243422_ - _hd242544243425_ - _tl242543243427_ - _e242548243430_ - _hd242547243433_ - _tl242546243435_ - _e242551243438_ - _hd242550243441_ - _tl242549243443_ - _e242554243446_ - _hd242553243449_ - _tl242552243451_)))))))) + _L246075_ + _self245101_))) + (___kont254206254207_ + _L246073_ + _L246074_ + _L246075_ + _L246076_) + (___match254497254498_ + _e245122245969_ + _hd245121245972_ + _tl245120245974_ + _e245125245977_ + _hd245124245980_ + _tl245123245982_ + _e245128245985_ + _hd245127245988_ + _tl245126245990_ + _e245131245993_ + _hd245130245996_ + _tl245129245998_ + _e245134246001_ + _hd245133246004_ + _tl245132246006_ + _e245137246009_ + _hd245136246012_ + _tl245135246014_ + _e245140246017_ + _hd245139246020_ + _tl245138246022_ + _e245143246025_ + _hd245142246028_ + _tl245141246030_ + _e245146246033_ + _hd245145246036_ + _tl245144246038_ + _e245149246041_ + _hd245148246044_ + _tl245147246046_)))))))) (let () (declare (not safe)) - (_loop242558243459_ _target242555243454_ '())))))) + (_loop245153246054_ _target245150246049_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx251509251510_)) - (let ((_e242527243374_ + (gx#stx-pair? ___stx254204254205_)) + (let ((_e245122245969_ (let () (declare (not safe)) - (gx#stx-e ___stx251509251510_)))) - (let ((_tl242525243379_ + (gx#stx-e ___stx254204254205_)))) + (let ((_tl245120245974_ (let () (declare (not safe)) - (##cdr _e242527243374_))) - (_hd242526243377_ + (##cdr _e245122245969_))) + (_hd245121245972_ (let () (declare (not safe)) - (##car _e242527243374_)))) + (##car _e245122245969_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl242525243379_)) - (let ((_e242530243382_ + (gx#stx-pair? _tl245120245974_)) + (let ((_e245125245977_ (let () (declare (not safe)) - (gx#stx-e _tl242525243379_)))) - (let ((_tl242528243387_ + (gx#stx-e _tl245120245974_)))) + (let ((_tl245123245982_ (let () (declare (not safe)) - (##cdr _e242530243382_))) - (_hd242529243385_ + (##cdr _e245125245977_))) + (_hd245124245980_ (let () (declare (not safe)) - (##car _e242530243382_)))) + (##car _e245125245977_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd242529243385_)) - (let ((_e242533243390_ + (gx#stx-pair? _hd245124245980_)) + (let ((_e245128245985_ (let () (declare (not safe)) - (gx#stx-e _hd242529243385_)))) - (let ((_tl242531243395_ + (gx#stx-e _hd245124245980_)))) + (let ((_tl245126245990_ (let () (declare (not safe)) - (##cdr _e242533243390_))) - (_hd242532243393_ + (##cdr _e245128245985_))) + (_hd245127245988_ (let () (declare (not safe)) - (##car _e242533243390_)))) + (##car _e245128245985_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd242532243393_)) + (gx#identifier? _hd245127245988_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd242532243393_)) + _hd245127245988_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl242531243395_)) - (let ((_e242536243398_ + _tl245126245990_)) + (let ((_e245131245993_ (let () (declare (not safe)) (gx#stx-e - _tl242531243395_)))) - (let ((_tl242534243403_ + _tl245126245990_)))) + (let ((_tl245129245998_ (let () (declare (not safe)) - (##cdr _e242536243398_))) - (_hd242535243401_ + (##cdr _e245131245993_))) + (_hd245130245996_ (let () (declare (not safe)) - (##car _e242536243398_)))) + (##car _e245131245993_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl242534243403_)) + _tl245129245998_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl242528243387_)) - (let ((_e242539243406_ + (gx#stx-pair? _tl245123245982_)) + (let ((_e245134246001_ (let () (declare (not safe)) - (gx#stx-e _tl242528243387_)))) - (let ((_tl242537243411_ + (gx#stx-e _tl245123245982_)))) + (let ((_tl245132246006_ (let () (declare (not safe)) - (##cdr _e242539243406_))) - (_hd242538243409_ + (##cdr _e245134246001_))) + (_hd245133246004_ (let () (declare (not safe)) - (##car _e242539243406_)))) + (##car _e245134246001_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd242538243409_)) - (let ((_e242542243414_ + (gx#stx-pair? _hd245133246004_)) + (let ((_e245137246009_ (let () (declare (not safe)) - (gx#stx-e _hd242538243409_)))) - (let ((_tl242540243419_ + (gx#stx-e _hd245133246004_)))) + (let ((_tl245135246014_ (let () (declare (not safe)) - (##cdr _e242542243414_))) - (_hd242541243417_ + (##cdr _e245137246009_))) + (_hd245136246012_ (let () (declare (not safe)) - (##car _e242542243414_)))) + (##car _e245137246009_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd242541243417_)) + (gx#identifier? _hd245136246012_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd242541243417_)) + _hd245136246012_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl242540243419_)) - (let ((_e242545243422_ + _tl245135246014_)) + (let ((_e245140246017_ (let () (declare (not safe)) (gx#stx-e - _tl242540243419_)))) - (let ((_tl242543243427_ + _tl245135246014_)))) + (let ((_tl245138246022_ (let () (declare (not safe)) - (##cdr _e242545243422_))) - (_hd242544243425_ + (##cdr _e245140246017_))) + (_hd245139246020_ (let () (declare (not safe)) - (##car _e242545243422_)))) + (##car _e245140246017_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl242543243427_)) + _tl245138246022_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl242537243411_)) - (let ((_e242548243430_ + _tl245132246006_)) + (let ((_e245143246025_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl242537243411_)))) - (let ((_tl242546243435_ + (gx#stx-e _tl245132246006_)))) + (let ((_tl245141246030_ (let () (declare (not safe)) - (##cdr _e242548243430_))) - (_hd242547243433_ + (##cdr _e245143246025_))) + (_hd245142246028_ (let () (declare (not safe)) - (##car _e242548243430_)))) + (##car _e245143246025_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd242547243433_)) - (let ((_e242551243438_ + (gx#stx-pair? _hd245142246028_)) + (let ((_e245146246033_ (let () (declare (not safe)) - (gx#stx-e _hd242547243433_)))) - (let ((_tl242549243443_ + (gx#stx-e _hd245142246028_)))) + (let ((_tl245144246038_ (let () (declare (not safe)) - (##cdr _e242551243438_))) - (_hd242550243441_ + (##cdr _e245146246033_))) + (_hd245145246036_ (let () (declare (not safe)) - (##car _e242551243438_)))) + (##car _e245146246033_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd242550243441_)) + (gx#identifier? _hd245145246036_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd242550243441_)) + (gx#stx-eq? '%#quote _hd245145246036_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl242549243443_)) - (let ((_e242554243446_ + (gx#stx-pair? _tl245144246038_)) + (let ((_e245149246041_ (let () (declare (not safe)) (gx#stx-e - _tl242549243443_)))) - (let ((_tl242552243451_ + _tl245144246038_)))) + (let ((_tl245147246046_ (let () (declare (not safe)) - (##cdr _e242554243446_))) - (_hd242553243449_ + (##cdr _e245149246041_))) + (_hd245148246044_ (let () (declare (not safe)) - (##car _e242554243446_)))) + (##car _e245149246041_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl242552243451_)) + _tl245147246046_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl242546243435_)) - (let ((___splice251513251514_ + _tl245141246030_)) + (let ((___splice254208254209_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl242546243435_ '0)))) - (let ((_tl242557243456_ + (gx#syntax-split-splice _tl245141246030_ '0)))) + (let ((_tl245152246051_ (let () (declare (not safe)) - (##vector-ref ___splice251513251514_ '1))) - (_target242555243454_ + (##vector-ref ___splice254208254209_ '1))) + (_target245150246049_ (let () (declare (not safe)) - (##vector-ref ___splice251513251514_ '0)))) + (##vector-ref ___splice254208254209_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl242557243456_)) - (___match251614251615_ - _e242527243374_ - _hd242526243377_ - _tl242525243379_ - _e242530243382_ - _hd242529243385_ - _tl242528243387_ - _e242533243390_ - _hd242532243393_ - _tl242531243395_ - _e242536243398_ - _hd242535243401_ - _tl242534243403_ - _e242539243406_ - _hd242538243409_ - _tl242537243411_ - _e242542243414_ - _hd242541243417_ - _tl242540243419_ - _e242545243422_ - _hd242544243425_ - _tl242543243427_ - _e242548243430_ - _hd242547243433_ - _tl242546243435_ - _e242551243438_ - _hd242550243441_ - _tl242549243443_ - _e242554243446_ - _hd242553243449_ - _tl242552243451_ - ___splice251513251514_ - _target242555243454_ - _tl242557243456_) - (___match251802251803_ - _e242527243374_ - _hd242526243377_ - _tl242525243379_ - _e242530243382_ - _hd242529243385_ - _tl242528243387_ - _e242533243390_ - _hd242532243393_ - _tl242531243395_ - _e242536243398_ - _hd242535243401_ - _tl242534243403_ - _e242539243406_ - _hd242538243409_ - _tl242537243411_ - _e242542243414_ - _hd242541243417_ - _tl242540243419_ - _e242545243422_ - _hd242544243425_ - _tl242543243427_ - _e242548243430_ - _hd242547243433_ - _tl242546243435_ - _e242551243438_ - _hd242550243441_ - _tl242549243443_ - _e242554243446_ - _hd242553243449_ - _tl242552243451_)))) - (___match251802251803_ - _e242527243374_ - _hd242526243377_ - _tl242525243379_ - _e242530243382_ - _hd242529243385_ - _tl242528243387_ - _e242533243390_ - _hd242532243393_ - _tl242531243395_ - _e242536243398_ - _hd242535243401_ - _tl242534243403_ - _e242539243406_ - _hd242538243409_ - _tl242537243411_ - _e242542243414_ - _hd242541243417_ - _tl242540243419_ - _e242545243422_ - _hd242544243425_ - _tl242543243427_ - _e242548243430_ - _hd242547243433_ - _tl242546243435_ - _e242551243438_ - _hd242550243441_ - _tl242549243443_ - _e242554243446_ - _hd242553243449_ - _tl242552243451_)) + (gx#stx-null? _tl245152246051_)) + (___match254309254310_ + _e245122245969_ + _hd245121245972_ + _tl245120245974_ + _e245125245977_ + _hd245124245980_ + _tl245123245982_ + _e245128245985_ + _hd245127245988_ + _tl245126245990_ + _e245131245993_ + _hd245130245996_ + _tl245129245998_ + _e245134246001_ + _hd245133246004_ + _tl245132246006_ + _e245137246009_ + _hd245136246012_ + _tl245135246014_ + _e245140246017_ + _hd245139246020_ + _tl245138246022_ + _e245143246025_ + _hd245142246028_ + _tl245141246030_ + _e245146246033_ + _hd245145246036_ + _tl245144246038_ + _e245149246041_ + _hd245148246044_ + _tl245147246046_ + ___splice254208254209_ + _target245150246049_ + _tl245152246051_) + (___match254497254498_ + _e245122245969_ + _hd245121245972_ + _tl245120245974_ + _e245125245977_ + _hd245124245980_ + _tl245123245982_ + _e245128245985_ + _hd245127245988_ + _tl245126245990_ + _e245131245993_ + _hd245130245996_ + _tl245129245998_ + _e245134246001_ + _hd245133246004_ + _tl245132246006_ + _e245137246009_ + _hd245136246012_ + _tl245135246014_ + _e245140246017_ + _hd245139246020_ + _tl245138246022_ + _e245143246025_ + _hd245142246028_ + _tl245141246030_ + _e245146246033_ + _hd245145246036_ + _tl245144246038_ + _e245149246041_ + _hd245148246044_ + _tl245147246046_)))) + (___match254497254498_ + _e245122245969_ + _hd245121245972_ + _tl245120245974_ + _e245125245977_ + _hd245124245980_ + _tl245123245982_ + _e245128245985_ + _hd245127245988_ + _tl245126245990_ + _e245131245993_ + _hd245130245996_ + _tl245129245998_ + _e245134246001_ + _hd245133246004_ + _tl245132246006_ + _e245137246009_ + _hd245136246012_ + _tl245135246014_ + _e245140246017_ + _hd245139246020_ + _tl245138246022_ + _e245143246025_ + _hd245142246028_ + _tl245141246030_ + _e245146246033_ + _hd245145246036_ + _tl245144246038_ + _e245149246041_ + _hd245148246044_ + _tl245147246046_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match252006252007_ - _e242527243374_ - _hd242526243377_ - _tl242525243379_ - _e242530243382_ - _hd242529243385_ - _tl242528243387_ - _e242533243390_ - _hd242532243393_ - _tl242531243395_ - _e242536243398_ - _hd242535243401_ - _tl242534243403_ - _e242539243406_ - _hd242538243409_ - _tl242537243411_ - _e242542243414_ - _hd242541243417_ - _tl242540243419_ - _e242545243422_ - _hd242544243425_ - _tl242543243427_ - _e242548243430_ - _hd242547243433_ - _tl242546243435_)))) - (___match252006252007_ - _e242527243374_ - _hd242526243377_ - _tl242525243379_ - _e242530243382_ - _hd242529243385_ - _tl242528243387_ - _e242533243390_ - _hd242532243393_ - _tl242531243395_ - _e242536243398_ - _hd242535243401_ - _tl242534243403_ - _e242539243406_ - _hd242538243409_ - _tl242537243411_ - _e242542243414_ - _hd242541243417_ - _tl242540243419_ - _e242545243422_ - _hd242544243425_ - _tl242543243427_ - _e242548243430_ - _hd242547243433_ - _tl242546243435_)) - (___match251682251683_ - _e242527243374_ - _hd242526243377_ - _tl242525243379_ - _e242530243382_ - _hd242529243385_ - _tl242528243387_ - _e242533243390_ - _hd242532243393_ - _tl242531243395_ - _e242536243398_ - _hd242535243401_ - _tl242534243403_ - _e242539243406_ - _hd242538243409_ - _tl242537243411_ - _e242542243414_ - _hd242541243417_ - _tl242540243419_ - _e242545243422_ - _hd242544243425_ - _tl242543243427_ - _e242548243430_ - _hd242547243433_ - _tl242546243435_ - _e242551243438_ - _hd242550243441_ - _tl242549243443_)) - (___match252006252007_ - _e242527243374_ - _hd242526243377_ - _tl242525243379_ - _e242530243382_ - _hd242529243385_ - _tl242528243387_ - _e242533243390_ - _hd242532243393_ - _tl242531243395_ - _e242536243398_ - _hd242535243401_ - _tl242534243403_ - _e242539243406_ - _hd242538243409_ - _tl242537243411_ - _e242542243414_ - _hd242541243417_ - _tl242540243419_ - _e242545243422_ - _hd242544243425_ - _tl242543243427_ - _e242548243430_ - _hd242547243433_ - _tl242546243435_)))) - (___match252006252007_ - _e242527243374_ - _hd242526243377_ - _tl242525243379_ - _e242530243382_ - _hd242529243385_ - _tl242528243387_ - _e242533243390_ - _hd242532243393_ - _tl242531243395_ - _e242536243398_ - _hd242535243401_ - _tl242534243403_ - _e242539243406_ - _hd242538243409_ - _tl242537243411_ - _e242542243414_ - _hd242541243417_ - _tl242540243419_ - _e242545243422_ - _hd242544243425_ - _tl242543243427_ - _e242548243430_ - _hd242547243433_ - _tl242546243435_)))) - (___match251944251945_ - _e242527243374_ - _hd242526243377_ - _tl242525243379_ - _e242530243382_ - _hd242529243385_ - _tl242528243387_ - _e242533243390_ - _hd242532243393_ - _tl242531243395_ - _e242536243398_ - _hd242535243401_ - _tl242534243403_ - _e242539243406_ - _hd242538243409_ - _tl242537243411_ - _e242542243414_ - _hd242541243417_ - _tl242540243419_ - _e242545243422_ - _hd242544243425_ - _tl242543243427_)) - (___kont251527251528_)))) + (___match254701254702_ + _e245122245969_ + _hd245121245972_ + _tl245120245974_ + _e245125245977_ + _hd245124245980_ + _tl245123245982_ + _e245128245985_ + _hd245127245988_ + _tl245126245990_ + _e245131245993_ + _hd245130245996_ + _tl245129245998_ + _e245134246001_ + _hd245133246004_ + _tl245132246006_ + _e245137246009_ + _hd245136246012_ + _tl245135246014_ + _e245140246017_ + _hd245139246020_ + _tl245138246022_ + _e245143246025_ + _hd245142246028_ + _tl245141246030_)))) + (___match254701254702_ + _e245122245969_ + _hd245121245972_ + _tl245120245974_ + _e245125245977_ + _hd245124245980_ + _tl245123245982_ + _e245128245985_ + _hd245127245988_ + _tl245126245990_ + _e245131245993_ + _hd245130245996_ + _tl245129245998_ + _e245134246001_ + _hd245133246004_ + _tl245132246006_ + _e245137246009_ + _hd245136246012_ + _tl245135246014_ + _e245140246017_ + _hd245139246020_ + _tl245138246022_ + _e245143246025_ + _hd245142246028_ + _tl245141246030_)) + (___match254377254378_ + _e245122245969_ + _hd245121245972_ + _tl245120245974_ + _e245125245977_ + _hd245124245980_ + _tl245123245982_ + _e245128245985_ + _hd245127245988_ + _tl245126245990_ + _e245131245993_ + _hd245130245996_ + _tl245129245998_ + _e245134246001_ + _hd245133246004_ + _tl245132246006_ + _e245137246009_ + _hd245136246012_ + _tl245135246014_ + _e245140246017_ + _hd245139246020_ + _tl245138246022_ + _e245143246025_ + _hd245142246028_ + _tl245141246030_ + _e245146246033_ + _hd245145246036_ + _tl245144246038_)) + (___match254701254702_ + _e245122245969_ + _hd245121245972_ + _tl245120245974_ + _e245125245977_ + _hd245124245980_ + _tl245123245982_ + _e245128245985_ + _hd245127245988_ + _tl245126245990_ + _e245131245993_ + _hd245130245996_ + _tl245129245998_ + _e245134246001_ + _hd245133246004_ + _tl245132246006_ + _e245137246009_ + _hd245136246012_ + _tl245135246014_ + _e245140246017_ + _hd245139246020_ + _tl245138246022_ + _e245143246025_ + _hd245142246028_ + _tl245141246030_)))) + (___match254701254702_ + _e245122245969_ + _hd245121245972_ + _tl245120245974_ + _e245125245977_ + _hd245124245980_ + _tl245123245982_ + _e245128245985_ + _hd245127245988_ + _tl245126245990_ + _e245131245993_ + _hd245130245996_ + _tl245129245998_ + _e245134246001_ + _hd245133246004_ + _tl245132246006_ + _e245137246009_ + _hd245136246012_ + _tl245135246014_ + _e245140246017_ + _hd245139246020_ + _tl245138246022_ + _e245143246025_ + _hd245142246028_ + _tl245141246030_)))) + (___match254639254640_ + _e245122245969_ + _hd245121245972_ + _tl245120245974_ + _e245125245977_ + _hd245124245980_ + _tl245123245982_ + _e245128245985_ + _hd245127245988_ + _tl245126245990_ + _e245131245993_ + _hd245130245996_ + _tl245129245998_ + _e245134246001_ + _hd245133246004_ + _tl245132246006_ + _e245137246009_ + _hd245136246012_ + _tl245135246014_ + _e245140246017_ + _hd245139246020_ + _tl245138246022_)) + (___kont254222254223_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont251527251528_)) - (___kont251527251528_)) - (___kont251527251528_)))) - (___kont251527251528_)))) - (___kont251527251528_)) - (___kont251527251528_)))) + (___kont254222254223_)) + (___kont254222254223_)) + (___kont254222254223_)))) + (___kont254222254223_)))) + (___kont254222254223_)) + (___kont254222254223_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont251527251528_)) - (___kont251527251528_)) - (___kont251527251528_)))) - (___kont251527251528_)))) - (___kont251527251528_)))) - (___kont251527251528_))))))) + (___kont254222254223_)) + (___kont254222254223_)) + (___kont254222254223_)))) + (___kont254222254223_)))) + (___kont254222254223_)))) + (___kont254222254223_))))))) (define gxc#subst-object-refs-call% - (lambda (_stx241451_ - _self241452_ - _$t241453_ - _methods241454_ - _slots241455_ - _class-check241456_ - _struct-check241457_ - _struct-assert241458_) - (letrec ((_force-e241460_ - (lambda (_what242503_) - (let ((__tmp252882 - (let ((__tmp252886 - (let ((__tmp252887 + (lambda (_stx244046_ + _self244047_ + _$t244048_ + _methods244049_ + _slots244050_ + _class-check244051_ + _struct-check244052_ + _struct-assert244053_) + (letrec ((_force-e244055_ + (lambda (_what245098_) + (let ((__tmp255577 + (let ((__tmp255581 + (let ((__tmp255582 (let () (declare (not safe)) (cons 'force '())))) (declare (not safe)) - (cons '%#ref __tmp252887))) - (__tmp252883 - (let ((__tmp252884 - (let ((__tmp252885 + (cons '%#ref __tmp255582))) + (__tmp255578 + (let ((__tmp255579 + (let ((__tmp255580 (let () (declare (not safe)) - (cons _what242503_ '())))) + (cons _what245098_ '())))) (declare (not safe)) - (cons '%#ref __tmp252885)))) + (cons '%#ref __tmp255580)))) (declare (not safe)) - (cons __tmp252884 '())))) + (cons __tmp255579 '())))) (declare (not safe)) - (cons __tmp252886 __tmp252883)))) + (cons __tmp255581 __tmp255578)))) (declare (not safe)) - (cons '%#call __tmp252882))))) - (let* ((___stx252011252012_ _stx241451_) - (_g241468241690_ + (cons '%#call __tmp255577))))) + (let* ((___stx254706254707_ _stx244046_) + (_g244063244285_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx252011252012_))))) - (let ((___kont252013252014_ - (lambda (_L242449_ _L242450_ _L242451_ _L242452_) - (let ((_$method242497_ - (let ((__tmp252888 + ___stx254706254707_))))) + (let ((___kont254708254709_ + (lambda (_L245044_ _L245045_ _L245046_ _L245047_) + (let ((_$method245092_ + (let ((__tmp255583 (let () (declare (not safe)) - (gx#stx-e _L242450_)))) + (gx#stx-e _L245045_)))) (declare (not safe)) - (table-ref _methods241454_ __tmp252888))) - (_args242498_ - (map (lambda (_g242485242487_) + (table-ref _methods244049_ __tmp255583))) + (_args245093_ + (map (lambda (_g245080245082_) (let () (declare (not safe)) (gxc#compile-e__3 - _g242485242487_ - _self241452_ - _$t241453_ - _methods241454_ - _slots241455_ - _class-check241456_ - _struct-check241457_ - _struct-assert241458_))) - (let ((__tmp252889 - (lambda (_g242489242492_ - _g242490242494_) + _g245080245082_ + _self244047_ + _$t244048_ + _methods244049_ + _slots244050_ + _class-check244051_ + _struct-check244052_ + _struct-assert244053_))) + (let ((__tmp255584 + (lambda (_g245084245087_ + _g245085245089_) (let () (declare (not safe)) - (cons _g242489242492_ - _g242490242494_))))) + (cons _g245084245087_ + _g245085245089_))))) (declare (not safe)) - (foldr1 __tmp252889 '() _L242449_))))) - (let ((__tmp252890 - (let ((__tmp252891 - (let ((__tmp252895 + (foldr1 __tmp255584 '() _L245044_))))) + (let ((__tmp255585 + (let ((__tmp255586 + (let ((__tmp255590 (let () (declare (not safe)) - (_force-e241460_ - _$method242497_))) - (__tmp252892 - (let ((__tmp252893 - (let ((__tmp252894 + (_force-e244055_ + _$method245092_))) + (__tmp255587 + (let ((__tmp255588 + (let ((__tmp255589 (let () (declare (not safe)) - (cons _self241452_ + (cons _self244047_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp252894)))) + __tmp255589)))) (declare (not safe)) - (cons __tmp252893 - _args242498_)))) + (cons __tmp255588 + _args245093_)))) (declare (not safe)) - (cons __tmp252895 __tmp252892)))) + (cons __tmp255590 __tmp255587)))) (declare (not safe)) - (cons '%#call __tmp252891)))) + (cons '%#call __tmp255586)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252890 _stx241451_))))) - (___kont252017252018_ - (lambda (_L242281_ _L242282_ _L242283_ _L242284_ _L242285_) - (let ((_$method242337_ - (let ((__tmp252896 + (gxc#xform-wrap-source __tmp255585 _stx244046_))))) + (___kont254712254713_ + (lambda (_L244876_ _L244877_ _L244878_ _L244879_ _L244880_) + (let ((_$method244932_ + (let ((__tmp255591 (let () (declare (not safe)) - (gx#stx-e _L242282_)))) + (gx#stx-e _L244877_)))) (declare (not safe)) - (table-ref _methods241454_ __tmp252896))) - (_args242338_ - (map (lambda (_g242325242327_) + (table-ref _methods244049_ __tmp255591))) + (_args244933_ + (map (lambda (_g244920244922_) (let () (declare (not safe)) (gxc#compile-e__3 - _g242325242327_ - _self241452_ - _$t241453_ - _methods241454_ - _slots241455_ - _class-check241456_ - _struct-check241457_ - _struct-assert241458_))) - (let ((__tmp252897 - (lambda (_g242329242332_ - _g242330242334_) + _g244920244922_ + _self244047_ + _$t244048_ + _methods244049_ + _slots244050_ + _class-check244051_ + _struct-check244052_ + _struct-assert244053_))) + (let ((__tmp255592 + (lambda (_g244924244927_ + _g244925244929_) (let () (declare (not safe)) - (cons _g242329242332_ - _g242330242334_))))) + (cons _g244924244927_ + _g244925244929_))))) (declare (not safe)) - (foldr1 __tmp252897 '() _L242281_))))) - (let ((__tmp252898 - (let ((__tmp252899 - (let ((__tmp252905 - (let ((__tmp252906 + (foldr1 __tmp255592 '() _L244876_))))) + (let ((__tmp255593 + (let ((__tmp255594 + (let ((__tmp255600 + (let ((__tmp255601 (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp252906))) - (__tmp252900 - (let ((__tmp252904 + (cons '%#ref __tmp255601))) + (__tmp255595 + (let ((__tmp255599 (let () (declare (not safe)) - (_force-e241460_ - _$method242337_))) - (__tmp252901 - (let ((__tmp252902 - (let ((__tmp252903 + (_force-e244055_ + _$method244932_))) + (__tmp255596 + (let ((__tmp255597 + (let ((__tmp255598 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self241452_ '())))) + (cons _self244047_ '())))) (declare (not safe)) - (cons '%#ref __tmp252903)))) + (cons '%#ref __tmp255598)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252902 - _args242338_)))) + (cons __tmp255597 + _args244933_)))) (declare (not safe)) - (cons __tmp252904 __tmp252901)))) + (cons __tmp255599 __tmp255596)))) (declare (not safe)) - (cons __tmp252905 __tmp252900)))) + (cons __tmp255600 __tmp255595)))) (declare (not safe)) - (cons '%#call __tmp252899)))) + (cons '%#call __tmp255594)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252898 _stx241451_))))) - (___kont252021252022_ - (lambda (_L242112_ _L242113_ _L242114_) - (let* ((_$field242146_ - (let ((__tmp252907 + (gxc#xform-wrap-source __tmp255593 _stx244046_))))) + (___kont254716254717_ + (lambda (_L244707_ _L244708_ _L244709_) + (let* ((_$field244741_ + (let ((__tmp255602 (let () (declare (not safe)) - (gx#stx-e _L242112_)))) + (gx#stx-e _L244707_)))) (declare (not safe)) - (table-ref _slots241455_ __tmp252907))) - (__tmp252908 - (let ((__tmp252909 - (let ((__tmp252916 - (let ((__tmp252917 + (table-ref _slots244050_ __tmp255602))) + (__tmp255603 + (let ((__tmp255604 + (let ((__tmp255611 + (let ((__tmp255612 (let () (declare (not safe)) - (cons _$t241453_ '())))) + (cons _$t244048_ '())))) (declare (not safe)) - (cons '%#ref __tmp252917))) - (__tmp252910 - (let ((__tmp252914 - (let ((__tmp252915 + (cons '%#ref __tmp255612))) + (__tmp255605 + (let ((__tmp255609 + (let ((__tmp255610 (let () (declare (not safe)) - (cons _$field242146_ + (cons _$field244741_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp252915))) - (__tmp252911 - (let ((__tmp252912 - (let ((__tmp252913 + (cons '%#ref __tmp255610))) + (__tmp255606 + (let ((__tmp255607 + (let ((__tmp255608 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _self241452_ '())))) + (cons _self244047_ '())))) (declare (not safe)) - (cons '%#ref __tmp252913)))) + (cons '%#ref __tmp255608)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252912 '())))) + (cons __tmp255607 '())))) (declare (not safe)) - (cons __tmp252914 __tmp252911)))) + (cons __tmp255609 __tmp255606)))) (declare (not safe)) - (cons __tmp252916 __tmp252910)))) + (cons __tmp255611 __tmp255605)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp252909)))) + (cons '%#struct-unchecked-ref __tmp255604)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252908 _stx241451_)))) - (___kont252023252024_ - (lambda (_L241986_ _L241987_ _L241988_ _L241989_) - (let ((_$field242024_ - (let ((__tmp252918 + (gxc#xform-wrap-source __tmp255603 _stx244046_)))) + (___kont254718254719_ + (lambda (_L244581_ _L244582_ _L244583_ _L244584_) + (let ((_$field244619_ + (let ((__tmp255613 (let () (declare (not safe)) - (gx#stx-e _L241987_)))) + (gx#stx-e _L244582_)))) (declare (not safe)) - (table-ref _slots241455_ __tmp252918))) - (_expr242025_ + (table-ref _slots244050_ __tmp255613))) + (_expr244620_ (let () (declare (not safe)) (gxc#compile-e__3 - _L241986_ - _self241452_ - _$t241453_ - _methods241454_ - _slots241455_ - _class-check241456_ - _struct-check241457_ - _struct-assert241458_)))) - (let ((__tmp252919 - (let ((__tmp252920 - (let ((__tmp252928 - (let ((__tmp252929 + _L244581_ + _self244047_ + _$t244048_ + _methods244049_ + _slots244050_ + _class-check244051_ + _struct-check244052_ + _struct-assert244053_)))) + (let ((__tmp255614 + (let ((__tmp255615 + (let ((__tmp255623 + (let ((__tmp255624 (let () (declare (not safe)) - (cons _$t241453_ '())))) + (cons _$t244048_ '())))) (declare (not safe)) - (cons '%#ref __tmp252929))) - (__tmp252921 - (let ((__tmp252926 - (let ((__tmp252927 + (cons '%#ref __tmp255624))) + (__tmp255616 + (let ((__tmp255621 + (let ((__tmp255622 (let () (declare (not safe)) - (cons _$field242024_ + (cons _$field244619_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp252927))) - (__tmp252922 - (let ((__tmp252924 - (let ((__tmp252925 + __tmp255622))) + (__tmp255617 + (let ((__tmp255619 + (let ((__tmp255620 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self241452_ '())))) + (cons _self244047_ '())))) (declare (not safe)) - (cons '%#ref __tmp252925))) - (__tmp252923 - (let () (declare (not safe)) (cons _expr242025_ '())))) + (cons '%#ref __tmp255620))) + (__tmp255618 + (let () (declare (not safe)) (cons _expr244620_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252924 - __tmp252923)))) + (cons __tmp255619 + __tmp255618)))) (declare (not safe)) - (cons __tmp252926 __tmp252922)))) + (cons __tmp255621 __tmp255617)))) (declare (not safe)) - (cons __tmp252928 __tmp252921)))) + (cons __tmp255623 __tmp255616)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp252920)))) + (cons '%#struct-unchecked-set! __tmp255615)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252919 _stx241451_))))) - (___kont252025252026_ - (lambda (_L241865_ _L241866_) - (let* ((_slot241888_ + (gxc#xform-wrap-source __tmp255614 _stx244046_))))) + (___kont254720254721_ + (lambda (_L244460_ _L244461_) + (let* ((_slot244483_ (##structure-ref - (let ((__tmp252930 + (let ((__tmp255625 (let () (declare (not safe)) - (gxc#identifier-symbol _L241866_)))) + (gxc#identifier-symbol _L244461_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp252930)) + (gxc#optimizer-resolve-type __tmp255625)) '2 gxc#!accessor::t '#f)) - (_$field241890_ + (_$field244485_ (let () (declare (not safe)) - (table-ref _slots241455_ _slot241888_)))) - (let ((__tmp252931 - (let ((__tmp252932 - (let ((__tmp252939 - (let ((__tmp252940 + (table-ref _slots244050_ _slot244483_)))) + (let ((__tmp255626 + (let ((__tmp255627 + (let ((__tmp255634 + (let ((__tmp255635 (let () (declare (not safe)) - (cons _$t241453_ '())))) + (cons _$t244048_ '())))) (declare (not safe)) - (cons '%#ref __tmp252940))) - (__tmp252933 - (let ((__tmp252937 - (let ((__tmp252938 + (cons '%#ref __tmp255635))) + (__tmp255628 + (let ((__tmp255632 + (let ((__tmp255633 (let () (declare (not safe)) - (cons _$field241890_ + (cons _$field244485_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp252938))) - (__tmp252934 - (let ((__tmp252935 - (let ((__tmp252936 + __tmp255633))) + (__tmp255629 + (let ((__tmp255630 + (let ((__tmp255631 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self241452_ '())))) + (cons _self244047_ '())))) (declare (not safe)) - (cons '%#ref __tmp252936)))) + (cons '%#ref __tmp255631)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252935 '())))) + (cons __tmp255630 '())))) (declare (not safe)) - (cons __tmp252937 __tmp252934)))) + (cons __tmp255632 __tmp255629)))) (declare (not safe)) - (cons __tmp252939 __tmp252933)))) + (cons __tmp255634 __tmp255628)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp252932)))) + (cons '%#struct-unchecked-ref __tmp255627)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252931 _stx241451_))))) - (___kont252027252028_ - (lambda (_L241766_ _L241767_ _L241768_) - (let* ((_slot241797_ + (gxc#xform-wrap-source __tmp255626 _stx244046_))))) + (___kont254722254723_ + (lambda (_L244361_ _L244362_ _L244363_) + (let* ((_slot244392_ (##structure-ref - (let ((__tmp252941 + (let ((__tmp255636 (let () (declare (not safe)) - (gxc#identifier-symbol _L241768_)))) + (gxc#identifier-symbol _L244363_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp252941)) + (gxc#optimizer-resolve-type __tmp255636)) '2 gxc#!mutator::t '#f)) - (_$field241799_ + (_$field244394_ (let () (declare (not safe)) - (table-ref _slots241455_ _slot241797_))) - (_expr241801_ + (table-ref _slots244050_ _slot244392_))) + (_expr244396_ (let () (declare (not safe)) (gxc#compile-e__3 - _L241766_ - _self241452_ - _$t241453_ - _methods241454_ - _slots241455_ - _class-check241456_ - _struct-check241457_ - _struct-assert241458_)))) - (let ((__tmp252942 - (let ((__tmp252943 - (let ((__tmp252951 - (let ((__tmp252952 + _L244361_ + _self244047_ + _$t244048_ + _methods244049_ + _slots244050_ + _class-check244051_ + _struct-check244052_ + _struct-assert244053_)))) + (let ((__tmp255637 + (let ((__tmp255638 + (let ((__tmp255646 + (let ((__tmp255647 (let () (declare (not safe)) - (cons _$t241453_ '())))) + (cons _$t244048_ '())))) (declare (not safe)) - (cons '%#ref __tmp252952))) - (__tmp252944 - (let ((__tmp252949 - (let ((__tmp252950 + (cons '%#ref __tmp255647))) + (__tmp255639 + (let ((__tmp255644 + (let ((__tmp255645 (let () (declare (not safe)) - (cons _$field241799_ + (cons _$field244394_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp252950))) - (__tmp252945 - (let ((__tmp252947 - (let ((__tmp252948 + __tmp255645))) + (__tmp255640 + (let ((__tmp255642 + (let ((__tmp255643 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self241452_ '())))) + (cons _self244047_ '())))) (declare (not safe)) - (cons '%#ref __tmp252948))) - (__tmp252946 - (let () (declare (not safe)) (cons _expr241801_ '())))) + (cons '%#ref __tmp255643))) + (__tmp255641 + (let () (declare (not safe)) (cons _expr244396_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp252947 - __tmp252946)))) + (cons __tmp255642 + __tmp255641)))) (declare (not safe)) - (cons __tmp252949 __tmp252945)))) + (cons __tmp255644 __tmp255640)))) (declare (not safe)) - (cons __tmp252951 __tmp252944)))) + (cons __tmp255646 __tmp255639)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp252943)))) + (cons '%#struct-unchecked-set! __tmp255638)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp252942 _stx241451_))))) - (___kont252029252030_ + (gxc#xform-wrap-source __tmp255637 _stx244046_))))) + (___kont254724254725_ (lambda () (let () (declare (not safe)) (gxc#xform-operands - _stx241451_ - _self241452_ - _$t241453_ - _methods241454_ - _slots241455_ - _class-check241456_ - _struct-check241457_ - _struct-assert241458_))))) - (let* ((___match252510252511_ - (lambda (_e241664241702_ - _hd241663241705_ - _tl241662241707_ - _e241667241710_ - _hd241666241713_ - _tl241665241715_ - _e241670241718_ - _hd241669241721_ - _tl241668241723_ - _e241673241726_ - _hd241672241729_ - _tl241671241731_ - _e241676241734_ - _hd241675241737_ - _tl241674241739_ - _e241679241742_ - _hd241678241745_ - _tl241677241747_ - _e241682241750_ - _hd241681241753_ - _tl241680241755_ - _e241685241758_ - _hd241684241761_ - _tl241683241763_) - (let ((_L241766_ _hd241684241761_) - (_L241767_ _hd241681241753_) - (_L241768_ _hd241672241729_)) + _stx244046_ + _self244047_ + _$t244048_ + _methods244049_ + _slots244050_ + _class-check244051_ + _struct-check244052_ + _struct-assert244053_))))) + (let* ((___match255205255206_ + (lambda (_e244259244297_ + _hd244258244300_ + _tl244257244302_ + _e244262244305_ + _hd244261244308_ + _tl244260244310_ + _e244265244313_ + _hd244264244316_ + _tl244263244318_ + _e244268244321_ + _hd244267244324_ + _tl244266244326_ + _e244271244329_ + _hd244270244332_ + _tl244269244334_ + _e244274244337_ + _hd244273244340_ + _tl244272244342_ + _e244277244345_ + _hd244276244348_ + _tl244275244350_ + _e244280244353_ + _hd244279244356_ + _tl244278244358_) + (let ((_L244361_ _hd244279244356_) + (_L244362_ _hd244276244348_) + (_L244363_ _hd244267244324_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L241767_ - _self241452_)) - (let ((__tmp252953 - (let ((__tmp252954 + _L244362_ + _self244047_)) + (let ((__tmp255648 + (let ((__tmp255649 (let () (declare (not safe)) (gxc#identifier-symbol - _L241768_)))) + _L244363_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp252954)))) + __tmp255649)))) (declare (not safe)) (##structure-instance-of? - __tmp252953 + __tmp255648 'gxc#!mutator::t))) - (___kont252027252028_ - _L241766_ - _L241767_ - _L241768_) - (___kont252029252030_))))) - (___match252508252509_ - (lambda (_e241664241702_ - _hd241663241705_ - _tl241662241707_ - _e241667241710_ - _hd241666241713_ - _tl241665241715_ - _e241670241718_ - _hd241669241721_ - _tl241668241723_ - _e241673241726_ - _hd241672241729_ - _tl241671241731_ - _e241676241734_ - _hd241675241737_ - _tl241674241739_ - _e241679241742_ - _hd241678241745_ - _tl241677241747_ - _e241682241750_ - _hd241681241753_ - _tl241680241755_ - _e241685241758_ - _hd241684241761_ - _tl241683241763_) + (___kont254722254723_ + _L244361_ + _L244362_ + _L244363_) + (___kont254724254725_))))) + (___match255203255204_ + (lambda (_e244259244297_ + _hd244258244300_ + _tl244257244302_ + _e244262244305_ + _hd244261244308_ + _tl244260244310_ + _e244265244313_ + _hd244264244316_ + _tl244263244318_ + _e244268244321_ + _hd244267244324_ + _tl244266244326_ + _e244271244329_ + _hd244270244332_ + _tl244269244334_ + _e244274244337_ + _hd244273244340_ + _tl244272244342_ + _e244277244345_ + _hd244276244348_ + _tl244275244350_ + _e244280244353_ + _hd244279244356_ + _tl244278244358_) (if (let () (declare (not safe)) - (gx#stx-null? _tl241683241763_)) - (___match252510252511_ - _e241664241702_ - _hd241663241705_ - _tl241662241707_ - _e241667241710_ - _hd241666241713_ - _tl241665241715_ - _e241670241718_ - _hd241669241721_ - _tl241668241723_ - _e241673241726_ - _hd241672241729_ - _tl241671241731_ - _e241676241734_ - _hd241675241737_ - _tl241674241739_ - _e241679241742_ - _hd241678241745_ - _tl241677241747_ - _e241682241750_ - _hd241681241753_ - _tl241680241755_ - _e241685241758_ - _hd241684241761_ - _tl241683241763_) - (___kont252029252030_)))) - (___match252502252503_ - (lambda (_e241664241702_ - _hd241663241705_ - _tl241662241707_ - _e241667241710_ - _hd241666241713_ - _tl241665241715_ - _e241670241718_ - _hd241669241721_ - _tl241668241723_ - _e241673241726_ - _hd241672241729_ - _tl241671241731_ - _e241676241734_ - _hd241675241737_ - _tl241674241739_ - _e241679241742_ - _hd241678241745_ - _tl241677241747_ - _e241682241750_ - _hd241681241753_ - _tl241680241755_) + (gx#stx-null? _tl244278244358_)) + (___match255205255206_ + _e244259244297_ + _hd244258244300_ + _tl244257244302_ + _e244262244305_ + _hd244261244308_ + _tl244260244310_ + _e244265244313_ + _hd244264244316_ + _tl244263244318_ + _e244268244321_ + _hd244267244324_ + _tl244266244326_ + _e244271244329_ + _hd244270244332_ + _tl244269244334_ + _e244274244337_ + _hd244273244340_ + _tl244272244342_ + _e244277244345_ + _hd244276244348_ + _tl244275244350_ + _e244280244353_ + _hd244279244356_ + _tl244278244358_) + (___kont254724254725_)))) + (___match255197255198_ + (lambda (_e244259244297_ + _hd244258244300_ + _tl244257244302_ + _e244262244305_ + _hd244261244308_ + _tl244260244310_ + _e244265244313_ + _hd244264244316_ + _tl244263244318_ + _e244268244321_ + _hd244267244324_ + _tl244266244326_ + _e244271244329_ + _hd244270244332_ + _tl244269244334_ + _e244274244337_ + _hd244273244340_ + _tl244272244342_ + _e244277244345_ + _hd244276244348_ + _tl244275244350_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl241674241739_)) - (let ((_e241685241758_ + (gx#stx-pair? _tl244269244334_)) + (let ((_e244280244353_ (let () (declare (not safe)) - (gx#stx-e _tl241674241739_)))) - (let ((_tl241683241763_ + (gx#stx-e _tl244269244334_)))) + (let ((_tl244278244358_ (let () (declare (not safe)) - (##cdr _e241685241758_))) - (_hd241684241761_ + (##cdr _e244280244353_))) + (_hd244279244356_ (let () (declare (not safe)) - (##car _e241685241758_)))) + (##car _e244280244353_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl241683241763_)) - (___match252510252511_ - _e241664241702_ - _hd241663241705_ - _tl241662241707_ - _e241667241710_ - _hd241666241713_ - _tl241665241715_ - _e241670241718_ - _hd241669241721_ - _tl241668241723_ - _e241673241726_ - _hd241672241729_ - _tl241671241731_ - _e241676241734_ - _hd241675241737_ - _tl241674241739_ - _e241679241742_ - _hd241678241745_ - _tl241677241747_ - _e241682241750_ - _hd241681241753_ - _tl241680241755_ - _e241685241758_ - _hd241684241761_ - _tl241683241763_) - (___kont252029252030_)))) - (___kont252029252030_)))) - (___match252448252449_ - (lambda (_e241640241809_ - _hd241639241812_ - _tl241638241814_ - _e241643241817_ - _hd241642241820_ - _tl241641241822_ - _e241646241825_ - _hd241645241828_ - _tl241644241830_ - _e241649241833_ - _hd241648241836_ - _tl241647241838_ - _e241652241841_ - _hd241651241844_ - _tl241650241846_ - _e241655241849_ - _hd241654241852_ - _tl241653241854_ - _e241658241857_ - _hd241657241860_ - _tl241656241862_) - (let ((_L241865_ _hd241657241860_) - (_L241866_ _hd241648241836_)) + (gx#stx-null? _tl244278244358_)) + (___match255205255206_ + _e244259244297_ + _hd244258244300_ + _tl244257244302_ + _e244262244305_ + _hd244261244308_ + _tl244260244310_ + _e244265244313_ + _hd244264244316_ + _tl244263244318_ + _e244268244321_ + _hd244267244324_ + _tl244266244326_ + _e244271244329_ + _hd244270244332_ + _tl244269244334_ + _e244274244337_ + _hd244273244340_ + _tl244272244342_ + _e244277244345_ + _hd244276244348_ + _tl244275244350_ + _e244280244353_ + _hd244279244356_ + _tl244278244358_) + (___kont254724254725_)))) + (___kont254724254725_)))) + (___match255143255144_ + (lambda (_e244235244404_ + _hd244234244407_ + _tl244233244409_ + _e244238244412_ + _hd244237244415_ + _tl244236244417_ + _e244241244420_ + _hd244240244423_ + _tl244239244425_ + _e244244244428_ + _hd244243244431_ + _tl244242244433_ + _e244247244436_ + _hd244246244439_ + _tl244245244441_ + _e244250244444_ + _hd244249244447_ + _tl244248244449_ + _e244253244452_ + _hd244252244455_ + _tl244251244457_) + (let ((_L244460_ _hd244252244455_) + (_L244461_ _hd244243244431_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L241865_ - _self241452_)) - (let ((__tmp252955 - (let ((__tmp252956 + _L244460_ + _self244047_)) + (let ((__tmp255650 + (let ((__tmp255651 (let () (declare (not safe)) (gxc#identifier-symbol - _L241866_)))) + _L244461_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp252956)))) + __tmp255651)))) (declare (not safe)) (##structure-instance-of? - __tmp252955 + __tmp255650 'gxc#!accessor::t))) - (___kont252025252026_ _L241865_ _L241866_) - (___kont252029252030_))))) - (___match252446252447_ - (lambda (_e241640241809_ - _hd241639241812_ - _tl241638241814_ - _e241643241817_ - _hd241642241820_ - _tl241641241822_ - _e241646241825_ - _hd241645241828_ - _tl241644241830_ - _e241649241833_ - _hd241648241836_ - _tl241647241838_ - _e241652241841_ - _hd241651241844_ - _tl241650241846_ - _e241655241849_ - _hd241654241852_ - _tl241653241854_ - _e241658241857_ - _hd241657241860_ - _tl241656241862_) + (___kont254720254721_ _L244460_ _L244461_) + (___kont254724254725_))))) + (___match255141255142_ + (lambda (_e244235244404_ + _hd244234244407_ + _tl244233244409_ + _e244238244412_ + _hd244237244415_ + _tl244236244417_ + _e244241244420_ + _hd244240244423_ + _tl244239244425_ + _e244244244428_ + _hd244243244431_ + _tl244242244433_ + _e244247244436_ + _hd244246244439_ + _tl244245244441_ + _e244250244444_ + _hd244249244447_ + _tl244248244449_ + _e244253244452_ + _hd244252244455_ + _tl244251244457_) (if (let () (declare (not safe)) - (gx#stx-null? _tl241650241846_)) - (___match252448252449_ - _e241640241809_ - _hd241639241812_ - _tl241638241814_ - _e241643241817_ - _hd241642241820_ - _tl241641241822_ - _e241646241825_ - _hd241645241828_ - _tl241644241830_ - _e241649241833_ - _hd241648241836_ - _tl241647241838_ - _e241652241841_ - _hd241651241844_ - _tl241650241846_ - _e241655241849_ - _hd241654241852_ - _tl241653241854_ - _e241658241857_ - _hd241657241860_ - _tl241656241862_) - (___match252502252503_ - _e241640241809_ - _hd241639241812_ - _tl241638241814_ - _e241643241817_ - _hd241642241820_ - _tl241641241822_ - _e241646241825_ - _hd241645241828_ - _tl241644241830_ - _e241649241833_ - _hd241648241836_ - _tl241647241838_ - _e241652241841_ - _hd241651241844_ - _tl241650241846_ - _e241655241849_ - _hd241654241852_ - _tl241653241854_ - _e241658241857_ - _hd241657241860_ - _tl241656241862_)))) - (___match252392252393_ - (lambda (_e241605241898_ - _hd241604241901_ - _tl241603241903_ - _e241608241906_ - _hd241607241909_ - _tl241606241911_ - _e241611241914_ - _hd241610241917_ - _tl241609241919_ - _e241614241922_ - _hd241613241925_ - _tl241612241927_ - _e241617241930_ - _hd241616241933_ - _tl241615241935_ - _e241620241938_ - _hd241619241941_ - _tl241618241943_ - _e241623241946_ - _hd241622241949_ - _tl241621241951_ - _e241626241954_ - _hd241625241957_ - _tl241624241959_ - _e241629241962_ - _hd241628241965_ - _tl241627241967_ - _e241632241970_ - _hd241631241973_ - _tl241630241975_ - _e241635241978_ - _hd241634241981_ - _tl241633241983_) - (let ((_L241986_ _hd241634241981_) - (_L241987_ _hd241631241973_) - (_L241988_ _hd241622241949_) - (_L241989_ _hd241613241925_)) + (gx#stx-null? _tl244245244441_)) + (___match255143255144_ + _e244235244404_ + _hd244234244407_ + _tl244233244409_ + _e244238244412_ + _hd244237244415_ + _tl244236244417_ + _e244241244420_ + _hd244240244423_ + _tl244239244425_ + _e244244244428_ + _hd244243244431_ + _tl244242244433_ + _e244247244436_ + _hd244246244439_ + _tl244245244441_ + _e244250244444_ + _hd244249244447_ + _tl244248244449_ + _e244253244452_ + _hd244252244455_ + _tl244251244457_) + (___match255197255198_ + _e244235244404_ + _hd244234244407_ + _tl244233244409_ + _e244238244412_ + _hd244237244415_ + _tl244236244417_ + _e244241244420_ + _hd244240244423_ + _tl244239244425_ + _e244244244428_ + _hd244243244431_ + _tl244242244433_ + _e244247244436_ + _hd244246244439_ + _tl244245244441_ + _e244250244444_ + _hd244249244447_ + _tl244248244449_ + _e244253244452_ + _hd244252244455_ + _tl244251244457_)))) + (___match255087255088_ + (lambda (_e244200244493_ + _hd244199244496_ + _tl244198244498_ + _e244203244501_ + _hd244202244504_ + _tl244201244506_ + _e244206244509_ + _hd244205244512_ + _tl244204244514_ + _e244209244517_ + _hd244208244520_ + _tl244207244522_ + _e244212244525_ + _hd244211244528_ + _tl244210244530_ + _e244215244533_ + _hd244214244536_ + _tl244213244538_ + _e244218244541_ + _hd244217244544_ + _tl244216244546_ + _e244221244549_ + _hd244220244552_ + _tl244219244554_ + _e244224244557_ + _hd244223244560_ + _tl244222244562_ + _e244227244565_ + _hd244226244568_ + _tl244225244570_ + _e244230244573_ + _hd244229244576_ + _tl244228244578_) + (let ((_L244581_ _hd244229244576_) + (_L244582_ _hd244226244568_) + (_L244583_ _hd244217244544_) + (_L244584_ _hd244208244520_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L241989_ + _L244584_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L241989_ + _L244584_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L241988_ - _self241452_))) - (___kont252023252024_ - _L241986_ - _L241987_ - _L241988_ - _L241989_) - (___kont252029252030_))))) - (___match252384252385_ - (lambda (_e241605241898_ - _hd241604241901_ - _tl241603241903_ - _e241608241906_ - _hd241607241909_ - _tl241606241911_ - _e241611241914_ - _hd241610241917_ - _tl241609241919_ - _e241614241922_ - _hd241613241925_ - _tl241612241927_ - _e241617241930_ - _hd241616241933_ - _tl241615241935_ - _e241620241938_ - _hd241619241941_ - _tl241618241943_ - _e241623241946_ - _hd241622241949_ - _tl241621241951_ - _e241626241954_ - _hd241625241957_ - _tl241624241959_ - _e241629241962_ - _hd241628241965_ - _tl241627241967_ - _e241632241970_ - _hd241631241973_ - _tl241630241975_) + _L244583_ + _self244047_))) + (___kont254718254719_ + _L244581_ + _L244582_ + _L244583_ + _L244584_) + (___kont254724254725_))))) + (___match255079255080_ + (lambda (_e244200244493_ + _hd244199244496_ + _tl244198244498_ + _e244203244501_ + _hd244202244504_ + _tl244201244506_ + _e244206244509_ + _hd244205244512_ + _tl244204244514_ + _e244209244517_ + _hd244208244520_ + _tl244207244522_ + _e244212244525_ + _hd244211244528_ + _tl244210244530_ + _e244215244533_ + _hd244214244536_ + _tl244213244538_ + _e244218244541_ + _hd244217244544_ + _tl244216244546_ + _e244221244549_ + _hd244220244552_ + _tl244219244554_ + _e244224244557_ + _hd244223244560_ + _tl244222244562_ + _e244227244565_ + _hd244226244568_ + _tl244225244570_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl241624241959_)) - (let ((_e241635241978_ + (gx#stx-pair? _tl244219244554_)) + (let ((_e244230244573_ (let () (declare (not safe)) - (gx#stx-e _tl241624241959_)))) - (let ((_tl241633241983_ + (gx#stx-e _tl244219244554_)))) + (let ((_tl244228244578_ (let () (declare (not safe)) - (##cdr _e241635241978_))) - (_hd241634241981_ + (##cdr _e244230244573_))) + (_hd244229244576_ (let () (declare (not safe)) - (##car _e241635241978_)))) + (##car _e244230244573_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl241633241983_)) - (___match252392252393_ - _e241605241898_ - _hd241604241901_ - _tl241603241903_ - _e241608241906_ - _hd241607241909_ - _tl241606241911_ - _e241611241914_ - _hd241610241917_ - _tl241609241919_ - _e241614241922_ - _hd241613241925_ - _tl241612241927_ - _e241617241930_ - _hd241616241933_ - _tl241615241935_ - _e241620241938_ - _hd241619241941_ - _tl241618241943_ - _e241623241946_ - _hd241622241949_ - _tl241621241951_ - _e241626241954_ - _hd241625241957_ - _tl241624241959_ - _e241629241962_ - _hd241628241965_ - _tl241627241967_ - _e241632241970_ - _hd241631241973_ - _tl241630241975_ - _e241635241978_ - _hd241634241981_ - _tl241633241983_) - (___kont252029252030_)))) - (___match252508252509_ - _e241605241898_ - _hd241604241901_ - _tl241603241903_ - _e241608241906_ - _hd241607241909_ - _tl241606241911_ - _e241611241914_ - _hd241610241917_ - _tl241609241919_ - _e241614241922_ - _hd241613241925_ - _tl241612241927_ - _e241617241930_ - _hd241616241933_ - _tl241615241935_ - _e241620241938_ - _hd241619241941_ - _tl241618241943_ - _e241623241946_ - _hd241622241949_ - _tl241621241951_ - _e241626241954_ - _hd241625241957_ - _tl241624241959_)))) - (___match252306252307_ - (lambda (_e241571242032_ - _hd241570242035_ - _tl241569242037_ - _e241574242040_ - _hd241573242043_ - _tl241572242045_ - _e241577242048_ - _hd241576242051_ - _tl241575242053_ - _e241580242056_ - _hd241579242059_ - _tl241578242061_ - _e241583242064_ - _hd241582242067_ - _tl241581242069_ - _e241586242072_ - _hd241585242075_ - _tl241584242077_ - _e241589242080_ - _hd241588242083_ - _tl241587242085_ - _e241592242088_ - _hd241591242091_ - _tl241590242093_ - _e241595242096_ - _hd241594242099_ - _tl241593242101_ - _e241598242104_ - _hd241597242107_ - _tl241596242109_) - (let ((_L242112_ _hd241597242107_) - (_L242113_ _hd241588242083_) - (_L242114_ _hd241579242059_)) + (gx#stx-null? _tl244228244578_)) + (___match255087255088_ + _e244200244493_ + _hd244199244496_ + _tl244198244498_ + _e244203244501_ + _hd244202244504_ + _tl244201244506_ + _e244206244509_ + _hd244205244512_ + _tl244204244514_ + _e244209244517_ + _hd244208244520_ + _tl244207244522_ + _e244212244525_ + _hd244211244528_ + _tl244210244530_ + _e244215244533_ + _hd244214244536_ + _tl244213244538_ + _e244218244541_ + _hd244217244544_ + _tl244216244546_ + _e244221244549_ + _hd244220244552_ + _tl244219244554_ + _e244224244557_ + _hd244223244560_ + _tl244222244562_ + _e244227244565_ + _hd244226244568_ + _tl244225244570_ + _e244230244573_ + _hd244229244576_ + _tl244228244578_) + (___kont254724254725_)))) + (___match255203255204_ + _e244200244493_ + _hd244199244496_ + _tl244198244498_ + _e244203244501_ + _hd244202244504_ + _tl244201244506_ + _e244206244509_ + _hd244205244512_ + _tl244204244514_ + _e244209244517_ + _hd244208244520_ + _tl244207244522_ + _e244212244525_ + _hd244211244528_ + _tl244210244530_ + _e244215244533_ + _hd244214244536_ + _tl244213244538_ + _e244218244541_ + _hd244217244544_ + _tl244216244546_ + _e244221244549_ + _hd244220244552_ + _tl244219244554_)))) + (___match255001255002_ + (lambda (_e244166244627_ + _hd244165244630_ + _tl244164244632_ + _e244169244635_ + _hd244168244638_ + _tl244167244640_ + _e244172244643_ + _hd244171244646_ + _tl244170244648_ + _e244175244651_ + _hd244174244654_ + _tl244173244656_ + _e244178244659_ + _hd244177244662_ + _tl244176244664_ + _e244181244667_ + _hd244180244670_ + _tl244179244672_ + _e244184244675_ + _hd244183244678_ + _tl244182244680_ + _e244187244683_ + _hd244186244686_ + _tl244185244688_ + _e244190244691_ + _hd244189244694_ + _tl244188244696_ + _e244193244699_ + _hd244192244702_ + _tl244191244704_) + (let ((_L244707_ _hd244192244702_) + (_L244708_ _hd244183244678_) + (_L244709_ _hd244174244654_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L242114_ + _L244709_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L242114_ + _L244709_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L242113_ - _self241452_))) - (___kont252021252022_ - _L242112_ - _L242113_ - _L242114_) - (___match252510252511_ - _e241571242032_ - _hd241570242035_ - _tl241569242037_ - _e241574242040_ - _hd241573242043_ - _tl241572242045_ - _e241577242048_ - _hd241576242051_ - _tl241575242053_ - _e241580242056_ - _hd241579242059_ - _tl241578242061_ - _e241583242064_ - _hd241582242067_ - _tl241581242069_ - _e241586242072_ - _hd241585242075_ - _tl241584242077_ - _e241589242080_ - _hd241588242083_ - _tl241587242085_ - _e241592242088_ - _hd241591242091_ - _tl241590242093_))))) - (___match252304252305_ - (lambda (_e241571242032_ - _hd241570242035_ - _tl241569242037_ - _e241574242040_ - _hd241573242043_ - _tl241572242045_ - _e241577242048_ - _hd241576242051_ - _tl241575242053_ - _e241580242056_ - _hd241579242059_ - _tl241578242061_ - _e241583242064_ - _hd241582242067_ - _tl241581242069_ - _e241586242072_ - _hd241585242075_ - _tl241584242077_ - _e241589242080_ - _hd241588242083_ - _tl241587242085_ - _e241592242088_ - _hd241591242091_ - _tl241590242093_ - _e241595242096_ - _hd241594242099_ - _tl241593242101_ - _e241598242104_ - _hd241597242107_ - _tl241596242109_) + _L244708_ + _self244047_))) + (___kont254716254717_ + _L244707_ + _L244708_ + _L244709_) + (___match255205255206_ + _e244166244627_ + _hd244165244630_ + _tl244164244632_ + _e244169244635_ + _hd244168244638_ + _tl244167244640_ + _e244172244643_ + _hd244171244646_ + _tl244170244648_ + _e244175244651_ + _hd244174244654_ + _tl244173244656_ + _e244178244659_ + _hd244177244662_ + _tl244176244664_ + _e244181244667_ + _hd244180244670_ + _tl244179244672_ + _e244184244675_ + _hd244183244678_ + _tl244182244680_ + _e244187244683_ + _hd244186244686_ + _tl244185244688_))))) + (___match254999255000_ + (lambda (_e244166244627_ + _hd244165244630_ + _tl244164244632_ + _e244169244635_ + _hd244168244638_ + _tl244167244640_ + _e244172244643_ + _hd244171244646_ + _tl244170244648_ + _e244175244651_ + _hd244174244654_ + _tl244173244656_ + _e244178244659_ + _hd244177244662_ + _tl244176244664_ + _e244181244667_ + _hd244180244670_ + _tl244179244672_ + _e244184244675_ + _hd244183244678_ + _tl244182244680_ + _e244187244683_ + _hd244186244686_ + _tl244185244688_ + _e244190244691_ + _hd244189244694_ + _tl244188244696_ + _e244193244699_ + _hd244192244702_ + _tl244191244704_) (if (let () (declare (not safe)) - (gx#stx-null? _tl241590242093_)) - (___match252306252307_ - _e241571242032_ - _hd241570242035_ - _tl241569242037_ - _e241574242040_ - _hd241573242043_ - _tl241572242045_ - _e241577242048_ - _hd241576242051_ - _tl241575242053_ - _e241580242056_ - _hd241579242059_ - _tl241578242061_ - _e241583242064_ - _hd241582242067_ - _tl241581242069_ - _e241586242072_ - _hd241585242075_ - _tl241584242077_ - _e241589242080_ - _hd241588242083_ - _tl241587242085_ - _e241592242088_ - _hd241591242091_ - _tl241590242093_ - _e241595242096_ - _hd241594242099_ - _tl241593242101_ - _e241598242104_ - _hd241597242107_ - _tl241596242109_) - (___match252384252385_ - _e241571242032_ - _hd241570242035_ - _tl241569242037_ - _e241574242040_ - _hd241573242043_ - _tl241572242045_ - _e241577242048_ - _hd241576242051_ - _tl241575242053_ - _e241580242056_ - _hd241579242059_ - _tl241578242061_ - _e241583242064_ - _hd241582242067_ - _tl241581242069_ - _e241586242072_ - _hd241585242075_ - _tl241584242077_ - _e241589242080_ - _hd241588242083_ - _tl241587242085_ - _e241592242088_ - _hd241591242091_ - _tl241590242093_ - _e241595242096_ - _hd241594242099_ - _tl241593242101_ - _e241598242104_ - _hd241597242107_ - _tl241596242109_)))) - (___match252294252295_ - (lambda (_e241571242032_ - _hd241570242035_ - _tl241569242037_ - _e241574242040_ - _hd241573242043_ - _tl241572242045_ - _e241577242048_ - _hd241576242051_ - _tl241575242053_ - _e241580242056_ - _hd241579242059_ - _tl241578242061_ - _e241583242064_ - _hd241582242067_ - _tl241581242069_ - _e241586242072_ - _hd241585242075_ - _tl241584242077_ - _e241589242080_ - _hd241588242083_ - _tl241587242085_ - _e241592242088_ - _hd241591242091_ - _tl241590242093_ - _e241595242096_ - _hd241594242099_ - _tl241593242101_) + (gx#stx-null? _tl244185244688_)) + (___match255001255002_ + _e244166244627_ + _hd244165244630_ + _tl244164244632_ + _e244169244635_ + _hd244168244638_ + _tl244167244640_ + _e244172244643_ + _hd244171244646_ + _tl244170244648_ + _e244175244651_ + _hd244174244654_ + _tl244173244656_ + _e244178244659_ + _hd244177244662_ + _tl244176244664_ + _e244181244667_ + _hd244180244670_ + _tl244179244672_ + _e244184244675_ + _hd244183244678_ + _tl244182244680_ + _e244187244683_ + _hd244186244686_ + _tl244185244688_ + _e244190244691_ + _hd244189244694_ + _tl244188244696_ + _e244193244699_ + _hd244192244702_ + _tl244191244704_) + (___match255079255080_ + _e244166244627_ + _hd244165244630_ + _tl244164244632_ + _e244169244635_ + _hd244168244638_ + _tl244167244640_ + _e244172244643_ + _hd244171244646_ + _tl244170244648_ + _e244175244651_ + _hd244174244654_ + _tl244173244656_ + _e244178244659_ + _hd244177244662_ + _tl244176244664_ + _e244181244667_ + _hd244180244670_ + _tl244179244672_ + _e244184244675_ + _hd244183244678_ + _tl244182244680_ + _e244187244683_ + _hd244186244686_ + _tl244185244688_ + _e244190244691_ + _hd244189244694_ + _tl244188244696_ + _e244193244699_ + _hd244192244702_ + _tl244191244704_)))) + (___match254989254990_ + (lambda (_e244166244627_ + _hd244165244630_ + _tl244164244632_ + _e244169244635_ + _hd244168244638_ + _tl244167244640_ + _e244172244643_ + _hd244171244646_ + _tl244170244648_ + _e244175244651_ + _hd244174244654_ + _tl244173244656_ + _e244178244659_ + _hd244177244662_ + _tl244176244664_ + _e244181244667_ + _hd244180244670_ + _tl244179244672_ + _e244184244675_ + _hd244183244678_ + _tl244182244680_ + _e244187244683_ + _hd244186244686_ + _tl244185244688_ + _e244190244691_ + _hd244189244694_ + _tl244188244696_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd241594242099_)) + (gx#stx-eq? '%#quote _hd244189244694_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl241593242101_)) - (let ((_e241598242104_ + (gx#stx-pair? _tl244188244696_)) + (let ((_e244193244699_ (let () (declare (not safe)) - (gx#stx-e _tl241593242101_)))) - (let ((_tl241596242109_ + (gx#stx-e _tl244188244696_)))) + (let ((_tl244191244704_ (let () (declare (not safe)) - (##cdr _e241598242104_))) - (_hd241597242107_ + (##cdr _e244193244699_))) + (_hd244192244702_ (let () (declare (not safe)) - (##car _e241598242104_)))) + (##car _e244193244699_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl241596242109_)) + (gx#stx-null? _tl244191244704_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl241590242093_)) - (___match252306252307_ - _e241571242032_ - _hd241570242035_ - _tl241569242037_ - _e241574242040_ - _hd241573242043_ - _tl241572242045_ - _e241577242048_ - _hd241576242051_ - _tl241575242053_ - _e241580242056_ - _hd241579242059_ - _tl241578242061_ - _e241583242064_ - _hd241582242067_ - _tl241581242069_ - _e241586242072_ - _hd241585242075_ - _tl241584242077_ - _e241589242080_ - _hd241588242083_ - _tl241587242085_ - _e241592242088_ - _hd241591242091_ - _tl241590242093_ - _e241595242096_ - _hd241594242099_ - _tl241593242101_ - _e241598242104_ - _hd241597242107_ - _tl241596242109_) - (___match252384252385_ - _e241571242032_ - _hd241570242035_ - _tl241569242037_ - _e241574242040_ - _hd241573242043_ - _tl241572242045_ - _e241577242048_ - _hd241576242051_ - _tl241575242053_ - _e241580242056_ - _hd241579242059_ - _tl241578242061_ - _e241583242064_ - _hd241582242067_ - _tl241581242069_ - _e241586242072_ - _hd241585242075_ - _tl241584242077_ - _e241589242080_ - _hd241588242083_ - _tl241587242085_ - _e241592242088_ - _hd241591242091_ - _tl241590242093_ - _e241595242096_ - _hd241594242099_ - _tl241593242101_ - _e241598242104_ - _hd241597242107_ - _tl241596242109_)) - (___match252508252509_ - _e241571242032_ - _hd241570242035_ - _tl241569242037_ - _e241574242040_ - _hd241573242043_ - _tl241572242045_ - _e241577242048_ - _hd241576242051_ - _tl241575242053_ - _e241580242056_ - _hd241579242059_ - _tl241578242061_ - _e241583242064_ - _hd241582242067_ - _tl241581242069_ - _e241586242072_ - _hd241585242075_ - _tl241584242077_ - _e241589242080_ - _hd241588242083_ - _tl241587242085_ - _e241592242088_ - _hd241591242091_ - _tl241590242093_)))) - (___match252508252509_ - _e241571242032_ - _hd241570242035_ - _tl241569242037_ - _e241574242040_ - _hd241573242043_ - _tl241572242045_ - _e241577242048_ - _hd241576242051_ - _tl241575242053_ - _e241580242056_ - _hd241579242059_ - _tl241578242061_ - _e241583242064_ - _hd241582242067_ - _tl241581242069_ - _e241586242072_ - _hd241585242075_ - _tl241584242077_ - _e241589242080_ - _hd241588242083_ - _tl241587242085_ - _e241592242088_ - _hd241591242091_ - _tl241590242093_)) - (___match252508252509_ - _e241571242032_ - _hd241570242035_ - _tl241569242037_ - _e241574242040_ - _hd241573242043_ - _tl241572242045_ - _e241577242048_ - _hd241576242051_ - _tl241575242053_ - _e241580242056_ - _hd241579242059_ - _tl241578242061_ - _e241583242064_ - _hd241582242067_ - _tl241581242069_ - _e241586242072_ - _hd241585242075_ - _tl241584242077_ - _e241589242080_ - _hd241588242083_ - _tl241587242085_ - _e241592242088_ - _hd241591242091_ - _tl241590242093_)))) - (___match252226252227_ - (lambda (_e241520242153_ - _hd241519242156_ - _tl241518242158_ - _e241523242161_ - _hd241522242164_ - _tl241521242166_ - _e241526242169_ - _hd241525242172_ - _tl241524242174_ - _e241529242177_ - _hd241528242180_ - _tl241527242182_ - _e241532242185_ - _hd241531242188_ - _tl241530242190_ - _e241535242193_ - _hd241534242196_ - _tl241533242198_ - _e241538242201_ - _hd241537242204_ - _tl241536242206_ - _e241541242209_ - _hd241540242212_ - _tl241539242214_ - _e241544242217_ - _hd241543242220_ - _tl241542242222_ - _e241547242225_ - _hd241546242228_ - _tl241545242230_ - _e241550242233_ - _hd241549242236_ - _tl241548242238_ - _e241553242241_ - _hd241552242244_ - _tl241551242246_ - _e241556242249_ - _hd241555242252_ - _tl241554242254_ - ___splice252019252020_ - _target241557242257_ - _tl241559242259_) - (letrec ((_loop241560242262_ - (lambda (_hd241558242265_ _args241564242267_) + (gx#stx-null? _tl244185244688_)) + (___match255001255002_ + _e244166244627_ + _hd244165244630_ + _tl244164244632_ + _e244169244635_ + _hd244168244638_ + _tl244167244640_ + _e244172244643_ + _hd244171244646_ + _tl244170244648_ + _e244175244651_ + _hd244174244654_ + _tl244173244656_ + _e244178244659_ + _hd244177244662_ + _tl244176244664_ + _e244181244667_ + _hd244180244670_ + _tl244179244672_ + _e244184244675_ + _hd244183244678_ + _tl244182244680_ + _e244187244683_ + _hd244186244686_ + _tl244185244688_ + _e244190244691_ + _hd244189244694_ + _tl244188244696_ + _e244193244699_ + _hd244192244702_ + _tl244191244704_) + (___match255079255080_ + _e244166244627_ + _hd244165244630_ + _tl244164244632_ + _e244169244635_ + _hd244168244638_ + _tl244167244640_ + _e244172244643_ + _hd244171244646_ + _tl244170244648_ + _e244175244651_ + _hd244174244654_ + _tl244173244656_ + _e244178244659_ + _hd244177244662_ + _tl244176244664_ + _e244181244667_ + _hd244180244670_ + _tl244179244672_ + _e244184244675_ + _hd244183244678_ + _tl244182244680_ + _e244187244683_ + _hd244186244686_ + _tl244185244688_ + _e244190244691_ + _hd244189244694_ + _tl244188244696_ + _e244193244699_ + _hd244192244702_ + _tl244191244704_)) + (___match255203255204_ + _e244166244627_ + _hd244165244630_ + _tl244164244632_ + _e244169244635_ + _hd244168244638_ + _tl244167244640_ + _e244172244643_ + _hd244171244646_ + _tl244170244648_ + _e244175244651_ + _hd244174244654_ + _tl244173244656_ + _e244178244659_ + _hd244177244662_ + _tl244176244664_ + _e244181244667_ + _hd244180244670_ + _tl244179244672_ + _e244184244675_ + _hd244183244678_ + _tl244182244680_ + _e244187244683_ + _hd244186244686_ + _tl244185244688_)))) + (___match255203255204_ + _e244166244627_ + _hd244165244630_ + _tl244164244632_ + _e244169244635_ + _hd244168244638_ + _tl244167244640_ + _e244172244643_ + _hd244171244646_ + _tl244170244648_ + _e244175244651_ + _hd244174244654_ + _tl244173244656_ + _e244178244659_ + _hd244177244662_ + _tl244176244664_ + _e244181244667_ + _hd244180244670_ + _tl244179244672_ + _e244184244675_ + _hd244183244678_ + _tl244182244680_ + _e244187244683_ + _hd244186244686_ + _tl244185244688_)) + (___match255203255204_ + _e244166244627_ + _hd244165244630_ + _tl244164244632_ + _e244169244635_ + _hd244168244638_ + _tl244167244640_ + _e244172244643_ + _hd244171244646_ + _tl244170244648_ + _e244175244651_ + _hd244174244654_ + _tl244173244656_ + _e244178244659_ + _hd244177244662_ + _tl244176244664_ + _e244181244667_ + _hd244180244670_ + _tl244179244672_ + _e244184244675_ + _hd244183244678_ + _tl244182244680_ + _e244187244683_ + _hd244186244686_ + _tl244185244688_)))) + (___match254921254922_ + (lambda (_e244115244748_ + _hd244114244751_ + _tl244113244753_ + _e244118244756_ + _hd244117244759_ + _tl244116244761_ + _e244121244764_ + _hd244120244767_ + _tl244119244769_ + _e244124244772_ + _hd244123244775_ + _tl244122244777_ + _e244127244780_ + _hd244126244783_ + _tl244125244785_ + _e244130244788_ + _hd244129244791_ + _tl244128244793_ + _e244133244796_ + _hd244132244799_ + _tl244131244801_ + _e244136244804_ + _hd244135244807_ + _tl244134244809_ + _e244139244812_ + _hd244138244815_ + _tl244137244817_ + _e244142244820_ + _hd244141244823_ + _tl244140244825_ + _e244145244828_ + _hd244144244831_ + _tl244143244833_ + _e244148244836_ + _hd244147244839_ + _tl244146244841_ + _e244151244844_ + _hd244150244847_ + _tl244149244849_ + ___splice254714254715_ + _target244152244852_ + _tl244154244854_) + (letrec ((_loop244155244857_ + (lambda (_hd244153244860_ _args244159244862_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd241558242265_)) - (let ((_e241561242270_ + (gx#stx-pair? _hd244153244860_)) + (let ((_e244156244865_ (let () (declare (not safe)) - (gx#stx-e _hd241558242265_)))) - (let ((_lp-tl241563242275_ + (gx#stx-e _hd244153244860_)))) + (let ((_lp-tl244158244870_ (let () (declare (not safe)) - (##cdr _e241561242270_))) - (_lp-hd241562242273_ + (##cdr _e244156244865_))) + (_lp-hd244157244868_ (let () (declare (not safe)) - (##car _e241561242270_)))) - (let ((__tmp252957 + (##car _e244156244865_)))) + (let ((__tmp255652 (let () (declare (not safe)) - (cons _lp-hd241562242273_ - _args241564242267_)))) + (cons _lp-hd244157244868_ + _args244159244862_)))) (declare (not safe)) - (_loop241560242262_ - _lp-tl241563242275_ - __tmp252957)))) - (let ((_args241565242278_ - (reverse _args241564242267_))) - (let ((_L242281_ _args241565242278_) - (_L242282_ _hd241555242252_) - (_L242283_ _hd241546242228_) - (_L242284_ _hd241537242204_) - (_L242285_ _hd241528242180_)) + (_loop244155244857_ + _lp-tl244158244870_ + __tmp255652)))) + (let ((_args244160244873_ + (reverse _args244159244862_))) + (let ((_L244876_ _args244160244873_) + (_L244877_ _hd244150244847_) + (_L244878_ _hd244141244823_) + (_L244879_ _hd244132244799_) + (_L244880_ _hd244123244775_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L242285_ + _L244880_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L242284_ + _L244879_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L242283_ - _self241452_))) - (___kont252017252018_ - _L242281_ - _L242282_ - _L242283_ - _L242284_ - _L242285_) - (___kont252029252030_)))))))) + _L244878_ + _self244047_))) + (___kont254712254713_ + _L244876_ + _L244877_ + _L244878_ + _L244879_ + _L244880_) + (___kont254724254725_)))))))) (let () (declare (not safe)) - (_loop241560242262_ _target241557242257_ '()))))) - (___match252184252185_ - (lambda (_e241520242153_ - _hd241519242156_ - _tl241518242158_ - _e241523242161_ - _hd241522242164_ - _tl241521242166_ - _e241526242169_ - _hd241525242172_ - _tl241524242174_ - _e241529242177_ - _hd241528242180_ - _tl241527242182_ - _e241532242185_ - _hd241531242188_ - _tl241530242190_ - _e241535242193_ - _hd241534242196_ - _tl241533242198_ - _e241538242201_ - _hd241537242204_ - _tl241536242206_ - _e241541242209_ - _hd241540242212_ - _tl241539242214_ - _e241544242217_ - _hd241543242220_ - _tl241542242222_) + (_loop244155244857_ _target244152244852_ '()))))) + (___match254879254880_ + (lambda (_e244115244748_ + _hd244114244751_ + _tl244113244753_ + _e244118244756_ + _hd244117244759_ + _tl244116244761_ + _e244121244764_ + _hd244120244767_ + _tl244119244769_ + _e244124244772_ + _hd244123244775_ + _tl244122244777_ + _e244127244780_ + _hd244126244783_ + _tl244125244785_ + _e244130244788_ + _hd244129244791_ + _tl244128244793_ + _e244133244796_ + _hd244132244799_ + _tl244131244801_ + _e244136244804_ + _hd244135244807_ + _tl244134244809_ + _e244139244812_ + _hd244138244815_ + _tl244137244817_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd241543242220_)) + (gx#stx-eq? '%#ref _hd244138244815_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl241542242222_)) - (let ((_e241547242225_ + (gx#stx-pair? _tl244137244817_)) + (let ((_e244142244820_ (let () (declare (not safe)) - (gx#stx-e _tl241542242222_)))) - (let ((_tl241545242230_ + (gx#stx-e _tl244137244817_)))) + (let ((_tl244140244825_ (let () (declare (not safe)) - (##cdr _e241547242225_))) - (_hd241546242228_ + (##cdr _e244142244820_))) + (_hd244141244823_ (let () (declare (not safe)) - (##car _e241547242225_)))) + (##car _e244142244820_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl241545242230_)) + (gx#stx-null? _tl244140244825_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl241539242214_)) - (let ((_e241550242233_ + (gx#stx-pair? _tl244134244809_)) + (let ((_e244145244828_ (let () (declare (not safe)) (gx#stx-e - _tl241539242214_)))) - (let ((_tl241548242238_ + _tl244134244809_)))) + (let ((_tl244143244833_ (let () (declare (not safe)) - (##cdr _e241550242233_))) - (_hd241549242236_ + (##cdr _e244145244828_))) + (_hd244144244831_ (let () (declare (not safe)) - (##car _e241550242233_)))) + (##car _e244145244828_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd241549242236_)) - (let ((_e241553242241_ + _hd244144244831_)) + (let ((_e244148244836_ (let () (declare (not safe)) (gx#stx-e - _hd241549242236_)))) - (let ((_tl241551242246_ + _hd244144244831_)))) + (let ((_tl244146244841_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e241553242241_))) - (_hd241552242244_ - (let () (declare (not safe)) (##car _e241553242241_)))) + (##cdr _e244148244836_))) + (_hd244147244839_ + (let () (declare (not safe)) (##car _e244148244836_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd241552242244_)) + (gx#identifier? _hd244147244839_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd241552242244_)) + (gx#stx-eq? '%#quote _hd244147244839_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl241551242246_)) - (let ((_e241556242249_ + (gx#stx-pair? _tl244146244841_)) + (let ((_e244151244844_ (let () (declare (not safe)) - (gx#stx-e _tl241551242246_)))) - (let ((_tl241554242254_ + (gx#stx-e _tl244146244841_)))) + (let ((_tl244149244849_ (let () (declare (not safe)) - (##cdr _e241556242249_))) - (_hd241555242252_ + (##cdr _e244151244844_))) + (_hd244150244847_ (let () (declare (not safe)) - (##car _e241556242249_)))) + (##car _e244151244844_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl241554242254_)) + (gx#stx-null? _tl244149244849_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl241548242238_)) - (let ((___splice252019252020_ + (gx#stx-pair/null? _tl244143244833_)) + (let ((___splice254714254715_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl241548242238_ + _tl244143244833_ '0)))) - (let ((_tl241559242259_ + (let ((_tl244154244854_ (let () (declare (not safe)) (##vector-ref - ___splice252019252020_ + ___splice254714254715_ '1))) - (_target241557242257_ + (_target244152244852_ (let () (declare (not safe)) (##vector-ref - ___splice252019252020_ + ___splice254714254715_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl241559242259_)) - (___match252226252227_ - _e241520242153_ - _hd241519242156_ - _tl241518242158_ - _e241523242161_ - _hd241522242164_ - _tl241521242166_ - _e241526242169_ - _hd241525242172_ - _tl241524242174_ - _e241529242177_ - _hd241528242180_ - _tl241527242182_ - _e241532242185_ - _hd241531242188_ - _tl241530242190_ - _e241535242193_ - _hd241534242196_ - _tl241533242198_ - _e241538242201_ - _hd241537242204_ - _tl241536242206_ - _e241541242209_ - _hd241540242212_ - _tl241539242214_ - _e241544242217_ - _hd241543242220_ - _tl241542242222_ - _e241547242225_ - _hd241546242228_ - _tl241545242230_ - _e241550242233_ - _hd241549242236_ - _tl241548242238_ - _e241553242241_ - _hd241552242244_ - _tl241551242246_ - _e241556242249_ - _hd241555242252_ - _tl241554242254_ - ___splice252019252020_ - _target241557242257_ - _tl241559242259_) - (___kont252029252030_)))) - (___kont252029252030_)) - (___kont252029252030_)))) - (___kont252029252030_)) - (___kont252029252030_)) - (___kont252029252030_)))) + _tl244154244854_)) + (___match254921254922_ + _e244115244748_ + _hd244114244751_ + _tl244113244753_ + _e244118244756_ + _hd244117244759_ + _tl244116244761_ + _e244121244764_ + _hd244120244767_ + _tl244119244769_ + _e244124244772_ + _hd244123244775_ + _tl244122244777_ + _e244127244780_ + _hd244126244783_ + _tl244125244785_ + _e244130244788_ + _hd244129244791_ + _tl244128244793_ + _e244133244796_ + _hd244132244799_ + _tl244131244801_ + _e244136244804_ + _hd244135244807_ + _tl244134244809_ + _e244139244812_ + _hd244138244815_ + _tl244137244817_ + _e244142244820_ + _hd244141244823_ + _tl244140244825_ + _e244145244828_ + _hd244144244831_ + _tl244143244833_ + _e244148244836_ + _hd244147244839_ + _tl244146244841_ + _e244151244844_ + _hd244150244847_ + _tl244149244849_ + ___splice254714254715_ + _target244152244852_ + _tl244154244854_) + (___kont254724254725_)))) + (___kont254724254725_)) + (___kont254724254725_)))) + (___kont254724254725_)) + (___kont254724254725_)) + (___kont254724254725_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont252029252030_)))) - (___match252508252509_ - _e241520242153_ - _hd241519242156_ - _tl241518242158_ - _e241523242161_ - _hd241522242164_ - _tl241521242166_ - _e241526242169_ - _hd241525242172_ - _tl241524242174_ - _e241529242177_ - _hd241528242180_ - _tl241527242182_ - _e241532242185_ - _hd241531242188_ - _tl241530242190_ - _e241535242193_ - _hd241534242196_ - _tl241533242198_ - _e241538242201_ - _hd241537242204_ - _tl241536242206_ - _e241541242209_ - _hd241540242212_ - _tl241539242214_)) - (___match252508252509_ - _e241520242153_ - _hd241519242156_ - _tl241518242158_ - _e241523242161_ - _hd241522242164_ - _tl241521242166_ - _e241526242169_ - _hd241525242172_ - _tl241524242174_ - _e241529242177_ - _hd241528242180_ - _tl241527242182_ - _e241532242185_ - _hd241531242188_ - _tl241530242190_ - _e241535242193_ - _hd241534242196_ - _tl241533242198_ - _e241538242201_ - _hd241537242204_ - _tl241536242206_ - _e241541242209_ - _hd241540242212_ - _tl241539242214_)))) - (___match252508252509_ - _e241520242153_ - _hd241519242156_ - _tl241518242158_ - _e241523242161_ - _hd241522242164_ - _tl241521242166_ - _e241526242169_ - _hd241525242172_ - _tl241524242174_ - _e241529242177_ - _hd241528242180_ - _tl241527242182_ - _e241532242185_ - _hd241531242188_ - _tl241530242190_ - _e241535242193_ - _hd241534242196_ - _tl241533242198_ - _e241538242201_ - _hd241537242204_ - _tl241536242206_ - _e241541242209_ - _hd241540242212_ - _tl241539242214_)) - (___match252294252295_ - _e241520242153_ - _hd241519242156_ - _tl241518242158_ - _e241523242161_ - _hd241522242164_ - _tl241521242166_ - _e241526242169_ - _hd241525242172_ - _tl241524242174_ - _e241529242177_ - _hd241528242180_ - _tl241527242182_ - _e241532242185_ - _hd241531242188_ - _tl241530242190_ - _e241535242193_ - _hd241534242196_ - _tl241533242198_ - _e241538242201_ - _hd241537242204_ - _tl241536242206_ - _e241541242209_ - _hd241540242212_ - _tl241539242214_ - _e241544242217_ - _hd241543242220_ - _tl241542242222_)))) - (___match252116252117_ - (lambda (_e241476242345_ - _hd241475242348_ - _tl241474242350_ - _e241479242353_ - _hd241478242356_ - _tl241477242358_ - _e241482242361_ - _hd241481242364_ - _tl241480242366_ - _e241485242369_ - _hd241484242372_ - _tl241483242374_ - _e241488242377_ - _hd241487242380_ - _tl241486242382_ - _e241491242385_ - _hd241490242388_ - _tl241489242390_ - _e241494242393_ - _hd241493242396_ - _tl241492242398_ - _e241497242401_ - _hd241496242404_ - _tl241495242406_ - _e241500242409_ - _hd241499242412_ - _tl241498242414_ - _e241503242417_ - _hd241502242420_ - _tl241501242422_ - ___splice252015252016_ - _target241504242425_ - _tl241506242427_) - (letrec ((_loop241507242430_ - (lambda (_hd241505242433_ _args241511242435_) + (___kont254724254725_)))) + (___match255203255204_ + _e244115244748_ + _hd244114244751_ + _tl244113244753_ + _e244118244756_ + _hd244117244759_ + _tl244116244761_ + _e244121244764_ + _hd244120244767_ + _tl244119244769_ + _e244124244772_ + _hd244123244775_ + _tl244122244777_ + _e244127244780_ + _hd244126244783_ + _tl244125244785_ + _e244130244788_ + _hd244129244791_ + _tl244128244793_ + _e244133244796_ + _hd244132244799_ + _tl244131244801_ + _e244136244804_ + _hd244135244807_ + _tl244134244809_)) + (___match255203255204_ + _e244115244748_ + _hd244114244751_ + _tl244113244753_ + _e244118244756_ + _hd244117244759_ + _tl244116244761_ + _e244121244764_ + _hd244120244767_ + _tl244119244769_ + _e244124244772_ + _hd244123244775_ + _tl244122244777_ + _e244127244780_ + _hd244126244783_ + _tl244125244785_ + _e244130244788_ + _hd244129244791_ + _tl244128244793_ + _e244133244796_ + _hd244132244799_ + _tl244131244801_ + _e244136244804_ + _hd244135244807_ + _tl244134244809_)))) + (___match255203255204_ + _e244115244748_ + _hd244114244751_ + _tl244113244753_ + _e244118244756_ + _hd244117244759_ + _tl244116244761_ + _e244121244764_ + _hd244120244767_ + _tl244119244769_ + _e244124244772_ + _hd244123244775_ + _tl244122244777_ + _e244127244780_ + _hd244126244783_ + _tl244125244785_ + _e244130244788_ + _hd244129244791_ + _tl244128244793_ + _e244133244796_ + _hd244132244799_ + _tl244131244801_ + _e244136244804_ + _hd244135244807_ + _tl244134244809_)) + (___match254989254990_ + _e244115244748_ + _hd244114244751_ + _tl244113244753_ + _e244118244756_ + _hd244117244759_ + _tl244116244761_ + _e244121244764_ + _hd244120244767_ + _tl244119244769_ + _e244124244772_ + _hd244123244775_ + _tl244122244777_ + _e244127244780_ + _hd244126244783_ + _tl244125244785_ + _e244130244788_ + _hd244129244791_ + _tl244128244793_ + _e244133244796_ + _hd244132244799_ + _tl244131244801_ + _e244136244804_ + _hd244135244807_ + _tl244134244809_ + _e244139244812_ + _hd244138244815_ + _tl244137244817_)))) + (___match254811254812_ + (lambda (_e244071244940_ + _hd244070244943_ + _tl244069244945_ + _e244074244948_ + _hd244073244951_ + _tl244072244953_ + _e244077244956_ + _hd244076244959_ + _tl244075244961_ + _e244080244964_ + _hd244079244967_ + _tl244078244969_ + _e244083244972_ + _hd244082244975_ + _tl244081244977_ + _e244086244980_ + _hd244085244983_ + _tl244084244985_ + _e244089244988_ + _hd244088244991_ + _tl244087244993_ + _e244092244996_ + _hd244091244999_ + _tl244090245001_ + _e244095245004_ + _hd244094245007_ + _tl244093245009_ + _e244098245012_ + _hd244097245015_ + _tl244096245017_ + ___splice254710254711_ + _target244099245020_ + _tl244101245022_) + (letrec ((_loop244102245025_ + (lambda (_hd244100245028_ _args244106245030_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd241505242433_)) - (let ((_e241508242438_ + (gx#stx-pair? _hd244100245028_)) + (let ((_e244103245033_ (let () (declare (not safe)) - (gx#stx-e _hd241505242433_)))) - (let ((_lp-tl241510242443_ + (gx#stx-e _hd244100245028_)))) + (let ((_lp-tl244105245038_ (let () (declare (not safe)) - (##cdr _e241508242438_))) - (_lp-hd241509242441_ + (##cdr _e244103245033_))) + (_lp-hd244104245036_ (let () (declare (not safe)) - (##car _e241508242438_)))) - (let ((__tmp252958 + (##car _e244103245033_)))) + (let ((__tmp255653 (let () (declare (not safe)) - (cons _lp-hd241509242441_ - _args241511242435_)))) + (cons _lp-hd244104245036_ + _args244106245030_)))) (declare (not safe)) - (_loop241507242430_ - _lp-tl241510242443_ - __tmp252958)))) - (let ((_args241512242446_ - (reverse _args241511242435_))) - (let ((_L242449_ _args241512242446_) - (_L242450_ _hd241502242420_) - (_L242451_ _hd241493242396_) - (_L242452_ _hd241484242372_)) + (_loop244102245025_ + _lp-tl244105245038_ + __tmp255653)))) + (let ((_args244107245041_ + (reverse _args244106245030_))) + (let ((_L245044_ _args244107245041_) + (_L245045_ _hd244097245015_) + (_L245046_ _hd244088244991_) + (_L245047_ _hd244079244967_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L242452_ + _L245047_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L242451_ - _self241452_))) - (___kont252013252014_ - _L242449_ - _L242450_ - _L242451_ - _L242452_) - (___match252304252305_ - _e241476242345_ - _hd241475242348_ - _tl241474242350_ - _e241479242353_ - _hd241478242356_ - _tl241477242358_ - _e241482242361_ - _hd241481242364_ - _tl241480242366_ - _e241485242369_ - _hd241484242372_ - _tl241483242374_ - _e241488242377_ - _hd241487242380_ - _tl241486242382_ - _e241491242385_ - _hd241490242388_ - _tl241489242390_ - _e241494242393_ - _hd241493242396_ - _tl241492242398_ - _e241497242401_ - _hd241496242404_ - _tl241495242406_ - _e241500242409_ - _hd241499242412_ - _tl241498242414_ - _e241503242417_ - _hd241502242420_ - _tl241501242422_)))))))) + _L245046_ + _self244047_))) + (___kont254708254709_ + _L245044_ + _L245045_ + _L245046_ + _L245047_) + (___match254999255000_ + _e244071244940_ + _hd244070244943_ + _tl244069244945_ + _e244074244948_ + _hd244073244951_ + _tl244072244953_ + _e244077244956_ + _hd244076244959_ + _tl244075244961_ + _e244080244964_ + _hd244079244967_ + _tl244078244969_ + _e244083244972_ + _hd244082244975_ + _tl244081244977_ + _e244086244980_ + _hd244085244983_ + _tl244084244985_ + _e244089244988_ + _hd244088244991_ + _tl244087244993_ + _e244092244996_ + _hd244091244999_ + _tl244090245001_ + _e244095245004_ + _hd244094245007_ + _tl244093245009_ + _e244098245012_ + _hd244097245015_ + _tl244096245017_)))))))) (let () (declare (not safe)) - (_loop241507242430_ _target241504242425_ '())))))) + (_loop244102245025_ _target244099245020_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx252011252012_)) - (let ((_e241476242345_ + (gx#stx-pair? ___stx254706254707_)) + (let ((_e244071244940_ (let () (declare (not safe)) - (gx#stx-e ___stx252011252012_)))) - (let ((_tl241474242350_ + (gx#stx-e ___stx254706254707_)))) + (let ((_tl244069244945_ (let () (declare (not safe)) - (##cdr _e241476242345_))) - (_hd241475242348_ + (##cdr _e244071244940_))) + (_hd244070244943_ (let () (declare (not safe)) - (##car _e241476242345_)))) + (##car _e244071244940_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl241474242350_)) - (let ((_e241479242353_ + (gx#stx-pair? _tl244069244945_)) + (let ((_e244074244948_ (let () (declare (not safe)) - (gx#stx-e _tl241474242350_)))) - (let ((_tl241477242358_ + (gx#stx-e _tl244069244945_)))) + (let ((_tl244072244953_ (let () (declare (not safe)) - (##cdr _e241479242353_))) - (_hd241478242356_ + (##cdr _e244074244948_))) + (_hd244073244951_ (let () (declare (not safe)) - (##car _e241479242353_)))) + (##car _e244074244948_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd241478242356_)) - (let ((_e241482242361_ + (gx#stx-pair? _hd244073244951_)) + (let ((_e244077244956_ (let () (declare (not safe)) - (gx#stx-e _hd241478242356_)))) - (let ((_tl241480242366_ + (gx#stx-e _hd244073244951_)))) + (let ((_tl244075244961_ (let () (declare (not safe)) - (##cdr _e241482242361_))) - (_hd241481242364_ + (##cdr _e244077244956_))) + (_hd244076244959_ (let () (declare (not safe)) - (##car _e241482242361_)))) + (##car _e244077244956_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd241481242364_)) + _hd244076244959_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd241481242364_)) + _hd244076244959_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl241480242366_)) - (let ((_e241485242369_ + _tl244075244961_)) + (let ((_e244080244964_ (let () (declare (not safe)) (gx#stx-e - _tl241480242366_)))) - (let ((_tl241483242374_ + _tl244075244961_)))) + (let ((_tl244078244969_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e241485242369_))) - (_hd241484242372_ - (let () (declare (not safe)) (##car _e241485242369_)))) + (##cdr _e244080244964_))) + (_hd244079244967_ + (let () (declare (not safe)) (##car _e244080244964_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl241483242374_)) + (gx#stx-null? _tl244078244969_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl241477242358_)) - (let ((_e241488242377_ + (gx#stx-pair? _tl244072244953_)) + (let ((_e244083244972_ (let () (declare (not safe)) - (gx#stx-e _tl241477242358_)))) - (let ((_tl241486242382_ + (gx#stx-e _tl244072244953_)))) + (let ((_tl244081244977_ (let () (declare (not safe)) - (##cdr _e241488242377_))) - (_hd241487242380_ + (##cdr _e244083244972_))) + (_hd244082244975_ (let () (declare (not safe)) - (##car _e241488242377_)))) + (##car _e244083244972_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd241487242380_)) - (let ((_e241491242385_ + (gx#stx-pair? _hd244082244975_)) + (let ((_e244086244980_ (let () (declare (not safe)) - (gx#stx-e _hd241487242380_)))) - (let ((_tl241489242390_ + (gx#stx-e _hd244082244975_)))) + (let ((_tl244084244985_ (let () (declare (not safe)) - (##cdr _e241491242385_))) - (_hd241490242388_ + (##cdr _e244086244980_))) + (_hd244085244983_ (let () (declare (not safe)) - (##car _e241491242385_)))) + (##car _e244086244980_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd241490242388_)) + (gx#identifier? _hd244085244983_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd241490242388_)) + _hd244085244983_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl241489242390_)) - (let ((_e241494242393_ + _tl244084244985_)) + (let ((_e244089244988_ (let () (declare (not safe)) (gx#stx-e - _tl241489242390_)))) - (let ((_tl241492242398_ + _tl244084244985_)))) + (let ((_tl244087244993_ (let () (declare (not safe)) - (##cdr _e241494242393_))) - (_hd241493242396_ + (##cdr _e244089244988_))) + (_hd244088244991_ (let () (declare (not safe)) - (##car _e241494242393_)))) + (##car _e244089244988_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl241492242398_)) + _tl244087244993_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl241486242382_)) - (let ((_e241497242401_ + _tl244081244977_)) + (let ((_e244092244996_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl241486242382_)))) - (let ((_tl241495242406_ + (gx#stx-e _tl244081244977_)))) + (let ((_tl244090245001_ (let () (declare (not safe)) - (##cdr _e241497242401_))) - (_hd241496242404_ + (##cdr _e244092244996_))) + (_hd244091244999_ (let () (declare (not safe)) - (##car _e241497242401_)))) + (##car _e244092244996_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd241496242404_)) - (let ((_e241500242409_ + (gx#stx-pair? _hd244091244999_)) + (let ((_e244095245004_ (let () (declare (not safe)) - (gx#stx-e _hd241496242404_)))) - (let ((_tl241498242414_ + (gx#stx-e _hd244091244999_)))) + (let ((_tl244093245009_ (let () (declare (not safe)) - (##cdr _e241500242409_))) - (_hd241499242412_ + (##cdr _e244095245004_))) + (_hd244094245007_ (let () (declare (not safe)) - (##car _e241500242409_)))) + (##car _e244095245004_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd241499242412_)) + (gx#identifier? _hd244094245007_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd241499242412_)) + _hd244094245007_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl241498242414_)) - (let ((_e241503242417_ + (gx#stx-pair? _tl244093245009_)) + (let ((_e244098245012_ (let () (declare (not safe)) (gx#stx-e - _tl241498242414_)))) - (let ((_tl241501242422_ + _tl244093245009_)))) + (let ((_tl244096245017_ (let () (declare (not safe)) - (##cdr _e241503242417_))) - (_hd241502242420_ + (##cdr _e244098245012_))) + (_hd244097245015_ (let () (declare (not safe)) - (##car _e241503242417_)))) + (##car _e244098245012_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl241501242422_)) + _tl244096245017_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl241495242406_)) - (let ((___splice252015252016_ + _tl244090245001_)) + (let ((___splice254710254711_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl241495242406_ '0)))) - (let ((_tl241506242427_ + (gx#syntax-split-splice _tl244090245001_ '0)))) + (let ((_tl244101245022_ (let () (declare (not safe)) - (##vector-ref ___splice252015252016_ '1))) - (_target241504242425_ + (##vector-ref ___splice254710254711_ '1))) + (_target244099245020_ (let () (declare (not safe)) - (##vector-ref ___splice252015252016_ '0)))) + (##vector-ref ___splice254710254711_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl241506242427_)) - (___match252116252117_ - _e241476242345_ - _hd241475242348_ - _tl241474242350_ - _e241479242353_ - _hd241478242356_ - _tl241477242358_ - _e241482242361_ - _hd241481242364_ - _tl241480242366_ - _e241485242369_ - _hd241484242372_ - _tl241483242374_ - _e241488242377_ - _hd241487242380_ - _tl241486242382_ - _e241491242385_ - _hd241490242388_ - _tl241489242390_ - _e241494242393_ - _hd241493242396_ - _tl241492242398_ - _e241497242401_ - _hd241496242404_ - _tl241495242406_ - _e241500242409_ - _hd241499242412_ - _tl241498242414_ - _e241503242417_ - _hd241502242420_ - _tl241501242422_ - ___splice252015252016_ - _target241504242425_ - _tl241506242427_) - (___match252304252305_ - _e241476242345_ - _hd241475242348_ - _tl241474242350_ - _e241479242353_ - _hd241478242356_ - _tl241477242358_ - _e241482242361_ - _hd241481242364_ - _tl241480242366_ - _e241485242369_ - _hd241484242372_ - _tl241483242374_ - _e241488242377_ - _hd241487242380_ - _tl241486242382_ - _e241491242385_ - _hd241490242388_ - _tl241489242390_ - _e241494242393_ - _hd241493242396_ - _tl241492242398_ - _e241497242401_ - _hd241496242404_ - _tl241495242406_ - _e241500242409_ - _hd241499242412_ - _tl241498242414_ - _e241503242417_ - _hd241502242420_ - _tl241501242422_)))) - (___match252304252305_ - _e241476242345_ - _hd241475242348_ - _tl241474242350_ - _e241479242353_ - _hd241478242356_ - _tl241477242358_ - _e241482242361_ - _hd241481242364_ - _tl241480242366_ - _e241485242369_ - _hd241484242372_ - _tl241483242374_ - _e241488242377_ - _hd241487242380_ - _tl241486242382_ - _e241491242385_ - _hd241490242388_ - _tl241489242390_ - _e241494242393_ - _hd241493242396_ - _tl241492242398_ - _e241497242401_ - _hd241496242404_ - _tl241495242406_ - _e241500242409_ - _hd241499242412_ - _tl241498242414_ - _e241503242417_ - _hd241502242420_ - _tl241501242422_)) + (gx#stx-null? _tl244101245022_)) + (___match254811254812_ + _e244071244940_ + _hd244070244943_ + _tl244069244945_ + _e244074244948_ + _hd244073244951_ + _tl244072244953_ + _e244077244956_ + _hd244076244959_ + _tl244075244961_ + _e244080244964_ + _hd244079244967_ + _tl244078244969_ + _e244083244972_ + _hd244082244975_ + _tl244081244977_ + _e244086244980_ + _hd244085244983_ + _tl244084244985_ + _e244089244988_ + _hd244088244991_ + _tl244087244993_ + _e244092244996_ + _hd244091244999_ + _tl244090245001_ + _e244095245004_ + _hd244094245007_ + _tl244093245009_ + _e244098245012_ + _hd244097245015_ + _tl244096245017_ + ___splice254710254711_ + _target244099245020_ + _tl244101245022_) + (___match254999255000_ + _e244071244940_ + _hd244070244943_ + _tl244069244945_ + _e244074244948_ + _hd244073244951_ + _tl244072244953_ + _e244077244956_ + _hd244076244959_ + _tl244075244961_ + _e244080244964_ + _hd244079244967_ + _tl244078244969_ + _e244083244972_ + _hd244082244975_ + _tl244081244977_ + _e244086244980_ + _hd244085244983_ + _tl244084244985_ + _e244089244988_ + _hd244088244991_ + _tl244087244993_ + _e244092244996_ + _hd244091244999_ + _tl244090245001_ + _e244095245004_ + _hd244094245007_ + _tl244093245009_ + _e244098245012_ + _hd244097245015_ + _tl244096245017_)))) + (___match254999255000_ + _e244071244940_ + _hd244070244943_ + _tl244069244945_ + _e244074244948_ + _hd244073244951_ + _tl244072244953_ + _e244077244956_ + _hd244076244959_ + _tl244075244961_ + _e244080244964_ + _hd244079244967_ + _tl244078244969_ + _e244083244972_ + _hd244082244975_ + _tl244081244977_ + _e244086244980_ + _hd244085244983_ + _tl244084244985_ + _e244089244988_ + _hd244088244991_ + _tl244087244993_ + _e244092244996_ + _hd244091244999_ + _tl244090245001_ + _e244095245004_ + _hd244094245007_ + _tl244093245009_ + _e244098245012_ + _hd244097245015_ + _tl244096245017_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match252508252509_ - _e241476242345_ - _hd241475242348_ - _tl241474242350_ - _e241479242353_ - _hd241478242356_ - _tl241477242358_ - _e241482242361_ - _hd241481242364_ - _tl241480242366_ - _e241485242369_ - _hd241484242372_ - _tl241483242374_ - _e241488242377_ - _hd241487242380_ - _tl241486242382_ - _e241491242385_ - _hd241490242388_ - _tl241489242390_ - _e241494242393_ - _hd241493242396_ - _tl241492242398_ - _e241497242401_ - _hd241496242404_ - _tl241495242406_)))) - (___match252508252509_ - _e241476242345_ - _hd241475242348_ - _tl241474242350_ - _e241479242353_ - _hd241478242356_ - _tl241477242358_ - _e241482242361_ - _hd241481242364_ - _tl241480242366_ - _e241485242369_ - _hd241484242372_ - _tl241483242374_ - _e241488242377_ - _hd241487242380_ - _tl241486242382_ - _e241491242385_ - _hd241490242388_ - _tl241489242390_ - _e241494242393_ - _hd241493242396_ - _tl241492242398_ - _e241497242401_ - _hd241496242404_ - _tl241495242406_)) - (___match252184252185_ - _e241476242345_ - _hd241475242348_ - _tl241474242350_ - _e241479242353_ - _hd241478242356_ - _tl241477242358_ - _e241482242361_ - _hd241481242364_ - _tl241480242366_ - _e241485242369_ - _hd241484242372_ - _tl241483242374_ - _e241488242377_ - _hd241487242380_ - _tl241486242382_ - _e241491242385_ - _hd241490242388_ - _tl241489242390_ - _e241494242393_ - _hd241493242396_ - _tl241492242398_ - _e241497242401_ - _hd241496242404_ - _tl241495242406_ - _e241500242409_ - _hd241499242412_ - _tl241498242414_)) - (___match252508252509_ - _e241476242345_ - _hd241475242348_ - _tl241474242350_ - _e241479242353_ - _hd241478242356_ - _tl241477242358_ - _e241482242361_ - _hd241481242364_ - _tl241480242366_ - _e241485242369_ - _hd241484242372_ - _tl241483242374_ - _e241488242377_ - _hd241487242380_ - _tl241486242382_ - _e241491242385_ - _hd241490242388_ - _tl241489242390_ - _e241494242393_ - _hd241493242396_ - _tl241492242398_ - _e241497242401_ - _hd241496242404_ - _tl241495242406_)))) - (___match252508252509_ - _e241476242345_ - _hd241475242348_ - _tl241474242350_ - _e241479242353_ - _hd241478242356_ - _tl241477242358_ - _e241482242361_ - _hd241481242364_ - _tl241480242366_ - _e241485242369_ - _hd241484242372_ - _tl241483242374_ - _e241488242377_ - _hd241487242380_ - _tl241486242382_ - _e241491242385_ - _hd241490242388_ - _tl241489242390_ - _e241494242393_ - _hd241493242396_ - _tl241492242398_ - _e241497242401_ - _hd241496242404_ - _tl241495242406_)))) - (___match252446252447_ - _e241476242345_ - _hd241475242348_ - _tl241474242350_ - _e241479242353_ - _hd241478242356_ - _tl241477242358_ - _e241482242361_ - _hd241481242364_ - _tl241480242366_ - _e241485242369_ - _hd241484242372_ - _tl241483242374_ - _e241488242377_ - _hd241487242380_ - _tl241486242382_ - _e241491242385_ - _hd241490242388_ - _tl241489242390_ - _e241494242393_ - _hd241493242396_ - _tl241492242398_)) - (___kont252029252030_)))) + (___match255203255204_ + _e244071244940_ + _hd244070244943_ + _tl244069244945_ + _e244074244948_ + _hd244073244951_ + _tl244072244953_ + _e244077244956_ + _hd244076244959_ + _tl244075244961_ + _e244080244964_ + _hd244079244967_ + _tl244078244969_ + _e244083244972_ + _hd244082244975_ + _tl244081244977_ + _e244086244980_ + _hd244085244983_ + _tl244084244985_ + _e244089244988_ + _hd244088244991_ + _tl244087244993_ + _e244092244996_ + _hd244091244999_ + _tl244090245001_)))) + (___match255203255204_ + _e244071244940_ + _hd244070244943_ + _tl244069244945_ + _e244074244948_ + _hd244073244951_ + _tl244072244953_ + _e244077244956_ + _hd244076244959_ + _tl244075244961_ + _e244080244964_ + _hd244079244967_ + _tl244078244969_ + _e244083244972_ + _hd244082244975_ + _tl244081244977_ + _e244086244980_ + _hd244085244983_ + _tl244084244985_ + _e244089244988_ + _hd244088244991_ + _tl244087244993_ + _e244092244996_ + _hd244091244999_ + _tl244090245001_)) + (___match254879254880_ + _e244071244940_ + _hd244070244943_ + _tl244069244945_ + _e244074244948_ + _hd244073244951_ + _tl244072244953_ + _e244077244956_ + _hd244076244959_ + _tl244075244961_ + _e244080244964_ + _hd244079244967_ + _tl244078244969_ + _e244083244972_ + _hd244082244975_ + _tl244081244977_ + _e244086244980_ + _hd244085244983_ + _tl244084244985_ + _e244089244988_ + _hd244088244991_ + _tl244087244993_ + _e244092244996_ + _hd244091244999_ + _tl244090245001_ + _e244095245004_ + _hd244094245007_ + _tl244093245009_)) + (___match255203255204_ + _e244071244940_ + _hd244070244943_ + _tl244069244945_ + _e244074244948_ + _hd244073244951_ + _tl244072244953_ + _e244077244956_ + _hd244076244959_ + _tl244075244961_ + _e244080244964_ + _hd244079244967_ + _tl244078244969_ + _e244083244972_ + _hd244082244975_ + _tl244081244977_ + _e244086244980_ + _hd244085244983_ + _tl244084244985_ + _e244089244988_ + _hd244088244991_ + _tl244087244993_ + _e244092244996_ + _hd244091244999_ + _tl244090245001_)))) + (___match255203255204_ + _e244071244940_ + _hd244070244943_ + _tl244069244945_ + _e244074244948_ + _hd244073244951_ + _tl244072244953_ + _e244077244956_ + _hd244076244959_ + _tl244075244961_ + _e244080244964_ + _hd244079244967_ + _tl244078244969_ + _e244083244972_ + _hd244082244975_ + _tl244081244977_ + _e244086244980_ + _hd244085244983_ + _tl244084244985_ + _e244089244988_ + _hd244088244991_ + _tl244087244993_ + _e244092244996_ + _hd244091244999_ + _tl244090245001_)))) + (___match255141255142_ + _e244071244940_ + _hd244070244943_ + _tl244069244945_ + _e244074244948_ + _hd244073244951_ + _tl244072244953_ + _e244077244956_ + _hd244076244959_ + _tl244075244961_ + _e244080244964_ + _hd244079244967_ + _tl244078244969_ + _e244083244972_ + _hd244082244975_ + _tl244081244977_ + _e244086244980_ + _hd244085244983_ + _tl244084244985_ + _e244089244988_ + _hd244088244991_ + _tl244087244993_)) + (___kont254724254725_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont252029252030_)) - (___kont252029252030_)) - (___kont252029252030_)))) - (___kont252029252030_)))) - (___kont252029252030_)) - (___kont252029252030_)))) + (___kont254724254725_)) + (___kont254724254725_)) + (___kont254724254725_)))) + (___kont254724254725_)))) + (___kont254724254725_)) + (___kont254724254725_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont252029252030_)) - (___kont252029252030_)) - (___kont252029252030_)))) - (___kont252029252030_)))) - (___kont252029252030_)))) - (___kont252029252030_)))))))))) + (___kont254724254725_)) + (___kont254724254725_)) + (___kont254724254725_)))) + (___kont254724254725_)))) + (___kont254724254725_)))) + (___kont254724254725_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__0.scm b/src/bootstrap/gerbil/compiler/optimize-top__0.scm index eb97d82a4..82a87a925 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 1707573214) + (define gerbil/compiler/optimize-top::timestamp 1707674933) (begin (define gxc#&collect-top-level-type-info (make-promise (lambda () - (let ((_tbl234477_ + (let ((_tbl236972_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp241038 (force gxc#&void))) + (let ((__tmp243633 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl234477_ __tmp241038)) + (hash-copy! _tbl236972_ __tmp243633)) (let () (declare (not safe)) - (table-set! _tbl234477_ '%#begin gxc#collect-begin%)) + (table-set! _tbl236972_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl234477_ + _tbl236972_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl234477_ '%#module gxc#collect-module%)) + (table-set! _tbl236972_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (table-set! - _tbl234477_ + _tbl236972_ '%#define-values gxc#collect-top-level-type-define-values%)) - _tbl234477_)))) + _tbl236972_)))) (define gxc#apply-collect-top-level-type-info - (lambda (_stx234460_ . _args234462_) - (let ((__tmp241040 + (lambda (_stx236955_ . _args236957_) + (let ((__tmp243635 (lambda () (declare (not safe)) - (if (null? _args234462_) - (gxc#compile-e__0 _stx234460_) - (let ((_arg1234467_ (car _args234462_)) - (_rest234469_ (cdr _args234462_))) - (if (null? _rest234469_) - (gxc#compile-e__1 _stx234460_ _arg1234467_) - (let ((_arg2234472_ (car _rest234469_)) - (_rest234474_ (cdr _rest234469_))) - (if (null? _rest234474_) + (if (null? _args236957_) + (gxc#compile-e__0 _stx236955_) + (let ((_arg1236962_ (car _args236957_)) + (_rest236964_ (cdr _args236957_))) + (if (null? _rest236964_) + (gxc#compile-e__1 _stx236955_ _arg1236962_) + (let ((_arg2236967_ (car _rest236964_)) + (_rest236969_ (cdr _rest236964_))) + (if (null? _rest236969_) (gxc#compile-e__2 - _stx234460_ - _arg1234467_ - _arg2234472_) + _stx236955_ + _arg1236962_ + _arg2236967_) (apply gxc#compile-e - _stx234460_ - _arg1234467_ - _arg2234472_ - _rest234474_)))))))) - (__tmp241039 (force gxc#&collect-top-level-type-info))) + _stx236955_ + _arg1236962_ + _arg2236967_ + _rest236969_)))))))) + (__tmp243634 (force gxc#&collect-top-level-type-info))) (declare (not safe)) (call-with-parameters - __tmp241040 + __tmp243635 gxc#current-compile-methods - __tmp241039)))) + __tmp243634)))) (define gxc#&basic-expression-top-level-type (make-promise (lambda () - (let ((_tbl234457_ + (let ((_tbl236952_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp241041 (force gxc#&false))) + (let ((__tmp243636 (force gxc#&false))) (declare (not safe)) - (hash-copy! _tbl234457_ __tmp241041)) + (hash-copy! _tbl236952_ __tmp243636)) (let () (declare (not safe)) (table-set! - _tbl234457_ + _tbl236952_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl234457_ '%#call gxc#basic-expression-type-call%)) - _tbl234457_)))) + (table-set! _tbl236952_ '%#call gxc#basic-expression-type-call%)) + _tbl236952_)))) (define gxc#apply-basic-expression-top-level-type - (lambda (_stx234440_ . _args234442_) - (let ((__tmp241043 + (lambda (_stx236935_ . _args236937_) + (let ((__tmp243638 (lambda () (declare (not safe)) - (if (null? _args234442_) - (gxc#compile-e__0 _stx234440_) - (let ((_arg1234447_ (car _args234442_)) - (_rest234449_ (cdr _args234442_))) - (if (null? _rest234449_) - (gxc#compile-e__1 _stx234440_ _arg1234447_) - (let ((_arg2234452_ (car _rest234449_)) - (_rest234454_ (cdr _rest234449_))) - (if (null? _rest234454_) + (if (null? _args236937_) + (gxc#compile-e__0 _stx236935_) + (let ((_arg1236942_ (car _args236937_)) + (_rest236944_ (cdr _args236937_))) + (if (null? _rest236944_) + (gxc#compile-e__1 _stx236935_ _arg1236942_) + (let ((_arg2236947_ (car _rest236944_)) + (_rest236949_ (cdr _rest236944_))) + (if (null? _rest236949_) (gxc#compile-e__2 - _stx234440_ - _arg1234447_ - _arg2234452_) + _stx236935_ + _arg1236942_ + _arg2236947_) (apply gxc#compile-e - _stx234440_ - _arg1234447_ - _arg2234452_ - _rest234454_)))))))) - (__tmp241042 (force gxc#&basic-expression-top-level-type))) + _stx236935_ + _arg1236942_ + _arg2236947_ + _rest236949_)))))))) + (__tmp243637 (force gxc#&basic-expression-top-level-type))) (declare (not safe)) (call-with-parameters - __tmp241043 + __tmp243638 gxc#current-compile-methods - __tmp241042)))) + __tmp243637)))) (define gxc#&collect-type-info (make-promise (lambda () - (let ((_tbl234437_ + (let ((_tbl236932_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp241044 (force gxc#&void))) + (let ((__tmp243639 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl234437_ __tmp241044)) + (hash-copy! _tbl236932_ __tmp243639)) (let () (declare (not safe)) - (table-set! _tbl234437_ '%#begin gxc#collect-begin%)) + (table-set! _tbl236932_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl234437_ + _tbl236932_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl234437_ '%#module gxc#collect-module%)) + (table-set! _tbl236932_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (table-set! - _tbl234437_ + _tbl236932_ '%#define-values gxc#collect-type-define-values%)) (let () (declare (not safe)) (table-set! - _tbl234437_ + _tbl236932_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl234437_ '%#lambda gxc#collect-body-lambda%)) + (table-set! _tbl236932_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (table-set! - _tbl234437_ + _tbl236932_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl234437_ + _tbl236932_ '%#let-values gxc#collect-type-let-values%)) (let () (declare (not safe)) (table-set! - _tbl234437_ + _tbl236932_ '%#letrec-values gxc#collect-type-let-values%)) (let () (declare (not safe)) (table-set! - _tbl234437_ + _tbl236932_ '%#letrec*-values gxc#collect-type-let-values%)) (let () (declare (not safe)) - (table-set! _tbl234437_ '%#call gxc#collect-type-call%)) + (table-set! _tbl236932_ '%#call gxc#collect-type-call%)) (let () (declare (not safe)) - (table-set! _tbl234437_ '%#if gxc#collect-operands)) + (table-set! _tbl236932_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl234437_ '%#set! gxc#collect-body-setq%)) - _tbl234437_)))) + (table-set! _tbl236932_ '%#set! gxc#collect-body-setq%)) + _tbl236932_)))) (define gxc#apply-collect-type-info - (lambda (_stx234420_ . _args234422_) - (let ((__tmp241046 + (lambda (_stx236915_ . _args236917_) + (let ((__tmp243641 (lambda () (declare (not safe)) - (if (null? _args234422_) - (gxc#compile-e__0 _stx234420_) - (let ((_arg1234427_ (car _args234422_)) - (_rest234429_ (cdr _args234422_))) - (if (null? _rest234429_) - (gxc#compile-e__1 _stx234420_ _arg1234427_) - (let ((_arg2234432_ (car _rest234429_)) - (_rest234434_ (cdr _rest234429_))) - (if (null? _rest234434_) + (if (null? _args236917_) + (gxc#compile-e__0 _stx236915_) + (let ((_arg1236922_ (car _args236917_)) + (_rest236924_ (cdr _args236917_))) + (if (null? _rest236924_) + (gxc#compile-e__1 _stx236915_ _arg1236922_) + (let ((_arg2236927_ (car _rest236924_)) + (_rest236929_ (cdr _rest236924_))) + (if (null? _rest236929_) (gxc#compile-e__2 - _stx234420_ - _arg1234427_ - _arg2234432_) + _stx236915_ + _arg1236922_ + _arg2236927_) (apply gxc#compile-e - _stx234420_ - _arg1234427_ - _arg2234432_ - _rest234434_)))))))) - (__tmp241045 (force gxc#&collect-type-info))) + _stx236915_ + _arg1236922_ + _arg2236927_ + _rest236929_)))))))) + (__tmp243640 (force gxc#&collect-type-info))) (declare (not safe)) (call-with-parameters - __tmp241046 + __tmp243641 gxc#current-compile-methods - __tmp241045)))) + __tmp243640)))) (define gxc#&basic-expression-type (make-promise (lambda () - (let ((_tbl234417_ + (let ((_tbl236912_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp241047 (force gxc#&false))) + (let ((__tmp243642 (force gxc#&false))) (declare (not safe)) - (hash-copy! _tbl234417_ __tmp241047)) + (hash-copy! _tbl236912_ __tmp243642)) (let () (declare (not safe)) (table-set! - _tbl234417_ + _tbl236912_ '%#begin gxc#basic-expression-type-begin%)) (let () (declare (not safe)) (table-set! - _tbl234417_ + _tbl236912_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) (table-set! - _tbl234417_ + _tbl236912_ '%#lambda gxc#basic-expression-type-lambda%)) (let () (declare (not safe)) (table-set! - _tbl234417_ + _tbl236912_ '%#case-lambda gxc#basic-expression-type-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl234417_ + _tbl236912_ '%#let-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) (table-set! - _tbl234417_ + _tbl236912_ '%#letrec-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) (table-set! - _tbl234417_ + _tbl236912_ '%#letrec*-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) - (table-set! _tbl234417_ '%#call gxc#basic-expression-type-call%)) + (table-set! _tbl236912_ '%#call gxc#basic-expression-type-call%)) (let () (declare (not safe)) - (table-set! _tbl234417_ '%#ref gxc#basic-expression-type-ref%)) - _tbl234417_)))) + (table-set! _tbl236912_ '%#ref gxc#basic-expression-type-ref%)) + _tbl236912_)))) (define gxc#apply-basic-expression-type - (lambda (_stx234400_ . _args234402_) - (let ((__tmp241049 + (lambda (_stx236895_ . _args236897_) + (let ((__tmp243644 (lambda () (declare (not safe)) - (if (null? _args234402_) - (gxc#compile-e__0 _stx234400_) - (let ((_arg1234407_ (car _args234402_)) - (_rest234409_ (cdr _args234402_))) - (if (null? _rest234409_) - (gxc#compile-e__1 _stx234400_ _arg1234407_) - (let ((_arg2234412_ (car _rest234409_)) - (_rest234414_ (cdr _rest234409_))) - (if (null? _rest234414_) + (if (null? _args236897_) + (gxc#compile-e__0 _stx236895_) + (let ((_arg1236902_ (car _args236897_)) + (_rest236904_ (cdr _args236897_))) + (if (null? _rest236904_) + (gxc#compile-e__1 _stx236895_ _arg1236902_) + (let ((_arg2236907_ (car _rest236904_)) + (_rest236909_ (cdr _rest236904_))) + (if (null? _rest236909_) (gxc#compile-e__2 - _stx234400_ - _arg1234407_ - _arg2234412_) + _stx236895_ + _arg1236902_ + _arg2236907_) (apply gxc#compile-e - _stx234400_ - _arg1234407_ - _arg2234412_ - _rest234414_)))))))) - (__tmp241048 (force gxc#&basic-expression-type))) + _stx236895_ + _arg1236902_ + _arg2236907_ + _rest236909_)))))))) + (__tmp243643 (force gxc#&basic-expression-type))) (declare (not safe)) (call-with-parameters - __tmp241049 + __tmp243644 gxc#current-compile-methods - __tmp241048)))) + __tmp243643)))) (define gxc#&lift-top-lambdas (make-promise (lambda () - (let ((_tbl234397_ + (let ((_tbl236892_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp241050 (force gxc#&basic-xform))) + (let ((__tmp243645 (force gxc#&basic-xform))) (declare (not safe)) - (hash-copy! _tbl234397_ __tmp241050)) + (hash-copy! _tbl236892_ __tmp243645)) (let () (declare (not safe)) (table-set! - _tbl234397_ + _tbl236892_ '%#define-values gxc#lift-top-lambda-define-values%)) (let () (declare (not safe)) (table-set! - _tbl234397_ + _tbl236892_ '%#let-values gxc#lift-top-lambda-let-values%)) (let () (declare (not safe)) (table-set! - _tbl234397_ + _tbl236892_ '%#letrec-values gxc#lift-top-lambda-letrec-values%)) (let () (declare (not safe)) (table-set! - _tbl234397_ + _tbl236892_ '%#letrec*-values gxc#lift-top-lambda-letrec-values%)) - _tbl234397_)))) + _tbl236892_)))) (define gxc#apply-lift-top-lambdas - (lambda (_stx234380_ . _args234382_) - (let ((__tmp241052 + (lambda (_stx236875_ . _args236877_) + (let ((__tmp243647 (lambda () (declare (not safe)) - (if (null? _args234382_) - (gxc#compile-e__0 _stx234380_) - (let ((_arg1234387_ (car _args234382_)) - (_rest234389_ (cdr _args234382_))) - (if (null? _rest234389_) - (gxc#compile-e__1 _stx234380_ _arg1234387_) - (let ((_arg2234392_ (car _rest234389_)) - (_rest234394_ (cdr _rest234389_))) - (if (null? _rest234394_) + (if (null? _args236877_) + (gxc#compile-e__0 _stx236875_) + (let ((_arg1236882_ (car _args236877_)) + (_rest236884_ (cdr _args236877_))) + (if (null? _rest236884_) + (gxc#compile-e__1 _stx236875_ _arg1236882_) + (let ((_arg2236887_ (car _rest236884_)) + (_rest236889_ (cdr _rest236884_))) + (if (null? _rest236889_) (gxc#compile-e__2 - _stx234380_ - _arg1234387_ - _arg2234392_) + _stx236875_ + _arg1236882_ + _arg2236887_) (apply gxc#compile-e - _stx234380_ - _arg1234387_ - _arg2234392_ - _rest234394_)))))))) - (__tmp241051 (force gxc#&lift-top-lambdas))) + _stx236875_ + _arg1236882_ + _arg2236887_ + _rest236889_)))))))) + (__tmp243646 (force gxc#&lift-top-lambdas))) (declare (not safe)) (call-with-parameters - __tmp241052 + __tmp243647 gxc#current-compile-methods - __tmp241051)))) + __tmp243646)))) (define gxc#collect-top-level-type-define-values% - (lambda (_stx234283_) - (let* ((___stx238958238959_ _stx234283_) - (_g234286234306_ + (lambda (_stx236778_) + (let* ((___stx241553241554_ _stx236778_) + (_g236781236801_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx238958238959_))))) - (let ((___kont238960238961_ - (lambda (_L234350_ _L234351_) - (let ((_sym234369_ + ___stx241553241554_))))) + (let ((___kont241555241556_ + (lambda (_L236845_ _L236846_) + (let ((_sym236864_ (let () (declare (not safe)) - (gxc#identifier-symbol _L234351_)))) - (if (let ((__tmp241053 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L236846_)))) + (if (let ((__tmp243648 (gxc#current-compile-mutators))) (declare (not safe)) - (table-ref __tmp241053 _sym234369_ '#f)) + (table-ref __tmp243648 _sym236864_ '#f)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym234369_)) - (let ((_type234370234372_ + _sym236864_)) + (let ((_type236865236867_ (let () (declare (not safe)) (gxc#apply-basic-expression-top-level-type - _L234350_)))) - (if _type234370234372_ - (let ((_type234375_ _type234370234372_)) + _L236845_)))) + (if _type236865236867_ + (let ((_type236870_ _type236865236867_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym234369_ - _type234375_)) + _sym236864_ + _type236870_)) '#f)))))) - (___kont238962238963_ (lambda () '#!void))) - (let ((___match238991238992_ - (lambda (_e234292234318_ - _hd234291234321_ - _tl234290234323_ - _e234295234326_ - _hd234294234329_ - _tl234293234331_ - _e234298234334_ - _hd234297234337_ - _tl234296234339_ - _e234301234342_ - _hd234300234345_ - _tl234299234347_) - (let ((_L234350_ _hd234300234345_) - (_L234351_ _hd234297234337_)) + (___kont241557241558_ (lambda () '#!void))) + (let ((___match241586241587_ + (lambda (_e236787236813_ + _hd236786236816_ + _tl236785236818_ + _e236790236821_ + _hd236789236824_ + _tl236788236826_ + _e236793236829_ + _hd236792236832_ + _tl236791236834_ + _e236796236837_ + _hd236795236840_ + _tl236794236842_) + (let ((_L236845_ _hd236795236840_) + (_L236846_ _hd236792236832_)) (if (let () (declare (not safe)) - (gx#identifier? _L234351_)) - (___kont238960238961_ _L234350_ _L234351_) - (___kont238962238963_)))))) + (gx#identifier? _L236846_)) + (___kont241555241556_ _L236845_ _L236846_) + (___kont241557241558_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx238958238959_)) - (let ((_e234292234318_ + (gx#stx-pair? ___stx241553241554_)) + (let ((_e236787236813_ (let () (declare (not safe)) - (gx#stx-e ___stx238958238959_)))) - (let ((_tl234290234323_ + (gx#stx-e ___stx241553241554_)))) + (let ((_tl236785236818_ (let () (declare (not safe)) - (##cdr _e234292234318_))) - (_hd234291234321_ + (##cdr _e236787236813_))) + (_hd236786236816_ (let () (declare (not safe)) - (##car _e234292234318_)))) + (##car _e236787236813_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234290234323_)) - (let ((_e234295234326_ + (gx#stx-pair? _tl236785236818_)) + (let ((_e236790236821_ (let () (declare (not safe)) - (gx#stx-e _tl234290234323_)))) - (let ((_tl234293234331_ + (gx#stx-e _tl236785236818_)))) + (let ((_tl236788236826_ (let () (declare (not safe)) - (##cdr _e234295234326_))) - (_hd234294234329_ + (##cdr _e236790236821_))) + (_hd236789236824_ (let () (declare (not safe)) - (##car _e234295234326_)))) + (##car _e236790236821_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234294234329_)) - (let ((_e234298234334_ + (gx#stx-pair? _hd236789236824_)) + (let ((_e236793236829_ (let () (declare (not safe)) - (gx#stx-e _hd234294234329_)))) - (let ((_tl234296234339_ + (gx#stx-e _hd236789236824_)))) + (let ((_tl236791236834_ (let () (declare (not safe)) - (##cdr _e234298234334_))) - (_hd234297234337_ + (##cdr _e236793236829_))) + (_hd236792236832_ (let () (declare (not safe)) - (##car _e234298234334_)))) + (##car _e236793236829_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234296234339_)) + (gx#stx-null? _tl236791236834_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234293234331_)) - (let ((_e234301234342_ + _tl236788236826_)) + (let ((_e236796236837_ (let () (declare (not safe)) (gx#stx-e - _tl234293234331_)))) - (let ((_tl234299234347_ + _tl236788236826_)))) + (let ((_tl236794236842_ (let () (declare (not safe)) - (##cdr _e234301234342_))) - (_hd234300234345_ + (##cdr _e236796236837_))) + (_hd236795236840_ (let () (declare (not safe)) - (##car _e234301234342_)))) + (##car _e236796236837_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234299234347_)) - (___match238991238992_ - _e234292234318_ - _hd234291234321_ - _tl234290234323_ - _e234295234326_ - _hd234294234329_ - _tl234293234331_ - _e234298234334_ - _hd234297234337_ - _tl234296234339_ - _e234301234342_ - _hd234300234345_ - _tl234299234347_) - (___kont238962238963_)))) - (___kont238962238963_)) - (___kont238962238963_)))) - (___kont238962238963_)))) - (___kont238962238963_)))) - (___kont238962238963_))))))) + _tl236794236842_)) + (___match241586241587_ + _e236787236813_ + _hd236786236816_ + _tl236785236818_ + _e236790236821_ + _hd236789236824_ + _tl236788236826_ + _e236793236829_ + _hd236792236832_ + _tl236791236834_ + _e236796236837_ + _hd236795236840_ + _tl236794236842_) + (___kont241557241558_)))) + (___kont241557241558_)) + (___kont241557241558_)))) + (___kont241557241558_)))) + (___kont241557241558_)))) + (___kont241557241558_))))))) (define gxc#collect-type-define-values% - (lambda (_stx234139_) - (let* ((___stx238994238995_ _stx234139_) - (_g234142234173_ + (lambda (_stx236634_) + (let* ((___stx241589241590_ _stx236634_) + (_g236637236668_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx238994238995_))))) - (let ((___kont238996238997_ - (lambda (_L234255_ _L234256_) - (let ((_sym234272_ + ___stx241589241590_))))) + (let ((___kont241591241592_ + (lambda (_L236750_ _L236751_) + (let ((_sym236767_ (let () (declare (not safe)) - (gxc#identifier-symbol _L234256_)))) - (if (let ((__tmp241054 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L236751_)))) + (if (let ((__tmp243649 (gxc#current-compile-mutators))) (declare (not safe)) - (table-ref __tmp241054 _sym234272_ '#f)) + (table-ref __tmp243649 _sym236767_ '#f)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym234272_)) + _sym236767_)) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym234272_)) + (gxc#optimizer-lookup-type _sym236767_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for already declared type " - _sym234272_)) - (let ((_type234273234275_ + _sym236767_)) + (let ((_type236768236770_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _L234255_)))) - (if _type234273234275_ - (let ((_type234278_ _type234273234275_)) + _L236750_)))) + (if _type236768236770_ + (let ((_type236773_ _type236768236770_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym234272_ - _type234278_)) + _sym236767_ + _type236773_)) '#f)))) (let () (declare (not safe)) - (gxc#compile-e__0 _L234255_))))) - (___kont238998238999_ - (lambda (_L234202_ _L234203_) + (gxc#compile-e__0 _L236750_))))) + (___kont241593241594_ + (lambda (_L236697_ _L236698_) (let () (declare (not safe)) - (gxc#compile-e__0 _L234202_))))) - (let ((___match239027239028_ - (lambda (_e234148234223_ - _hd234147234226_ - _tl234146234228_ - _e234151234231_ - _hd234150234234_ - _tl234149234236_ - _e234154234239_ - _hd234153234242_ - _tl234152234244_ - _e234157234247_ - _hd234156234250_ - _tl234155234252_) - (let ((_L234255_ _hd234156234250_) - (_L234256_ _hd234153234242_)) + (gxc#compile-e__0 _L236697_))))) + (let ((___match241622241623_ + (lambda (_e236643236718_ + _hd236642236721_ + _tl236641236723_ + _e236646236726_ + _hd236645236729_ + _tl236644236731_ + _e236649236734_ + _hd236648236737_ + _tl236647236739_ + _e236652236742_ + _hd236651236745_ + _tl236650236747_) + (let ((_L236750_ _hd236651236745_) + (_L236751_ _hd236648236737_)) (if (let () (declare (not safe)) - (gx#identifier? _L234256_)) - (___kont238996238997_ _L234255_ _L234256_) - (___kont238998238999_ - _hd234156234250_ - _hd234150234234_)))))) + (gx#identifier? _L236751_)) + (___kont241591241592_ _L236750_ _L236751_) + (___kont241593241594_ + _hd236651236745_ + _hd236645236729_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx238994238995_)) - (let ((_e234148234223_ + (gx#stx-pair? ___stx241589241590_)) + (let ((_e236643236718_ (let () (declare (not safe)) - (gx#stx-e ___stx238994238995_)))) - (let ((_tl234146234228_ + (gx#stx-e ___stx241589241590_)))) + (let ((_tl236641236723_ (let () (declare (not safe)) - (##cdr _e234148234223_))) - (_hd234147234226_ + (##cdr _e236643236718_))) + (_hd236642236721_ (let () (declare (not safe)) - (##car _e234148234223_)))) + (##car _e236643236718_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234146234228_)) - (let ((_e234151234231_ + (gx#stx-pair? _tl236641236723_)) + (let ((_e236646236726_ (let () (declare (not safe)) - (gx#stx-e _tl234146234228_)))) - (let ((_tl234149234236_ + (gx#stx-e _tl236641236723_)))) + (let ((_tl236644236731_ (let () (declare (not safe)) - (##cdr _e234151234231_))) - (_hd234150234234_ + (##cdr _e236646236726_))) + (_hd236645236729_ (let () (declare (not safe)) - (##car _e234151234231_)))) + (##car _e236646236726_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234150234234_)) - (let ((_e234154234239_ + (gx#stx-pair? _hd236645236729_)) + (let ((_e236649236734_ (let () (declare (not safe)) - (gx#stx-e _hd234150234234_)))) - (let ((_tl234152234244_ + (gx#stx-e _hd236645236729_)))) + (let ((_tl236647236739_ (let () (declare (not safe)) - (##cdr _e234154234239_))) - (_hd234153234242_ + (##cdr _e236649236734_))) + (_hd236648236737_ (let () (declare (not safe)) - (##car _e234154234239_)))) + (##car _e236649236734_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234152234244_)) + (gx#stx-null? _tl236647236739_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234149234236_)) - (let ((_e234157234247_ + _tl236644236731_)) + (let ((_e236652236742_ (let () (declare (not safe)) (gx#stx-e - _tl234149234236_)))) - (let ((_tl234155234252_ + _tl236644236731_)))) + (let ((_tl236650236747_ (let () (declare (not safe)) - (##cdr _e234157234247_))) - (_hd234156234250_ + (##cdr _e236652236742_))) + (_hd236651236745_ (let () (declare (not safe)) - (##car _e234157234247_)))) + (##car _e236652236742_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234155234252_)) - (___match239027239028_ - _e234148234223_ - _hd234147234226_ - _tl234146234228_ - _e234151234231_ - _hd234150234234_ - _tl234149234236_ - _e234154234239_ - _hd234153234242_ - _tl234152234244_ - _e234157234247_ - _hd234156234250_ - _tl234155234252_) + _tl236650236747_)) + (___match241622241623_ + _e236643236718_ + _hd236642236721_ + _tl236641236723_ + _e236646236726_ + _hd236645236729_ + _tl236644236731_ + _e236649236734_ + _hd236648236737_ + _tl236647236739_ + _e236652236742_ + _hd236651236745_ + _tl236650236747_) (let () (declare (not safe)) - (_g234142234173_))))) + (_g236637236668_))))) (let () (declare (not safe)) - (_g234142234173_))) + (_g236637236668_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234149234236_)) - (let ((_e234168234194_ + _tl236644236731_)) + (let ((_e236663236689_ (let () (declare (not safe)) (gx#stx-e - _tl234149234236_)))) - (let ((_tl234166234199_ + _tl236644236731_)))) + (let ((_tl236661236694_ (let () (declare (not safe)) - (##cdr _e234168234194_))) - (_hd234167234197_ + (##cdr _e236663236689_))) + (_hd236662236692_ (let () (declare (not safe)) - (##car _e234168234194_)))) + (##car _e236663236689_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234166234199_)) - (___kont238998238999_ - _hd234167234197_ - _hd234150234234_) + _tl236661236694_)) + (___kont241593241594_ + _hd236662236692_ + _hd236645236729_) (let () (declare (not safe)) - (_g234142234173_))))) + (_g236637236668_))))) (let () (declare (not safe)) - (_g234142234173_)))))) + (_g236637236668_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234149234236_)) - (let ((_e234168234194_ + (gx#stx-pair? _tl236644236731_)) + (let ((_e236663236689_ (let () (declare (not safe)) - (gx#stx-e _tl234149234236_)))) - (let ((_tl234166234199_ + (gx#stx-e _tl236644236731_)))) + (let ((_tl236661236694_ (let () (declare (not safe)) - (##cdr _e234168234194_))) - (_hd234167234197_ + (##cdr _e236663236689_))) + (_hd236662236692_ (let () (declare (not safe)) - (##car _e234168234194_)))) + (##car _e236663236689_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234166234199_)) - (___kont238998238999_ - _hd234167234197_ - _hd234150234234_) + _tl236661236694_)) + (___kont241593241594_ + _hd236662236692_ + _hd236645236729_) (let () (declare (not safe)) - (_g234142234173_))))) + (_g236637236668_))))) (let () (declare (not safe)) - (_g234142234173_)))))) - (let () (declare (not safe)) (_g234142234173_))))) - (let () (declare (not safe)) (_g234142234173_)))))))) + (_g236637236668_)))))) + (let () (declare (not safe)) (_g236637236668_))))) + (let () (declare (not safe)) (_g236637236668_)))))))) (define gxc#collect-type-let-values% - (lambda (_stx233924_) - (letrec ((_collect-e233926_ - (lambda (_hd234083_ _expr234084_) - (let* ((___stx239050239051_ _hd234083_) - (_g234087234097_ + (lambda (_stx236419_) + (letrec ((_collect-e236421_ + (lambda (_hd236578_ _expr236579_) + (let* ((___stx241645241646_ _hd236578_) + (_g236582236592_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx239050239051_))))) - (let ((___kont239052239053_ - (lambda (_L234117_) - (let ((_sym234128_ + ___stx241645241646_))))) + (let ((___kont241647241648_ + (lambda (_L236612_) + (let ((_sym236623_ (let () (declare (not safe)) - (gxc#identifier-symbol _L234117_)))) - (if (let ((__tmp241055 + (gxc#identifier-symbol _L236612_)))) + (if (let ((__tmp243650 (gxc#current-compile-mutators))) (declare (not safe)) - (table-ref __tmp241055 _sym234128_ '#f)) + (table-ref __tmp243650 _sym236623_ '#f)) (let () (declare (not safe)) (gxc#verbose '"skipping type declaration for mutable binding " - _sym234128_)) - (let ((_type234129234131_ + _sym236623_)) + (let ((_type236624236626_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _expr234084_)))) - (if _type234129234131_ - (let ((_type234134_ - _type234129234131_)) + _expr236579_)))) + (if _type236624236626_ + (let ((_type236629_ + _type236624236626_)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym234128_ - _type234134_ + _sym236623_ + _type236629_ '#t)) '#f)))))) - (___kont239054239055_ (lambda () '#!void))) - (let ((___match239063239064_ - (lambda (_e234092234109_ - _hd234091234112_ - _tl234090234114_) - (let ((_L234117_ _hd234091234112_)) + (___kont241649241650_ (lambda () '#!void))) + (let ((___match241658241659_ + (lambda (_e236587236604_ + _hd236586236607_ + _tl236585236609_) + (let ((_L236612_ _hd236586236607_)) (if (let () (declare (not safe)) - (gx#identifier? _L234117_)) - (___kont239052239053_ _L234117_) - (___kont239054239055_)))))) + (gx#identifier? _L236612_)) + (___kont241647241648_ _L236612_) + (___kont241649241650_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx239050239051_)) - (let ((_e234092234109_ + (gx#stx-pair? ___stx241645241646_)) + (let ((_e236587236604_ (let () (declare (not safe)) - (gx#stx-e ___stx239050239051_)))) - (let ((_tl234090234114_ + (gx#stx-e ___stx241645241646_)))) + (let ((_tl236585236609_ (let () (declare (not safe)) - (##cdr _e234092234109_))) - (_hd234091234112_ + (##cdr _e236587236604_))) + (_hd236586236607_ (let () (declare (not safe)) - (##car _e234092234109_)))) + (##car _e236587236604_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234090234114_)) - (___match239063239064_ - _e234092234109_ - _hd234091234112_ - _tl234090234114_) - (___kont239054239055_)))) - (___kont239054239055_)))))))) - (let* ((_g233928233963_ - (lambda (_g233929233960_) + (gx#stx-null? _tl236585236609_)) + (___match241658241659_ + _e236587236604_ + _hd236586236607_ + _tl236585236609_) + (___kont241649241650_)))) + (___kont241649241650_)))))))) + (let* ((_g236423236458_ + (lambda (_g236424236455_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g233929233960_)))) - (_g233927234080_ - (lambda (_g233929233966_) + _g236424236455_)))) + (_g236422236575_ + (lambda (_g236424236461_) (if (let () (declare (not safe)) - (gx#stx-pair? _g233929233966_)) - (let ((_e233935233968_ + (gx#stx-pair? _g236424236461_)) + (let ((_e236430236463_ (let () (declare (not safe)) - (gx#stx-e _g233929233966_)))) - (let ((_hd233934233971_ + (gx#stx-e _g236424236461_)))) + (let ((_hd236429236466_ (let () (declare (not safe)) - (##car _e233935233968_))) - (_tl233933233973_ + (##car _e236430236463_))) + (_tl236428236468_ (let () (declare (not safe)) - (##cdr _e233935233968_)))) + (##cdr _e236430236463_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233933233973_)) - (let ((_e233938233976_ + (gx#stx-pair? _tl236428236468_)) + (let ((_e236433236471_ (let () (declare (not safe)) - (gx#stx-e _tl233933233973_)))) - (let ((_hd233937233979_ + (gx#stx-e _tl236428236468_)))) + (let ((_hd236432236474_ (let () (declare (not safe)) - (##car _e233938233976_))) - (_tl233936233981_ + (##car _e236433236471_))) + (_tl236431236476_ (let () (declare (not safe)) - (##cdr _e233938233976_)))) + (##cdr _e236433236471_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd233937233979_)) - (let ((_g241056_ + (gx#stx-pair/null? _hd236432236474_)) + (let ((_g243651_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd233937233979_ + _hd236432236474_ '0)))) (begin - (let ((_g241057_ + (let ((_g243652_ (let () (declare (not safe)) - (if (##values? _g241056_) + (if (##values? _g243651_) (##vector-length - _g241056_) + _g243651_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g241057_ 2))) + (##fx= _g243652_ 2))) (error "Context expects 2 values" - _g241057_))) - (let ((_target233939233984_ + _g243652_))) + (let ((_target236434236479_ (let () (declare (not safe)) (##vector-ref - _g241056_ + _g243651_ 0))) - (_tl233941233986_ + (_tl236436236481_ (let () (declare (not safe)) (##vector-ref - _g241056_ + _g243651_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233941233986_)) - (letrec ((_loop233942233989_ - (lambda (_hd233940233992_ + _tl236436236481_)) + (letrec ((_loop236437236484_ + (lambda (_hd236435236487_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr233946233994_ - _hd233947233996_) + _expr236441236489_ + _hd236442236491_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233940233992_)) - (let ((_e233943233999_ + (gx#stx-pair? _hd236435236487_)) + (let ((_e236438236494_ (let () (declare (not safe)) - (gx#stx-e _hd233940233992_)))) - (let ((_lp-hd233944234002_ + (gx#stx-e _hd236435236487_)))) + (let ((_lp-hd236439236497_ (let () (declare (not safe)) - (##car _e233943233999_))) - (_lp-tl233945234004_ + (##car _e236438236494_))) + (_lp-tl236440236499_ (let () (declare (not safe)) - (##cdr _e233943233999_)))) + (##cdr _e236438236494_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd233944234002_)) - (let ((_e233952234007_ + (gx#stx-pair? _lp-hd236439236497_)) + (let ((_e236447236502_ (let () (declare (not safe)) - (gx#stx-e _lp-hd233944234002_)))) - (let ((_hd233951234010_ + (gx#stx-e _lp-hd236439236497_)))) + (let ((_hd236446236505_ (let () (declare (not safe)) - (##car _e233952234007_))) - (_tl233950234012_ + (##car _e236447236502_))) + (_tl236445236507_ (let () (declare (not safe)) - (##cdr _e233952234007_)))) + (##cdr _e236447236502_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233950234012_)) - (let ((_e233955234015_ + (gx#stx-pair? _tl236445236507_)) + (let ((_e236450236510_ (let () (declare (not safe)) (gx#stx-e - _tl233950234012_)))) - (let ((_hd233954234018_ + _tl236445236507_)))) + (let ((_hd236449236513_ (let () (declare (not safe)) - (##car _e233955234015_))) - (_tl233953234020_ + (##car _e236450236510_))) + (_tl236448236515_ (let () (declare (not safe)) - (##cdr _e233955234015_)))) + (##cdr _e236450236510_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233953234020_)) - (let ((__tmp241062 + _tl236448236515_)) + (let ((__tmp243657 (let () (declare (not safe)) - (cons _hd233954234018_ + (cons _hd236449236513_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr233946233994_))) - (__tmp241061 + _expr236441236489_))) + (__tmp243656 (let () (declare (not safe)) - (cons _hd233951234010_ _hd233947233996_)))) + (cons _hd236446236505_ _hd236442236491_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop233942233989_ - _lp-tl233945234004_ - __tmp241062 - __tmp241061)) + (_loop236437236484_ + _lp-tl236440236499_ + __tmp243657 + __tmp243656)) (let () (declare (not safe)) - (_g233928233963_ - _g233929233966_))))) + (_g236423236458_ + _g236424236461_))))) (let () (declare (not safe)) - (_g233928233963_ - _g233929233966_))))) + (_g236423236458_ + _g236424236461_))))) (let () (declare (not safe)) - (_g233928233963_ _g233929233966_))))) - (let ((_expr233948234023_ - (reverse _expr233946233994_)) - (_hd233949234025_ (reverse _hd233947233996_))) + (_g236423236458_ _g236424236461_))))) + (let ((_expr236443236518_ + (reverse _expr236441236489_)) + (_hd236444236520_ (reverse _hd236442236491_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233936233981_)) - (let ((_e233958234028_ + (gx#stx-pair? _tl236431236476_)) + (let ((_e236453236523_ (let () (declare (not safe)) - (gx#stx-e _tl233936233981_)))) - (let ((_hd233957234031_ + (gx#stx-e _tl236431236476_)))) + (let ((_hd236452236526_ (let () (declare (not safe)) - (##car _e233958234028_))) - (_tl233956234033_ + (##car _e236453236523_))) + (_tl236451236528_ (let () (declare (not safe)) - (##cdr _e233958234028_)))) + (##cdr _e236453236523_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233956234033_)) - ((lambda (_L234036_ - _L234037_ - _L234038_) + (gx#stx-null? _tl236451236528_)) + ((lambda (_L236531_ + _L236532_ + _L236533_) (for-each - _collect-e233926_ - (let ((__tmp241058 - (lambda (_g234058234061_ - _g234059234063_) + _collect-e236421_ + (let ((__tmp243653 + (lambda (_g236553236556_ + _g236554236558_) (let () (declare (not safe)) - (cons _g234058234061_ - _g234059234063_))))) + (cons _g236553236556_ + _g236554236558_))))) (declare (not safe)) - (foldr1 __tmp241058 + (foldr1 __tmp243653 '() - _L234038_)) - (let ((__tmp241059 - (lambda (_g234065234068_ - _g234066234070_) + _L236533_)) + (let ((__tmp243654 + (lambda (_g236560236563_ + _g236561236565_) (let () (declare (not safe)) - (cons _g234065234068_ - _g234066234070_))))) + (cons _g236560236563_ + _g236561236565_))))) (declare (not safe)) - (foldr1 __tmp241059 + (foldr1 __tmp243654 '() - _L234037_))) + _L236532_))) (for-each gxc#compile-e - (let ((__tmp241060 - (lambda (_g234072234075_ - _g234073234077_) + (let ((__tmp243655 + (lambda (_g236567236570_ + _g236568236572_) (let () (declare (not safe)) - (cons _g234072234075_ - _g234073234077_))))) + (cons _g236567236570_ + _g236568236572_))))) (declare (not safe)) - (foldr1 __tmp241060 + (foldr1 __tmp243655 '() - _L234037_))) + _L236532_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L234036_))) - _hd233957234031_ - _expr233948234023_ - _hd233949234025_) + (gxc#compile-e__0 _L236531_))) + _hd236452236526_ + _expr236443236518_ + _hd236444236520_) (let () (declare (not safe)) - (_g233928233963_ _g233929233966_))))) + (_g236423236458_ _g236424236461_))))) (let () (declare (not safe)) - (_g233928233963_ _g233929233966_)))))))) + (_g236423236458_ _g236424236461_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop233942233989_ - _target233939233984_ + (_loop236437236484_ + _target236434236479_ '() '()))) (let () (declare (not safe)) - (_g233928233963_ - _g233929233966_)))))) + (_g236423236458_ + _g236424236461_)))))) (let () (declare (not safe)) - (_g233928233963_ _g233929233966_))))) + (_g236423236458_ _g236424236461_))))) (let () (declare (not safe)) - (_g233928233963_ _g233929233966_))))) + (_g236423236458_ _g236424236461_))))) (let () (declare (not safe)) - (_g233928233963_ _g233929233966_)))))) + (_g236423236458_ _g236424236461_)))))) (declare (not safe)) - (_g233927234080_ _stx233924_))))) + (_g236422236575_ _stx236419_))))) (define gxc#collect-type-call% - (lambda (_stx233416_) - (let* ((___stx239066239067_ _stx233416_) - (_g233420233535_ + (lambda (_stx235911_) + (let* ((___stx241661241662_ _stx235911_) + (_g235915236030_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx239066239067_))))) - (let ((___kont239068239069_ - (lambda (_L233874_ _L233875_ _L233876_ _L233877_ _L233878_) - (let ((__tmp241066 + ___stx241661241662_))))) + (let ((___kont241663241664_ + (lambda (_L236369_ _L236370_ _L236371_ _L236372_ _L236373_) + (let ((__tmp243661 (let () (declare (not safe)) - (gxc#identifier-symbol _L233877_))) - (__tmp241065 - (let () (declare (not safe)) (gx#stx-e _L233876_))) - (__tmp241064 + (gxc#identifier-symbol _L236372_))) + (__tmp243660 + (let () (declare (not safe)) (gx#stx-e _L236371_))) + (__tmp243659 (let () (declare (not safe)) - (gxc#identifier-symbol _L233875_))) - (__tmp241063 - (let () (declare (not safe)) (gx#stx-e _L233874_)))) + (gxc#identifier-symbol _L236370_))) + (__tmp243658 + (let () (declare (not safe)) (gx#stx-e _L236369_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp241066 - __tmp241065 - __tmp241064 - __tmp241063)))) - (___kont239070239071_ - (lambda (_L233702_ _L233703_ _L233704_ _L233705_) - (let ((__tmp241069 + __tmp243661 + __tmp243660 + __tmp243659 + __tmp243658)))) + (___kont241665241666_ + (lambda (_L236197_ _L236198_ _L236199_ _L236200_) + (let ((__tmp243664 (let () (declare (not safe)) - (gxc#identifier-symbol _L233704_))) - (__tmp241068 - (let () (declare (not safe)) (gx#stx-e _L233703_))) - (__tmp241067 + (gxc#identifier-symbol _L236199_))) + (__tmp243663 + (let () (declare (not safe)) (gx#stx-e _L236198_))) + (__tmp243662 (let () (declare (not safe)) - (gxc#identifier-symbol _L233702_)))) + (gxc#identifier-symbol _L236197_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp241069 - __tmp241068 - __tmp241067 + __tmp243664 + __tmp243663 + __tmp243662 '#f)))) - (___kont239072239073_ - (lambda (_L233572_) + (___kont241667241668_ + (lambda (_L236067_) (for-each gxc#compile-e - (let ((__tmp241070 - (lambda (_g233585233588_ _g233586233590_) + (let ((__tmp243665 + (lambda (_g236080236083_ _g236081236085_) (let () (declare (not safe)) - (cons _g233585233588_ _g233586233590_))))) + (cons _g236080236083_ _g236081236085_))))) (declare (not safe)) - (foldr1 __tmp241070 '() _L233572_)))))) - (let* ((___match239323239324_ - (lambda (_e233521233540_ - _hd233520233543_ - _tl233519233545_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) - (letrec ((_loop233525233553_ - (lambda (_hd233523233556_ _expr233529233558_) + (foldr1 __tmp243665 '() _L236067_)))))) + (let* ((___match241918241919_ + (lambda (_e236016236035_ + _hd236015236038_ + _tl236014236040_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) + (letrec ((_loop236020236048_ + (lambda (_hd236018236051_ _expr236024236053_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233523233556_)) - (let ((_e233526233561_ + (gx#stx-pair? _hd236018236051_)) + (let ((_e236021236056_ (let () (declare (not safe)) - (gx#stx-e _hd233523233556_)))) - (let ((_lp-tl233528233566_ + (gx#stx-e _hd236018236051_)))) + (let ((_lp-tl236023236061_ (let () (declare (not safe)) - (##cdr _e233526233561_))) - (_lp-hd233527233564_ + (##cdr _e236021236056_))) + (_lp-hd236022236059_ (let () (declare (not safe)) - (##car _e233526233561_)))) - (let ((__tmp241071 + (##car _e236021236056_)))) + (let ((__tmp243666 (let () (declare (not safe)) - (cons _lp-hd233527233564_ - _expr233529233558_)))) + (cons _lp-hd236022236059_ + _expr236024236053_)))) (declare (not safe)) - (_loop233525233553_ - _lp-tl233528233566_ - __tmp241071)))) - (let ((_expr233530233569_ - (reverse _expr233529233558_))) - (___kont239072239073_ - _expr233530233569_)))))) + (_loop236020236048_ + _lp-tl236023236061_ + __tmp243666)))) + (let ((_expr236025236064_ + (reverse _expr236024236053_))) + (___kont241667241668_ + _expr236025236064_)))))) (let () (declare (not safe)) - (_loop233525233553_ _target233522233548_ '()))))) - (___match239203239204_ - (lambda (_e233429233746_ - _hd233428233749_ - _tl233427233751_ - _e233432233754_ - _hd233431233757_ - _tl233430233759_ - _e233435233762_ - _hd233434233765_ - _tl233433233767_ - _e233438233770_ - _hd233437233773_ - _tl233436233775_ - _e233441233778_ - _hd233440233781_ - _tl233439233783_ - _e233444233786_ - _hd233443233789_ - _tl233442233791_ - _e233447233794_ - _hd233446233797_ - _tl233445233799_ - _e233450233802_ - _hd233449233805_ - _tl233448233807_ - _e233453233810_ - _hd233452233813_ - _tl233451233815_ - _e233456233818_ - _hd233455233821_ - _tl233454233823_ - _e233459233826_ - _hd233458233829_ - _tl233457233831_ - _e233462233834_ - _hd233461233837_ - _tl233460233839_ - _e233465233842_ - _hd233464233845_ - _tl233463233847_ - _e233468233850_ - _hd233467233853_ - _tl233466233855_ - _e233471233858_ - _hd233470233861_ - _tl233469233863_ - _e233474233866_ - _hd233473233869_ - _tl233472233871_) - (let ((_L233874_ _hd233473233869_) - (_L233875_ _hd233464233845_) - (_L233876_ _hd233455233821_) - (_L233877_ _hd233446233797_) - (_L233878_ _hd233437233773_)) + (_loop236020236048_ _target236017236043_ '()))))) + (___match241798241799_ + (lambda (_e235924236241_ + _hd235923236244_ + _tl235922236246_ + _e235927236249_ + _hd235926236252_ + _tl235925236254_ + _e235930236257_ + _hd235929236260_ + _tl235928236262_ + _e235933236265_ + _hd235932236268_ + _tl235931236270_ + _e235936236273_ + _hd235935236276_ + _tl235934236278_ + _e235939236281_ + _hd235938236284_ + _tl235937236286_ + _e235942236289_ + _hd235941236292_ + _tl235940236294_ + _e235945236297_ + _hd235944236300_ + _tl235943236302_ + _e235948236305_ + _hd235947236308_ + _tl235946236310_ + _e235951236313_ + _hd235950236316_ + _tl235949236318_ + _e235954236321_ + _hd235953236324_ + _tl235952236326_ + _e235957236329_ + _hd235956236332_ + _tl235955236334_ + _e235960236337_ + _hd235959236340_ + _tl235958236342_ + _e235963236345_ + _hd235962236348_ + _tl235961236350_ + _e235966236353_ + _hd235965236356_ + _tl235964236358_ + _e235969236361_ + _hd235968236364_ + _tl235967236366_) + (let ((_L236369_ _hd235968236364_) + (_L236370_ _hd235959236340_) + (_L236371_ _hd235950236316_) + (_L236372_ _hd235941236292_) + (_L236373_ _hd235932236268_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L233878_ + _L236373_ 'bind-method!)) - (___kont239068239069_ - _L233874_ - _L233875_ - _L233876_ - _L233877_ - _L233878_) + (___kont241663241664_ + _L236369_ + _L236370_ + _L236371_ + _L236372_ + _L236373_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))))))) + (_g235915236030_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx239066239067_)) - (let ((_e233429233746_ + (gx#stx-pair? ___stx241661241662_)) + (let ((_e235924236241_ (let () (declare (not safe)) - (gx#stx-e ___stx239066239067_)))) - (let ((_tl233427233751_ + (gx#stx-e ___stx241661241662_)))) + (let ((_tl235922236246_ (let () (declare (not safe)) - (##cdr _e233429233746_))) - (_hd233428233749_ + (##cdr _e235924236241_))) + (_hd235923236244_ (let () (declare (not safe)) - (##car _e233429233746_)))) + (##car _e235924236241_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233427233751_)) - (let ((_e233432233754_ + (gx#stx-pair? _tl235922236246_)) + (let ((_e235927236249_ (let () (declare (not safe)) - (gx#stx-e _tl233427233751_)))) - (let ((_tl233430233759_ + (gx#stx-e _tl235922236246_)))) + (let ((_tl235925236254_ (let () (declare (not safe)) - (##cdr _e233432233754_))) - (_hd233431233757_ + (##cdr _e235927236249_))) + (_hd235926236252_ (let () (declare (not safe)) - (##car _e233432233754_)))) + (##car _e235927236249_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233431233757_)) - (let ((_e233435233762_ + (gx#stx-pair? _hd235926236252_)) + (let ((_e235930236257_ (let () (declare (not safe)) - (gx#stx-e _hd233431233757_)))) - (let ((_tl233433233767_ + (gx#stx-e _hd235926236252_)))) + (let ((_tl235928236262_ (let () (declare (not safe)) - (##cdr _e233435233762_))) - (_hd233434233765_ + (##cdr _e235930236257_))) + (_hd235929236260_ (let () (declare (not safe)) - (##car _e233435233762_)))) + (##car _e235930236257_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233434233765_)) + (gx#identifier? _hd235929236260_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233434233765_)) + _hd235929236260_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233433233767_)) - (let ((_e233438233770_ + _tl235928236262_)) + (let ((_e235933236265_ (let () (declare (not safe)) (gx#stx-e - _tl233433233767_)))) - (let ((_tl233436233775_ + _tl235928236262_)))) + (let ((_tl235931236270_ (let () (declare (not safe)) - (##cdr _e233438233770_))) - (_hd233437233773_ + (##cdr _e235933236265_))) + (_hd235932236268_ (let () (declare (not safe)) - (##car _e233438233770_)))) + (##car _e235933236265_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233436233775_)) + _tl235931236270_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl233430233759_)) - (let ((_e233441233778_ + (gx#stx-pair? _tl235925236254_)) + (let ((_e235936236273_ (let () (declare (not safe)) - (gx#stx-e _tl233430233759_)))) - (let ((_tl233439233783_ + (gx#stx-e _tl235925236254_)))) + (let ((_tl235934236278_ (let () (declare (not safe)) - (##cdr _e233441233778_))) - (_hd233440233781_ + (##cdr _e235936236273_))) + (_hd235935236276_ (let () (declare (not safe)) - (##car _e233441233778_)))) + (##car _e235936236273_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233440233781_)) - (let ((_e233444233786_ + (gx#stx-pair? _hd235935236276_)) + (let ((_e235939236281_ (let () (declare (not safe)) - (gx#stx-e _hd233440233781_)))) - (let ((_tl233442233791_ + (gx#stx-e _hd235935236276_)))) + (let ((_tl235937236286_ (let () (declare (not safe)) - (##cdr _e233444233786_))) - (_hd233443233789_ + (##cdr _e235939236281_))) + (_hd235938236284_ (let () (declare (not safe)) - (##car _e233444233786_)))) + (##car _e235939236281_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233443233789_)) + (gx#identifier? _hd235938236284_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233443233789_)) + _hd235938236284_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233442233791_)) - (let ((_e233447233794_ + _tl235937236286_)) + (let ((_e235942236289_ (let () (declare (not safe)) (gx#stx-e - _tl233442233791_)))) - (let ((_tl233445233799_ + _tl235937236286_)))) + (let ((_tl235940236294_ (let () (declare (not safe)) - (##cdr _e233447233794_))) - (_hd233446233797_ + (##cdr _e235942236289_))) + (_hd235941236292_ (let () (declare (not safe)) - (##car _e233447233794_)))) + (##car _e235942236289_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233445233799_)) + _tl235940236294_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233439233783_)) - (let ((_e233450233802_ + _tl235934236278_)) + (let ((_e235945236297_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl233439233783_)))) - (let ((_tl233448233807_ + (gx#stx-e _tl235934236278_)))) + (let ((_tl235943236302_ (let () (declare (not safe)) - (##cdr _e233450233802_))) - (_hd233449233805_ + (##cdr _e235945236297_))) + (_hd235944236300_ (let () (declare (not safe)) - (##car _e233450233802_)))) + (##car _e235945236297_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233449233805_)) - (let ((_e233453233810_ + (gx#stx-pair? _hd235944236300_)) + (let ((_e235948236305_ (let () (declare (not safe)) - (gx#stx-e _hd233449233805_)))) - (let ((_tl233451233815_ + (gx#stx-e _hd235944236300_)))) + (let ((_tl235946236310_ (let () (declare (not safe)) - (##cdr _e233453233810_))) - (_hd233452233813_ + (##cdr _e235948236305_))) + (_hd235947236308_ (let () (declare (not safe)) - (##car _e233453233810_)))) + (##car _e235948236305_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233452233813_)) + (gx#identifier? _hd235947236308_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd233452233813_)) + (gx#stx-eq? '%#quote _hd235947236308_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233451233815_)) - (let ((_e233456233818_ + (gx#stx-pair? _tl235946236310_)) + (let ((_e235951236313_ (let () (declare (not safe)) (gx#stx-e - _tl233451233815_)))) - (let ((_tl233454233823_ + _tl235946236310_)))) + (let ((_tl235949236318_ (let () (declare (not safe)) - (##cdr _e233456233818_))) - (_hd233455233821_ + (##cdr _e235951236313_))) + (_hd235950236316_ (let () (declare (not safe)) - (##car _e233456233818_)))) + (##car _e235951236313_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233454233823_)) + _tl235949236318_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233448233807_)) - (let ((_e233459233826_ + _tl235943236302_)) + (let ((_e235954236321_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl233448233807_)))) - (let ((_tl233457233831_ - (let () (declare (not safe)) (##cdr _e233459233826_))) - (_hd233458233829_ - (let () (declare (not safe)) (##car _e233459233826_)))) + (gx#stx-e _tl235943236302_)))) + (let ((_tl235952236326_ + (let () (declare (not safe)) (##cdr _e235954236321_))) + (_hd235953236324_ + (let () (declare (not safe)) (##car _e235954236321_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233458233829_)) - (let ((_e233462233834_ + (gx#stx-pair? _hd235953236324_)) + (let ((_e235957236329_ (let () (declare (not safe)) - (gx#stx-e _hd233458233829_)))) - (let ((_tl233460233839_ + (gx#stx-e _hd235953236324_)))) + (let ((_tl235955236334_ (let () (declare (not safe)) - (##cdr _e233462233834_))) - (_hd233461233837_ + (##cdr _e235957236329_))) + (_hd235956236332_ (let () (declare (not safe)) - (##car _e233462233834_)))) + (##car _e235957236329_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233461233837_)) + (gx#identifier? _hd235956236332_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233461233837_)) + (gx#stx-eq? '%#ref _hd235956236332_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233460233839_)) - (let ((_e233465233842_ + (gx#stx-pair? _tl235955236334_)) + (let ((_e235960236337_ (let () (declare (not safe)) - (gx#stx-e _tl233460233839_)))) - (let ((_tl233463233847_ + (gx#stx-e _tl235955236334_)))) + (let ((_tl235958236342_ (let () (declare (not safe)) - (##cdr _e233465233842_))) - (_hd233464233845_ + (##cdr _e235960236337_))) + (_hd235959236340_ (let () (declare (not safe)) - (##car _e233465233842_)))) + (##car _e235960236337_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233463233847_)) + _tl235958236342_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233457233831_)) - (let ((_e233468233850_ + _tl235952236326_)) + (let ((_e235963236345_ (let () (declare (not safe)) (gx#stx-e - _tl233457233831_)))) - (let ((_tl233466233855_ + _tl235952236326_)))) + (let ((_tl235961236350_ (let () (declare (not safe)) - (##cdr _e233468233850_))) - (_hd233467233853_ + (##cdr _e235963236345_))) + (_hd235962236348_ (let () (declare (not safe)) - (##car _e233468233850_)))) + (##car _e235963236345_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233467233853_)) - (let ((_e233471233858_ + _hd235962236348_)) + (let ((_e235966236353_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd233467233853_)))) - (let ((_tl233469233863_ + (gx#stx-e _hd235962236348_)))) + (let ((_tl235964236358_ (let () (declare (not safe)) - (##cdr _e233471233858_))) - (_hd233470233861_ + (##cdr _e235966236353_))) + (_hd235965236356_ (let () (declare (not safe)) - (##car _e233471233858_)))) + (##car _e235966236353_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233470233861_)) + (gx#identifier? _hd235965236356_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd233470233861_)) + (gx#stx-eq? '%#quote _hd235965236356_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233469233863_)) - (let ((_e233474233866_ + (gx#stx-pair? _tl235964236358_)) + (let ((_e235969236361_ (let () (declare (not safe)) - (gx#stx-e _tl233469233863_)))) - (let ((_tl233472233871_ + (gx#stx-e _tl235964236358_)))) + (let ((_tl235967236366_ (let () (declare (not safe)) - (##cdr _e233474233866_))) - (_hd233473233869_ + (##cdr _e235969236361_))) + (_hd235968236364_ (let () (declare (not safe)) - (##car _e233474233866_)))) + (##car _e235969236361_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233472233871_)) + (gx#stx-null? _tl235967236366_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl233466233855_)) - (___match239203239204_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - _e233432233754_ - _hd233431233757_ - _tl233430233759_ - _e233435233762_ - _hd233434233765_ - _tl233433233767_ - _e233438233770_ - _hd233437233773_ - _tl233436233775_ - _e233441233778_ - _hd233440233781_ - _tl233439233783_ - _e233444233786_ - _hd233443233789_ - _tl233442233791_ - _e233447233794_ - _hd233446233797_ - _tl233445233799_ - _e233450233802_ - _hd233449233805_ - _tl233448233807_ - _e233453233810_ - _hd233452233813_ - _tl233451233815_ - _e233456233818_ - _hd233455233821_ - _tl233454233823_ - _e233459233826_ - _hd233458233829_ - _tl233457233831_ - _e233462233834_ - _hd233461233837_ - _tl233460233839_ - _e233465233842_ - _hd233464233845_ - _tl233463233847_ - _e233468233850_ - _hd233467233853_ - _tl233466233855_ - _e233471233858_ - _hd233470233861_ - _tl233469233863_ - _e233474233866_ - _hd233473233869_ - _tl233472233871_) + _tl235961236350_)) + (___match241798241799_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + _e235927236249_ + _hd235926236252_ + _tl235925236254_ + _e235930236257_ + _hd235929236260_ + _tl235928236262_ + _e235933236265_ + _hd235932236268_ + _tl235931236270_ + _e235936236273_ + _hd235935236276_ + _tl235934236278_ + _e235939236281_ + _hd235938236284_ + _tl235937236286_ + _e235942236289_ + _hd235941236292_ + _tl235940236294_ + _e235945236297_ + _hd235944236300_ + _tl235943236302_ + _e235948236305_ + _hd235947236308_ + _tl235946236310_ + _e235951236313_ + _hd235950236316_ + _tl235949236318_ + _e235954236321_ + _hd235953236324_ + _tl235952236326_ + _e235957236329_ + _hd235956236332_ + _tl235955236334_ + _e235960236337_ + _hd235959236340_ + _tl235958236342_ + _e235963236345_ + _hd235962236348_ + _tl235961236350_ + _e235966236353_ + _hd235965236356_ + _tl235964236358_ + _e235969236361_ + _hd235968236364_ + _tl235967236366_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233427233751_)) - (let ((___splice239074239075_ + _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))) + (_g235915236030_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233427233751_)) - (let ((___splice239074239075_ + _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))))) + (_g235915236030_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))) + (_g235915236030_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))) + (_g235915236030_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))))) + (_g235915236030_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl233427233751_ '0)))) - (let ((_tl233524233550_ + (gx#syntax-split-splice _tl235922236246_ '0)))) + (let ((_tl236019236045_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '1))) - (_target233522233548_ + (##vector-ref ___splice241669241670_ '1))) + (_target236017236043_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '0)))) + (##vector-ref ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) - (let () (declare (not safe)) (_g233420233535_)))))) + (_g235915236030_))))) + (let () (declare (not safe)) (_g235915236030_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl233457233831_)) - (if (let ((__tmp241072 + _tl235952236326_)) + (if (let ((__tmp243667 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp241072 'bind-method!)) - (let ((_L233702_ _hd233464233845_) - (_L233703_ _hd233455233821_) - (_L233704_ _hd233446233797_) - (_L233705_ _hd233437233773_)) - (___kont239070239071_ - _L233702_ - _L233703_ - _L233704_ - _L233705_)) + (gxc#runtime-identifier=? __tmp243667 'bind-method!)) + (let ((_L236197_ _hd235959236340_) + (_L236198_ _hd235950236316_) + (_L236199_ _hd235941236292_) + (_L236200_ _hd235932236268_)) + (___kont241665241666_ + _L236197_ + _L236198_ + _L236199_ + _L236200_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl233427233751_ '0)))) - (let ((_tl233524233550_ + (gx#syntax-split-splice _tl235922236246_ '0)))) + (let ((_tl236019236045_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '1))) - (_target233522233548_ + (##vector-ref ___splice241669241670_ '1))) + (_target236017236043_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '0)))) + (##vector-ref ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) - (let () (declare (not safe)) (_g233420233535_)))) + (_g235915236030_))))) + (let () (declare (not safe)) (_g235915236030_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl233427233751_ '0)))) - (let ((_tl233524233550_ + (gx#syntax-split-splice _tl235922236246_ '0)))) + (let ((_tl236019236045_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '1))) - (_target233522233548_ + (##vector-ref ___splice241669241670_ '1))) + (_target236017236043_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '0)))) + (##vector-ref ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) - (let () (declare (not safe)) (_g233420233535_))))) - (let () (declare (not safe)) (_g233420233535_))))) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) + (let () (declare (not safe)) (_g235915236030_))))) + (let () (declare (not safe)) (_g235915236030_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233427233751_)) - (let ((___splice239074239075_ + _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))))) + (_g235915236030_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233427233751_)) - (let ((___splice239074239075_ + _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))) + (_g235915236030_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))) + (_g235915236030_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))))) + (_g235915236030_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '1))) - (_target233522233548_ + (##vector-ref ___splice241669241670_ '1))) + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) - (let () (declare (not safe)) (_g233420233535_)))))) + (_g235915236030_))))) + (let () (declare (not safe)) (_g235915236030_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl233427233751_ '0)))) - (let ((_tl233524233550_ + (gx#syntax-split-splice _tl235922236246_ '0)))) + (let ((_tl236019236045_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '1))) - (_target233522233548_ + (##vector-ref ___splice241669241670_ '1))) + (_target236017236043_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '0)))) + (##vector-ref ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) - (let () (declare (not safe)) (_g233420233535_))))) - (let () (declare (not safe)) (_g233420233535_)))) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) + (let () (declare (not safe)) (_g235915236030_))))) + (let () (declare (not safe)) (_g235915236030_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233427233751_)) - (let ((___splice239074239075_ + _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl233427233751_ '0)))) - (let ((_tl233524233550_ + (gx#syntax-split-splice _tl235922236246_ '0)))) + (let ((_tl236019236045_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '1))) - (_target233522233548_ + (##vector-ref ___splice241669241670_ '1))) + (_target236017236043_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '0)))) + (##vector-ref ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) - (let () (declare (not safe)) (_g233420233535_))))) - (let () (declare (not safe)) (_g233420233535_)))))) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) + (let () (declare (not safe)) (_g235915236030_))))) + (let () (declare (not safe)) (_g235915236030_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233427233751_)) - (let ((___splice239074239075_ + _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))) + (_g235915236030_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233427233751_)) - (let ((___splice239074239075_ + _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))) + (_g235915236030_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))))) + (_g235915236030_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))))) + (_g235915236030_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl233427233751_ '0)))) - (let ((_tl233524233550_ + (gx#syntax-split-splice _tl235922236246_ '0)))) + (let ((_tl236019236045_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '1))) - (_target233522233548_ + (##vector-ref ___splice241669241670_ '1))) + (_target236017236043_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '0)))) + (##vector-ref ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) - (let () (declare (not safe)) (_g233420233535_)))) + (_g235915236030_))))) + (let () (declare (not safe)) (_g235915236030_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl233427233751_ '0)))) - (let ((_tl233524233550_ + (gx#syntax-split-splice _tl235922236246_ '0)))) + (let ((_tl236019236045_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '1))) - (_target233522233548_ + (##vector-ref ___splice241669241670_ '1))) + (_target236017236043_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '0)))) + (##vector-ref ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) - (let () (declare (not safe)) (_g233420233535_))))) - (let () (declare (not safe)) (_g233420233535_)))))) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) + (let () (declare (not safe)) (_g235915236030_))))) + (let () (declare (not safe)) (_g235915236030_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233427233751_)) - (let ((___splice239074239075_ + _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))) + (_g235915236030_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233427233751_)) - (let ((___splice239074239075_ + _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))) + (_g235915236030_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233427233751_)) - (let ((___splice239074239075_ + _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))))) + (_g235915236030_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))))) + (_g235915236030_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '1))) - (_target233522233548_ + (##vector-ref ___splice241669241670_ '1))) + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) - (let () (declare (not safe)) (_g233420233535_)))) + (_g235915236030_))))) + (let () (declare (not safe)) (_g235915236030_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl233427233751_ '0)))) - (let ((_tl233524233550_ + (gx#syntax-split-splice _tl235922236246_ '0)))) + (let ((_tl236019236045_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '1))) - (_target233522233548_ + (##vector-ref ___splice241669241670_ '1))) + (_target236017236043_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '0)))) + (##vector-ref ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) - (let () (declare (not safe)) (_g233420233535_)))))) + (_g235915236030_))))) + (let () (declare (not safe)) (_g235915236030_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233427233751_)) - (let ((___splice239074239075_ + _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl233427233751_ '0)))) - (let ((_tl233524233550_ + (gx#syntax-split-splice _tl235922236246_ '0)))) + (let ((_tl236019236045_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '1))) - (_target233522233548_ + (##vector-ref ___splice241669241670_ '1))) + (_target236017236043_ (let () (declare (not safe)) - (##vector-ref ___splice239074239075_ '0)))) + (##vector-ref ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) - (let () (declare (not safe)) (_g233420233535_))))) - (let () (declare (not safe)) (_g233420233535_)))) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) + (let () (declare (not safe)) (_g235915236030_))))) + (let () (declare (not safe)) (_g235915236030_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233427233751_)) - (let ((___splice239074239075_ + _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))) + (_g235915236030_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233427233751_)) - (let ((___splice239074239075_ + _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))))) + (_g235915236030_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))))) + (_g235915236030_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233427233751_)) - (let ((___splice239074239075_ + (gx#stx-pair/null? _tl235922236246_)) + (let ((___splice241669241670_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233427233751_ + _tl235922236246_ '0)))) - (let ((_tl233524233550_ + (let ((_tl236019236045_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '1))) - (_target233522233548_ + (_target236017236043_ (let () (declare (not safe)) (##vector-ref - ___splice239074239075_ + ___splice241669241670_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233524233550_)) - (___match239323239324_ - _e233429233746_ - _hd233428233749_ - _tl233427233751_ - ___splice239074239075_ - _target233522233548_ - _tl233524233550_) + (gx#stx-null? _tl236019236045_)) + (___match241918241919_ + _e235924236241_ + _hd235923236244_ + _tl235922236246_ + ___splice241669241670_ + _target236017236043_ + _tl236019236045_) (let () (declare (not safe)) - (_g233420233535_))))) + (_g235915236030_))))) (let () (declare (not safe)) - (_g233420233535_)))))) - (let () (declare (not safe)) (_g233420233535_)))))))) + (_g235915236030_)))))) + (let () (declare (not safe)) (_g235915236030_)))))))) (define gxc#current-compile-type-closure (make-parameter '#f)) (define gxc#basic-expression-type-begin% - (lambda (_stx233356_) - (let* ((___stx239326239327_ _stx233356_) - (_g233359233372_ + (lambda (_stx235851_) + (let* ((___stx241921241922_ _stx235851_) + (_g235854235867_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx239326239327_))))) - (let ((___kont239328239329_ - (lambda (_L233400_) - (let () (declare (not safe)) (gxc#compile-e__0 _L233400_)))) - (___kont239330239331_ (lambda () '#f))) + ___stx241921241922_))))) + (let ((___kont241923241924_ + (lambda (_L235895_) + (let () (declare (not safe)) (gxc#compile-e__0 _L235895_)))) + (___kont241925241926_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx239326239327_)) - (let ((_e233364233384_ + (gx#stx-pair? ___stx241921241922_)) + (let ((_e235859235879_ (let () (declare (not safe)) - (gx#stx-e ___stx239326239327_)))) - (let ((_tl233362233389_ - (let () (declare (not safe)) (##cdr _e233364233384_))) - (_hd233363233387_ + (gx#stx-e ___stx241921241922_)))) + (let ((_tl235857235884_ + (let () (declare (not safe)) (##cdr _e235859235879_))) + (_hd235858235882_ (let () (declare (not safe)) - (##car _e233364233384_)))) + (##car _e235859235879_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233362233389_)) - (let ((_e233367233392_ + (gx#stx-pair? _tl235857235884_)) + (let ((_e235862235887_ (let () (declare (not safe)) - (gx#stx-e _tl233362233389_)))) - (let ((_tl233365233397_ + (gx#stx-e _tl235857235884_)))) + (let ((_tl235860235892_ (let () (declare (not safe)) - (##cdr _e233367233392_))) - (_hd233366233395_ + (##cdr _e235862235887_))) + (_hd235861235890_ (let () (declare (not safe)) - (##car _e233367233392_)))) + (##car _e235862235887_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233365233397_)) - (___kont239328239329_ _hd233366233395_) - (___kont239330239331_)))) - (___kont239330239331_)))) - (___kont239330239331_)))))) + (gx#stx-null? _tl235860235892_)) + (___kont241923241924_ _hd235861235890_) + (___kont241925241926_)))) + (___kont241925241926_)))) + (___kont241925241926_)))))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-table 'test: eq?))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_stx233236_) - (let* ((_g233238233255_ - (lambda (_g233239233252_) + (lambda (_stx235731_) + (let* ((_g235733235750_ + (lambda (_g235734235747_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g233239233252_)))) - (_g233237233353_ - (lambda (_g233239233258_) + _g235734235747_)))) + (_g235732235848_ + (lambda (_g235734235753_) (if (let () (declare (not safe)) - (gx#stx-pair? _g233239233258_)) - (let ((_e233244233260_ + (gx#stx-pair? _g235734235753_)) + (let ((_e235739235755_ (let () (declare (not safe)) - (gx#stx-e _g233239233258_)))) - (let ((_hd233243233263_ + (gx#stx-e _g235734235753_)))) + (let ((_hd235738235758_ (let () (declare (not safe)) - (##car _e233244233260_))) - (_tl233242233265_ + (##car _e235739235755_))) + (_tl235737235760_ (let () (declare (not safe)) - (##cdr _e233244233260_)))) + (##cdr _e235739235755_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233242233265_)) - (let ((_e233247233268_ + (gx#stx-pair? _tl235737235760_)) + (let ((_e235742235763_ (let () (declare (not safe)) - (gx#stx-e _tl233242233265_)))) - (let ((_hd233246233271_ + (gx#stx-e _tl235737235760_)))) + (let ((_hd235741235766_ (let () (declare (not safe)) - (##car _e233247233268_))) - (_tl233245233273_ + (##car _e235742235763_))) + (_tl235740235768_ (let () (declare (not safe)) - (##cdr _e233247233268_)))) + (##cdr _e235742235763_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233245233273_)) - (let ((_e233250233276_ + (gx#stx-pair? _tl235740235768_)) + (let ((_e235745235771_ (let () (declare (not safe)) - (gx#stx-e _tl233245233273_)))) - (let ((_hd233249233279_ + (gx#stx-e _tl235740235768_)))) + (let ((_hd235744235774_ (let () (declare (not safe)) - (##car _e233250233276_))) - (_tl233248233281_ + (##car _e235745235771_))) + (_tl235743235776_ (let () (declare (not safe)) - (##cdr _e233250233276_)))) + (##cdr _e235745235771_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233248233281_)) - ((lambda (_L233284_ _L233285_) - (let* ((___stx239348239349_ - _L233285_) - (_g233301233312_ + _tl235743235776_)) + ((lambda (_L235779_ _L235780_) + (let* ((___stx241943241944_ + _L235780_) + (_g235796235807_ (lambda () (let () (declare @@ -2914,233 +2914,233 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx239348239349_))))) - (let ((___kont239350239351_ - (lambda (_L233332_ + ___stx241943241944_))))) + (let ((___kont241945241946_ + (lambda (_L235827_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L233333_) - (let ((_$e233345_ - (let ((__tmp241073 + _L235828_) + (let ((_$e235840_ + (let ((__tmp243668 (let () (declare (not safe)) - (gx#stx-e _L233333_)))) + (gx#stx-e _L235828_)))) (declare (not safe)) (table-ref gxc#basic-expression-type-annotations - __tmp241073 + __tmp243668 '#f)))) - (if _$e233345_ - ((lambda (_type-e233348_) - (_type-e233348_ _stx233236_ _L233285_)) - _$e233345_) + (if _$e235840_ + ((lambda (_type-e235843_) + (_type-e235843_ _stx235731_ _L235780_)) + _$e235840_) (let () (declare (not safe)) - (gxc#compile-e__0 _L233284_)))))) - (___kont239352239353_ + (gxc#compile-e__0 _L235779_)))))) + (___kont241947241948_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__0 _L233284_))))) + (gxc#compile-e__0 _L235779_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match239359239360_ - (lambda (_e233307233324_ + (let ((___match241954241955_ + (lambda (_e235802235819_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd233306233327_ - _tl233305233329_) - (let ((_L233332_ _tl233305233329_) - (_L233333_ _hd233306233327_)) + _hd235801235822_ + _tl235800235824_) + (let ((_L235827_ _tl235800235824_) + (_L235828_ _hd235801235822_)) (if (let () (declare (not safe)) - (gx#identifier? _L233333_)) - (___kont239350239351_ _L233332_ _L233333_) - (___kont239352239353_)))))) + (gx#identifier? _L235828_)) + (___kont241945241946_ _L235827_ _L235828_) + (___kont241947241948_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx239348239349_)) - (let ((_e233307233324_ + (gx#stx-pair? ___stx241943241944_)) + (let ((_e235802235819_ (let () (declare (not safe)) - (gx#stx-e ___stx239348239349_)))) - (let ((_tl233305233329_ + (gx#stx-e ___stx241943241944_)))) + (let ((_tl235800235824_ (let () (declare (not safe)) - (##cdr _e233307233324_))) - (_hd233306233327_ + (##cdr _e235802235819_))) + (_hd235801235822_ (let () (declare (not safe)) - (##car _e233307233324_)))) - (___match239359239360_ - _e233307233324_ - _hd233306233327_ - _tl233305233329_))) - (___kont239352239353_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd233249233279_ - _hd233246233271_) + (##car _e235802235819_)))) + (___match241954241955_ + _e235802235819_ + _hd235801235822_ + _tl235800235824_))) + (___kont241947241948_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd235744235774_ + _hd235741235766_) (let () (declare (not safe)) - (_g233238233255_ - _g233239233258_))))) + (_g235733235750_ + _g235734235753_))))) (let () (declare (not safe)) - (_g233238233255_ _g233239233258_))))) + (_g235733235750_ _g235734235753_))))) (let () (declare (not safe)) - (_g233238233255_ _g233239233258_))))) + (_g235733235750_ _g235734235753_))))) (let () (declare (not safe)) - (_g233238233255_ _g233239233258_)))))) + (_g235733235750_ _g235734235753_)))))) (declare (not safe)) - (_g233237233353_ _stx233236_)))) + (_g235732235848_ _stx235731_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_stx233097_ _ann233098_) - (let* ((_g233100233133_ - (lambda (_g233101233130_) + (lambda (_stx235592_ _ann235593_) + (let* ((_g235595235628_ + (lambda (_g235596235625_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g233101233130_)))) - (_g233099233233_ - (lambda (_g233101233136_) + _g235596235625_)))) + (_g235594235728_ + (lambda (_g235596235631_) (if (let () (declare (not safe)) - (gx#stx-pair? _g233101233136_)) - (let ((_e233110233138_ + (gx#stx-pair? _g235596235631_)) + (let ((_e235605235633_ (let () (declare (not safe)) - (gx#stx-e _g233101233136_)))) - (let ((_hd233109233141_ + (gx#stx-e _g235596235631_)))) + (let ((_hd235604235636_ (let () (declare (not safe)) - (##car _e233110233138_))) - (_tl233108233143_ + (##car _e235605235633_))) + (_tl235603235638_ (let () (declare (not safe)) - (##cdr _e233110233138_)))) + (##cdr _e235605235633_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233108233143_)) - (let ((_e233113233146_ + (gx#stx-pair? _tl235603235638_)) + (let ((_e235608235641_ (let () (declare (not safe)) - (gx#stx-e _tl233108233143_)))) - (let ((_hd233112233149_ + (gx#stx-e _tl235603235638_)))) + (let ((_hd235607235644_ (let () (declare (not safe)) - (##car _e233113233146_))) - (_tl233111233151_ + (##car _e235608235641_))) + (_tl235606235646_ (let () (declare (not safe)) - (##cdr _e233113233146_)))) + (##cdr _e235608235641_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233111233151_)) - (let ((_e233116233154_ + (gx#stx-pair? _tl235606235646_)) + (let ((_e235611235649_ (let () (declare (not safe)) - (gx#stx-e _tl233111233151_)))) - (let ((_hd233115233157_ + (gx#stx-e _tl235606235646_)))) + (let ((_hd235610235652_ (let () (declare (not safe)) - (##car _e233116233154_))) - (_tl233114233159_ + (##car _e235611235649_))) + (_tl235609235654_ (let () (declare (not safe)) - (##cdr _e233116233154_)))) + (##cdr _e235611235649_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233114233159_)) - (let ((_e233119233162_ + _tl235609235654_)) + (let ((_e235614235657_ (let () (declare (not safe)) (gx#stx-e - _tl233114233159_)))) - (let ((_hd233118233165_ + _tl235609235654_)))) + (let ((_hd235613235660_ (let () (declare (not safe)) - (##car _e233119233162_))) - (_tl233117233167_ + (##car _e235614235657_))) + (_tl235612235662_ (let () (declare (not safe)) - (##cdr _e233119233162_)))) + (##cdr _e235614235657_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233117233167_)) - (let ((_e233122233170_ + _tl235612235662_)) + (let ((_e235617235665_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl233117233167_)))) - (let ((_hd233121233173_ - (let () (declare (not safe)) (##car _e233122233170_))) - (_tl233120233175_ - (let () (declare (not safe)) (##cdr _e233122233170_)))) + (gx#stx-e _tl235612235662_)))) + (let ((_hd235616235668_ + (let () (declare (not safe)) (##car _e235617235665_))) + (_tl235615235670_ + (let () (declare (not safe)) (##cdr _e235617235665_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233120233175_)) - (let ((_e233125233178_ + (gx#stx-pair? _tl235615235670_)) + (let ((_e235620235673_ (let () (declare (not safe)) - (gx#stx-e _tl233120233175_)))) - (let ((_hd233124233181_ + (gx#stx-e _tl235615235670_)))) + (let ((_hd235619235676_ (let () (declare (not safe)) - (##car _e233125233178_))) - (_tl233123233183_ + (##car _e235620235673_))) + (_tl235618235678_ (let () (declare (not safe)) - (##cdr _e233125233178_)))) + (##cdr _e235620235673_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233123233183_)) - (let ((_e233128233186_ + (gx#stx-pair? _tl235618235678_)) + (let ((_e235623235681_ (let () (declare (not safe)) - (gx#stx-e _tl233123233183_)))) - (let ((_hd233127233189_ + (gx#stx-e _tl235618235678_)))) + (let ((_hd235622235684_ (let () (declare (not safe)) - (##car _e233128233186_))) - (_tl233126233191_ + (##car _e235623235681_))) + (_tl235621235686_ (let () (declare (not safe)) - (##cdr _e233128233186_)))) + (##cdr _e235623235681_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233126233191_)) - ((lambda (_L233194_ - _L233195_ - _L233196_ - _L233197_ - _L233198_ - _L233199_) - (let ((_type-id233226_ + (gx#stx-null? _tl235621235686_)) + ((lambda (_L235689_ + _L235690_ + _L235691_ + _L235692_ + _L235693_ + _L235694_) + (let ((_type-id235721_ (let () (declare (not safe)) - (gx#stx-e _L233199_))) - (_super233227_ + (gx#stx-e _L235694_))) + (_super235722_ (map gxc#identifier-symbol - _L233198_)) - (_slots233228_ - (map gx#stx-e _L233197_)) - (_ctor-method233229_ + _L235693_)) + (_slots235723_ + (map gx#stx-e _L235692_)) + (_ctor-method235724_ (let () (declare (not safe)) - (gx#stx-e _L233196_))) - (_struct?233230_ + (gx#stx-e _L235691_))) + (_struct?235725_ (let () (declare (not safe)) - (gx#stx-e _L233195_))) - (_final?233231_ + (gx#stx-e _L235690_))) + (_final?235726_ (let () (declare (not safe)) - (gx#stx-e _L233194_)))) - (let ((__obj241031 + (gx#stx-e _L235689_)))) + (let ((__obj243626 (let () (declare (not safe)) (##structure @@ -3155,418 +3155,418 @@ '#f '#f)))) (gxc#!class:::init! - __obj241031 - _type-id233226_ - _super233227_ - _slots233228_ - _ctor-method233229_ - _struct?233230_ - _final?233231_) - __obj241031))) - _hd233127233189_ - _hd233124233181_ - _hd233121233173_ - _hd233118233165_ - _hd233115233157_ - _hd233112233149_) + __obj243626 + _type-id235721_ + _super235722_ + _slots235723_ + _ctor-method235724_ + _struct?235725_ + _final?235726_) + __obj243626))) + _hd235622235684_ + _hd235619235676_ + _hd235616235668_ + _hd235613235660_ + _hd235610235652_ + _hd235607235644_) (let () (declare (not safe)) - (_g233100233133_ _g233101233136_))))) + (_g235595235628_ _g235596235631_))))) (let () (declare (not safe)) - (_g233100233133_ _g233101233136_))))) + (_g235595235628_ _g235596235631_))))) (let () (declare (not safe)) - (_g233100233133_ _g233101233136_))))) + (_g235595235628_ _g235596235631_))))) (let () (declare (not safe)) - (_g233100233133_ _g233101233136_))))) + (_g235595235628_ _g235596235631_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g233100233133_ - _g233101233136_))))) + (_g235595235628_ + _g235596235631_))))) (let () (declare (not safe)) - (_g233100233133_ _g233101233136_))))) + (_g235595235628_ _g235596235631_))))) (let () (declare (not safe)) - (_g233100233133_ _g233101233136_))))) + (_g235595235628_ _g235596235631_))))) (let () (declare (not safe)) - (_g233100233133_ _g233101233136_)))))) + (_g235595235628_ _g235596235631_)))))) (declare (not safe)) - (_g233099233233_ _ann233098_)))) + (_g235594235728_ _ann235593_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_stx233045_ _ann233046_) - (let* ((_g233048233061_ - (lambda (_g233049233058_) + (lambda (_stx235540_ _ann235541_) + (let* ((_g235543235556_ + (lambda (_g235544235553_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g233049233058_)))) - (_g233047233094_ - (lambda (_g233049233064_) + _g235544235553_)))) + (_g235542235589_ + (lambda (_g235544235559_) (if (let () (declare (not safe)) - (gx#stx-pair? _g233049233064_)) - (let ((_e233053233066_ + (gx#stx-pair? _g235544235559_)) + (let ((_e235548235561_ (let () (declare (not safe)) - (gx#stx-e _g233049233064_)))) - (let ((_hd233052233069_ + (gx#stx-e _g235544235559_)))) + (let ((_hd235547235564_ (let () (declare (not safe)) - (##car _e233053233066_))) - (_tl233051233071_ + (##car _e235548235561_))) + (_tl235546235566_ (let () (declare (not safe)) - (##cdr _e233053233066_)))) + (##cdr _e235548235561_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233051233071_)) - (let ((_e233056233074_ + (gx#stx-pair? _tl235546235566_)) + (let ((_e235551235569_ (let () (declare (not safe)) - (gx#stx-e _tl233051233071_)))) - (let ((_hd233055233077_ + (gx#stx-e _tl235546235566_)))) + (let ((_hd235550235572_ (let () (declare (not safe)) - (##car _e233056233074_))) - (_tl233054233079_ + (##car _e235551235569_))) + (_tl235549235574_ (let () (declare (not safe)) - (##cdr _e233056233074_)))) + (##cdr _e235551235569_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233054233079_)) - ((lambda (_L233082_) - (let ((__tmp241074 + (gx#stx-null? _tl235549235574_)) + ((lambda (_L235577_) + (let ((__tmp243669 (let () (declare (not safe)) (gxc#identifier-symbol - _L233082_)))) + _L235577_)))) (declare (not safe)) (##structure gxc#!constructor::t - __tmp241074))) - _hd233055233077_) + __tmp243669))) + _hd235550235572_) (let () (declare (not safe)) - (_g233048233061_ _g233049233064_))))) + (_g235543235556_ _g235544235559_))))) (let () (declare (not safe)) - (_g233048233061_ _g233049233064_))))) + (_g235543235556_ _g235544235559_))))) (let () (declare (not safe)) - (_g233048233061_ _g233049233064_)))))) + (_g235543235556_ _g235544235559_)))))) (declare (not safe)) - (_g233047233094_ _ann233046_)))) + (_g235542235589_ _ann235541_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_stx232993_ _ann232994_) - (let* ((_g232996233009_ - (lambda (_g232997233006_) + (lambda (_stx235488_ _ann235489_) + (let* ((_g235491235504_ + (lambda (_g235492235501_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g232997233006_)))) - (_g232995233042_ - (lambda (_g232997233012_) + _g235492235501_)))) + (_g235490235537_ + (lambda (_g235492235507_) (if (let () (declare (not safe)) - (gx#stx-pair? _g232997233012_)) - (let ((_e233001233014_ + (gx#stx-pair? _g235492235507_)) + (let ((_e235496235509_ (let () (declare (not safe)) - (gx#stx-e _g232997233012_)))) - (let ((_hd233000233017_ + (gx#stx-e _g235492235507_)))) + (let ((_hd235495235512_ (let () (declare (not safe)) - (##car _e233001233014_))) - (_tl232999233019_ + (##car _e235496235509_))) + (_tl235494235514_ (let () (declare (not safe)) - (##cdr _e233001233014_)))) + (##cdr _e235496235509_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232999233019_)) - (let ((_e233004233022_ + (gx#stx-pair? _tl235494235514_)) + (let ((_e235499235517_ (let () (declare (not safe)) - (gx#stx-e _tl232999233019_)))) - (let ((_hd233003233025_ + (gx#stx-e _tl235494235514_)))) + (let ((_hd235498235520_ (let () (declare (not safe)) - (##car _e233004233022_))) - (_tl233002233027_ + (##car _e235499235517_))) + (_tl235497235522_ (let () (declare (not safe)) - (##cdr _e233004233022_)))) + (##cdr _e235499235517_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233002233027_)) - ((lambda (_L233030_) - (let ((__tmp241075 + (gx#stx-null? _tl235497235522_)) + ((lambda (_L235525_) + (let ((__tmp243670 (let () (declare (not safe)) (gxc#identifier-symbol - _L233030_)))) + _L235525_)))) (declare (not safe)) (##structure gxc#!predicate::t - __tmp241075))) - _hd233003233025_) + __tmp243670))) + _hd235498235520_) (let () (declare (not safe)) - (_g232996233009_ _g232997233012_))))) + (_g235491235504_ _g235492235507_))))) (let () (declare (not safe)) - (_g232996233009_ _g232997233012_))))) + (_g235491235504_ _g235492235507_))))) (let () (declare (not safe)) - (_g232996233009_ _g232997233012_)))))) + (_g235491235504_ _g235492235507_)))))) (declare (not safe)) - (_g232995233042_ _ann232994_)))) + (_g235490235537_ _ann235489_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_stx232909_ _ann232910_) - (let* ((_g232912232933_ - (lambda (_g232913232930_) + (lambda (_stx235404_ _ann235405_) + (let* ((_g235407235428_ + (lambda (_g235408235425_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g232913232930_)))) - (_g232911232990_ - (lambda (_g232913232936_) + _g235408235425_)))) + (_g235406235485_ + (lambda (_g235408235431_) (if (let () (declare (not safe)) - (gx#stx-pair? _g232913232936_)) - (let ((_e232919232938_ + (gx#stx-pair? _g235408235431_)) + (let ((_e235414235433_ (let () (declare (not safe)) - (gx#stx-e _g232913232936_)))) - (let ((_hd232918232941_ + (gx#stx-e _g235408235431_)))) + (let ((_hd235413235436_ (let () (declare (not safe)) - (##car _e232919232938_))) - (_tl232917232943_ + (##car _e235414235433_))) + (_tl235412235438_ (let () (declare (not safe)) - (##cdr _e232919232938_)))) + (##cdr _e235414235433_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232917232943_)) - (let ((_e232922232946_ + (gx#stx-pair? _tl235412235438_)) + (let ((_e235417235441_ (let () (declare (not safe)) - (gx#stx-e _tl232917232943_)))) - (let ((_hd232921232949_ + (gx#stx-e _tl235412235438_)))) + (let ((_hd235416235444_ (let () (declare (not safe)) - (##car _e232922232946_))) - (_tl232920232951_ + (##car _e235417235441_))) + (_tl235415235446_ (let () (declare (not safe)) - (##cdr _e232922232946_)))) + (##cdr _e235417235441_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232920232951_)) - (let ((_e232925232954_ + (gx#stx-pair? _tl235415235446_)) + (let ((_e235420235449_ (let () (declare (not safe)) - (gx#stx-e _tl232920232951_)))) - (let ((_hd232924232957_ + (gx#stx-e _tl235415235446_)))) + (let ((_hd235419235452_ (let () (declare (not safe)) - (##car _e232925232954_))) - (_tl232923232959_ + (##car _e235420235449_))) + (_tl235418235454_ (let () (declare (not safe)) - (##cdr _e232925232954_)))) + (##cdr _e235420235449_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232923232959_)) - (let ((_e232928232962_ + _tl235418235454_)) + (let ((_e235423235457_ (let () (declare (not safe)) (gx#stx-e - _tl232923232959_)))) - (let ((_hd232927232965_ + _tl235418235454_)))) + (let ((_hd235422235460_ (let () (declare (not safe)) - (##car _e232928232962_))) - (_tl232926232967_ + (##car _e235423235457_))) + (_tl235421235462_ (let () (declare (not safe)) - (##cdr _e232928232962_)))) + (##cdr _e235423235457_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232926232967_)) - ((lambda (_L232970_ - _L232971_ - _L232972_) - (let ((__tmp241078 + _tl235421235462_)) + ((lambda (_L235465_ + _L235466_ + _L235467_) + (let ((__tmp243673 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L232972_))) - (__tmp241077 - (let () (declare (not safe)) (gx#stx-e _L232971_))) - (__tmp241076 - (let () (declare (not safe)) (gx#stx-e _L232970_)))) + (gxc#identifier-symbol _L235467_))) + (__tmp243672 + (let () (declare (not safe)) (gx#stx-e _L235466_))) + (__tmp243671 + (let () (declare (not safe)) (gx#stx-e _L235465_)))) (declare (not safe)) (##structure gxc#!accessor::t - __tmp241078 - __tmp241077 - __tmp241076))) - _hd232927232965_ - _hd232924232957_ - _hd232921232949_) + __tmp243673 + __tmp243672 + __tmp243671))) + _hd235422235460_ + _hd235419235452_ + _hd235416235444_) (let () (declare (not safe)) - (_g232912232933_ _g232913232936_))))) + (_g235407235428_ _g235408235431_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g232912232933_ - _g232913232936_))))) + (_g235407235428_ + _g235408235431_))))) (let () (declare (not safe)) - (_g232912232933_ _g232913232936_))))) + (_g235407235428_ _g235408235431_))))) (let () (declare (not safe)) - (_g232912232933_ _g232913232936_))))) + (_g235407235428_ _g235408235431_))))) (let () (declare (not safe)) - (_g232912232933_ _g232913232936_)))))) + (_g235407235428_ _g235408235431_)))))) (declare (not safe)) - (_g232911232990_ _ann232910_)))) + (_g235406235485_ _ann235405_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_stx232825_ _ann232826_) - (let* ((_g232828232849_ - (lambda (_g232829232846_) + (lambda (_stx235320_ _ann235321_) + (let* ((_g235323235344_ + (lambda (_g235324235341_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g232829232846_)))) - (_g232827232906_ - (lambda (_g232829232852_) + _g235324235341_)))) + (_g235322235401_ + (lambda (_g235324235347_) (if (let () (declare (not safe)) - (gx#stx-pair? _g232829232852_)) - (let ((_e232835232854_ + (gx#stx-pair? _g235324235347_)) + (let ((_e235330235349_ (let () (declare (not safe)) - (gx#stx-e _g232829232852_)))) - (let ((_hd232834232857_ + (gx#stx-e _g235324235347_)))) + (let ((_hd235329235352_ (let () (declare (not safe)) - (##car _e232835232854_))) - (_tl232833232859_ + (##car _e235330235349_))) + (_tl235328235354_ (let () (declare (not safe)) - (##cdr _e232835232854_)))) + (##cdr _e235330235349_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232833232859_)) - (let ((_e232838232862_ + (gx#stx-pair? _tl235328235354_)) + (let ((_e235333235357_ (let () (declare (not safe)) - (gx#stx-e _tl232833232859_)))) - (let ((_hd232837232865_ + (gx#stx-e _tl235328235354_)))) + (let ((_hd235332235360_ (let () (declare (not safe)) - (##car _e232838232862_))) - (_tl232836232867_ + (##car _e235333235357_))) + (_tl235331235362_ (let () (declare (not safe)) - (##cdr _e232838232862_)))) + (##cdr _e235333235357_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232836232867_)) - (let ((_e232841232870_ + (gx#stx-pair? _tl235331235362_)) + (let ((_e235336235365_ (let () (declare (not safe)) - (gx#stx-e _tl232836232867_)))) - (let ((_hd232840232873_ + (gx#stx-e _tl235331235362_)))) + (let ((_hd235335235368_ (let () (declare (not safe)) - (##car _e232841232870_))) - (_tl232839232875_ + (##car _e235336235365_))) + (_tl235334235370_ (let () (declare (not safe)) - (##cdr _e232841232870_)))) + (##cdr _e235336235365_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232839232875_)) - (let ((_e232844232878_ + _tl235334235370_)) + (let ((_e235339235373_ (let () (declare (not safe)) (gx#stx-e - _tl232839232875_)))) - (let ((_hd232843232881_ + _tl235334235370_)))) + (let ((_hd235338235376_ (let () (declare (not safe)) - (##car _e232844232878_))) - (_tl232842232883_ + (##car _e235339235373_))) + (_tl235337235378_ (let () (declare (not safe)) - (##cdr _e232844232878_)))) + (##cdr _e235339235373_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232842232883_)) - ((lambda (_L232886_ - _L232887_ - _L232888_) - (let ((__tmp241081 + _tl235337235378_)) + ((lambda (_L235381_ + _L235382_ + _L235383_) + (let ((__tmp243676 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L232888_))) - (__tmp241080 - (let () (declare (not safe)) (gx#stx-e _L232887_))) - (__tmp241079 - (let () (declare (not safe)) (gx#stx-e _L232886_)))) + (gxc#identifier-symbol _L235383_))) + (__tmp243675 + (let () (declare (not safe)) (gx#stx-e _L235382_))) + (__tmp243674 + (let () (declare (not safe)) (gx#stx-e _L235381_)))) (declare (not safe)) (##structure gxc#!mutator::t - __tmp241081 - __tmp241080 - __tmp241079))) - _hd232843232881_ - _hd232840232873_ - _hd232837232865_) + __tmp243676 + __tmp243675 + __tmp243674))) + _hd235338235376_ + _hd235335235368_ + _hd235332235360_) (let () (declare (not safe)) - (_g232828232849_ _g232829232852_))))) + (_g235323235344_ _g235324235347_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g232828232849_ - _g232829232852_))))) + (_g235323235344_ + _g235324235347_))))) (let () (declare (not safe)) - (_g232828232849_ _g232829232852_))))) + (_g235323235344_ _g235324235347_))))) (let () (declare (not safe)) - (_g232828232849_ _g232829232852_))))) + (_g235323235344_ _g235324235347_))))) (let () (declare (not safe)) - (_g232828232849_ _g232829232852_)))))) + (_g235323235344_ _g235324235347_)))))) (declare (not safe)) - (_g232827232906_ _ann232826_)))) + (_g235322235401_ _ann235321_)))) (let () (declare (not safe)) (table-set! @@ -3598,2048 +3598,2048 @@ '@mop.mutator gxc#basic-expression-type-annotation-mop.mutator)) (define gxc#basic-expression-type-lambda% - (lambda (_stx231945_) - (let* ((___stx239362239363_ _stx231945_) - (_g231951232147_ + (lambda (_stx234440_) + (let* ((___stx241957241958_ _stx234440_) + (_g234446234642_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx239362239363_))))) - (let ((___kont239364239365_ - (lambda (_L232813_) - (let ((__obj241032 + ___stx241957241958_))))) + (let ((___kont241959241960_ + (lambda (_L235308_) + (let ((__obj243627 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj241032 + __obj243627 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L232813_)) + (gxc#lambda-form-arity _L235308_)) '#f) - __obj241032))) - (___kont239366239367_ - (lambda (_L232740_ - _L232741_ - _L232742_ - _L232743_ - _L232744_ - _L232745_) - (let* ((_tab232795_ - (let () (declare (not safe)) (gx#stx-e _L232742_))) - (_keys232797_ - (if _tab232795_ - (let ((__tmp241082 (vector->list _tab232795_))) + __obj243627))) + (___kont241961241962_ + (lambda (_L235235_ + _L235236_ + _L235237_ + _L235238_ + _L235239_ + _L235240_) + (let* ((_tab235290_ + (let () (declare (not safe)) (gx#stx-e _L235237_))) + (_keys235292_ + (if _tab235290_ + (let ((__tmp243677 (vector->list _tab235290_))) (declare (not safe)) - (filter values __tmp241082)) + (filter values __tmp243677)) '#f))) - (let ((__tmp241083 + (let ((__tmp243678 (let () (declare (not safe)) - (gxc#identifier-symbol _L232741_)))) + (gxc#identifier-symbol _L235236_)))) (declare (not safe)) (##structure gxc#!kw-lambda::t 'kw-lambda - _keys232797_ - __tmp241083))))) - (___kont239368239369_ - (lambda (_L232473_ - _L232474_ - _L232475_ - _L232476_ - _L232477_ - _L232478_ - _L232479_ - _L232480_ - _L232481_ - _L232482_) - (let ((__tmp241085 + _keys235292_ + __tmp243678))))) + (___kont241963241964_ + (lambda (_L234968_ + _L234969_ + _L234970_ + _L234971_ + _L234972_ + _L234973_ + _L234974_ + _L234975_ + _L234976_ + _L234977_) + (let ((__tmp243680 (map gx#stx-e - (let ((__tmp241086 - (lambda (_g232575232578_ _g232576232580_) + (let ((__tmp243681 + (lambda (_g235070235073_ _g235071235075_) (let () (declare (not safe)) - (cons _g232575232578_ - _g232576232580_))))) + (cons _g235070235073_ + _g235071235075_))))) (declare (not safe)) - (foldr1 __tmp241086 '() _L232475_)))) - (__tmp241084 + (foldr1 __tmp243681 '() _L234970_)))) + (__tmp243679 (let () (declare (not safe)) - (gxc#identifier-symbol _L232479_)))) + (gxc#identifier-symbol _L234974_)))) (declare (not safe)) (##structure gxc#!kw-lambda-primary::t 'kw-lambda-dispatch - __tmp241085 - __tmp241084)))) - (___kont239372239373_ - (lambda (_L232183_) - (let ((__obj241033 + __tmp243680 + __tmp243679)))) + (___kont241967241968_ + (lambda (_L234678_) + (let ((__obj243628 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj241033 + __obj243628 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L232183_)) + (gxc#lambda-form-arity _L234678_)) (let () (declare (not safe)) - (gxc#dispatch-lambda-form-delegate _L232183_))) - __obj241033))) - (___kont239374239375_ - (lambda (_L232160_) - (let ((__obj241034 + (gxc#dispatch-lambda-form-delegate _L234678_))) + __obj243628))) + (___kont241969241970_ + (lambda (_L234655_) + (let ((__obj243629 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj241034 + __obj243629 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L232160_)) + (gxc#lambda-form-arity _L234655_)) '#f) - __obj241034)))) - (let* ((___match239681239682_ - (lambda (_e232138232175_ _hd232137232178_ _tl232136232180_) - (let ((_L232183_ _tl232136232180_)) + __obj243629)))) + (let* ((___match242276242277_ + (lambda (_e234633234670_ _hd234632234673_ _tl234631234675_) + (let ((_L234678_ _tl234631234675_)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _L232183_)) - (___kont239372239373_ _L232183_) - (___kont239374239375_ _tl232136232180_))))) - (___match239675239676_ - (lambda (_e232032232197_ - _hd232031232200_ - _tl232030232202_ - _e232035232205_ - _hd232034232208_ - _tl232033232210_ - _e232038232213_ - _hd232037232216_ - _tl232036232218_ - _e232041232221_ - _hd232040232224_ - _tl232039232226_ - _e232044232229_ - _hd232043232232_ - _tl232042232234_ - _e232047232237_ - _hd232046232240_ - _tl232045232242_ - _e232050232245_ - _hd232049232248_ - _tl232048232250_ - _e232053232253_ - _hd232052232256_ - _tl232051232258_ - _e232056232261_ - _hd232055232264_ - _tl232054232266_ - _e232059232269_ - _hd232058232272_ - _tl232057232274_ - _e232062232277_ - _hd232061232280_ - _tl232060232282_ - _e232065232285_ - _hd232064232288_ - _tl232063232290_ - _e232068232293_ - _hd232067232296_ - _tl232066232298_ - _e232071232301_ - _hd232070232304_ - _tl232069232306_ - ___splice239370239371_ - _target232072232309_ - _tl232074232311_ - _e232089232314_ - _hd232088232317_ - _tl232087232319_ - _e232092232322_ - _hd232091232325_ - _tl232090232327_ - _e232095232330_ - _hd232094232333_ - _tl232093232335_) - (letrec ((_loop232075232338_ - (lambda (_hd232073232341_ - _-absent-value232079232343_ - _key232080232345_ - _-xkwvar232081232347_ - _-hash-ref232082232349_) + (gxc#dispatch-lambda-form? _L234678_)) + (___kont241967241968_ _L234678_) + (___kont241969241970_ _tl234631234675_))))) + (___match242270242271_ + (lambda (_e234527234692_ + _hd234526234695_ + _tl234525234697_ + _e234530234700_ + _hd234529234703_ + _tl234528234705_ + _e234533234708_ + _hd234532234711_ + _tl234531234713_ + _e234536234716_ + _hd234535234719_ + _tl234534234721_ + _e234539234724_ + _hd234538234727_ + _tl234537234729_ + _e234542234732_ + _hd234541234735_ + _tl234540234737_ + _e234545234740_ + _hd234544234743_ + _tl234543234745_ + _e234548234748_ + _hd234547234751_ + _tl234546234753_ + _e234551234756_ + _hd234550234759_ + _tl234549234761_ + _e234554234764_ + _hd234553234767_ + _tl234552234769_ + _e234557234772_ + _hd234556234775_ + _tl234555234777_ + _e234560234780_ + _hd234559234783_ + _tl234558234785_ + _e234563234788_ + _hd234562234791_ + _tl234561234793_ + _e234566234796_ + _hd234565234799_ + _tl234564234801_ + ___splice241965241966_ + _target234567234804_ + _tl234569234806_ + _e234584234809_ + _hd234583234812_ + _tl234582234814_ + _e234587234817_ + _hd234586234820_ + _tl234585234822_ + _e234590234825_ + _hd234589234828_ + _tl234588234830_) + (letrec ((_loop234570234833_ + (lambda (_hd234568234836_ + _-absent-value234574234838_ + _key234575234840_ + _-xkwvar234576234842_ + _-hash-ref234577234844_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232073232341_)) - (let ((_e232076232352_ + (gx#stx-pair? _hd234568234836_)) + (let ((_e234571234847_ (let () (declare (not safe)) - (gx#stx-e _hd232073232341_)))) - (let ((_lp-tl232078232357_ + (gx#stx-e _hd234568234836_)))) + (let ((_lp-tl234573234852_ (let () (declare (not safe)) - (##cdr _e232076232352_))) - (_lp-hd232077232355_ + (##cdr _e234571234847_))) + (_lp-hd234572234850_ (let () (declare (not safe)) - (##car _e232076232352_)))) + (##car _e234571234847_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd232077232355_)) - (let ((_e232098232360_ + _lp-hd234572234850_)) + (let ((_e234593234855_ (let () (declare (not safe)) (gx#stx-e - _lp-hd232077232355_)))) - (let ((_tl232096232365_ + _lp-hd234572234850_)))) + (let ((_tl234591234860_ (let () (declare (not safe)) - (##cdr _e232098232360_))) - (_hd232097232363_ + (##cdr _e234593234855_))) + (_hd234592234858_ (let () (declare (not safe)) - (##car _e232098232360_)))) + (##car _e234593234855_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd232097232363_)) + _hd234592234858_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd232097232363_)) + _hd234592234858_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl232096232365_)) - (let ((_e232101232368_ + (gx#stx-pair? _tl234591234860_)) + (let ((_e234596234863_ (let () (declare (not safe)) - (gx#stx-e _tl232096232365_)))) - (let ((_tl232099232373_ + (gx#stx-e _tl234591234860_)))) + (let ((_tl234594234868_ (let () (declare (not safe)) - (##cdr _e232101232368_))) - (_hd232100232371_ + (##cdr _e234596234863_))) + (_hd234595234866_ (let () (declare (not safe)) - (##car _e232101232368_)))) + (##car _e234596234863_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232100232371_)) - (let ((_e232104232376_ + (gx#stx-pair? _hd234595234866_)) + (let ((_e234599234871_ (let () (declare (not safe)) - (gx#stx-e _hd232100232371_)))) - (let ((_tl232102232381_ + (gx#stx-e _hd234595234866_)))) + (let ((_tl234597234876_ (let () (declare (not safe)) - (##cdr _e232104232376_))) - (_hd232103232379_ + (##cdr _e234599234871_))) + (_hd234598234874_ (let () (declare (not safe)) - (##car _e232104232376_)))) + (##car _e234599234871_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232103232379_)) + (gx#identifier? _hd234598234874_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd232103232379_)) + _hd234598234874_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232102232381_)) - (let ((_e232107232384_ + _tl234597234876_)) + (let ((_e234602234879_ (let () (declare (not safe)) (gx#stx-e - _tl232102232381_)))) - (let ((_tl232105232389_ + _tl234597234876_)))) + (let ((_tl234600234884_ (let () (declare (not safe)) - (##cdr _e232107232384_))) - (_hd232106232387_ + (##cdr _e234602234879_))) + (_hd234601234882_ (let () (declare (not safe)) - (##car _e232107232384_)))) + (##car _e234602234879_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232105232389_)) + _tl234600234884_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232099232373_)) - (let ((_e232110232392_ + _tl234594234868_)) + (let ((_e234605234887_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl232099232373_)))) - (let ((_tl232108232397_ + (gx#stx-e _tl234594234868_)))) + (let ((_tl234603234892_ (let () (declare (not safe)) - (##cdr _e232110232392_))) - (_hd232109232395_ + (##cdr _e234605234887_))) + (_hd234604234890_ (let () (declare (not safe)) - (##car _e232110232392_)))) + (##car _e234605234887_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232109232395_)) - (let ((_e232113232400_ + (gx#stx-pair? _hd234604234890_)) + (let ((_e234608234895_ (let () (declare (not safe)) - (gx#stx-e _hd232109232395_)))) - (let ((_tl232111232405_ + (gx#stx-e _hd234604234890_)))) + (let ((_tl234606234900_ (let () (declare (not safe)) - (##cdr _e232113232400_))) - (_hd232112232403_ + (##cdr _e234608234895_))) + (_hd234607234898_ (let () (declare (not safe)) - (##car _e232113232400_)))) + (##car _e234608234895_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232112232403_)) + (gx#identifier? _hd234607234898_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd232112232403_)) + (gx#stx-eq? '%#ref _hd234607234898_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232111232405_)) - (let ((_e232116232408_ + (gx#stx-pair? _tl234606234900_)) + (let ((_e234611234903_ (let () (declare (not safe)) (gx#stx-e - _tl232111232405_)))) - (let ((_tl232114232413_ + _tl234606234900_)))) + (let ((_tl234609234908_ (let () (declare (not safe)) - (##cdr _e232116232408_))) - (_hd232115232411_ + (##cdr _e234611234903_))) + (_hd234610234906_ (let () (declare (not safe)) - (##car _e232116232408_)))) + (##car _e234611234903_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232114232413_)) + _tl234609234908_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232108232397_)) - (let ((_e232119232416_ + _tl234603234892_)) + (let ((_e234614234911_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl232108232397_)))) - (let ((_tl232117232421_ - (let () (declare (not safe)) (##cdr _e232119232416_))) - (_hd232118232419_ - (let () (declare (not safe)) (##car _e232119232416_)))) + (gx#stx-e _tl234603234892_)))) + (let ((_tl234612234916_ + (let () (declare (not safe)) (##cdr _e234614234911_))) + (_hd234613234914_ + (let () (declare (not safe)) (##car _e234614234911_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232118232419_)) - (let ((_e232122232424_ + (gx#stx-pair? _hd234613234914_)) + (let ((_e234617234919_ (let () (declare (not safe)) - (gx#stx-e _hd232118232419_)))) - (let ((_tl232120232429_ + (gx#stx-e _hd234613234914_)))) + (let ((_tl234615234924_ (let () (declare (not safe)) - (##cdr _e232122232424_))) - (_hd232121232427_ + (##cdr _e234617234919_))) + (_hd234616234922_ (let () (declare (not safe)) - (##car _e232122232424_)))) + (##car _e234617234919_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232121232427_)) + (gx#identifier? _hd234616234922_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd232121232427_)) + (gx#stx-eq? '%#quote _hd234616234922_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232120232429_)) - (let ((_e232125232432_ + (gx#stx-pair? _tl234615234924_)) + (let ((_e234620234927_ (let () (declare (not safe)) - (gx#stx-e _tl232120232429_)))) - (let ((_tl232123232437_ + (gx#stx-e _tl234615234924_)))) + (let ((_tl234618234932_ (let () (declare (not safe)) - (##cdr _e232125232432_))) - (_hd232124232435_ + (##cdr _e234620234927_))) + (_hd234619234930_ (let () (declare (not safe)) - (##car _e232125232432_)))) + (##car _e234620234927_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232123232437_)) + _tl234618234932_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232117232421_)) - (let ((_e232128232440_ + _tl234612234916_)) + (let ((_e234623234935_ (let () (declare (not safe)) (gx#stx-e - _tl232117232421_)))) - (let ((_tl232126232445_ + _tl234612234916_)))) + (let ((_tl234621234940_ (let () (declare (not safe)) - (##cdr _e232128232440_))) - (_hd232127232443_ + (##cdr _e234623234935_))) + (_hd234622234938_ (let () (declare (not safe)) - (##car _e232128232440_)))) + (##car _e234623234935_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232127232443_)) - (let ((_e232131232448_ + _hd234622234938_)) + (let ((_e234626234943_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd232127232443_)))) - (let ((_tl232129232453_ + (gx#stx-e _hd234622234938_)))) + (let ((_tl234624234948_ (let () (declare (not safe)) - (##cdr _e232131232448_))) - (_hd232130232451_ + (##cdr _e234626234943_))) + (_hd234625234946_ (let () (declare (not safe)) - (##car _e232131232448_)))) + (##car _e234626234943_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232130232451_)) + (gx#identifier? _hd234625234946_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd232130232451_)) + (gx#stx-eq? '%#ref _hd234625234946_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232129232453_)) - (let ((_e232134232456_ + (gx#stx-pair? _tl234624234948_)) + (let ((_e234629234951_ (let () (declare (not safe)) - (gx#stx-e _tl232129232453_)))) - (let ((_tl232132232461_ + (gx#stx-e _tl234624234948_)))) + (let ((_tl234627234956_ (let () (declare (not safe)) - (##cdr _e232134232456_))) - (_hd232133232459_ + (##cdr _e234629234951_))) + (_hd234628234954_ (let () (declare (not safe)) - (##car _e232134232456_)))) + (##car _e234629234951_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232132232461_)) + (gx#stx-null? _tl234627234956_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl232126232445_)) - (let ((__tmp241101 + _tl234621234940_)) + (let ((__tmp243696 (let () (declare (not safe)) - (cons _hd232133232459_ - _-absent-value232079232343_))) - (__tmp241100 + (cons _hd234628234954_ + _-absent-value234574234838_))) + (__tmp243695 (let () (declare (not safe)) - (cons _hd232124232435_ - _key232080232345_))) - (__tmp241099 + (cons _hd234619234930_ + _key234575234840_))) + (__tmp243694 (let () (declare (not safe)) - (cons _hd232115232411_ - _-xkwvar232081232347_))) - (__tmp241098 + (cons _hd234610234906_ + _-xkwvar234576234842_))) + (__tmp243693 (let () (declare (not safe)) - (cons _hd232106232387_ - _-hash-ref232082232349_)))) + (cons _hd234601234882_ + _-hash-ref234577234844_)))) (declare (not safe)) - (_loop232075232338_ - _lp-tl232078232357_ - __tmp241101 - __tmp241100 - __tmp241099 - __tmp241098)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (let ((_-hash-ref232086232470_ - (reverse _-hash-ref232082232349_)) - (_-xkwvar232085232468_ - (reverse _-xkwvar232081232347_)) - (_key232084232466_ - (reverse _key232080232345_)) - (_-absent-value232083232464_ - (reverse _-absent-value232079232343_))) + (_loop234570234833_ + _lp-tl234573234852_ + __tmp243696 + __tmp243695 + __tmp243694 + __tmp243693)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (let ((_-hash-ref234581234965_ + (reverse _-hash-ref234577234844_)) + (_-xkwvar234580234963_ + (reverse _-xkwvar234576234842_)) + (_key234579234961_ + (reverse _key234575234840_)) + (_-absent-value234578234959_ + (reverse _-absent-value234574234838_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232039232226_)) - (let ((_L232473_ _hd232094232333_) - (_L232474_ - _-absent-value232083232464_) - (_L232475_ _key232084232466_) - (_L232476_ - _-xkwvar232085232468_) - (_L232477_ - _-hash-ref232086232470_) - (_L232478_ _hd232070232304_) - (_L232479_ _hd232061232280_) - (_L232480_ _hd232052232256_) - (_L232481_ _tl232036232218_) - (_L232482_ _hd232037232216_)) + (gx#stx-null? _tl234534234721_)) + (let ((_L234968_ _hd234589234828_) + (_L234969_ + _-absent-value234578234959_) + (_L234970_ _key234579234961_) + (_L234971_ + _-xkwvar234580234963_) + (_L234972_ + _-hash-ref234581234965_) + (_L234973_ _hd234565234799_) + (_L234974_ _hd234556234775_) + (_L234975_ _hd234547234751_) + (_L234976_ _tl234531234713_) + (_L234977_ _hd234532234711_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L232482_)) + _L234977_)) (let () (declare (not safe)) (gx#identifier? - _L232481_)) + _L234976_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L232480_ + _L234975_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L232482_ - _L232478_)) - (let ((__tmp241096 - (let ((__tmp241097 + _L234977_ + _L234973_)) + (let ((__tmp243691 + (let ((__tmp243692 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g232535232538_ _g232536232540_) + (lambda (_g235030235033_ _g235031235035_) (let () (declare (not safe)) - (cons _g232535232538_ _g232536232540_))))) + (cons _g235030235033_ _g235031235035_))))) (declare (not safe)) - (foldr1 __tmp241097 '() _L232475_)))) + (foldr1 __tmp243692 '() _L234970_)))) (declare (not safe)) - (andmap1 gx#stx-keyword? __tmp241096)) - (let ((__tmp241095 - (lambda (_g232542232544_) + (andmap1 gx#stx-keyword? __tmp243691)) + (let ((__tmp243690 + (lambda (_g235037235039_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g232542232544_ + _g235037235039_ 'hash-ref)))) - (__tmp241093 - (let ((__tmp241094 - (lambda (_g232546232549_ _g232547232551_) + (__tmp243688 + (let ((__tmp243689 + (lambda (_g235041235044_ _g235042235046_) (let () (declare (not safe)) - (cons _g232546232549_ _g232547232551_))))) + (cons _g235041235044_ _g235042235046_))))) (declare (not safe)) - (foldr1 __tmp241094 '() _L232477_)))) + (foldr1 __tmp243689 '() _L234972_)))) (declare (not safe)) - (andmap1 __tmp241095 __tmp241093)) - (let ((__tmp241092 - (lambda (_g232553232555_) + (andmap1 __tmp243690 __tmp243688)) + (let ((__tmp243687 + (lambda (_g235048235050_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g232553232555_ + _g235048235050_ 'absent-value)))) - (__tmp241090 - (let ((__tmp241091 - (lambda (_g232557232560_ _g232558232562_) + (__tmp243685 + (let ((__tmp243686 + (lambda (_g235052235055_ _g235053235057_) (let () (declare (not safe)) - (cons _g232557232560_ _g232558232562_))))) + (cons _g235052235055_ _g235053235057_))))) (declare (not safe)) - (foldr1 __tmp241091 '() _L232474_)))) + (foldr1 __tmp243686 '() _L234969_)))) (declare (not safe)) - (andmap1 __tmp241092 __tmp241090)) - (let ((__tmp241089 - (lambda (_g232564232566_) + (andmap1 __tmp243687 __tmp243685)) + (let ((__tmp243684 + (lambda (_g235059235061_) (let () (declare (not safe)) - (gx#free-identifier=? _g232564232566_ _L232482_)))) - (__tmp241087 - (let ((__tmp241088 - (lambda (_g232568232571_ _g232569232573_) + (gx#free-identifier=? _g235059235061_ _L234977_)))) + (__tmp243682 + (let ((__tmp243683 + (lambda (_g235063235066_ _g235064235068_) (let () (declare (not safe)) - (cons _g232568232571_ _g232569232573_))))) + (cons _g235063235066_ _g235064235068_))))) (declare (not safe)) - (foldr1 __tmp241088 '() _L232476_)))) + (foldr1 __tmp243683 '() _L234971_)))) (declare (not safe)) - (andmap1 __tmp241089 __tmp241087))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont239368239369_ - _L232473_ - _L232474_ - _L232475_ - _L232476_ - _L232477_ - _L232478_ - _L232479_ - _L232480_ - _L232481_ - _L232482_) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_))))))) + (andmap1 __tmp243684 __tmp243682))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont241963241964_ + _L234968_ + _L234969_ + _L234970_ + _L234971_ + _L234972_ + _L234973_ + _L234974_ + _L234975_ + _L234976_ + _L234977_) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_))))))) (let () (declare (not safe)) - (_loop232075232338_ - _target232072232309_ + (_loop234570234833_ + _target234567234804_ '() '() '() '()))))) - (___match239547239548_ - (lambda (_e232032232197_ - _hd232031232200_ - _tl232030232202_ - _e232035232205_ - _hd232034232208_ - _tl232033232210_) + (___match242142242143_ + (lambda (_e234527234692_ + _hd234526234695_ + _tl234525234697_ + _e234530234700_ + _hd234529234703_ + _tl234528234705_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232034232208_)) - (let ((_e232038232213_ + (gx#stx-pair? _hd234529234703_)) + (let ((_e234533234708_ (let () (declare (not safe)) - (gx#stx-e _hd232034232208_)))) - (let ((_tl232036232218_ + (gx#stx-e _hd234529234703_)))) + (let ((_tl234531234713_ (let () (declare (not safe)) - (##cdr _e232038232213_))) - (_hd232037232216_ + (##cdr _e234533234708_))) + (_hd234532234711_ (let () (declare (not safe)) - (##car _e232038232213_)))) + (##car _e234533234708_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232033232210_)) - (let ((_e232041232221_ + (gx#stx-pair? _tl234528234705_)) + (let ((_e234536234716_ (let () (declare (not safe)) - (gx#stx-e _tl232033232210_)))) - (let ((_tl232039232226_ + (gx#stx-e _tl234528234705_)))) + (let ((_tl234534234721_ (let () (declare (not safe)) - (##cdr _e232041232221_))) - (_hd232040232224_ + (##cdr _e234536234716_))) + (_hd234535234719_ (let () (declare (not safe)) - (##car _e232041232221_)))) + (##car _e234536234716_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232040232224_)) - (let ((_e232044232229_ + (gx#stx-pair? _hd234535234719_)) + (let ((_e234539234724_ (let () (declare (not safe)) (gx#stx-e - _hd232040232224_)))) - (let ((_tl232042232234_ + _hd234535234719_)))) + (let ((_tl234537234729_ (let () (declare (not safe)) - (##cdr _e232044232229_))) - (_hd232043232232_ + (##cdr _e234539234724_))) + (_hd234538234727_ (let () (declare (not safe)) - (##car _e232044232229_)))) + (##car _e234539234724_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd232043232232_)) + _hd234538234727_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd232043232232_)) + _hd234538234727_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232042232234_)) - (let ((_e232047232237_ + _tl234537234729_)) + (let ((_e234542234732_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl232042232234_)))) - (let ((_tl232045232242_ + (gx#stx-e _tl234537234729_)))) + (let ((_tl234540234737_ (let () (declare (not safe)) - (##cdr _e232047232237_))) - (_hd232046232240_ + (##cdr _e234542234732_))) + (_hd234541234735_ (let () (declare (not safe)) - (##car _e232047232237_)))) + (##car _e234542234732_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232046232240_)) - (let ((_e232050232245_ + (gx#stx-pair? _hd234541234735_)) + (let ((_e234545234740_ (let () (declare (not safe)) - (gx#stx-e _hd232046232240_)))) - (let ((_tl232048232250_ + (gx#stx-e _hd234541234735_)))) + (let ((_tl234543234745_ (let () (declare (not safe)) - (##cdr _e232050232245_))) - (_hd232049232248_ + (##cdr _e234545234740_))) + (_hd234544234743_ (let () (declare (not safe)) - (##car _e232050232245_)))) + (##car _e234545234740_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232049232248_)) + (gx#identifier? _hd234544234743_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd232049232248_)) + (gx#stx-eq? '%#ref _hd234544234743_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232048232250_)) - (let ((_e232053232253_ + (gx#stx-pair? _tl234543234745_)) + (let ((_e234548234748_ (let () (declare (not safe)) (gx#stx-e - _tl232048232250_)))) - (let ((_tl232051232258_ + _tl234543234745_)))) + (let ((_tl234546234753_ (let () (declare (not safe)) - (##cdr _e232053232253_))) - (_hd232052232256_ + (##cdr _e234548234748_))) + (_hd234547234751_ (let () (declare (not safe)) - (##car _e232053232253_)))) + (##car _e234548234748_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232051232258_)) + _tl234546234753_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232045232242_)) - (let ((_e232056232261_ + _tl234540234737_)) + (let ((_e234551234756_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl232045232242_)))) - (let ((_tl232054232266_ - (let () (declare (not safe)) (##cdr _e232056232261_))) - (_hd232055232264_ - (let () (declare (not safe)) (##car _e232056232261_)))) + (gx#stx-e _tl234540234737_)))) + (let ((_tl234549234761_ + (let () (declare (not safe)) (##cdr _e234551234756_))) + (_hd234550234759_ + (let () (declare (not safe)) (##car _e234551234756_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232055232264_)) - (let ((_e232059232269_ + (gx#stx-pair? _hd234550234759_)) + (let ((_e234554234764_ (let () (declare (not safe)) - (gx#stx-e _hd232055232264_)))) - (let ((_tl232057232274_ + (gx#stx-e _hd234550234759_)))) + (let ((_tl234552234769_ (let () (declare (not safe)) - (##cdr _e232059232269_))) - (_hd232058232272_ + (##cdr _e234554234764_))) + (_hd234553234767_ (let () (declare (not safe)) - (##car _e232059232269_)))) + (##car _e234554234764_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232058232272_)) + (gx#identifier? _hd234553234767_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd232058232272_)) + (gx#stx-eq? '%#ref _hd234553234767_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232057232274_)) - (let ((_e232062232277_ + (gx#stx-pair? _tl234552234769_)) + (let ((_e234557234772_ (let () (declare (not safe)) - (gx#stx-e _tl232057232274_)))) - (let ((_tl232060232282_ + (gx#stx-e _tl234552234769_)))) + (let ((_tl234555234777_ (let () (declare (not safe)) - (##cdr _e232062232277_))) - (_hd232061232280_ + (##cdr _e234557234772_))) + (_hd234556234775_ (let () (declare (not safe)) - (##car _e232062232277_)))) + (##car _e234557234772_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232060232282_)) + _tl234555234777_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232054232266_)) - (let ((_e232065232285_ + _tl234549234761_)) + (let ((_e234560234780_ (let () (declare (not safe)) (gx#stx-e - _tl232054232266_)))) - (let ((_tl232063232290_ + _tl234549234761_)))) + (let ((_tl234558234785_ (let () (declare (not safe)) - (##cdr _e232065232285_))) - (_hd232064232288_ + (##cdr _e234560234780_))) + (_hd234559234783_ (let () (declare (not safe)) - (##car _e232065232285_)))) + (##car _e234560234780_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232064232288_)) - (let ((_e232068232293_ + _hd234559234783_)) + (let ((_e234563234788_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd232064232288_)))) - (let ((_tl232066232298_ + (gx#stx-e _hd234559234783_)))) + (let ((_tl234561234793_ (let () (declare (not safe)) - (##cdr _e232068232293_))) - (_hd232067232296_ + (##cdr _e234563234788_))) + (_hd234562234791_ (let () (declare (not safe)) - (##car _e232068232293_)))) + (##car _e234563234788_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232067232296_)) + (gx#identifier? _hd234562234791_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd232067232296_)) + (gx#stx-eq? '%#ref _hd234562234791_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232066232298_)) - (let ((_e232071232301_ + (gx#stx-pair? _tl234561234793_)) + (let ((_e234566234796_ (let () (declare (not safe)) - (gx#stx-e _tl232066232298_)))) - (let ((_tl232069232306_ + (gx#stx-e _tl234561234793_)))) + (let ((_tl234564234801_ (let () (declare (not safe)) - (##cdr _e232071232301_))) - (_hd232070232304_ + (##cdr _e234566234796_))) + (_hd234565234799_ (let () (declare (not safe)) - (##car _e232071232301_)))) + (##car _e234566234796_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232069232306_)) + (gx#stx-null? _tl234564234801_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl232063232290_)) + _tl234558234785_)) (if (fx>= (let () (declare (not safe)) (gx#stx-length - _tl232063232290_)) + _tl234558234785_)) '1) - (let ((___splice239370239371_ + (let ((___splice241965241966_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl232063232290_ + _tl234558234785_ '1)))) - (let ((_tl232074232311_ + (let ((_tl234569234806_ (let () (declare (not safe)) (##vector-ref - ___splice239370239371_ + ___splice241965241966_ '1))) - (_target232072232309_ + (_target234567234804_ (let () (declare (not safe)) (##vector-ref - ___splice239370239371_ + ___splice241965241966_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232074232311_)) - (let ((_e232089232314_ + _tl234569234806_)) + (let ((_e234584234809_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl232074232311_)))) - (let ((_tl232087232319_ + (gx#stx-e _tl234569234806_)))) + (let ((_tl234582234814_ (let () (declare (not safe)) - (##cdr _e232089232314_))) - (_hd232088232317_ + (##cdr _e234584234809_))) + (_hd234583234812_ (let () (declare (not safe)) - (##car _e232089232314_)))) + (##car _e234584234809_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232088232317_)) - (let ((_e232092232322_ + (gx#stx-pair? _hd234583234812_)) + (let ((_e234587234817_ (let () (declare (not safe)) - (gx#stx-e _hd232088232317_)))) - (let ((_tl232090232327_ + (gx#stx-e _hd234583234812_)))) + (let ((_tl234585234822_ (let () (declare (not safe)) - (##cdr _e232092232322_))) - (_hd232091232325_ + (##cdr _e234587234817_))) + (_hd234586234820_ (let () (declare (not safe)) - (##car _e232092232322_)))) + (##car _e234587234817_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232091232325_)) + (gx#identifier? _hd234586234820_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd232091232325_)) + (gx#stx-eq? '%#ref _hd234586234820_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232090232327_)) - (let ((_e232095232330_ + (gx#stx-pair? _tl234585234822_)) + (let ((_e234590234825_ (let () (declare (not safe)) (gx#stx-e - _tl232090232327_)))) - (let ((_tl232093232335_ + _tl234585234822_)))) + (let ((_tl234588234830_ (let () (declare (not safe)) - (##cdr _e232095232330_))) - (_hd232094232333_ + (##cdr _e234590234825_))) + (_hd234589234828_ (let () (declare (not safe)) - (##car _e232095232330_)))) + (##car _e234590234825_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232093232335_)) + _tl234588234830_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl232087232319_)) - (___match239675239676_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_ - _e232035232205_ - _hd232034232208_ - _tl232033232210_ - _e232038232213_ - _hd232037232216_ - _tl232036232218_ - _e232041232221_ - _hd232040232224_ - _tl232039232226_ - _e232044232229_ - _hd232043232232_ - _tl232042232234_ - _e232047232237_ - _hd232046232240_ - _tl232045232242_ - _e232050232245_ - _hd232049232248_ - _tl232048232250_ - _e232053232253_ - _hd232052232256_ - _tl232051232258_ - _e232056232261_ - _hd232055232264_ - _tl232054232266_ - _e232059232269_ - _hd232058232272_ - _tl232057232274_ - _e232062232277_ - _hd232061232280_ - _tl232060232282_ - _e232065232285_ - _hd232064232288_ - _tl232063232290_ - _e232068232293_ - _hd232067232296_ - _tl232066232298_ - _e232071232301_ - _hd232070232304_ - _tl232069232306_ - ___splice239370239371_ - _target232072232309_ - _tl232074232311_ - _e232089232314_ - _hd232088232317_ - _tl232087232319_ - _e232092232322_ - _hd232091232325_ - _tl232090232327_ - _e232095232330_ - _hd232094232333_ - _tl232093232335_) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239681239682_ - _e232032232197_ - _hd232031232200_ - _tl232030232202_)))) - (___match239535239536_ - (lambda (_e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_ - _e231971232604_ - _hd231970232607_ - _tl231969232609_ - _e231974232612_ - _hd231973232615_ - _tl231972232617_ - _e231977232620_ - _hd231976232623_ - _tl231975232625_ - _e231980232628_ - _hd231979232631_ - _tl231978232633_ - _e231983232636_ - _hd231982232639_ - _tl231981232641_ - _e231986232644_ - _hd231985232647_ - _tl231984232649_ - _e231989232652_ - _hd231988232655_ - _tl231987232657_ - _e231992232660_ - _hd231991232663_ - _tl231990232665_ - _e231995232668_ - _hd231994232671_ - _tl231993232673_ - _e231998232676_ - _hd231997232679_ - _tl231996232681_ - _e232001232684_ - _hd232000232687_ - _tl231999232689_ - _e232004232692_ - _hd232003232695_ - _tl232002232697_ - _e232007232700_ - _hd232006232703_ - _tl232005232705_ - _e232010232708_ - _hd232009232711_ - _tl232008232713_ - _e232013232716_ - _hd232012232719_ - _tl232011232721_ - _e232016232724_ - _hd232015232727_ - _tl232014232729_ - _e232019232732_ - _hd232018232735_ - _tl232017232737_) - (let ((_L232740_ _hd232018232735_) - (_L232741_ _hd232009232711_) - (_L232742_ _hd232000232687_) - (_L232743_ _hd231991232663_) - (_L232744_ _hd231982232639_) - (_L232745_ _hd231967232599_)) + _tl234582234814_)) + (___match242270242271_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_ + _e234530234700_ + _hd234529234703_ + _tl234528234705_ + _e234533234708_ + _hd234532234711_ + _tl234531234713_ + _e234536234716_ + _hd234535234719_ + _tl234534234721_ + _e234539234724_ + _hd234538234727_ + _tl234537234729_ + _e234542234732_ + _hd234541234735_ + _tl234540234737_ + _e234545234740_ + _hd234544234743_ + _tl234543234745_ + _e234548234748_ + _hd234547234751_ + _tl234546234753_ + _e234551234756_ + _hd234550234759_ + _tl234549234761_ + _e234554234764_ + _hd234553234767_ + _tl234552234769_ + _e234557234772_ + _hd234556234775_ + _tl234555234777_ + _e234560234780_ + _hd234559234783_ + _tl234558234785_ + _e234563234788_ + _hd234562234791_ + _tl234561234793_ + _e234566234796_ + _hd234565234799_ + _tl234564234801_ + ___splice241965241966_ + _target234567234804_ + _tl234569234806_ + _e234584234809_ + _hd234583234812_ + _tl234582234814_ + _e234587234817_ + _hd234586234820_ + _tl234585234822_ + _e234590234825_ + _hd234589234828_ + _tl234588234830_) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242276242277_ + _e234527234692_ + _hd234526234695_ + _tl234525234697_)))) + (___match242130242131_ + (lambda (_e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_ + _e234466235099_ + _hd234465235102_ + _tl234464235104_ + _e234469235107_ + _hd234468235110_ + _tl234467235112_ + _e234472235115_ + _hd234471235118_ + _tl234470235120_ + _e234475235123_ + _hd234474235126_ + _tl234473235128_ + _e234478235131_ + _hd234477235134_ + _tl234476235136_ + _e234481235139_ + _hd234480235142_ + _tl234479235144_ + _e234484235147_ + _hd234483235150_ + _tl234482235152_ + _e234487235155_ + _hd234486235158_ + _tl234485235160_ + _e234490235163_ + _hd234489235166_ + _tl234488235168_ + _e234493235171_ + _hd234492235174_ + _tl234491235176_ + _e234496235179_ + _hd234495235182_ + _tl234494235184_ + _e234499235187_ + _hd234498235190_ + _tl234497235192_ + _e234502235195_ + _hd234501235198_ + _tl234500235200_ + _e234505235203_ + _hd234504235206_ + _tl234503235208_ + _e234508235211_ + _hd234507235214_ + _tl234506235216_ + _e234511235219_ + _hd234510235222_ + _tl234509235224_ + _e234514235227_ + _hd234513235230_ + _tl234512235232_) + (let ((_L235235_ _hd234513235230_) + (_L235236_ _hd234504235206_) + (_L235237_ _hd234495235182_) + (_L235238_ _hd234486235158_) + (_L235239_ _hd234477235134_) + (_L235240_ _hd234462235094_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L232745_)) + (gx#identifier? _L235240_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L232744_ 'apply)) + (gxc#runtime-identifier=? _L235239_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L232743_ + _L235238_ 'keyword-dispatch)) (let () (declare (not safe)) - (gx#free-identifier=? _L232745_ _L232740_))) - (___kont239366239367_ - _L232740_ - _L232741_ - _L232742_ - _L232743_ - _L232744_ - _L232745_) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_))))) - (___match239389239390_ - (lambda (_e231965232588_ _hd231964232591_ _tl231963232593_) + (gx#free-identifier=? _L235240_ _L235235_))) + (___kont241961241962_ + _L235235_ + _L235236_ + _L235237_ + _L235238_ + _L235239_ + _L235240_) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_))))) + (___match241984241985_ + (lambda (_e234460235083_ _hd234459235086_ _tl234458235088_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231963232593_)) - (let ((_e231968232596_ + (gx#stx-pair? _tl234458235088_)) + (let ((_e234463235091_ (let () (declare (not safe)) - (gx#stx-e _tl231963232593_)))) - (let ((_tl231966232601_ + (gx#stx-e _tl234458235088_)))) + (let ((_tl234461235096_ (let () (declare (not safe)) - (##cdr _e231968232596_))) - (_hd231967232599_ + (##cdr _e234463235091_))) + (_hd234462235094_ (let () (declare (not safe)) - (##car _e231968232596_)))) + (##car _e234463235091_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231966232601_)) - (let ((_e231971232604_ + (gx#stx-pair? _tl234461235096_)) + (let ((_e234466235099_ (let () (declare (not safe)) - (gx#stx-e _tl231966232601_)))) - (let ((_tl231969232609_ + (gx#stx-e _tl234461235096_)))) + (let ((_tl234464235104_ (let () (declare (not safe)) - (##cdr _e231971232604_))) - (_hd231970232607_ + (##cdr _e234466235099_))) + (_hd234465235102_ (let () (declare (not safe)) - (##car _e231971232604_)))) + (##car _e234466235099_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231970232607_)) - (let ((_e231974232612_ + (gx#stx-pair? _hd234465235102_)) + (let ((_e234469235107_ (let () (declare (not safe)) (gx#stx-e - _hd231970232607_)))) - (let ((_tl231972232617_ + _hd234465235102_)))) + (let ((_tl234467235112_ (let () (declare (not safe)) - (##cdr _e231974232612_))) - (_hd231973232615_ + (##cdr _e234469235107_))) + (_hd234468235110_ (let () (declare (not safe)) - (##car _e231974232612_)))) + (##car _e234469235107_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd231973232615_)) + _hd234468235110_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd231973232615_)) + _hd234468235110_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231972232617_)) - (let ((_e231977232620_ + _tl234467235112_)) + (let ((_e234472235115_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl231972232617_)))) - (let ((_tl231975232625_ + (gx#stx-e _tl234467235112_)))) + (let ((_tl234470235120_ (let () (declare (not safe)) - (##cdr _e231977232620_))) - (_hd231976232623_ + (##cdr _e234472235115_))) + (_hd234471235118_ (let () (declare (not safe)) - (##car _e231977232620_)))) + (##car _e234472235115_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231976232623_)) - (let ((_e231980232628_ + (gx#stx-pair? _hd234471235118_)) + (let ((_e234475235123_ (let () (declare (not safe)) - (gx#stx-e _hd231976232623_)))) - (let ((_tl231978232633_ + (gx#stx-e _hd234471235118_)))) + (let ((_tl234473235128_ (let () (declare (not safe)) - (##cdr _e231980232628_))) - (_hd231979232631_ + (##cdr _e234475235123_))) + (_hd234474235126_ (let () (declare (not safe)) - (##car _e231980232628_)))) + (##car _e234475235123_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd231979232631_)) + (gx#identifier? _hd234474235126_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd231979232631_)) + (gx#stx-eq? '%#ref _hd234474235126_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231978232633_)) - (let ((_e231983232636_ + (gx#stx-pair? _tl234473235128_)) + (let ((_e234478235131_ (let () (declare (not safe)) (gx#stx-e - _tl231978232633_)))) - (let ((_tl231981232641_ + _tl234473235128_)))) + (let ((_tl234476235136_ (let () (declare (not safe)) - (##cdr _e231983232636_))) - (_hd231982232639_ + (##cdr _e234478235131_))) + (_hd234477235134_ (let () (declare (not safe)) - (##car _e231983232636_)))) + (##car _e234478235131_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231981232641_)) + _tl234476235136_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231975232625_)) - (let ((_e231986232644_ + _tl234470235120_)) + (let ((_e234481235139_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl231975232625_)))) - (let ((_tl231984232649_ - (let () (declare (not safe)) (##cdr _e231986232644_))) - (_hd231985232647_ - (let () (declare (not safe)) (##car _e231986232644_)))) + (gx#stx-e _tl234470235120_)))) + (let ((_tl234479235144_ + (let () (declare (not safe)) (##cdr _e234481235139_))) + (_hd234480235142_ + (let () (declare (not safe)) (##car _e234481235139_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231985232647_)) - (let ((_e231989232652_ + (gx#stx-pair? _hd234480235142_)) + (let ((_e234484235147_ (let () (declare (not safe)) - (gx#stx-e _hd231985232647_)))) - (let ((_tl231987232657_ + (gx#stx-e _hd234480235142_)))) + (let ((_tl234482235152_ (let () (declare (not safe)) - (##cdr _e231989232652_))) - (_hd231988232655_ + (##cdr _e234484235147_))) + (_hd234483235150_ (let () (declare (not safe)) - (##car _e231989232652_)))) + (##car _e234484235147_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd231988232655_)) + (gx#identifier? _hd234483235150_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd231988232655_)) + (gx#stx-eq? '%#ref _hd234483235150_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231987232657_)) - (let ((_e231992232660_ + (gx#stx-pair? _tl234482235152_)) + (let ((_e234487235155_ (let () (declare (not safe)) - (gx#stx-e _tl231987232657_)))) - (let ((_tl231990232665_ + (gx#stx-e _tl234482235152_)))) + (let ((_tl234485235160_ (let () (declare (not safe)) - (##cdr _e231992232660_))) - (_hd231991232663_ + (##cdr _e234487235155_))) + (_hd234486235158_ (let () (declare (not safe)) - (##car _e231992232660_)))) + (##car _e234487235155_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231990232665_)) + _tl234485235160_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231984232649_)) - (let ((_e231995232668_ + _tl234479235144_)) + (let ((_e234490235163_ (let () (declare (not safe)) (gx#stx-e - _tl231984232649_)))) - (let ((_tl231993232673_ + _tl234479235144_)))) + (let ((_tl234488235168_ (let () (declare (not safe)) - (##cdr _e231995232668_))) - (_hd231994232671_ + (##cdr _e234490235163_))) + (_hd234489235166_ (let () (declare (not safe)) - (##car _e231995232668_)))) + (##car _e234490235163_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231994232671_)) - (let ((_e231998232676_ + _hd234489235166_)) + (let ((_e234493235171_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd231994232671_)))) - (let ((_tl231996232681_ + (gx#stx-e _hd234489235166_)))) + (let ((_tl234491235176_ (let () (declare (not safe)) - (##cdr _e231998232676_))) - (_hd231997232679_ + (##cdr _e234493235171_))) + (_hd234492235174_ (let () (declare (not safe)) - (##car _e231998232676_)))) + (##car _e234493235171_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd231997232679_)) + (gx#identifier? _hd234492235174_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd231997232679_)) + (gx#stx-eq? '%#quote _hd234492235174_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231996232681_)) - (let ((_e232001232684_ + (gx#stx-pair? _tl234491235176_)) + (let ((_e234496235179_ (let () (declare (not safe)) - (gx#stx-e _tl231996232681_)))) - (let ((_tl231999232689_ + (gx#stx-e _tl234491235176_)))) + (let ((_tl234494235184_ (let () (declare (not safe)) - (##cdr _e232001232684_))) - (_hd232000232687_ + (##cdr _e234496235179_))) + (_hd234495235182_ (let () (declare (not safe)) - (##car _e232001232684_)))) + (##car _e234496235179_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231999232689_)) + (gx#stx-null? _tl234494235184_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231993232673_)) - (let ((_e232004232692_ + _tl234488235168_)) + (let ((_e234499235187_ (let () (declare (not safe)) (gx#stx-e - _tl231993232673_)))) - (let ((_tl232002232697_ + _tl234488235168_)))) + (let ((_tl234497235192_ (let () (declare (not safe)) - (##cdr _e232004232692_))) - (_hd232003232695_ + (##cdr _e234499235187_))) + (_hd234498235190_ (let () (declare (not safe)) - (##car _e232004232692_)))) + (##car _e234499235187_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232003232695_)) - (let ((_e232007232700_ + _hd234498235190_)) + (let ((_e234502235195_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd232003232695_)))) - (let ((_tl232005232705_ - (let () (declare (not safe)) (##cdr _e232007232700_))) - (_hd232006232703_ - (let () (declare (not safe)) (##car _e232007232700_)))) + (gx#stx-e _hd234498235190_)))) + (let ((_tl234500235200_ + (let () (declare (not safe)) (##cdr _e234502235195_))) + (_hd234501235198_ + (let () (declare (not safe)) (##car _e234502235195_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232006232703_)) + (gx#identifier? _hd234501235198_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd232006232703_)) + (gx#stx-eq? '%#ref _hd234501235198_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232005232705_)) - (let ((_e232010232708_ + (gx#stx-pair? _tl234500235200_)) + (let ((_e234505235203_ (let () (declare (not safe)) - (gx#stx-e _tl232005232705_)))) - (let ((_tl232008232713_ + (gx#stx-e _tl234500235200_)))) + (let ((_tl234503235208_ (let () (declare (not safe)) - (##cdr _e232010232708_))) - (_hd232009232711_ + (##cdr _e234505235203_))) + (_hd234504235206_ (let () (declare (not safe)) - (##car _e232010232708_)))) + (##car _e234505235203_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232008232713_)) + (gx#stx-null? _tl234503235208_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232002232697_)) - (let ((_e232013232716_ + (gx#stx-pair? _tl234497235192_)) + (let ((_e234508235211_ (let () (declare (not safe)) (gx#stx-e - _tl232002232697_)))) - (let ((_tl232011232721_ + _tl234497235192_)))) + (let ((_tl234506235216_ (let () (declare (not safe)) - (##cdr _e232013232716_))) - (_hd232012232719_ + (##cdr _e234508235211_))) + (_hd234507235214_ (let () (declare (not safe)) - (##car _e232013232716_)))) + (##car _e234508235211_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232012232719_)) - (let ((_e232016232724_ + _hd234507235214_)) + (let ((_e234511235219_ (let () (declare (not safe)) (gx#stx-e - _hd232012232719_)))) - (let ((_tl232014232729_ + _hd234507235214_)))) + (let ((_tl234509235224_ (let () (declare (not safe)) - (##cdr _e232016232724_))) - (_hd232015232727_ + (##cdr _e234511235219_))) + (_hd234510235222_ (let () (declare (not safe)) - (##car _e232016232724_)))) + (##car _e234511235219_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd232015232727_)) + _hd234510235222_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd232015232727_)) + (gx#stx-eq? '%#ref _hd234510235222_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232014232729_)) - (let ((_e232019232732_ + (gx#stx-pair? _tl234509235224_)) + (let ((_e234514235227_ (let () (declare (not safe)) - (gx#stx-e _tl232014232729_)))) - (let ((_tl232017232737_ + (gx#stx-e _tl234509235224_)))) + (let ((_tl234512235232_ (let () (declare (not safe)) - (##cdr _e232019232732_))) - (_hd232018232735_ + (##cdr _e234514235227_))) + (_hd234513235230_ (let () (declare (not safe)) - (##car _e232019232732_)))) + (##car _e234514235227_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232017232737_)) + (gx#stx-null? _tl234512235232_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl232011232721_)) + (gx#stx-null? _tl234506235216_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl231969232609_)) - (___match239535239536_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_ - _e231971232604_ - _hd231970232607_ - _tl231969232609_ - _e231974232612_ - _hd231973232615_ - _tl231972232617_ - _e231977232620_ - _hd231976232623_ - _tl231975232625_ - _e231980232628_ - _hd231979232631_ - _tl231978232633_ - _e231983232636_ - _hd231982232639_ - _tl231981232641_ - _e231986232644_ - _hd231985232647_ - _tl231984232649_ - _e231989232652_ - _hd231988232655_ - _tl231987232657_ - _e231992232660_ - _hd231991232663_ - _tl231990232665_ - _e231995232668_ - _hd231994232671_ - _tl231993232673_ - _e231998232676_ - _hd231997232679_ - _tl231996232681_ - _e232001232684_ - _hd232000232687_ - _tl231999232689_ - _e232004232692_ - _hd232003232695_ - _tl232002232697_ - _e232007232700_ - _hd232006232703_ - _tl232005232705_ - _e232010232708_ - _hd232009232711_ - _tl232008232713_ - _e232013232716_ - _hd232012232719_ - _tl232011232721_ - _e232016232724_ - _hd232015232727_ - _tl232014232729_ - _e232019232732_ - _hd232018232735_ - _tl232017232737_) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239547239548_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_ - _e231968232596_ - _hd231967232599_ - _tl231966232601_)))) - (___match239681239682_ - _e231965232588_ - _hd231964232591_ - _tl231963232593_))))) + (gx#stx-null? _tl234464235104_)) + (___match242130242131_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_ + _e234466235099_ + _hd234465235102_ + _tl234464235104_ + _e234469235107_ + _hd234468235110_ + _tl234467235112_ + _e234472235115_ + _hd234471235118_ + _tl234470235120_ + _e234475235123_ + _hd234474235126_ + _tl234473235128_ + _e234478235131_ + _hd234477235134_ + _tl234476235136_ + _e234481235139_ + _hd234480235142_ + _tl234479235144_ + _e234484235147_ + _hd234483235150_ + _tl234482235152_ + _e234487235155_ + _hd234486235158_ + _tl234485235160_ + _e234490235163_ + _hd234489235166_ + _tl234488235168_ + _e234493235171_ + _hd234492235174_ + _tl234491235176_ + _e234496235179_ + _hd234495235182_ + _tl234494235184_ + _e234499235187_ + _hd234498235190_ + _tl234497235192_ + _e234502235195_ + _hd234501235198_ + _tl234500235200_ + _e234505235203_ + _hd234504235206_ + _tl234503235208_ + _e234508235211_ + _hd234507235214_ + _tl234506235216_ + _e234511235219_ + _hd234510235222_ + _tl234509235224_ + _e234514235227_ + _hd234513235230_ + _tl234512235232_) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242142242143_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_ + _e234463235091_ + _hd234462235094_ + _tl234461235096_)))) + (___match242276242277_ + _e234460235083_ + _hd234459235086_ + _tl234458235088_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx239362239363_)) - (let ((_e231956232805_ + (gx#stx-pair? ___stx241957241958_)) + (let ((_e234451235300_ (let () (declare (not safe)) - (gx#stx-e ___stx239362239363_)))) - (let ((_tl231954232810_ + (gx#stx-e ___stx241957241958_)))) + (let ((_tl234449235305_ (let () (declare (not safe)) - (##cdr _e231956232805_))) - (_hd231955232808_ + (##cdr _e234451235300_))) + (_hd234450235303_ (let () (declare (not safe)) - (##car _e231956232805_)))) + (##car _e234451235300_)))) (if (gxc#current-compile-type-closure) - (let ((_L232813_ _tl231954232810_)) - (___kont239364239365_ _L232813_)) - (___match239389239390_ - _e231956232805_ - _hd231955232808_ - _tl231954232810_)))) - (let () (declare (not safe)) (_g231951232147_)))))))) + (let ((_L235308_ _tl234449235305_)) + (___kont241959241960_ _L235308_)) + (___match241984241985_ + _e234451235300_ + _hd234450235303_ + _tl234449235305_)))) + (let () (declare (not safe)) (_g234446234642_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_stx231900_) - (letrec ((_clause-e231902_ - (lambda (_form231943_) - (let ((__obj241035 + (lambda (_stx234395_) + (letrec ((_clause-e234397_ + (lambda (_form234438_) + (let ((__obj243630 (let () (declare (not safe)) (##structure @@ -5650,4954 +5650,4954 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj241035 + __obj243630 'case-lambda-clause (let () (declare (not safe)) - (gxc#lambda-form-arity _form231943_)) - (if (let ((__tmp241102 + (gxc#lambda-form-arity _form234438_)) + (if (let ((__tmp243697 (gxc#current-compile-type-closure))) (declare (not safe)) - (not __tmp241102)) + (not __tmp243697)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _form231943_)) + (gxc#dispatch-lambda-form? _form234438_)) (let () (declare (not safe)) (gxc#dispatch-lambda-form-delegate - _form231943_)) + _form234438_)) '#f) '#f)) - __obj241035)))) - (let* ((_g231904231914_ - (lambda (_g231905231911_) + __obj243630)))) + (let* ((_g234399234409_ + (lambda (_g234400234406_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g231905231911_)))) - (_g231903231940_ - (lambda (_g231905231917_) + _g234400234406_)))) + (_g234398234435_ + (lambda (_g234400234412_) (if (let () (declare (not safe)) - (gx#stx-pair? _g231905231917_)) - (let ((_e231909231919_ + (gx#stx-pair? _g234400234412_)) + (let ((_e234404234414_ (let () (declare (not safe)) - (gx#stx-e _g231905231917_)))) - (let ((_hd231908231922_ + (gx#stx-e _g234400234412_)))) + (let ((_hd234403234417_ (let () (declare (not safe)) - (##car _e231909231919_))) - (_tl231907231924_ + (##car _e234404234414_))) + (_tl234402234419_ (let () (declare (not safe)) - (##cdr _e231909231919_)))) - ((lambda (_L231927_) - (let ((_clauses231938_ - (map _clause-e231902_ _L231927_))) + (##cdr _e234404234414_)))) + ((lambda (_L234422_) + (let ((_clauses234433_ + (map _clause-e234397_ _L234422_))) (declare (not safe)) (##structure gxc#!case-lambda::t 'case-lambda - _clauses231938_))) - _tl231907231924_))) + _clauses234433_))) + _tl234402234419_))) (let () (declare (not safe)) - (_g231904231914_ _g231905231917_)))))) + (_g234399234409_ _g234400234412_)))))) (declare (not safe)) - (_g231903231940_ _stx231900_))))) + (_g234398234435_ _stx234395_))))) (define gxc#basic-expression-type-let-values% - (lambda (_stx231832_) - (let* ((_g231834231851_ - (lambda (_g231835231848_) + (lambda (_stx234327_) + (let* ((_g234329234346_ + (lambda (_g234330234343_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g231835231848_)))) - (_g231833231897_ - (lambda (_g231835231854_) + _g234330234343_)))) + (_g234328234392_ + (lambda (_g234330234349_) (if (let () (declare (not safe)) - (gx#stx-pair? _g231835231854_)) - (let ((_e231840231856_ + (gx#stx-pair? _g234330234349_)) + (let ((_e234335234351_ (let () (declare (not safe)) - (gx#stx-e _g231835231854_)))) - (let ((_hd231839231859_ + (gx#stx-e _g234330234349_)))) + (let ((_hd234334234354_ (let () (declare (not safe)) - (##car _e231840231856_))) - (_tl231838231861_ + (##car _e234335234351_))) + (_tl234333234356_ (let () (declare (not safe)) - (##cdr _e231840231856_)))) + (##cdr _e234335234351_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231838231861_)) - (let ((_e231843231864_ + (gx#stx-pair? _tl234333234356_)) + (let ((_e234338234359_ (let () (declare (not safe)) - (gx#stx-e _tl231838231861_)))) - (let ((_hd231842231867_ + (gx#stx-e _tl234333234356_)))) + (let ((_hd234337234362_ (let () (declare (not safe)) - (##car _e231843231864_))) - (_tl231841231869_ + (##car _e234338234359_))) + (_tl234336234364_ (let () (declare (not safe)) - (##cdr _e231843231864_)))) + (##cdr _e234338234359_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231841231869_)) - (let ((_e231846231872_ + (gx#stx-pair? _tl234336234364_)) + (let ((_e234341234367_ (let () (declare (not safe)) - (gx#stx-e _tl231841231869_)))) - (let ((_hd231845231875_ + (gx#stx-e _tl234336234364_)))) + (let ((_hd234340234370_ (let () (declare (not safe)) - (##car _e231846231872_))) - (_tl231844231877_ + (##car _e234341234367_))) + (_tl234339234372_ (let () (declare (not safe)) - (##cdr _e231846231872_)))) + (##cdr _e234341234367_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231844231877_)) - ((lambda (_L231880_ _L231881_) - (let ((__tmp241103 + _tl234339234372_)) + ((lambda (_L234375_ _L234376_) + (let ((__tmp243698 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _L231880_))))) + _L234375_))))) (declare (not safe)) (call-with-parameters - __tmp241103 + __tmp243698 gxc#current-compile-type-closure '#t))) - _hd231845231875_ - _hd231842231867_) + _hd234340234370_ + _hd234337234362_) (let () (declare (not safe)) - (_g231834231851_ - _g231835231854_))))) + (_g234329234346_ + _g234330234349_))))) (let () (declare (not safe)) - (_g231834231851_ _g231835231854_))))) + (_g234329234346_ _g234330234349_))))) (let () (declare (not safe)) - (_g231834231851_ _g231835231854_))))) + (_g234329234346_ _g234330234349_))))) (let () (declare (not safe)) - (_g231834231851_ _g231835231854_)))))) + (_g234329234346_ _g234330234349_)))))) (declare (not safe)) - (_g231833231897_ _stx231832_)))) + (_g234328234392_ _stx234327_)))) (define gxc#basic-expression-type-builtin (let () (declare (not safe)) (make-table 'test: eq?))) (define gxc#basic-expression-type-call% - (lambda (_stx231737_) - (let* ((___stx239690239691_ _stx231737_) - (_g231740231760_ + (lambda (_stx234232_) + (let* ((___stx242285242286_ _stx234232_) + (_g234235234255_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx239690239691_))))) - (let ((___kont239692239693_ - (lambda (_L231804_ _L231805_) - (let ((_type-e231822231824_ - (let ((__tmp241104 + ___stx242285242286_))))) + (let ((___kont242287242288_ + (lambda (_L234299_ _L234300_) + (let ((_type-e234317234319_ + (let ((__tmp243699 (let () (declare (not safe)) - (gxc#identifier-symbol _L231805_)))) + (gxc#identifier-symbol _L234300_)))) (declare (not safe)) (table-ref gxc#basic-expression-type-builtin - __tmp241104 + __tmp243699 '#f)))) - (if _type-e231822231824_ - (let ((_type-e231827_ _type-e231822231824_)) - (_type-e231827_ _stx231737_ _L231804_)) + (if _type-e234317234319_ + (let ((_type-e234322_ _type-e234317234319_)) + (_type-e234322_ _stx234232_ _L234299_)) '#f)))) - (___kont239694239695_ (lambda () '#f))) + (___kont242289242290_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx239690239691_)) - (let ((_e231746231772_ + (gx#stx-pair? ___stx242285242286_)) + (let ((_e234241234267_ (let () (declare (not safe)) - (gx#stx-e ___stx239690239691_)))) - (let ((_tl231744231777_ - (let () (declare (not safe)) (##cdr _e231746231772_))) - (_hd231745231775_ + (gx#stx-e ___stx242285242286_)))) + (let ((_tl234239234272_ + (let () (declare (not safe)) (##cdr _e234241234267_))) + (_hd234240234270_ (let () (declare (not safe)) - (##car _e231746231772_)))) + (##car _e234241234267_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231744231777_)) - (let ((_e231749231780_ + (gx#stx-pair? _tl234239234272_)) + (let ((_e234244234275_ (let () (declare (not safe)) - (gx#stx-e _tl231744231777_)))) - (let ((_tl231747231785_ + (gx#stx-e _tl234239234272_)))) + (let ((_tl234242234280_ (let () (declare (not safe)) - (##cdr _e231749231780_))) - (_hd231748231783_ + (##cdr _e234244234275_))) + (_hd234243234278_ (let () (declare (not safe)) - (##car _e231749231780_)))) + (##car _e234244234275_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231748231783_)) - (let ((_e231752231788_ + (gx#stx-pair? _hd234243234278_)) + (let ((_e234247234283_ (let () (declare (not safe)) - (gx#stx-e _hd231748231783_)))) - (let ((_tl231750231793_ + (gx#stx-e _hd234243234278_)))) + (let ((_tl234245234288_ (let () (declare (not safe)) - (##cdr _e231752231788_))) - (_hd231751231791_ + (##cdr _e234247234283_))) + (_hd234246234286_ (let () (declare (not safe)) - (##car _e231752231788_)))) + (##car _e234247234283_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd231751231791_)) + (gx#identifier? _hd234246234286_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd231751231791_)) + _hd234246234286_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231750231793_)) - (let ((_e231755231796_ + _tl234245234288_)) + (let ((_e234250234291_ (let () (declare (not safe)) (gx#stx-e - _tl231750231793_)))) - (let ((_tl231753231801_ + _tl234245234288_)))) + (let ((_tl234248234296_ (let () (declare (not safe)) - (##cdr _e231755231796_))) - (_hd231754231799_ + (##cdr _e234250234291_))) + (_hd234249234294_ (let () (declare (not safe)) - (##car _e231755231796_)))) + (##car _e234250234291_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231753231801_)) - (___kont239692239693_ - _tl231747231785_ - _hd231754231799_) - (___kont239694239695_)))) - (___kont239694239695_)) - (___kont239694239695_)) - (___kont239694239695_)))) - (___kont239694239695_)))) - (___kont239694239695_)))) - (___kont239694239695_)))))) + _tl234248234296_)) + (___kont242287242288_ + _tl234242234280_ + _hd234249234294_) + (___kont242289242290_)))) + (___kont242289242290_)) + (___kont242289242290_)) + (___kont242289242290_)))) + (___kont242289242290_)))) + (___kont242289242290_)))) + (___kont242289242290_)))))) (define gxc#basic-expression-type-ref% - (lambda (_stx231686_) - (let* ((_g231688231701_ - (lambda (_g231689231698_) + (lambda (_stx234181_) + (let* ((_g234183234196_ + (lambda (_g234184234193_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g231689231698_)))) - (_g231687231734_ - (lambda (_g231689231704_) + _g234184234193_)))) + (_g234182234229_ + (lambda (_g234184234199_) (if (let () (declare (not safe)) - (gx#stx-pair? _g231689231704_)) - (let ((_e231693231706_ + (gx#stx-pair? _g234184234199_)) + (let ((_e234188234201_ (let () (declare (not safe)) - (gx#stx-e _g231689231704_)))) - (let ((_hd231692231709_ + (gx#stx-e _g234184234199_)))) + (let ((_hd234187234204_ (let () (declare (not safe)) - (##car _e231693231706_))) - (_tl231691231711_ + (##car _e234188234201_))) + (_tl234186234206_ (let () (declare (not safe)) - (##cdr _e231693231706_)))) + (##cdr _e234188234201_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231691231711_)) - (let ((_e231696231714_ + (gx#stx-pair? _tl234186234206_)) + (let ((_e234191234209_ (let () (declare (not safe)) - (gx#stx-e _tl231691231711_)))) - (let ((_hd231695231717_ + (gx#stx-e _tl234186234206_)))) + (let ((_hd234190234212_ (let () (declare (not safe)) - (##car _e231696231714_))) - (_tl231694231719_ + (##car _e234191234209_))) + (_tl234189234214_ (let () (declare (not safe)) - (##cdr _e231696231714_)))) + (##cdr _e234191234209_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231694231719_)) - ((lambda (_L231722_) - (let ((__tmp241105 + (gx#stx-null? _tl234189234214_)) + ((lambda (_L234217_) + (let ((__tmp243700 (let () (declare (not safe)) (gxc#identifier-symbol - _L231722_)))) + _L234217_)))) (declare (not safe)) (gxc#optimizer-lookup-type - __tmp241105))) - _hd231695231717_) + __tmp243700))) + _hd234190234212_) (let () (declare (not safe)) - (_g231688231701_ _g231689231704_))))) + (_g234183234196_ _g234184234199_))))) (let () (declare (not safe)) - (_g231688231701_ _g231689231704_))))) + (_g234183234196_ _g234184234199_))))) (let () (declare (not safe)) - (_g231688231701_ _g231689231704_)))))) + (_g234183234196_ _g234184234199_)))))) (declare (not safe)) - (_g231687231734_ _stx231686_)))) + (_g234182234229_ _stx234181_)))) (define gxc#dispatch-lambda-form? - (lambda (_form230920_) - (let* ((___stx239728239729_ _form230920_) - (_g230925231082_ + (lambda (_form233415_) + (let* ((___stx242323242324_ _form233415_) + (_g233420233577_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx239728239729_))))) - (let ((___kont239730239731_ - (lambda (_L231606_ _L231607_ _L231608_) '#t)) - (___kont239736239737_ - (lambda (_L231394_ - _L231395_ - _L231396_ - _L231397_ - _L231398_ - _L231399_) + ___stx242323242324_))))) + (let ((___kont242325242326_ + (lambda (_L234101_ _L234102_ _L234103_) '#t)) + (___kont242331242332_ + (lambda (_L233889_ + _L233890_ + _L233891_ + _L233892_ + _L233893_ + _L233894_) '#t)) - (___kont239742239743_ - (lambda (_L231190_ _L231191_ _L231192_ _L231193_) '#t)) - (___kont239744239745_ (lambda () '#f))) - (let* ((___match239869239870_ - (lambda (_e231044231094_ - _hd231043231097_ - _tl231042231099_ - _e231047231102_ - _hd231046231105_ - _tl231045231107_ - _e231050231110_ - _hd231049231113_ - _tl231048231115_ - _e231053231118_ - _hd231052231121_ - _tl231051231123_ - _e231056231126_ - _hd231055231129_ - _tl231054231131_ - _e231059231134_ - _hd231058231137_ - _tl231057231139_ - _e231062231142_ - _hd231061231145_ - _tl231060231147_ - _e231065231150_ - _hd231064231153_ - _tl231063231155_ - _e231068231158_ - _hd231067231161_ - _tl231066231163_ - _e231071231166_ - _hd231070231169_ - _tl231069231171_ - _e231074231174_ - _hd231073231177_ - _tl231072231179_ - _e231077231182_ - _hd231076231185_ - _tl231075231187_) - (let ((_L231190_ _hd231076231185_) - (_L231191_ _hd231067231161_) - (_L231192_ _hd231058231137_) - (_L231193_ _hd231043231097_)) + (___kont242337242338_ + (lambda (_L233685_ _L233686_ _L233687_ _L233688_) '#t)) + (___kont242339242340_ (lambda () '#f))) + (let* ((___match242464242465_ + (lambda (_e233539233589_ + _hd233538233592_ + _tl233537233594_ + _e233542233597_ + _hd233541233600_ + _tl233540233602_ + _e233545233605_ + _hd233544233608_ + _tl233543233610_ + _e233548233613_ + _hd233547233616_ + _tl233546233618_ + _e233551233621_ + _hd233550233624_ + _tl233549233626_ + _e233554233629_ + _hd233553233632_ + _tl233552233634_ + _e233557233637_ + _hd233556233640_ + _tl233555233642_ + _e233560233645_ + _hd233559233648_ + _tl233558233650_ + _e233563233653_ + _hd233562233656_ + _tl233561233658_ + _e233566233661_ + _hd233565233664_ + _tl233564233666_ + _e233569233669_ + _hd233568233672_ + _tl233567233674_ + _e233572233677_ + _hd233571233680_ + _tl233570233682_) + (let ((_L233685_ _hd233571233680_) + (_L233686_ _hd233562233656_) + (_L233687_ _hd233553233632_) + (_L233688_ _hd233538233592_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L231193_)) + (gx#identifier? _L233688_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L231192_ 'apply)) + (gxc#runtime-identifier=? _L233687_ 'apply)) (let () (declare (not safe)) - (gx#free-identifier=? _L231193_ _L231190_)) - (let ((__tmp241106 + (gx#free-identifier=? _L233688_ _L233685_)) + (let ((__tmp243701 (let () (declare (not safe)) (gx#free-identifier=? - _L231191_ - _L231193_)))) + _L233686_ + _L233688_)))) (declare (not safe)) - (not __tmp241106))) - (___kont239742239743_ - _L231190_ - _L231191_ - _L231192_ - _L231193_) - (___kont239744239745_))))) - (___match239841239842_ - (lambda (_e231044231094_ - _hd231043231097_ - _tl231042231099_ - _e231047231102_ - _hd231046231105_ - _tl231045231107_ - _e231050231110_ - _hd231049231113_ - _tl231048231115_ - _e231053231118_ - _hd231052231121_ - _tl231051231123_ - _e231056231126_ - _hd231055231129_ - _tl231054231131_ - _e231059231134_ - _hd231058231137_ - _tl231057231139_ - _e231062231142_ - _hd231061231145_ - _tl231060231147_ - _e231065231150_ - _hd231064231153_ - _tl231063231155_ - _e231068231158_ - _hd231067231161_ - _tl231066231163_) + (not __tmp243701))) + (___kont242337242338_ + _L233685_ + _L233686_ + _L233687_ + _L233688_) + (___kont242339242340_))))) + (___match242436242437_ + (lambda (_e233539233589_ + _hd233538233592_ + _tl233537233594_ + _e233542233597_ + _hd233541233600_ + _tl233540233602_ + _e233545233605_ + _hd233544233608_ + _tl233543233610_ + _e233548233613_ + _hd233547233616_ + _tl233546233618_ + _e233551233621_ + _hd233550233624_ + _tl233549233626_ + _e233554233629_ + _hd233553233632_ + _tl233552233634_ + _e233557233637_ + _hd233556233640_ + _tl233555233642_ + _e233560233645_ + _hd233559233648_ + _tl233558233650_ + _e233563233653_ + _hd233562233656_ + _tl233561233658_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231060231147_)) - (let ((_e231071231166_ + (gx#stx-pair? _tl233555233642_)) + (let ((_e233566233661_ (let () (declare (not safe)) - (gx#stx-e _tl231060231147_)))) - (let ((_tl231069231171_ + (gx#stx-e _tl233555233642_)))) + (let ((_tl233564233666_ (let () (declare (not safe)) - (##cdr _e231071231166_))) - (_hd231070231169_ + (##cdr _e233566233661_))) + (_hd233565233664_ (let () (declare (not safe)) - (##car _e231071231166_)))) + (##car _e233566233661_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231070231169_)) - (let ((_e231074231174_ + (gx#stx-pair? _hd233565233664_)) + (let ((_e233569233669_ (let () (declare (not safe)) - (gx#stx-e _hd231070231169_)))) - (let ((_tl231072231179_ + (gx#stx-e _hd233565233664_)))) + (let ((_tl233567233674_ (let () (declare (not safe)) - (##cdr _e231074231174_))) - (_hd231073231177_ + (##cdr _e233569233669_))) + (_hd233568233672_ (let () (declare (not safe)) - (##car _e231074231174_)))) + (##car _e233569233669_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd231073231177_)) + (gx#identifier? _hd233568233672_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd231073231177_)) + _hd233568233672_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231072231179_)) - (let ((_e231077231182_ + _tl233567233674_)) + (let ((_e233572233677_ (let () (declare (not safe)) (gx#stx-e - _tl231072231179_)))) - (let ((_tl231075231187_ + _tl233567233674_)))) + (let ((_tl233570233682_ (let () (declare (not safe)) - (##cdr _e231077231182_))) - (_hd231076231185_ + (##cdr _e233572233677_))) + (_hd233571233680_ (let () (declare (not safe)) - (##car _e231077231182_)))) + (##car _e233572233677_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231075231187_)) + _tl233570233682_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl231069231171_)) + (gx#stx-null? _tl233564233666_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl231045231107_)) - (___match239869239870_ - _e231044231094_ - _hd231043231097_ - _tl231042231099_ - _e231047231102_ - _hd231046231105_ - _tl231045231107_ - _e231050231110_ - _hd231049231113_ - _tl231048231115_ - _e231053231118_ - _hd231052231121_ - _tl231051231123_ - _e231056231126_ - _hd231055231129_ - _tl231054231131_ - _e231059231134_ - _hd231058231137_ - _tl231057231139_ - _e231062231142_ - _hd231061231145_ - _tl231060231147_ - _e231065231150_ - _hd231064231153_ - _tl231063231155_ - _e231068231158_ - _hd231067231161_ - _tl231066231163_ - _e231071231166_ - _hd231070231169_ - _tl231069231171_ - _e231074231174_ - _hd231073231177_ - _tl231072231179_ - _e231077231182_ - _hd231076231185_ - _tl231075231187_) - (___kont239744239745_)) - (___kont239744239745_)) - (___kont239744239745_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont239744239745_)) - (___kont239744239745_)) - (___kont239744239745_)))) - (___kont239744239745_)))) - (___kont239744239745_)))) - (___match239771239772_ - (lambda (_e230980231234_ - _hd230979231237_ - _tl230978231239_ - ___splice239738239739_ - _target230981231242_ - _tl230983231244_) - (letrec ((_loop230984231247_ - (lambda (_hd230982231250_ _arg230988231252_) + (gx#stx-null? _tl233540233602_)) + (___match242464242465_ + _e233539233589_ + _hd233538233592_ + _tl233537233594_ + _e233542233597_ + _hd233541233600_ + _tl233540233602_ + _e233545233605_ + _hd233544233608_ + _tl233543233610_ + _e233548233613_ + _hd233547233616_ + _tl233546233618_ + _e233551233621_ + _hd233550233624_ + _tl233549233626_ + _e233554233629_ + _hd233553233632_ + _tl233552233634_ + _e233557233637_ + _hd233556233640_ + _tl233555233642_ + _e233560233645_ + _hd233559233648_ + _tl233558233650_ + _e233563233653_ + _hd233562233656_ + _tl233561233658_ + _e233566233661_ + _hd233565233664_ + _tl233564233666_ + _e233569233669_ + _hd233568233672_ + _tl233567233674_ + _e233572233677_ + _hd233571233680_ + _tl233570233682_) + (___kont242339242340_)) + (___kont242339242340_)) + (___kont242339242340_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242339242340_)) + (___kont242339242340_)) + (___kont242339242340_)))) + (___kont242339242340_)))) + (___kont242339242340_)))) + (___match242366242367_ + (lambda (_e233475233729_ + _hd233474233732_ + _tl233473233734_ + ___splice242333242334_ + _target233476233737_ + _tl233478233739_) + (letrec ((_loop233479233742_ + (lambda (_hd233477233745_ _arg233483233747_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230982231250_)) - (let ((_e230985231255_ + (gx#stx-pair? _hd233477233745_)) + (let ((_e233480233750_ (let () (declare (not safe)) - (gx#stx-e _hd230982231250_)))) - (let ((_lp-tl230987231260_ + (gx#stx-e _hd233477233745_)))) + (let ((_lp-tl233482233755_ (let () (declare (not safe)) - (##cdr _e230985231255_))) - (_lp-hd230986231258_ + (##cdr _e233480233750_))) + (_lp-hd233481233753_ (let () (declare (not safe)) - (##car _e230985231255_)))) - (let ((__tmp241121 + (##car _e233480233750_)))) + (let ((__tmp243716 (let () (declare (not safe)) - (cons _lp-hd230986231258_ - _arg230988231252_)))) + (cons _lp-hd233481233753_ + _arg233483233747_)))) (declare (not safe)) - (_loop230984231247_ - _lp-tl230987231260_ - __tmp241121)))) - (let ((_arg230989231263_ - (reverse _arg230988231252_))) + (_loop233479233742_ + _lp-tl233482233755_ + __tmp243716)))) + (let ((_arg233484233758_ + (reverse _arg233483233747_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230978231239_)) - (let ((_e230992231266_ + (gx#stx-pair? _tl233473233734_)) + (let ((_e233487233761_ (let () (declare (not safe)) (gx#stx-e - _tl230978231239_)))) - (let ((_tl230990231271_ + _tl233473233734_)))) + (let ((_tl233485233766_ (let () (declare (not safe)) - (##cdr _e230992231266_))) - (_hd230991231269_ + (##cdr _e233487233761_))) + (_hd233486233764_ (let () (declare (not safe)) - (##car _e230992231266_)))) + (##car _e233487233761_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230991231269_)) - (let ((_e230995231274_ + _hd233486233764_)) + (let ((_e233490233769_ (let () (declare (not safe)) (gx#stx-e - _hd230991231269_)))) - (let ((_tl230993231279_ + _hd233486233764_)))) + (let ((_tl233488233774_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e230995231274_))) - (_hd230994231277_ - (let () (declare (not safe)) (##car _e230995231274_)))) + (##cdr _e233490233769_))) + (_hd233489233772_ + (let () (declare (not safe)) (##car _e233490233769_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd230994231277_)) + (gx#identifier? _hd233489233772_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd230994231277_)) + (gx#stx-eq? '%#call _hd233489233772_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230993231279_)) - (let ((_e230998231282_ + (gx#stx-pair? _tl233488233774_)) + (let ((_e233493233777_ (let () (declare (not safe)) - (gx#stx-e _tl230993231279_)))) - (let ((_tl230996231287_ + (gx#stx-e _tl233488233774_)))) + (let ((_tl233491233782_ (let () (declare (not safe)) - (##cdr _e230998231282_))) - (_hd230997231285_ + (##cdr _e233493233777_))) + (_hd233492233780_ (let () (declare (not safe)) - (##car _e230998231282_)))) + (##car _e233493233777_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230997231285_)) - (let ((_e231001231290_ + (gx#stx-pair? _hd233492233780_)) + (let ((_e233496233785_ (let () (declare (not safe)) - (gx#stx-e _hd230997231285_)))) - (let ((_tl230999231295_ + (gx#stx-e _hd233492233780_)))) + (let ((_tl233494233790_ (let () (declare (not safe)) - (##cdr _e231001231290_))) - (_hd231000231293_ + (##cdr _e233496233785_))) + (_hd233495233788_ (let () (declare (not safe)) - (##car _e231001231290_)))) + (##car _e233496233785_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd231000231293_)) + _hd233495233788_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd231000231293_)) + _hd233495233788_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl230999231295_)) - (let ((_e231004231298_ + _tl233494233790_)) + (let ((_e233499233793_ (let () (declare (not safe)) (gx#stx-e - _tl230999231295_)))) - (let ((_tl231002231303_ + _tl233494233790_)))) + (let ((_tl233497233798_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e231004231298_))) - (_hd231003231301_ - (let () (declare (not safe)) (##car _e231004231298_)))) + (##cdr _e233499233793_))) + (_hd233498233796_ + (let () (declare (not safe)) (##car _e233499233793_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231002231303_)) + (gx#stx-null? _tl233497233798_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230996231287_)) - (let ((_e231007231306_ + (gx#stx-pair? _tl233491233782_)) + (let ((_e233502233801_ (let () (declare (not safe)) - (gx#stx-e _tl230996231287_)))) - (let ((_tl231005231311_ + (gx#stx-e _tl233491233782_)))) + (let ((_tl233500233806_ (let () (declare (not safe)) - (##cdr _e231007231306_))) - (_hd231006231309_ + (##cdr _e233502233801_))) + (_hd233501233804_ (let () (declare (not safe)) - (##car _e231007231306_)))) + (##car _e233502233801_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231006231309_)) - (let ((_e231010231314_ + (gx#stx-pair? _hd233501233804_)) + (let ((_e233505233809_ (let () (declare (not safe)) - (gx#stx-e _hd231006231309_)))) - (let ((_tl231008231319_ + (gx#stx-e _hd233501233804_)))) + (let ((_tl233503233814_ (let () (declare (not safe)) - (##cdr _e231010231314_))) - (_hd231009231317_ + (##cdr _e233505233809_))) + (_hd233504233812_ (let () (declare (not safe)) - (##car _e231010231314_)))) + (##car _e233505233809_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd231009231317_)) + (gx#identifier? _hd233504233812_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd231009231317_)) + _hd233504233812_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231008231319_)) - (let ((_e231013231322_ + _tl233503233814_)) + (let ((_e233508233817_ (let () (declare (not safe)) (gx#stx-e - _tl231008231319_)))) - (let ((_tl231011231327_ + _tl233503233814_)))) + (let ((_tl233506233822_ (let () (declare (not safe)) - (##cdr _e231013231322_))) - (_hd231012231325_ + (##cdr _e233508233817_))) + (_hd233507233820_ (let () (declare (not safe)) - (##car _e231013231322_)))) + (##car _e233508233817_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231011231327_)) + _tl233506233822_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl231005231311_)) + _tl233500233806_)) (if (fx>= (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-length _tl231005231311_)) + (gx#stx-length _tl233500233806_)) '1) - (let ((___splice239740239741_ + (let ((___splice242335242336_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl231005231311_ + _tl233500233806_ '1)))) - (let ((_tl231016231332_ + (let ((_tl233511233827_ (let () (declare (not safe)) - (##vector-ref ___splice239740239741_ '1))) - (_target231014231330_ + (##vector-ref ___splice242335242336_ '1))) + (_target233509233825_ (let () (declare (not safe)) - (##vector-ref ___splice239740239741_ '0)))) + (##vector-ref ___splice242335242336_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231016231332_)) - (let ((_e231025231335_ + (gx#stx-pair? _tl233511233827_)) + (let ((_e233520233830_ (let () (declare (not safe)) - (gx#stx-e _tl231016231332_)))) - (let ((_tl231023231340_ + (gx#stx-e _tl233511233827_)))) + (let ((_tl233518233835_ (let () (declare (not safe)) - (##cdr _e231025231335_))) - (_hd231024231338_ + (##cdr _e233520233830_))) + (_hd233519233833_ (let () (declare (not safe)) - (##car _e231025231335_)))) + (##car _e233520233830_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231024231338_)) - (let ((_e231028231343_ + (gx#stx-pair? _hd233519233833_)) + (let ((_e233523233838_ (let () (declare (not safe)) - (gx#stx-e _hd231024231338_)))) - (let ((_tl231026231348_ + (gx#stx-e _hd233519233833_)))) + (let ((_tl233521233843_ (let () (declare (not safe)) - (##cdr _e231028231343_))) - (_hd231027231346_ + (##cdr _e233523233838_))) + (_hd233522233841_ (let () (declare (not safe)) - (##car _e231028231343_)))) + (##car _e233523233838_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd231027231346_)) + _hd233522233841_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd231027231346_)) + _hd233522233841_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231026231348_)) - (let ((_e231031231351_ + _tl233521233843_)) + (let ((_e233526233846_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl231026231348_)))) - (let ((_tl231029231356_ - (let () (declare (not safe)) (##cdr _e231031231351_))) - (_hd231030231354_ + (gx#stx-e _tl233521233843_)))) + (let ((_tl233524233851_ + (let () (declare (not safe)) (##cdr _e233526233846_))) + (_hd233525233849_ (let () (declare (not safe)) - (##car _e231031231351_)))) + (##car _e233526233846_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231029231356_)) + (gx#stx-null? _tl233524233851_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl231023231340_)) - (letrec ((_loop231017231359_ - (lambda (_hd231015231362_ - _xarg231021231364_) + (gx#stx-null? _tl233518233835_)) + (letrec ((_loop233512233854_ + (lambda (_hd233510233857_ + _xarg233516233859_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231015231362_)) - (let ((_e231018231367_ + (gx#stx-pair? _hd233510233857_)) + (let ((_e233513233862_ (let () (declare (not safe)) (gx#stx-e - _hd231015231362_)))) - (let ((_lp-tl231020231372_ + _hd233510233857_)))) + (let ((_lp-tl233515233867_ (let () (declare (not safe)) - (##cdr _e231018231367_))) - (_lp-hd231019231370_ + (##cdr _e233513233862_))) + (_lp-hd233514233865_ (let () (declare (not safe)) - (##car _e231018231367_)))) + (##car _e233513233862_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd231019231370_)) - (let ((_e231034231375_ + _lp-hd233514233865_)) + (let ((_e233529233870_ (let () (declare (not safe)) (gx#stx-e - _lp-hd231019231370_)))) - (let ((_tl231032231380_ + _lp-hd233514233865_)))) + (let ((_tl233527233875_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e231034231375_))) - (_hd231033231378_ - (let () (declare (not safe)) (##car _e231034231375_)))) + (##cdr _e233529233870_))) + (_hd233528233873_ + (let () (declare (not safe)) (##car _e233529233870_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd231033231378_)) + (gx#identifier? _hd233528233873_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd231033231378_)) + (gx#stx-eq? '%#ref _hd233528233873_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231032231380_)) - (let ((_e231037231383_ + (gx#stx-pair? _tl233527233875_)) + (let ((_e233532233878_ (let () (declare (not safe)) - (gx#stx-e _tl231032231380_)))) - (let ((_tl231035231388_ + (gx#stx-e _tl233527233875_)))) + (let ((_tl233530233883_ (let () (declare (not safe)) - (##cdr _e231037231383_))) - (_hd231036231386_ + (##cdr _e233532233878_))) + (_hd233531233881_ (let () (declare (not safe)) - (##car _e231037231383_)))) + (##car _e233532233878_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231035231388_)) - (let ((__tmp241120 + (gx#stx-null? _tl233530233883_)) + (let ((__tmp243715 (let () (declare (not safe)) - (cons _hd231036231386_ - _xarg231021231364_)))) + (cons _hd233531233881_ + _xarg233516233859_)))) (declare (not safe)) - (_loop231017231359_ - _lp-tl231020231372_ - __tmp241120)) - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)))) - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)) - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)) - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)))) - (let ((_xarg231022231391_ - (reverse _xarg231021231364_))) + (_loop233512233854_ + _lp-tl233515233867_ + __tmp243715)) + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)))) + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)) + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)) + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)))) + (let ((_xarg233517233886_ + (reverse _xarg233516233859_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230990231271_)) - (let ((_L231394_ - _hd231030231354_) - (_L231395_ - _xarg231022231391_) - (_L231396_ - _hd231012231325_) - (_L231397_ - _hd231003231301_) - (_L231398_ - _tl230983231244_) - (_L231399_ - _arg230989231263_)) - (if (and (let ((__tmp241118 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp241119 - (lambda (_g231442231445_ _g231443231447_) + _tl233485233766_)) + (let ((_L233889_ + _hd233525233849_) + (_L233890_ + _xarg233517233886_) + (_L233891_ + _hd233507233820_) + (_L233892_ + _hd233498233796_) + (_L233893_ + _tl233478233739_) + (_L233894_ + _arg233484233758_)) + (if (and (let ((__tmp243713 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp243714 + (lambda (_g233937233940_ _g233938233942_) (let () (declare (not safe)) - (cons _g231442231445_ - _g231443231447_))))) + (cons _g233937233940_ + _g233938233942_))))) (declare (not safe)) - (foldr1 __tmp241119 '() _L231399_)))) + (foldr1 __tmp243714 '() _L233894_)))) (declare (not safe)) - (gx#identifier-list? __tmp241118)) - (let () (declare (not safe)) (gx#identifier? _L231398_)) + (gx#identifier-list? __tmp243713)) + (let () (declare (not safe)) (gx#identifier? _L233893_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L231397_ 'apply)) - (fx= (length (let ((__tmp241116 - (lambda (_g231449231452_ - _g231450231454_) + (gxc#runtime-identifier=? _L233892_ 'apply)) + (fx= (length (let ((__tmp243711 + (lambda (_g233944233947_ + _g233945233949_) (let () (declare (not safe)) - (cons _g231449231452_ - _g231450231454_))))) + (cons _g233944233947_ + _g233945233949_))))) (declare (not safe)) - (foldr1 __tmp241116 '() _L231399_))) - (length (let ((__tmp241117 - (lambda (_g231456231459_ - _g231457231461_) + (foldr1 __tmp243711 '() _L233894_))) + (length (let ((__tmp243712 + (lambda (_g233951233954_ + _g233952233956_) (let () (declare (not safe)) - (cons _g231456231459_ - _g231457231461_))))) + (cons _g233951233954_ + _g233952233956_))))) (declare (not safe)) - (foldr1 __tmp241117 '() _L231395_)))) - (let ((__tmp241114 - (let ((__tmp241115 - (lambda (_g231463231466_ _g231464231468_) + (foldr1 __tmp243712 '() _L233890_)))) + (let ((__tmp243709 + (let ((__tmp243710 + (lambda (_g233958233961_ _g233959233963_) (let () (declare (not safe)) - (cons _g231463231466_ - _g231464231468_))))) + (cons _g233958233961_ + _g233959233963_))))) (declare (not safe)) - (foldr1 __tmp241115 '() _L231399_))) - (__tmp241112 - (let ((__tmp241113 - (lambda (_g231470231473_ _g231471231475_) + (foldr1 __tmp243710 '() _L233894_))) + (__tmp243707 + (let ((__tmp243708 + (lambda (_g233965233968_ _g233966233970_) (let () (declare (not safe)) - (cons _g231470231473_ - _g231471231475_))))) + (cons _g233965233968_ + _g233966233970_))))) (declare (not safe)) - (foldr1 __tmp241113 '() _L231395_)))) + (foldr1 __tmp243708 '() _L233890_)))) (declare (not safe)) - (andmap2 gx#free-identifier=? __tmp241114 __tmp241112)) + (andmap2 gx#free-identifier=? __tmp243709 __tmp243707)) (let () (declare (not safe)) - (gx#free-identifier=? _L231398_ _L231394_)) - (let ((__tmp241107 - (let ((__tmp241111 - (lambda (_g231477231479_) + (gx#free-identifier=? _L233893_ _L233889_)) + (let ((__tmp243702 + (let ((__tmp243706 + (lambda (_g233972233974_) (let () (declare (not safe)) (gx#free-identifier=? - _g231477231479_ - _L231396_)))) - (__tmp241108 - (let ((__tmp241110 - (lambda (_g231481231484_ - _g231482231486_) + _g233972233974_ + _L233891_)))) + (__tmp243703 + (let ((__tmp243705 + (lambda (_g233976233979_ + _g233977233981_) (let () (declare (not safe)) - (cons _g231481231484_ - _g231482231486_)))) - (__tmp241109 + (cons _g233976233979_ + _g233977233981_)))) + (__tmp243704 (let () (declare (not safe)) - (cons _L231398_ '())))) + (cons _L233893_ '())))) (declare (not safe)) - (foldr1 __tmp241110 - __tmp241109 - _L231399_)))) + (foldr1 __tmp243705 + __tmp243704 + _L233894_)))) (declare (not safe)) - (find __tmp241111 __tmp241108)))) + (find __tmp243706 __tmp243703)))) (declare (not safe)) - (not __tmp241107))) - (___kont239736239737_ - _L231394_ - _L231395_ - _L231396_ - _L231397_ - _L231398_ - _L231399_) - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_))))))) + (not __tmp243702))) + (___kont242331242332_ + _L233889_ + _L233890_ + _L233891_ + _L233892_ + _L233893_ + _L233894_) + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_))))))) (let () (declare (not safe)) - (_loop231017231359_ _target231014231330_ '()))) - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)) - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)))) - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)) - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)))) - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)))) - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)))) - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)) - (___match239841239842_ - _e230980231234_ - _hd230979231237_ - _tl230978231239_ - _e230992231266_ - _hd230991231269_ - _tl230990231271_ - _e230995231274_ - _hd230994231277_ - _tl230993231279_ - _e230998231282_ - _hd230997231285_ - _tl230996231287_ - _e231001231290_ - _hd231000231293_ - _tl230999231295_ - _e231004231298_ - _hd231003231301_ - _tl231002231303_ - _e231007231306_ - _hd231006231309_ - _tl231005231311_ - _e231010231314_ - _hd231009231317_ - _tl231008231319_ - _e231013231322_ - _hd231012231325_ - _tl231011231327_)) - (___kont239744239745_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont239744239745_)) - (___kont239744239745_)) - (___kont239744239745_)))) - (___kont239744239745_)))) - (___kont239744239745_)) - (___kont239744239745_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont239744239745_)) - (___kont239744239745_)) - (___kont239744239745_)))) - (___kont239744239745_)))) - (___kont239744239745_)) - (___kont239744239745_)) - (___kont239744239745_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont239744239745_)))) - (___kont239744239745_))))))) + (_loop233512233854_ _target233509233825_ '()))) + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)) + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)))) + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)) + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)))) + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)))) + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)))) + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)) + (___match242436242437_ + _e233475233729_ + _hd233474233732_ + _tl233473233734_ + _e233487233761_ + _hd233486233764_ + _tl233485233766_ + _e233490233769_ + _hd233489233772_ + _tl233488233774_ + _e233493233777_ + _hd233492233780_ + _tl233491233782_ + _e233496233785_ + _hd233495233788_ + _tl233494233790_ + _e233499233793_ + _hd233498233796_ + _tl233497233798_ + _e233502233801_ + _hd233501233804_ + _tl233500233806_ + _e233505233809_ + _hd233504233812_ + _tl233503233814_ + _e233508233817_ + _hd233507233820_ + _tl233506233822_)) + (___kont242339242340_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242339242340_)) + (___kont242339242340_)) + (___kont242339242340_)))) + (___kont242339242340_)))) + (___kont242339242340_)) + (___kont242339242340_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242339242340_)) + (___kont242339242340_)) + (___kont242339242340_)))) + (___kont242339242340_)))) + (___kont242339242340_)) + (___kont242339242340_)) + (___kont242339242340_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242339242340_)))) + (___kont242339242340_))))))) (let () (declare (not safe)) - (_loop230984231247_ _target230981231242_ '()))))) - (___match239759239760_ - (lambda (_e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_) - (letrec ((_loop230936231507_ - (lambda (_hd230934231510_ _arg230940231512_) + (_loop233479233742_ _target233476233737_ '()))))) + (___match242354242355_ + (lambda (_e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_) + (letrec ((_loop233431234002_ + (lambda (_hd233429234005_ _arg233435234007_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230934231510_)) - (let ((_e230937231515_ + (gx#stx-pair? _hd233429234005_)) + (let ((_e233432234010_ (let () (declare (not safe)) - (gx#stx-e _hd230934231510_)))) - (let ((_lp-tl230939231520_ + (gx#stx-e _hd233429234005_)))) + (let ((_lp-tl233434234015_ (let () (declare (not safe)) - (##cdr _e230937231515_))) - (_lp-hd230938231518_ + (##cdr _e233432234010_))) + (_lp-hd233433234013_ (let () (declare (not safe)) - (##car _e230937231515_)))) - (let ((__tmp241135 + (##car _e233432234010_)))) + (let ((__tmp243730 (let () (declare (not safe)) - (cons _lp-hd230938231518_ - _arg230940231512_)))) + (cons _lp-hd233433234013_ + _arg233435234007_)))) (declare (not safe)) - (_loop230936231507_ - _lp-tl230939231520_ - __tmp241135)))) - (let ((_arg230941231523_ - (reverse _arg230940231512_))) + (_loop233431234002_ + _lp-tl233434234015_ + __tmp243730)))) + (let ((_arg233436234018_ + (reverse _arg233435234007_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230930231499_)) - (let ((_e230944231526_ + (gx#stx-pair? _tl233425233994_)) + (let ((_e233439234021_ (let () (declare (not safe)) (gx#stx-e - _tl230930231499_)))) - (let ((_tl230942231531_ + _tl233425233994_)))) + (let ((_tl233437234026_ (let () (declare (not safe)) - (##cdr _e230944231526_))) - (_hd230943231529_ + (##cdr _e233439234021_))) + (_hd233438234024_ (let () (declare (not safe)) - (##car _e230944231526_)))) + (##car _e233439234021_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230943231529_)) - (let ((_e230947231534_ + _hd233438234024_)) + (let ((_e233442234029_ (let () (declare (not safe)) (gx#stx-e - _hd230943231529_)))) - (let ((_tl230945231539_ + _hd233438234024_)))) + (let ((_tl233440234034_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e230947231534_))) - (_hd230946231537_ - (let () (declare (not safe)) (##car _e230947231534_)))) + (##cdr _e233442234029_))) + (_hd233441234032_ + (let () (declare (not safe)) (##car _e233442234029_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd230946231537_)) + (gx#identifier? _hd233441234032_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd230946231537_)) + (gx#stx-eq? '%#call _hd233441234032_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230945231539_)) - (let ((_e230950231542_ + (gx#stx-pair? _tl233440234034_)) + (let ((_e233445234037_ (let () (declare (not safe)) - (gx#stx-e _tl230945231539_)))) - (let ((_tl230948231547_ + (gx#stx-e _tl233440234034_)))) + (let ((_tl233443234042_ (let () (declare (not safe)) - (##cdr _e230950231542_))) - (_hd230949231545_ + (##cdr _e233445234037_))) + (_hd233444234040_ (let () (declare (not safe)) - (##car _e230950231542_)))) + (##car _e233445234037_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230949231545_)) - (let ((_e230953231550_ + (gx#stx-pair? _hd233444234040_)) + (let ((_e233448234045_ (let () (declare (not safe)) - (gx#stx-e _hd230949231545_)))) - (let ((_tl230951231555_ + (gx#stx-e _hd233444234040_)))) + (let ((_tl233446234050_ (let () (declare (not safe)) - (##cdr _e230953231550_))) - (_hd230952231553_ + (##cdr _e233448234045_))) + (_hd233447234048_ (let () (declare (not safe)) - (##car _e230953231550_)))) + (##car _e233448234045_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd230952231553_)) + _hd233447234048_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd230952231553_)) + _hd233447234048_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl230951231555_)) - (let ((_e230956231558_ + _tl233446234050_)) + (let ((_e233451234053_ (let () (declare (not safe)) (gx#stx-e - _tl230951231555_)))) - (let ((_tl230954231563_ + _tl233446234050_)))) + (let ((_tl233449234058_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e230956231558_))) - (_hd230955231561_ - (let () (declare (not safe)) (##car _e230956231558_)))) + (##cdr _e233451234053_))) + (_hd233450234056_ + (let () (declare (not safe)) (##car _e233451234053_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230954231563_)) + (gx#stx-null? _tl233449234058_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl230948231547_)) - (let ((___splice239734239735_ + (gx#stx-pair/null? _tl233443234042_)) + (let ((___splice242329242330_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl230948231547_ + _tl233443234042_ '0)))) - (let ((_tl230959231568_ + (let ((_tl233454234063_ (let () (declare (not safe)) - (##vector-ref ___splice239734239735_ '1))) - (_target230957231566_ + (##vector-ref ___splice242329242330_ '1))) + (_target233452234061_ (let () (declare (not safe)) - (##vector-ref ___splice239734239735_ '0)))) + (##vector-ref ___splice242329242330_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230959231568_)) - (letrec ((_loop230960231571_ - (lambda (_hd230958231574_ - _xarg230964231576_) + (gx#stx-null? _tl233454234063_)) + (letrec ((_loop233455234066_ + (lambda (_hd233453234069_ + _xarg233459234071_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230958231574_)) - (let ((_e230961231579_ + _hd233453234069_)) + (let ((_e233456234074_ (let () (declare (not safe)) (gx#stx-e - _hd230958231574_)))) - (let ((_lp-tl230963231584_ + _hd233453234069_)))) + (let ((_lp-tl233458234079_ (let () (declare (not safe)) - (##cdr _e230961231579_))) - (_lp-hd230962231582_ + (##cdr _e233456234074_))) + (_lp-hd233457234077_ (let () (declare (not safe)) - (##car _e230961231579_)))) + (##car _e233456234074_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd230962231582_)) - (let ((_e230968231587_ + _lp-hd233457234077_)) + (let ((_e233463234082_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd230962231582_)))) - (let ((_tl230966231592_ - (let () (declare (not safe)) (##cdr _e230968231587_))) - (_hd230967231590_ + (gx#stx-e _lp-hd233457234077_)))) + (let ((_tl233461234087_ + (let () (declare (not safe)) (##cdr _e233463234082_))) + (_hd233462234085_ (let () (declare (not safe)) - (##car _e230968231587_)))) + (##car _e233463234082_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd230967231590_)) + (gx#identifier? _hd233462234085_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd230967231590_)) + (gx#stx-eq? '%#ref _hd233462234085_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230966231592_)) - (let ((_e230971231595_ + (gx#stx-pair? _tl233461234087_)) + (let ((_e233466234090_ (let () (declare (not safe)) - (gx#stx-e _tl230966231592_)))) - (let ((_tl230969231600_ + (gx#stx-e _tl233461234087_)))) + (let ((_tl233464234095_ (let () (declare (not safe)) - (##cdr _e230971231595_))) - (_hd230970231598_ + (##cdr _e233466234090_))) + (_hd233465234093_ (let () (declare (not safe)) - (##car _e230971231595_)))) + (##car _e233466234090_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230969231600_)) - (let ((__tmp241134 + (gx#stx-null? _tl233464234095_)) + (let ((__tmp243729 (let () (declare (not safe)) - (cons _hd230970231598_ - _xarg230964231576_)))) + (cons _hd233465234093_ + _xarg233459234071_)))) (declare (not safe)) - (_loop230960231571_ - _lp-tl230963231584_ - __tmp241134)) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)))) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)))) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg230965231603_ - (reverse _xarg230964231576_))) + (_loop233455234066_ + _lp-tl233458234079_ + __tmp243729)) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)))) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)))) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg233460234098_ + (reverse _xarg233459234071_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230942231531_)) - (let ((_L231606_ - _xarg230965231603_) - (_L231607_ - _hd230955231561_) - (_L231608_ - _arg230941231523_)) - (if (and (let ((__tmp241132 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp241133 - (lambda (_g231636231639_ - _g231637231641_) + _tl233437234026_)) + (let ((_L234101_ + _xarg233460234098_) + (_L234102_ + _hd233450234056_) + (_L234103_ + _arg233436234018_)) + (if (and (let ((__tmp243727 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp243728 + (lambda (_g234131234134_ + _g234132234136_) (let () (declare (not safe)) - (cons _g231636231639_ - _g231637231641_))))) + (cons _g234131234134_ + _g234132234136_))))) (declare (not safe)) - (foldr1 __tmp241133 '() _L231608_)))) + (foldr1 __tmp243728 '() _L234103_)))) (declare (not safe)) - (gx#identifier-list? __tmp241132)) - (fx= (length (let ((__tmp241130 - (lambda (_g231643231646_ - _g231644231648_) + (gx#identifier-list? __tmp243727)) + (fx= (length (let ((__tmp243725 + (lambda (_g234138234141_ + _g234139234143_) (let () (declare (not safe)) - (cons _g231643231646_ - _g231644231648_))))) + (cons _g234138234141_ + _g234139234143_))))) (declare (not safe)) - (foldr1 __tmp241130 '() _L231608_))) - (length (let ((__tmp241131 - (lambda (_g231650231653_ - _g231651231655_) + (foldr1 __tmp243725 '() _L234103_))) + (length (let ((__tmp243726 + (lambda (_g234145234148_ + _g234146234150_) (let () (declare (not safe)) - (cons _g231650231653_ - _g231651231655_))))) + (cons _g234145234148_ + _g234146234150_))))) (declare (not safe)) - (foldr1 __tmp241131 '() _L231606_)))) - (let ((__tmp241128 - (let ((__tmp241129 - (lambda (_g231657231660_ - _g231658231662_) + (foldr1 __tmp243726 '() _L234101_)))) + (let ((__tmp243723 + (let ((__tmp243724 + (lambda (_g234152234155_ + _g234153234157_) (let () (declare (not safe)) - (cons _g231657231660_ - _g231658231662_))))) + (cons _g234152234155_ + _g234153234157_))))) (declare (not safe)) - (foldr1 __tmp241129 '() _L231608_))) - (__tmp241126 - (let ((__tmp241127 - (lambda (_g231664231667_ - _g231665231669_) + (foldr1 __tmp243724 '() _L234103_))) + (__tmp243721 + (let ((__tmp243722 + (lambda (_g234159234162_ + _g234160234164_) (let () (declare (not safe)) - (cons _g231664231667_ - _g231665231669_))))) + (cons _g234159234162_ + _g234160234164_))))) (declare (not safe)) - (foldr1 __tmp241127 '() _L231606_)))) + (foldr1 __tmp243722 '() _L234101_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp241128 - __tmp241126)) - (let ((__tmp241122 - (let ((__tmp241125 - (lambda (_g231671231673_) + __tmp243723 + __tmp243721)) + (let ((__tmp243717 + (let ((__tmp243720 + (lambda (_g234166234168_) (let () (declare (not safe)) (gx#free-identifier=? - _g231671231673_ - _L231607_)))) - (__tmp241123 - (let ((__tmp241124 - (lambda (_g231675231678_ - _g231676231680_) + _g234166234168_ + _L234102_)))) + (__tmp243718 + (let ((__tmp243719 + (lambda (_g234170234173_ + _g234171234175_) (let () (declare (not safe)) - (cons _g231675231678_ - _g231676231680_))))) + (cons _g234170234173_ + _g234171234175_))))) (declare (not safe)) - (foldr1 __tmp241124 '() _L231608_)))) + (foldr1 __tmp243719 '() _L234103_)))) (declare (not safe)) - (find __tmp241125 __tmp241123)))) + (find __tmp243720 __tmp243718)))) (declare (not safe)) - (not __tmp241122))) - (___kont239730239731_ _L231606_ _L231607_ _L231608_) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_))) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_))))))) + (not __tmp243717))) + (___kont242325242326_ _L234101_ _L234102_ _L234103_) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_))) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop230960231571_ - _target230957231566_ + (_loop233455234066_ + _target233452234061_ '()))) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)))) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)))) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)))) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)))) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_))))))) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)))) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)))) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)))) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)))) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_))))))) (let () (declare (not safe)) - (_loop230936231507_ _target230933231502_ '())))))) + (_loop233431234002_ _target233428233997_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx239728239729_)) - (let ((_e230932231494_ + (gx#stx-pair? ___stx242323242324_)) + (let ((_e233427233989_ (let () (declare (not safe)) - (gx#stx-e ___stx239728239729_)))) - (let ((_tl230930231499_ + (gx#stx-e ___stx242323242324_)))) + (let ((_tl233425233994_ (let () (declare (not safe)) - (##cdr _e230932231494_))) - (_hd230931231497_ + (##cdr _e233427233989_))) + (_hd233426233992_ (let () (declare (not safe)) - (##car _e230932231494_)))) + (##car _e233427233989_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd230931231497_)) - (let ((___splice239732239733_ + (gx#stx-pair/null? _hd233426233992_)) + (let ((___splice242327242328_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd230931231497_ + _hd233426233992_ '0)))) - (let ((_tl230935231504_ + (let ((_tl233430233999_ (let () (declare (not safe)) - (##vector-ref ___splice239732239733_ '1))) - (_target230933231502_ + (##vector-ref ___splice242327242328_ '1))) + (_target233428233997_ (let () (declare (not safe)) (##vector-ref - ___splice239732239733_ + ___splice242327242328_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230935231504_)) - (___match239759239760_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_) - (___match239771239772_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - ___splice239732239733_ - _target230933231502_ - _tl230935231504_)))) + (gx#stx-null? _tl233430233999_)) + (___match242354242355_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_) + (___match242366242367_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + ___splice242327242328_ + _target233428233997_ + _tl233430233999_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230930231499_)) - (let ((_e231047231102_ + (gx#stx-pair? _tl233425233994_)) + (let ((_e233542233597_ (let () (declare (not safe)) - (gx#stx-e _tl230930231499_)))) - (let ((_tl231045231107_ + (gx#stx-e _tl233425233994_)))) + (let ((_tl233540233602_ (let () (declare (not safe)) - (##cdr _e231047231102_))) - (_hd231046231105_ + (##cdr _e233542233597_))) + (_hd233541233600_ (let () (declare (not safe)) - (##car _e231047231102_)))) + (##car _e233542233597_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231046231105_)) - (let ((_e231050231110_ + (gx#stx-pair? _hd233541233600_)) + (let ((_e233545233605_ (let () (declare (not safe)) - (gx#stx-e _hd231046231105_)))) - (let ((_tl231048231115_ + (gx#stx-e _hd233541233600_)))) + (let ((_tl233543233610_ (let () (declare (not safe)) - (##cdr _e231050231110_))) - (_hd231049231113_ + (##cdr _e233545233605_))) + (_hd233544233608_ (let () (declare (not safe)) - (##car _e231050231110_)))) + (##car _e233545233605_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd231049231113_)) + _hd233544233608_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd231049231113_)) + _hd233544233608_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231048231115_)) - (let ((_e231053231118_ + _tl233543233610_)) + (let ((_e233548233613_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl231048231115_)))) - (let ((_tl231051231123_ - (let () (declare (not safe)) (##cdr _e231053231118_))) - (_hd231052231121_ - (let () (declare (not safe)) (##car _e231053231118_)))) + (gx#stx-e _tl233543233610_)))) + (let ((_tl233546233618_ + (let () (declare (not safe)) (##cdr _e233548233613_))) + (_hd233547233616_ + (let () (declare (not safe)) (##car _e233548233613_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231052231121_)) - (let ((_e231056231126_ + (gx#stx-pair? _hd233547233616_)) + (let ((_e233551233621_ (let () (declare (not safe)) - (gx#stx-e _hd231052231121_)))) - (let ((_tl231054231131_ + (gx#stx-e _hd233547233616_)))) + (let ((_tl233549233626_ (let () (declare (not safe)) - (##cdr _e231056231126_))) - (_hd231055231129_ + (##cdr _e233551233621_))) + (_hd233550233624_ (let () (declare (not safe)) - (##car _e231056231126_)))) + (##car _e233551233621_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd231055231129_)) + (gx#identifier? _hd233550233624_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd231055231129_)) + (gx#stx-eq? '%#ref _hd233550233624_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231054231131_)) - (let ((_e231059231134_ + (gx#stx-pair? _tl233549233626_)) + (let ((_e233554233629_ (let () (declare (not safe)) - (gx#stx-e _tl231054231131_)))) - (let ((_tl231057231139_ + (gx#stx-e _tl233549233626_)))) + (let ((_tl233552233634_ (let () (declare (not safe)) - (##cdr _e231059231134_))) - (_hd231058231137_ + (##cdr _e233554233629_))) + (_hd233553233632_ (let () (declare (not safe)) - (##car _e231059231134_)))) + (##car _e233554233629_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231057231139_)) + _tl233552233634_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231051231123_)) - (let ((_e231062231142_ + _tl233546233618_)) + (let ((_e233557233637_ (let () (declare (not safe)) (gx#stx-e - _tl231051231123_)))) - (let ((_tl231060231147_ + _tl233546233618_)))) + (let ((_tl233555233642_ (let () (declare (not safe)) - (##cdr _e231062231142_))) - (_hd231061231145_ + (##cdr _e233557233637_))) + (_hd233556233640_ (let () (declare (not safe)) - (##car _e231062231142_)))) + (##car _e233557233637_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231061231145_)) - (let ((_e231065231150_ + _hd233556233640_)) + (let ((_e233560233645_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd231061231145_)))) - (let ((_tl231063231155_ + (gx#stx-e _hd233556233640_)))) + (let ((_tl233558233650_ (let () (declare (not safe)) - (##cdr _e231065231150_))) - (_hd231064231153_ + (##cdr _e233560233645_))) + (_hd233559233648_ (let () (declare (not safe)) - (##car _e231065231150_)))) + (##car _e233560233645_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd231064231153_)) + (gx#identifier? _hd233559233648_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd231064231153_)) + (gx#stx-eq? '%#ref _hd233559233648_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231063231155_)) - (let ((_e231068231158_ + (gx#stx-pair? _tl233558233650_)) + (let ((_e233563233653_ (let () (declare (not safe)) - (gx#stx-e _tl231063231155_)))) - (let ((_tl231066231163_ + (gx#stx-e _tl233558233650_)))) + (let ((_tl233561233658_ (let () (declare (not safe)) - (##cdr _e231068231158_))) - (_hd231067231161_ + (##cdr _e233563233653_))) + (_hd233562233656_ (let () (declare (not safe)) - (##car _e231068231158_)))) + (##car _e233563233653_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231066231163_)) + (gx#stx-null? _tl233561233658_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231060231147_)) - (let ((_e231071231166_ + _tl233555233642_)) + (let ((_e233566233661_ (let () (declare (not safe)) (gx#stx-e - _tl231060231147_)))) - (let ((_tl231069231171_ + _tl233555233642_)))) + (let ((_tl233564233666_ (let () (declare (not safe)) - (##cdr _e231071231166_))) - (_hd231070231169_ + (##cdr _e233566233661_))) + (_hd233565233664_ (let () (declare (not safe)) - (##car _e231071231166_)))) + (##car _e233566233661_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231070231169_)) - (let ((_e231074231174_ + _hd233565233664_)) + (let ((_e233569233669_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd231070231169_)))) - (let ((_tl231072231179_ - (let () (declare (not safe)) (##cdr _e231074231174_))) - (_hd231073231177_ - (let () (declare (not safe)) (##car _e231074231174_)))) + (gx#stx-e _hd233565233664_)))) + (let ((_tl233567233674_ + (let () (declare (not safe)) (##cdr _e233569233669_))) + (_hd233568233672_ + (let () (declare (not safe)) (##car _e233569233669_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd231073231177_)) + (gx#identifier? _hd233568233672_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd231073231177_)) + (gx#stx-eq? '%#ref _hd233568233672_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231072231179_)) - (let ((_e231077231182_ + (gx#stx-pair? _tl233567233674_)) + (let ((_e233572233677_ (let () (declare (not safe)) - (gx#stx-e _tl231072231179_)))) - (let ((_tl231075231187_ + (gx#stx-e _tl233567233674_)))) + (let ((_tl233570233682_ (let () (declare (not safe)) - (##cdr _e231077231182_))) - (_hd231076231185_ + (##cdr _e233572233677_))) + (_hd233571233680_ (let () (declare (not safe)) - (##car _e231077231182_)))) + (##car _e233572233677_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231075231187_)) + (gx#stx-null? _tl233570233682_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl231069231171_)) + (gx#stx-null? _tl233564233666_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl231045231107_)) - (___match239869239870_ - _e230932231494_ - _hd230931231497_ - _tl230930231499_ - _e231047231102_ - _hd231046231105_ - _tl231045231107_ - _e231050231110_ - _hd231049231113_ - _tl231048231115_ - _e231053231118_ - _hd231052231121_ - _tl231051231123_ - _e231056231126_ - _hd231055231129_ - _tl231054231131_ - _e231059231134_ - _hd231058231137_ - _tl231057231139_ - _e231062231142_ - _hd231061231145_ - _tl231060231147_ - _e231065231150_ - _hd231064231153_ - _tl231063231155_ - _e231068231158_ - _hd231067231161_ - _tl231066231163_ - _e231071231166_ - _hd231070231169_ - _tl231069231171_ - _e231074231174_ - _hd231073231177_ - _tl231072231179_ - _e231077231182_ - _hd231076231185_ - _tl231075231187_) - (___kont239744239745_)) - (___kont239744239745_)) - (___kont239744239745_)))) - (___kont239744239745_)) - (___kont239744239745_)) - (___kont239744239745_)))) - (___kont239744239745_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont239744239745_)) - (___kont239744239745_)))) - (___kont239744239745_)) - (___kont239744239745_)) - (___kont239744239745_)))) - (___kont239744239745_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont239744239745_)) - (___kont239744239745_)))) - (___kont239744239745_)) - (___kont239744239745_)) - (___kont239744239745_)))) - (___kont239744239745_)))) - (___kont239744239745_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont239744239745_)) - (___kont239744239745_)))) - (___kont239744239745_)))) - (___kont239744239745_))))) - (___kont239744239745_))))))) + _tl233540233602_)) + (___match242464242465_ + _e233427233989_ + _hd233426233992_ + _tl233425233994_ + _e233542233597_ + _hd233541233600_ + _tl233540233602_ + _e233545233605_ + _hd233544233608_ + _tl233543233610_ + _e233548233613_ + _hd233547233616_ + _tl233546233618_ + _e233551233621_ + _hd233550233624_ + _tl233549233626_ + _e233554233629_ + _hd233553233632_ + _tl233552233634_ + _e233557233637_ + _hd233556233640_ + _tl233555233642_ + _e233560233645_ + _hd233559233648_ + _tl233558233650_ + _e233563233653_ + _hd233562233656_ + _tl233561233658_ + _e233566233661_ + _hd233565233664_ + _tl233564233666_ + _e233569233669_ + _hd233568233672_ + _tl233567233674_ + _e233572233677_ + _hd233571233680_ + _tl233570233682_) + (___kont242339242340_)) + (___kont242339242340_)) + (___kont242339242340_)))) + (___kont242339242340_)) + (___kont242339242340_)) + (___kont242339242340_)))) + (___kont242339242340_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242339242340_)) + (___kont242339242340_)))) + (___kont242339242340_)) + (___kont242339242340_)) + (___kont242339242340_)))) + (___kont242339242340_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242339242340_)) + (___kont242339242340_)))) + (___kont242339242340_)) + (___kont242339242340_)) + (___kont242339242340_)))) + (___kont242339242340_)))) + (___kont242339242340_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242339242340_)) + (___kont242339242340_)))) + (___kont242339242340_)))) + (___kont242339242340_))))) + (___kont242339242340_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_form230388_) - (let* ((___stx239872239873_ _form230388_) - (_g230392230516_ + (lambda (_form232883_) + (let* ((___stx242467242468_ _form232883_) + (_g232887233011_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx239872239873_))))) - (let ((___kont239874239875_ - (lambda (_L230886_ _L230887_ _L230888_) + ___stx242467242468_))))) + (let ((___kont242469242470_ + (lambda (_L233381_ _L233382_ _L233383_) (let () (declare (not safe)) - (gxc#identifier-symbol _L230887_)))) - (___kont239880239881_ - (lambda (_L230734_ _L230735_ _L230736_ _L230737_) + (gxc#identifier-symbol _L233382_)))) + (___kont242475242476_ + (lambda (_L233229_ _L233230_ _L233231_ _L233232_) (let () (declare (not safe)) - (gxc#identifier-symbol _L230734_)))) - (___kont239884239885_ - (lambda (_L230601_ _L230602_ _L230603_) + (gxc#identifier-symbol _L233229_)))) + (___kont242479242480_ + (lambda (_L233096_ _L233097_ _L233098_) (let () (declare (not safe)) - (gxc#identifier-symbol _L230601_))))) - (let* ((___match239981239982_ - (lambda (_e230484230521_ - _hd230483230524_ - _tl230482230526_ - _e230487230529_ - _hd230486230532_ - _tl230485230534_ - _e230490230537_ - _hd230489230540_ - _tl230488230542_ - _e230493230545_ - _hd230492230548_ - _tl230491230550_ - _e230496230553_ - _hd230495230556_ - _tl230494230558_ - _e230499230561_ - _hd230498230564_ - _tl230497230566_ - _e230502230569_ - _hd230501230572_ - _tl230500230574_ - _e230505230577_ - _hd230504230580_ - _tl230503230582_ - _e230508230585_ - _hd230507230588_ - _tl230506230590_) + (gxc#identifier-symbol _L233096_))))) + (let* ((___match242576242577_ + (lambda (_e232979233016_ + _hd232978233019_ + _tl232977233021_ + _e232982233024_ + _hd232981233027_ + _tl232980233029_ + _e232985233032_ + _hd232984233035_ + _tl232983233037_ + _e232988233040_ + _hd232987233043_ + _tl232986233045_ + _e232991233048_ + _hd232990233051_ + _tl232989233053_ + _e232994233056_ + _hd232993233059_ + _tl232992233061_ + _e232997233064_ + _hd232996233067_ + _tl232995233069_ + _e233000233072_ + _hd232999233075_ + _tl232998233077_ + _e233003233080_ + _hd233002233083_ + _tl233001233085_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230500230574_)) - (let ((_e230511230593_ + (gx#stx-pair? _tl232995233069_)) + (let ((_e233006233088_ (let () (declare (not safe)) - (gx#stx-e _tl230500230574_)))) - (let ((_tl230509230598_ + (gx#stx-e _tl232995233069_)))) + (let ((_tl233004233093_ (let () (declare (not safe)) - (##cdr _e230511230593_))) - (_hd230510230596_ + (##cdr _e233006233088_))) + (_hd233005233091_ (let () (declare (not safe)) - (##car _e230511230593_)))) + (##car _e233006233088_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230509230598_)) + (gx#stx-null? _tl233004233093_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl230485230534_)) - (___kont239884239885_ - _hd230507230588_ - _hd230498230564_ - _hd230483230524_) + (gx#stx-null? _tl232980233029_)) + (___kont242479242480_ + _hd233002233083_ + _hd232993233059_ + _hd232978233019_) (let () (declare (not safe)) - (_g230392230516_))) + (_g232887233011_))) (let () (declare (not safe)) - (_g230392230516_))))) - (let () (declare (not safe)) (_g230392230516_))))) - (___match239911239912_ - (lambda (_e230445230638_ - _hd230444230641_ - _tl230443230643_ - ___splice239882239883_ - _target230446230646_ - _tl230448230648_) - (letrec ((_loop230449230651_ - (lambda (_hd230447230654_ _arg230453230656_) + (_g232887233011_))))) + (let () (declare (not safe)) (_g232887233011_))))) + (___match242506242507_ + (lambda (_e232940233133_ + _hd232939233136_ + _tl232938233138_ + ___splice242477242478_ + _target232941233141_ + _tl232943233143_) + (letrec ((_loop232944233146_ + (lambda (_hd232942233149_ _arg232948233151_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230447230654_)) - (let ((_e230450230659_ + (gx#stx-pair? _hd232942233149_)) + (let ((_e232945233154_ (let () (declare (not safe)) - (gx#stx-e _hd230447230654_)))) - (let ((_lp-tl230452230664_ + (gx#stx-e _hd232942233149_)))) + (let ((_lp-tl232947233159_ (let () (declare (not safe)) - (##cdr _e230450230659_))) - (_lp-hd230451230662_ + (##cdr _e232945233154_))) + (_lp-hd232946233157_ (let () (declare (not safe)) - (##car _e230450230659_)))) - (let ((__tmp241136 + (##car _e232945233154_)))) + (let ((__tmp243731 (let () (declare (not safe)) - (cons _lp-hd230451230662_ - _arg230453230656_)))) + (cons _lp-hd232946233157_ + _arg232948233151_)))) (declare (not safe)) - (_loop230449230651_ - _lp-tl230452230664_ - __tmp241136)))) - (let ((_arg230454230667_ - (reverse _arg230453230656_))) + (_loop232944233146_ + _lp-tl232947233159_ + __tmp243731)))) + (let ((_arg232949233162_ + (reverse _arg232948233151_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230443230643_)) - (let ((_e230457230670_ + (gx#stx-pair? _tl232938233138_)) + (let ((_e232952233165_ (let () (declare (not safe)) (gx#stx-e - _tl230443230643_)))) - (let ((_tl230455230675_ + _tl232938233138_)))) + (let ((_tl232950233170_ (let () (declare (not safe)) - (##cdr _e230457230670_))) - (_hd230456230673_ + (##cdr _e232952233165_))) + (_hd232951233168_ (let () (declare (not safe)) - (##car _e230457230670_)))) + (##car _e232952233165_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230456230673_)) - (let ((_e230460230678_ + _hd232951233168_)) + (let ((_e232955233173_ (let () (declare (not safe)) (gx#stx-e - _hd230456230673_)))) - (let ((_tl230458230683_ + _hd232951233168_)))) + (let ((_tl232953233178_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e230460230678_))) - (_hd230459230681_ - (let () (declare (not safe)) (##car _e230460230678_)))) + (##cdr _e232955233173_))) + (_hd232954233176_ + (let () (declare (not safe)) (##car _e232955233173_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd230459230681_)) + (gx#identifier? _hd232954233176_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd230459230681_)) + (gx#stx-eq? '%#call _hd232954233176_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230458230683_)) - (let ((_e230463230686_ + (gx#stx-pair? _tl232953233178_)) + (let ((_e232958233181_ (let () (declare (not safe)) - (gx#stx-e _tl230458230683_)))) - (let ((_tl230461230691_ + (gx#stx-e _tl232953233178_)))) + (let ((_tl232956233186_ (let () (declare (not safe)) - (##cdr _e230463230686_))) - (_hd230462230689_ + (##cdr _e232958233181_))) + (_hd232957233184_ (let () (declare (not safe)) - (##car _e230463230686_)))) + (##car _e232958233181_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230462230689_)) - (let ((_e230466230694_ + (gx#stx-pair? _hd232957233184_)) + (let ((_e232961233189_ (let () (declare (not safe)) - (gx#stx-e _hd230462230689_)))) - (let ((_tl230464230699_ + (gx#stx-e _hd232957233184_)))) + (let ((_tl232959233194_ (let () (declare (not safe)) - (##cdr _e230466230694_))) - (_hd230465230697_ + (##cdr _e232961233189_))) + (_hd232960233192_ (let () (declare (not safe)) - (##car _e230466230694_)))) + (##car _e232961233189_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd230465230697_)) + _hd232960233192_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd230465230697_)) + _hd232960233192_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl230464230699_)) - (let ((_e230469230702_ + _tl232959233194_)) + (let ((_e232964233197_ (let () (declare (not safe)) (gx#stx-e - _tl230464230699_)))) - (let ((_tl230467230707_ + _tl232959233194_)))) + (let ((_tl232962233202_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e230469230702_))) - (_hd230468230705_ - (let () (declare (not safe)) (##car _e230469230702_)))) + (##cdr _e232964233197_))) + (_hd232963233200_ + (let () (declare (not safe)) (##car _e232964233197_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230467230707_)) + (gx#stx-null? _tl232962233202_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230461230691_)) - (let ((_e230472230710_ + (gx#stx-pair? _tl232956233186_)) + (let ((_e232967233205_ (let () (declare (not safe)) - (gx#stx-e _tl230461230691_)))) - (let ((_tl230470230715_ + (gx#stx-e _tl232956233186_)))) + (let ((_tl232965233210_ (let () (declare (not safe)) - (##cdr _e230472230710_))) - (_hd230471230713_ + (##cdr _e232967233205_))) + (_hd232966233208_ (let () (declare (not safe)) - (##car _e230472230710_)))) + (##car _e232967233205_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230471230713_)) - (let ((_e230475230718_ + (gx#stx-pair? _hd232966233208_)) + (let ((_e232970233213_ (let () (declare (not safe)) - (gx#stx-e _hd230471230713_)))) - (let ((_tl230473230723_ + (gx#stx-e _hd232966233208_)))) + (let ((_tl232968233218_ (let () (declare (not safe)) - (##cdr _e230475230718_))) - (_hd230474230721_ + (##cdr _e232970233213_))) + (_hd232969233216_ (let () (declare (not safe)) - (##car _e230475230718_)))) + (##car _e232970233213_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd230474230721_)) + (gx#identifier? _hd232969233216_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd230474230721_)) + _hd232969233216_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl230473230723_)) - (let ((_e230478230726_ + _tl232968233218_)) + (let ((_e232973233221_ (let () (declare (not safe)) (gx#stx-e - _tl230473230723_)))) - (let ((_tl230476230731_ + _tl232968233218_)))) + (let ((_tl232971233226_ (let () (declare (not safe)) - (##cdr _e230478230726_))) - (_hd230477230729_ + (##cdr _e232973233221_))) + (_hd232972233224_ (let () (declare (not safe)) - (##car _e230478230726_)))) + (##car _e232973233221_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230476230731_)) + _tl232971233226_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl230455230675_)) - (___kont239880239881_ - _hd230477230729_ - _hd230468230705_ - _tl230448230648_ - _arg230454230667_) - (___match239981239982_ - _e230445230638_ - _hd230444230641_ - _tl230443230643_ - _e230457230670_ - _hd230456230673_ - _tl230455230675_ - _e230460230678_ - _hd230459230681_ - _tl230458230683_ - _e230463230686_ - _hd230462230689_ - _tl230461230691_ - _e230466230694_ - _hd230465230697_ - _tl230464230699_ - _e230469230702_ - _hd230468230705_ - _tl230467230707_ - _e230472230710_ - _hd230471230713_ - _tl230470230715_ - _e230475230718_ - _hd230474230721_ - _tl230473230723_ - _e230478230726_ - _hd230477230729_ - _tl230476230731_)) + _tl232950233170_)) + (___kont242475242476_ + _hd232972233224_ + _hd232963233200_ + _tl232943233143_ + _arg232949233162_) + (___match242576242577_ + _e232940233133_ + _hd232939233136_ + _tl232938233138_ + _e232952233165_ + _hd232951233168_ + _tl232950233170_ + _e232955233173_ + _hd232954233176_ + _tl232953233178_ + _e232958233181_ + _hd232957233184_ + _tl232956233186_ + _e232961233189_ + _hd232960233192_ + _tl232959233194_ + _e232964233197_ + _hd232963233200_ + _tl232962233202_ + _e232967233205_ + _hd232966233208_ + _tl232965233210_ + _e232970233213_ + _hd232969233216_ + _tl232968233218_ + _e232973233221_ + _hd232972233224_ + _tl232971233226_)) (let () (declare (not safe)) - (_g230392230516_))))) + (_g232887233011_))))) (let () (declare (not safe)) - (_g230392230516_))) + (_g232887233011_))) (let () (declare (not safe)) - (_g230392230516_))) + (_g232887233011_))) (let () (declare (not safe)) - (_g230392230516_))))) + (_g232887233011_))))) (let () (declare (not safe)) - (_g230392230516_))))) - (let () (declare (not safe)) (_g230392230516_))) - (let () (declare (not safe)) (_g230392230516_))))) + (_g232887233011_))))) + (let () (declare (not safe)) (_g232887233011_))) + (let () (declare (not safe)) (_g232887233011_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230392230516_))) + (_g232887233011_))) (let () (declare (not safe)) - (_g230392230516_))) + (_g232887233011_))) (let () (declare (not safe)) - (_g230392230516_))))) + (_g232887233011_))))) (let () (declare (not safe)) - (_g230392230516_))))) - (let () (declare (not safe)) (_g230392230516_))) - (let () (declare (not safe)) (_g230392230516_))) - (let () (declare (not safe)) (_g230392230516_))))) + (_g232887233011_))))) + (let () (declare (not safe)) (_g232887233011_))) + (let () (declare (not safe)) (_g232887233011_))) + (let () (declare (not safe)) (_g232887233011_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230392230516_))))) + (_g232887233011_))))) (let () (declare (not safe)) - (_g230392230516_)))))))) + (_g232887233011_)))))))) (let () (declare (not safe)) - (_loop230449230651_ _target230446230646_ '()))))) - (___match239899239900_ - (lambda (_e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_) - (letrec ((_loop230403230787_ - (lambda (_hd230401230790_ _arg230407230792_) + (_loop232944233146_ _target232941233141_ '()))))) + (___match242494242495_ + (lambda (_e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_) + (letrec ((_loop232898233282_ + (lambda (_hd232896233285_ _arg232902233287_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230401230790_)) - (let ((_e230404230795_ + (gx#stx-pair? _hd232896233285_)) + (let ((_e232899233290_ (let () (declare (not safe)) - (gx#stx-e _hd230401230790_)))) - (let ((_lp-tl230406230800_ + (gx#stx-e _hd232896233285_)))) + (let ((_lp-tl232901233295_ (let () (declare (not safe)) - (##cdr _e230404230795_))) - (_lp-hd230405230798_ + (##cdr _e232899233290_))) + (_lp-hd232900233293_ (let () (declare (not safe)) - (##car _e230404230795_)))) - (let ((__tmp241138 + (##car _e232899233290_)))) + (let ((__tmp243733 (let () (declare (not safe)) - (cons _lp-hd230405230798_ - _arg230407230792_)))) + (cons _lp-hd232900233293_ + _arg232902233287_)))) (declare (not safe)) - (_loop230403230787_ - _lp-tl230406230800_ - __tmp241138)))) - (let ((_arg230408230803_ - (reverse _arg230407230792_))) + (_loop232898233282_ + _lp-tl232901233295_ + __tmp243733)))) + (let ((_arg232903233298_ + (reverse _arg232902233287_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230397230779_)) - (let ((_e230411230806_ + (gx#stx-pair? _tl232892233274_)) + (let ((_e232906233301_ (let () (declare (not safe)) (gx#stx-e - _tl230397230779_)))) - (let ((_tl230409230811_ + _tl232892233274_)))) + (let ((_tl232904233306_ (let () (declare (not safe)) - (##cdr _e230411230806_))) - (_hd230410230809_ + (##cdr _e232906233301_))) + (_hd232905233304_ (let () (declare (not safe)) - (##car _e230411230806_)))) + (##car _e232906233301_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230410230809_)) - (let ((_e230414230814_ + _hd232905233304_)) + (let ((_e232909233309_ (let () (declare (not safe)) (gx#stx-e - _hd230410230809_)))) - (let ((_tl230412230819_ + _hd232905233304_)))) + (let ((_tl232907233314_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e230414230814_))) - (_hd230413230817_ - (let () (declare (not safe)) (##car _e230414230814_)))) + (##cdr _e232909233309_))) + (_hd232908233312_ + (let () (declare (not safe)) (##car _e232909233309_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd230413230817_)) + (gx#identifier? _hd232908233312_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd230413230817_)) + (gx#stx-eq? '%#call _hd232908233312_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230412230819_)) - (let ((_e230417230822_ + (gx#stx-pair? _tl232907233314_)) + (let ((_e232912233317_ (let () (declare (not safe)) - (gx#stx-e _tl230412230819_)))) - (let ((_tl230415230827_ + (gx#stx-e _tl232907233314_)))) + (let ((_tl232910233322_ (let () (declare (not safe)) - (##cdr _e230417230822_))) - (_hd230416230825_ + (##cdr _e232912233317_))) + (_hd232911233320_ (let () (declare (not safe)) - (##car _e230417230822_)))) + (##car _e232912233317_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230416230825_)) - (let ((_e230420230830_ + (gx#stx-pair? _hd232911233320_)) + (let ((_e232915233325_ (let () (declare (not safe)) - (gx#stx-e _hd230416230825_)))) - (let ((_tl230418230835_ + (gx#stx-e _hd232911233320_)))) + (let ((_tl232913233330_ (let () (declare (not safe)) - (##cdr _e230420230830_))) - (_hd230419230833_ + (##cdr _e232915233325_))) + (_hd232914233328_ (let () (declare (not safe)) - (##car _e230420230830_)))) + (##car _e232915233325_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd230419230833_)) + _hd232914233328_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd230419230833_)) + _hd232914233328_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl230418230835_)) - (let ((_e230423230838_ + _tl232913233330_)) + (let ((_e232918233333_ (let () (declare (not safe)) (gx#stx-e - _tl230418230835_)))) - (let ((_tl230421230843_ + _tl232913233330_)))) + (let ((_tl232916233338_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e230423230838_))) - (_hd230422230841_ - (let () (declare (not safe)) (##car _e230423230838_)))) + (##cdr _e232918233333_))) + (_hd232917233336_ + (let () (declare (not safe)) (##car _e232918233333_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230421230843_)) + (gx#stx-null? _tl232916233338_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl230415230827_)) - (let ((___splice239878239879_ + (gx#stx-pair/null? _tl232910233322_)) + (let ((___splice242473242474_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl230415230827_ + _tl232910233322_ '0)))) - (let ((_tl230426230848_ + (let ((_tl232921233343_ (let () (declare (not safe)) - (##vector-ref ___splice239878239879_ '1))) - (_target230424230846_ + (##vector-ref ___splice242473242474_ '1))) + (_target232919233341_ (let () (declare (not safe)) - (##vector-ref ___splice239878239879_ '0)))) + (##vector-ref ___splice242473242474_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230426230848_)) - (letrec ((_loop230427230851_ - (lambda (_hd230425230854_ - _xarg230431230856_) + (gx#stx-null? _tl232921233343_)) + (letrec ((_loop232922233346_ + (lambda (_hd232920233349_ + _xarg232926233351_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230425230854_)) - (let ((_e230428230859_ + _hd232920233349_)) + (let ((_e232923233354_ (let () (declare (not safe)) (gx#stx-e - _hd230425230854_)))) - (let ((_lp-tl230430230864_ + _hd232920233349_)))) + (let ((_lp-tl232925233359_ (let () (declare (not safe)) - (##cdr _e230428230859_))) - (_lp-hd230429230862_ + (##cdr _e232923233354_))) + (_lp-hd232924233357_ (let () (declare (not safe)) - (##car _e230428230859_)))) + (##car _e232923233354_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd230429230862_)) - (let ((_e230435230867_ + _lp-hd232924233357_)) + (let ((_e232930233362_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd230429230862_)))) - (let ((_tl230433230872_ - (let () (declare (not safe)) (##cdr _e230435230867_))) - (_hd230434230870_ + (gx#stx-e _lp-hd232924233357_)))) + (let ((_tl232928233367_ + (let () (declare (not safe)) (##cdr _e232930233362_))) + (_hd232929233365_ (let () (declare (not safe)) - (##car _e230435230867_)))) + (##car _e232930233362_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd230434230870_)) + (gx#identifier? _hd232929233365_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd230434230870_)) + (gx#stx-eq? '%#ref _hd232929233365_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230433230872_)) - (let ((_e230438230875_ + (gx#stx-pair? _tl232928233367_)) + (let ((_e232933233370_ (let () (declare (not safe)) - (gx#stx-e _tl230433230872_)))) - (let ((_tl230436230880_ + (gx#stx-e _tl232928233367_)))) + (let ((_tl232931233375_ (let () (declare (not safe)) - (##cdr _e230438230875_))) - (_hd230437230878_ + (##cdr _e232933233370_))) + (_hd232932233373_ (let () (declare (not safe)) - (##car _e230438230875_)))) + (##car _e232933233370_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230436230880_)) - (let ((__tmp241137 + (gx#stx-null? _tl232931233375_)) + (let ((__tmp243732 (let () (declare (not safe)) - (cons _hd230437230878_ - _xarg230431230856_)))) + (cons _hd232932233373_ + _xarg232926233351_)))) (declare (not safe)) - (_loop230427230851_ - _lp-tl230430230864_ - __tmp241137)) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)))) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)))) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg230432230883_ - (reverse _xarg230431230856_))) + (_loop232922233346_ + _lp-tl232925233359_ + __tmp243732)) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)))) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)))) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg232927233378_ + (reverse _xarg232926233351_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230409230811_)) - (___kont239874239875_ - _xarg230432230883_ - _hd230422230841_ - _arg230408230803_) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_))))))) + _tl232904233306_)) + (___kont242469242470_ + _xarg232927233378_ + _hd232917233336_ + _arg232903233298_) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_))))))) (let () (declare (not safe)) - (_loop230427230851_ - _target230424230846_ + (_loop232922233346_ + _target232919233341_ '()))) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)))) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)))) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)))) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)))) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_))))))) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)))) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)))) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)))) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)))) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_))))))) (let () (declare (not safe)) - (_loop230403230787_ _target230400230782_ '())))))) + (_loop232898233282_ _target232895233277_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx239872239873_)) - (let ((_e230399230774_ + (gx#stx-pair? ___stx242467242468_)) + (let ((_e232894233269_ (let () (declare (not safe)) - (gx#stx-e ___stx239872239873_)))) - (let ((_tl230397230779_ + (gx#stx-e ___stx242467242468_)))) + (let ((_tl232892233274_ (let () (declare (not safe)) - (##cdr _e230399230774_))) - (_hd230398230777_ + (##cdr _e232894233269_))) + (_hd232893233272_ (let () (declare (not safe)) - (##car _e230399230774_)))) + (##car _e232894233269_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd230398230777_)) - (let ((___splice239876239877_ + (gx#stx-pair/null? _hd232893233272_)) + (let ((___splice242471242472_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd230398230777_ + _hd232893233272_ '0)))) - (let ((_tl230402230784_ + (let ((_tl232897233279_ (let () (declare (not safe)) - (##vector-ref ___splice239876239877_ '1))) - (_target230400230782_ + (##vector-ref ___splice242471242472_ '1))) + (_target232895233277_ (let () (declare (not safe)) (##vector-ref - ___splice239876239877_ + ___splice242471242472_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230402230784_)) - (___match239899239900_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_) - (___match239911239912_ - _e230399230774_ - _hd230398230777_ - _tl230397230779_ - ___splice239876239877_ - _target230400230782_ - _tl230402230784_)))) + (gx#stx-null? _tl232897233279_)) + (___match242494242495_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_) + (___match242506242507_ + _e232894233269_ + _hd232893233272_ + _tl232892233274_ + ___splice242471242472_ + _target232895233277_ + _tl232897233279_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230397230779_)) - (let ((_e230487230529_ + (gx#stx-pair? _tl232892233274_)) + (let ((_e232982233024_ (let () (declare (not safe)) - (gx#stx-e _tl230397230779_)))) - (let ((_tl230485230534_ + (gx#stx-e _tl232892233274_)))) + (let ((_tl232980233029_ (let () (declare (not safe)) - (##cdr _e230487230529_))) - (_hd230486230532_ + (##cdr _e232982233024_))) + (_hd232981233027_ (let () (declare (not safe)) - (##car _e230487230529_)))) + (##car _e232982233024_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230486230532_)) - (let ((_e230490230537_ + (gx#stx-pair? _hd232981233027_)) + (let ((_e232985233032_ (let () (declare (not safe)) - (gx#stx-e _hd230486230532_)))) - (let ((_tl230488230542_ + (gx#stx-e _hd232981233027_)))) + (let ((_tl232983233037_ (let () (declare (not safe)) - (##cdr _e230490230537_))) - (_hd230489230540_ + (##cdr _e232985233032_))) + (_hd232984233035_ (let () (declare (not safe)) - (##car _e230490230537_)))) + (##car _e232985233032_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd230489230540_)) + _hd232984233035_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd230489230540_)) + _hd232984233035_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl230488230542_)) - (let ((_e230493230545_ + _tl232983233037_)) + (let ((_e232988233040_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl230488230542_)))) - (let ((_tl230491230550_ - (let () (declare (not safe)) (##cdr _e230493230545_))) - (_hd230492230548_ - (let () (declare (not safe)) (##car _e230493230545_)))) + (gx#stx-e _tl232983233037_)))) + (let ((_tl232986233045_ + (let () (declare (not safe)) (##cdr _e232988233040_))) + (_hd232987233043_ + (let () (declare (not safe)) (##car _e232988233040_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230492230548_)) - (let ((_e230496230553_ + (gx#stx-pair? _hd232987233043_)) + (let ((_e232991233048_ (let () (declare (not safe)) - (gx#stx-e _hd230492230548_)))) - (let ((_tl230494230558_ + (gx#stx-e _hd232987233043_)))) + (let ((_tl232989233053_ (let () (declare (not safe)) - (##cdr _e230496230553_))) - (_hd230495230556_ + (##cdr _e232991233048_))) + (_hd232990233051_ (let () (declare (not safe)) - (##car _e230496230553_)))) + (##car _e232991233048_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd230495230556_)) + (gx#identifier? _hd232990233051_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd230495230556_)) + (gx#stx-eq? '%#ref _hd232990233051_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230494230558_)) - (let ((_e230499230561_ + (gx#stx-pair? _tl232989233053_)) + (let ((_e232994233056_ (let () (declare (not safe)) - (gx#stx-e _tl230494230558_)))) - (let ((_tl230497230566_ + (gx#stx-e _tl232989233053_)))) + (let ((_tl232992233061_ (let () (declare (not safe)) - (##cdr _e230499230561_))) - (_hd230498230564_ + (##cdr _e232994233056_))) + (_hd232993233059_ (let () (declare (not safe)) - (##car _e230499230561_)))) + (##car _e232994233056_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230497230566_)) + _tl232992233061_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl230491230550_)) - (let ((_e230502230569_ + _tl232986233045_)) + (let ((_e232997233064_ (let () (declare (not safe)) (gx#stx-e - _tl230491230550_)))) - (let ((_tl230500230574_ + _tl232986233045_)))) + (let ((_tl232995233069_ (let () (declare (not safe)) - (##cdr _e230502230569_))) - (_hd230501230572_ + (##cdr _e232997233064_))) + (_hd232996233067_ (let () (declare (not safe)) - (##car _e230502230569_)))) + (##car _e232997233064_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230501230572_)) - (let ((_e230505230577_ + _hd232996233067_)) + (let ((_e233000233072_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd230501230572_)))) - (let ((_tl230503230582_ + (gx#stx-e _hd232996233067_)))) + (let ((_tl232998233077_ (let () (declare (not safe)) - (##cdr _e230505230577_))) - (_hd230504230580_ + (##cdr _e233000233072_))) + (_hd232999233075_ (let () (declare (not safe)) - (##car _e230505230577_)))) + (##car _e233000233072_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd230504230580_)) + (gx#identifier? _hd232999233075_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd230504230580_)) + (gx#stx-eq? '%#ref _hd232999233075_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230503230582_)) - (let ((_e230508230585_ + (gx#stx-pair? _tl232998233077_)) + (let ((_e233003233080_ (let () (declare (not safe)) - (gx#stx-e _tl230503230582_)))) - (let ((_tl230506230590_ + (gx#stx-e _tl232998233077_)))) + (let ((_tl233001233085_ (let () (declare (not safe)) - (##cdr _e230508230585_))) - (_hd230507230588_ + (##cdr _e233003233080_))) + (_hd233002233083_ (let () (declare (not safe)) - (##car _e230508230585_)))) + (##car _e233003233080_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230506230590_)) + (gx#stx-null? _tl233001233085_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl230500230574_)) - (let ((_e230511230593_ + _tl232995233069_)) + (let ((_e233006233088_ (let () (declare (not safe)) (gx#stx-e - _tl230500230574_)))) - (let ((_tl230509230598_ + _tl232995233069_)))) + (let ((_tl233004233093_ (let () (declare (not safe)) - (##cdr _e230511230593_))) - (_hd230510230596_ + (##cdr _e233006233088_))) + (_hd233005233091_ (let () (declare (not safe)) - (##car _e230511230593_)))) + (##car _e233006233088_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230509230598_)) + _tl233004233093_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl230485230534_)) - (___kont239884239885_ - _hd230507230588_ - _hd230498230564_ - _hd230398230777_) + _tl232980233029_)) + (___kont242479242480_ + _hd233002233083_ + _hd232993233059_ + _hd232893233272_) (let () (declare (not safe)) - (_g230392230516_))) + (_g232887233011_))) (let () (declare (not safe)) - (_g230392230516_))))) + (_g232887233011_))))) (let () (declare (not safe)) - (_g230392230516_))) + (_g232887233011_))) (let () (declare (not safe)) - (_g230392230516_))))) + (_g232887233011_))))) (let () (declare (not safe)) - (_g230392230516_))) - (let () (declare (not safe)) (_g230392230516_))) - (let () (declare (not safe)) (_g230392230516_))))) - (let () (declare (not safe)) (_g230392230516_))))) + (_g232887233011_))) + (let () (declare (not safe)) (_g232887233011_))) + (let () (declare (not safe)) (_g232887233011_))))) + (let () (declare (not safe)) (_g232887233011_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230392230516_))) + (_g232887233011_))) (let () (declare (not safe)) - (_g230392230516_))))) + (_g232887233011_))))) (let () (declare (not safe)) - (_g230392230516_))) + (_g232887233011_))) (let () (declare (not safe)) - (_g230392230516_))) + (_g232887233011_))) (let () (declare (not safe)) - (_g230392230516_))))) - (let () (declare (not safe)) (_g230392230516_))))) - (let () (declare (not safe)) (_g230392230516_))) + (_g232887233011_))))) + (let () (declare (not safe)) (_g232887233011_))))) + (let () (declare (not safe)) (_g232887233011_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230392230516_))) + (_g232887233011_))) (let () (declare (not safe)) - (_g230392230516_))))) + (_g232887233011_))))) (let () (declare (not safe)) - (_g230392230516_))))) + (_g232887233011_))))) (let () (declare (not safe)) - (_g230392230516_)))))) - (let () (declare (not safe)) (_g230392230516_)))))))) + (_g232887233011_)))))) + (let () (declare (not safe)) (_g232887233011_)))))))) (define gxc#lambda-form-arity - (lambda (_form230192_) - (let* ((_g230194230208_ - (lambda (_g230195230205_) + (lambda (_form232687_) + (let* ((_g232689232703_ + (lambda (_g232690232700_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g230195230205_)))) - (_g230193230385_ - (lambda (_g230195230211_) + _g232690232700_)))) + (_g232688232880_ + (lambda (_g232690232706_) (if (let () (declare (not safe)) - (gx#stx-pair? _g230195230211_)) - (let ((_e230200230213_ + (gx#stx-pair? _g232690232706_)) + (let ((_e232695232708_ (let () (declare (not safe)) - (gx#stx-e _g230195230211_)))) - (let ((_hd230199230216_ + (gx#stx-e _g232690232706_)))) + (let ((_hd232694232711_ (let () (declare (not safe)) - (##car _e230200230213_))) - (_tl230198230218_ + (##car _e232695232708_))) + (_tl232693232713_ (let () (declare (not safe)) - (##cdr _e230200230213_)))) + (##cdr _e232695232708_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230198230218_)) - (let ((_e230203230221_ + (gx#stx-pair? _tl232693232713_)) + (let ((_e232698232716_ (let () (declare (not safe)) - (gx#stx-e _tl230198230218_)))) - (let ((_hd230202230224_ + (gx#stx-e _tl232693232713_)))) + (let ((_hd232697232719_ (let () (declare (not safe)) - (##car _e230203230221_))) - (_tl230201230226_ + (##car _e232698232716_))) + (_tl232696232721_ (let () (declare (not safe)) - (##cdr _e230203230221_)))) + (##cdr _e232698232716_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230201230226_)) - ((lambda (_L230229_ _L230230_) - (let* ((___stx239994239995_ _L230230_) - (_g230245230273_ + (gx#stx-null? _tl232696232721_)) + ((lambda (_L232724_ _L232725_) + (let* ((___stx242589242590_ _L232725_) + (_g232740232768_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx239994239995_))))) - (let ((___kont239996239997_ - (lambda (_L230364_) - (length (let ((__tmp241139 + ___stx242589242590_))))) + (let ((___kont242591242592_ + (lambda (_L232859_) + (length (let ((__tmp243734 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g230374230377_ _g230375230379_) + (lambda (_g232869232872_ _g232870232874_) (let () (declare (not safe)) - (cons _g230374230377_ _g230375230379_))))) + (cons _g232869232872_ _g232870232874_))))) (declare (not safe)) - (foldr1 __tmp241139 '() _L230364_))))) + (foldr1 __tmp243734 '() _L232859_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240000240001_ - (lambda (_L230315_ _L230316_) - (let ((__tmp241140 - (length (let ((__tmp241141 + (___kont242595242596_ + (lambda (_L232810_ _L232811_) + (let ((__tmp243735 + (length (let ((__tmp243736 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g230327230330_ _g230328230332_) + (lambda (_g232822232825_ _g232823232827_) (let () (declare (not safe)) - (cons _g230327230330_ - _g230328230332_))))) + (cons _g232822232825_ + _g232823232827_))))) (declare (not safe)) - (foldr1 __tmp241141 '() _L230316_))))) + (foldr1 __tmp243736 '() _L232811_))))) (declare (not safe)) - (cons __tmp241140 '())))) + (cons __tmp243735 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240004240005_ - (lambda (_L230278_) + (___kont242599242600_ + (lambda (_L232773_) (let () (declare (not safe)) (cons '0 '()))))) - (let* ((___match240019240020_ - (lambda (___splice240002240003_ - _target230259230291_ - _tl230261230293_) - (letrec ((_loop230262230296_ + (let* ((___match242614242615_ + (lambda (___splice242597242598_ + _target232754232786_ + _tl232756232788_) + (letrec ((_loop232757232791_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd230260230299_ _arg230266230301_) + (lambda (_hd232755232794_ _arg232761232796_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230260230299_)) - (let ((_e230263230304_ + (gx#stx-pair? _hd232755232794_)) + (let ((_e232758232799_ (let () (declare (not safe)) - (gx#stx-e _hd230260230299_)))) - (let ((_lp-tl230265230309_ + (gx#stx-e _hd232755232794_)))) + (let ((_lp-tl232760232804_ (let () (declare (not safe)) - (##cdr _e230263230304_))) - (_lp-hd230264230307_ + (##cdr _e232758232799_))) + (_lp-hd232759232802_ (let () (declare (not safe)) - (##car _e230263230304_)))) - (let ((__tmp241142 + (##car _e232758232799_)))) + (let ((__tmp243737 (let () (declare (not safe)) - (cons _lp-hd230264230307_ - _arg230266230301_)))) + (cons _lp-hd232759232802_ + _arg232761232796_)))) (declare (not safe)) - (_loop230262230296_ - _lp-tl230265230309_ - __tmp241142)))) - (let ((_arg230267230312_ - (reverse _arg230266230301_))) - (___kont240000240001_ - _tl230261230293_ - _arg230267230312_)))))) + (_loop232757232791_ + _lp-tl232760232804_ + __tmp243737)))) + (let ((_arg232762232807_ + (reverse _arg232761232796_))) + (___kont242595242596_ + _tl232756232788_ + _arg232762232807_)))))) (let () (declare (not safe)) - (_loop230262230296_ _target230259230291_ '()))))) + (_loop232757232791_ _target232754232786_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match240013240014_ - (lambda (___splice239998239999_ - _target230248230340_ - _tl230250230342_) - (letrec ((_loop230251230345_ + (___match242608242609_ + (lambda (___splice242593242594_ + _target232743232835_ + _tl232745232837_) + (letrec ((_loop232746232840_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd230249230348_ _arg230255230350_) + (lambda (_hd232744232843_ _arg232750232845_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230249230348_)) - (let ((_e230252230353_ + (gx#stx-pair? _hd232744232843_)) + (let ((_e232747232848_ (let () (declare (not safe)) - (gx#stx-e _hd230249230348_)))) - (let ((_lp-tl230254230358_ + (gx#stx-e _hd232744232843_)))) + (let ((_lp-tl232749232853_ (let () (declare (not safe)) - (##cdr _e230252230353_))) - (_lp-hd230253230356_ + (##cdr _e232747232848_))) + (_lp-hd232748232851_ (let () (declare (not safe)) - (##car _e230252230353_)))) - (let ((__tmp241143 + (##car _e232747232848_)))) + (let ((__tmp243738 (let () (declare (not safe)) - (cons _lp-hd230253230356_ - _arg230255230350_)))) + (cons _lp-hd232748232851_ + _arg232750232845_)))) (declare (not safe)) - (_loop230251230345_ - _lp-tl230254230358_ - __tmp241143)))) - (let ((_arg230256230361_ - (reverse _arg230255230350_))) - (___kont239996239997_ _arg230256230361_)))))) + (_loop232746232840_ + _lp-tl232749232853_ + __tmp243738)))) + (let ((_arg232751232856_ + (reverse _arg232750232845_))) + (___kont242591242592_ _arg232751232856_)))))) (let () (declare (not safe)) - (_loop230251230345_ _target230248230340_ '())))))) + (_loop232746232840_ _target232743232835_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - ___stx239994239995_)) - (let ((___splice239998239999_ + ___stx242589242590_)) + (let ((___splice242593242594_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx239994239995_ + ___stx242589242590_ '0)))) - (let ((_tl230250230342_ + (let ((_tl232745232837_ (let () (declare (not safe)) (##vector-ref - ___splice239998239999_ + ___splice242593242594_ '1))) - (_target230248230340_ + (_target232743232835_ (let () (declare (not safe)) (##vector-ref - ___splice239998239999_ + ___splice242593242594_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230250230342_)) - (___match240013240014_ - ___splice239998239999_ - _target230248230340_ - _tl230250230342_) - (___match240019240020_ - ___splice239998239999_ - _target230248230340_ - _tl230250230342_)))) - (___kont240004240005_ - ___stx239994239995_)))))) - _hd230202230224_ - _hd230199230216_) + _tl232745232837_)) + (___match242608242609_ + ___splice242593242594_ + _target232743232835_ + _tl232745232837_) + (___match242614242615_ + ___splice242593242594_ + _target232743232835_ + _tl232745232837_)))) + (___kont242599242600_ + ___stx242589242590_)))))) + _hd232697232719_ + _hd232694232711_) (let () (declare (not safe)) - (_g230194230208_ _g230195230211_))))) + (_g232689232703_ _g232690232706_))))) (let () (declare (not safe)) - (_g230194230208_ _g230195230211_))))) + (_g232689232703_ _g232690232706_))))) (let () (declare (not safe)) - (_g230194230208_ _g230195230211_)))))) + (_g232689232703_ _g232690232706_)))))) (declare (not safe)) - (_g230193230385_ _form230192_)))) + (_g232688232880_ _form232687_)))) (define gxc#lambda-expr? - (lambda (_expr230145_) - (let* ((___stx240022240023_ _expr230145_) - (_g230148230158_ + (lambda (_expr232640_) + (let* ((___stx242617242618_ _expr232640_) + (_g232643232653_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240022240023_))))) - (let ((___kont240024240025_ (lambda (_L230178_) '#t)) - (___kont240026240027_ (lambda () '#f))) + ___stx242617242618_))))) + (let ((___kont242619242620_ (lambda (_L232673_) '#t)) + (___kont242621242622_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx240022240023_)) - (let ((_e230153230170_ + (gx#stx-pair? ___stx242617242618_)) + (let ((_e232648232665_ (let () (declare (not safe)) - (gx#stx-e ___stx240022240023_)))) - (let ((_tl230151230175_ - (let () (declare (not safe)) (##cdr _e230153230170_))) - (_hd230152230173_ + (gx#stx-e ___stx242617242618_)))) + (let ((_tl232646232670_ + (let () (declare (not safe)) (##cdr _e232648232665_))) + (_hd232647232668_ (let () (declare (not safe)) - (##car _e230153230170_)))) + (##car _e232648232665_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd230152230173_)) + (gx#identifier? _hd232647232668_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd230152230173_)) - (___kont240024240025_ _tl230151230175_) - (___kont240026240027_)) - (___kont240026240027_)))) - (___kont240026240027_)))))) + (gx#stx-eq? '%#lambda _hd232647232668_)) + (___kont242619242620_ _tl232646232670_) + (___kont242621242622_)) + (___kont242621242622_)))) + (___kont242621242622_)))))) (define gxc#case-lambda-expr? - (lambda (_expr230098_) - (let* ((___stx240040240041_ _expr230098_) - (_g230101230111_ + (lambda (_expr232593_) + (let* ((___stx242635242636_ _expr232593_) + (_g232596232606_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240040240041_))))) - (let ((___kont240042240043_ (lambda (_L230131_) '#t)) - (___kont240044240045_ (lambda () '#f))) + ___stx242635242636_))))) + (let ((___kont242637242638_ (lambda (_L232626_) '#t)) + (___kont242639242640_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx240040240041_)) - (let ((_e230106230123_ + (gx#stx-pair? ___stx242635242636_)) + (let ((_e232601232618_ (let () (declare (not safe)) - (gx#stx-e ___stx240040240041_)))) - (let ((_tl230104230128_ - (let () (declare (not safe)) (##cdr _e230106230123_))) - (_hd230105230126_ + (gx#stx-e ___stx242635242636_)))) + (let ((_tl232599232623_ + (let () (declare (not safe)) (##cdr _e232601232618_))) + (_hd232600232621_ (let () (declare (not safe)) - (##car _e230106230123_)))) + (##car _e232601232618_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd230105230126_)) + (gx#identifier? _hd232600232621_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _hd230105230126_)) - (___kont240042240043_ _tl230104230128_) - (___kont240044240045_)) - (___kont240044240045_)))) - (___kont240044240045_)))))) + (gx#stx-eq? '%#case-lambda _hd232600232621_)) + (___kont242637242638_ _tl232599232623_) + (___kont242639242640_)) + (___kont242639242640_)))) + (___kont242639242640_)))))) (define gxc#opt-lambda-expr? - (lambda (_expr229967_) - (let* ((___stx240058240059_ _expr229967_) - (_g229970230000_ + (lambda (_expr232462_) + (let* ((___stx242653242654_ _expr232462_) + (_g232465232495_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240058240059_))))) - (let ((___kont240060240061_ - (lambda (_L230068_ _L230069_ _L230070_) - (if (let () (declare (not safe)) (gx#identifier? _L230070_)) + ___stx242653242654_))))) + (let ((___kont242655242656_ + (lambda (_L232563_ _L232564_ _L232565_) + (if (let () (declare (not safe)) (gx#identifier? _L232565_)) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L230069_)) + (gxc#lambda-expr? _L232564_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L230068_)) + (gxc#case-lambda-expr? _L232563_)) '#f) '#f))) - (___kont240062240063_ (lambda () '#f))) + (___kont242657242658_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx240058240059_)) - (let ((_e229977230012_ + (gx#stx-pair? ___stx242653242654_)) + (let ((_e232472232507_ (let () (declare (not safe)) - (gx#stx-e ___stx240058240059_)))) - (let ((_tl229975230017_ - (let () (declare (not safe)) (##cdr _e229977230012_))) - (_hd229976230015_ + (gx#stx-e ___stx242653242654_)))) + (let ((_tl232470232512_ + (let () (declare (not safe)) (##cdr _e232472232507_))) + (_hd232471232510_ (let () (declare (not safe)) - (##car _e229977230012_)))) + (##car _e232472232507_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd229976230015_)) + (gx#identifier? _hd232471232510_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd229976230015_)) + (gx#stx-eq? '%#let-values _hd232471232510_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229975230017_)) - (let ((_e229980230020_ + (gx#stx-pair? _tl232470232512_)) + (let ((_e232475232515_ (let () (declare (not safe)) - (gx#stx-e _tl229975230017_)))) - (let ((_tl229978230025_ + (gx#stx-e _tl232470232512_)))) + (let ((_tl232473232520_ (let () (declare (not safe)) - (##cdr _e229980230020_))) - (_hd229979230023_ + (##cdr _e232475232515_))) + (_hd232474232518_ (let () (declare (not safe)) - (##car _e229980230020_)))) + (##car _e232475232515_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229979230023_)) - (let ((_e229983230028_ + (gx#stx-pair? _hd232474232518_)) + (let ((_e232478232523_ (let () (declare (not safe)) - (gx#stx-e _hd229979230023_)))) - (let ((_tl229981230033_ + (gx#stx-e _hd232474232518_)))) + (let ((_tl232476232528_ (let () (declare (not safe)) - (##cdr _e229983230028_))) - (_hd229982230031_ + (##cdr _e232478232523_))) + (_hd232477232526_ (let () (declare (not safe)) - (##car _e229983230028_)))) + (##car _e232478232523_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229982230031_)) - (let ((_e229986230036_ + _hd232477232526_)) + (let ((_e232481232531_ (let () (declare (not safe)) (gx#stx-e - _hd229982230031_)))) - (let ((_tl229984230041_ + _hd232477232526_)))) + (let ((_tl232479232536_ (let () (declare (not safe)) - (##cdr _e229986230036_))) - (_hd229985230039_ + (##cdr _e232481232531_))) + (_hd232480232534_ (let () (declare (not safe)) - (##car _e229986230036_)))) + (##car _e232481232531_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229985230039_)) - (let ((_e229989230044_ + _hd232480232534_)) + (let ((_e232484232539_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd229985230039_)))) - (let ((_tl229987230049_ - (let () (declare (not safe)) (##cdr _e229989230044_))) - (_hd229988230047_ + (gx#stx-e _hd232480232534_)))) + (let ((_tl232482232544_ + (let () (declare (not safe)) (##cdr _e232484232539_))) + (_hd232483232542_ (let () (declare (not safe)) - (##car _e229989230044_)))) + (##car _e232484232539_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229987230049_)) + (gx#stx-null? _tl232482232544_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229984230041_)) - (let ((_e229992230052_ + (gx#stx-pair? _tl232479232536_)) + (let ((_e232487232547_ (let () (declare (not safe)) - (gx#stx-e _tl229984230041_)))) - (let ((_tl229990230057_ + (gx#stx-e _tl232479232536_)))) + (let ((_tl232485232552_ (let () (declare (not safe)) - (##cdr _e229992230052_))) - (_hd229991230055_ + (##cdr _e232487232547_))) + (_hd232486232550_ (let () (declare (not safe)) - (##car _e229992230052_)))) + (##car _e232487232547_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229990230057_)) + (gx#stx-null? _tl232485232552_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl229981230033_)) + (gx#stx-null? _tl232476232528_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229978230025_)) - (let ((_e229995230060_ + (gx#stx-pair? _tl232473232520_)) + (let ((_e232490232555_ (let () (declare (not safe)) (gx#stx-e - _tl229978230025_)))) - (let ((_tl229993230065_ + _tl232473232520_)))) + (let ((_tl232488232560_ (let () (declare (not safe)) - (##cdr _e229995230060_))) - (_hd229994230063_ + (##cdr _e232490232555_))) + (_hd232489232558_ (let () (declare (not safe)) - (##car _e229995230060_)))) + (##car _e232490232555_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl229993230065_)) - (___kont240060240061_ - _hd229994230063_ - _hd229991230055_ - _hd229988230047_) - (___kont240062240063_)))) - (___kont240062240063_)) - (___kont240062240063_)) - (___kont240062240063_)))) - (___kont240062240063_)) - (___kont240062240063_)))) - (___kont240062240063_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240062240063_)))) - (___kont240062240063_)))) - (___kont240062240063_)) - (___kont240062240063_)) - (___kont240062240063_)))) - (___kont240062240063_)))))) + _tl232488232560_)) + (___kont242655242656_ + _hd232489232558_ + _hd232486232550_ + _hd232483232542_) + (___kont242657242658_)))) + (___kont242657242658_)) + (___kont242657242658_)) + (___kont242657242658_)))) + (___kont242657242658_)) + (___kont242657242658_)))) + (___kont242657242658_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242657242658_)))) + (___kont242657242658_)))) + (___kont242657242658_)) + (___kont242657242658_)) + (___kont242657242658_)))) + (___kont242657242658_)))))) (define gxc#kw-lambda-expr? - (lambda (_expr229292_) - (let* ((___stx240120240121_ _expr229292_) - (_g229295229453_ + (lambda (_expr231787_) + (let* ((___stx242715242716_ _expr231787_) + (_g231790231948_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240120240121_))))) - (let ((___kont240122240123_ - (lambda (_L229841_ - _L229842_ - _L229843_ - _L229844_ - _L229845_ - _L229846_ - _L229847_ - _L229848_ - _L229849_ - _L229850_ - _L229851_) + ___stx242715242716_))))) + (let ((___kont242717242718_ + (lambda (_L232336_ + _L232337_ + _L232338_ + _L232339_ + _L232340_ + _L232341_ + _L232342_ + _L232343_ + _L232344_ + _L232345_ + _L232346_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L229848_ 'apply)) + (gxc#runtime-identifier=? _L232343_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L229844_ 'apply)) + (gxc#runtime-identifier=? _L232339_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L229843_ + _L232338_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L229851_ - _L229842_)) + _L232346_ + _L232337_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L229850_ - _L229847_)) + _L232345_ + _L232342_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L229845_ - _L229841_)) + _L232340_ + _L232336_)) (let () (declare (not safe)) (gx#free-identifier=? - _L229849_ - _L229846_)) + _L232344_ + _L232341_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (___kont240124240125_ (lambda () '#f))) + (___kont242719242720_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx240120240121_)) - (let ((_e229310229465_ + (gx#stx-pair? ___stx242715242716_)) + (let ((_e231805231960_ (let () (declare (not safe)) - (gx#stx-e ___stx240120240121_)))) - (let ((_tl229308229470_ - (let () (declare (not safe)) (##cdr _e229310229465_))) - (_hd229309229468_ + (gx#stx-e ___stx242715242716_)))) + (let ((_tl231803231965_ + (let () (declare (not safe)) (##cdr _e231805231960_))) + (_hd231804231963_ (let () (declare (not safe)) - (##car _e229310229465_)))) + (##car _e231805231960_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd229309229468_)) + (gx#identifier? _hd231804231963_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd229309229468_)) + (gx#stx-eq? '%#let-values _hd231804231963_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229308229470_)) - (let ((_e229313229473_ + (gx#stx-pair? _tl231803231965_)) + (let ((_e231808231968_ (let () (declare (not safe)) - (gx#stx-e _tl229308229470_)))) - (let ((_tl229311229478_ + (gx#stx-e _tl231803231965_)))) + (let ((_tl231806231973_ (let () (declare (not safe)) - (##cdr _e229313229473_))) - (_hd229312229476_ + (##cdr _e231808231968_))) + (_hd231807231971_ (let () (declare (not safe)) - (##car _e229313229473_)))) + (##car _e231808231968_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229312229476_)) - (let ((_e229316229481_ + (gx#stx-pair? _hd231807231971_)) + (let ((_e231811231976_ (let () (declare (not safe)) - (gx#stx-e _hd229312229476_)))) - (let ((_tl229314229486_ + (gx#stx-e _hd231807231971_)))) + (let ((_tl231809231981_ (let () (declare (not safe)) - (##cdr _e229316229481_))) - (_hd229315229484_ + (##cdr _e231811231976_))) + (_hd231810231979_ (let () (declare (not safe)) - (##car _e229316229481_)))) + (##car _e231811231976_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229315229484_)) - (let ((_e229319229489_ + _hd231810231979_)) + (let ((_e231814231984_ (let () (declare (not safe)) (gx#stx-e - _hd229315229484_)))) - (let ((_tl229317229494_ + _hd231810231979_)))) + (let ((_tl231812231989_ (let () (declare (not safe)) - (##cdr _e229319229489_))) - (_hd229318229492_ + (##cdr _e231814231984_))) + (_hd231813231987_ (let () (declare (not safe)) - (##car _e229319229489_)))) + (##car _e231814231984_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229318229492_)) - (let ((_e229322229497_ + _hd231813231987_)) + (let ((_e231817231992_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd229318229492_)))) - (let ((_tl229320229502_ - (let () (declare (not safe)) (##cdr _e229322229497_))) - (_hd229321229500_ + (gx#stx-e _hd231813231987_)))) + (let ((_tl231815231997_ + (let () (declare (not safe)) (##cdr _e231817231992_))) + (_hd231816231995_ (let () (declare (not safe)) - (##car _e229322229497_)))) + (##car _e231817231992_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229320229502_)) + (gx#stx-null? _tl231815231997_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229317229494_)) - (let ((_e229325229505_ + (gx#stx-pair? _tl231812231989_)) + (let ((_e231820232000_ (let () (declare (not safe)) - (gx#stx-e _tl229317229494_)))) - (let ((_tl229323229510_ + (gx#stx-e _tl231812231989_)))) + (let ((_tl231818232005_ (let () (declare (not safe)) - (##cdr _e229325229505_))) - (_hd229324229508_ + (##cdr _e231820232000_))) + (_hd231819232003_ (let () (declare (not safe)) - (##car _e229325229505_)))) + (##car _e231820232000_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229324229508_)) - (let ((_e229328229513_ + (gx#stx-pair? _hd231819232003_)) + (let ((_e231823232008_ (let () (declare (not safe)) - (gx#stx-e _hd229324229508_)))) - (let ((_tl229326229518_ + (gx#stx-e _hd231819232003_)))) + (let ((_tl231821232013_ (let () (declare (not safe)) - (##cdr _e229328229513_))) - (_hd229327229516_ + (##cdr _e231823232008_))) + (_hd231822232011_ (let () (declare (not safe)) - (##car _e229328229513_)))) + (##car _e231823232008_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd229327229516_)) + _hd231822232011_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd229327229516_)) + _hd231822232011_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl229326229518_)) - (let ((_e229331229521_ + _tl231821232013_)) + (let ((_e231826232016_ (let () (declare (not safe)) (gx#stx-e - _tl229326229518_)))) - (let ((_tl229329229526_ + _tl231821232013_)))) + (let ((_tl231824232021_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e229331229521_))) - (_hd229330229524_ - (let () (declare (not safe)) (##car _e229331229521_)))) + (##cdr _e231826232016_))) + (_hd231825232019_ + (let () (declare (not safe)) (##car _e231826232016_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229330229524_)) - (let ((_e229334229529_ + (gx#stx-pair? _hd231825232019_)) + (let ((_e231829232024_ (let () (declare (not safe)) - (gx#stx-e _hd229330229524_)))) - (let ((_tl229332229534_ + (gx#stx-e _hd231825232019_)))) + (let ((_tl231827232029_ (let () (declare (not safe)) - (##cdr _e229334229529_))) - (_hd229333229532_ + (##cdr _e231829232024_))) + (_hd231828232027_ (let () (declare (not safe)) - (##car _e229334229529_)))) + (##car _e231829232024_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229333229532_)) - (let ((_e229337229537_ + (gx#stx-pair? _hd231828232027_)) + (let ((_e231832232032_ (let () (declare (not safe)) - (gx#stx-e _hd229333229532_)))) - (let ((_tl229335229542_ + (gx#stx-e _hd231828232027_)))) + (let ((_tl231830232037_ (let () (declare (not safe)) - (##cdr _e229337229537_))) - (_hd229336229540_ + (##cdr _e231832232032_))) + (_hd231831232035_ (let () (declare (not safe)) - (##car _e229337229537_)))) + (##car _e231832232032_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229336229540_)) - (let ((_e229340229545_ + (gx#stx-pair? _hd231831232035_)) + (let ((_e231835232040_ (let () (declare (not safe)) - (gx#stx-e _hd229336229540_)))) - (let ((_tl229338229550_ + (gx#stx-e _hd231831232035_)))) + (let ((_tl231833232045_ (let () (declare (not safe)) - (##cdr _e229340229545_))) - (_hd229339229548_ + (##cdr _e231835232040_))) + (_hd231834232043_ (let () (declare (not safe)) - (##car _e229340229545_)))) + (##car _e231835232040_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229338229550_)) + (gx#stx-null? _tl231833232045_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl229335229542_)) - (let ((_e229343229553_ + _tl231830232037_)) + (let ((_e231838232048_ (let () (declare (not safe)) (gx#stx-e - _tl229335229542_)))) - (let ((_tl229341229558_ + _tl231830232037_)))) + (let ((_tl231836232053_ (let () (declare (not safe)) - (##cdr _e229343229553_))) - (_hd229342229556_ + (##cdr _e231838232048_))) + (_hd231837232051_ (let () (declare (not safe)) - (##car _e229343229553_)))) + (##car _e231838232048_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl229341229558_)) + _tl231836232053_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl229332229534_)) + _tl231827232029_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl229329229526_)) - (let ((_e229346229561_ + (gx#stx-pair? _tl231824232021_)) + (let ((_e231841232056_ (let () (declare (not safe)) - (gx#stx-e _tl229329229526_)))) - (let ((_tl229344229566_ + (gx#stx-e _tl231824232021_)))) + (let ((_tl231839232061_ (let () (declare (not safe)) - (##cdr _e229346229561_))) - (_hd229345229564_ + (##cdr _e231841232056_))) + (_hd231840232059_ (let () (declare (not safe)) - (##car _e229346229561_)))) + (##car _e231841232056_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229345229564_)) - (let ((_e229349229569_ + (gx#stx-pair? _hd231840232059_)) + (let ((_e231844232064_ (let () (declare (not safe)) - (gx#stx-e _hd229345229564_)))) - (let ((_tl229347229574_ + (gx#stx-e _hd231840232059_)))) + (let ((_tl231842232069_ (let () (declare (not safe)) - (##cdr _e229349229569_))) - (_hd229348229572_ + (##cdr _e231844232064_))) + (_hd231843232067_ (let () (declare (not safe)) - (##car _e229349229569_)))) + (##car _e231844232064_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd229348229572_)) + (gx#identifier? _hd231843232067_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd229348229572_)) + _hd231843232067_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl229347229574_)) - (let ((_e229352229577_ + _tl231842232069_)) + (let ((_e231847232072_ (let () (declare (not safe)) (gx#stx-e - _tl229347229574_)))) - (let ((_tl229350229582_ + _tl231842232069_)))) + (let ((_tl231845232077_ (let () (declare (not safe)) - (##cdr _e229352229577_))) - (_hd229351229580_ + (##cdr _e231847232072_))) + (_hd231846232075_ (let () (declare (not safe)) - (##car _e229352229577_)))) + (##car _e231847232072_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229351229580_)) - (let ((_e229355229585_ + _hd231846232075_)) + (let ((_e231850232080_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd229351229580_)))) - (let ((_tl229353229590_ - (let () (declare (not safe)) (##cdr _e229355229585_))) - (_hd229354229588_ + (gx#stx-e _hd231846232075_)))) + (let ((_tl231848232085_ + (let () (declare (not safe)) (##cdr _e231850232080_))) + (_hd231849232083_ (let () (declare (not safe)) - (##car _e229355229585_)))) + (##car _e231850232080_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229350229582_)) - (let ((_e229358229593_ + (gx#stx-pair? _tl231845232077_)) + (let ((_e231853232088_ (let () (declare (not safe)) - (gx#stx-e _tl229350229582_)))) - (let ((_tl229356229598_ + (gx#stx-e _tl231845232077_)))) + (let ((_tl231851232093_ (let () (declare (not safe)) - (##cdr _e229358229593_))) - (_hd229357229596_ + (##cdr _e231853232088_))) + (_hd231852232091_ (let () (declare (not safe)) - (##car _e229358229593_)))) + (##car _e231853232088_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229357229596_)) - (let ((_e229361229601_ + (gx#stx-pair? _hd231852232091_)) + (let ((_e231856232096_ (let () (declare (not safe)) - (gx#stx-e _hd229357229596_)))) - (let ((_tl229359229606_ + (gx#stx-e _hd231852232091_)))) + (let ((_tl231854232101_ (let () (declare (not safe)) - (##cdr _e229361229601_))) - (_hd229360229604_ + (##cdr _e231856232096_))) + (_hd231855232099_ (let () (declare (not safe)) - (##car _e229361229601_)))) + (##car _e231856232096_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd229360229604_)) + (gx#identifier? _hd231855232099_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd229360229604_)) + _hd231855232099_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl229359229606_)) - (let ((_e229364229609_ + _tl231854232101_)) + (let ((_e231859232104_ (let () (declare (not safe)) (gx#stx-e - _tl229359229606_)))) - (let ((_tl229362229614_ + _tl231854232101_)))) + (let ((_tl231857232109_ (let () (declare (not safe)) - (##cdr _e229364229609_))) - (_hd229363229612_ + (##cdr _e231859232104_))) + (_hd231858232107_ (let () (declare (not safe)) - (##car _e229364229609_)))) + (##car _e231859232104_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229363229612_)) - (let ((_e229367229617_ + _hd231858232107_)) + (let ((_e231862232112_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd229363229612_)))) - (let ((_tl229365229622_ - (let () (declare (not safe)) (##cdr _e229367229617_))) - (_hd229366229620_ + (gx#stx-e _hd231858232107_)))) + (let ((_tl231860232117_ + (let () (declare (not safe)) (##cdr _e231862232112_))) + (_hd231861232115_ (let () (declare (not safe)) - (##car _e229367229617_)))) + (##car _e231862232112_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd229366229620_)) + (gx#identifier? _hd231861232115_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd229366229620_)) + (gx#stx-eq? '%#ref _hd231861232115_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229365229622_)) - (let ((_e229370229625_ + (gx#stx-pair? _tl231860232117_)) + (let ((_e231865232120_ (let () (declare (not safe)) - (gx#stx-e _tl229365229622_)))) - (let ((_tl229368229630_ + (gx#stx-e _tl231860232117_)))) + (let ((_tl231863232125_ (let () (declare (not safe)) - (##cdr _e229370229625_))) - (_hd229369229628_ + (##cdr _e231865232120_))) + (_hd231864232123_ (let () (declare (not safe)) - (##car _e229370229625_)))) + (##car _e231865232120_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229368229630_)) + (gx#stx-null? _tl231863232125_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229362229614_)) - (let ((_e229373229633_ + (gx#stx-pair? _tl231857232109_)) + (let ((_e231868232128_ (let () (declare (not safe)) (gx#stx-e - _tl229362229614_)))) - (let ((_tl229371229638_ + _tl231857232109_)))) + (let ((_tl231866232133_ (let () (declare (not safe)) - (##cdr _e229373229633_))) - (_hd229372229636_ + (##cdr _e231868232128_))) + (_hd231867232131_ (let () (declare (not safe)) - (##car _e229373229633_)))) + (##car _e231868232128_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229372229636_)) - (let ((_e229376229641_ + _hd231867232131_)) + (let ((_e231871232136_ (let () (declare (not safe)) (gx#stx-e - _hd229372229636_)))) - (let ((_tl229374229646_ + _hd231867232131_)))) + (let ((_tl231869232141_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e229376229641_))) - (_hd229375229644_ - (let () (declare (not safe)) (##car _e229376229641_)))) + (##cdr _e231871232136_))) + (_hd231870232139_ + (let () (declare (not safe)) (##car _e231871232136_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd229375229644_)) + (gx#identifier? _hd231870232139_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd229375229644_)) + (gx#stx-eq? '%#ref _hd231870232139_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229374229646_)) - (let ((_e229379229649_ + (gx#stx-pair? _tl231869232141_)) + (let ((_e231874232144_ (let () (declare (not safe)) - (gx#stx-e _tl229374229646_)))) - (let ((_tl229377229654_ + (gx#stx-e _tl231869232141_)))) + (let ((_tl231872232149_ (let () (declare (not safe)) - (##cdr _e229379229649_))) - (_hd229378229652_ + (##cdr _e231874232144_))) + (_hd231873232147_ (let () (declare (not safe)) - (##car _e229379229649_)))) + (##car _e231874232144_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229377229654_)) + (gx#stx-null? _tl231872232149_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229371229638_)) - (let ((_e229382229657_ + (gx#stx-pair? _tl231866232133_)) + (let ((_e231877232152_ (let () (declare (not safe)) - (gx#stx-e _tl229371229638_)))) - (let ((_tl229380229662_ + (gx#stx-e _tl231866232133_)))) + (let ((_tl231875232157_ (let () (declare (not safe)) - (##cdr _e229382229657_))) - (_hd229381229660_ + (##cdr _e231877232152_))) + (_hd231876232155_ (let () (declare (not safe)) - (##car _e229382229657_)))) + (##car _e231877232152_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229381229660_)) - (let ((_e229385229665_ + _hd231876232155_)) + (let ((_e231880232160_ (let () (declare (not safe)) (gx#stx-e - _hd229381229660_)))) - (let ((_tl229383229670_ + _hd231876232155_)))) + (let ((_tl231878232165_ (let () (declare (not safe)) - (##cdr _e229385229665_))) - (_hd229384229668_ + (##cdr _e231880232160_))) + (_hd231879232163_ (let () (declare (not safe)) - (##car _e229385229665_)))) + (##car _e231880232160_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd229384229668_)) + _hd231879232163_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd229384229668_)) + _hd231879232163_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl229383229670_)) - (let ((_e229388229673_ + (gx#stx-pair? _tl231878232165_)) + (let ((_e231883232168_ (let () (declare (not safe)) - (gx#stx-e _tl229383229670_)))) - (let ((_tl229386229678_ + (gx#stx-e _tl231878232165_)))) + (let ((_tl231881232173_ (let () (declare (not safe)) - (##cdr _e229388229673_))) - (_hd229387229676_ + (##cdr _e231883232168_))) + (_hd231882232171_ (let () (declare (not safe)) - (##car _e229388229673_)))) + (##car _e231883232168_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229386229678_)) + (gx#stx-null? _tl231881232173_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl229356229598_)) + (gx#stx-null? _tl231851232093_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl229344229566_)) + (gx#stx-null? _tl231839232061_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl229323229510_)) + (gx#stx-null? _tl231818232005_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl229314229486_)) + _tl231809231981_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl229311229478_)) - (let ((_e229391229681_ + _tl231806231973_)) + (let ((_e231886232176_ (let () (declare (not safe)) (gx#stx-e - _tl229311229478_)))) - (let ((_tl229389229686_ + _tl231806231973_)))) + (let ((_tl231884232181_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e229391229681_))) - (_hd229390229684_ - (let () (declare (not safe)) (##car _e229391229681_)))) + (##cdr _e231886232176_))) + (_hd231885232179_ + (let () (declare (not safe)) (##car _e231886232176_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229390229684_)) - (let ((_e229394229689_ + (gx#stx-pair? _hd231885232179_)) + (let ((_e231889232184_ (let () (declare (not safe)) - (gx#stx-e _hd229390229684_)))) - (let ((_tl229392229694_ + (gx#stx-e _hd231885232179_)))) + (let ((_tl231887232189_ (let () (declare (not safe)) - (##cdr _e229394229689_))) - (_hd229393229692_ + (##cdr _e231889232184_))) + (_hd231888232187_ (let () (declare (not safe)) - (##car _e229394229689_)))) + (##car _e231889232184_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd229393229692_)) + (gx#identifier? _hd231888232187_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd229393229692_)) + (gx#stx-eq? '%#lambda _hd231888232187_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229392229694_)) - (let ((_e229397229697_ + (gx#stx-pair? _tl231887232189_)) + (let ((_e231892232192_ (let () (declare (not safe)) - (gx#stx-e _tl229392229694_)))) - (let ((_tl229395229702_ + (gx#stx-e _tl231887232189_)))) + (let ((_tl231890232197_ (let () (declare (not safe)) - (##cdr _e229397229697_))) - (_hd229396229700_ + (##cdr _e231892232192_))) + (_hd231891232195_ (let () (declare (not safe)) - (##car _e229397229697_)))) + (##car _e231892232192_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229395229702_)) - (let ((_e229400229705_ + (gx#stx-pair? _tl231890232197_)) + (let ((_e231895232200_ (let () (declare (not safe)) (gx#stx-e - _tl229395229702_)))) - (let ((_tl229398229710_ + _tl231890232197_)))) + (let ((_tl231893232205_ (let () (declare (not safe)) - (##cdr _e229400229705_))) - (_hd229399229708_ + (##cdr _e231895232200_))) + (_hd231894232203_ (let () (declare (not safe)) - (##car _e229400229705_)))) + (##car _e231895232200_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229399229708_)) - (let ((_e229403229713_ + _hd231894232203_)) + (let ((_e231898232208_ (let () (declare (not safe)) (gx#stx-e - _hd229399229708_)))) - (let ((_tl229401229718_ + _hd231894232203_)))) + (let ((_tl231896232213_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e229403229713_))) - (_hd229402229716_ - (let () (declare (not safe)) (##car _e229403229713_)))) + (##cdr _e231898232208_))) + (_hd231897232211_ + (let () (declare (not safe)) (##car _e231898232208_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd229402229716_)) + (gx#identifier? _hd231897232211_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd229402229716_)) + (gx#stx-eq? '%#call _hd231897232211_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229401229718_)) - (let ((_e229406229721_ + (gx#stx-pair? _tl231896232213_)) + (let ((_e231901232216_ (let () (declare (not safe)) - (gx#stx-e _tl229401229718_)))) - (let ((_tl229404229726_ + (gx#stx-e _tl231896232213_)))) + (let ((_tl231899232221_ (let () (declare (not safe)) - (##cdr _e229406229721_))) - (_hd229405229724_ + (##cdr _e231901232216_))) + (_hd231900232219_ (let () (declare (not safe)) - (##car _e229406229721_)))) + (##car _e231901232216_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229405229724_)) - (let ((_e229409229729_ + (gx#stx-pair? _hd231900232219_)) + (let ((_e231904232224_ (let () (declare (not safe)) - (gx#stx-e _hd229405229724_)))) - (let ((_tl229407229734_ + (gx#stx-e _hd231900232219_)))) + (let ((_tl231902232229_ (let () (declare (not safe)) - (##cdr _e229409229729_))) - (_hd229408229732_ + (##cdr _e231904232224_))) + (_hd231903232227_ (let () (declare (not safe)) - (##car _e229409229729_)))) + (##car _e231904232224_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd229408229732_)) + _hd231903232227_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd229408229732_)) + _hd231903232227_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl229407229734_)) - (let ((_e229412229737_ + _tl231902232229_)) + (let ((_e231907232232_ (let () (declare (not safe)) (gx#stx-e - _tl229407229734_)))) - (let ((_tl229410229742_ + _tl231902232229_)))) + (let ((_tl231905232237_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e229412229737_))) - (_hd229411229740_ - (let () (declare (not safe)) (##car _e229412229737_)))) + (##cdr _e231907232232_))) + (_hd231906232235_ + (let () (declare (not safe)) (##car _e231907232232_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229410229742_)) + (gx#stx-null? _tl231905232237_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229404229726_)) - (let ((_e229415229745_ + (gx#stx-pair? _tl231899232221_)) + (let ((_e231910232240_ (let () (declare (not safe)) - (gx#stx-e _tl229404229726_)))) - (let ((_tl229413229750_ + (gx#stx-e _tl231899232221_)))) + (let ((_tl231908232245_ (let () (declare (not safe)) - (##cdr _e229415229745_))) - (_hd229414229748_ + (##cdr _e231910232240_))) + (_hd231909232243_ (let () (declare (not safe)) - (##car _e229415229745_)))) + (##car _e231910232240_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229414229748_)) - (let ((_e229418229753_ + (gx#stx-pair? _hd231909232243_)) + (let ((_e231913232248_ (let () (declare (not safe)) - (gx#stx-e _hd229414229748_)))) - (let ((_tl229416229758_ + (gx#stx-e _hd231909232243_)))) + (let ((_tl231911232253_ (let () (declare (not safe)) - (##cdr _e229418229753_))) - (_hd229417229756_ + (##cdr _e231913232248_))) + (_hd231912232251_ (let () (declare (not safe)) - (##car _e229418229753_)))) + (##car _e231913232248_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd229417229756_)) + (gx#identifier? _hd231912232251_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd229417229756_)) + _hd231912232251_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl229416229758_)) - (let ((_e229421229761_ + _tl231911232253_)) + (let ((_e231916232256_ (let () (declare (not safe)) (gx#stx-e - _tl229416229758_)))) - (let ((_tl229419229766_ + _tl231911232253_)))) + (let ((_tl231914232261_ (let () (declare (not safe)) - (##cdr _e229421229761_))) - (_hd229420229764_ + (##cdr _e231916232256_))) + (_hd231915232259_ (let () (declare (not safe)) - (##car _e229421229761_)))) + (##car _e231916232256_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl229419229766_)) + _tl231914232261_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl229413229750_)) - (let ((_e229424229769_ + _tl231908232245_)) + (let ((_e231919232264_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl229413229750_)))) - (let ((_tl229422229774_ + (gx#stx-e _tl231908232245_)))) + (let ((_tl231917232269_ (let () (declare (not safe)) - (##cdr _e229424229769_))) - (_hd229423229772_ + (##cdr _e231919232264_))) + (_hd231918232267_ (let () (declare (not safe)) - (##car _e229424229769_)))) + (##car _e231919232264_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229423229772_)) - (let ((_e229427229777_ + (gx#stx-pair? _hd231918232267_)) + (let ((_e231922232272_ (let () (declare (not safe)) - (gx#stx-e _hd229423229772_)))) - (let ((_tl229425229782_ + (gx#stx-e _hd231918232267_)))) + (let ((_tl231920232277_ (let () (declare (not safe)) - (##cdr _e229427229777_))) - (_hd229426229780_ + (##cdr _e231922232272_))) + (_hd231921232275_ (let () (declare (not safe)) - (##car _e229427229777_)))) + (##car _e231922232272_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd229426229780_)) + (gx#identifier? _hd231921232275_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd229426229780_)) + _hd231921232275_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229425229782_)) - (let ((_e229430229785_ + (gx#stx-pair? _tl231920232277_)) + (let ((_e231925232280_ (let () (declare (not safe)) (gx#stx-e - _tl229425229782_)))) - (let ((_tl229428229790_ + _tl231920232277_)))) + (let ((_tl231923232285_ (let () (declare (not safe)) - (##cdr _e229430229785_))) - (_hd229429229788_ + (##cdr _e231925232280_))) + (_hd231924232283_ (let () (declare (not safe)) - (##car _e229430229785_)))) + (##car _e231925232280_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl229428229790_)) + _tl231923232285_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl229422229774_)) - (let ((_e229433229793_ + _tl231917232269_)) + (let ((_e231928232288_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl229422229774_)))) - (let ((_tl229431229798_ - (let () (declare (not safe)) (##cdr _e229433229793_))) - (_hd229432229796_ + (gx#stx-e _tl231917232269_)))) + (let ((_tl231926232293_ + (let () (declare (not safe)) (##cdr _e231928232288_))) + (_hd231927232291_ (let () (declare (not safe)) - (##car _e229433229793_)))) + (##car _e231928232288_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229432229796_)) - (let ((_e229436229801_ + (gx#stx-pair? _hd231927232291_)) + (let ((_e231931232296_ (let () (declare (not safe)) - (gx#stx-e _hd229432229796_)))) - (let ((_tl229434229806_ + (gx#stx-e _hd231927232291_)))) + (let ((_tl231929232301_ (let () (declare (not safe)) - (##cdr _e229436229801_))) - (_hd229435229804_ + (##cdr _e231931232296_))) + (_hd231930232299_ (let () (declare (not safe)) - (##car _e229436229801_)))) + (##car _e231931232296_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd229435229804_)) + (gx#identifier? _hd231930232299_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd229435229804_)) + (gx#stx-eq? '%#ref _hd231930232299_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229434229806_)) - (let ((_e229439229809_ + (gx#stx-pair? _tl231929232301_)) + (let ((_e231934232304_ (let () (declare (not safe)) - (gx#stx-e _tl229434229806_)))) - (let ((_tl229437229814_ + (gx#stx-e _tl231929232301_)))) + (let ((_tl231932232309_ (let () (declare (not safe)) - (##cdr _e229439229809_))) - (_hd229438229812_ + (##cdr _e231934232304_))) + (_hd231933232307_ (let () (declare (not safe)) - (##car _e229439229809_)))) + (##car _e231934232304_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl229437229814_)) + _tl231932232309_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl229431229798_)) - (let ((_e229442229817_ + _tl231926232293_)) + (let ((_e231937232312_ (let () (declare (not safe)) (gx#stx-e - _tl229431229798_)))) - (let ((_tl229440229822_ + _tl231926232293_)))) + (let ((_tl231935232317_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e229442229817_))) - (_hd229441229820_ - (let () (declare (not safe)) (##car _e229442229817_)))) + (##cdr _e231937232312_))) + (_hd231936232315_ + (let () (declare (not safe)) (##car _e231937232312_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229441229820_)) - (let ((_e229445229825_ + (gx#stx-pair? _hd231936232315_)) + (let ((_e231940232320_ (let () (declare (not safe)) - (gx#stx-e _hd229441229820_)))) - (let ((_tl229443229830_ + (gx#stx-e _hd231936232315_)))) + (let ((_tl231938232325_ (let () (declare (not safe)) - (##cdr _e229445229825_))) - (_hd229444229828_ + (##cdr _e231940232320_))) + (_hd231939232323_ (let () (declare (not safe)) - (##car _e229445229825_)))) + (##car _e231940232320_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd229444229828_)) + (gx#identifier? _hd231939232323_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd229444229828_)) + (gx#stx-eq? '%#ref _hd231939232323_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229443229830_)) - (let ((_e229448229833_ + (gx#stx-pair? _tl231938232325_)) + (let ((_e231943232328_ (let () (declare (not safe)) - (gx#stx-e _tl229443229830_)))) - (let ((_tl229446229838_ + (gx#stx-e _tl231938232325_)))) + (let ((_tl231941232333_ (let () (declare (not safe)) - (##cdr _e229448229833_))) - (_hd229447229836_ + (##cdr _e231943232328_))) + (_hd231942232331_ (let () (declare (not safe)) - (##car _e229448229833_)))) + (##car _e231943232328_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229446229838_)) + (gx#stx-null? _tl231941232333_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl229440229822_)) + _tl231935232317_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl229398229710_)) + _tl231893232205_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl229389229686_)) - (___kont240122240123_ - _hd229447229836_ - _hd229438229812_ - _hd229420229764_ - _hd229411229740_ - _hd229396229700_ - _hd229387229676_ - _hd229378229652_ - _hd229369229628_ - _hd229354229588_ - _hd229339229548_ - _hd229321229500_) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)))) - (___kont240124240125_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240124240125_)))) - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)))) - (___kont240124240125_)))) - (___kont240124240125_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)))) - (___kont240124240125_)))) - (___kont240124240125_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240124240125_)))) - (___kont240124240125_)))) - (___kont240124240125_)) - (___kont240124240125_)) - (___kont240124240125_)))) - (___kont240124240125_)))))) + _tl231884232181_)) + (___kont242717242718_ + _hd231942232331_ + _hd231933232307_ + _hd231915232259_ + _hd231906232235_ + _hd231891232195_ + _hd231882232171_ + _hd231873232147_ + _hd231864232123_ + _hd231849232083_ + _hd231834232043_ + _hd231816231995_) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)))) + (___kont242719242720_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242719242720_)))) + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)))) + (___kont242719242720_)))) + (___kont242719242720_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)))) + (___kont242719242720_)))) + (___kont242719242720_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont242719242720_)))) + (___kont242719242720_)))) + (___kont242719242720_)) + (___kont242719242720_)) + (___kont242719242720_)))) + (___kont242719242720_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_stx229034_ _id229035_ _clauses229036_ _gensym?229037_) - (let _lp229039_ ((_rest229041_ _clauses229036_) - (_ids229042_ '()) - (_impls229043_ '()) - (_clauses229044_ '())) - (let* ((_rest229045229053_ _rest229041_) - (_else229047229061_ + (lambda (_stx231529_ _id231530_ _clauses231531_ _gensym?231532_) + (let _lp231534_ ((_rest231536_ _clauses231531_) + (_ids231537_ '()) + (_impls231538_ '()) + (_clauses231539_ '())) + (let* ((_rest231540231548_ _rest231536_) + (_else231542231556_ (lambda () - (values (reverse _ids229042_) - (reverse _impls229043_) - (reverse _clauses229044_)))) - (_K229049229266_ - (lambda (_rest229064_ _clause229065_) + (values (reverse _ids231537_) + (reverse _impls231538_) + (reverse _clauses231539_)))) + (_K231544231761_ + (lambda (_rest231559_ _clause231560_) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _clause229065_)) - (let ((__tmp241199 + (gxc#dispatch-lambda-form? _clause231560_)) + (let ((__tmp243794 (let () (declare (not safe)) - (cons _clause229065_ _clauses229044_)))) + (cons _clause231560_ _clauses231539_)))) (declare (not safe)) - (_lp229039_ - _rest229064_ - _ids229042_ - _impls229043_ - __tmp241199)) - (let* ((_g229067229078_ - (lambda (_g229068229075_) + (_lp231534_ + _rest231559_ + _ids231537_ + _impls231538_ + __tmp243794)) + (let* ((_g231562231573_ + (lambda (_g231563231570_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g229068229075_)))) - (_g229066229263_ - (lambda (_g229068229081_) + _g231563231570_)))) + (_g231561231758_ + (lambda (_g231563231576_) (if (let () (declare (not safe)) - (gx#stx-pair? _g229068229081_)) - (let ((_e229073229083_ + (gx#stx-pair? _g231563231576_)) + (let ((_e231568231578_ (let () (declare (not safe)) - (gx#stx-e _g229068229081_)))) - (let ((_hd229072229086_ + (gx#stx-e _g231563231576_)))) + (let ((_hd231567231581_ (let () (declare (not safe)) - (##car _e229073229083_))) - (_tl229071229088_ + (##car _e231568231578_))) + (_tl231566231583_ (let () (declare (not safe)) - (##cdr _e229073229083_)))) - ((lambda (_L229091_ _L229092_) - (let* ((_id229109_ - (let ((__tmp241146 + (##cdr _e231568231578_)))) + ((lambda (_L231586_ _L231587_) + (let* ((_id231604_ + (let ((__tmp243741 (let () (declare (not safe)) (gx#stx-e - _id229035_))) - (__tmp241145 - (length _clauses229044_)) - (__tmp241144 - (if _gensym?229037_ + _id231530_))) + (__tmp243740 + (length _clauses231539_)) + (__tmp243739 + (if _gensym?231532_ (gensym '__) '""))) (declare (not safe)) (make-symbol__1 - __tmp241146 + __tmp243741 '"__" - __tmp241145 - __tmp241144))) - (_id229111_ - (let ((__tmp241147 + __tmp243740 + __tmp243739))) + (_id231606_ + (let ((__tmp243742 (let () (declare (not safe)) (gx#stx-source - _stx229034_)))) + _stx231529_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id229109_ - __tmp241147))) - (_impl229113_ - (let ((__tmp241148 - (let ((__tmp241150 + _id231604_ + __tmp243742))) + (_impl231608_ + (let ((__tmp243743 + (let ((__tmp243745 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp241149 + (__tmp243744 (let () (declare (not safe)) - (cons _L229092_ _L229091_)))) + (cons _L231587_ _L231586_)))) (declare (not safe)) - (cons __tmp241150 __tmp241149)))) + (cons __tmp243745 __tmp243744)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp241148 _stx229034_))) + (gxc#xform-wrap-source __tmp243743 _stx231529_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_clause229260_ - (let* ((___stx240504240505_ - _L229092_) - (_g229117229145_ + (_clause231755_ + (let* ((___stx243099243100_ + _L231587_) + (_g231612231640_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10605,1813 +10605,1813 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240504240505_))))) - (let ((___kont240506240507_ - (lambda (_L229239_) - (let ((__tmp241151 - (let ((__tmp241152 - (let ((__tmp241153 - (let ((__tmp241154 - (let ((__tmp241160 - (let ((__tmp241161 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id229111_ '())))) + ___stx243099243100_))))) + (let ((___kont243101243102_ + (lambda (_L231734_) + (let ((__tmp243746 + (let ((__tmp243747 + (let ((__tmp243748 + (let ((__tmp243749 + (let ((__tmp243755 + (let ((__tmp243756 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _id231606_ '())))) (declare (not safe)) - (cons '%#ref __tmp241161))) - (__tmp241155 - (let ((__tmp241156 - (lambda (_g229249229252_ _g229250229254_) - (let ((__tmp241157 - (let ((__tmp241159 + (cons '%#ref __tmp243756))) + (__tmp243750 + (let ((__tmp243751 + (lambda (_g231744231747_ _g231745231749_) + (let ((__tmp243752 + (let ((__tmp243754 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp241158 + (__tmp243753 (let () (declare (not safe)) - (cons _g229249229252_ '())))) + (cons _g231744231747_ '())))) (declare (not safe)) - (cons __tmp241159 __tmp241158)))) + (cons __tmp243754 __tmp243753)))) (declare (not safe)) - (cons __tmp241157 _g229250229254_))))) + (cons __tmp243752 _g231745231749_))))) (declare (not safe)) - (foldr1 __tmp241156 '() _L229239_)))) + (foldr1 __tmp243751 '() _L231734_)))) (declare (not safe)) - (cons __tmp241160 __tmp241155)))) + (cons __tmp243755 __tmp243750)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp241154)))) + (cons '%#call __tmp243749)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp241153 - _stx229034_)))) + __tmp243748 + _stx231529_)))) (declare (not safe)) - (cons __tmp241152 '())))) + (cons __tmp243747 '())))) (declare (not safe)) - (cons _L229092_ __tmp241151)))) - (___kont240510240511_ - (lambda (_L229190_ _L229191_) - (let ((__tmp241162 - (let ((__tmp241163 - (let ((__tmp241164 - (let ((__tmp241165 - (let ((__tmp241179 - (let ((__tmp241180 + (cons _L231587_ __tmp243746)))) + (___kont243105243106_ + (lambda (_L231685_ _L231686_) + (let ((__tmp243757 + (let ((__tmp243758 + (let ((__tmp243759 + (let ((__tmp243760 + (let ((__tmp243774 + (let ((__tmp243775 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp241180))) - (__tmp241166 - (let ((__tmp241177 - (let ((__tmp241178 + (cons '%#ref __tmp243775))) + (__tmp243761 + (let ((__tmp243772 + (let ((__tmp243773 (let () (declare (not safe)) - (cons _id229111_ '())))) + (cons _id231606_ '())))) (declare (not safe)) - (cons '%#ref __tmp241178))) - (__tmp241167 - (let ((__tmp241173 - (let ((__tmp241174 - (let ((__tmp241176 + (cons '%#ref __tmp243773))) + (__tmp243762 + (let ((__tmp243768 + (let ((__tmp243769 + (let ((__tmp243771 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp241175 + (__tmp243770 (let () (declare (not safe)) - (cons _L229190_ '())))) + (cons _L231685_ '())))) (declare (not safe)) - (cons __tmp241176 __tmp241175)))) + (cons __tmp243771 __tmp243770)))) (declare (not safe)) - (cons __tmp241174 '()))) - (__tmp241168 - (let ((__tmp241169 - (lambda (_g229202229205_ - _g229203229207_) - (let ((__tmp241170 - (let ((__tmp241172 + (cons __tmp243769 '()))) + (__tmp243763 + (let ((__tmp243764 + (lambda (_g231697231700_ + _g231698231702_) + (let ((__tmp243765 + (let ((__tmp243767 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp241171 + (__tmp243766 (let () (declare (not safe)) - (cons _g229202229205_ + (cons _g231697231700_ '())))) (declare (not safe)) - (cons __tmp241172 - __tmp241171)))) + (cons __tmp243767 + __tmp243766)))) (declare (not safe)) - (cons __tmp241170 - _g229203229207_))))) + (cons __tmp243765 + _g231698231702_))))) (declare (not safe)) - (foldr1 __tmp241169 '() _L229191_)))) + (foldr1 __tmp243764 '() _L231686_)))) (declare (not safe)) - (foldr1 cons __tmp241173 __tmp241168)))) + (foldr1 cons __tmp243768 __tmp243763)))) (declare (not safe)) - (cons __tmp241177 __tmp241167)))) + (cons __tmp243772 __tmp243762)))) (declare (not safe)) - (cons __tmp241179 __tmp241166)))) + (cons __tmp243774 __tmp243761)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp241165)))) + (cons '%#call __tmp243760)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp241164 - _stx229034_)))) + __tmp243759 + _stx231529_)))) (declare (not safe)) - (cons __tmp241163 '())))) + (cons __tmp243758 '())))) (declare (not safe)) - (cons _L229092_ __tmp241162)))) - (___kont240514240515_ - (lambda (_L229150_) - (let ((__tmp241181 - (let ((__tmp241182 - (let ((__tmp241183 - (let ((__tmp241184 - (let ((__tmp241192 - (let ((__tmp241193 + (cons _L231587_ __tmp243757)))) + (___kont243109243110_ + (lambda (_L231645_) + (let ((__tmp243776 + (let ((__tmp243777 + (let ((__tmp243778 + (let ((__tmp243779 + (let ((__tmp243787 + (let ((__tmp243788 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp241193))) - (__tmp241185 - (let ((__tmp241190 - (let ((__tmp241191 + (cons '%#ref __tmp243788))) + (__tmp243780 + (let ((__tmp243785 + (let ((__tmp243786 (let () (declare (not safe)) - (cons _id229111_ '())))) + (cons _id231606_ '())))) (declare (not safe)) - (cons '%#ref __tmp241191))) - (__tmp241186 - (let ((__tmp241187 - (let ((__tmp241189 + (cons '%#ref __tmp243786))) + (__tmp243781 + (let ((__tmp243782 + (let ((__tmp243784 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp241188 + (__tmp243783 (let () (declare (not safe)) - (cons _L229150_ '())))) + (cons _L231645_ '())))) (declare (not safe)) - (cons __tmp241189 __tmp241188)))) + (cons __tmp243784 __tmp243783)))) (declare (not safe)) - (cons __tmp241187 '())))) + (cons __tmp243782 '())))) (declare (not safe)) - (cons __tmp241190 __tmp241186)))) + (cons __tmp243785 __tmp243781)))) (declare (not safe)) - (cons __tmp241192 __tmp241185)))) + (cons __tmp243787 __tmp243780)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp241184)))) + (cons '%#call __tmp243779)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp241183 - _stx229034_)))) + __tmp243778 + _stx231529_)))) (declare (not safe)) - (cons __tmp241182 '())))) + (cons __tmp243777 '())))) (declare (not safe)) - (cons _L229092_ __tmp241181))))) - (let* ((___match240529240530_ - (lambda (___splice240512240513_ - _target229131229166_ - _tl229133229168_) - (letrec ((_loop229134229171_ - (lambda (_hd229132229174_ - _arg229138229176_) + (cons _L231587_ __tmp243776))))) + (let* ((___match243124243125_ + (lambda (___splice243107243108_ + _target231626231661_ + _tl231628231663_) + (letrec ((_loop231629231666_ + (lambda (_hd231627231669_ + _arg231633231671_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229132229174_)) - (let ((_e229135229179_ + (gx#stx-pair? _hd231627231669_)) + (let ((_e231630231674_ (let () (declare (not safe)) (gx#stx-e - _hd229132229174_)))) - (let ((_lp-tl229137229184_ + _hd231627231669_)))) + (let ((_lp-tl231632231679_ (let () (declare (not safe)) - (##cdr _e229135229179_))) - (_lp-hd229136229182_ + (##cdr _e231630231674_))) + (_lp-hd231631231677_ (let () (declare (not safe)) - (##car _e229135229179_)))) - (let ((__tmp241194 + (##car _e231630231674_)))) + (let ((__tmp243789 (let () (declare (not safe)) - (cons _lp-hd229136229182_ - _arg229138229176_)))) + (cons _lp-hd231631231677_ + _arg231633231671_)))) (declare (not safe)) - (_loop229134229171_ - _lp-tl229137229184_ - __tmp241194)))) - (let ((_arg229139229187_ - (reverse _arg229138229176_))) - (___kont240510240511_ - _tl229133229168_ - _arg229139229187_)))))) + (_loop231629231666_ + _lp-tl231632231679_ + __tmp243789)))) + (let ((_arg231634231682_ + (reverse _arg231633231671_))) + (___kont243105243106_ + _tl231628231663_ + _arg231634231682_)))))) (let () (declare (not safe)) - (_loop229134229171_ - _target229131229166_ + (_loop231629231666_ + _target231626231661_ '()))))) - (___match240523240524_ - (lambda (___splice240508240509_ - _target229120229215_ - _tl229122229217_) - (letrec ((_loop229123229220_ - (lambda (_hd229121229223_ - _arg229127229225_) + (___match243118243119_ + (lambda (___splice243103243104_ + _target231615231710_ + _tl231617231712_) + (letrec ((_loop231618231715_ + (lambda (_hd231616231718_ + _arg231622231720_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229121229223_)) - (let ((_e229124229228_ + (gx#stx-pair? _hd231616231718_)) + (let ((_e231619231723_ (let () (declare (not safe)) (gx#stx-e - _hd229121229223_)))) - (let ((_lp-tl229126229233_ + _hd231616231718_)))) + (let ((_lp-tl231621231728_ (let () (declare (not safe)) - (##cdr _e229124229228_))) - (_lp-hd229125229231_ + (##cdr _e231619231723_))) + (_lp-hd231620231726_ (let () (declare (not safe)) - (##car _e229124229228_)))) - (let ((__tmp241195 + (##car _e231619231723_)))) + (let ((__tmp243790 (let () (declare (not safe)) - (cons _lp-hd229125229231_ - _arg229127229225_)))) + (cons _lp-hd231620231726_ + _arg231622231720_)))) (declare (not safe)) - (_loop229123229220_ - _lp-tl229126229233_ - __tmp241195)))) - (let ((_arg229128229236_ - (reverse _arg229127229225_))) - (___kont240506240507_ - _arg229128229236_)))))) + (_loop231618231715_ + _lp-tl231621231728_ + __tmp243790)))) + (let ((_arg231623231731_ + (reverse _arg231622231720_))) + (___kont243101243102_ + _arg231623231731_)))))) (let () (declare (not safe)) - (_loop229123229220_ - _target229120229215_ + (_loop231618231715_ + _target231615231710_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? ___stx240504240505_)) - (let ((___splice240508240509_ + (gx#stx-pair/null? ___stx243099243100_)) + (let ((___splice243103243104_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx240504240505_ + ___stx243099243100_ '0)))) - (let ((_tl229122229217_ + (let ((_tl231617231712_ (let () (declare (not safe)) - (##vector-ref ___splice240508240509_ '1))) - (_target229120229215_ + (##vector-ref ___splice243103243104_ '1))) + (_target231615231710_ (let () (declare (not safe)) - (##vector-ref ___splice240508240509_ '0)))) + (##vector-ref ___splice243103243104_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229122229217_)) - (___match240523240524_ - ___splice240508240509_ - _target229120229215_ - _tl229122229217_) - (___match240529240530_ - ___splice240508240509_ - _target229120229215_ - _tl229122229217_)))) - (___kont240514240515_ ___stx240504240505_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp241198 + (gx#stx-null? _tl231617231712_)) + (___match243118243119_ + ___splice243103243104_ + _target231615231710_ + _tl231617231712_) + (___match243124243125_ + ___splice243103243104_ + _target231615231710_ + _tl231617231712_)))) + (___kont243109243110_ ___stx243099243100_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp243793 (let () (declare (not safe)) - (cons _id229111_ - _ids229042_))) - (__tmp241197 + (cons _id231606_ + _ids231537_))) + (__tmp243792 (let () (declare (not safe)) - (cons _impl229113_ - _impls229043_))) - (__tmp241196 + (cons _impl231608_ + _impls231538_))) + (__tmp243791 (let () (declare (not safe)) - (cons _clause229260_ - _clauses229044_)))) + (cons _clause231755_ + _clauses231539_)))) (declare (not safe)) - (_lp229039_ - _rest229064_ - __tmp241198 - __tmp241197 - __tmp241196)))) - _tl229071229088_ - _hd229072229086_))) + (_lp231534_ + _rest231559_ + __tmp243793 + __tmp243792 + __tmp243791)))) + _tl231566231583_ + _hd231567231581_))) (let () (declare (not safe)) - (_g229067229078_ _g229068229081_)))))) + (_g231562231573_ _g231563231576_)))))) (declare (not safe)) - (_g229066229263_ _clause229065_)))))) - (if (let () (declare (not safe)) (##pair? _rest229045229053_)) - (let ((_hd229050229269_ + (_g231561231758_ _clause231560_)))))) + (if (let () (declare (not safe)) (##pair? _rest231540231548_)) + (let ((_hd231545231764_ (let () (declare (not safe)) - (##car _rest229045229053_))) - (_tl229051229271_ + (##car _rest231540231548_))) + (_tl231546231766_ (let () (declare (not safe)) - (##cdr _rest229045229053_)))) - (let* ((_clause229274_ _hd229050229269_) - (_rest229276_ _tl229051229271_)) + (##cdr _rest231540231548_)))) + (let* ((_clause231769_ _hd231545231764_) + (_rest231771_ _tl231546231766_)) (declare (not safe)) - (_K229049229266_ _rest229276_ _clause229274_))) - (let () (declare (not safe)) (_else229047229061_))))))) + (_K231544231761_ _rest231771_ _clause231769_))) + (let () (declare (not safe)) (_else231542231556_))))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_stx229281_ _id229282_ _clauses229283_) - (let ((_gensym?229285_ '#f)) + (lambda (_stx231776_ _id231777_ _clauses231778_) + (let ((_gensym?231780_ '#f)) (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx229281_ - _id229282_ - _clauses229283_ - _gensym?229285_)))) + _stx231776_ + _id231777_ + _clauses231778_ + _gensym?231780_)))) (define gxc#lift-case-lambda-clauses - (lambda _g241201_ - (let ((_g241200_ (let () (declare (not safe)) (##length _g241201_)))) - (cond ((let () (declare (not safe)) (##fx= _g241200_ 3)) - (apply (lambda (_stx229281_ _id229282_ _clauses229283_) + (lambda _g243796_ + (let ((_g243795_ (let () (declare (not safe)) (##length _g243796_)))) + (cond ((let () (declare (not safe)) (##fx= _g243795_ 3)) + (apply (lambda (_stx231776_ _id231777_ _clauses231778_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx229281_ - _id229282_ - _clauses229283_))) - _g241201_)) - ((let () (declare (not safe)) (##fx= _g241200_ 4)) - (apply (lambda (_stx229287_ - _id229288_ - _clauses229289_ - _gensym?229290_) + _stx231776_ + _id231777_ + _clauses231778_))) + _g243796_)) + ((let () (declare (not safe)) (##fx= _g243795_ 4)) + (apply (lambda (_stx231782_ + _id231783_ + _clauses231784_ + _gensym?231785_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx229287_ - _id229288_ - _clauses229289_ - _gensym?229290_))) - _g241201_)) + _stx231782_ + _id231783_ + _clauses231784_ + _gensym?231785_))) + _g243796_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g241201_)))))) + _g243796_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_stx228311_) - (letrec ((_case-lambda-clause-def228313_ - (lambda (_id229030_ _impl229031_) - (let ((__tmp241202 - (let ((__tmp241203 - (let ((__tmp241206 + (lambda (_stx230806_) + (letrec ((_case-lambda-clause-def230808_ + (lambda (_id231525_ _impl231526_) + (let ((__tmp243797 + (let ((__tmp243798 + (let ((__tmp243801 (let () (declare (not safe)) - (cons _id229030_ '()))) - (__tmp241204 - (let ((__tmp241205 + (cons _id231525_ '()))) + (__tmp243799 + (let ((__tmp243800 (let () (declare (not safe)) (gxc#compile-e__0 - _impl229031_)))) + _impl231526_)))) (declare (not safe)) - (cons __tmp241205 '())))) + (cons __tmp243800 '())))) (declare (not safe)) - (cons __tmp241206 __tmp241204)))) + (cons __tmp243801 __tmp243799)))) (declare (not safe)) - (cons '%#define-values __tmp241203)))) + (cons '%#define-values __tmp243798)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp241202 _stx228311_)))) - (_opt-lambda-dispatch-name228314_ - (lambda (_id229026_) - (if (uninterned-symbol? _id229026_) - (let ((_str229028_ (symbol->string _id229026_))) + (gxc#xform-wrap-source __tmp243797 _stx230806_)))) + (_opt-lambda-dispatch-name230809_ + (lambda (_id231521_) + (if (uninterned-symbol? _id231521_) + (let ((_str231523_ (symbol->string _id231521_))) (if (let () (declare (not safe)) - (string-prefix? '"opt-lambda" _str229028_)) + (string-prefix? '"opt-lambda" _str231523_)) '"%" - _id229026_)) - _id229026_))) - (_kw-lambda-dispatch-name228315_ - (lambda (_id229021_ _name229022_) - (if (uninterned-symbol? _id229021_) - (let ((_str229024_ (symbol->string _id229021_))) + _id231521_)) + _id231521_))) + (_kw-lambda-dispatch-name230810_ + (lambda (_id231516_ _name231517_) + (if (uninterned-symbol? _id231516_) + (let ((_str231519_ (symbol->string _id231516_))) (if (let () (declare (not safe)) - (string-prefix? '"kw-lambda" _str229024_)) - _name229022_ - _id229021_)) - _id229021_)))) - (let* ((___stx240552240553_ _stx228311_) - (_g228320228379_ + (string-prefix? '"kw-lambda" _str231519_)) + _name231517_ + _id231516_)) + _id231516_)))) + (let* ((___stx243147243148_ _stx230806_) + (_g230815230874_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240552240553_))))) - (let ((___kont240554240555_ - (lambda (_L228930_ _L228931_) - (let* ((___stx240532240533_ _L228930_) - (_g228948228962_ + ___stx243147243148_))))) + (let ((___kont243149243150_ + (lambda (_L231425_ _L231426_) + (let* ((___stx243127243128_ _L231425_) + (_g231443231457_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240532240533_))))) - (let ((___kont240534240535_ - (lambda (_L229006_) _stx228311_)) - (___kont240536240537_ - (lambda (_L228975_) - (let ((_g241207_ + ___stx243127243128_))))) + (let ((___kont243129243130_ + (lambda (_L231501_) _stx230806_)) + (___kont243131243132_ + (lambda (_L231470_) + (let ((_g243802_ (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx228311_ - _L228931_ - _L228975_)))) + _stx230806_ + _L231426_ + _L231470_)))) (begin - (let ((_g241208_ + (let ((_g243803_ (let () (declare (not safe)) - (if (##values? _g241207_) - (##vector-length _g241207_) + (if (##values? _g243802_) + (##vector-length _g243802_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g241208_ 3))) + (##fx= _g243803_ 3))) (error "Context expects 3 values" - _g241208_))) - (let ((_ids228985_ + _g243803_))) + (let ((_ids231480_ (let () (declare (not safe)) - (##vector-ref _g241207_ 0))) - (_impls228986_ + (##vector-ref _g243802_ 0))) + (_impls231481_ (let () (declare (not safe)) - (##vector-ref _g241207_ 1))) - (_clauses228987_ + (##vector-ref _g243802_ 1))) + (_clauses231482_ (let () (declare (not safe)) - (##vector-ref _g241207_ 2)))) - (let* ((_g241209_ + (##vector-ref _g243802_ 2)))) + (let* ((_g243804_ (for-each gx#core-bind-runtime! - _ids228985_)) - (_defs228990_ - (map _case-lambda-clause-def228313_ - _ids228985_ - _impls228986_))) - (let ((__tmp241211 + _ids231480_)) + (_defs231485_ + (map _case-lambda-clause-def230808_ + _ids231480_ + _impls231481_))) + (let ((__tmp243806 (let () (declare (not safe)) (gxc#identifier-symbol - _L228931_))) - (__tmp241210 + _L231426_))) + (__tmp243805 (map gxc#identifier-symbol - _ids228985_))) + _ids231480_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp241211 + __tmp243806 '" => " - __tmp241210)) - (let ((__tmp241212 - (let ((__tmp241213 - (let ((__tmp241214 - (let ((__tmp241215 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp241216 - (let ((__tmp241217 - (let ((__tmp241222 + __tmp243805)) + (let ((__tmp243807 + (let ((__tmp243808 + (let ((__tmp243809 + (let ((__tmp243810 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp243811 + (let ((__tmp243812 + (let ((__tmp243817 (let () (declare (not safe)) - (cons _L228931_ '()))) - (__tmp241218 - (let ((__tmp241219 - (let ((__tmp241221 + (cons _L231426_ '()))) + (__tmp243813 + (let ((__tmp243814 + (let ((__tmp243816 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons '%#case-lambda _clauses228987_))) - (__tmp241220 + (cons '%#case-lambda _clauses231482_))) + (__tmp243815 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda-expr)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp241221 __tmp241220)))) + (gxc#xform-wrap-source __tmp243816 __tmp243815)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp241219 '())))) + (cons __tmp243814 '())))) (declare (not safe)) - (cons __tmp241222 __tmp241218)))) + (cons __tmp243817 __tmp243813)))) (declare (not safe)) - (cons '%#define-values __tmp241217)))) + (cons '%#define-values __tmp243812)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp241216 - _stx228311_)))) + __tmp243811 + _stx230806_)))) (declare (not safe)) - (cons __tmp241215 '())))) + (cons __tmp243810 '())))) (declare (not safe)) - (foldr1 cons __tmp241214 _defs228990_)))) + (foldr1 cons __tmp243809 _defs231485_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#begin __tmp241213)))) + (cons '%#begin __tmp243808)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp241212 - _stx228311_))))))))) - (let ((___match240543240544_ - (lambda (_e228953228998_ - _hd228952229001_ - _tl228951229003_) - (let ((_L229006_ _tl228951229003_)) + __tmp243807 + _stx230806_))))))))) + (let ((___match243138243139_ + (lambda (_e231448231493_ + _hd231447231496_ + _tl231446231498_) + (let ((_L231501_ _tl231446231498_)) (if (let () (declare (not safe)) (andmap1 gxc#dispatch-lambda-form? - _L229006_)) - (___kont240534240535_ _L229006_) - (___kont240536240537_ - _tl228951229003_)))))) + _L231501_)) + (___kont243129243130_ _L231501_) + (___kont243131243132_ + _tl231446231498_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx240532240533_)) - (let ((_e228953228998_ + (gx#stx-pair? ___stx243127243128_)) + (let ((_e231448231493_ (let () (declare (not safe)) - (gx#stx-e ___stx240532240533_)))) - (let ((_tl228951229003_ + (gx#stx-e ___stx243127243128_)))) + (let ((_tl231446231498_ (let () (declare (not safe)) - (##cdr _e228953228998_))) - (_hd228952229001_ + (##cdr _e231448231493_))) + (_hd231447231496_ (let () (declare (not safe)) - (##car _e228953228998_)))) - (___match240543240544_ - _e228953228998_ - _hd228952229001_ - _tl228951229003_))) + (##car _e231448231493_)))) + (___match243138243139_ + _e231448231493_ + _hd231447231496_ + _tl231446231498_))) (let () (declare (not safe)) - (_g228948228962_)))))))) - (___kont240556240557_ - (lambda (_L228748_ _L228749_) - (let* ((_g228765228795_ - (lambda (_g228766228792_) + (_g231443231457_)))))))) + (___kont243151243152_ + (lambda (_L231243_ _L231244_) + (let* ((_g231260231290_ + (lambda (_g231261231287_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g228766228792_)))) - (_g228764228890_ - (lambda (_g228766228798_) + _g231261231287_)))) + (_g231259231385_ + (lambda (_g231261231293_) (if (let () (declare (not safe)) - (gx#stx-pair? _g228766228798_)) - (let ((_e228772228800_ + (gx#stx-pair? _g231261231293_)) + (let ((_e231267231295_ (let () (declare (not safe)) - (gx#stx-e _g228766228798_)))) - (let ((_hd228771228803_ + (gx#stx-e _g231261231293_)))) + (let ((_hd231266231298_ (let () (declare (not safe)) - (##car _e228772228800_))) - (_tl228770228805_ + (##car _e231267231295_))) + (_tl231265231300_ (let () (declare (not safe)) - (##cdr _e228772228800_)))) + (##cdr _e231267231295_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl228770228805_)) - (let ((_e228775228808_ + (gx#stx-pair? _tl231265231300_)) + (let ((_e231270231303_ (let () (declare (not safe)) (gx#stx-e - _tl228770228805_)))) - (let ((_hd228774228811_ + _tl231265231300_)))) + (let ((_hd231269231306_ (let () (declare (not safe)) - (##car _e228775228808_))) - (_tl228773228813_ + (##car _e231270231303_))) + (_tl231268231308_ (let () (declare (not safe)) - (##cdr _e228775228808_)))) + (##cdr _e231270231303_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd228774228811_)) - (let ((_e228778228816_ + _hd231269231306_)) + (let ((_e231273231311_ (let () (declare (not safe)) (gx#stx-e - _hd228774228811_)))) - (let ((_hd228777228819_ + _hd231269231306_)))) + (let ((_hd231272231314_ (let () (declare (not safe)) - (##car _e228778228816_))) - (_tl228776228821_ + (##car _e231273231311_))) + (_tl231271231316_ (let () (declare (not safe)) - (##cdr _e228778228816_)))) + (##cdr _e231273231311_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd228777228819_)) - (let ((_e228781228824_ + _hd231272231314_)) + (let ((_e231276231319_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd228777228819_)))) - (let ((_hd228780228827_ + (gx#stx-e _hd231272231314_)))) + (let ((_hd231275231322_ (let () (declare (not safe)) - (##car _e228781228824_))) - (_tl228779228829_ + (##car _e231276231319_))) + (_tl231274231324_ (let () (declare (not safe)) - (##cdr _e228781228824_)))) + (##cdr _e231276231319_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd228780228827_)) - (let ((_e228784228832_ + (gx#stx-pair? _hd231275231322_)) + (let ((_e231279231327_ (let () (declare (not safe)) - (gx#stx-e _hd228780228827_)))) - (let ((_hd228783228835_ + (gx#stx-e _hd231275231322_)))) + (let ((_hd231278231330_ (let () (declare (not safe)) - (##car _e228784228832_))) - (_tl228782228837_ + (##car _e231279231327_))) + (_tl231277231332_ (let () (declare (not safe)) - (##cdr _e228784228832_)))) + (##cdr _e231279231327_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl228782228837_)) + (gx#stx-null? _tl231277231332_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl228779228829_)) - (let ((_e228787228840_ + (gx#stx-pair? _tl231274231324_)) + (let ((_e231282231335_ (let () (declare (not safe)) - (gx#stx-e _tl228779228829_)))) - (let ((_hd228786228843_ + (gx#stx-e _tl231274231324_)))) + (let ((_hd231281231338_ (let () (declare (not safe)) - (##car _e228787228840_))) - (_tl228785228845_ + (##car _e231282231335_))) + (_tl231280231340_ (let () (declare (not safe)) - (##cdr _e228787228840_)))) + (##cdr _e231282231335_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl228785228845_)) + _tl231280231340_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl228776228821_)) + _tl231271231316_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl228773228813_)) - (let ((_e228790228848_ + _tl231268231308_)) + (let ((_e231285231343_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl228773228813_)))) - (let ((_hd228789228851_ - (let () (declare (not safe)) (##car _e228790228848_))) - (_tl228788228853_ - (let () (declare (not safe)) (##cdr _e228790228848_)))) + (gx#stx-e _tl231268231308_)))) + (let ((_hd231284231346_ + (let () (declare (not safe)) (##car _e231285231343_))) + (_tl231283231348_ + (let () (declare (not safe)) (##cdr _e231285231343_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl228788228853_)) - ((lambda (_L228856_ _L228857_ _L228858_) - (let* ((_lambda-id228882_ - (let ((__tmp241225 + (gx#stx-null? _tl231283231348_)) + ((lambda (_L231351_ _L231352_ _L231353_) + (let* ((_lambda-id231377_ + (let ((__tmp243820 (let () (declare (not safe)) - (gx#stx-e _L228749_))) - (__tmp241223 - (let ((__tmp241224 + (gx#stx-e _L231244_))) + (__tmp243818 + (let ((__tmp243819 (let () (declare (not safe)) - (gx#stx-e _L228858_)))) + (gx#stx-e _L231353_)))) (declare (not safe)) - (_opt-lambda-dispatch-name228314_ - __tmp241224)))) + (_opt-lambda-dispatch-name230809_ + __tmp243819)))) (declare (not safe)) (make-symbol__1 - __tmp241225 + __tmp243820 '"__" - __tmp241223))) - (_lambda-id228884_ - (let ((__tmp241226 + __tmp243818))) + (_lambda-id231379_ + (let ((__tmp243821 (let () (declare (not safe)) - (gx#stx-source _stx228311_)))) + (gx#stx-source _stx230806_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _lambda-id228882_ - __tmp241226))) - (_g241227_ + _lambda-id231377_ + __tmp243821))) + (_g243822_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lambda-id228884_))) - (_new-case-lambda-expr228887_ + _lambda-id231379_))) + (_new-case-lambda-expr231382_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L228856_ - _L228858_ - _lambda-id228884_)))) - (let ((__tmp241229 + _L231351_ + _L231353_ + _lambda-id231379_)))) + (let ((__tmp243824 (let () (declare (not safe)) - (gxc#identifier-symbol _L228749_))) - (__tmp241228 + (gxc#identifier-symbol _L231244_))) + (__tmp243823 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id228884_)))) + _lambda-id231379_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp241229 + __tmp243824 '" => " - __tmp241228)) - (let ((__tmp241230 - (let ((__tmp241231 - (let ((__tmp241239 - (let ((__tmp241240 - (let ((__tmp241241 - (let ((__tmp241244 + __tmp243823)) + (let ((__tmp243825 + (let ((__tmp243826 + (let ((__tmp243834 + (let ((__tmp243835 + (let ((__tmp243836 + (let ((__tmp243839 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _lambda-id228884_ '()))) - (__tmp241242 - (let ((__tmp241243 + (cons _lambda-id231379_ '()))) + (__tmp243837 + (let ((__tmp243838 (let () (declare (not safe)) - (gxc#compile-e__0 _L228857_)))) + (gxc#compile-e__0 _L231352_)))) (declare (not safe)) - (cons __tmp241243 '())))) + (cons __tmp243838 '())))) (declare (not safe)) - (cons __tmp241244 __tmp241242)))) + (cons __tmp243839 __tmp243837)))) (declare (not safe)) - (cons '%#define-values __tmp241241)))) + (cons '%#define-values __tmp243836)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp241240 - _stx228311_))) - (__tmp241232 - (let ((__tmp241233 - (let ((__tmp241234 - (let ((__tmp241235 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp241236 - (let ((__tmp241238 + __tmp243835 + _stx230806_))) + (__tmp243827 + (let ((__tmp243828 + (let ((__tmp243829 + (let ((__tmp243830 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp243831 + (let ((__tmp243833 (let () (declare (not safe)) - (cons _L228749_ '()))) - (__tmp241237 + (cons _L231244_ '()))) + (__tmp243832 (let () (declare (not safe)) - (cons _new-case-lambda-expr228887_ + (cons _new-case-lambda-expr231382_ '())))) (declare (not safe)) - (cons __tmp241238 __tmp241237)))) + (cons __tmp243833 __tmp243832)))) (declare (not safe)) - (cons '%#define-values __tmp241236)))) + (cons '%#define-values __tmp243831)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp241235 _stx228311_)))) + (gxc#xform-wrap-source __tmp243830 _stx230806_)))) (declare (not safe)) - (gxc#lift-top-lambda-define-values% __tmp241234)))) + (gxc#lift-top-lambda-define-values% __tmp243829)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp241233 '())))) + (cons __tmp243828 '())))) (declare (not safe)) - (cons __tmp241239 __tmp241232)))) + (cons __tmp243834 __tmp243827)))) (declare (not safe)) - (cons '%#begin __tmp241231)))) + (cons '%#begin __tmp243826)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp241230 - _stx228311_)))) - _hd228789228851_ - _hd228786228843_ - _hd228783228835_) + __tmp243825 + _stx230806_)))) + _hd231284231346_ + _hd231281231338_ + _hd231278231330_) (let () (declare (not safe)) - (_g228765228795_ _g228766228798_))))) - (let () (declare (not safe)) (_g228765228795_ _g228766228798_))) + (_g231260231290_ _g231261231293_))))) + (let () (declare (not safe)) (_g231260231290_ _g231261231293_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g228765228795_ - _g228766228798_))) + (_g231260231290_ + _g231261231293_))) (let () (declare (not safe)) - (_g228765228795_ - _g228766228798_))))) + (_g231260231290_ + _g231261231293_))))) (let () (declare (not safe)) - (_g228765228795_ _g228766228798_))) + (_g231260231290_ _g231261231293_))) (let () (declare (not safe)) - (_g228765228795_ _g228766228798_))))) + (_g231260231290_ _g231261231293_))))) (let () (declare (not safe)) - (_g228765228795_ _g228766228798_))))) + (_g231260231290_ _g231261231293_))))) (let () (declare (not safe)) - (_g228765228795_ _g228766228798_))))) + (_g231260231290_ _g231261231293_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g228765228795_ - _g228766228798_))))) + (_g231260231290_ + _g231261231293_))))) (let () (declare (not safe)) - (_g228765228795_ - _g228766228798_))))) + (_g231260231290_ + _g231261231293_))))) (let () (declare (not safe)) - (_g228765228795_ _g228766228798_)))))) + (_g231260231290_ _g231261231293_)))))) (declare (not safe)) - (_g228764228890_ _L228748_)))) - (___kont240558240559_ - (lambda (_L228462_ _L228463_) - (let* ((_g228479228532_ - (lambda (_g228480228529_) + (_g231259231385_ _L231243_)))) + (___kont243153243154_ + (lambda (_L230957_ _L230958_) + (let* ((_g230974231027_ + (lambda (_g230975231024_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g228480228529_)))) - (_g228478228708_ - (lambda (_g228480228535_) + _g230975231024_)))) + (_g230973231203_ + (lambda (_g230975231030_) (if (let () (declare (not safe)) - (gx#stx-pair? _g228480228535_)) - (let ((_e228488228537_ + (gx#stx-pair? _g230975231030_)) + (let ((_e230983231032_ (let () (declare (not safe)) - (gx#stx-e _g228480228535_)))) - (let ((_hd228487228540_ + (gx#stx-e _g230975231030_)))) + (let ((_hd230982231035_ (let () (declare (not safe)) - (##car _e228488228537_))) - (_tl228486228542_ + (##car _e230983231032_))) + (_tl230981231037_ (let () (declare (not safe)) - (##cdr _e228488228537_)))) + (##cdr _e230983231032_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl228486228542_)) - (let ((_e228491228545_ + (gx#stx-pair? _tl230981231037_)) + (let ((_e230986231040_ (let () (declare (not safe)) (gx#stx-e - _tl228486228542_)))) - (let ((_hd228490228548_ + _tl230981231037_)))) + (let ((_hd230985231043_ (let () (declare (not safe)) - (##car _e228491228545_))) - (_tl228489228550_ + (##car _e230986231040_))) + (_tl230984231045_ (let () (declare (not safe)) - (##cdr _e228491228545_)))) + (##cdr _e230986231040_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd228490228548_)) - (let ((_e228494228553_ + _hd230985231043_)) + (let ((_e230989231048_ (let () (declare (not safe)) (gx#stx-e - _hd228490228548_)))) - (let ((_hd228493228556_ + _hd230985231043_)))) + (let ((_hd230988231051_ (let () (declare (not safe)) - (##car _e228494228553_))) - (_tl228492228558_ + (##car _e230989231048_))) + (_tl230987231053_ (let () (declare (not safe)) - (##cdr _e228494228553_)))) + (##cdr _e230989231048_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd228493228556_)) - (let ((_e228497228561_ + _hd230988231051_)) + (let ((_e230992231056_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd228493228556_)))) - (let ((_hd228496228564_ + (gx#stx-e _hd230988231051_)))) + (let ((_hd230991231059_ (let () (declare (not safe)) - (##car _e228497228561_))) - (_tl228495228566_ + (##car _e230992231056_))) + (_tl230990231061_ (let () (declare (not safe)) - (##cdr _e228497228561_)))) + (##cdr _e230992231056_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd228496228564_)) - (let ((_e228500228569_ + (gx#stx-pair? _hd230991231059_)) + (let ((_e230995231064_ (let () (declare (not safe)) - (gx#stx-e _hd228496228564_)))) - (let ((_hd228499228572_ + (gx#stx-e _hd230991231059_)))) + (let ((_hd230994231067_ (let () (declare (not safe)) - (##car _e228500228569_))) - (_tl228498228574_ + (##car _e230995231064_))) + (_tl230993231069_ (let () (declare (not safe)) - (##cdr _e228500228569_)))) + (##cdr _e230995231064_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl228498228574_)) + (gx#stx-null? _tl230993231069_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl228495228566_)) - (let ((_e228503228577_ + (gx#stx-pair? _tl230990231061_)) + (let ((_e230998231072_ (let () (declare (not safe)) - (gx#stx-e _tl228495228566_)))) - (let ((_hd228502228580_ + (gx#stx-e _tl230990231061_)))) + (let ((_hd230997231075_ (let () (declare (not safe)) - (##car _e228503228577_))) - (_tl228501228582_ + (##car _e230998231072_))) + (_tl230996231077_ (let () (declare (not safe)) - (##cdr _e228503228577_)))) + (##cdr _e230998231072_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd228502228580_)) - (let ((_e228506228585_ + _hd230997231075_)) + (let ((_e231001231080_ (let () (declare (not safe)) (gx#stx-e - _hd228502228580_)))) - (let ((_hd228505228588_ + _hd230997231075_)))) + (let ((_hd231000231083_ (let () (declare (not safe)) - (##car _e228506228585_))) - (_tl228504228590_ + (##car _e231001231080_))) + (_tl230999231085_ (let () (declare (not safe)) - (##cdr _e228506228585_)))) + (##cdr _e231001231080_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl228504228590_)) - (let ((_e228509228593_ + _tl230999231085_)) + (let ((_e231004231088_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl228504228590_)))) - (let ((_hd228508228596_ - (let () (declare (not safe)) (##car _e228509228593_))) - (_tl228507228598_ - (let () (declare (not safe)) (##cdr _e228509228593_)))) + (gx#stx-e _tl230999231085_)))) + (let ((_hd231003231091_ + (let () (declare (not safe)) (##car _e231004231088_))) + (_tl231002231093_ + (let () (declare (not safe)) (##cdr _e231004231088_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd228508228596_)) - (let ((_e228512228601_ + (gx#stx-pair? _hd231003231091_)) + (let ((_e231007231096_ (let () (declare (not safe)) - (gx#stx-e _hd228508228596_)))) - (let ((_hd228511228604_ + (gx#stx-e _hd231003231091_)))) + (let ((_hd231006231099_ (let () (declare (not safe)) - (##car _e228512228601_))) - (_tl228510228606_ + (##car _e231007231096_))) + (_tl231005231101_ (let () (declare (not safe)) - (##cdr _e228512228601_)))) + (##cdr _e231007231096_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd228511228604_)) - (let ((_e228515228609_ + (gx#stx-pair? _hd231006231099_)) + (let ((_e231010231104_ (let () (declare (not safe)) - (gx#stx-e _hd228511228604_)))) - (let ((_hd228514228612_ + (gx#stx-e _hd231006231099_)))) + (let ((_hd231009231107_ (let () (declare (not safe)) - (##car _e228515228609_))) - (_tl228513228614_ + (##car _e231010231104_))) + (_tl231008231109_ (let () (declare (not safe)) - (##cdr _e228515228609_)))) + (##cdr _e231010231104_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd228514228612_)) - (let ((_e228518228617_ + (gx#stx-pair? _hd231009231107_)) + (let ((_e231013231112_ (let () (declare (not safe)) - (gx#stx-e _hd228514228612_)))) - (let ((_hd228517228620_ + (gx#stx-e _hd231009231107_)))) + (let ((_hd231012231115_ (let () (declare (not safe)) - (##car _e228518228617_))) - (_tl228516228622_ + (##car _e231013231112_))) + (_tl231011231117_ (let () (declare (not safe)) - (##cdr _e228518228617_)))) + (##cdr _e231013231112_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl228516228622_)) + _tl231011231117_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl228513228614_)) - (let ((_e228521228625_ + _tl231008231109_)) + (let ((_e231016231120_ (let () (declare (not safe)) (gx#stx-e - _tl228513228614_)))) - (let ((_hd228520228628_ + _tl231008231109_)))) + (let ((_hd231015231123_ (let () (declare (not safe)) - (##car _e228521228625_))) - (_tl228519228630_ + (##car _e231016231120_))) + (_tl231014231125_ (let () (declare (not safe)) - (##cdr _e228521228625_)))) + (##cdr _e231016231120_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl228519228630_)) + _tl231014231125_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _tl228510228606_)) + (gx#stx-null? _tl231005231101_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl228507228598_)) - (let ((_e228524228633_ + (gx#stx-pair? _tl231002231093_)) + (let ((_e231019231128_ (let () (declare (not safe)) - (gx#stx-e _tl228507228598_)))) - (let ((_hd228523228636_ + (gx#stx-e _tl231002231093_)))) + (let ((_hd231018231131_ (let () (declare (not safe)) - (##car _e228524228633_))) - (_tl228522228638_ + (##car _e231019231128_))) + (_tl231017231133_ (let () (declare (not safe)) - (##cdr _e228524228633_)))) + (##cdr _e231019231128_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl228522228638_)) + (gx#stx-null? _tl231017231133_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl228501228582_)) + (gx#stx-null? _tl230996231077_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl228492228558_)) + (gx#stx-null? _tl230987231053_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl228489228550_)) - (let ((_e228527228641_ + _tl230984231045_)) + (let ((_e231022231136_ (let () (declare (not safe)) (gx#stx-e - _tl228489228550_)))) - (let ((_hd228526228644_ + _tl230984231045_)))) + (let ((_hd231021231139_ (let () (declare (not safe)) - (##car _e228527228641_))) - (_tl228525228646_ + (##car _e231022231136_))) + (_tl231020231141_ (let () (declare (not safe)) - (##cdr _e228527228641_)))) + (##cdr _e231022231136_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl228525228646_)) - ((lambda (_L228649_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L228650_ - _L228651_ - _L228652_ - _L228653_) - (let* ((_get-kws-id228693_ - (let ((__tmp241247 + _tl231020231141_)) + ((lambda (_L231144_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L231145_ + _L231146_ + _L231147_ + _L231148_) + (let* ((_get-kws-id231188_ + (let ((__tmp243842 (let () (declare (not safe)) - (gx#stx-e _L228463_))) - (__tmp241245 - (let ((__tmp241246 + (gx#stx-e _L230958_))) + (__tmp243840 + (let ((__tmp243841 (let () (declare (not safe)) - (gx#stx-e _L228653_)))) + (gx#stx-e _L231148_)))) (declare (not safe)) - (_kw-lambda-dispatch-name228315_ - __tmp241246 + (_kw-lambda-dispatch-name230810_ + __tmp243841 '"@")))) (declare (not safe)) - (make-symbol__1 __tmp241247 '"__" __tmp241245))) - (_get-kws-id228695_ - (let ((__tmp241248 + (make-symbol__1 __tmp243842 '"__" __tmp243840))) + (_get-kws-id231190_ + (let ((__tmp243843 (let () (declare (not safe)) - (gx#stx-source _stx228311_)))) + (gx#stx-source _stx230806_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id228693_ - __tmp241248))) - (_main-id228697_ - (let ((__tmp241251 + _get-kws-id231188_ + __tmp243843))) + (_main-id231192_ + (let ((__tmp243846 (let () (declare (not safe)) - (gx#stx-e _L228463_))) - (__tmp241249 - (let ((__tmp241250 + (gx#stx-e _L230958_))) + (__tmp243844 + (let ((__tmp243845 (let () (declare (not safe)) - (gx#stx-e _L228652_)))) + (gx#stx-e _L231147_)))) (declare (not safe)) - (_kw-lambda-dispatch-name228315_ - __tmp241250 + (_kw-lambda-dispatch-name230810_ + __tmp243845 '"%")))) (declare (not safe)) - (make-symbol__1 __tmp241251 '"__" __tmp241249))) - (_main-id228699_ - (let ((__tmp241252 + (make-symbol__1 __tmp243846 '"__" __tmp243844))) + (_main-id231194_ + (let ((__tmp243847 (let () (declare (not safe)) - (gx#stx-source _stx228311_)))) + (gx#stx-source _stx230806_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id228697_ - __tmp241252))) - (_g241253_ + _main-id231192_ + __tmp243847))) + (_g243848_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _get-kws-id228695_))) - (_g241254_ + (gx#core-bind-runtime!__0 _get-kws-id231190_))) + (_g243849_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _main-id228699_))) - (_new-kw-dispatch228703_ + (gx#core-bind-runtime!__0 _main-id231194_))) + (_new-kw-dispatch231198_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L228649_ - _L228653_ - _get-kws-id228695_))) - (_new-get-kws228705_ + _L231144_ + _L231148_ + _get-kws-id231190_))) + (_new-get-kws231200_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L228650_ - _L228652_ - _main-id228699_)))) - (let ((__tmp241257 + _L231145_ + _L231147_ + _main-id231194_)))) + (let ((__tmp243852 (let () (declare (not safe)) - (gxc#identifier-symbol _L228463_))) - (__tmp241256 + (gxc#identifier-symbol _L230958_))) + (__tmp243851 (let () (declare (not safe)) - (gxc#identifier-symbol _get-kws-id228695_))) - (__tmp241255 + (gxc#identifier-symbol _get-kws-id231190_))) + (__tmp243850 (let () (declare (not safe)) - (gxc#identifier-symbol _main-id228699_)))) + (gxc#identifier-symbol _main-id231194_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp241257 + __tmp243852 '" => " - __tmp241256 + __tmp243851 '" => " - __tmp241255)) - (let ((__tmp241258 - (let ((__tmp241259 - (let ((__tmp241272 - (let ((__tmp241273 - (let ((__tmp241274 - (let ((__tmp241275 - (let ((__tmp241277 + __tmp243850)) + (let ((__tmp243853 + (let ((__tmp243854 + (let ((__tmp243867 + (let ((__tmp243868 + (let ((__tmp243869 + (let ((__tmp243870 + (let ((__tmp243872 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main-id228699_ '()))) - (__tmp241276 + (cons _main-id231194_ '()))) + (__tmp243871 (let () (declare (not safe)) - (cons _L228651_ '())))) + (cons _L231146_ '())))) (declare (not safe)) - (cons __tmp241277 __tmp241276)))) + (cons __tmp243872 __tmp243871)))) (declare (not safe)) - (cons '%#define-values __tmp241275)))) + (cons '%#define-values __tmp243870)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp241274 - _stx228311_)))) + __tmp243869 + _stx230806_)))) (declare (not safe)) (gxc#lift-top-lambda-define-values% - __tmp241273))) - (__tmp241260 - (let ((__tmp241267 - (let ((__tmp241268 - (let ((__tmp241269 - (let ((__tmp241271 + __tmp243868))) + (__tmp243855 + (let ((__tmp243862 + (let ((__tmp243863 + (let ((__tmp243864 + (let ((__tmp243866 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _get-kws-id228695_ '()))) - (__tmp241270 + (cons _get-kws-id231190_ '()))) + (__tmp243865 (let () (declare (not safe)) - (cons _new-get-kws228705_ '())))) + (cons _new-get-kws231200_ '())))) (declare (not safe)) - (cons __tmp241271 __tmp241270)))) + (cons __tmp243866 __tmp243865)))) (declare (not safe)) - (cons '%#define-values __tmp241269)))) + (cons '%#define-values __tmp243864)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp241268 - _stx228311_))) - (__tmp241261 - (let ((__tmp241262 - (let ((__tmp241263 - (let ((__tmp241264 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp241266 + __tmp243863 + _stx230806_))) + (__tmp243856 + (let ((__tmp243857 + (let ((__tmp243858 + (let ((__tmp243859 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp243861 (let () (declare (not safe)) - (cons _L228463_ '()))) - (__tmp241265 + (cons _L230958_ '()))) + (__tmp243860 (let () (declare (not safe)) - (cons _new-kw-dispatch228703_ '())))) + (cons _new-kw-dispatch231198_ '())))) (declare (not safe)) - (cons __tmp241266 __tmp241265)))) + (cons __tmp243861 __tmp243860)))) (declare (not safe)) - (cons '%#define-values __tmp241264)))) + (cons '%#define-values __tmp243859)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp241263 _stx228311_)))) + (gxc#xform-wrap-source __tmp243858 _stx230806_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp241262 '())))) + (cons __tmp243857 '())))) (declare (not safe)) - (cons __tmp241267 __tmp241261)))) + (cons __tmp243862 __tmp243856)))) (declare (not safe)) - (cons __tmp241272 __tmp241260)))) + (cons __tmp243867 __tmp243855)))) (declare (not safe)) - (cons '%#begin __tmp241259)))) + (cons '%#begin __tmp243854)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp241258 _stx228311_)))) - _hd228526228644_ - _hd228523228636_ - _hd228520228628_ - _hd228517228620_ - _hd228499228572_) + (gxc#xform-wrap-source __tmp243853 _stx230806_)))) + _hd231021231139_ + _hd231018231131_ + _hd231015231123_ + _hd231012231115_ + _hd230994231067_) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))))) + (_g230974231027_ _g230975231030_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g228479228532_ - _g228480228535_))) + (_g230974231027_ + _g230975231030_))) (let () (declare (not safe)) - (_g228479228532_ - _g228480228535_))) + (_g230974231027_ + _g230975231030_))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))) + (_g230974231027_ _g230975231030_))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))))) + (_g230974231027_ _g230975231030_))))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))) + (_g230974231027_ _g230975231030_))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))) + (_g230974231027_ _g230975231030_))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))))) + (_g230974231027_ _g230975231030_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g228479228532_ - _g228480228535_))) + (_g230974231027_ + _g230975231030_))) (let () (declare (not safe)) - (_g228479228532_ - _g228480228535_))))) + (_g230974231027_ + _g230975231030_))))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))))) + (_g230974231027_ _g230975231030_))))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))))) + (_g230974231027_ _g230975231030_))))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))))) + (_g230974231027_ _g230975231030_))))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))))) + (_g230974231027_ _g230975231030_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g228479228532_ - _g228480228535_))))) + (_g230974231027_ + _g230975231030_))))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))) + (_g230974231027_ _g230975231030_))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))))) + (_g230974231027_ _g230975231030_))))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))))) + (_g230974231027_ _g230975231030_))))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_))))) + (_g230974231027_ _g230975231030_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g228479228532_ - _g228480228535_))))) + (_g230974231027_ + _g230975231030_))))) (let () (declare (not safe)) - (_g228479228532_ - _g228480228535_))))) + (_g230974231027_ + _g230975231030_))))) (let () (declare (not safe)) - (_g228479228532_ _g228480228535_)))))) + (_g230974231027_ _g230975231030_)))))) (declare (not safe)) - (_g228478228708_ _L228462_)))) - (___kont240560240561_ - (lambda (_L228408_ _L228409_) - (let ((__tmp241278 - (let ((__tmp241279 - (let ((__tmp241280 - (let ((__tmp241281 + (_g230973231203_ _L230957_)))) + (___kont243155243156_ + (lambda (_L230903_ _L230904_) + (let ((__tmp243873 + (let ((__tmp243874 + (let ((__tmp243875 + (let ((__tmp243876 (let () (declare (not safe)) (gxc#compile-e__0 - _L228408_)))) + _L230903_)))) (declare (not safe)) - (cons __tmp241281 '())))) + (cons __tmp243876 '())))) (declare (not safe)) - (cons _L228409_ __tmp241280)))) + (cons _L230904_ __tmp243875)))) (declare (not safe)) - (cons '%#define-values __tmp241279)))) + (cons '%#define-values __tmp243874)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp241278 _stx228311_))))) - (let* ((___match240645240646_ - (lambda (_e228354228430_ - _hd228353228433_ - _tl228352228435_ - _e228357228438_ - _hd228356228441_ - _tl228355228443_ - _e228360228446_ - _hd228359228449_ - _tl228358228451_ - _e228363228454_ - _hd228362228457_ - _tl228361228459_) - (let ((_L228462_ _hd228362228457_) - (_L228463_ _hd228359228449_)) + (gxc#xform-wrap-source __tmp243873 _stx230806_))))) + (let* ((___match243240243241_ + (lambda (_e230849230925_ + _hd230848230928_ + _tl230847230930_ + _e230852230933_ + _hd230851230936_ + _tl230850230938_ + _e230855230941_ + _hd230854230944_ + _tl230853230946_ + _e230858230949_ + _hd230857230952_ + _tl230856230954_) + (let ((_L230957_ _hd230857230952_) + (_L230958_ _hd230854230944_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L228463_)) + (gx#identifier? _L230958_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L228462_))) - (___kont240558240559_ _L228462_ _L228463_) - (___kont240560240561_ - _hd228362228457_ - _hd228356228441_))))) - (___match240617240618_ - (lambda (_e228340228716_ - _hd228339228719_ - _tl228338228721_ - _e228343228724_ - _hd228342228727_ - _tl228341228729_ - _e228346228732_ - _hd228345228735_ - _tl228344228737_ - _e228349228740_ - _hd228348228743_ - _tl228347228745_) - (let ((_L228748_ _hd228348228743_) - (_L228749_ _hd228345228735_)) + (gxc#kw-lambda-expr? _L230957_))) + (___kont243153243154_ _L230957_ _L230958_) + (___kont243155243156_ + _hd230857230952_ + _hd230851230936_))))) + (___match243212243213_ + (lambda (_e230835231211_ + _hd230834231214_ + _tl230833231216_ + _e230838231219_ + _hd230837231222_ + _tl230836231224_ + _e230841231227_ + _hd230840231230_ + _tl230839231232_ + _e230844231235_ + _hd230843231238_ + _tl230842231240_) + (let ((_L231243_ _hd230843231238_) + (_L231244_ _hd230840231230_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L228749_)) + (gx#identifier? _L231244_)) (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L228748_))) - (___kont240556240557_ _L228748_ _L228749_) - (___match240645240646_ - _e228340228716_ - _hd228339228719_ - _tl228338228721_ - _e228343228724_ - _hd228342228727_ - _tl228341228729_ - _e228346228732_ - _hd228345228735_ - _tl228344228737_ - _e228349228740_ - _hd228348228743_ - _tl228347228745_))))) - (___match240589240590_ - (lambda (_e228326228898_ - _hd228325228901_ - _tl228324228903_ - _e228329228906_ - _hd228328228909_ - _tl228327228911_ - _e228332228914_ - _hd228331228917_ - _tl228330228919_ - _e228335228922_ - _hd228334228925_ - _tl228333228927_) - (let ((_L228930_ _hd228334228925_) - (_L228931_ _hd228331228917_)) + (gxc#opt-lambda-expr? _L231243_))) + (___kont243151243152_ _L231243_ _L231244_) + (___match243240243241_ + _e230835231211_ + _hd230834231214_ + _tl230833231216_ + _e230838231219_ + _hd230837231222_ + _tl230836231224_ + _e230841231227_ + _hd230840231230_ + _tl230839231232_ + _e230844231235_ + _hd230843231238_ + _tl230842231240_))))) + (___match243184243185_ + (lambda (_e230821231393_ + _hd230820231396_ + _tl230819231398_ + _e230824231401_ + _hd230823231404_ + _tl230822231406_ + _e230827231409_ + _hd230826231412_ + _tl230825231414_ + _e230830231417_ + _hd230829231420_ + _tl230828231422_) + (let ((_L231425_ _hd230829231420_) + (_L231426_ _hd230826231412_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L228931_)) + (gx#identifier? _L231426_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L228930_))) - (___kont240554240555_ _L228930_ _L228931_) - (___match240617240618_ - _e228326228898_ - _hd228325228901_ - _tl228324228903_ - _e228329228906_ - _hd228328228909_ - _tl228327228911_ - _e228332228914_ - _hd228331228917_ - _tl228330228919_ - _e228335228922_ - _hd228334228925_ - _tl228333228927_)))))) + (gxc#case-lambda-expr? _L231425_))) + (___kont243149243150_ _L231425_ _L231426_) + (___match243212243213_ + _e230821231393_ + _hd230820231396_ + _tl230819231398_ + _e230824231401_ + _hd230823231404_ + _tl230822231406_ + _e230827231409_ + _hd230826231412_ + _tl230825231414_ + _e230830231417_ + _hd230829231420_ + _tl230828231422_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx240552240553_)) - (let ((_e228326228898_ + (gx#stx-pair? ___stx243147243148_)) + (let ((_e230821231393_ (let () (declare (not safe)) - (gx#stx-e ___stx240552240553_)))) - (let ((_tl228324228903_ + (gx#stx-e ___stx243147243148_)))) + (let ((_tl230819231398_ (let () (declare (not safe)) - (##cdr _e228326228898_))) - (_hd228325228901_ + (##cdr _e230821231393_))) + (_hd230820231396_ (let () (declare (not safe)) - (##car _e228326228898_)))) + (##car _e230821231393_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl228324228903_)) - (let ((_e228329228906_ + (gx#stx-pair? _tl230819231398_)) + (let ((_e230824231401_ (let () (declare (not safe)) - (gx#stx-e _tl228324228903_)))) - (let ((_tl228327228911_ + (gx#stx-e _tl230819231398_)))) + (let ((_tl230822231406_ (let () (declare (not safe)) - (##cdr _e228329228906_))) - (_hd228328228909_ + (##cdr _e230824231401_))) + (_hd230823231404_ (let () (declare (not safe)) - (##car _e228329228906_)))) + (##car _e230824231401_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd228328228909_)) - (let ((_e228332228914_ + (gx#stx-pair? _hd230823231404_)) + (let ((_e230827231409_ (let () (declare (not safe)) - (gx#stx-e _hd228328228909_)))) - (let ((_tl228330228919_ + (gx#stx-e _hd230823231404_)))) + (let ((_tl230825231414_ (let () (declare (not safe)) - (##cdr _e228332228914_))) - (_hd228331228917_ + (##cdr _e230827231409_))) + (_hd230826231412_ (let () (declare (not safe)) - (##car _e228332228914_)))) + (##car _e230827231409_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl228330228919_)) + (gx#stx-null? _tl230825231414_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl228327228911_)) - (let ((_e228335228922_ + _tl230822231406_)) + (let ((_e230830231417_ (let () (declare (not safe)) (gx#stx-e - _tl228327228911_)))) - (let ((_tl228333228927_ + _tl230822231406_)))) + (let ((_tl230828231422_ (let () (declare (not safe)) - (##cdr _e228335228922_))) - (_hd228334228925_ + (##cdr _e230830231417_))) + (_hd230829231420_ (let () (declare (not safe)) - (##car _e228335228922_)))) + (##car _e230830231417_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl228333228927_)) - (___match240589240590_ - _e228326228898_ - _hd228325228901_ - _tl228324228903_ - _e228329228906_ - _hd228328228909_ - _tl228327228911_ - _e228332228914_ - _hd228331228917_ - _tl228330228919_ - _e228335228922_ - _hd228334228925_ - _tl228333228927_) + _tl230828231422_)) + (___match243184243185_ + _e230821231393_ + _hd230820231396_ + _tl230819231398_ + _e230824231401_ + _hd230823231404_ + _tl230822231406_ + _e230827231409_ + _hd230826231412_ + _tl230825231414_ + _e230830231417_ + _hd230829231420_ + _tl230828231422_) (let () (declare (not safe)) - (_g228320228379_))))) + (_g230815230874_))))) (let () (declare (not safe)) - (_g228320228379_))) + (_g230815230874_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl228327228911_)) - (let ((_e228374228400_ + _tl230822231406_)) + (let ((_e230869230895_ (let () (declare (not safe)) (gx#stx-e - _tl228327228911_)))) - (let ((_tl228372228405_ + _tl230822231406_)))) + (let ((_tl230867230900_ (let () (declare (not safe)) - (##cdr _e228374228400_))) - (_hd228373228403_ + (##cdr _e230869230895_))) + (_hd230868230898_ (let () (declare (not safe)) - (##car _e228374228400_)))) + (##car _e230869230895_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl228372228405_)) - (___kont240560240561_ - _hd228373228403_ - _hd228328228909_) + _tl230867230900_)) + (___kont243155243156_ + _hd230868230898_ + _hd230823231404_) (let () (declare (not safe)) - (_g228320228379_))))) + (_g230815230874_))))) (let () (declare (not safe)) - (_g228320228379_)))))) + (_g230815230874_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl228327228911_)) - (let ((_e228374228400_ + (gx#stx-pair? _tl230822231406_)) + (let ((_e230869230895_ (let () (declare (not safe)) - (gx#stx-e _tl228327228911_)))) - (let ((_tl228372228405_ + (gx#stx-e _tl230822231406_)))) + (let ((_tl230867230900_ (let () (declare (not safe)) - (##cdr _e228374228400_))) - (_hd228373228403_ + (##cdr _e230869230895_))) + (_hd230868230898_ (let () (declare (not safe)) - (##car _e228374228400_)))) + (##car _e230869230895_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl228372228405_)) - (___kont240560240561_ - _hd228373228403_ - _hd228328228909_) + _tl230867230900_)) + (___kont243155243156_ + _hd230868230898_ + _hd230823231404_) (let () (declare (not safe)) - (_g228320228379_))))) + (_g230815230874_))))) (let () (declare (not safe)) - (_g228320228379_)))))) - (let () (declare (not safe)) (_g228320228379_))))) - (let () (declare (not safe)) (_g228320228379_))))))))) + (_g230815230874_)))))) + (let () (declare (not safe)) (_g230815230874_))))) + (let () (declare (not safe)) (_g230815230874_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_stx227243_) - (letrec* ((_bind-e__238948238949_ - (lambda (_id228295_ _expr228296_ _compile?228297_) - (let ((__tmp241284 + (lambda (_stx229738_) + (letrec* ((_bind-e__241543241544_ + (lambda (_id230790_ _expr230791_ _compile?230792_) + (let ((__tmp243879 (let () (declare (not safe)) - (cons _id228295_ '()))) - (__tmp241282 - (let ((__tmp241283 - (if _compile?228297_ + (cons _id230790_ '()))) + (__tmp243877 + (let ((__tmp243878 + (if _compile?230792_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr228296_)) - _expr228296_))) + (gxc#compile-e__0 _expr230791_)) + _expr230791_))) (declare (not safe)) - (cons __tmp241283 '())))) + (cons __tmp243878 '())))) (declare (not safe)) - (cons __tmp241284 __tmp241282)))) - (_bind-e__0__238950238951_ - (lambda (_id228302_ _expr228303_) - (let ((_compile?228305_ '#t)) + (cons __tmp243879 __tmp243877)))) + (_bind-e__0__241545241546_ + (lambda (_id230797_ _expr230798_) + (let ((_compile?230800_ '#t)) (declare (not safe)) - (_bind-e__238948238949_ - _id228302_ - _expr228303_ - _compile?228305_)))) - (_bind-e227245_ - (lambda _g241286_ - (let ((_g241285_ + (_bind-e__241543241544_ + _id230797_ + _expr230798_ + _compile?230800_)))) + (_bind-e229740_ + (lambda _g243881_ + (let ((_g243880_ (let () (declare (not safe)) - (##length _g241286_)))) - (cond ((let () (declare (not safe)) (##fx= _g241285_ 2)) - (apply (lambda (_id228302_ _expr228303_) + (##length _g243881_)))) + (cond ((let () (declare (not safe)) (##fx= _g243880_ 2)) + (apply (lambda (_id230797_ _expr230798_) (let () (declare (not safe)) - (_bind-e__0__238950238951_ - _id228302_ - _expr228303_))) - _g241286_)) - ((let () (declare (not safe)) (##fx= _g241285_ 3)) - (apply (lambda (_id228307_ - _expr228308_ - _compile?228309_) + (_bind-e__0__241545241546_ + _id230797_ + _expr230798_))) + _g243881_)) + ((let () (declare (not safe)) (##fx= _g243880_ 3)) + (apply (lambda (_id230802_ + _expr230803_ + _compile?230804_) (let () (declare (not safe)) - (_bind-e__238948238949_ - _id228307_ - _expr228308_ - _compile?228309_))) - _g241286_)) + (_bind-e__241543241544_ + _id230802_ + _expr230803_ + _compile?230804_))) + _g243881_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g241286_)))))) - (_compile-bindings227246_ - (lambda (_bindings227879_) - (let _lp227881_ ((_rest227883_ _bindings227879_) - (_lift1227884_ '()) - (_lift2227885_ '()) - (_bind227886_ '())) - (let* ((_rest227887227895_ _rest227883_) - (_else227889227903_ + _g243881_)))))) + (_compile-bindings229741_ + (lambda (_bindings230374_) + (let _lp230376_ ((_rest230378_ _bindings230374_) + (_lift1230379_ '()) + (_lift2230380_ '()) + (_bind230381_ '())) + (let* ((_rest230382230390_ _rest230378_) + (_else230384230398_ (lambda () - (values (reverse _lift1227884_) - (reverse _lift2227885_) - (reverse _bind227886_)))) - (_K227891228282_ - (lambda (_rest227906_ _hd227907_) - (let* ((___stx240688240689_ _hd227907_) - (_g227911227947_ + (values (reverse _lift1230379_) + (reverse _lift2230380_) + (reverse _bind230381_)))) + (_K230386230777_ + (lambda (_rest230401_ _hd230402_) + (let* ((___stx243283243284_ _hd230402_) + (_g230406230442_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240688240689_))))) - (let ((___kont240690240691_ - (lambda (_L228189_ _L228190_) - (let* ((___stx240668240669_ - _L228189_) - (_g228205228219_ + ___stx243283243284_))))) + (let ((___kont243285243286_ + (lambda (_L230684_ _L230685_) + (let* ((___stx243263243264_ + _L230684_) + (_g230700230714_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240668240669_))))) - (let ((___kont240670240671_ - (lambda (_L228267_) - (let ((__tmp241287 - (let ((__tmp241288 + ___stx243263243264_))))) + (let ((___kont243265243266_ + (lambda (_L230762_) + (let ((__tmp243882 + (let ((__tmp243883 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__238948238949_ - _L228190_ - _L228189_ + (_bind-e__241543241544_ + _L230685_ + _L230684_ '#f)))) (declare (not safe)) - (cons __tmp241288 _bind227886_)))) + (cons __tmp243883 _bind230381_)))) (declare (not safe)) - (_lp227881_ - _rest227906_ - _lift1227884_ - _lift2227885_ - __tmp241287)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240672240673_ - (lambda (_L228232_) - (let ((_g241289_ + (_lp230376_ + _rest230401_ + _lift1230379_ + _lift2230380_ + __tmp243882)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont243267243268_ + (lambda (_L230727_) + (let ((_g243884_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx227243_ - _L228190_ - _L228232_ + _stx229738_ + _L230685_ + _L230727_ '#t)))) (begin - (let ((_g241290_ + (let ((_g243885_ (let () (declare (not safe)) - (if (##values? _g241289_) - (##vector-length _g241289_) + (if (##values? _g243884_) + (##vector-length _g243884_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g241290_ 3))) - (error "Context expects 3 values" _g241290_))) - (let ((_ids228242_ + (##fx= _g243885_ 3))) + (error "Context expects 3 values" _g243885_))) + (let ((_ids230737_ (let () (declare (not safe)) - (##vector-ref _g241289_ 0))) - (_impls228243_ + (##vector-ref _g243884_ 0))) + (_impls230738_ (let () (declare (not safe)) - (##vector-ref _g241289_ 1))) - (_clauses228244_ + (##vector-ref _g243884_ 1))) + (_clauses230739_ (let () (declare (not safe)) - (##vector-ref _g241289_ 2)))) - (let* ((_g241291_ - (for-each gx#core-bind-runtime! _ids228242_)) - (_xbind228247_ - (map _bind-e227245_ _ids228242_ _impls228243_)) - (_expr*228249_ - (let ((__tmp241293 + (##vector-ref _g243884_ 2)))) + (let* ((_g243886_ + (for-each gx#core-bind-runtime! _ids230737_)) + (_xbind230742_ + (map _bind-e229740_ _ids230737_ _impls230738_)) + (_expr*230744_ + (let ((__tmp243888 (let () (declare (not safe)) - (cons '%#case-lambda _clauses228244_))) - (__tmp241292 + (cons '%#case-lambda _clauses230739_))) + (__tmp243887 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -12419,1584 +12419,1584 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp241293 - __tmp241292))) - (_bind*228251_ + __tmp243888 + __tmp243887))) + (_bind*230746_ (let () (declare (not safe)) - (_bind-e__238948238949_ - _L228190_ - _expr*228249_ + (_bind-e__241543241544_ + _L230685_ + _expr*230744_ '#f)))) - (let ((__tmp241295 + (let ((__tmp243890 (let () (declare (not safe)) - (gxc#identifier-symbol _L228190_))) - (__tmp241294 - (map gxc#identifier-symbol _ids228242_))) + (gxc#identifier-symbol _L230685_))) + (__tmp243889 + (map gxc#identifier-symbol _ids230737_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp241295 + __tmp243890 '" => " - __tmp241294)) - (let ((__tmp241297 + __tmp243889)) + (let ((__tmp243892 (let () (declare (not safe)) - (foldl1 cons _lift2227885_ _xbind228247_))) - (__tmp241296 + (foldl1 cons _lift2230380_ _xbind230742_))) + (__tmp243891 (let () (declare (not safe)) - (cons _bind*228251_ _bind227886_)))) + (cons _bind*230746_ _bind230381_)))) (declare (not safe)) - (_lp227881_ - _rest227906_ - _lift1227884_ - __tmp241297 - __tmp241296))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match240679240680_ - (lambda (_e228210228259_ - _hd228209228262_ - _tl228208228264_) - (let ((_L228267_ - _tl228208228264_)) + (_lp230376_ + _rest230401_ + _lift1230379_ + __tmp243892 + __tmp243891))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match243274243275_ + (lambda (_e230705230754_ + _hd230704230757_ + _tl230703230759_) + (let ((_L230762_ + _tl230703230759_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L228267_)) - (___kont240670240671_ _L228267_) - (___kont240672240673_ _tl228208228264_)))))) + (andmap1 gxc#dispatch-lambda-form? _L230762_)) + (___kont243265243266_ _L230762_) + (___kont243267243268_ _tl230703230759_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx240668240669_)) - (let ((_e228210228259_ + ___stx243263243264_)) + (let ((_e230705230754_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx240668240669_)))) - (let ((_tl228208228264_ - (let () (declare (not safe)) (##cdr _e228210228259_))) - (_hd228209228262_ - (let () (declare (not safe)) (##car _e228210228259_)))) - (___match240679240680_ - _e228210228259_ - _hd228209228262_ - _tl228208228264_))) - (let () (declare (not safe)) (_g228205228219_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240692240693_ - (lambda (_L228017_ _L228018_) - (let* ((_g228032228062_ - (lambda (_g228033228059_) + (gx#stx-e ___stx243263243264_)))) + (let ((_tl230703230759_ + (let () (declare (not safe)) (##cdr _e230705230754_))) + (_hd230704230757_ + (let () (declare (not safe)) (##car _e230705230754_)))) + (___match243274243275_ + _e230705230754_ + _hd230704230757_ + _tl230703230759_))) + (let () (declare (not safe)) (_g230700230714_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont243287243288_ + (lambda (_L230512_ _L230513_) + (let* ((_g230527230557_ + (lambda (_g230528230554_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g228033228059_)))) - (_g228031228157_ - (lambda (_g228033228065_) + _g230528230554_)))) + (_g230526230652_ + (lambda (_g230528230560_) (if (let () (declare (not safe)) (gx#stx-pair? - _g228033228065_)) - (let ((_e228039228067_ + _g230528230560_)) + (let ((_e230534230562_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g228033228065_)))) - (let ((_hd228038228070_ + (gx#stx-e _g230528230560_)))) + (let ((_hd230533230565_ (let () (declare (not safe)) - (##car _e228039228067_))) - (_tl228037228072_ + (##car _e230534230562_))) + (_tl230532230567_ (let () (declare (not safe)) - (##cdr _e228039228067_)))) + (##cdr _e230534230562_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl228037228072_)) - (let ((_e228042228075_ + (gx#stx-pair? _tl230532230567_)) + (let ((_e230537230570_ (let () (declare (not safe)) - (gx#stx-e _tl228037228072_)))) - (let ((_hd228041228078_ + (gx#stx-e _tl230532230567_)))) + (let ((_hd230536230573_ (let () (declare (not safe)) - (##car _e228042228075_))) - (_tl228040228080_ + (##car _e230537230570_))) + (_tl230535230575_ (let () (declare (not safe)) - (##cdr _e228042228075_)))) + (##cdr _e230537230570_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd228041228078_)) - (let ((_e228045228083_ + (gx#stx-pair? _hd230536230573_)) + (let ((_e230540230578_ (let () (declare (not safe)) - (gx#stx-e _hd228041228078_)))) - (let ((_hd228044228086_ + (gx#stx-e _hd230536230573_)))) + (let ((_hd230539230581_ (let () (declare (not safe)) - (##car _e228045228083_))) - (_tl228043228088_ + (##car _e230540230578_))) + (_tl230538230583_ (let () (declare (not safe)) - (##cdr _e228045228083_)))) + (##cdr _e230540230578_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd228044228086_)) - (let ((_e228048228091_ + (gx#stx-pair? _hd230539230581_)) + (let ((_e230543230586_ (let () (declare (not safe)) (gx#stx-e - _hd228044228086_)))) - (let ((_hd228047228094_ + _hd230539230581_)))) + (let ((_hd230542230589_ (let () (declare (not safe)) - (##car _e228048228091_))) - (_tl228046228096_ + (##car _e230543230586_))) + (_tl230541230591_ (let () (declare (not safe)) - (##cdr _e228048228091_)))) + (##cdr _e230543230586_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd228047228094_)) - (let ((_e228051228099_ + _hd230542230589_)) + (let ((_e230546230594_ (let () (declare (not safe)) (gx#stx-e - _hd228047228094_)))) - (let ((_hd228050228102_ + _hd230542230589_)))) + (let ((_hd230545230597_ (let () (declare (not safe)) - (##car _e228051228099_))) - (_tl228049228104_ + (##car _e230546230594_))) + (_tl230544230599_ (let () (declare (not safe)) - (##cdr _e228051228099_)))) + (##cdr _e230546230594_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl228049228104_)) + _tl230544230599_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl228046228096_)) - (let ((_e228054228107_ + (gx#stx-pair? _tl230541230591_)) + (let ((_e230549230602_ (let () (declare (not safe)) - (gx#stx-e _tl228046228096_)))) - (let ((_hd228053228110_ + (gx#stx-e _tl230541230591_)))) + (let ((_hd230548230605_ (let () (declare (not safe)) - (##car _e228054228107_))) - (_tl228052228112_ + (##car _e230549230602_))) + (_tl230547230607_ (let () (declare (not safe)) - (##cdr _e228054228107_)))) + (##cdr _e230549230602_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl228052228112_)) + (gx#stx-null? _tl230547230607_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl228043228088_)) + (gx#stx-null? _tl230538230583_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl228040228080_)) - (let ((_e228057228115_ + (gx#stx-pair? _tl230535230575_)) + (let ((_e230552230610_ (let () (declare (not safe)) - (gx#stx-e _tl228040228080_)))) - (let ((_hd228056228118_ + (gx#stx-e _tl230535230575_)))) + (let ((_hd230551230613_ (let () (declare (not safe)) - (##car _e228057228115_))) - (_tl228055228120_ + (##car _e230552230610_))) + (_tl230550230615_ (let () (declare (not safe)) - (##cdr _e228057228115_)))) + (##cdr _e230552230610_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl228055228120_)) - ((lambda (_L228123_ - _L228124_ - _L228125_) - (let* ((_lambda-id228149_ - (let ((__tmp241299 + _tl230550230615_)) + ((lambda (_L230618_ + _L230619_ + _L230620_) + (let* ((_lambda-id230644_ + (let ((__tmp243894 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L228018_))) - (__tmp241298 (gensym '__))) + (gx#stx-e _L230513_))) + (__tmp243893 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp241299 __tmp241298))) - (_lambda-id228151_ - (let ((__tmp241300 + (make-symbol__1 __tmp243894 __tmp243893))) + (_lambda-id230646_ + (let ((__tmp243895 (let () (declare (not safe)) - (gx#stx-source _stx227243_)))) + (gx#stx-source _stx229738_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id228149_ __tmp241300))) - (_g241301_ + (gx#core-quote-syntax__1 _lambda-id230644_ __tmp243895))) + (_g243896_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id228151_))) - (_new-case-lambda-expr228154_ + (gx#core-bind-runtime!__0 _lambda-id230646_))) + (_new-case-lambda-expr230649_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L228123_ - _L228125_ - _lambda-id228151_)))) + _L230618_ + _L230620_ + _lambda-id230646_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp241303 + (let ((__tmp243898 (let () (declare (not safe)) (gxc#identifier-symbol - _L228018_))) - (__tmp241302 + _L230513_))) + (__tmp243897 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id228151_)))) + _lambda-id230646_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp241303 + __tmp243898 '" => " - __tmp241302)) - (let ((__tmp241306 - (let ((__tmp241307 + __tmp243897)) + (let ((__tmp243901 + (let ((__tmp243902 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__238948238949_ - _L228018_ - _new-case-lambda-expr228154_ + (_bind-e__241543241544_ + _L230513_ + _new-case-lambda-expr230649_ '#f)))) (declare (not safe)) - (cons __tmp241307 _rest227906_))) - (__tmp241304 - (let ((__tmp241305 + (cons __tmp243902 _rest230401_))) + (__tmp243899 + (let ((__tmp243900 (let () (declare (not safe)) - (_bind-e__0__238950238951_ - _lambda-id228151_ - _L228124_)))) + (_bind-e__0__241545241546_ + _lambda-id230646_ + _L230619_)))) (declare (not safe)) - (cons __tmp241305 _lift1227884_)))) + (cons __tmp243900 _lift1230379_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp227881_ - __tmp241306 - __tmp241304 - _lift2227885_ - _bind227886_)))) - _hd228056228118_ - _hd228053228110_ - _hd228050228102_) + (_lp230376_ + __tmp243901 + __tmp243899 + _lift2230380_ + _bind230381_)))) + _hd230551230613_ + _hd230548230605_ + _hd230545230597_) (let () (declare (not safe)) - (_g228032228062_ - _g228033228065_))))) + (_g230527230557_ + _g230528230560_))))) (let () (declare (not safe)) - (_g228032228062_ _g228033228065_))) + (_g230527230557_ _g230528230560_))) (let () (declare (not safe)) - (_g228032228062_ _g228033228065_))) + (_g230527230557_ _g230528230560_))) (let () (declare (not safe)) - (_g228032228062_ _g228033228065_))))) + (_g230527230557_ _g230528230560_))))) (let () (declare (not safe)) - (_g228032228062_ _g228033228065_))) + (_g230527230557_ _g230528230560_))) (let () (declare (not safe)) - (_g228032228062_ _g228033228065_))))) + (_g230527230557_ _g230528230560_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g228032228062_ - _g228033228065_))))) + (_g230527230557_ + _g230528230560_))))) (let () (declare (not safe)) - (_g228032228062_ - _g228033228065_))))) + (_g230527230557_ + _g230528230560_))))) (let () (declare (not safe)) - (_g228032228062_ _g228033228065_))))) + (_g230527230557_ _g230528230560_))))) (let () (declare (not safe)) - (_g228032228062_ _g228033228065_))))) + (_g230527230557_ _g230528230560_))))) (let () (declare (not safe)) - (_g228032228062_ _g228033228065_)))))) + (_g230527230557_ _g230528230560_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g228031228157_ _L228017_)))) - (___kont240694240695_ - (lambda (_L227968_ _L227969_) - (let ((__tmp241308 - (let ((__tmp241309 - (let ((__tmp241310 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp241311 + (_g230526230652_ _L230512_)))) + (___kont243289243290_ + (lambda (_L230463_ _L230464_) + (let ((__tmp243903 + (let ((__tmp243904 + (let ((__tmp243905 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp243906 (let () (declare (not safe)) - (gxc#compile-e__0 _L227968_)))) + (gxc#compile-e__0 _L230463_)))) (declare (not safe)) - (cons __tmp241311 '())))) + (cons __tmp243906 '())))) (declare (not safe)) - (cons _L227969_ __tmp241310)))) + (cons _L230464_ __tmp243905)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp241309 - _bind227886_)))) + (cons __tmp243904 + _bind230381_)))) (declare (not safe)) - (_lp227881_ - _rest227906_ - _lift1227884_ - _lift2227885_ - __tmp241308))))) - (let* ((___match240739240740_ - (lambda (_e227928227993_ - _hd227927227996_ - _tl227926227998_ - _e227931228001_ - _hd227930228004_ - _tl227929228006_ - _e227934228009_ - _hd227933228012_ - _tl227932228014_) - (let ((_L228017_ - _hd227933228012_) - (_L228018_ - _hd227930228004_)) + (_lp230376_ + _rest230401_ + _lift1230379_ + _lift2230380_ + __tmp243903))))) + (let* ((___match243334243335_ + (lambda (_e230423230488_ + _hd230422230491_ + _tl230421230493_ + _e230426230496_ + _hd230425230499_ + _tl230424230501_ + _e230429230504_ + _hd230428230507_ + _tl230427230509_) + (let ((_L230512_ + _hd230428230507_) + (_L230513_ + _hd230425230499_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L228018_)) + _L230513_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L228017_))) - (___kont240692240693_ - _L228017_ - _L228018_) - (___kont240694240695_ - _hd227933228012_ - _hd227927227996_))))) - (___match240717240718_ - (lambda (_e227917228165_ - _hd227916228168_ - _tl227915228170_ - _e227920228173_ - _hd227919228176_ - _tl227918228178_ - _e227923228181_ - _hd227922228184_ - _tl227921228186_) - (let ((_L228189_ - _hd227922228184_) - (_L228190_ - _hd227919228176_)) + _L230512_))) + (___kont243287243288_ + _L230512_ + _L230513_) + (___kont243289243290_ + _hd230428230507_ + _hd230422230491_))))) + (___match243312243313_ + (lambda (_e230412230660_ + _hd230411230663_ + _tl230410230665_ + _e230415230668_ + _hd230414230671_ + _tl230413230673_ + _e230418230676_ + _hd230417230679_ + _tl230416230681_) + (let ((_L230684_ + _hd230417230679_) + (_L230685_ + _hd230414230671_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L228190_)) + _L230685_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L228189_))) - (___kont240690240691_ - _L228189_ - _L228190_) - (___match240739240740_ - _e227917228165_ - _hd227916228168_ - _tl227915228170_ - _e227920228173_ - _hd227919228176_ - _tl227918228178_ - _e227923228181_ - _hd227922228184_ - _tl227921228186_)))))) + _L230684_))) + (___kont243285243286_ + _L230684_ + _L230685_) + (___match243334243335_ + _e230412230660_ + _hd230411230663_ + _tl230410230665_ + _e230415230668_ + _hd230414230671_ + _tl230413230673_ + _e230418230676_ + _hd230417230679_ + _tl230416230681_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx240688240689_)) - (let ((_e227917228165_ + ___stx243283243284_)) + (let ((_e230412230660_ (let () (declare (not safe)) (gx#stx-e - ___stx240688240689_)))) - (let ((_tl227915228170_ + ___stx243283243284_)))) + (let ((_tl230410230665_ (let () (declare (not safe)) - (##cdr _e227917228165_))) - (_hd227916228168_ + (##cdr _e230412230660_))) + (_hd230411230663_ (let () (declare (not safe)) - (##car _e227917228165_)))) + (##car _e230412230660_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd227916228168_)) - (let ((_e227920228173_ + _hd230411230663_)) + (let ((_e230415230668_ (let () (declare (not safe)) (gx#stx-e - _hd227916228168_)))) - (let ((_tl227918228178_ + _hd230411230663_)))) + (let ((_tl230413230673_ (let () (declare (not safe)) - (##cdr _e227920228173_))) - (_hd227919228176_ + (##cdr _e230415230668_))) + (_hd230414230671_ (let () (declare (not safe)) - (##car _e227920228173_)))) + (##car _e230415230668_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl227918228178_)) + _tl230413230673_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl227915228170_)) - (let ((_e227923228181_ + (gx#stx-pair? _tl230410230665_)) + (let ((_e230418230676_ (let () (declare (not safe)) - (gx#stx-e _tl227915228170_)))) - (let ((_tl227921228186_ + (gx#stx-e _tl230410230665_)))) + (let ((_tl230416230681_ (let () (declare (not safe)) - (##cdr _e227923228181_))) - (_hd227922228184_ + (##cdr _e230418230676_))) + (_hd230417230679_ (let () (declare (not safe)) - (##car _e227923228181_)))) + (##car _e230418230676_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl227921228186_)) - (___match240717240718_ - _e227917228165_ - _hd227916228168_ - _tl227915228170_ - _e227920228173_ - _hd227919228176_ - _tl227918228178_ - _e227923228181_ - _hd227922228184_ - _tl227921228186_) + (gx#stx-null? _tl230416230681_)) + (___match243312243313_ + _e230412230660_ + _hd230411230663_ + _tl230410230665_ + _e230415230668_ + _hd230414230671_ + _tl230413230673_ + _e230418230676_ + _hd230417230679_ + _tl230416230681_) (let () (declare (not safe)) - (_g227911227947_))))) - (let () (declare (not safe)) (_g227911227947_))) + (_g230406230442_))))) + (let () (declare (not safe)) (_g230406230442_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl227915228170_)) - (let ((_e227942227960_ + (gx#stx-pair? _tl230410230665_)) + (let ((_e230437230455_ (let () (declare (not safe)) - (gx#stx-e _tl227915228170_)))) - (let ((_tl227940227965_ + (gx#stx-e _tl230410230665_)))) + (let ((_tl230435230460_ (let () (declare (not safe)) - (##cdr _e227942227960_))) - (_hd227941227963_ + (##cdr _e230437230455_))) + (_hd230436230458_ (let () (declare (not safe)) - (##car _e227942227960_)))) + (##car _e230437230455_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl227940227965_)) - (___kont240694240695_ - _hd227941227963_ - _hd227916228168_) + (gx#stx-null? _tl230435230460_)) + (___kont243289243290_ + _hd230436230458_ + _hd230411230663_) (let () (declare (not safe)) - (_g227911227947_))))) - (let () (declare (not safe)) (_g227911227947_)))))) + (_g230406230442_))))) + (let () (declare (not safe)) (_g230406230442_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl227915228170_)) - (let ((_e227942227960_ + _tl230410230665_)) + (let ((_e230437230455_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl227915228170_)))) - (let ((_tl227940227965_ - (let () (declare (not safe)) (##cdr _e227942227960_))) - (_hd227941227963_ - (let () (declare (not safe)) (##car _e227942227960_)))) + (gx#stx-e _tl230410230665_)))) + (let ((_tl230435230460_ + (let () (declare (not safe)) (##cdr _e230437230455_))) + (_hd230436230458_ + (let () (declare (not safe)) (##car _e230437230455_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl227940227965_)) - (___kont240694240695_ _hd227941227963_ _hd227916228168_) - (let () (declare (not safe)) (_g227911227947_))))) - (let () (declare (not safe)) (_g227911227947_)))))) + (gx#stx-null? _tl230435230460_)) + (___kont243289243290_ _hd230436230458_ _hd230411230663_) + (let () (declare (not safe)) (_g230406230442_))))) + (let () (declare (not safe)) (_g230406230442_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g227911227947_))))))))) + (_g230406230442_))))))))) (if (let () (declare (not safe)) - (##pair? _rest227887227895_)) - (let ((_hd227892228285_ + (##pair? _rest230382230390_)) + (let ((_hd230387230780_ (let () (declare (not safe)) - (##car _rest227887227895_))) - (_tl227893228287_ + (##car _rest230382230390_))) + (_tl230388230782_ (let () (declare (not safe)) - (##cdr _rest227887227895_)))) - (let* ((_hd228290_ _hd227892228285_) - (_rest228292_ _tl227893228287_)) + (##cdr _rest230382230390_)))) + (let* ((_hd230785_ _hd230387230780_) + (_rest230787_ _tl230388230782_)) (declare (not safe)) - (_K227891228282_ _rest228292_ _hd228290_))) + (_K230386230777_ _rest230787_ _hd230785_))) (let () (declare (not safe)) - (_else227889227903_))))))) - (_lift-kw-lambda?227247_ - (lambda (_bind227803_) - (let* ((___stx240756240757_ _bind227803_) - (_g227806227823_ + (_else230384230398_))))))) + (_lift-kw-lambda?229742_ + (lambda (_bind230298_) + (let* ((___stx243351243352_ _bind230298_) + (_g230301230318_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240756240757_))))) - (let ((___kont240758240759_ - (lambda (_L227859_ _L227860_) + ___stx243351243352_))))) + (let ((___kont243353243354_ + (lambda (_L230354_ _L230355_) (if (let () (declare (not safe)) - (gx#identifier? _L227860_)) + (gx#identifier? _L230355_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L227859_)) + (gxc#kw-lambda-expr? _L230354_)) '#f))) - (___kont240760240761_ (lambda () '#f))) + (___kont243355243356_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx240756240757_)) - (let ((_e227812227835_ + (gx#stx-pair? ___stx243351243352_)) + (let ((_e230307230330_ (let () (declare (not safe)) - (gx#stx-e ___stx240756240757_)))) - (let ((_tl227810227840_ + (gx#stx-e ___stx243351243352_)))) + (let ((_tl230305230335_ (let () (declare (not safe)) - (##cdr _e227812227835_))) - (_hd227811227838_ + (##cdr _e230307230330_))) + (_hd230306230333_ (let () (declare (not safe)) - (##car _e227812227835_)))) + (##car _e230307230330_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd227811227838_)) - (let ((_e227815227843_ + (gx#stx-pair? _hd230306230333_)) + (let ((_e230310230338_ (let () (declare (not safe)) - (gx#stx-e _hd227811227838_)))) - (let ((_tl227813227848_ + (gx#stx-e _hd230306230333_)))) + (let ((_tl230308230343_ (let () (declare (not safe)) - (##cdr _e227815227843_))) - (_hd227814227846_ + (##cdr _e230310230338_))) + (_hd230309230341_ (let () (declare (not safe)) - (##car _e227815227843_)))) + (##car _e230310230338_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl227813227848_)) + (gx#stx-null? _tl230308230343_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl227810227840_)) - (let ((_e227818227851_ + _tl230305230335_)) + (let ((_e230313230346_ (let () (declare (not safe)) (gx#stx-e - _tl227810227840_)))) - (let ((_tl227816227856_ + _tl230305230335_)))) + (let ((_tl230311230351_ (let () (declare (not safe)) - (##cdr _e227818227851_))) - (_hd227817227854_ + (##cdr _e230313230346_))) + (_hd230312230349_ (let () (declare (not safe)) - (##car _e227818227851_)))) + (##car _e230313230346_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl227816227856_)) - (___kont240758240759_ - _hd227817227854_ - _hd227814227846_) - (___kont240760240761_)))) - (___kont240760240761_)) - (___kont240760240761_)))) - (___kont240760240761_)))) - (___kont240760240761_)))))) - (_lift-kw-lambda-bindings227248_ - (lambda (_bindings227415_) - (let _lp227417_ ((_rest227419_ _bindings227415_) - (_lift1227420_ '()) - (_lift2227421_ '()) - (_bind227422_ '())) - (let* ((_rest227423227431_ _rest227419_) - (_else227425227439_ + _tl230311230351_)) + (___kont243353243354_ + _hd230312230349_ + _hd230309230341_) + (___kont243355243356_)))) + (___kont243355243356_)) + (___kont243355243356_)))) + (___kont243355243356_)))) + (___kont243355243356_)))))) + (_lift-kw-lambda-bindings229743_ + (lambda (_bindings229910_) + (let _lp229912_ ((_rest229914_ _bindings229910_) + (_lift1229915_ '()) + (_lift2229916_ '()) + (_bind229917_ '())) + (let* ((_rest229918229926_ _rest229914_) + (_else229920229934_ (lambda () - (values (reverse _lift1227420_) - (reverse _lift2227421_) - (reverse _bind227422_)))) - (_K227427227791_ - (lambda (_rest227442_ _hd227443_) - (let* ((___stx240786240787_ _hd227443_) - (_g227446227471_ + (values (reverse _lift1229915_) + (reverse _lift2229916_) + (reverse _bind229917_)))) + (_K229922230286_ + (lambda (_rest229937_ _hd229938_) + (let* ((___stx243381243382_ _hd229938_) + (_g229941229966_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240786240787_))))) - (let ((___kont240788240789_ - (lambda (_L227541_ _L227542_) - (let* ((_g227556227609_ - (lambda (_g227557227606_) + ___stx243381243382_))))) + (let ((___kont243383243384_ + (lambda (_L230036_ _L230037_) + (let* ((_g230051230104_ + (lambda (_g230052230101_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g227557227606_)))) - (_g227555227785_ - (lambda (_g227557227612_) + _g230052230101_)))) + (_g230050230280_ + (lambda (_g230052230107_) (if (let () (declare (not safe)) (gx#stx-pair? - _g227557227612_)) - (let ((_e227565227614_ + _g230052230107_)) + (let ((_e230060230109_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g227557227612_)))) - (let ((_hd227564227617_ + (gx#stx-e _g230052230107_)))) + (let ((_hd230059230112_ (let () (declare (not safe)) - (##car _e227565227614_))) - (_tl227563227619_ + (##car _e230060230109_))) + (_tl230058230114_ (let () (declare (not safe)) - (##cdr _e227565227614_)))) + (##cdr _e230060230109_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl227563227619_)) - (let ((_e227568227622_ + (gx#stx-pair? _tl230058230114_)) + (let ((_e230063230117_ (let () (declare (not safe)) - (gx#stx-e _tl227563227619_)))) - (let ((_hd227567227625_ + (gx#stx-e _tl230058230114_)))) + (let ((_hd230062230120_ (let () (declare (not safe)) - (##car _e227568227622_))) - (_tl227566227627_ + (##car _e230063230117_))) + (_tl230061230122_ (let () (declare (not safe)) - (##cdr _e227568227622_)))) + (##cdr _e230063230117_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd227567227625_)) - (let ((_e227571227630_ + (gx#stx-pair? _hd230062230120_)) + (let ((_e230066230125_ (let () (declare (not safe)) - (gx#stx-e _hd227567227625_)))) - (let ((_hd227570227633_ + (gx#stx-e _hd230062230120_)))) + (let ((_hd230065230128_ (let () (declare (not safe)) - (##car _e227571227630_))) - (_tl227569227635_ + (##car _e230066230125_))) + (_tl230064230130_ (let () (declare (not safe)) - (##cdr _e227571227630_)))) + (##cdr _e230066230125_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd227570227633_)) - (let ((_e227574227638_ + (gx#stx-pair? _hd230065230128_)) + (let ((_e230069230133_ (let () (declare (not safe)) (gx#stx-e - _hd227570227633_)))) - (let ((_hd227573227641_ + _hd230065230128_)))) + (let ((_hd230068230136_ (let () (declare (not safe)) - (##car _e227574227638_))) - (_tl227572227643_ + (##car _e230069230133_))) + (_tl230067230138_ (let () (declare (not safe)) - (##cdr _e227574227638_)))) + (##cdr _e230069230133_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd227573227641_)) - (let ((_e227577227646_ + _hd230068230136_)) + (let ((_e230072230141_ (let () (declare (not safe)) (gx#stx-e - _hd227573227641_)))) - (let ((_hd227576227649_ + _hd230068230136_)))) + (let ((_hd230071230144_ (let () (declare (not safe)) - (##car _e227577227646_))) - (_tl227575227651_ + (##car _e230072230141_))) + (_tl230070230146_ (let () (declare (not safe)) - (##cdr _e227577227646_)))) + (##cdr _e230072230141_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl227575227651_)) + _tl230070230146_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl227572227643_)) - (let ((_e227580227654_ + (gx#stx-pair? _tl230067230138_)) + (let ((_e230075230149_ (let () (declare (not safe)) - (gx#stx-e _tl227572227643_)))) - (let ((_hd227579227657_ + (gx#stx-e _tl230067230138_)))) + (let ((_hd230074230152_ (let () (declare (not safe)) - (##car _e227580227654_))) - (_tl227578227659_ + (##car _e230075230149_))) + (_tl230073230154_ (let () (declare (not safe)) - (##cdr _e227580227654_)))) + (##cdr _e230075230149_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd227579227657_)) - (let ((_e227583227662_ + (gx#stx-pair? _hd230074230152_)) + (let ((_e230078230157_ (let () (declare (not safe)) - (gx#stx-e _hd227579227657_)))) - (let ((_hd227582227665_ + (gx#stx-e _hd230074230152_)))) + (let ((_hd230077230160_ (let () (declare (not safe)) - (##car _e227583227662_))) - (_tl227581227667_ + (##car _e230078230157_))) + (_tl230076230162_ (let () (declare (not safe)) - (##cdr _e227583227662_)))) + (##cdr _e230078230157_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl227581227667_)) - (let ((_e227586227670_ + (gx#stx-pair? _tl230076230162_)) + (let ((_e230081230165_ (let () (declare (not safe)) - (gx#stx-e _tl227581227667_)))) - (let ((_hd227585227673_ + (gx#stx-e _tl230076230162_)))) + (let ((_hd230080230168_ (let () (declare (not safe)) - (##car _e227586227670_))) - (_tl227584227675_ + (##car _e230081230165_))) + (_tl230079230170_ (let () (declare (not safe)) - (##cdr _e227586227670_)))) + (##cdr _e230081230165_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd227585227673_)) - (let ((_e227589227678_ + _hd230080230168_)) + (let ((_e230084230173_ (let () (declare (not safe)) (gx#stx-e - _hd227585227673_)))) - (let ((_hd227588227681_ + _hd230080230168_)))) + (let ((_hd230083230176_ (let () (declare (not safe)) - (##car _e227589227678_))) - (_tl227587227683_ + (##car _e230084230173_))) + (_tl230082230178_ (let () (declare (not safe)) - (##cdr _e227589227678_)))) + (##cdr _e230084230173_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd227588227681_)) - (let ((_e227592227686_ + _hd230083230176_)) + (let ((_e230087230181_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd227588227681_)))) - (let ((_hd227591227689_ - (let () (declare (not safe)) (##car _e227592227686_))) - (_tl227590227691_ - (let () (declare (not safe)) (##cdr _e227592227686_)))) + (gx#stx-e _hd230083230176_)))) + (let ((_hd230086230184_ + (let () (declare (not safe)) (##car _e230087230181_))) + (_tl230085230186_ + (let () (declare (not safe)) (##cdr _e230087230181_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd227591227689_)) - (let ((_e227595227694_ + (gx#stx-pair? _hd230086230184_)) + (let ((_e230090230189_ (let () (declare (not safe)) - (gx#stx-e _hd227591227689_)))) - (let ((_hd227594227697_ + (gx#stx-e _hd230086230184_)))) + (let ((_hd230089230192_ (let () (declare (not safe)) - (##car _e227595227694_))) - (_tl227593227699_ + (##car _e230090230189_))) + (_tl230088230194_ (let () (declare (not safe)) - (##cdr _e227595227694_)))) + (##cdr _e230090230189_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl227593227699_)) + (gx#stx-null? _tl230088230194_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl227590227691_)) - (let ((_e227598227702_ + (gx#stx-pair? _tl230085230186_)) + (let ((_e230093230197_ (let () (declare (not safe)) - (gx#stx-e _tl227590227691_)))) - (let ((_hd227597227705_ + (gx#stx-e _tl230085230186_)))) + (let ((_hd230092230200_ (let () (declare (not safe)) - (##car _e227598227702_))) - (_tl227596227707_ + (##car _e230093230197_))) + (_tl230091230202_ (let () (declare (not safe)) - (##cdr _e227598227702_)))) + (##cdr _e230093230197_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl227596227707_)) + (gx#stx-null? _tl230091230202_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl227587227683_)) + _tl230082230178_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl227584227675_)) - (let ((_e227601227710_ + _tl230079230170_)) + (let ((_e230096230205_ (let () (declare (not safe)) (gx#stx-e - _tl227584227675_)))) - (let ((_hd227600227713_ + _tl230079230170_)))) + (let ((_hd230095230208_ (let () (declare (not safe)) - (##car _e227601227710_))) - (_tl227599227715_ + (##car _e230096230205_))) + (_tl230094230210_ (let () (declare (not safe)) - (##cdr _e227601227710_)))) + (##cdr _e230096230205_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl227599227715_)) + _tl230094230210_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl227578227659_)) + (gx#stx-null? _tl230073230154_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl227569227635_)) + (gx#stx-null? _tl230064230130_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl227566227627_)) - (let ((_e227604227718_ + (gx#stx-pair? _tl230061230122_)) + (let ((_e230099230213_ (let () (declare (not safe)) - (gx#stx-e _tl227566227627_)))) - (let ((_hd227603227721_ + (gx#stx-e _tl230061230122_)))) + (let ((_hd230098230216_ (let () (declare (not safe)) - (##car _e227604227718_))) - (_tl227602227723_ + (##car _e230099230213_))) + (_tl230097230218_ (let () (declare (not safe)) - (##cdr _e227604227718_)))) + (##cdr _e230099230213_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl227602227723_)) - ((lambda (_L227726_ - _L227727_ - _L227728_ - _L227729_ - _L227730_) - (let* ((_get-kws-id227770_ - (let ((__tmp241313 + (gx#stx-null? _tl230097230218_)) + ((lambda (_L230221_ + _L230222_ + _L230223_ + _L230224_ + _L230225_) + (let* ((_get-kws-id230265_ + (let ((__tmp243908 (let () (declare (not safe)) (gx#stx-e - _L227542_))) - (__tmp241312 + _L230037_))) + (__tmp243907 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp241313 - __tmp241312))) - (_get-kws-id227772_ - (let ((__tmp241314 + __tmp243908 + __tmp243907))) + (_get-kws-id230267_ + (let ((__tmp243909 (let () (declare (not safe)) (gx#stx-source - _stx227243_)))) + _stx229738_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id227770_ - __tmp241314))) - (_main-id227774_ - (let ((__tmp241316 + _get-kws-id230265_ + __tmp243909))) + (_main-id230269_ + (let ((__tmp243911 (let () (declare (not safe)) (gx#stx-e - _L227542_))) - (__tmp241315 + _L230037_))) + (__tmp243910 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp241316 - __tmp241315))) - (_main-id227776_ - (let ((__tmp241317 + __tmp243911 + __tmp243910))) + (_main-id230271_ + (let ((__tmp243912 (let () (declare (not safe)) (gx#stx-source - _stx227243_)))) + _stx229738_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id227774_ - __tmp241317))) - (_g241318_ + _main-id230269_ + __tmp243912))) + (_g243913_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id227772_))) - (_g241319_ + _get-kws-id230267_))) + (_g243914_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id227776_))) - (_new-kw-dispatch227780_ + _main-id230271_))) + (_new-kw-dispatch230275_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L227726_ - _L227730_ - _get-kws-id227772_))) - (_new-get-kws227782_ + _L230221_ + _L230225_ + _get-kws-id230267_))) + (_new-get-kws230277_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L227727_ - _L227729_ - _main-id227776_)))) - (let ((__tmp241322 + _L230222_ + _L230224_ + _main-id230271_)))) + (let ((__tmp243917 (let () (declare (not safe)) (gxc#identifier-symbol - _L227542_))) - (__tmp241321 + _L230037_))) + (__tmp243916 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id227772_))) - (__tmp241320 + _get-kws-id230267_))) + (__tmp243915 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id227776_)))) + _main-id230271_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp241322 + __tmp243917 '" => " - __tmp241321 + __tmp243916 '" => " - __tmp241320)) - (let ((__tmp241327 - (let ((__tmp241328 + __tmp243915)) + (let ((__tmp243922 + (let ((__tmp243923 (let () (declare (not safe)) - (_bind-e__238948238949_ - _main-id227776_ - _L227728_ + (_bind-e__241543241544_ + _main-id230271_ + _L230223_ '#f)))) (declare (not safe)) - (cons __tmp241328 - _lift1227420_))) - (__tmp241325 - (let ((__tmp241326 + (cons __tmp243923 + _lift1229915_))) + (__tmp243920 + (let ((__tmp243921 (let () (declare (not safe)) - (_bind-e__238948238949_ - _get-kws-id227772_ - _new-get-kws227782_ + (_bind-e__241543241544_ + _get-kws-id230267_ + _new-get-kws230277_ '#f)))) (declare (not safe)) - (cons __tmp241326 - _lift2227421_))) - (__tmp241323 - (let ((__tmp241324 + (cons __tmp243921 + _lift2229916_))) + (__tmp243918 + (let ((__tmp243919 (let () (declare (not safe)) - (_bind-e__238948238949_ - _L227542_ - _new-kw-dispatch227780_ + (_bind-e__241543241544_ + _L230037_ + _new-kw-dispatch230275_ '#f)))) (declare (not safe)) - (cons __tmp241324 - _bind227422_)))) + (cons __tmp243919 + _bind229917_)))) (declare (not safe)) - (_lp227417_ - _rest227442_ - __tmp241327 - __tmp241325 - __tmp241323)))) - _hd227603227721_ - _hd227600227713_ - _hd227597227705_ - _hd227594227697_ - _hd227576227649_) + (_lp229912_ + _rest229937_ + __tmp243922 + __tmp243920 + __tmp243918)))) + _hd230098230216_ + _hd230095230208_ + _hd230092230200_ + _hd230089230192_ + _hd230071230144_) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))))) + (_g230051230104_ _g230052230107_))))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))) + (_g230051230104_ _g230052230107_))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))) + (_g230051230104_ _g230052230107_))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))) + (_g230051230104_ _g230052230107_))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))))) + (_g230051230104_ _g230052230107_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g227556227609_ - _g227557227612_))) + (_g230051230104_ + _g230052230107_))) (let () (declare (not safe)) - (_g227556227609_ - _g227557227612_))) + (_g230051230104_ + _g230052230107_))) (let () (declare (not safe)) - (_g227556227609_ - _g227557227612_))))) + (_g230051230104_ + _g230052230107_))))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))) + (_g230051230104_ _g230052230107_))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))))) + (_g230051230104_ _g230052230107_))))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))))) + (_g230051230104_ _g230052230107_))))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))))) + (_g230051230104_ _g230052230107_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g227556227609_ - _g227557227612_))))) + (_g230051230104_ + _g230052230107_))))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))))) + (_g230051230104_ _g230052230107_))))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))))) + (_g230051230104_ _g230052230107_))))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))) + (_g230051230104_ _g230052230107_))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))))) + (_g230051230104_ _g230052230107_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g227556227609_ - _g227557227612_))))) + (_g230051230104_ + _g230052230107_))))) (let () (declare (not safe)) - (_g227556227609_ - _g227557227612_))))) + (_g230051230104_ + _g230052230107_))))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))))) + (_g230051230104_ _g230052230107_))))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_))))) + (_g230051230104_ _g230052230107_))))) (let () (declare (not safe)) - (_g227556227609_ _g227557227612_)))))) + (_g230051230104_ _g230052230107_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g227555227785_ _L227541_)))) - (___kont240790240791_ - (lambda (_L227492_ _L227493_) - (let ((__tmp241329 - (let ((__tmp241330 - (let ((__tmp241331 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L227492_ '())))) + (_g230050230280_ _L230036_)))) + (___kont243385243386_ + (lambda (_L229987_ _L229988_) + (let ((__tmp243924 + (let ((__tmp243925 + (let ((__tmp243926 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _L229987_ '())))) (declare (not safe)) - (cons _L227493_ __tmp241331)))) + (cons _L229988_ __tmp243926)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp241330 - _bind227422_)))) + (cons __tmp243925 + _bind229917_)))) (declare (not safe)) - (_lp227417_ - _rest227442_ - _lift1227420_ - _lift2227421_ - __tmp241329))))) - (let ((___match240813240814_ - (lambda (_e227452227517_ - _hd227451227520_ - _tl227450227522_ - _e227455227525_ - _hd227454227528_ - _tl227453227530_ - _e227458227533_ - _hd227457227536_ - _tl227456227538_) - (let ((_L227541_ - _hd227457227536_) - (_L227542_ - _hd227454227528_)) + (_lp229912_ + _rest229937_ + _lift1229915_ + _lift2229916_ + __tmp243924))))) + (let ((___match243408243409_ + (lambda (_e229947230012_ + _hd229946230015_ + _tl229945230017_ + _e229950230020_ + _hd229949230023_ + _tl229948230025_ + _e229953230028_ + _hd229952230031_ + _tl229951230033_) + (let ((_L230036_ + _hd229952230031_) + (_L230037_ + _hd229949230023_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L227542_)) + _L230037_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L227541_))) - (___kont240788240789_ - _L227541_ - _L227542_) - (___kont240790240791_ - _hd227457227536_ - _hd227451227520_)))))) + _L230036_))) + (___kont243383243384_ + _L230036_ + _L230037_) + (___kont243385243386_ + _hd229952230031_ + _hd229946230015_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx240786240787_)) - (let ((_e227452227517_ + ___stx243381243382_)) + (let ((_e229947230012_ (let () (declare (not safe)) (gx#stx-e - ___stx240786240787_)))) - (let ((_tl227450227522_ + ___stx243381243382_)))) + (let ((_tl229945230017_ (let () (declare (not safe)) - (##cdr _e227452227517_))) - (_hd227451227520_ + (##cdr _e229947230012_))) + (_hd229946230015_ (let () (declare (not safe)) - (##car _e227452227517_)))) + (##car _e229947230012_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd227451227520_)) - (let ((_e227455227525_ + _hd229946230015_)) + (let ((_e229950230020_ (let () (declare (not safe)) (gx#stx-e - _hd227451227520_)))) - (let ((_tl227453227530_ + _hd229946230015_)))) + (let ((_tl229948230025_ (let () (declare (not safe)) - (##cdr _e227455227525_))) - (_hd227454227528_ + (##cdr _e229950230020_))) + (_hd229949230023_ (let () (declare (not safe)) - (##car _e227455227525_)))) + (##car _e229950230020_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl227453227530_)) + _tl229948230025_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl227450227522_)) - (let ((_e227458227533_ + (gx#stx-pair? _tl229945230017_)) + (let ((_e229953230028_ (let () (declare (not safe)) - (gx#stx-e _tl227450227522_)))) - (let ((_tl227456227538_ + (gx#stx-e _tl229945230017_)))) + (let ((_tl229951230033_ (let () (declare (not safe)) - (##cdr _e227458227533_))) - (_hd227457227536_ + (##cdr _e229953230028_))) + (_hd229952230031_ (let () (declare (not safe)) - (##car _e227458227533_)))) + (##car _e229953230028_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl227456227538_)) - (___match240813240814_ - _e227452227517_ - _hd227451227520_ - _tl227450227522_ - _e227455227525_ - _hd227454227528_ - _tl227453227530_ - _e227458227533_ - _hd227457227536_ - _tl227456227538_) + (gx#stx-null? _tl229951230033_)) + (___match243408243409_ + _e229947230012_ + _hd229946230015_ + _tl229945230017_ + _e229950230020_ + _hd229949230023_ + _tl229948230025_ + _e229953230028_ + _hd229952230031_ + _tl229951230033_) (let () (declare (not safe)) - (_g227446227471_))))) - (let () (declare (not safe)) (_g227446227471_))) + (_g229941229966_))))) + (let () (declare (not safe)) (_g229941229966_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl227450227522_)) - (let ((_e227466227484_ + (gx#stx-pair? _tl229945230017_)) + (let ((_e229961229979_ (let () (declare (not safe)) - (gx#stx-e _tl227450227522_)))) - (let ((_tl227464227489_ + (gx#stx-e _tl229945230017_)))) + (let ((_tl229959229984_ (let () (declare (not safe)) - (##cdr _e227466227484_))) - (_hd227465227487_ + (##cdr _e229961229979_))) + (_hd229960229982_ (let () (declare (not safe)) - (##car _e227466227484_)))) + (##car _e229961229979_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl227464227489_)) - (___kont240790240791_ - _hd227465227487_ - _hd227451227520_) + (gx#stx-null? _tl229959229984_)) + (___kont243385243386_ + _hd229960229982_ + _hd229946230015_) (let () (declare (not safe)) - (_g227446227471_))))) - (let () (declare (not safe)) (_g227446227471_)))))) + (_g229941229966_))))) + (let () (declare (not safe)) (_g229941229966_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl227450227522_)) - (let ((_e227466227484_ + _tl229945230017_)) + (let ((_e229961229979_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl227450227522_)))) - (let ((_tl227464227489_ - (let () (declare (not safe)) (##cdr _e227466227484_))) - (_hd227465227487_ - (let () (declare (not safe)) (##car _e227466227484_)))) + (gx#stx-e _tl229945230017_)))) + (let ((_tl229959229984_ + (let () (declare (not safe)) (##cdr _e229961229979_))) + (_hd229960229982_ + (let () (declare (not safe)) (##car _e229961229979_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl227464227489_)) - (___kont240790240791_ _hd227465227487_ _hd227451227520_) - (let () (declare (not safe)) (_g227446227471_))))) - (let () (declare (not safe)) (_g227446227471_)))))) + (gx#stx-null? _tl229959229984_)) + (___kont243385243386_ _hd229960229982_ _hd229946230015_) + (let () (declare (not safe)) (_g229941229966_))))) + (let () (declare (not safe)) (_g229941229966_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g227446227471_))))))))) + (_g229941229966_))))))))) (if (let () (declare (not safe)) - (##pair? _rest227423227431_)) - (let ((_hd227428227794_ + (##pair? _rest229918229926_)) + (let ((_hd229923230289_ (let () (declare (not safe)) - (##car _rest227423227431_))) - (_tl227429227796_ + (##car _rest229918229926_))) + (_tl229924230291_ (let () (declare (not safe)) - (##cdr _rest227423227431_)))) - (let* ((_hd227799_ _hd227428227794_) - (_rest227801_ _tl227429227796_)) + (##cdr _rest229918229926_)))) + (let* ((_hd230294_ _hd229923230289_) + (_rest230296_ _tl229924230291_)) (declare (not safe)) - (_K227427227791_ _rest227801_ _hd227799_))) + (_K229922230286_ _rest230296_ _hd230294_))) (let () (declare (not safe)) - (_else227425227439_)))))))) - (let* ((___stx240830240831_ _stx227243_) - (_g227251227277_ + (_else229920229934_)))))))) + (let* ((___stx243425243426_ _stx229738_) + (_g229746229772_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240830240831_))))) - (let ((___kont240832240833_ - (lambda (_L227337_ _L227338_) - (let ((__tmp241333 + ___stx243425243426_))))) + (let ((___kont243427243428_ + (lambda (_L229832_ _L229833_) + (let ((__tmp243928 (lambda () - (if (let ((__tmp241360 - (let ((__tmp241361 - (lambda (_g227366227369_ - _g227367227371_) + (if (let ((__tmp243955 + (let ((__tmp243956 + (lambda (_g229861229864_ + _g229862229866_) (let () (declare (not safe)) - (cons _g227366227369_ - _g227367227371_))))) + (cons _g229861229864_ + _g229862229866_))))) (declare (not safe)) - (foldr1 __tmp241361 + (foldr1 __tmp243956 '() - _L227338_)))) + _L229833_)))) (declare (not safe)) - (ormap1 _lift-kw-lambda?227247_ - __tmp241360)) - (let ((_g241347_ - (let ((__tmp241349 - (let ((__tmp241350 - (lambda (_g227373227376_ - _g227374227378_) + (ormap1 _lift-kw-lambda?229742_ + __tmp243955)) + (let ((_g243942_ + (let ((__tmp243944 + (let ((__tmp243945 + (lambda (_g229868229871_ + _g229869229873_) (let () (declare (not safe)) - (cons _g227373227376_ + (cons _g229868229871_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g227374227378_))))) + _g229869229873_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp241350 + (foldr1 __tmp243945 '() - _L227338_)))) + _L229833_)))) (declare (not safe)) - (_lift-kw-lambda-bindings227248_ - __tmp241349)))) + (_lift-kw-lambda-bindings229743_ + __tmp243944)))) (begin - (let ((_g241348_ + (let ((_g243943_ (let () (declare (not safe)) - (if (##values? _g241347_) - (##vector-length _g241347_) + (if (##values? _g243942_) + (##vector-length _g243942_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g241348_ 3))) + (##fx= _g243943_ 3))) (error "Context expects 3 values" - _g241348_))) - (let ((_lift1227381_ + _g243943_))) + (let ((_lift1229876_ (let () (declare (not safe)) - (##vector-ref _g241347_ 0))) - (_lift2227382_ + (##vector-ref _g243942_ 0))) + (_lift2229877_ (let () (declare (not safe)) - (##vector-ref _g241347_ 1))) - (_hd227383_ + (##vector-ref _g243942_ 1))) + (_hd229878_ (let () (declare (not safe)) - (##vector-ref _g241347_ 2)))) - (let* ((_expr227385_ - (let ((__tmp241351 - (let ((__tmp241352 - (let ((__tmp241353 + (##vector-ref _g243942_ 2)))) + (let* ((_expr229880_ + (let ((__tmp243946 + (let ((__tmp243947 + (let ((__tmp243948 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L227337_ '())))) + (cons _L229832_ '())))) (declare (not safe)) - (cons _hd227383_ __tmp241353)))) + (cons _hd229878_ __tmp243948)))) (declare (not safe)) - (cons '%#let-values __tmp241352)))) + (cons '%#let-values __tmp243947)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp241351 - _stx227243_))) - (_expr227387_ - (let ((__tmp241354 - (let ((__tmp241355 - (let ((__tmp241356 + __tmp243946 + _stx229738_))) + (_expr229882_ + (let ((__tmp243949 + (let ((__tmp243950 + (let ((__tmp243951 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr227385_ '())))) + (cons _expr229880_ '())))) (declare (not safe)) - (cons _lift2227382_ __tmp241356)))) + (cons _lift2229877_ __tmp243951)))) (declare (not safe)) - (cons '%#let-values __tmp241355)))) + (cons '%#let-values __tmp243950)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp241354 - _stx227243_))) - (_expr227389_ - (let ((__tmp241357 - (let ((__tmp241358 - (let ((__tmp241359 + __tmp243949 + _stx229738_))) + (_expr229884_ + (let ((__tmp243952 + (let ((__tmp243953 + (let ((__tmp243954 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr227387_ '())))) + (cons _expr229882_ '())))) (declare (not safe)) - (cons _lift1227381_ __tmp241359)))) + (cons _lift1229876_ __tmp243954)))) (declare (not safe)) - (cons '%#let-values __tmp241358)))) + (cons '%#let-values __tmp243953)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp241357 - _stx227243_)))) + __tmp243952 + _stx229738_)))) (let () (declare (not safe)) (gxc#lift-top-lambda-let-values% - _expr227389_)))))) - (let ((_g241334_ - (let ((__tmp241336 - (let ((__tmp241337 - (lambda (_g227391227394_ - _g227392227396_) + _expr229884_)))))) + (let ((_g243929_ + (let ((__tmp243931 + (let ((__tmp243932 + (lambda (_g229886229889_ + _g229887229891_) (let () (declare (not safe)) - (cons _g227391227394_ + (cons _g229886229889_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g227392227396_))))) + _g229887229891_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp241337 + (foldr1 __tmp243932 '() - _L227338_)))) + _L229833_)))) (declare (not safe)) - (_compile-bindings227246_ - __tmp241336)))) + (_compile-bindings229741_ + __tmp243931)))) (begin - (let ((_g241335_ + (let ((_g243930_ (let () (declare (not safe)) - (if (##values? _g241334_) - (##vector-length _g241334_) + (if (##values? _g243929_) + (##vector-length _g243929_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g241335_ 3))) + (##fx= _g243930_ 3))) (error "Context expects 3 values" - _g241335_))) - (let ((_lift1227399_ + _g243930_))) + (let ((_lift1229894_ (let () (declare (not safe)) - (##vector-ref _g241334_ 0))) - (_lift2227400_ + (##vector-ref _g243929_ 0))) + (_lift2229895_ (let () (declare (not safe)) - (##vector-ref _g241334_ 1))) - (_hd227401_ + (##vector-ref _g243929_ 1))) + (_hd229896_ (let () (declare (not safe)) - (##vector-ref _g241334_ 2)))) - (let* ((_body227403_ + (##vector-ref _g243929_ 2)))) + (let* ((_body229898_ (let () (declare (not safe)) (gxc#compile-e__0 - _L227337_))) - (_expr227405_ - (let ((__tmp241338 - (let ((__tmp241339 - (let ((__tmp241340 + _L229832_))) + (_expr229900_ + (let ((__tmp243933 + (let ((__tmp243934 + (let ((__tmp243935 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _body227403_ '())))) + (cons _body229898_ '())))) (declare (not safe)) - (cons _hd227401_ __tmp241340)))) + (cons _hd229896_ __tmp243935)))) (declare (not safe)) - (cons '%#let-values __tmp241339)))) + (cons '%#let-values __tmp243934)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp241338 - _stx227243_))) - (_expr227407_ + __tmp243933 + _stx229738_))) + (_expr229902_ (if (let () (declare (not safe)) - (null? _lift2227400_)) - _expr227405_ - (let ((__tmp241341 - (let ((__tmp241342 + (null? _lift2229895_)) + _expr229900_ + (let ((__tmp243936 + (let ((__tmp243937 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp241343 + (let ((__tmp243938 (let () (declare (not safe)) - (cons _expr227405_ '())))) + (cons _expr229900_ '())))) (declare (not safe)) - (cons _lift2227400_ __tmp241343)))) + (cons _lift2229895_ __tmp243938)))) (declare (not safe)) - (cons '%#let-values __tmp241342)))) + (cons '%#let-values __tmp243937)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp241341 _stx227243_)))) + (gxc#xform-wrap-source __tmp243936 _stx229738_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_expr227409_ + (_expr229904_ (if (let () (declare (not safe)) - (null? _lift1227399_)) - _expr227407_ - (let ((__tmp241344 - (let ((__tmp241345 + (null? _lift1229894_)) + _expr229902_ + (let ((__tmp243939 + (let ((__tmp243940 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp241346 + (let ((__tmp243941 (let () (declare (not safe)) - (cons _expr227407_ '())))) + (cons _expr229902_ '())))) (declare (not safe)) - (cons _lift1227399_ __tmp241346)))) + (cons _lift1229894_ __tmp243941)))) (declare (not safe)) - (cons '%#let-values __tmp241345)))) + (cons '%#let-values __tmp243940)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp241344 _stx227243_))))) + (gxc#xform-wrap-source __tmp243939 _stx229738_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _expr227409_))))))) - (__tmp241332 - (let ((__obj241036 + _expr229904_))))))) + (__tmp243927 + (let ((__obj243631 (let () (declare (not safe)) (##structure @@ -14006,314 +14006,314 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj241036) - __obj241036))) + (gx#local-context:::init! __obj243631) + __obj243631))) (declare (not safe)) (call-with-parameters - __tmp241333 + __tmp243928 gx#current-expander-context - __tmp241332)))) - (___kont240836240837_ + __tmp243927)))) + (___kont243431243432_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx227243_))))) - (let ((___match240857240858_ - (lambda (_e227257227289_ - _hd227256227292_ - _tl227255227294_ - _e227260227297_ - _hd227259227300_ - _tl227258227302_ - ___splice240834240835_ - _target227261227305_ - _tl227263227307_) - (letrec ((_loop227264227310_ - (lambda (_hd227262227313_ _bind227268227315_) + (gxc#xform-let-values% _stx229738_))))) + (let ((___match243452243453_ + (lambda (_e229752229784_ + _hd229751229787_ + _tl229750229789_ + _e229755229792_ + _hd229754229795_ + _tl229753229797_ + ___splice243429243430_ + _target229756229800_ + _tl229758229802_) + (letrec ((_loop229759229805_ + (lambda (_hd229757229808_ _bind229763229810_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd227262227313_)) - (let ((_e227265227318_ + (gx#stx-pair? _hd229757229808_)) + (let ((_e229760229813_ (let () (declare (not safe)) - (gx#stx-e _hd227262227313_)))) - (let ((_lp-tl227267227323_ + (gx#stx-e _hd229757229808_)))) + (let ((_lp-tl229762229818_ (let () (declare (not safe)) - (##cdr _e227265227318_))) - (_lp-hd227266227321_ + (##cdr _e229760229813_))) + (_lp-hd229761229816_ (let () (declare (not safe)) - (##car _e227265227318_)))) - (let ((__tmp241364 + (##car _e229760229813_)))) + (let ((__tmp243959 (let () (declare (not safe)) - (cons _lp-hd227266227321_ - _bind227268227315_)))) + (cons _lp-hd229761229816_ + _bind229763229810_)))) (declare (not safe)) - (_loop227264227310_ - _lp-tl227267227323_ - __tmp241364)))) - (let ((_bind227269227326_ - (reverse _bind227268227315_))) + (_loop229759229805_ + _lp-tl229762229818_ + __tmp243959)))) + (let ((_bind229764229821_ + (reverse _bind229763229810_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl227258227302_)) - (let ((_e227272227329_ + (gx#stx-pair? _tl229753229797_)) + (let ((_e229767229824_ (let () (declare (not safe)) (gx#stx-e - _tl227258227302_)))) - (let ((_tl227270227334_ + _tl229753229797_)))) + (let ((_tl229765229829_ (let () (declare (not safe)) - (##cdr _e227272227329_))) - (_hd227271227332_ + (##cdr _e229767229824_))) + (_hd229766229827_ (let () (declare (not safe)) - (##car _e227272227329_)))) + (##car _e229767229824_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl227270227334_)) - (let ((_L227337_ - _hd227271227332_) - (_L227338_ - _bind227269227326_)) - (if (let ((__tmp241362 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp241363 - (lambda (_g227358227361_ _g227359227363_) + _tl229765229829_)) + (let ((_L229832_ + _hd229766229827_) + (_L229833_ + _bind229764229821_)) + (if (let ((__tmp243957 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp243958 + (lambda (_g229853229856_ _g229854229858_) (let () (declare (not safe)) - (cons _g227358227361_ _g227359227363_))))) + (cons _g229853229856_ _g229854229858_))))) (declare (not safe)) - (foldr1 __tmp241363 '() _L227338_)))) + (foldr1 __tmp243958 '() _L229833_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp241362)) - (___kont240832240833_ _L227337_ _L227338_) - (___kont240836240837_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp243957)) + (___kont243427243428_ _L229832_ _L229833_) + (___kont243431243432_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240836240837_)))) - (___kont240836240837_))))))) + (___kont243431243432_)))) + (___kont243431243432_))))))) (let () (declare (not safe)) - (_loop227264227310_ _target227261227305_ '())))))) + (_loop229759229805_ _target229756229800_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx240830240831_)) - (let ((_e227257227289_ + (gx#stx-pair? ___stx243425243426_)) + (let ((_e229752229784_ (let () (declare (not safe)) - (gx#stx-e ___stx240830240831_)))) - (let ((_tl227255227294_ + (gx#stx-e ___stx243425243426_)))) + (let ((_tl229750229789_ (let () (declare (not safe)) - (##cdr _e227257227289_))) - (_hd227256227292_ + (##cdr _e229752229784_))) + (_hd229751229787_ (let () (declare (not safe)) - (##car _e227257227289_)))) + (##car _e229752229784_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl227255227294_)) - (let ((_e227260227297_ + (gx#stx-pair? _tl229750229789_)) + (let ((_e229755229792_ (let () (declare (not safe)) - (gx#stx-e _tl227255227294_)))) - (let ((_tl227258227302_ + (gx#stx-e _tl229750229789_)))) + (let ((_tl229753229797_ (let () (declare (not safe)) - (##cdr _e227260227297_))) - (_hd227259227300_ + (##cdr _e229755229792_))) + (_hd229754229795_ (let () (declare (not safe)) - (##car _e227260227297_)))) + (##car _e229755229792_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd227259227300_)) - (let ((___splice240834240835_ + (gx#stx-pair/null? _hd229754229795_)) + (let ((___splice243429243430_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd227259227300_ + _hd229754229795_ '0)))) - (let ((_tl227263227307_ + (let ((_tl229758229802_ (let () (declare (not safe)) (##vector-ref - ___splice240834240835_ + ___splice243429243430_ '1))) - (_target227261227305_ + (_target229756229800_ (let () (declare (not safe)) (##vector-ref - ___splice240834240835_ + ___splice243429243430_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl227263227307_)) - (___match240857240858_ - _e227257227289_ - _hd227256227292_ - _tl227255227294_ - _e227260227297_ - _hd227259227300_ - _tl227258227302_ - ___splice240834240835_ - _target227261227305_ - _tl227263227307_) - (___kont240836240837_)))) - (___kont240836240837_)))) - (___kont240836240837_)))) - (___kont240836240837_)))))))) + (gx#stx-null? _tl229758229802_)) + (___match243452243453_ + _e229752229784_ + _hd229751229787_ + _tl229750229789_ + _e229755229792_ + _hd229754229795_ + _tl229753229797_ + ___splice243429243430_ + _target229756229800_ + _tl229758229802_) + (___kont243431243432_)))) + (___kont243431243432_)))) + (___kont243431243432_)))) + (___kont243431243432_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_stx226387_) - (letrec* ((_bind-e__238953238954_ - (lambda (_id227227_ _expr227228_ _compile?227229_) - (let ((__tmp241367 + (lambda (_stx228882_) + (letrec* ((_bind-e__241548241549_ + (lambda (_id229722_ _expr229723_ _compile?229724_) + (let ((__tmp243962 (let () (declare (not safe)) - (cons _id227227_ '()))) - (__tmp241365 - (let ((__tmp241366 - (if _compile?227229_ + (cons _id229722_ '()))) + (__tmp243960 + (let ((__tmp243961 + (if _compile?229724_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr227228_)) - _expr227228_))) + (gxc#compile-e__0 _expr229723_)) + _expr229723_))) (declare (not safe)) - (cons __tmp241366 '())))) + (cons __tmp243961 '())))) (declare (not safe)) - (cons __tmp241367 __tmp241365)))) - (_bind-e__0__238955238956_ - (lambda (_id227234_ _expr227235_) - (let ((_compile?227237_ '#t)) + (cons __tmp243962 __tmp243960)))) + (_bind-e__0__241550241551_ + (lambda (_id229729_ _expr229730_) + (let ((_compile?229732_ '#t)) (declare (not safe)) - (_bind-e__238953238954_ - _id227234_ - _expr227235_ - _compile?227237_)))) - (_bind-e226389_ - (lambda _g241369_ - (let ((_g241368_ + (_bind-e__241548241549_ + _id229729_ + _expr229730_ + _compile?229732_)))) + (_bind-e228884_ + (lambda _g243964_ + (let ((_g243963_ (let () (declare (not safe)) - (##length _g241369_)))) - (cond ((let () (declare (not safe)) (##fx= _g241368_ 2)) - (apply (lambda (_id227234_ _expr227235_) + (##length _g243964_)))) + (cond ((let () (declare (not safe)) (##fx= _g243963_ 2)) + (apply (lambda (_id229729_ _expr229730_) (let () (declare (not safe)) - (_bind-e__0__238955238956_ - _id227234_ - _expr227235_))) - _g241369_)) - ((let () (declare (not safe)) (##fx= _g241368_ 3)) - (apply (lambda (_id227239_ - _expr227240_ - _compile?227241_) + (_bind-e__0__241550241551_ + _id229729_ + _expr229730_))) + _g243964_)) + ((let () (declare (not safe)) (##fx= _g243963_ 3)) + (apply (lambda (_id229734_ + _expr229735_ + _compile?229736_) (let () (declare (not safe)) - (_bind-e__238953238954_ - _id227239_ - _expr227240_ - _compile?227241_))) - _g241369_)) + (_bind-e__241548241549_ + _id229734_ + _expr229735_ + _compile?229736_))) + _g243964_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g241369_)))))) - (_compile-bindings226390_ - (lambda (_rest226525_) - (let _lp226527_ ((_rest226529_ _rest226525_) - (_bind226530_ '())) - (let* ((_rest226531226539_ _rest226529_) - (_else226533226547_ - (lambda () (reverse _bind226530_))) - (_K226535227214_ - (lambda (_rest226550_ _hd226551_) - (let* ((___stx240880240881_ _hd226551_) - (_g226556226603_ + _g243964_)))))) + (_compile-bindings228885_ + (lambda (_rest229020_) + (let _lp229022_ ((_rest229024_ _rest229020_) + (_bind229025_ '())) + (let* ((_rest229026229034_ _rest229024_) + (_else229028229042_ + (lambda () (reverse _bind229025_))) + (_K229030229709_ + (lambda (_rest229045_ _hd229046_) + (let* ((___stx243475243476_ _hd229046_) + (_g229051229098_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240880240881_))))) - (let ((___kont240882240883_ - (lambda (_L227121_ _L227122_) - (let* ((___stx240860240861_ - _L227121_) - (_g227137227151_ + ___stx243475243476_))))) + (let ((___kont243477243478_ + (lambda (_L229616_ _L229617_) + (let* ((___stx243455243456_ + _L229616_) + (_g229632229646_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240860240861_))))) - (let ((___kont240862240863_ - (lambda (_L227199_) - (let ((__tmp241370 - (let ((__tmp241371 + ___stx243455243456_))))) + (let ((___kont243457243458_ + (lambda (_L229694_) + (let ((__tmp243965 + (let ((__tmp243966 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__238953238954_ - _L227122_ - _L227121_ + (_bind-e__241548241549_ + _L229617_ + _L229616_ '#f)))) (declare (not safe)) - (cons __tmp241371 _bind226530_)))) + (cons __tmp243966 _bind229025_)))) (declare (not safe)) - (_lp226527_ _rest226550_ __tmp241370)))) + (_lp229022_ _rest229045_ __tmp243965)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240864240865_ - (lambda (_L227164_) - (let ((_g241372_ + (___kont243459243460_ + (lambda (_L229659_) + (let ((_g243967_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx226387_ - _L227122_ - _L227164_ + _stx228882_ + _L229617_ + _L229659_ '#t)))) (begin - (let ((_g241373_ + (let ((_g243968_ (let () (declare (not safe)) - (if (##values? _g241372_) - (##vector-length _g241372_) + (if (##values? _g243967_) + (##vector-length _g243967_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g241373_ 3))) - (error "Context expects 3 values" _g241373_))) - (let ((_ids227174_ + (##fx= _g243968_ 3))) + (error "Context expects 3 values" _g243968_))) + (let ((_ids229669_ (let () (declare (not safe)) - (##vector-ref _g241372_ 0))) - (_impls227175_ + (##vector-ref _g243967_ 0))) + (_impls229670_ (let () (declare (not safe)) - (##vector-ref _g241372_ 1))) - (_clauses227176_ + (##vector-ref _g243967_ 1))) + (_clauses229671_ (let () (declare (not safe)) - (##vector-ref _g241372_ 2)))) - (let* ((_g241374_ - (for-each gx#core-bind-runtime! _ids227174_)) - (_xbind227179_ - (map _bind-e226389_ _ids227174_ _impls227175_)) - (_expr*227181_ - (let ((__tmp241376 + (##vector-ref _g243967_ 2)))) + (let* ((_g243969_ + (for-each gx#core-bind-runtime! _ids229669_)) + (_xbind229674_ + (map _bind-e228884_ _ids229669_ _impls229670_)) + (_expr*229676_ + (let ((__tmp243971 (let () (declare (not safe)) - (cons '%#case-lambda _clauses227176_))) - (__tmp241375 + (cons '%#case-lambda _clauses229671_))) + (__tmp243970 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -14321,1134 +14321,1134 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp241376 - __tmp241375))) - (_bind*227183_ + __tmp243971 + __tmp243970))) + (_bind*229678_ (let () (declare (not safe)) - (_bind-e__238953238954_ - _L227122_ - _expr*227181_ + (_bind-e__241548241549_ + _L229617_ + _expr*229676_ '#f)))) - (let ((__tmp241378 + (let ((__tmp243973 (let () (declare (not safe)) - (gxc#identifier-symbol _L227122_))) - (__tmp241377 - (map gxc#identifier-symbol _ids227174_))) + (gxc#identifier-symbol _L229617_))) + (__tmp243972 + (map gxc#identifier-symbol _ids229669_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp241378 + __tmp243973 '" => " - __tmp241377)) - (let ((__tmp241379 - (let ((__tmp241380 + __tmp243972)) + (let ((__tmp243974 + (let ((__tmp243975 (let () (declare (not safe)) (foldl1 cons - _bind226530_ - _xbind227179_)))) + _bind229025_ + _xbind229674_)))) (declare (not safe)) - (cons _bind*227183_ __tmp241380)))) + (cons _bind*229678_ __tmp243975)))) (declare (not safe)) - (_lp226527_ _rest226550_ __tmp241379))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match240871240872_ - (lambda (_e227142227191_ - _hd227141227194_ - _tl227140227196_) - (let ((_L227199_ - _tl227140227196_)) + (_lp229022_ _rest229045_ __tmp243974))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match243466243467_ + (lambda (_e229637229686_ + _hd229636229689_ + _tl229635229691_) + (let ((_L229694_ + _tl229635229691_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L227199_)) - (___kont240862240863_ _L227199_) - (___kont240864240865_ _tl227140227196_)))))) + (andmap1 gxc#dispatch-lambda-form? _L229694_)) + (___kont243457243458_ _L229694_) + (___kont243459243460_ _tl229635229691_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx240860240861_)) - (let ((_e227142227191_ + ___stx243455243456_)) + (let ((_e229637229686_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx240860240861_)))) - (let ((_tl227140227196_ - (let () (declare (not safe)) (##cdr _e227142227191_))) - (_hd227141227194_ - (let () (declare (not safe)) (##car _e227142227191_)))) - (___match240871240872_ - _e227142227191_ - _hd227141227194_ - _tl227140227196_))) - (let () (declare (not safe)) (_g227137227151_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240884240885_ - (lambda (_L226949_ _L226950_) - (let* ((_g226964226994_ - (lambda (_g226965226991_) + (gx#stx-e ___stx243455243456_)))) + (let ((_tl229635229691_ + (let () (declare (not safe)) (##cdr _e229637229686_))) + (_hd229636229689_ + (let () (declare (not safe)) (##car _e229637229686_)))) + (___match243466243467_ + _e229637229686_ + _hd229636229689_ + _tl229635229691_))) + (let () (declare (not safe)) (_g229632229646_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont243479243480_ + (lambda (_L229444_ _L229445_) + (let* ((_g229459229489_ + (lambda (_g229460229486_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g226965226991_)))) - (_g226963227089_ - (lambda (_g226965226997_) + _g229460229486_)))) + (_g229458229584_ + (lambda (_g229460229492_) (if (let () (declare (not safe)) (gx#stx-pair? - _g226965226997_)) - (let ((_e226971226999_ + _g229460229492_)) + (let ((_e229466229494_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g226965226997_)))) - (let ((_hd226970227002_ + (gx#stx-e _g229460229492_)))) + (let ((_hd229465229497_ (let () (declare (not safe)) - (##car _e226971226999_))) - (_tl226969227004_ + (##car _e229466229494_))) + (_tl229464229499_ (let () (declare (not safe)) - (##cdr _e226971226999_)))) + (##cdr _e229466229494_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226969227004_)) - (let ((_e226974227007_ + (gx#stx-pair? _tl229464229499_)) + (let ((_e229469229502_ (let () (declare (not safe)) - (gx#stx-e _tl226969227004_)))) - (let ((_hd226973227010_ + (gx#stx-e _tl229464229499_)))) + (let ((_hd229468229505_ (let () (declare (not safe)) - (##car _e226974227007_))) - (_tl226972227012_ + (##car _e229469229502_))) + (_tl229467229507_ (let () (declare (not safe)) - (##cdr _e226974227007_)))) + (##cdr _e229469229502_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd226973227010_)) - (let ((_e226977227015_ + (gx#stx-pair? _hd229468229505_)) + (let ((_e229472229510_ (let () (declare (not safe)) - (gx#stx-e _hd226973227010_)))) - (let ((_hd226976227018_ + (gx#stx-e _hd229468229505_)))) + (let ((_hd229471229513_ (let () (declare (not safe)) - (##car _e226977227015_))) - (_tl226975227020_ + (##car _e229472229510_))) + (_tl229470229515_ (let () (declare (not safe)) - (##cdr _e226977227015_)))) + (##cdr _e229472229510_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd226976227018_)) - (let ((_e226980227023_ + (gx#stx-pair? _hd229471229513_)) + (let ((_e229475229518_ (let () (declare (not safe)) (gx#stx-e - _hd226976227018_)))) - (let ((_hd226979227026_ + _hd229471229513_)))) + (let ((_hd229474229521_ (let () (declare (not safe)) - (##car _e226980227023_))) - (_tl226978227028_ + (##car _e229475229518_))) + (_tl229473229523_ (let () (declare (not safe)) - (##cdr _e226980227023_)))) + (##cdr _e229475229518_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd226979227026_)) - (let ((_e226983227031_ + _hd229474229521_)) + (let ((_e229478229526_ (let () (declare (not safe)) (gx#stx-e - _hd226979227026_)))) - (let ((_hd226982227034_ + _hd229474229521_)))) + (let ((_hd229477229529_ (let () (declare (not safe)) - (##car _e226983227031_))) - (_tl226981227036_ + (##car _e229478229526_))) + (_tl229476229531_ (let () (declare (not safe)) - (##cdr _e226983227031_)))) + (##cdr _e229478229526_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl226981227036_)) + _tl229476229531_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl226978227028_)) - (let ((_e226986227039_ + (gx#stx-pair? _tl229473229523_)) + (let ((_e229481229534_ (let () (declare (not safe)) - (gx#stx-e _tl226978227028_)))) - (let ((_hd226985227042_ + (gx#stx-e _tl229473229523_)))) + (let ((_hd229480229537_ (let () (declare (not safe)) - (##car _e226986227039_))) - (_tl226984227044_ + (##car _e229481229534_))) + (_tl229479229539_ (let () (declare (not safe)) - (##cdr _e226986227039_)))) + (##cdr _e229481229534_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226984227044_)) + (gx#stx-null? _tl229479229539_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl226975227020_)) + (gx#stx-null? _tl229470229515_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226972227012_)) - (let ((_e226989227047_ + (gx#stx-pair? _tl229467229507_)) + (let ((_e229484229542_ (let () (declare (not safe)) - (gx#stx-e _tl226972227012_)))) - (let ((_hd226988227050_ + (gx#stx-e _tl229467229507_)))) + (let ((_hd229483229545_ (let () (declare (not safe)) - (##car _e226989227047_))) - (_tl226987227052_ + (##car _e229484229542_))) + (_tl229482229547_ (let () (declare (not safe)) - (##cdr _e226989227047_)))) + (##cdr _e229484229542_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl226987227052_)) - ((lambda (_L227055_ - _L227056_ - _L227057_) - (let* ((_lambda-id227081_ - (let ((__tmp241382 + _tl229482229547_)) + ((lambda (_L229550_ + _L229551_ + _L229552_) + (let* ((_lambda-id229576_ + (let ((__tmp243977 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L226950_))) - (__tmp241381 (gensym '__))) + (gx#stx-e _L229445_))) + (__tmp243976 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp241382 __tmp241381))) - (_lambda-id227083_ - (let ((__tmp241383 + (make-symbol__1 __tmp243977 __tmp243976))) + (_lambda-id229578_ + (let ((__tmp243978 (let () (declare (not safe)) - (gx#stx-source _stx226387_)))) + (gx#stx-source _stx228882_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id227081_ __tmp241383))) - (_g241384_ + (gx#core-quote-syntax__1 _lambda-id229576_ __tmp243978))) + (_g243979_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id227083_))) - (_new-case-lambda-expr227086_ + (gx#core-bind-runtime!__0 _lambda-id229578_))) + (_new-case-lambda-expr229581_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L227055_ - _L227057_ - _lambda-id227083_)))) + _L229550_ + _L229552_ + _lambda-id229578_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp241386 + (let ((__tmp243981 (let () (declare (not safe)) (gxc#identifier-symbol - _L226950_))) - (__tmp241385 + _L229445_))) + (__tmp243980 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id227083_)))) + _lambda-id229578_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp241386 + __tmp243981 '" => " - __tmp241385)) - (let ((__tmp241389 - (let ((__tmp241390 + __tmp243980)) + (let ((__tmp243984 + (let ((__tmp243985 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__238953238954_ - _L226950_ - _new-case-lambda-expr227086_ + (_bind-e__241548241549_ + _L229445_ + _new-case-lambda-expr229581_ '#f)))) (declare (not safe)) - (cons __tmp241390 _rest226550_))) - (__tmp241387 - (let ((__tmp241388 + (cons __tmp243985 _rest229045_))) + (__tmp243982 + (let ((__tmp243983 (let () (declare (not safe)) - (_bind-e__0__238955238956_ - _lambda-id227083_ - _L227056_)))) + (_bind-e__0__241550241551_ + _lambda-id229578_ + _L229551_)))) (declare (not safe)) - (cons __tmp241388 _bind226530_)))) + (cons __tmp243983 _bind229025_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp226527_ - __tmp241389 - __tmp241387)))) - _hd226988227050_ - _hd226985227042_ - _hd226982227034_) + (_lp229022_ + __tmp243984 + __tmp243982)))) + _hd229483229545_ + _hd229480229537_ + _hd229477229529_) (let () (declare (not safe)) - (_g226964226994_ - _g226965226997_))))) + (_g229459229489_ + _g229460229492_))))) (let () (declare (not safe)) - (_g226964226994_ _g226965226997_))) + (_g229459229489_ _g229460229492_))) (let () (declare (not safe)) - (_g226964226994_ _g226965226997_))) + (_g229459229489_ _g229460229492_))) (let () (declare (not safe)) - (_g226964226994_ _g226965226997_))))) + (_g229459229489_ _g229460229492_))))) (let () (declare (not safe)) - (_g226964226994_ _g226965226997_))) + (_g229459229489_ _g229460229492_))) (let () (declare (not safe)) - (_g226964226994_ _g226965226997_))))) + (_g229459229489_ _g229460229492_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g226964226994_ - _g226965226997_))))) + (_g229459229489_ + _g229460229492_))))) (let () (declare (not safe)) - (_g226964226994_ - _g226965226997_))))) + (_g229459229489_ + _g229460229492_))))) (let () (declare (not safe)) - (_g226964226994_ _g226965226997_))))) + (_g229459229489_ _g229460229492_))))) (let () (declare (not safe)) - (_g226964226994_ _g226965226997_))))) + (_g229459229489_ _g229460229492_))))) (let () (declare (not safe)) - (_g226964226994_ _g226965226997_)))))) + (_g229459229489_ _g229460229492_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g226963227089_ _L226949_)))) - (___kont240886240887_ - (lambda (_L226673_ _L226674_) - (let* ((_g226688226741_ - (lambda (_g226689226738_) + (_g229458229584_ _L229444_)))) + (___kont243481243482_ + (lambda (_L229168_ _L229169_) + (let* ((_g229183229236_ + (lambda (_g229184229233_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g226689226738_)))) - (_g226687226917_ - (lambda (_g226689226744_) + _g229184229233_)))) + (_g229182229412_ + (lambda (_g229184229239_) (if (let () (declare (not safe)) (gx#stx-pair? - _g226689226744_)) - (let ((_e226697226746_ + _g229184229239_)) + (let ((_e229192229241_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g226689226744_)))) - (let ((_hd226696226749_ + (gx#stx-e _g229184229239_)))) + (let ((_hd229191229244_ (let () (declare (not safe)) - (##car _e226697226746_))) - (_tl226695226751_ + (##car _e229192229241_))) + (_tl229190229246_ (let () (declare (not safe)) - (##cdr _e226697226746_)))) + (##cdr _e229192229241_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226695226751_)) - (let ((_e226700226754_ + (gx#stx-pair? _tl229190229246_)) + (let ((_e229195229249_ (let () (declare (not safe)) - (gx#stx-e _tl226695226751_)))) - (let ((_hd226699226757_ + (gx#stx-e _tl229190229246_)))) + (let ((_hd229194229252_ (let () (declare (not safe)) - (##car _e226700226754_))) - (_tl226698226759_ + (##car _e229195229249_))) + (_tl229193229254_ (let () (declare (not safe)) - (##cdr _e226700226754_)))) + (##cdr _e229195229249_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd226699226757_)) - (let ((_e226703226762_ + (gx#stx-pair? _hd229194229252_)) + (let ((_e229198229257_ (let () (declare (not safe)) - (gx#stx-e _hd226699226757_)))) - (let ((_hd226702226765_ + (gx#stx-e _hd229194229252_)))) + (let ((_hd229197229260_ (let () (declare (not safe)) - (##car _e226703226762_))) - (_tl226701226767_ + (##car _e229198229257_))) + (_tl229196229262_ (let () (declare (not safe)) - (##cdr _e226703226762_)))) + (##cdr _e229198229257_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd226702226765_)) - (let ((_e226706226770_ + (gx#stx-pair? _hd229197229260_)) + (let ((_e229201229265_ (let () (declare (not safe)) (gx#stx-e - _hd226702226765_)))) - (let ((_hd226705226773_ + _hd229197229260_)))) + (let ((_hd229200229268_ (let () (declare (not safe)) - (##car _e226706226770_))) - (_tl226704226775_ + (##car _e229201229265_))) + (_tl229199229270_ (let () (declare (not safe)) - (##cdr _e226706226770_)))) + (##cdr _e229201229265_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd226705226773_)) - (let ((_e226709226778_ + _hd229200229268_)) + (let ((_e229204229273_ (let () (declare (not safe)) (gx#stx-e - _hd226705226773_)))) - (let ((_hd226708226781_ + _hd229200229268_)))) + (let ((_hd229203229276_ (let () (declare (not safe)) - (##car _e226709226778_))) - (_tl226707226783_ + (##car _e229204229273_))) + (_tl229202229278_ (let () (declare (not safe)) - (##cdr _e226709226778_)))) + (##cdr _e229204229273_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl226707226783_)) + _tl229202229278_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl226704226775_)) - (let ((_e226712226786_ + (gx#stx-pair? _tl229199229270_)) + (let ((_e229207229281_ (let () (declare (not safe)) - (gx#stx-e _tl226704226775_)))) - (let ((_hd226711226789_ + (gx#stx-e _tl229199229270_)))) + (let ((_hd229206229284_ (let () (declare (not safe)) - (##car _e226712226786_))) - (_tl226710226791_ + (##car _e229207229281_))) + (_tl229205229286_ (let () (declare (not safe)) - (##cdr _e226712226786_)))) + (##cdr _e229207229281_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd226711226789_)) - (let ((_e226715226794_ + (gx#stx-pair? _hd229206229284_)) + (let ((_e229210229289_ (let () (declare (not safe)) - (gx#stx-e _hd226711226789_)))) - (let ((_hd226714226797_ + (gx#stx-e _hd229206229284_)))) + (let ((_hd229209229292_ (let () (declare (not safe)) - (##car _e226715226794_))) - (_tl226713226799_ + (##car _e229210229289_))) + (_tl229208229294_ (let () (declare (not safe)) - (##cdr _e226715226794_)))) + (##cdr _e229210229289_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226713226799_)) - (let ((_e226718226802_ + (gx#stx-pair? _tl229208229294_)) + (let ((_e229213229297_ (let () (declare (not safe)) - (gx#stx-e _tl226713226799_)))) - (let ((_hd226717226805_ + (gx#stx-e _tl229208229294_)))) + (let ((_hd229212229300_ (let () (declare (not safe)) - (##car _e226718226802_))) - (_tl226716226807_ + (##car _e229213229297_))) + (_tl229211229302_ (let () (declare (not safe)) - (##cdr _e226718226802_)))) + (##cdr _e229213229297_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd226717226805_)) - (let ((_e226721226810_ + _hd229212229300_)) + (let ((_e229216229305_ (let () (declare (not safe)) (gx#stx-e - _hd226717226805_)))) - (let ((_hd226720226813_ + _hd229212229300_)))) + (let ((_hd229215229308_ (let () (declare (not safe)) - (##car _e226721226810_))) - (_tl226719226815_ + (##car _e229216229305_))) + (_tl229214229310_ (let () (declare (not safe)) - (##cdr _e226721226810_)))) + (##cdr _e229216229305_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd226720226813_)) - (let ((_e226724226818_ + _hd229215229308_)) + (let ((_e229219229313_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd226720226813_)))) - (let ((_hd226723226821_ - (let () (declare (not safe)) (##car _e226724226818_))) - (_tl226722226823_ - (let () (declare (not safe)) (##cdr _e226724226818_)))) + (gx#stx-e _hd229215229308_)))) + (let ((_hd229218229316_ + (let () (declare (not safe)) (##car _e229219229313_))) + (_tl229217229318_ + (let () (declare (not safe)) (##cdr _e229219229313_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd226723226821_)) - (let ((_e226727226826_ + (gx#stx-pair? _hd229218229316_)) + (let ((_e229222229321_ (let () (declare (not safe)) - (gx#stx-e _hd226723226821_)))) - (let ((_hd226726226829_ + (gx#stx-e _hd229218229316_)))) + (let ((_hd229221229324_ (let () (declare (not safe)) - (##car _e226727226826_))) - (_tl226725226831_ + (##car _e229222229321_))) + (_tl229220229326_ (let () (declare (not safe)) - (##cdr _e226727226826_)))) + (##cdr _e229222229321_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226725226831_)) + (gx#stx-null? _tl229220229326_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226722226823_)) - (let ((_e226730226834_ + (gx#stx-pair? _tl229217229318_)) + (let ((_e229225229329_ (let () (declare (not safe)) - (gx#stx-e _tl226722226823_)))) - (let ((_hd226729226837_ + (gx#stx-e _tl229217229318_)))) + (let ((_hd229224229332_ (let () (declare (not safe)) - (##car _e226730226834_))) - (_tl226728226839_ + (##car _e229225229329_))) + (_tl229223229334_ (let () (declare (not safe)) - (##cdr _e226730226834_)))) + (##cdr _e229225229329_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226728226839_)) + (gx#stx-null? _tl229223229334_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl226719226815_)) + _tl229214229310_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl226716226807_)) - (let ((_e226733226842_ + _tl229211229302_)) + (let ((_e229228229337_ (let () (declare (not safe)) (gx#stx-e - _tl226716226807_)))) - (let ((_hd226732226845_ + _tl229211229302_)))) + (let ((_hd229227229340_ (let () (declare (not safe)) - (##car _e226733226842_))) - (_tl226731226847_ + (##car _e229228229337_))) + (_tl229226229342_ (let () (declare (not safe)) - (##cdr _e226733226842_)))) + (##cdr _e229228229337_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl226731226847_)) + _tl229226229342_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl226710226791_)) + (gx#stx-null? _tl229205229286_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl226701226767_)) + (gx#stx-null? _tl229196229262_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226698226759_)) - (let ((_e226736226850_ + (gx#stx-pair? _tl229193229254_)) + (let ((_e229231229345_ (let () (declare (not safe)) - (gx#stx-e _tl226698226759_)))) - (let ((_hd226735226853_ + (gx#stx-e _tl229193229254_)))) + (let ((_hd229230229348_ (let () (declare (not safe)) - (##car _e226736226850_))) - (_tl226734226855_ + (##car _e229231229345_))) + (_tl229229229350_ (let () (declare (not safe)) - (##cdr _e226736226850_)))) + (##cdr _e229231229345_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226734226855_)) - ((lambda (_L226858_ - _L226859_ - _L226860_ - _L226861_ - _L226862_) - (let* ((_get-kws-id226902_ - (let ((__tmp241392 + (gx#stx-null? _tl229229229350_)) + ((lambda (_L229353_ + _L229354_ + _L229355_ + _L229356_ + _L229357_) + (let* ((_get-kws-id229397_ + (let ((__tmp243987 (let () (declare (not safe)) (gx#stx-e - _L226674_))) - (__tmp241391 + _L229169_))) + (__tmp243986 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp241392 - __tmp241391))) - (_get-kws-id226904_ - (let ((__tmp241393 + __tmp243987 + __tmp243986))) + (_get-kws-id229399_ + (let ((__tmp243988 (let () (declare (not safe)) (gx#stx-source - _stx226387_)))) + _stx228882_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id226902_ - __tmp241393))) - (_main-id226906_ - (let ((__tmp241395 + _get-kws-id229397_ + __tmp243988))) + (_main-id229401_ + (let ((__tmp243990 (let () (declare (not safe)) (gx#stx-e - _L226674_))) - (__tmp241394 + _L229169_))) + (__tmp243989 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp241395 - __tmp241394))) - (_main-id226908_ - (let ((__tmp241396 + __tmp243990 + __tmp243989))) + (_main-id229403_ + (let ((__tmp243991 (let () (declare (not safe)) (gx#stx-source - _stx226387_)))) + _stx228882_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id226906_ - __tmp241396))) - (_g241397_ + _main-id229401_ + __tmp243991))) + (_g243992_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id226904_))) - (_g241398_ + _get-kws-id229399_))) + (_g243993_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id226908_))) - (_new-kw-dispatch226912_ + _main-id229403_))) + (_new-kw-dispatch229407_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L226858_ - _L226862_ - _get-kws-id226904_))) - (_new-get-kws226914_ + _L229353_ + _L229357_ + _get-kws-id229399_))) + (_new-get-kws229409_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L226859_ - _L226861_ - _main-id226908_)))) - (let ((__tmp241401 + _L229354_ + _L229356_ + _main-id229403_)))) + (let ((__tmp243996 (let () (declare (not safe)) (gxc#identifier-symbol - _L226674_))) - (__tmp241400 + _L229169_))) + (__tmp243995 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id226904_))) - (__tmp241399 + _get-kws-id229399_))) + (__tmp243994 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id226908_)))) + _main-id229403_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp241401 + __tmp243996 '" => " - __tmp241400 + __tmp243995 '" => " - __tmp241399)) - (let ((__tmp241402 - (let ((__tmp241407 + __tmp243994)) + (let ((__tmp243997 + (let ((__tmp244002 (let () (declare (not safe)) - (_bind-e__238953238954_ - _main-id226908_ - _L226860_ + (_bind-e__241548241549_ + _main-id229403_ + _L229355_ '#f))) - (__tmp241403 - (let ((__tmp241406 + (__tmp243998 + (let ((__tmp244001 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_bind-e__238953238954_ - _get-kws-id226904_ - _new-get-kws226914_ + (_bind-e__241548241549_ + _get-kws-id229399_ + _new-get-kws229409_ '#f))) - (__tmp241404 - (let ((__tmp241405 + (__tmp243999 + (let ((__tmp244000 (let () (declare (not safe)) - (_bind-e__238953238954_ - _L226674_ - _new-kw-dispatch226912_ + (_bind-e__241548241549_ + _L229169_ + _new-kw-dispatch229407_ '#f)))) (declare (not safe)) - (cons __tmp241405 _rest226550_)))) + (cons __tmp244000 _rest229045_)))) (declare (not safe)) - (cons __tmp241406 __tmp241404)))) + (cons __tmp244001 __tmp243999)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp241407 - __tmp241403)))) + (cons __tmp244002 + __tmp243998)))) (declare (not safe)) - (_lp226527_ - __tmp241402 - _bind226530_)))) - _hd226735226853_ - _hd226732226845_ - _hd226729226837_ - _hd226726226829_ - _hd226708226781_) + (_lp229022_ + __tmp243997 + _bind229025_)))) + _hd229230229348_ + _hd229227229340_ + _hd229224229332_ + _hd229221229324_ + _hd229203229276_) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))))) + (_g229183229236_ _g229184229239_))))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))) + (_g229183229236_ _g229184229239_))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))) + (_g229183229236_ _g229184229239_))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))) + (_g229183229236_ _g229184229239_))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))))) + (_g229183229236_ _g229184229239_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g226688226741_ - _g226689226744_))) + (_g229183229236_ + _g229184229239_))) (let () (declare (not safe)) - (_g226688226741_ - _g226689226744_))) + (_g229183229236_ + _g229184229239_))) (let () (declare (not safe)) - (_g226688226741_ - _g226689226744_))))) + (_g229183229236_ + _g229184229239_))))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))) + (_g229183229236_ _g229184229239_))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))))) + (_g229183229236_ _g229184229239_))))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))))) + (_g229183229236_ _g229184229239_))))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))))) + (_g229183229236_ _g229184229239_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g226688226741_ - _g226689226744_))))) + (_g229183229236_ + _g229184229239_))))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))))) + (_g229183229236_ _g229184229239_))))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))))) + (_g229183229236_ _g229184229239_))))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))) + (_g229183229236_ _g229184229239_))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))))) + (_g229183229236_ _g229184229239_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g226688226741_ - _g226689226744_))))) + (_g229183229236_ + _g229184229239_))))) (let () (declare (not safe)) - (_g226688226741_ - _g226689226744_))))) + (_g229183229236_ + _g229184229239_))))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))))) + (_g229183229236_ _g229184229239_))))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_))))) + (_g229183229236_ _g229184229239_))))) (let () (declare (not safe)) - (_g226688226741_ _g226689226744_)))))) + (_g229183229236_ _g229184229239_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g226687226917_ _L226673_)))) - (___kont240888240889_ - (lambda (_L226624_ _L226625_) - (let ((__tmp241408 - (let ((__tmp241409 - (let ((__tmp241410 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp241411 + (_g229182229412_ _L229168_)))) + (___kont243483243484_ + (lambda (_L229119_ _L229120_) + (let ((__tmp244003 + (let ((__tmp244004 + (let ((__tmp244005 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp244006 (let () (declare (not safe)) - (gxc#compile-e__0 _L226624_)))) + (gxc#compile-e__0 _L229119_)))) (declare (not safe)) - (cons __tmp241411 '())))) + (cons __tmp244006 '())))) (declare (not safe)) - (cons _L226625_ __tmp241410)))) + (cons _L229120_ __tmp244005)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp241409 - _bind226530_)))) + (cons __tmp244004 + _bind229025_)))) (declare (not safe)) - (_lp226527_ - _rest226550_ - __tmp241408))))) - (let* ((___match240955240956_ - (lambda (_e226584226649_ - _hd226583226652_ - _tl226582226654_ - _e226587226657_ - _hd226586226660_ - _tl226585226662_ - _e226590226665_ - _hd226589226668_ - _tl226588226670_) - (let ((_L226673_ - _hd226589226668_) - (_L226674_ - _hd226586226660_)) + (_lp229022_ + _rest229045_ + __tmp244003))))) + (let* ((___match243550243551_ + (lambda (_e229079229144_ + _hd229078229147_ + _tl229077229149_ + _e229082229152_ + _hd229081229155_ + _tl229080229157_ + _e229085229160_ + _hd229084229163_ + _tl229083229165_) + (let ((_L229168_ + _hd229084229163_) + (_L229169_ + _hd229081229155_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L226674_)) + _L229169_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L226673_))) - (___kont240886240887_ - _L226673_ - _L226674_) - (___kont240888240889_ - _hd226589226668_ - _hd226583226652_))))) - (___match240933240934_ - (lambda (_e226573226925_ - _hd226572226928_ - _tl226571226930_ - _e226576226933_ - _hd226575226936_ - _tl226574226938_ - _e226579226941_ - _hd226578226944_ - _tl226577226946_) - (let ((_L226949_ - _hd226578226944_) - (_L226950_ - _hd226575226936_)) + _L229168_))) + (___kont243481243482_ + _L229168_ + _L229169_) + (___kont243483243484_ + _hd229084229163_ + _hd229078229147_))))) + (___match243528243529_ + (lambda (_e229068229420_ + _hd229067229423_ + _tl229066229425_ + _e229071229428_ + _hd229070229431_ + _tl229069229433_ + _e229074229436_ + _hd229073229439_ + _tl229072229441_) + (let ((_L229444_ + _hd229073229439_) + (_L229445_ + _hd229070229431_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L226950_)) + _L229445_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L226949_))) - (___kont240884240885_ - _L226949_ - _L226950_) - (___match240955240956_ - _e226573226925_ - _hd226572226928_ - _tl226571226930_ - _e226576226933_ - _hd226575226936_ - _tl226574226938_ - _e226579226941_ - _hd226578226944_ - _tl226577226946_))))) - (___match240911240912_ - (lambda (_e226562227097_ - _hd226561227100_ - _tl226560227102_ - _e226565227105_ - _hd226564227108_ - _tl226563227110_ - _e226568227113_ - _hd226567227116_ - _tl226566227118_) - (let ((_L227121_ - _hd226567227116_) - (_L227122_ - _hd226564227108_)) + _L229444_))) + (___kont243479243480_ + _L229444_ + _L229445_) + (___match243550243551_ + _e229068229420_ + _hd229067229423_ + _tl229066229425_ + _e229071229428_ + _hd229070229431_ + _tl229069229433_ + _e229074229436_ + _hd229073229439_ + _tl229072229441_))))) + (___match243506243507_ + (lambda (_e229057229592_ + _hd229056229595_ + _tl229055229597_ + _e229060229600_ + _hd229059229603_ + _tl229058229605_ + _e229063229608_ + _hd229062229611_ + _tl229061229613_) + (let ((_L229616_ + _hd229062229611_) + (_L229617_ + _hd229059229603_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L227122_)) + _L229617_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L227121_))) - (___kont240882240883_ - _L227121_ - _L227122_) - (___match240933240934_ - _e226562227097_ - _hd226561227100_ - _tl226560227102_ - _e226565227105_ - _hd226564227108_ - _tl226563227110_ - _e226568227113_ - _hd226567227116_ - _tl226566227118_)))))) + _L229616_))) + (___kont243477243478_ + _L229616_ + _L229617_) + (___match243528243529_ + _e229057229592_ + _hd229056229595_ + _tl229055229597_ + _e229060229600_ + _hd229059229603_ + _tl229058229605_ + _e229063229608_ + _hd229062229611_ + _tl229061229613_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx240880240881_)) - (let ((_e226562227097_ + ___stx243475243476_)) + (let ((_e229057229592_ (let () (declare (not safe)) (gx#stx-e - ___stx240880240881_)))) - (let ((_tl226560227102_ + ___stx243475243476_)))) + (let ((_tl229055229597_ (let () (declare (not safe)) - (##cdr _e226562227097_))) - (_hd226561227100_ + (##cdr _e229057229592_))) + (_hd229056229595_ (let () (declare (not safe)) - (##car _e226562227097_)))) + (##car _e229057229592_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd226561227100_)) - (let ((_e226565227105_ + _hd229056229595_)) + (let ((_e229060229600_ (let () (declare (not safe)) (gx#stx-e - _hd226561227100_)))) - (let ((_tl226563227110_ + _hd229056229595_)))) + (let ((_tl229058229605_ (let () (declare (not safe)) - (##cdr _e226565227105_))) - (_hd226564227108_ + (##cdr _e229060229600_))) + (_hd229059229603_ (let () (declare (not safe)) - (##car _e226565227105_)))) + (##car _e229060229600_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl226563227110_)) + _tl229058229605_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl226560227102_)) - (let ((_e226568227113_ + (gx#stx-pair? _tl229055229597_)) + (let ((_e229063229608_ (let () (declare (not safe)) - (gx#stx-e _tl226560227102_)))) - (let ((_tl226566227118_ + (gx#stx-e _tl229055229597_)))) + (let ((_tl229061229613_ (let () (declare (not safe)) - (##cdr _e226568227113_))) - (_hd226567227116_ + (##cdr _e229063229608_))) + (_hd229062229611_ (let () (declare (not safe)) - (##car _e226568227113_)))) + (##car _e229063229608_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226566227118_)) - (___match240911240912_ - _e226562227097_ - _hd226561227100_ - _tl226560227102_ - _e226565227105_ - _hd226564227108_ - _tl226563227110_ - _e226568227113_ - _hd226567227116_ - _tl226566227118_) + (gx#stx-null? _tl229061229613_)) + (___match243506243507_ + _e229057229592_ + _hd229056229595_ + _tl229055229597_ + _e229060229600_ + _hd229059229603_ + _tl229058229605_ + _e229063229608_ + _hd229062229611_ + _tl229061229613_) (let () (declare (not safe)) - (_g226556226603_))))) - (let () (declare (not safe)) (_g226556226603_))) + (_g229051229098_))))) + (let () (declare (not safe)) (_g229051229098_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226560227102_)) - (let ((_e226598226616_ + (gx#stx-pair? _tl229055229597_)) + (let ((_e229093229111_ (let () (declare (not safe)) - (gx#stx-e _tl226560227102_)))) - (let ((_tl226596226621_ + (gx#stx-e _tl229055229597_)))) + (let ((_tl229091229116_ (let () (declare (not safe)) - (##cdr _e226598226616_))) - (_hd226597226619_ + (##cdr _e229093229111_))) + (_hd229092229114_ (let () (declare (not safe)) - (##car _e226598226616_)))) + (##car _e229093229111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226596226621_)) - (___kont240888240889_ - _hd226597226619_ - _hd226561227100_) + (gx#stx-null? _tl229091229116_)) + (___kont243483243484_ + _hd229092229114_ + _hd229056229595_) (let () (declare (not safe)) - (_g226556226603_))))) - (let () (declare (not safe)) (_g226556226603_)))))) + (_g229051229098_))))) + (let () (declare (not safe)) (_g229051229098_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl226560227102_)) - (let ((_e226598226616_ + _tl229055229597_)) + (let ((_e229093229111_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl226560227102_)))) - (let ((_tl226596226621_ - (let () (declare (not safe)) (##cdr _e226598226616_))) - (_hd226597226619_ - (let () (declare (not safe)) (##car _e226598226616_)))) + (gx#stx-e _tl229055229597_)))) + (let ((_tl229091229116_ + (let () (declare (not safe)) (##cdr _e229093229111_))) + (_hd229092229114_ + (let () (declare (not safe)) (##car _e229093229111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226596226621_)) - (___kont240888240889_ _hd226597226619_ _hd226561227100_) - (let () (declare (not safe)) (_g226556226603_))))) - (let () (declare (not safe)) (_g226556226603_)))))) + (gx#stx-null? _tl229091229116_)) + (___kont243483243484_ _hd229092229114_ _hd229056229595_) + (let () (declare (not safe)) (_g229051229098_))))) + (let () (declare (not safe)) (_g229051229098_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g226556226603_))))))))) + (_g229051229098_))))))))) (if (let () (declare (not safe)) - (##pair? _rest226531226539_)) - (let ((_hd226536227217_ + (##pair? _rest229026229034_)) + (let ((_hd229031229712_ (let () (declare (not safe)) - (##car _rest226531226539_))) - (_tl226537227219_ + (##car _rest229026229034_))) + (_tl229032229714_ (let () (declare (not safe)) - (##cdr _rest226531226539_)))) - (let* ((_hd227222_ _hd226536227217_) - (_rest227224_ _tl226537227219_)) + (##cdr _rest229026229034_)))) + (let* ((_hd229717_ _hd229031229712_) + (_rest229719_ _tl229032229714_)) (declare (not safe)) - (_K226535227214_ _rest227224_ _hd227222_))) + (_K229030229709_ _rest229719_ _hd229717_))) (let () (declare (not safe)) - (_else226533226547_)))))))) - (let* ((___stx240972240973_ _stx226387_) - (_g226393226420_ + (_else229028229042_)))))))) + (let* ((___stx243567243568_ _stx228882_) + (_g228888228915_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx240972240973_))))) - (let ((___kont240974240975_ - (lambda (_L226480_ _L226481_ _L226482_) - (let ((__tmp241413 + ___stx243567243568_))))) + (let ((___kont243569243570_ + (lambda (_L228975_ _L228976_ _L228977_) + (let ((__tmp244008 (lambda () - (let ((_hd226519_ - (let ((__tmp241414 - (let ((__tmp241415 - (lambda (_g226511226514_ - _g226512226516_) + (let ((_hd229014_ + (let ((__tmp244009 + (let ((__tmp244010 + (lambda (_g229006229009_ + _g229007229011_) (let () (declare (not safe)) - (cons _g226511226514_ - _g226512226516_))))) + (cons _g229006229009_ + _g229007229011_))))) (declare (not safe)) - (foldr1 __tmp241415 + (foldr1 __tmp244010 '() - _L226481_)))) + _L228976_)))) (declare (not safe)) - (_compile-bindings226390_ __tmp241414))) - (_body226520_ + (_compile-bindings228885_ __tmp244009))) + (_body229015_ (let () (declare (not safe)) - (gxc#compile-e__0 _L226480_)))) - (let ((__tmp241416 - (let ((__tmp241417 - (let ((__tmp241418 + (gxc#compile-e__0 _L228975_)))) + (let ((__tmp244011 + (let ((__tmp244012 + (let ((__tmp244013 (let () (declare (not safe)) - (cons _body226520_ + (cons _body229015_ '())))) (declare (not safe)) - (cons _hd226519_ - __tmp241418)))) + (cons _hd229014_ + __tmp244013)))) (declare (not safe)) - (cons _L226482_ __tmp241417)))) + (cons _L228977_ __tmp244012)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp241416 - _stx226387_))))) - (__tmp241412 - (let ((__obj241037 + __tmp244011 + _stx228882_))))) + (__tmp244007 + (let ((__obj243632 (let () (declare (not safe)) (##structure @@ -15458,254 +15458,254 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj241037) - __obj241037))) + (gx#local-context:::init! __obj243632) + __obj243632))) (declare (not safe)) (call-with-parameters - __tmp241413 + __tmp244008 gx#current-expander-context - __tmp241412)))) - (___kont240978240979_ + __tmp244007)))) + (___kont243573243574_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx226387_))))) - (let ((___match240999241000_ - (lambda (_e226400226432_ - _hd226399226435_ - _tl226398226437_ - _e226403226440_ - _hd226402226443_ - _tl226401226445_ - ___splice240976240977_ - _target226404226448_ - _tl226406226450_) - (letrec ((_loop226407226453_ - (lambda (_hd226405226456_ _bind226411226458_) + (gxc#xform-let-values% _stx228882_))))) + (let ((___match243594243595_ + (lambda (_e228895228927_ + _hd228894228930_ + _tl228893228932_ + _e228898228935_ + _hd228897228938_ + _tl228896228940_ + ___splice243571243572_ + _target228899228943_ + _tl228901228945_) + (letrec ((_loop228902228948_ + (lambda (_hd228900228951_ _bind228906228953_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd226405226456_)) - (let ((_e226408226461_ + (gx#stx-pair? _hd228900228951_)) + (let ((_e228903228956_ (let () (declare (not safe)) - (gx#stx-e _hd226405226456_)))) - (let ((_lp-tl226410226466_ + (gx#stx-e _hd228900228951_)))) + (let ((_lp-tl228905228961_ (let () (declare (not safe)) - (##cdr _e226408226461_))) - (_lp-hd226409226464_ + (##cdr _e228903228956_))) + (_lp-hd228904228959_ (let () (declare (not safe)) - (##car _e226408226461_)))) - (let ((__tmp241421 + (##car _e228903228956_)))) + (let ((__tmp244016 (let () (declare (not safe)) - (cons _lp-hd226409226464_ - _bind226411226458_)))) + (cons _lp-hd228904228959_ + _bind228906228953_)))) (declare (not safe)) - (_loop226407226453_ - _lp-tl226410226466_ - __tmp241421)))) - (let ((_bind226412226469_ - (reverse _bind226411226458_))) + (_loop228902228948_ + _lp-tl228905228961_ + __tmp244016)))) + (let ((_bind228907228964_ + (reverse _bind228906228953_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226401226445_)) - (let ((_e226415226472_ + (gx#stx-pair? _tl228896228940_)) + (let ((_e228910228967_ (let () (declare (not safe)) (gx#stx-e - _tl226401226445_)))) - (let ((_tl226413226477_ + _tl228896228940_)))) + (let ((_tl228908228972_ (let () (declare (not safe)) - (##cdr _e226415226472_))) - (_hd226414226475_ + (##cdr _e228910228967_))) + (_hd228909228970_ (let () (declare (not safe)) - (##car _e226415226472_)))) + (##car _e228910228967_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl226413226477_)) - (let ((_L226480_ - _hd226414226475_) - (_L226481_ - _bind226412226469_) - (_L226482_ - _hd226399226435_)) - (if (let ((__tmp241419 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp241420 - (lambda (_g226503226506_ _g226504226508_) + _tl228908228972_)) + (let ((_L228975_ + _hd228909228970_) + (_L228976_ + _bind228907228964_) + (_L228977_ + _hd228894228930_)) + (if (let ((__tmp244014 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp244015 + (lambda (_g228998229001_ _g228999229003_) (let () (declare (not safe)) - (cons _g226503226506_ _g226504226508_))))) + (cons _g228998229001_ _g228999229003_))))) (declare (not safe)) - (foldr1 __tmp241420 '() _L226481_)))) + (foldr1 __tmp244015 '() _L228976_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp241419)) - (___kont240974240975_ _L226480_ _L226481_ _L226482_) - (___kont240978240979_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp244014)) + (___kont243569243570_ _L228975_ _L228976_ _L228977_) + (___kont243573243574_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont240978240979_)))) - (___kont240978240979_))))))) + (___kont243573243574_)))) + (___kont243573243574_))))))) (let () (declare (not safe)) - (_loop226407226453_ _target226404226448_ '())))))) + (_loop228902228948_ _target228899228943_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx240972240973_)) - (let ((_e226400226432_ + (gx#stx-pair? ___stx243567243568_)) + (let ((_e228895228927_ (let () (declare (not safe)) - (gx#stx-e ___stx240972240973_)))) - (let ((_tl226398226437_ + (gx#stx-e ___stx243567243568_)))) + (let ((_tl228893228932_ (let () (declare (not safe)) - (##cdr _e226400226432_))) - (_hd226399226435_ + (##cdr _e228895228927_))) + (_hd228894228930_ (let () (declare (not safe)) - (##car _e226400226432_)))) + (##car _e228895228927_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226398226437_)) - (let ((_e226403226440_ + (gx#stx-pair? _tl228893228932_)) + (let ((_e228898228935_ (let () (declare (not safe)) - (gx#stx-e _tl226398226437_)))) - (let ((_tl226401226445_ + (gx#stx-e _tl228893228932_)))) + (let ((_tl228896228940_ (let () (declare (not safe)) - (##cdr _e226403226440_))) - (_hd226402226443_ + (##cdr _e228898228935_))) + (_hd228897228938_ (let () (declare (not safe)) - (##car _e226403226440_)))) + (##car _e228898228935_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd226402226443_)) - (let ((___splice240976240977_ + (gx#stx-pair/null? _hd228897228938_)) + (let ((___splice243571243572_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd226402226443_ + _hd228897228938_ '0)))) - (let ((_tl226406226450_ + (let ((_tl228901228945_ (let () (declare (not safe)) (##vector-ref - ___splice240976240977_ + ___splice243571243572_ '1))) - (_target226404226448_ + (_target228899228943_ (let () (declare (not safe)) (##vector-ref - ___splice240976240977_ + ___splice243571243572_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226406226450_)) - (___match240999241000_ - _e226400226432_ - _hd226399226435_ - _tl226398226437_ - _e226403226440_ - _hd226402226443_ - _tl226401226445_ - ___splice240976240977_ - _target226404226448_ - _tl226406226450_) - (___kont240978240979_)))) - (___kont240978240979_)))) - (___kont240978240979_)))) - (___kont240978240979_)))))))) + (gx#stx-null? _tl228901228945_)) + (___match243594243595_ + _e228895228927_ + _hd228894228930_ + _tl228893228932_ + _e228898228935_ + _hd228897228938_ + _tl228896228940_ + ___splice243571243572_ + _target228899228943_ + _tl228901228945_) + (___kont243573243574_)))) + (___kont243573243574_)))) + (___kont243573243574_)))) + (___kont243573243574_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_bind226305_) - (let* ((___stx241002241003_ _bind226305_) - (_g226308226325_ + (lambda (_bind228800_) + (let* ((___stx243597243598_ _bind228800_) + (_g228803228820_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx241002241003_))))) - (let ((___kont241004241005_ - (lambda (_L226361_ _L226362_) - (if (let () (declare (not safe)) (gx#identifier? _L226362_)) - (let ((_$e226378_ + ___stx243597243598_))))) + (let ((___kont243599243600_ + (lambda (_L228856_ _L228857_) + (if (let () (declare (not safe)) (gx#identifier? _L228857_)) + (let ((_$e228873_ (let () (declare (not safe)) - (gxc#case-lambda-expr? _L226361_)))) - (if _$e226378_ - _$e226378_ - (let ((_$e226381_ + (gxc#case-lambda-expr? _L228856_)))) + (if _$e228873_ + _$e228873_ + (let ((_$e228876_ (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L226361_)))) - (if _$e226381_ - _$e226381_ + (gxc#opt-lambda-expr? _L228856_)))) + (if _$e228876_ + _$e228876_ (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L226361_)))))) + (gxc#kw-lambda-expr? _L228856_)))))) '#f))) - (___kont241006241007_ (lambda () '#f))) + (___kont243601243602_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx241002241003_)) - (let ((_e226314226337_ + (gx#stx-pair? ___stx243597243598_)) + (let ((_e228809228832_ (let () (declare (not safe)) - (gx#stx-e ___stx241002241003_)))) - (let ((_tl226312226342_ - (let () (declare (not safe)) (##cdr _e226314226337_))) - (_hd226313226340_ + (gx#stx-e ___stx243597243598_)))) + (let ((_tl228807228837_ + (let () (declare (not safe)) (##cdr _e228809228832_))) + (_hd228808228835_ (let () (declare (not safe)) - (##car _e226314226337_)))) + (##car _e228809228832_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd226313226340_)) - (let ((_e226317226345_ + (gx#stx-pair? _hd228808228835_)) + (let ((_e228812228840_ (let () (declare (not safe)) - (gx#stx-e _hd226313226340_)))) - (let ((_tl226315226350_ + (gx#stx-e _hd228808228835_)))) + (let ((_tl228810228845_ (let () (declare (not safe)) - (##cdr _e226317226345_))) - (_hd226316226348_ + (##cdr _e228812228840_))) + (_hd228811228843_ (let () (declare (not safe)) - (##car _e226317226345_)))) + (##car _e228812228840_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226315226350_)) + (gx#stx-null? _tl228810228845_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226312226342_)) - (let ((_e226320226353_ + (gx#stx-pair? _tl228807228837_)) + (let ((_e228815228848_ (let () (declare (not safe)) - (gx#stx-e _tl226312226342_)))) - (let ((_tl226318226358_ + (gx#stx-e _tl228807228837_)))) + (let ((_tl228813228853_ (let () (declare (not safe)) - (##cdr _e226320226353_))) - (_hd226319226356_ + (##cdr _e228815228848_))) + (_hd228814228851_ (let () (declare (not safe)) - (##car _e226320226353_)))) + (##car _e228815228848_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226318226358_)) - (___kont241004241005_ - _hd226319226356_ - _hd226316226348_) - (___kont241006241007_)))) - (___kont241006241007_)) - (___kont241006241007_)))) - (___kont241006241007_)))) - (___kont241006241007_)))))))) + (gx#stx-null? _tl228813228853_)) + (___kont243599243600_ + _hd228814228851_ + _hd228811228843_) + (___kont243601243602_)))) + (___kont243601243602_)) + (___kont243601243602_)))) + (___kont243601243602_)))) + (___kont243601243602_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__1.scm b/src/bootstrap/gerbil/compiler/optimize-top__1.scm index f6ceb14a6..23ecc4588 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 (_$stx226028_) - (let* ((_g226032226061_ - (lambda (_g226033226057_) + (lambda (_$stx228523_) + (let* ((_g228527228556_ + (lambda (_g228528228552_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g226033226057_)))) - (_g226031226162_ - (lambda (_g226033226065_) + _g228528228552_)))) + (_g228526228657_ + (lambda (_g228528228560_) (if (let () (declare (not safe)) - (gx#stx-pair? _g226033226065_)) - (let ((_e226038226068_ + (gx#stx-pair? _g228528228560_)) + (let ((_e228533228563_ (let () (declare (not safe)) - (gx#syntax-e _g226033226065_)))) - (let ((_hd226037226072_ + (gx#syntax-e _g228528228560_)))) + (let ((_hd228532228567_ (let () (declare (not safe)) - (##car _e226038226068_))) - (_tl226036226075_ + (##car _e228533228563_))) + (_tl228531228570_ (let () (declare (not safe)) - (##cdr _e226038226068_)))) + (##cdr _e228533228563_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl226036226075_)) - (let ((_g241422_ + (gx#stx-pair/null? _tl228531228570_)) + (let ((_g244017_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl226036226075_ + _tl228531228570_ '0)))) (begin - (let ((_g241423_ + (let ((_g244018_ (let () (declare (not safe)) - (if (##values? _g241422_) - (##vector-length _g241422_) + (if (##values? _g244017_) + (##vector-length _g244017_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g241423_ 2))) + (##fx= _g244018_ 2))) (error "Context expects 2 values" - _g241423_))) - (let ((_target226039226078_ + _g244018_))) + (let ((_target228534228573_ (let () (declare (not safe)) - (##vector-ref _g241422_ 0))) - (_tl226041226081_ + (##vector-ref _g244017_ 0))) + (_tl228536228576_ (let () (declare (not safe)) - (##vector-ref _g241422_ 1)))) + (##vector-ref _g244017_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226041226081_)) - (letrec ((_loop226042226084_ - (lambda (_hd226040226088_ - _type-e226046226091_ - _id226047226093_) + (gx#stx-null? _tl228536228576_)) + (letrec ((_loop228537228579_ + (lambda (_hd228535228583_ + _type-e228541228586_ + _id228542228588_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd226040226088_)) - (let ((_e226043226096_ + _hd228535228583_)) + (let ((_e228538228591_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd226040226088_)))) - (let ((_lp-hd226044226100_ - (let () (declare (not safe)) (##car _e226043226096_))) - (_lp-tl226045226103_ - (let () (declare (not safe)) (##cdr _e226043226096_)))) + (gx#syntax-e _hd228535228583_)))) + (let ((_lp-hd228539228595_ + (let () (declare (not safe)) (##car _e228538228591_))) + (_lp-tl228540228598_ + (let () (declare (not safe)) (##cdr _e228538228591_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd226044226100_)) - (let ((_e226052226106_ + (gx#stx-pair? _lp-hd228539228595_)) + (let ((_e228547228601_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd226044226100_)))) - (let ((_hd226051226110_ + (gx#syntax-e _lp-hd228539228595_)))) + (let ((_hd228546228605_ (let () (declare (not safe)) - (##car _e226052226106_))) - (_tl226050226113_ + (##car _e228547228601_))) + (_tl228545228608_ (let () (declare (not safe)) - (##cdr _e226052226106_)))) + (##cdr _e228547228601_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226050226113_)) - (let ((_e226055226116_ + (gx#stx-pair? _tl228545228608_)) + (let ((_e228550228611_ (let () (declare (not safe)) - (gx#syntax-e _tl226050226113_)))) - (let ((_hd226054226120_ + (gx#syntax-e _tl228545228608_)))) + (let ((_hd228549228615_ (let () (declare (not safe)) - (##car _e226055226116_))) - (_tl226053226123_ + (##car _e228550228611_))) + (_tl228548228618_ (let () (declare (not safe)) - (##cdr _e226055226116_)))) + (##cdr _e228550228611_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226053226123_)) - (_loop226042226084_ - _lp-tl226045226103_ + (gx#stx-null? _tl228548228618_)) + (_loop228537228579_ + _lp-tl228540228598_ (let () (declare (not safe)) - (cons _hd226054226120_ - _type-e226046226091_)) + (cons _hd228549228615_ + _type-e228541228586_)) (let () (declare (not safe)) - (cons _hd226051226110_ - _id226047226093_))) - (_g226032226061_ _g226033226065_)))) - (_g226032226061_ _g226033226065_)))) - (_g226032226061_ _g226033226065_)))) - (let ((_type-e226048226126_ (reverse _type-e226046226091_)) - (_id226049226129_ (reverse _id226047226093_))) - ((lambda (_L226132_ _L226134_) - (let ((__tmp241435 + (cons _hd228546228605_ + _id228542228588_))) + (_g228527228556_ _g228528228560_)))) + (_g228527228556_ _g228528228560_)))) + (_g228527228556_ _g228528228560_)))) + (let ((_type-e228543228621_ (reverse _type-e228541228586_)) + (_id228544228624_ (reverse _id228542228588_))) + ((lambda (_L228627_ _L228629_) + (let ((__tmp244030 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp241424 + (__tmp244019 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L226132_ - _L226134_)) - (let ((__tmp241425 - (lambda (_g226150226154_ - _g226151226157_ - _g226152226159_) - (let ((__tmp241426 - (let ((__tmp241434 + _L228627_ + _L228629_)) + (let ((__tmp244020 + (lambda (_g228645228649_ + _g228646228652_ + _g228647228654_) + (let ((__tmp244021 + (let ((__tmp244029 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp241427 - (let ((__tmp241433 + (__tmp244022 + (let ((__tmp244028 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-annotations))) - (__tmp241428 - (let ((__tmp241430 + (__tmp244023 + (let ((__tmp244025 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp241432 + (let ((__tmp244027 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp241431 + (__tmp244026 (let () (declare (not safe)) - (cons _g226151226157_ '())))) + (cons _g228646228652_ '())))) (declare (not safe)) - (cons __tmp241432 __tmp241431))) - (__tmp241429 + (cons __tmp244027 __tmp244026))) + (__tmp244024 (let () (declare (not safe)) - (cons _g226150226154_ '())))) + (cons _g228645228649_ '())))) (declare (not safe)) - (cons __tmp241430 __tmp241429)))) + (cons __tmp244025 __tmp244024)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp241433 - __tmp241428)))) + (cons __tmp244028 + __tmp244023)))) (declare (not safe)) - (cons __tmp241434 __tmp241427)))) + (cons __tmp244029 __tmp244022)))) (declare (not safe)) - (cons __tmp241426 _g226152226159_))))) + (cons __tmp244021 _g228647228654_))))) (declare (not safe)) - (foldr2 __tmp241425 '() _L226132_ _L226134_))))) + (foldr2 __tmp244020 '() _L228627_ _L228629_))))) (declare (not safe)) - (cons __tmp241435 __tmp241424))) - _type-e226048226126_ - _id226049226129_)))))) + (cons __tmp244030 __tmp244019))) + _type-e228543228621_ + _id228544228624_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop226042226084_ - _target226039226078_ + (_loop228537228579_ + _target228534228573_ '() '())) - (_g226032226061_ _g226033226065_))))) - (_g226032226061_ _g226033226065_)))) - (_g226032226061_ _g226033226065_))))) - (_g226031226162_ _$stx226028_)))) + (_g228527228556_ _g228528228560_))))) + (_g228527228556_ _g228528228560_)))) + (_g228527228556_ _g228528228560_))))) + (_g228526228657_ _$stx228523_)))) (define |gxc[:0:]#defbasic-expression-type-builtin| - (lambda (_$stx226167_) - (let* ((_g226171226200_ - (lambda (_g226172226196_) + (lambda (_$stx228662_) + (let* ((_g228666228695_ + (lambda (_g228667228691_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g226172226196_)))) - (_g226170226300_ - (lambda (_g226172226204_) + _g228667228691_)))) + (_g228665228795_ + (lambda (_g228667228699_) (if (let () (declare (not safe)) - (gx#stx-pair? _g226172226204_)) - (let ((_e226177226207_ + (gx#stx-pair? _g228667228699_)) + (let ((_e228672228702_ (let () (declare (not safe)) - (gx#syntax-e _g226172226204_)))) - (let ((_hd226176226211_ + (gx#syntax-e _g228667228699_)))) + (let ((_hd228671228706_ (let () (declare (not safe)) - (##car _e226177226207_))) - (_tl226175226214_ + (##car _e228672228702_))) + (_tl228670228709_ (let () (declare (not safe)) - (##cdr _e226177226207_)))) + (##cdr _e228672228702_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl226175226214_)) - (let ((_g241436_ + (gx#stx-pair/null? _tl228670228709_)) + (let ((_g244031_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl226175226214_ + _tl228670228709_ '0)))) (begin - (let ((_g241437_ + (let ((_g244032_ (let () (declare (not safe)) - (if (##values? _g241436_) - (##vector-length _g241436_) + (if (##values? _g244031_) + (##vector-length _g244031_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g241437_ 2))) + (##fx= _g244032_ 2))) (error "Context expects 2 values" - _g241437_))) - (let ((_target226178226217_ + _g244032_))) + (let ((_target228673228712_ (let () (declare (not safe)) - (##vector-ref _g241436_ 0))) - (_tl226180226220_ + (##vector-ref _g244031_ 0))) + (_tl228675228715_ (let () (declare (not safe)) - (##vector-ref _g241436_ 1)))) + (##vector-ref _g244031_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226180226220_)) - (letrec ((_loop226181226223_ - (lambda (_hd226179226227_ - _type-e226185226230_ - _id226186226232_) + (gx#stx-null? _tl228675228715_)) + (letrec ((_loop228676228718_ + (lambda (_hd228674228722_ + _type-e228680228725_ + _id228681228727_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd226179226227_)) - (let ((_e226182226235_ + _hd228674228722_)) + (let ((_e228677228730_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd226179226227_)))) - (let ((_lp-hd226183226239_ - (let () (declare (not safe)) (##car _e226182226235_))) - (_lp-tl226184226242_ - (let () (declare (not safe)) (##cdr _e226182226235_)))) + (gx#syntax-e _hd228674228722_)))) + (let ((_lp-hd228678228734_ + (let () (declare (not safe)) (##car _e228677228730_))) + (_lp-tl228679228737_ + (let () (declare (not safe)) (##cdr _e228677228730_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd226183226239_)) - (let ((_e226191226245_ + (gx#stx-pair? _lp-hd228678228734_)) + (let ((_e228686228740_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd226183226239_)))) - (let ((_hd226190226249_ + (gx#syntax-e _lp-hd228678228734_)))) + (let ((_hd228685228744_ (let () (declare (not safe)) - (##car _e226191226245_))) - (_tl226189226252_ + (##car _e228686228740_))) + (_tl228684228747_ (let () (declare (not safe)) - (##cdr _e226191226245_)))) + (##cdr _e228686228740_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl226189226252_)) - (let ((_e226194226255_ + (gx#stx-pair? _tl228684228747_)) + (let ((_e228689228750_ (let () (declare (not safe)) - (gx#syntax-e _tl226189226252_)))) - (let ((_hd226193226259_ + (gx#syntax-e _tl228684228747_)))) + (let ((_hd228688228754_ (let () (declare (not safe)) - (##car _e226194226255_))) - (_tl226192226262_ + (##car _e228689228750_))) + (_tl228687228757_ (let () (declare (not safe)) - (##cdr _e226194226255_)))) + (##cdr _e228689228750_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl226192226262_)) - (_loop226181226223_ - _lp-tl226184226242_ + (gx#stx-null? _tl228687228757_)) + (_loop228676228718_ + _lp-tl228679228737_ (let () (declare (not safe)) - (cons _hd226193226259_ - _type-e226185226230_)) + (cons _hd228688228754_ + _type-e228680228725_)) (let () (declare (not safe)) - (cons _hd226190226249_ - _id226186226232_))) - (_g226171226200_ _g226172226204_)))) - (_g226171226200_ _g226172226204_)))) - (_g226171226200_ _g226172226204_)))) - (let ((_type-e226187226265_ (reverse _type-e226185226230_)) - (_id226188226268_ (reverse _id226186226232_))) - ((lambda (_L226271_ _L226273_) - (let ((__tmp241449 + (cons _hd228685228744_ + _id228681228727_))) + (_g228666228695_ _g228667228699_)))) + (_g228666228695_ _g228667228699_)))) + (_g228666228695_ _g228667228699_)))) + (let ((_type-e228682228760_ (reverse _type-e228680228725_)) + (_id228683228763_ (reverse _id228681228727_))) + ((lambda (_L228766_ _L228768_) + (let ((__tmp244044 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp241438 + (__tmp244033 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L226271_ - _L226273_)) - (let ((__tmp241439 - (lambda (_g226288226292_ - _g226289226295_ - _g226290226297_) - (let ((__tmp241440 - (let ((__tmp241448 + _L228766_ + _L228768_)) + (let ((__tmp244034 + (lambda (_g228783228787_ + _g228784228790_ + _g228785228792_) + (let ((__tmp244035 + (let ((__tmp244043 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp241441 - (let ((__tmp241447 + (__tmp244036 + (let ((__tmp244042 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-builtin))) - (__tmp241442 - (let ((__tmp241444 + (__tmp244037 + (let ((__tmp244039 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp241446 + (let ((__tmp244041 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp241445 + (__tmp244040 (let () (declare (not safe)) - (cons _g226289226295_ '())))) + (cons _g228784228790_ '())))) (declare (not safe)) - (cons __tmp241446 __tmp241445))) - (__tmp241443 + (cons __tmp244041 __tmp244040))) + (__tmp244038 (let () (declare (not safe)) - (cons _g226288226292_ '())))) + (cons _g228783228787_ '())))) (declare (not safe)) - (cons __tmp241444 __tmp241443)))) + (cons __tmp244039 __tmp244038)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp241447 - __tmp241442)))) + (cons __tmp244042 + __tmp244037)))) (declare (not safe)) - (cons __tmp241448 __tmp241441)))) + (cons __tmp244043 __tmp244036)))) (declare (not safe)) - (cons __tmp241440 _g226290226297_))))) + (cons __tmp244035 _g228785228792_))))) (declare (not safe)) - (foldr2 __tmp241439 '() _L226271_ _L226273_))))) + (foldr2 __tmp244034 '() _L228766_ _L228768_))))) (declare (not safe)) - (cons __tmp241449 __tmp241438))) - _type-e226187226265_ - _id226188226268_)))))) + (cons __tmp244044 __tmp244033))) + _type-e228682228760_ + _id228683228763_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop226181226223_ - _target226178226217_ + (_loop228676228718_ + _target228673228712_ '() '())) - (_g226171226200_ _g226172226204_))))) - (_g226171226200_ _g226172226204_)))) - (_g226171226200_ _g226172226204_))))) - (_g226170226300_ _$stx226167_))))) + (_g228666228695_ _g228667228699_))))) + (_g228666228695_ _g228667228699_)))) + (_g228666228695_ _g228667228699_))))) + (_g228665228795_ _$stx228662_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm index 5508483a2..3894e3248 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 1707573214) + (define gerbil/compiler/optimize-xform::timestamp 1707674933) (begin (define gxc#&identity-expression (make-promise (lambda () - (let ((_tbl221204_ + (let ((_tbl223599_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#begin-annotation gxc#xform-identity)) + (table-set! _tbl223599_ '%#begin-annotation gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#lambda gxc#xform-identity)) + (table-set! _tbl223599_ '%#lambda gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#case-lambda gxc#xform-identity)) + (table-set! _tbl223599_ '%#case-lambda gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#let-values gxc#xform-identity)) + (table-set! _tbl223599_ '%#let-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#letrec-values gxc#xform-identity)) + (table-set! _tbl223599_ '%#letrec-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#letrec*-values gxc#xform-identity)) + (table-set! _tbl223599_ '%#letrec*-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#quote gxc#xform-identity)) + (table-set! _tbl223599_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#quote-syntax gxc#xform-identity)) + (table-set! _tbl223599_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#call gxc#xform-identity)) + (table-set! _tbl223599_ '%#call gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#call-unchecked gxc#xform-identity)) + (table-set! _tbl223599_ '%#call-unchecked gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#if gxc#xform-identity)) + (table-set! _tbl223599_ '%#if gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#ref gxc#xform-identity)) + (table-set! _tbl223599_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#set! gxc#xform-identity)) + (table-set! _tbl223599_ '%#set! gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#struct-instance? gxc#xform-identity)) + (table-set! _tbl223599_ '%#struct-instance? gxc#xform-identity)) (let () (declare (not safe)) (table-set! - _tbl221204_ + _tbl223599_ '%#struct-direct-instance? gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#struct-ref gxc#xform-identity)) + (table-set! _tbl223599_ '%#struct-ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#struct-set! gxc#xform-identity)) + (table-set! _tbl223599_ '%#struct-set! gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#struct-direct-ref gxc#xform-identity)) + (table-set! _tbl223599_ '%#struct-direct-ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221204_ '%#struct-direct-set! gxc#xform-identity)) + (table-set! _tbl223599_ '%#struct-direct-set! gxc#xform-identity)) (let () (declare (not safe)) (table-set! - _tbl221204_ + _tbl223599_ '%#struct-unchecked-ref gxc#xform-identity)) (let () (declare (not safe)) (table-set! - _tbl221204_ + _tbl223599_ '%#struct-unchecked-set! gxc#xform-identity)) - _tbl221204_)))) + _tbl223599_)))) (define gxc#&identity-special-form (make-promise (lambda () - (let ((_tbl221200_ + (let ((_tbl223595_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl221200_ '%#begin gxc#xform-identity)) + (table-set! _tbl223595_ '%#begin gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221200_ '%#begin-syntax gxc#xform-identity)) + (table-set! _tbl223595_ '%#begin-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221200_ '%#begin-foreign gxc#xform-identity)) + (table-set! _tbl223595_ '%#begin-foreign gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221200_ '%#module gxc#xform-identity)) + (table-set! _tbl223595_ '%#module gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221200_ '%#import gxc#xform-identity)) + (table-set! _tbl223595_ '%#import gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221200_ '%#export gxc#xform-identity)) + (table-set! _tbl223595_ '%#export gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221200_ '%#provide gxc#xform-identity)) + (table-set! _tbl223595_ '%#provide gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221200_ '%#extern gxc#xform-identity)) + (table-set! _tbl223595_ '%#extern gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221200_ '%#define-values gxc#xform-identity)) + (table-set! _tbl223595_ '%#define-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221200_ '%#define-syntax gxc#xform-identity)) + (table-set! _tbl223595_ '%#define-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221200_ '%#define-alias gxc#xform-identity)) + (table-set! _tbl223595_ '%#define-alias gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221200_ '%#declare gxc#xform-identity)) - _tbl221200_)))) + (table-set! _tbl223595_ '%#declare gxc#xform-identity)) + _tbl223595_)))) (define gxc#&identity (make-promise (lambda () - (let ((_tbl221196_ + (let ((_tbl223591_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp225918 (force gxc#&identity-special-form))) + (let ((__tmp228413 (force gxc#&identity-special-form))) (declare (not safe)) - (hash-copy! _tbl221196_ __tmp225918)) - (let ((__tmp225919 (force gxc#&identity-expression))) + (hash-copy! _tbl223591_ __tmp228413)) + (let ((__tmp228414 (force gxc#&identity-expression))) (declare (not safe)) - (hash-copy! _tbl221196_ __tmp225919)) - _tbl221196_)))) + (hash-copy! _tbl223591_ __tmp228414)) + _tbl223591_)))) (define gxc#&basic-xform-expression (make-promise (lambda () - (let ((_tbl221192_ + (let ((_tbl223587_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) (table-set! - _tbl221192_ + _tbl223587_ '%#begin-annotation gxc#xform-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#lambda gxc#xform-lambda%)) + (table-set! _tbl223587_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#case-lambda gxc#xform-case-lambda%)) + (table-set! _tbl223587_ '%#case-lambda gxc#xform-case-lambda%)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#let-values gxc#xform-let-values%)) + (table-set! _tbl223587_ '%#let-values gxc#xform-let-values%)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#letrec-values gxc#xform-let-values%)) + (table-set! _tbl223587_ '%#letrec-values gxc#xform-let-values%)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#letrec*-values gxc#xform-let-values%)) + (table-set! _tbl223587_ '%#letrec*-values gxc#xform-let-values%)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#quote gxc#xform-identity)) + (table-set! _tbl223587_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#quote-syntax gxc#xform-identity)) + (table-set! _tbl223587_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#call gxc#xform-operands)) + (table-set! _tbl223587_ '%#call gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#call-unchecked gxc#xform-operands)) + (table-set! _tbl223587_ '%#call-unchecked gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#if gxc#xform-operands)) + (table-set! _tbl223587_ '%#if gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#ref gxc#xform-identity)) + (table-set! _tbl223587_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#set! gxc#xform-setq%)) + (table-set! _tbl223587_ '%#set! gxc#xform-setq%)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#struct-instance? gxc#xform-operands)) + (table-set! _tbl223587_ '%#struct-instance? gxc#xform-operands)) (let () (declare (not safe)) (table-set! - _tbl221192_ + _tbl223587_ '%#struct-direct-instance? gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#struct-ref gxc#xform-operands)) + (table-set! _tbl223587_ '%#struct-ref gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#struct-set! gxc#xform-operands)) + (table-set! _tbl223587_ '%#struct-set! gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#struct-direct-ref gxc#xform-operands)) + (table-set! _tbl223587_ '%#struct-direct-ref gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl221192_ '%#struct-direct-set! gxc#xform-operands)) + (table-set! _tbl223587_ '%#struct-direct-set! gxc#xform-operands)) (let () (declare (not safe)) (table-set! - _tbl221192_ + _tbl223587_ '%#struct-unchecked-ref gxc#xform-operands)) (let () (declare (not safe)) (table-set! - _tbl221192_ + _tbl223587_ '%#struct-unchecked-set! gxc#xform-operands)) - _tbl221192_)))) + _tbl223587_)))) (define gxc#&basic-xform (make-promise (lambda () - (let ((_tbl221188_ + (let ((_tbl223583_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp225920 (force gxc#&basic-xform-expression))) + (let ((__tmp228415 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-copy! _tbl221188_ __tmp225920)) - (let ((__tmp225921 (force gxc#&identity))) + (hash-copy! _tbl223583_ __tmp228415)) + (let ((__tmp228416 (force gxc#&identity))) (declare (not safe)) - (hash-copy! _tbl221188_ __tmp225921)) + (hash-copy! _tbl223583_ __tmp228416)) (let () (declare (not safe)) - (table-set! _tbl221188_ '%#begin gxc#xform-begin%)) + (table-set! _tbl223583_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl221188_ '%#begin-syntax gxc#xform-begin-syntax%)) + (table-set! _tbl223583_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl221188_ '%#module gxc#xform-module%)) + (table-set! _tbl223583_ '%#module gxc#xform-module%)) (let () (declare (not safe)) (table-set! - _tbl221188_ + _tbl223583_ '%#define-values gxc#xform-define-values%)) (let () (declare (not safe)) (table-set! - _tbl221188_ + _tbl223583_ '%#define-syntax gxc#xform-define-syntax%)) - _tbl221188_)))) + _tbl223583_)))) (define gxc#&collect-mutators (make-promise (lambda () - (let ((_tbl221184_ + (let ((_tbl223579_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp225922 (force gxc#&void))) + (let ((__tmp228417 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl221184_ __tmp225922)) + (hash-copy! _tbl223579_ __tmp228417)) (let () (declare (not safe)) - (table-set! _tbl221184_ '%#begin gxc#collect-begin%)) + (table-set! _tbl223579_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl221184_ + _tbl223579_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) (table-set! - _tbl221184_ + _tbl223579_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl221184_ '%#module gxc#collect-module%)) + (table-set! _tbl223579_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (table-set! - _tbl221184_ + _tbl223579_ '%#define-values gxc#collect-define-values%)) (let () (declare (not safe)) (table-set! - _tbl221184_ + _tbl223579_ '%#define-syntax gxc#collect-define-syntax%)) (let () (declare (not safe)) - (table-set! _tbl221184_ '%#lambda gxc#collect-body-lambda%)) + (table-set! _tbl223579_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (table-set! - _tbl221184_ + _tbl223579_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl221184_ + _tbl223579_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl221184_ + _tbl223579_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl221184_ + _tbl223579_ '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! _tbl221184_ '%#call gxc#collect-operands)) + (table-set! _tbl223579_ '%#call gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl221184_ '%#call-unchecked gxc#collect-operands)) + (table-set! _tbl223579_ '%#call-unchecked gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl221184_ '%#if gxc#collect-operands)) + (table-set! _tbl223579_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl221184_ '%#set! gxc#collect-mutators-setq%)) + (table-set! _tbl223579_ '%#set! gxc#collect-mutators-setq%)) (let () (declare (not safe)) - (table-set! _tbl221184_ '%#struct-instance? gxc#collect-operands)) + (table-set! _tbl223579_ '%#struct-instance? gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl221184_ + _tbl223579_ '%#struct-direct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl221184_ '%#struct-ref gxc#collect-operands)) + (table-set! _tbl223579_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl221184_ '%#struct-set! gxc#collect-operands)) + (table-set! _tbl223579_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl221184_ + _tbl223579_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl221184_ + _tbl223579_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl221184_ + _tbl223579_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl221184_ + _tbl223579_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl221184_)))) + _tbl223579_)))) (define gxc#apply-collect-mutators - (lambda (_stx221167_ . _args221169_) - (let ((__tmp225924 + (lambda (_stx223562_ . _args223564_) + (let ((__tmp228419 (lambda () (declare (not safe)) - (if (null? _args221169_) - (gxc#compile-e__0 _stx221167_) - (let ((_arg1221174_ (car _args221169_)) - (_rest221176_ (cdr _args221169_))) - (if (null? _rest221176_) - (gxc#compile-e__1 _stx221167_ _arg1221174_) - (let ((_arg2221179_ (car _rest221176_)) - (_rest221181_ (cdr _rest221176_))) - (if (null? _rest221181_) + (if (null? _args223564_) + (gxc#compile-e__0 _stx223562_) + (let ((_arg1223569_ (car _args223564_)) + (_rest223571_ (cdr _args223564_))) + (if (null? _rest223571_) + (gxc#compile-e__1 _stx223562_ _arg1223569_) + (let ((_arg2223574_ (car _rest223571_)) + (_rest223576_ (cdr _rest223571_))) + (if (null? _rest223576_) (gxc#compile-e__2 - _stx221167_ - _arg1221174_ - _arg2221179_) + _stx223562_ + _arg1223569_ + _arg2223574_) (apply gxc#compile-e - _stx221167_ - _arg1221174_ - _arg2221179_ - _rest221181_)))))))) - (__tmp225923 (force gxc#&collect-mutators))) + _stx223562_ + _arg1223569_ + _arg2223574_ + _rest223576_)))))))) + (__tmp228418 (force gxc#&collect-mutators))) (declare (not safe)) (call-with-parameters - __tmp225924 + __tmp228419 gxc#current-compile-methods - __tmp225923)))) + __tmp228418)))) (define gxc#&collect-methods (make-promise (lambda () - (let ((_tbl221164_ + (let ((_tbl223559_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp225925 (force gxc#&void))) + (let ((__tmp228420 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl221164_ __tmp225925)) + (hash-copy! _tbl223559_ __tmp228420)) (let () (declare (not safe)) - (table-set! _tbl221164_ '%#begin gxc#collect-begin%)) + (table-set! _tbl223559_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl221164_ + _tbl223559_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl221164_ '%#module gxc#collect-module%)) + (table-set! _tbl223559_ '%#module gxc#collect-module%)) (let () (declare (not safe)) - (table-set! _tbl221164_ '%#call gxc#collect-methods-call%)) + (table-set! _tbl223559_ '%#call gxc#collect-methods-call%)) (let () (declare (not safe)) (table-set! - _tbl221164_ + _tbl223559_ '%#call-unchecked gxc#collect-methods-call%)) - _tbl221164_)))) + _tbl223559_)))) (define gxc#apply-collect-methods - (lambda (_stx221147_ . _args221149_) - (let ((__tmp225927 + (lambda (_stx223542_ . _args223544_) + (let ((__tmp228422 (lambda () (declare (not safe)) - (if (null? _args221149_) - (gxc#compile-e__0 _stx221147_) - (let ((_arg1221154_ (car _args221149_)) - (_rest221156_ (cdr _args221149_))) - (if (null? _rest221156_) - (gxc#compile-e__1 _stx221147_ _arg1221154_) - (let ((_arg2221159_ (car _rest221156_)) - (_rest221161_ (cdr _rest221156_))) - (if (null? _rest221161_) + (if (null? _args223544_) + (gxc#compile-e__0 _stx223542_) + (let ((_arg1223549_ (car _args223544_)) + (_rest223551_ (cdr _args223544_))) + (if (null? _rest223551_) + (gxc#compile-e__1 _stx223542_ _arg1223549_) + (let ((_arg2223554_ (car _rest223551_)) + (_rest223556_ (cdr _rest223551_))) + (if (null? _rest223556_) (gxc#compile-e__2 - _stx221147_ - _arg1221154_ - _arg2221159_) + _stx223542_ + _arg1223549_ + _arg2223554_) (apply gxc#compile-e - _stx221147_ - _arg1221154_ - _arg2221159_ - _rest221161_)))))))) - (__tmp225926 (force gxc#&collect-methods))) + _stx223542_ + _arg1223549_ + _arg2223554_ + _rest223556_)))))))) + (__tmp228421 (force gxc#&collect-methods))) (declare (not safe)) (call-with-parameters - __tmp225927 + __tmp228422 gxc#current-compile-methods - __tmp225926)))) + __tmp228421)))) (define gxc#&expression-subst (make-promise (lambda () - (let ((_tbl221144_ + (let ((_tbl223539_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp225928 (force gxc#&basic-xform-expression))) + (let ((__tmp228423 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-copy! _tbl221144_ __tmp225928)) + (hash-copy! _tbl223539_ __tmp228423)) (let () (declare (not safe)) - (table-set! _tbl221144_ '%#begin gxc#xform-begin%)) + (table-set! _tbl223539_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl221144_ '%#ref gxc#expression-subst-ref%)) + (table-set! _tbl223539_ '%#ref gxc#expression-subst-ref%)) (let () (declare (not safe)) - (table-set! _tbl221144_ '%#set! gxc#expression-subst-setq%)) - _tbl221144_)))) + (table-set! _tbl223539_ '%#set! gxc#expression-subst-setq%)) + _tbl223539_)))) (define gxc#apply-expression-subst - (lambda (_stx221127_ . _args221129_) - (let ((__tmp225930 + (lambda (_stx223522_ . _args223524_) + (let ((__tmp228425 (lambda () (declare (not safe)) - (if (null? _args221129_) - (gxc#compile-e__0 _stx221127_) - (let ((_arg1221134_ (car _args221129_)) - (_rest221136_ (cdr _args221129_))) - (if (null? _rest221136_) - (gxc#compile-e__1 _stx221127_ _arg1221134_) - (let ((_arg2221139_ (car _rest221136_)) - (_rest221141_ (cdr _rest221136_))) - (if (null? _rest221141_) + (if (null? _args223524_) + (gxc#compile-e__0 _stx223522_) + (let ((_arg1223529_ (car _args223524_)) + (_rest223531_ (cdr _args223524_))) + (if (null? _rest223531_) + (gxc#compile-e__1 _stx223522_ _arg1223529_) + (let ((_arg2223534_ (car _rest223531_)) + (_rest223536_ (cdr _rest223531_))) + (if (null? _rest223536_) (gxc#compile-e__2 - _stx221127_ - _arg1221134_ - _arg2221139_) + _stx223522_ + _arg1223529_ + _arg2223534_) (apply gxc#compile-e - _stx221127_ - _arg1221134_ - _arg2221139_ - _rest221141_)))))))) - (__tmp225929 (force gxc#&expression-subst))) + _stx223522_ + _arg1223529_ + _arg2223534_ + _rest223536_)))))))) + (__tmp228424 (force gxc#&expression-subst))) (declare (not safe)) (call-with-parameters - __tmp225930 + __tmp228425 gxc#current-compile-methods - __tmp225929)))) + __tmp228424)))) (define gxc#&expression-subst* (make-promise (lambda () - (let ((_tbl221124_ + (let ((_tbl223519_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp225931 (force gxc#&expression-subst))) + (let ((__tmp228426 (force gxc#&expression-subst))) (declare (not safe)) - (hash-copy! _tbl221124_ __tmp225931)) + (hash-copy! _tbl223519_ __tmp228426)) (let () (declare (not safe)) - (table-set! _tbl221124_ '%#ref gxc#expression-subst*-ref%)) + (table-set! _tbl223519_ '%#ref gxc#expression-subst*-ref%)) (let () (declare (not safe)) - (table-set! _tbl221124_ '%#set! gxc#expression-subst*-setq%)) - _tbl221124_)))) + (table-set! _tbl223519_ '%#set! gxc#expression-subst*-setq%)) + _tbl223519_)))) (define gxc#apply-expression-subst* - (lambda (_stx221107_ . _args221109_) - (let ((__tmp225933 + (lambda (_stx223502_ . _args223504_) + (let ((__tmp228428 (lambda () (declare (not safe)) - (if (null? _args221109_) - (gxc#compile-e__0 _stx221107_) - (let ((_arg1221114_ (car _args221109_)) - (_rest221116_ (cdr _args221109_))) - (if (null? _rest221116_) - (gxc#compile-e__1 _stx221107_ _arg1221114_) - (let ((_arg2221119_ (car _rest221116_)) - (_rest221121_ (cdr _rest221116_))) - (if (null? _rest221121_) + (if (null? _args223504_) + (gxc#compile-e__0 _stx223502_) + (let ((_arg1223509_ (car _args223504_)) + (_rest223511_ (cdr _args223504_))) + (if (null? _rest223511_) + (gxc#compile-e__1 _stx223502_ _arg1223509_) + (let ((_arg2223514_ (car _rest223511_)) + (_rest223516_ (cdr _rest223511_))) + (if (null? _rest223516_) (gxc#compile-e__2 - _stx221107_ - _arg1221114_ - _arg2221119_) + _stx223502_ + _arg1223509_ + _arg2223514_) (apply gxc#compile-e - _stx221107_ - _arg1221114_ - _arg2221119_ - _rest221121_)))))))) - (__tmp225932 (force gxc#&expression-subst*))) + _stx223502_ + _arg1223509_ + _arg2223514_ + _rest223516_)))))))) + (__tmp228427 (force gxc#&expression-subst*))) (declare (not safe)) (call-with-parameters - __tmp225933 + __tmp228428 gxc#current-compile-methods - __tmp225932)))) + __tmp228427)))) (define gxc#&find-expression (make-promise (lambda () - (let ((_tbl221104_ + (let ((_tbl223499_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp225934 (force gxc#&false-expression))) + (let ((__tmp228429 (force gxc#&false-expression))) (declare (not safe)) - (hash-copy! _tbl221104_ __tmp225934)) + (hash-copy! _tbl223499_ __tmp228429)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#begin gxc#find-body%)) + (table-set! _tbl223499_ '%#begin gxc#find-body%)) (let () (declare (not safe)) (table-set! - _tbl221104_ + _tbl223499_ '%#begin-annotation gxc#find-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#lambda gxc#find-lambda%)) + (table-set! _tbl223499_ '%#lambda gxc#find-lambda%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#case-lambda gxc#find-case-lambda%)) + (table-set! _tbl223499_ '%#case-lambda gxc#find-case-lambda%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#let-values gxc#find-let-values%)) + (table-set! _tbl223499_ '%#let-values gxc#find-let-values%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#letrec-values gxc#find-let-values%)) + (table-set! _tbl223499_ '%#letrec-values gxc#find-let-values%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#letrec*-values gxc#find-let-values%)) + (table-set! _tbl223499_ '%#letrec*-values gxc#find-let-values%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#call gxc#find-body%)) + (table-set! _tbl223499_ '%#call gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#call-unchecked gxc#find-body%)) + (table-set! _tbl223499_ '%#call-unchecked gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#if gxc#find-body%)) + (table-set! _tbl223499_ '%#if gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#set! gxc#find-setq%)) + (table-set! _tbl223499_ '%#set! gxc#find-setq%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#struct-instance? gxc#find-body%)) + (table-set! _tbl223499_ '%#struct-instance? gxc#find-body%)) (let () (declare (not safe)) (table-set! - _tbl221104_ + _tbl223499_ '%#struct-direct-instance? gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#struct-ref gxc#find-body%)) + (table-set! _tbl223499_ '%#struct-ref gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#struct-set! gxc#find-body%)) + (table-set! _tbl223499_ '%#struct-set! gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#struct-direct-ref gxc#find-body%)) + (table-set! _tbl223499_ '%#struct-direct-ref gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#struct-direct-set! gxc#find-body%)) + (table-set! _tbl223499_ '%#struct-direct-set! gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#struct-unchecked-ref gxc#find-body%)) + (table-set! _tbl223499_ '%#struct-unchecked-ref gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl221104_ '%#struct-unchecked-set! gxc#find-body%)) - _tbl221104_)))) + (table-set! _tbl223499_ '%#struct-unchecked-set! gxc#find-body%)) + _tbl223499_)))) (define gxc#&find-var-refs (make-promise (lambda () - (let ((_tbl221100_ + (let ((_tbl223495_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp225935 (force gxc#&find-expression))) + (let ((__tmp228430 (force gxc#&find-expression))) (declare (not safe)) - (hash-copy! _tbl221100_ __tmp225935)) + (hash-copy! _tbl223495_ __tmp228430)) (let () (declare (not safe)) - (table-set! _tbl221100_ '%#ref gxc#find-var-refs-ref%)) + (table-set! _tbl223495_ '%#ref gxc#find-var-refs-ref%)) (let () (declare (not safe)) - (table-set! _tbl221100_ '%#set! gxc#find-var-refs-setq%)) - _tbl221100_)))) + (table-set! _tbl223495_ '%#set! gxc#find-var-refs-setq%)) + _tbl223495_)))) (define gxc#apply-find-var-refs - (lambda (_stx221083_ . _args221085_) - (let ((__tmp225937 + (lambda (_stx223478_ . _args223480_) + (let ((__tmp228432 (lambda () (declare (not safe)) - (if (null? _args221085_) - (gxc#compile-e__0 _stx221083_) - (let ((_arg1221090_ (car _args221085_)) - (_rest221092_ (cdr _args221085_))) - (if (null? _rest221092_) - (gxc#compile-e__1 _stx221083_ _arg1221090_) - (let ((_arg2221095_ (car _rest221092_)) - (_rest221097_ (cdr _rest221092_))) - (if (null? _rest221097_) + (if (null? _args223480_) + (gxc#compile-e__0 _stx223478_) + (let ((_arg1223485_ (car _args223480_)) + (_rest223487_ (cdr _args223480_))) + (if (null? _rest223487_) + (gxc#compile-e__1 _stx223478_ _arg1223485_) + (let ((_arg2223490_ (car _rest223487_)) + (_rest223492_ (cdr _rest223487_))) + (if (null? _rest223492_) (gxc#compile-e__2 - _stx221083_ - _arg1221090_ - _arg2221095_) + _stx223478_ + _arg1223485_ + _arg2223490_) (apply gxc#compile-e - _stx221083_ - _arg1221090_ - _arg2221095_ - _rest221097_)))))))) - (__tmp225936 (force gxc#&find-var-refs))) + _stx223478_ + _arg1223485_ + _arg2223490_ + _rest223492_)))))))) + (__tmp228431 (force gxc#&find-var-refs))) (declare (not safe)) (call-with-parameters - __tmp225937 + __tmp228432 gxc#current-compile-methods - __tmp225936)))) + __tmp228431)))) (define gxc#&collect-runtime-refs (make-promise (lambda () - (let ((_tbl221080_ + (let ((_tbl223475_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp225938 (force gxc#&collect-expression-refs))) + (let ((__tmp228433 (force gxc#&collect-expression-refs))) (declare (not safe)) - (hash-copy! _tbl221080_ __tmp225938)) + (hash-copy! _tbl223475_ __tmp228433)) (let () (declare (not safe)) - (table-set! _tbl221080_ '%#ref gxc#collect-runtime-refs-ref%)) + (table-set! _tbl223475_ '%#ref gxc#collect-runtime-refs-ref%)) (let () (declare (not safe)) - (table-set! _tbl221080_ '%#set! gxc#collect-runtime-refs-setq%)) - _tbl221080_)))) + (table-set! _tbl223475_ '%#set! gxc#collect-runtime-refs-setq%)) + _tbl223475_)))) (define gxc#apply-collect-runtime-refs - (lambda (_stx221063_ . _args221065_) - (let ((__tmp225940 + (lambda (_stx223458_ . _args223460_) + (let ((__tmp228435 (lambda () (declare (not safe)) - (if (null? _args221065_) - (gxc#compile-e__0 _stx221063_) - (let ((_arg1221070_ (car _args221065_)) - (_rest221072_ (cdr _args221065_))) - (if (null? _rest221072_) - (gxc#compile-e__1 _stx221063_ _arg1221070_) - (let ((_arg2221075_ (car _rest221072_)) - (_rest221077_ (cdr _rest221072_))) - (if (null? _rest221077_) + (if (null? _args223460_) + (gxc#compile-e__0 _stx223458_) + (let ((_arg1223465_ (car _args223460_)) + (_rest223467_ (cdr _args223460_))) + (if (null? _rest223467_) + (gxc#compile-e__1 _stx223458_ _arg1223465_) + (let ((_arg2223470_ (car _rest223467_)) + (_rest223472_ (cdr _rest223467_))) + (if (null? _rest223472_) (gxc#compile-e__2 - _stx221063_ - _arg1221070_ - _arg2221075_) + _stx223458_ + _arg1223465_ + _arg2223470_) (apply gxc#compile-e - _stx221063_ - _arg1221070_ - _arg2221075_ - _rest221077_)))))))) - (__tmp225939 (force gxc#&collect-runtime-refs))) + _stx223458_ + _arg1223465_ + _arg2223470_ + _rest223472_)))))))) + (__tmp228434 (force gxc#&collect-runtime-refs))) (declare (not safe)) (call-with-parameters - __tmp225940 + __tmp228435 gxc#current-compile-methods - __tmp225939)))) + __tmp228434)))) (define gxc#xform-identity - (lambda (_stx221060_ . _args221061_) _stx221060_)) + (lambda (_stx223455_ . _args223456_) _stx223455_)) (define gxc#xform-wrap-source - (lambda (_stx221057_ _src-stx221058_) - (let ((__tmp225941 - (let () (declare (not safe)) (gx#stx-source _src-stx221058_)))) + (lambda (_stx223452_ _src-stx223453_) + (let ((__tmp228436 + (let () (declare (not safe)) (gx#stx-source _src-stx223453_)))) (declare (not safe)) - (gx#stx-wrap-source _stx221057_ __tmp225941)))) + (gx#stx-wrap-source _stx223452_ __tmp228436)))) (define gxc#xform-apply-compile-e - (lambda (_args221044_) - (lambda (_stx221046_) - (if (let () (declare (not safe)) (null? _args221044_)) - (let () (declare (not safe)) (gxc#compile-e__0 _stx221046_)) - (let ((_arg1221048_ (car _args221044_)) - (_rest221050_ (cdr _args221044_))) - (if (let () (declare (not safe)) (null? _rest221050_)) + (lambda (_args223439_) + (lambda (_stx223441_) + (if (let () (declare (not safe)) (null? _args223439_)) + (let () (declare (not safe)) (gxc#compile-e__0 _stx223441_)) + (let ((_arg1223443_ (car _args223439_)) + (_rest223445_ (cdr _args223439_))) + (if (let () (declare (not safe)) (null? _rest223445_)) (let () (declare (not safe)) - (gxc#compile-e__1 _stx221046_ _arg1221048_)) - (let ((_arg2221053_ (car _rest221050_)) - (_rest221055_ (cdr _rest221050_))) - (if (let () (declare (not safe)) (null? _rest221055_)) + (gxc#compile-e__1 _stx223441_ _arg1223443_)) + (let ((_arg2223448_ (car _rest223445_)) + (_rest223450_ (cdr _rest223445_))) + (if (let () (declare (not safe)) (null? _rest223450_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx221046_ - _arg1221048_ - _arg2221053_)) + _stx223441_ + _arg1223443_ + _arg2223448_)) (apply gxc#compile-e - _stx221046_ - _arg1221048_ - _arg2221053_ - _rest221055_))))))))) + _stx223441_ + _arg1223443_ + _arg2223448_ + _rest223450_))))))))) (define gxc#xform-begin% - (lambda (_stx221003_ . _args221004_) - (let* ((_g221006221016_ - (lambda (_g221007221013_) + (lambda (_stx223398_ . _args223399_) + (let* ((_g223401223411_ + (lambda (_g223402223408_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g221007221013_)))) - (_g221005221041_ - (lambda (_g221007221019_) + _g223402223408_)))) + (_g223400223436_ + (lambda (_g223402223414_) (if (let () (declare (not safe)) - (gx#stx-pair? _g221007221019_)) - (let ((_e221011221021_ + (gx#stx-pair? _g223402223414_)) + (let ((_e223406223416_ (let () (declare (not safe)) - (gx#stx-e _g221007221019_)))) - (let ((_hd221010221024_ + (gx#stx-e _g223402223414_)))) + (let ((_hd223405223419_ (let () (declare (not safe)) - (##car _e221011221021_))) - (_tl221009221026_ + (##car _e223406223416_))) + (_tl223404223421_ (let () (declare (not safe)) - (##cdr _e221011221021_)))) - ((lambda (_L221029_) - (let* ((_forms221039_ + (##cdr _e223406223416_)))) + ((lambda (_L223424_) + (let* ((_forms223434_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args221004_)) - _L221029_)) - (__tmp225942 + _args223399_)) + _L223424_)) + (__tmp228437 (let () (declare (not safe)) - (cons '%#begin _forms221039_)))) + (cons '%#begin _forms223434_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp225942 - _stx221003_))) - _tl221009221026_))) + __tmp228437 + _stx223398_))) + _tl223404223421_))) (let () (declare (not safe)) - (_g221006221016_ _g221007221019_)))))) + (_g223401223411_ _g223402223414_)))))) (declare (not safe)) - (_g221005221041_ _stx221003_)))) + (_g223400223436_ _stx223398_)))) (define gxc#xform-begin-syntax% - (lambda (_stx220961_ . _args220962_) - (let* ((_g220964220974_ - (lambda (_g220965220971_) + (lambda (_stx223356_ . _args223357_) + (let* ((_g223359223369_ + (lambda (_g223360223366_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220965220971_)))) - (_g220963221000_ - (lambda (_g220965220977_) + _g223360223366_)))) + (_g223358223395_ + (lambda (_g223360223372_) (if (let () (declare (not safe)) - (gx#stx-pair? _g220965220977_)) - (let ((_e220969220979_ + (gx#stx-pair? _g223360223372_)) + (let ((_e223364223374_ (let () (declare (not safe)) - (gx#stx-e _g220965220977_)))) - (let ((_hd220968220982_ + (gx#stx-e _g223360223372_)))) + (let ((_hd223363223377_ (let () (declare (not safe)) - (##car _e220969220979_))) - (_tl220967220984_ + (##car _e223364223374_))) + (_tl223362223379_ (let () (declare (not safe)) - (##cdr _e220969220979_)))) - ((lambda (_L220987_) - (let ((__tmp225945 + (##cdr _e223364223374_)))) + ((lambda (_L223382_) + (let ((__tmp228440 (lambda () - (let* ((_forms220998_ + (let* ((_forms223393_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args220962_)) - _L220987_)) - (__tmp225946 + _args223357_)) + _L223382_)) + (__tmp228441 (let () (declare (not safe)) (cons '%#begin-syntax - _forms220998_)))) + _forms223393_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp225946 - _stx220961_)))) - (__tmp225943 - (let ((__tmp225944 + __tmp228441 + _stx223356_)))) + (__tmp228438 + (let ((__tmp228439 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp225944 '1)))) + (fx+ __tmp228439 '1)))) (declare (not safe)) (call-with-parameters - __tmp225945 + __tmp228440 gx#current-expander-phi - __tmp225943))) - _tl220967220984_))) + __tmp228438))) + _tl223362223379_))) (let () (declare (not safe)) - (_g220964220974_ _g220965220977_)))))) + (_g223359223369_ _g223360223372_)))))) (declare (not safe)) - (_g220963221000_ _stx220961_)))) + (_g223358223395_ _stx223356_)))) (define gxc#xform-module% - (lambda (_stx220889_ . _args220890_) - (let* ((_g220892220906_ - (lambda (_g220893220903_) + (lambda (_stx223284_ . _args223285_) + (let* ((_g223287223301_ + (lambda (_g223288223298_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220893220903_)))) - (_g220891220958_ - (lambda (_g220893220909_) + _g223288223298_)))) + (_g223286223353_ + (lambda (_g223288223304_) (if (let () (declare (not safe)) - (gx#stx-pair? _g220893220909_)) - (let ((_e220898220911_ + (gx#stx-pair? _g223288223304_)) + (let ((_e223293223306_ (let () (declare (not safe)) - (gx#stx-e _g220893220909_)))) - (let ((_hd220897220914_ + (gx#stx-e _g223288223304_)))) + (let ((_hd223292223309_ (let () (declare (not safe)) - (##car _e220898220911_))) - (_tl220896220916_ + (##car _e223293223306_))) + (_tl223291223311_ (let () (declare (not safe)) - (##cdr _e220898220911_)))) + (##cdr _e223293223306_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220896220916_)) - (let ((_e220901220919_ + (gx#stx-pair? _tl223291223311_)) + (let ((_e223296223314_ (let () (declare (not safe)) - (gx#stx-e _tl220896220916_)))) - (let ((_hd220900220922_ + (gx#stx-e _tl223291223311_)))) + (let ((_hd223295223317_ (let () (declare (not safe)) - (##car _e220901220919_))) - (_tl220899220924_ + (##car _e223296223314_))) + (_tl223294223319_ (let () (declare (not safe)) - (##cdr _e220901220919_)))) - ((lambda (_L220927_ _L220928_) - (let* ((_ctx220941_ + (##cdr _e223296223314_)))) + ((lambda (_L223322_ _L223323_) + (let* ((_ctx223336_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L220928_))) - (_code220943_ + _L223323_))) + (_code223338_ (##structure-ref - _ctx220941_ + _ctx223336_ '11 gx#module-context::t '#f)) - (_code220955_ - (let ((__tmp225947 + (_code223350_ + (let ((__tmp228442 (lambda () (if (let () (declare (not safe)) - (null? _args220890_)) + (null? _args223285_)) (let () (declare (not safe)) (gxc#compile-e__0 - _code220943_)) - (let ((_arg1220946_ + _code223338_)) + (let ((_arg1223341_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _args220890_)) - (_rest220948_ (cdr _args220890_))) - (if (let () (declare (not safe)) (null? _rest220948_)) + (car _args223285_)) + (_rest223343_ (cdr _args223285_))) + (if (let () (declare (not safe)) (null? _rest223343_)) (let () (declare (not safe)) - (gxc#compile-e__1 _code220943_ _arg1220946_)) - (let ((_arg2220951_ (car _rest220948_)) - (_rest220953_ (cdr _rest220948_))) + (gxc#compile-e__1 _code223338_ _arg1223341_)) + (let ((_arg2223346_ (car _rest223343_)) + (_rest223348_ (cdr _rest223343_))) (if (let () (declare (not safe)) - (null? _rest220953_)) + (null? _rest223348_)) (let () (declare (not safe)) (gxc#compile-e__2 - _code220943_ - _arg1220946_ - _arg2220951_)) + _code223338_ + _arg1223341_ + _arg2223346_)) (apply gxc#compile-e - _code220943_ - _arg1220946_ - _arg2220951_ - _rest220953_))))))))) + _code223338_ + _arg1223341_ + _arg2223346_ + _rest223348_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp225947 + __tmp228442 gx#current-expander-context - _ctx220941_)))) + _ctx223336_)))) (##structure-set! - _ctx220941_ - _code220955_ + _ctx223336_ + _code223350_ '11 gx#module-context::t '#f) - (let ((__tmp225948 - (let ((__tmp225949 - (let ((__tmp225950 + (let ((__tmp228443 + (let ((__tmp228444 + (let ((__tmp228445 (let () (declare (not safe)) - (cons _code220955_ + (cons _code223350_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L220928_ __tmp225950)))) + (cons _L223323_ __tmp228445)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#module __tmp225949)))) + (cons '%#module __tmp228444)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp225948 - _stx220889_)))) - _tl220899220924_ - _hd220900220922_))) + __tmp228443 + _stx223284_)))) + _tl223294223319_ + _hd223295223317_))) (let () (declare (not safe)) - (_g220892220906_ _g220893220909_))))) + (_g223287223301_ _g223288223304_))))) (let () (declare (not safe)) - (_g220892220906_ _g220893220909_)))))) + (_g223287223301_ _g223288223304_)))))) (declare (not safe)) - (_g220891220958_ _stx220889_)))) + (_g223286223353_ _stx223284_)))) (define gxc#xform-define-values% - (lambda (_stx220810_ . _args220811_) - (let* ((_g220813220830_ - (lambda (_g220814220827_) + (lambda (_stx223205_ . _args223206_) + (let* ((_g223208223225_ + (lambda (_g223209223222_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220814220827_)))) - (_g220812220886_ - (lambda (_g220814220833_) + _g223209223222_)))) + (_g223207223281_ + (lambda (_g223209223228_) (if (let () (declare (not safe)) - (gx#stx-pair? _g220814220833_)) - (let ((_e220819220835_ + (gx#stx-pair? _g223209223228_)) + (let ((_e223214223230_ (let () (declare (not safe)) - (gx#stx-e _g220814220833_)))) - (let ((_hd220818220838_ + (gx#stx-e _g223209223228_)))) + (let ((_hd223213223233_ (let () (declare (not safe)) - (##car _e220819220835_))) - (_tl220817220840_ + (##car _e223214223230_))) + (_tl223212223235_ (let () (declare (not safe)) - (##cdr _e220819220835_)))) + (##cdr _e223214223230_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220817220840_)) - (let ((_e220822220843_ + (gx#stx-pair? _tl223212223235_)) + (let ((_e223217223238_ (let () (declare (not safe)) - (gx#stx-e _tl220817220840_)))) - (let ((_hd220821220846_ + (gx#stx-e _tl223212223235_)))) + (let ((_hd223216223241_ (let () (declare (not safe)) - (##car _e220822220843_))) - (_tl220820220848_ + (##car _e223217223238_))) + (_tl223215223243_ (let () (declare (not safe)) - (##cdr _e220822220843_)))) + (##cdr _e223217223238_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220820220848_)) - (let ((_e220825220851_ + (gx#stx-pair? _tl223215223243_)) + (let ((_e223220223246_ (let () (declare (not safe)) - (gx#stx-e _tl220820220848_)))) - (let ((_hd220824220854_ + (gx#stx-e _tl223215223243_)))) + (let ((_hd223219223249_ (let () (declare (not safe)) - (##car _e220825220851_))) - (_tl220823220856_ + (##car _e223220223246_))) + (_tl223218223251_ (let () (declare (not safe)) - (##cdr _e220825220851_)))) + (##cdr _e223220223246_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220823220856_)) - ((lambda (_L220859_ _L220860_) - (let* ((_expr220884_ + _tl223218223251_)) + ((lambda (_L223254_ _L223255_) + (let* ((_expr223279_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args220811_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L220859_)) - (let ((_arg1220875_ (car _args220811_)) - (_rest220877_ (cdr _args220811_))) - (if (let () (declare (not safe)) (null? _rest220877_)) + (null? _args223206_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L223254_)) + (let ((_arg1223270_ (car _args223206_)) + (_rest223272_ (cdr _args223206_))) + (if (let () (declare (not safe)) (null? _rest223272_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L220859_ _arg1220875_)) - (let ((_arg2220880_ (car _rest220877_)) - (_rest220882_ (cdr _rest220877_))) + (gxc#compile-e__1 _L223254_ _arg1223270_)) + (let ((_arg2223275_ (car _rest223272_)) + (_rest223277_ (cdr _rest223272_))) (if (let () (declare (not safe)) - (null? _rest220882_)) + (null? _rest223277_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L220859_ - _arg1220875_ - _arg2220880_)) + _L223254_ + _arg1223270_ + _arg2223275_)) (apply gxc#compile-e - _L220859_ - _arg1220875_ - _arg2220880_ - _rest220882_))))))) - (__tmp225951 - (let ((__tmp225952 - (let ((__tmp225953 + _L223254_ + _arg1223270_ + _arg2223275_ + _rest223277_))))))) + (__tmp228446 + (let ((__tmp228447 + (let ((__tmp228448 (let () (declare (not safe)) - (cons _expr220884_ '())))) + (cons _expr223279_ '())))) (declare (not safe)) - (cons _L220860_ __tmp225953)))) + (cons _L223255_ __tmp228448)))) (declare (not safe)) - (cons '%#define-values __tmp225952)))) + (cons '%#define-values __tmp228447)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp225951 - _stx220810_))) - _hd220824220854_ - _hd220821220846_) + __tmp228446 + _stx223205_))) + _hd223219223249_ + _hd223216223241_) (let () (declare (not safe)) - (_g220813220830_ - _g220814220833_))))) + (_g223208223225_ + _g223209223228_))))) (let () (declare (not safe)) - (_g220813220830_ _g220814220833_))))) + (_g223208223225_ _g223209223228_))))) (let () (declare (not safe)) - (_g220813220830_ _g220814220833_))))) + (_g223208223225_ _g223209223228_))))) (let () (declare (not safe)) - (_g220813220830_ _g220814220833_)))))) + (_g223208223225_ _g223209223228_)))))) (declare (not safe)) - (_g220812220886_ _stx220810_)))) + (_g223207223281_ _stx223205_)))) (define gxc#xform-define-syntax% - (lambda (_stx220730_ . _args220731_) - (let* ((_g220733220750_ - (lambda (_g220734220747_) + (lambda (_stx223125_ . _args223126_) + (let* ((_g223128223145_ + (lambda (_g223129223142_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220734220747_)))) - (_g220732220807_ - (lambda (_g220734220753_) + _g223129223142_)))) + (_g223127223202_ + (lambda (_g223129223148_) (if (let () (declare (not safe)) - (gx#stx-pair? _g220734220753_)) - (let ((_e220739220755_ + (gx#stx-pair? _g223129223148_)) + (let ((_e223134223150_ (let () (declare (not safe)) - (gx#stx-e _g220734220753_)))) - (let ((_hd220738220758_ + (gx#stx-e _g223129223148_)))) + (let ((_hd223133223153_ (let () (declare (not safe)) - (##car _e220739220755_))) - (_tl220737220760_ + (##car _e223134223150_))) + (_tl223132223155_ (let () (declare (not safe)) - (##cdr _e220739220755_)))) + (##cdr _e223134223150_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220737220760_)) - (let ((_e220742220763_ + (gx#stx-pair? _tl223132223155_)) + (let ((_e223137223158_ (let () (declare (not safe)) - (gx#stx-e _tl220737220760_)))) - (let ((_hd220741220766_ + (gx#stx-e _tl223132223155_)))) + (let ((_hd223136223161_ (let () (declare (not safe)) - (##car _e220742220763_))) - (_tl220740220768_ + (##car _e223137223158_))) + (_tl223135223163_ (let () (declare (not safe)) - (##cdr _e220742220763_)))) + (##cdr _e223137223158_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220740220768_)) - (let ((_e220745220771_ + (gx#stx-pair? _tl223135223163_)) + (let ((_e223140223166_ (let () (declare (not safe)) - (gx#stx-e _tl220740220768_)))) - (let ((_hd220744220774_ + (gx#stx-e _tl223135223163_)))) + (let ((_hd223139223169_ (let () (declare (not safe)) - (##car _e220745220771_))) - (_tl220743220776_ + (##car _e223140223166_))) + (_tl223138223171_ (let () (declare (not safe)) - (##cdr _e220745220771_)))) + (##cdr _e223140223166_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220743220776_)) - ((lambda (_L220779_ _L220780_) - (let ((__tmp225956 + _tl223138223171_)) + ((lambda (_L223174_ _L223175_) + (let ((__tmp228451 (lambda () - (let* ((_expr220805_ + (let* ((_expr223200_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) - (null? _args220731_)) + (null? _args223126_)) (let () (declare (not safe)) - (gxc#compile-e__0 _L220779_)) - (let ((_arg1220796_ (car _args220731_)) - (_rest220798_ (cdr _args220731_))) + (gxc#compile-e__0 _L223174_)) + (let ((_arg1223191_ (car _args223126_)) + (_rest223193_ (cdr _args223126_))) (if (let () (declare (not safe)) - (null? _rest220798_)) + (null? _rest223193_)) (let () (declare (not safe)) (gxc#compile-e__1 - _L220779_ - _arg1220796_)) - (let ((_arg2220801_ (car _rest220798_)) - (_rest220803_ (cdr _rest220798_))) + _L223174_ + _arg1223191_)) + (let ((_arg2223196_ (car _rest223193_)) + (_rest223198_ (cdr _rest223193_))) (if (let () (declare (not safe)) - (null? _rest220803_)) + (null? _rest223198_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L220779_ - _arg1220796_ - _arg2220801_)) + _L223174_ + _arg1223191_ + _arg2223196_)) (apply gxc#compile-e - _L220779_ - _arg1220796_ - _arg2220801_ - _rest220803_))))))) - (__tmp225957 - (let ((__tmp225958 - (let ((__tmp225959 + _L223174_ + _arg1223191_ + _arg2223196_ + _rest223198_))))))) + (__tmp228452 + (let ((__tmp228453 + (let ((__tmp228454 (let () (declare (not safe)) - (cons _expr220805_ '())))) + (cons _expr223200_ '())))) (declare (not safe)) - (cons _L220780_ __tmp225959)))) + (cons _L223175_ __tmp228454)))) (declare (not safe)) - (cons '%#define-syntax __tmp225958)))) + (cons '%#define-syntax __tmp228453)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp225957 _stx220730_)))) - (__tmp225954 - (let ((__tmp225955 (gx#current-expander-phi))) + (gxc#xform-wrap-source __tmp228452 _stx223125_)))) + (__tmp228449 + (let ((__tmp228450 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp225955 '1)))) + (fx+ __tmp228450 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp225956 + __tmp228451 gx#current-expander-phi - __tmp225954))) - _hd220744220774_ - _hd220741220766_) + __tmp228449))) + _hd223139223169_ + _hd223136223161_) (let () (declare (not safe)) - (_g220733220750_ - _g220734220753_))))) + (_g223128223145_ + _g223129223148_))))) (let () (declare (not safe)) - (_g220733220750_ _g220734220753_))))) + (_g223128223145_ _g223129223148_))))) (let () (declare (not safe)) - (_g220733220750_ _g220734220753_))))) + (_g223128223145_ _g223129223148_))))) (let () (declare (not safe)) - (_g220733220750_ _g220734220753_)))))) + (_g223128223145_ _g223129223148_)))))) (declare (not safe)) - (_g220732220807_ _stx220730_)))) + (_g223127223202_ _stx223125_)))) (define gxc#xform-begin-annotation% - (lambda (_stx220651_ . _args220652_) - (let* ((_g220654220671_ - (lambda (_g220655220668_) + (lambda (_stx223046_ . _args223047_) + (let* ((_g223049223066_ + (lambda (_g223050223063_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220655220668_)))) - (_g220653220727_ - (lambda (_g220655220674_) + _g223050223063_)))) + (_g223048223122_ + (lambda (_g223050223069_) (if (let () (declare (not safe)) - (gx#stx-pair? _g220655220674_)) - (let ((_e220660220676_ + (gx#stx-pair? _g223050223069_)) + (let ((_e223055223071_ (let () (declare (not safe)) - (gx#stx-e _g220655220674_)))) - (let ((_hd220659220679_ + (gx#stx-e _g223050223069_)))) + (let ((_hd223054223074_ (let () (declare (not safe)) - (##car _e220660220676_))) - (_tl220658220681_ + (##car _e223055223071_))) + (_tl223053223076_ (let () (declare (not safe)) - (##cdr _e220660220676_)))) + (##cdr _e223055223071_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220658220681_)) - (let ((_e220663220684_ + (gx#stx-pair? _tl223053223076_)) + (let ((_e223058223079_ (let () (declare (not safe)) - (gx#stx-e _tl220658220681_)))) - (let ((_hd220662220687_ + (gx#stx-e _tl223053223076_)))) + (let ((_hd223057223082_ (let () (declare (not safe)) - (##car _e220663220684_))) - (_tl220661220689_ + (##car _e223058223079_))) + (_tl223056223084_ (let () (declare (not safe)) - (##cdr _e220663220684_)))) + (##cdr _e223058223079_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220661220689_)) - (let ((_e220666220692_ + (gx#stx-pair? _tl223056223084_)) + (let ((_e223061223087_ (let () (declare (not safe)) - (gx#stx-e _tl220661220689_)))) - (let ((_hd220665220695_ + (gx#stx-e _tl223056223084_)))) + (let ((_hd223060223090_ (let () (declare (not safe)) - (##car _e220666220692_))) - (_tl220664220697_ + (##car _e223061223087_))) + (_tl223059223092_ (let () (declare (not safe)) - (##cdr _e220666220692_)))) + (##cdr _e223061223087_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220664220697_)) - ((lambda (_L220700_ _L220701_) - (let* ((_expr220725_ + _tl223059223092_)) + ((lambda (_L223095_ _L223096_) + (let* ((_expr223120_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args220652_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L220700_)) - (let ((_arg1220716_ (car _args220652_)) - (_rest220718_ (cdr _args220652_))) - (if (let () (declare (not safe)) (null? _rest220718_)) + (null? _args223047_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L223095_)) + (let ((_arg1223111_ (car _args223047_)) + (_rest223113_ (cdr _args223047_))) + (if (let () (declare (not safe)) (null? _rest223113_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L220700_ _arg1220716_)) - (let ((_arg2220721_ (car _rest220718_)) - (_rest220723_ (cdr _rest220718_))) + (gxc#compile-e__1 _L223095_ _arg1223111_)) + (let ((_arg2223116_ (car _rest223113_)) + (_rest223118_ (cdr _rest223113_))) (if (let () (declare (not safe)) - (null? _rest220723_)) + (null? _rest223118_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L220700_ - _arg1220716_ - _arg2220721_)) + _L223095_ + _arg1223111_ + _arg2223116_)) (apply gxc#compile-e - _L220700_ - _arg1220716_ - _arg2220721_ - _rest220723_))))))) - (__tmp225960 - (let ((__tmp225961 - (let ((__tmp225962 + _L223095_ + _arg1223111_ + _arg2223116_ + _rest223118_))))))) + (__tmp228455 + (let ((__tmp228456 + (let ((__tmp228457 (let () (declare (not safe)) - (cons _expr220725_ '())))) + (cons _expr223120_ '())))) (declare (not safe)) - (cons _L220701_ __tmp225962)))) + (cons _L223096_ __tmp228457)))) (declare (not safe)) - (cons '%#begin-annotation __tmp225961)))) + (cons '%#begin-annotation __tmp228456)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp225960 - _stx220651_))) - _hd220665220695_ - _hd220662220687_) + __tmp228455 + _stx223046_))) + _hd223060223090_ + _hd223057223082_) (let () (declare (not safe)) - (_g220654220671_ - _g220655220674_))))) + (_g223049223066_ + _g223050223069_))))) (let () (declare (not safe)) - (_g220654220671_ _g220655220674_))))) + (_g223049223066_ _g223050223069_))))) (let () (declare (not safe)) - (_g220654220671_ _g220655220674_))))) + (_g223049223066_ _g223050223069_))))) (let () (declare (not safe)) - (_g220654220671_ _g220655220674_)))))) + (_g223049223066_ _g223050223069_)))))) (declare (not safe)) - (_g220653220727_ _stx220651_)))) + (_g223048223122_ _stx223046_)))) (define gxc#xform-lambda% - (lambda (_stx220594_ . _args220595_) - (let* ((_g220597220611_ - (lambda (_g220598220608_) + (lambda (_stx222989_ . _args222990_) + (let* ((_g222992223006_ + (lambda (_g222993223003_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220598220608_)))) - (_g220596220648_ - (lambda (_g220598220614_) + _g222993223003_)))) + (_g222991223043_ + (lambda (_g222993223009_) (if (let () (declare (not safe)) - (gx#stx-pair? _g220598220614_)) - (let ((_e220603220616_ + (gx#stx-pair? _g222993223009_)) + (let ((_e222998223011_ (let () (declare (not safe)) - (gx#stx-e _g220598220614_)))) - (let ((_hd220602220619_ + (gx#stx-e _g222993223009_)))) + (let ((_hd222997223014_ (let () (declare (not safe)) - (##car _e220603220616_))) - (_tl220601220621_ + (##car _e222998223011_))) + (_tl222996223016_ (let () (declare (not safe)) - (##cdr _e220603220616_)))) + (##cdr _e222998223011_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220601220621_)) - (let ((_e220606220624_ + (gx#stx-pair? _tl222996223016_)) + (let ((_e223001223019_ (let () (declare (not safe)) - (gx#stx-e _tl220601220621_)))) - (let ((_hd220605220627_ + (gx#stx-e _tl222996223016_)))) + (let ((_hd223000223022_ (let () (declare (not safe)) - (##car _e220606220624_))) - (_tl220604220629_ + (##car _e223001223019_))) + (_tl222999223024_ (let () (declare (not safe)) - (##cdr _e220606220624_)))) - ((lambda (_L220632_ _L220633_) - (let* ((_body220646_ + (##cdr _e223001223019_)))) + ((lambda (_L223027_ _L223028_) + (let* ((_body223041_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args220595_)) - _L220632_)) - (__tmp225963 - (let ((__tmp225964 + _args222990_)) + _L223027_)) + (__tmp228458 + (let ((__tmp228459 (let () (declare (not safe)) - (cons _L220633_ - _body220646_)))) + (cons _L223028_ + _body223041_)))) (declare (not safe)) - (cons '%#lambda __tmp225964)))) + (cons '%#lambda __tmp228459)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp225963 - _stx220594_))) - _tl220604220629_ - _hd220605220627_))) + __tmp228458 + _stx222989_))) + _tl222999223024_ + _hd223000223022_))) (let () (declare (not safe)) - (_g220597220611_ _g220598220614_))))) + (_g222992223006_ _g222993223009_))))) (let () (declare (not safe)) - (_g220597220611_ _g220598220614_)))))) + (_g222992223006_ _g222993223009_)))))) (declare (not safe)) - (_g220596220648_ _stx220594_)))) + (_g222991223043_ _stx222989_)))) (define gxc#xform-case-lambda% - (lambda (_stx220507_ . _args220508_) - (letrec ((_clause-e220510_ - (lambda (_clause220551_) - (let* ((_g220553220564_ - (lambda (_g220554220561_) + (lambda (_stx222902_ . _args222903_) + (letrec ((_clause-e222905_ + (lambda (_clause222946_) + (let* ((_g222948222959_ + (lambda (_g222949222956_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220554220561_)))) - (_g220552220591_ - (lambda (_g220554220567_) + _g222949222956_)))) + (_g222947222986_ + (lambda (_g222949222962_) (if (let () (declare (not safe)) - (gx#stx-pair? _g220554220567_)) - (let ((_e220559220569_ + (gx#stx-pair? _g222949222962_)) + (let ((_e222954222964_ (let () (declare (not safe)) - (gx#stx-e _g220554220567_)))) - (let ((_hd220558220572_ + (gx#stx-e _g222949222962_)))) + (let ((_hd222953222967_ (let () (declare (not safe)) - (##car _e220559220569_))) - (_tl220557220574_ + (##car _e222954222964_))) + (_tl222952222969_ (let () (declare (not safe)) - (##cdr _e220559220569_)))) - ((lambda (_L220577_ _L220578_) - (let ((_body220589_ + (##cdr _e222954222964_)))) + ((lambda (_L222972_ _L222973_) + (let ((_body222984_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args220508_)) - _L220577_))) + _args222903_)) + _L222972_))) (declare (not safe)) - (cons _L220578_ _body220589_))) - _tl220557220574_ - _hd220558220572_))) + (cons _L222973_ _body222984_))) + _tl222952222969_ + _hd222953222967_))) (let () (declare (not safe)) - (_g220553220564_ _g220554220567_)))))) + (_g222948222959_ _g222949222962_)))))) (declare (not safe)) - (_g220552220591_ _clause220551_))))) - (let* ((_g220512220522_ - (lambda (_g220513220519_) + (_g222947222986_ _clause222946_))))) + (let* ((_g222907222917_ + (lambda (_g222908222914_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220513220519_)))) - (_g220511220548_ - (lambda (_g220513220525_) + _g222908222914_)))) + (_g222906222943_ + (lambda (_g222908222920_) (if (let () (declare (not safe)) - (gx#stx-pair? _g220513220525_)) - (let ((_e220517220527_ + (gx#stx-pair? _g222908222920_)) + (let ((_e222912222922_ (let () (declare (not safe)) - (gx#stx-e _g220513220525_)))) - (let ((_hd220516220530_ + (gx#stx-e _g222908222920_)))) + (let ((_hd222911222925_ (let () (declare (not safe)) - (##car _e220517220527_))) - (_tl220515220532_ + (##car _e222912222922_))) + (_tl222910222927_ (let () (declare (not safe)) - (##cdr _e220517220527_)))) - ((lambda (_L220535_) - (let* ((_clauses220546_ - (map _clause-e220510_ _L220535_)) - (__tmp225965 + (##cdr _e222912222922_)))) + ((lambda (_L222930_) + (let* ((_clauses222941_ + (map _clause-e222905_ _L222930_)) + (__tmp228460 (let () (declare (not safe)) (cons '%#case-lambda - _clauses220546_)))) + _clauses222941_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp225965 - _stx220507_))) - _tl220515220532_))) + __tmp228460 + _stx222902_))) + _tl222910222927_))) (let () (declare (not safe)) - (_g220512220522_ _g220513220525_)))))) + (_g222907222917_ _g222908222920_)))))) (declare (not safe)) - (_g220511220548_ _stx220507_))))) + (_g222906222943_ _stx222902_))))) (define gxc#xform-let-values% - (lambda (_stx220301_ . _args220302_) - (let* ((_g220304220337_ - (lambda (_g220305220334_) + (lambda (_stx222696_ . _args222697_) + (let* ((_g222699222732_ + (lambda (_g222700222729_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220305220334_)))) - (_g220303220504_ - (lambda (_g220305220340_) + _g222700222729_)))) + (_g222698222899_ + (lambda (_g222700222735_) (if (let () (declare (not safe)) - (gx#stx-pair? _g220305220340_)) - (let ((_e220312220342_ + (gx#stx-pair? _g222700222735_)) + (let ((_e222707222737_ (let () (declare (not safe)) - (gx#stx-e _g220305220340_)))) - (let ((_hd220311220345_ + (gx#stx-e _g222700222735_)))) + (let ((_hd222706222740_ (let () (declare (not safe)) - (##car _e220312220342_))) - (_tl220310220347_ + (##car _e222707222737_))) + (_tl222705222742_ (let () (declare (not safe)) - (##cdr _e220312220342_)))) + (##cdr _e222707222737_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220310220347_)) - (let ((_e220315220350_ + (gx#stx-pair? _tl222705222742_)) + (let ((_e222710222745_ (let () (declare (not safe)) - (gx#stx-e _tl220310220347_)))) - (let ((_hd220314220353_ + (gx#stx-e _tl222705222742_)))) + (let ((_hd222709222748_ (let () (declare (not safe)) - (##car _e220315220350_))) - (_tl220313220355_ + (##car _e222710222745_))) + (_tl222708222750_ (let () (declare (not safe)) - (##cdr _e220315220350_)))) + (##cdr _e222710222745_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd220314220353_)) - (let ((_g225966_ + (gx#stx-pair/null? _hd222709222748_)) + (let ((_g228461_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd220314220353_ + _hd222709222748_ '0)))) (begin - (let ((_g225967_ + (let ((_g228462_ (let () (declare (not safe)) - (if (##values? _g225966_) + (if (##values? _g228461_) (##vector-length - _g225966_) + _g228461_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g225967_ 2))) + (##fx= _g228462_ 2))) (error "Context expects 2 values" - _g225967_))) - (let ((_target220316220358_ + _g228462_))) + (let ((_target222711222753_ (let () (declare (not safe)) - (##vector-ref _g225966_ 0))) - (_tl220318220360_ + (##vector-ref _g228461_ 0))) + (_tl222713222755_ (let () (declare (not safe)) (##vector-ref - _g225966_ + _g228461_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220318220360_)) - (letrec ((_loop220319220363_ - (lambda (_hd220317220366_ + _tl222713222755_)) + (letrec ((_loop222714222758_ + (lambda (_hd222712222761_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr220323220368_ - _hd220324220370_) + _expr222718222763_ + _hd222719222765_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd220317220366_)) - (let ((_e220320220373_ + (gx#stx-pair? _hd222712222761_)) + (let ((_e222715222768_ (let () (declare (not safe)) - (gx#stx-e _hd220317220366_)))) - (let ((_lp-hd220321220376_ + (gx#stx-e _hd222712222761_)))) + (let ((_lp-hd222716222771_ (let () (declare (not safe)) - (##car _e220320220373_))) - (_lp-tl220322220378_ + (##car _e222715222768_))) + (_lp-tl222717222773_ (let () (declare (not safe)) - (##cdr _e220320220373_)))) + (##cdr _e222715222768_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd220321220376_)) - (let ((_e220329220381_ + (gx#stx-pair? _lp-hd222716222771_)) + (let ((_e222724222776_ (let () (declare (not safe)) - (gx#stx-e _lp-hd220321220376_)))) - (let ((_hd220328220384_ + (gx#stx-e _lp-hd222716222771_)))) + (let ((_hd222723222779_ (let () (declare (not safe)) - (##car _e220329220381_))) - (_tl220327220386_ + (##car _e222724222776_))) + (_tl222722222781_ (let () (declare (not safe)) - (##cdr _e220329220381_)))) + (##cdr _e222724222776_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220327220386_)) - (let ((_e220332220389_ + (gx#stx-pair? _tl222722222781_)) + (let ((_e222727222784_ (let () (declare (not safe)) - (gx#stx-e _tl220327220386_)))) - (let ((_hd220331220392_ + (gx#stx-e _tl222722222781_)))) + (let ((_hd222726222787_ (let () (declare (not safe)) - (##car _e220332220389_))) - (_tl220330220394_ + (##car _e222727222784_))) + (_tl222725222789_ (let () (declare (not safe)) - (##cdr _e220332220389_)))) + (##cdr _e222727222784_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220330220394_)) - (let ((__tmp225980 + _tl222725222789_)) + (let ((__tmp228475 (let () (declare (not safe)) - (cons _hd220331220392_ - _expr220323220368_))) - (__tmp225979 + (cons _hd222726222787_ + _expr222718222763_))) + (__tmp228474 (let () (declare (not safe)) - (cons _hd220328220384_ - _hd220324220370_)))) + (cons _hd222723222779_ + _hd222719222765_)))) (declare (not safe)) - (_loop220319220363_ - _lp-tl220322220378_ - __tmp225980 - __tmp225979)) + (_loop222714222758_ + _lp-tl222717222773_ + __tmp228475 + __tmp228474)) (let () (declare (not safe)) - (_g220304220337_ - _g220305220340_))))) + (_g222699222732_ + _g222700222735_))))) (let () (declare (not safe)) - (_g220304220337_ _g220305220340_))))) + (_g222699222732_ _g222700222735_))))) (let () (declare (not safe)) - (_g220304220337_ _g220305220340_))))) - (let ((_expr220325220397_ (reverse _expr220323220368_)) - (_hd220326220399_ (reverse _hd220324220370_))) - ((lambda (_L220402_ _L220403_ _L220404_ _L220405_) - (let* ((_g220424220440_ - (lambda (_g220425220437_) + (_g222699222732_ _g222700222735_))))) + (let ((_expr222720222792_ (reverse _expr222718222763_)) + (_hd222721222794_ (reverse _hd222719222765_))) + ((lambda (_L222797_ _L222798_ _L222799_ _L222800_) + (let* ((_g222819222835_ + (lambda (_g222820222832_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220425220437_)))) - (_g220423220494_ - (lambda (_g220425220443_) + _g222820222832_)))) + (_g222818222889_ + (lambda (_g222820222838_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g220425220443_)) - (let ((_g225968_ + _g222820222838_)) + (let ((_g228463_ (let () (declare (not safe)) (gx#syntax-split-splice - _g220425220443_ + _g222820222838_ '0)))) (begin - (let ((_g225969_ + (let ((_g228464_ (let () (declare (not safe)) (if (##values? - _g225968_) + _g228463_) (##vector-length - _g225968_) + _g228463_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g225969_ + (##fx= _g228464_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g225969_))) - (let ((_target220427220445_ + _g228464_))) + (let ((_target222822222840_ (let () (declare (not safe)) (##vector-ref - _g225968_ + _g228463_ 0))) - (_tl220429220447_ + (_tl222824222842_ (let () (declare (not safe)) (##vector-ref - _g225968_ + _g228463_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220429220447_)) - (letrec ((_loop220430220450_ - (lambda (_hd220428220453_ + _tl222824222842_)) + (letrec ((_loop222825222845_ + (lambda (_hd222823222848_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr220434220455_) + _expr222829222850_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd220428220453_)) - (let ((_e220431220458_ + (gx#stx-pair? _hd222823222848_)) + (let ((_e222826222853_ (let () (declare (not safe)) - (gx#syntax-e _hd220428220453_)))) - (let ((_lp-hd220432220461_ + (gx#syntax-e _hd222823222848_)))) + (let ((_lp-hd222827222856_ (let () (declare (not safe)) - (##car _e220431220458_))) - (_lp-tl220433220463_ + (##car _e222826222853_))) + (_lp-tl222828222858_ (let () (declare (not safe)) - (##cdr _e220431220458_)))) - (let ((__tmp225976 + (##cdr _e222826222853_)))) + (let ((__tmp228471 (let () (declare (not safe)) - (cons _lp-hd220432220461_ - _expr220434220455_)))) + (cons _lp-hd222827222856_ + _expr222829222850_)))) (declare (not safe)) - (_loop220430220450_ - _lp-tl220433220463_ - __tmp225976)))) - (let ((_expr220435220466_ - (reverse _expr220434220455_))) - ((lambda (_L220469_) + (_loop222825222845_ + _lp-tl222828222858_ + __tmp228471)))) + (let ((_expr222830222861_ + (reverse _expr222829222850_))) + ((lambda (_L222864_) (let () - (let* ((_body220482_ + (let* ((_body222877_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args220302_)) - _L220402_)) - (__tmp225970 - (let ((__tmp225971 - (let ((__tmp225972 + _args222697_)) + _L222797_)) + (__tmp228465 + (let ((__tmp228466 + (let ((__tmp228467 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L220469_ - _L220404_)) - (let ((__tmp225973 + _L222864_ + _L222799_)) + (let ((__tmp228468 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g220483220487_ - _g220484220489_ - _g220485220491_) - (let ((__tmp225974 - (let ((__tmp225975 + (lambda (_g222878222882_ + _g222879222884_ + _g222880222886_) + (let ((__tmp228469 + (let ((__tmp228470 (let () (declare (not safe)) - (cons _g220483220487_ '())))) + (cons _g222878222882_ '())))) (declare (not safe)) - (cons _g220484220489_ __tmp225975)))) + (cons _g222879222884_ __tmp228470)))) (declare (not safe)) - (cons __tmp225974 _g220485220491_))))) + (cons __tmp228469 _g222880222886_))))) (declare (not safe)) - (foldr2 __tmp225973 '() _L220469_ _L220404_))))) + (foldr2 __tmp228468 '() _L222864_ _L222799_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp225972 - _body220482_)))) + (cons __tmp228467 + _body222877_)))) (declare (not safe)) - (cons _L220405_ __tmp225971)))) + (cons _L222800_ __tmp228466)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp225970 - _stx220301_)))) - _expr220435220466_)))))) + __tmp228465 + _stx222696_)))) + _expr222830222861_)))))) (let () (declare (not safe)) - (_loop220430220450_ _target220427220445_ '()))) + (_loop222825222845_ _target222822222840_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g220424220440_ - _g220425220443_)))))) + (_g222819222835_ + _g222820222838_)))))) (let () (declare (not safe)) - (_g220424220440_ - _g220425220443_))))) - (__tmp225977 + (_g222819222835_ + _g222820222838_))))) + (__tmp228472 (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args220302_)) - (let ((__tmp225978 - (lambda (_g220496220499_ - _g220497220501_) + _args222697_)) + (let ((__tmp228473 + (lambda (_g222891222894_ + _g222892222896_) (let () (declare (not safe)) - (cons _g220496220499_ - _g220497220501_))))) + (cons _g222891222894_ + _g222892222896_))))) (declare (not safe)) - (foldr1 __tmp225978 + (foldr1 __tmp228473 '() - _L220403_))))) + _L222798_))))) (declare (not safe)) - (_g220423220494_ __tmp225977))) - _tl220313220355_ - _expr220325220397_ - _hd220326220399_ - _hd220311220345_)))))) + (_g222818222889_ __tmp228472))) + _tl222708222750_ + _expr222720222792_ + _hd222721222794_ + _hd222706222740_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop220319220363_ - _target220316220358_ + (_loop222714222758_ + _target222711222753_ '() '()))) (let () (declare (not safe)) - (_g220304220337_ - _g220305220340_)))))) + (_g222699222732_ + _g222700222735_)))))) (let () (declare (not safe)) - (_g220304220337_ _g220305220340_))))) + (_g222699222732_ _g222700222735_))))) (let () (declare (not safe)) - (_g220304220337_ _g220305220340_))))) + (_g222699222732_ _g222700222735_))))) (let () (declare (not safe)) - (_g220304220337_ _g220305220340_)))))) + (_g222699222732_ _g222700222735_)))))) (declare (not safe)) - (_g220303220504_ _stx220301_)))) + (_g222698222899_ _stx222696_)))) (define gxc#xform-operands - (lambda (_stx220257_ . _args220258_) - (let* ((_g220260220271_ - (lambda (_g220261220268_) + (lambda (_stx222652_ . _args222653_) + (let* ((_g222655222666_ + (lambda (_g222656222663_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220261220268_)))) - (_g220259220298_ - (lambda (_g220261220274_) + _g222656222663_)))) + (_g222654222693_ + (lambda (_g222656222669_) (if (let () (declare (not safe)) - (gx#stx-pair? _g220261220274_)) - (let ((_e220266220276_ + (gx#stx-pair? _g222656222669_)) + (let ((_e222661222671_ (let () (declare (not safe)) - (gx#stx-e _g220261220274_)))) - (let ((_hd220265220279_ + (gx#stx-e _g222656222669_)))) + (let ((_hd222660222674_ (let () (declare (not safe)) - (##car _e220266220276_))) - (_tl220264220281_ + (##car _e222661222671_))) + (_tl222659222676_ (let () (declare (not safe)) - (##cdr _e220266220276_)))) - ((lambda (_L220284_ _L220285_) - (let* ((_rands220296_ + (##cdr _e222661222671_)))) + ((lambda (_L222679_ _L222680_) + (let* ((_rands222691_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args220258_)) - _L220284_)) - (__tmp225981 + _args222653_)) + _L222679_)) + (__tmp228476 (let () (declare (not safe)) - (cons _L220285_ _rands220296_)))) + (cons _L222680_ _rands222691_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp225981 - _stx220257_))) - _tl220264220281_ - _hd220265220279_))) + __tmp228476 + _stx222652_))) + _tl222659222676_ + _hd222660222674_))) (let () (declare (not safe)) - (_g220260220271_ _g220261220274_)))))) + (_g222655222666_ _g222656222669_)))))) (declare (not safe)) - (_g220259220298_ _stx220257_)))) + (_g222654222693_ _stx222652_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_stx220178_ . _args220179_) - (let* ((_g220181220198_ - (lambda (_g220182220195_) + (lambda (_stx222573_ . _args222574_) + (let* ((_g222576222593_ + (lambda (_g222577222590_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220182220195_)))) - (_g220180220254_ - (lambda (_g220182220201_) + _g222577222590_)))) + (_g222575222649_ + (lambda (_g222577222596_) (if (let () (declare (not safe)) - (gx#stx-pair? _g220182220201_)) - (let ((_e220187220203_ + (gx#stx-pair? _g222577222596_)) + (let ((_e222582222598_ (let () (declare (not safe)) - (gx#stx-e _g220182220201_)))) - (let ((_hd220186220206_ + (gx#stx-e _g222577222596_)))) + (let ((_hd222581222601_ (let () (declare (not safe)) - (##car _e220187220203_))) - (_tl220185220208_ + (##car _e222582222598_))) + (_tl222580222603_ (let () (declare (not safe)) - (##cdr _e220187220203_)))) + (##cdr _e222582222598_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220185220208_)) - (let ((_e220190220211_ + (gx#stx-pair? _tl222580222603_)) + (let ((_e222585222606_ (let () (declare (not safe)) - (gx#stx-e _tl220185220208_)))) - (let ((_hd220189220214_ + (gx#stx-e _tl222580222603_)))) + (let ((_hd222584222609_ (let () (declare (not safe)) - (##car _e220190220211_))) - (_tl220188220216_ + (##car _e222585222606_))) + (_tl222583222611_ (let () (declare (not safe)) - (##cdr _e220190220211_)))) + (##cdr _e222585222606_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220188220216_)) - (let ((_e220193220219_ + (gx#stx-pair? _tl222583222611_)) + (let ((_e222588222614_ (let () (declare (not safe)) - (gx#stx-e _tl220188220216_)))) - (let ((_hd220192220222_ + (gx#stx-e _tl222583222611_)))) + (let ((_hd222587222617_ (let () (declare (not safe)) - (##car _e220193220219_))) - (_tl220191220224_ + (##car _e222588222614_))) + (_tl222586222619_ (let () (declare (not safe)) - (##cdr _e220193220219_)))) + (##cdr _e222588222614_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220191220224_)) - ((lambda (_L220227_ _L220228_) - (let* ((_expr220252_ + _tl222586222619_)) + ((lambda (_L222622_ _L222623_) + (let* ((_expr222647_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args220179_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L220227_)) - (let ((_arg1220243_ (car _args220179_)) - (_rest220245_ (cdr _args220179_))) - (if (let () (declare (not safe)) (null? _rest220245_)) + (null? _args222574_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L222622_)) + (let ((_arg1222638_ (car _args222574_)) + (_rest222640_ (cdr _args222574_))) + (if (let () (declare (not safe)) (null? _rest222640_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L220227_ _arg1220243_)) - (let ((_arg2220248_ (car _rest220245_)) - (_rest220250_ (cdr _rest220245_))) + (gxc#compile-e__1 _L222622_ _arg1222638_)) + (let ((_arg2222643_ (car _rest222640_)) + (_rest222645_ (cdr _rest222640_))) (if (let () (declare (not safe)) - (null? _rest220250_)) + (null? _rest222645_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L220227_ - _arg1220243_ - _arg2220248_)) + _L222622_ + _arg1222638_ + _arg2222643_)) (apply gxc#compile-e - _L220227_ - _arg1220243_ - _arg2220248_ - _rest220250_))))))) - (__tmp225982 - (let ((__tmp225983 - (let ((__tmp225984 + _L222622_ + _arg1222638_ + _arg2222643_ + _rest222645_))))))) + (__tmp228477 + (let ((__tmp228478 + (let ((__tmp228479 (let () (declare (not safe)) - (cons _expr220252_ '())))) + (cons _expr222647_ '())))) (declare (not safe)) - (cons _L220228_ __tmp225984)))) + (cons _L222623_ __tmp228479)))) (declare (not safe)) - (cons '%#set! __tmp225983)))) + (cons '%#set! __tmp228478)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp225982 - _stx220178_))) - _hd220192220222_ - _hd220189220214_) + __tmp228477 + _stx222573_))) + _hd222587222617_ + _hd222584222609_) (let () (declare (not safe)) - (_g220181220198_ - _g220182220201_))))) + (_g222576222593_ + _g222577222596_))))) (let () (declare (not safe)) - (_g220181220198_ _g220182220201_))))) + (_g222576222593_ _g222577222596_))))) (let () (declare (not safe)) - (_g220181220198_ _g220182220201_))))) + (_g222576222593_ _g222577222596_))))) (let () (declare (not safe)) - (_g220181220198_ _g220182220201_)))))) + (_g222576222593_ _g222577222596_)))))) (declare (not safe)) - (_g220180220254_ _stx220178_)))) + (_g222575222649_ _stx222573_)))) (define gxc#collect-mutators-setq% - (lambda (_stx220109_) - (let* ((_g220111220128_ - (lambda (_g220112220125_) + (lambda (_stx222504_) + (let* ((_g222506222523_ + (lambda (_g222507222520_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g220112220125_)))) - (_g220110220175_ - (lambda (_g220112220131_) + _g222507222520_)))) + (_g222505222570_ + (lambda (_g222507222526_) (if (let () (declare (not safe)) - (gx#stx-pair? _g220112220131_)) - (let ((_e220117220133_ + (gx#stx-pair? _g222507222526_)) + (let ((_e222512222528_ (let () (declare (not safe)) - (gx#stx-e _g220112220131_)))) - (let ((_hd220116220136_ + (gx#stx-e _g222507222526_)))) + (let ((_hd222511222531_ (let () (declare (not safe)) - (##car _e220117220133_))) - (_tl220115220138_ + (##car _e222512222528_))) + (_tl222510222533_ (let () (declare (not safe)) - (##cdr _e220117220133_)))) + (##cdr _e222512222528_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220115220138_)) - (let ((_e220120220141_ + (gx#stx-pair? _tl222510222533_)) + (let ((_e222515222536_ (let () (declare (not safe)) - (gx#stx-e _tl220115220138_)))) - (let ((_hd220119220144_ + (gx#stx-e _tl222510222533_)))) + (let ((_hd222514222539_ (let () (declare (not safe)) - (##car _e220120220141_))) - (_tl220118220146_ + (##car _e222515222536_))) + (_tl222513222541_ (let () (declare (not safe)) - (##cdr _e220120220141_)))) + (##cdr _e222515222536_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl220118220146_)) - (let ((_e220123220149_ + (gx#stx-pair? _tl222513222541_)) + (let ((_e222518222544_ (let () (declare (not safe)) - (gx#stx-e _tl220118220146_)))) - (let ((_hd220122220152_ + (gx#stx-e _tl222513222541_)))) + (let ((_hd222517222547_ (let () (declare (not safe)) - (##car _e220123220149_))) - (_tl220121220154_ + (##car _e222518222544_))) + (_tl222516222549_ (let () (declare (not safe)) - (##cdr _e220123220149_)))) + (##cdr _e222518222544_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl220121220154_)) - ((lambda (_L220157_ _L220158_) - (let ((_sym220173_ + _tl222516222549_)) + ((lambda (_L222552_ _L222553_) + (let ((_sym222568_ (let () (declare (not safe)) (gxc#identifier-symbol - _L220158_)))) + _L222553_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _sym220173_)) - (let ((__tmp225985 + _sym222568_)) + (let ((__tmp228480 (gxc#current-compile-mutators))) (declare (not safe)) (table-set! - __tmp225985 - _sym220173_ + __tmp228480 + _sym222568_ '#t)) (let () (declare (not safe)) (gxc#compile-e__0 - _L220157_)))) - _hd220122220152_ - _hd220119220144_) + _L222552_)))) + _hd222517222547_ + _hd222514222539_) (let () (declare (not safe)) - (_g220111220128_ - _g220112220131_))))) + (_g222506222523_ + _g222507222526_))))) (let () (declare (not safe)) - (_g220111220128_ _g220112220131_))))) + (_g222506222523_ _g222507222526_))))) (let () (declare (not safe)) - (_g220111220128_ _g220112220131_))))) + (_g222506222523_ _g222507222526_))))) (let () (declare (not safe)) - (_g220111220128_ _g220112220131_)))))) + (_g222506222523_ _g222507222526_)))))) (declare (not safe)) - (_g220110220175_ _stx220109_)))) + (_g222505222570_ _stx222504_)))) (define gxc#collect-methods-call% - (lambda (_stx219663_) - (let* ((___stx225675225676_ _stx219663_) - (_g219667219769_ + (lambda (_stx222058_) + (let* ((___stx228170228171_ _stx222058_) + (_g222062222164_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx225675225676_))))) - (let ((___kont225677225678_ - (lambda (_L220059_ _L220060_ _L220061_ _L220062_ _L220063_) - (let ((__tmp225986 + ___stx228170228171_))))) + (let ((___kont228172228173_ + (lambda (_L222454_ _L222455_ _L222456_ _L222457_ _L222458_) + (let ((__tmp228481 (let () (declare (not safe)) - (gxc#identifier-symbol _L220060_)))) + (gxc#identifier-symbol _L222455_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp225986)))) - (___kont225679225680_ - (lambda (_L219885_ _L219886_ _L219887_ _L219888_) - (let ((__tmp225987 + (gxc#optimizer-top-level-method! __tmp228481)))) + (___kont228174228175_ + (lambda (_L222280_ _L222281_ _L222282_ _L222283_) + (let ((__tmp228482 (let () (declare (not safe)) - (gxc#identifier-symbol _L219885_)))) + (gxc#identifier-symbol _L222280_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp225987)))) - (___kont225681225682_ (lambda () '#!void))) - (let ((___match225810225811_ - (lambda (_e219676219931_ - _hd219675219934_ - _tl219674219936_ - _e219679219939_ - _hd219678219942_ - _tl219677219944_ - _e219682219947_ - _hd219681219950_ - _tl219680219952_ - _e219685219955_ - _hd219684219958_ - _tl219683219960_ - _e219688219963_ - _hd219687219966_ - _tl219686219968_ - _e219691219971_ - _hd219690219974_ - _tl219689219976_ - _e219694219979_ - _hd219693219982_ - _tl219692219984_ - _e219697219987_ - _hd219696219990_ - _tl219695219992_ - _e219700219995_ - _hd219699219998_ - _tl219698220000_ - _e219703220003_ - _hd219702220006_ - _tl219701220008_ - _e219706220011_ - _hd219705220014_ - _tl219704220016_ - _e219709220019_ - _hd219708220022_ - _tl219707220024_ - _e219712220027_ - _hd219711220030_ - _tl219710220032_ - _e219715220035_ - _hd219714220038_ - _tl219713220040_ - _e219718220043_ - _hd219717220046_ - _tl219716220048_ - _e219721220051_ - _hd219720220054_ - _tl219719220056_) - (let ((_L220059_ _hd219720220054_) - (_L220060_ _hd219711220030_) - (_L220061_ _hd219702220006_) - (_L220062_ _hd219693219982_) - (_L220063_ _hd219684219958_)) + (gxc#optimizer-top-level-method! __tmp228482)))) + (___kont228176228177_ (lambda () '#!void))) + (let ((___match228305228306_ + (lambda (_e222071222326_ + _hd222070222329_ + _tl222069222331_ + _e222074222334_ + _hd222073222337_ + _tl222072222339_ + _e222077222342_ + _hd222076222345_ + _tl222075222347_ + _e222080222350_ + _hd222079222353_ + _tl222078222355_ + _e222083222358_ + _hd222082222361_ + _tl222081222363_ + _e222086222366_ + _hd222085222369_ + _tl222084222371_ + _e222089222374_ + _hd222088222377_ + _tl222087222379_ + _e222092222382_ + _hd222091222385_ + _tl222090222387_ + _e222095222390_ + _hd222094222393_ + _tl222093222395_ + _e222098222398_ + _hd222097222401_ + _tl222096222403_ + _e222101222406_ + _hd222100222409_ + _tl222099222411_ + _e222104222414_ + _hd222103222417_ + _tl222102222419_ + _e222107222422_ + _hd222106222425_ + _tl222105222427_ + _e222110222430_ + _hd222109222433_ + _tl222108222435_ + _e222113222438_ + _hd222112222441_ + _tl222111222443_ + _e222116222446_ + _hd222115222449_ + _tl222114222451_) + (let ((_L222454_ _hd222115222449_) + (_L222455_ _hd222106222425_) + (_L222456_ _hd222097222401_) + (_L222457_ _hd222088222377_) + (_L222458_ _hd222079222353_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L220063_ + _L222458_ 'bind-method!)) - (___kont225677225678_ - _L220059_ - _L220060_ - _L220061_ - _L220062_ - _L220063_) - (___kont225681225682_)))))) + (___kont228172228173_ + _L222454_ + _L222455_ + _L222456_ + _L222457_ + _L222458_) + (___kont228176228177_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx225675225676_)) - (let ((_e219676219931_ + (gx#stx-pair? ___stx228170228171_)) + (let ((_e222071222326_ (let () (declare (not safe)) - (gx#stx-e ___stx225675225676_)))) - (let ((_tl219674219936_ + (gx#stx-e ___stx228170228171_)))) + (let ((_tl222069222331_ (let () (declare (not safe)) - (##cdr _e219676219931_))) - (_hd219675219934_ + (##cdr _e222071222326_))) + (_hd222070222329_ (let () (declare (not safe)) - (##car _e219676219931_)))) + (##car _e222071222326_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219674219936_)) - (let ((_e219679219939_ + (gx#stx-pair? _tl222069222331_)) + (let ((_e222074222334_ (let () (declare (not safe)) - (gx#stx-e _tl219674219936_)))) - (let ((_tl219677219944_ + (gx#stx-e _tl222069222331_)))) + (let ((_tl222072222339_ (let () (declare (not safe)) - (##cdr _e219679219939_))) - (_hd219678219942_ + (##cdr _e222074222334_))) + (_hd222073222337_ (let () (declare (not safe)) - (##car _e219679219939_)))) + (##car _e222074222334_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219678219942_)) - (let ((_e219682219947_ + (gx#stx-pair? _hd222073222337_)) + (let ((_e222077222342_ (let () (declare (not safe)) - (gx#stx-e _hd219678219942_)))) - (let ((_tl219680219952_ + (gx#stx-e _hd222073222337_)))) + (let ((_tl222075222347_ (let () (declare (not safe)) - (##cdr _e219682219947_))) - (_hd219681219950_ + (##cdr _e222077222342_))) + (_hd222076222345_ (let () (declare (not safe)) - (##car _e219682219947_)))) + (##car _e222077222342_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd219681219950_)) + (gx#identifier? _hd222076222345_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd219681219950_)) + _hd222076222345_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl219680219952_)) - (let ((_e219685219955_ + _tl222075222347_)) + (let ((_e222080222350_ (let () (declare (not safe)) (gx#stx-e - _tl219680219952_)))) - (let ((_tl219683219960_ + _tl222075222347_)))) + (let ((_tl222078222355_ (let () (declare (not safe)) - (##cdr _e219685219955_))) - (_hd219684219958_ + (##cdr _e222080222350_))) + (_hd222079222353_ (let () (declare (not safe)) - (##car _e219685219955_)))) + (##car _e222080222350_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219683219960_)) + _tl222078222355_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl219677219944_)) - (let ((_e219688219963_ + (gx#stx-pair? _tl222072222339_)) + (let ((_e222083222358_ (let () (declare (not safe)) - (gx#stx-e _tl219677219944_)))) - (let ((_tl219686219968_ + (gx#stx-e _tl222072222339_)))) + (let ((_tl222081222363_ (let () (declare (not safe)) - (##cdr _e219688219963_))) - (_hd219687219966_ + (##cdr _e222083222358_))) + (_hd222082222361_ (let () (declare (not safe)) - (##car _e219688219963_)))) + (##car _e222083222358_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219687219966_)) - (let ((_e219691219971_ + (gx#stx-pair? _hd222082222361_)) + (let ((_e222086222366_ (let () (declare (not safe)) - (gx#stx-e _hd219687219966_)))) - (let ((_tl219689219976_ + (gx#stx-e _hd222082222361_)))) + (let ((_tl222084222371_ (let () (declare (not safe)) - (##cdr _e219691219971_))) - (_hd219690219974_ + (##cdr _e222086222366_))) + (_hd222085222369_ (let () (declare (not safe)) - (##car _e219691219971_)))) + (##car _e222086222366_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd219690219974_)) + (gx#identifier? _hd222085222369_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd219690219974_)) + _hd222085222369_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl219689219976_)) - (let ((_e219694219979_ + _tl222084222371_)) + (let ((_e222089222374_ (let () (declare (not safe)) (gx#stx-e - _tl219689219976_)))) - (let ((_tl219692219984_ + _tl222084222371_)))) + (let ((_tl222087222379_ (let () (declare (not safe)) - (##cdr _e219694219979_))) - (_hd219693219982_ + (##cdr _e222089222374_))) + (_hd222088222377_ (let () (declare (not safe)) - (##car _e219694219979_)))) + (##car _e222089222374_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219692219984_)) + _tl222087222379_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl219686219968_)) - (let ((_e219697219987_ + _tl222081222363_)) + (let ((_e222092222382_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl219686219968_)))) - (let ((_tl219695219992_ + (gx#stx-e _tl222081222363_)))) + (let ((_tl222090222387_ (let () (declare (not safe)) - (##cdr _e219697219987_))) - (_hd219696219990_ + (##cdr _e222092222382_))) + (_hd222091222385_ (let () (declare (not safe)) - (##car _e219697219987_)))) + (##car _e222092222382_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219696219990_)) - (let ((_e219700219995_ + (gx#stx-pair? _hd222091222385_)) + (let ((_e222095222390_ (let () (declare (not safe)) - (gx#stx-e _hd219696219990_)))) - (let ((_tl219698220000_ + (gx#stx-e _hd222091222385_)))) + (let ((_tl222093222395_ (let () (declare (not safe)) - (##cdr _e219700219995_))) - (_hd219699219998_ + (##cdr _e222095222390_))) + (_hd222094222393_ (let () (declare (not safe)) - (##car _e219700219995_)))) + (##car _e222095222390_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd219699219998_)) + (gx#identifier? _hd222094222393_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd219699219998_)) + (gx#stx-eq? '%#quote _hd222094222393_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219698220000_)) - (let ((_e219703220003_ + (gx#stx-pair? _tl222093222395_)) + (let ((_e222098222398_ (let () (declare (not safe)) (gx#stx-e - _tl219698220000_)))) - (let ((_tl219701220008_ + _tl222093222395_)))) + (let ((_tl222096222403_ (let () (declare (not safe)) - (##cdr _e219703220003_))) - (_hd219702220006_ + (##cdr _e222098222398_))) + (_hd222097222401_ (let () (declare (not safe)) - (##car _e219703220003_)))) + (##car _e222098222398_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219701220008_)) + _tl222096222403_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl219695219992_)) - (let ((_e219706220011_ + _tl222090222387_)) + (let ((_e222101222406_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl219695219992_)))) - (let ((_tl219704220016_ - (let () (declare (not safe)) (##cdr _e219706220011_))) - (_hd219705220014_ - (let () (declare (not safe)) (##car _e219706220011_)))) + (gx#stx-e _tl222090222387_)))) + (let ((_tl222099222411_ + (let () (declare (not safe)) (##cdr _e222101222406_))) + (_hd222100222409_ + (let () (declare (not safe)) (##car _e222101222406_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd219705220014_)) - (let ((_e219709220019_ + (gx#stx-pair? _hd222100222409_)) + (let ((_e222104222414_ (let () (declare (not safe)) - (gx#stx-e _hd219705220014_)))) - (let ((_tl219707220024_ + (gx#stx-e _hd222100222409_)))) + (let ((_tl222102222419_ (let () (declare (not safe)) - (##cdr _e219709220019_))) - (_hd219708220022_ + (##cdr _e222104222414_))) + (_hd222103222417_ (let () (declare (not safe)) - (##car _e219709220019_)))) + (##car _e222104222414_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd219708220022_)) + (gx#identifier? _hd222103222417_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd219708220022_)) + (gx#stx-eq? '%#ref _hd222103222417_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219707220024_)) - (let ((_e219712220027_ + (gx#stx-pair? _tl222102222419_)) + (let ((_e222107222422_ (let () (declare (not safe)) - (gx#stx-e _tl219707220024_)))) - (let ((_tl219710220032_ + (gx#stx-e _tl222102222419_)))) + (let ((_tl222105222427_ (let () (declare (not safe)) - (##cdr _e219712220027_))) - (_hd219711220030_ + (##cdr _e222107222422_))) + (_hd222106222425_ (let () (declare (not safe)) - (##car _e219712220027_)))) + (##car _e222107222422_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219710220032_)) + _tl222105222427_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl219704220016_)) - (let ((_e219715220035_ + _tl222099222411_)) + (let ((_e222110222430_ (let () (declare (not safe)) (gx#stx-e - _tl219704220016_)))) - (let ((_tl219713220040_ + _tl222099222411_)))) + (let ((_tl222108222435_ (let () (declare (not safe)) - (##cdr _e219715220035_))) - (_hd219714220038_ + (##cdr _e222110222430_))) + (_hd222109222433_ (let () (declare (not safe)) - (##car _e219715220035_)))) + (##car _e222110222430_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd219714220038_)) - (let ((_e219718220043_ + _hd222109222433_)) + (let ((_e222113222438_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd219714220038_)))) - (let ((_tl219716220048_ + (gx#stx-e _hd222109222433_)))) + (let ((_tl222111222443_ (let () (declare (not safe)) - (##cdr _e219718220043_))) - (_hd219717220046_ + (##cdr _e222113222438_))) + (_hd222112222441_ (let () (declare (not safe)) - (##car _e219718220043_)))) + (##car _e222113222438_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd219717220046_)) + (gx#identifier? _hd222112222441_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd219717220046_)) + (gx#stx-eq? '%#quote _hd222112222441_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219716220048_)) - (let ((_e219721220051_ + (gx#stx-pair? _tl222111222443_)) + (let ((_e222116222446_ (let () (declare (not safe)) - (gx#stx-e _tl219716220048_)))) - (let ((_tl219719220056_ + (gx#stx-e _tl222111222443_)))) + (let ((_tl222114222451_ (let () (declare (not safe)) - (##cdr _e219721220051_))) - (_hd219720220054_ + (##cdr _e222116222446_))) + (_hd222115222449_ (let () (declare (not safe)) - (##car _e219721220051_)))) + (##car _e222116222446_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219719220056_)) + (gx#stx-null? _tl222114222451_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl219713220040_)) - (___match225810225811_ - _e219676219931_ - _hd219675219934_ - _tl219674219936_ - _e219679219939_ - _hd219678219942_ - _tl219677219944_ - _e219682219947_ - _hd219681219950_ - _tl219680219952_ - _e219685219955_ - _hd219684219958_ - _tl219683219960_ - _e219688219963_ - _hd219687219966_ - _tl219686219968_ - _e219691219971_ - _hd219690219974_ - _tl219689219976_ - _e219694219979_ - _hd219693219982_ - _tl219692219984_ - _e219697219987_ - _hd219696219990_ - _tl219695219992_ - _e219700219995_ - _hd219699219998_ - _tl219698220000_ - _e219703220003_ - _hd219702220006_ - _tl219701220008_ - _e219706220011_ - _hd219705220014_ - _tl219704220016_ - _e219709220019_ - _hd219708220022_ - _tl219707220024_ - _e219712220027_ - _hd219711220030_ - _tl219710220032_ - _e219715220035_ - _hd219714220038_ - _tl219713220040_ - _e219718220043_ - _hd219717220046_ - _tl219716220048_ - _e219721220051_ - _hd219720220054_ - _tl219719220056_) - (___kont225681225682_)) - (___kont225681225682_)))) - (___kont225681225682_)) - (___kont225681225682_)) - (___kont225681225682_)))) - (___kont225681225682_)))) + _tl222108222435_)) + (___match228305228306_ + _e222071222326_ + _hd222070222329_ + _tl222069222331_ + _e222074222334_ + _hd222073222337_ + _tl222072222339_ + _e222077222342_ + _hd222076222345_ + _tl222075222347_ + _e222080222350_ + _hd222079222353_ + _tl222078222355_ + _e222083222358_ + _hd222082222361_ + _tl222081222363_ + _e222086222366_ + _hd222085222369_ + _tl222084222371_ + _e222089222374_ + _hd222088222377_ + _tl222087222379_ + _e222092222382_ + _hd222091222385_ + _tl222090222387_ + _e222095222390_ + _hd222094222393_ + _tl222093222395_ + _e222098222398_ + _hd222097222401_ + _tl222096222403_ + _e222101222406_ + _hd222100222409_ + _tl222099222411_ + _e222104222414_ + _hd222103222417_ + _tl222102222419_ + _e222107222422_ + _hd222106222425_ + _tl222105222427_ + _e222110222430_ + _hd222109222433_ + _tl222108222435_ + _e222113222438_ + _hd222112222441_ + _tl222111222443_ + _e222116222446_ + _hd222115222449_ + _tl222114222451_) + (___kont228176228177_)) + (___kont228176228177_)))) + (___kont228176228177_)) + (___kont228176228177_)) + (___kont228176228177_)))) + (___kont228176228177_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl219704220016_)) - (if (let ((__tmp225988 + _tl222099222411_)) + (if (let ((__tmp228483 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp225988 'bind-method!)) - (let ((_L219885_ _hd219711220030_) - (_L219886_ _hd219702220006_) - (_L219887_ _hd219693219982_) - (_L219888_ _hd219684219958_)) - (___kont225679225680_ - _L219885_ - _L219886_ - _L219887_ - _L219888_)) - (___kont225681225682_)) - (___kont225681225682_))) + (gxc#runtime-identifier=? __tmp228483 'bind-method!)) + (let ((_L222280_ _hd222106222425_) + (_L222281_ _hd222097222401_) + (_L222282_ _hd222088222377_) + (_L222283_ _hd222079222353_)) + (___kont228174228175_ + _L222280_ + _L222281_ + _L222282_ + _L222283_)) + (___kont228176228177_)) + (___kont228176228177_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont225681225682_)))) - (___kont225681225682_)) - (___kont225681225682_)) - (___kont225681225682_)))) - (___kont225681225682_)))) - (___kont225681225682_)) + (___kont228176228177_)))) + (___kont228176228177_)) + (___kont228176228177_)) + (___kont228176228177_)))) + (___kont228176228177_)))) + (___kont228176228177_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont225681225682_)))) - (___kont225681225682_)) - (___kont225681225682_)) - (___kont225681225682_)))) - (___kont225681225682_)))) - (___kont225681225682_)) - (___kont225681225682_)))) + (___kont228176228177_)))) + (___kont228176228177_)) + (___kont228176228177_)) + (___kont228176228177_)))) + (___kont228176228177_)))) + (___kont228176228177_)) + (___kont228176228177_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont225681225682_)) - (___kont225681225682_)) - (___kont225681225682_)))) - (___kont225681225682_)))) - (___kont225681225682_)) - (___kont225681225682_)))) + (___kont228176228177_)) + (___kont228176228177_)) + (___kont228176228177_)))) + (___kont228176228177_)))) + (___kont228176228177_)) + (___kont228176228177_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont225681225682_)) - (___kont225681225682_)) - (___kont225681225682_)))) - (___kont225681225682_)))) - (___kont225681225682_)))) - (___kont225681225682_))))))) + (___kont228176228177_)) + (___kont228176228177_)) + (___kont228176228177_)))) + (___kont228176228177_)))) + (___kont228176228177_)))) + (___kont228176228177_))))))) (define gxc#expression-subst-ref% - (lambda (_stx219610_ _id219611_ _new-id219612_) - (let* ((_g219614219627_ - (lambda (_g219615219624_) + (lambda (_stx222005_ _id222006_ _new-id222007_) + (let* ((_g222009222022_ + (lambda (_g222010222019_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g219615219624_)))) - (_g219613219660_ - (lambda (_g219615219630_) + _g222010222019_)))) + (_g222008222055_ + (lambda (_g222010222025_) (if (let () (declare (not safe)) - (gx#stx-pair? _g219615219630_)) - (let ((_e219619219632_ + (gx#stx-pair? _g222010222025_)) + (let ((_e222014222027_ (let () (declare (not safe)) - (gx#stx-e _g219615219630_)))) - (let ((_hd219618219635_ + (gx#stx-e _g222010222025_)))) + (let ((_hd222013222030_ (let () (declare (not safe)) - (##car _e219619219632_))) - (_tl219617219637_ + (##car _e222014222027_))) + (_tl222012222032_ (let () (declare (not safe)) - (##cdr _e219619219632_)))) + (##cdr _e222014222027_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219617219637_)) - (let ((_e219622219640_ + (gx#stx-pair? _tl222012222032_)) + (let ((_e222017222035_ (let () (declare (not safe)) - (gx#stx-e _tl219617219637_)))) - (let ((_hd219621219643_ + (gx#stx-e _tl222012222032_)))) + (let ((_hd222016222038_ (let () (declare (not safe)) - (##car _e219622219640_))) - (_tl219620219645_ + (##car _e222017222035_))) + (_tl222015222040_ (let () (declare (not safe)) - (##cdr _e219622219640_)))) + (##cdr _e222017222035_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219620219645_)) - ((lambda (_L219648_) + (gx#stx-null? _tl222015222040_)) + ((lambda (_L222043_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L219648_ - _id219611_)) - (let ((__tmp225989 - (let ((__tmp225990 + _L222043_ + _id222006_)) + (let ((__tmp228484 + (let ((__tmp228485 (let () (declare (not safe)) - (cons _new-id219612_ + (cons _new-id222007_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp225990)))) + (cons '%#ref __tmp228485)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp225989 - _stx219610_)) - _stx219610_)) - _hd219621219643_) + __tmp228484 + _stx222005_)) + _stx222005_)) + _hd222016222038_) (let () (declare (not safe)) - (_g219614219627_ _g219615219630_))))) + (_g222009222022_ _g222010222025_))))) (let () (declare (not safe)) - (_g219614219627_ _g219615219630_))))) + (_g222009222022_ _g222010222025_))))) (let () (declare (not safe)) - (_g219614219627_ _g219615219630_)))))) + (_g222009222022_ _g222010222025_)))))) (declare (not safe)) - (_g219613219660_ _stx219610_)))) + (_g222008222055_ _stx222005_)))) (define gxc#expression-subst*-ref% - (lambda (_stx219551_ _subst219552_) - (let* ((_g219554219567_ - (lambda (_g219555219564_) + (lambda (_stx221946_ _subst221947_) + (let* ((_g221949221962_ + (lambda (_g221950221959_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g219555219564_)))) - (_g219553219607_ - (lambda (_g219555219570_) + _g221950221959_)))) + (_g221948222002_ + (lambda (_g221950221965_) (if (let () (declare (not safe)) - (gx#stx-pair? _g219555219570_)) - (let ((_e219559219572_ + (gx#stx-pair? _g221950221965_)) + (let ((_e221954221967_ (let () (declare (not safe)) - (gx#stx-e _g219555219570_)))) - (let ((_hd219558219575_ + (gx#stx-e _g221950221965_)))) + (let ((_hd221953221970_ (let () (declare (not safe)) - (##car _e219559219572_))) - (_tl219557219577_ + (##car _e221954221967_))) + (_tl221952221972_ (let () (declare (not safe)) - (##cdr _e219559219572_)))) + (##cdr _e221954221967_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219557219577_)) - (let ((_e219562219580_ + (gx#stx-pair? _tl221952221972_)) + (let ((_e221957221975_ (let () (declare (not safe)) - (gx#stx-e _tl219557219577_)))) - (let ((_hd219561219583_ + (gx#stx-e _tl221952221972_)))) + (let ((_hd221956221978_ (let () (declare (not safe)) - (##car _e219562219580_))) - (_tl219560219585_ + (##car _e221957221975_))) + (_tl221955221980_ (let () (declare (not safe)) - (##cdr _e219562219580_)))) + (##cdr _e221957221975_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219560219585_)) - ((lambda (_L219588_) - (let ((_$e219602_ - (let ((__tmp225991 - (lambda (_sub219600_) - (let ((__tmp225992 - (car _sub219600_))) + (gx#stx-null? _tl221955221980_)) + ((lambda (_L221983_) + (let ((_$e221997_ + (let ((__tmp228486 + (lambda (_sub221995_) + (let ((__tmp228487 + (car _sub221995_))) (declare (not safe)) (gx#free-identifier=? - _L219588_ - __tmp225992))))) + _L221983_ + __tmp228487))))) (declare (not safe)) - (find __tmp225991 - _subst219552_)))) - (if _$e219602_ - ((lambda (_sub219605_) - (let ((__tmp225993 - (let ((__tmp225994 - (let ((__tmp225995 + (find __tmp228486 + _subst221947_)))) + (if _$e221997_ + ((lambda (_sub222000_) + (let ((__tmp228488 + (let ((__tmp228489 + (let ((__tmp228490 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _sub219605_))) + (cdr _sub222000_))) (declare (not safe)) - (cons __tmp225995 '())))) + (cons __tmp228490 '())))) (declare (not safe)) - (cons '%#ref __tmp225994)))) + (cons '%#ref __tmp228489)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp225993 - _stx219551_))) - _$e219602_) - _stx219551_))) - _hd219561219583_) + __tmp228488 + _stx221946_))) + _$e221997_) + _stx221946_))) + _hd221956221978_) (let () (declare (not safe)) - (_g219554219567_ _g219555219570_))))) + (_g221949221962_ _g221950221965_))))) (let () (declare (not safe)) - (_g219554219567_ _g219555219570_))))) + (_g221949221962_ _g221950221965_))))) (let () (declare (not safe)) - (_g219554219567_ _g219555219570_)))))) + (_g221949221962_ _g221950221965_)))))) (declare (not safe)) - (_g219553219607_ _stx219551_)))) + (_g221948222002_ _stx221946_)))) (define gxc#expression-subst-setq% - (lambda (_stx219479_ _id219480_ _new-id219481_) - (let* ((_g219483219500_ - (lambda (_g219484219497_) + (lambda (_stx221874_ _id221875_ _new-id221876_) + (let* ((_g221878221895_ + (lambda (_g221879221892_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g219484219497_)))) - (_g219482219548_ - (lambda (_g219484219503_) + _g221879221892_)))) + (_g221877221943_ + (lambda (_g221879221898_) (if (let () (declare (not safe)) - (gx#stx-pair? _g219484219503_)) - (let ((_e219489219505_ + (gx#stx-pair? _g221879221898_)) + (let ((_e221884221900_ (let () (declare (not safe)) - (gx#stx-e _g219484219503_)))) - (let ((_hd219488219508_ + (gx#stx-e _g221879221898_)))) + (let ((_hd221883221903_ (let () (declare (not safe)) - (##car _e219489219505_))) - (_tl219487219510_ + (##car _e221884221900_))) + (_tl221882221905_ (let () (declare (not safe)) - (##cdr _e219489219505_)))) + (##cdr _e221884221900_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219487219510_)) - (let ((_e219492219513_ + (gx#stx-pair? _tl221882221905_)) + (let ((_e221887221908_ (let () (declare (not safe)) - (gx#stx-e _tl219487219510_)))) - (let ((_hd219491219516_ + (gx#stx-e _tl221882221905_)))) + (let ((_hd221886221911_ (let () (declare (not safe)) - (##car _e219492219513_))) - (_tl219490219518_ + (##car _e221887221908_))) + (_tl221885221913_ (let () (declare (not safe)) - (##cdr _e219492219513_)))) + (##cdr _e221887221908_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219490219518_)) - (let ((_e219495219521_ + (gx#stx-pair? _tl221885221913_)) + (let ((_e221890221916_ (let () (declare (not safe)) - (gx#stx-e _tl219490219518_)))) - (let ((_hd219494219524_ + (gx#stx-e _tl221885221913_)))) + (let ((_hd221889221919_ (let () (declare (not safe)) - (##car _e219495219521_))) - (_tl219493219526_ + (##car _e221890221916_))) + (_tl221888221921_ (let () (declare (not safe)) - (##cdr _e219495219521_)))) + (##cdr _e221890221916_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219493219526_)) - ((lambda (_L219529_ _L219530_) - (let ((_new-expr219545_ + _tl221888221921_)) + ((lambda (_L221924_ _L221925_) + (let ((_new-expr221940_ (let () (declare (not safe)) (gxc#compile-e__2 - _L219529_ - _id219480_ - _new-id219481_))) - (_new-xid219546_ + _L221924_ + _id221875_ + _new-id221876_))) + (_new-xid221941_ (if (let () (declare (not safe)) (gx#free-identifier=? - _L219530_ - _id219480_)) - _new-id219481_ - _L219530_))) - (let ((__tmp225996 - (let ((__tmp225997 + _L221925_ + _id221875_)) + _new-id221876_ + _L221925_))) + (let ((__tmp228491 + (let ((__tmp228492 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp225998 + (let ((__tmp228493 (let () (declare (not safe)) - (cons _new-expr219545_ '())))) + (cons _new-expr221940_ '())))) (declare (not safe)) - (cons _new-xid219546_ __tmp225998)))) + (cons _new-xid221941_ __tmp228493)))) (declare (not safe)) - (cons '%#set! __tmp225997)))) + (cons '%#set! __tmp228492)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp225996 - _stx219479_)))) - _hd219494219524_ - _hd219491219516_) + __tmp228491 + _stx221874_)))) + _hd221889221919_ + _hd221886221911_) (let () (declare (not safe)) - (_g219483219500_ - _g219484219503_))))) + (_g221878221895_ + _g221879221898_))))) (let () (declare (not safe)) - (_g219483219500_ _g219484219503_))))) + (_g221878221895_ _g221879221898_))))) (let () (declare (not safe)) - (_g219483219500_ _g219484219503_))))) + (_g221878221895_ _g221879221898_))))) (let () (declare (not safe)) - (_g219483219500_ _g219484219503_)))))) + (_g221878221895_ _g221879221898_)))))) (declare (not safe)) - (_g219482219548_ _stx219479_)))) + (_g221877221943_ _stx221874_)))) (define gxc#expression-subst*-setq% - (lambda (_stx219403_ _subst219404_) - (let* ((_g219406219423_ - (lambda (_g219407219420_) + (lambda (_stx221798_ _subst221799_) + (let* ((_g221801221818_ + (lambda (_g221802221815_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g219407219420_)))) - (_g219405219476_ - (lambda (_g219407219426_) + _g221802221815_)))) + (_g221800221871_ + (lambda (_g221802221821_) (if (let () (declare (not safe)) - (gx#stx-pair? _g219407219426_)) - (let ((_e219412219428_ + (gx#stx-pair? _g221802221821_)) + (let ((_e221807221823_ (let () (declare (not safe)) - (gx#stx-e _g219407219426_)))) - (let ((_hd219411219431_ + (gx#stx-e _g221802221821_)))) + (let ((_hd221806221826_ (let () (declare (not safe)) - (##car _e219412219428_))) - (_tl219410219433_ + (##car _e221807221823_))) + (_tl221805221828_ (let () (declare (not safe)) - (##cdr _e219412219428_)))) + (##cdr _e221807221823_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219410219433_)) - (let ((_e219415219436_ + (gx#stx-pair? _tl221805221828_)) + (let ((_e221810221831_ (let () (declare (not safe)) - (gx#stx-e _tl219410219433_)))) - (let ((_hd219414219439_ + (gx#stx-e _tl221805221828_)))) + (let ((_hd221809221834_ (let () (declare (not safe)) - (##car _e219415219436_))) - (_tl219413219441_ + (##car _e221810221831_))) + (_tl221808221836_ (let () (declare (not safe)) - (##cdr _e219415219436_)))) + (##cdr _e221810221831_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219413219441_)) - (let ((_e219418219444_ + (gx#stx-pair? _tl221808221836_)) + (let ((_e221813221839_ (let () (declare (not safe)) - (gx#stx-e _tl219413219441_)))) - (let ((_hd219417219447_ + (gx#stx-e _tl221808221836_)))) + (let ((_hd221812221842_ (let () (declare (not safe)) - (##car _e219418219444_))) - (_tl219416219449_ + (##car _e221813221839_))) + (_tl221811221844_ (let () (declare (not safe)) - (##cdr _e219418219444_)))) + (##cdr _e221813221839_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219416219449_)) - ((lambda (_L219452_ _L219453_) - (let ((_new-expr219473_ + _tl221811221844_)) + ((lambda (_L221847_ _L221848_) + (let ((_new-expr221868_ (let () (declare (not safe)) (gxc#compile-e__1 - _L219452_ - _subst219404_))) - (_new-xid219474_ - (let ((_$e219470_ - (let ((__tmp225999 + _L221847_ + _subst221799_))) + (_new-xid221869_ + (let ((_$e221865_ + (let ((__tmp228494 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_sub219468_) - (let ((__tmp226000 (car _sub219468_))) + (lambda (_sub221863_) + (let ((__tmp228495 (car _sub221863_))) (declare (not safe)) (gx#free-identifier=? - _L219453_ - __tmp226000))))) + _L221848_ + __tmp228495))))) (declare (not safe)) - (find __tmp225999 _subst219404_)))) - (if _$e219470_ (cdr _$e219470_) _L219453_)))) + (find __tmp228494 _subst221799_)))) + (if _$e221865_ (cdr _$e221865_) _L221848_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp226001 - (let ((__tmp226002 + (let ((__tmp228496 + (let ((__tmp228497 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp226003 + (let ((__tmp228498 (let () (declare (not safe)) - (cons _new-expr219473_ '())))) + (cons _new-expr221868_ '())))) (declare (not safe)) - (cons _new-xid219474_ __tmp226003)))) + (cons _new-xid221869_ __tmp228498)))) (declare (not safe)) - (cons '%#set! __tmp226002)))) + (cons '%#set! __tmp228497)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp226001 - _stx219403_)))) - _hd219417219447_ - _hd219414219439_) + __tmp228496 + _stx221798_)))) + _hd221812221842_ + _hd221809221834_) (let () (declare (not safe)) - (_g219406219423_ - _g219407219426_))))) + (_g221801221818_ + _g221802221821_))))) (let () (declare (not safe)) - (_g219406219423_ _g219407219426_))))) + (_g221801221818_ _g221802221821_))))) (let () (declare (not safe)) - (_g219406219423_ _g219407219426_))))) + (_g221801221818_ _g221802221821_))))) (let () (declare (not safe)) - (_g219406219423_ _g219407219426_)))))) + (_g221801221818_ _g221802221821_)))))) (declare (not safe)) - (_g219405219476_ _stx219403_)))) + (_g221800221871_ _stx221798_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_stx219349_ _ht219350_) - (let* ((_g219352219365_ - (lambda (_g219353219362_) + (lambda (_stx221744_ _ht221745_) + (let* ((_g221747221760_ + (lambda (_g221748221757_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g219353219362_)))) - (_g219351219400_ - (lambda (_g219353219368_) + _g221748221757_)))) + (_g221746221795_ + (lambda (_g221748221763_) (if (let () (declare (not safe)) - (gx#stx-pair? _g219353219368_)) - (let ((_e219357219370_ + (gx#stx-pair? _g221748221763_)) + (let ((_e221752221765_ (let () (declare (not safe)) - (gx#stx-e _g219353219368_)))) - (let ((_hd219356219373_ + (gx#stx-e _g221748221763_)))) + (let ((_hd221751221768_ (let () (declare (not safe)) - (##car _e219357219370_))) - (_tl219355219375_ + (##car _e221752221765_))) + (_tl221750221770_ (let () (declare (not safe)) - (##cdr _e219357219370_)))) + (##cdr _e221752221765_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219355219375_)) - (let ((_e219360219378_ + (gx#stx-pair? _tl221750221770_)) + (let ((_e221755221773_ (let () (declare (not safe)) - (gx#stx-e _tl219355219375_)))) - (let ((_hd219359219381_ + (gx#stx-e _tl221750221770_)))) + (let ((_hd221754221776_ (let () (declare (not safe)) - (##car _e219360219378_))) - (_tl219358219383_ + (##car _e221755221773_))) + (_tl221753221778_ (let () (declare (not safe)) - (##cdr _e219360219378_)))) + (##cdr _e221755221773_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219358219383_)) - ((lambda (_L219386_) - (let ((_eid219398_ + (gx#stx-null? _tl221753221778_)) + ((lambda (_L221781_) + (let ((_eid221793_ (let () (declare (not safe)) (gxc#identifier-symbol - _L219386_)))) + _L221781_)))) (declare (not safe)) (hash-update! - _ht219350_ - _eid219398_ + _ht221745_ + _eid221793_ 1+ '0))) - _hd219359219381_) + _hd221754221776_) (let () (declare (not safe)) - (_g219352219365_ _g219353219368_))))) + (_g221747221760_ _g221748221763_))))) (let () (declare (not safe)) - (_g219352219365_ _g219353219368_))))) + (_g221747221760_ _g221748221763_))))) (let () (declare (not safe)) - (_g219352219365_ _g219353219368_)))))) + (_g221747221760_ _g221748221763_)))))) (declare (not safe)) - (_g219351219400_ _stx219349_)))) + (_g221746221795_ _stx221744_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_stx219279_ _ht219280_) - (let* ((_g219282219299_ - (lambda (_g219283219296_) + (lambda (_stx221674_ _ht221675_) + (let* ((_g221677221694_ + (lambda (_g221678221691_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g219283219296_)))) - (_g219281219346_ - (lambda (_g219283219302_) + _g221678221691_)))) + (_g221676221741_ + (lambda (_g221678221697_) (if (let () (declare (not safe)) - (gx#stx-pair? _g219283219302_)) - (let ((_e219288219304_ + (gx#stx-pair? _g221678221697_)) + (let ((_e221683221699_ (let () (declare (not safe)) - (gx#stx-e _g219283219302_)))) - (let ((_hd219287219307_ + (gx#stx-e _g221678221697_)))) + (let ((_hd221682221702_ (let () (declare (not safe)) - (##car _e219288219304_))) - (_tl219286219309_ + (##car _e221683221699_))) + (_tl221681221704_ (let () (declare (not safe)) - (##cdr _e219288219304_)))) + (##cdr _e221683221699_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219286219309_)) - (let ((_e219291219312_ + (gx#stx-pair? _tl221681221704_)) + (let ((_e221686221707_ (let () (declare (not safe)) - (gx#stx-e _tl219286219309_)))) - (let ((_hd219290219315_ + (gx#stx-e _tl221681221704_)))) + (let ((_hd221685221710_ (let () (declare (not safe)) - (##car _e219291219312_))) - (_tl219289219317_ + (##car _e221686221707_))) + (_tl221684221712_ (let () (declare (not safe)) - (##cdr _e219291219312_)))) + (##cdr _e221686221707_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219289219317_)) - (let ((_e219294219320_ + (gx#stx-pair? _tl221684221712_)) + (let ((_e221689221715_ (let () (declare (not safe)) - (gx#stx-e _tl219289219317_)))) - (let ((_hd219293219323_ + (gx#stx-e _tl221684221712_)))) + (let ((_hd221688221718_ (let () (declare (not safe)) - (##car _e219294219320_))) - (_tl219292219325_ + (##car _e221689221715_))) + (_tl221687221720_ (let () (declare (not safe)) - (##cdr _e219294219320_)))) + (##cdr _e221689221715_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219292219325_)) - ((lambda (_L219328_ _L219329_) - (let ((_eid219344_ + _tl221687221720_)) + ((lambda (_L221723_ _L221724_) + (let ((_eid221739_ (let () (declare (not safe)) (gxc#identifier-symbol - _L219329_)))) + _L221724_)))) (let () (declare (not safe)) (hash-update! - _ht219280_ - _eid219344_ + _ht221675_ + _eid221739_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _L219328_ - _ht219280_)))) - _hd219293219323_ - _hd219290219315_) + _L221723_ + _ht221675_)))) + _hd221688221718_ + _hd221685221710_) (let () (declare (not safe)) - (_g219282219299_ - _g219283219302_))))) + (_g221677221694_ + _g221678221697_))))) (let () (declare (not safe)) - (_g219282219299_ _g219283219302_))))) + (_g221677221694_ _g221678221697_))))) (let () (declare (not safe)) - (_g219282219299_ _g219283219302_))))) + (_g221677221694_ _g221678221697_))))) (let () (declare (not safe)) - (_g219282219299_ _g219283219302_)))))) + (_g221677221694_ _g221678221697_)))))) (declare (not safe)) - (_g219281219346_ _stx219279_)))) + (_g221676221741_ _stx221674_)))) (define gxc#find-body% - (lambda (_stx219192_ _arg219193_) - (let* ((_g219195219214_ - (lambda (_g219196219211_) + (lambda (_stx221587_ _arg221588_) + (let* ((_g221590221609_ + (lambda (_g221591221606_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g219196219211_)))) - (_g219194219276_ - (lambda (_g219196219217_) + _g221591221606_)))) + (_g221589221671_ + (lambda (_g221591221612_) (if (let () (declare (not safe)) - (gx#stx-pair? _g219196219217_)) - (let ((_e219200219219_ + (gx#stx-pair? _g221591221612_)) + (let ((_e221595221614_ (let () (declare (not safe)) - (gx#stx-e _g219196219217_)))) - (let ((_hd219199219222_ + (gx#stx-e _g221591221612_)))) + (let ((_hd221594221617_ (let () (declare (not safe)) - (##car _e219200219219_))) - (_tl219198219224_ + (##car _e221595221614_))) + (_tl221593221619_ (let () (declare (not safe)) - (##cdr _e219200219219_)))) + (##cdr _e221595221614_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl219198219224_)) - (let ((_g226004_ + (gx#stx-pair/null? _tl221593221619_)) + (let ((_g228499_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl219198219224_ + _tl221593221619_ '0)))) (begin - (let ((_g226005_ + (let ((_g228500_ (let () (declare (not safe)) - (if (##values? _g226004_) - (##vector-length _g226004_) + (if (##values? _g228499_) + (##vector-length _g228499_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g226005_ 2))) + (##fx= _g228500_ 2))) (error "Context expects 2 values" - _g226005_))) - (let ((_target219201219227_ + _g228500_))) + (let ((_target221596221622_ (let () (declare (not safe)) - (##vector-ref _g226004_ 0))) - (_tl219203219229_ + (##vector-ref _g228499_ 0))) + (_tl221598221624_ (let () (declare (not safe)) - (##vector-ref _g226004_ 1)))) + (##vector-ref _g228499_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl219203219229_)) - (letrec ((_loop219204219232_ - (lambda (_hd219202219235_ - _expr219208219237_) + (gx#stx-null? _tl221598221624_)) + (letrec ((_loop221599221627_ + (lambda (_hd221597221630_ + _expr221603221632_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd219202219235_)) - (let ((_e219205219240_ + _hd221597221630_)) + (let ((_e221600221635_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd219202219235_)))) - (let ((_lp-hd219206219243_ - (let () (declare (not safe)) (##car _e219205219240_))) - (_lp-tl219207219245_ + (gx#stx-e _hd221597221630_)))) + (let ((_lp-hd221601221638_ + (let () (declare (not safe)) (##car _e221600221635_))) + (_lp-tl221602221640_ (let () (declare (not safe)) - (##cdr _e219205219240_)))) - (let ((__tmp226009 + (##cdr _e221600221635_)))) + (let ((__tmp228504 (let () (declare (not safe)) - (cons _lp-hd219206219243_ _expr219208219237_)))) + (cons _lp-hd221601221638_ _expr221603221632_)))) (declare (not safe)) - (_loop219204219232_ _lp-tl219207219245_ __tmp226009)))) - (let ((_expr219209219248_ (reverse _expr219208219237_))) - ((lambda (_L219251_) - (let ((__tmp226008 - (lambda (_g219264219266_) + (_loop221599221627_ _lp-tl221602221640_ __tmp228504)))) + (let ((_expr221604221643_ (reverse _expr221603221632_))) + ((lambda (_L221646_) + (let ((__tmp228503 + (lambda (_g221659221661_) (let () (declare (not safe)) (gxc#compile-e__1 - _g219264219266_ - _arg219193_)))) - (__tmp226006 - (let ((__tmp226007 - (lambda (_g219268219271_ _g219269219273_) + _g221659221661_ + _arg221588_)))) + (__tmp228501 + (let ((__tmp228502 + (lambda (_g221663221666_ _g221664221668_) (let () (declare (not safe)) - (cons _g219268219271_ - _g219269219273_))))) + (cons _g221663221666_ + _g221664221668_))))) (declare (not safe)) - (foldr1 __tmp226007 '() _L219251_)))) + (foldr1 __tmp228502 '() _L221646_)))) (declare (not safe)) - (ormap1 __tmp226008 __tmp226006))) - _expr219209219248_)))))) + (ormap1 __tmp228503 __tmp228501))) + _expr221604221643_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop219204219232_ - _target219201219227_ + (_loop221599221627_ + _target221596221622_ '()))) (let () (declare (not safe)) - (_g219195219214_ - _g219196219217_)))))) + (_g221590221609_ + _g221591221612_)))))) (let () (declare (not safe)) - (_g219195219214_ _g219196219217_))))) + (_g221590221609_ _g221591221612_))))) (let () (declare (not safe)) - (_g219195219214_ _g219196219217_)))))) + (_g221590221609_ _g221591221612_)))))) (declare (not safe)) - (_g219194219276_ _stx219192_)))) + (_g221589221671_ _stx221587_)))) (define gxc#find-begin-annotation% - (lambda (_stx219124_ _arg219125_) - (let* ((_g219127219144_ - (lambda (_g219128219141_) + (lambda (_stx221519_ _arg221520_) + (let* ((_g221522221539_ + (lambda (_g221523221536_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g219128219141_)))) - (_g219126219189_ - (lambda (_g219128219147_) + _g221523221536_)))) + (_g221521221584_ + (lambda (_g221523221542_) (if (let () (declare (not safe)) - (gx#stx-pair? _g219128219147_)) - (let ((_e219133219149_ + (gx#stx-pair? _g221523221542_)) + (let ((_e221528221544_ (let () (declare (not safe)) - (gx#stx-e _g219128219147_)))) - (let ((_hd219132219152_ + (gx#stx-e _g221523221542_)))) + (let ((_hd221527221547_ (let () (declare (not safe)) - (##car _e219133219149_))) - (_tl219131219154_ + (##car _e221528221544_))) + (_tl221526221549_ (let () (declare (not safe)) - (##cdr _e219133219149_)))) + (##cdr _e221528221544_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219131219154_)) - (let ((_e219136219157_ + (gx#stx-pair? _tl221526221549_)) + (let ((_e221531221552_ (let () (declare (not safe)) - (gx#stx-e _tl219131219154_)))) - (let ((_hd219135219160_ + (gx#stx-e _tl221526221549_)))) + (let ((_hd221530221555_ (let () (declare (not safe)) - (##car _e219136219157_))) - (_tl219134219162_ + (##car _e221531221552_))) + (_tl221529221557_ (let () (declare (not safe)) - (##cdr _e219136219157_)))) + (##cdr _e221531221552_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219134219162_)) - (let ((_e219139219165_ + (gx#stx-pair? _tl221529221557_)) + (let ((_e221534221560_ (let () (declare (not safe)) - (gx#stx-e _tl219134219162_)))) - (let ((_hd219138219168_ + (gx#stx-e _tl221529221557_)))) + (let ((_hd221533221563_ (let () (declare (not safe)) - (##car _e219139219165_))) - (_tl219137219170_ + (##car _e221534221560_))) + (_tl221532221565_ (let () (declare (not safe)) - (##cdr _e219139219165_)))) + (##cdr _e221534221560_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219137219170_)) - ((lambda (_L219173_ _L219174_) + _tl221532221565_)) + ((lambda (_L221568_ _L221569_) (let () (declare (not safe)) (gxc#compile-e__1 - _L219173_ - _arg219125_))) - _hd219138219168_ - _hd219135219160_) + _L221568_ + _arg221520_))) + _hd221533221563_ + _hd221530221555_) (let () (declare (not safe)) - (_g219127219144_ - _g219128219147_))))) + (_g221522221539_ + _g221523221542_))))) (let () (declare (not safe)) - (_g219127219144_ _g219128219147_))))) + (_g221522221539_ _g221523221542_))))) (let () (declare (not safe)) - (_g219127219144_ _g219128219147_))))) + (_g221522221539_ _g221523221542_))))) (let () (declare (not safe)) - (_g219127219144_ _g219128219147_)))))) + (_g221522221539_ _g221523221542_)))))) (declare (not safe)) - (_g219126219189_ _stx219124_)))) + (_g221521221584_ _stx221519_)))) (define gxc#find-lambda% - (lambda (_stx219056_ _arg219057_) - (let* ((_g219059219076_ - (lambda (_g219060219073_) + (lambda (_stx221451_ _arg221452_) + (let* ((_g221454221471_ + (lambda (_g221455221468_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g219060219073_)))) - (_g219058219121_ - (lambda (_g219060219079_) + _g221455221468_)))) + (_g221453221516_ + (lambda (_g221455221474_) (if (let () (declare (not safe)) - (gx#stx-pair? _g219060219079_)) - (let ((_e219065219081_ + (gx#stx-pair? _g221455221474_)) + (let ((_e221460221476_ (let () (declare (not safe)) - (gx#stx-e _g219060219079_)))) - (let ((_hd219064219084_ + (gx#stx-e _g221455221474_)))) + (let ((_hd221459221479_ (let () (declare (not safe)) - (##car _e219065219081_))) - (_tl219063219086_ + (##car _e221460221476_))) + (_tl221458221481_ (let () (declare (not safe)) - (##cdr _e219065219081_)))) + (##cdr _e221460221476_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219063219086_)) - (let ((_e219068219089_ + (gx#stx-pair? _tl221458221481_)) + (let ((_e221463221484_ (let () (declare (not safe)) - (gx#stx-e _tl219063219086_)))) - (let ((_hd219067219092_ + (gx#stx-e _tl221458221481_)))) + (let ((_hd221462221487_ (let () (declare (not safe)) - (##car _e219068219089_))) - (_tl219066219094_ + (##car _e221463221484_))) + (_tl221461221489_ (let () (declare (not safe)) - (##cdr _e219068219089_)))) + (##cdr _e221463221484_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl219066219094_)) - (let ((_e219071219097_ + (gx#stx-pair? _tl221461221489_)) + (let ((_e221466221492_ (let () (declare (not safe)) - (gx#stx-e _tl219066219094_)))) - (let ((_hd219070219100_ + (gx#stx-e _tl221461221489_)))) + (let ((_hd221465221495_ (let () (declare (not safe)) - (##car _e219071219097_))) - (_tl219069219102_ + (##car _e221466221492_))) + (_tl221464221497_ (let () (declare (not safe)) - (##cdr _e219071219097_)))) + (##cdr _e221466221492_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl219069219102_)) - ((lambda (_L219105_ _L219106_) + _tl221464221497_)) + ((lambda (_L221500_ _L221501_) (let () (declare (not safe)) (gxc#compile-e__1 - _L219105_ - _arg219057_))) - _hd219070219100_ - _hd219067219092_) + _L221500_ + _arg221452_))) + _hd221465221495_ + _hd221462221487_) (let () (declare (not safe)) - (_g219059219076_ - _g219060219079_))))) + (_g221454221471_ + _g221455221474_))))) (let () (declare (not safe)) - (_g219059219076_ _g219060219079_))))) + (_g221454221471_ _g221455221474_))))) (let () (declare (not safe)) - (_g219059219076_ _g219060219079_))))) + (_g221454221471_ _g221455221474_))))) (let () (declare (not safe)) - (_g219059219076_ _g219060219079_)))))) + (_g221454221471_ _g221455221474_)))))) (declare (not safe)) - (_g219058219121_ _stx219056_)))) + (_g221453221516_ _stx221451_)))) (define gxc#find-case-lambda% - (lambda (_stx218938_ _arg218939_) - (let* ((_g218941218969_ - (lambda (_g218942218966_) + (lambda (_stx221333_ _arg221334_) + (let* ((_g221336221364_ + (lambda (_g221337221361_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g218942218966_)))) - (_g218940219053_ - (lambda (_g218942218972_) + _g221337221361_)))) + (_g221335221448_ + (lambda (_g221337221367_) (if (let () (declare (not safe)) - (gx#stx-pair? _g218942218972_)) - (let ((_e218947218974_ + (gx#stx-pair? _g221337221367_)) + (let ((_e221342221369_ (let () (declare (not safe)) - (gx#stx-e _g218942218972_)))) - (let ((_hd218946218977_ + (gx#stx-e _g221337221367_)))) + (let ((_hd221341221372_ (let () (declare (not safe)) - (##car _e218947218974_))) - (_tl218945218979_ + (##car _e221342221369_))) + (_tl221340221374_ (let () (declare (not safe)) - (##cdr _e218947218974_)))) + (##cdr _e221342221369_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl218945218979_)) - (let ((_g226010_ + (gx#stx-pair/null? _tl221340221374_)) + (let ((_g228505_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl218945218979_ + _tl221340221374_ '0)))) (begin - (let ((_g226011_ + (let ((_g228506_ (let () (declare (not safe)) - (if (##values? _g226010_) - (##vector-length _g226010_) + (if (##values? _g228505_) + (##vector-length _g228505_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g226011_ 2))) + (##fx= _g228506_ 2))) (error "Context expects 2 values" - _g226011_))) - (let ((_target218948218982_ + _g228506_))) + (let ((_target221343221377_ (let () (declare (not safe)) - (##vector-ref _g226010_ 0))) - (_tl218950218984_ + (##vector-ref _g228505_ 0))) + (_tl221345221379_ (let () (declare (not safe)) - (##vector-ref _g226010_ 1)))) + (##vector-ref _g228505_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218950218984_)) - (letrec ((_loop218951218987_ - (lambda (_hd218949218990_ - _body218955218992_ - _hd218956218994_) + (gx#stx-null? _tl221345221379_)) + (letrec ((_loop221346221382_ + (lambda (_hd221344221385_ + _body221350221387_ + _hd221351221389_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd218949218990_)) - (let ((_e218952218997_ + _hd221344221385_)) + (let ((_e221347221392_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd218949218990_)))) - (let ((_lp-hd218953219000_ - (let () (declare (not safe)) (##car _e218952218997_))) - (_lp-tl218954219002_ + (gx#stx-e _hd221344221385_)))) + (let ((_lp-hd221348221395_ + (let () (declare (not safe)) (##car _e221347221392_))) + (_lp-tl221349221397_ (let () (declare (not safe)) - (##cdr _e218952218997_)))) + (##cdr _e221347221392_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd218953219000_)) - (let ((_e218961219005_ + (gx#stx-pair? _lp-hd221348221395_)) + (let ((_e221356221400_ (let () (declare (not safe)) - (gx#stx-e _lp-hd218953219000_)))) - (let ((_hd218960219008_ + (gx#stx-e _lp-hd221348221395_)))) + (let ((_hd221355221403_ (let () (declare (not safe)) - (##car _e218961219005_))) - (_tl218959219010_ + (##car _e221356221400_))) + (_tl221354221405_ (let () (declare (not safe)) - (##cdr _e218961219005_)))) + (##cdr _e221356221400_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218959219010_)) - (let ((_e218964219013_ + (gx#stx-pair? _tl221354221405_)) + (let ((_e221359221408_ (let () (declare (not safe)) - (gx#stx-e _tl218959219010_)))) - (let ((_hd218963219016_ + (gx#stx-e _tl221354221405_)))) + (let ((_hd221358221411_ (let () (declare (not safe)) - (##car _e218964219013_))) - (_tl218962219018_ + (##car _e221359221408_))) + (_tl221357221413_ (let () (declare (not safe)) - (##cdr _e218964219013_)))) + (##cdr _e221359221408_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218962219018_)) - (let ((__tmp226016 + (gx#stx-null? _tl221357221413_)) + (let ((__tmp228511 (let () (declare (not safe)) - (cons _hd218963219016_ - _body218955218992_))) - (__tmp226015 + (cons _hd221358221411_ + _body221350221387_))) + (__tmp228510 (let () (declare (not safe)) - (cons _hd218960219008_ - _hd218956218994_)))) + (cons _hd221355221403_ + _hd221351221389_)))) (declare (not safe)) - (_loop218951218987_ - _lp-tl218954219002_ - __tmp226016 - __tmp226015)) + (_loop221346221382_ + _lp-tl221349221397_ + __tmp228511 + __tmp228510)) (let () (declare (not safe)) - (_g218941218969_ _g218942218972_))))) + (_g221336221364_ _g221337221367_))))) (let () (declare (not safe)) - (_g218941218969_ _g218942218972_))))) + (_g221336221364_ _g221337221367_))))) (let () (declare (not safe)) - (_g218941218969_ _g218942218972_))))) - (let ((_body218957219021_ (reverse _body218955218992_)) - (_hd218958219023_ (reverse _hd218956218994_))) - ((lambda (_L219026_ _L219027_) - (let ((__tmp226014 - (lambda (_g219041219043_) + (_g221336221364_ _g221337221367_))))) + (let ((_body221352221416_ (reverse _body221350221387_)) + (_hd221353221418_ (reverse _hd221351221389_))) + ((lambda (_L221421_ _L221422_) + (let ((__tmp228509 + (lambda (_g221436221438_) (let () (declare (not safe)) (gxc#compile-e__1 - _g219041219043_ - _arg218939_)))) - (__tmp226012 - (let ((__tmp226013 - (lambda (_g219045219048_ _g219046219050_) + _g221436221438_ + _arg221334_)))) + (__tmp228507 + (let ((__tmp228508 + (lambda (_g221440221443_ _g221441221445_) (let () (declare (not safe)) - (cons _g219045219048_ - _g219046219050_))))) + (cons _g221440221443_ + _g221441221445_))))) (declare (not safe)) - (foldr1 __tmp226013 '() _L219026_)))) + (foldr1 __tmp228508 '() _L221421_)))) (declare (not safe)) - (ormap1 __tmp226014 __tmp226012))) - _body218957219021_ - _hd218958219023_)))))) + (ormap1 __tmp228509 __tmp228507))) + _body221352221416_ + _hd221353221418_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop218951218987_ - _target218948218982_ + (_loop221346221382_ + _target221343221377_ '() '()))) (let () (declare (not safe)) - (_g218941218969_ - _g218942218972_)))))) + (_g221336221364_ + _g221337221367_)))))) (let () (declare (not safe)) - (_g218941218969_ _g218942218972_))))) + (_g221336221364_ _g221337221367_))))) (let () (declare (not safe)) - (_g218941218969_ _g218942218972_)))))) + (_g221336221364_ _g221337221367_)))))) (declare (not safe)) - (_g218940219053_ _stx218938_)))) + (_g221335221448_ _stx221333_)))) (define gxc#find-let-values% - (lambda (_stx218788_ _arg218789_) - (let* ((_g218791218826_ - (lambda (_g218792218823_) + (lambda (_stx221183_ _arg221184_) + (let* ((_g221186221221_ + (lambda (_g221187221218_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g218792218823_)))) - (_g218790218935_ - (lambda (_g218792218829_) + _g221187221218_)))) + (_g221185221330_ + (lambda (_g221187221224_) (if (let () (declare (not safe)) - (gx#stx-pair? _g218792218829_)) - (let ((_e218798218831_ + (gx#stx-pair? _g221187221224_)) + (let ((_e221193221226_ (let () (declare (not safe)) - (gx#stx-e _g218792218829_)))) - (let ((_hd218797218834_ + (gx#stx-e _g221187221224_)))) + (let ((_hd221192221229_ (let () (declare (not safe)) - (##car _e218798218831_))) - (_tl218796218836_ + (##car _e221193221226_))) + (_tl221191221231_ (let () (declare (not safe)) - (##cdr _e218798218831_)))) + (##cdr _e221193221226_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218796218836_)) - (let ((_e218801218839_ + (gx#stx-pair? _tl221191221231_)) + (let ((_e221196221234_ (let () (declare (not safe)) - (gx#stx-e _tl218796218836_)))) - (let ((_hd218800218842_ + (gx#stx-e _tl221191221231_)))) + (let ((_hd221195221237_ (let () (declare (not safe)) - (##car _e218801218839_))) - (_tl218799218844_ + (##car _e221196221234_))) + (_tl221194221239_ (let () (declare (not safe)) - (##cdr _e218801218839_)))) + (##cdr _e221196221234_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd218800218842_)) - (let ((_g226017_ + (gx#stx-pair/null? _hd221195221237_)) + (let ((_g228512_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd218800218842_ + _hd221195221237_ '0)))) (begin - (let ((_g226018_ + (let ((_g228513_ (let () (declare (not safe)) - (if (##values? _g226017_) + (if (##values? _g228512_) (##vector-length - _g226017_) + _g228512_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g226018_ 2))) + (##fx= _g228513_ 2))) (error "Context expects 2 values" - _g226018_))) - (let ((_target218802218847_ + _g228513_))) + (let ((_target221197221242_ (let () (declare (not safe)) - (##vector-ref _g226017_ 0))) - (_tl218804218849_ + (##vector-ref _g228512_ 0))) + (_tl221199221244_ (let () (declare (not safe)) (##vector-ref - _g226017_ + _g228512_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl218804218849_)) - (letrec ((_loop218805218852_ - (lambda (_hd218803218855_ + _tl221199221244_)) + (letrec ((_loop221200221247_ + (lambda (_hd221198221250_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr218809218857_ - _bind218810218859_) + _expr221204221252_ + _bind221205221254_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd218803218855_)) - (let ((_e218806218862_ + (gx#stx-pair? _hd221198221250_)) + (let ((_e221201221257_ (let () (declare (not safe)) - (gx#stx-e _hd218803218855_)))) - (let ((_lp-hd218807218865_ + (gx#stx-e _hd221198221250_)))) + (let ((_lp-hd221202221260_ (let () (declare (not safe)) - (##car _e218806218862_))) - (_lp-tl218808218867_ + (##car _e221201221257_))) + (_lp-tl221203221262_ (let () (declare (not safe)) - (##cdr _e218806218862_)))) + (##cdr _e221201221257_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd218807218865_)) - (let ((_e218815218870_ + (gx#stx-pair? _lp-hd221202221260_)) + (let ((_e221210221265_ (let () (declare (not safe)) - (gx#stx-e _lp-hd218807218865_)))) - (let ((_hd218814218873_ + (gx#stx-e _lp-hd221202221260_)))) + (let ((_hd221209221268_ (let () (declare (not safe)) - (##car _e218815218870_))) - (_tl218813218875_ + (##car _e221210221265_))) + (_tl221208221270_ (let () (declare (not safe)) - (##cdr _e218815218870_)))) + (##cdr _e221210221265_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218813218875_)) - (let ((_e218818218878_ + (gx#stx-pair? _tl221208221270_)) + (let ((_e221213221273_ (let () (declare (not safe)) - (gx#stx-e _tl218813218875_)))) - (let ((_hd218817218881_ + (gx#stx-e _tl221208221270_)))) + (let ((_hd221212221276_ (let () (declare (not safe)) - (##car _e218818218878_))) - (_tl218816218883_ + (##car _e221213221273_))) + (_tl221211221278_ (let () (declare (not safe)) - (##cdr _e218818218878_)))) + (##cdr _e221213221273_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl218816218883_)) - (let ((__tmp226023 + _tl221211221278_)) + (let ((__tmp228518 (let () (declare (not safe)) - (cons _hd218817218881_ - _expr218809218857_))) - (__tmp226022 + (cons _hd221212221276_ + _expr221204221252_))) + (__tmp228517 (let () (declare (not safe)) - (cons _hd218814218873_ - _bind218810218859_)))) + (cons _hd221209221268_ + _bind221205221254_)))) (declare (not safe)) - (_loop218805218852_ - _lp-tl218808218867_ - __tmp226023 - __tmp226022)) + (_loop221200221247_ + _lp-tl221203221262_ + __tmp228518 + __tmp228517)) (let () (declare (not safe)) - (_g218791218826_ - _g218792218829_))))) + (_g221186221221_ + _g221187221224_))))) (let () (declare (not safe)) - (_g218791218826_ _g218792218829_))))) + (_g221186221221_ _g221187221224_))))) (let () (declare (not safe)) - (_g218791218826_ _g218792218829_))))) - (let ((_expr218811218886_ (reverse _expr218809218857_)) - (_bind218812218888_ - (reverse _bind218810218859_))) + (_g221186221221_ _g221187221224_))))) + (let ((_expr221206221281_ (reverse _expr221204221252_)) + (_bind221207221283_ + (reverse _bind221205221254_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218799218844_)) - (let ((_e218821218891_ + (gx#stx-pair? _tl221194221239_)) + (let ((_e221216221286_ (let () (declare (not safe)) - (gx#stx-e _tl218799218844_)))) - (let ((_hd218820218894_ + (gx#stx-e _tl221194221239_)))) + (let ((_hd221215221289_ (let () (declare (not safe)) - (##car _e218821218891_))) - (_tl218819218896_ + (##car _e221216221286_))) + (_tl221214221291_ (let () (declare (not safe)) - (##cdr _e218821218891_)))) + (##cdr _e221216221286_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218819218896_)) - ((lambda (_L218899_ _L218900_ _L218901_) - (let ((_$e218932_ - (let ((__tmp226021 - (lambda (_g218920218922_) + (gx#stx-null? _tl221214221291_)) + ((lambda (_L221294_ _L221295_ _L221296_) + (let ((_$e221327_ + (let ((__tmp228516 + (lambda (_g221315221317_) (let () (declare (not safe)) (gxc#compile-e__1 - _g218920218922_ - _arg218789_)))) - (__tmp226019 - (let ((__tmp226020 - (lambda (_g218924218927_ + _g221315221317_ + _arg221184_)))) + (__tmp228514 + (let ((__tmp228515 + (lambda (_g221319221322_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g218925218929_) + _g221320221324_) (let () (declare (not safe)) - (cons _g218924218927_ _g218925218929_))))) + (cons _g221319221322_ _g221320221324_))))) (declare (not safe)) - (foldr1 __tmp226020 '() _L218900_)))) + (foldr1 __tmp228515 '() _L221295_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (ormap1 __tmp226021 - __tmp226019)))) - (if _$e218932_ - _$e218932_ + (ormap1 __tmp228516 + __tmp228514)))) + (if _$e221327_ + _$e221327_ (let () (declare (not safe)) (gxc#compile-e__1 - _L218899_ - _arg218789_))))) - _hd218820218894_ - _expr218811218886_ - _bind218812218888_) + _L221294_ + _arg221184_))))) + _hd221215221289_ + _expr221206221281_ + _bind221207221283_) (let () (declare (not safe)) - (_g218791218826_ _g218792218829_))))) + (_g221186221221_ _g221187221224_))))) (let () (declare (not safe)) - (_g218791218826_ _g218792218829_)))))))) + (_g221186221221_ _g221187221224_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop218805218852_ - _target218802218847_ + (_loop221200221247_ + _target221197221242_ '() '()))) (let () (declare (not safe)) - (_g218791218826_ - _g218792218829_)))))) + (_g221186221221_ + _g221187221224_)))))) (let () (declare (not safe)) - (_g218791218826_ _g218792218829_))))) + (_g221186221221_ _g221187221224_))))) (let () (declare (not safe)) - (_g218791218826_ _g218792218829_))))) + (_g221186221221_ _g221187221224_))))) (let () (declare (not safe)) - (_g218791218826_ _g218792218829_)))))) + (_g221186221221_ _g221187221224_)))))) (declare (not safe)) - (_g218790218935_ _stx218788_)))) + (_g221185221330_ _stx221183_)))) (define gxc#find-setq% - (lambda (_stx218720_ _arg218721_) - (let* ((_g218723218740_ - (lambda (_g218724218737_) + (lambda (_stx221115_ _arg221116_) + (let* ((_g221118221135_ + (lambda (_g221119221132_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g218724218737_)))) - (_g218722218785_ - (lambda (_g218724218743_) + _g221119221132_)))) + (_g221117221180_ + (lambda (_g221119221138_) (if (let () (declare (not safe)) - (gx#stx-pair? _g218724218743_)) - (let ((_e218729218745_ + (gx#stx-pair? _g221119221138_)) + (let ((_e221124221140_ (let () (declare (not safe)) - (gx#stx-e _g218724218743_)))) - (let ((_hd218728218748_ + (gx#stx-e _g221119221138_)))) + (let ((_hd221123221143_ (let () (declare (not safe)) - (##car _e218729218745_))) - (_tl218727218750_ + (##car _e221124221140_))) + (_tl221122221145_ (let () (declare (not safe)) - (##cdr _e218729218745_)))) + (##cdr _e221124221140_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218727218750_)) - (let ((_e218732218753_ + (gx#stx-pair? _tl221122221145_)) + (let ((_e221127221148_ (let () (declare (not safe)) - (gx#stx-e _tl218727218750_)))) - (let ((_hd218731218756_ + (gx#stx-e _tl221122221145_)))) + (let ((_hd221126221151_ (let () (declare (not safe)) - (##car _e218732218753_))) - (_tl218730218758_ + (##car _e221127221148_))) + (_tl221125221153_ (let () (declare (not safe)) - (##cdr _e218732218753_)))) + (##cdr _e221127221148_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218730218758_)) - (let ((_e218735218761_ + (gx#stx-pair? _tl221125221153_)) + (let ((_e221130221156_ (let () (declare (not safe)) - (gx#stx-e _tl218730218758_)))) - (let ((_hd218734218764_ + (gx#stx-e _tl221125221153_)))) + (let ((_hd221129221159_ (let () (declare (not safe)) - (##car _e218735218761_))) - (_tl218733218766_ + (##car _e221130221156_))) + (_tl221128221161_ (let () (declare (not safe)) - (##cdr _e218735218761_)))) + (##cdr _e221130221156_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl218733218766_)) - ((lambda (_L218769_ _L218770_) + _tl221128221161_)) + ((lambda (_L221164_ _L221165_) (let () (declare (not safe)) (gxc#compile-e__1 - _L218769_ - _arg218721_))) - _hd218734218764_ - _hd218731218756_) + _L221164_ + _arg221116_))) + _hd221129221159_ + _hd221126221151_) (let () (declare (not safe)) - (_g218723218740_ - _g218724218743_))))) + (_g221118221135_ + _g221119221138_))))) (let () (declare (not safe)) - (_g218723218740_ _g218724218743_))))) + (_g221118221135_ _g221119221138_))))) (let () (declare (not safe)) - (_g218723218740_ _g218724218743_))))) + (_g221118221135_ _g221119221138_))))) (let () (declare (not safe)) - (_g218723218740_ _g218724218743_)))))) + (_g221118221135_ _g221119221138_)))))) (declare (not safe)) - (_g218722218785_ _stx218720_)))) + (_g221117221180_ _stx221115_)))) (define gxc#find-var-refs-ref% - (lambda (_stx218664_ _ids218665_) - (let* ((_g218667218680_ - (lambda (_g218668218677_) + (lambda (_stx221059_ _ids221060_) + (let* ((_g221062221075_ + (lambda (_g221063221072_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g218668218677_)))) - (_g218666218717_ - (lambda (_g218668218683_) + _g221063221072_)))) + (_g221061221112_ + (lambda (_g221063221078_) (if (let () (declare (not safe)) - (gx#stx-pair? _g218668218683_)) - (let ((_e218672218685_ + (gx#stx-pair? _g221063221078_)) + (let ((_e221067221080_ (let () (declare (not safe)) - (gx#stx-e _g218668218683_)))) - (let ((_hd218671218688_ + (gx#stx-e _g221063221078_)))) + (let ((_hd221066221083_ (let () (declare (not safe)) - (##car _e218672218685_))) - (_tl218670218690_ + (##car _e221067221080_))) + (_tl221065221085_ (let () (declare (not safe)) - (##cdr _e218672218685_)))) + (##cdr _e221067221080_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218670218690_)) - (let ((_e218675218693_ + (gx#stx-pair? _tl221065221085_)) + (let ((_e221070221088_ (let () (declare (not safe)) - (gx#stx-e _tl218670218690_)))) - (let ((_hd218674218696_ + (gx#stx-e _tl221065221085_)))) + (let ((_hd221069221091_ (let () (declare (not safe)) - (##car _e218675218693_))) - (_tl218673218698_ + (##car _e221070221088_))) + (_tl221068221093_ (let () (declare (not safe)) - (##cdr _e218675218693_)))) + (##cdr _e221070221088_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl218673218698_)) - ((lambda (_L218701_) - (let ((__tmp226024 - (lambda (_g218712218714_) + (gx#stx-null? _tl221068221093_)) + ((lambda (_L221096_) + (let ((__tmp228519 + (lambda (_g221107221109_) (let () (declare (not safe)) (gx#free-identifier=? - _L218701_ - _g218712218714_))))) + _L221096_ + _g221107221109_))))) (declare (not safe)) - (find __tmp226024 _ids218665_))) - _hd218674218696_) + (find __tmp228519 _ids221060_))) + _hd221069221091_) (let () (declare (not safe)) - (_g218667218680_ _g218668218683_))))) + (_g221062221075_ _g221063221078_))))) (let () (declare (not safe)) - (_g218667218680_ _g218668218683_))))) + (_g221062221075_ _g221063221078_))))) (let () (declare (not safe)) - (_g218667218680_ _g218668218683_)))))) + (_g221062221075_ _g221063221078_)))))) (declare (not safe)) - (_g218666218717_ _stx218664_)))) + (_g221061221112_ _stx221059_)))) (define gxc#find-var-refs-setq% - (lambda (_stx218588_ _ids218589_) - (let* ((_g218591218608_ - (lambda (_g218592218605_) + (lambda (_stx220983_ _ids220984_) + (let* ((_g220986221003_ + (lambda (_g220987221000_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g218592218605_)))) - (_g218590218661_ - (lambda (_g218592218611_) + _g220987221000_)))) + (_g220985221056_ + (lambda (_g220987221006_) (if (let () (declare (not safe)) - (gx#stx-pair? _g218592218611_)) - (let ((_e218597218613_ + (gx#stx-pair? _g220987221006_)) + (let ((_e220992221008_ (let () (declare (not safe)) - (gx#stx-e _g218592218611_)))) - (let ((_hd218596218616_ + (gx#stx-e _g220987221006_)))) + (let ((_hd220991221011_ (let () (declare (not safe)) - (##car _e218597218613_))) - (_tl218595218618_ + (##car _e220992221008_))) + (_tl220990221013_ (let () (declare (not safe)) - (##cdr _e218597218613_)))) + (##cdr _e220992221008_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218595218618_)) - (let ((_e218600218621_ + (gx#stx-pair? _tl220990221013_)) + (let ((_e220995221016_ (let () (declare (not safe)) - (gx#stx-e _tl218595218618_)))) - (let ((_hd218599218624_ + (gx#stx-e _tl220990221013_)))) + (let ((_hd220994221019_ (let () (declare (not safe)) - (##car _e218600218621_))) - (_tl218598218626_ + (##car _e220995221016_))) + (_tl220993221021_ (let () (declare (not safe)) - (##cdr _e218600218621_)))) + (##cdr _e220995221016_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl218598218626_)) - (let ((_e218603218629_ + (gx#stx-pair? _tl220993221021_)) + (let ((_e220998221024_ (let () (declare (not safe)) - (gx#stx-e _tl218598218626_)))) - (let ((_hd218602218632_ + (gx#stx-e _tl220993221021_)))) + (let ((_hd220997221027_ (let () (declare (not safe)) - (##car _e218603218629_))) - (_tl218601218634_ + (##car _e220998221024_))) + (_tl220996221029_ (let () (declare (not safe)) - (##cdr _e218603218629_)))) + (##cdr _e220998221024_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl218601218634_)) - ((lambda (_L218637_ _L218638_) - (let ((_$e218658_ - (let ((__tmp226025 - (lambda (_g218653218655_) + _tl220996221029_)) + ((lambda (_L221032_ _L221033_) + (let ((_$e221053_ + (let ((__tmp228520 + (lambda (_g221048221050_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#free-identifier=? _L218638_ _g218653218655_))))) + (gx#free-identifier=? _L221033_ _g221048221050_))))) (declare (not safe)) - (find __tmp226025 _ids218589_)))) + (find __tmp228520 _ids220984_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e218658_ - _$e218658_ + (if _$e221053_ + _$e221053_ (let () (declare (not safe)) (gxc#compile-e__1 - _L218637_ - _ids218589_))))) - _hd218602218632_ - _hd218599218624_) + _L221032_ + _ids220984_))))) + _hd220997221027_ + _hd220994221019_) (let () (declare (not safe)) - (_g218591218608_ - _g218592218611_))))) + (_g220986221003_ + _g220987221006_))))) (let () (declare (not safe)) - (_g218591218608_ _g218592218611_))))) + (_g220986221003_ _g220987221006_))))) (let () (declare (not safe)) - (_g218591218608_ _g218592218611_))))) + (_g220986221003_ _g220987221006_))))) (let () (declare (not safe)) - (_g218591218608_ _g218592218611_)))))) + (_g220986221003_ _g220987221006_)))))) (declare (not safe)) - (_g218590218661_ _stx218588_)))))) + (_g220985221056_ _stx220983_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize__0.scm b/src/bootstrap/gerbil/compiler/optimize__0.scm index 28b7265e6..722c1b2de 100644 --- a/src/bootstrap/gerbil/compiler/optimize__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize__0.scm @@ -1,1768 +1,1768 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1707573218) + (define gerbil/compiler/optimize::timestamp 1707674937) (begin (define gxc#optimizer-info-init! (lambda () (if (gxc#current-compile-optimizer-info) '#!void (gxc#current-compile-optimizer-info - (let ((__obj287134 + (let ((__obj290129 (let () (declare (not safe)) (##structure gxc#optimizer-info::t '#f '#f '#f)))) - (gxc#optimizer-info:::init! __obj287134) - __obj287134))))) + (gxc#optimizer-info:::init! __obj290129) + __obj290129))))) (define gxc#optimize! - (lambda (_ctx282359_) - (let ((__tmp287138 + (lambda (_ctx285254_) + (let ((__tmp290133 (lambda () (let () (declare (not safe)) - (gxc#optimizer-load-ssxi-deps _ctx282359_)) + (gxc#optimizer-load-ssxi-deps _ctx285254_)) (let () (declare (not safe)) (gxc#optimizer-load-builtin-ssxi)) - (let ((__tmp287140 + (let ((__tmp290135 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp287139 + (__tmp290134 (##structure-ref - _ctx282359_ + _ctx285254_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (table-set! __tmp287140 __tmp287139 '#t)) - (let ((_code282362_ - (let ((__tmp287141 + (table-set! __tmp290135 __tmp290134 '#t)) + (let ((_code285257_ + (let ((__tmp290136 (##structure-ref - _ctx282359_ + _ctx285254_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#optimize-source __tmp287141)))) + (gxc#optimize-source __tmp290136)))) (##structure-set! - _ctx282359_ - _code282362_ + _ctx285254_ + _code285257_ '11 gx#module-context::t '#f)))) - (__tmp287137 + (__tmp290132 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp287136 + (__tmp290131 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) (call-with-parameters - __tmp287138 + __tmp290133 gxc#current-compile-mutators - __tmp287137 + __tmp290132 gxc#current-compile-local-type - __tmp287136)))) + __tmp290131)))) (define gxc#optimizer-load-builtin-ssxi (lambda () (let () (declare (not safe)) (gxc#optimizer-import-ssxi-by-id 'gerbil/builtin)) - (let ((__tmp287142 + (let ((__tmp290137 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-set! __tmp287142 'gerbil/builtin '#t)))) + (table-set! __tmp290137 'gerbil/builtin '#t)))) (define gxc#optimizer-load-ssxi-deps - (lambda (_ctx282303_) - (letrec* ((_deps282305_ - (let* ((_imports282349_ + (lambda (_ctx285198_) + (letrec* ((_deps285200_ + (let* ((_imports285244_ (##structure-ref - _ctx282303_ + _ctx285198_ '8 gx#module-context::t '#f)) - (_$e282351_ + (_$e285246_ (let () (declare (not safe)) - (gx#core-context-prelude__% _ctx282303_)))) - (if _$e282351_ - ((lambda (_g282353282355_) + (gx#core-context-prelude__% _ctx285198_)))) + (if _$e285246_ + ((lambda (_g285248285250_) (let () (declare (not safe)) - (cons _g282353282355_ _imports282349_))) - _$e282351_) - _imports282349_)))) - (let _lp282307_ ((_rest282309_ _deps282305_)) - (let* ((_rest282310282318_ _rest282309_) - (_else282312282326_ (lambda () '#!void)) - (_K282314282337_ - (lambda (_rest282329_ _hd282330_) + (cons _g285248285250_ _imports285244_))) + _$e285246_) + _imports285244_)))) + (let _lp285202_ ((_rest285204_ _deps285200_)) + (let* ((_rest285205285213_ _rest285204_) + (_else285207285221_ (lambda () '#!void)) + (_K285209285232_ + (lambda (_rest285224_ _hd285225_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd282330_ + _hd285225_ 'gx#module-context::t)) (begin - (if (let ((__tmp287156 + (if (let ((__tmp290151 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp287155 + (__tmp290150 (##structure-ref - _hd282330_ + _hd285225_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (table-ref __tmp287156 __tmp287155 '#f)) + (table-ref __tmp290151 __tmp290150 '#f)) '#!void (begin - (let ((_$e282332_ + (let ((_$e285227_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd282330_)))) - (if _$e282332_ - ((lambda (_pre282335_) - (let ((__tmp287153 - (let ((__tmp287154 + _hd285225_)))) + (if _$e285227_ + ((lambda (_pre285230_) + (let ((__tmp290148 + (let ((__tmp290149 (##structure-ref - _hd282330_ + _hd285225_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre282335_ - __tmp287154)))) + (cons _pre285230_ + __tmp290149)))) (declare (not safe)) - (_lp282307_ __tmp287153))) - _$e282332_) - (let ((__tmp287152 + (_lp285202_ __tmp290148))) + _$e285227_) + (let ((__tmp290147 (##structure-ref - _hd282330_ + _hd285225_ '8 gx#module-context::t '#f))) (declare (not safe)) - (_lp282307_ __tmp287152)))) + (_lp285202_ __tmp290147)))) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd282330_)))) + (gxc#optimizer-load-ssxi _hd285225_)))) (let () (declare (not safe)) - (_lp282307_ _rest282329_))) + (_lp285202_ _rest285224_))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd282330_ + _hd285225_ 'gx#prelude-context::t)) (begin - (if (let ((__tmp287151 + (if (let ((__tmp290146 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp287150 + (__tmp290145 (##structure-ref - _hd282330_ + _hd285225_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (table-ref __tmp287151 __tmp287150 '#f)) + (table-ref __tmp290146 __tmp290145 '#f)) '#!void (begin - (let ((__tmp287149 + (let ((__tmp290144 (##structure-ref - _hd282330_ + _hd285225_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_lp282307_ __tmp287149)) + (_lp285202_ __tmp290144)) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd282330_)))) + (gxc#optimizer-load-ssxi _hd285225_)))) (let () (declare (not safe)) - (_lp282307_ _rest282329_))) + (_lp285202_ _rest285224_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd282330_ + _hd285225_ 'gx#module-import::t)) - (let ((__tmp287147 - (let ((__tmp287148 + (let ((__tmp290142 + (let ((__tmp290143 (##direct-structure-ref - _hd282330_ + _hd285225_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp287148 _rest282329_)))) + (cons __tmp290143 _rest285224_)))) (declare (not safe)) - (_lp282307_ __tmp287147)) + (_lp285202_ __tmp290142)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd282330_ + _hd285225_ 'gx#module-export::t)) - (let ((__tmp287145 - (let ((__tmp287146 + (let ((__tmp290140 + (let ((__tmp290141 (##direct-structure-ref - _hd282330_ + _hd285225_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp287146 - _rest282329_)))) + (cons __tmp290141 + _rest285224_)))) (declare (not safe)) - (_lp282307_ __tmp287145)) + (_lp285202_ __tmp290140)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd282330_ + _hd285225_ 'gx#import-set::t)) - (let ((__tmp287143 - (let ((__tmp287144 + (let ((__tmp290138 + (let ((__tmp290139 (##direct-structure-ref - _hd282330_ + _hd285225_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp287144 - _rest282329_)))) + (cons __tmp290139 + _rest285224_)))) (declare (not safe)) - (_lp282307_ __tmp287143)) + (_lp285202_ __tmp290138)) (error '"Unexpected module import" - _hd282330_))))))))) - (if (let () (declare (not safe)) (##pair? _rest282310282318_)) - (let ((_hd282315282340_ + _hd285225_))))))))) + (if (let () (declare (not safe)) (##pair? _rest285205285213_)) + (let ((_hd285210285235_ (let () (declare (not safe)) - (##car _rest282310282318_))) - (_tl282316282342_ + (##car _rest285205285213_))) + (_tl285211285237_ (let () (declare (not safe)) - (##cdr _rest282310282318_)))) - (let* ((_hd282345_ _hd282315282340_) - (_rest282347_ _tl282316282342_)) + (##cdr _rest285205285213_)))) + (let* ((_hd285240_ _hd285210285235_) + (_rest285242_ _tl285211285237_)) (declare (not safe)) - (_K282314282337_ _rest282347_ _hd282345_))) + (_K285209285232_ _rest285242_ _hd285240_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_ctx282283_) + (lambda (_ctx285178_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _ctx282283_ + _ctx285178_ 'gx#module-context::t)) - (let ((__tmp287157 + (let ((__tmp290152 (##structure-ref - _ctx282283_ + _ctx285178_ '7 gx#module-context::t '#f))) (declare (not safe)) - (list? __tmp287157))) + (list? __tmp290152))) '#!void - (let* ((_ht282285_ + (let* ((_ht285180_ (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (_id282287_ + (_id285182_ (##structure-ref - _ctx282283_ + _ctx285178_ '1 gx#expander-context::t '#f)) - (_mod282289_ + (_mod285184_ (let () (declare (not safe)) - (table-ref _ht282285_ _id282287_ '#f)))) - (let ((_$e282292_ _mod282289_)) - (if _$e282292_ - _$e282292_ - (let* ((_mod282295_ + (table-ref _ht285180_ _id285182_ '#f)))) + (let ((_$e285187_ _mod285184_)) + (if _$e285187_ + _$e285187_ + (let* ((_mod285190_ (let () (declare (not safe)) - (gxc#optimizer-import-ssxi _ctx282283_))) - (_val282300_ - (let ((_$e282297_ _mod282295_)) - (if _$e282297_ _$e282297_ '#!void)))) + (gxc#optimizer-import-ssxi _ctx285178_))) + (_val285195_ + (let ((_$e285192_ _mod285190_)) + (if _$e285192_ _$e285192_ '#!void)))) (let () (declare (not safe)) - (table-set! _ht282285_ _id282287_ _val282300_)) - _val282300_))))))) + (table-set! _ht285180_ _id285182_ _val285195_)) + _val285195_))))))) (define gxc#optimizer-import-ssxi - (lambda (_ctx282281_) - (if (##structure-ref _ctx282281_ '1 gx#expander-context::t '#f) - (let ((__tmp287158 + (lambda (_ctx285176_) + (if (##structure-ref _ctx285176_ '1 gx#expander-context::t '#f) + (let ((__tmp290153 (##structure-ref - _ctx282281_ + _ctx285176_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id __tmp287158)) + (gxc#optimizer-import-ssxi-by-id __tmp290153)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_id282258_) - (letrec ((_catch-e282260_ - (lambda (_exn282279_) + (lambda (_id285153_) + (letrec ((_catch-e285155_ + (lambda (_exn285174_) (if (gxc#current-compile-verbose) (begin (let () (declare (not safe)) (displayln '"Failed to load ssxi module for " - _id282258_)) - (display-exception _exn282279_)) + _id285153_)) + (display-exception _exn285174_)) '#!void) '#f)) - (_import-e282261_ + (_import-e285156_ (lambda () - (let* ((_str-id282264_ + (let* ((_str-id285159_ (string-append (let () (declare (not safe)) - (gxc#module-id->path-string _id282258_)) + (gxc#module-id->path-string _id285153_)) '".ssxi")) - (_artefact-path282272_ - (let ((_odir282265282267_ + (_artefact-path285167_ + (let ((_odir285160285162_ (gxc#current-compile-output-dir))) - (if _odir282265282267_ - (let ((_odir282270_ _odir282265282267_)) + (if _odir285160285162_ + (let ((_odir285165_ _odir285160285162_)) (path-expand - (string-append _str-id282264_ '".ss") - _odir282270_)) + (string-append _str-id285159_ '".ss") + _odir285165_)) '#f))) - (_library-path282274_ + (_library-path285169_ (string->symbol - (string-append '":" _str-id282264_ '".ss"))) - (_ssxi-path282276_ - (if (and _artefact-path282272_ - (file-exists? _artefact-path282272_)) - _artefact-path282272_ - _library-path282274_))) + (string-append '":" _str-id285159_ '".ss"))) + (_ssxi-path285171_ + (if (and _artefact-path285167_ + (file-exists? _artefact-path285167_)) + _artefact-path285167_ + _library-path285169_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _ssxi-path282276_)) + _ssxi-path285171_)) (let () (declare (not safe)) - (gx#import-module__% _ssxi-path282276_ '#t '#t)))))) + (gx#import-module__% _ssxi-path285171_ '#t '#t)))))) (let () (declare (not safe)) - (with-catch _catch-e282260_ _import-e282261_))))) + (with-catch _catch-e285155_ _import-e285156_))))) (define gxc#optimize-source - (lambda (_stx282249_) - (let () (declare (not safe)) (gxc#apply-collect-mutators _stx282249_)) - (let () (declare (not safe)) (gxc#apply-collect-methods _stx282249_)) + (lambda (_stx285144_) + (let () (declare (not safe)) (gxc#apply-collect-mutators _stx285144_)) + (let () (declare (not safe)) (gxc#apply-collect-methods _stx285144_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _stx282249_)) - (let* ((_stx282251_ + (gxc#apply-collect-top-level-type-info _stx285144_)) + (let* ((_stx285146_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _stx282249_))) - (_stx282253_ + (gxc#apply-generate-method-specializers _stx285144_))) + (_stx285148_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _stx282251_)))) + (gxc#apply-lift-top-lambdas _stx285146_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _stx282253_)) - (let ((_stx282256_ + (gxc#apply-collect-type-info _stx285148_)) + (let ((_stx285151_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _stx282253_)))) + (gxc#apply-optimize-annotated _stx285148_)))) (declare (not safe)) - (gxc#apply-optimize-call _stx282256_))))) + (gxc#apply-optimize-call _stx285151_))))) (define gxc#&generate-ssxi (make-promise (lambda () - (let ((_tbl282246_ + (let ((_tbl285141_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp287159 (force gxc#&generate-runtime-empty))) + (let ((__tmp290154 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-copy! _tbl282246_ __tmp287159)) + (hash-copy! _tbl285141_ __tmp290154)) (let () (declare (not safe)) - (table-set! _tbl282246_ '%#begin gxc#generate-runtime-begin%)) + (table-set! _tbl285141_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (table-set! - _tbl282246_ + _tbl285141_ '%#begin-syntax gxc#generate-ssxi-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl282246_ '%#module gxc#generate-ssxi-module%)) + (table-set! _tbl285141_ '%#module gxc#generate-ssxi-module%)) (let () (declare (not safe)) (table-set! - _tbl282246_ + _tbl285141_ '%#define-values gxc#generate-ssxi-define-values%)) (let () (declare (not safe)) - (table-set! _tbl282246_ '%#call gxc#generate-ssxi-call%)) - _tbl282246_)))) + (table-set! _tbl285141_ '%#call gxc#generate-ssxi-call%)) + _tbl285141_)))) (define gxc#apply-generate-ssxi - (lambda (_stx282229_ . _args282231_) - (let ((__tmp287161 + (lambda (_stx285124_ . _args285126_) + (let ((__tmp290156 (lambda () (declare (not safe)) - (if (null? _args282231_) - (gxc#compile-e__0 _stx282229_) - (let ((_arg1282236_ (car _args282231_)) - (_rest282238_ (cdr _args282231_))) - (if (null? _rest282238_) - (gxc#compile-e__1 _stx282229_ _arg1282236_) - (let ((_arg2282241_ (car _rest282238_)) - (_rest282243_ (cdr _rest282238_))) - (if (null? _rest282243_) + (if (null? _args285126_) + (gxc#compile-e__0 _stx285124_) + (let ((_arg1285131_ (car _args285126_)) + (_rest285133_ (cdr _args285126_))) + (if (null? _rest285133_) + (gxc#compile-e__1 _stx285124_ _arg1285131_) + (let ((_arg2285136_ (car _rest285133_)) + (_rest285138_ (cdr _rest285133_))) + (if (null? _rest285138_) (gxc#compile-e__2 - _stx282229_ - _arg1282236_ - _arg2282241_) + _stx285124_ + _arg1285131_ + _arg2285136_) (apply gxc#compile-e - _stx282229_ - _arg1282236_ - _arg2282241_ - _rest282243_)))))))) - (__tmp287160 (force gxc#&generate-ssxi))) + _stx285124_ + _arg1285131_ + _arg2285136_ + _rest285138_)))))))) + (__tmp290155 (force gxc#&generate-ssxi))) (declare (not safe)) (call-with-parameters - __tmp287161 + __tmp290156 gxc#current-compile-methods - __tmp287160)))) + __tmp290155)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_stx282190_) - (let* ((_g282192282202_ - (lambda (_g282193282199_) + (lambda (_stx285085_) + (let* ((_g285087285097_ + (lambda (_g285088285094_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g282193282199_)))) - (_g282191282226_ - (lambda (_g282193282205_) + _g285088285094_)))) + (_g285086285121_ + (lambda (_g285088285100_) (if (let () (declare (not safe)) - (gx#stx-pair? _g282193282205_)) - (let ((_e282197282207_ + (gx#stx-pair? _g285088285100_)) + (let ((_e285092285102_ (let () (declare (not safe)) - (gx#stx-e _g282193282205_)))) - (let ((_hd282196282210_ + (gx#stx-e _g285088285100_)))) + (let ((_hd285091285105_ (let () (declare (not safe)) - (##car _e282197282207_))) - (_tl282195282212_ + (##car _e285092285102_))) + (_tl285090285107_ (let () (declare (not safe)) - (##cdr _e282197282207_)))) - ((lambda (_L282215_) - (let ((__tmp287164 + (##cdr _e285092285102_)))) + ((lambda (_L285110_) + (let ((__tmp290159 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _stx282190_)))) - (__tmp287162 - (let ((__tmp287163 + _stx285085_)))) + (__tmp290157 + (let ((__tmp290158 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp287163 '1)))) + (fx+ __tmp290158 '1)))) (declare (not safe)) (call-with-parameters - __tmp287164 + __tmp290159 gx#current-expander-phi - __tmp287162))) - _tl282195282212_))) + __tmp290157))) + _tl285090285107_))) (let () (declare (not safe)) - (_g282192282202_ _g282193282205_)))))) + (_g285087285097_ _g285088285100_)))))) (declare (not safe)) - (_g282191282226_ _stx282190_)))) + (_g285086285121_ _stx285085_)))) (define gxc#generate-ssxi-module% - (lambda (_stx282130_) - (let* ((_g282132282146_ - (lambda (_g282133282143_) + (lambda (_stx285025_) + (let* ((_g285027285041_ + (lambda (_g285028285038_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g282133282143_)))) - (_g282131282187_ - (lambda (_g282133282149_) + _g285028285038_)))) + (_g285026285082_ + (lambda (_g285028285044_) (if (let () (declare (not safe)) - (gx#stx-pair? _g282133282149_)) - (let ((_e282138282151_ + (gx#stx-pair? _g285028285044_)) + (let ((_e285033285046_ (let () (declare (not safe)) - (gx#stx-e _g282133282149_)))) - (let ((_hd282137282154_ + (gx#stx-e _g285028285044_)))) + (let ((_hd285032285049_ (let () (declare (not safe)) - (##car _e282138282151_))) - (_tl282136282156_ + (##car _e285033285046_))) + (_tl285031285051_ (let () (declare (not safe)) - (##cdr _e282138282151_)))) + (##cdr _e285033285046_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl282136282156_)) - (let ((_e282141282159_ + (gx#stx-pair? _tl285031285051_)) + (let ((_e285036285054_ (let () (declare (not safe)) - (gx#stx-e _tl282136282156_)))) - (let ((_hd282140282162_ + (gx#stx-e _tl285031285051_)))) + (let ((_hd285035285057_ (let () (declare (not safe)) - (##car _e282141282159_))) - (_tl282139282164_ + (##car _e285036285054_))) + (_tl285034285059_ (let () (declare (not safe)) - (##cdr _e282141282159_)))) - ((lambda (_L282167_ _L282168_) - (let* ((_ctx282181_ + (##cdr _e285036285054_)))) + ((lambda (_L285062_ _L285063_) + (let* ((_ctx285076_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L282168_))) - (_code282183_ + _L285063_))) + (_code285078_ (##structure-ref - _ctx282181_ + _ctx285076_ '11 gx#module-context::t '#f))) - (let ((__tmp287165 + (let ((__tmp290160 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _code282183_))))) + _code285078_))))) (declare (not safe)) (call-with-parameters - __tmp287165 + __tmp290160 gx#current-expander-context - _ctx282181_)))) - _tl282139282164_ - _hd282140282162_))) + _ctx285076_)))) + _tl285034285059_ + _hd285035285057_))) (let () (declare (not safe)) - (_g282132282146_ _g282133282149_))))) + (_g285027285041_ _g285028285044_))))) (let () (declare (not safe)) - (_g282132282146_ _g282133282149_)))))) + (_g285027285041_ _g285028285044_)))))) (declare (not safe)) - (_g282131282187_ _stx282130_)))) + (_g285026285082_ _stx285025_)))) (define gxc#generate-ssxi-define-values% - (lambda (_stx281940_) - (letrec ((_generate-e281942_ - (lambda (_id282119_) - (let* ((_sym282121_ - (if (let ((__tmp287166 + (lambda (_stx284835_) + (letrec ((_generate-e284837_ + (lambda (_id285014_) + (let* ((_sym285016_ + (if (let ((__tmp290161 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp287166)) + (gx#identifier? __tmp290161)) (let () (declare (not safe)) - (gxc#identifier-symbol _id282119_)) + (gxc#identifier-symbol _id285014_)) '#f)) - (_$e282123_ - (if _sym282121_ + (_$e285018_ + (if _sym285016_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym282121_)) + (gxc#optimizer-lookup-type _sym285016_)) '#f))) - (if _$e282123_ - ((lambda (_type282126_) + (if _$e285018_ + ((lambda (_type285021_) (let () (declare (not safe)) - (gxc#verbose '"generate typedecl " _sym282121_)) - (let* ((_typedecl282128_ - (let ((__method287135 + (gxc#verbose '"generate typedecl " _sym285016_)) + (let* ((_typedecl285023_ + (let ((__method290130 (let () (declare (not safe)) (method-ref - _type282126_ + _type285021_ 'typedecl)))) - (if __method287135 - (__method287135 _type282126_) + (if __method290130 + (__method290130 _type285021_) (error '"Missing method" - _type282126_ + _type285021_ 'typedecl)))) - (__tmp287167 - (let ((__tmp287168 + (__tmp290162 + (let ((__tmp290163 (let () (declare (not safe)) - (cons _typedecl282128_ '())))) + (cons _typedecl285023_ '())))) (declare (not safe)) - (cons _sym282121_ __tmp287168)))) + (cons _sym285016_ __tmp290163)))) (declare (not safe)) - (cons 'declare-type __tmp287167))) - _$e282123_) + (cons 'declare-type __tmp290162))) + _$e285018_) '(begin)))))) - (let* ((___stx286833286834_ _stx281940_) - (_g281945281983_ + (let* ((___stx289828289829_ _stx284835_) + (_g284840284878_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx286833286834_))))) - (let ((___kont286835286836_ - (lambda (_L282101_) + ___stx289828289829_))))) + (let ((___kont289830289831_ + (lambda (_L284996_) (let () (declare (not safe)) - (_generate-e281942_ _L282101_)))) - (___kont286837286838_ - (lambda (_L282036_) - (let ((_types282062_ - (map _generate-e281942_ - (let ((__tmp287169 - (lambda (_g282054282057_ - _g282055282059_) + (_generate-e284837_ _L284996_)))) + (___kont289832289833_ + (lambda (_L284931_) + (let ((_types284957_ + (map _generate-e284837_ + (let ((__tmp290164 + (lambda (_g284949284952_ + _g284950284954_) (let () (declare (not safe)) - (cons _g282054282057_ - _g282055282059_))))) + (cons _g284949284952_ + _g284950284954_))))) (declare (not safe)) - (foldr1 __tmp287169 '() _L282036_))))) + (foldr1 __tmp290164 '() _L284931_))))) (declare (not safe)) - (cons 'begin _types282062_))))) - (let ((___match286888286889_ - (lambda (_e281963281988_ - _hd281962281991_ - _tl281961281993_ - _e281966281996_ - _hd281965281999_ - _tl281964282001_ - ___splice286839286840_ - _target281967282004_ - _tl281969282006_) - (letrec ((_loop281970282009_ - (lambda (_hd281968282012_ _id281974282014_) + (cons 'begin _types284957_))))) + (let ((___match289883289884_ + (lambda (_e284858284883_ + _hd284857284886_ + _tl284856284888_ + _e284861284891_ + _hd284860284894_ + _tl284859284896_ + ___splice289834289835_ + _target284862284899_ + _tl284864284901_) + (letrec ((_loop284865284904_ + (lambda (_hd284863284907_ _id284869284909_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd281968282012_)) - (let ((_e281971282017_ + (gx#stx-pair? _hd284863284907_)) + (let ((_e284866284912_ (let () (declare (not safe)) - (gx#stx-e _hd281968282012_)))) - (let ((_lp-tl281973282022_ + (gx#stx-e _hd284863284907_)))) + (let ((_lp-tl284868284917_ (let () (declare (not safe)) - (##cdr _e281971282017_))) - (_lp-hd281972282020_ + (##cdr _e284866284912_))) + (_lp-hd284867284915_ (let () (declare (not safe)) - (##car _e281971282017_)))) - (let ((__tmp287170 + (##car _e284866284912_)))) + (let ((__tmp290165 (let () (declare (not safe)) - (cons _lp-hd281972282020_ - _id281974282014_)))) + (cons _lp-hd284867284915_ + _id284869284909_)))) (declare (not safe)) - (_loop281970282009_ - _lp-tl281973282022_ - __tmp287170)))) - (let ((_id281975282025_ - (reverse _id281974282014_))) + (_loop284865284904_ + _lp-tl284868284917_ + __tmp290165)))) + (let ((_id284870284920_ + (reverse _id284869284909_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl281964282001_)) - (let ((_e281978282028_ + (gx#stx-pair? _tl284859284896_)) + (let ((_e284873284923_ (let () (declare (not safe)) (gx#stx-e - _tl281964282001_)))) - (let ((_tl281976282033_ + _tl284859284896_)))) + (let ((_tl284871284928_ (let () (declare (not safe)) - (##cdr _e281978282028_))) - (_hd281977282031_ + (##cdr _e284873284923_))) + (_hd284872284926_ (let () (declare (not safe)) - (##car _e281978282028_)))) + (##car _e284873284923_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl281976282033_)) - (___kont286837286838_ - _id281975282025_) + _tl284871284928_)) + (___kont289832289833_ + _id284870284920_) (let () (declare (not safe)) - (_g281945281983_))))) + (_g284840284878_))))) (let () (declare (not safe)) - (_g281945281983_)))))))) + (_g284840284878_)))))))) (let () (declare (not safe)) - (_loop281970282009_ _target281967282004_ '())))))) + (_loop284865284904_ _target284862284899_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx286833286834_)) - (let ((_e281950282069_ + (gx#stx-pair? ___stx289828289829_)) + (let ((_e284845284964_ (let () (declare (not safe)) - (gx#stx-e ___stx286833286834_)))) - (let ((_tl281948282074_ + (gx#stx-e ___stx289828289829_)))) + (let ((_tl284843284969_ (let () (declare (not safe)) - (##cdr _e281950282069_))) - (_hd281949282072_ + (##cdr _e284845284964_))) + (_hd284844284967_ (let () (declare (not safe)) - (##car _e281950282069_)))) + (##car _e284845284964_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl281948282074_)) - (let ((_e281953282077_ + (gx#stx-pair? _tl284843284969_)) + (let ((_e284848284972_ (let () (declare (not safe)) - (gx#stx-e _tl281948282074_)))) - (let ((_tl281951282082_ + (gx#stx-e _tl284843284969_)))) + (let ((_tl284846284977_ (let () (declare (not safe)) - (##cdr _e281953282077_))) - (_hd281952282080_ + (##cdr _e284848284972_))) + (_hd284847284975_ (let () (declare (not safe)) - (##car _e281953282077_)))) + (##car _e284848284972_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd281952282080_)) - (let ((_e281956282085_ + (gx#stx-pair? _hd284847284975_)) + (let ((_e284851284980_ (let () (declare (not safe)) - (gx#stx-e _hd281952282080_)))) - (let ((_tl281954282090_ + (gx#stx-e _hd284847284975_)))) + (let ((_tl284849284985_ (let () (declare (not safe)) - (##cdr _e281956282085_))) - (_hd281955282088_ + (##cdr _e284851284980_))) + (_hd284850284983_ (let () (declare (not safe)) - (##car _e281956282085_)))) + (##car _e284851284980_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl281954282090_)) + (gx#stx-null? _tl284849284985_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl281951282082_)) - (let ((_e281959282093_ + _tl284846284977_)) + (let ((_e284854284988_ (let () (declare (not safe)) (gx#stx-e - _tl281951282082_)))) - (let ((_tl281957282098_ + _tl284846284977_)))) + (let ((_tl284852284993_ (let () (declare (not safe)) - (##cdr _e281959282093_))) - (_hd281958282096_ + (##cdr _e284854284988_))) + (_hd284853284991_ (let () (declare (not safe)) - (##car _e281959282093_)))) + (##car _e284854284988_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl281957282098_)) - (___kont286835286836_ - _hd281955282088_) + _tl284852284993_)) + (___kont289830289831_ + _hd284850284983_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd281952282080_)) - (let ((___splice286839286840_ + _hd284847284975_)) + (let ((___splice289834289835_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd281952282080_ '0)))) - (let ((_tl281969282006_ + (gx#syntax-split-splice _hd284847284975_ '0)))) + (let ((_tl284864284901_ (let () (declare (not safe)) - (##vector-ref ___splice286839286840_ '1))) - (_target281967282004_ + (##vector-ref ___splice289834289835_ '1))) + (_target284862284899_ (let () (declare (not safe)) - (##vector-ref ___splice286839286840_ '0)))) + (##vector-ref ___splice289834289835_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl281969282006_)) - (___match286888286889_ - _e281950282069_ - _hd281949282072_ - _tl281948282074_ - _e281953282077_ - _hd281952282080_ - _tl281951282082_ - ___splice286839286840_ - _target281967282004_ - _tl281969282006_) - (let () (declare (not safe)) (_g281945281983_))))) - (let () (declare (not safe)) (_g281945281983_)))))) + (gx#stx-null? _tl284864284901_)) + (___match289883289884_ + _e284845284964_ + _hd284844284967_ + _tl284843284969_ + _e284848284972_ + _hd284847284975_ + _tl284846284977_ + ___splice289834289835_ + _target284862284899_ + _tl284864284901_) + (let () (declare (not safe)) (_g284840284878_))))) + (let () (declare (not safe)) (_g284840284878_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd281952282080_)) - (let ((___splice286839286840_ + _hd284847284975_)) + (let ((___splice289834289835_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd281952282080_ + _hd284847284975_ '0)))) - (let ((_tl281969282006_ + (let ((_tl284864284901_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice286839286840_ '1))) - (_target281967282004_ + (##vector-ref ___splice289834289835_ '1))) + (_target284862284899_ (let () (declare (not safe)) - (##vector-ref ___splice286839286840_ '0)))) + (##vector-ref ___splice289834289835_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl281969282006_)) - (___match286888286889_ - _e281950282069_ - _hd281949282072_ - _tl281948282074_ - _e281953282077_ - _hd281952282080_ - _tl281951282082_ - ___splice286839286840_ - _target281967282004_ - _tl281969282006_) - (let () (declare (not safe)) (_g281945281983_))))) + (gx#stx-null? _tl284864284901_)) + (___match289883289884_ + _e284845284964_ + _hd284844284967_ + _tl284843284969_ + _e284848284972_ + _hd284847284975_ + _tl284846284977_ + ___splice289834289835_ + _target284862284899_ + _tl284864284901_) + (let () (declare (not safe)) (_g284840284878_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g281945281983_)))) + (_g284840284878_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd281952282080_)) - (let ((___splice286839286840_ + _hd284847284975_)) + (let ((___splice289834289835_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd281952282080_ + _hd284847284975_ '0)))) - (let ((_tl281969282006_ + (let ((_tl284864284901_ (let () (declare (not safe)) (##vector-ref - ___splice286839286840_ + ___splice289834289835_ '1))) - (_target281967282004_ + (_target284862284899_ (let () (declare (not safe)) (##vector-ref - ___splice286839286840_ + ___splice289834289835_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl281969282006_)) - (___match286888286889_ - _e281950282069_ - _hd281949282072_ - _tl281948282074_ - _e281953282077_ - _hd281952282080_ - _tl281951282082_ - ___splice286839286840_ - _target281967282004_ - _tl281969282006_) + _tl284864284901_)) + (___match289883289884_ + _e284845284964_ + _hd284844284967_ + _tl284843284969_ + _e284848284972_ + _hd284847284975_ + _tl284846284977_ + ___splice289834289835_ + _target284862284899_ + _tl284864284901_) (let () (declare (not safe)) - (_g281945281983_))))) + (_g284840284878_))))) (let () (declare (not safe)) - (_g281945281983_)))))) + (_g284840284878_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd281952282080_)) - (let ((___splice286839286840_ + (gx#stx-pair/null? _hd284847284975_)) + (let ((___splice289834289835_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd281952282080_ + _hd284847284975_ '0)))) - (let ((_tl281969282006_ + (let ((_tl284864284901_ (let () (declare (not safe)) (##vector-ref - ___splice286839286840_ + ___splice289834289835_ '1))) - (_target281967282004_ + (_target284862284899_ (let () (declare (not safe)) (##vector-ref - ___splice286839286840_ + ___splice289834289835_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl281969282006_)) - (___match286888286889_ - _e281950282069_ - _hd281949282072_ - _tl281948282074_ - _e281953282077_ - _hd281952282080_ - _tl281951282082_ - ___splice286839286840_ - _target281967282004_ - _tl281969282006_) + _tl284864284901_)) + (___match289883289884_ + _e284845284964_ + _hd284844284967_ + _tl284843284969_ + _e284848284972_ + _hd284847284975_ + _tl284846284977_ + ___splice289834289835_ + _target284862284899_ + _tl284864284901_) (let () (declare (not safe)) - (_g281945281983_))))) + (_g284840284878_))))) (let () (declare (not safe)) - (_g281945281983_)))))) - (let () (declare (not safe)) (_g281945281983_))))) - (let () (declare (not safe)) (_g281945281983_))))))))) + (_g284840284878_)))))) + (let () (declare (not safe)) (_g284840284878_))))) + (let () (declare (not safe)) (_g284840284878_))))))))) (define gxc#generate-ssxi-call% - (lambda (_stx281494_) - (let* ((___stx286891286892_ _stx281494_) - (_g281498281600_ + (lambda (_stx284389_) + (let* ((___stx289886289887_ _stx284389_) + (_g284393284495_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx286891286892_))))) - (let ((___kont286893286894_ - (lambda (_L281890_ _L281891_ _L281892_ _L281893_ _L281894_) - (let ((__tmp287171 - (let ((__tmp287178 + ___stx289886289887_))))) + (let ((___kont289888289889_ + (lambda (_L284785_ _L284786_ _L284787_ _L284788_ _L284789_) + (let ((__tmp290166 + (let ((__tmp290173 (let () (declare (not safe)) - (gxc#identifier-symbol _L281893_))) - (__tmp287172 - (let ((__tmp287177 + (gxc#identifier-symbol _L284788_))) + (__tmp290167 + (let ((__tmp290172 (let () (declare (not safe)) - (gx#stx-e _L281892_))) - (__tmp287173 - (let ((__tmp287176 + (gx#stx-e _L284787_))) + (__tmp290168 + (let ((__tmp290171 (let () (declare (not safe)) (gxc#identifier-symbol - _L281891_))) - (__tmp287174 - (let ((__tmp287175 + _L284786_))) + (__tmp290169 + (let ((__tmp290170 (let () (declare (not safe)) - (gx#stx-e _L281890_)))) + (gx#stx-e _L284785_)))) (declare (not safe)) - (cons __tmp287175 '())))) + (cons __tmp290170 '())))) (declare (not safe)) - (cons __tmp287176 __tmp287174)))) + (cons __tmp290171 __tmp290169)))) (declare (not safe)) - (cons __tmp287177 __tmp287173)))) + (cons __tmp290172 __tmp290168)))) (declare (not safe)) - (cons __tmp287178 __tmp287172)))) + (cons __tmp290173 __tmp290167)))) (declare (not safe)) - (cons 'declare-method __tmp287171)))) - (___kont286895286896_ - (lambda (_L281716_ _L281717_ _L281718_ _L281719_) - (let ((__tmp287179 - (let ((__tmp287185 + (cons 'declare-method __tmp290166)))) + (___kont289890289891_ + (lambda (_L284611_ _L284612_ _L284613_ _L284614_) + (let ((__tmp290174 + (let ((__tmp290180 (let () (declare (not safe)) - (gxc#identifier-symbol _L281718_))) - (__tmp287180 - (let ((__tmp287184 + (gxc#identifier-symbol _L284613_))) + (__tmp290175 + (let ((__tmp290179 (let () (declare (not safe)) - (gx#stx-e _L281717_))) - (__tmp287181 - (let ((__tmp287183 + (gx#stx-e _L284612_))) + (__tmp290176 + (let ((__tmp290178 (let () (declare (not safe)) (gxc#identifier-symbol - _L281716_))) - (__tmp287182 + _L284611_))) + (__tmp290177 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp287183 __tmp287182)))) + (cons __tmp290178 __tmp290177)))) (declare (not safe)) - (cons __tmp287184 __tmp287181)))) + (cons __tmp290179 __tmp290176)))) (declare (not safe)) - (cons __tmp287185 __tmp287180)))) + (cons __tmp290180 __tmp290175)))) (declare (not safe)) - (cons 'declare-method __tmp287179)))) - (___kont286897286898_ (lambda () '(begin)))) - (let ((___match287026287027_ - (lambda (_e281507281762_ - _hd281506281765_ - _tl281505281767_ - _e281510281770_ - _hd281509281773_ - _tl281508281775_ - _e281513281778_ - _hd281512281781_ - _tl281511281783_ - _e281516281786_ - _hd281515281789_ - _tl281514281791_ - _e281519281794_ - _hd281518281797_ - _tl281517281799_ - _e281522281802_ - _hd281521281805_ - _tl281520281807_ - _e281525281810_ - _hd281524281813_ - _tl281523281815_ - _e281528281818_ - _hd281527281821_ - _tl281526281823_ - _e281531281826_ - _hd281530281829_ - _tl281529281831_ - _e281534281834_ - _hd281533281837_ - _tl281532281839_ - _e281537281842_ - _hd281536281845_ - _tl281535281847_ - _e281540281850_ - _hd281539281853_ - _tl281538281855_ - _e281543281858_ - _hd281542281861_ - _tl281541281863_ - _e281546281866_ - _hd281545281869_ - _tl281544281871_ - _e281549281874_ - _hd281548281877_ - _tl281547281879_ - _e281552281882_ - _hd281551281885_ - _tl281550281887_) - (let ((_L281890_ _hd281551281885_) - (_L281891_ _hd281542281861_) - (_L281892_ _hd281533281837_) - (_L281893_ _hd281524281813_) - (_L281894_ _hd281515281789_)) + (cons 'declare-method __tmp290174)))) + (___kont289892289893_ (lambda () '(begin)))) + (let ((___match290021290022_ + (lambda (_e284402284657_ + _hd284401284660_ + _tl284400284662_ + _e284405284665_ + _hd284404284668_ + _tl284403284670_ + _e284408284673_ + _hd284407284676_ + _tl284406284678_ + _e284411284681_ + _hd284410284684_ + _tl284409284686_ + _e284414284689_ + _hd284413284692_ + _tl284412284694_ + _e284417284697_ + _hd284416284700_ + _tl284415284702_ + _e284420284705_ + _hd284419284708_ + _tl284418284710_ + _e284423284713_ + _hd284422284716_ + _tl284421284718_ + _e284426284721_ + _hd284425284724_ + _tl284424284726_ + _e284429284729_ + _hd284428284732_ + _tl284427284734_ + _e284432284737_ + _hd284431284740_ + _tl284430284742_ + _e284435284745_ + _hd284434284748_ + _tl284433284750_ + _e284438284753_ + _hd284437284756_ + _tl284436284758_ + _e284441284761_ + _hd284440284764_ + _tl284439284766_ + _e284444284769_ + _hd284443284772_ + _tl284442284774_ + _e284447284777_ + _hd284446284780_ + _tl284445284782_) + (let ((_L284785_ _hd284446284780_) + (_L284786_ _hd284437284756_) + (_L284787_ _hd284428284732_) + (_L284788_ _hd284419284708_) + (_L284789_ _hd284410284684_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L281894_ + _L284789_ 'bind-method!)) - (___kont286893286894_ - _L281890_ - _L281891_ - _L281892_ - _L281893_ - _L281894_) - (___kont286897286898_)))))) + (___kont289888289889_ + _L284785_ + _L284786_ + _L284787_ + _L284788_ + _L284789_) + (___kont289892289893_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx286891286892_)) - (let ((_e281507281762_ + (gx#stx-pair? ___stx289886289887_)) + (let ((_e284402284657_ (let () (declare (not safe)) - (gx#stx-e ___stx286891286892_)))) - (let ((_tl281505281767_ + (gx#stx-e ___stx289886289887_)))) + (let ((_tl284400284662_ (let () (declare (not safe)) - (##cdr _e281507281762_))) - (_hd281506281765_ + (##cdr _e284402284657_))) + (_hd284401284660_ (let () (declare (not safe)) - (##car _e281507281762_)))) + (##car _e284402284657_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl281505281767_)) - (let ((_e281510281770_ + (gx#stx-pair? _tl284400284662_)) + (let ((_e284405284665_ (let () (declare (not safe)) - (gx#stx-e _tl281505281767_)))) - (let ((_tl281508281775_ + (gx#stx-e _tl284400284662_)))) + (let ((_tl284403284670_ (let () (declare (not safe)) - (##cdr _e281510281770_))) - (_hd281509281773_ + (##cdr _e284405284665_))) + (_hd284404284668_ (let () (declare (not safe)) - (##car _e281510281770_)))) + (##car _e284405284665_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd281509281773_)) - (let ((_e281513281778_ + (gx#stx-pair? _hd284404284668_)) + (let ((_e284408284673_ (let () (declare (not safe)) - (gx#stx-e _hd281509281773_)))) - (let ((_tl281511281783_ + (gx#stx-e _hd284404284668_)))) + (let ((_tl284406284678_ (let () (declare (not safe)) - (##cdr _e281513281778_))) - (_hd281512281781_ + (##cdr _e284408284673_))) + (_hd284407284676_ (let () (declare (not safe)) - (##car _e281513281778_)))) + (##car _e284408284673_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd281512281781_)) + (gx#identifier? _hd284407284676_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd281512281781_)) + _hd284407284676_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl281511281783_)) - (let ((_e281516281786_ + _tl284406284678_)) + (let ((_e284411284681_ (let () (declare (not safe)) (gx#stx-e - _tl281511281783_)))) - (let ((_tl281514281791_ + _tl284406284678_)))) + (let ((_tl284409284686_ (let () (declare (not safe)) - (##cdr _e281516281786_))) - (_hd281515281789_ + (##cdr _e284411284681_))) + (_hd284410284684_ (let () (declare (not safe)) - (##car _e281516281786_)))) + (##car _e284411284681_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl281514281791_)) + _tl284409284686_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl281508281775_)) - (let ((_e281519281794_ + (gx#stx-pair? _tl284403284670_)) + (let ((_e284414284689_ (let () (declare (not safe)) - (gx#stx-e _tl281508281775_)))) - (let ((_tl281517281799_ + (gx#stx-e _tl284403284670_)))) + (let ((_tl284412284694_ (let () (declare (not safe)) - (##cdr _e281519281794_))) - (_hd281518281797_ + (##cdr _e284414284689_))) + (_hd284413284692_ (let () (declare (not safe)) - (##car _e281519281794_)))) + (##car _e284414284689_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd281518281797_)) - (let ((_e281522281802_ + (gx#stx-pair? _hd284413284692_)) + (let ((_e284417284697_ (let () (declare (not safe)) - (gx#stx-e _hd281518281797_)))) - (let ((_tl281520281807_ + (gx#stx-e _hd284413284692_)))) + (let ((_tl284415284702_ (let () (declare (not safe)) - (##cdr _e281522281802_))) - (_hd281521281805_ + (##cdr _e284417284697_))) + (_hd284416284700_ (let () (declare (not safe)) - (##car _e281522281802_)))) + (##car _e284417284697_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd281521281805_)) + (gx#identifier? _hd284416284700_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd281521281805_)) + _hd284416284700_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl281520281807_)) - (let ((_e281525281810_ + _tl284415284702_)) + (let ((_e284420284705_ (let () (declare (not safe)) (gx#stx-e - _tl281520281807_)))) - (let ((_tl281523281815_ + _tl284415284702_)))) + (let ((_tl284418284710_ (let () (declare (not safe)) - (##cdr _e281525281810_))) - (_hd281524281813_ + (##cdr _e284420284705_))) + (_hd284419284708_ (let () (declare (not safe)) - (##car _e281525281810_)))) + (##car _e284420284705_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl281523281815_)) + _tl284418284710_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl281517281799_)) - (let ((_e281528281818_ + _tl284412284694_)) + (let ((_e284423284713_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl281517281799_)))) - (let ((_tl281526281823_ + (gx#stx-e _tl284412284694_)))) + (let ((_tl284421284718_ (let () (declare (not safe)) - (##cdr _e281528281818_))) - (_hd281527281821_ + (##cdr _e284423284713_))) + (_hd284422284716_ (let () (declare (not safe)) - (##car _e281528281818_)))) + (##car _e284423284713_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd281527281821_)) - (let ((_e281531281826_ + (gx#stx-pair? _hd284422284716_)) + (let ((_e284426284721_ (let () (declare (not safe)) - (gx#stx-e _hd281527281821_)))) - (let ((_tl281529281831_ + (gx#stx-e _hd284422284716_)))) + (let ((_tl284424284726_ (let () (declare (not safe)) - (##cdr _e281531281826_))) - (_hd281530281829_ + (##cdr _e284426284721_))) + (_hd284425284724_ (let () (declare (not safe)) - (##car _e281531281826_)))) + (##car _e284426284721_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd281530281829_)) + (gx#identifier? _hd284425284724_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd281530281829_)) + (gx#stx-eq? '%#quote _hd284425284724_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl281529281831_)) - (let ((_e281534281834_ + (gx#stx-pair? _tl284424284726_)) + (let ((_e284429284729_ (let () (declare (not safe)) (gx#stx-e - _tl281529281831_)))) - (let ((_tl281532281839_ + _tl284424284726_)))) + (let ((_tl284427284734_ (let () (declare (not safe)) - (##cdr _e281534281834_))) - (_hd281533281837_ + (##cdr _e284429284729_))) + (_hd284428284732_ (let () (declare (not safe)) - (##car _e281534281834_)))) + (##car _e284429284729_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl281532281839_)) + _tl284427284734_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl281526281823_)) - (let ((_e281537281842_ + _tl284421284718_)) + (let ((_e284432284737_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl281526281823_)))) - (let ((_tl281535281847_ - (let () (declare (not safe)) (##cdr _e281537281842_))) - (_hd281536281845_ - (let () (declare (not safe)) (##car _e281537281842_)))) + (gx#stx-e _tl284421284718_)))) + (let ((_tl284430284742_ + (let () (declare (not safe)) (##cdr _e284432284737_))) + (_hd284431284740_ + (let () (declare (not safe)) (##car _e284432284737_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd281536281845_)) - (let ((_e281540281850_ + (gx#stx-pair? _hd284431284740_)) + (let ((_e284435284745_ (let () (declare (not safe)) - (gx#stx-e _hd281536281845_)))) - (let ((_tl281538281855_ + (gx#stx-e _hd284431284740_)))) + (let ((_tl284433284750_ (let () (declare (not safe)) - (##cdr _e281540281850_))) - (_hd281539281853_ + (##cdr _e284435284745_))) + (_hd284434284748_ (let () (declare (not safe)) - (##car _e281540281850_)))) + (##car _e284435284745_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd281539281853_)) + (gx#identifier? _hd284434284748_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd281539281853_)) + (gx#stx-eq? '%#ref _hd284434284748_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl281538281855_)) - (let ((_e281543281858_ + (gx#stx-pair? _tl284433284750_)) + (let ((_e284438284753_ (let () (declare (not safe)) - (gx#stx-e _tl281538281855_)))) - (let ((_tl281541281863_ + (gx#stx-e _tl284433284750_)))) + (let ((_tl284436284758_ (let () (declare (not safe)) - (##cdr _e281543281858_))) - (_hd281542281861_ + (##cdr _e284438284753_))) + (_hd284437284756_ (let () (declare (not safe)) - (##car _e281543281858_)))) + (##car _e284438284753_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl281541281863_)) + _tl284436284758_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl281535281847_)) - (let ((_e281546281866_ + _tl284430284742_)) + (let ((_e284441284761_ (let () (declare (not safe)) (gx#stx-e - _tl281535281847_)))) - (let ((_tl281544281871_ + _tl284430284742_)))) + (let ((_tl284439284766_ (let () (declare (not safe)) - (##cdr _e281546281866_))) - (_hd281545281869_ + (##cdr _e284441284761_))) + (_hd284440284764_ (let () (declare (not safe)) - (##car _e281546281866_)))) + (##car _e284441284761_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd281545281869_)) - (let ((_e281549281874_ + _hd284440284764_)) + (let ((_e284444284769_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd281545281869_)))) - (let ((_tl281547281879_ + (gx#stx-e _hd284440284764_)))) + (let ((_tl284442284774_ (let () (declare (not safe)) - (##cdr _e281549281874_))) - (_hd281548281877_ + (##cdr _e284444284769_))) + (_hd284443284772_ (let () (declare (not safe)) - (##car _e281549281874_)))) + (##car _e284444284769_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd281548281877_)) + (gx#identifier? _hd284443284772_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd281548281877_)) + (gx#stx-eq? '%#quote _hd284443284772_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl281547281879_)) - (let ((_e281552281882_ + (gx#stx-pair? _tl284442284774_)) + (let ((_e284447284777_ (let () (declare (not safe)) - (gx#stx-e _tl281547281879_)))) - (let ((_tl281550281887_ + (gx#stx-e _tl284442284774_)))) + (let ((_tl284445284782_ (let () (declare (not safe)) - (##cdr _e281552281882_))) - (_hd281551281885_ + (##cdr _e284447284777_))) + (_hd284446284780_ (let () (declare (not safe)) - (##car _e281552281882_)))) + (##car _e284447284777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl281550281887_)) + (gx#stx-null? _tl284445284782_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl281544281871_)) - (___match287026287027_ - _e281507281762_ - _hd281506281765_ - _tl281505281767_ - _e281510281770_ - _hd281509281773_ - _tl281508281775_ - _e281513281778_ - _hd281512281781_ - _tl281511281783_ - _e281516281786_ - _hd281515281789_ - _tl281514281791_ - _e281519281794_ - _hd281518281797_ - _tl281517281799_ - _e281522281802_ - _hd281521281805_ - _tl281520281807_ - _e281525281810_ - _hd281524281813_ - _tl281523281815_ - _e281528281818_ - _hd281527281821_ - _tl281526281823_ - _e281531281826_ - _hd281530281829_ - _tl281529281831_ - _e281534281834_ - _hd281533281837_ - _tl281532281839_ - _e281537281842_ - _hd281536281845_ - _tl281535281847_ - _e281540281850_ - _hd281539281853_ - _tl281538281855_ - _e281543281858_ - _hd281542281861_ - _tl281541281863_ - _e281546281866_ - _hd281545281869_ - _tl281544281871_ - _e281549281874_ - _hd281548281877_ - _tl281547281879_ - _e281552281882_ - _hd281551281885_ - _tl281550281887_) - (___kont286897286898_)) - (___kont286897286898_)))) - (___kont286897286898_)) - (___kont286897286898_)) - (___kont286897286898_)))) - (___kont286897286898_)))) + _tl284439284766_)) + (___match290021290022_ + _e284402284657_ + _hd284401284660_ + _tl284400284662_ + _e284405284665_ + _hd284404284668_ + _tl284403284670_ + _e284408284673_ + _hd284407284676_ + _tl284406284678_ + _e284411284681_ + _hd284410284684_ + _tl284409284686_ + _e284414284689_ + _hd284413284692_ + _tl284412284694_ + _e284417284697_ + _hd284416284700_ + _tl284415284702_ + _e284420284705_ + _hd284419284708_ + _tl284418284710_ + _e284423284713_ + _hd284422284716_ + _tl284421284718_ + _e284426284721_ + _hd284425284724_ + _tl284424284726_ + _e284429284729_ + _hd284428284732_ + _tl284427284734_ + _e284432284737_ + _hd284431284740_ + _tl284430284742_ + _e284435284745_ + _hd284434284748_ + _tl284433284750_ + _e284438284753_ + _hd284437284756_ + _tl284436284758_ + _e284441284761_ + _hd284440284764_ + _tl284439284766_ + _e284444284769_ + _hd284443284772_ + _tl284442284774_ + _e284447284777_ + _hd284446284780_ + _tl284445284782_) + (___kont289892289893_)) + (___kont289892289893_)))) + (___kont289892289893_)) + (___kont289892289893_)) + (___kont289892289893_)))) + (___kont289892289893_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl281535281847_)) - (if (let ((__tmp287186 + _tl284430284742_)) + (if (let ((__tmp290181 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp287186 'bind-method!)) - (let ((_L281716_ _hd281542281861_) - (_L281717_ _hd281533281837_) - (_L281718_ _hd281524281813_) - (_L281719_ _hd281515281789_)) - (___kont286895286896_ - _L281716_ - _L281717_ - _L281718_ - _L281719_)) - (___kont286897286898_)) - (___kont286897286898_))) + (gxc#runtime-identifier=? __tmp290181 'bind-method!)) + (let ((_L284611_ _hd284437284756_) + (_L284612_ _hd284428284732_) + (_L284613_ _hd284419284708_) + (_L284614_ _hd284410284684_)) + (___kont289890289891_ + _L284611_ + _L284612_ + _L284613_ + _L284614_)) + (___kont289892289893_)) + (___kont289892289893_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont286897286898_)))) - (___kont286897286898_)) - (___kont286897286898_)) - (___kont286897286898_)))) - (___kont286897286898_)))) - (___kont286897286898_)) + (___kont289892289893_)))) + (___kont289892289893_)) + (___kont289892289893_)) + (___kont289892289893_)))) + (___kont289892289893_)))) + (___kont289892289893_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont286897286898_)))) - (___kont286897286898_)) - (___kont286897286898_)) - (___kont286897286898_)))) - (___kont286897286898_)))) - (___kont286897286898_)) - (___kont286897286898_)))) + (___kont289892289893_)))) + (___kont289892289893_)) + (___kont289892289893_)) + (___kont289892289893_)))) + (___kont289892289893_)))) + (___kont289892289893_)) + (___kont289892289893_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont286897286898_)) - (___kont286897286898_)) - (___kont286897286898_)))) - (___kont286897286898_)))) - (___kont286897286898_)) - (___kont286897286898_)))) + (___kont289892289893_)) + (___kont289892289893_)) + (___kont289892289893_)))) + (___kont289892289893_)))) + (___kont289892289893_)) + (___kont289892289893_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont286897286898_)) - (___kont286897286898_)) - (___kont286897286898_)))) - (___kont286897286898_)))) - (___kont286897286898_)))) - (___kont286897286898_))))))) + (___kont289892289893_)) + (___kont289892289893_)) + (___kont289892289893_)))) + (___kont289892289893_)))) + (___kont289892289893_)))) + (___kont289892289893_))))))) (define gxc#!alias::typedecl - (lambda (_self281470_) - (let* ((_self281471281477_ _self281470_) - (_E281473281481_ - (lambda () (error '"No clause matching" _self281471281477_))) - (_K281474281486_ - (lambda (_alias-id281484_) - (let ((__tmp287187 + (lambda (_self284365_) + (let* ((_self284366284372_ _self284365_) + (_E284368284376_ + (lambda () (error '"No clause matching" _self284366284372_))) + (_K284369284381_ + (lambda (_alias-id284379_) + (let ((__tmp290182 (let () (declare (not safe)) - (cons _alias-id281484_ '())))) + (cons _alias-id284379_ '())))) (declare (not safe)) - (cons '@alias __tmp287187))))) + (cons '@alias __tmp290182))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self281471281477_ 'gxc#!alias::t)) - (let* ((_e281475281489_ + (##structure-instance-of? _self284366284372_ 'gxc#!alias::t)) + (let* ((_e284370284384_ (let () (declare (not safe)) (##unchecked-structure-ref - _self281471281477_ + _self284366284372_ '1 gxc#!type::t '#f))) - (_alias-id281492_ _e281475281489_)) + (_alias-id284387_ _e284370284384_)) (declare (not safe)) - (_K281474281486_ _alias-id281492_)) - (let () (declare (not safe)) (_E281473281481_)))))) + (_K284369284381_ _alias-id284387_)) + (let () (declare (not safe)) (_E284368284376_)))))) (let () (declare (not safe)) (bind-method! gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_self281268_) - (let* ((_self281269281283_ _self281268_) - (_E281271281287_ - (lambda () (error '"No clause matching" _self281269281283_))) - (_K281272281300_ - (lambda (_methods281290_ - _final?281291_ - _struct?281292_ - _constructor281293_ - _fields281294_ - _slots281295_ - _precendence-list281296_ - _super281297_ - _id281298_) - (let ((__tmp287188 - (let ((__tmp287189 - (let ((__tmp287190 - (let ((__tmp287191 - (let ((__tmp287192 - (let ((__tmp287193 - (let ((__tmp287194 + (lambda (_self284163_) + (let* ((_self284164284178_ _self284163_) + (_E284166284182_ + (lambda () (error '"No clause matching" _self284164284178_))) + (_K284167284195_ + (lambda (_methods284185_ + _final?284186_ + _struct?284187_ + _constructor284188_ + _fields284189_ + _slots284190_ + _precendence-list284191_ + _super284192_ + _id284193_) + (let ((__tmp290183 + (let ((__tmp290184 + (let ((__tmp290185 + (let ((__tmp290186 + (let ((__tmp290187 + (let ((__tmp290188 + (let ((__tmp290189 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp287195 - (let ((__tmp287196 - (let ((__tmp287197 - (if _methods281290_ + (let ((__tmp290190 + (let ((__tmp290191 + (let ((__tmp290192 + (if _methods284185_ (let () (declare (not safe)) (table->list - _methods281290_)) + _methods284185_)) '#f))) (declare (not safe)) - (cons __tmp287197 '())))) + (cons __tmp290192 '())))) (declare (not safe)) - (cons _final?281291_ __tmp287196)))) + (cons _final?284186_ __tmp290191)))) (declare (not safe)) - (cons _struct?281292_ __tmp287195)))) + (cons _struct?284187_ __tmp290190)))) (declare (not safe)) - (cons _constructor281293_ __tmp287194)))) + (cons _constructor284188_ __tmp290189)))) (declare (not safe)) - (cons _fields281294_ __tmp287193)))) + (cons _fields284189_ __tmp290188)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _slots281295_ - __tmp287192)))) + (cons _slots284190_ + __tmp290187)))) (declare (not safe)) - (cons _precendence-list281296_ - __tmp287191)))) + (cons _precendence-list284191_ + __tmp290186)))) (declare (not safe)) - (cons _super281297_ __tmp287190)))) + (cons _super284192_ __tmp290185)))) (declare (not safe)) - (cons _id281298_ __tmp287189)))) + (cons _id284193_ __tmp290184)))) (declare (not safe)) - (cons '@class __tmp287188))))) + (cons '@class __tmp290183))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self281269281283_ 'gxc#!class::t)) - (let* ((_e281273281303_ + (##structure-instance-of? _self284164284178_ 'gxc#!class::t)) + (let* ((_e284168284198_ (let () (declare (not safe)) (##unchecked-structure-ref - _self281269281283_ + _self284164284178_ '1 gxc#!type::t '#f))) - (_id281306_ _e281273281303_) - (_e281274281308_ + (_id284201_ _e284168284198_) + (_e284169284203_ (let () (declare (not safe)) (##unchecked-structure-ref - _self281269281283_ + _self284164284178_ '2 gxc#!class::t '#f))) - (_super281311_ _e281274281308_) - (_e281275281313_ + (_super284206_ _e284169284203_) + (_e284170284208_ (let () (declare (not safe)) (##unchecked-structure-ref - _self281269281283_ + _self284164284178_ '3 gxc#!class::t '#f))) - (_precendence-list281316_ _e281275281313_) - (_e281276281318_ + (_precendence-list284211_ _e284170284208_) + (_e284171284213_ (let () (declare (not safe)) (##unchecked-structure-ref - _self281269281283_ + _self284164284178_ '4 gxc#!class::t '#f))) - (_slots281321_ _e281276281318_) - (_e281277281323_ + (_slots284216_ _e284171284213_) + (_e284172284218_ (let () (declare (not safe)) (##unchecked-structure-ref - _self281269281283_ + _self284164284178_ '5 gxc#!class::t '#f))) - (_fields281326_ _e281277281323_) - (_e281278281328_ + (_fields284221_ _e284172284218_) + (_e284173284223_ (let () (declare (not safe)) (##unchecked-structure-ref - _self281269281283_ + _self284164284178_ '6 gxc#!class::t '#f))) - (_constructor281331_ _e281278281328_) - (_e281279281333_ + (_constructor284226_ _e284173284223_) + (_e284174284228_ (let () (declare (not safe)) (##unchecked-structure-ref - _self281269281283_ + _self284164284178_ '7 gxc#!class::t '#f))) - (_struct?281336_ _e281279281333_) - (_e281280281338_ + (_struct?284231_ _e284174284228_) + (_e284175284233_ (let () (declare (not safe)) (##unchecked-structure-ref - _self281269281283_ + _self284164284178_ '8 gxc#!class::t '#f))) - (_final?281341_ _e281280281338_) - (_e281281281343_ + (_final?284236_ _e284175284233_) + (_e284176284238_ (let () (declare (not safe)) (##unchecked-structure-ref - _self281269281283_ + _self284164284178_ '9 gxc#!class::t '#f))) - (_methods281346_ _e281281281343_)) + (_methods284241_ _e284176284238_)) (declare (not safe)) - (_K281272281300_ - _methods281346_ - _final?281341_ - _struct?281336_ - _constructor281331_ - _fields281326_ - _slots281321_ - _precendence-list281316_ - _super281311_ - _id281306_)) - (let () (declare (not safe)) (_E281271281287_)))))) + (_K284167284195_ + _methods284241_ + _final?284236_ + _struct?284231_ + _constructor284226_ + _fields284221_ + _slots284216_ + _precendence-list284211_ + _super284206_ + _id284201_)) + (let () (declare (not safe)) (_E284166284182_)))))) (let () (declare (not safe)) (bind-method! gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_self281122_) - (let* ((_self281123281129_ _self281122_) - (_E281125281133_ - (lambda () (error '"No clause matching" _self281123281129_))) - (_K281126281138_ - (lambda (_klass-id281136_) - (let ((__tmp287198 + (lambda (_self284017_) + (let* ((_self284018284024_ _self284017_) + (_E284020284028_ + (lambda () (error '"No clause matching" _self284018284024_))) + (_K284021284033_ + (lambda (_klass-id284031_) + (let ((__tmp290193 (let () (declare (not safe)) - (cons _klass-id281136_ '())))) + (cons _klass-id284031_ '())))) (declare (not safe)) - (cons '@predicate __tmp287198))))) + (cons '@predicate __tmp290193))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self281123281129_ + _self284018284024_ 'gxc#!predicate::t)) - (let* ((_e281127281141_ + (let* ((_e284022284036_ (let () (declare (not safe)) (##unchecked-structure-ref - _self281123281129_ + _self284018284024_ '1 gxc#!type::t '#f))) - (_klass-id281144_ _e281127281141_)) + (_klass-id284039_ _e284022284036_)) (declare (not safe)) - (_K281126281138_ _klass-id281144_)) - (let () (declare (not safe)) (_E281125281133_)))))) + (_K284021284033_ _klass-id284039_)) + (let () (declare (not safe)) (_E284020284028_)))))) (let () (declare (not safe)) (bind-method! gxc#!predicate::t 'typedecl gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_self280976_) - (let* ((_self280977280983_ _self280976_) - (_E280979280987_ - (lambda () (error '"No clause matching" _self280977280983_))) - (_K280980280992_ - (lambda (_klass-id280990_) - (let ((__tmp287199 + (lambda (_self283871_) + (let* ((_self283872283878_ _self283871_) + (_E283874283882_ + (lambda () (error '"No clause matching" _self283872283878_))) + (_K283875283887_ + (lambda (_klass-id283885_) + (let ((__tmp290194 (let () (declare (not safe)) - (cons _klass-id280990_ '())))) + (cons _klass-id283885_ '())))) (declare (not safe)) - (cons '@constructor __tmp287199))))) + (cons '@constructor __tmp290194))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self280977280983_ + _self283872283878_ 'gxc#!constructor::t)) - (let* ((_e280981280995_ + (let* ((_e283876283890_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280977280983_ + _self283872283878_ '1 gxc#!type::t '#f))) - (_klass-id280998_ _e280981280995_)) + (_klass-id283893_ _e283876283890_)) (declare (not safe)) - (_K280980280992_ _klass-id280998_)) - (let () (declare (not safe)) (_E280979280987_)))))) + (_K283875283887_ _klass-id283893_)) + (let () (declare (not safe)) (_E283874283882_)))))) (let () (declare (not safe)) (bind-method! @@ -1771,289 +1771,289 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_self280816_) - (let* ((_self280817280825_ _self280816_) - (_E280819280829_ - (lambda () (error '"No clause matching" _self280817280825_))) - (_K280820280836_ - (lambda (_checked?280832_ _slot280833_ _klass-id280834_) - (let ((__tmp287200 - (let ((__tmp287201 - (let ((__tmp287202 + (lambda (_self283711_) + (let* ((_self283712283720_ _self283711_) + (_E283714283724_ + (lambda () (error '"No clause matching" _self283712283720_))) + (_K283715283731_ + (lambda (_checked?283727_ _slot283728_ _klass-id283729_) + (let ((__tmp290195 + (let ((__tmp290196 + (let ((__tmp290197 (let () (declare (not safe)) - (cons _checked?280832_ '())))) + (cons _checked?283727_ '())))) (declare (not safe)) - (cons _slot280833_ __tmp287202)))) + (cons _slot283728_ __tmp290197)))) (declare (not safe)) - (cons _klass-id280834_ __tmp287201)))) + (cons _klass-id283729_ __tmp290196)))) (declare (not safe)) - (cons '@accessor __tmp287200))))) + (cons '@accessor __tmp290195))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self280817280825_ + _self283712283720_ 'gxc#!accessor::t)) - (let* ((_e280821280839_ + (let* ((_e283716283734_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280817280825_ + _self283712283720_ '1 gxc#!type::t '#f))) - (_klass-id280842_ _e280821280839_) - (_e280822280844_ + (_klass-id283737_ _e283716283734_) + (_e283717283739_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280817280825_ + _self283712283720_ '2 gxc#!accessor::t '#f))) - (_slot280847_ _e280822280844_) - (_e280823280849_ + (_slot283742_ _e283717283739_) + (_e283718283744_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280817280825_ + _self283712283720_ '3 gxc#!accessor::t '#f))) - (_checked?280852_ _e280823280849_)) + (_checked?283747_ _e283718283744_)) (declare (not safe)) - (_K280820280836_ - _checked?280852_ - _slot280847_ - _klass-id280842_)) - (let () (declare (not safe)) (_E280819280829_)))))) + (_K283715283731_ + _checked?283747_ + _slot283742_ + _klass-id283737_)) + (let () (declare (not safe)) (_E283714283724_)))))) (let () (declare (not safe)) (bind-method! gxc#!accessor::t 'typedecl gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_self280656_) - (let* ((_self280657280665_ _self280656_) - (_E280659280669_ - (lambda () (error '"No clause matching" _self280657280665_))) - (_K280660280676_ - (lambda (_checked?280672_ _slot280673_ _klass-id280674_) - (let ((__tmp287203 - (let ((__tmp287204 - (let ((__tmp287205 + (lambda (_self283551_) + (let* ((_self283552283560_ _self283551_) + (_E283554283564_ + (lambda () (error '"No clause matching" _self283552283560_))) + (_K283555283571_ + (lambda (_checked?283567_ _slot283568_ _klass-id283569_) + (let ((__tmp290198 + (let ((__tmp290199 + (let ((__tmp290200 (let () (declare (not safe)) - (cons _checked?280672_ '())))) + (cons _checked?283567_ '())))) (declare (not safe)) - (cons _slot280673_ __tmp287205)))) + (cons _slot283568_ __tmp290200)))) (declare (not safe)) - (cons _klass-id280674_ __tmp287204)))) + (cons _klass-id283569_ __tmp290199)))) (declare (not safe)) - (cons '@mutator __tmp287203))))) + (cons '@mutator __tmp290198))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self280657280665_ 'gxc#!mutator::t)) - (let* ((_e280661280679_ + (##structure-instance-of? _self283552283560_ 'gxc#!mutator::t)) + (let* ((_e283556283574_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280657280665_ + _self283552283560_ '1 gxc#!type::t '#f))) - (_klass-id280682_ _e280661280679_) - (_e280662280684_ + (_klass-id283577_ _e283556283574_) + (_e283557283579_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280657280665_ + _self283552283560_ '2 gxc#!mutator::t '#f))) - (_slot280687_ _e280662280684_) - (_e280663280689_ + (_slot283582_ _e283557283579_) + (_e283558283584_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280657280665_ + _self283552283560_ '3 gxc#!mutator::t '#f))) - (_checked?280692_ _e280663280689_)) + (_checked?283587_ _e283558283584_)) (declare (not safe)) - (_K280660280676_ - _checked?280692_ - _slot280687_ - _klass-id280682_)) - (let () (declare (not safe)) (_E280659280669_)))))) + (_K283555283571_ + _checked?283587_ + _slot283582_ + _klass-id283577_)) + (let () (declare (not safe)) (_E283554283564_)))))) (let () (declare (not safe)) (bind-method! gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_self280482_) - (let* ((_self280483280493_ _self280482_) - (_E280485280497_ - (lambda () (error '"No clause matching" _self280483280493_))) - (_K280486280508_ - (lambda (_typedecl280500_ - _inline280501_ - _dispatch280502_ - _arity280503_) - (if _inline280501_ - (let ((_$e280505_ _typedecl280500_)) - (if _$e280505_ - _$e280505_ + (lambda (_self283377_) + (let* ((_self283378283388_ _self283377_) + (_E283380283392_ + (lambda () (error '"No clause matching" _self283378283388_))) + (_K283381283403_ + (lambda (_typedecl283395_ + _inline283396_ + _dispatch283397_ + _arity283398_) + (if _inline283396_ + (let ((_$e283400_ _typedecl283395_)) + (if _$e283400_ + _$e283400_ (error '"Cannot generate typedecl for inline rules"))) - (let ((__tmp287206 - (let ((__tmp287207 + (let ((__tmp290201 + (let ((__tmp290202 (let () (declare (not safe)) - (cons _dispatch280502_ '())))) + (cons _dispatch283397_ '())))) (declare (not safe)) - (cons _arity280503_ __tmp287207)))) + (cons _arity283398_ __tmp290202)))) (declare (not safe)) - (cons '@lambda __tmp287206)))))) + (cons '@lambda __tmp290201)))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self280483280493_ 'gxc#!lambda::t)) - (let* ((_e280487280511_ + (##structure-instance-of? _self283378283388_ 'gxc#!lambda::t)) + (let* ((_e283382283406_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280483280493_ + _self283378283388_ '1 gxc#!type::t '#f))) - (_e280488280514_ + (_e283383283409_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280483280493_ + _self283378283388_ '2 gxc#!lambda::t '#f))) - (_arity280517_ _e280488280514_) - (_e280489280519_ + (_arity283412_ _e283383283409_) + (_e283384283414_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280483280493_ + _self283378283388_ '3 gxc#!lambda::t '#f))) - (_dispatch280522_ _e280489280519_) - (_e280490280524_ + (_dispatch283417_ _e283384283414_) + (_e283385283419_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280483280493_ + _self283378283388_ '4 gxc#!lambda::t '#f))) - (_inline280527_ _e280490280524_) - (_e280491280529_ + (_inline283422_ _e283385283419_) + (_e283386283424_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280483280493_ + _self283378283388_ '5 gxc#!lambda::t '#f))) - (_typedecl280532_ _e280491280529_)) + (_typedecl283427_ _e283386283424_)) (declare (not safe)) - (_K280486280508_ - _typedecl280532_ - _inline280527_ - _dispatch280522_ - _arity280517_)) - (let () (declare (not safe)) (_E280485280497_)))))) + (_K283381283403_ + _typedecl283427_ + _inline283422_ + _dispatch283417_ + _arity283412_)) + (let () (declare (not safe)) (_E283380283392_)))))) (let () (declare (not safe)) (bind-method! gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_self280293_) - (letrec ((_clause-e280295_ - (lambda (_clause280325_) - (let* ((_clause280326280334_ _clause280325_) - (_E280328280338_ + (lambda (_self283188_) + (letrec ((_clause-e283190_ + (lambda (_clause283220_) + (let* ((_clause283221283229_ _clause283220_) + (_E283223283233_ (lambda () (error '"No clause matching" - _clause280326280334_))) - (_K280329280344_ - (lambda (_dispatch280341_ _arity280342_) - (let ((__tmp287208 + _clause283221283229_))) + (_K283224283239_ + (lambda (_dispatch283236_ _arity283237_) + (let ((__tmp290203 (let () (declare (not safe)) - (cons _dispatch280341_ '())))) + (cons _dispatch283236_ '())))) (declare (not safe)) - (cons _arity280342_ __tmp287208))))) + (cons _arity283237_ __tmp290203))))) (if (let () (declare (not safe)) (##structure-instance-of? - _clause280326280334_ + _clause283221283229_ 'gxc#!lambda::t)) - (let* ((_e280330280347_ + (let* ((_e283225283242_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause280326280334_ + _clause283221283229_ '1 gxc#!type::t '#f))) - (_e280331280350_ + (_e283226283245_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause280326280334_ + _clause283221283229_ '2 gxc#!lambda::t '#f))) - (_arity280353_ _e280331280350_) - (_e280332280355_ + (_arity283248_ _e283226283245_) + (_e283227283250_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause280326280334_ + _clause283221283229_ '3 gxc#!lambda::t '#f))) - (_dispatch280358_ _e280332280355_)) + (_dispatch283253_ _e283227283250_)) (declare (not safe)) - (_K280329280344_ _dispatch280358_ _arity280353_)) - (let () (declare (not safe)) (_E280328280338_))))))) - (let* ((_self280296280303_ _self280293_) - (_E280298280307_ - (lambda () (error '"No clause matching" _self280296280303_))) - (_K280299280314_ - (lambda (_clauses280310_) - (let ((_clauses280312_ - (map _clause-e280295_ _clauses280310_))) + (_K283224283239_ _dispatch283253_ _arity283248_)) + (let () (declare (not safe)) (_E283223283233_))))))) + (let* ((_self283191283198_ _self283188_) + (_E283193283202_ + (lambda () (error '"No clause matching" _self283191283198_))) + (_K283194283209_ + (lambda (_clauses283205_) + (let ((_clauses283207_ + (map _clause-e283190_ _clauses283205_))) (declare (not safe)) - (cons '@case-lambda _clauses280312_))))) + (cons '@case-lambda _clauses283207_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self280296280303_ + _self283191283198_ 'gxc#!case-lambda::t)) - (let* ((_e280300280317_ + (let* ((_e283195283212_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280296280303_ + _self283191283198_ '1 gxc#!type::t '#f))) - (_e280301280320_ + (_e283196283215_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280296280303_ + _self283191283198_ '2 gxc#!case-lambda::t '#f))) - (_clauses280323_ _e280301280320_)) + (_clauses283218_ _e283196283215_)) (declare (not safe)) - (_K280299280314_ _clauses280323_)) - (let () (declare (not safe)) (_E280298280307_))))))) + (_K283194283209_ _clauses283218_)) + (let () (declare (not safe)) (_E283193283202_))))))) (let () (declare (not safe)) (bind-method! @@ -2062,108 +2062,108 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_self280136_) - (let* ((_self280137280145_ _self280136_) - (_E280139280149_ - (lambda () (error '"No clause matching" _self280137280145_))) - (_K280140280155_ - (lambda (_dispatch280152_ _table280153_) - (let ((__tmp287209 - (let ((__tmp287210 + (lambda (_self283031_) + (let* ((_self283032283040_ _self283031_) + (_E283034283044_ + (lambda () (error '"No clause matching" _self283032283040_))) + (_K283035283050_ + (lambda (_dispatch283047_ _table283048_) + (let ((__tmp290204 + (let ((__tmp290205 (let () (declare (not safe)) - (cons _dispatch280152_ '())))) + (cons _dispatch283047_ '())))) (declare (not safe)) - (cons _table280153_ __tmp287210)))) + (cons _table283048_ __tmp290205)))) (declare (not safe)) - (cons '@kw-lambda __tmp287209))))) + (cons '@kw-lambda __tmp290204))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self280137280145_ + _self283032283040_ 'gxc#!kw-lambda::t)) - (let* ((_e280141280158_ + (let* ((_e283036283053_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280137280145_ + _self283032283040_ '1 gxc#!type::t '#f))) - (_e280142280161_ + (_e283037283056_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280137280145_ + _self283032283040_ '2 gxc#!kw-lambda::t '#f))) - (_table280164_ _e280142280161_) - (_e280143280166_ + (_table283059_ _e283037283056_) + (_e283038283061_ (let () (declare (not safe)) (##unchecked-structure-ref - _self280137280145_ + _self283032283040_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch280169_ _e280143280166_)) + (_dispatch283064_ _e283038283061_)) (declare (not safe)) - (_K280140280155_ _dispatch280169_ _table280164_)) - (let () (declare (not safe)) (_E280139280149_)))))) + (_K283035283050_ _dispatch283064_ _table283059_)) + (let () (declare (not safe)) (_E283034283044_)))))) (let () (declare (not safe)) (bind-method! gxc#!kw-lambda::t 'typedecl gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_self279979_) - (let* ((_self279980279988_ _self279979_) - (_E279982279992_ - (lambda () (error '"No clause matching" _self279980279988_))) - (_K279983279998_ - (lambda (_main279995_ _keys279996_) - (let ((__tmp287211 - (let ((__tmp287212 + (lambda (_self282874_) + (let* ((_self282875282883_ _self282874_) + (_E282877282887_ + (lambda () (error '"No clause matching" _self282875282883_))) + (_K282878282893_ + (lambda (_main282890_ _keys282891_) + (let ((__tmp290206 + (let ((__tmp290207 (let () (declare (not safe)) - (cons _main279995_ '())))) + (cons _main282890_ '())))) (declare (not safe)) - (cons _keys279996_ __tmp287212)))) + (cons _keys282891_ __tmp290207)))) (declare (not safe)) - (cons '@kw-lambda-dispatch __tmp287211))))) + (cons '@kw-lambda-dispatch __tmp290206))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self279980279988_ + _self282875282883_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e279984280001_ + (let* ((_e282879282896_ (let () (declare (not safe)) (##unchecked-structure-ref - _self279980279988_ + _self282875282883_ '1 gxc#!type::t '#f))) - (_e279985280004_ + (_e282880282899_ (let () (declare (not safe)) (##unchecked-structure-ref - _self279980279988_ + _self282875282883_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys280007_ _e279985280004_) - (_e279986280009_ + (_keys282902_ _e282880282899_) + (_e282881282904_ (let () (declare (not safe)) (##unchecked-structure-ref - _self279980279988_ + _self282875282883_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main280012_ _e279986280009_)) + (_main282907_ _e282881282904_)) (declare (not safe)) - (_K279983279998_ _main280012_ _keys280007_)) - (let () (declare (not safe)) (_E279982279992_)))))) + (_K282878282893_ _main282907_ _keys282902_)) + (let () (declare (not safe)) (_E282877282887_)))))) (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 b7f805547..43a328e5d 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 (_$stx293491_) - (let* ((_g293495293513_ - (lambda (_g293496293509_) + (lambda (_$stx296586_) + (let* ((_g296590296608_ + (lambda (_g296591296604_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g293496293509_)))) - (_g293494293568_ - (lambda (_g293496293517_) + _g296591296604_)))) + (_g296589296663_ + (lambda (_g296591296612_) (if (let () (declare (not safe)) - (gx#stx-pair? _g293496293517_)) - (let ((_e293501293520_ + (gx#stx-pair? _g296591296612_)) + (let ((_e296596296615_ (let () (declare (not safe)) - (gx#syntax-e _g293496293517_)))) - (let ((_hd293500293524_ + (gx#syntax-e _g296591296612_)))) + (let ((_hd296595296619_ (let () (declare (not safe)) - (##car _e293501293520_))) - (_tl293499293527_ + (##car _e296596296615_))) + (_tl296594296622_ (let () (declare (not safe)) - (##cdr _e293501293520_)))) + (##cdr _e296596296615_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl293499293527_)) - (let ((_e293504293530_ + (gx#stx-pair? _tl296594296622_)) + (let ((_e296599296625_ (let () (declare (not safe)) - (gx#syntax-e _tl293499293527_)))) - (let ((_hd293503293534_ + (gx#syntax-e _tl296594296622_)))) + (let ((_hd296598296629_ (let () (declare (not safe)) - (##car _e293504293530_))) - (_tl293502293537_ + (##car _e296599296625_))) + (_tl296597296632_ (let () (declare (not safe)) - (##cdr _e293504293530_)))) + (##cdr _e296599296625_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl293502293537_)) - (let ((_e293507293540_ + (gx#stx-pair? _tl296597296632_)) + (let ((_e296602296635_ (let () (declare (not safe)) - (gx#syntax-e _tl293502293537_)))) - (let ((_hd293506293544_ + (gx#syntax-e _tl296597296632_)))) + (let ((_hd296601296639_ (let () (declare (not safe)) - (##car _e293507293540_))) - (_tl293505293547_ + (##car _e296602296635_))) + (_tl296600296642_ (let () (declare (not safe)) - (##cdr _e293507293540_)))) + (##cdr _e296602296635_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl293505293547_)) - ((lambda (_L293550_ _L293552_) + (gx#stx-null? _tl296600296642_)) + ((lambda (_L296645_ _L296647_) (if (let () (declare (not safe)) (gx#identifier? - _L293552_)) - (let ((__tmp301482 + _L296647_)) + (let ((__tmp304677 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-type!))) - (__tmp301477 - (let ((__tmp301479 + (__tmp304672 + (let ((__tmp304674 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp301481 + (let ((__tmp304676 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301480 + (__tmp304675 (let () (declare (not safe)) - (cons _L293552_ '())))) + (cons _L296647_ '())))) (declare (not safe)) - (cons __tmp301481 __tmp301480))) - (__tmp301478 - (let () (declare (not safe)) (cons _L293550_ '())))) + (cons __tmp304676 __tmp304675))) + (__tmp304673 + (let () (declare (not safe)) (cons _L296645_ '())))) (declare (not safe)) - (cons __tmp301479 __tmp301478)))) + (cons __tmp304674 __tmp304673)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp301482 - __tmp301477)) - (_g293495293513_ - _g293496293517_))) - _hd293506293544_ - _hd293503293534_) - (_g293495293513_ - _g293496293517_)))) - (_g293495293513_ _g293496293517_)))) - (_g293495293513_ _g293496293517_)))) - (_g293495293513_ _g293496293517_))))) - (_g293494293568_ _$stx293491_)))) + (cons __tmp304677 + __tmp304672)) + (_g296590296608_ + _g296591296612_))) + _hd296601296639_ + _hd296598296629_) + (_g296590296608_ + _g296591296612_)))) + (_g296590296608_ _g296591296612_)))) + (_g296590296608_ _g296591296612_)))) + (_g296590296608_ _g296591296612_))))) + (_g296589296663_ _$stx296586_)))) (define |gxc[:0:]#declare-type*| - (lambda (_$stx293572_) - (let* ((_g293576293605_ - (lambda (_g293577293601_) + (lambda (_$stx296667_) + (let* ((_g296671296700_ + (lambda (_g296672296696_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g293577293601_)))) - (_g293575293705_ - (lambda (_g293577293609_) + _g296672296696_)))) + (_g296670296800_ + (lambda (_g296672296704_) (if (let () (declare (not safe)) - (gx#stx-pair? _g293577293609_)) - (let ((_e293582293612_ + (gx#stx-pair? _g296672296704_)) + (let ((_e296677296707_ (let () (declare (not safe)) - (gx#syntax-e _g293577293609_)))) - (let ((_hd293581293616_ + (gx#syntax-e _g296672296704_)))) + (let ((_hd296676296711_ (let () (declare (not safe)) - (##car _e293582293612_))) - (_tl293580293619_ + (##car _e296677296707_))) + (_tl296675296714_ (let () (declare (not safe)) - (##cdr _e293582293612_)))) + (##cdr _e296677296707_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl293580293619_)) - (let ((_g301483_ + (gx#stx-pair/null? _tl296675296714_)) + (let ((_g304678_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl293580293619_ + _tl296675296714_ '0)))) (begin - (let ((_g301484_ + (let ((_g304679_ (let () (declare (not safe)) - (if (##values? _g301483_) - (##vector-length _g301483_) + (if (##values? _g304678_) + (##vector-length _g304678_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g301484_ 2))) + (##fx= _g304679_ 2))) (error "Context expects 2 values" - _g301484_))) - (let ((_target293583293622_ + _g304679_))) + (let ((_target296678296717_ (let () (declare (not safe)) - (##vector-ref _g301483_ 0))) - (_tl293585293625_ + (##vector-ref _g304678_ 0))) + (_tl296680296720_ (let () (declare (not safe)) - (##vector-ref _g301483_ 1)))) + (##vector-ref _g304678_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl293585293625_)) - (letrec ((_loop293586293628_ - (lambda (_hd293584293632_ - _type293590293635_ - _symbol293591293637_) + (gx#stx-null? _tl296680296720_)) + (letrec ((_loop296681296723_ + (lambda (_hd296679296727_ + _type296685296730_ + _symbol296686296732_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd293584293632_)) - (let ((_e293587293640_ + _hd296679296727_)) + (let ((_e296682296735_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd293584293632_)))) - (let ((_lp-hd293588293644_ - (let () (declare (not safe)) (##car _e293587293640_))) - (_lp-tl293589293647_ - (let () (declare (not safe)) (##cdr _e293587293640_)))) + (gx#syntax-e _hd296679296727_)))) + (let ((_lp-hd296683296739_ + (let () (declare (not safe)) (##car _e296682296735_))) + (_lp-tl296684296742_ + (let () (declare (not safe)) (##cdr _e296682296735_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd293588293644_)) - (let ((_e293596293650_ + (gx#stx-pair? _lp-hd296683296739_)) + (let ((_e296691296745_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd293588293644_)))) - (let ((_hd293595293654_ + (gx#syntax-e _lp-hd296683296739_)))) + (let ((_hd296690296749_ (let () (declare (not safe)) - (##car _e293596293650_))) - (_tl293594293657_ + (##car _e296691296745_))) + (_tl296689296752_ (let () (declare (not safe)) - (##cdr _e293596293650_)))) + (##cdr _e296691296745_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl293594293657_)) - (let ((_e293599293660_ + (gx#stx-pair? _tl296689296752_)) + (let ((_e296694296755_ (let () (declare (not safe)) - (gx#syntax-e _tl293594293657_)))) - (let ((_hd293598293664_ + (gx#syntax-e _tl296689296752_)))) + (let ((_hd296693296759_ (let () (declare (not safe)) - (##car _e293599293660_))) - (_tl293597293667_ + (##car _e296694296755_))) + (_tl296692296762_ (let () (declare (not safe)) - (##cdr _e293599293660_)))) + (##cdr _e296694296755_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl293597293667_)) - (_loop293586293628_ - _lp-tl293589293647_ + (gx#stx-null? _tl296692296762_)) + (_loop296681296723_ + _lp-tl296684296742_ (let () (declare (not safe)) - (cons _hd293598293664_ - _type293590293635_)) + (cons _hd296693296759_ + _type296685296730_)) (let () (declare (not safe)) - (cons _hd293595293654_ - _symbol293591293637_))) - (_g293576293605_ _g293577293609_)))) - (_g293576293605_ _g293577293609_)))) - (_g293576293605_ _g293577293609_)))) - (let ((_type293592293670_ (reverse _type293590293635_)) - (_symbol293593293673_ (reverse _symbol293591293637_))) - ((lambda (_L293676_ _L293678_) - (let ((__tmp301491 + (cons _hd296690296749_ + _symbol296686296732_))) + (_g296671296700_ _g296672296704_)))) + (_g296671296700_ _g296672296704_)))) + (_g296671296700_ _g296672296704_)))) + (let ((_type296687296765_ (reverse _type296685296730_)) + (_symbol296688296768_ (reverse _symbol296686296732_))) + ((lambda (_L296771_ _L296773_) + (let ((__tmp304686 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp301485 + (__tmp304680 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L293676_ - _L293678_)) - (let ((__tmp301486 - (lambda (_g293693293697_ - _g293694293700_ - _g293695293702_) - (let ((__tmp301487 - (let ((__tmp301490 + _L296771_ + _L296773_)) + (let ((__tmp304681 + (lambda (_g296788296792_ + _g296789296795_ + _g296790296797_) + (let ((__tmp304682 + (let ((__tmp304685 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp301488 - (let ((__tmp301489 + (__tmp304683 + (let ((__tmp304684 (let () (declare (not safe)) - (cons _g293693293697_ + (cons _g296788296792_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g293694293700_ - __tmp301489)))) + (cons _g296789296795_ + __tmp304684)))) (declare (not safe)) - (cons __tmp301490 __tmp301488)))) + (cons __tmp304685 __tmp304683)))) (declare (not safe)) - (cons __tmp301487 _g293695293702_))))) + (cons __tmp304682 _g296790296797_))))) (declare (not safe)) - (foldr2 __tmp301486 '() _L293676_ _L293678_))))) + (foldr2 __tmp304681 '() _L296771_ _L296773_))))) (declare (not safe)) - (cons __tmp301491 __tmp301485))) - _type293592293670_ - _symbol293593293673_)))))) + (cons __tmp304686 __tmp304680))) + _type296687296765_ + _symbol296688296768_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop293586293628_ - _target293583293622_ + (_loop296681296723_ + _target296678296717_ '() '())) - (_g293576293605_ _g293577293609_))))) - (_g293576293605_ _g293577293609_)))) - (_g293576293605_ _g293577293609_))))) - (_g293575293705_ _$stx293572_)))) + (_g296671296700_ _g296672296704_))))) + (_g296671296700_ _g296672296704_)))) + (_g296671296700_ _g296672296704_))))) + (_g296670296800_ _$stx296667_)))) (define |gxc[:0:]#declare-method| - (lambda (_$stx293710_) - (let* ((___stx301042301043_ _$stx293710_) - (_g293715293757_ + (lambda (_$stx296805_) + (let* ((___stx304237304238_ _$stx296805_) + (_g296810296852_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx301042301043_))))) - (let ((___kont301045301046_ - (lambda (_L293885_ _L293887_ _L293888_ _L293889_) - (let ((__tmp301505 + ___stx304237304238_))))) + (let ((___kont304240304241_ + (lambda (_L296980_ _L296982_ _L296983_ _L296984_) + (let ((__tmp304700 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-method!))) - (__tmp301492 - (let ((__tmp301502 - (let ((__tmp301504 + (__tmp304687 + (let ((__tmp304697 + (let ((__tmp304699 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301503 + (__tmp304698 (let () (declare (not safe)) - (cons _L293889_ '())))) + (cons _L296984_ '())))) (declare (not safe)) - (cons __tmp301504 __tmp301503))) - (__tmp301493 - (let ((__tmp301499 - (let ((__tmp301501 + (cons __tmp304699 __tmp304698))) + (__tmp304688 + (let ((__tmp304694 + (let ((__tmp304696 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301500 + (__tmp304695 (let () (declare (not safe)) - (cons _L293888_ '())))) + (cons _L296983_ '())))) (declare (not safe)) - (cons __tmp301501 __tmp301500))) - (__tmp301494 - (let ((__tmp301496 - (let ((__tmp301498 + (cons __tmp304696 __tmp304695))) + (__tmp304689 + (let ((__tmp304691 + (let ((__tmp304693 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301497 + (__tmp304692 (let () (declare (not safe)) - (cons _L293887_ '())))) + (cons _L296982_ '())))) (declare (not safe)) - (cons __tmp301498 __tmp301497))) - (__tmp301495 + (cons __tmp304693 __tmp304692))) + (__tmp304690 (let () (declare (not safe)) - (cons _L293885_ '())))) + (cons _L296980_ '())))) (declare (not safe)) - (cons __tmp301496 __tmp301495)))) + (cons __tmp304691 __tmp304690)))) (declare (not safe)) - (cons __tmp301499 __tmp301494)))) + (cons __tmp304694 __tmp304689)))) (declare (not safe)) - (cons __tmp301502 __tmp301493)))) + (cons __tmp304697 __tmp304688)))) (declare (not safe)) - (cons __tmp301505 __tmp301492)))) - (___kont301047301048_ - (lambda (_L293804_ _L293806_ _L293807_ _L293808_) - (let ((__tmp301506 - (let ((__tmp301507 - (let ((__tmp301508 - (let ((__tmp301509 - (let ((__tmp301510 + (cons __tmp304700 __tmp304687)))) + (___kont304242304243_ + (lambda (_L296899_ _L296901_ _L296902_ _L296903_) + (let ((__tmp304701 + (let ((__tmp304702 + (let ((__tmp304703 + (let ((__tmp304704 + (let ((__tmp304705 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)))) (declare (not safe)) - (cons __tmp301510 '())))) + (cons __tmp304705 '())))) (declare (not safe)) - (cons _L293804_ __tmp301509)))) + (cons _L296899_ __tmp304704)))) (declare (not safe)) - (cons _L293806_ __tmp301508)))) + (cons _L296901_ __tmp304703)))) (declare (not safe)) - (cons _L293807_ __tmp301507)))) + (cons _L296902_ __tmp304702)))) (declare (not safe)) - (cons _L293808_ __tmp301506))))) - (let ((___match301081301082_ - (lambda (_e293723293835_ - _hd293722293839_ - _tl293721293842_ - _e293726293845_ - _hd293725293849_ - _tl293724293852_ - _e293729293855_ - _hd293728293859_ - _tl293727293862_ - _e293732293865_ - _hd293731293869_ - _tl293730293872_ - _e293735293875_ - _hd293734293879_ - _tl293733293882_) - (let ((_L293885_ _hd293734293879_) - (_L293887_ _hd293731293869_) - (_L293888_ _hd293728293859_) - (_L293889_ _hd293725293849_)) + (cons _L296903_ __tmp304701))))) + (let ((___match304276304277_ + (lambda (_e296818296930_ + _hd296817296934_ + _tl296816296937_ + _e296821296940_ + _hd296820296944_ + _tl296819296947_ + _e296824296950_ + _hd296823296954_ + _tl296822296957_ + _e296827296960_ + _hd296826296964_ + _tl296825296967_ + _e296830296970_ + _hd296829296974_ + _tl296828296977_) + (let ((_L296980_ _hd296829296974_) + (_L296982_ _hd296826296964_) + (_L296983_ _hd296823296954_) + (_L296984_ _hd296820296944_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L293889_)) + (gx#identifier? _L296984_)) (let () (declare (not safe)) - (gx#identifier? _L293888_)) + (gx#identifier? _L296983_)) (let () (declare (not safe)) - (gx#identifier? _L293887_))) - (___kont301045301046_ - _L293885_ - _L293887_ - _L293888_ - _L293889_) - (let () (declare (not safe)) (_g293715293757_))))))) + (gx#identifier? _L296982_))) + (___kont304240304241_ + _L296980_ + _L296982_ + _L296983_ + _L296984_) + (let () (declare (not safe)) (_g296810296852_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx301042301043_)) - (let ((_e293723293835_ + (gx#stx-pair? ___stx304237304238_)) + (let ((_e296818296930_ (let () (declare (not safe)) - (gx#syntax-e ___stx301042301043_)))) - (let ((_tl293721293842_ - (let () (declare (not safe)) (##cdr _e293723293835_))) - (_hd293722293839_ + (gx#syntax-e ___stx304237304238_)))) + (let ((_tl296816296937_ + (let () (declare (not safe)) (##cdr _e296818296930_))) + (_hd296817296934_ (let () (declare (not safe)) - (##car _e293723293835_)))) + (##car _e296818296930_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl293721293842_)) - (let ((_e293726293845_ + (gx#stx-pair? _tl296816296937_)) + (let ((_e296821296940_ (let () (declare (not safe)) - (gx#syntax-e _tl293721293842_)))) - (let ((_tl293724293852_ + (gx#syntax-e _tl296816296937_)))) + (let ((_tl296819296947_ (let () (declare (not safe)) - (##cdr _e293726293845_))) - (_hd293725293849_ + (##cdr _e296821296940_))) + (_hd296820296944_ (let () (declare (not safe)) - (##car _e293726293845_)))) + (##car _e296821296940_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl293724293852_)) - (let ((_e293729293855_ + (gx#stx-pair? _tl296819296947_)) + (let ((_e296824296950_ (let () (declare (not safe)) - (gx#syntax-e _tl293724293852_)))) - (let ((_tl293727293862_ + (gx#syntax-e _tl296819296947_)))) + (let ((_tl296822296957_ (let () (declare (not safe)) - (##cdr _e293729293855_))) - (_hd293728293859_ + (##cdr _e296824296950_))) + (_hd296823296954_ (let () (declare (not safe)) - (##car _e293729293855_)))) + (##car _e296824296950_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl293727293862_)) - (let ((_e293732293865_ + (gx#stx-pair? _tl296822296957_)) + (let ((_e296827296960_ (let () (declare (not safe)) (gx#syntax-e - _tl293727293862_)))) - (let ((_tl293730293872_ + _tl296822296957_)))) + (let ((_tl296825296967_ (let () (declare (not safe)) - (##cdr _e293732293865_))) - (_hd293731293869_ + (##cdr _e296827296960_))) + (_hd296826296964_ (let () (declare (not safe)) - (##car _e293732293865_)))) + (##car _e296827296960_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl293730293872_)) - (let ((_e293735293875_ + _tl296825296967_)) + (let ((_e296830296970_ (let () (declare (not safe)) (gx#syntax-e - _tl293730293872_)))) - (let ((_tl293733293882_ + _tl296825296967_)))) + (let ((_tl296828296977_ (let () (declare (not safe)) - (##cdr _e293735293875_))) - (_hd293734293879_ + (##cdr _e296830296970_))) + (_hd296829296974_ (let () (declare (not safe)) - (##car _e293735293875_)))) + (##car _e296830296970_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl293733293882_)) - (___match301081301082_ - _e293723293835_ - _hd293722293839_ - _tl293721293842_ - _e293726293845_ - _hd293725293849_ - _tl293724293852_ - _e293729293855_ - _hd293728293859_ - _tl293727293862_ - _e293732293865_ - _hd293731293869_ - _tl293730293872_ - _e293735293875_ - _hd293734293879_ - _tl293733293882_) + _tl296828296977_)) + (___match304276304277_ + _e296818296930_ + _hd296817296934_ + _tl296816296937_ + _e296821296940_ + _hd296820296944_ + _tl296819296947_ + _e296824296950_ + _hd296823296954_ + _tl296822296957_ + _e296827296960_ + _hd296826296964_ + _tl296825296967_ + _e296830296970_ + _hd296829296974_ + _tl296828296977_) (let () (declare (not safe)) - (_g293715293757_))))) + (_g296810296852_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl293730293872_)) - (___kont301047301048_ - _hd293731293869_ - _hd293728293859_ - _hd293725293849_ - _hd293722293839_) + _tl296825296967_)) + (___kont304242304243_ + _hd296826296964_ + _hd296823296954_ + _hd296820296944_ + _hd296817296934_) (let () (declare (not safe)) - (_g293715293757_)))))) + (_g296810296852_)))))) (let () (declare (not safe)) - (_g293715293757_))))) + (_g296810296852_))))) (let () (declare (not safe)) - (_g293715293757_))))) - (let () (declare (not safe)) (_g293715293757_))))) - (let () (declare (not safe)) (_g293715293757_)))))))) + (_g296810296852_))))) + (let () (declare (not safe)) (_g296810296852_))))) + (let () (declare (not safe)) (_g296810296852_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_$stx293914_) - (let* ((_g293918293953_ - (lambda (_g293919293949_) + (lambda (_$stx297009_) + (let* ((_g297013297048_ + (lambda (_g297014297044_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g293919293949_)))) - (_g293917294072_ - (lambda (_g293919293957_) + _g297014297044_)))) + (_g297012297167_ + (lambda (_g297014297052_) (if (let () (declare (not safe)) - (gx#stx-pair? _g293919293957_)) - (let ((_e293925293960_ + (gx#stx-pair? _g297014297052_)) + (let ((_e297020297055_ (let () (declare (not safe)) - (gx#syntax-e _g293919293957_)))) - (let ((_hd293924293964_ + (gx#syntax-e _g297014297052_)))) + (let ((_hd297019297059_ (let () (declare (not safe)) - (##car _e293925293960_))) - (_tl293923293967_ + (##car _e297020297055_))) + (_tl297018297062_ (let () (declare (not safe)) - (##cdr _e293925293960_)))) + (##cdr _e297020297055_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl293923293967_)) - (let ((_g301511_ + (gx#stx-pair/null? _tl297018297062_)) + (let ((_g304706_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl293923293967_ + _tl297018297062_ '0)))) (begin - (let ((_g301512_ + (let ((_g304707_ (let () (declare (not safe)) - (if (##values? _g301511_) - (##vector-length _g301511_) + (if (##values? _g304706_) + (##vector-length _g304706_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g301512_ 2))) + (##fx= _g304707_ 2))) (error "Context expects 2 values" - _g301512_))) - (let ((_target293926293970_ + _g304707_))) + (let ((_target297021297065_ (let () (declare (not safe)) - (##vector-ref _g301511_ 0))) - (_tl293928293973_ + (##vector-ref _g304706_ 0))) + (_tl297023297068_ (let () (declare (not safe)) - (##vector-ref _g301511_ 1)))) + (##vector-ref _g304706_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl293928293973_)) - (letrec ((_loop293929293976_ - (lambda (_hd293927293980_ - _symbol293933293983_ - _method293934293985_ - _type-t293935293987_) + (gx#stx-null? _tl297023297068_)) + (letrec ((_loop297024297071_ + (lambda (_hd297022297075_ + _symbol297028297078_ + _method297029297080_ + _type-t297030297082_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd293927293980_)) - (let ((_e293930293990_ + _hd297022297075_)) + (let ((_e297025297085_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd293927293980_)))) - (let ((_lp-hd293931293994_ - (let () (declare (not safe)) (##car _e293930293990_))) - (_lp-tl293932293997_ - (let () (declare (not safe)) (##cdr _e293930293990_)))) + (gx#syntax-e _hd297022297075_)))) + (let ((_lp-hd297026297089_ + (let () (declare (not safe)) (##car _e297025297085_))) + (_lp-tl297027297092_ + (let () (declare (not safe)) (##cdr _e297025297085_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd293931293994_)) - (let ((_e293941294000_ + (gx#stx-pair? _lp-hd297026297089_)) + (let ((_e297036297095_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd293931293994_)))) - (let ((_hd293940294004_ + (gx#syntax-e _lp-hd297026297089_)))) + (let ((_hd297035297099_ (let () (declare (not safe)) - (##car _e293941294000_))) - (_tl293939294007_ + (##car _e297036297095_))) + (_tl297034297102_ (let () (declare (not safe)) - (##cdr _e293941294000_)))) + (##cdr _e297036297095_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl293939294007_)) - (let ((_e293944294010_ + (gx#stx-pair? _tl297034297102_)) + (let ((_e297039297105_ (let () (declare (not safe)) - (gx#syntax-e _tl293939294007_)))) - (let ((_hd293943294014_ + (gx#syntax-e _tl297034297102_)))) + (let ((_hd297038297109_ (let () (declare (not safe)) - (##car _e293944294010_))) - (_tl293942294017_ + (##car _e297039297105_))) + (_tl297037297112_ (let () (declare (not safe)) - (##cdr _e293944294010_)))) + (##cdr _e297039297105_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl293942294017_)) - (let ((_e293947294020_ + (gx#stx-pair? _tl297037297112_)) + (let ((_e297042297115_ (let () (declare (not safe)) (gx#syntax-e - _tl293942294017_)))) - (let ((_hd293946294024_ + _tl297037297112_)))) + (let ((_hd297041297119_ (let () (declare (not safe)) - (##car _e293947294020_))) - (_tl293945294027_ + (##car _e297042297115_))) + (_tl297040297122_ (let () (declare (not safe)) - (##cdr _e293947294020_)))) + (##cdr _e297042297115_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl293945294027_)) - (_loop293929293976_ - _lp-tl293932293997_ + _tl297040297122_)) + (_loop297024297071_ + _lp-tl297027297092_ (let () (declare (not safe)) - (cons _hd293946294024_ - _symbol293933293983_)) + (cons _hd297041297119_ + _symbol297028297078_)) (let () (declare (not safe)) - (cons _hd293943294014_ - _method293934293985_)) + (cons _hd297038297109_ + _method297029297080_)) (let () (declare (not safe)) - (cons _hd293940294004_ - _type-t293935293987_))) - (_g293918293953_ - _g293919293957_)))) - (_g293918293953_ _g293919293957_)))) - (_g293918293953_ _g293919293957_)))) - (_g293918293953_ _g293919293957_)))) - (let ((_symbol293936294030_ (reverse _symbol293933293983_)) - (_method293937294033_ (reverse _method293934293985_)) - (_type-t293938294035_ (reverse _type-t293935293987_))) - ((lambda (_L294038_ _L294040_ _L294041_) - (let ((__tmp301520 + (cons _hd297035297099_ + _type-t297030297082_))) + (_g297013297048_ + _g297014297052_)))) + (_g297013297048_ _g297014297052_)))) + (_g297013297048_ _g297014297052_)))) + (_g297013297048_ _g297014297052_)))) + (let ((_symbol297031297125_ (reverse _symbol297028297078_)) + (_method297032297128_ (reverse _method297029297080_)) + (_type-t297033297130_ (reverse _type-t297030297082_))) + ((lambda (_L297133_ _L297135_ _L297136_) + (let ((__tmp304715 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp301513 + (__tmp304708 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L294038_ - _L294040_ - _L294041_)) - (let ((__tmp301514 - (lambda (_g294057294062_ - _g294058294065_ - _g294059294067_ - _g294060294069_) - (let ((__tmp301515 - (let ((__tmp301519 + _L297133_ + _L297135_ + _L297136_)) + (let ((__tmp304709 + (lambda (_g297152297157_ + _g297153297160_ + _g297154297162_ + _g297155297164_) + (let ((__tmp304710 + (let ((__tmp304714 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp301516 - (let ((__tmp301517 - (let ((__tmp301518 + (__tmp304711 + (let ((__tmp304712 + (let ((__tmp304713 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _g294057294062_ '())))) + (cons _g297152297157_ '())))) (declare (not safe)) - (cons _g294058294065_ __tmp301518)))) + (cons _g297153297160_ __tmp304713)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g294059294067_ - __tmp301517)))) + (cons _g297154297162_ + __tmp304712)))) (declare (not safe)) - (cons __tmp301519 __tmp301516)))) + (cons __tmp304714 __tmp304711)))) (declare (not safe)) - (cons __tmp301515 _g294060294069_))))) + (cons __tmp304710 _g297155297164_))))) (declare (not safe)) - (foldr* __tmp301514 + (foldr* __tmp304709 '() - _L294038_ - _L294040_ - _L294041_))))) + _L297133_ + _L297135_ + _L297136_))))) (declare (not safe)) - (cons __tmp301520 __tmp301513))) - _symbol293936294030_ - _method293937294033_ - _type-t293938294035_)))))) + (cons __tmp304715 __tmp304708))) + _symbol297031297125_ + _method297032297128_ + _type-t297033297130_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop293929293976_ - _target293926293970_ + (_loop297024297071_ + _target297021297065_ '() '() '())) - (_g293918293953_ _g293919293957_))))) - (_g293918293953_ _g293919293957_)))) - (_g293918293953_ _g293919293957_))))) - (_g293917294072_ _$stx293914_)))) + (_g297013297048_ _g297014297052_))))) + (_g297013297048_ _g297014297052_)))) + (_g297013297048_ _g297014297052_))))) + (_g297012297167_ _$stx297009_)))) (define |gxc[:0:]#declare-methods| - (lambda (_$stx294077_) - (let* ((_g294081294114_ - (lambda (_g294082294110_) + (lambda (_$stx297172_) + (let* ((_g297176297209_ + (lambda (_g297177297205_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g294082294110_)))) - (_g294080294228_ - (lambda (_g294082294118_) + _g297177297205_)))) + (_g297175297323_ + (lambda (_g297177297213_) (if (let () (declare (not safe)) - (gx#stx-pair? _g294082294118_)) - (let ((_e294088294121_ + (gx#stx-pair? _g297177297213_)) + (let ((_e297183297216_ (let () (declare (not safe)) - (gx#syntax-e _g294082294118_)))) - (let ((_hd294087294125_ + (gx#syntax-e _g297177297213_)))) + (let ((_hd297182297220_ (let () (declare (not safe)) - (##car _e294088294121_))) - (_tl294086294128_ + (##car _e297183297216_))) + (_tl297181297223_ (let () (declare (not safe)) - (##cdr _e294088294121_)))) + (##cdr _e297183297216_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294086294128_)) - (let ((_e294091294131_ + (gx#stx-pair? _tl297181297223_)) + (let ((_e297186297226_ (let () (declare (not safe)) - (gx#syntax-e _tl294086294128_)))) - (let ((_hd294090294135_ + (gx#syntax-e _tl297181297223_)))) + (let ((_hd297185297230_ (let () (declare (not safe)) - (##car _e294091294131_))) - (_tl294089294138_ + (##car _e297186297226_))) + (_tl297184297233_ (let () (declare (not safe)) - (##cdr _e294091294131_)))) + (##cdr _e297186297226_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl294089294138_)) - (let ((_g301521_ + (gx#stx-pair/null? _tl297184297233_)) + (let ((_g304716_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl294089294138_ + _tl297184297233_ '0)))) (begin - (let ((_g301522_ + (let ((_g304717_ (let () (declare (not safe)) - (if (##values? _g301521_) + (if (##values? _g304716_) (##vector-length - _g301521_) + _g304716_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g301522_ 2))) + (##fx= _g304717_ 2))) (error "Context expects 2 values" - _g301522_))) - (let ((_target294092294141_ + _g304717_))) + (let ((_target297187297236_ (let () (declare (not safe)) - (##vector-ref _g301521_ 0))) - (_tl294094294144_ + (##vector-ref _g304716_ 0))) + (_tl297189297239_ (let () (declare (not safe)) - (##vector-ref _g301521_ 1)))) + (##vector-ref _g304716_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl294094294144_)) - (letrec ((_loop294095294147_ - (lambda (_hd294093294151_ + _tl297189297239_)) + (letrec ((_loop297190297242_ + (lambda (_hd297188297246_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _symbol294099294154_ - _method294100294156_) + _symbol297194297249_ + _method297195297251_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd294093294151_)) - (let ((_e294096294159_ + (gx#stx-pair? _hd297188297246_)) + (let ((_e297191297254_ (let () (declare (not safe)) - (gx#syntax-e _hd294093294151_)))) - (let ((_lp-hd294097294163_ + (gx#syntax-e _hd297188297246_)))) + (let ((_lp-hd297192297258_ (let () (declare (not safe)) - (##car _e294096294159_))) - (_lp-tl294098294166_ + (##car _e297191297254_))) + (_lp-tl297193297261_ (let () (declare (not safe)) - (##cdr _e294096294159_)))) + (##cdr _e297191297254_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd294097294163_)) - (let ((_e294105294169_ + (gx#stx-pair? _lp-hd297192297258_)) + (let ((_e297200297264_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd294097294163_)))) - (let ((_hd294104294173_ + (gx#syntax-e _lp-hd297192297258_)))) + (let ((_hd297199297268_ (let () (declare (not safe)) - (##car _e294105294169_))) - (_tl294103294176_ + (##car _e297200297264_))) + (_tl297198297271_ (let () (declare (not safe)) - (##cdr _e294105294169_)))) + (##cdr _e297200297264_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294103294176_)) - (let ((_e294108294179_ + (gx#stx-pair? _tl297198297271_)) + (let ((_e297203297274_ (let () (declare (not safe)) (gx#syntax-e - _tl294103294176_)))) - (let ((_hd294107294183_ + _tl297198297271_)))) + (let ((_hd297202297278_ (let () (declare (not safe)) - (##car _e294108294179_))) - (_tl294106294186_ + (##car _e297203297274_))) + (_tl297201297281_ (let () (declare (not safe)) - (##cdr _e294108294179_)))) + (##cdr _e297203297274_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl294106294186_)) - (_loop294095294147_ - _lp-tl294098294166_ + _tl297201297281_)) + (_loop297190297242_ + _lp-tl297193297261_ (let () (declare (not safe)) - (cons _hd294107294183_ - _symbol294099294154_)) + (cons _hd297202297278_ + _symbol297194297249_)) (let () (declare (not safe)) - (cons _hd294104294173_ - _method294100294156_))) - (_g294081294114_ - _g294082294118_)))) - (_g294081294114_ _g294082294118_)))) - (_g294081294114_ _g294082294118_)))) - (let ((_symbol294101294189_ - (reverse _symbol294099294154_)) - (_method294102294192_ - (reverse _method294100294156_))) - ((lambda (_L294195_ _L294197_ _L294198_) - (let ((__tmp301530 + (cons _hd297199297268_ + _method297195297251_))) + (_g297176297209_ + _g297177297213_)))) + (_g297176297209_ _g297177297213_)))) + (_g297176297209_ _g297177297213_)))) + (let ((_symbol297196297284_ + (reverse _symbol297194297249_)) + (_method297197297287_ + (reverse _method297195297251_))) + ((lambda (_L297290_ _L297292_ _L297293_) + (let ((__tmp304725 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp301523 + (__tmp304718 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L294195_ - _L294197_)) - (let ((__tmp301524 - (lambda (_g294216294220_ - _g294217294223_ - _g294218294225_) - (let ((__tmp301525 - (let ((__tmp301529 + _L297290_ + _L297292_)) + (let ((__tmp304719 + (lambda (_g297311297315_ + _g297312297318_ + _g297313297320_) + (let ((__tmp304720 + (let ((__tmp304724 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp301526 - (let ((__tmp301527 + (__tmp304721 + (let ((__tmp304722 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp301528 + (let ((__tmp304723 (let () (declare (not safe)) - (cons _g294216294220_ '())))) + (cons _g297311297315_ '())))) (declare (not safe)) - (cons _g294217294223_ __tmp301528)))) + (cons _g297312297318_ __tmp304723)))) (declare (not safe)) - (cons _L294198_ __tmp301527)))) + (cons _L297293_ __tmp304722)))) (declare (not safe)) - (cons __tmp301529 __tmp301526)))) + (cons __tmp304724 __tmp304721)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp301525 - _g294218294225_))))) + (cons __tmp304720 + _g297313297320_))))) (declare (not safe)) - (foldr2 __tmp301524 + (foldr2 __tmp304719 '() - _L294195_ - _L294197_))))) + _L297290_ + _L297292_))))) (declare (not safe)) - (cons __tmp301530 __tmp301523))) - _symbol294101294189_ - _method294102294192_ - _hd294090294135_)))))) + (cons __tmp304725 __tmp304718))) + _symbol297196297284_ + _method297197297287_ + _hd297185297230_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop294095294147_ - _target294092294141_ + (_loop297190297242_ + _target297187297236_ '() '())) - (_g294081294114_ - _g294082294118_))))) - (_g294081294114_ _g294082294118_)))) - (_g294081294114_ _g294082294118_)))) - (_g294081294114_ _g294082294118_))))) - (_g294080294228_ _$stx294077_)))) + (_g297176297209_ + _g297177297213_))))) + (_g297176297209_ _g297177297213_)))) + (_g297176297209_ _g297177297213_)))) + (_g297176297209_ _g297177297213_))))) + (_g297175297323_ _$stx297172_)))) (define |gxc[:0:]#@alias| - (lambda (_$stx294233_) - (let* ((_g294237294251_ - (lambda (_g294238294247_) + (lambda (_$stx297328_) + (let* ((_g297332297346_ + (lambda (_g297333297342_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g294238294247_)))) - (_g294236294292_ - (lambda (_g294238294255_) + _g297333297342_)))) + (_g297331297387_ + (lambda (_g297333297350_) (if (let () (declare (not safe)) - (gx#stx-pair? _g294238294255_)) - (let ((_e294242294258_ + (gx#stx-pair? _g297333297350_)) + (let ((_e297337297353_ (let () (declare (not safe)) - (gx#syntax-e _g294238294255_)))) - (let ((_hd294241294262_ + (gx#syntax-e _g297333297350_)))) + (let ((_hd297336297357_ (let () (declare (not safe)) - (##car _e294242294258_))) - (_tl294240294265_ + (##car _e297337297353_))) + (_tl297335297360_ (let () (declare (not safe)) - (##cdr _e294242294258_)))) + (##cdr _e297337297353_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294240294265_)) - (let ((_e294245294268_ + (gx#stx-pair? _tl297335297360_)) + (let ((_e297340297363_ (let () (declare (not safe)) - (gx#syntax-e _tl294240294265_)))) - (let ((_hd294244294272_ + (gx#syntax-e _tl297335297360_)))) + (let ((_hd297339297367_ (let () (declare (not safe)) - (##car _e294245294268_))) - (_tl294243294275_ + (##car _e297340297363_))) + (_tl297338297370_ (let () (declare (not safe)) - (##cdr _e294245294268_)))) + (##cdr _e297340297363_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl294243294275_)) - ((lambda (_L294278_) - (let ((__tmp301535 + (gx#stx-null? _tl297338297370_)) + ((lambda (_L297373_) + (let ((__tmp304730 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!alias))) - (__tmp301531 - (let ((__tmp301532 - (let ((__tmp301534 + (__tmp304726 + (let ((__tmp304727 + (let ((__tmp304729 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301533 + (__tmp304728 (let () (declare (not safe)) - (cons _L294278_ + (cons _L297373_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp301534 __tmp301533)))) + (cons __tmp304729 __tmp304728)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp301532 '())))) + (cons __tmp304727 '())))) (declare (not safe)) - (cons __tmp301535 __tmp301531))) - _hd294244294272_) - (_g294237294251_ _g294238294255_)))) - (_g294237294251_ _g294238294255_)))) - (_g294237294251_ _g294238294255_))))) - (_g294236294292_ _$stx294233_)))) + (cons __tmp304730 __tmp304726))) + _hd297339297367_) + (_g297332297346_ _g297333297350_)))) + (_g297332297346_ _g297333297350_)))) + (_g297332297346_ _g297333297350_))))) + (_g297331297387_ _$stx297328_)))) (define |gxc[:0:]#@class| - (lambda (_$stx294296_) - (let* ((_g294300294346_ - (lambda (_g294301294342_) + (lambda (_$stx297391_) + (let* ((_g297395297441_ + (lambda (_g297396297437_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g294301294342_)))) - (_g294299294499_ - (lambda (_g294301294350_) + _g297396297437_)))) + (_g297394297594_ + (lambda (_g297396297445_) (if (let () (declare (not safe)) - (gx#stx-pair? _g294301294350_)) - (let ((_e294313294353_ + (gx#stx-pair? _g297396297445_)) + (let ((_e297408297448_ (let () (declare (not safe)) - (gx#syntax-e _g294301294350_)))) - (let ((_hd294312294357_ + (gx#syntax-e _g297396297445_)))) + (let ((_hd297407297452_ (let () (declare (not safe)) - (##car _e294313294353_))) - (_tl294311294360_ + (##car _e297408297448_))) + (_tl297406297455_ (let () (declare (not safe)) - (##cdr _e294313294353_)))) + (##cdr _e297408297448_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294311294360_)) - (let ((_e294316294363_ + (gx#stx-pair? _tl297406297455_)) + (let ((_e297411297458_ (let () (declare (not safe)) - (gx#syntax-e _tl294311294360_)))) - (let ((_hd294315294367_ + (gx#syntax-e _tl297406297455_)))) + (let ((_hd297410297462_ (let () (declare (not safe)) - (##car _e294316294363_))) - (_tl294314294370_ + (##car _e297411297458_))) + (_tl297409297465_ (let () (declare (not safe)) - (##cdr _e294316294363_)))) + (##cdr _e297411297458_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294314294370_)) - (let ((_e294319294373_ + (gx#stx-pair? _tl297409297465_)) + (let ((_e297414297468_ (let () (declare (not safe)) - (gx#syntax-e _tl294314294370_)))) - (let ((_hd294318294377_ + (gx#syntax-e _tl297409297465_)))) + (let ((_hd297413297472_ (let () (declare (not safe)) - (##car _e294319294373_))) - (_tl294317294380_ + (##car _e297414297468_))) + (_tl297412297475_ (let () (declare (not safe)) - (##cdr _e294319294373_)))) + (##cdr _e297414297468_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294317294380_)) - (let ((_e294322294383_ + (gx#stx-pair? _tl297412297475_)) + (let ((_e297417297478_ (let () (declare (not safe)) (gx#syntax-e - _tl294317294380_)))) - (let ((_hd294321294387_ + _tl297412297475_)))) + (let ((_hd297416297482_ (let () (declare (not safe)) - (##car _e294322294383_))) - (_tl294320294390_ + (##car _e297417297478_))) + (_tl297415297485_ (let () (declare (not safe)) - (##cdr _e294322294383_)))) + (##cdr _e297417297478_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl294320294390_)) - (let ((_e294325294393_ + _tl297415297485_)) + (let ((_e297420297488_ (let () (declare (not safe)) (gx#syntax-e - _tl294320294390_)))) - (let ((_hd294324294397_ + _tl297415297485_)))) + (let ((_hd297419297492_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e294325294393_))) - (_tl294323294400_ - (let () (declare (not safe)) (##cdr _e294325294393_)))) + (##car _e297420297488_))) + (_tl297418297495_ + (let () (declare (not safe)) (##cdr _e297420297488_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294323294400_)) - (let ((_e294328294403_ + (gx#stx-pair? _tl297418297495_)) + (let ((_e297423297498_ (let () (declare (not safe)) - (gx#syntax-e _tl294323294400_)))) - (let ((_hd294327294407_ + (gx#syntax-e _tl297418297495_)))) + (let ((_hd297422297502_ (let () (declare (not safe)) - (##car _e294328294403_))) - (_tl294326294410_ + (##car _e297423297498_))) + (_tl297421297505_ (let () (declare (not safe)) - (##cdr _e294328294403_)))) + (##cdr _e297423297498_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294326294410_)) - (let ((_e294331294413_ + (gx#stx-pair? _tl297421297505_)) + (let ((_e297426297508_ (let () (declare (not safe)) - (gx#syntax-e _tl294326294410_)))) - (let ((_hd294330294417_ + (gx#syntax-e _tl297421297505_)))) + (let ((_hd297425297512_ (let () (declare (not safe)) - (##car _e294331294413_))) - (_tl294329294420_ + (##car _e297426297508_))) + (_tl297424297515_ (let () (declare (not safe)) - (##cdr _e294331294413_)))) + (##cdr _e297426297508_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294329294420_)) - (let ((_e294334294423_ + (gx#stx-pair? _tl297424297515_)) + (let ((_e297429297518_ (let () (declare (not safe)) - (gx#syntax-e _tl294329294420_)))) - (let ((_hd294333294427_ + (gx#syntax-e _tl297424297515_)))) + (let ((_hd297428297522_ (let () (declare (not safe)) - (##car _e294334294423_))) - (_tl294332294430_ + (##car _e297429297518_))) + (_tl297427297525_ (let () (declare (not safe)) - (##cdr _e294334294423_)))) + (##cdr _e297429297518_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294332294430_)) - (let ((_e294337294433_ + (gx#stx-pair? _tl297427297525_)) + (let ((_e297432297528_ (let () (declare (not safe)) (gx#syntax-e - _tl294332294430_)))) - (let ((_hd294336294437_ + _tl297427297525_)))) + (let ((_hd297431297532_ (let () (declare (not safe)) - (##car _e294337294433_))) - (_tl294335294440_ + (##car _e297432297528_))) + (_tl297430297535_ (let () (declare (not safe)) - (##cdr _e294337294433_)))) + (##cdr _e297432297528_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl294335294440_)) - (let ((_e294340294443_ + _tl297430297535_)) + (let ((_e297435297538_ (let () (declare (not safe)) (gx#syntax-e - _tl294335294440_)))) - (let ((_hd294339294447_ + _tl297430297535_)))) + (let ((_hd297434297542_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e294340294443_))) - (_tl294338294450_ - (let () (declare (not safe)) (##cdr _e294340294443_)))) + (##car _e297435297538_))) + (_tl297433297545_ + (let () (declare (not safe)) (##cdr _e297435297538_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl294338294450_)) - ((lambda (_L294453_ - _L294455_ - _L294456_ - _L294457_ - _L294458_ - _L294459_ - _L294460_ - _L294461_ - _L294462_) - (let ((__tmp301572 + (gx#stx-null? _tl297433297545_)) + ((lambda (_L297548_ + _L297550_ + _L297551_ + _L297552_ + _L297553_ + _L297554_ + _L297555_ + _L297556_ + _L297557_) + (let ((__tmp304767 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class))) - (__tmp301536 - (let ((__tmp301569 - (let ((__tmp301571 + (__tmp304731 + (let ((__tmp304764 + (let ((__tmp304766 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301570 + (__tmp304765 (let () (declare (not safe)) - (cons _L294462_ '())))) + (cons _L297557_ '())))) (declare (not safe)) - (cons __tmp301571 __tmp301570))) - (__tmp301537 - (let ((__tmp301566 - (let ((__tmp301568 + (cons __tmp304766 __tmp304765))) + (__tmp304732 + (let ((__tmp304761 + (let ((__tmp304763 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301567 + (__tmp304762 (let () (declare (not safe)) - (cons _L294461_ '())))) + (cons _L297556_ '())))) (declare (not safe)) - (cons __tmp301568 __tmp301567))) - (__tmp301538 - (let ((__tmp301563 - (let ((__tmp301565 + (cons __tmp304763 __tmp304762))) + (__tmp304733 + (let ((__tmp304758 + (let ((__tmp304760 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301564 + (__tmp304759 (let () (declare (not safe)) - (cons _L294460_ + (cons _L297555_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp301565 - __tmp301564))) - (__tmp301539 - (let ((__tmp301560 - (let ((__tmp301562 + (cons __tmp304760 + __tmp304759))) + (__tmp304734 + (let ((__tmp304755 + (let ((__tmp304757 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301561 - (let () (declare (not safe)) (cons _L294459_ '())))) + (__tmp304756 + (let () (declare (not safe)) (cons _L297554_ '())))) (declare (not safe)) - (cons __tmp301562 __tmp301561))) - (__tmp301540 - (let ((__tmp301557 - (let ((__tmp301559 + (cons __tmp304757 __tmp304756))) + (__tmp304735 + (let ((__tmp304752 + (let ((__tmp304754 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301558 + (__tmp304753 (let () (declare (not safe)) - (cons _L294458_ '())))) + (cons _L297553_ '())))) (declare (not safe)) - (cons __tmp301559 __tmp301558))) - (__tmp301541 - (let ((__tmp301554 - (let ((__tmp301556 + (cons __tmp304754 __tmp304753))) + (__tmp304736 + (let ((__tmp304749 + (let ((__tmp304751 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301555 + (__tmp304750 (let () (declare (not safe)) - (cons _L294457_ '())))) + (cons _L297552_ '())))) (declare (not safe)) - (cons __tmp301556 __tmp301555))) - (__tmp301542 - (let ((__tmp301551 - (let ((__tmp301553 + (cons __tmp304751 __tmp304750))) + (__tmp304737 + (let ((__tmp304746 + (let ((__tmp304748 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301552 + (__tmp304747 (let () (declare (not safe)) - (cons _L294456_ '())))) + (cons _L297551_ '())))) (declare (not safe)) - (cons __tmp301553 __tmp301552))) - (__tmp301543 - (let ((__tmp301548 - (let ((__tmp301550 + (cons __tmp304748 __tmp304747))) + (__tmp304738 + (let ((__tmp304743 + (let ((__tmp304745 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301549 + (__tmp304744 (let () (declare (not safe)) - (cons _L294455_ '())))) + (cons _L297550_ '())))) (declare (not safe)) - (cons __tmp301550 - __tmp301549))) - (__tmp301544 - (let ((__tmp301545 - (let ((__tmp301547 + (cons __tmp304745 + __tmp304744))) + (__tmp304739 + (let ((__tmp304740 + (let ((__tmp304742 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301546 + (__tmp304741 (let () (declare (not safe)) - (cons _L294453_ + (cons _L297548_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp301547 __tmp301546)))) + (cons __tmp304742 __tmp304741)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp301545 '())))) + (cons __tmp304740 '())))) (declare (not safe)) - (cons __tmp301548 __tmp301544)))) + (cons __tmp304743 __tmp304739)))) (declare (not safe)) - (cons __tmp301551 __tmp301543)))) + (cons __tmp304746 __tmp304738)))) (declare (not safe)) - (cons __tmp301554 __tmp301542)))) + (cons __tmp304749 __tmp304737)))) (declare (not safe)) - (cons __tmp301557 __tmp301541)))) + (cons __tmp304752 __tmp304736)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp301560 - __tmp301540)))) + (cons __tmp304755 + __tmp304735)))) (declare (not safe)) - (cons __tmp301563 __tmp301539)))) + (cons __tmp304758 __tmp304734)))) (declare (not safe)) - (cons __tmp301566 __tmp301538)))) + (cons __tmp304761 __tmp304733)))) (declare (not safe)) - (cons __tmp301569 __tmp301537)))) + (cons __tmp304764 __tmp304732)))) (declare (not safe)) - (cons __tmp301572 __tmp301536))) - _hd294339294447_ - _hd294336294437_ - _hd294333294427_ - _hd294330294417_ - _hd294327294407_ - _hd294324294397_ - _hd294321294387_ - _hd294318294377_ - _hd294315294367_) - (_g294300294346_ _g294301294350_)))) + (cons __tmp304767 __tmp304731))) + _hd297434297542_ + _hd297431297532_ + _hd297428297522_ + _hd297425297512_ + _hd297422297502_ + _hd297419297492_ + _hd297416297482_ + _hd297413297472_ + _hd297410297462_) + (_g297395297441_ _g297396297445_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g294300294346_ - _g294301294350_)))) - (_g294300294346_ - _g294301294350_)))) - (_g294300294346_ _g294301294350_)))) - (_g294300294346_ _g294301294350_)))) - (_g294300294346_ _g294301294350_)))) + (_g297395297441_ + _g297396297445_)))) + (_g297395297441_ + _g297396297445_)))) + (_g297395297441_ _g297396297445_)))) + (_g297395297441_ _g297396297445_)))) + (_g297395297441_ _g297396297445_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g294300294346_ - _g294301294350_)))) - (_g294300294346_ - _g294301294350_)))) - (_g294300294346_ _g294301294350_)))) - (_g294300294346_ _g294301294350_)))) - (_g294300294346_ _g294301294350_))))) - (_g294299294499_ _$stx294296_)))) + (_g297395297441_ + _g297396297445_)))) + (_g297395297441_ + _g297396297445_)))) + (_g297395297441_ _g297396297445_)))) + (_g297395297441_ _g297396297445_)))) + (_g297395297441_ _g297396297445_))))) + (_g297394297594_ _$stx297391_)))) (define |gxc[:0:]#@predicate| - (lambda (_$stx294503_) - (let* ((_g294507294521_ - (lambda (_g294508294517_) + (lambda (_$stx297598_) + (let* ((_g297602297616_ + (lambda (_g297603297612_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g294508294517_)))) - (_g294506294562_ - (lambda (_g294508294525_) + _g297603297612_)))) + (_g297601297657_ + (lambda (_g297603297620_) (if (let () (declare (not safe)) - (gx#stx-pair? _g294508294525_)) - (let ((_e294512294528_ + (gx#stx-pair? _g297603297620_)) + (let ((_e297607297623_ (let () (declare (not safe)) - (gx#syntax-e _g294508294525_)))) - (let ((_hd294511294532_ + (gx#syntax-e _g297603297620_)))) + (let ((_hd297606297627_ (let () (declare (not safe)) - (##car _e294512294528_))) - (_tl294510294535_ + (##car _e297607297623_))) + (_tl297605297630_ (let () (declare (not safe)) - (##cdr _e294512294528_)))) + (##cdr _e297607297623_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294510294535_)) - (let ((_e294515294538_ + (gx#stx-pair? _tl297605297630_)) + (let ((_e297610297633_ (let () (declare (not safe)) - (gx#syntax-e _tl294510294535_)))) - (let ((_hd294514294542_ + (gx#syntax-e _tl297605297630_)))) + (let ((_hd297609297637_ (let () (declare (not safe)) - (##car _e294515294538_))) - (_tl294513294545_ + (##car _e297610297633_))) + (_tl297608297640_ (let () (declare (not safe)) - (##cdr _e294515294538_)))) + (##cdr _e297610297633_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl294513294545_)) - ((lambda (_L294548_) - (let ((__tmp301577 + (gx#stx-null? _tl297608297640_)) + ((lambda (_L297643_) + (let ((__tmp304772 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!predicate))) - (__tmp301573 - (let ((__tmp301574 - (let ((__tmp301576 + (__tmp304768 + (let ((__tmp304769 + (let ((__tmp304771 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301575 + (__tmp304770 (let () (declare (not safe)) - (cons _L294548_ + (cons _L297643_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp301576 __tmp301575)))) + (cons __tmp304771 __tmp304770)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp301574 '())))) + (cons __tmp304769 '())))) (declare (not safe)) - (cons __tmp301577 __tmp301573))) - _hd294514294542_) - (_g294507294521_ _g294508294525_)))) - (_g294507294521_ _g294508294525_)))) - (_g294507294521_ _g294508294525_))))) - (_g294506294562_ _$stx294503_)))) + (cons __tmp304772 __tmp304768))) + _hd297609297637_) + (_g297602297616_ _g297603297620_)))) + (_g297602297616_ _g297603297620_)))) + (_g297602297616_ _g297603297620_))))) + (_g297601297657_ _$stx297598_)))) (define |gxc[:0:]#@constructor| - (lambda (_$stx294566_) - (let* ((_g294570294584_ - (lambda (_g294571294580_) + (lambda (_$stx297661_) + (let* ((_g297665297679_ + (lambda (_g297666297675_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g294571294580_)))) - (_g294569294625_ - (lambda (_g294571294588_) + _g297666297675_)))) + (_g297664297720_ + (lambda (_g297666297683_) (if (let () (declare (not safe)) - (gx#stx-pair? _g294571294588_)) - (let ((_e294575294591_ + (gx#stx-pair? _g297666297683_)) + (let ((_e297670297686_ (let () (declare (not safe)) - (gx#syntax-e _g294571294588_)))) - (let ((_hd294574294595_ + (gx#syntax-e _g297666297683_)))) + (let ((_hd297669297690_ (let () (declare (not safe)) - (##car _e294575294591_))) - (_tl294573294598_ + (##car _e297670297686_))) + (_tl297668297693_ (let () (declare (not safe)) - (##cdr _e294575294591_)))) + (##cdr _e297670297686_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294573294598_)) - (let ((_e294578294601_ + (gx#stx-pair? _tl297668297693_)) + (let ((_e297673297696_ (let () (declare (not safe)) - (gx#syntax-e _tl294573294598_)))) - (let ((_hd294577294605_ + (gx#syntax-e _tl297668297693_)))) + (let ((_hd297672297700_ (let () (declare (not safe)) - (##car _e294578294601_))) - (_tl294576294608_ + (##car _e297673297696_))) + (_tl297671297703_ (let () (declare (not safe)) - (##cdr _e294578294601_)))) + (##cdr _e297673297696_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl294576294608_)) - ((lambda (_L294611_) - (let ((__tmp301582 + (gx#stx-null? _tl297671297703_)) + ((lambda (_L297706_) + (let ((__tmp304777 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!constructor))) - (__tmp301578 - (let ((__tmp301579 - (let ((__tmp301581 + (__tmp304773 + (let ((__tmp304774 + (let ((__tmp304776 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301580 + (__tmp304775 (let () (declare (not safe)) - (cons _L294611_ + (cons _L297706_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp301581 __tmp301580)))) + (cons __tmp304776 __tmp304775)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp301579 '())))) + (cons __tmp304774 '())))) (declare (not safe)) - (cons __tmp301582 __tmp301578))) - _hd294577294605_) - (_g294570294584_ _g294571294588_)))) - (_g294570294584_ _g294571294588_)))) - (_g294570294584_ _g294571294588_))))) - (_g294569294625_ _$stx294566_)))) + (cons __tmp304777 __tmp304773))) + _hd297672297700_) + (_g297665297679_ _g297666297683_)))) + (_g297665297679_ _g297666297683_)))) + (_g297665297679_ _g297666297683_))))) + (_g297664297720_ _$stx297661_)))) (define |gxc[:0:]#@accessor| - (lambda (_$stx294629_) - (let* ((_g294633294655_ - (lambda (_g294634294651_) + (lambda (_$stx297724_) + (let* ((_g297728297750_ + (lambda (_g297729297746_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g294634294651_)))) - (_g294632294724_ - (lambda (_g294634294659_) + _g297729297746_)))) + (_g297727297819_ + (lambda (_g297729297754_) (if (let () (declare (not safe)) - (gx#stx-pair? _g294634294659_)) - (let ((_e294640294662_ + (gx#stx-pair? _g297729297754_)) + (let ((_e297735297757_ (let () (declare (not safe)) - (gx#syntax-e _g294634294659_)))) - (let ((_hd294639294666_ + (gx#syntax-e _g297729297754_)))) + (let ((_hd297734297761_ (let () (declare (not safe)) - (##car _e294640294662_))) - (_tl294638294669_ + (##car _e297735297757_))) + (_tl297733297764_ (let () (declare (not safe)) - (##cdr _e294640294662_)))) + (##cdr _e297735297757_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294638294669_)) - (let ((_e294643294672_ + (gx#stx-pair? _tl297733297764_)) + (let ((_e297738297767_ (let () (declare (not safe)) - (gx#syntax-e _tl294638294669_)))) - (let ((_hd294642294676_ + (gx#syntax-e _tl297733297764_)))) + (let ((_hd297737297771_ (let () (declare (not safe)) - (##car _e294643294672_))) - (_tl294641294679_ + (##car _e297738297767_))) + (_tl297736297774_ (let () (declare (not safe)) - (##cdr _e294643294672_)))) + (##cdr _e297738297767_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294641294679_)) - (let ((_e294646294682_ + (gx#stx-pair? _tl297736297774_)) + (let ((_e297741297777_ (let () (declare (not safe)) - (gx#syntax-e _tl294641294679_)))) - (let ((_hd294645294686_ + (gx#syntax-e _tl297736297774_)))) + (let ((_hd297740297781_ (let () (declare (not safe)) - (##car _e294646294682_))) - (_tl294644294689_ + (##car _e297741297777_))) + (_tl297739297784_ (let () (declare (not safe)) - (##cdr _e294646294682_)))) + (##cdr _e297741297777_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294644294689_)) - (let ((_e294649294692_ + (gx#stx-pair? _tl297739297784_)) + (let ((_e297744297787_ (let () (declare (not safe)) (gx#syntax-e - _tl294644294689_)))) - (let ((_hd294648294696_ + _tl297739297784_)))) + (let ((_hd297743297791_ (let () (declare (not safe)) - (##car _e294649294692_))) - (_tl294647294699_ + (##car _e297744297787_))) + (_tl297742297794_ (let () (declare (not safe)) - (##cdr _e294649294692_)))) + (##cdr _e297744297787_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl294647294699_)) - ((lambda (_L294702_ - _L294704_ - _L294705_) - (let ((__tmp301592 + _tl297742297794_)) + ((lambda (_L297797_ + _L297799_ + _L297800_) + (let ((__tmp304787 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!accessor))) - (__tmp301583 - (let ((__tmp301589 - (let ((__tmp301591 + (__tmp304778 + (let ((__tmp304784 + (let ((__tmp304786 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301590 + (__tmp304785 (let () (declare (not safe)) - (cons _L294705_ '())))) + (cons _L297800_ '())))) (declare (not safe)) - (cons __tmp301591 __tmp301590))) - (__tmp301584 - (let ((__tmp301586 - (let ((__tmp301588 + (cons __tmp304786 __tmp304785))) + (__tmp304779 + (let ((__tmp304781 + (let ((__tmp304783 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301587 + (__tmp304782 (let () (declare (not safe)) - (cons _L294704_ '())))) + (cons _L297799_ '())))) (declare (not safe)) - (cons __tmp301588 __tmp301587))) - (__tmp301585 + (cons __tmp304783 __tmp304782))) + (__tmp304780 (let () (declare (not safe)) - (cons _L294702_ '())))) + (cons _L297797_ '())))) (declare (not safe)) - (cons __tmp301586 __tmp301585)))) + (cons __tmp304781 __tmp304780)))) (declare (not safe)) - (cons __tmp301589 __tmp301584)))) + (cons __tmp304784 __tmp304779)))) (declare (not safe)) - (cons __tmp301592 __tmp301583))) + (cons __tmp304787 __tmp304778))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd294648294696_ - _hd294645294686_ - _hd294642294676_) - (_g294633294655_ - _g294634294659_)))) - (_g294633294655_ - _g294634294659_)))) - (_g294633294655_ _g294634294659_)))) - (_g294633294655_ _g294634294659_)))) - (_g294633294655_ _g294634294659_))))) - (_g294632294724_ _$stx294629_)))) + _hd297743297791_ + _hd297740297781_ + _hd297737297771_) + (_g297728297750_ + _g297729297754_)))) + (_g297728297750_ + _g297729297754_)))) + (_g297728297750_ _g297729297754_)))) + (_g297728297750_ _g297729297754_)))) + (_g297728297750_ _g297729297754_))))) + (_g297727297819_ _$stx297724_)))) (define |gxc[:0:]#@mutator| - (lambda (_$stx294728_) - (let* ((_g294732294754_ - (lambda (_g294733294750_) + (lambda (_$stx297823_) + (let* ((_g297827297849_ + (lambda (_g297828297845_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g294733294750_)))) - (_g294731294823_ - (lambda (_g294733294758_) + _g297828297845_)))) + (_g297826297918_ + (lambda (_g297828297853_) (if (let () (declare (not safe)) - (gx#stx-pair? _g294733294758_)) - (let ((_e294739294761_ + (gx#stx-pair? _g297828297853_)) + (let ((_e297834297856_ (let () (declare (not safe)) - (gx#syntax-e _g294733294758_)))) - (let ((_hd294738294765_ + (gx#syntax-e _g297828297853_)))) + (let ((_hd297833297860_ (let () (declare (not safe)) - (##car _e294739294761_))) - (_tl294737294768_ + (##car _e297834297856_))) + (_tl297832297863_ (let () (declare (not safe)) - (##cdr _e294739294761_)))) + (##cdr _e297834297856_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294737294768_)) - (let ((_e294742294771_ + (gx#stx-pair? _tl297832297863_)) + (let ((_e297837297866_ (let () (declare (not safe)) - (gx#syntax-e _tl294737294768_)))) - (let ((_hd294741294775_ + (gx#syntax-e _tl297832297863_)))) + (let ((_hd297836297870_ (let () (declare (not safe)) - (##car _e294742294771_))) - (_tl294740294778_ + (##car _e297837297866_))) + (_tl297835297873_ (let () (declare (not safe)) - (##cdr _e294742294771_)))) + (##cdr _e297837297866_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294740294778_)) - (let ((_e294745294781_ + (gx#stx-pair? _tl297835297873_)) + (let ((_e297840297876_ (let () (declare (not safe)) - (gx#syntax-e _tl294740294778_)))) - (let ((_hd294744294785_ + (gx#syntax-e _tl297835297873_)))) + (let ((_hd297839297880_ (let () (declare (not safe)) - (##car _e294745294781_))) - (_tl294743294788_ + (##car _e297840297876_))) + (_tl297838297883_ (let () (declare (not safe)) - (##cdr _e294745294781_)))) + (##cdr _e297840297876_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294743294788_)) - (let ((_e294748294791_ + (gx#stx-pair? _tl297838297883_)) + (let ((_e297843297886_ (let () (declare (not safe)) (gx#syntax-e - _tl294743294788_)))) - (let ((_hd294747294795_ + _tl297838297883_)))) + (let ((_hd297842297890_ (let () (declare (not safe)) - (##car _e294748294791_))) - (_tl294746294798_ + (##car _e297843297886_))) + (_tl297841297893_ (let () (declare (not safe)) - (##cdr _e294748294791_)))) + (##cdr _e297843297886_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl294746294798_)) - ((lambda (_L294801_ - _L294803_ - _L294804_) - (let ((__tmp301602 + _tl297841297893_)) + ((lambda (_L297896_ + _L297898_ + _L297899_) + (let ((__tmp304797 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!mutator))) - (__tmp301593 - (let ((__tmp301599 - (let ((__tmp301601 + (__tmp304788 + (let ((__tmp304794 + (let ((__tmp304796 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301600 + (__tmp304795 (let () (declare (not safe)) - (cons _L294804_ '())))) + (cons _L297899_ '())))) (declare (not safe)) - (cons __tmp301601 __tmp301600))) - (__tmp301594 - (let ((__tmp301596 - (let ((__tmp301598 + (cons __tmp304796 __tmp304795))) + (__tmp304789 + (let ((__tmp304791 + (let ((__tmp304793 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301597 + (__tmp304792 (let () (declare (not safe)) - (cons _L294803_ '())))) + (cons _L297898_ '())))) (declare (not safe)) - (cons __tmp301598 __tmp301597))) - (__tmp301595 + (cons __tmp304793 __tmp304792))) + (__tmp304790 (let () (declare (not safe)) - (cons _L294801_ '())))) + (cons _L297896_ '())))) (declare (not safe)) - (cons __tmp301596 __tmp301595)))) + (cons __tmp304791 __tmp304790)))) (declare (not safe)) - (cons __tmp301599 __tmp301594)))) + (cons __tmp304794 __tmp304789)))) (declare (not safe)) - (cons __tmp301602 __tmp301593))) + (cons __tmp304797 __tmp304788))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd294747294795_ - _hd294744294785_ - _hd294741294775_) - (_g294732294754_ - _g294733294758_)))) - (_g294732294754_ - _g294733294758_)))) - (_g294732294754_ _g294733294758_)))) - (_g294732294754_ _g294733294758_)))) - (_g294732294754_ _g294733294758_))))) - (_g294731294823_ _$stx294728_)))) + _hd297842297890_ + _hd297839297880_ + _hd297836297870_) + (_g297827297849_ + _g297828297853_)))) + (_g297827297849_ + _g297828297853_)))) + (_g297827297849_ _g297828297853_)))) + (_g297827297849_ _g297828297853_)))) + (_g297827297849_ _g297828297853_))))) + (_g297826297918_ _$stx297823_)))) (define |gxc[:0:]#@lambda| - (lambda (_$stx294827_) - (let* ((___stx301110301111_ _$stx294827_) - (_g294835294903_ + (lambda (_$stx297922_) + (let* ((___stx304305304306_ _$stx297922_) + (_g297930297998_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx301110301111_))))) - (let ((___kont301113301114_ - (lambda (_L295181_ _L295183_) - (let ((__tmp301618 + ___stx304305304306_))))) + (let ((___kont304308304309_ + (lambda (_L298276_ _L298278_) + (let ((__tmp304813 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp301603 - (let ((__tmp301614 - (let ((__tmp301617 + (__tmp304798 + (let ((__tmp304809 + (let ((__tmp304812 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301615 - (let ((__tmp301616 + (__tmp304810 + (let ((__tmp304811 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp301616 '())))) + (cons __tmp304811 '())))) (declare (not safe)) - (cons __tmp301617 __tmp301615))) - (__tmp301604 - (let ((__tmp301611 - (let ((__tmp301613 + (cons __tmp304812 __tmp304810))) + (__tmp304799 + (let ((__tmp304806 + (let ((__tmp304808 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301612 + (__tmp304807 (let () (declare (not safe)) - (cons _L295183_ '())))) + (cons _L298278_ '())))) (declare (not safe)) - (cons __tmp301613 __tmp301612))) - (__tmp301605 - (let ((__tmp301606 - (let ((__tmp301607 - (let ((__tmp301608 - (let ((__tmp301610 + (cons __tmp304808 __tmp304807))) + (__tmp304800 + (let ((__tmp304801 + (let ((__tmp304802 + (let ((__tmp304803 + (let ((__tmp304805 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301609 - (let () (declare (not safe)) (cons _L295181_ '())))) + (__tmp304804 + (let () (declare (not safe)) (cons _L298276_ '())))) (declare (not safe)) - (cons __tmp301610 __tmp301609)))) + (cons __tmp304805 __tmp304804)))) (declare (not safe)) - (cons __tmp301608 '())))) + (cons __tmp304803 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L295181_ __tmp301607)))) + (cons _L298276_ __tmp304802)))) (declare (not safe)) - (cons '#f __tmp301606)))) + (cons '#f __tmp304801)))) (declare (not safe)) - (cons __tmp301611 __tmp301605)))) + (cons __tmp304806 __tmp304800)))) (declare (not safe)) - (cons __tmp301614 __tmp301604)))) + (cons __tmp304809 __tmp304799)))) (declare (not safe)) - (cons __tmp301618 __tmp301603)))) - (___kont301115301116_ - (lambda (_L295112_ _L295114_) - (let ((__tmp301619 - (let ((__tmp301620 - (let ((__tmp301621 + (cons __tmp304813 __tmp304798)))) + (___kont304310304311_ + (lambda (_L298207_ _L298209_) + (let ((__tmp304814 + (let ((__tmp304815 + (let ((__tmp304816 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L295112_ __tmp301621)))) + (cons _L298207_ __tmp304816)))) (declare (not safe)) - (cons 'primitive: __tmp301620)))) + (cons 'primitive: __tmp304815)))) (declare (not safe)) - (cons _L295114_ __tmp301619)))) - (___kont301117301118_ - (lambda (_L295051_ _L295053_) - (let ((__tmp301635 + (cons _L298209_ __tmp304814)))) + (___kont304312304313_ + (lambda (_L298146_ _L298148_) + (let ((__tmp304830 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-lambda))) - (__tmp301622 - (let ((__tmp301631 - (let ((__tmp301634 + (__tmp304817 + (let ((__tmp304826 + (let ((__tmp304829 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301632 - (let ((__tmp301633 + (__tmp304827 + (let ((__tmp304828 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp301633 '())))) + (cons __tmp304828 '())))) (declare (not safe)) - (cons __tmp301634 __tmp301632))) - (__tmp301623 - (let ((__tmp301628 - (let ((__tmp301630 + (cons __tmp304829 __tmp304827))) + (__tmp304818 + (let ((__tmp304823 + (let ((__tmp304825 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301629 + (__tmp304824 (let () (declare (not safe)) - (cons _L295053_ '())))) + (cons _L298148_ '())))) (declare (not safe)) - (cons __tmp301630 __tmp301629))) - (__tmp301624 - (let ((__tmp301625 - (let ((__tmp301627 + (cons __tmp304825 __tmp304824))) + (__tmp304819 + (let ((__tmp304820 + (let ((__tmp304822 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301626 + (__tmp304821 (let () (declare (not safe)) - (cons _L295051_ '())))) + (cons _L298146_ '())))) (declare (not safe)) - (cons __tmp301627 - __tmp301626)))) + (cons __tmp304822 + __tmp304821)))) (declare (not safe)) - (cons __tmp301625 '())))) + (cons __tmp304820 '())))) (declare (not safe)) - (cons __tmp301628 __tmp301624)))) + (cons __tmp304823 __tmp304819)))) (declare (not safe)) - (cons __tmp301631 __tmp301623)))) + (cons __tmp304826 __tmp304818)))) (declare (not safe)) - (cons __tmp301635 __tmp301622)))) - (___kont301119301120_ - (lambda (_L294983_ _L294985_) - (let ((__tmp301649 + (cons __tmp304830 __tmp304817)))) + (___kont304314304315_ + (lambda (_L298078_ _L298080_) + (let ((__tmp304844 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp301636 - (let ((__tmp301645 - (let ((__tmp301648 + (__tmp304831 + (let ((__tmp304840 + (let ((__tmp304843 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301646 - (let ((__tmp301647 + (__tmp304841 + (let ((__tmp304842 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp301647 '())))) + (cons __tmp304842 '())))) (declare (not safe)) - (cons __tmp301648 __tmp301646))) - (__tmp301637 - (let ((__tmp301642 - (let ((__tmp301644 + (cons __tmp304843 __tmp304841))) + (__tmp304832 + (let ((__tmp304837 + (let ((__tmp304839 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301643 + (__tmp304838 (let () (declare (not safe)) - (cons _L294985_ '())))) + (cons _L298080_ '())))) (declare (not safe)) - (cons __tmp301644 __tmp301643))) - (__tmp301638 - (let ((__tmp301639 - (let ((__tmp301641 + (cons __tmp304839 __tmp304838))) + (__tmp304833 + (let ((__tmp304834 + (let ((__tmp304836 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301640 + (__tmp304835 (let () (declare (not safe)) - (cons _L294983_ '())))) + (cons _L298078_ '())))) (declare (not safe)) - (cons __tmp301641 - __tmp301640)))) + (cons __tmp304836 + __tmp304835)))) (declare (not safe)) - (cons __tmp301639 '())))) + (cons __tmp304834 '())))) (declare (not safe)) - (cons __tmp301642 __tmp301638)))) + (cons __tmp304837 __tmp304833)))) (declare (not safe)) - (cons __tmp301645 __tmp301637)))) + (cons __tmp304840 __tmp304832)))) (declare (not safe)) - (cons __tmp301649 __tmp301636)))) - (___kont301121301122_ - (lambda (_L294930_ _L294932_) - (let ((__tmp301650 - (let ((__tmp301651 + (cons __tmp304844 __tmp304831)))) + (___kont304316304317_ + (lambda (_L298025_ _L298027_) + (let ((__tmp304845 + (let ((__tmp304846 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L294930_ __tmp301651)))) + (cons _L298025_ __tmp304846)))) (declare (not safe)) - (cons _L294932_ __tmp301650))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx301110301111_)) - (let ((_e294841295137_ + (cons _L298027_ __tmp304845))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx304305304306_)) + (let ((_e297936298232_ (let () (declare (not safe)) - (gx#syntax-e ___stx301110301111_)))) - (let ((_tl294839295144_ - (let () (declare (not safe)) (##cdr _e294841295137_))) - (_hd294840295141_ - (let () (declare (not safe)) (##car _e294841295137_)))) + (gx#syntax-e ___stx304305304306_)))) + (let ((_tl297934298239_ + (let () (declare (not safe)) (##cdr _e297936298232_))) + (_hd297935298236_ + (let () (declare (not safe)) (##car _e297936298232_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294839295144_)) - (let ((_e294844295147_ + (gx#stx-pair? _tl297934298239_)) + (let ((_e297939298242_ (let () (declare (not safe)) - (gx#syntax-e _tl294839295144_)))) - (let ((_tl294842295154_ + (gx#syntax-e _tl297934298239_)))) + (let ((_tl297937298249_ (let () (declare (not safe)) - (##cdr _e294844295147_))) - (_hd294843295151_ + (##cdr _e297939298242_))) + (_hd297938298246_ (let () (declare (not safe)) - (##car _e294844295147_)))) + (##car _e297939298242_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl294842295154_)) - (let ((_e294847295157_ + (gx#stx-pair? _tl297937298249_)) + (let ((_e297942298252_ (let () (declare (not safe)) - (gx#syntax-e _tl294842295154_)))) - (let ((_tl294845295164_ + (gx#syntax-e _tl297937298249_)))) + (let ((_tl297940298259_ (let () (declare (not safe)) - (##cdr _e294847295157_))) - (_hd294846295161_ + (##cdr _e297942298252_))) + (_hd297941298256_ (let () (declare (not safe)) - (##car _e294847295157_)))) + (##car _e297942298252_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd294846295161_)) - (let ((_e294848295167_ + (gx#stx-datum? _hd297941298256_)) + (let ((_e297943298262_ (let () (declare (not safe)) - (gx#stx-e _hd294846295161_)))) + (gx#stx-e _hd297941298256_)))) (if (let () (declare (not safe)) - (equal? _e294848295167_ + (equal? _e297943298262_ 'inline:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl294845295164_)) - (let ((_e294851295171_ + _tl297940298259_)) + (let ((_e297946298266_ (let () (declare (not safe)) (gx#syntax-e - _tl294845295164_)))) - (let ((_tl294849295178_ + _tl297940298259_)))) + (let ((_tl297944298273_ (let () (declare (not safe)) - (##cdr _e294851295171_))) - (_hd294850295175_ + (##cdr _e297946298266_))) + (_hd297945298270_ (let () (declare (not safe)) - (##car _e294851295171_)))) + (##car _e297946298266_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl294849295178_)) - (___kont301113301114_ - _hd294850295175_ - _hd294843295151_) + _tl297944298273_)) + (___kont304308304309_ + _hd297945298270_ + _hd297938298246_) (if (let () (declare (not safe)) (gx#stx-datum? - _hd294843295151_)) - (let ((_e294860295098_ + _hd297938298246_)) + (let ((_e297955298193_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd294843295151_)))) + (gx#stx-e _hd297938298246_)))) (declare (not safe)) - (_g294835294903_)) - (let () (declare (not safe)) (_g294835294903_)))))) + (_g297930297998_)) + (let () (declare (not safe)) (_g297930297998_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _hd294843295151_)) - (let ((_e294860295098_ + _hd297938298246_)) + (let ((_e297955298193_ (let () (declare (not safe)) (gx#stx-e - _hd294843295151_)))) + _hd297938298246_)))) (if (let () (declare (not safe)) - (equal? _e294860295098_ + (equal? _e297955298193_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'primitive:)) (if (let () (declare (not safe)) - (gx#stx-null? _tl294845295164_)) - (___kont301115301116_ _hd294846295161_ _hd294840295141_) - (let () (declare (not safe)) (_g294835294903_))) + (gx#stx-null? _tl297940298259_)) + (___kont304310304311_ _hd297941298256_ _hd297935298236_) + (let () (declare (not safe)) (_g297930297998_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl294845295164_)) - (___kont301119301120_ _hd294846295161_ _hd294843295151_) - (let () (declare (not safe)) (_g294835294903_))))) + (gx#stx-null? _tl297940298259_)) + (___kont304314304315_ _hd297941298256_ _hd297938298246_) + (let () (declare (not safe)) (_g297930297998_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl294845295164_)) - (___kont301119301120_ - _hd294846295161_ - _hd294843295151_) + _tl297940298259_)) + (___kont304314304315_ + _hd297941298256_ + _hd297938298246_) (let () (declare (not safe)) - (_g294835294903_))))) + (_g297930297998_))))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd294843295151_)) - (let ((_e294860295098_ + _hd297938298246_)) + (let ((_e297955298193_ (let () (declare (not safe)) (gx#stx-e - _hd294843295151_)))) + _hd297938298246_)))) (if (let () (declare (not safe)) - (equal? _e294860295098_ + (equal? _e297955298193_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl294845295164_)) - (___kont301115301116_ - _hd294846295161_ - _hd294840295141_) + _tl297940298259_)) + (___kont304310304311_ + _hd297941298256_ + _hd297935298236_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl294845295164_)) - (let ((_e294878295041_ + (gx#stx-pair? _tl297940298259_)) + (let ((_e297973298136_ (let () (declare (not safe)) - (gx#syntax-e _tl294845295164_)))) - (let ((_tl294876295048_ + (gx#syntax-e _tl297940298259_)))) + (let ((_tl297971298143_ (let () (declare (not safe)) - (##cdr _e294878295041_))) - (_hd294877295045_ + (##cdr _e297973298136_))) + (_hd297972298140_ (let () (declare (not safe)) - (##car _e294878295041_)))) + (##car _e297973298136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl294876295048_)) - (___kont301117301118_ - _hd294877295045_ - _hd294846295161_) + (gx#stx-null? _tl297971298143_)) + (___kont304312304313_ + _hd297972298140_ + _hd297941298256_) (let () (declare (not safe)) - (_g294835294903_))))) - (let () (declare (not safe)) (_g294835294903_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl294845295164_)) - (___kont301119301120_ _hd294846295161_ _hd294843295151_) - (let () (declare (not safe)) (_g294835294903_))))) + (_g297930297998_))))) + (let () (declare (not safe)) (_g297930297998_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl297940298259_)) + (___kont304314304315_ _hd297941298256_ _hd297938298246_) + (let () (declare (not safe)) (_g297930297998_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl294845295164_)) - (___kont301119301120_ - _hd294846295161_ - _hd294843295151_) + _tl297940298259_)) + (___kont304314304315_ + _hd297941298256_ + _hd297938298246_) (let () (declare (not safe)) - (_g294835294903_)))))) + (_g297930297998_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd294843295151_)) - (let ((_e294860295098_ + (gx#stx-datum? _hd297938298246_)) + (let ((_e297955298193_ (let () (declare (not safe)) (gx#stx-e - _hd294843295151_)))) + _hd297938298246_)))) (if (let () (declare (not safe)) - (equal? _e294860295098_ + (equal? _e297955298193_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl294845295164_)) - (___kont301115301116_ - _hd294846295161_ - _hd294840295141_) + _tl297940298259_)) + (___kont304310304311_ + _hd297941298256_ + _hd297935298236_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl294845295164_)) - (let ((_e294878295041_ + _tl297940298259_)) + (let ((_e297973298136_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl294845295164_)))) - (let ((_tl294876295048_ - (let () (declare (not safe)) (##cdr _e294878295041_))) - (_hd294877295045_ + (gx#syntax-e _tl297940298259_)))) + (let ((_tl297971298143_ + (let () (declare (not safe)) (##cdr _e297973298136_))) + (_hd297972298140_ (let () (declare (not safe)) - (##car _e294878295041_)))) + (##car _e297973298136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl294876295048_)) - (___kont301117301118_ - _hd294877295045_ - _hd294846295161_) - (let () (declare (not safe)) (_g294835294903_))))) - (let () (declare (not safe)) (_g294835294903_)))) + (gx#stx-null? _tl297971298143_)) + (___kont304312304313_ + _hd297972298140_ + _hd297941298256_) + (let () (declare (not safe)) (_g297930297998_))))) + (let () (declare (not safe)) (_g297930297998_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl294845295164_)) - (___kont301119301120_ - _hd294846295161_ - _hd294843295151_) + _tl297940298259_)) + (___kont304314304315_ + _hd297941298256_ + _hd297938298246_) (let () (declare (not safe)) - (_g294835294903_))))) + (_g297930297998_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl294845295164_)) - (___kont301119301120_ - _hd294846295161_ - _hd294843295151_) + _tl297940298259_)) + (___kont304314304315_ + _hd297941298256_ + _hd297938298246_) (let () (declare (not safe)) - (_g294835294903_))))))) + (_g297930297998_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd294843295151_)) - (let ((_e294860295098_ + (gx#stx-datum? _hd297938298246_)) + (let ((_e297955298193_ (let () (declare (not safe)) - (gx#stx-e _hd294843295151_)))) + (gx#stx-e _hd297938298246_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl294842295154_)) - (___kont301121301122_ - _hd294843295151_ - _hd294840295141_) + (gx#stx-null? _tl297937298249_)) + (___kont304316304317_ + _hd297938298246_ + _hd297935298236_) (let () (declare (not safe)) - (_g294835294903_)))) + (_g297930297998_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl294842295154_)) - (___kont301121301122_ - _hd294843295151_ - _hd294840295141_) + (gx#stx-null? _tl297937298249_)) + (___kont304316304317_ + _hd297938298246_ + _hd297935298236_) (let () (declare (not safe)) - (_g294835294903_))))))) - (let () (declare (not safe)) (_g294835294903_))))) - (let () (declare (not safe)) (_g294835294903_))))))) + (_g297930297998_))))))) + (let () (declare (not safe)) (_g297930297998_))))) + (let () (declare (not safe)) (_g297930297998_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_$stx295205_) - (let* ((___stx301250301251_ _$stx295205_) - (_g295210295265_ + (lambda (_$stx298300_) + (let* ((___stx304445304446_ _$stx298300_) + (_g298305298360_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx301250301251_))))) - (let ((___kont301253301254_ - (lambda (_L295450_ _L295452_) - (let ((__tmp301667 + ___stx304445304446_))))) + (let ((___kont304448304449_ + (lambda (_L298545_ _L298547_) + (let ((__tmp304862 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-case-lambda))) - (__tmp301652 - (let ((__tmp301663 - (let ((__tmp301666 + (__tmp304847 + (let ((__tmp304858 + (let ((__tmp304861 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301664 - (let ((__tmp301665 + (__tmp304859 + (let ((__tmp304860 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp301665 '())))) + (cons __tmp304860 '())))) (declare (not safe)) - (cons __tmp301666 __tmp301664))) - (__tmp301653 - (let ((__tmp301654 - (let ((__tmp301662 + (cons __tmp304861 __tmp304859))) + (__tmp304848 + (let ((__tmp304849 + (let ((__tmp304857 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp301655 + (__tmp304850 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L295450_ - _L295452_)) - (let ((__tmp301656 - (lambda (_g295469295473_ - _g295470295476_ - _g295471295478_) - (let ((__tmp301657 - (let ((__tmp301661 + _L298545_ + _L298547_)) + (let ((__tmp304851 + (lambda (_g298564298568_ + _g298565298571_ + _g298566298573_) + (let ((__tmp304852 + (let ((__tmp304856 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp301658 - (let ((__tmp301659 - (let ((__tmp301660 + (__tmp304853 + (let ((__tmp304854 + (let ((__tmp304855 (let () (declare (not safe)) - (cons _g295469295473_ '())))) + (cons _g298564298568_ '())))) (declare (not safe)) - (cons _g295470295476_ __tmp301660)))) + (cons _g298565298571_ __tmp304855)))) (declare (not safe)) - (cons 'primitive: __tmp301659)))) + (cons 'primitive: __tmp304854)))) (declare (not safe)) - (cons __tmp301661 __tmp301658)))) + (cons __tmp304856 __tmp304853)))) (declare (not safe)) - (cons __tmp301657 _g295471295478_))))) + (cons __tmp304852 _g298566298573_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp301656 + (foldr2 __tmp304851 '() - _L295450_ - _L295452_))))) + _L298545_ + _L298547_))))) (declare (not safe)) - (cons __tmp301662 __tmp301655)))) + (cons __tmp304857 __tmp304850)))) (declare (not safe)) - (cons __tmp301654 '())))) + (cons __tmp304849 '())))) (declare (not safe)) - (cons __tmp301663 __tmp301653)))) + (cons __tmp304858 __tmp304848)))) (declare (not safe)) - (cons __tmp301667 __tmp301652)))) - (___kont301257301258_ - (lambda (_L295336_ _L295338_) - (let ((__tmp301682 + (cons __tmp304862 __tmp304847)))) + (___kont304452304453_ + (lambda (_L298431_ _L298433_) + (let ((__tmp304877 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!case-lambda))) - (__tmp301668 - (let ((__tmp301678 - (let ((__tmp301681 + (__tmp304863 + (let ((__tmp304873 + (let ((__tmp304876 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301679 - (let ((__tmp301680 + (__tmp304874 + (let ((__tmp304875 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp301680 '())))) + (cons __tmp304875 '())))) (declare (not safe)) - (cons __tmp301681 __tmp301679))) - (__tmp301669 - (let ((__tmp301670 - (let ((__tmp301677 + (cons __tmp304876 __tmp304874))) + (__tmp304864 + (let ((__tmp304865 + (let ((__tmp304872 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp301671 + (__tmp304866 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L295336_ - _L295338_)) - (let ((__tmp301672 - (lambda (_g295353295357_ - _g295354295360_ - _g295355295362_) - (let ((__tmp301673 - (let ((__tmp301676 + _L298431_ + _L298433_)) + (let ((__tmp304867 + (lambda (_g298448298452_ + _g298449298455_ + _g298450298457_) + (let ((__tmp304868 + (let ((__tmp304871 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp301674 - (let ((__tmp301675 + (__tmp304869 + (let ((__tmp304870 (let () (declare (not safe)) - (cons _g295353295357_ '())))) + (cons _g298448298452_ '())))) (declare (not safe)) - (cons _g295354295360_ __tmp301675)))) + (cons _g298449298455_ __tmp304870)))) (declare (not safe)) - (cons __tmp301676 __tmp301674)))) + (cons __tmp304871 __tmp304869)))) (declare (not safe)) - (cons __tmp301673 _g295355295362_))))) + (cons __tmp304868 _g298450298457_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp301672 + (foldr2 __tmp304867 '() - _L295336_ - _L295338_))))) + _L298431_ + _L298433_))))) (declare (not safe)) - (cons __tmp301677 __tmp301671)))) + (cons __tmp304872 __tmp304866)))) (declare (not safe)) - (cons __tmp301670 '())))) + (cons __tmp304865 '())))) (declare (not safe)) - (cons __tmp301678 __tmp301669)))) + (cons __tmp304873 __tmp304864)))) (declare (not safe)) - (cons __tmp301682 __tmp301668))))) - (let* ((___match301301301302_ - (lambda (_e295242295272_ - _hd295241295276_ - _tl295240295279_ - ___splice301259301260_ - _target295243295282_ - _tl295245295285_) - (letrec ((_loop295246295288_ - (lambda (_hd295244295292_ - _dispatch295250295295_ - _arity295251295297_) + (cons __tmp304877 __tmp304863))))) + (let* ((___match304496304497_ + (lambda (_e298337298367_ + _hd298336298371_ + _tl298335298374_ + ___splice304454304455_ + _target298338298377_ + _tl298340298380_) + (letrec ((_loop298341298383_ + (lambda (_hd298339298387_ + _dispatch298345298390_ + _arity298346298392_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd295244295292_)) - (let ((_e295247295300_ + (gx#stx-pair? _hd298339298387_)) + (let ((_e298342298395_ (let () (declare (not safe)) - (gx#syntax-e _hd295244295292_)))) - (let ((_lp-tl295249295307_ + (gx#syntax-e _hd298339298387_)))) + (let ((_lp-tl298344298402_ (let () (declare (not safe)) - (##cdr _e295247295300_))) - (_lp-hd295248295304_ + (##cdr _e298342298395_))) + (_lp-hd298343298399_ (let () (declare (not safe)) - (##car _e295247295300_)))) + (##car _e298342298395_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd295248295304_)) - (let ((_e295256295310_ + _lp-hd298343298399_)) + (let ((_e298351298405_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd295248295304_)))) - (let ((_tl295254295317_ + _lp-hd298343298399_)))) + (let ((_tl298349298412_ (let () (declare (not safe)) - (##cdr _e295256295310_))) - (_hd295255295314_ + (##cdr _e298351298405_))) + (_hd298350298409_ (let () (declare (not safe)) - (##car _e295256295310_)))) + (##car _e298351298405_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl295254295317_)) - (let ((_e295259295320_ + _tl298349298412_)) + (let ((_e298354298415_ (let () (declare (not safe)) (gx#syntax-e - _tl295254295317_)))) - (let ((_tl295257295327_ + _tl298349298412_)))) + (let ((_tl298352298422_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e295259295320_))) - (_hd295258295324_ - (let () (declare (not safe)) (##car _e295259295320_)))) + (##cdr _e298354298415_))) + (_hd298353298419_ + (let () (declare (not safe)) (##car _e298354298415_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295257295327_)) - (_loop295246295288_ - _lp-tl295249295307_ + (gx#stx-null? _tl298352298422_)) + (_loop298341298383_ + _lp-tl298344298402_ (let () (declare (not safe)) - (cons _hd295258295324_ _dispatch295250295295_)) + (cons _hd298353298419_ _dispatch298345298390_)) (let () (declare (not safe)) - (cons _hd295255295314_ _arity295251295297_))) - (let () (declare (not safe)) (_g295210295265_))))) + (cons _hd298350298409_ _arity298346298392_))) + (let () (declare (not safe)) (_g298305298360_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g295210295265_))))) + (_g298305298360_))))) (let () (declare (not safe)) - (_g295210295265_))))) - (let ((_arity295253295333_ - (reverse _arity295251295297_)) - (_dispatch295252295330_ - (reverse _dispatch295250295295_))) - (___kont301257301258_ - _dispatch295252295330_ - _arity295253295333_)))))) - (_loop295246295288_ _target295243295282_ '() '())))) - (___match301293301294_ - (lambda (_e295242295272_ _hd295241295276_ _tl295240295279_) + (_g298305298360_))))) + (let ((_arity298348298428_ + (reverse _arity298346298392_)) + (_dispatch298347298425_ + (reverse _dispatch298345298390_))) + (___kont304452304453_ + _dispatch298347298425_ + _arity298348298428_)))))) + (_loop298341298383_ _target298338298377_ '() '())))) + (___match304488304489_ + (lambda (_e298337298367_ _hd298336298371_ _tl298335298374_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl295240295279_)) - (let ((___splice301259301260_ + (gx#stx-pair/null? _tl298335298374_)) + (let ((___splice304454304455_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl295240295279_ + _tl298335298374_ '0)))) - (let ((_tl295245295285_ + (let ((_tl298340298380_ (let () (declare (not safe)) - (##vector-ref ___splice301259301260_ '1))) - (_target295243295282_ + (##vector-ref ___splice304454304455_ '1))) + (_target298338298377_ (let () (declare (not safe)) - (##vector-ref ___splice301259301260_ '0)))) + (##vector-ref ___splice304454304455_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295245295285_)) - (___match301301301302_ - _e295242295272_ - _hd295241295276_ - _tl295240295279_ - ___splice301259301260_ - _target295243295282_ - _tl295245295285_) + (gx#stx-null? _tl298340298380_)) + (___match304496304497_ + _e298337298367_ + _hd298336298371_ + _tl298335298374_ + ___splice304454304455_ + _target298338298377_ + _tl298340298380_) (let () (declare (not safe)) - (_g295210295265_))))) - (let () (declare (not safe)) (_g295210295265_))))) - (___match301287301288_ - (lambda (_e295216295372_ - _hd295215295376_ - _tl295214295379_ - _e295219295382_ - _hd295218295386_ - _tl295217295389_ - _e295220295392_ - ___splice301255301256_ - _target295221295396_ - _tl295223295399_) - (letrec ((_loop295224295402_ - (lambda (_hd295222295406_ - _dispatch295228295409_ - _arity295229295411_) + (_g298305298360_))))) + (let () (declare (not safe)) (_g298305298360_))))) + (___match304482304483_ + (lambda (_e298311298467_ + _hd298310298471_ + _tl298309298474_ + _e298314298477_ + _hd298313298481_ + _tl298312298484_ + _e298315298487_ + ___splice304450304451_ + _target298316298491_ + _tl298318298494_) + (letrec ((_loop298319298497_ + (lambda (_hd298317298501_ + _dispatch298323298504_ + _arity298324298506_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd295222295406_)) - (let ((_e295225295414_ + (gx#stx-pair? _hd298317298501_)) + (let ((_e298320298509_ (let () (declare (not safe)) - (gx#syntax-e _hd295222295406_)))) - (let ((_lp-tl295227295421_ + (gx#syntax-e _hd298317298501_)))) + (let ((_lp-tl298322298516_ (let () (declare (not safe)) - (##cdr _e295225295414_))) - (_lp-hd295226295418_ + (##cdr _e298320298509_))) + (_lp-hd298321298513_ (let () (declare (not safe)) - (##car _e295225295414_)))) + (##car _e298320298509_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd295226295418_)) - (let ((_e295234295424_ + _lp-hd298321298513_)) + (let ((_e298329298519_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd295226295418_)))) - (let ((_tl295232295431_ + _lp-hd298321298513_)))) + (let ((_tl298327298526_ (let () (declare (not safe)) - (##cdr _e295234295424_))) - (_hd295233295428_ + (##cdr _e298329298519_))) + (_hd298328298523_ (let () (declare (not safe)) - (##car _e295234295424_)))) + (##car _e298329298519_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl295232295431_)) - (let ((_e295237295434_ + _tl298327298526_)) + (let ((_e298332298529_ (let () (declare (not safe)) (gx#syntax-e - _tl295232295431_)))) - (let ((_tl295235295441_ + _tl298327298526_)))) + (let ((_tl298330298536_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e295237295434_))) - (_hd295236295438_ - (let () (declare (not safe)) (##car _e295237295434_)))) + (##cdr _e298332298529_))) + (_hd298331298533_ + (let () (declare (not safe)) (##car _e298332298529_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295235295441_)) - (_loop295224295402_ - _lp-tl295227295421_ + (gx#stx-null? _tl298330298536_)) + (_loop298319298497_ + _lp-tl298322298516_ (let () (declare (not safe)) - (cons _hd295236295438_ _dispatch295228295409_)) + (cons _hd298331298533_ _dispatch298323298504_)) (let () (declare (not safe)) - (cons _hd295233295428_ _arity295229295411_))) - (___match301293301294_ - _e295216295372_ - _hd295215295376_ - _tl295214295379_)))) + (cons _hd298328298523_ _arity298324298506_))) + (___match304488304489_ + _e298311298467_ + _hd298310298471_ + _tl298309298474_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match301293301294_ - _e295216295372_ - _hd295215295376_ - _tl295214295379_)))) - (___match301293301294_ - _e295216295372_ - _hd295215295376_ - _tl295214295379_)))) - (let ((_arity295231295447_ - (reverse _arity295229295411_)) - (_dispatch295230295444_ - (reverse _dispatch295228295409_))) - (___kont301253301254_ - _dispatch295230295444_ - _arity295231295447_)))))) - (_loop295224295402_ _target295221295396_ '() '()))))) + (___match304488304489_ + _e298311298467_ + _hd298310298471_ + _tl298309298474_)))) + (___match304488304489_ + _e298311298467_ + _hd298310298471_ + _tl298309298474_)))) + (let ((_arity298326298542_ + (reverse _arity298324298506_)) + (_dispatch298325298539_ + (reverse _dispatch298323298504_))) + (___kont304448304449_ + _dispatch298325298539_ + _arity298326298542_)))))) + (_loop298319298497_ _target298316298491_ '() '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx301250301251_)) - (let ((_e295216295372_ + (gx#stx-pair? ___stx304445304446_)) + (let ((_e298311298467_ (let () (declare (not safe)) - (gx#syntax-e ___stx301250301251_)))) - (let ((_tl295214295379_ - (let () (declare (not safe)) (##cdr _e295216295372_))) - (_hd295215295376_ + (gx#syntax-e ___stx304445304446_)))) + (let ((_tl298309298474_ + (let () (declare (not safe)) (##cdr _e298311298467_))) + (_hd298310298471_ (let () (declare (not safe)) - (##car _e295216295372_)))) + (##car _e298311298467_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl295214295379_)) - (let ((_e295219295382_ + (gx#stx-pair? _tl298309298474_)) + (let ((_e298314298477_ (let () (declare (not safe)) - (gx#syntax-e _tl295214295379_)))) - (let ((_tl295217295389_ + (gx#syntax-e _tl298309298474_)))) + (let ((_tl298312298484_ (let () (declare (not safe)) - (##cdr _e295219295382_))) - (_hd295218295386_ + (##cdr _e298314298477_))) + (_hd298313298481_ (let () (declare (not safe)) - (##car _e295219295382_)))) + (##car _e298314298477_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd295218295386_)) - (let ((_e295220295392_ + (gx#stx-datum? _hd298313298481_)) + (let ((_e298315298487_ (let () (declare (not safe)) - (gx#stx-e _hd295218295386_)))) + (gx#stx-e _hd298313298481_)))) (if (let () (declare (not safe)) - (equal? _e295220295392_ 'primitive:)) + (equal? _e298315298487_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl295217295389_)) - (let ((___splice301255301256_ + _tl298312298484_)) + (let ((___splice304450304451_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl295217295389_ + _tl298312298484_ '0)))) - (let ((_tl295223295399_ + (let ((_tl298318298494_ (let () (declare (not safe)) (##vector-ref - ___splice301255301256_ + ___splice304450304451_ '1))) - (_target295221295396_ + (_target298316298491_ (let () (declare (not safe)) (##vector-ref - ___splice301255301256_ + ___splice304450304451_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl295223295399_)) - (___match301287301288_ - _e295216295372_ - _hd295215295376_ - _tl295214295379_ - _e295219295382_ - _hd295218295386_ - _tl295217295389_ - _e295220295392_ - ___splice301255301256_ - _target295221295396_ - _tl295223295399_) + _tl298318298494_)) + (___match304482304483_ + _e298311298467_ + _hd298310298471_ + _tl298309298474_ + _e298314298477_ + _hd298313298481_ + _tl298312298484_ + _e298315298487_ + ___splice304450304451_ + _target298316298491_ + _tl298318298494_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl295214295379_)) - (let ((___splice301259301260_ + _tl298309298474_)) + (let ((___splice304454304455_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl295214295379_ '0)))) - (let ((_tl295245295285_ + (gx#syntax-split-splice _tl298309298474_ '0)))) + (let ((_tl298340298380_ (let () (declare (not safe)) - (##vector-ref ___splice301259301260_ '1))) - (_target295243295282_ + (##vector-ref ___splice304454304455_ '1))) + (_target298338298377_ (let () (declare (not safe)) - (##vector-ref ___splice301259301260_ '0)))) + (##vector-ref ___splice304454304455_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295245295285_)) - (___match301301301302_ - _e295216295372_ - _hd295215295376_ - _tl295214295379_ - ___splice301259301260_ - _target295243295282_ - _tl295245295285_) - (let () (declare (not safe)) (_g295210295265_))))) - (let () (declare (not safe)) (_g295210295265_)))))) + (gx#stx-null? _tl298340298380_)) + (___match304496304497_ + _e298311298467_ + _hd298310298471_ + _tl298309298474_ + ___splice304454304455_ + _target298338298377_ + _tl298340298380_) + (let () (declare (not safe)) (_g298305298360_))))) + (let () (declare (not safe)) (_g298305298360_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl295214295379_)) - (let ((___splice301259301260_ + _tl298309298474_)) + (let ((___splice304454304455_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl295214295379_ + _tl298309298474_ '0)))) - (let ((_tl295245295285_ + (let ((_tl298340298380_ (let () (declare (not safe)) (##vector-ref - ___splice301259301260_ + ___splice304454304455_ '1))) - (_target295243295282_ + (_target298338298377_ (let () (declare (not safe)) (##vector-ref - ___splice301259301260_ + ___splice304454304455_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl295245295285_)) - (___match301301301302_ - _e295216295372_ - _hd295215295376_ - _tl295214295379_ - ___splice301259301260_ - _target295243295282_ - _tl295245295285_) + _tl298340298380_)) + (___match304496304497_ + _e298311298467_ + _hd298310298471_ + _tl298309298474_ + ___splice304454304455_ + _target298338298377_ + _tl298340298380_) (let () (declare (not safe)) - (_g295210295265_))))) + (_g298305298360_))))) (let () (declare (not safe)) - (_g295210295265_)))) + (_g298305298360_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl295214295379_)) - (let ((___splice301259301260_ + _tl298309298474_)) + (let ((___splice304454304455_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl295214295379_ + _tl298309298474_ '0)))) - (let ((_tl295245295285_ + (let ((_tl298340298380_ (let () (declare (not safe)) (##vector-ref - ___splice301259301260_ + ___splice304454304455_ '1))) - (_target295243295282_ + (_target298338298377_ (let () (declare (not safe)) (##vector-ref - ___splice301259301260_ + ___splice304454304455_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl295245295285_)) - (___match301301301302_ - _e295216295372_ - _hd295215295376_ - _tl295214295379_ - ___splice301259301260_ - _target295243295282_ - _tl295245295285_) + _tl298340298380_)) + (___match304496304497_ + _e298311298467_ + _hd298310298471_ + _tl298309298474_ + ___splice304454304455_ + _target298338298377_ + _tl298340298380_) (let () (declare (not safe)) - (_g295210295265_))))) + (_g298305298360_))))) (let () (declare (not safe)) - (_g295210295265_))))) + (_g298305298360_))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl295214295379_)) - (let ((___splice301259301260_ + (gx#stx-pair/null? _tl298309298474_)) + (let ((___splice304454304455_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl295214295379_ + _tl298309298474_ '0)))) - (let ((_tl295245295285_ + (let ((_tl298340298380_ (let () (declare (not safe)) (##vector-ref - ___splice301259301260_ + ___splice304454304455_ '1))) - (_target295243295282_ + (_target298338298377_ (let () (declare (not safe)) (##vector-ref - ___splice301259301260_ + ___splice304454304455_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295245295285_)) - (___match301301301302_ - _e295216295372_ - _hd295215295376_ - _tl295214295379_ - ___splice301259301260_ - _target295243295282_ - _tl295245295285_) + (gx#stx-null? _tl298340298380_)) + (___match304496304497_ + _e298311298467_ + _hd298310298471_ + _tl298309298474_ + ___splice304454304455_ + _target298338298377_ + _tl298340298380_) (let () (declare (not safe)) - (_g295210295265_))))) + (_g298305298360_))))) (let () (declare (not safe)) - (_g295210295265_)))))) + (_g298305298360_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl295214295379_)) - (let ((___splice301259301260_ + (gx#stx-pair/null? _tl298309298474_)) + (let ((___splice304454304455_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl295214295379_ + _tl298309298474_ '0)))) - (let ((_tl295245295285_ + (let ((_tl298340298380_ (let () (declare (not safe)) (##vector-ref - ___splice301259301260_ + ___splice304454304455_ '1))) - (_target295243295282_ + (_target298338298377_ (let () (declare (not safe)) (##vector-ref - ___splice301259301260_ + ___splice304454304455_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295245295285_)) - (___match301301301302_ - _e295216295372_ - _hd295215295376_ - _tl295214295379_ - ___splice301259301260_ - _target295243295282_ - _tl295245295285_) + (gx#stx-null? _tl298340298380_)) + (___match304496304497_ + _e298311298467_ + _hd298310298471_ + _tl298309298474_ + ___splice304454304455_ + _target298338298377_ + _tl298340298380_) (let () (declare (not safe)) - (_g295210295265_))))) - (let () (declare (not safe)) (_g295210295265_)))))) - (let () (declare (not safe)) (_g295210295265_)))))))) + (_g298305298360_))))) + (let () (declare (not safe)) (_g298305298360_)))))) + (let () (declare (not safe)) (_g298305298360_)))))))) (define |gxc[:0:]#@kw-lambda| - (lambda (_$stx295487_) - (let* ((_g295491295509_ - (lambda (_g295492295505_) + (lambda (_$stx298582_) + (let* ((_g298586298604_ + (lambda (_g298587298600_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g295492295505_)))) - (_g295490295564_ - (lambda (_g295492295513_) + _g298587298600_)))) + (_g298585298659_ + (lambda (_g298587298608_) (if (let () (declare (not safe)) - (gx#stx-pair? _g295492295513_)) - (let ((_e295497295516_ + (gx#stx-pair? _g298587298608_)) + (let ((_e298592298611_ (let () (declare (not safe)) - (gx#syntax-e _g295492295513_)))) - (let ((_hd295496295520_ + (gx#syntax-e _g298587298608_)))) + (let ((_hd298591298615_ (let () (declare (not safe)) - (##car _e295497295516_))) - (_tl295495295523_ + (##car _e298592298611_))) + (_tl298590298618_ (let () (declare (not safe)) - (##cdr _e295497295516_)))) + (##cdr _e298592298611_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl295495295523_)) - (let ((_e295500295526_ + (gx#stx-pair? _tl298590298618_)) + (let ((_e298595298621_ (let () (declare (not safe)) - (gx#syntax-e _tl295495295523_)))) - (let ((_hd295499295530_ + (gx#syntax-e _tl298590298618_)))) + (let ((_hd298594298625_ (let () (declare (not safe)) - (##car _e295500295526_))) - (_tl295498295533_ + (##car _e298595298621_))) + (_tl298593298628_ (let () (declare (not safe)) - (##cdr _e295500295526_)))) + (##cdr _e298595298621_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl295498295533_)) - (let ((_e295503295536_ + (gx#stx-pair? _tl298593298628_)) + (let ((_e298598298631_ (let () (declare (not safe)) - (gx#syntax-e _tl295498295533_)))) - (let ((_hd295502295540_ + (gx#syntax-e _tl298593298628_)))) + (let ((_hd298597298635_ (let () (declare (not safe)) - (##car _e295503295536_))) - (_tl295501295543_ + (##car _e298598298631_))) + (_tl298596298638_ (let () (declare (not safe)) - (##cdr _e295503295536_)))) + (##cdr _e298598298631_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295501295543_)) - ((lambda (_L295546_ _L295548_) - (let ((__tmp301696 + (gx#stx-null? _tl298596298638_)) + ((lambda (_L298641_ _L298643_) + (let ((__tmp304891 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda))) - (__tmp301683 - (let ((__tmp301692 - (let ((__tmp301695 + (__tmp304878 + (let ((__tmp304887 + (let ((__tmp304890 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301693 - (let ((__tmp301694 + (__tmp304888 + (let ((__tmp304889 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda)))) (declare (not safe)) - (cons __tmp301694 '())))) + (cons __tmp304889 '())))) (declare (not safe)) - (cons __tmp301695 __tmp301693))) - (__tmp301684 - (let ((__tmp301689 - (let ((__tmp301691 + (cons __tmp304890 __tmp304888))) + (__tmp304879 + (let ((__tmp304884 + (let ((__tmp304886 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301690 + (__tmp304885 (let () (declare (not safe)) - (cons _L295548_ '())))) + (cons _L298643_ '())))) (declare (not safe)) - (cons __tmp301691 __tmp301690))) - (__tmp301685 - (let ((__tmp301686 - (let ((__tmp301688 + (cons __tmp304886 __tmp304885))) + (__tmp304880 + (let ((__tmp304881 + (let ((__tmp304883 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301687 + (__tmp304882 (let () (declare (not safe)) - (cons _L295546_ '())))) + (cons _L298641_ '())))) (declare (not safe)) - (cons __tmp301688 __tmp301687)))) + (cons __tmp304883 __tmp304882)))) (declare (not safe)) - (cons __tmp301686 '())))) + (cons __tmp304881 '())))) (declare (not safe)) - (cons __tmp301689 __tmp301685)))) + (cons __tmp304884 __tmp304880)))) (declare (not safe)) - (cons __tmp301692 __tmp301684)))) + (cons __tmp304887 __tmp304879)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp301696 - __tmp301683))) - _hd295502295540_ - _hd295499295530_) - (_g295491295509_ - _g295492295513_)))) - (_g295491295509_ _g295492295513_)))) - (_g295491295509_ _g295492295513_)))) - (_g295491295509_ _g295492295513_))))) - (_g295490295564_ _$stx295487_)))) + (cons __tmp304891 + __tmp304878))) + _hd298597298635_ + _hd298594298625_) + (_g298586298604_ + _g298587298608_)))) + (_g298586298604_ _g298587298608_)))) + (_g298586298604_ _g298587298608_)))) + (_g298586298604_ _g298587298608_))))) + (_g298585298659_ _$stx298582_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_$stx295568_) - (let* ((_g295572295590_ - (lambda (_g295573295586_) + (lambda (_$stx298663_) + (let* ((_g298667298685_ + (lambda (_g298668298681_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g295573295586_)))) - (_g295571295645_ - (lambda (_g295573295594_) + _g298668298681_)))) + (_g298666298740_ + (lambda (_g298668298689_) (if (let () (declare (not safe)) - (gx#stx-pair? _g295573295594_)) - (let ((_e295578295597_ + (gx#stx-pair? _g298668298689_)) + (let ((_e298673298692_ (let () (declare (not safe)) - (gx#syntax-e _g295573295594_)))) - (let ((_hd295577295601_ + (gx#syntax-e _g298668298689_)))) + (let ((_hd298672298696_ (let () (declare (not safe)) - (##car _e295578295597_))) - (_tl295576295604_ + (##car _e298673298692_))) + (_tl298671298699_ (let () (declare (not safe)) - (##cdr _e295578295597_)))) + (##cdr _e298673298692_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl295576295604_)) - (let ((_e295581295607_ + (gx#stx-pair? _tl298671298699_)) + (let ((_e298676298702_ (let () (declare (not safe)) - (gx#syntax-e _tl295576295604_)))) - (let ((_hd295580295611_ + (gx#syntax-e _tl298671298699_)))) + (let ((_hd298675298706_ (let () (declare (not safe)) - (##car _e295581295607_))) - (_tl295579295614_ + (##car _e298676298702_))) + (_tl298674298709_ (let () (declare (not safe)) - (##cdr _e295581295607_)))) + (##cdr _e298676298702_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl295579295614_)) - (let ((_e295584295617_ + (gx#stx-pair? _tl298674298709_)) + (let ((_e298679298712_ (let () (declare (not safe)) - (gx#syntax-e _tl295579295614_)))) - (let ((_hd295583295621_ + (gx#syntax-e _tl298674298709_)))) + (let ((_hd298678298716_ (let () (declare (not safe)) - (##car _e295584295617_))) - (_tl295582295624_ + (##car _e298679298712_))) + (_tl298677298719_ (let () (declare (not safe)) - (##cdr _e295584295617_)))) + (##cdr _e298679298712_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295582295624_)) - ((lambda (_L295627_ _L295629_) - (let ((__tmp301710 + (gx#stx-null? _tl298677298719_)) + ((lambda (_L298722_ _L298724_) + (let ((__tmp304905 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda-primary))) - (__tmp301697 - (let ((__tmp301706 - (let ((__tmp301709 + (__tmp304892 + (let ((__tmp304901 + (let ((__tmp304904 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301707 - (let ((__tmp301708 + (__tmp304902 + (let ((__tmp304903 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda-dispatch)))) (declare (not safe)) - (cons __tmp301708 '())))) + (cons __tmp304903 '())))) (declare (not safe)) - (cons __tmp301709 __tmp301707))) - (__tmp301698 - (let ((__tmp301703 - (let ((__tmp301705 + (cons __tmp304904 __tmp304902))) + (__tmp304893 + (let ((__tmp304898 + (let ((__tmp304900 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301704 + (__tmp304899 (let () (declare (not safe)) - (cons _L295629_ '())))) + (cons _L298724_ '())))) (declare (not safe)) - (cons __tmp301705 __tmp301704))) - (__tmp301699 - (let ((__tmp301700 - (let ((__tmp301702 + (cons __tmp304900 __tmp304899))) + (__tmp304894 + (let ((__tmp304895 + (let ((__tmp304897 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp301701 + (__tmp304896 (let () (declare (not safe)) - (cons _L295627_ '())))) + (cons _L298722_ '())))) (declare (not safe)) - (cons __tmp301702 __tmp301701)))) + (cons __tmp304897 __tmp304896)))) (declare (not safe)) - (cons __tmp301700 '())))) + (cons __tmp304895 '())))) (declare (not safe)) - (cons __tmp301703 __tmp301699)))) + (cons __tmp304898 __tmp304894)))) (declare (not safe)) - (cons __tmp301706 __tmp301698)))) + (cons __tmp304901 __tmp304893)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp301710 - __tmp301697))) - _hd295583295621_ - _hd295580295611_) - (_g295572295590_ - _g295573295594_)))) - (_g295572295590_ _g295573295594_)))) - (_g295572295590_ _g295573295594_)))) - (_g295572295590_ _g295573295594_))))) - (_g295571295645_ _$stx295568_)))) + (cons __tmp304905 + __tmp304892))) + _hd298678298716_ + _hd298675298706_) + (_g298667298685_ + _g298668298689_)))) + (_g298667298685_ _g298668298689_)))) + (_g298667298685_ _g298668298689_)))) + (_g298667298685_ _g298668298689_))))) + (_g298666298740_ _$stx298663_)))) (define |gxc[:0:]#declare-primitive| - (lambda (_$stx295649_) - (let* ((___stx301304301305_ _$stx295649_) - (_g295656295727_ + (lambda (_$stx298744_) + (let* ((___stx304499304500_ _$stx298744_) + (_g298751298822_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx301304301305_))))) - (let ((___kont301307301308_ - (lambda (_L296018_ _L296020_) - (let ((__tmp301716 + ___stx304499304500_))))) + (let ((___kont304502304503_ + (lambda (_L299113_ _L299115_) + (let ((__tmp304911 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp301711 - (let ((__tmp301712 - (let ((__tmp301713 - (let ((__tmp301715 + (__tmp304906 + (let ((__tmp304907 + (let ((__tmp304908 + (let ((__tmp304910 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp301714 + (__tmp304909 (let () (declare (not safe)) - (cons _L296018_ '())))) + (cons _L299113_ '())))) (declare (not safe)) - (cons __tmp301715 __tmp301714)))) + (cons __tmp304910 __tmp304909)))) (declare (not safe)) - (cons __tmp301713 '())))) + (cons __tmp304908 '())))) (declare (not safe)) - (cons _L296020_ __tmp301712)))) + (cons _L299115_ __tmp304907)))) (declare (not safe)) - (cons __tmp301716 __tmp301711)))) - (___kont301309301310_ - (lambda (_L295937_ _L295939_) - (let ((__tmp301725 + (cons __tmp304911 __tmp304906)))) + (___kont304504304505_ + (lambda (_L299032_ _L299034_) + (let ((__tmp304920 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp301717 - (let ((__tmp301718 - (let ((__tmp301719 - (let ((__tmp301724 + (__tmp304912 + (let ((__tmp304913 + (let ((__tmp304914 + (let ((__tmp304919 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp301720 - (let ((__tmp301721 - (lambda (_g295958295961_ - _g295959295964_) - (let ((__tmp301722 - (let ((__tmp301723 + (__tmp304915 + (let ((__tmp304916 + (lambda (_g299053299056_ + _g299054299059_) + (let ((__tmp304917 + (let ((__tmp304918 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g295958295961_ __tmp301723)))) + (cons _g299053299056_ __tmp304918)))) (declare (not safe)) - (cons __tmp301722 _g295959295964_))))) + (cons __tmp304917 _g299054299059_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp301721 + (foldr1 __tmp304916 '() - _L295937_)))) + _L299032_)))) (declare (not safe)) - (cons __tmp301724 __tmp301720)))) + (cons __tmp304919 __tmp304915)))) (declare (not safe)) - (cons __tmp301719 '())))) + (cons __tmp304914 '())))) (declare (not safe)) - (cons _L295939_ __tmp301718)))) + (cons _L299034_ __tmp304913)))) (declare (not safe)) - (cons __tmp301725 __tmp301717)))) - (___kont301313301314_ - (lambda (_L295849_ _L295851_) - (let ((__tmp301732 + (cons __tmp304920 __tmp304912)))) + (___kont304508304509_ + (lambda (_L298944_ _L298946_) + (let ((__tmp304927 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp301726 - (let ((__tmp301727 - (let ((__tmp301728 - (let ((__tmp301731 + (__tmp304921 + (let ((__tmp304922 + (let ((__tmp304923 + (let ((__tmp304926 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp301729 - (let ((__tmp301730 + (__tmp304924 + (let ((__tmp304925 (let () (declare (not safe)) - (cons _L295849_ '())))) + (cons _L298944_ '())))) (declare (not safe)) (cons 'primitive: - __tmp301730)))) + __tmp304925)))) (declare (not safe)) - (cons __tmp301731 __tmp301729)))) + (cons __tmp304926 __tmp304924)))) (declare (not safe)) - (cons __tmp301728 '())))) + (cons __tmp304923 '())))) (declare (not safe)) - (cons _L295851_ __tmp301727)))) + (cons _L298946_ __tmp304922)))) (declare (not safe)) - (cons __tmp301732 __tmp301726)))) - (___kont301315301316_ - (lambda (_L295784_ _L295786_) - (let ((__tmp301742 + (cons __tmp304927 __tmp304921)))) + (___kont304510304511_ + (lambda (_L298879_ _L298881_) + (let ((__tmp304937 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp301733 - (let ((__tmp301734 - (let ((__tmp301735 - (let ((__tmp301741 + (__tmp304928 + (let ((__tmp304929 + (let ((__tmp304930 + (let ((__tmp304936 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp301736 - (let ((__tmp301737 - (let ((__tmp301738 - (lambda (_g295803295806_ + (__tmp304931 + (let ((__tmp304932 + (let ((__tmp304933 + (lambda (_g298898298901_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g295804295809_) - (let ((__tmp301739 - (let ((__tmp301740 + _g298899298904_) + (let ((__tmp304934 + (let ((__tmp304935 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g295803295806_ __tmp301740)))) + (cons _g298898298901_ __tmp304935)))) (declare (not safe)) - (cons __tmp301739 _g295804295809_))))) + (cons __tmp304934 _g298899298904_))))) (declare (not safe)) - (foldr1 __tmp301738 '() _L295784_)))) + (foldr1 __tmp304933 '() _L298879_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'primitive: - __tmp301737)))) + __tmp304932)))) (declare (not safe)) - (cons __tmp301741 __tmp301736)))) + (cons __tmp304936 __tmp304931)))) (declare (not safe)) - (cons __tmp301735 '())))) + (cons __tmp304930 '())))) (declare (not safe)) - (cons _L295786_ __tmp301734)))) + (cons _L298881_ __tmp304929)))) (declare (not safe)) - (cons __tmp301742 __tmp301733))))) - (let* ((___match301423301424_ - (lambda (_e295709295734_ - _hd295708295738_ - _tl295707295741_ - _e295712295744_ - _hd295711295748_ - _tl295710295751_ - ___splice301317301318_ - _target295713295754_ - _tl295715295757_) - (letrec ((_loop295716295760_ - (lambda (_hd295714295764_ _arity295720295767_) + (cons __tmp304937 __tmp304928))))) + (let* ((___match304618304619_ + (lambda (_e298804298829_ + _hd298803298833_ + _tl298802298836_ + _e298807298839_ + _hd298806298843_ + _tl298805298846_ + ___splice304512304513_ + _target298808298849_ + _tl298810298852_) + (letrec ((_loop298811298855_ + (lambda (_hd298809298859_ _arity298815298862_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd295714295764_)) - (let ((_e295717295770_ + (gx#stx-pair? _hd298809298859_)) + (let ((_e298812298865_ (let () (declare (not safe)) - (gx#syntax-e _hd295714295764_)))) - (let ((_lp-tl295719295777_ + (gx#syntax-e _hd298809298859_)))) + (let ((_lp-tl298814298872_ (let () (declare (not safe)) - (##cdr _e295717295770_))) - (_lp-hd295718295774_ + (##cdr _e298812298865_))) + (_lp-hd298813298869_ (let () (declare (not safe)) - (##car _e295717295770_)))) - (_loop295716295760_ - _lp-tl295719295777_ + (##car _e298812298865_)))) + (_loop298811298855_ + _lp-tl298814298872_ (let () (declare (not safe)) - (cons _lp-hd295718295774_ - _arity295720295767_))))) - (let ((_arity295721295780_ - (reverse _arity295720295767_))) - (___kont301315301316_ - _arity295721295780_ - _hd295711295748_)))))) - (_loop295716295760_ _target295713295754_ '())))) - (___match301383301384_ - (lambda (_e295677295873_ - _hd295676295877_ - _tl295675295880_ - _e295680295883_ - _hd295679295887_ - _tl295678295890_ - _e295683295893_ - _hd295682295897_ - _tl295681295900_ - _e295684295903_ - ___splice301311301312_ - _target295685295907_ - _tl295687295910_) - (letrec ((_loop295688295913_ - (lambda (_hd295686295917_ _arity295692295920_) + (cons _lp-hd298813298869_ + _arity298815298862_))))) + (let ((_arity298816298875_ + (reverse _arity298815298862_))) + (___kont304510304511_ + _arity298816298875_ + _hd298806298843_)))))) + (_loop298811298855_ _target298808298849_ '())))) + (___match304578304579_ + (lambda (_e298772298968_ + _hd298771298972_ + _tl298770298975_ + _e298775298978_ + _hd298774298982_ + _tl298773298985_ + _e298778298988_ + _hd298777298992_ + _tl298776298995_ + _e298779298998_ + ___splice304506304507_ + _target298780299002_ + _tl298782299005_) + (letrec ((_loop298783299008_ + (lambda (_hd298781299012_ _arity298787299015_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd295686295917_)) - (let ((_e295689295923_ + (gx#stx-pair? _hd298781299012_)) + (let ((_e298784299018_ (let () (declare (not safe)) - (gx#syntax-e _hd295686295917_)))) - (let ((_lp-tl295691295930_ + (gx#syntax-e _hd298781299012_)))) + (let ((_lp-tl298786299025_ (let () (declare (not safe)) - (##cdr _e295689295923_))) - (_lp-hd295690295927_ + (##cdr _e298784299018_))) + (_lp-hd298785299022_ (let () (declare (not safe)) - (##car _e295689295923_)))) - (_loop295688295913_ - _lp-tl295691295930_ + (##car _e298784299018_)))) + (_loop298783299008_ + _lp-tl298786299025_ (let () (declare (not safe)) - (cons _lp-hd295690295927_ - _arity295692295920_))))) - (let ((_arity295693295933_ - (reverse _arity295692295920_))) - (___kont301309301310_ - _arity295693295933_ - _hd295679295887_)))))) - (_loop295688295913_ _target295685295907_ '()))))) + (cons _lp-hd298785299022_ + _arity298787299015_))))) + (let ((_arity298788299028_ + (reverse _arity298787299015_))) + (___kont304504304505_ + _arity298788299028_ + _hd298774298982_)))))) + (_loop298783299008_ _target298780299002_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx301304301305_)) - (let ((_e295662295974_ + (gx#stx-pair? ___stx304499304500_)) + (let ((_e298757299069_ (let () (declare (not safe)) - (gx#syntax-e ___stx301304301305_)))) - (let ((_tl295660295981_ - (let () (declare (not safe)) (##cdr _e295662295974_))) - (_hd295661295978_ + (gx#syntax-e ___stx304499304500_)))) + (let ((_tl298755299076_ + (let () (declare (not safe)) (##cdr _e298757299069_))) + (_hd298756299073_ (let () (declare (not safe)) - (##car _e295662295974_)))) + (##car _e298757299069_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl295660295981_)) - (let ((_e295665295984_ + (gx#stx-pair? _tl298755299076_)) + (let ((_e298760299079_ (let () (declare (not safe)) - (gx#syntax-e _tl295660295981_)))) - (let ((_tl295663295991_ + (gx#syntax-e _tl298755299076_)))) + (let ((_tl298758299086_ (let () (declare (not safe)) - (##cdr _e295665295984_))) - (_hd295664295988_ + (##cdr _e298760299079_))) + (_hd298759299083_ (let () (declare (not safe)) - (##car _e295665295984_)))) + (##car _e298760299079_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl295663295991_)) - (let ((_e295668295994_ + (gx#stx-pair? _tl298758299086_)) + (let ((_e298763299089_ (let () (declare (not safe)) - (gx#syntax-e _tl295663295991_)))) - (let ((_tl295666296001_ + (gx#syntax-e _tl298758299086_)))) + (let ((_tl298761299096_ (let () (declare (not safe)) - (##cdr _e295668295994_))) - (_hd295667295998_ + (##cdr _e298763299089_))) + (_hd298762299093_ (let () (declare (not safe)) - (##car _e295668295994_)))) + (##car _e298763299089_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd295667295998_)) - (let ((_e295669296004_ + (gx#stx-datum? _hd298762299093_)) + (let ((_e298764299099_ (let () (declare (not safe)) - (gx#stx-e _hd295667295998_)))) + (gx#stx-e _hd298762299093_)))) (if (let () (declare (not safe)) - (equal? _e295669296004_ + (equal? _e298764299099_ 'unchecked:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl295666296001_)) - (let ((_e295672296008_ + _tl298761299096_)) + (let ((_e298767299103_ (let () (declare (not safe)) (gx#syntax-e - _tl295666296001_)))) - (let ((_tl295670296015_ + _tl298761299096_)))) + (let ((_tl298765299110_ (let () (declare (not safe)) - (##cdr _e295672296008_))) - (_hd295671296012_ + (##cdr _e298767299103_))) + (_hd298766299107_ (let () (declare (not safe)) - (##car _e295672296008_)))) + (##car _e298767299103_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl295670296015_)) - (___kont301307301308_ - _hd295671296012_ - _hd295664295988_) + _tl298765299110_)) + (___kont304502304503_ + _hd298766299107_ + _hd298759299083_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _tl295666296001_)) - (let ((___splice301311301312_ + (gx#stx-pair/null? _tl298761299096_)) + (let ((___splice304506304507_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl295666296001_ '0)))) - (let ((_tl295687295910_ + (gx#syntax-split-splice _tl298761299096_ '0)))) + (let ((_tl298782299005_ (let () (declare (not safe)) - (##vector-ref ___splice301311301312_ '1))) - (_target295685295907_ + (##vector-ref ___splice304506304507_ '1))) + (_target298780299002_ (let () (declare (not safe)) - (##vector-ref ___splice301311301312_ '0)))) + (##vector-ref ___splice304506304507_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295687295910_)) - (___match301383301384_ - _e295662295974_ - _hd295661295978_ - _tl295660295981_ - _e295665295984_ - _hd295664295988_ - _tl295663295991_ - _e295668295994_ - _hd295667295998_ - _tl295666296001_ - _e295669296004_ - ___splice301311301312_ - _target295685295907_ - _tl295687295910_) + (gx#stx-null? _tl298782299005_)) + (___match304578304579_ + _e298757299069_ + _hd298756299073_ + _tl298755299076_ + _e298760299079_ + _hd298759299083_ + _tl298758299086_ + _e298763299089_ + _hd298762299093_ + _tl298761299096_ + _e298764299099_ + ___splice304506304507_ + _target298780299002_ + _tl298782299005_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl295663295991_)) - (let ((___splice301317301318_ + (gx#stx-pair/null? _tl298758299086_)) + (let ((___splice304512304513_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl295663295991_ + _tl298758299086_ '0)))) - (let ((_tl295715295757_ + (let ((_tl298810298852_ (let () (declare (not safe)) (##vector-ref - ___splice301317301318_ + ___splice304512304513_ '1))) - (_target295713295754_ + (_target298808298849_ (let () (declare (not safe)) (##vector-ref - ___splice301317301318_ + ___splice304512304513_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295715295757_)) - (___match301423301424_ - _e295662295974_ - _hd295661295978_ - _tl295660295981_ - _e295665295984_ - _hd295664295988_ - _tl295663295991_ - ___splice301317301318_ - _target295713295754_ - _tl295715295757_) + (gx#stx-null? _tl298810298852_)) + (___match304618304619_ + _e298757299069_ + _hd298756299073_ + _tl298755299076_ + _e298760299079_ + _hd298759299083_ + _tl298758299086_ + ___splice304512304513_ + _target298808298849_ + _tl298810298852_) (let () (declare (not safe)) - (_g295656295727_))))) + (_g298751298822_))))) (let () (declare (not safe)) - (_g295656295727_)))))) + (_g298751298822_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl295663295991_)) - (let ((___splice301317301318_ + (gx#stx-pair/null? _tl298758299086_)) + (let ((___splice304512304513_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl295663295991_ + _tl298758299086_ '0)))) - (let ((_tl295715295757_ + (let ((_tl298810298852_ (let () (declare (not safe)) - (##vector-ref ___splice301317301318_ '1))) - (_target295713295754_ + (##vector-ref ___splice304512304513_ '1))) + (_target298808298849_ (let () (declare (not safe)) (##vector-ref - ___splice301317301318_ + ___splice304512304513_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295715295757_)) - (___match301423301424_ - _e295662295974_ - _hd295661295978_ - _tl295660295981_ - _e295665295984_ - _hd295664295988_ - _tl295663295991_ - ___splice301317301318_ - _target295713295754_ - _tl295715295757_) + (gx#stx-null? _tl298810298852_)) + (___match304618304619_ + _e298757299069_ + _hd298756299073_ + _tl298755299076_ + _e298760299079_ + _hd298759299083_ + _tl298758299086_ + ___splice304512304513_ + _target298808298849_ + _tl298810298852_) (let () (declare (not safe)) - (_g295656295727_))))) - (let () (declare (not safe)) (_g295656295727_))))))) + (_g298751298822_))))) + (let () (declare (not safe)) (_g298751298822_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl295666296001_)) - (let ((___splice301311301312_ + _tl298761299096_)) + (let ((___splice304506304507_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl295666296001_ '0)))) - (let ((_tl295687295910_ + (gx#syntax-split-splice _tl298761299096_ '0)))) + (let ((_tl298782299005_ (let () (declare (not safe)) - (##vector-ref ___splice301311301312_ '1))) - (_target295685295907_ + (##vector-ref ___splice304506304507_ '1))) + (_target298780299002_ (let () (declare (not safe)) - (##vector-ref ___splice301311301312_ '0)))) + (##vector-ref ___splice304506304507_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295687295910_)) - (___match301383301384_ - _e295662295974_ - _hd295661295978_ - _tl295660295981_ - _e295665295984_ - _hd295664295988_ - _tl295663295991_ - _e295668295994_ - _hd295667295998_ - _tl295666296001_ - _e295669296004_ - ___splice301311301312_ - _target295685295907_ - _tl295687295910_) + (gx#stx-null? _tl298782299005_)) + (___match304578304579_ + _e298757299069_ + _hd298756299073_ + _tl298755299076_ + _e298760299079_ + _hd298759299083_ + _tl298758299086_ + _e298763299089_ + _hd298762299093_ + _tl298761299096_ + _e298764299099_ + ___splice304506304507_ + _target298780299002_ + _tl298782299005_) (if (let () (declare (not safe)) - (gx#stx-null? _tl295666296001_)) - (___kont301313301314_ - _hd295667295998_ - _hd295664295988_) + (gx#stx-null? _tl298761299096_)) + (___kont304508304509_ + _hd298762299093_ + _hd298759299083_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl295663295991_)) - (let ((___splice301317301318_ + (gx#stx-pair/null? _tl298758299086_)) + (let ((___splice304512304513_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl295663295991_ + _tl298758299086_ '0)))) - (let ((_tl295715295757_ + (let ((_tl298810298852_ (let () (declare (not safe)) (##vector-ref - ___splice301317301318_ + ___splice304512304513_ '1))) - (_target295713295754_ + (_target298808298849_ (let () (declare (not safe)) (##vector-ref - ___splice301317301318_ + ___splice304512304513_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295715295757_)) - (___match301423301424_ - _e295662295974_ - _hd295661295978_ - _tl295660295981_ - _e295665295984_ - _hd295664295988_ - _tl295663295991_ - ___splice301317301318_ - _target295713295754_ - _tl295715295757_) + (gx#stx-null? _tl298810298852_)) + (___match304618304619_ + _e298757299069_ + _hd298756299073_ + _tl298755299076_ + _e298760299079_ + _hd298759299083_ + _tl298758299086_ + ___splice304512304513_ + _target298808298849_ + _tl298810298852_) (let () (declare (not safe)) - (_g295656295727_))))) + (_g298751298822_))))) (let () (declare (not safe)) - (_g295656295727_))))))) - (if (let () (declare (not safe)) (gx#stx-null? _tl295666296001_)) - (___kont301313301314_ _hd295667295998_ _hd295664295988_) + (_g298751298822_))))))) + (if (let () (declare (not safe)) (gx#stx-null? _tl298761299096_)) + (___kont304508304509_ _hd298762299093_ _hd298759299083_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl295663295991_)) - (let ((___splice301317301318_ + (gx#stx-pair/null? _tl298758299086_)) + (let ((___splice304512304513_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl295663295991_ '0)))) - (let ((_tl295715295757_ + (gx#syntax-split-splice _tl298758299086_ '0)))) + (let ((_tl298810298852_ (let () (declare (not safe)) - (##vector-ref ___splice301317301318_ '1))) - (_target295713295754_ + (##vector-ref ___splice304512304513_ '1))) + (_target298808298849_ (let () (declare (not safe)) - (##vector-ref ___splice301317301318_ '0)))) + (##vector-ref ___splice304512304513_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295715295757_)) - (___match301423301424_ - _e295662295974_ - _hd295661295978_ - _tl295660295981_ - _e295665295984_ - _hd295664295988_ - _tl295663295991_ - ___splice301317301318_ - _target295713295754_ - _tl295715295757_) + (gx#stx-null? _tl298810298852_)) + (___match304618304619_ + _e298757299069_ + _hd298756299073_ + _tl298755299076_ + _e298760299079_ + _hd298759299083_ + _tl298758299086_ + ___splice304512304513_ + _target298808298849_ + _tl298810298852_) (let () (declare (not safe)) - (_g295656295727_))))) - (let () (declare (not safe)) (_g295656295727_)))))) + (_g298751298822_))))) + (let () (declare (not safe)) (_g298751298822_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl295666296001_)) - (___kont301313301314_ - _hd295667295998_ - _hd295664295988_) + _tl298761299096_)) + (___kont304508304509_ + _hd298762299093_ + _hd298759299083_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl295663295991_)) - (let ((___splice301317301318_ + _tl298758299086_)) + (let ((___splice304512304513_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl295663295991_ '0)))) - (let ((_tl295715295757_ + (gx#syntax-split-splice _tl298758299086_ '0)))) + (let ((_tl298810298852_ (let () (declare (not safe)) - (##vector-ref ___splice301317301318_ '1))) - (_target295713295754_ + (##vector-ref ___splice304512304513_ '1))) + (_target298808298849_ (let () (declare (not safe)) - (##vector-ref ___splice301317301318_ '0)))) + (##vector-ref ___splice304512304513_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295715295757_)) - (___match301423301424_ - _e295662295974_ - _hd295661295978_ - _tl295660295981_ - _e295665295984_ - _hd295664295988_ - _tl295663295991_ - ___splice301317301318_ - _target295713295754_ - _tl295715295757_) - (let () (declare (not safe)) (_g295656295727_))))) - (let () (declare (not safe)) (_g295656295727_)))))) + (gx#stx-null? _tl298810298852_)) + (___match304618304619_ + _e298757299069_ + _hd298756299073_ + _tl298755299076_ + _e298760299079_ + _hd298759299083_ + _tl298758299086_ + ___splice304512304513_ + _target298808298849_ + _tl298810298852_) + (let () (declare (not safe)) (_g298751298822_))))) + (let () (declare (not safe)) (_g298751298822_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (gx#stx-null? _tl295666296001_)) - (___kont301313301314_ - _hd295667295998_ - _hd295664295988_) + (gx#stx-null? _tl298761299096_)) + (___kont304508304509_ + _hd298762299093_ + _hd298759299083_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl295663295991_)) - (let ((___splice301317301318_ + _tl298758299086_)) + (let ((___splice304512304513_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl295663295991_ + _tl298758299086_ '0)))) - (let ((_tl295715295757_ + (let ((_tl298810298852_ (let () (declare (not safe)) (##vector-ref - ___splice301317301318_ + ___splice304512304513_ '1))) - (_target295713295754_ + (_target298808298849_ (let () (declare (not safe)) (##vector-ref - ___splice301317301318_ + ___splice304512304513_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl295715295757_)) - (___match301423301424_ - _e295662295974_ - _hd295661295978_ - _tl295660295981_ - _e295665295984_ - _hd295664295988_ - _tl295663295991_ - ___splice301317301318_ - _target295713295754_ - _tl295715295757_) + _tl298810298852_)) + (___match304618304619_ + _e298757299069_ + _hd298756299073_ + _tl298755299076_ + _e298760299079_ + _hd298759299083_ + _tl298758299086_ + ___splice304512304513_ + _target298808298849_ + _tl298810298852_) (let () (declare (not safe)) - (_g295656295727_))))) + (_g298751298822_))))) (let () (declare (not safe)) - (_g295656295727_))))))) + (_g298751298822_))))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl295663295991_)) - (let ((___splice301317301318_ + (gx#stx-pair/null? _tl298758299086_)) + (let ((___splice304512304513_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl295663295991_ + _tl298758299086_ '0)))) - (let ((_tl295715295757_ + (let ((_tl298810298852_ (let () (declare (not safe)) (##vector-ref - ___splice301317301318_ + ___splice304512304513_ '1))) - (_target295713295754_ + (_target298808298849_ (let () (declare (not safe)) (##vector-ref - ___splice301317301318_ + ___splice304512304513_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl295715295757_)) - (___match301423301424_ - _e295662295974_ - _hd295661295978_ - _tl295660295981_ - _e295665295984_ - _hd295664295988_ - _tl295663295991_ - ___splice301317301318_ - _target295713295754_ - _tl295715295757_) + (gx#stx-null? _tl298810298852_)) + (___match304618304619_ + _e298757299069_ + _hd298756299073_ + _tl298755299076_ + _e298760299079_ + _hd298759299083_ + _tl298758299086_ + ___splice304512304513_ + _target298808298849_ + _tl298810298852_) (let () (declare (not safe)) - (_g295656295727_))))) + (_g298751298822_))))) (let () (declare (not safe)) - (_g295656295727_)))))) - (let () (declare (not safe)) (_g295656295727_))))) - (let () (declare (not safe)) (_g295656295727_)))))))) + (_g298751298822_)))))) + (let () (declare (not safe)) (_g298751298822_))))) + (let () (declare (not safe)) (_g298751298822_)))))))) (define |gxc[:0:]#declare-primitive/unchecked| - (lambda (_$stx296044_) - (let* ((___stx301426301427_ _$stx296044_) - (_g296049296084_ + (lambda (_$stx299139_) + (let* ((___stx304621304622_ _$stx299139_) + (_g299144299179_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx301426301427_))))) - (let ((___kont301429301430_ - (lambda (_L296206_ _L296208_) - (let ((__tmp301748 + ___stx304621304622_))))) + (let ((___kont304624304625_ + (lambda (_L299301_ _L299303_) + (let ((__tmp304943 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp301743 - (let ((__tmp301744 - (let ((__tmp301745 - (let ((__tmp301747 + (__tmp304938 + (let ((__tmp304939 + (let ((__tmp304940 + (let ((__tmp304942 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp301746 + (__tmp304941 (let () (declare (not safe)) - (cons _L296206_ '())))) + (cons _L299301_ '())))) (declare (not safe)) - (cons __tmp301747 __tmp301746)))) + (cons __tmp304942 __tmp304941)))) (declare (not safe)) - (cons __tmp301745 '())))) + (cons __tmp304940 '())))) (declare (not safe)) - (cons _L296208_ __tmp301744)))) + (cons _L299303_ __tmp304939)))) (declare (not safe)) - (cons __tmp301748 __tmp301743)))) - (___kont301431301432_ - (lambda (_L296141_ _L296143_) - (let ((__tmp301757 + (cons __tmp304943 __tmp304938)))) + (___kont304626304627_ + (lambda (_L299236_ _L299238_) + (let ((__tmp304952 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp301749 - (let ((__tmp301750 - (let ((__tmp301751 - (let ((__tmp301756 + (__tmp304944 + (let ((__tmp304945 + (let ((__tmp304946 + (let ((__tmp304951 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp301752 - (let ((__tmp301753 - (lambda (_g296160296163_ - _g296161296166_) - (let ((__tmp301754 - (let ((__tmp301755 + (__tmp304947 + (let ((__tmp304948 + (lambda (_g299255299258_ + _g299256299261_) + (let ((__tmp304949 + (let ((__tmp304950 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g296160296163_ __tmp301755)))) + (cons _g299255299258_ __tmp304950)))) (declare (not safe)) - (cons __tmp301754 _g296161296166_))))) + (cons __tmp304949 _g299256299261_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp301753 + (foldr1 __tmp304948 '() - _L296141_)))) + _L299236_)))) (declare (not safe)) - (cons __tmp301756 __tmp301752)))) + (cons __tmp304951 __tmp304947)))) (declare (not safe)) - (cons __tmp301751 '())))) + (cons __tmp304946 '())))) (declare (not safe)) - (cons _L296143_ __tmp301750)))) + (cons _L299238_ __tmp304945)))) (declare (not safe)) - (cons __tmp301757 __tmp301749))))) - (let ((___match301475301476_ - (lambda (_e296066296091_ - _hd296065296095_ - _tl296064296098_ - _e296069296101_ - _hd296068296105_ - _tl296067296108_ - ___splice301433301434_ - _target296070296111_ - _tl296072296114_) - (letrec ((_loop296073296117_ - (lambda (_hd296071296121_ _arity296077296124_) + (cons __tmp304952 __tmp304944))))) + (let ((___match304670304671_ + (lambda (_e299161299186_ + _hd299160299190_ + _tl299159299193_ + _e299164299196_ + _hd299163299200_ + _tl299162299203_ + ___splice304628304629_ + _target299165299206_ + _tl299167299209_) + (letrec ((_loop299168299212_ + (lambda (_hd299166299216_ _arity299172299219_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd296071296121_)) - (let ((_e296074296127_ + (gx#stx-pair? _hd299166299216_)) + (let ((_e299169299222_ (let () (declare (not safe)) - (gx#syntax-e _hd296071296121_)))) - (let ((_lp-tl296076296134_ + (gx#syntax-e _hd299166299216_)))) + (let ((_lp-tl299171299229_ (let () (declare (not safe)) - (##cdr _e296074296127_))) - (_lp-hd296075296131_ + (##cdr _e299169299222_))) + (_lp-hd299170299226_ (let () (declare (not safe)) - (##car _e296074296127_)))) - (_loop296073296117_ - _lp-tl296076296134_ + (##car _e299169299222_)))) + (_loop299168299212_ + _lp-tl299171299229_ (let () (declare (not safe)) - (cons _lp-hd296075296131_ - _arity296077296124_))))) - (let ((_arity296078296137_ - (reverse _arity296077296124_))) - (___kont301431301432_ - _arity296078296137_ - _hd296068296105_)))))) - (_loop296073296117_ _target296070296111_ '()))))) + (cons _lp-hd299170299226_ + _arity299172299219_))))) + (let ((_arity299173299232_ + (reverse _arity299172299219_))) + (___kont304626304627_ + _arity299173299232_ + _hd299163299200_)))))) + (_loop299168299212_ _target299165299206_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx301426301427_)) - (let ((_e296055296176_ + (gx#stx-pair? ___stx304621304622_)) + (let ((_e299150299271_ (let () (declare (not safe)) - (gx#syntax-e ___stx301426301427_)))) - (let ((_tl296053296183_ - (let () (declare (not safe)) (##cdr _e296055296176_))) - (_hd296054296180_ + (gx#syntax-e ___stx304621304622_)))) + (let ((_tl299148299278_ + (let () (declare (not safe)) (##cdr _e299150299271_))) + (_hd299149299275_ (let () (declare (not safe)) - (##car _e296055296176_)))) + (##car _e299150299271_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl296053296183_)) - (let ((_e296058296186_ + (gx#stx-pair? _tl299148299278_)) + (let ((_e299153299281_ (let () (declare (not safe)) - (gx#syntax-e _tl296053296183_)))) - (let ((_tl296056296193_ + (gx#syntax-e _tl299148299278_)))) + (let ((_tl299151299288_ (let () (declare (not safe)) - (##cdr _e296058296186_))) - (_hd296057296190_ + (##cdr _e299153299281_))) + (_hd299152299285_ (let () (declare (not safe)) - (##car _e296058296186_)))) + (##car _e299153299281_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl296056296193_)) - (let ((_e296061296196_ + (gx#stx-pair? _tl299151299288_)) + (let ((_e299156299291_ (let () (declare (not safe)) - (gx#syntax-e _tl296056296193_)))) - (let ((_tl296059296203_ + (gx#syntax-e _tl299151299288_)))) + (let ((_tl299154299298_ (let () (declare (not safe)) - (##cdr _e296061296196_))) - (_hd296060296200_ + (##cdr _e299156299291_))) + (_hd299155299295_ (let () (declare (not safe)) - (##car _e296061296196_)))) + (##car _e299156299291_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl296059296203_)) - (___kont301429301430_ - _hd296060296200_ - _hd296057296190_) + (gx#stx-null? _tl299154299298_)) + (___kont304624304625_ + _hd299155299295_ + _hd299152299285_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl296056296193_)) - (let ((___splice301433301434_ + _tl299151299288_)) + (let ((___splice304628304629_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl296056296193_ + _tl299151299288_ '0)))) - (let ((_tl296072296114_ + (let ((_tl299167299209_ (let () (declare (not safe)) (##vector-ref - ___splice301433301434_ + ___splice304628304629_ '1))) - (_target296070296111_ + (_target299165299206_ (let () (declare (not safe)) (##vector-ref - ___splice301433301434_ + ___splice304628304629_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl296072296114_)) - (___match301475301476_ - _e296055296176_ - _hd296054296180_ - _tl296053296183_ - _e296058296186_ - _hd296057296190_ - _tl296056296193_ - ___splice301433301434_ - _target296070296111_ - _tl296072296114_) + _tl299167299209_)) + (___match304670304671_ + _e299150299271_ + _hd299149299275_ + _tl299148299278_ + _e299153299281_ + _hd299152299285_ + _tl299151299288_ + ___splice304628304629_ + _target299165299206_ + _tl299167299209_) (let () (declare (not safe)) - (_g296049296084_))))) + (_g299144299179_))))) (let () (declare (not safe)) - (_g296049296084_)))))) + (_g299144299179_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl296056296193_)) - (let ((___splice301433301434_ + (gx#stx-pair/null? _tl299151299288_)) + (let ((___splice304628304629_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl296056296193_ + _tl299151299288_ '0)))) - (let ((_tl296072296114_ + (let ((_tl299167299209_ (let () (declare (not safe)) (##vector-ref - ___splice301433301434_ + ___splice304628304629_ '1))) - (_target296070296111_ + (_target299165299206_ (let () (declare (not safe)) (##vector-ref - ___splice301433301434_ + ___splice304628304629_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl296072296114_)) - (___match301475301476_ - _e296055296176_ - _hd296054296180_ - _tl296053296183_ - _e296058296186_ - _hd296057296190_ - _tl296056296193_ - ___splice301433301434_ - _target296070296111_ - _tl296072296114_) + (gx#stx-null? _tl299167299209_)) + (___match304670304671_ + _e299150299271_ + _hd299149299275_ + _tl299148299278_ + _e299153299281_ + _hd299152299285_ + _tl299151299288_ + ___splice304628304629_ + _target299165299206_ + _tl299167299209_) (let () (declare (not safe)) - (_g296049296084_))))) + (_g299144299179_))))) (let () (declare (not safe)) - (_g296049296084_)))))) - (let () (declare (not safe)) (_g296049296084_))))) - (let () (declare (not safe)) (_g296049296084_)))))))) + (_g299144299179_)))))) + (let () (declare (not safe)) (_g299144299179_))))) + (let () (declare (not safe)) (_g299144299179_)))))))) (define |gxc[:0:]#declare-primitive*| - (lambda (_$stx296228_) - (let* ((_g296232296267_ - (lambda (_g296233296263_) + (lambda (_$stx299323_) + (let* ((_g299327299362_ + (lambda (_g299328299358_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g296233296263_)))) - (_g296231296395_ - (lambda (_g296233296271_) + _g299328299358_)))) + (_g299326299490_ + (lambda (_g299328299366_) (if (let () (declare (not safe)) - (gx#stx-pair? _g296233296271_)) - (let ((_e296238296274_ + (gx#stx-pair? _g299328299366_)) + (let ((_e299333299369_ (let () (declare (not safe)) - (gx#syntax-e _g296233296271_)))) - (let ((_hd296237296278_ + (gx#syntax-e _g299328299366_)))) + (let ((_hd299332299373_ (let () (declare (not safe)) - (##car _e296238296274_))) - (_tl296236296281_ + (##car _e299333299369_))) + (_tl299331299376_ (let () (declare (not safe)) - (##cdr _e296238296274_)))) + (##cdr _e299333299369_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl296236296281_)) - (let ((_g301758_ + (gx#stx-pair/null? _tl299331299376_)) + (let ((_g304953_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl296236296281_ + _tl299331299376_ '0)))) (begin - (let ((_g301759_ + (let ((_g304954_ (let () (declare (not safe)) - (if (##values? _g301758_) - (##vector-length _g301758_) + (if (##values? _g304953_) + (##vector-length _g304953_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g301759_ 2))) + (##fx= _g304954_ 2))) (error "Context expects 2 values" - _g301759_))) - (let ((_target296239296284_ + _g304954_))) + (let ((_target299334299379_ (let () (declare (not safe)) - (##vector-ref _g301758_ 0))) - (_tl296241296287_ + (##vector-ref _g304953_ 0))) + (_tl299336299382_ (let () (declare (not safe)) - (##vector-ref _g301758_ 1)))) + (##vector-ref _g304953_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl296241296287_)) - (letrec ((_loop296242296290_ - (lambda (_hd296240296294_ - _arity296246296297_ - _prim296247296299_) + (gx#stx-null? _tl299336299382_)) + (letrec ((_loop299337299385_ + (lambda (_hd299335299389_ + _arity299341299392_ + _prim299342299394_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd296240296294_)) - (let ((_e296243296302_ + _hd299335299389_)) + (let ((_e299338299397_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd296240296294_)))) - (let ((_lp-hd296244296306_ - (let () (declare (not safe)) (##car _e296243296302_))) - (_lp-tl296245296309_ - (let () (declare (not safe)) (##cdr _e296243296302_)))) + (gx#syntax-e _hd299335299389_)))) + (let ((_lp-hd299339299401_ + (let () (declare (not safe)) (##car _e299338299397_))) + (_lp-tl299340299404_ + (let () (declare (not safe)) (##cdr _e299338299397_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd296244296306_)) - (let ((_e296252296312_ + (gx#stx-pair? _lp-hd299339299401_)) + (let ((_e299347299407_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd296244296306_)))) - (let ((_hd296251296316_ + (gx#syntax-e _lp-hd299339299401_)))) + (let ((_hd299346299411_ (let () (declare (not safe)) - (##car _e296252296312_))) - (_tl296250296319_ + (##car _e299347299407_))) + (_tl299345299414_ (let () (declare (not safe)) - (##cdr _e296252296312_)))) + (##cdr _e299347299407_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl296250296319_)) - (let ((_g301768_ + (gx#stx-pair/null? _tl299345299414_)) + (let ((_g304963_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl296250296319_ + _tl299345299414_ '0)))) (begin - (let ((_g301769_ + (let ((_g304964_ (let () (declare (not safe)) - (if (##values? _g301768_) - (##vector-length _g301768_) + (if (##values? _g304963_) + (##vector-length _g304963_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g301769_ 2))) + (##fx= _g304964_ 2))) (error "Context expects 2 values" - _g301769_))) - (let ((_target296253296322_ + _g304964_))) + (let ((_target299348299417_ (let () (declare (not safe)) - (##vector-ref _g301768_ 0))) - (_tl296255296325_ + (##vector-ref _g304963_ 0))) + (_tl299350299420_ (let () (declare (not safe)) - (##vector-ref _g301768_ 1)))) + (##vector-ref _g304963_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl296255296325_)) - (letrec ((_loop296256296328_ - (lambda (_hd296254296332_ - _arity296260296335_) + (gx#stx-null? _tl299350299420_)) + (letrec ((_loop299351299423_ + (lambda (_hd299349299427_ + _arity299355299430_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd296254296332_)) - (let ((_e296257296338_ + _hd299349299427_)) + (let ((_e299352299433_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd296254296332_)))) - (let ((_lp-hd296258296342_ - (let () (declare (not safe)) (##car _e296257296338_))) - (_lp-tl296259296345_ + (gx#syntax-e _hd299349299427_)))) + (let ((_lp-hd299353299437_ + (let () (declare (not safe)) (##car _e299352299433_))) + (_lp-tl299354299440_ (let () (declare (not safe)) - (##cdr _e296257296338_)))) - (_loop296256296328_ - _lp-tl296259296345_ + (##cdr _e299352299433_)))) + (_loop299351299423_ + _lp-tl299354299440_ (let () (declare (not safe)) - (cons _lp-hd296258296342_ _arity296260296335_))))) - (let ((_arity296261296348_ (reverse _arity296260296335_))) - (_loop296242296290_ - _lp-tl296245296309_ + (cons _lp-hd299353299437_ _arity299355299430_))))) + (let ((_arity299356299443_ (reverse _arity299355299430_))) + (_loop299337299385_ + _lp-tl299340299404_ (let () (declare (not safe)) - (cons _arity296261296348_ _arity296246296297_)) + (cons _arity299356299443_ _arity299341299392_)) (let () (declare (not safe)) - (cons _hd296251296316_ _prim296247296299_)))))))) + (cons _hd299346299411_ _prim299342299394_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop296256296328_ - _target296253296322_ + (_loop299351299423_ + _target299348299417_ '())) - (_g296232296267_ _g296233296271_))))) - (_g296232296267_ _g296233296271_)))) - (_g296232296267_ _g296233296271_)))) - (let ((_arity296248296352_ (reverse _arity296246296297_)) - (_prim296249296355_ (reverse _prim296247296299_))) - ((lambda (_L296358_ _L296360_) - (let ((__tmp301767 + (_g299327299362_ _g299328299366_))))) + (_g299327299362_ _g299328299366_)))) + (_g299327299362_ _g299328299366_)))) + (let ((_arity299343299447_ (reverse _arity299341299392_)) + (_prim299344299450_ (reverse _prim299342299394_))) + ((lambda (_L299453_ _L299455_) + (let ((__tmp304962 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp301760 + (__tmp304955 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L296358_ - _L296360_)) - (let ((__tmp301761 - (lambda (_g296375296381_ - _g296376296384_ - _g296377296386_) - (let ((__tmp301762 - (let ((__tmp301766 + _L299453_ + _L299455_)) + (let ((__tmp304956 + (lambda (_g299470299476_ + _g299471299479_ + _g299472299481_) + (let ((__tmp304957 + (let ((__tmp304961 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive))) - (__tmp301763 - (let ((__tmp301764 - (let ((__tmp301765 + (__tmp304958 + (let ((__tmp304959 + (let ((__tmp304960 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g296378296389_ _g296379296392_) + (lambda (_g299473299484_ _g299474299487_) (let () (declare (not safe)) - (cons _g296378296389_ _g296379296392_))))) + (cons _g299473299484_ _g299474299487_))))) (declare (not safe)) - (foldr1 __tmp301765 '() _g296375296381_)))) + (foldr1 __tmp304960 '() _g299470299476_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g296376296384_ - __tmp301764)))) + (cons _g299471299479_ + __tmp304959)))) (declare (not safe)) - (cons __tmp301766 __tmp301763)))) + (cons __tmp304961 __tmp304958)))) (declare (not safe)) - (cons __tmp301762 _g296377296386_))))) + (cons __tmp304957 _g299472299481_))))) (declare (not safe)) - (foldr2 __tmp301761 '() _L296358_ _L296360_))))) + (foldr2 __tmp304956 '() _L299453_ _L299455_))))) (declare (not safe)) - (cons __tmp301767 __tmp301760))) - _arity296248296352_ - _prim296249296355_)))))) + (cons __tmp304962 __tmp304955))) + _arity299343299447_ + _prim299344299450_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop296242296290_ - _target296239296284_ + (_loop299337299385_ + _target299334299379_ '() '())) - (_g296232296267_ _g296233296271_))))) - (_g296232296267_ _g296233296271_)))) - (_g296232296267_ _g296233296271_))))) - (_g296231296395_ _$stx296228_)))) + (_g299327299362_ _g299328299366_))))) + (_g299327299362_ _g299328299366_)))) + (_g299327299362_ _g299328299366_))))) + (_g299326299490_ _$stx299323_)))) (define |gxc[:0:]#declare-primitive/unchecked*| - (lambda (_$stx296401_) - (let* ((_g296405296440_ - (lambda (_g296406296436_) + (lambda (_$stx299496_) + (let* ((_g299500299535_ + (lambda (_g299501299531_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g296406296436_)))) - (_g296404296568_ - (lambda (_g296406296444_) + _g299501299531_)))) + (_g299499299663_ + (lambda (_g299501299539_) (if (let () (declare (not safe)) - (gx#stx-pair? _g296406296444_)) - (let ((_e296411296447_ + (gx#stx-pair? _g299501299539_)) + (let ((_e299506299542_ (let () (declare (not safe)) - (gx#syntax-e _g296406296444_)))) - (let ((_hd296410296451_ + (gx#syntax-e _g299501299539_)))) + (let ((_hd299505299546_ (let () (declare (not safe)) - (##car _e296411296447_))) - (_tl296409296454_ + (##car _e299506299542_))) + (_tl299504299549_ (let () (declare (not safe)) - (##cdr _e296411296447_)))) + (##cdr _e299506299542_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl296409296454_)) - (let ((_g301770_ + (gx#stx-pair/null? _tl299504299549_)) + (let ((_g304965_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl296409296454_ + _tl299504299549_ '0)))) (begin - (let ((_g301771_ + (let ((_g304966_ (let () (declare (not safe)) - (if (##values? _g301770_) - (##vector-length _g301770_) + (if (##values? _g304965_) + (##vector-length _g304965_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g301771_ 2))) + (##fx= _g304966_ 2))) (error "Context expects 2 values" - _g301771_))) - (let ((_target296412296457_ + _g304966_))) + (let ((_target299507299552_ (let () (declare (not safe)) - (##vector-ref _g301770_ 0))) - (_tl296414296460_ + (##vector-ref _g304965_ 0))) + (_tl299509299555_ (let () (declare (not safe)) - (##vector-ref _g301770_ 1)))) + (##vector-ref _g304965_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl296414296460_)) - (letrec ((_loop296415296463_ - (lambda (_hd296413296467_ - _arity296419296470_ - _prim296420296472_) + (gx#stx-null? _tl299509299555_)) + (letrec ((_loop299510299558_ + (lambda (_hd299508299562_ + _arity299514299565_ + _prim299515299567_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd296413296467_)) - (let ((_e296416296475_ + _hd299508299562_)) + (let ((_e299511299570_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd296413296467_)))) - (let ((_lp-hd296417296479_ - (let () (declare (not safe)) (##car _e296416296475_))) - (_lp-tl296418296482_ - (let () (declare (not safe)) (##cdr _e296416296475_)))) + (gx#syntax-e _hd299508299562_)))) + (let ((_lp-hd299512299574_ + (let () (declare (not safe)) (##car _e299511299570_))) + (_lp-tl299513299577_ + (let () (declare (not safe)) (##cdr _e299511299570_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd296417296479_)) - (let ((_e296425296485_ + (gx#stx-pair? _lp-hd299512299574_)) + (let ((_e299520299580_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd296417296479_)))) - (let ((_hd296424296489_ + (gx#syntax-e _lp-hd299512299574_)))) + (let ((_hd299519299584_ (let () (declare (not safe)) - (##car _e296425296485_))) - (_tl296423296492_ + (##car _e299520299580_))) + (_tl299518299587_ (let () (declare (not safe)) - (##cdr _e296425296485_)))) + (##cdr _e299520299580_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl296423296492_)) - (let ((_g301780_ + (gx#stx-pair/null? _tl299518299587_)) + (let ((_g304975_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl296423296492_ + _tl299518299587_ '0)))) (begin - (let ((_g301781_ + (let ((_g304976_ (let () (declare (not safe)) - (if (##values? _g301780_) - (##vector-length _g301780_) + (if (##values? _g304975_) + (##vector-length _g304975_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g301781_ 2))) + (##fx= _g304976_ 2))) (error "Context expects 2 values" - _g301781_))) - (let ((_target296426296495_ + _g304976_))) + (let ((_target299521299590_ (let () (declare (not safe)) - (##vector-ref _g301780_ 0))) - (_tl296428296498_ + (##vector-ref _g304975_ 0))) + (_tl299523299593_ (let () (declare (not safe)) - (##vector-ref _g301780_ 1)))) + (##vector-ref _g304975_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl296428296498_)) - (letrec ((_loop296429296501_ - (lambda (_hd296427296505_ - _arity296433296508_) + (gx#stx-null? _tl299523299593_)) + (letrec ((_loop299524299596_ + (lambda (_hd299522299600_ + _arity299528299603_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd296427296505_)) - (let ((_e296430296511_ + _hd299522299600_)) + (let ((_e299525299606_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd296427296505_)))) - (let ((_lp-hd296431296515_ - (let () (declare (not safe)) (##car _e296430296511_))) - (_lp-tl296432296518_ + (gx#syntax-e _hd299522299600_)))) + (let ((_lp-hd299526299610_ + (let () (declare (not safe)) (##car _e299525299606_))) + (_lp-tl299527299613_ (let () (declare (not safe)) - (##cdr _e296430296511_)))) - (_loop296429296501_ - _lp-tl296432296518_ + (##cdr _e299525299606_)))) + (_loop299524299596_ + _lp-tl299527299613_ (let () (declare (not safe)) - (cons _lp-hd296431296515_ _arity296433296508_))))) - (let ((_arity296434296521_ (reverse _arity296433296508_))) - (_loop296415296463_ - _lp-tl296418296482_ + (cons _lp-hd299526299610_ _arity299528299603_))))) + (let ((_arity299529299616_ (reverse _arity299528299603_))) + (_loop299510299558_ + _lp-tl299513299577_ (let () (declare (not safe)) - (cons _arity296434296521_ _arity296419296470_)) + (cons _arity299529299616_ _arity299514299565_)) (let () (declare (not safe)) - (cons _hd296424296489_ _prim296420296472_)))))))) + (cons _hd299519299584_ _prim299515299567_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop296429296501_ - _target296426296495_ + (_loop299524299596_ + _target299521299590_ '())) - (_g296405296440_ _g296406296444_))))) - (_g296405296440_ _g296406296444_)))) - (_g296405296440_ _g296406296444_)))) - (let ((_arity296421296525_ (reverse _arity296419296470_)) - (_prim296422296528_ (reverse _prim296420296472_))) - ((lambda (_L296531_ _L296533_) - (let ((__tmp301779 + (_g299500299535_ _g299501299539_))))) + (_g299500299535_ _g299501299539_)))) + (_g299500299535_ _g299501299539_)))) + (let ((_arity299516299620_ (reverse _arity299514299565_)) + (_prim299517299623_ (reverse _prim299515299567_))) + ((lambda (_L299626_ _L299628_) + (let ((__tmp304974 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp301772 + (__tmp304967 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L296531_ - _L296533_)) - (let ((__tmp301773 - (lambda (_g296548296554_ - _g296549296557_ - _g296550296559_) - (let ((__tmp301774 - (let ((__tmp301778 + _L299626_ + _L299628_)) + (let ((__tmp304968 + (lambda (_g299643299649_ + _g299644299652_ + _g299645299654_) + (let ((__tmp304969 + (let ((__tmp304973 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive/unchecked))) - (__tmp301775 - (let ((__tmp301776 - (let ((__tmp301777 + (__tmp304970 + (let ((__tmp304971 + (let ((__tmp304972 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g296551296562_ _g296552296565_) + (lambda (_g299646299657_ _g299647299660_) (let () (declare (not safe)) - (cons _g296551296562_ _g296552296565_))))) + (cons _g299646299657_ _g299647299660_))))) (declare (not safe)) - (foldr1 __tmp301777 '() _g296548296554_)))) + (foldr1 __tmp304972 '() _g299643299649_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g296549296557_ - __tmp301776)))) + (cons _g299644299652_ + __tmp304971)))) (declare (not safe)) - (cons __tmp301778 __tmp301775)))) + (cons __tmp304973 __tmp304970)))) (declare (not safe)) - (cons __tmp301774 _g296550296559_))))) + (cons __tmp304969 _g299645299654_))))) (declare (not safe)) - (foldr2 __tmp301773 '() _L296531_ _L296533_))))) + (foldr2 __tmp304968 '() _L299626_ _L299628_))))) (declare (not safe)) - (cons __tmp301779 __tmp301772))) - _arity296421296525_ - _prim296422296528_)))))) + (cons __tmp304974 __tmp304967))) + _arity299516299620_ + _prim299517299623_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop296415296463_ - _target296412296457_ + (_loop299510299558_ + _target299507299552_ '() '())) - (_g296405296440_ _g296406296444_))))) - (_g296405296440_ _g296406296444_)))) - (_g296405296440_ _g296406296444_))))) - (_g296404296568_ _$stx296401_))))) + (_g299500299535_ _g299501299539_))))) + (_g299500299535_ _g299501299539_)))) + (_g299500299535_ _g299501299539_))))) + (_g299499299663_ _$stx299496_))))) diff --git a/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm b/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm index 682cf15f0..e382da791 100644 --- a/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm +++ b/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm @@ -1,14 +1,14 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core$$::timestamp 1707573207) + (define gerbil/core$$::timestamp 1707674927) (begin (define gerbil/core$$#class-type-info::t - (let ((__tmp47579 (list))) + (let ((__tmp47370 (list))) (declare (not safe)) (make-class-type 'gerbil.core#class-type-info::t 'class-type-info - __tmp47579 + __tmp47370 '(id name super slots @@ -29,10 +29,10 @@ (declare (not safe)) (make-class-predicate gerbil/core$$#class-type-info::t))) (define gerbil/core$$#make-class-type-info - (lambda _$args19398_ - (apply make-class-instance + (lambda _$args19251_ + (apply make-instance gerbil/core$$#class-type-info::t - _$args19398_))) + _$args19251_))) (define gerbil/core$$#class-type-id (let () (declare (not safe)) @@ -370,128 +370,128 @@ gerbil/core$$#class-type-info::t 'unchecked-mutators))) (define gerbil/core$$#class-type-info::apply-macro-expander - (lambda (_self19310_ _stx19311_) - (let* ((_g1931319332_ - (lambda (_g1931419329_) + (lambda (_self19163_ _stx19164_) + (let* ((_g1916619185_ + (lambda (_g1916719182_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1931419329_))) - (_g1931219395_ - (lambda (_g1931419335_) - (if (gx#stx-pair? _g1931419335_) - (let ((_e1931819337_ (gx#syntax-e _g1931419335_))) - (let ((_hd1931719340_ + _g1916719182_))) + (_g1916519248_ + (lambda (_g1916719188_) + (if (gx#stx-pair? _g1916719188_) + (let ((_e1917119190_ (gx#syntax-e _g1916719188_))) + (let ((_hd1917019193_ (let () (declare (not safe)) - (##car _e1931819337_))) - (_tl1931619342_ + (##car _e1917119190_))) + (_tl1916919195_ (let () (declare (not safe)) - (##cdr _e1931819337_)))) - (if (gx#stx-pair/null? _tl1931619342_) - (let ((_g47580_ + (##cdr _e1917119190_)))) + (if (gx#stx-pair/null? _tl1916919195_) + (let ((_g47371_ (gx#syntax-split-splice - _tl1931619342_ + _tl1916919195_ '0))) (begin - (let ((_g47581_ + (let ((_g47372_ (let () (declare (not safe)) - (if (##values? _g47580_) - (##vector-length _g47580_) + (if (##values? _g47371_) + (##vector-length _g47371_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47581_ 2))) + (##fx= _g47372_ 2))) (error "Context expects 2 values" - _g47581_))) - (let ((_target1931919345_ + _g47372_))) + (let ((_target1917219198_ (let () (declare (not safe)) - (##vector-ref _g47580_ 0))) - (_tl1932119347_ + (##vector-ref _g47371_ 0))) + (_tl1917419200_ (let () (declare (not safe)) - (##vector-ref _g47580_ 1)))) - (if (gx#stx-null? _tl1932119347_) - (letrec ((_loop1932219350_ - (lambda (_hd1932019353_ - _arg1932619355_) + (##vector-ref _g47371_ 1)))) + (if (gx#stx-null? _tl1917419200_) + (letrec ((_loop1917519203_ + (lambda (_hd1917319206_ + _arg1917919208_) (if (gx#stx-pair? - _hd1932019353_) - (let ((_e1932319358_ + _hd1917319206_) + (let ((_e1917619211_ (gx#syntax-e - _hd1932019353_))) - (let ((_lp-hd1932419361_ + _hd1917319206_))) + (let ((_lp-hd1917719214_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1932319358_))) - (_lp-tl1932519363_ - (let () (declare (not safe)) (##cdr _e1932319358_)))) - (let ((__tmp47584 + (let () (declare (not safe)) (##car _e1917619211_))) + (_lp-tl1917819216_ + (let () (declare (not safe)) (##cdr _e1917619211_)))) + (let ((__tmp47375 (let () (declare (not safe)) - (cons _lp-hd1932419361_ _arg1932619355_)))) + (cons _lp-hd1917719214_ _arg1917919208_)))) (declare (not safe)) - (_loop1932219350_ _lp-tl1932519363_ __tmp47584)))) - (let ((_arg1932719366_ (reverse _arg1932619355_))) - ((lambda (_L19369_) - (let ((_$e19383_ - (let ((__obj47553 _self19310_)) + (_loop1917519203_ _lp-tl1917819216_ __tmp47375)))) + (let ((_arg1918019219_ (reverse _arg1917919208_))) + ((lambda (_L19222_) + (let ((_$e19236_ + (let ((__obj47345 _self19163_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47553 + __obj47345 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47553 + __obj47345 '9 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47553 + __obj47345 'constructor))))) - (if _$e19383_ - ((lambda (_make19386_) - (let ((__tmp47582 - (let ((__tmp47583 - (lambda (_g1938719390_ - _g1938819392_) + (if _$e19236_ + ((lambda (_make19239_) + (let ((__tmp47373 + (let ((__tmp47374 + (lambda (_g1924019243_ + _g1924119245_) (let () (declare (not safe)) - (cons _g1938719390_ - _g1938819392_))))) + (cons _g1924019243_ + _g1924119245_))))) (declare (not safe)) - (foldr1 __tmp47583 '() _L19369_)))) + (foldr1 __tmp47374 '() _L19222_)))) (declare (not safe)) - (cons _make19386_ __tmp47582))) - _$e19383_) + (cons _make19239_ __tmp47373))) + _$e19236_) (gx#raise-syntax-error '#f '"no constructor defined for class" - _stx19311_ - _self19310_)))) - _arg1932719366_)))))) + _stx19164_ + _self19163_)))) + _arg1918019219_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1932219350_ - _target1931919345_ + (_loop1917519203_ + _target1917219198_ '()))) (let () (declare (not safe)) - (_g1931319332_ _g1931419335_)))))) + (_g1916619185_ _g1916719188_)))))) (let () (declare (not safe)) - (_g1931319332_ _g1931419335_))))) + (_g1916619185_ _g1916719188_))))) (let () (declare (not safe)) - (_g1931319332_ _g1931419335_)))))) + (_g1916619185_ _g1916719188_)))))) (declare (not safe)) - (_g1931219395_ _stx19311_)))) + (_g1916519248_ _stx19164_)))) (let () (declare (not safe)) (bind-method! @@ -499,46 +499,46 @@ 'apply-macro-expander gerbil/core$$#class-type-info::apply-macro-expander)) (define gerbil/core$$#syntax-local-class-type-info?__% - (lambda (_stx19291_ _is?19292_) - (if (gx#identifier? _stx19291_) - (let ((_e1929319295_ (gx#syntax-local-value _stx19291_ false))) - (if _e1929319295_ - (let ((_e19298_ _e1929319295_)) + (lambda (_stx19144_ _is?19145_) + (if (gx#identifier? _stx19144_) + (let ((_e1914619148_ (gx#syntax-local-value _stx19144_ false))) + (if _e1914619148_ + (let ((_e19151_ _e1914619148_)) (if (let () (declare (not safe)) (class-instance? gerbil/core$$#class-type-info::t - _e19298_)) - (_is?19292_ _e19298_) + _e19151_)) + (_is?19145_ _e19151_) '#f)) '#f)) '#f))) (define gerbil/core$$#syntax-local-class-type-info?__0 - (lambda (_stx19303_) - (let ((_is?19305_ true)) + (lambda (_stx19156_) + (let ((_is?19158_ true)) (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__% - _stx19303_ - _is?19305_)))) + _stx19156_ + _is?19158_)))) (define gerbil/core$$#syntax-local-class-type-info? - (lambda _g47586_ - (let ((_g47585_ (let () (declare (not safe)) (##length _g47586_)))) - (cond ((let () (declare (not safe)) (##fx= _g47585_ 1)) - (apply (lambda (_stx19303_) + (lambda _g47377_ + (let ((_g47376_ (let () (declare (not safe)) (##length _g47377_)))) + (cond ((let () (declare (not safe)) (##fx= _g47376_ 1)) + (apply (lambda (_stx19156_) (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__0 - _stx19303_))) - _g47586_)) - ((let () (declare (not safe)) (##fx= _g47585_ 2)) - (apply (lambda (_stx19307_ _is?19308_) + _stx19156_))) + _g47377_)) + ((let () (declare (not safe)) (##fx= _g47376_ 2)) + (apply (lambda (_stx19160_ _is?19161_) (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__% - _stx19307_ - _is?19308_))) - _g47586_)) + _stx19160_ + _is?19161_))) + _g47377_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core$$#syntax-local-class-type-info? - _g47586_)))))))) + _g47377_)))))))) diff --git a/src/bootstrap/gerbil/core$_macro-object___0.scm b/src/bootstrap/gerbil/core$_macro-object___0.scm index d603c4414..313d1281b 100644 --- a/src/bootstrap/gerbil/core$_macro-object___0.scm +++ b/src/bootstrap/gerbil/core$_macro-object___0.scm @@ -1,14 +1,14 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core$::timestamp 1707573207) + (define gerbil/core$::timestamp 1707674927) (begin (define gerbil/core$#macro-object::t - (let ((__tmp47587 (list))) + (let ((__tmp47378 (list))) (declare (not safe)) (make-class-type 'gerbil.core#macro-object::t 'macro-object - __tmp47587 + __tmp47378 '(macro) '() '#f))) @@ -17,10 +17,10 @@ (declare (not safe)) (make-class-predicate gerbil/core$#macro-object::t))) (define gerbil/core$#make-macro-object - (lambda _$args23525_ - (apply make-class-instance + (lambda _$args23240_ + (apply make-instance gerbil/core$#macro-object::t - _$args23525_))) + _$args23240_))) (define gerbil/core$#macro-object-macro (let () (declare (not safe)) @@ -46,44 +46,44 @@ gerbil/core$#macro-object::t 'macro))) (define gerbil/core$#macro-object::apply-macro-expander - (lambda (_self23522_ _stx23523_) + (lambda (_self23237_ _stx23238_) (gx#core-apply-expander - (let ((__obj47560 _self23522_)) + (let ((__obj47351 _self23237_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47560 + __obj47351 'gerbil.core#macro-object::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47560 + __obj47351 '1 gerbil/core$#macro-object::t '#f)) (class-slot-ref gerbil/core$#macro-object::t - __obj47560 + __obj47351 'macro))) - _stx23523_))) + _stx23238_))) (define gerbil/core$#macro-object::apply-macro-expander::specialize - (lambda (__t41874) - (let ((__macro41875 - (let ((__tmp41876 + (lambda (__t41690) + (let ((__macro41691 + (let ((__tmp41692 (let () (declare (not safe)) - (class-slot-offset __t41874 'macro)))) - (if __tmp41876 __tmp41876 (error '"Unknown slot" 'macro))))) - (lambda (_self23522_ _stx23523_) + (class-slot-offset __t41690 'macro)))) + (if __tmp41692 __tmp41692 (error '"Unknown slot" 'macro))))) + (lambda (_self23237_ _stx23238_) (gx#core-apply-expander (let () (declare (not safe)) (##unchecked-structure-ref - _self23522_ - __macro41875 - __t41874 + _self23237_ + __macro41691 + __t41690 '#f)) - _stx23523_))))) + _stx23238_))))) (bind-specializer! gerbil/core$#macro-object::apply-macro-expander gerbil/core$#macro-object::apply-macro-expander::specialize) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index f6297920e..e71a74ef8 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -422,7 +422,7 @@ namespace: gerbil/core (make-uninterned-keyword make-uninterned-keyword) (symbol->keyword symbol->keyword) (keyword->symbol keyword->symbol) - (c3-linearize c3-linearize) + (c4-linearize c4-linearize) (type-descriptor? type-descriptor?) (type-id type-id) (type-descriptor-precedence-all-slots @@ -437,8 +437,6 @@ namespace: gerbil/core (type-struct? type-struct?) (struct-type? struct-type?) (class-type? class-type?) - (make-struct-type make-struct-type) - (make-struct-predicate make-struct-predicate) (make-struct-slot-accessor make-struct-slot-accessor) (make-struct-slot-mutator make-struct-slot-mutator) (make-struct-slot-unchecked-accessor @@ -453,7 +451,6 @@ namespace: gerbil/core make-struct-field-unchecked-mutator) (base-struct base-struct) (class-precedence-list class-precedence-list) - (struct-precedence-list struct-precedence-list) (unchecked-field-ref unchecked-field-ref) (unchecked-field-set! unchecked-field-set!) (make-class-type make-class-type) @@ -475,13 +472,12 @@ namespace: gerbil/core (class-instance? class-instance?) (direct-instance? direct-instance?) (make-object make-object) - (make-instance make-instance) (object-fill! object-fill!) (struct-copy struct-copy) (struct->list struct->list) (class->list class->list) - (make-struct-instance make-struct-instance) - (make-class-instance make-class-instance) + (make-new-instance make-new-instance) + (make-instance make-instance) (struct-instance-init! struct-instance-init!) (class-instance-init! class-instance-init!) (slot-ref slot-ref) @@ -1324,8 +1320,8 @@ namespace: gerbil/core typedef-body? |gerbil/core$$[1]#typedef-body?|) (%#define-runtime - generate-typedef - |gerbil/core$$[1]#generate-typedef|)) + generate-defclass + |gerbil/core$$[1]#generate-defclass|)) (%#define-syntax defstruct |gerbil/core$$[:0:]#defstruct|) diff --git a/src/bootstrap/gerbil/core.ssxi.ss b/src/bootstrap/gerbil/core.ssxi.ss index 1b0727c83..122eeb406 100644 --- a/src/bootstrap/gerbil/core.ssxi.ss +++ b/src/bootstrap/gerbil/core.ssxi.ss @@ -267,7 +267,9 @@ package: gerbil (1 gerbil/core$$#syntax-local-class-type-info?__0) (2 gerbil/core$$#syntax-local-class-type-info?__%))) (declare-type |gerbil/core$$[1]#typedef-body?| (@lambda 1 #f)) - (declare-type |gerbil/core$$[1]#generate-typedef| (@lambda 6 #f)) + (declare-type + |gerbil/core$$[1]#generate-defclass| + (@lambda 5 #f)) (declare-type gerbil/core$#macro-object::t (@class gerbil.core#macro-object::t diff --git a/src/bootstrap/gerbil/core__10.scm b/src/bootstrap/gerbil/core__10.scm index 07feabbb9..cca563497 100644 --- a/src/bootstrap/gerbil/core__10.scm +++ b/src/bootstrap/gerbil/core__10.scm @@ -1,116 +1,116 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[1]#_g50116_| + (define |gerbil/core$[1]#_g49877_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50117_| + (define |gerbil/core$[1]#_g49878_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50174_| + (define |gerbil/core$[1]#_g49935_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50175_| + (define |gerbil/core$[1]#_g49936_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50176_| + (define |gerbil/core$[1]#_g49937_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50178_| + (define |gerbil/core$[1]#_g49939_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50179_| + (define |gerbil/core$[1]#_g49940_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50180_| + (define |gerbil/core$[1]#_g49941_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50181_| + (define |gerbil/core$[1]#_g49942_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50182_| + (define |gerbil/core$[1]#_g49943_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50183_| + (define |gerbil/core$[1]#_g49944_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50184_| + (define |gerbil/core$[1]#_g49945_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50185_| + (define |gerbil/core$[1]#_g49946_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50186_| + (define |gerbil/core$[1]#_g49947_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50187_| + (define |gerbil/core$[1]#_g49948_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50580_| + (define |gerbil/core$[1]#_g50341_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50664_| + (define |gerbil/core$[1]#_g50425_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50684_| + (define |gerbil/core$[1]#_g50445_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50685_| + (define |gerbil/core$[1]#_g50446_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50814_| + (define |gerbil/core$[1]#_g50575_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50815_| + (define |gerbil/core$[1]#_g50576_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50816_| + (define |gerbil/core$[1]#_g50577_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50817_| + (define |gerbil/core$[1]#_g50578_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50818_| + (define |gerbil/core$[1]#_g50579_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) (begin (define |gerbil/core$[1]#match-macro::t| - (let ((__tmp50100 (list gerbil/core$#macro-object::t))) + (let ((__tmp49861 (list gerbil/core$#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#match-macro::t 'match-macro - __tmp50100 + __tmp49861 '() '() '#f))) @@ -119,10 +119,10 @@ (declare (not safe)) (make-class-predicate |gerbil/core$[1]#match-macro::t|))) (define |gerbil/core$[1]#make-match-macro| - (lambda _$args30749_ - (apply make-class-instance + (lambda _$args30464_ + (apply make-instance |gerbil/core$[1]#match-macro::t| - _$args30749_))) + _$args30464_))) (define |gerbil/core$[1]#match-macro-macro| (let () (declare (not safe)) @@ -148,10515 +148,10515 @@ |gerbil/core$[1]#match-macro::t| 'macro))) (define |gerbil/core$[1]#syntax-local-match-macro?| - (lambda (_stx30746_) - (if (gx#identifier? _stx30746_) - (let ((__tmp50101 (gx#syntax-local-value _stx30746_ false))) + (lambda (_stx30461_) + (if (gx#identifier? _stx30461_) + (let ((__tmp49862 (gx#syntax-local-value _stx30461_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#match-macro::t| - __tmp50101)) + __tmp49862)) '#f))) (define |gerbil/core$[1]#parse-match-pattern__%| - (lambda (_stx29052_ _match-stx29054_) - (letrec ((_parse129056_ - (lambda (_hd29409_) - (let* ((___stx4490844909_ _hd29409_) - (_g2943529577_ + (lambda (_stx28767_ _match-stx28769_) + (letrec ((_parse128771_ + (lambda (_hd29124_) + (let* ((___stx4470044701_ _hd29124_) + (_g2915029292_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4490844909_)))) - (let ((___kont4491144912_ - (lambda (_L30509_ _L30511_) - (let* ((___stx4482844829_ _L30509_) - (_g3052830561_ + ___stx4470044701_)))) + (let ((___kont4470344704_ + (lambda (_L30224_ _L30226_) + (let* ((___stx4462044621_ _L30224_) + (_g3024330276_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4482844829_)))) - (let ((___kont4483144832_ + ___stx4462044621_)))) + (let ((___kont4462344624_ (lambda () - (let ((__tmp50102 + (let ((__tmp49863 (let () (declare (not safe)) - (cons _L30511_ '())))) + (cons _L30226_ '())))) (declare (not safe)) - (cons '?: __tmp50102)))) - (___kont4483344834_ - (lambda (_L30702_) - (let ((__tmp50103 - (let ((__tmp50104 - (let ((__tmp50105 + (cons '?: __tmp49863)))) + (___kont4462544626_ + (lambda (_L30417_) + (let ((__tmp49864 + (let ((__tmp49865 + (let ((__tmp49866 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_parse129056_ _L30702_)))) + (_parse128771_ _L30417_)))) (declare (not safe)) - (cons __tmp50105 '())))) + (cons __tmp49866 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L30511_ - __tmp50104)))) + (cons _L30226_ + __tmp49865)))) (declare (not safe)) - (cons '?: __tmp50103)))) - (___kont4483544836_ - (lambda (_L30672_) - (let ((__tmp50106 - (let ((__tmp50107 - (let ((__tmp50108 - (let ((__tmp50109 + (cons '?: __tmp49864)))) + (___kont4462744628_ + (lambda (_L30387_) + (let ((__tmp49867 + (let ((__tmp49868 + (let ((__tmp49869 + (let ((__tmp49870 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_parse129056_ _L30672_)))) + (_parse128771_ _L30387_)))) (declare (not safe)) - (cons __tmp50109 '())))) + (cons __tmp49870 '())))) (declare (not safe)) - (cons '=>: __tmp50108)))) + (cons '=>: __tmp49869)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L30511_ - __tmp50107)))) + (cons _L30226_ + __tmp49868)))) (declare (not safe)) - (cons '?: __tmp50106)))) - (___kont4483744838_ - (lambda (_L30623_ _L30625_) - (let ((__tmp50110 - (let ((__tmp50111 - (let ((__tmp50112 - (let ((__tmp50113 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50114 - (let ((__tmp50115 + (cons '?: __tmp49867)))) + (___kont4462944630_ + (lambda (_L30338_ _L30340_) + (let ((__tmp49871 + (let ((__tmp49872 + (let ((__tmp49873 + (let ((__tmp49874 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49875 + (let ((__tmp49876 (let () (declare (not safe)) - (_parse129056_ _L30623_)))) + (_parse128771_ _L30338_)))) (declare (not safe)) - (cons __tmp50115 '())))) + (cons __tmp49876 '())))) (declare (not safe)) - (cons '=>: __tmp50114)))) + (cons '=>: __tmp49875)))) (declare (not safe)) - (cons _L30625_ __tmp50113)))) + (cons _L30340_ __tmp49874)))) (declare (not safe)) - (cons ':: __tmp50112)))) + (cons ':: __tmp49873)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L30511_ - __tmp50111)))) + (cons _L30226_ + __tmp49872)))) (declare (not safe)) - (cons '?: __tmp50110)))) - (___kont4483944840_ + (cons '?: __tmp49871)))) + (___kont4463144632_ (lambda () (let () (declare (not safe)) - (_parse-error29063_ _hd29409_))))) - (let ((_g3052430713_ + (_parse-error28778_ _hd29124_))))) + (let ((_g3023930428_ (lambda () (if (gx#stx-pair? - ___stx4482844829_) - (let ((_e3053330692_ + ___stx4462044621_) + (let ((_e3024830407_ (gx#syntax-e - ___stx4482844829_))) - (let ((_tl3053130699_ + ___stx4462044621_))) + (let ((_tl3024630414_ (let () (declare (not safe)) - (##cdr _e3053330692_))) - (_hd3053230696_ + (##cdr _e3024830407_))) + (_hd3024730411_ (let () (declare (not safe)) - (##car _e3053330692_)))) + (##car _e3024830407_)))) (if (gx#stx-null? - _tl3053130699_) - (___kont4483344834_ - _hd3053230696_) + _tl3024630414_) + (___kont4462544626_ + _hd3024730411_) (if (gx#identifier? - _hd3053230696_) + _hd3024730411_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g50117_| - _hd3053230696_) - (if (gx#stx-pair? _tl3053130699_) - (let ((_e3054030662_ (gx#syntax-e _tl3053130699_))) - (let ((_tl3053830669_ + |gerbil/core$[1]#_g49878_| + _hd3024730411_) + (if (gx#stx-pair? _tl3024630414_) + (let ((_e3025530377_ (gx#syntax-e _tl3024630414_))) + (let ((_tl3025330384_ (let () (declare (not safe)) - (##cdr _e3054030662_))) - (_hd3053930666_ + (##cdr _e3025530377_))) + (_hd3025430381_ (let () (declare (not safe)) - (##car _e3054030662_)))) - (if (gx#stx-null? _tl3053830669_) - (___kont4483544836_ _hd3053930666_) - (___kont4483944840_)))) - (___kont4483944840_)) - (___kont4483944840_)) - (if (gx#stx-datum? _hd3053230696_) - (let ((_e3054630589_ (gx#stx-e _hd3053230696_))) + (##car _e3025530377_)))) + (if (gx#stx-null? _tl3025330384_) + (___kont4462744628_ _hd3025430381_) + (___kont4463144632_)))) + (___kont4463144632_)) + (___kont4463144632_)) + (if (gx#stx-datum? _hd3024730411_) + (let ((_e3026130304_ (gx#stx-e _hd3024730411_))) (if (let () (declare (not safe)) - (equal? _e3054630589_ '::)) - (if (gx#stx-pair? _tl3053130699_) - (let ((_e3054930593_ - (gx#syntax-e _tl3053130699_))) - (let ((_tl3054730600_ + (equal? _e3026130304_ '::)) + (if (gx#stx-pair? _tl3024630414_) + (let ((_e3026430308_ + (gx#syntax-e _tl3024630414_))) + (let ((_tl3026230315_ (let () (declare (not safe)) - (##cdr _e3054930593_))) - (_hd3054830597_ + (##cdr _e3026430308_))) + (_hd3026330312_ (let () (declare (not safe)) - (##car _e3054930593_)))) - (if (gx#stx-pair? _tl3054730600_) - (let ((_e3055230603_ - (gx#syntax-e _tl3054730600_))) - (let ((_tl3055030610_ + (##car _e3026430308_)))) + (if (gx#stx-pair? _tl3026230315_) + (let ((_e3026730318_ + (gx#syntax-e _tl3026230315_))) + (let ((_tl3026530325_ (let () (declare (not safe)) - (##cdr _e3055230603_))) - (_hd3055130607_ + (##cdr _e3026730318_))) + (_hd3026630322_ (let () (declare (not safe)) - (##car _e3055230603_)))) + (##car _e3026730318_)))) (if (gx#identifier? - _hd3055130607_) + _hd3026630322_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50116_| - _hd3055130607_) + |gerbil/core$[1]#_g49877_| + _hd3026630322_) (if (gx#stx-pair? - _tl3055030610_) - (let ((_e3055530613_ + _tl3026530325_) + (let ((_e3027030328_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3055030610_))) - (let ((_tl3055330620_ - (let () (declare (not safe)) (##cdr _e3055530613_))) - (_hd3055430617_ + (gx#syntax-e _tl3026530325_))) + (let ((_tl3026830335_ + (let () (declare (not safe)) (##cdr _e3027030328_))) + (_hd3026930332_ (let () (declare (not safe)) - (##car _e3055530613_)))) - (if (gx#stx-null? _tl3055330620_) - (___kont4483744838_ _hd3055430617_ _hd3054830597_) - (___kont4483944840_)))) - (___kont4483944840_)) - (___kont4483944840_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4483944840_)))) - (___kont4483944840_)))) - (___kont4483944840_)) - (___kont4483944840_))) - (___kont4483944840_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4483944840_))))) - (if (gx#stx-null? ___stx4482844829_) - (___kont4483144832_) + (##car _e3027030328_)))) + (if (gx#stx-null? _tl3026830335_) + (___kont4462944630_ _hd3026930332_ _hd3026330312_) + (___kont4463144632_)))) + (___kont4463144632_)) + (___kont4463144632_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4463144632_)))) + (___kont4463144632_)))) + (___kont4463144632_)) + (___kont4463144632_))) + (___kont4463144632_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4463144632_))))) + (if (gx#stx-null? ___stx4462044621_) + (___kont4462344624_) (let () (declare (not safe)) - (_g3052430713_)))))))) - (___kont4491344914_ - (lambda (_L30414_) - (let* ((___stx4481044811_ _L30414_) - (_g3042630437_ + (_g3023930428_)))))))) + (___kont4470544706_ + (lambda (_L30129_) + (let* ((___stx4460244603_ _L30129_) + (_g3014130152_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4481044811_)))) - (let ((___kont4481344814_ - (lambda (_L30465_) + ___stx4460244603_)))) + (let ((___kont4460544606_ + (lambda (_L30180_) (let () (declare (not safe)) - (_parse129056_ _L30465_)))) - (___kont4481544816_ + (_parse128771_ _L30180_)))) + (___kont4460744608_ (lambda () - (let ((__tmp50118 + (let ((__tmp49879 (gx#stx-map - _parse129056_ - _L30414_))) + _parse128771_ + _L30129_))) (declare (not safe)) - (cons 'and: __tmp50118))))) - (if (gx#stx-pair? ___stx4481044811_) - (let ((_e3043130455_ - (gx#syntax-e ___stx4481044811_))) - (let ((_tl3042930462_ + (cons 'and: __tmp49879))))) + (if (gx#stx-pair? ___stx4460244603_) + (let ((_e3014630170_ + (gx#syntax-e ___stx4460244603_))) + (let ((_tl3014430177_ (let () (declare (not safe)) - (##cdr _e3043130455_))) - (_hd3043030459_ + (##cdr _e3014630170_))) + (_hd3014530174_ (let () (declare (not safe)) - (##car _e3043130455_)))) - (if (gx#stx-null? _tl3042930462_) - (___kont4481344814_ - _hd3043030459_) - (___kont4481544816_)))) - (___kont4481544816_)))))) - (___kont4491544916_ - (lambda (_L30329_) - (let* ((___stx4479244793_ _L30329_) - (_g3034130352_ + (##car _e3014630170_)))) + (if (gx#stx-null? _tl3014430177_) + (___kont4460544606_ + _hd3014530174_) + (___kont4460744608_)))) + (___kont4460744608_)))))) + (___kont4470744708_ + (lambda (_L30044_) + (let* ((___stx4458444585_ _L30044_) + (_g3005630067_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4479244793_)))) - (let ((___kont4479544796_ - (lambda (_L30380_) + ___stx4458444585_)))) + (let ((___kont4458744588_ + (lambda (_L30095_) (let () (declare (not safe)) - (_parse129056_ _L30380_)))) - (___kont4479744798_ + (_parse128771_ _L30095_)))) + (___kont4458944590_ (lambda () - (let ((__tmp50119 + (let ((__tmp49880 (gx#stx-map - _parse129056_ - _L30329_))) + _parse128771_ + _L30044_))) (declare (not safe)) - (cons 'or: __tmp50119))))) - (if (gx#stx-pair? ___stx4479244793_) - (let ((_e3034630370_ - (gx#syntax-e ___stx4479244793_))) - (let ((_tl3034430377_ + (cons 'or: __tmp49880))))) + (if (gx#stx-pair? ___stx4458444585_) + (let ((_e3006130085_ + (gx#syntax-e ___stx4458444585_))) + (let ((_tl3005930092_ (let () (declare (not safe)) - (##cdr _e3034630370_))) - (_hd3034530374_ + (##cdr _e3006130085_))) + (_hd3006030089_ (let () (declare (not safe)) - (##car _e3034630370_)))) - (if (gx#stx-null? _tl3034430377_) - (___kont4479544796_ - _hd3034530374_) - (___kont4479744798_)))) - (___kont4479744798_)))))) - (___kont4491744918_ - (lambda (_L30299_) - (let ((__tmp50120 - (let ((__tmp50121 + (##car _e3006130085_)))) + (if (gx#stx-null? _tl3005930092_) + (___kont4458744588_ + _hd3006030089_) + (___kont4458944590_)))) + (___kont4458944590_)))))) + (___kont4470944710_ + (lambda (_L30014_) + (let ((__tmp49881 + (let ((__tmp49882 (let () (declare (not safe)) - (_parse129056_ _L30299_)))) + (_parse128771_ _L30014_)))) (declare (not safe)) - (cons __tmp50121 '())))) + (cons __tmp49882 '())))) (declare (not safe)) - (cons 'not: __tmp50120)))) - (___kont4491944920_ - (lambda (_L30255_ _L30257_) - (let ((__tmp50122 - (let ((__tmp50125 + (cons 'not: __tmp49881)))) + (___kont4471144712_ + (lambda (_L29970_ _L29972_) + (let ((__tmp49883 + (let ((__tmp49886 (let () (declare (not safe)) - (_parse129056_ _L30257_))) - (__tmp50123 - (let ((__tmp50124 + (_parse128771_ _L29972_))) + (__tmp49884 + (let ((__tmp49885 (let () (declare (not safe)) - (_parse129056_ - _L30255_)))) + (_parse128771_ + _L29970_)))) (declare (not safe)) - (cons __tmp50124 '())))) + (cons __tmp49885 '())))) (declare (not safe)) - (cons __tmp50125 __tmp50123)))) + (cons __tmp49886 __tmp49884)))) (declare (not safe)) - (cons 'cons: __tmp50122)))) - (___kont4492144922_ - (lambda (_L30199_ _L30201_ _L30202_) - (if (gx#stx-null? _L30199_) - (let ((__tmp50133 - (let ((__tmp50136 + (cons 'cons: __tmp49883)))) + (___kont4471344714_ + (lambda (_L29914_ _L29916_ _L29917_) + (if (gx#stx-null? _L29914_) + (let ((__tmp49894 + (let ((__tmp49897 (let () (declare (not safe)) - (_parse129056_ _L30202_))) - (__tmp50134 - (let ((__tmp50135 + (_parse128771_ _L29917_))) + (__tmp49895 + (let ((__tmp49896 (let () (declare (not safe)) - (_parse129056_ - _L30201_)))) + (_parse128771_ + _L29916_)))) (declare (not safe)) - (cons __tmp50135 '())))) + (cons __tmp49896 '())))) (declare (not safe)) - (cons __tmp50136 __tmp50134)))) + (cons __tmp49897 __tmp49895)))) (declare (not safe)) - (cons 'cons: __tmp50133)) - (let ((__tmp50126 - (let ((__tmp50132 + (cons 'cons: __tmp49894)) + (let ((__tmp49887 + (let ((__tmp49893 (let () (declare (not safe)) - (_parse129056_ _L30202_))) - (__tmp50127 - (let ((__tmp50128 - (let ((__tmp50129 - (let ((__tmp50131 + (_parse128771_ _L29917_))) + (__tmp49888 + (let ((__tmp49889 + (let ((__tmp49890 + (let ((__tmp49892 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cons*)) - (__tmp50130 + (__tmp49891 (let () (declare (not safe)) - (cons _L30201_ _L30199_)))) + (cons _L29916_ _L29914_)))) (declare (not safe)) - (cons __tmp50131 __tmp50130)))) + (cons __tmp49892 __tmp49891)))) (declare (not safe)) - (_parse129056_ __tmp50129)))) + (_parse128771_ __tmp49890)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50128 '())))) + (cons __tmp49889 '())))) (declare (not safe)) - (cons __tmp50132 __tmp50127)))) + (cons __tmp49893 __tmp49888)))) (declare (not safe)) - (cons 'cons: __tmp50126))))) - (___kont4492344924_ - (lambda (_L30151_) + (cons 'cons: __tmp49887))))) + (___kont4471544716_ + (lambda (_L29866_) (let () (declare (not safe)) - (_parse-list29058_ _L30151_)))) - (___kont4492544926_ - (lambda (_L30121_) - (let ((__tmp50137 - (let ((__tmp50138 + (_parse-list28773_ _L29866_)))) + (___kont4471744718_ + (lambda (_L29836_) + (let ((__tmp49898 + (let ((__tmp49899 (let () (declare (not safe)) - (_parse129056_ _L30121_)))) + (_parse128771_ _L29836_)))) (declare (not safe)) - (cons __tmp50138 '())))) + (cons __tmp49899 '())))) (declare (not safe)) - (cons 'box: __tmp50137)))) - (___kont4492744928_ - (lambda (_L30084_) - (let ((__tmp50139 - (let ((__tmp50140 + (cons 'box: __tmp49898)))) + (___kont4471944720_ + (lambda (_L29799_) + (let ((__tmp49900 + (let ((__tmp49901 (let () (declare (not safe)) - (_parse129056_ _L30084_)))) + (_parse128771_ _L29799_)))) (declare (not safe)) - (cons __tmp50140 '())))) + (cons __tmp49901 '())))) (declare (not safe)) - (cons 'box: __tmp50139)))) - (___kont4492944930_ - (lambda (_L30060_) + (cons 'box: __tmp49900)))) + (___kont4472144722_ + (lambda (_L29775_) (let () (declare (not safe)) - (_parse129056_ _L30060_)))) - (___kont4493144932_ - (lambda (_L30022_) - (let ((__tmp50141 - (let ((__tmp50142 + (_parse128771_ _L29775_)))) + (___kont4472344724_ + (lambda (_L29737_) + (let ((__tmp49902 + (let ((__tmp49903 (let () (declare (not safe)) - (_parse-vector29059_ - _L30022_)))) + (_parse-vector28774_ + _L29737_)))) (declare (not safe)) - (cons __tmp50142 '())))) + (cons __tmp49903 '())))) (declare (not safe)) - (cons 'values: __tmp50141)))) - (___kont4493344934_ - (lambda (_L29994_) - (let ((__tmp50143 - (let ((__tmp50144 + (cons 'values: __tmp49902)))) + (___kont4472544726_ + (lambda (_L29709_) + (let ((__tmp49904 + (let ((__tmp49905 (let () (declare (not safe)) - (_parse-vector29059_ - _L29994_)))) + (_parse-vector28774_ + _L29709_)))) (declare (not safe)) - (cons __tmp50144 '())))) + (cons __tmp49905 '())))) (declare (not safe)) - (cons 'vector: __tmp50143)))) - (___kont4493544936_ - (lambda (_L29955_) - (let ((__tmp50145 - (let ((__tmp50146 - (let ((__tmp50147 - (let ((__tmp50148 - (lambda (_g2996829971_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2996929974_) + (cons 'vector: __tmp49904)))) + (___kont4472744728_ + (lambda (_L29670_) + (let ((__tmp49906 + (let ((__tmp49907 + (let ((__tmp49908 + (let ((__tmp49909 + (lambda (_g2968329686_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2968429689_) (let () (declare (not safe)) - (cons _g2996829971_ _g2996929974_))))) + (cons _g2968329686_ _g2968429689_))))) (declare (not safe)) - (foldr1 __tmp50148 '() _L29955_)))) + (foldr1 __tmp49909 '() _L29670_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_parse-vector29059_ - __tmp50147)))) + (_parse-vector28774_ + __tmp49908)))) (declare (not safe)) - (cons __tmp50146 '())))) + (cons __tmp49907 '())))) (declare (not safe)) - (cons 'vector: __tmp50145)))) - (___kont4493944940_ - (lambda (_L29901_ _L29903_) - (let ((__tmp50149 - (let ((__tmp50152 - (gx#syntax-local-value _L29903_)) - (__tmp50150 - (let ((__tmp50151 + (cons 'vector: __tmp49906)))) + (___kont4473144732_ + (lambda (_L29616_ _L29618_) + (let ((__tmp49910 + (let ((__tmp49913 + (gx#syntax-local-value _L29618_)) + (__tmp49911 + (let ((__tmp49912 (let () (declare (not safe)) - (_parse-vector29059_ - _L29901_)))) + (_parse-vector28774_ + _L29616_)))) (declare (not safe)) - (cons __tmp50151 '())))) + (cons __tmp49912 '())))) (declare (not safe)) - (cons __tmp50152 __tmp50150)))) + (cons __tmp49913 __tmp49911)))) (declare (not safe)) - (cons 'struct: __tmp50149)))) - (___kont4494144942_ - (lambda (_L29871_ _L29873_) - (let ((__tmp50153 - (let ((__tmp50156 - (gx#syntax-local-value _L29873_)) - (__tmp50154 - (let ((__tmp50155 + (cons 'struct: __tmp49910)))) + (___kont4473344734_ + (lambda (_L29586_ _L29588_) + (let ((__tmp49914 + (let ((__tmp49917 + (gx#syntax-local-value _L29588_)) + (__tmp49915 + (let ((__tmp49916 (let () (declare (not safe)) - (_parse-class-body29061_ - _L29871_)))) + (_parse-class-body28776_ + _L29586_)))) (declare (not safe)) - (cons __tmp50155 '())))) + (cons __tmp49916 '())))) (declare (not safe)) - (cons __tmp50156 __tmp50154)))) + (cons __tmp49917 __tmp49915)))) (declare (not safe)) - (cons 'class: __tmp50153)))) - (___kont4494344944_ - (lambda (_L29831_ _L29833_) - (let ((__tmp50157 - (let ((__tmp50158 - (let ((__tmp50163 + (cons 'class: __tmp49914)))) + (___kont4473544736_ + (lambda (_L29546_ _L29548_) + (let ((__tmp49918 + (let ((__tmp49919 + (let ((__tmp49924 (gx#datum->syntax '#f 'cut)) - (__tmp50159 - (let ((__tmp50160 - (let ((__tmp50162 + (__tmp49920 + (let ((__tmp49921 + (let ((__tmp49923 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '<>)) - (__tmp50161 - (let () (declare (not safe)) (cons _L29831_ '())))) + (__tmp49922 + (let () (declare (not safe)) (cons _L29546_ '())))) (declare (not safe)) - (cons __tmp50162 __tmp50161)))) + (cons __tmp49923 __tmp49922)))) (declare (not safe)) - (cons _L29833_ __tmp50160)))) + (cons _L29548_ __tmp49921)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50163 __tmp50159)))) + (cons __tmp49924 __tmp49920)))) (declare (not safe)) - (cons __tmp50158 '())))) + (cons __tmp49919 '())))) (declare (not safe)) - (cons '?: __tmp50157)))) - (___kont4494544946_ - (lambda (_L29791_) - (let ((__tmp50164 - (let ((__tmp50165 (gx#stx-e _L29791_))) + (cons '?: __tmp49918)))) + (___kont4473744738_ + (lambda (_L29506_) + (let ((__tmp49925 + (let ((__tmp49926 (gx#stx-e _L29506_))) (declare (not safe)) - (cons __tmp50165 '())))) + (cons __tmp49926 '())))) (declare (not safe)) - (cons 'datum: __tmp50164)))) - (___kont4494744948_ - (lambda (_L29751_) + (cons 'datum: __tmp49925)))) + (___kont4473944740_ + (lambda (_L29466_) (let () (declare (not safe)) - (_parse-qq29062_ _L29751_)))) - (___kont4494944950_ - (lambda (_L29707_ _L29709_) - (let ((__tmp50166 - (let ((__tmp50167 - (let ((__tmp50168 + (_parse-qq28777_ _L29466_)))) + (___kont4474144742_ + (lambda (_L29422_ _L29424_) + (let ((__tmp49927 + (let ((__tmp49928 + (let ((__tmp49929 (let () (declare (not safe)) - (_parse129056_ - _L29707_)))) + (_parse128771_ + _L29422_)))) (declare (not safe)) - (cons __tmp50168 '())))) + (cons __tmp49929 '())))) (declare (not safe)) - (cons _L29709_ __tmp50167)))) + (cons _L29424_ __tmp49928)))) (declare (not safe)) - (cons 'apply: __tmp50166)))) - (___kont4495144952_ - (lambda (_L29655_) - (let ((__tmp50169 + (cons 'apply: __tmp49927)))) + (___kont4474344744_ + (lambda (_L29370_) + (let ((__tmp49930 (gx#core-apply-expander - (gx#syntax-local-e _L29655_) + (gx#syntax-local-e _L29370_) (gx#stx-wrap-source (let () (declare (not safe)) - (cons 'match: _hd29409_)) - (let ((_$e29666_ - (gx#stx-source _hd29409_))) - (if _$e29666_ - _$e29666_ - (gx#stx-source _stx29052_))))))) + (cons 'match: _hd29124_)) + (let ((_$e29381_ + (gx#stx-source _hd29124_))) + (if _$e29381_ + _$e29381_ + (gx#stx-source _stx28767_))))))) (declare (not safe)) - (_parse129056_ __tmp50169)))) - (___kont4495344954_ - (lambda (_L29629_) + (_parse128771_ __tmp49930)))) + (___kont4474544746_ + (lambda (_L29344_) (let () (declare (not safe)) (cons 'any: '())))) - (___kont4495544956_ - (lambda (_L29613_) - (let ((__tmp50170 + (___kont4474744748_ + (lambda (_L29328_) + (let ((__tmp49931 (let () (declare (not safe)) - (cons _L29613_ '())))) + (cons _L29328_ '())))) (declare (not safe)) - (cons 'var: __tmp50170)))) - (___kont4495744958_ - (lambda (_L29595_) - (let ((__tmp50171 - (let ((__tmp50172 (gx#stx-e _L29595_))) + (cons 'var: __tmp49931)))) + (___kont4474944750_ + (lambda (_L29310_) + (let ((__tmp49932 + (let ((__tmp49933 (gx#stx-e _L29310_))) (declare (not safe)) - (cons __tmp50172 '())))) + (cons __tmp49933 '())))) (declare (not safe)) - (cons 'datum: __tmp50171)))) - (___kont4495944960_ + (cons 'datum: __tmp49932)))) + (___kont4475144752_ (lambda () (let () (declare (not safe)) - (_parse-error29063_ _hd29409_))))) - (let* ((_g2943329606_ + (_parse-error28778_ _hd29124_))))) + (let* ((_g2914829321_ (lambda () - (let ((_L29595_ ___stx4490844909_)) - (if (gx#stx-datum? _L29595_) - (___kont4495744958_ _L29595_) - (___kont4495944960_))))) - (_g2943229622_ + (let ((_L29310_ ___stx4470044701_)) + (if (gx#stx-datum? _L29310_) + (___kont4474944750_ _L29310_) + (___kont4475144752_))))) + (_g2914729337_ (lambda () - (let ((_L29613_ ___stx4490844909_)) - (if (and (gx#identifier? _L29613_) - (let ((__tmp50173 - (gx#ellipsis? _L29613_))) + (let ((_L29328_ ___stx4470044701_)) + (if (and (gx#identifier? _L29328_) + (let ((__tmp49934 + (gx#ellipsis? _L29328_))) (declare (not safe)) - (not __tmp50173))) - (___kont4495544956_ _L29613_) + (not __tmp49934))) + (___kont4474744748_ _L29328_) (let () (declare (not safe)) - (_g2943329606_)))))) - (_g2943129638_ + (_g2914829321_)))))) + (_g2914629353_ (lambda () - (let ((_L29629_ ___stx4490844909_)) - (if (gx#underscore? _L29629_) - (___kont4495344954_ _L29629_) + (let ((_L29344_ ___stx4470044701_)) + (if (gx#underscore? _L29344_) + (___kont4474544746_ _L29344_) (let () (declare (not safe)) - (_g2943229622_)))))) - (___match4523545236_ - (lambda (_e2956829645_ - _hd2956729649_ - _tl2956629652_) - (let ((_L29655_ _hd2956729649_)) + (_g2914729337_)))))) + (___match4502745028_ + (lambda (_e2928329360_ + _hd2928229364_ + _tl2928129367_) + (let ((_L29370_ _hd2928229364_)) (if (let () (declare (not safe)) (|gerbil/core$[1]#syntax-local-match-macro?| - _L29655_)) - (___kont4495144952_ _L29655_) + _L29370_)) + (___kont4474344744_ _L29370_) (let () (declare (not safe)) - (_g2943129638_)))))) - (___match4516945170_ - (lambda (_e2953629811_ - _hd2953529815_ - _tl2953429818_ - _e2953929821_ - _hd2953829825_ - _tl2953729828_) - (let ((_L29831_ _hd2953829825_) - (_L29833_ _hd2953529815_)) - (if (and (gx#identifier? _L29833_) + (_g2914629353_)))))) + (___match4496144962_ + (lambda (_e2925129526_ + _hd2925029530_ + _tl2924929533_ + _e2925429536_ + _hd2925329540_ + _tl2925229543_) + (let ((_L29546_ _hd2925329540_) + (_L29548_ _hd2925029530_)) + (if (and (gx#identifier? _L29548_) (or (gx#free-identifier=? - _L29833_ + _L29548_ (gx#datum->syntax '#f 'eq?)) (gx#free-identifier=? - _L29833_ + _L29548_ (gx#datum->syntax '#f 'eqv?)) (gx#free-identifier=? - _L29833_ + _L29548_ (gx#datum->syntax '#f 'equal?)))) - (___kont4494344944_ _L29831_ _L29833_) - (if (gx#identifier? _hd2953529815_) + (___kont4473544736_ _L29546_ _L29548_) + (if (gx#identifier? _hd2925029530_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50175_| - _hd2953529815_) - (___kont4494544946_ - _hd2953829825_) + |gerbil/core$[1]#_g49936_| + _hd2925029530_) + (___kont4473744738_ + _hd2925329540_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50174_| - _hd2953529815_) - (___kont4494744948_ - _hd2953829825_) - (___match4523545236_ - _e2953629811_ - _hd2953529815_ - _tl2953429818_))) - (___match4523545236_ - _e2953629811_ - _hd2953529815_ - _tl2953429818_)))))) - (___match4515545156_ - (lambda (_e2953129861_ - _hd2953029865_ - _tl2952929868_) - (let ((_L29871_ _tl2952929868_) - (_L29873_ _hd2953029865_)) + |gerbil/core$[1]#_g49935_| + _hd2925029530_) + (___kont4473944740_ + _hd2925329540_) + (___match4502745028_ + _e2925129526_ + _hd2925029530_ + _tl2924929533_))) + (___match4502745028_ + _e2925129526_ + _hd2925029530_ + _tl2924929533_)))))) + (___match4494744948_ + (lambda (_e2924629576_ + _hd2924529580_ + _tl2924429583_) + (let ((_L29586_ _tl2924429583_) + (_L29588_ _hd2924529580_)) (if (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__0 - _L29873_)) - (___kont4494144942_ _L29871_ _L29873_) - (if (gx#stx-pair? _tl2952929868_) - (let ((_e2953929821_ + _L29588_)) + (___kont4473344734_ _L29586_ _L29588_) + (if (gx#stx-pair? _tl2924429583_) + (let ((_e2925429536_ (gx#syntax-e - _tl2952929868_))) - (let ((_tl2953729828_ + _tl2924429583_))) + (let ((_tl2925229543_ (let () (declare (not safe)) - (##cdr _e2953929821_))) - (_hd2953829825_ + (##cdr _e2925429536_))) + (_hd2925329540_ (let () (declare (not safe)) - (##car _e2953929821_)))) + (##car _e2925429536_)))) (if (gx#stx-null? - _tl2953729828_) - (___match4516945170_ - _e2953129861_ - _hd2953029865_ - _tl2952929868_ - _e2953929821_ - _hd2953829825_ - _tl2953729828_) + _tl2925229543_) + (___match4496144962_ + _e2924629576_ + _hd2924529580_ + _tl2924429583_ + _e2925429536_ + _hd2925329540_ + _tl2925229543_) (if (gx#identifier? - _hd2953029865_) + _hd2924529580_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50175_| - _hd2953029865_) - (___match4523545236_ - _e2953129861_ - _hd2953029865_ - _tl2952929868_) + |gerbil/core$[1]#_g49936_| + _hd2924529580_) + (___match4502745028_ + _e2924629576_ + _hd2924529580_ + _tl2924429583_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g50174_| - _hd2953029865_) - (___match4523545236_ - _e2953129861_ - _hd2953029865_ - _tl2952929868_) + |gerbil/core$[1]#_g49935_| + _hd2924529580_) + (___match4502745028_ + _e2924629576_ + _hd2924529580_ + _tl2924429583_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50176_| - _hd2953029865_) - (if (gx#stx-pair? _tl2953729828_) - (let ((_e2956429697_ - (gx#syntax-e _tl2953729828_))) - (let ((_tl2956229704_ + |gerbil/core$[1]#_g49937_| + _hd2924529580_) + (if (gx#stx-pair? _tl2925229543_) + (let ((_e2927929412_ + (gx#syntax-e _tl2925229543_))) + (let ((_tl2927729419_ (let () (declare (not safe)) - (##cdr _e2956429697_))) - (_hd2956329701_ + (##cdr _e2927929412_))) + (_hd2927829416_ (let () (declare (not safe)) - (##car _e2956429697_)))) - (if (gx#stx-null? _tl2956229704_) - (___kont4494944950_ - _hd2956329701_ - _hd2953829825_) - (___match4523545236_ - _e2953129861_ - _hd2953029865_ - _tl2952929868_)))) - (___match4523545236_ - _e2953129861_ - _hd2953029865_ - _tl2952929868_)) - (___match4523545236_ - _e2953129861_ - _hd2953029865_ - _tl2952929868_)))) - (___match4523545236_ - _e2953129861_ - _hd2953029865_ - _tl2952929868_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4523545236_ - _e2953129861_ - _hd2953029865_ - _tl2952929868_)))))) - (___match4514945150_ - (lambda (_e2952629891_ - _hd2952529895_ - _tl2952429898_) - (let ((_L29901_ _tl2952429898_) - (_L29903_ _hd2952529895_)) + (##car _e2927929412_)))) + (if (gx#stx-null? _tl2927729419_) + (___kont4474144742_ + _hd2927829416_ + _hd2925329540_) + (___match4502745028_ + _e2924629576_ + _hd2924529580_ + _tl2924429583_)))) + (___match4502745028_ + _e2924629576_ + _hd2924529580_ + _tl2924429583_)) + (___match4502745028_ + _e2924629576_ + _hd2924529580_ + _tl2924429583_)))) + (___match4502745028_ + _e2924629576_ + _hd2924529580_ + _tl2924429583_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match4502745028_ + _e2924629576_ + _hd2924529580_ + _tl2924429583_)))))) + (___match4494144942_ + (lambda (_e2924129606_ + _hd2924029610_ + _tl2923929613_) + (let ((_L29616_ _tl2923929613_) + (_L29618_ _hd2924029610_)) (if (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__% - _L29903_ + _L29618_ gerbil/core$$#class-type-struct?)) - (___kont4493944940_ _L29901_ _L29903_) - (___match4515545156_ - _e2952629891_ - _hd2952529895_ - _tl2952429898_))))) - (___match4514345144_ - (lambda (_e2951229921_ - ___splice4493744938_ - _target2951329925_ - _tl2951529928_) - (letrec ((_loop2951629931_ - (lambda (_hd2951429935_ - _body2952029938_) - (if (gx#stx-pair? _hd2951429935_) - (let ((_e2951729941_ + (___kont4473144732_ _L29616_ _L29618_) + (___match4494744948_ + _e2924129606_ + _hd2924029610_ + _tl2923929613_))))) + (___match4493544936_ + (lambda (_e2922729636_ + ___splice4472944730_ + _target2922829640_ + _tl2923029643_) + (letrec ((_loop2923129646_ + (lambda (_hd2922929650_ + _body2923529653_) + (if (gx#stx-pair? _hd2922929650_) + (let ((_e2923229656_ (gx#syntax-e - _hd2951429935_))) - (let ((_lp-tl2951929948_ + _hd2922929650_))) + (let ((_lp-tl2923429663_ (let () (declare (not safe)) - (##cdr _e2951729941_))) - (_lp-hd2951829945_ + (##cdr _e2923229656_))) + (_lp-hd2923329660_ (let () (declare (not safe)) - (##car _e2951729941_)))) - (let ((__tmp50177 + (##car _e2923229656_)))) + (let ((__tmp49938 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd2951829945_ _body2952029938_)))) + (cons _lp-hd2923329660_ _body2923529653_)))) (declare (not safe)) - (_loop2951629931_ _lp-tl2951929948_ __tmp50177)))) + (_loop2923129646_ _lp-tl2923429663_ __tmp49938)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body2952129951_ - (reverse _body2952029938_))) - (___kont4493544936_ - _body2952129951_)))))) + (let ((_body2923629666_ + (reverse _body2923529653_))) + (___kont4472744728_ + _body2923629666_)))))) (let () (declare (not safe)) - (_loop2951629931_ - _target2951329925_ + (_loop2923129646_ + _target2922829640_ '()))))) - (_g2942329977_ + (_g2913829692_ (lambda () - (if (gx#stx-vector? ___stx4490844909_) - (let ((_e2951229921_ + (if (gx#stx-vector? ___stx4470044701_) + (let ((_e2922729636_ (vector->list (gx#syntax-e - ___stx4490844909_)))) - (if (gx#stx-pair/null? _e2951229921_) - (let ((___splice4493744938_ + ___stx4470044701_)))) + (if (gx#stx-pair/null? _e2922729636_) + (let ((___splice4472944730_ (gx#syntax-split-splice - _e2951229921_ + _e2922729636_ '0))) - (let ((_tl2951529928_ + (let ((_tl2923029643_ (let () (declare (not safe)) (##vector-ref - ___splice4493744938_ + ___splice4472944730_ '1))) - (_target2951329925_ + (_target2922829640_ (let () (declare (not safe)) (##vector-ref - ___splice4493744938_ + ___splice4472944730_ '0)))) (if (gx#stx-null? - _tl2951529928_) - (___match4514345144_ - _e2951229921_ - ___splice4493744938_ - _target2951329925_ - _tl2951529928_) + _tl2923029643_) + (___match4493544936_ + _e2922729636_ + ___splice4472944730_ + _target2922829640_ + _tl2923029643_) (let () (declare (not safe)) - (_g2943129638_))))) + (_g2914629353_))))) (let () (declare (not safe)) - (_g2943129638_)))) + (_g2914629353_)))) (let () (declare (not safe)) - (_g2943129638_))))) - (_g2941930094_ + (_g2914629353_))))) + (_g2913429809_ (lambda () - (if (gx#stx-box? ___stx4490844909_) - (let ((_e2949530080_ + (if (gx#stx-box? ___stx4470044701_) + (let ((_e2921029795_ (unbox (gx#syntax-e - ___stx4490844909_)))) - (___kont4492744928_ _e2949530080_)) + ___stx4470044701_)))) + (___kont4471944720_ _e2921029795_)) (let () (declare (not safe)) - (_g2942329977_))))) - (___match4499744998_ - (lambda (_e2945230319_ - _hd2945130323_ - _tl2945030326_) - (let ((_L30329_ _tl2945030326_)) - (if (gx#stx-list? _L30329_) - (___kont4491544916_ _L30329_) - (___match4514945150_ - _e2945230319_ - _hd2945130323_ - _tl2945030326_))))) - (___match4498744988_ - (lambda (_e2944830404_ - _hd2944730408_ - _tl2944630411_) - (let ((_L30414_ _tl2944630411_)) - (if (gx#stx-list? _L30414_) - (___kont4491344914_ _L30414_) - (___match4514945150_ - _e2944830404_ - _hd2944730408_ - _tl2944630411_)))))) - (if (gx#stx-pair? ___stx4490844909_) - (let ((_e2944130489_ - (gx#syntax-e ___stx4490844909_))) - (let ((_tl2943930496_ + (_g2913829692_))))) + (___match4478944790_ + (lambda (_e2916730034_ + _hd2916630038_ + _tl2916530041_) + (let ((_L30044_ _tl2916530041_)) + (if (gx#stx-list? _L30044_) + (___kont4470744708_ _L30044_) + (___match4494144942_ + _e2916730034_ + _hd2916630038_ + _tl2916530041_))))) + (___match4477944780_ + (lambda (_e2916330119_ + _hd2916230123_ + _tl2916130126_) + (let ((_L30129_ _tl2916130126_)) + (if (gx#stx-list? _L30129_) + (___kont4470544706_ _L30129_) + (___match4494144942_ + _e2916330119_ + _hd2916230123_ + _tl2916130126_)))))) + (if (gx#stx-pair? ___stx4470044701_) + (let ((_e2915630204_ + (gx#syntax-e ___stx4470044701_))) + (let ((_tl2915430211_ (let () (declare (not safe)) - (##cdr _e2944130489_))) - (_hd2944030493_ + (##cdr _e2915630204_))) + (_hd2915530208_ (let () (declare (not safe)) - (##car _e2944130489_)))) - (if (gx#identifier? _hd2944030493_) + (##car _e2915630204_)))) + (if (gx#identifier? _hd2915530208_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50187_| - _hd2944030493_) - (if (gx#stx-pair? _tl2943930496_) - (let ((_e2944430499_ + |gerbil/core$[1]#_g49948_| + _hd2915530208_) + (if (gx#stx-pair? _tl2915430211_) + (let ((_e2915930214_ (gx#syntax-e - _tl2943930496_))) - (let ((_tl2944230506_ + _tl2915430211_))) + (let ((_tl2915730221_ (let () (declare (not safe)) - (##cdr _e2944430499_))) - (_hd2944330503_ + (##cdr _e2915930214_))) + (_hd2915830218_ (let () (declare (not safe)) - (##car _e2944430499_)))) - (___kont4491144912_ - _tl2944230506_ - _hd2944330503_))) - (___match4514945150_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_)) + (##car _e2915930214_)))) + (___kont4470344704_ + _tl2915730221_ + _hd2915830218_))) + (___match4494144942_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50186_| - _hd2944030493_) - (___match4498744988_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_) + |gerbil/core$[1]#_g49947_| + _hd2915530208_) + (___match4477944780_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50185_| - _hd2944030493_) - (___match4499744998_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_) + |gerbil/core$[1]#_g49946_| + _hd2915530208_) + (___match4478944790_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50184_| - _hd2944030493_) + |gerbil/core$[1]#_g49945_| + _hd2915530208_) (if (gx#stx-pair? - _tl2943930496_) - (let ((_e2945930289_ + _tl2915430211_) + (let ((_e2917430004_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2943930496_))) - (let ((_tl2945730296_ - (let () (declare (not safe)) (##cdr _e2945930289_))) - (_hd2945830293_ + (gx#syntax-e _tl2915430211_))) + (let ((_tl2917230011_ + (let () (declare (not safe)) (##cdr _e2917430004_))) + (_hd2917330008_ (let () (declare (not safe)) - (##car _e2945930289_)))) - (if (gx#stx-null? _tl2945730296_) - (___kont4491744918_ _hd2945830293_) - (___match4514945150_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_)))) - (___match4514945150_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_)) + (##car _e2917430004_)))) + (if (gx#stx-null? _tl2917230011_) + (___kont4470944710_ _hd2917330008_) + (___match4494144942_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_)))) + (___match4494144942_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50183_| - _hd2944030493_) - (if (gx#stx-pair? _tl2943930496_) - (let ((_e2946730235_ (gx#syntax-e _tl2943930496_))) - (let ((_tl2946530242_ + |gerbil/core$[1]#_g49944_| + _hd2915530208_) + (if (gx#stx-pair? _tl2915430211_) + (let ((_e2918229950_ (gx#syntax-e _tl2915430211_))) + (let ((_tl2918029957_ (let () (declare (not safe)) - (##cdr _e2946730235_))) - (_hd2946630239_ + (##cdr _e2918229950_))) + (_hd2918129954_ (let () (declare (not safe)) - (##car _e2946730235_)))) - (if (gx#stx-pair? _tl2946530242_) - (let ((_e2947030245_ - (gx#syntax-e _tl2946530242_))) - (let ((_tl2946830252_ + (##car _e2918229950_)))) + (if (gx#stx-pair? _tl2918029957_) + (let ((_e2918529960_ + (gx#syntax-e _tl2918029957_))) + (let ((_tl2918329967_ (let () (declare (not safe)) - (##cdr _e2947030245_))) - (_hd2946930249_ + (##cdr _e2918529960_))) + (_hd2918429964_ (let () (declare (not safe)) - (##car _e2947030245_)))) - (if (gx#stx-null? _tl2946830252_) - (___kont4491944920_ - _hd2946930249_ - _hd2946630239_) - (___match4514945150_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_)))) - (___match4514945150_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_)))) - (___match4514945150_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_)) + (##car _e2918529960_)))) + (if (gx#stx-null? _tl2918329967_) + (___kont4471144712_ + _hd2918429964_ + _hd2918129954_) + (___match4494144942_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_)))) + (___match4494144942_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_)))) + (___match4494144942_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50182_| - _hd2944030493_) - (if (gx#stx-pair? _tl2943930496_) - (let ((_e2947930179_ (gx#syntax-e _tl2943930496_))) - (let ((_tl2947730186_ + |gerbil/core$[1]#_g49943_| + _hd2915530208_) + (if (gx#stx-pair? _tl2915430211_) + (let ((_e2919429894_ (gx#syntax-e _tl2915430211_))) + (let ((_tl2919229901_ (let () (declare (not safe)) - (##cdr _e2947930179_))) - (_hd2947830183_ + (##cdr _e2919429894_))) + (_hd2919329898_ (let () (declare (not safe)) - (##car _e2947930179_)))) - (if (gx#stx-pair? _tl2947730186_) - (let ((_e2948230189_ - (gx#syntax-e _tl2947730186_))) - (let ((_tl2948030196_ + (##car _e2919429894_)))) + (if (gx#stx-pair? _tl2919229901_) + (let ((_e2919729904_ + (gx#syntax-e _tl2919229901_))) + (let ((_tl2919529911_ (let () (declare (not safe)) - (##cdr _e2948230189_))) - (_hd2948130193_ + (##cdr _e2919729904_))) + (_hd2919629908_ (let () (declare (not safe)) - (##car _e2948230189_)))) - (___kont4492144922_ - _tl2948030196_ - _hd2948130193_ - _hd2947830183_))) - (___match4514945150_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_)))) - (___match4514945150_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_)) + (##car _e2919729904_)))) + (___kont4471344714_ + _tl2919529911_ + _hd2919629908_ + _hd2919329898_))) + (___match4494144942_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_)))) + (___match4494144942_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50181_| - _hd2944030493_) - (___kont4492344924_ _tl2943930496_) + |gerbil/core$[1]#_g49942_| + _hd2915530208_) + (___kont4471544716_ _tl2915430211_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50180_| - _hd2944030493_) - (if (gx#stx-pair? _tl2943930496_) - (let ((_e2949330111_ - (gx#syntax-e _tl2943930496_))) - (let ((_tl2949130118_ + |gerbil/core$[1]#_g49941_| + _hd2915530208_) + (if (gx#stx-pair? _tl2915430211_) + (let ((_e2920829826_ + (gx#syntax-e _tl2915430211_))) + (let ((_tl2920629833_ (let () (declare (not safe)) - (##cdr _e2949330111_))) - (_hd2949230115_ + (##cdr _e2920829826_))) + (_hd2920729830_ (let () (declare (not safe)) - (##car _e2949330111_)))) - (if (gx#stx-null? _tl2949130118_) - (___kont4492544926_ _hd2949230115_) - (___match4514945150_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_)))) - (___match4514945150_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_)) + (##car _e2920829826_)))) + (if (gx#stx-null? _tl2920629833_) + (___kont4471744718_ _hd2920729830_) + (___match4494144942_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_)))) + (___match4494144942_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50179_| - _hd2944030493_) - (if (gx#stx-pair? _tl2943930496_) - (let ((_e2950230050_ - (gx#syntax-e _tl2943930496_))) - (let ((_tl2950030057_ + |gerbil/core$[1]#_g49940_| + _hd2915530208_) + (if (gx#stx-pair? _tl2915430211_) + (let ((_e2921729765_ + (gx#syntax-e _tl2915430211_))) + (let ((_tl2921529772_ (let () (declare (not safe)) - (##cdr _e2950230050_))) - (_hd2950130054_ + (##cdr _e2921729765_))) + (_hd2921629769_ (let () (declare (not safe)) - (##car _e2950230050_)))) - (if (gx#stx-null? _tl2950030057_) - (___kont4492944930_ - _hd2950130054_) - (___kont4493144932_ - _tl2943930496_)))) - (___kont4493144932_ _tl2943930496_)) + (##car _e2921729765_)))) + (if (gx#stx-null? _tl2921529772_) + (___kont4472144722_ + _hd2921629769_) + (___kont4472344724_ + _tl2915430211_)))) + (___kont4472344724_ _tl2915430211_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50178_| - _hd2944030493_) - (___kont4493344934_ _tl2943930496_) - (___match4514945150_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4514945150_ - _e2944130489_ - _hd2944030493_ - _tl2943930496_)))) + |gerbil/core$[1]#_g49939_| + _hd2915530208_) + (___kont4472544726_ _tl2915430211_) + (___match4494144942_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match4494144942_ + _e2915630204_ + _hd2915530208_ + _tl2915430211_)))) (let () (declare (not safe)) - (_g2941930094_)))))))) - (_parse-list29058_ - (lambda (_body29238_) - (let* ((___stx4523845239_ _body29238_) - (_g2924429273_ + (_g2913429809_)))))))) + (_parse-list28773_ + (lambda (_body28953_) + (let* ((___stx4503045031_ _body28953_) + (_g2895928988_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4523845239_)))) - (let ((___kont4524145242_ - (lambda (_L29391_) + ___stx4503045031_)))) + (let ((___kont4503345034_ + (lambda (_L29106_) (let () (declare (not safe)) - (_parse129056_ _L29391_)))) - (___kont4524345244_ - (lambda (_L29343_ _L29345_ _L29346_) - (let ((__tmp50188 - (let ((__tmp50191 + (_parse128771_ _L29106_)))) + (___kont4503545036_ + (lambda (_L29058_ _L29060_ _L29061_) + (let ((__tmp49949 + (let ((__tmp49952 (let () (declare (not safe)) - (_parse129056_ _L29346_))) - (__tmp50189 - (let ((__tmp50190 + (_parse128771_ _L29061_))) + (__tmp49950 + (let ((__tmp49951 (let () (declare (not safe)) - (_parse-list29058_ - _L29343_)))) + (_parse-list28773_ + _L29058_)))) (declare (not safe)) - (cons __tmp50190 '())))) + (cons __tmp49951 '())))) (declare (not safe)) - (cons __tmp50191 __tmp50189)))) + (cons __tmp49952 __tmp49950)))) (declare (not safe)) - (cons 'splice: __tmp50188)))) - (___kont4524545246_ - (lambda (_L29301_ _L29303_) - (let ((__tmp50192 - (let ((__tmp50195 + (cons 'splice: __tmp49949)))) + (___kont4503745038_ + (lambda (_L29016_ _L29018_) + (let ((__tmp49953 + (let ((__tmp49956 (let () (declare (not safe)) - (_parse129056_ _L29303_))) - (__tmp50193 - (let ((__tmp50194 + (_parse128771_ _L29018_))) + (__tmp49954 + (let ((__tmp49955 (let () (declare (not safe)) - (_parse-list29058_ - _L29301_)))) + (_parse-list28773_ + _L29016_)))) (declare (not safe)) - (cons __tmp50194 '())))) + (cons __tmp49955 '())))) (declare (not safe)) - (cons __tmp50195 __tmp50193)))) + (cons __tmp49956 __tmp49954)))) (declare (not safe)) - (cons 'cons: __tmp50192)))) - (___kont4524745248_ + (cons 'cons: __tmp49953)))) + (___kont4503945040_ (lambda () - (if (gx#stx-null? _body29238_) + (if (gx#stx-null? _body28953_) (let () (declare (not safe)) (cons 'null: '())) - (if (let ((__tmp50196 - (gx#stx-pair? _body29238_))) + (if (let ((__tmp49957 + (gx#stx-pair? _body28953_))) (declare (not safe)) - (not __tmp50196)) + (not __tmp49957)) (let () (declare (not safe)) - (_parse129056_ _body29238_)) + (_parse128771_ _body28953_)) (let () (declare (not safe)) - (_parse-error29063_ _body29238_))))))) - (let* ((___match4528745288_ - (lambda (_e2926729291_ - _hd2926629295_ - _tl2926529298_) - (let ((_L29301_ _tl2926529298_) - (_L29303_ _hd2926629295_)) - (if (let ((__tmp50197 - (gx#ellipsis? _L29303_))) + (_parse-error28778_ _body28953_))))))) + (let* ((___match4507945080_ + (lambda (_e2898229006_ + _hd2898129010_ + _tl2898029013_) + (let ((_L29016_ _tl2898029013_) + (_L29018_ _hd2898129010_)) + (if (let ((__tmp49958 + (gx#ellipsis? _L29018_))) (declare (not safe)) - (not __tmp50197)) - (___kont4524545246_ _L29301_ _L29303_) - (___kont4524745248_))))) - (___match4528145282_ - (lambda (_e2925929323_ - _hd2925829327_ - _tl2925729330_ - _e2926229333_ - _hd2926129337_ - _tl2926029340_) - (let ((_L29343_ _tl2926029340_) - (_L29345_ _hd2926129337_) - (_L29346_ _hd2925829327_)) - (if (gx#ellipsis? _L29345_) - (___kont4524345244_ - _L29343_ - _L29345_ - _L29346_) - (___match4528745288_ - _e2925929323_ - _hd2925829327_ - _tl2925729330_)))))) - (if (gx#stx-pair? ___stx4523845239_) - (let ((_e2924929367_ - (gx#syntax-e ___stx4523845239_))) - (let ((_tl2924729374_ + (not __tmp49958)) + (___kont4503745038_ _L29016_ _L29018_) + (___kont4503945040_))))) + (___match4507345074_ + (lambda (_e2897429038_ + _hd2897329042_ + _tl2897229045_ + _e2897729048_ + _hd2897629052_ + _tl2897529055_) + (let ((_L29058_ _tl2897529055_) + (_L29060_ _hd2897629052_) + (_L29061_ _hd2897329042_)) + (if (gx#ellipsis? _L29060_) + (___kont4503545036_ + _L29058_ + _L29060_ + _L29061_) + (___match4507945080_ + _e2897429038_ + _hd2897329042_ + _tl2897229045_)))))) + (if (gx#stx-pair? ___stx4503045031_) + (let ((_e2896429082_ + (gx#syntax-e ___stx4503045031_))) + (let ((_tl2896229089_ (let () (declare (not safe)) - (##cdr _e2924929367_))) - (_hd2924829371_ + (##cdr _e2896429082_))) + (_hd2896329086_ (let () (declare (not safe)) - (##car _e2924929367_)))) - (if (gx#stx-datum? _hd2924829371_) - (let ((_e2925029377_ - (gx#stx-e _hd2924829371_))) + (##car _e2896429082_)))) + (if (gx#stx-datum? _hd2896329086_) + (let ((_e2896529092_ + (gx#stx-e _hd2896329086_))) (if (let () (declare (not safe)) - (equal? _e2925029377_ '::)) - (if (gx#stx-pair? _tl2924729374_) - (let ((_e2925329381_ + (equal? _e2896529092_ '::)) + (if (gx#stx-pair? _tl2896229089_) + (let ((_e2896829096_ (gx#syntax-e - _tl2924729374_))) - (let ((_tl2925129388_ + _tl2896229089_))) + (let ((_tl2896629103_ (let () (declare (not safe)) - (##cdr _e2925329381_))) - (_hd2925229385_ + (##cdr _e2896829096_))) + (_hd2896729100_ (let () (declare (not safe)) - (##car _e2925329381_)))) + (##car _e2896829096_)))) (if (gx#stx-null? - _tl2925129388_) - (___kont4524145242_ - _hd2925229385_) - (___match4528145282_ - _e2924929367_ - _hd2924829371_ - _tl2924729374_ - _e2925329381_ - _hd2925229385_ - _tl2925129388_)))) - (___match4528745288_ - _e2924929367_ - _hd2924829371_ - _tl2924729374_)) - (if (gx#stx-pair? _tl2924729374_) - (let ((_e2926229333_ + _tl2896629103_) + (___kont4503345034_ + _hd2896729100_) + (___match4507345074_ + _e2896429082_ + _hd2896329086_ + _tl2896229089_ + _e2896829096_ + _hd2896729100_ + _tl2896629103_)))) + (___match4507945080_ + _e2896429082_ + _hd2896329086_ + _tl2896229089_)) + (if (gx#stx-pair? _tl2896229089_) + (let ((_e2897729048_ (gx#syntax-e - _tl2924729374_))) - (let ((_tl2926029340_ + _tl2896229089_))) + (let ((_tl2897529055_ (let () (declare (not safe)) - (##cdr _e2926229333_))) - (_hd2926129337_ + (##cdr _e2897729048_))) + (_hd2897629052_ (let () (declare (not safe)) - (##car _e2926229333_)))) - (___match4528145282_ - _e2924929367_ - _hd2924829371_ - _tl2924729374_ - _e2926229333_ - _hd2926129337_ - _tl2926029340_))) - (___match4528745288_ - _e2924929367_ - _hd2924829371_ - _tl2924729374_)))) - (if (gx#stx-pair? _tl2924729374_) - (let ((_e2926229333_ - (gx#syntax-e _tl2924729374_))) - (let ((_tl2926029340_ + (##car _e2897729048_)))) + (___match4507345074_ + _e2896429082_ + _hd2896329086_ + _tl2896229089_ + _e2897729048_ + _hd2897629052_ + _tl2897529055_))) + (___match4507945080_ + _e2896429082_ + _hd2896329086_ + _tl2896229089_)))) + (if (gx#stx-pair? _tl2896229089_) + (let ((_e2897729048_ + (gx#syntax-e _tl2896229089_))) + (let ((_tl2897529055_ (let () (declare (not safe)) - (##cdr _e2926229333_))) - (_hd2926129337_ + (##cdr _e2897729048_))) + (_hd2897629052_ (let () (declare (not safe)) - (##car _e2926229333_)))) - (___match4528145282_ - _e2924929367_ - _hd2924829371_ - _tl2924729374_ - _e2926229333_ - _hd2926129337_ - _tl2926029340_))) - (___match4528745288_ - _e2924929367_ - _hd2924829371_ - _tl2924729374_))))) - (___kont4524745248_))))))) - (_parse-vector29059_ - (lambda (_body29235_) + (##car _e2897729048_)))) + (___match4507345074_ + _e2896429082_ + _hd2896329086_ + _tl2896229089_ + _e2897729048_ + _hd2897629052_ + _tl2897529055_))) + (___match4507945080_ + _e2896429082_ + _hd2896329086_ + _tl2896229089_))))) + (___kont4503945040_))))))) + (_parse-vector28774_ + (lambda (_body28950_) (if (let () (declare (not safe)) - (_simple-vector?29060_ _body29235_)) - (let ((__tmp50200 - (let ((__tmp50201 - (gx#stx-map _parse129056_ _body29235_))) + (_simple-vector?28775_ _body28950_)) + (let ((__tmp49961 + (let ((__tmp49962 + (gx#stx-map _parse128771_ _body28950_))) (declare (not safe)) - (cons __tmp50201 '())))) + (cons __tmp49962 '())))) (declare (not safe)) - (cons 'simple: __tmp50200)) - (let ((__tmp50198 - (let ((__tmp50199 + (cons 'simple: __tmp49961)) + (let ((__tmp49959 + (let ((__tmp49960 (let () (declare (not safe)) - (_parse-list29058_ _body29235_)))) + (_parse-list28773_ _body28950_)))) (declare (not safe)) - (cons __tmp50199 '())))) + (cons __tmp49960 '())))) (declare (not safe)) - (cons 'list: __tmp50198))))) - (_simple-vector?29060_ - (lambda (_body29172_) - (let* ((___stx4529045291_ _body29172_) - (_g2917629188_ + (cons 'list: __tmp49959))))) + (_simple-vector?28775_ + (lambda (_body28887_) + (let* ((___stx4508245083_ _body28887_) + (_g2889128903_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4529045291_)))) - (let ((___kont4529345294_ - (lambda (_L29216_ _L29218_) - (if (let ((__tmp50202 (gx#ellipsis? _L29218_))) + ___stx4508245083_)))) + (let ((___kont4508545086_ + (lambda (_L28931_ _L28933_) + (if (let ((__tmp49963 (gx#ellipsis? _L28933_))) (declare (not safe)) - (not __tmp50202)) + (not __tmp49963)) (let () (declare (not safe)) - (_simple-vector?29060_ _L29216_)) + (_simple-vector?28775_ _L28931_)) '#f))) - (___kont4529545296_ - (lambda () (gx#stx-null? _body29172_)))) - (if (gx#stx-pair? ___stx4529045291_) - (let ((_e2918229206_ - (gx#syntax-e ___stx4529045291_))) - (let ((_tl2918029213_ + (___kont4508745088_ + (lambda () (gx#stx-null? _body28887_)))) + (if (gx#stx-pair? ___stx4508245083_) + (let ((_e2889728921_ + (gx#syntax-e ___stx4508245083_))) + (let ((_tl2889528928_ (let () (declare (not safe)) - (##cdr _e2918229206_))) - (_hd2918129210_ + (##cdr _e2889728921_))) + (_hd2889628925_ (let () (declare (not safe)) - (##car _e2918229206_)))) - (___kont4529345294_ - _tl2918029213_ - _hd2918129210_))) - (___kont4529545296_)))))) - (_parse-class-body29061_ - (lambda (_body29081_) - (let _recur29084_ ((_rest29087_ _body29081_)) - (let* ((___stx4530645307_ _rest29087_) - (_g2909129107_ + (##car _e2889728921_)))) + (___kont4508545086_ + _tl2889528928_ + _hd2889628925_))) + (___kont4508745088_)))))) + (_parse-class-body28776_ + (lambda (_body28796_) + (let _recur28799_ ((_rest28802_ _body28796_)) + (let* ((___stx4509845099_ _rest28802_) + (_g2880628822_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4530645307_)))) - (let ((___kont4530945310_ - (lambda (_L29145_ _L29147_ _L29148_) - (let ((__tmp50203 - (let ((__tmp50205 + ___stx4509845099_)))) + (let ((___kont4510145102_ + (lambda (_L28860_ _L28862_ _L28863_) + (let ((__tmp49964 + (let ((__tmp49966 (let () (declare (not safe)) - (_parse129056_ _L29147_))) - (__tmp50204 + (_parse128771_ _L28862_))) + (__tmp49965 (let () (declare (not safe)) - (_recur29084_ _L29145_)))) + (_recur28799_ _L28860_)))) (declare (not safe)) - (cons __tmp50205 __tmp50204)))) + (cons __tmp49966 __tmp49965)))) (declare (not safe)) - (cons _L29148_ __tmp50203)))) - (___kont4531145312_ + (cons _L28863_ __tmp49964)))) + (___kont4510345104_ (lambda () - (if (gx#stx-null? _rest29087_) + (if (gx#stx-null? _rest28802_) '() (let () (declare (not safe)) - (_parse-error29063_ _rest29087_)))))) - (let ((___match4532545326_ - (lambda (_e2909829125_ - _hd2909729129_ - _tl2909629132_ - _e2910129135_ - _hd2910029139_ - _tl2909929142_) - (let ((_L29145_ _tl2909929142_) - (_L29147_ _hd2910029139_) - (_L29148_ _hd2909729129_)) - (if (gx#stx-keyword? _L29148_) - (___kont4530945310_ - _L29145_ - _L29147_ - _L29148_) - (___kont4531145312_)))))) - (if (gx#stx-pair? ___stx4530645307_) - (let ((_e2909829125_ - (gx#syntax-e ___stx4530645307_))) - (let ((_tl2909629132_ + (_parse-error28778_ _rest28802_)))))) + (let ((___match4511745118_ + (lambda (_e2881328840_ + _hd2881228844_ + _tl2881128847_ + _e2881628850_ + _hd2881528854_ + _tl2881428857_) + (let ((_L28860_ _tl2881428857_) + (_L28862_ _hd2881528854_) + (_L28863_ _hd2881228844_)) + (if (gx#stx-keyword? _L28863_) + (___kont4510145102_ + _L28860_ + _L28862_ + _L28863_) + (___kont4510345104_)))))) + (if (gx#stx-pair? ___stx4509845099_) + (let ((_e2881328840_ + (gx#syntax-e ___stx4509845099_))) + (let ((_tl2881128847_ (let () (declare (not safe)) - (##cdr _e2909829125_))) - (_hd2909729129_ + (##cdr _e2881328840_))) + (_hd2881228844_ (let () (declare (not safe)) - (##car _e2909829125_)))) - (if (gx#stx-pair? _tl2909629132_) - (let ((_e2910129135_ - (gx#syntax-e _tl2909629132_))) - (let ((_tl2909929142_ + (##car _e2881328840_)))) + (if (gx#stx-pair? _tl2881128847_) + (let ((_e2881628850_ + (gx#syntax-e _tl2881128847_))) + (let ((_tl2881428857_ (let () (declare (not safe)) - (##cdr _e2910129135_))) - (_hd2910029139_ + (##cdr _e2881628850_))) + (_hd2881528854_ (let () (declare (not safe)) - (##car _e2910129135_)))) - (___match4532545326_ - _e2909829125_ - _hd2909729129_ - _tl2909629132_ - _e2910129135_ - _hd2910029139_ - _tl2909929142_))) - (___kont4531145312_)))) - (___kont4531145312_)))))))) - (_parse-qq29062_ - (lambda (_hd29068_) - (let ((_g2907029077_ - (lambda (_g2907129073_) + (##car _e2881628850_)))) + (___match4511745118_ + _e2881328840_ + _hd2881228844_ + _tl2881128847_ + _e2881628850_ + _hd2881528854_ + _tl2881428857_))) + (___kont4510345104_)))) + (___kont4510345104_)))))))) + (_parse-qq28777_ + (lambda (_hd28783_) + (let ((_g2878528792_ + (lambda (_g2878628788_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2907129073_)))) + _g2878628788_)))) (declare (not safe)) - (_g2907029077_ _hd29068_)))) - (_parse-error29063_ - (lambda (_hd29065_) + (_g2878528792_ _hd28783_)))) + (_parse-error28778_ + (lambda (_hd28780_) (apply gx#raise-syntax-error '#f '"bad syntax; illegal pattern" - (if _match-stx29054_ - (let ((__tmp50207 - (let ((__tmp50208 + (if _match-stx28769_ + (let ((__tmp49968 + (let ((__tmp49969 (let () (declare (not safe)) - (cons _hd29065_ '())))) + (cons _hd28780_ '())))) (declare (not safe)) - (cons _stx29052_ __tmp50208)))) + (cons _stx28767_ __tmp49969)))) (declare (not safe)) - (cons _match-stx29054_ __tmp50207)) - (let ((__tmp50206 + (cons _match-stx28769_ __tmp49968)) + (let ((__tmp49967 (let () (declare (not safe)) - (cons _hd29065_ '())))) + (cons _hd28780_ '())))) (declare (not safe)) - (cons _stx29052_ __tmp50206))))))) - (let () (declare (not safe)) (_parse129056_ _stx29052_))))) + (cons _stx28767_ __tmp49967))))))) + (let () (declare (not safe)) (_parse128771_ _stx28767_))))) (define |gerbil/core$[1]#parse-match-pattern__0| - (lambda (_stx30736_) - (let ((_match-stx30739_ '#f)) + (lambda (_stx30451_) + (let ((_match-stx30454_ '#f)) (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| - _stx30736_ - _match-stx30739_)))) + _stx30451_ + _match-stx30454_)))) (define |gerbil/core$[1]#parse-match-pattern| - (lambda _g50210_ - (let ((_g50209_ (let () (declare (not safe)) (##length _g50210_)))) - (cond ((let () (declare (not safe)) (##fx= _g50209_ 1)) - (apply (lambda (_stx30736_) + (lambda _g49971_ + (let ((_g49970_ (let () (declare (not safe)) (##length _g49971_)))) + (cond ((let () (declare (not safe)) (##fx= _g49970_ 1)) + (apply (lambda (_stx30451_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__0| - _stx30736_))) - _g50210_)) - ((let () (declare (not safe)) (##fx= _g50209_ 2)) - (apply (lambda (_stx30742_ _match-stx30744_) + _stx30451_))) + _g49971_)) + ((let () (declare (not safe)) (##fx= _g49970_ 2)) + (apply (lambda (_stx30457_ _match-stx30459_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| - _stx30742_ - _match-stx30744_))) - _g50210_)) + _stx30457_ + _match-stx30459_))) + _g49971_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$[1]#parse-match-pattern| - _g50210_)))))) + _g49971_)))))) (define |gerbil/core$[1]#match-pattern?| - (lambda (_stx29036_) + (lambda (_stx28751_) (call-with-current-continuation - (lambda (_E29040_) + (lambda (_E28755_) (with-exception-handler - (let ((_E!29043_ (current-exception-handler))) - (lambda (_e29046_) - (if (syntax-error? _e29046_) - (_E29040_ '#f) - (_E!29043_ _e29046_)))) + (let ((_E!28758_ (current-exception-handler))) + (lambda (_e28761_) + (if (syntax-error? _e28761_) + (_E28755_ '#f) + (_E!28758_ _e28761_)))) (lambda () (let () (declare (not safe)) - (|gerbil/core$[1]#parse-match-pattern__0| _stx29036_)) + (|gerbil/core$[1]#parse-match-pattern__0| _stx28751_)) '#t)))))) (define |gerbil/core$[1]#match-pattern-vars| - (lambda (_ptree27771_) - (letrec ((_loop27774_ - (lambda (_ptree28061_ _vars28063_ _K28064_) - (let* ((___stx4542445425_ _ptree28061_) - (_g2807728187_ + (lambda (_ptree27486_) + (letrec ((_loop27489_ + (lambda (_ptree27776_ _vars27778_ _K27779_) + (let* ((___stx4521645217_ _ptree27776_) + (_g2779227902_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4542445425_)))) - (let ((___kont4542745428_ - (lambda (_L28817_) - (let* ((___stx4534445345_ _L28817_) - (_g2883428868_ + ___stx4521645217_)))) + (let ((___kont4521945220_ + (lambda (_L28532_) + (let* ((___stx4513645137_ _L28532_) + (_g2854928583_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4534445345_)))) - (let ((___kont4534745348_ - (lambda (_L29017_) + ___stx4513645137_)))) + (let ((___kont4513945140_ + (lambda (_L28732_) (let () (declare (not safe)) - (_loop27774_ - _L29017_ - _vars28063_ - _K28064_)))) - (___kont4534945350_ - (lambda (_L28986_) + (_loop27489_ + _L28732_ + _vars27778_ + _K27779_)))) + (___kont4514145142_ + (lambda (_L28701_) (let () (declare (not safe)) - (_loop27774_ - _L28986_ - _vars28063_ - _K28064_)))) - (___kont4535145352_ - (lambda (_L28934_) + (_loop27489_ + _L28701_ + _vars27778_ + _K27779_)))) + (___kont4514345144_ + (lambda (_L28649_) (let () (declare (not safe)) - (_loop27774_ - _L28934_ - _vars28063_ - _K28064_)))) - (___kont4535345354_ - (lambda () (_K28064_ _vars28063_)))) - (if (gx#stx-pair? ___stx4534445345_) - (let ((_e2883929007_ - (gx#syntax-e ___stx4534445345_))) - (let ((_tl2883729014_ + (_loop27489_ + _L28649_ + _vars27778_ + _K27779_)))) + (___kont4514545146_ + (lambda () (_K27779_ _vars27778_)))) + (if (gx#stx-pair? ___stx4513645137_) + (let ((_e2855428722_ + (gx#syntax-e ___stx4513645137_))) + (let ((_tl2855228729_ (let () (declare (not safe)) - (##cdr _e2883929007_))) - (_hd2883829011_ + (##cdr _e2855428722_))) + (_hd2855328726_ (let () (declare (not safe)) - (##car _e2883929007_)))) - (if (gx#stx-null? _tl2883729014_) - (___kont4534745348_ - _hd2883829011_) + (##car _e2855428722_)))) + (if (gx#stx-null? _tl2855228729_) + (___kont4513945140_ + _hd2855328726_) (if (gx#stx-datum? - _hd2883829011_) - (let ((_e2884428972_ + _hd2855328726_) + (let ((_e2855928687_ (gx#stx-e - _hd2883829011_))) + _hd2855328726_))) (if (let () (declare (not safe)) - (equal? _e2884428972_ + (equal? _e2855928687_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '=>:)) - (if (gx#stx-pair? _tl2883729014_) - (let ((_e2884728976_ (gx#syntax-e _tl2883729014_))) - (let ((_tl2884528983_ + (if (gx#stx-pair? _tl2855228729_) + (let ((_e2856228691_ (gx#syntax-e _tl2855228729_))) + (let ((_tl2856028698_ (let () (declare (not safe)) - (##cdr _e2884728976_))) - (_hd2884628980_ + (##cdr _e2856228691_))) + (_hd2856128695_ (let () (declare (not safe)) - (##car _e2884728976_)))) - (if (gx#stx-null? _tl2884528983_) - (___kont4534945350_ _hd2884628980_) - (___kont4535345354_)))) - (___kont4535345354_)) - (if (let () (declare (not safe)) (equal? _e2884428972_ '::)) - (if (gx#stx-pair? _tl2883729014_) - (let ((_e2885528900_ (gx#syntax-e _tl2883729014_))) - (let ((_tl2885328907_ + (##car _e2856228691_)))) + (if (gx#stx-null? _tl2856028698_) + (___kont4514145142_ _hd2856128695_) + (___kont4514545146_)))) + (___kont4514545146_)) + (if (let () (declare (not safe)) (equal? _e2855928687_ '::)) + (if (gx#stx-pair? _tl2855228729_) + (let ((_e2857028615_ (gx#syntax-e _tl2855228729_))) + (let ((_tl2856828622_ (let () (declare (not safe)) - (##cdr _e2885528900_))) - (_hd2885428904_ + (##cdr _e2857028615_))) + (_hd2856928619_ (let () (declare (not safe)) - (##car _e2885528900_)))) - (if (gx#stx-pair? _tl2885328907_) - (let ((_e2885828910_ - (gx#syntax-e _tl2885328907_))) - (let ((_tl2885628917_ + (##car _e2857028615_)))) + (if (gx#stx-pair? _tl2856828622_) + (let ((_e2857328625_ + (gx#syntax-e _tl2856828622_))) + (let ((_tl2857128632_ (let () (declare (not safe)) - (##cdr _e2885828910_))) - (_hd2885728914_ + (##cdr _e2857328625_))) + (_hd2857228629_ (let () (declare (not safe)) - (##car _e2885828910_)))) - (if (gx#stx-datum? _hd2885728914_) - (let ((_e2885928920_ - (gx#stx-e _hd2885728914_))) + (##car _e2857328625_)))) + (if (gx#stx-datum? _hd2857228629_) + (let ((_e2857428635_ + (gx#stx-e _hd2857228629_))) (if (let () (declare (not safe)) - (equal? _e2885928920_ '=>:)) + (equal? _e2857428635_ '=>:)) (if (gx#stx-pair? - _tl2885628917_) - (let ((_e2886228924_ + _tl2857128632_) + (let ((_e2857728639_ (gx#syntax-e - _tl2885628917_))) - (let ((_tl2886028931_ + _tl2857128632_))) + (let ((_tl2857528646_ (let () (declare (not safe)) - (##cdr _e2886228924_))) - (_hd2886128928_ + (##cdr _e2857728639_))) + (_hd2857628643_ (let () (declare (not safe)) - (##car _e2886228924_)))) + (##car _e2857728639_)))) (if (gx#stx-null? - _tl2886028931_) - (___kont4535145352_ - _hd2886128928_) - (___kont4535345354_)))) - (___kont4535345354_)) - (___kont4535345354_))) - (___kont4535345354_)))) - (___kont4535345354_)))) - (___kont4535345354_)) - (___kont4535345354_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4535345354_))))) - (___kont4535345354_)))))) - (___kont4542945430_ - (lambda (_L28704_ _L28706_) - (let* ((___stx4532845329_ _L28704_) - (_g2872228734_ + _tl2857528646_) + (___kont4514345144_ + _hd2857628643_) + (___kont4514545146_)))) + (___kont4514545146_)) + (___kont4514545146_))) + (___kont4514545146_)))) + (___kont4514545146_)))) + (___kont4514545146_)) + (___kont4514545146_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4514545146_))))) + (___kont4514545146_)))))) + (___kont4522145222_ + (lambda (_L28419_ _L28421_) + (let* ((___stx4512045121_ _L28419_) + (_g2843728449_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4532845329_)))) - (let ((___kont4533145332_ - (lambda (_L28762_ _L28764_) - (let ((__tmp50211 - (lambda (_g2877628778_) - (let ((__tmp50212 + ___stx4512045121_)))) + (let ((___kont4512345124_ + (lambda (_L28477_ _L28479_) + (let ((__tmp49972 + (lambda (_g2849128493_) + (let ((__tmp49973 (let () (declare (not safe)) - (cons _L28706_ + (cons _L28421_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L28762_)))) + _L28477_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop27774_ - __tmp50212 - _g2877628778_ - _K28064_))))) + (_loop27489_ + __tmp49973 + _g2849128493_ + _K27779_))))) (declare (not safe)) - (_loop27774_ - _L28764_ - _vars28063_ - __tmp50211)))) - (___kont4533345334_ - (lambda () (_K28064_ _vars28063_)))) - (if (gx#stx-pair? ___stx4532845329_) - (let ((_e2872828752_ - (gx#syntax-e ___stx4532845329_))) - (let ((_tl2872628759_ + (_loop27489_ + _L28479_ + _vars27778_ + __tmp49972)))) + (___kont4512545126_ + (lambda () (_K27779_ _vars27778_)))) + (if (gx#stx-pair? ___stx4512045121_) + (let ((_e2844328467_ + (gx#syntax-e ___stx4512045121_))) + (let ((_tl2844128474_ (let () (declare (not safe)) - (##cdr _e2872828752_))) - (_hd2872728756_ + (##cdr _e2844328467_))) + (_hd2844228471_ (let () (declare (not safe)) - (##car _e2872828752_)))) - (___kont4533145332_ - _tl2872628759_ - _hd2872728756_))) - (___kont4533345334_)))))) - (___kont4543145432_ - (lambda (_L28673_) + (##car _e2844328467_)))) + (___kont4512345124_ + _tl2844128474_ + _hd2844228471_))) + (___kont4512545126_)))))) + (___kont4522345224_ + (lambda (_L28388_) (let () (declare (not safe)) - (_loop27774_ _L28673_ _vars28063_ _K28064_)))) - (___kont4543345434_ - (lambda (_L28619_ _L28621_) - (let ((__tmp50213 - (lambda (_g2863628638_) + (_loop27489_ _L28388_ _vars27778_ _K27779_)))) + (___kont4522545226_ + (lambda (_L28334_ _L28336_) + (let ((__tmp49974 + (lambda (_g2835128353_) (let () (declare (not safe)) - (_loop27774_ - _L28619_ - _g2863628638_ - _K28064_))))) + (_loop27489_ + _L28334_ + _g2835128353_ + _K27779_))))) (declare (not safe)) - (_loop27774_ - _L28621_ - _vars28063_ - __tmp50213)))) - (___kont4543545436_ - (lambda (_L28555_ _L28557_) - (let ((__tmp50214 - (lambda (_g2857228574_) + (_loop27489_ + _L28336_ + _vars27778_ + __tmp49974)))) + (___kont4522745228_ + (lambda (_L28270_ _L28272_) + (let ((__tmp49975 + (lambda (_g2828728289_) (let () (declare (not safe)) - (_loop27774_ - _L28555_ - _g2857228574_ - _K28064_))))) + (_loop27489_ + _L28270_ + _g2828728289_ + _K27779_))))) (declare (not safe)) - (_loop27774_ - _L28557_ - _vars28063_ - __tmp50214)))) - (___kont4543745438_ - (lambda (_L28500_) + (_loop27489_ + _L28272_ + _vars27778_ + __tmp49975)))) + (___kont4522945230_ + (lambda (_L28215_) (let () (declare (not safe)) - (_loop27774_ _L28500_ _vars28063_ _K28064_)))) - (___kont4543945440_ - (lambda (_L28450_ _L28452_) + (_loop27489_ _L28215_ _vars27778_ _K27779_)))) + (___kont4523145232_ + (lambda (_L28165_ _L28167_) (let () (declare (not safe)) - (_loop-vector27776_ - _L28450_ - _vars28063_ - _K28064_)))) - (___kont4544145442_ - (lambda (_L28407_) + (_loop-vector27491_ + _L28165_ + _vars27778_ + _K27779_)))) + (___kont4523345234_ + (lambda (_L28122_) (let () (declare (not safe)) - (_loop-vector27776_ - _L28407_ - _vars28063_ - _K28064_)))) - (___kont4544345444_ - (lambda (_L28350_) + (_loop-vector27491_ + _L28122_ + _vars27778_ + _K27779_)))) + (___kont4523545236_ + (lambda (_L28065_) (let () (declare (not safe)) - (_loop-class-list27778_ - _L28350_ - _vars28063_ - _K28064_)))) - (___kont4544545446_ - (lambda (_L28291_ _L28293_) + (_loop-class-list27493_ + _L28065_ + _vars27778_ + _K27779_)))) + (___kont4523745238_ + (lambda (_L28006_ _L28008_) (let () (declare (not safe)) - (_loop27774_ _L28291_ _vars28063_ _K28064_)))) - (___kont4544745448_ - (lambda (_L28229_) - (if (let ((__tmp50215 - (lambda (_g2824428246_) + (_loop27489_ _L28006_ _vars27778_ _K27779_)))) + (___kont4523945240_ + (lambda (_L27944_) + (if (let ((__tmp49976 + (lambda (_g2795927961_) (gx#bound-identifier=? - _g2824428246_ - _L28229_)))) + _g2795927961_ + _L27944_)))) (declare (not safe)) - (find __tmp50215 _vars28063_)) - (_K28064_ _vars28063_) - (_K28064_ + (find __tmp49976 _vars27778_)) + (_K27779_ _vars27778_) + (_K27779_ (let () (declare (not safe)) - (cons _L28229_ _vars28063_)))))) - (___kont4544945450_ - (lambda () (_K28064_ _vars28063_)))) - (let* ((___match4558145582_ - (lambda (_e2813628430_ - _hd2813528434_ - _tl2813428437_ - _e2813928440_ - _hd2813828444_ - _tl2813728447_) - (let ((_L28450_ _hd2813828444_) - (_L28452_ _hd2813528434_)) - (if (or (gx#stx-eq? 'values: _L28452_) - (gx#stx-eq? 'vector: _L28452_)) - (___kont4543945440_ _L28450_ _L28452_) - (if (gx#stx-datum? _hd2813528434_) - (let ((_e2814428383_ - (gx#stx-e _hd2813528434_))) + (cons _L27944_ _vars27778_)))))) + (___kont4524145242_ + (lambda () (_K27779_ _vars27778_)))) + (let* ((___match4537345374_ + (lambda (_e2785128145_ + _hd2785028149_ + _tl2784928152_ + _e2785428155_ + _hd2785328159_ + _tl2785228162_) + (let ((_L28165_ _hd2785328159_) + (_L28167_ _hd2785028149_)) + (if (or (gx#stx-eq? 'values: _L28167_) + (gx#stx-eq? 'vector: _L28167_)) + (___kont4523145232_ _L28165_ _L28167_) + (if (gx#stx-datum? _hd2785028149_) + (let ((_e2785928098_ + (gx#stx-e _hd2785028149_))) (if (let () (declare (not safe)) - (equal? _e2814428383_ + (equal? _e2785928098_ 'struct:)) - (___kont4544945450_) + (___kont4524145242_) (if (let () (declare (not safe)) - (equal? _e2814428383_ + (equal? _e2785928098_ 'class:)) - (___kont4544945450_) + (___kont4524145242_) (if (let () (declare (not safe)) - (equal? _e2814428383_ + (equal? _e2785928098_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'apply:)) - (___kont4544945450_) + (___kont4524145242_) (if (let () (declare (not safe)) - (equal? _e2814428383_ 'var:)) - (___kont4544745448_ _hd2813828444_) - (___kont4544945450_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4544945450_)))))) - (___match4547545476_ - (lambda (_e2809128694_ - _hd2809028698_ - _tl2808928701_) - (let ((_L28704_ _tl2808928701_) - (_L28706_ _hd2809028698_)) - (if (or (gx#stx-eq? 'and: _L28706_) - (gx#stx-eq? 'or: _L28706_)) - (___kont4542945430_ _L28704_ _L28706_) - (if (gx#stx-datum? _hd2809028698_) - (let ((_e2809628659_ - (gx#stx-e _hd2809028698_))) + (equal? _e2785928098_ 'var:)) + (___kont4523945240_ _hd2785328159_) + (___kont4524145242_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4524145242_)))))) + (___match4526745268_ + (lambda (_e2780628409_ + _hd2780528413_ + _tl2780428416_) + (let ((_L28419_ _tl2780428416_) + (_L28421_ _hd2780528413_)) + (if (or (gx#stx-eq? 'and: _L28421_) + (gx#stx-eq? 'or: _L28421_)) + (___kont4522145222_ _L28419_ _L28421_) + (if (gx#stx-datum? _hd2780528413_) + (let ((_e2781128374_ + (gx#stx-e _hd2780528413_))) (if (let () (declare (not safe)) - (equal? _e2809628659_ + (equal? _e2781128374_ 'not:)) (if (gx#stx-pair? - _tl2808928701_) - (let ((_e2809928663_ + _tl2780428416_) + (let ((_e2781428378_ (gx#syntax-e - _tl2808928701_))) - (let ((_tl2809728670_ + _tl2780428416_))) + (let ((_tl2781228385_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2809928663_))) - (_hd2809828667_ - (let () (declare (not safe)) (##car _e2809928663_)))) - (if (gx#stx-null? _tl2809728670_) - (___kont4543145432_ _hd2809828667_) - (___kont4544945450_)))) - (___kont4544945450_)) + (##cdr _e2781428378_))) + (_hd2781328382_ + (let () (declare (not safe)) (##car _e2781428378_)))) + (if (gx#stx-null? _tl2781228385_) + (___kont4522345224_ _hd2781328382_) + (___kont4524145242_)))) + (___kont4524145242_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (equal? _e2809628659_ + (equal? _e2781128374_ 'cons:)) (if (gx#stx-pair? - _tl2808928701_) - (let ((_e2810828599_ + _tl2780428416_) + (let ((_e2782328314_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2808928701_))) - (let ((_tl2810628606_ - (let () (declare (not safe)) (##cdr _e2810828599_))) - (_hd2810728603_ + (gx#syntax-e _tl2780428416_))) + (let ((_tl2782128321_ + (let () (declare (not safe)) (##cdr _e2782328314_))) + (_hd2782228318_ (let () (declare (not safe)) - (##car _e2810828599_)))) - (if (gx#stx-pair? _tl2810628606_) - (let ((_e2811128609_ (gx#syntax-e _tl2810628606_))) - (let ((_tl2810928616_ + (##car _e2782328314_)))) + (if (gx#stx-pair? _tl2782128321_) + (let ((_e2782628324_ (gx#syntax-e _tl2782128321_))) + (let ((_tl2782428331_ (let () (declare (not safe)) - (##cdr _e2811128609_))) - (_hd2811028613_ + (##cdr _e2782628324_))) + (_hd2782528328_ (let () (declare (not safe)) - (##car _e2811128609_)))) - (if (gx#stx-null? _tl2810928616_) - (___kont4543345434_ - _hd2811028613_ - _hd2810728603_) - (___kont4544945450_)))) - (if (gx#stx-null? _tl2810628606_) - (___match4558145582_ - _e2809128694_ - _hd2809028698_ - _tl2808928701_ - _e2810828599_ - _hd2810728603_ - _tl2810628606_) - (___kont4544945450_))))) - (___kont4544945450_)) - (if (let () (declare (not safe)) (equal? _e2809628659_ 'splice:)) - (if (gx#stx-pair? _tl2808928701_) - (let ((_e2812028535_ (gx#syntax-e _tl2808928701_))) - (let ((_tl2811828542_ + (##car _e2782628324_)))) + (if (gx#stx-null? _tl2782428331_) + (___kont4522545226_ + _hd2782528328_ + _hd2782228318_) + (___kont4524145242_)))) + (if (gx#stx-null? _tl2782128321_) + (___match4537345374_ + _e2780628409_ + _hd2780528413_ + _tl2780428416_ + _e2782328314_ + _hd2782228318_ + _tl2782128321_) + (___kont4524145242_))))) + (___kont4524145242_)) + (if (let () (declare (not safe)) (equal? _e2781128374_ 'splice:)) + (if (gx#stx-pair? _tl2780428416_) + (let ((_e2783528250_ (gx#syntax-e _tl2780428416_))) + (let ((_tl2783328257_ (let () (declare (not safe)) - (##cdr _e2812028535_))) - (_hd2811928539_ + (##cdr _e2783528250_))) + (_hd2783428254_ (let () (declare (not safe)) - (##car _e2812028535_)))) - (if (gx#stx-pair? _tl2811828542_) - (let ((_e2812328545_ - (gx#syntax-e _tl2811828542_))) - (let ((_tl2812128552_ + (##car _e2783528250_)))) + (if (gx#stx-pair? _tl2783328257_) + (let ((_e2783828260_ + (gx#syntax-e _tl2783328257_))) + (let ((_tl2783628267_ (let () (declare (not safe)) - (##cdr _e2812328545_))) - (_hd2812228549_ + (##cdr _e2783828260_))) + (_hd2783728264_ (let () (declare (not safe)) - (##car _e2812328545_)))) - (if (gx#stx-null? _tl2812128552_) - (___kont4543545436_ - _hd2812228549_ - _hd2811928539_) - (___kont4544945450_)))) - (if (gx#stx-null? _tl2811828542_) - (___match4558145582_ - _e2809128694_ - _hd2809028698_ - _tl2808928701_ - _e2812028535_ - _hd2811928539_ - _tl2811828542_) - (___kont4544945450_))))) - (___kont4544945450_)) + (##car _e2783828260_)))) + (if (gx#stx-null? _tl2783628267_) + (___kont4522745228_ + _hd2783728264_ + _hd2783428254_) + (___kont4524145242_)))) + (if (gx#stx-null? _tl2783328257_) + (___match4537345374_ + _e2780628409_ + _hd2780528413_ + _tl2780428416_ + _e2783528250_ + _hd2783428254_ + _tl2783328257_) + (___kont4524145242_))))) + (___kont4524145242_)) (if (let () (declare (not safe)) - (equal? _e2809628659_ 'box:)) - (if (gx#stx-pair? _tl2808928701_) - (let ((_e2813128490_ (gx#syntax-e _tl2808928701_))) - (let ((_tl2812928497_ + (equal? _e2781128374_ 'box:)) + (if (gx#stx-pair? _tl2780428416_) + (let ((_e2784628205_ (gx#syntax-e _tl2780428416_))) + (let ((_tl2784428212_ (let () (declare (not safe)) - (##cdr _e2813128490_))) - (_hd2813028494_ + (##cdr _e2784628205_))) + (_hd2784528209_ (let () (declare (not safe)) - (##car _e2813128490_)))) - (if (gx#stx-null? _tl2812928497_) - (___kont4543745438_ _hd2813028494_) - (___kont4544945450_)))) - (___kont4544945450_)) - (if (gx#stx-pair? _tl2808928701_) - (let ((_e2813928440_ (gx#syntax-e _tl2808928701_))) - (let ((_tl2813728447_ + (##car _e2784628205_)))) + (if (gx#stx-null? _tl2784428212_) + (___kont4522945230_ _hd2784528209_) + (___kont4524145242_)))) + (___kont4524145242_)) + (if (gx#stx-pair? _tl2780428416_) + (let ((_e2785428155_ (gx#syntax-e _tl2780428416_))) + (let ((_tl2785228162_ (let () (declare (not safe)) - (##cdr _e2813928440_))) - (_hd2813828444_ + (##cdr _e2785428155_))) + (_hd2785328159_ (let () (declare (not safe)) - (##car _e2813928440_)))) - (if (gx#stx-null? _tl2813728447_) - (___match4558145582_ - _e2809128694_ - _hd2809028698_ - _tl2808928701_ - _e2813928440_ - _hd2813828444_ - _tl2813728447_) + (##car _e2785428155_)))) + (if (gx#stx-null? _tl2785228162_) + (___match4537345374_ + _e2780628409_ + _hd2780528413_ + _tl2780428416_ + _e2785428155_ + _hd2785328159_ + _tl2785228162_) (if (let () (declare (not safe)) - (equal? _e2809628659_ 'struct:)) - (if (gx#stx-pair? _tl2813728447_) - (let ((_e2815028397_ - (gx#syntax-e _tl2813728447_))) - (let ((_tl2814828404_ + (equal? _e2781128374_ 'struct:)) + (if (gx#stx-pair? _tl2785228162_) + (let ((_e2786528112_ + (gx#syntax-e _tl2785228162_))) + (let ((_tl2786328119_ (let () (declare (not safe)) - (##cdr _e2815028397_))) - (_hd2814928401_ + (##cdr _e2786528112_))) + (_hd2786428116_ (let () (declare (not safe)) - (##car _e2815028397_)))) - (if (gx#stx-null? _tl2814828404_) - (___kont4544145442_ - _hd2814928401_) - (___kont4544945450_)))) - (___kont4544945450_)) + (##car _e2786528112_)))) + (if (gx#stx-null? _tl2786328119_) + (___kont4523345234_ + _hd2786428116_) + (___kont4524145242_)))) + (___kont4524145242_)) (if (let () (declare (not safe)) - (equal? _e2809628659_ 'class:)) - (if (gx#stx-pair? _tl2813728447_) - (let ((_e2816128340_ + (equal? _e2781128374_ 'class:)) + (if (gx#stx-pair? _tl2785228162_) + (let ((_e2787628055_ (gx#syntax-e - _tl2813728447_))) - (let ((_tl2815928347_ + _tl2785228162_))) + (let ((_tl2787428062_ (let () (declare (not safe)) - (##cdr _e2816128340_))) - (_hd2816028344_ + (##cdr _e2787628055_))) + (_hd2787528059_ (let () (declare (not safe)) - (##car _e2816128340_)))) + (##car _e2787628055_)))) (if (gx#stx-null? - _tl2815928347_) - (___kont4544345444_ - _hd2816028344_) - (___kont4544945450_)))) - (___kont4544945450_)) + _tl2787428062_) + (___kont4523545236_ + _hd2787528059_) + (___kont4524145242_)))) + (___kont4524145242_)) (if (let () (declare (not safe)) - (equal? _e2809628659_ 'apply:)) - (if (gx#stx-pair? _tl2813728447_) - (let ((_e2817328281_ + (equal? _e2781128374_ 'apply:)) + (if (gx#stx-pair? _tl2785228162_) + (let ((_e2788827996_ (gx#syntax-e - _tl2813728447_))) - (let ((_tl2817128288_ + _tl2785228162_))) + (let ((_tl2788628003_ (let () (declare (not safe)) - (##cdr _e2817328281_))) - (_hd2817228285_ + (##cdr _e2788827996_))) + (_hd2788728000_ (let () (declare (not safe)) - (##car _e2817328281_)))) + (##car _e2788827996_)))) (if (gx#stx-null? - _tl2817128288_) - (___kont4544545446_ - _hd2817228285_ - _hd2813828444_) - (___kont4544945450_)))) - (___kont4544945450_)) - (___kont4544945450_))))))) - (___kont4544945450_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl2808928701_) - (let ((_e2813928440_ + _tl2788628003_) + (___kont4523745238_ + _hd2788728000_ + _hd2785328159_) + (___kont4524145242_)))) + (___kont4524145242_)) + (___kont4524145242_))))))) + (___kont4524145242_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _tl2780428416_) + (let ((_e2785428155_ (gx#syntax-e - _tl2808928701_))) - (let ((_tl2813728447_ + _tl2780428416_))) + (let ((_tl2785228162_ (let () (declare (not safe)) - (##cdr _e2813928440_))) - (_hd2813828444_ + (##cdr _e2785428155_))) + (_hd2785328159_ (let () (declare (not safe)) - (##car _e2813928440_)))) + (##car _e2785428155_)))) (if (gx#stx-null? - _tl2813728447_) - (___match4558145582_ - _e2809128694_ - _hd2809028698_ - _tl2808928701_ - _e2813928440_ - _hd2813828444_ - _tl2813728447_) - (___kont4544945450_)))) - (___kont4544945450_)))))))) - (if (gx#stx-pair? ___stx4542445425_) - (let ((_e2808228793_ - (gx#syntax-e ___stx4542445425_))) - (let ((_tl2808028800_ + _tl2785228162_) + (___match4537345374_ + _e2780628409_ + _hd2780528413_ + _tl2780428416_ + _e2785428155_ + _hd2785328159_ + _tl2785228162_) + (___kont4524145242_)))) + (___kont4524145242_)))))))) + (if (gx#stx-pair? ___stx4521645217_) + (let ((_e2779728508_ + (gx#syntax-e ___stx4521645217_))) + (let ((_tl2779528515_ (let () (declare (not safe)) - (##cdr _e2808228793_))) - (_hd2808128797_ + (##cdr _e2779728508_))) + (_hd2779628512_ (let () (declare (not safe)) - (##car _e2808228793_)))) - (if (gx#stx-datum? _hd2808128797_) - (let ((_e2808328803_ - (gx#stx-e _hd2808128797_))) + (##car _e2779728508_)))) + (if (gx#stx-datum? _hd2779628512_) + (let ((_e2779828518_ + (gx#stx-e _hd2779628512_))) (if (let () (declare (not safe)) - (equal? _e2808328803_ '?:)) - (if (gx#stx-pair? _tl2808028800_) - (let ((_e2808628807_ + (equal? _e2779828518_ '?:)) + (if (gx#stx-pair? _tl2779528515_) + (let ((_e2780128522_ (gx#syntax-e - _tl2808028800_))) - (let ((_tl2808428814_ + _tl2779528515_))) + (let ((_tl2779928529_ (let () (declare (not safe)) - (##cdr _e2808628807_))) - (_hd2808528811_ + (##cdr _e2780128522_))) + (_hd2780028526_ (let () (declare (not safe)) - (##car _e2808628807_)))) - (___kont4542745428_ - _tl2808428814_))) - (___match4547545476_ - _e2808228793_ - _hd2808128797_ - _tl2808028800_)) - (___match4547545476_ - _e2808228793_ - _hd2808128797_ - _tl2808028800_))) - (___match4547545476_ - _e2808228793_ - _hd2808128797_ - _tl2808028800_)))) - (___kont4544945450_))))))) - (_loop-vector27776_ - (lambda (_body27937_ _vars27939_ _K27940_) - (let* ((___stx4568245683_ _body27937_) - (_g2794327966_ + (##car _e2780128522_)))) + (___kont4521945220_ + _tl2779928529_))) + (___match4526745268_ + _e2779728508_ + _hd2779628512_ + _tl2779528515_)) + (___match4526745268_ + _e2779728508_ + _hd2779628512_ + _tl2779528515_))) + (___match4526745268_ + _e2779728508_ + _hd2779628512_ + _tl2779528515_)))) + (___kont4524145242_))))))) + (_loop-vector27491_ + (lambda (_body27652_ _vars27654_ _K27655_) + (let* ((___stx4547445475_ _body27652_) + (_g2765827681_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4568245683_)))) - (let ((___kont4568545686_ - (lambda (_L28043_) + ___stx4547445475_)))) + (let ((___kont4547745478_ + (lambda (_L27758_) (let () (declare (not safe)) - (_loop-list27777_ - _L28043_ - _vars27939_ - _K27940_)))) - (___kont4568745688_ - (lambda (_L27997_) + (_loop-list27492_ + _L27758_ + _vars27654_ + _K27655_)))) + (___kont4547945480_ + (lambda (_L27712_) (let () (declare (not safe)) - (_loop27774_ - _L27997_ - _vars27939_ - _K27940_))))) - (if (gx#stx-pair? ___stx4568245683_) - (let ((_e2794828019_ - (gx#syntax-e ___stx4568245683_))) - (let ((_tl2794628026_ + (_loop27489_ + _L27712_ + _vars27654_ + _K27655_))))) + (if (gx#stx-pair? ___stx4547445475_) + (let ((_e2766327734_ + (gx#syntax-e ___stx4547445475_))) + (let ((_tl2766127741_ (let () (declare (not safe)) - (##cdr _e2794828019_))) - (_hd2794728023_ + (##cdr _e2766327734_))) + (_hd2766227738_ (let () (declare (not safe)) - (##car _e2794828019_)))) - (if (gx#stx-datum? _hd2794728023_) - (let ((_e2794928029_ - (gx#stx-e _hd2794728023_))) + (##car _e2766327734_)))) + (if (gx#stx-datum? _hd2766227738_) + (let ((_e2766427744_ + (gx#stx-e _hd2766227738_))) (if (let () (declare (not safe)) - (equal? _e2794928029_ 'simple:)) - (if (gx#stx-pair? _tl2794628026_) - (let ((_e2795228033_ + (equal? _e2766427744_ 'simple:)) + (if (gx#stx-pair? _tl2766127741_) + (let ((_e2766727748_ (gx#syntax-e - _tl2794628026_))) - (let ((_tl2795028040_ + _tl2766127741_))) + (let ((_tl2766527755_ (let () (declare (not safe)) - (##cdr _e2795228033_))) - (_hd2795128037_ + (##cdr _e2766727748_))) + (_hd2766627752_ (let () (declare (not safe)) - (##car _e2795228033_)))) + (##car _e2766727748_)))) (if (gx#stx-null? - _tl2795028040_) - (___kont4568545686_ - _hd2795128037_) + _tl2766527755_) + (___kont4547745478_ + _hd2766627752_) (let () (declare (not safe)) - (_g2794327966_))))) + (_g2765827681_))))) (let () (declare (not safe)) - (_g2794327966_))) + (_g2765827681_))) (if (let () (declare (not safe)) - (equal? _e2794928029_ 'list:)) - (if (gx#stx-pair? _tl2794628026_) - (let ((_e2796027987_ + (equal? _e2766427744_ 'list:)) + (if (gx#stx-pair? _tl2766127741_) + (let ((_e2767527702_ (gx#syntax-e - _tl2794628026_))) - (let ((_tl2795827994_ + _tl2766127741_))) + (let ((_tl2767327709_ (let () (declare (not safe)) - (##cdr _e2796027987_))) - (_hd2795927991_ + (##cdr _e2767527702_))) + (_hd2767427706_ (let () (declare (not safe)) - (##car _e2796027987_)))) + (##car _e2767527702_)))) (if (gx#stx-null? - _tl2795827994_) - (___kont4568745688_ - _hd2795927991_) + _tl2767327709_) + (___kont4547945480_ + _hd2767427706_) (let () (declare (not safe)) - (_g2794327966_))))) + (_g2765827681_))))) (let () (declare (not safe)) - (_g2794327966_))) + (_g2765827681_))) (let () (declare (not safe)) - (_g2794327966_))))) + (_g2765827681_))))) (let () (declare (not safe)) - (_g2794327966_))))) - (let () (declare (not safe)) (_g2794327966_))))))) - (_loop-list27777_ - (lambda (_rest27867_ _vars27869_ _K27870_) - (let* ((___stx4573245733_ _rest27867_) - (_g2787327885_ + (_g2765827681_))))) + (let () (declare (not safe)) (_g2765827681_))))))) + (_loop-list27492_ + (lambda (_rest27582_ _vars27584_ _K27585_) + (let* ((___stx4552445525_ _rest27582_) + (_g2758827600_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4573245733_)))) - (let ((___kont4573545736_ - (lambda (_L27913_ _L27915_) - (let ((__tmp50216 - (lambda (_g2792727929_) + ___stx4552445525_)))) + (let ((___kont4552745528_ + (lambda (_L27628_ _L27630_) + (let ((__tmp49977 + (lambda (_g2764227644_) (let () (declare (not safe)) - (_loop-list27777_ - _L27913_ - _g2792727929_ - _K27870_))))) + (_loop-list27492_ + _L27628_ + _g2764227644_ + _K27585_))))) (declare (not safe)) - (_loop27774_ - _L27915_ - _vars27869_ - __tmp50216)))) - (___kont4573745738_ - (lambda () (_K27870_ _vars27869_)))) - (if (gx#stx-pair? ___stx4573245733_) - (let ((_e2787927903_ - (gx#syntax-e ___stx4573245733_))) - (let ((_tl2787727910_ + (_loop27489_ + _L27630_ + _vars27584_ + __tmp49977)))) + (___kont4552945530_ + (lambda () (_K27585_ _vars27584_)))) + (if (gx#stx-pair? ___stx4552445525_) + (let ((_e2759427618_ + (gx#syntax-e ___stx4552445525_))) + (let ((_tl2759227625_ (let () (declare (not safe)) - (##cdr _e2787927903_))) - (_hd2787827907_ + (##cdr _e2759427618_))) + (_hd2759327622_ (let () (declare (not safe)) - (##car _e2787927903_)))) - (___kont4573545736_ - _tl2787727910_ - _hd2787827907_))) - (___kont4573745738_)))))) - (_loop-class-list27778_ - (lambda (_rest27780_ _vars27782_ _K27783_) - (let* ((___stx4574845749_ _rest27780_) - (_g2778627801_ + (##car _e2759427618_)))) + (___kont4552745528_ + _tl2759227625_ + _hd2759327622_))) + (___kont4552945530_)))))) + (_loop-class-list27493_ + (lambda (_rest27495_ _vars27497_ _K27498_) + (let* ((___stx4554045541_ _rest27495_) + (_g2750127516_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4574845749_)))) - (let ((___kont4575145752_ - (lambda (_L27839_ _L27841_) - (let ((__tmp50217 - (lambda (_g2785727859_) + ___stx4554045541_)))) + (let ((___kont4554345544_ + (lambda (_L27554_ _L27556_) + (let ((__tmp49978 + (lambda (_g2757227574_) (let () (declare (not safe)) - (_loop-class-list27778_ - _L27839_ - _g2785727859_ - _K27783_))))) + (_loop-class-list27493_ + _L27554_ + _g2757227574_ + _K27498_))))) (declare (not safe)) - (_loop27774_ - _L27841_ - _vars27782_ - __tmp50217)))) - (___kont4575345754_ - (lambda () (_K27783_ _vars27782_)))) - (if (gx#stx-pair? ___stx4574845749_) - (let ((_e2779227819_ - (gx#syntax-e ___stx4574845749_))) - (let ((_tl2779027826_ + (_loop27489_ + _L27556_ + _vars27497_ + __tmp49978)))) + (___kont4554545546_ + (lambda () (_K27498_ _vars27497_)))) + (if (gx#stx-pair? ___stx4554045541_) + (let ((_e2750727534_ + (gx#syntax-e ___stx4554045541_))) + (let ((_tl2750527541_ (let () (declare (not safe)) - (##cdr _e2779227819_))) - (_hd2779127823_ + (##cdr _e2750727534_))) + (_hd2750627538_ (let () (declare (not safe)) - (##car _e2779227819_)))) - (if (gx#stx-pair? _tl2779027826_) - (let ((_e2779527829_ - (gx#syntax-e _tl2779027826_))) - (let ((_tl2779327836_ + (##car _e2750727534_)))) + (if (gx#stx-pair? _tl2750527541_) + (let ((_e2751027544_ + (gx#syntax-e _tl2750527541_))) + (let ((_tl2750827551_ (let () (declare (not safe)) - (##cdr _e2779527829_))) - (_hd2779427833_ + (##cdr _e2751027544_))) + (_hd2750927548_ (let () (declare (not safe)) - (##car _e2779527829_)))) - (___kont4575145752_ - _tl2779327836_ - _hd2779427833_))) - (___kont4575345754_)))) - (___kont4575345754_))))))) + (##car _e2751027544_)))) + (___kont4554345544_ + _tl2750827551_ + _hd2750927548_))) + (___kont4554545546_)))) + (___kont4554545546_))))))) (let () (declare (not safe)) - (_loop27774_ _ptree27771_ '() values))))) + (_loop27489_ _ptree27486_ '() values))))) (define |gerbil/core$[1]#generate-match1| - (lambda (_stx24732_ _tgt24734_ _ptree24735_ _K24736_ _E24737_) - (letrec ((_generate124739_ - (lambda (_tgt25984_ _ptree25986_ _K25987_ _E25988_) - (let* ((_g2599025998_ - (lambda (_g2599125994_) + (lambda (_stx24447_ _tgt24449_ _ptree24450_ _K24451_ _E24452_) + (letrec ((_generate124454_ + (lambda (_tgt25699_ _ptree25701_ _K25702_ _E25703_) + (let* ((_g2570525713_ + (lambda (_g2570625709_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2599125994_))) - (_g2598927767_ - (lambda (_g2599126002_) - ((lambda (_L26005_) + _g2570625709_))) + (_g2570427482_ + (lambda (_g2570625717_) + ((lambda (_L25720_) (let () - (let* ((___stx4598445985_ _ptree25986_) - (_g2603226174_ + (let* ((___stx4577645777_ _ptree25701_) + (_g2574725889_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4598445985_)))) - (let ((___kont4598745988_ - (lambda (_L27482_ _L27484_) - (let* ((___stx4590245903_ - _L27482_) - (_g2750127536_ + ___stx4577645777_)))) + (let ((___kont4577945780_ + (lambda (_L27197_ _L27199_) + (let* ((___stx4569445695_ + _L27197_) + (_g2721627251_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4590245903_)))) - (let ((___kont4590545906_ + ___stx4569445695_)))) + (let ((___kont4569745698_ (lambda () - (let ((__tmp50218 - (let ((__tmp50221 + (let ((__tmp49979 + (let ((__tmp49982 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50224 (gx#datum->syntax '#f '?)) - (__tmp50222 - (let ((__tmp50223 + (let ((__tmp49985 (gx#datum->syntax '#f '?)) + (__tmp49983 + (let ((__tmp49984 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons _L27484_ __tmp50223)))) + (cons _L27199_ __tmp49984)))) (declare (not safe)) - (cons __tmp50224 __tmp50222))) - (__tmp50219 - (let ((__tmp50220 + (cons __tmp49985 __tmp49983))) + (__tmp49980 + (let ((__tmp49981 (let () (declare (not safe)) - (cons _E25988_ '())))) + (cons _E25703_ '())))) (declare (not safe)) - (cons _K25987_ __tmp50220)))) + (cons _K25702_ __tmp49981)))) (declare (not safe)) - (cons __tmp50221 __tmp50219)))) + (cons __tmp49982 __tmp49980)))) (declare (not safe)) - (cons 'if __tmp50218)))) - (___kont4590745908_ - (lambda (_L27737_) - (let ((__tmp50225 - (let ((__tmp50229 - (let ((__tmp50232 (gx#datum->syntax '#f '?)) - (__tmp50230 - (let ((__tmp50231 + (cons 'if __tmp49979)))) + (___kont4569945700_ + (lambda (_L27452_) + (let ((__tmp49986 + (let ((__tmp49990 + (let ((__tmp49993 (gx#datum->syntax '#f '?)) + (__tmp49991 + (let ((__tmp49992 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons _L27484_ __tmp50231)))) + (cons _L27199_ __tmp49992)))) (declare (not safe)) - (cons __tmp50232 __tmp50230))) - (__tmp50226 - (let ((__tmp50228 + (cons __tmp49993 __tmp49991))) + (__tmp49987 + (let ((__tmp49989 (let () (declare (not safe)) - (_generate124739_ - _tgt25984_ - _L27737_ - _K25987_ - _E25988_))) - (__tmp50227 + (_generate124454_ + _tgt25699_ + _L27452_ + _K25702_ + _E25703_))) + (__tmp49988 (let () (declare (not safe)) - (cons _E25988_ '())))) + (cons _E25703_ '())))) (declare (not safe)) - (cons __tmp50228 __tmp50227)))) + (cons __tmp49989 __tmp49988)))) (declare (not safe)) - (cons __tmp50229 __tmp50226)))) + (cons __tmp49990 __tmp49987)))) (declare (not safe)) - (cons 'if __tmp50225)))) - (___kont4590945910_ - (lambda (_L27675_) - (let* ((_g2768927697_ - (lambda (_g2769027693_) + (cons 'if __tmp49986)))) + (___kont4570145702_ + (lambda (_L27390_) + (let* ((_g2740427412_ + (lambda (_g2740527408_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2769027693_))) - (_g2768827716_ - (lambda (_g2769027701_) - ((lambda (_L27704_) + _g2740527408_))) + (_g2740327431_ + (lambda (_g2740527416_) + ((lambda (_L27419_) (let () - (let ((__tmp50233 - (let ((__tmp50240 - (let ((__tmp50241 - (let ((__tmp50242 - (let ((__tmp50243 + (let ((__tmp49994 + (let ((__tmp50001 + (let ((__tmp50002 + (let ((__tmp50003 + (let ((__tmp50004 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50244 + (let ((__tmp50005 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons _L27484_ __tmp50244)))) + (cons _L27199_ __tmp50005)))) (declare (not safe)) - (cons __tmp50243 '())))) + (cons __tmp50004 '())))) (declare (not safe)) - (cons _L27704_ __tmp50242)))) + (cons _L27419_ __tmp50003)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50241 '()))) - (__tmp50234 - (let ((__tmp50235 - (let ((__tmp50236 - (let ((__tmp50237 + (cons __tmp50002 '()))) + (__tmp49995 + (let ((__tmp49996 + (let ((__tmp49997 + (let ((__tmp49998 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50239 + (let ((__tmp50000 (let () (declare (not safe)) - (_generate124739_ - _L27704_ - _L27675_ - _K25987_ - _E25988_))) - (__tmp50238 + (_generate124454_ + _L27419_ + _L27390_ + _K25702_ + _E25703_))) + (__tmp49999 (let () (declare (not safe)) - (cons _E25988_ '())))) + (cons _E25703_ '())))) (declare (not safe)) - (cons __tmp50239 __tmp50238)))) + (cons __tmp50000 __tmp49999)))) (declare (not safe)) - (cons _L27704_ __tmp50237)))) + (cons _L27419_ __tmp49998)))) (declare (not safe)) - (cons 'if __tmp50236)))) + (cons 'if __tmp49997)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50235 '())))) + (cons __tmp49996 '())))) (declare (not safe)) - (cons __tmp50240 __tmp50234)))) + (cons __tmp50001 __tmp49995)))) (declare (not safe)) - (cons 'let __tmp50233)))) - _g2769027701_))) - (__tmp50245 (gx#genident 'e))) + (cons 'let __tmp49994)))) + _g2740527416_))) + (__tmp50006 (gx#genident 'e))) (declare (not safe)) - (_g2768827716_ __tmp50245)))) - (___kont4591145912_ - (lambda (_L27591_ _L27593_) - (let* ((_g2761327621_ - (lambda (_g2761427617_) + (_g2740327431_ __tmp50006)))) + (___kont4570345704_ + (lambda (_L27306_ _L27308_) + (let* ((_g2732827336_ + (lambda (_g2732927332_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2761427617_))) - (_g2761227640_ - (lambda (_g2761427625_) - ((lambda (_L27628_) + _g2732927332_))) + (_g2732727355_ + (lambda (_g2732927340_) + ((lambda (_L27343_) (let () - (let ((__tmp50246 - (let ((__tmp50258 - (let ((__tmp50261 + (let ((__tmp50007 + (let ((__tmp50019 + (let ((__tmp50022 (gx#datum->syntax '#f '?)) - (__tmp50259 - (let ((__tmp50260 + (__tmp50020 + (let ((__tmp50021 (let () (declare (not safe)) - (cons _L26005_ + (cons _L25720_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L27484_ __tmp50260)))) + (cons _L27199_ __tmp50021)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50261 __tmp50259))) - (__tmp50247 - (let ((__tmp50249 - (let ((__tmp50250 - (let ((__tmp50253 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50254 - (let ((__tmp50255 - (let ((__tmp50256 - (let ((__tmp50257 + (cons __tmp50022 __tmp50020))) + (__tmp50008 + (let ((__tmp50010 + (let ((__tmp50011 + (let ((__tmp50014 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50015 + (let ((__tmp50016 + (let ((__tmp50017 + (let ((__tmp50018 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons _L27593_ __tmp50257)))) + (cons _L27308_ __tmp50018)))) (declare (not safe)) - (cons __tmp50256 '())))) + (cons __tmp50017 '())))) (declare (not safe)) - (cons _L27628_ __tmp50255)))) + (cons _L27343_ __tmp50016)))) (declare (not safe)) - (cons __tmp50254 '()))) - (__tmp50251 - (let ((__tmp50252 + (cons __tmp50015 '()))) + (__tmp50012 + (let ((__tmp50013 (let () (declare (not safe)) - (_generate124739_ - _L27628_ - _L27591_ - _K25987_ - _E25988_)))) + (_generate124454_ + _L27343_ + _L27306_ + _K25702_ + _E25703_)))) (declare (not safe)) - (cons __tmp50252 '())))) + (cons __tmp50013 '())))) (declare (not safe)) - (cons __tmp50253 __tmp50251)))) + (cons __tmp50014 __tmp50012)))) (declare (not safe)) - (cons 'let __tmp50250))) + (cons 'let __tmp50011))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50248 + (__tmp50009 (let () (declare (not safe)) - (cons _E25988_ '())))) + (cons _E25703_ '())))) (declare (not safe)) - (cons __tmp50249 __tmp50248)))) + (cons __tmp50010 __tmp50009)))) (declare (not safe)) - (cons __tmp50258 __tmp50247)))) + (cons __tmp50019 __tmp50008)))) (declare (not safe)) - (cons 'if __tmp50246)))) - _g2761427625_))) - (__tmp50262 (gx#genident 'e))) + (cons 'if __tmp50007)))) + _g2732927340_))) + (__tmp50023 (gx#genident 'e))) (declare (not safe)) - (_g2761227640_ __tmp50262))))) + (_g2732727355_ __tmp50023))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g2749827748_ + (let ((_g2721327463_ (lambda () (if (gx#stx-pair? - ___stx4590245903_) - (let ((_e2750627727_ + ___stx4569445695_) + (let ((_e2722127442_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e ___stx4590245903_))) - (let ((_tl2750427734_ + (gx#syntax-e ___stx4569445695_))) + (let ((_tl2721927449_ (let () (declare (not safe)) - (##cdr _e2750627727_))) - (_hd2750527731_ + (##cdr _e2722127442_))) + (_hd2722027446_ (let () (declare (not safe)) - (##car _e2750627727_)))) - (if (gx#stx-null? _tl2750427734_) - (___kont4590745908_ _hd2750527731_) - (if (gx#stx-datum? _hd2750527731_) - (let ((_e2751127661_ - (gx#stx-e _hd2750527731_))) + (##car _e2722127442_)))) + (if (gx#stx-null? _tl2721927449_) + (___kont4569945700_ _hd2722027446_) + (if (gx#stx-datum? _hd2722027446_) + (let ((_e2722627376_ + (gx#stx-e _hd2722027446_))) (if (let () (declare (not safe)) - (equal? _e2751127661_ '=>:)) - (if (gx#stx-pair? _tl2750427734_) - (let ((_e2751427665_ + (equal? _e2722627376_ '=>:)) + (if (gx#stx-pair? _tl2721927449_) + (let ((_e2722927380_ (gx#syntax-e - _tl2750427734_))) - (let ((_tl2751227672_ + _tl2721927449_))) + (let ((_tl2722727387_ (let () (declare (not safe)) - (##cdr _e2751427665_))) - (_hd2751327669_ + (##cdr _e2722927380_))) + (_hd2722827384_ (let () (declare (not safe)) - (##car _e2751427665_)))) + (##car _e2722927380_)))) (if (gx#stx-null? - _tl2751227672_) - (___kont4590945910_ - _hd2751327669_) + _tl2722727387_) + (___kont4570145702_ + _hd2722827384_) (let () (declare (not safe)) - (_g2750127536_))))) + (_g2721627251_))))) (let () (declare (not safe)) - (_g2750127536_))) + (_g2721627251_))) (if (let () (declare (not safe)) - (equal? _e2751127661_ '::)) - (if (gx#stx-pair? _tl2750427734_) - (let ((_e2752327557_ + (equal? _e2722627376_ '::)) + (if (gx#stx-pair? _tl2721927449_) + (let ((_e2723827272_ (gx#syntax-e - _tl2750427734_))) - (let ((_tl2752127564_ + _tl2721927449_))) + (let ((_tl2723627279_ (let () (declare (not safe)) - (##cdr _e2752327557_))) - (_hd2752227561_ + (##cdr _e2723827272_))) + (_hd2723727276_ (let () (declare (not safe)) - (##car _e2752327557_)))) + (##car _e2723827272_)))) (if (gx#stx-pair? - _tl2752127564_) - (let ((_e2752627567_ + _tl2723627279_) + (let ((_e2724127282_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2752127564_))) - (let ((_tl2752427574_ - (let () (declare (not safe)) (##cdr _e2752627567_))) - (_hd2752527571_ - (let () (declare (not safe)) (##car _e2752627567_)))) - (if (gx#stx-datum? _hd2752527571_) - (let ((_e2752727577_ (gx#stx-e _hd2752527571_))) + _tl2723627279_))) + (let ((_tl2723927289_ + (let () (declare (not safe)) (##cdr _e2724127282_))) + (_hd2724027286_ + (let () (declare (not safe)) (##car _e2724127282_)))) + (if (gx#stx-datum? _hd2724027286_) + (let ((_e2724227292_ (gx#stx-e _hd2724027286_))) (if (let () (declare (not safe)) - (equal? _e2752727577_ '=>:)) - (if (gx#stx-pair? _tl2752427574_) - (let ((_e2753027581_ - (gx#syntax-e _tl2752427574_))) - (let ((_tl2752827588_ + (equal? _e2724227292_ '=>:)) + (if (gx#stx-pair? _tl2723927289_) + (let ((_e2724527296_ + (gx#syntax-e _tl2723927289_))) + (let ((_tl2724327303_ (let () (declare (not safe)) - (##cdr _e2753027581_))) - (_hd2752927585_ + (##cdr _e2724527296_))) + (_hd2724427300_ (let () (declare (not safe)) - (##car _e2753027581_)))) - (if (gx#stx-null? _tl2752827588_) - (___kont4591145912_ - _hd2752927585_ - _hd2752227561_) + (##car _e2724527296_)))) + (if (gx#stx-null? _tl2724327303_) + (___kont4570345704_ + _hd2724427300_ + _hd2723727276_) (let () (declare (not safe)) - (_g2750127536_))))) + (_g2721627251_))))) (let () (declare (not safe)) - (_g2750127536_))) - (let () (declare (not safe)) (_g2750127536_)))) - (let () (declare (not safe)) (_g2750127536_))))) - (let () (declare (not safe)) (_g2750127536_))))) + (_g2721627251_))) + (let () (declare (not safe)) (_g2721627251_)))) + (let () (declare (not safe)) (_g2721627251_))))) + (let () (declare (not safe)) (_g2721627251_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2750127536_))) + (_g2721627251_))) (let () (declare (not safe)) - (_g2750127536_))))) + (_g2721627251_))))) (let () (declare (not safe)) - (_g2750127536_)))))) - (let () (declare (not safe)) (_g2750127536_)))))) + (_g2721627251_)))))) + (let () (declare (not safe)) (_g2721627251_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - ___stx4590245903_) - (___kont4590545906_) + ___stx4569445695_) + (___kont4569745698_) (let () (declare (not safe)) - (_g2749827748_)))))))) - (___kont4598945990_ - (lambda (_L27379_) - (let* ((___stx4588645887_ - _L27379_) - (_g2739227404_ + (_g2721327463_)))))))) + (___kont4578145782_ + (lambda (_L27094_) + (let* ((___stx4567845679_ + _L27094_) + (_g2710727119_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4588645887_)))) - (let ((___kont4588945890_ - (lambda (_L27432_ - _L27434_) - (let ((__tmp50263 - (let ((__tmp50264 + ___stx4567845679_)))) + (let ((___kont4568145682_ + (lambda (_L27147_ + _L27149_) + (let ((__tmp50024 + (let ((__tmp50025 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons 'and: _L27432_)))) + (cons 'and: _L27147_)))) (declare (not safe)) - (_generate124739_ - _tgt25984_ - __tmp50264 - _K25987_ - _E25988_)))) + (_generate124454_ + _tgt25699_ + __tmp50025 + _K25702_ + _E25703_)))) (declare (not safe)) - (_generate124739_ - _tgt25984_ - _L27434_ - __tmp50263 - _E25988_)))) - (___kont4589145892_ (lambda () _K25987_))) + (_generate124454_ + _tgt25699_ + _L27149_ + __tmp50024 + _E25703_)))) + (___kont4568345684_ (lambda () _K25702_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4588645887_) - (let ((_e2739827422_ + ___stx4567845679_) + (let ((_e2711327137_ (gx#syntax-e - ___stx4588645887_))) - (let ((_tl2739627429_ + ___stx4567845679_))) + (let ((_tl2711127144_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2739827422_))) - (_hd2739727426_ - (let () (declare (not safe)) (##car _e2739827422_)))) - (___kont4588945890_ _tl2739627429_ _hd2739727426_))) - (___kont4589145892_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4599145992_ - (lambda (_L27286_) - (let* ((___stx4587045871_ - _L27286_) - (_g2729927311_ + (##cdr _e2711327137_))) + (_hd2711227141_ + (let () (declare (not safe)) (##car _e2711327137_)))) + (___kont4568145682_ _tl2711127144_ _hd2711227141_))) + (___kont4568345684_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4578345784_ + (lambda (_L27001_) + (let* ((___stx4566245663_ + _L27001_) + (_g2701427026_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4587045871_)))) - (let ((___kont4587345874_ - (lambda (_L27339_ - _L27341_) - (let ((__tmp50265 - (let ((__tmp50266 + ___stx4566245663_)))) + (let ((___kont4566545666_ + (lambda (_L27054_ + _L27056_) + (let ((__tmp50026 + (let ((__tmp50027 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons 'or: _L27339_)))) + (cons 'or: _L27054_)))) (declare (not safe)) - (_generate124739_ - _tgt25984_ - __tmp50266 - _K25987_ - _E25988_)))) + (_generate124454_ + _tgt25699_ + __tmp50027 + _K25702_ + _E25703_)))) (declare (not safe)) - (_generate124739_ - _tgt25984_ - _L27341_ - _K25987_ - __tmp50265)))) - (___kont4587545876_ (lambda () _E25988_))) + (_generate124454_ + _tgt25699_ + _L27056_ + _K25702_ + __tmp50026)))) + (___kont4566745668_ (lambda () _E25703_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4587045871_) - (let ((_e2730527329_ + ___stx4566245663_) + (let ((_e2702027044_ (gx#syntax-e - ___stx4587045871_))) - (let ((_tl2730327336_ + ___stx4566245663_))) + (let ((_tl2701827051_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2730527329_))) - (_hd2730427333_ - (let () (declare (not safe)) (##car _e2730527329_)))) - (___kont4587345874_ _tl2730327336_ _hd2730427333_))) - (___kont4587545876_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4599345994_ - (lambda (_L27251_) + (##cdr _e2702027044_))) + (_hd2701927048_ + (let () (declare (not safe)) (##car _e2702027044_)))) + (___kont4566545666_ _tl2701827051_ _hd2701927048_))) + (___kont4566745668_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4578545786_ + (lambda (_L26966_) (let () (declare (not safe)) - (_generate124739_ - _tgt25984_ - _L27251_ - _E25988_ - _K25987_)))) - (___kont4599545996_ - (lambda (_L27133_ _L27135_) - (let* ((_g2715227167_ - (lambda (_g2715327163_) + (_generate124454_ + _tgt25699_ + _L26966_ + _E25703_ + _K25702_)))) + (___kont4578745788_ + (lambda (_L26848_ _L26850_) + (let* ((_g2686726882_ + (lambda (_g2686826878_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2715327163_))) - (_g2715127216_ - (lambda (_g2715327171_) + _g2686826878_))) + (_g2686626931_ + (lambda (_g2686826886_) (if (gx#stx-pair? - _g2715327171_) - (let ((_e2715827174_ + _g2686826886_) + (let ((_e2687326889_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g2715327171_))) - (let ((_hd2715727178_ + (gx#syntax-e _g2686826886_))) + (let ((_hd2687226893_ (let () (declare (not safe)) - (##car _e2715827174_))) - (_tl2715627181_ + (##car _e2687326889_))) + (_tl2687126896_ (let () (declare (not safe)) - (##cdr _e2715827174_)))) - (if (gx#stx-pair? _tl2715627181_) - (let ((_e2716127184_ (gx#syntax-e _tl2715627181_))) - (let ((_hd2716027188_ + (##cdr _e2687326889_)))) + (if (gx#stx-pair? _tl2687126896_) + (let ((_e2687626899_ (gx#syntax-e _tl2687126896_))) + (let ((_hd2687526903_ (let () (declare (not safe)) - (##car _e2716127184_))) - (_tl2715927191_ + (##car _e2687626899_))) + (_tl2687426906_ (let () (declare (not safe)) - (##cdr _e2716127184_)))) - (if (gx#stx-null? _tl2715927191_) - ((lambda (_L27194_ _L27196_) + (##cdr _e2687626899_)))) + (if (gx#stx-null? _tl2687426906_) + ((lambda (_L26909_ _L26911_) (let () - (let ((__tmp50267 - (let ((__tmp50305 - (let ((__tmp50307 + (let ((__tmp50028 + (let ((__tmp50066 + (let ((__tmp50068 (gx#datum->syntax '#f '##pair?)) - (__tmp50306 + (__tmp50067 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons __tmp50307 __tmp50306))) - (__tmp50268 - (let ((__tmp50270 - (let ((_hd-pat27212_ (gx#stx-e _L27135_)) - (_tl-pat27214_ (gx#stx-e _L27133_))) + (cons __tmp50068 __tmp50067))) + (__tmp50029 + (let ((__tmp50031 + (let ((_hd-pat26927_ (gx#stx-e _L26850_)) + (_tl-pat26929_ (gx#stx-e _L26848_))) (if (and (let () (declare (not safe)) - (equal? _hd-pat27212_ '(any:))) + (equal? _hd-pat26927_ '(any:))) (let () (declare (not safe)) - (equal? _tl-pat27214_ '(any:)))) - _K25987_ + (equal? _tl-pat26929_ '(any:)))) + _K25702_ (if (let () (declare (not safe)) - (equal? _tl-pat27214_ '(any:))) - (let ((__tmp50296 - (let ((__tmp50299 - (let ((__tmp50300 - (let ((__tmp50301 - (let ((__tmp50302 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50304 (gx#datum->syntax '#f '##car)) - (__tmp50303 + (equal? _tl-pat26929_ '(any:))) + (let ((__tmp50057 + (let ((__tmp50060 + (let ((__tmp50061 + (let ((__tmp50062 + (let ((__tmp50063 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50065 (gx#datum->syntax '#f '##car)) + (__tmp50064 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons __tmp50304 __tmp50303)))) + (cons __tmp50065 __tmp50064)))) (declare (not safe)) - (cons __tmp50302 '())))) + (cons __tmp50063 '())))) (declare (not safe)) - (cons _L27196_ __tmp50301)))) + (cons _L26911_ __tmp50062)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50300 '()))) - (__tmp50297 - (let ((__tmp50298 + (cons __tmp50061 '()))) + (__tmp50058 + (let ((__tmp50059 (let () (declare (not safe)) - (_generate124739_ - _L27196_ - _L27135_ - _K25987_ - _E25988_)))) + (_generate124454_ + _L26911_ + _L26850_ + _K25702_ + _E25703_)))) (declare (not safe)) - (cons __tmp50298 '())))) + (cons __tmp50059 '())))) (declare (not safe)) - (cons __tmp50299 __tmp50297)))) + (cons __tmp50060 __tmp50058)))) (declare (not safe)) - (cons 'let __tmp50296)) + (cons 'let __tmp50057)) (if (let () (declare (not safe)) - (equal? _hd-pat27212_ '(any:))) - (let ((__tmp50287 - (let ((__tmp50290 - (let ((__tmp50291 - (let ((__tmp50292 - (let ((__tmp50293 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50295 (gx#datum->syntax '#f '##cdr)) - (__tmp50294 + (equal? _hd-pat26927_ '(any:))) + (let ((__tmp50048 + (let ((__tmp50051 + (let ((__tmp50052 + (let ((__tmp50053 + (let ((__tmp50054 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50056 (gx#datum->syntax '#f '##cdr)) + (__tmp50055 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons __tmp50295 __tmp50294)))) + (cons __tmp50056 __tmp50055)))) (declare (not safe)) - (cons __tmp50293 '())))) + (cons __tmp50054 '())))) (declare (not safe)) - (cons _L27194_ __tmp50292)))) + (cons _L26909_ __tmp50053)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50291 '()))) - (__tmp50288 - (let ((__tmp50289 + (cons __tmp50052 '()))) + (__tmp50049 + (let ((__tmp50050 (let () (declare (not safe)) - (_generate124739_ - _L27194_ - _L27133_ - _K25987_ - _E25988_)))) + (_generate124454_ + _L26909_ + _L26848_ + _K25702_ + _E25703_)))) (declare (not safe)) - (cons __tmp50289 '())))) + (cons __tmp50050 '())))) (declare (not safe)) - (cons __tmp50290 __tmp50288)))) + (cons __tmp50051 __tmp50049)))) (declare (not safe)) - (cons 'let __tmp50287)) - (let ((__tmp50271 - (let ((__tmp50275 - (let ((__tmp50282 - (let ((__tmp50283 - (let ((__tmp50284 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50286 (gx#datum->syntax '#f '##car)) - (__tmp50285 + (cons 'let __tmp50048)) + (let ((__tmp50032 + (let ((__tmp50036 + (let ((__tmp50043 + (let ((__tmp50044 + (let ((__tmp50045 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50047 (gx#datum->syntax '#f '##car)) + (__tmp50046 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons __tmp50286 __tmp50285)))) + (cons __tmp50047 __tmp50046)))) (declare (not safe)) - (cons __tmp50284 '())))) + (cons __tmp50045 '())))) (declare (not safe)) - (cons _L27196_ __tmp50283))) - (__tmp50276 - (let ((__tmp50277 - (let ((__tmp50278 - (let ((__tmp50279 - (let ((__tmp50281 + (cons _L26911_ __tmp50044))) + (__tmp50037 + (let ((__tmp50038 + (let ((__tmp50039 + (let ((__tmp50040 + (let ((__tmp50042 (gx#datum->syntax '#f '##cdr)) - (__tmp50280 + (__tmp50041 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons __tmp50281 __tmp50280)))) + (cons __tmp50042 __tmp50041)))) (declare (not safe)) - (cons __tmp50279 '())))) + (cons __tmp50040 '())))) (declare (not safe)) - (cons _L27194_ __tmp50278)))) + (cons _L26909_ __tmp50039)))) (declare (not safe)) - (cons __tmp50277 '())))) + (cons __tmp50038 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50282 - __tmp50276))) - (__tmp50272 - (let ((__tmp50273 - (let ((__tmp50274 + (cons __tmp50043 + __tmp50037))) + (__tmp50033 + (let ((__tmp50034 + (let ((__tmp50035 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_generate124739_ - _L27194_ - _L27133_ - _K25987_ - _E25988_)))) + (_generate124454_ + _L26909_ + _L26848_ + _K25702_ + _E25703_)))) (declare (not safe)) - (_generate124739_ _L27196_ _L27135_ __tmp50274 _E25988_)))) + (_generate124454_ _L26911_ _L26850_ __tmp50035 _E25703_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50273 '())))) + (cons __tmp50034 '())))) (declare (not safe)) - (cons __tmp50275 __tmp50272)))) + (cons __tmp50036 __tmp50033)))) (declare (not safe)) - (cons 'let __tmp50271))))))) - (__tmp50269 - (let () (declare (not safe)) (cons _E25988_ '())))) + (cons 'let __tmp50032))))))) + (__tmp50030 + (let () (declare (not safe)) (cons _E25703_ '())))) (declare (not safe)) - (cons __tmp50270 __tmp50269)))) + (cons __tmp50031 __tmp50030)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50305 - __tmp50268)))) + (cons __tmp50066 + __tmp50029)))) (declare (not safe)) - (cons 'if __tmp50267)))) - _hd2716027188_ - _hd2715727178_) + (cons 'if __tmp50028)))) + _hd2687526903_ + _hd2687226893_) (let () (declare (not safe)) - (_g2715227167_ _g2715327171_))))) + (_g2686726882_ _g2686826886_))))) (let () (declare (not safe)) - (_g2715227167_ _g2715327171_))))) + (_g2686726882_ _g2686826886_))))) (let () (declare (not safe)) - (_g2715227167_ _g2715327171_))))) + (_g2686726882_ _g2686826886_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50308 + (__tmp50069 (list (gx#genident 'hd) (gx#genident 'tl)))) (declare (not safe)) - (_g2715127216_ __tmp50308)))) - (___kont4599745998_ + (_g2686626931_ __tmp50069)))) + (___kont4578945790_ (lambda () - (let ((__tmp50309 - (let ((__tmp50312 - (let ((__tmp50314 + (let ((__tmp50070 + (let ((__tmp50073 + (let ((__tmp50075 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##null?)) - (__tmp50313 - (let () (declare (not safe)) (cons _L26005_ '())))) + (__tmp50074 + (let () (declare (not safe)) (cons _L25720_ '())))) (declare (not safe)) - (cons __tmp50314 __tmp50313))) - (__tmp50310 - (let ((__tmp50311 - (let () (declare (not safe)) (cons _E25988_ '())))) + (cons __tmp50075 __tmp50074))) + (__tmp50071 + (let ((__tmp50072 + (let () (declare (not safe)) (cons _E25703_ '())))) (declare (not safe)) - (cons _K25987_ __tmp50311)))) + (cons _K25702_ __tmp50072)))) (declare (not safe)) - (cons __tmp50312 __tmp50310)))) + (cons __tmp50073 __tmp50071)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp50309)))) - (___kont4599946000_ - (lambda (_L27049_ _L27051_) + (cons 'if __tmp50070)))) + (___kont4579145792_ + (lambda (_L26764_ _L26766_) (let () (declare (not safe)) - (_generate-splice24741_ - _tgt25984_ - _L27051_ - _L27049_ - _K25987_ - _E25988_)))) - (___kont4600146002_ - (lambda (_L26963_) - (let* ((_g2697726985_ - (lambda (_g2697826981_) + (_generate-splice24456_ + _tgt25699_ + _L26766_ + _L26764_ + _K25702_ + _E25703_)))) + (___kont4579345794_ + (lambda (_L26678_) + (let* ((_g2669226700_ + (lambda (_g2669326696_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2697826981_))) - (_g2697627004_ - (lambda (_g2697826989_) - ((lambda (_L26992_) + _g2669326696_))) + (_g2669126719_ + (lambda (_g2669326704_) + ((lambda (_L26707_) (let () - (let ((__tmp50315 + (let ((__tmp50076 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50328 - (let ((__tmp50330 + (let ((__tmp50089 + (let ((__tmp50091 (gx#datum->syntax '#f '##box?)) - (__tmp50329 + (__tmp50090 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons __tmp50330 __tmp50329))) - (__tmp50316 - (let ((__tmp50318 - (let ((__tmp50319 - (let ((__tmp50322 - (let ((__tmp50323 - (let ((__tmp50324 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50325 - (let ((__tmp50327 + (cons __tmp50091 __tmp50090))) + (__tmp50077 + (let ((__tmp50079 + (let ((__tmp50080 + (let ((__tmp50083 + (let ((__tmp50084 + (let ((__tmp50085 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50086 + (let ((__tmp50088 (gx#datum->syntax '#f '##unbox)) - (__tmp50326 + (__tmp50087 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons __tmp50327 __tmp50326)))) + (cons __tmp50088 __tmp50087)))) (declare (not safe)) - (cons __tmp50325 '())))) + (cons __tmp50086 '())))) (declare (not safe)) - (cons _L26992_ __tmp50324)))) + (cons _L26707_ __tmp50085)))) (declare (not safe)) - (cons __tmp50323 '()))) - (__tmp50320 - (let ((__tmp50321 + (cons __tmp50084 '()))) + (__tmp50081 + (let ((__tmp50082 (let () (declare (not safe)) - (_generate124739_ - _L26992_ - _L26963_ - _K25987_ - _E25988_)))) + (_generate124454_ + _L26707_ + _L26678_ + _K25702_ + _E25703_)))) (declare (not safe)) - (cons __tmp50321 '())))) + (cons __tmp50082 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50322 - __tmp50320)))) + (cons __tmp50083 + __tmp50081)))) (declare (not safe)) - (cons 'let __tmp50319))) - (__tmp50317 + (cons 'let __tmp50080))) + (__tmp50078 (let () (declare (not safe)) - (cons _E25988_ '())))) + (cons _E25703_ '())))) (declare (not safe)) - (cons __tmp50318 __tmp50317)))) + (cons __tmp50079 __tmp50078)))) (declare (not safe)) - (cons __tmp50328 __tmp50316)))) + (cons __tmp50089 __tmp50077)))) (declare (not safe)) - (cons 'if __tmp50315)))) - _g2697826989_))) + (cons 'if __tmp50076)))) + _g2669326704_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50331 + (__tmp50092 (gx#genident 'e))) (declare (not safe)) - (_g2697627004_ __tmp50331)))) - (___kont4600346004_ - (lambda (_L26768_) - (let* ((___stx4582045821_ - _L26768_) - (_g2678326806_ + (_g2669126719_ __tmp50092)))) + (___kont4579545796_ + (lambda (_L26483_) + (let* ((___stx4561245613_ + _L26483_) + (_g2649826521_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4582045821_)))) - (let ((___kont4582345824_ - (lambda (_L26883_) - (let* ((_g2689726905_ + ___stx4561245613_)))) + (let ((___kont4561545616_ + (lambda (_L26598_) + (let* ((_g2661226620_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2689826901_) + (lambda (_g2661326616_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2689826901_))) - (_g2689626924_ - (lambda (_g2689826909_) - ((lambda (_L26912_) + _g2661326616_))) + (_g2661126639_ + (lambda (_g2661326624_) + ((lambda (_L26627_) (let () - (let ((__tmp50332 - (let ((__tmp50336 - (let ((__tmp50342 + (let ((__tmp50093 + (let ((__tmp50097 + (let ((__tmp50103 (gx#datum->syntax '#f '##fx=)) - (__tmp50337 - (let ((__tmp50339 - (let ((__tmp50341 + (__tmp50098 + (let ((__tmp50100 + (let ((__tmp50102 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'values-count)) - (__tmp50340 - (let () (declare (not safe)) (cons _L26005_ '())))) + (__tmp50101 + (let () (declare (not safe)) (cons _L25720_ '())))) (declare (not safe)) - (cons __tmp50341 __tmp50340))) - (__tmp50338 - (let () (declare (not safe)) (cons _L26912_ '())))) + (cons __tmp50102 __tmp50101))) + (__tmp50099 + (let () (declare (not safe)) (cons _L26627_ '())))) (declare (not safe)) - (cons __tmp50339 __tmp50338)))) + (cons __tmp50100 __tmp50099)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50342 __tmp50337))) - (__tmp50333 - (let ((__tmp50335 + (cons __tmp50103 __tmp50098))) + (__tmp50094 + (let ((__tmp50096 (let () (declare (not safe)) - (_generate-simple-vector24742_ - _tgt25984_ - _L26883_ + (_generate-simple-vector24457_ + _tgt25699_ + _L26598_ '0 - _K25987_ - _E25988_))) - (__tmp50334 + _K25702_ + _E25703_))) + (__tmp50095 (let () (declare (not safe)) - (cons _E25988_ '())))) + (cons _E25703_ '())))) (declare (not safe)) - (cons __tmp50335 __tmp50334)))) + (cons __tmp50096 __tmp50095)))) (declare (not safe)) - (cons __tmp50336 __tmp50333)))) + (cons __tmp50097 __tmp50094)))) (declare (not safe)) - (cons 'if __tmp50332)))) - _g2689826909_))) - (__tmp50343 (gx#stx-length _L26883_))) + (cons 'if __tmp50093)))) + _g2661326624_))) + (__tmp50104 (gx#stx-length _L26598_))) (declare (not safe)) - (_g2689626924_ __tmp50343)))) - (___kont4582545826_ - (lambda (_L26837_) + (_g2661126639_ __tmp50104)))) + (___kont4561745618_ + (lambda (_L26552_) (let () (declare (not safe)) - (_generate-list-vector24743_ - _tgt25984_ - _L26837_ + (_generate-list-vector24458_ + _tgt25699_ + _L26552_ 'values->list - _K25987_ - _E25988_))))) + _K25702_ + _E25703_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4582045821_) - (let ((_e2678826859_ + ___stx4561245613_) + (let ((_e2650326574_ (gx#syntax-e - ___stx4582045821_))) - (let ((_tl2678626866_ + ___stx4561245613_))) + (let ((_tl2650126581_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2678826859_))) - (_hd2678726863_ - (let () (declare (not safe)) (##car _e2678826859_)))) - (if (gx#stx-datum? _hd2678726863_) - (let ((_e2678926869_ (gx#stx-e _hd2678726863_))) + (##cdr _e2650326574_))) + (_hd2650226578_ + (let () (declare (not safe)) (##car _e2650326574_)))) + (if (gx#stx-datum? _hd2650226578_) + (let ((_e2650426584_ (gx#stx-e _hd2650226578_))) (if (let () (declare (not safe)) - (equal? _e2678926869_ 'simple:)) - (if (gx#stx-pair? _tl2678626866_) - (let ((_e2679226873_ - (gx#syntax-e _tl2678626866_))) - (let ((_tl2679026880_ + (equal? _e2650426584_ 'simple:)) + (if (gx#stx-pair? _tl2650126581_) + (let ((_e2650726588_ + (gx#syntax-e _tl2650126581_))) + (let ((_tl2650526595_ (let () (declare (not safe)) - (##cdr _e2679226873_))) - (_hd2679126877_ + (##cdr _e2650726588_))) + (_hd2650626592_ (let () (declare (not safe)) - (##car _e2679226873_)))) - (if (gx#stx-null? _tl2679026880_) - (___kont4582345824_ _hd2679126877_) + (##car _e2650726588_)))) + (if (gx#stx-null? _tl2650526595_) + (___kont4561545616_ _hd2650626592_) (let () (declare (not safe)) - (_g2678326806_))))) - (let () (declare (not safe)) (_g2678326806_))) + (_g2649826521_))))) + (let () (declare (not safe)) (_g2649826521_))) (if (let () (declare (not safe)) - (equal? _e2678926869_ 'list:)) - (if (gx#stx-pair? _tl2678626866_) - (let ((_e2680026827_ - (gx#syntax-e _tl2678626866_))) - (let ((_tl2679826834_ + (equal? _e2650426584_ 'list:)) + (if (gx#stx-pair? _tl2650126581_) + (let ((_e2651526542_ + (gx#syntax-e _tl2650126581_))) + (let ((_tl2651326549_ (let () (declare (not safe)) - (##cdr _e2680026827_))) - (_hd2679926831_ + (##cdr _e2651526542_))) + (_hd2651426546_ (let () (declare (not safe)) - (##car _e2680026827_)))) - (if (gx#stx-null? _tl2679826834_) - (___kont4582545826_ _hd2679926831_) + (##car _e2651526542_)))) + (if (gx#stx-null? _tl2651326549_) + (___kont4561745618_ _hd2651426546_) (let () (declare (not safe)) - (_g2678326806_))))) + (_g2649826521_))))) (let () (declare (not safe)) - (_g2678326806_))) + (_g2649826521_))) (let () (declare (not safe)) - (_g2678326806_))))) - (let () (declare (not safe)) (_g2678326806_))))) - (let () (declare (not safe)) (_g2678326806_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4600546006_ - (lambda (_L26573_) - (let* ((___stx4577045771_ - _L26573_) - (_g2658826611_ + (_g2649826521_))))) + (let () (declare (not safe)) (_g2649826521_))))) + (let () (declare (not safe)) (_g2649826521_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4579745798_ + (lambda (_L26288_) + (let* ((___stx4556245563_ + _L26288_) + (_g2630326326_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4577045771_)))) - (let ((___kont4577345774_ - (lambda (_L26688_) - (let* ((_g2670226710_ + ___stx4556245563_)))) + (let ((___kont4556545566_ + (lambda (_L26403_) + (let* ((_g2641726425_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2670326706_) + (lambda (_g2641826421_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2670326706_))) - (_g2670126729_ - (lambda (_g2670326714_) - ((lambda (_L26717_) + _g2641826421_))) + (_g2641626444_ + (lambda (_g2641826429_) + ((lambda (_L26432_) (let () - (let ((__tmp50344 - (let ((__tmp50359 - (let ((__tmp50361 + (let ((__tmp50105 + (let ((__tmp50120 + (let ((__tmp50122 (gx#datum->syntax '#f '##vector?)) - (__tmp50360 + (__tmp50121 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons __tmp50361 __tmp50360))) - (__tmp50345 - (let ((__tmp50347 - (let ((__tmp50348 - (let ((__tmp50352 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50358 (gx#datum->syntax '#f '##fx=)) - (__tmp50353 - (let ((__tmp50355 - (let ((__tmp50357 + (cons __tmp50122 __tmp50121))) + (__tmp50106 + (let ((__tmp50108 + (let ((__tmp50109 + (let ((__tmp50113 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50119 (gx#datum->syntax '#f '##fx=)) + (__tmp50114 + (let ((__tmp50116 + (let ((__tmp50118 (gx#datum->syntax '#f '##vector-length)) - (__tmp50356 + (__tmp50117 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons __tmp50357 __tmp50356))) - (__tmp50354 + (cons __tmp50118 __tmp50117))) + (__tmp50115 (let () (declare (not safe)) - (cons _L26717_ '())))) + (cons _L26432_ '())))) (declare (not safe)) - (cons __tmp50355 __tmp50354)))) + (cons __tmp50116 __tmp50115)))) (declare (not safe)) - (cons __tmp50358 __tmp50353))) - (__tmp50349 - (let ((__tmp50351 + (cons __tmp50119 __tmp50114))) + (__tmp50110 + (let ((__tmp50112 (let () (declare (not safe)) - (_generate-simple-vector24742_ - _tgt25984_ - _L26688_ + (_generate-simple-vector24457_ + _tgt25699_ + _L26403_ '0 - _K25987_ - _E25988_))) - (__tmp50350 + _K25702_ + _E25703_))) + (__tmp50111 (let () (declare (not safe)) - (cons _E25988_ '())))) + (cons _E25703_ '())))) (declare (not safe)) - (cons __tmp50351 __tmp50350)))) + (cons __tmp50112 __tmp50111)))) (declare (not safe)) - (cons __tmp50352 __tmp50349)))) + (cons __tmp50113 __tmp50110)))) (declare (not safe)) - (cons 'if __tmp50348))) + (cons 'if __tmp50109))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50346 + (__tmp50107 (let () (declare (not safe)) - (cons _E25988_ '())))) + (cons _E25703_ '())))) (declare (not safe)) - (cons __tmp50347 __tmp50346)))) + (cons __tmp50108 __tmp50107)))) (declare (not safe)) - (cons __tmp50359 __tmp50345)))) + (cons __tmp50120 __tmp50106)))) (declare (not safe)) - (cons 'if __tmp50344)))) - _g2670326714_))) - (__tmp50362 (gx#stx-length _L26688_))) + (cons 'if __tmp50105)))) + _g2641826429_))) + (__tmp50123 (gx#stx-length _L26403_))) (declare (not safe)) - (_g2670126729_ __tmp50362)))) - (___kont4577545776_ - (lambda (_L26642_) - (let ((__tmp50363 - (let ((__tmp50367 - (let ((__tmp50369 + (_g2641626444_ __tmp50123)))) + (___kont4556745568_ + (lambda (_L26357_) + (let ((__tmp50124 + (let ((__tmp50128 + (let ((__tmp50130 (gx#datum->syntax '#f '##vector?)) - (__tmp50368 + (__tmp50129 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons __tmp50369 __tmp50368))) - (__tmp50364 - (let ((__tmp50366 + (cons __tmp50130 __tmp50129))) + (__tmp50125 + (let ((__tmp50127 (let () (declare (not safe)) - (_generate-list-vector24743_ - _tgt25984_ - _L26642_ + (_generate-list-vector24458_ + _tgt25699_ + _L26357_ 'vector->list - _K25987_ - _E25988_))) - (__tmp50365 + _K25702_ + _E25703_))) + (__tmp50126 (let () (declare (not safe)) - (cons _E25988_ '())))) + (cons _E25703_ '())))) (declare (not safe)) - (cons __tmp50366 __tmp50365)))) + (cons __tmp50127 __tmp50126)))) (declare (not safe)) - (cons __tmp50367 __tmp50364)))) + (cons __tmp50128 __tmp50125)))) (declare (not safe)) - (cons 'if __tmp50363))))) + (cons 'if __tmp50124))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4577045771_) - (let ((_e2659326664_ + ___stx4556245563_) + (let ((_e2630826379_ (gx#syntax-e - ___stx4577045771_))) - (let ((_tl2659126671_ + ___stx4556245563_))) + (let ((_tl2630626386_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2659326664_))) - (_hd2659226668_ - (let () (declare (not safe)) (##car _e2659326664_)))) - (if (gx#stx-datum? _hd2659226668_) - (let ((_e2659426674_ (gx#stx-e _hd2659226668_))) + (##cdr _e2630826379_))) + (_hd2630726383_ + (let () (declare (not safe)) (##car _e2630826379_)))) + (if (gx#stx-datum? _hd2630726383_) + (let ((_e2630926389_ (gx#stx-e _hd2630726383_))) (if (let () (declare (not safe)) - (equal? _e2659426674_ 'simple:)) - (if (gx#stx-pair? _tl2659126671_) - (let ((_e2659726678_ - (gx#syntax-e _tl2659126671_))) - (let ((_tl2659526685_ + (equal? _e2630926389_ 'simple:)) + (if (gx#stx-pair? _tl2630626386_) + (let ((_e2631226393_ + (gx#syntax-e _tl2630626386_))) + (let ((_tl2631026400_ (let () (declare (not safe)) - (##cdr _e2659726678_))) - (_hd2659626682_ + (##cdr _e2631226393_))) + (_hd2631126397_ (let () (declare (not safe)) - (##car _e2659726678_)))) - (if (gx#stx-null? _tl2659526685_) - (___kont4577345774_ _hd2659626682_) + (##car _e2631226393_)))) + (if (gx#stx-null? _tl2631026400_) + (___kont4556545566_ _hd2631126397_) (let () (declare (not safe)) - (_g2658826611_))))) - (let () (declare (not safe)) (_g2658826611_))) + (_g2630326326_))))) + (let () (declare (not safe)) (_g2630326326_))) (if (let () (declare (not safe)) - (equal? _e2659426674_ 'list:)) - (if (gx#stx-pair? _tl2659126671_) - (let ((_e2660526632_ - (gx#syntax-e _tl2659126671_))) - (let ((_tl2660326639_ + (equal? _e2630926389_ 'list:)) + (if (gx#stx-pair? _tl2630626386_) + (let ((_e2632026347_ + (gx#syntax-e _tl2630626386_))) + (let ((_tl2631826354_ (let () (declare (not safe)) - (##cdr _e2660526632_))) - (_hd2660426636_ + (##cdr _e2632026347_))) + (_hd2631926351_ (let () (declare (not safe)) - (##car _e2660526632_)))) - (if (gx#stx-null? _tl2660326639_) - (___kont4577545776_ _hd2660426636_) + (##car _e2632026347_)))) + (if (gx#stx-null? _tl2631826354_) + (___kont4556745568_ _hd2631926351_) (let () (declare (not safe)) - (_g2658826611_))))) + (_g2630326326_))))) (let () (declare (not safe)) - (_g2658826611_))) + (_g2630326326_))) (let () (declare (not safe)) - (_g2658826611_))))) - (let () (declare (not safe)) (_g2658826611_))))) - (let () (declare (not safe)) (_g2658826611_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4600746008_ - (lambda (_L26524_ _L26526_) - (let ((__tmp50370 - (gx#stx-e _L26526_))) + (_g2630326326_))))) + (let () (declare (not safe)) (_g2630326326_))))) + (let () (declare (not safe)) (_g2630326326_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4579945800_ + (lambda (_L26239_ _L26241_) + (let ((__tmp50131 + (gx#stx-e _L26241_))) (declare (not safe)) - (_generate-struct24744_ - __tmp50370 - _tgt25984_ - _L26524_ - _K25987_ - _E25988_)))) - (___kont4600946010_ - (lambda (_L26465_ _L26467_) - (let ((__tmp50371 - (gx#stx-e _L26467_))) + (_generate-struct24459_ + __tmp50131 + _tgt25699_ + _L26239_ + _K25702_ + _E25703_)))) + (___kont4580145802_ + (lambda (_L26180_ _L26182_) + (let ((__tmp50132 + (gx#stx-e _L26182_))) (declare (not safe)) - (_generate-class24747_ - __tmp50371 - _tgt25984_ - _L26465_ - _K25987_ - _E25988_)))) - (___kont4601146012_ - (lambda (_L26368_) - (let* ((_g2638226390_ - (lambda (_g2638326386_) + (_generate-class24462_ + __tmp50132 + _tgt25699_ + _L26180_ + _K25702_ + _E25703_)))) + (___kont4580345804_ + (lambda (_L26083_) + (let* ((_g2609726105_ + (lambda (_g2609826101_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2638326386_))) - (_g2638126409_ - (lambda (_g2638326394_) - ((lambda (_L26397_) + _g2609826101_))) + (_g2609626124_ + (lambda (_g2609826109_) + ((lambda (_L26112_) (let () - (let ((__tmp50372 + (let ((__tmp50133 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50375 - (let ((__tmp50376 - (let ((__tmp50377 - (let ((__tmp50378 - (let ((__tmp50380 + (let ((__tmp50136 + (let ((__tmp50137 + (let ((__tmp50138 + (let ((__tmp50139 + (let ((__tmp50141 (gx#datum->syntax '#f 'quote)) - (__tmp50379 + (__tmp50140 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L26368_ '())))) + (cons _L26083_ '())))) (declare (not safe)) - (cons __tmp50380 __tmp50379)))) + (cons __tmp50141 __tmp50140)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50378 '())))) + (cons __tmp50139 '())))) (declare (not safe)) - (cons _L26005_ __tmp50377)))) + (cons _L25720_ __tmp50138)))) (declare (not safe)) - (cons _L26397_ __tmp50376))) - (__tmp50373 - (let ((__tmp50374 + (cons _L26112_ __tmp50137))) + (__tmp50134 + (let ((__tmp50135 (let () (declare (not safe)) - (cons _E25988_ '())))) + (cons _E25703_ '())))) (declare (not safe)) - (cons _K25987_ __tmp50374)))) + (cons _K25702_ __tmp50135)))) (declare (not safe)) - (cons __tmp50375 __tmp50373)))) + (cons __tmp50136 __tmp50134)))) (declare (not safe)) - (cons 'if __tmp50372)))) - _g2638326394_))) + (cons 'if __tmp50133)))) + _g2609826109_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50381 - (let ((_e26413_ + (__tmp50142 + (let ((_e26128_ (gx#stx-e - _L26368_))) + _L26083_))) (if (or (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (symbol? _e26413_)) - (keyword? _e26413_) - (let () (declare (not safe)) (immediate? _e26413_))) + (symbol? _e26128_)) + (keyword? _e26128_) + (let () (declare (not safe)) (immediate? _e26128_))) '##eq? - (if (let () (declare (not safe)) (number? _e26413_)) + (if (let () (declare (not safe)) (number? _e26128_)) 'eqv? 'equal?))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2638126409_ __tmp50381)))) - (___kont4601346014_ - (lambda (_L26288_ _L26290_) - (let* ((_g2630626314_ - (lambda (_g2630726310_) + (_g2609626124_ __tmp50142)))) + (___kont4580545806_ + (lambda (_L26003_ _L26005_) + (let* ((_g2602126029_ + (lambda (_g2602226025_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2630726310_))) - (_g2630526333_ - (lambda (_g2630726318_) - ((lambda (_L26321_) + _g2602226025_))) + (_g2602026048_ + (lambda (_g2602226033_) + ((lambda (_L26036_) (let () - (let ((__tmp50382 + (let ((__tmp50143 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50385 - (let ((__tmp50386 - (let ((__tmp50387 - (let ((__tmp50388 - (let ((__tmp50389 + (let ((__tmp50146 + (let ((__tmp50147 + (let ((__tmp50148 + (let ((__tmp50149 + (let ((__tmp50150 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons _L26290_ __tmp50389)))) + (cons _L26005_ __tmp50150)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50388 '())))) + (cons __tmp50149 '())))) (declare (not safe)) - (cons _L26321_ __tmp50387)))) + (cons _L26036_ __tmp50148)))) (declare (not safe)) - (cons __tmp50386 '()))) - (__tmp50383 - (let ((__tmp50384 + (cons __tmp50147 '()))) + (__tmp50144 + (let ((__tmp50145 (let () (declare (not safe)) - (_generate124739_ - _L26321_ - _L26288_ - _K25987_ - _E25988_)))) + (_generate124454_ + _L26036_ + _L26003_ + _K25702_ + _E25703_)))) (declare (not safe)) - (cons __tmp50384 '())))) + (cons __tmp50145 '())))) (declare (not safe)) - (cons __tmp50385 __tmp50383)))) + (cons __tmp50146 __tmp50144)))) (declare (not safe)) - (cons 'let __tmp50382)))) - _g2630726318_))) + (cons 'let __tmp50143)))) + _g2602226033_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50390 + (__tmp50151 (gx#genident 'e))) (declare (not safe)) - (_g2630526333_ __tmp50390)))) - (___kont4601546016_ - (lambda (_L26230_) - (let ((__tmp50391 - (let ((__tmp50393 - (let ((__tmp50394 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50395 + (_g2602026048_ __tmp50151)))) + (___kont4580745808_ + (lambda (_L25945_) + (let ((__tmp50152 + (let ((__tmp50154 + (let ((__tmp50155 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50156 (let () (declare (not safe)) - (cons _L26005_ '())))) + (cons _L25720_ '())))) (declare (not safe)) - (cons _L26230_ __tmp50395)))) + (cons _L25945_ __tmp50156)))) (declare (not safe)) - (cons __tmp50394 '()))) - (__tmp50392 - (let () (declare (not safe)) (cons _K25987_ '())))) + (cons __tmp50155 '()))) + (__tmp50153 + (let () (declare (not safe)) (cons _K25702_ '())))) (declare (not safe)) - (cons __tmp50393 __tmp50392)))) + (cons __tmp50154 __tmp50153)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp50391)))) - (___kont4601746018_ - (lambda () _K25987_))) - (if (gx#stx-pair? ___stx4598445985_) - (let ((_e2603827458_ + (cons 'let __tmp50152)))) + (___kont4580945810_ + (lambda () _K25702_))) + (if (gx#stx-pair? ___stx4577645777_) + (let ((_e2575327173_ (gx#syntax-e - ___stx4598445985_))) - (let ((_tl2603627465_ + ___stx4577645777_))) + (let ((_tl2575127180_ (let () (declare (not safe)) - (##cdr _e2603827458_))) - (_hd2603727462_ + (##cdr _e2575327173_))) + (_hd2575227177_ (let () (declare (not safe)) - (##car _e2603827458_)))) + (##car _e2575327173_)))) (if (gx#stx-datum? - _hd2603727462_) - (let ((_e2603927468_ + _hd2575227177_) + (let ((_e2575427183_ (gx#stx-e - _hd2603727462_))) + _hd2575227177_))) (if (let () (declare (not safe)) - (equal? _e2603927468_ + (equal? _e2575427183_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '?:)) - (if (gx#stx-pair? _tl2603627465_) - (let ((_e2604227472_ (gx#syntax-e _tl2603627465_))) - (let ((_tl2604027479_ + (if (gx#stx-pair? _tl2575127180_) + (let ((_e2575727187_ (gx#syntax-e _tl2575127180_))) + (let ((_tl2575527194_ (let () (declare (not safe)) - (##cdr _e2604227472_))) - (_hd2604127476_ + (##cdr _e2575727187_))) + (_hd2575627191_ (let () (declare (not safe)) - (##car _e2604227472_)))) - (___kont4598745988_ _tl2604027479_ _hd2604127476_))) - (let () (declare (not safe)) (_g2603226174_))) - (if (let () (declare (not safe)) (equal? _e2603927468_ 'and:)) - (___kont4598945990_ _tl2603627465_) + (##car _e2575727187_)))) + (___kont4577945780_ _tl2575527194_ _hd2575627191_))) + (let () (declare (not safe)) (_g2574725889_))) + (if (let () (declare (not safe)) (equal? _e2575427183_ 'and:)) + (___kont4578145782_ _tl2575127180_) (if (let () (declare (not safe)) - (equal? _e2603927468_ 'or:)) - (___kont4599145992_ _tl2603627465_) + (equal? _e2575427183_ 'or:)) + (___kont4578345784_ _tl2575127180_) (if (let () (declare (not safe)) - (equal? _e2603927468_ 'not:)) - (if (gx#stx-pair? _tl2603627465_) - (let ((_e2606027241_ - (gx#syntax-e _tl2603627465_))) - (let ((_tl2605827248_ + (equal? _e2575427183_ 'not:)) + (if (gx#stx-pair? _tl2575127180_) + (let ((_e2577526956_ + (gx#syntax-e _tl2575127180_))) + (let ((_tl2577326963_ (let () (declare (not safe)) - (##cdr _e2606027241_))) - (_hd2605927245_ + (##cdr _e2577526956_))) + (_hd2577426960_ (let () (declare (not safe)) - (##car _e2606027241_)))) - (if (gx#stx-null? _tl2605827248_) - (___kont4599345994_ _hd2605927245_) + (##car _e2577526956_)))) + (if (gx#stx-null? _tl2577326963_) + (___kont4578545786_ _hd2577426960_) (let () (declare (not safe)) - (_g2603226174_))))) - (let () (declare (not safe)) (_g2603226174_))) + (_g2574725889_))))) + (let () (declare (not safe)) (_g2574725889_))) (if (let () (declare (not safe)) - (equal? _e2603927468_ 'cons:)) - (if (gx#stx-pair? _tl2603627465_) - (let ((_e2606927113_ - (gx#syntax-e _tl2603627465_))) - (let ((_tl2606727120_ + (equal? _e2575427183_ 'cons:)) + (if (gx#stx-pair? _tl2575127180_) + (let ((_e2578426828_ + (gx#syntax-e _tl2575127180_))) + (let ((_tl2578226835_ (let () (declare (not safe)) - (##cdr _e2606927113_))) - (_hd2606827117_ + (##cdr _e2578426828_))) + (_hd2578326832_ (let () (declare (not safe)) - (##car _e2606927113_)))) - (if (gx#stx-pair? _tl2606727120_) - (let ((_e2607227123_ + (##car _e2578426828_)))) + (if (gx#stx-pair? _tl2578226835_) + (let ((_e2578726838_ (gx#syntax-e - _tl2606727120_))) - (let ((_tl2607027130_ + _tl2578226835_))) + (let ((_tl2578526845_ (let () (declare (not safe)) - (##cdr _e2607227123_))) - (_hd2607127127_ + (##cdr _e2578726838_))) + (_hd2578626842_ (let () (declare (not safe)) - (##car _e2607227123_)))) + (##car _e2578726838_)))) (if (gx#stx-null? - _tl2607027130_) - (___kont4599545996_ - _hd2607127127_ - _hd2606827117_) + _tl2578526845_) + (___kont4578745788_ + _hd2578626842_ + _hd2578326832_) (let () (declare (not safe)) - (_g2603226174_))))) + (_g2574725889_))))) (let () (declare (not safe)) - (_g2603226174_))))) + (_g2574725889_))))) (let () (declare (not safe)) - (_g2603226174_))) + (_g2574725889_))) (if (let () (declare (not safe)) - (equal? _e2603927468_ 'null:)) - (if (gx#stx-null? _tl2603627465_) - (___kont4599745998_) + (equal? _e2575427183_ 'null:)) + (if (gx#stx-null? _tl2575127180_) + (___kont4578945790_) (let () (declare (not safe)) - (_g2603226174_))) + (_g2574725889_))) (if (let () (declare (not safe)) - (equal? _e2603927468_ 'splice:)) - (if (gx#stx-pair? _tl2603627465_) - (let ((_e2608527029_ + (equal? _e2575427183_ 'splice:)) + (if (gx#stx-pair? _tl2575127180_) + (let ((_e2580026744_ (gx#syntax-e - _tl2603627465_))) - (let ((_tl2608327036_ + _tl2575127180_))) + (let ((_tl2579826751_ (let () (declare (not safe)) - (##cdr _e2608527029_))) - (_hd2608427033_ + (##cdr _e2580026744_))) + (_hd2579926748_ (let () (declare (not safe)) - (##car _e2608527029_)))) + (##car _e2580026744_)))) (if (gx#stx-pair? - _tl2608327036_) - (let ((_e2608827039_ + _tl2579826751_) + (let ((_e2580326754_ (gx#syntax-e - _tl2608327036_))) - (let ((_tl2608627046_ + _tl2579826751_))) + (let ((_tl2580126761_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2608827039_))) - (_hd2608727043_ - (let () (declare (not safe)) (##car _e2608827039_)))) - (if (gx#stx-null? _tl2608627046_) - (___kont4599946000_ _hd2608727043_ _hd2608427033_) - (let () (declare (not safe)) (_g2603226174_))))) + (##cdr _e2580326754_))) + (_hd2580226758_ + (let () (declare (not safe)) (##car _e2580326754_)))) + (if (gx#stx-null? _tl2580126761_) + (___kont4579145792_ _hd2580226758_ _hd2579926748_) + (let () (declare (not safe)) (_g2574725889_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2603226174_))))) + (_g2574725889_))))) (let () (declare (not safe)) - (_g2603226174_))) + (_g2574725889_))) (if (let () (declare (not safe)) - (equal? _e2603927468_ 'box:)) - (if (gx#stx-pair? _tl2603627465_) - (let ((_e2609626953_ + (equal? _e2575427183_ 'box:)) + (if (gx#stx-pair? _tl2575127180_) + (let ((_e2581126668_ (gx#syntax-e - _tl2603627465_))) - (let ((_tl2609426960_ + _tl2575127180_))) + (let ((_tl2580926675_ (let () (declare (not safe)) - (##cdr _e2609626953_))) - (_hd2609526957_ + (##cdr _e2581126668_))) + (_hd2581026672_ (let () (declare (not safe)) - (##car _e2609626953_)))) + (##car _e2581126668_)))) (if (gx#stx-null? - _tl2609426960_) - (___kont4600146002_ - _hd2609526957_) + _tl2580926675_) + (___kont4579345794_ + _hd2581026672_) (let () (declare (not safe)) - (_g2603226174_))))) + (_g2574725889_))))) (let () (declare (not safe)) - (_g2603226174_))) + (_g2574725889_))) (if (let () (declare (not safe)) - (equal? _e2603927468_ + (equal? _e2575427183_ 'values:)) (if (gx#stx-pair? - _tl2603627465_) - (let ((_e2610426758_ + _tl2575127180_) + (let ((_e2581926473_ (gx#syntax-e - _tl2603627465_))) - (let ((_tl2610226765_ + _tl2575127180_))) + (let ((_tl2581726480_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2610426758_))) - (_hd2610326762_ - (let () (declare (not safe)) (##car _e2610426758_)))) - (if (gx#stx-null? _tl2610226765_) - (___kont4600346004_ _hd2610326762_) - (let () (declare (not safe)) (_g2603226174_))))) + (##cdr _e2581926473_))) + (_hd2581826477_ + (let () (declare (not safe)) (##car _e2581926473_)))) + (if (gx#stx-null? _tl2581726480_) + (___kont4579545796_ _hd2581826477_) + (let () (declare (not safe)) (_g2574725889_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2603226174_))) + (_g2574725889_))) (if (let () (declare (not safe)) - (equal? _e2603927468_ + (equal? _e2575427183_ 'vector:)) (if (gx#stx-pair? - _tl2603627465_) - (let ((_e2611226563_ + _tl2575127180_) + (let ((_e2582726278_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2603627465_))) - (let ((_tl2611026570_ - (let () (declare (not safe)) (##cdr _e2611226563_))) - (_hd2611126567_ - (let () (declare (not safe)) (##car _e2611226563_)))) - (if (gx#stx-null? _tl2611026570_) - (___kont4600546006_ _hd2611126567_) - (let () (declare (not safe)) (_g2603226174_))))) - (let () (declare (not safe)) (_g2603226174_))) + _tl2575127180_))) + (let ((_tl2582526285_ + (let () (declare (not safe)) (##cdr _e2582726278_))) + (_hd2582626282_ + (let () (declare (not safe)) (##car _e2582726278_)))) + (if (gx#stx-null? _tl2582526285_) + (___kont4579745798_ _hd2582626282_) + (let () (declare (not safe)) (_g2574725889_))))) + (let () (declare (not safe)) (_g2574725889_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (equal? _e2603927468_ + (equal? _e2575427183_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'struct:)) - (if (gx#stx-pair? _tl2603627465_) - (let ((_e2612126504_ (gx#syntax-e _tl2603627465_))) - (let ((_tl2611926511_ + (if (gx#stx-pair? _tl2575127180_) + (let ((_e2583626219_ (gx#syntax-e _tl2575127180_))) + (let ((_tl2583426226_ (let () (declare (not safe)) - (##cdr _e2612126504_))) - (_hd2612026508_ + (##cdr _e2583626219_))) + (_hd2583526223_ (let () (declare (not safe)) - (##car _e2612126504_)))) - (if (gx#stx-pair? _tl2611926511_) - (let ((_e2612426514_ - (gx#syntax-e _tl2611926511_))) - (let ((_tl2612226521_ + (##car _e2583626219_)))) + (if (gx#stx-pair? _tl2583426226_) + (let ((_e2583926229_ + (gx#syntax-e _tl2583426226_))) + (let ((_tl2583726236_ (let () (declare (not safe)) - (##cdr _e2612426514_))) - (_hd2612326518_ + (##cdr _e2583926229_))) + (_hd2583826233_ (let () (declare (not safe)) - (##car _e2612426514_)))) - (if (gx#stx-null? _tl2612226521_) - (___kont4600746008_ - _hd2612326518_ - _hd2612026508_) + (##car _e2583926229_)))) + (if (gx#stx-null? _tl2583726236_) + (___kont4579945800_ + _hd2583826233_ + _hd2583526223_) (let () (declare (not safe)) - (_g2603226174_))))) - (let () (declare (not safe)) (_g2603226174_))))) - (let () (declare (not safe)) (_g2603226174_))) + (_g2574725889_))))) + (let () (declare (not safe)) (_g2574725889_))))) + (let () (declare (not safe)) (_g2574725889_))) (if (let () (declare (not safe)) - (equal? _e2603927468_ 'class:)) - (if (gx#stx-pair? _tl2603627465_) - (let ((_e2613326445_ (gx#syntax-e _tl2603627465_))) - (let ((_tl2613126452_ + (equal? _e2575427183_ 'class:)) + (if (gx#stx-pair? _tl2575127180_) + (let ((_e2584826160_ (gx#syntax-e _tl2575127180_))) + (let ((_tl2584626167_ (let () (declare (not safe)) - (##cdr _e2613326445_))) - (_hd2613226449_ + (##cdr _e2584826160_))) + (_hd2584726164_ (let () (declare (not safe)) - (##car _e2613326445_)))) - (if (gx#stx-pair? _tl2613126452_) - (let ((_e2613626455_ - (gx#syntax-e _tl2613126452_))) - (let ((_tl2613426462_ + (##car _e2584826160_)))) + (if (gx#stx-pair? _tl2584626167_) + (let ((_e2585126170_ + (gx#syntax-e _tl2584626167_))) + (let ((_tl2584926177_ (let () (declare (not safe)) - (##cdr _e2613626455_))) - (_hd2613526459_ + (##cdr _e2585126170_))) + (_hd2585026174_ (let () (declare (not safe)) - (##car _e2613626455_)))) - (if (gx#stx-null? _tl2613426462_) - (___kont4600946010_ - _hd2613526459_ - _hd2613226449_) + (##car _e2585126170_)))) + (if (gx#stx-null? _tl2584926177_) + (___kont4580145802_ + _hd2585026174_ + _hd2584726164_) (let () (declare (not safe)) - (_g2603226174_))))) + (_g2574725889_))))) (let () (declare (not safe)) - (_g2603226174_))))) - (let () (declare (not safe)) (_g2603226174_))) + (_g2574725889_))))) + (let () (declare (not safe)) (_g2574725889_))) (if (let () (declare (not safe)) - (equal? _e2603927468_ 'datum:)) - (if (gx#stx-pair? _tl2603627465_) - (let ((_e2614426358_ - (gx#syntax-e _tl2603627465_))) - (let ((_tl2614226365_ + (equal? _e2575427183_ 'datum:)) + (if (gx#stx-pair? _tl2575127180_) + (let ((_e2585926073_ + (gx#syntax-e _tl2575127180_))) + (let ((_tl2585726080_ (let () (declare (not safe)) - (##cdr _e2614426358_))) - (_hd2614326362_ + (##cdr _e2585926073_))) + (_hd2585826077_ (let () (declare (not safe)) - (##car _e2614426358_)))) - (if (gx#stx-null? _tl2614226365_) - (___kont4601146012_ _hd2614326362_) + (##car _e2585926073_)))) + (if (gx#stx-null? _tl2585726080_) + (___kont4580345804_ _hd2585826077_) (let () (declare (not safe)) - (_g2603226174_))))) - (let () (declare (not safe)) (_g2603226174_))) + (_g2574725889_))))) + (let () (declare (not safe)) (_g2574725889_))) (if (let () (declare (not safe)) - (equal? _e2603927468_ 'apply:)) - (if (gx#stx-pair? _tl2603627465_) - (let ((_e2615326268_ - (gx#syntax-e _tl2603627465_))) - (let ((_tl2615126275_ + (equal? _e2575427183_ 'apply:)) + (if (gx#stx-pair? _tl2575127180_) + (let ((_e2586825983_ + (gx#syntax-e _tl2575127180_))) + (let ((_tl2586625990_ (let () (declare (not safe)) - (##cdr _e2615326268_))) - (_hd2615226272_ + (##cdr _e2586825983_))) + (_hd2586725987_ (let () (declare (not safe)) - (##car _e2615326268_)))) - (if (gx#stx-pair? _tl2615126275_) - (let ((_e2615626278_ - (gx#syntax-e _tl2615126275_))) - (let ((_tl2615426285_ + (##car _e2586825983_)))) + (if (gx#stx-pair? _tl2586625990_) + (let ((_e2587125993_ + (gx#syntax-e _tl2586625990_))) + (let ((_tl2586926000_ (let () (declare (not safe)) - (##cdr _e2615626278_))) - (_hd2615526282_ + (##cdr _e2587125993_))) + (_hd2587025997_ (let () (declare (not safe)) - (##car _e2615626278_)))) - (if (gx#stx-null? _tl2615426285_) - (___kont4601346014_ - _hd2615526282_ - _hd2615226272_) + (##car _e2587125993_)))) + (if (gx#stx-null? _tl2586926000_) + (___kont4580545806_ + _hd2587025997_ + _hd2586725987_) (let () (declare (not safe)) - (_g2603226174_))))) + (_g2574725889_))))) (let () (declare (not safe)) - (_g2603226174_))))) - (let () (declare (not safe)) (_g2603226174_))) + (_g2574725889_))))) + (let () (declare (not safe)) (_g2574725889_))) (if (let () (declare (not safe)) - (equal? _e2603927468_ 'var:)) - (if (gx#stx-pair? _tl2603627465_) - (let ((_e2616426220_ - (gx#syntax-e _tl2603627465_))) - (let ((_tl2616226227_ + (equal? _e2575427183_ 'var:)) + (if (gx#stx-pair? _tl2575127180_) + (let ((_e2587925935_ + (gx#syntax-e _tl2575127180_))) + (let ((_tl2587725942_ (let () (declare (not safe)) - (##cdr _e2616426220_))) - (_hd2616326224_ + (##cdr _e2587925935_))) + (_hd2587825939_ (let () (declare (not safe)) - (##car _e2616426220_)))) - (if (gx#stx-null? _tl2616226227_) - (___kont4601546016_ - _hd2616326224_) + (##car _e2587925935_)))) + (if (gx#stx-null? _tl2587725942_) + (___kont4580745808_ + _hd2587825939_) (let () (declare (not safe)) - (_g2603226174_))))) + (_g2574725889_))))) (let () (declare (not safe)) - (_g2603226174_))) + (_g2574725889_))) (if (let () (declare (not safe)) - (equal? _e2603927468_ 'any:)) - (if (gx#stx-null? _tl2603627465_) - (___kont4601746018_) + (equal? _e2575427183_ 'any:)) + (if (gx#stx-null? _tl2575127180_) + (___kont4580945810_) (let () (declare (not safe)) - (_g2603226174_))) + (_g2574725889_))) (let () (declare (not safe)) - (_g2603226174_))))))))))))))))))) + (_g2574725889_))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2603226174_))))) + (_g2574725889_))))) (let () (declare (not safe)) - (_g2603226174_))))))) - _g2599126002_)))) + (_g2574725889_))))))) + _g2570625717_)))) (declare (not safe)) - (_g2598927767_ _tgt25984_)))) - (_generate-splice24741_ - (lambda (_tgt25356_ _hd25358_ _rest25359_ _K25360_ _E25361_) - (let* ((_g2536325380_ - (lambda (_g2536425376_) + (_g2570427482_ _tgt25699_)))) + (_generate-splice24456_ + (lambda (_tgt25071_ _hd25073_ _rest25074_ _K25075_ _E25076_) + (let* ((_g2507825095_ + (lambda (_g2507925091_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2536425376_))) - (_g2536225980_ - (lambda (_g2536425384_) - (if (gx#stx-pair/null? _g2536425384_) - (let ((_g50396_ + _g2507925091_))) + (_g2507725695_ + (lambda (_g2507925099_) + (if (gx#stx-pair/null? _g2507925099_) + (let ((_g50157_ (gx#syntax-split-splice - _g2536425384_ + _g2507925099_ '0))) (begin - (let ((_g50397_ + (let ((_g50158_ (let () (declare (not safe)) - (if (##values? _g50396_) - (##vector-length _g50396_) + (if (##values? _g50157_) + (##vector-length _g50157_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50397_ 2))) + (##fx= _g50158_ 2))) (error "Context expects 2 values" - _g50397_))) - (let ((_target2536625387_ + _g50158_))) + (let ((_target2508125102_ (let () (declare (not safe)) - (##vector-ref _g50396_ 0))) - (_tl2536825390_ + (##vector-ref _g50157_ 0))) + (_tl2508325105_ (let () (declare (not safe)) - (##vector-ref _g50396_ 1)))) - (if (gx#stx-null? _tl2536825390_) - (letrec ((_loop2536925393_ - (lambda (_hd2536725397_ - _var2537325400_) + (##vector-ref _g50157_ 1)))) + (if (gx#stx-null? _tl2508325105_) + (letrec ((_loop2508425108_ + (lambda (_hd2508225112_ + _var2508825115_) (if (gx#stx-pair? - _hd2536725397_) - (let ((_e2537025403_ + _hd2508225112_) + (let ((_e2508525118_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd2536725397_))) - (let ((_lp-hd2537125407_ + (gx#syntax-e _hd2508225112_))) + (let ((_lp-hd2508625122_ (let () (declare (not safe)) - (##car _e2537025403_))) - (_lp-tl2537225410_ + (##car _e2508525118_))) + (_lp-tl2508725125_ (let () (declare (not safe)) - (##cdr _e2537025403_)))) - (let ((__tmp50488 + (##cdr _e2508525118_)))) + (let ((__tmp50249 (let () (declare (not safe)) - (cons _lp-hd2537125407_ _var2537325400_)))) + (cons _lp-hd2508625122_ _var2508825115_)))) (declare (not safe)) - (_loop2536925393_ _lp-tl2537225410_ __tmp50488)))) - (let ((_var2537425413_ (reverse _var2537325400_))) - ((lambda (_L25417_) + (_loop2508425108_ _lp-tl2508725125_ __tmp50249)))) + (let ((_var2508925128_ (reverse _var2508825115_))) + ((lambda (_L25132_) (let () - (let* ((_g2543325450_ - (lambda (_g2543425446_) + (let* ((_g2514825165_ + (lambda (_g2514925161_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2543425446_))) - (_g2543225968_ - (lambda (_g2543425454_) - (if (gx#stx-pair/null? _g2543425454_) - (let ((_g50398_ + _g2514925161_))) + (_g2514725683_ + (lambda (_g2514925169_) + (if (gx#stx-pair/null? _g2514925169_) + (let ((_g50159_ (gx#syntax-split-splice - _g2543425454_ + _g2514925169_ '0))) (begin - (let ((_g50399_ + (let ((_g50160_ (let () (declare (not safe)) - (if (##values? _g50398_) + (if (##values? _g50159_) (##vector-length - _g50398_) + _g50159_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50399_ 2))) + (##fx= _g50160_ 2))) (error "Context expects 2 values" - _g50399_))) - (let ((_target2543625457_ + _g50160_))) + (let ((_target2515125172_ (let () (declare (not safe)) (##vector-ref - _g50398_ + _g50159_ 0))) - (_tl2543825460_ + (_tl2515325175_ (let () (declare (not safe)) (##vector-ref - _g50398_ + _g50159_ 1)))) (if (gx#stx-null? - _tl2543825460_) - (letrec ((_loop2543925463_ - (lambda (_hd2543725467_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _var-r2544325470_) - (if (gx#stx-pair? _hd2543725467_) - (let ((_e2544025473_ (gx#syntax-e _hd2543725467_))) - (let ((_lp-hd2544125477_ + _tl2515325175_) + (letrec ((_loop2515425178_ + (lambda (_hd2515225182_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _var-r2515825185_) + (if (gx#stx-pair? _hd2515225182_) + (let ((_e2515525188_ (gx#syntax-e _hd2515225182_))) + (let ((_lp-hd2515625192_ (let () (declare (not safe)) - (##car _e2544025473_))) - (_lp-tl2544225480_ + (##car _e2515525188_))) + (_lp-tl2515725195_ (let () (declare (not safe)) - (##cdr _e2544025473_)))) - (let ((__tmp50485 + (##cdr _e2515525188_)))) + (let ((__tmp50246 (let () (declare (not safe)) - (cons _lp-hd2544125477_ - _var-r2544325470_)))) + (cons _lp-hd2515625192_ + _var-r2515825185_)))) (declare (not safe)) - (_loop2543925463_ - _lp-tl2544225480_ - __tmp50485)))) - (let ((_var-r2544425483_ - (reverse _var-r2544325470_))) - ((lambda (_L25487_) + (_loop2515425178_ + _lp-tl2515725195_ + __tmp50246)))) + (let ((_var-r2515925198_ + (reverse _var-r2515825185_))) + ((lambda (_L25202_) (let () - (let* ((_g2550425521_ - (lambda (_g2550525517_) + (let* ((_g2521925236_ + (lambda (_g2522025232_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2550525517_))) - (_g2550325956_ - (lambda (_g2550525525_) + _g2522025232_))) + (_g2521825671_ + (lambda (_g2522025240_) (if (gx#stx-pair/null? - _g2550525525_) - (let ((_g50400_ + _g2522025240_) + (let ((_g50161_ (gx#syntax-split-splice - _g2550525525_ + _g2522025240_ '0))) (begin - (let ((_g50401_ + (let ((_g50162_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50400_) - (##vector-length _g50400_) + _g50161_) + (##vector-length _g50161_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50401_ 2))) - (error "Context expects 2 values" _g50401_))) + (if (not (let () (declare (not safe)) (##fx= _g50162_ 2))) + (error "Context expects 2 values" _g50162_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target2550725528_ + (let ((_target2522225243_ (let () (declare (not safe)) (##vector-ref - _g50400_ + _g50161_ 0))) - (_tl2550925531_ + (_tl2522425246_ (let () (declare (not safe)) (##vector-ref - _g50400_ + _g50161_ 1)))) (if (gx#stx-null? - _tl2550925531_) - (letrec ((_loop2551025534_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd2550825538_ _init2551425541_) - (if (gx#stx-pair? _hd2550825538_) - (let ((_e2551125544_ - (gx#syntax-e _hd2550825538_))) - (let ((_lp-hd2551225548_ + _tl2522425246_) + (letrec ((_loop2522525249_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd2522325253_ _init2522925256_) + (if (gx#stx-pair? _hd2522325253_) + (let ((_e2522625259_ + (gx#syntax-e _hd2522325253_))) + (let ((_lp-hd2522725263_ (let () (declare (not safe)) - (##car _e2551125544_))) - (_lp-tl2551325551_ + (##car _e2522625259_))) + (_lp-tl2522825266_ (let () (declare (not safe)) - (##cdr _e2551125544_)))) - (let ((__tmp50481 + (##cdr _e2522625259_)))) + (let ((__tmp50242 (let () (declare (not safe)) - (cons _lp-hd2551225548_ - _init2551425541_)))) + (cons _lp-hd2522725263_ + _init2522925256_)))) (declare (not safe)) - (_loop2551025534_ - _lp-tl2551325551_ - __tmp50481)))) - (let ((_init2551525554_ - (reverse _init2551425541_))) - ((lambda (_L25558_) + (_loop2522525249_ + _lp-tl2522825266_ + __tmp50242)))) + (let ((_init2523025269_ + (reverse _init2522925256_))) + ((lambda (_L25273_) (let () - (let* ((_g2557525583_ - (lambda (_g2557625579_) + (let* ((_g2529025298_ + (lambda (_g2529125294_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2557625579_))) - (_g2557425952_ - (lambda (_g2557625587_) - ((lambda (_L25590_) + _g2529125294_))) + (_g2528925667_ + (lambda (_g2529125302_) + ((lambda (_L25305_) (let () - (let* ((_g2560325611_ - (lambda (_g2560425607_) + (let* ((_g2531825326_ + (lambda (_g2531925322_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2560425607_))) - (_g2560225948_ - (lambda (_g2560425615_) - ((lambda (_L25618_) + _g2531925322_))) + (_g2531725663_ + (lambda (_g2531925330_) + ((lambda (_L25333_) (let () - (let* ((_g2563125639_ - (lambda (_g2563225635_) + (let* ((_g2534625354_ + (lambda (_g2534725350_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2563225635_))) - (_g2563025944_ - (lambda (_g2563225643_) - ((lambda (_L25646_) + _g2534725350_))) + (_g2534525659_ + (lambda (_g2534725358_) + ((lambda (_L25361_) (let () - (let* ((_g2565925667_ - (lambda (_g2566025663_) + (let* ((_g2537425382_ + (lambda (_g2537525378_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2566025663_))) - (_g2565825940_ - (lambda (_g2566025671_) - ((lambda (_L25674_) + _g2537525378_))) + (_g2537325655_ + (lambda (_g2537525386_) + ((lambda (_L25389_) (let () - (let* ((_g2568725695_ + (let* ((_g2540225410_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2568825691_) + (lambda (_g2540325406_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2568825691_))) - (_g2568625936_ - (lambda (_g2568825699_) - ((lambda (_L25702_) + _g2540325406_))) + (_g2540125651_ + (lambda (_g2540325414_) + ((lambda (_L25417_) (let () - (let* ((_g2571525723_ - (lambda (_g2571625719_) + (let* ((_g2543025438_ + (lambda (_g2543125434_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2571625719_))) - (_g2571425932_ - (lambda (_g2571625727_) - ((lambda (_L25730_) + _g2543125434_))) + (_g2542925647_ + (lambda (_g2543125442_) + ((lambda (_L25445_) (let () - (let* ((_g2574325751_ - (lambda (_g2574425747_) + (let* ((_g2545825466_ + (lambda (_g2545925462_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2574425747_))) - (_g2574225928_ - (lambda (_g2574425755_) - ((lambda (_L25758_) + _g2545925462_))) + (_g2545725643_ + (lambda (_g2545925470_) + ((lambda (_L25473_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g2577125779_ - (lambda (_g2577225775_) + (let* ((_g2548625494_ + (lambda (_g2548725490_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2577225775_))) - (_g2577025913_ - (lambda (_g2577225783_) - ((lambda (_L25786_) + _g2548725490_))) + (_g2548525628_ + (lambda (_g2548725498_) + ((lambda (_L25501_) (let () - (let* ((_g2579925807_ - (lambda (_g2580025803_) + (let* ((_g2551425522_ + (lambda (_g2551525518_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2580025803_))) - (_g2579825901_ - (lambda (_g2580025811_) - ((lambda (_L25814_) + _g2551525518_))) + (_g2551325616_ + (lambda (_g2551525526_) + ((lambda (_L25529_) (let () - (let* ((_g2582725835_ - (lambda (_g2582825831_) + (let* ((_g2554225550_ + (lambda (_g2554325546_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2582825831_))) - (_g2582625897_ - (lambda (_g2582825839_) - ((lambda (_L25842_) + _g2554325546_))) + (_g2554125612_ + (lambda (_g2554325554_) + ((lambda (_L25557_) (let () (let () - (let ((__tmp50455 + (let ((__tmp50216 (gx#datum->syntax '#f 'letrec)) - (__tmp50402 - (let ((__tmp50408 - (let ((__tmp50446 - (let ((__tmp50447 - (let ((__tmp50448 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50454 (gx#datum->syntax '#f 'lambda)) - (__tmp50449 - (let ((__tmp50451 - (let ((__tmp50452 - (let ((__tmp50453 - (lambda (_g2586425867_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2586525870_) + (__tmp50163 + (let ((__tmp50169 + (let ((__tmp50207 + (let ((__tmp50208 + (let ((__tmp50209 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50215 (gx#datum->syntax '#f 'lambda)) + (__tmp50210 + (let ((__tmp50212 + (let ((__tmp50213 + (let ((__tmp50214 + (lambda (_g2557925582_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2558025585_) (let () (declare (not safe)) - (cons _g2586425867_ _g2586525870_))))) + (cons _g2557925582_ _g2558025585_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp50453 + (foldr1 __tmp50214 '() - _L25417_)))) + _L25132_)))) (declare (not safe)) - (cons _L25730_ __tmp50452))) - (__tmp50450 + (cons _L25445_ __tmp50213))) + (__tmp50211 (let () (declare (not safe)) - (cons _L25758_ '())))) + (cons _L25473_ '())))) (declare (not safe)) - (cons __tmp50451 __tmp50450)))) + (cons __tmp50212 __tmp50211)))) (declare (not safe)) - (cons __tmp50454 __tmp50449)))) + (cons __tmp50215 __tmp50210)))) (declare (not safe)) - (cons __tmp50448 '())))) + (cons __tmp50209 '())))) (declare (not safe)) - (cons _L25618_ __tmp50447))) + (cons _L25333_ __tmp50208))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50409 - (let ((__tmp50436 - (let ((__tmp50437 + (__tmp50170 + (let ((__tmp50197 + (let ((__tmp50198 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50438 - (let ((__tmp50445 + (let ((__tmp50199 + (let ((__tmp50206 (gx#datum->syntax '#f 'lambda)) - (__tmp50439 - (let ((__tmp50441 - (let ((__tmp50442 - (let ((__tmp50443 - (let ((__tmp50444 + (__tmp50200 + (let ((__tmp50202 + (let ((__tmp50203 + (let ((__tmp50204 + (let ((__tmp50205 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2586225873_ _g2586325876_) + (lambda (_g2557725588_ _g2557825591_) (let () (declare (not safe)) - (cons _g2586225873_ _g2586325876_))))) + (cons _g2557725588_ _g2557825591_))))) (declare (not safe)) - (foldr1 __tmp50444 '() _L25487_)))) + (foldr1 __tmp50205 '() _L25202_)))) (declare (not safe)) - (cons _L25730_ __tmp50443)))) + (cons _L25445_ __tmp50204)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L25702_ __tmp50442))) - (__tmp50440 + (cons _L25417_ __tmp50203))) + (__tmp50201 (let () (declare (not safe)) - (cons _L25842_ '())))) + (cons _L25557_ '())))) (declare (not safe)) - (cons __tmp50441 __tmp50440)))) + (cons __tmp50202 __tmp50201)))) (declare (not safe)) - (cons __tmp50445 __tmp50439)))) + (cons __tmp50206 __tmp50200)))) (declare (not safe)) - (cons __tmp50438 '())))) + (cons __tmp50199 '())))) (declare (not safe)) - (cons _L25674_ __tmp50437))) - (__tmp50410 - (let ((__tmp50411 - (let ((__tmp50412 - (let ((__tmp50413 - (let ((__tmp50435 + (cons _L25389_ __tmp50198))) + (__tmp50171 + (let ((__tmp50172 + (let ((__tmp50173 + (let ((__tmp50174 + (let ((__tmp50196 (gx#datum->syntax '#f 'lambda)) - (__tmp50414 - (let ((__tmp50432 - (let ((__tmp50433 - (let ((__tmp50434 + (__tmp50175 + (let ((__tmp50193 + (let ((__tmp50194 + (let ((__tmp50195 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2586025879_ _g2586125882_) + (lambda (_g2557525594_ _g2557625597_) (let () (declare (not safe)) - (cons _g2586025879_ _g2586125882_))))) + (cons _g2557525594_ _g2557625597_))))) (declare (not safe)) - (foldr1 __tmp50434 '() _L25487_)))) + (foldr1 __tmp50195 '() _L25202_)))) (declare (not safe)) - (cons _L25730_ __tmp50433))) - (__tmp50415 - (let ((__tmp50416 - (let ((__tmp50431 (gx#datum->syntax '#f 'if)) - (__tmp50417 - (let ((__tmp50428 - (let ((__tmp50430 + (cons _L25445_ __tmp50194))) + (__tmp50176 + (let ((__tmp50177 + (let ((__tmp50192 (gx#datum->syntax '#f 'if)) + (__tmp50178 + (let ((__tmp50189 + (let ((__tmp50191 (gx#datum->syntax '#f 'pair?)) - (__tmp50429 + (__tmp50190 (let () (declare (not safe)) - (cons _L25730_ '())))) + (cons _L25445_ '())))) (declare (not safe)) - (cons __tmp50430 __tmp50429))) - (__tmp50418 - (let ((__tmp50420 - (let ((__tmp50421 - (let ((__tmp50425 - (let ((__tmp50427 + (cons __tmp50191 __tmp50190))) + (__tmp50179 + (let ((__tmp50181 + (let ((__tmp50182 + (let ((__tmp50186 + (let ((__tmp50188 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp50426 - (let () (declare (not safe)) (cons _L25730_ '())))) + (__tmp50187 + (let () (declare (not safe)) (cons _L25445_ '())))) (declare (not safe)) - (cons __tmp50427 __tmp50426))) - (__tmp50422 - (let ((__tmp50423 - (let ((__tmp50424 - (lambda (_g2585825885_ _g2585925888_) + (cons __tmp50188 __tmp50187))) + (__tmp50183 + (let ((__tmp50184 + (let ((__tmp50185 + (lambda (_g2557325600_ _g2557425603_) (let () (declare (not safe)) - (cons _g2585825885_ _g2585925888_))))) + (cons _g2557325600_ _g2557425603_))))) (declare (not safe)) - (foldr1 __tmp50424 '() _L25487_)))) + (foldr1 __tmp50185 '() _L25202_)))) (declare (not safe)) - (cons _L25730_ __tmp50423)))) + (cons _L25445_ __tmp50184)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50425 - __tmp50422)))) + (cons __tmp50186 + __tmp50183)))) (declare (not safe)) - (cons _L25674_ __tmp50421))) - (__tmp50419 + (cons _L25389_ __tmp50182))) + (__tmp50180 (let () (declare (not safe)) - (cons _L25814_ '())))) + (cons _L25529_ '())))) (declare (not safe)) - (cons __tmp50420 __tmp50419)))) + (cons __tmp50181 __tmp50180)))) (declare (not safe)) - (cons __tmp50428 __tmp50418)))) + (cons __tmp50189 __tmp50179)))) (declare (not safe)) - (cons __tmp50431 __tmp50417)))) + (cons __tmp50192 __tmp50178)))) (declare (not safe)) - (cons __tmp50416 '())))) + (cons __tmp50177 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50432 - __tmp50415)))) + (cons __tmp50193 + __tmp50176)))) (declare (not safe)) - (cons __tmp50435 __tmp50414)))) + (cons __tmp50196 __tmp50175)))) (declare (not safe)) - (cons __tmp50413 '())))) + (cons __tmp50174 '())))) (declare (not safe)) - (cons _L25646_ __tmp50412)))) + (cons _L25361_ __tmp50173)))) (declare (not safe)) - (cons __tmp50411 '())))) + (cons __tmp50172 '())))) (declare (not safe)) - (cons __tmp50436 __tmp50410)))) + (cons __tmp50197 __tmp50171)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50446 __tmp50409))) - (__tmp50403 - (let ((__tmp50404 - (let ((__tmp50405 - (let ((__tmp50406 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50407 - (lambda (_g2585625891_ _g2585725894_) + (cons __tmp50207 __tmp50170))) + (__tmp50164 + (let ((__tmp50165 + (let ((__tmp50166 + (let ((__tmp50167 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50168 + (lambda (_g2557125606_ _g2557225609_) (let () (declare (not safe)) - (cons _g2585625891_ _g2585725894_))))) + (cons _g2557125606_ _g2557225609_))))) (declare (not safe)) - (foldr1 __tmp50407 '() _L25558_)))) + (foldr1 __tmp50168 '() _L25273_)))) (declare (not safe)) - (cons _L25590_ __tmp50406)))) + (cons _L25305_ __tmp50167)))) (declare (not safe)) - (cons _L25646_ __tmp50405)))) + (cons _L25361_ __tmp50166)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50404 '())))) + (cons __tmp50165 '())))) (declare (not safe)) - (cons __tmp50408 __tmp50403)))) + (cons __tmp50169 __tmp50164)))) (declare (not safe)) - (cons __tmp50455 __tmp50402))))) - _g2582825839_))) - (__tmp50456 + (cons __tmp50216 __tmp50163))))) + _g2554325554_))) + (__tmp50217 (let () (declare (not safe)) - (_generate124739_ - _L25702_ - _hd25358_ - _L25786_ - _L25814_)))) + (_generate124454_ + _L25417_ + _hd25073_ + _L25501_ + _L25529_)))) (declare (not safe)) - (_g2582625897_ __tmp50456)))) + (_g2554125612_ __tmp50217)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2580025811_))) - (__tmp50457 - (let ((__tmp50458 - (let ((__tmp50459 - (let ((__tmp50460 + _g2551525526_))) + (__tmp50218 + (let ((__tmp50219 + (let ((__tmp50220 + (let ((__tmp50221 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2590425907_ _g2590525910_) - (let ((__tmp50461 - (let ((__tmp50463 + (lambda (_g2561925622_ _g2562025625_) + (let ((__tmp50222 + (let ((__tmp50224 (gx#datum->syntax '#f 'reverse)) - (__tmp50462 + (__tmp50223 (let () (declare (not safe)) - (cons _g2590425907_ '())))) + (cons _g2561925622_ '())))) (declare (not safe)) - (cons __tmp50463 __tmp50462)))) + (cons __tmp50224 __tmp50223)))) (declare (not safe)) - (cons __tmp50461 _g2590525910_))))) + (cons __tmp50222 _g2562025625_))))) (declare (not safe)) - (foldr1 __tmp50460 '() _L25487_)))) + (foldr1 __tmp50221 '() _L25202_)))) (declare (not safe)) - (cons _L25730_ __tmp50459)))) + (cons _L25445_ __tmp50220)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L25618_ - __tmp50458)))) + (cons _L25333_ + __tmp50219)))) (declare (not safe)) - (_g2579825901_ __tmp50457)))) - _g2577225783_))) - (__tmp50464 - (let ((__tmp50465 - (let ((__tmp50472 - (let ((__tmp50474 + (_g2551325616_ __tmp50218)))) + _g2548725498_))) + (__tmp50225 + (let ((__tmp50226 + (let ((__tmp50233 + (let ((__tmp50235 (gx#datum->syntax '#f '##cdr)) - (__tmp50473 + (__tmp50234 (let () (declare (not safe)) - (cons _L25730_ '())))) + (cons _L25445_ '())))) (declare (not safe)) - (cons __tmp50474 - __tmp50473))) - (__tmp50466 + (cons __tmp50235 + __tmp50234))) + (__tmp50227 (begin (gx#syntax-check-splice-targets - _L25487_ - _L25417_) - (let ((__tmp50467 - (lambda (_g2591625920_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2591725923_ - _g2591825925_) - (let ((__tmp50468 - (let ((__tmp50471 (gx#datum->syntax '#f 'cons)) - (__tmp50469 - (let ((__tmp50470 + _L25202_ + _L25132_) + (let ((__tmp50228 + (lambda (_g2563125635_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2563225638_ + _g2563325640_) + (let ((__tmp50229 + (let ((__tmp50232 (gx#datum->syntax '#f 'cons)) + (__tmp50230 + (let ((__tmp50231 (let () (declare (not safe)) - (cons _g2591625920_ '())))) + (cons _g2563125635_ '())))) (declare (not safe)) - (cons _g2591725923_ __tmp50470)))) + (cons _g2563225638_ __tmp50231)))) (declare (not safe)) - (cons __tmp50471 __tmp50469)))) + (cons __tmp50232 __tmp50230)))) (declare (not safe)) - (cons __tmp50468 _g2591825925_))))) + (cons __tmp50229 _g2563325640_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp50467 + (foldr2 __tmp50228 '() - _L25487_ - _L25417_))))) + _L25202_ + _L25132_))))) (declare (not safe)) - (cons __tmp50472 __tmp50466)))) + (cons __tmp50233 __tmp50227)))) (declare (not safe)) - (cons _L25646_ __tmp50465)))) + (cons _L25361_ __tmp50226)))) (declare (not safe)) - (_g2577025913_ __tmp50464)))) - _g2574425755_))) - (__tmp50475 + (_g2548525628_ __tmp50225)))) + _g2545925470_))) + (__tmp50236 (let () (declare (not safe)) - (_generate124739_ - _L25730_ - _rest25359_ - _K25360_ - _E25361_)))) + (_generate124454_ + _L25445_ + _rest25074_ + _K25075_ + _E25076_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2574225928_ - __tmp50475)))) - _g2571625727_))) - (__tmp50476 (gx#genident 'rest))) + (_g2545725643_ + __tmp50236)))) + _g2543125442_))) + (__tmp50237 (gx#genident 'rest))) (declare (not safe)) - (_g2571425932_ __tmp50476)))) - _g2568825699_))) - (__tmp50477 (gx#genident 'hd))) + (_g2542925647_ __tmp50237)))) + _g2540325414_))) + (__tmp50238 (gx#genident 'hd))) (declare (not safe)) - (_g2568625936_ __tmp50477)))) - _g2566025671_))) + (_g2540125651_ __tmp50238)))) + _g2537525386_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50478 + (__tmp50239 (gx#genident 'splice-try))) (declare (not safe)) - (_g2565825940_ __tmp50478)))) - _g2563225643_))) - (__tmp50479 (gx#genident 'splice-loop))) + (_g2537325655_ __tmp50239)))) + _g2534725358_))) + (__tmp50240 (gx#genident 'splice-loop))) (declare (not safe)) - (_g2563025944_ __tmp50479)))) - _g2560425615_))) - (__tmp50480 (gx#genident 'splice-rest))) + (_g2534525659_ __tmp50240)))) + _g2531925330_))) + (__tmp50241 (gx#genident 'splice-rest))) (declare (not safe)) - (_g2560225948_ __tmp50480)))) + (_g2531725663_ __tmp50241)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2557625587_)))) + _g2529125302_)))) (declare (not safe)) - (_g2557425952_ _tgt25356_)))) - _init2551525554_)))))) + (_g2528925667_ _tgt25071_)))) + _init2523025269_)))))) (let () (declare (not safe)) - (_loop2551025534_ _target2550725528_ '()))) + (_loop2522525249_ _target2522225243_ '()))) (let () (declare (not safe)) - (_g2550425521_ _g2550525525_)))))) + (_g2521925236_ _g2522025240_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2550425521_ - _g2550525525_))))) - (__tmp50482 + (_g2521925236_ + _g2522025240_))))) + (__tmp50243 (make-list (gx#stx-length - (let ((__tmp50483 - (lambda (_g2595925962_ - _g2596025965_) + (let ((__tmp50244 + (lambda (_g2567425677_ + _g2567525680_) (let () (declare (not safe)) - (cons _g2595925962_ - _g2596025965_))))) + (cons _g2567425677_ + _g2567525680_))))) (declare (not safe)) - (foldr1 __tmp50483 + (foldr1 __tmp50244 '() - _L25417_))) - (let ((__tmp50484 + _L25132_))) + (let ((__tmp50245 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp50484 '()))))) + (cons __tmp50245 '()))))) (declare (not safe)) - (_g2550325956_ __tmp50482)))) - _var-r2544425483_)))))) + (_g2521825671_ __tmp50243)))) + _var-r2515925198_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop2543925463_ - _target2543625457_ + (_loop2515425178_ + _target2515125172_ '()))) (let () (declare (not safe)) - (_g2543325450_ - _g2543425454_)))))) + (_g2514825165_ + _g2514925169_)))))) (let () (declare (not safe)) - (_g2543325450_ _g2543425454_))))) - (__tmp50486 + (_g2514825165_ _g2514925169_))))) + (__tmp50247 (gx#gentemps - (let ((__tmp50487 - (lambda (_g2597125974_ - _g2597225977_) + (let ((__tmp50248 + (lambda (_g2568625689_ + _g2568725692_) (let () (declare (not safe)) - (cons _g2597125974_ - _g2597225977_))))) + (cons _g2568625689_ + _g2568725692_))))) (declare (not safe)) - (foldr1 __tmp50487 '() _L25417_))))) + (foldr1 __tmp50248 '() _L25132_))))) (declare (not safe)) - (_g2543225968_ __tmp50486)))) - _var2537425413_)))))) + (_g2514725683_ __tmp50247)))) + _var2508925128_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop2536925393_ - _target2536625387_ + (_loop2508425108_ + _target2508125102_ '()))) (let () (declare (not safe)) - (_g2536325380_ - _g2536425384_)))))) + (_g2507825095_ + _g2507925099_)))))) (let () (declare (not safe)) - (_g2536325380_ _g2536425384_))))) - (__tmp50489 + (_g2507825095_ _g2507925099_))))) + (__tmp50250 (let () (declare (not safe)) (|gerbil/core$[1]#match-pattern-vars| - _hd25358_)))) + _hd25073_)))) (declare (not safe)) - (_g2536225980_ __tmp50489)))) - (_generate-simple-vector24742_ - (lambda (_tgt25198_ - _body25200_ - _start25201_ - _K25202_ - _E25203_) - (let _recur25205_ ((_rest25208_ _body25200_) - (_off25210_ _start25201_)) - (let* ((___stx4634246343_ _rest25208_) - (_g2521325225_ + (_g2507725695_ __tmp50250)))) + (_generate-simple-vector24457_ + (lambda (_tgt24913_ + _body24915_ + _start24916_ + _K24917_ + _E24918_) + (let _recur24920_ ((_rest24923_ _body24915_) + (_off24925_ _start24916_)) + (let* ((___stx4613446135_ _rest24923_) + (_g2492824940_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4634246343_)))) - (let ((___kont4634546346_ - (lambda (_L25253_ _L25255_) - (let* ((_g2527025289_ - (lambda (_g2527125285_) + ___stx4613446135_)))) + (let ((___kont4613746138_ + (lambda (_L24968_ _L24970_) + (let* ((_g2498525004_ + (lambda (_g2498625000_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2527125285_))) - (_g2526925348_ - (lambda (_g2527125293_) - (if (gx#stx-pair? _g2527125293_) - (let ((_e2527725296_ + _g2498625000_))) + (_g2498425063_ + (lambda (_g2498625008_) + (if (gx#stx-pair? _g2498625008_) + (let ((_e2499225011_ (gx#syntax-e - _g2527125293_))) - (let ((_hd2527625300_ + _g2498625008_))) + (let ((_hd2499125015_ (let () (declare (not safe)) - (##car _e2527725296_))) - (_tl2527525303_ + (##car _e2499225011_))) + (_tl2499025018_ (let () (declare (not safe)) - (##cdr _e2527725296_)))) + (##cdr _e2499225011_)))) (if (gx#stx-pair? - _tl2527525303_) - (let ((_e2528025306_ + _tl2499025018_) + (let ((_e2499525021_ (gx#syntax-e - _tl2527525303_))) - (let ((_hd2527925310_ + _tl2499025018_))) + (let ((_hd2499425025_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e2528025306_))) - (_tl2527825313_ - (let () (declare (not safe)) (##cdr _e2528025306_)))) - (if (gx#stx-pair? _tl2527825313_) - (let ((_e2528325316_ (gx#syntax-e _tl2527825313_))) - (let ((_hd2528225320_ + (##car _e2499525021_))) + (_tl2499325028_ + (let () (declare (not safe)) (##cdr _e2499525021_)))) + (if (gx#stx-pair? _tl2499325028_) + (let ((_e2499825031_ (gx#syntax-e _tl2499325028_))) + (let ((_hd2499725035_ (let () (declare (not safe)) - (##car _e2528325316_))) - (_tl2528125323_ + (##car _e2499825031_))) + (_tl2499625038_ (let () (declare (not safe)) - (##cdr _e2528325316_)))) - (if (gx#stx-null? _tl2528125323_) - ((lambda (_L25326_ _L25328_ _L25329_) + (##cdr _e2499825031_)))) + (if (gx#stx-null? _tl2499625038_) + ((lambda (_L25041_ _L25043_ _L25044_) (let () - (let ((__tmp50490 - (let ((__tmp50495 - (let ((__tmp50496 - (let ((__tmp50497 - (let ((__tmp50498 + (let ((__tmp50251 + (let ((__tmp50256 + (let ((__tmp50257 + (let ((__tmp50258 + (let ((__tmp50259 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50501 + (let ((__tmp50262 (gx#datum->syntax '#f '##vector-ref)) - (__tmp50499 - (let ((__tmp50500 + (__tmp50260 + (let ((__tmp50261 (let () (declare (not safe)) - (cons _L25326_ '())))) + (cons _L25041_ '())))) (declare (not safe)) - (cons _L25328_ __tmp50500)))) + (cons _L25043_ __tmp50261)))) (declare (not safe)) - (cons __tmp50501 __tmp50499)))) + (cons __tmp50262 __tmp50260)))) (declare (not safe)) - (cons __tmp50498 '())))) + (cons __tmp50259 '())))) (declare (not safe)) - (cons _L25329_ __tmp50497)))) + (cons _L25044_ __tmp50258)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50496 '()))) - (__tmp50491 - (let ((__tmp50492 - (let ((__tmp50493 - (let ((__tmp50494 + (cons __tmp50257 '()))) + (__tmp50252 + (let ((__tmp50253 + (let ((__tmp50254 + (let ((__tmp50255 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (fx+ _off25210_ '1)))) + (fx+ _off24925_ '1)))) (declare (not safe)) - (_recur25205_ _L25253_ __tmp50494)))) + (_recur24920_ _L24968_ __tmp50255)))) (declare (not safe)) - (_generate124739_ _L25329_ _L25255_ __tmp50493 _E25203_)))) + (_generate124454_ _L25044_ _L24970_ __tmp50254 _E24918_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50492 '())))) + (cons __tmp50253 '())))) (declare (not safe)) - (cons __tmp50495 __tmp50491)))) + (cons __tmp50256 __tmp50252)))) (declare (not safe)) - (cons 'let __tmp50490)))) - _hd2528225320_ - _hd2527925310_ - _hd2527625300_) + (cons 'let __tmp50251)))) + _hd2499725035_ + _hd2499425025_ + _hd2499125015_) (let () (declare (not safe)) - (_g2527025289_ _g2527125293_))))) + (_g2498525004_ _g2498625008_))))) (let () (declare (not safe)) - (_g2527025289_ _g2527125293_))))) - (let () (declare (not safe)) (_g2527025289_ _g2527125293_))))) + (_g2498525004_ _g2498625008_))))) + (let () (declare (not safe)) (_g2498525004_ _g2498625008_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2527025289_ - _g2527125293_))))) - (__tmp50502 + (_g2498525004_ + _g2498625008_))))) + (__tmp50263 (list (gx#genident 'e) - _tgt25198_ - _off25210_))) + _tgt24913_ + _off24925_))) (declare (not safe)) - (_g2526925348_ __tmp50502)))) - (___kont4634746348_ (lambda () _K25202_))) - (if (gx#stx-pair? ___stx4634246343_) - (let ((_e2521925243_ - (gx#syntax-e ___stx4634246343_))) - (let ((_tl2521725250_ + (_g2498425063_ __tmp50263)))) + (___kont4613946140_ (lambda () _K24917_))) + (if (gx#stx-pair? ___stx4613446135_) + (let ((_e2493424958_ + (gx#syntax-e ___stx4613446135_))) + (let ((_tl2493224965_ (let () (declare (not safe)) - (##cdr _e2521925243_))) - (_hd2521825247_ + (##cdr _e2493424958_))) + (_hd2493324962_ (let () (declare (not safe)) - (##car _e2521925243_)))) - (___kont4634546346_ - _tl2521725250_ - _hd2521825247_))) - (___kont4634746348_))))))) - (_generate-list-vector24743_ - (lambda (_tgt25090_ - _body25092_ - _->list25093_ - _K25094_ - _E25095_) - (let* ((_g2509725105_ - (lambda (_g2509825101_) + (##car _e2493424958_)))) + (___kont4613746138_ + _tl2493224965_ + _hd2493324962_))) + (___kont4613946140_))))))) + (_generate-list-vector24458_ + (lambda (_tgt24805_ + _body24807_ + _->list24808_ + _K24809_ + _E24810_) + (let* ((_g2481224820_ + (lambda (_g2481324816_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2509825101_))) - (_g2509625194_ - (lambda (_g2509825109_) - ((lambda (_L25112_) + _g2481324816_))) + (_g2481124909_ + (lambda (_g2481324824_) + ((lambda (_L24827_) (let () - (let* ((_g2512425132_ - (lambda (_g2512525128_) + (let* ((_g2483924847_ + (lambda (_g2484024843_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2512525128_))) - (_g2512325190_ - (lambda (_g2512525136_) - ((lambda (_L25139_) + _g2484024843_))) + (_g2483824905_ + (lambda (_g2484024851_) + ((lambda (_L24854_) (let () - (let* ((_g2515225160_ - (lambda (_g2515325156_) + (let* ((_g2486724875_ + (lambda (_g2486824871_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2515325156_))) - (_g2515125182_ - (lambda (_g2515325164_) - ((lambda (_L25167_) + _g2486824871_))) + (_g2486624897_ + (lambda (_g2486824879_) + ((lambda (_L24882_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp50503 - (let ((__tmp50506 - (let ((__tmp50507 - (let ((__tmp50508 + (let ((__tmp50264 + (let ((__tmp50267 + (let ((__tmp50268 + (let ((__tmp50269 (let () (declare (not safe)) - (cons _L25167_ '())))) + (cons _L24882_ '())))) (declare (not safe)) - (cons _L25112_ __tmp50508)))) + (cons _L24827_ __tmp50269)))) (declare (not safe)) - (cons __tmp50507 '()))) - (__tmp50504 - (let ((__tmp50505 + (cons __tmp50268 '()))) + (__tmp50265 + (let ((__tmp50266 (let () (declare (not safe)) - (_generate124739_ - _L25112_ - _body25092_ - _K25094_ - _E25095_)))) + (_generate124454_ + _L24827_ + _body24807_ + _K24809_ + _E24810_)))) (declare (not safe)) - (cons __tmp50505 '())))) + (cons __tmp50266 '())))) (declare (not safe)) - (cons __tmp50506 __tmp50504)))) + (cons __tmp50267 __tmp50265)))) (declare (not safe)) - (cons 'let __tmp50503))))) - _g2515325164_))) - (__tmp50509 - (let ((_$e25186_ _->list25093_)) + (cons 'let __tmp50264))))) + _g2486824879_))) + (__tmp50270 + (let ((_$e24901_ _->list24808_)) (if (let () (declare (not safe)) - (eq? 'values->list _$e25186_)) - (let ((__tmp50518 (gx#datum->syntax '#f 'values->list)) - (__tmp50517 + (eq? 'values->list _$e24901_)) + (let ((__tmp50279 (gx#datum->syntax '#f 'values->list)) + (__tmp50278 (let () (declare (not safe)) - (cons _L25139_ '())))) + (cons _L24854_ '())))) (declare (not safe)) - (cons __tmp50518 __tmp50517)) + (cons __tmp50279 __tmp50278)) (if (let () (declare (not safe)) - (eq? 'vector->list _$e25186_)) - (let ((__tmp50516 + (eq? 'vector->list _$e24901_)) + (let ((__tmp50277 (gx#datum->syntax '#f '##vector->list)) - (__tmp50515 + (__tmp50276 (let () (declare (not safe)) - (cons _L25139_ '())))) + (cons _L24854_ '())))) (declare (not safe)) - (cons __tmp50516 __tmp50515)) + (cons __tmp50277 __tmp50276)) (if (let () (declare (not safe)) - (eq? 'struct->list _$e25186_)) - (let ((__tmp50514 + (eq? 'struct->list _$e24901_)) + (let ((__tmp50275 (gx#datum->syntax '#f '##cdr)) - (__tmp50510 - (let ((__tmp50511 - (let ((__tmp50513 + (__tmp50271 + (let ((__tmp50272 + (let ((__tmp50274 (gx#datum->syntax '#f '##structure->list)) - (__tmp50512 + (__tmp50273 (let () (declare (not safe)) - (cons _L25139_ '())))) + (cons _L24854_ '())))) (declare (not safe)) - (cons __tmp50513 __tmp50512)))) + (cons __tmp50274 __tmp50273)))) (declare (not safe)) - (cons __tmp50511 '())))) + (cons __tmp50272 '())))) (declare (not safe)) - (cons __tmp50514 __tmp50510)) + (cons __tmp50275 __tmp50271)) (gx#raise-syntax-error '#f '"Unexpected list conversion" - _stx24732_ - _->list25093_))))))) + _stx24447_ + _->list24808_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2515125182_ - __tmp50509)))) - _g2512525136_)))) + (_g2486624897_ + __tmp50270)))) + _g2484024851_)))) (declare (not safe)) - (_g2512325190_ _tgt25090_)))) - _g2509825109_))) - (__tmp50519 (gx#genident 'e))) + (_g2483824905_ _tgt24805_)))) + _g2481324824_))) + (__tmp50280 (gx#genident 'e))) (declare (not safe)) - (_g2509625194_ __tmp50519)))) - (_generate-struct24744_ - (lambda (_info24961_ - _tgt24963_ - _body24964_ - _K24965_ - _E24966_) - (let* ((___stx4635846359_ _body24964_) - (_g2496924992_ + (_g2481124909_ __tmp50280)))) + (_generate-struct24459_ + (lambda (_info24676_ + _tgt24678_ + _body24679_ + _K24680_ + _E24681_) + (let* ((___stx4615046151_ _body24679_) + (_g2468424707_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4635846359_)))) - (let ((___kont4636146362_ - (lambda (_L25069_) - (let* ((_fields25083_ + ___stx4615046151_)))) + (let ((___kont4615346154_ + (lambda (_L24784_) + (let* ((_fields24798_ (let () (declare (not safe)) - (_struct-field-accessors24746_ - _info24961_))) - (__tmp50520 - (let ((__tmp50524 - (let ((__tmp50526 - (let ((__obj47562 - _info24961_)) + (_struct-field-accessors24461_ + _info24676_))) + (__tmp50281 + (let ((__tmp50285 + (let ((__tmp50287 + (let ((__obj47353 + _info24676_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47562 + __obj47353 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47562 + __obj47353 '10 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47562 + __obj47353 'predicate)))) - (__tmp50525 + (__tmp50286 (let () (declare (not safe)) - (cons _tgt24963_ '())))) + (cons _tgt24678_ '())))) (declare (not safe)) - (cons __tmp50526 __tmp50525))) - (__tmp50521 - (let ((__tmp50523 + (cons __tmp50287 __tmp50286))) + (__tmp50282 + (let ((__tmp50284 (let () (declare (not safe)) - (_generate-simple-struct-body24745_ - _info24961_ - _tgt24963_ - _L25069_ - _K24965_ - _E24966_))) - (__tmp50522 + (_generate-simple-struct-body24460_ + _info24676_ + _tgt24678_ + _L24784_ + _K24680_ + _E24681_))) + (__tmp50283 (let () (declare (not safe)) - (cons _E24966_ '())))) + (cons _E24681_ '())))) (declare (not safe)) - (cons __tmp50523 __tmp50522)))) + (cons __tmp50284 __tmp50283)))) (declare (not safe)) - (cons __tmp50524 __tmp50521)))) + (cons __tmp50285 __tmp50282)))) (declare (not safe)) - (cons 'if __tmp50520)))) - (___kont4636346364_ - (lambda (_L25023_) - (let ((__tmp50527 - (let ((__tmp50531 - (let ((__tmp50533 - (let ((__obj47563 - _info24961_)) + (cons 'if __tmp50281)))) + (___kont4615546156_ + (lambda (_L24738_) + (let ((__tmp50288 + (let ((__tmp50292 + (let ((__tmp50294 + (let ((__obj47354 + _info24676_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47563 + __obj47354 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47563 + __obj47354 '10 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47563 + __obj47354 'predicate)))) - (__tmp50532 + (__tmp50293 (let () (declare (not safe)) - (cons _tgt24963_ '())))) + (cons _tgt24678_ '())))) (declare (not safe)) - (cons __tmp50533 __tmp50532))) - (__tmp50528 - (let ((__tmp50530 + (cons __tmp50294 __tmp50293))) + (__tmp50289 + (let ((__tmp50291 (let () (declare (not safe)) - (_generate-list-vector24743_ - _tgt24963_ - _L25023_ + (_generate-list-vector24458_ + _tgt24678_ + _L24738_ 'struct->list - _K24965_ - _E24966_))) - (__tmp50529 + _K24680_ + _E24681_))) + (__tmp50290 (let () (declare (not safe)) - (cons _E24966_ '())))) + (cons _E24681_ '())))) (declare (not safe)) - (cons __tmp50530 __tmp50529)))) + (cons __tmp50291 __tmp50290)))) (declare (not safe)) - (cons __tmp50531 __tmp50528)))) + (cons __tmp50292 __tmp50289)))) (declare (not safe)) - (cons 'if __tmp50527))))) - (if (gx#stx-pair? ___stx4635846359_) - (let ((_e2497425045_ - (gx#syntax-e ___stx4635846359_))) - (let ((_tl2497225052_ + (cons 'if __tmp50288))))) + (if (gx#stx-pair? ___stx4615046151_) + (let ((_e2468924760_ + (gx#syntax-e ___stx4615046151_))) + (let ((_tl2468724767_ (let () (declare (not safe)) - (##cdr _e2497425045_))) - (_hd2497325049_ + (##cdr _e2468924760_))) + (_hd2468824764_ (let () (declare (not safe)) - (##car _e2497425045_)))) - (if (gx#stx-datum? _hd2497325049_) - (let ((_e2497525055_ - (gx#stx-e _hd2497325049_))) + (##car _e2468924760_)))) + (if (gx#stx-datum? _hd2468824764_) + (let ((_e2469024770_ + (gx#stx-e _hd2468824764_))) (if (let () (declare (not safe)) - (equal? _e2497525055_ 'simple:)) - (if (gx#stx-pair? _tl2497225052_) - (let ((_e2497825059_ + (equal? _e2469024770_ 'simple:)) + (if (gx#stx-pair? _tl2468724767_) + (let ((_e2469324774_ (gx#syntax-e - _tl2497225052_))) - (let ((_tl2497625066_ + _tl2468724767_))) + (let ((_tl2469124781_ (let () (declare (not safe)) - (##cdr _e2497825059_))) - (_hd2497725063_ + (##cdr _e2469324774_))) + (_hd2469224778_ (let () (declare (not safe)) - (##car _e2497825059_)))) + (##car _e2469324774_)))) (if (gx#stx-null? - _tl2497625066_) - (___kont4636146362_ - _hd2497725063_) + _tl2469124781_) + (___kont4615346154_ + _hd2469224778_) (let () (declare (not safe)) - (_g2496924992_))))) + (_g2468424707_))))) (let () (declare (not safe)) - (_g2496924992_))) + (_g2468424707_))) (if (let () (declare (not safe)) - (equal? _e2497525055_ 'list:)) - (if (gx#stx-pair? _tl2497225052_) - (let ((_e2498625013_ + (equal? _e2469024770_ 'list:)) + (if (gx#stx-pair? _tl2468724767_) + (let ((_e2470124728_ (gx#syntax-e - _tl2497225052_))) - (let ((_tl2498425020_ + _tl2468724767_))) + (let ((_tl2469924735_ (let () (declare (not safe)) - (##cdr _e2498625013_))) - (_hd2498525017_ + (##cdr _e2470124728_))) + (_hd2470024732_ (let () (declare (not safe)) - (##car _e2498625013_)))) + (##car _e2470124728_)))) (if (gx#stx-null? - _tl2498425020_) - (___kont4636346364_ - _hd2498525017_) + _tl2469924735_) + (___kont4615546156_ + _hd2470024732_) (let () (declare (not safe)) - (_g2496924992_))))) + (_g2468424707_))))) (let () (declare (not safe)) - (_g2496924992_))) + (_g2468424707_))) (let () (declare (not safe)) - (_g2496924992_))))) + (_g2468424707_))))) (let () (declare (not safe)) - (_g2496924992_))))) - (let () (declare (not safe)) (_g2496924992_))))))) - (_generate-simple-struct-body24745_ - (lambda (_info24881_ - _tgt24883_ - _body24884_ - _K24885_ - _E24886_) - (let _recur24888_ ((_rest24891_ _body24884_) - (_fields24893_ + (_g2468424707_))))) + (let () (declare (not safe)) (_g2468424707_))))))) + (_generate-simple-struct-body24460_ + (lambda (_info24596_ + _tgt24598_ + _body24599_ + _K24600_ + _E24601_) + (let _recur24603_ ((_rest24606_ _body24599_) + (_fields24608_ (let () (declare (not safe)) - (_struct-field-accessors24746_ - _info24881_)))) - (let* ((___stx4640846409_ _rest24891_) - (_g2489624908_ + (_struct-field-accessors24461_ + _info24596_)))) + (let* ((___stx4620046201_ _rest24606_) + (_g2461124623_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4640846409_)))) - (let ((___kont4641146412_ - (lambda (_L24936_ _L24938_) + ___stx4620046201_)))) + (let ((___kont4620346204_ + (lambda (_L24651_ _L24653_) (if (let () (declare (not safe)) - (null? _fields24893_)) + (null? _fields24608_)) (gx#raise-syntax-error '#f '"too many parts for struct" - _stx24732_ - _info24881_ - (let ((__obj47564 _info24881_)) + _stx24447_ + _info24596_ + (let ((__obj47355 _info24596_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47564 + __obj47355 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47564 + __obj47355 '2 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47564 + __obj47355 'name)))) - (let ((_$tgt24953_ (gx#genident 'e)) - (_getf24955_ (car _fields24893_))) - (let ((__tmp50534 - (let ((__tmp50539 - (let ((__tmp50540 - (let ((__tmp50541 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50542 - (let ((__tmp50543 + (let ((_$tgt24668_ (gx#genident 'e)) + (_getf24670_ (car _fields24608_))) + (let ((__tmp50295 + (let ((__tmp50300 + (let ((__tmp50301 + (let ((__tmp50302 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50303 + (let ((__tmp50304 (let () (declare (not safe)) - (cons _tgt24883_ '())))) + (cons _tgt24598_ '())))) (declare (not safe)) - (cons _getf24955_ __tmp50543)))) + (cons _getf24670_ __tmp50304)))) (declare (not safe)) - (cons __tmp50542 '())))) + (cons __tmp50303 '())))) (declare (not safe)) - (cons _$tgt24953_ __tmp50541)))) + (cons _$tgt24668_ __tmp50302)))) (declare (not safe)) - (cons __tmp50540 '()))) + (cons __tmp50301 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50535 - (let ((__tmp50536 - (let ((__tmp50537 + (__tmp50296 + (let ((__tmp50297 + (let ((__tmp50298 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50538 (cdr _fields24893_))) + (let ((__tmp50299 (cdr _fields24608_))) (declare (not safe)) - (_recur24888_ _L24936_ __tmp50538)))) + (_recur24603_ _L24651_ __tmp50299)))) (declare (not safe)) - (_generate124739_ - _$tgt24953_ - _L24938_ - __tmp50537 - _E24886_)))) + (_generate124454_ + _$tgt24668_ + _L24653_ + __tmp50298 + _E24601_)))) (declare (not safe)) - (cons __tmp50536 '())))) + (cons __tmp50297 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50539 __tmp50535)))) + (cons __tmp50300 __tmp50296)))) (declare (not safe)) - (cons 'let __tmp50534)))))) - (___kont4641346414_ (lambda () _K24885_))) - (if (gx#stx-pair? ___stx4640846409_) - (let ((_e2490224926_ - (gx#syntax-e ___stx4640846409_))) - (let ((_tl2490024933_ + (cons 'let __tmp50295)))))) + (___kont4620546206_ (lambda () _K24600_))) + (if (gx#stx-pair? ___stx4620046201_) + (let ((_e2461724641_ + (gx#syntax-e ___stx4620046201_))) + (let ((_tl2461524648_ (let () (declare (not safe)) - (##cdr _e2490224926_))) - (_hd2490124930_ + (##cdr _e2461724641_))) + (_hd2461624645_ (let () (declare (not safe)) - (##car _e2490224926_)))) - (___kont4641146412_ - _tl2490024933_ - _hd2490124930_))) - (___kont4641346414_))))))) - (_struct-field-accessors24746_ - (lambda (_info24862_) - (let _recur24865_ ((_next24868_ + (##car _e2461724641_)))) + (___kont4620346204_ + _tl2461524648_ + _hd2461624645_))) + (___kont4620546206_))))))) + (_struct-field-accessors24461_ + (lambda (_info24577_) + (let _recur24580_ ((_next24583_ (let () (declare (not safe)) - (cons _info24862_ '())))) - (if (let () (declare (not safe)) (null? _next24868_)) + (cons _info24577_ '())))) + (if (let () (declare (not safe)) (null? _next24583_)) '() - (let ((_ti24871_ (car _next24868_))) - (append (let ((__tmp50544 + (let ((_ti24586_ (car _next24583_))) + (append (let ((__tmp50305 (map gx#syntax-local-value - (let ((__obj47565 _ti24871_)) + (let ((__obj47356 _ti24586_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47565 + __obj47356 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47565 + __obj47356 '3 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47565 + __obj47356 'super)))))) (declare (not safe)) - (_recur24865_ __tmp50544)) - (map (lambda (_slot24874_) - (let ((_$e24877_ - (let ((__tmp50545 - (let ((__obj47566 - _ti24871_)) + (_recur24580_ __tmp50305)) + (map (lambda (_slot24589_) + (let ((_$e24592_ + (let ((__tmp50306 + (let ((__obj47357 + _ti24586_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure-direct-instance-of? - __obj47566 + __obj47357 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47566 + __obj47357 '13 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47566 + __obj47357 'unchecked-accessors))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (assgetq _slot24874_ - __tmp50545)))) - (if _$e24877_ - _$e24877_ + (assgetq _slot24589_ + __tmp50306)))) + (if _$e24592_ + _$e24592_ (gx#raise-syntax-error '#f '"no accessor for struct slot" - _stx24732_ - _info24862_ - _slot24874_)))) - (let ((__obj47567 _ti24871_)) + _stx24447_ + _info24577_ + _slot24589_)))) + (let ((__obj47358 _ti24586_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47567 + __obj47358 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47567 + __obj47358 '4 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47567 + __obj47358 'slots)))))))))) - (_generate-class24747_ - (lambda (_info24855_ - _tgt24857_ - _body24858_ - _K24859_ - _E24860_) - (let ((__tmp50546 - (let ((__tmp50550 - (let ((__tmp50552 - (let ((__obj47568 _info24855_)) + (_generate-class24462_ + (lambda (_info24570_ + _tgt24572_ + _body24573_ + _K24574_ + _E24575_) + (let ((__tmp50307 + (let ((__tmp50311 + (let ((__tmp50313 + (let ((__obj47359 _info24570_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47568 + __obj47359 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47568 + __obj47359 '10 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47568 + __obj47359 'predicate)))) - (__tmp50551 + (__tmp50312 (let () (declare (not safe)) - (cons _tgt24857_ '())))) + (cons _tgt24572_ '())))) (declare (not safe)) - (cons __tmp50552 __tmp50551))) - (__tmp50547 - (let ((__tmp50549 + (cons __tmp50313 __tmp50312))) + (__tmp50308 + (let ((__tmp50310 (let () (declare (not safe)) - (_generate-class-body24748_ - _info24855_ - _tgt24857_ - _body24858_ - _K24859_ - _E24860_))) - (__tmp50548 + (_generate-class-body24463_ + _info24570_ + _tgt24572_ + _body24573_ + _K24574_ + _E24575_))) + (__tmp50309 (let () (declare (not safe)) - (cons _E24860_ '())))) + (cons _E24575_ '())))) (declare (not safe)) - (cons __tmp50549 __tmp50548)))) + (cons __tmp50310 __tmp50309)))) (declare (not safe)) - (cons __tmp50550 __tmp50547)))) + (cons __tmp50311 __tmp50308)))) (declare (not safe)) - (cons 'if __tmp50546)))) - (_generate-class-body24748_ - (lambda (_info24750_ - _tgt24752_ - _body24753_ - _K24754_ - _E24755_) - (let _recur24757_ ((_rest24760_ _body24753_)) - (let* ((___stx4642446425_ _rest24760_) - (_g2476424780_ + (cons 'if __tmp50307)))) + (_generate-class-body24463_ + (lambda (_info24465_ + _tgt24467_ + _body24468_ + _K24469_ + _E24470_) + (let _recur24472_ ((_rest24475_ _body24468_)) + (let* ((___stx4621646217_ _rest24475_) + (_g2447924495_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4642446425_)))) - (let ((___kont4642746428_ - (lambda (_L24818_ _L24820_ _L24821_) - (let ((_$e24841_ - (let ((__tmp50554 + ___stx4621646217_)))) + (let ((___kont4621946220_ + (lambda (_L24533_ _L24535_ _L24536_) + (let ((_$e24556_ + (let ((__tmp50315 (string->symbol (keyword->string - (gx#stx-e _L24821_)))) - (__tmp50553 - (let ((__obj47569 _info24750_)) + (gx#stx-e _L24536_)))) + (__tmp50314 + (let ((__obj47360 _info24465_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47569 + __obj47360 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47569 + __obj47360 '13 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47569 + __obj47360 'unchecked-accessors))))) (declare (not safe)) - (assgetq __tmp50554 __tmp50553)))) - (if _$e24841_ - ((lambda (_getf24845_) - (let* ((_$tgt24848_ (gx#genident 'e)) - (__tmp50555 - (let ((__tmp50559 - (let ((__tmp50560 - (let ((__tmp50561 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50562 - (let ((__tmp50563 + (assgetq __tmp50315 __tmp50314)))) + (if _$e24556_ + ((lambda (_getf24560_) + (let* ((_$tgt24563_ (gx#genident 'e)) + (__tmp50316 + (let ((__tmp50320 + (let ((__tmp50321 + (let ((__tmp50322 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50323 + (let ((__tmp50324 (let () (declare (not safe)) - (cons _tgt24752_ '())))) + (cons _tgt24467_ '())))) (declare (not safe)) - (cons _getf24845_ __tmp50563)))) + (cons _getf24560_ __tmp50324)))) (declare (not safe)) - (cons __tmp50562 '())))) + (cons __tmp50323 '())))) (declare (not safe)) - (cons _$tgt24848_ __tmp50561)))) + (cons _$tgt24563_ __tmp50322)))) (declare (not safe)) - (cons __tmp50560 '()))) - (__tmp50556 - (let ((__tmp50557 - (let ((__tmp50558 + (cons __tmp50321 '()))) + (__tmp50317 + (let ((__tmp50318 + (let ((__tmp50319 (let () (declare (not safe)) - (_recur24757_ _L24818_)))) + (_recur24472_ _L24533_)))) (declare (not safe)) - (_generate124739_ - _$tgt24848_ - _L24820_ - __tmp50558 - _E24755_)))) + (_generate124454_ + _$tgt24563_ + _L24535_ + __tmp50319 + _E24470_)))) (declare (not safe)) - (cons __tmp50557 '())))) + (cons __tmp50318 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50559 - __tmp50556)))) + (cons __tmp50320 + __tmp50317)))) (declare (not safe)) - (cons 'let __tmp50555))) - _$e24841_) + (cons 'let __tmp50316))) + _$e24556_) (gx#raise-syntax-error '#f '"no slot accessor" - _stx24732_ - _info24750_ - _L24821_))))) - (___kont4642946430_ (lambda () _K24754_))) - (if (gx#stx-pair? ___stx4642446425_) - (let ((_e2477124798_ - (gx#syntax-e ___stx4642446425_))) - (let ((_tl2476924805_ + _stx24447_ + _info24465_ + _L24536_))))) + (___kont4622146222_ (lambda () _K24469_))) + (if (gx#stx-pair? ___stx4621646217_) + (let ((_e2448624513_ + (gx#syntax-e ___stx4621646217_))) + (let ((_tl2448424520_ (let () (declare (not safe)) - (##cdr _e2477124798_))) - (_hd2477024802_ + (##cdr _e2448624513_))) + (_hd2448524517_ (let () (declare (not safe)) - (##car _e2477124798_)))) - (if (gx#stx-pair? _tl2476924805_) - (let ((_e2477424808_ - (gx#syntax-e _tl2476924805_))) - (let ((_tl2477224815_ + (##car _e2448624513_)))) + (if (gx#stx-pair? _tl2448424520_) + (let ((_e2448924523_ + (gx#syntax-e _tl2448424520_))) + (let ((_tl2448724530_ (let () (declare (not safe)) - (##cdr _e2477424808_))) - (_hd2477324812_ + (##cdr _e2448924523_))) + (_hd2448824527_ (let () (declare (not safe)) - (##car _e2477424808_)))) - (___kont4642746428_ - _tl2477224815_ - _hd2477324812_ - _hd2477024802_))) - (___kont4642946430_)))) - (___kont4642946430_)))))))) + (##car _e2448924523_)))) + (___kont4621946220_ + _tl2448724530_ + _hd2448824527_ + _hd2448524517_))) + (___kont4622146222_)))) + (___kont4622146222_)))))))) (let () (declare (not safe)) - (_generate124739_ _tgt24734_ _ptree24735_ _K24736_ _E24737_))))) + (_generate124454_ _tgt24449_ _ptree24450_ _K24451_ _E24452_))))) (define |gerbil/core$[1]#generate-match*| - (lambda (_stx23628_ _tgt-lst23630_ _clauses23631_) - (letrec ((_parse-body23633_ - (lambda (_hd-len24554_) - (let _lp24557_ ((_rest24560_ _clauses23631_) - (_r24562_ '())) - (let* ((___stx4647446475_ _rest24560_) - (_g2456524577_ + (lambda (_stx23343_ _tgt-lst23345_ _clauses23346_) + (letrec ((_parse-body23348_ + (lambda (_hd-len24269_) + (let _lp24272_ ((_rest24275_ _clauses23346_) + (_r24277_ '())) + (let* ((___stx4626646267_ _rest24275_) + (_g2428024292_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4647446475_)))) - (let ((___kont4647746478_ - (lambda (_L24605_ _L24607_) - (let* ((___stx4644646447_ _L24607_) - (_g2462424640_ + ___stx4626646267_)))) + (let ((___kont4626946270_ + (lambda (_L24320_ _L24322_) + (let* ((___stx4623846239_ _L24322_) + (_g2433924355_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4644646447_)))) - (let ((___kont4644946450_ - (lambda (_L24709_) - (if (gx#stx-null? _L24605_) - (let ((__tmp50564 - (let ((__tmp50569 + ___stx4623846239_)))) + (let ((___kont4624146242_ + (lambda (_L24424_) + (if (gx#stx-null? _L24320_) + (let ((__tmp50325 + (let ((__tmp50330 (gx#genident 'else)) - (__tmp50565 - (let ((__tmp50566 + (__tmp50326 + (let ((__tmp50327 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50567 + (let ((__tmp50328 (gx#stx-wrap-source - (let ((__tmp50568 + (let ((__tmp50329 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp50568 _L24709_)) - (let ((_$e24720_ - (gx#stx-source _L24607_))) - (if _$e24720_ - _$e24720_ - (gx#stx-source _stx23628_)))))) + (cons __tmp50329 _L24424_)) + (let ((_$e24435_ + (gx#stx-source _L24322_))) + (if _$e24435_ + _$e24435_ + (gx#stx-source _stx23343_)))))) (declare (not safe)) - (cons __tmp50567 '())))) + (cons __tmp50328 '())))) (declare (not safe)) - (cons '#f __tmp50566)))) + (cons '#f __tmp50327)))) (declare (not safe)) - (cons __tmp50569 __tmp50565)))) + (cons __tmp50330 __tmp50326)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50564 _r24562_)) + (cons __tmp50325 _r24277_)) (gx#raise-syntax-error '#f '"bad syntax; misplaced else" - _stx23628_ - _L24607_)))) - (___kont4645146452_ - (lambda (_L24668_ _L24670_) - (let ((__tmp50570 - (let ((__tmp50571 - (let ((__tmp50577 + _stx23343_ + _L24322_)))) + (___kont4624346244_ + (lambda (_L24383_ _L24385_) + (let ((__tmp50331 + (let ((__tmp50332 + (let ((__tmp50338 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#genident 'try-match)) - (__tmp50572 - (let ((__tmp50576 + (__tmp50333 + (let ((__tmp50337 (gx#stx-map - (lambda (_g2468224684_) + (lambda (_g2439724399_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| - _g2468224684_ - _stx23628_))) - _L24670_)) - (__tmp50573 - (let ((__tmp50574 + _g2439724399_ + _stx23343_))) + _L24385_)) + (__tmp50334 + (let ((__tmp50335 (gx#stx-wrap-source - (let ((__tmp50575 + (let ((__tmp50336 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp50575 _L24668_)) - (let ((_$e24688_ - (gx#stx-source _L24607_))) - (if _$e24688_ - _$e24688_ - (gx#stx-source _stx23628_)))))) + (cons __tmp50336 _L24383_)) + (let ((_$e24403_ + (gx#stx-source _L24322_))) + (if _$e24403_ + _$e24403_ + (gx#stx-source _stx23343_)))))) (declare (not safe)) - (cons __tmp50574 '())))) + (cons __tmp50335 '())))) (declare (not safe)) - (cons __tmp50576 __tmp50573)))) + (cons __tmp50337 __tmp50334)))) (declare (not safe)) - (cons __tmp50577 __tmp50572)))) + (cons __tmp50338 __tmp50333)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50571 - _r24562_)))) + (cons __tmp50332 + _r24277_)))) (declare (not safe)) - (_lp24557_ - _L24605_ - __tmp50570)))) - (___kont4645346454_ + (_lp24272_ + _L24320_ + __tmp50331)))) + (___kont4624546246_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _stx23628_ - _L24607_)))) - (let* ((___match4647146472_ - (lambda (_e2463424658_ - _hd2463324662_ - _tl2463224665_) - (let ((_L24668_ _tl2463224665_) - (_L24670_ _hd2463324662_)) + _stx23343_ + _L24322_)))) + (let* ((___match4626346264_ + (lambda (_e2434924373_ + _hd2434824377_ + _tl2434724380_) + (let ((_L24383_ _tl2434724380_) + (_L24385_ _hd2434824377_)) (if (and (gx#stx-list? - _L24670_) + _L24385_) (fx= (gx#stx-length - _L24670_) - _hd-len24554_) + _L24385_) + _hd-len24269_) (gx#stx-list? - _L24668_) - (let ((__tmp50578 + _L24383_) + (let ((__tmp50339 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-null? _L24668_))) + (gx#stx-null? _L24383_))) (declare (not safe)) - (not __tmp50578))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4645146452_ - _L24668_ - _L24670_) - (___kont4645346454_))))) - (___match4646546466_ - (lambda (_e2462924699_ - _hd2462824703_ - _tl2462724706_) - (let ((_L24709_ _tl2462724706_)) + (not __tmp50339))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4624346244_ + _L24383_ + _L24385_) + (___kont4624546246_))))) + (___match4625746258_ + (lambda (_e2434424414_ + _hd2434324418_ + _tl2434224421_) + (let ((_L24424_ _tl2434224421_)) (if (and (gx#stx-list? - _L24709_) - (let ((__tmp50579 + _L24424_) + (let ((__tmp50340 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-null? _L24709_))) + (gx#stx-null? _L24424_))) (declare (not safe)) - (not __tmp50579))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4644946450_ - _L24709_) - (___match4647146472_ - _e2462924699_ - _hd2462824703_ - _tl2462724706_)))))) - (if (gx#stx-pair? ___stx4644646447_) - (let ((_e2462924699_ + (not __tmp50340))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4624146242_ + _L24424_) + (___match4626346264_ + _e2434424414_ + _hd2434324418_ + _tl2434224421_)))))) + (if (gx#stx-pair? ___stx4623846239_) + (let ((_e2434424414_ (gx#syntax-e - ___stx4644646447_))) - (let ((_tl2462724706_ + ___stx4623846239_))) + (let ((_tl2434224421_ (let () (declare (not safe)) - (##cdr _e2462924699_))) - (_hd2462824703_ + (##cdr _e2434424414_))) + (_hd2434324418_ (let () (declare (not safe)) - (##car _e2462924699_)))) + (##car _e2434424414_)))) (if (gx#identifier? - _hd2462824703_) + _hd2434324418_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50580_| - _hd2462824703_) - (___match4646546466_ - _e2462924699_ - _hd2462824703_ - _tl2462724706_) - (___match4647146472_ - _e2462924699_ - _hd2462824703_ - _tl2462724706_)) - (___match4647146472_ - _e2462924699_ - _hd2462824703_ - _tl2462724706_)))) - (___kont4645346454_))))))) - (___kont4647946480_ (lambda () _r24562_))) - (if (gx#stx-pair? ___stx4647446475_) - (let ((_e2457124595_ - (gx#syntax-e ___stx4647446475_))) - (let ((_tl2456924602_ + |gerbil/core$[1]#_g50341_| + _hd2434324418_) + (___match4625746258_ + _e2434424414_ + _hd2434324418_ + _tl2434224421_) + (___match4626346264_ + _e2434424414_ + _hd2434324418_ + _tl2434224421_)) + (___match4626346264_ + _e2434424414_ + _hd2434324418_ + _tl2434224421_)))) + (___kont4624546246_))))))) + (___kont4627146272_ (lambda () _r24277_))) + (if (gx#stx-pair? ___stx4626646267_) + (let ((_e2428624310_ + (gx#syntax-e ___stx4626646267_))) + (let ((_tl2428424317_ (let () (declare (not safe)) - (##cdr _e2457124595_))) - (_hd2457024599_ + (##cdr _e2428624310_))) + (_hd2428524314_ (let () (declare (not safe)) - (##car _e2457124595_)))) - (___kont4647746478_ - _tl2456924602_ - _hd2457024599_))) - (___kont4647946480_))))))) - (_generate-body23635_ - (lambda (_body24339_) - (let* ((_g2434224350_ - (lambda (_g2434324346_) + (##car _e2428624310_)))) + (___kont4626946270_ + _tl2428424317_ + _hd2428524314_))) + (___kont4627146272_))))))) + (_generate-body23350_ + (lambda (_body24054_) + (let* ((_g2405724065_ + (lambda (_g2405824061_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2434324346_))) - (_g2434124550_ - (lambda (_g2434324354_) - ((lambda (_L24357_) + _g2405824061_))) + (_g2405624265_ + (lambda (_g2405824069_) + ((lambda (_L24072_) (let () - (let* ((_g2436924386_ - (lambda (_g2437024382_) + (let* ((_g2408424101_ + (lambda (_g2408524097_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2437024382_))) - (_g2436824546_ - (lambda (_g2437024390_) + _g2408524097_))) + (_g2408324261_ + (lambda (_g2408524105_) (if (gx#stx-pair/null? - _g2437024390_) - (let ((_g50581_ + _g2408524105_) + (let ((_g50342_ (gx#syntax-split-splice - _g2437024390_ + _g2408524105_ '0))) (begin - (let ((_g50582_ + (let ((_g50343_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50581_) - (##vector-length _g50581_) + _g50342_) + (##vector-length _g50342_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50582_ 2))) - (error "Context expects 2 values" _g50582_))) + (if (not (let () (declare (not safe)) (##fx= _g50343_ 2))) + (error "Context expects 2 values" _g50343_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target2437224393_ + (let ((_target2408724108_ (let () (declare (not safe)) (##vector-ref - _g50581_ + _g50342_ 0))) - (_tl2437424396_ + (_tl2408924111_ (let () (declare (not safe)) (##vector-ref - _g50581_ + _g50342_ 1)))) (if (gx#stx-null? - _tl2437424396_) - (letrec ((_loop2437524399_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd2437324403_ _target2437924406_) - (if (gx#stx-pair? _hd2437324403_) - (let ((_e2437624409_ - (gx#syntax-e _hd2437324403_))) - (let ((_lp-hd2437724413_ + _tl2408924111_) + (letrec ((_loop2409024114_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd2408824118_ _target2409424121_) + (if (gx#stx-pair? _hd2408824118_) + (let ((_e2409124124_ + (gx#syntax-e _hd2408824118_))) + (let ((_lp-hd2409224128_ (let () (declare (not safe)) - (##car _e2437624409_))) - (_lp-tl2437824416_ + (##car _e2409124124_))) + (_lp-tl2409324131_ (let () (declare (not safe)) - (##cdr _e2437624409_)))) - (let ((__tmp50605 + (##cdr _e2409124124_)))) + (let ((__tmp50366 (let () (declare (not safe)) - (cons _lp-hd2437724413_ - _target2437924406_)))) + (cons _lp-hd2409224128_ + _target2409424121_)))) (declare (not safe)) - (_loop2437524399_ - _lp-tl2437824416_ - __tmp50605)))) - (let ((_target2438024419_ - (reverse _target2437924406_))) - ((lambda (_L24423_) + (_loop2409024114_ + _lp-tl2409324131_ + __tmp50366)))) + (let ((_target2409524134_ + (reverse _target2409424121_))) + ((lambda (_L24138_) (let () - (let* ((_g2444024448_ - (lambda (_g2444124444_) + (let* ((_g2415524163_ + (lambda (_g2415624159_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2444124444_))) - (_g2443924534_ - (lambda (_g2444124452_) - ((lambda (_L24455_) + _g2415624159_))) + (_g2415424249_ + (lambda (_g2415624167_) + ((lambda (_L24170_) (let () - (let* ((_g2446824476_ + (let* ((_g2418324191_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2446924472_) + (lambda (_g2418424187_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2446924472_))) - (_g2446724530_ - (lambda (_g2446924480_) - ((lambda (_L24483_) + _g2418424187_))) + (_g2418224245_ + (lambda (_g2418424195_) + ((lambda (_L24198_) (let () - (let* ((_g2449624504_ - (lambda (_g2449724500_) + (let* ((_g2421124219_ + (lambda (_g2421224215_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2449724500_))) - (_g2449524526_ - (lambda (_g2449724508_) - ((lambda (_L24511_) + _g2421224215_))) + (_g2421024241_ + (lambda (_g2421224223_) + ((lambda (_L24226_) (let () (let () - (let ((__tmp50586 + (let ((__tmp50347 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp50583 - (let ((__tmp50585 + (__tmp50344 + (let ((__tmp50346 (gx#datum->syntax '#f '@match)) - (__tmp50584 + (__tmp50345 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L24511_ '())))) + (cons _L24226_ '())))) (declare (not safe)) - (cons __tmp50585 __tmp50584)))) + (cons __tmp50346 __tmp50345)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50586 - __tmp50583))))) - _g2449724508_))) - (__tmp50587 + (cons __tmp50347 + __tmp50344))))) + _g2421224223_))) + (__tmp50348 (gx#stx-wrap-source - (let ((__tmp50593 + (let ((__tmp50354 (gx#datum->syntax '#f 'let)) - (__tmp50588 - (let ((__tmp50590 - (let ((__tmp50591 - (let ((__tmp50592 + (__tmp50349 + (let ((__tmp50351 + (let ((__tmp50352 + (let ((__tmp50353 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L24455_ '())))) + (cons _L24170_ '())))) (declare (not safe)) - (cons _L24357_ __tmp50592)))) + (cons _L24072_ __tmp50353)))) (declare (not safe)) - (cons __tmp50591 '()))) - (__tmp50589 (let () (declare (not safe)) (cons _L24483_ '())))) + (cons __tmp50352 '()))) + (__tmp50350 (let () (declare (not safe)) (cons _L24198_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50590 - __tmp50589)))) + (cons __tmp50351 + __tmp50350)))) (declare (not safe)) - (cons __tmp50593 __tmp50588)) - (gx#stx-source _stx23628_)))) + (cons __tmp50354 __tmp50349)) + (gx#stx-source _stx23343_)))) (declare (not safe)) - (_g2449524526_ __tmp50587)))) - _g2446924480_))) - (__tmp50594 - (let ((__tmp50595 + (_g2421024241_ __tmp50348)))) + _g2418424195_))) + (__tmp50355 + (let ((__tmp50356 (let () (declare (not safe)) - (cons _L24357_ '())))) + (cons _L24072_ '())))) (declare (not safe)) - (_generate-clauses23636_ _body24339_ __tmp50595)))) + (_generate-clauses23351_ _body24054_ __tmp50356)))) (declare (not safe)) - (_g2446724530_ __tmp50594)))) + (_g2418224245_ __tmp50355)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2444124452_))) - (__tmp50596 + _g2415624167_))) + (__tmp50357 (gx#stx-wrap-source - (let ((__tmp50604 + (let ((__tmp50365 (gx#datum->syntax '#f 'lambda)) - (__tmp50597 - (let ((__tmp50598 + (__tmp50358 + (let ((__tmp50359 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50599 - (let ((__tmp50603 + (let ((__tmp50360 + (let ((__tmp50364 (gx#datum->syntax '#f 'error)) - (__tmp50600 - (let ((__tmp50601 - (let ((__tmp50602 - (lambda (_g2453724540_ - _g2453824543_) + (__tmp50361 + (let ((__tmp50362 + (let ((__tmp50363 + (lambda (_g2425224255_ + _g2425324258_) (let () (declare (not safe)) - (cons _g2453724540_ - _g2453824543_))))) + (cons _g2425224255_ + _g2425324258_))))) (declare (not safe)) - (foldr1 __tmp50602 + (foldr1 __tmp50363 '() - _L24423_)))) + _L24138_)))) (declare (not safe)) (cons '"No clause matching" - __tmp50601)))) + __tmp50362)))) (declare (not safe)) - (cons __tmp50603 __tmp50600)))) + (cons __tmp50364 __tmp50361)))) (declare (not safe)) - (cons __tmp50599 '())))) + (cons __tmp50360 '())))) (declare (not safe)) - (cons '() __tmp50598)))) + (cons '() __tmp50359)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50604 - __tmp50597)) + (cons __tmp50365 + __tmp50358)) (gx#stx-source - _stx23628_)))) + _stx23343_)))) (declare (not safe)) - (_g2443924534_ __tmp50596)))) - _target2438024419_)))))) + (_g2415424249_ __tmp50357)))) + _target2409524134_)))))) (let () (declare (not safe)) - (_loop2437524399_ _target2437224393_ '()))) + (_loop2409024114_ _target2408724108_ '()))) (let () (declare (not safe)) - (_g2436924386_ _g2437024390_)))))) + (_g2408424101_ _g2408524105_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2436924386_ - _g2437024390_)))))) + (_g2408424101_ + _g2408524105_)))))) (declare (not safe)) - (_g2436824546_ _tgt-lst23630_)))) - _g2434324354_))) - (__tmp50606 (gx#genident 'E))) + (_g2408324261_ _tgt-lst23345_)))) + _g2405824069_))) + (__tmp50367 (gx#genident 'E))) (declare (not safe)) - (_g2434124550_ __tmp50606)))) - (_generate-clauses23636_ - (lambda (_rest23991_ _E23993_) - (let* ((___stx4649046491_ _rest23991_) - (_g2399724013_ + (_g2405624265_ __tmp50367)))) + (_generate-clauses23351_ + (lambda (_rest23706_ _E23708_) + (let* ((___stx4628246283_ _rest23706_) + (_g2371223728_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4649046491_)))) - (let ((___kont4649346494_ - (lambda (_L24247_) - (let* ((_g2425824276_ - (lambda (_g2425924272_) + ___stx4628246283_)))) + (let ((___kont4628546286_ + (lambda (_L23962_) + (let* ((_g2397323991_ + (lambda (_g2397423987_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2425924272_))) - (_g2425724331_ - (lambda (_g2425924280_) - (if (gx#stx-pair? _g2425924280_) - (let ((_e2426424283_ + _g2397423987_))) + (_g2397224046_ + (lambda (_g2397423995_) + (if (gx#stx-pair? _g2397423995_) + (let ((_e2397923998_ (gx#syntax-e - _g2425924280_))) - (let ((_hd2426324287_ + _g2397423995_))) + (let ((_hd2397824002_ (let () (declare (not safe)) - (##car _e2426424283_))) - (_tl2426224290_ + (##car _e2397923998_))) + (_tl2397724005_ (let () (declare (not safe)) - (##cdr _e2426424283_)))) + (##cdr _e2397923998_)))) (if (gx#stx-pair? - _tl2426224290_) - (let ((_e2426724293_ + _tl2397724005_) + (let ((_e2398224008_ (gx#syntax-e - _tl2426224290_))) - (let ((_hd2426624297_ + _tl2397724005_))) + (let ((_hd2398124012_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e2426724293_))) - (_tl2426524300_ - (let () (declare (not safe)) (##cdr _e2426724293_)))) - (if (gx#stx-pair? _tl2426524300_) - (let ((_e2427024303_ (gx#syntax-e _tl2426524300_))) - (let ((_hd2426924307_ + (##car _e2398224008_))) + (_tl2398024015_ + (let () (declare (not safe)) (##cdr _e2398224008_)))) + (if (gx#stx-pair? _tl2398024015_) + (let ((_e2398524018_ (gx#syntax-e _tl2398024015_))) + (let ((_hd2398424022_ (let () (declare (not safe)) - (##car _e2427024303_))) - (_tl2426824310_ + (##car _e2398524018_))) + (_tl2398324025_ (let () (declare (not safe)) - (##cdr _e2427024303_)))) - (if (gx#stx-null? _tl2426824310_) - ((lambda (_L24313_ _L24315_) - (let ((__tmp50607 - (let ((__tmp50608 - (let ((__tmp50609 - (if (gx#stx-e _L24315_) + (##cdr _e2398524018_)))) + (if (gx#stx-null? _tl2398324025_) + ((lambda (_L24028_ _L24030_) + (let ((__tmp50368 + (let ((__tmp50369 + (let ((__tmp50370 + (if (gx#stx-e _L24030_) (let () (declare (not safe)) - (_generate123637_ - _L24315_ - _L24313_ - _E23993_)) - _L24313_))) + (_generate123352_ + _L24030_ + _L24028_ + _E23708_)) + _L24028_))) (declare (not safe)) - (cons __tmp50609 '())))) + (cons __tmp50370 '())))) (declare (not safe)) - (cons '@match-body __tmp50608)))) + (cons '@match-body __tmp50369)))) (declare (not safe)) - (cons 'begin-annotation __tmp50607))) - _hd2426924307_ - _hd2426624297_) + (cons 'begin-annotation __tmp50368))) + _hd2398424022_ + _hd2398124012_) (let () (declare (not safe)) - (_g2425824276_ _g2425924280_))))) + (_g2397323991_ _g2397423995_))))) (let () (declare (not safe)) - (_g2425824276_ _g2425924280_))))) + (_g2397323991_ _g2397423995_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2425824276_ - _g2425924280_))))) + (_g2397323991_ + _g2397423995_))))) (let () (declare (not safe)) - (_g2425824276_ - _g2425924280_)))))) + (_g2397323991_ + _g2397423995_)))))) (declare (not safe)) - (_g2425724331_ _L24247_)))) - (___kont4649546496_ - (lambda (_L24041_ _L24043_) - (let* ((_g2405624075_ - (lambda (_g2405724071_) + (_g2397224046_ _L23962_)))) + (___kont4628746288_ + (lambda (_L23756_ _L23758_) + (let* ((_g2377123790_ + (lambda (_g2377223786_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2405724071_))) - (_g2405524226_ - (lambda (_g2405724079_) - (if (gx#stx-pair? _g2405724079_) - (let ((_e2406324082_ + _g2377223786_))) + (_g2377023941_ + (lambda (_g2377223794_) + (if (gx#stx-pair? _g2377223794_) + (let ((_e2377823797_ (gx#syntax-e - _g2405724079_))) - (let ((_hd2406224086_ + _g2377223794_))) + (let ((_hd2377723801_ (let () (declare (not safe)) - (##car _e2406324082_))) - (_tl2406124089_ + (##car _e2377823797_))) + (_tl2377623804_ (let () (declare (not safe)) - (##cdr _e2406324082_)))) + (##cdr _e2377823797_)))) (if (gx#stx-pair? - _tl2406124089_) - (let ((_e2406624092_ + _tl2377623804_) + (let ((_e2378123807_ (gx#syntax-e - _tl2406124089_))) - (let ((_hd2406524096_ + _tl2377623804_))) + (let ((_hd2378023811_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e2406624092_))) - (_tl2406424099_ - (let () (declare (not safe)) (##cdr _e2406624092_)))) - (if (gx#stx-pair? _tl2406424099_) - (let ((_e2406924102_ (gx#syntax-e _tl2406424099_))) - (let ((_hd2406824106_ + (##car _e2378123807_))) + (_tl2377923814_ + (let () (declare (not safe)) (##cdr _e2378123807_)))) + (if (gx#stx-pair? _tl2377923814_) + (let ((_e2378423817_ (gx#syntax-e _tl2377923814_))) + (let ((_hd2378323821_ (let () (declare (not safe)) - (##car _e2406924102_))) - (_tl2406724109_ + (##car _e2378423817_))) + (_tl2378223824_ (let () (declare (not safe)) - (##cdr _e2406924102_)))) - (if (gx#stx-null? _tl2406724109_) - ((lambda (_L24112_ _L24114_ _L24115_) - (if (gx#stx-e _L24114_) - (let* ((_g2413224147_ - (lambda (_g2413324143_) + (##cdr _e2378423817_)))) + (if (gx#stx-null? _tl2378223824_) + ((lambda (_L23827_ _L23829_ _L23830_) + (if (gx#stx-e _L23829_) + (let* ((_g2384723862_ + (lambda (_g2384823858_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2413324143_))) - (_g2413124192_ - (lambda (_g2413324151_) - (if (gx#stx-pair? _g2413324151_) - (let ((_e2413824154_ + _g2384823858_))) + (_g2384623907_ + (lambda (_g2384823866_) + (if (gx#stx-pair? _g2384823866_) + (let ((_e2385323869_ (gx#syntax-e - _g2413324151_))) - (let ((_hd2413724158_ + _g2384823866_))) + (let ((_hd2385223873_ (let () (declare (not safe)) - (##car _e2413824154_))) - (_tl2413624161_ + (##car _e2385323869_))) + (_tl2385123876_ (let () (declare (not safe)) - (##cdr _e2413824154_)))) + (##cdr _e2385323869_)))) (if (gx#stx-pair? - _tl2413624161_) - (let ((_e2414124164_ + _tl2385123876_) + (let ((_e2385623879_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2413624161_))) - (let ((_hd2414024168_ - (let () (declare (not safe)) (##car _e2414124164_))) - (_tl2413924171_ + (gx#syntax-e _tl2385123876_))) + (let ((_hd2385523883_ + (let () (declare (not safe)) (##car _e2385623879_))) + (_tl2385423886_ (let () (declare (not safe)) - (##cdr _e2414124164_)))) - (if (gx#stx-null? _tl2413924171_) - ((lambda (_L24174_ _L24176_) + (##cdr _e2385623879_)))) + (if (gx#stx-null? _tl2385423886_) + ((lambda (_L23889_ _L23891_) (let () - (let ((__tmp50636 (gx#datum->syntax '#f 'let)) - (__tmp50627 - (let ((__tmp50629 - (let ((__tmp50630 - (let ((__tmp50631 - (let ((__tmp50632 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50635 (gx#datum->syntax '#f 'lambda)) - (__tmp50633 - (let ((__tmp50634 + (let ((__tmp50397 (gx#datum->syntax '#f 'let)) + (__tmp50388 + (let ((__tmp50390 + (let ((__tmp50391 + (let ((__tmp50392 + (let ((__tmp50393 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50396 (gx#datum->syntax '#f 'lambda)) + (__tmp50394 + (let ((__tmp50395 (let () (declare (not safe)) - (cons _L24176_ '())))) + (cons _L23891_ '())))) (declare (not safe)) - (cons '() __tmp50634)))) + (cons '() __tmp50395)))) (declare (not safe)) - (cons __tmp50635 __tmp50633)))) + (cons __tmp50396 __tmp50394)))) (declare (not safe)) - (cons __tmp50632 '())))) + (cons __tmp50393 '())))) (declare (not safe)) - (cons _L24115_ __tmp50631)))) + (cons _L23830_ __tmp50392)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50630 '()))) - (__tmp50628 + (cons __tmp50391 '()))) + (__tmp50389 (let () (declare (not safe)) - (cons _L24174_ '())))) + (cons _L23889_ '())))) (declare (not safe)) - (cons __tmp50629 __tmp50628)))) + (cons __tmp50390 __tmp50389)))) (declare (not safe)) - (cons __tmp50636 __tmp50627)))) - _hd2414024168_ - _hd2413724158_) + (cons __tmp50397 __tmp50388)))) + _hd2385523883_ + _hd2385223873_) (let () (declare (not safe)) - (_g2413224147_ _g2413324151_))))) + (_g2384723862_ _g2384823866_))))) (let () (declare (not safe)) - (_g2413224147_ _g2413324151_))))) + (_g2384723862_ _g2384823866_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2413224147_ - _g2413324151_))))) - (__tmp50637 + (_g2384723862_ + _g2384823866_))))) + (__tmp50398 (list (let () (declare (not safe)) - (_generate123637_ - _L24114_ - _L24112_ - _E23993_)) - (let ((__tmp50638 + (_generate123352_ + _L23829_ + _L23827_ + _E23708_)) + (let ((__tmp50399 (let () (declare (not safe)) - (cons _L24115_ + (cons _L23830_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_generate-clauses23636_ - _L24041_ - __tmp50638))))) + (_generate-clauses23351_ + _L23756_ + __tmp50399))))) (declare (not safe)) - (_g2413124192_ __tmp50637)) - (let* ((_g2419624204_ - (lambda (_g2419724200_) + (_g2384623907_ __tmp50398)) + (let* ((_g2391123919_ + (lambda (_g2391223915_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2419724200_))) - (_g2419524222_ - (lambda (_g2419724208_) - ((lambda (_L24211_) + _g2391223915_))) + (_g2391023937_ + (lambda (_g2391223923_) + ((lambda (_L23926_) (let () - (let ((__tmp50624 + (let ((__tmp50385 (gx#datum->syntax '#f 'let)) - (__tmp50610 - (let ((__tmp50612 + (__tmp50371 + (let ((__tmp50373 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50613 - (let ((__tmp50614 - (let ((__tmp50615 - (let ((__tmp50623 + (let ((__tmp50374 + (let ((__tmp50375 + (let ((__tmp50376 + (let ((__tmp50384 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp50616 - (let ((__tmp50622 + (__tmp50377 + (let ((__tmp50383 (gx#datum->syntax '#f '@match-else)) - (__tmp50617 - (let ((__tmp50618 + (__tmp50378 + (let ((__tmp50379 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50621 (gx#datum->syntax '#f 'lambda)) - (__tmp50619 - (let ((__tmp50620 + (let ((__tmp50382 (gx#datum->syntax '#f 'lambda)) + (__tmp50380 + (let ((__tmp50381 (let () (declare (not safe)) - (cons _L24112_ '())))) + (cons _L23827_ '())))) (declare (not safe)) - (cons '() __tmp50620)))) + (cons '() __tmp50381)))) (declare (not safe)) - (cons __tmp50621 __tmp50619)))) + (cons __tmp50382 __tmp50380)))) (declare (not safe)) - (cons __tmp50618 '())))) + (cons __tmp50379 '())))) (declare (not safe)) - (cons __tmp50622 __tmp50617)))) + (cons __tmp50383 __tmp50378)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50623 __tmp50616)))) + (cons __tmp50384 __tmp50377)))) (declare (not safe)) - (cons __tmp50615 '())))) + (cons __tmp50376 '())))) (declare (not safe)) - (cons _L24115_ __tmp50614)))) + (cons _L23830_ __tmp50375)))) (declare (not safe)) - (cons __tmp50613 '()))) - (__tmp50611 - (let () (declare (not safe)) (cons _L24211_ '())))) + (cons __tmp50374 '()))) + (__tmp50372 + (let () (declare (not safe)) (cons _L23926_ '())))) (declare (not safe)) - (cons __tmp50612 __tmp50611)))) + (cons __tmp50373 __tmp50372)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50624 - __tmp50610)))) - _g2419724208_))) - (__tmp50625 - (let ((__tmp50626 + (cons __tmp50385 + __tmp50371)))) + _g2391223923_))) + (__tmp50386 + (let ((__tmp50387 (let () (declare (not safe)) - (cons _L24115_ '())))) + (cons _L23830_ '())))) (declare (not safe)) - (_generate-clauses23636_ - _L24041_ - __tmp50626)))) + (_generate-clauses23351_ + _L23756_ + __tmp50387)))) (declare (not safe)) - (_g2419524222_ __tmp50625)))) - _hd2406824106_ - _hd2406524096_ - _hd2406224086_) + (_g2391023937_ __tmp50386)))) + _hd2378323821_ + _hd2378023811_ + _hd2377723801_) (let () (declare (not safe)) - (_g2405624075_ _g2405724079_))))) + (_g2377123790_ _g2377223794_))))) (let () (declare (not safe)) - (_g2405624075_ _g2405724079_))))) + (_g2377123790_ _g2377223794_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2405624075_ - _g2405724079_))))) + (_g2377123790_ + _g2377223794_))))) (let () (declare (not safe)) - (_g2405624075_ - _g2405724079_)))))) + (_g2377123790_ + _g2377223794_)))))) (declare (not safe)) - (_g2405524226_ _L24043_)))) - (___kont4649746498_ + (_g2377023941_ _L23758_)))) + (___kont4628946290_ (lambda () - (let ((__tmp50639 - (let ((__tmp50640 + (let ((__tmp50400 + (let ((__tmp50401 (let () (declare (not safe)) - (cons _E23993_ '())))) + (cons _E23708_ '())))) (declare (not safe)) - (cons '@match-body __tmp50640)))) + (cons '@match-body __tmp50401)))) (declare (not safe)) - (cons 'begin-annotation __tmp50639))))) - (if (gx#stx-pair? ___stx4649046491_) - (let ((_e2400224237_ - (gx#syntax-e ___stx4649046491_))) - (let ((_tl2400024244_ + (cons 'begin-annotation __tmp50400))))) + (if (gx#stx-pair? ___stx4628246283_) + (let ((_e2371723952_ + (gx#syntax-e ___stx4628246283_))) + (let ((_tl2371523959_ (let () (declare (not safe)) - (##cdr _e2400224237_))) - (_hd2400124241_ + (##cdr _e2371723952_))) + (_hd2371623956_ (let () (declare (not safe)) - (##car _e2400224237_)))) - (if (gx#stx-null? _tl2400024244_) - (___kont4649346494_ _hd2400124241_) - (___kont4649546496_ - _tl2400024244_ - _hd2400124241_)))) - (___kont4649746498_)))))) - (_generate123637_ - (lambda (_clause23639_ _body23641_ _E23642_) - (let* ((_g2364423668_ - (lambda (_g2364523664_) + (##car _e2371723952_)))) + (if (gx#stx-null? _tl2371523959_) + (___kont4628546286_ _hd2371623956_) + (___kont4628746288_ + _tl2371523959_ + _hd2371623956_)))) + (___kont4628946290_)))))) + (_generate123352_ + (lambda (_clause23354_ _body23356_ _E23357_) + (let* ((_g2335923383_ + (lambda (_g2336023379_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2364523664_))) - (_g2364323987_ - (lambda (_g2364523672_) - (if (gx#stx-pair? _g2364523672_) - (let ((_e2365023675_ - (gx#syntax-e _g2364523672_))) - (let ((_hd2364923679_ + _g2336023379_))) + (_g2335823702_ + (lambda (_g2336023387_) + (if (gx#stx-pair? _g2336023387_) + (let ((_e2336523390_ + (gx#syntax-e _g2336023387_))) + (let ((_hd2336423394_ (let () (declare (not safe)) - (##car _e2365023675_))) - (_tl2364823682_ + (##car _e2336523390_))) + (_tl2336323397_ (let () (declare (not safe)) - (##cdr _e2365023675_)))) - (if (gx#stx-pair? _tl2364823682_) - (let ((_e2365323685_ - (gx#syntax-e _tl2364823682_))) - (let ((_hd2365223689_ + (##cdr _e2336523390_)))) + (if (gx#stx-pair? _tl2336323397_) + (let ((_e2336823400_ + (gx#syntax-e _tl2336323397_))) + (let ((_hd2336723404_ (let () (declare (not safe)) - (##car _e2365323685_))) - (_tl2365123692_ + (##car _e2336823400_))) + (_tl2336623407_ (let () (declare (not safe)) - (##cdr _e2365323685_)))) + (##cdr _e2336823400_)))) (if (gx#stx-pair/null? - _hd2365223689_) - (let ((_g50641_ + _hd2336723404_) + (let ((_g50402_ (gx#syntax-split-splice - _hd2365223689_ + _hd2336723404_ '0))) (begin - (let ((_g50642_ + (let ((_g50403_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g50641_) - (##vector-length _g50641_) + (if (##values? _g50402_) + (##vector-length _g50402_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50642_ 2))) - (error "Context expects 2 values" _g50642_))) - (let ((_target2365423695_ - (let () (declare (not safe)) (##vector-ref _g50641_ 0))) - (_tl2365623698_ - (let () (declare (not safe)) (##vector-ref _g50641_ 1)))) - (if (gx#stx-null? _tl2365623698_) - (letrec ((_loop2365723701_ - (lambda (_hd2365523705_ _var2366123708_) - (if (gx#stx-pair? _hd2365523705_) - (let ((_e2365823711_ - (gx#syntax-e _hd2365523705_))) - (let ((_lp-hd2365923715_ + (if (not (let () (declare (not safe)) (##fx= _g50403_ 2))) + (error "Context expects 2 values" _g50403_))) + (let ((_target2336923410_ + (let () (declare (not safe)) (##vector-ref _g50402_ 0))) + (_tl2337123413_ + (let () (declare (not safe)) (##vector-ref _g50402_ 1)))) + (if (gx#stx-null? _tl2337123413_) + (letrec ((_loop2337223416_ + (lambda (_hd2337023420_ _var2337623423_) + (if (gx#stx-pair? _hd2337023420_) + (let ((_e2337323426_ + (gx#syntax-e _hd2337023420_))) + (let ((_lp-hd2337423430_ (let () (declare (not safe)) - (##car _e2365823711_))) - (_lp-tl2366023718_ + (##car _e2337323426_))) + (_lp-tl2337523433_ (let () (declare (not safe)) - (##cdr _e2365823711_)))) - (let ((__tmp50659 + (##cdr _e2337323426_)))) + (let ((__tmp50420 (let () (declare (not safe)) - (cons _lp-hd2365923715_ - _var2366123708_)))) + (cons _lp-hd2337423430_ + _var2337623423_)))) (declare (not safe)) - (_loop2365723701_ - _lp-tl2366023718_ - __tmp50659)))) - (let ((_var2366223721_ - (reverse _var2366123708_))) - (if (gx#stx-null? _tl2365123692_) - ((lambda (_L23725_ _L23727_) + (_loop2337223416_ + _lp-tl2337523433_ + __tmp50420)))) + (let ((_var2337723436_ + (reverse _var2337623423_))) + (if (gx#stx-null? _tl2336623407_) + ((lambda (_L23440_ _L23442_) (let () (gx#check-duplicate-identifiers - (let ((__tmp50643 - (lambda (_g2374823751_ - _g2374923754_) + (let ((__tmp50404 + (lambda (_g2346323466_ + _g2346423469_) (let () (declare (not safe)) - (cons _g2374823751_ + (cons _g2346323466_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2374923754_))))) + _g2346423469_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp50643 + (foldr1 __tmp50404 '() - _L23725_)) - _stx23628_) - (let* ((_g2375723765_ - (lambda (_g2375823761_) + _L23440_)) + _stx23343_) + (let* ((_g2347223480_ + (lambda (_g2347323476_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2375823761_))) - (_g2375623859_ - (lambda (_g2375823769_) - ((lambda (_L23772_) + _g2347323476_))) + (_g2347123574_ + (lambda (_g2347323484_) + ((lambda (_L23487_) (let () - (let* ((_g2378523793_ + (let* ((_g2350023508_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2378623789_) + (lambda (_g2350123504_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2378623789_))) - (_g2378423855_ - (lambda (_g2378623797_) - ((lambda (_L23800_) + _g2350123504_))) + (_g2349923570_ + (lambda (_g2350123512_) + ((lambda (_L23515_) (let () - (let* ((_g2381323821_ - (lambda (_g2381423817_) + (let* ((_g2352823536_ + (lambda (_g2352923532_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2381423817_))) - (_g2381223843_ - (lambda (_g2381423825_) - ((lambda (_L23828_) + _g2352923532_))) + (_g2352723558_ + (lambda (_g2352923540_) + ((lambda (_L23543_) (let () (let () (gx#stx-wrap-source - (let ((__tmp50648 + (let ((__tmp50409 (gx#datum->syntax '#f 'let)) - (__tmp50644 - (let ((__tmp50646 + (__tmp50405 + (let ((__tmp50407 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50647 + (let ((__tmp50408 (let () (declare (not safe)) - (cons _L23828_ '())))) + (cons _L23543_ '())))) (declare (not safe)) - (cons _L23727_ __tmp50647))) - (__tmp50645 + (cons _L23442_ __tmp50408))) + (__tmp50406 (let () (declare (not safe)) - (cons _L23772_ '())))) + (cons _L23487_ '())))) (declare (not safe)) - (cons __tmp50646 __tmp50645)))) + (cons __tmp50407 __tmp50406)))) (declare (not safe)) - (cons __tmp50648 __tmp50644)) - (gx#stx-source _stx23628_))))) + (cons __tmp50409 __tmp50405)) + (gx#stx-source _stx23343_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2381423825_))) - (__tmp50649 + _g2352923540_))) + (__tmp50410 (gx#stx-wrap-source - (let ((__tmp50654 + (let ((__tmp50415 (gx#datum->syntax '#f 'lambda)) - (__tmp50650 - (let ((__tmp50652 - (let ((__tmp50653 + (__tmp50411 + (let ((__tmp50413 + (let ((__tmp50414 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2384623849_ _g2384723852_) + (lambda (_g2356123564_ _g2356223567_) (let () (declare (not safe)) - (cons _g2384623849_ _g2384723852_))))) + (cons _g2356123564_ _g2356223567_))))) (declare (not safe)) - (foldr1 __tmp50653 '() _L23725_))) - (__tmp50651 - (let () (declare (not safe)) (cons _L23800_ '())))) + (foldr1 __tmp50414 '() _L23440_))) + (__tmp50412 + (let () (declare (not safe)) (cons _L23515_ '())))) (declare (not safe)) - (cons __tmp50652 __tmp50651)))) + (cons __tmp50413 __tmp50412)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50654 __tmp50650)) - (gx#stx-source _stx23628_)))) + (cons __tmp50415 __tmp50411)) + (gx#stx-source _stx23343_)))) (declare (not safe)) - (_g2381223843_ __tmp50649)))) - _g2378623797_)))) + (_g2352723558_ __tmp50410)))) + _g2350123512_)))) (declare (not safe)) - (_g2378423855_ _body23641_)))) - _g2375823769_))) - (__tmp50655 - (let _recur23863_ ((_rest23866_ _clause23639_) - (_rest-targets23868_ _tgt-lst23630_)) - (let* ((___stx4651646517_ _rest23866_) - (_g2387123883_ + (_g2349923570_ _body23356_)))) + _g2347323484_))) + (__tmp50416 + (let _recur23578_ ((_rest23581_ _clause23354_) + (_rest-targets23583_ _tgt-lst23345_)) + (let* ((___stx4630846309_ _rest23581_) + (_g2358623598_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4651646517_)))) - (let ((___kont4651946520_ - (lambda (_L23919_ _L23921_) - (let* ((_g2393623948_ - (lambda (_g2393723944_) + ___stx4630846309_)))) + (let ((___kont4631146312_ + (lambda (_L23634_ _L23636_) + (let* ((_g2365123663_ + (lambda (_g2365223659_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2393723944_))) - (_g2393523979_ - (lambda (_g2393723952_) - (if (gx#stx-pair? _g2393723952_) - (let ((_e2394223955_ - (gx#syntax-e _g2393723952_))) - (let ((_hd2394123959_ + _g2365223659_))) + (_g2365023694_ + (lambda (_g2365223667_) + (if (gx#stx-pair? _g2365223667_) + (let ((_e2365723670_ + (gx#syntax-e _g2365223667_))) + (let ((_hd2365623674_ (let () (declare (not safe)) - (##car _e2394223955_))) - (_tl2394023962_ + (##car _e2365723670_))) + (_tl2365523677_ (let () (declare (not safe)) - (##cdr _e2394223955_)))) - ((lambda (_L23965_ _L23967_) - (let ((__tmp50656 + (##cdr _e2365723670_)))) + ((lambda (_L23680_ _L23682_) + (let ((__tmp50417 (let () (declare (not safe)) - (_recur23863_ - _L23919_ - _L23965_)))) + (_recur23578_ + _L23634_ + _L23680_)))) (declare (not safe)) (|gerbil/core$[1]#generate-match1| - _stx23628_ - _L23967_ - _L23921_ - __tmp50656 - _E23642_))) - _tl2394023962_ - _hd2394123959_))) + _stx23343_ + _L23682_ + _L23636_ + __tmp50417 + _E23357_))) + _tl2365523677_ + _hd2365623674_))) (let () (declare (not safe)) - (_g2393623948_ _g2393723952_)))))) + (_g2365123663_ _g2365223667_)))))) (declare (not safe)) - (_g2393523979_ _rest-targets23868_)))) - (___kont4652146522_ + (_g2365023694_ _rest-targets23583_)))) + (___kont4631346314_ (lambda () - (let ((__tmp50657 - (let ((__tmp50658 - (lambda (_g2389323896_ _g2389423899_) + (let ((__tmp50418 + (let ((__tmp50419 + (lambda (_g2360823611_ _g2360923614_) (let () (declare (not safe)) - (cons _g2389323896_ - _g2389423899_))))) + (cons _g2360823611_ + _g2360923614_))))) (declare (not safe)) - (foldr1 __tmp50658 '() _L23725_)))) + (foldr1 __tmp50419 '() _L23440_)))) (declare (not safe)) - (cons _L23727_ __tmp50657))))) - (if (gx#stx-pair? ___stx4651646517_) - (let ((_e2387723909_ (gx#syntax-e ___stx4651646517_))) - (let ((_tl2387523916_ + (cons _L23442_ __tmp50418))))) + (if (gx#stx-pair? ___stx4630846309_) + (let ((_e2359223624_ (gx#syntax-e ___stx4630846309_))) + (let ((_tl2359023631_ (let () (declare (not safe)) - (##cdr _e2387723909_))) - (_hd2387623913_ + (##cdr _e2359223624_))) + (_hd2359123628_ (let () (declare (not safe)) - (##car _e2387723909_)))) - (___kont4651946520_ - _tl2387523916_ - _hd2387623913_))) - (___kont4652146522_))))))) + (##car _e2359223624_)))) + (___kont4631146312_ + _tl2359023631_ + _hd2359123628_))) + (___kont4631346314_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2375623859_ __tmp50655)))) - _var2366223721_ - _hd2364923679_) + (_g2347123574_ __tmp50416)))) + _var2337723436_ + _hd2336423394_) (let () (declare (not safe)) - (_g2364423668_ - _g2364523672_)))))))) + (_g2335923383_ + _g2336023387_)))))))) (let () (declare (not safe)) - (_loop2365723701_ _target2365423695_ '()))) + (_loop2337223416_ _target2336923410_ '()))) (let () (declare (not safe)) - (_g2364423668_ _g2364523672_)))))) + (_g2335923383_ _g2336023387_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2364423668_ - _g2364523672_))))) + (_g2335923383_ + _g2336023387_))))) (let () (declare (not safe)) - (_g2364423668_ _g2364523672_))))) + (_g2335923383_ _g2336023387_))))) (let () (declare (not safe)) - (_g2364423668_ _g2364523672_))))) - (__tmp50660 + (_g2335923383_ _g2336023387_))))) + (__tmp50421 (list (gx#genident 'K) (apply append (map |gerbil/core$[1]#match-pattern-vars| - _clause23639_))))) + _clause23354_))))) (declare (not safe)) - (_g2364323987_ __tmp50660))))) - (let ((__tmp50661 - (let ((__tmp50662 (gx#stx-length _tgt-lst23630_))) + (_g2335823702_ __tmp50421))))) + (let ((__tmp50422 + (let ((__tmp50423 (gx#stx-length _tgt-lst23345_))) (declare (not safe)) - (_parse-body23633_ __tmp50662)))) + (_parse-body23348_ __tmp50423)))) (declare (not safe)) - (_generate-body23635_ __tmp50661))))) + (_generate-body23350_ __tmp50422))))) (define |gerbil/core$[1]#generate-match| - (lambda (_stx23530_ _tgt23532_ _clauses23533_) - (letrec ((_reclause23535_ - (lambda (_clause23538_) - (let* ((___stx4653246533_ _clause23538_) - (_g2354323558_ + (lambda (_stx23245_ _tgt23247_ _clauses23248_) + (letrec ((_reclause23250_ + (lambda (_clause23253_) + (let* ((___stx4632446325_ _clause23253_) + (_g2325823273_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4653246533_)))) - (let ((___kont4653546536_ (lambda () _clause23538_)) - (___kont4653746538_ - (lambda (_L23586_ _L23588_) + ___stx4632446325_)))) + (let ((___kont4632746328_ (lambda () _clause23253_)) + (___kont4632946330_ + (lambda (_L23301_ _L23303_) (gx#stx-wrap-source - (let ((__tmp50663 + (let ((__tmp50424 (let () (declare (not safe)) - (cons _L23588_ '())))) + (cons _L23303_ '())))) (declare (not safe)) - (cons __tmp50663 _L23586_)) + (cons __tmp50424 _L23301_)) (gx#stx-source (gx#datum->syntax '#f 'clause))))) - (___kont4653946540_ + (___kont4633146332_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _stx23530_ - _clause23538_)))) - (if (gx#stx-pair? ___stx4653246533_) - (let ((_e2354723610_ - (gx#syntax-e ___stx4653246533_))) - (let ((_tl2354523617_ + _stx23245_ + _clause23253_)))) + (if (gx#stx-pair? ___stx4632446325_) + (let ((_e2326223325_ + (gx#syntax-e ___stx4632446325_))) + (let ((_tl2326023332_ (let () (declare (not safe)) - (##cdr _e2354723610_))) - (_hd2354623614_ + (##cdr _e2326223325_))) + (_hd2326123329_ (let () (declare (not safe)) - (##car _e2354723610_)))) - (if (gx#identifier? _hd2354623614_) + (##car _e2326223325_)))) + (if (gx#identifier? _hd2326123329_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50664_| - _hd2354623614_) - (___kont4653546536_) - (___kont4653746538_ - _tl2354523617_ - _hd2354623614_)) - (___kont4653746538_ - _tl2354523617_ - _hd2354623614_)))) - (___kont4653946540_))))))) - (let ((__tmp50666 - (let () (declare (not safe)) (cons _tgt23532_ '()))) - (__tmp50665 (gx#stx-map _reclause23535_ _clauses23533_))) + |gerbil/core$[1]#_g50425_| + _hd2326123329_) + (___kont4632746328_) + (___kont4632946330_ + _tl2326023332_ + _hd2326123329_)) + (___kont4632946330_ + _tl2326023332_ + _hd2326123329_)))) + (___kont4633146332_))))))) + (let ((__tmp50427 + (let () (declare (not safe)) (cons _tgt23247_ '()))) + (__tmp50426 (gx#stx-map _reclause23250_ _clauses23248_))) (declare (not safe)) (|gerbil/core$[1]#generate-match*| - _stx23530_ - __tmp50666 - __tmp50665))))) + _stx23245_ + __tmp50427 + __tmp50426))))) (define |gerbil/core$[:0:]#match| - (lambda (_stx30761_) - (let* ((___stx4656046561_ _stx30761_) - (_g3076630795_ + (lambda (_stx30476_) + (let* ((___stx4635246353_ _stx30476_) + (_g3048130510_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4656046561_)))) - (let ((___kont4656346564_ - (lambda (_L31035_) - (let* ((_g3104831056_ - (lambda (_g3104931052_) + ___stx4635246353_)))) + (let ((___kont4635546356_ + (lambda (_L30750_) + (let* ((_g3076330771_ + (lambda (_g3076430767_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3104931052_))) - (_g3104731109_ - (lambda (_g3104931060_) - ((lambda (_L31063_) + _g3076430767_))) + (_g3076230824_ + (lambda (_g3076430775_) + ((lambda (_L30778_) (let () - (let* ((_g3107531083_ - (lambda (_g3107631079_) + (let* ((_g3079030798_ + (lambda (_g3079130794_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3107631079_))) - (_g3107431105_ - (lambda (_g3107631087_) - ((lambda (_L31090_) + _g3079130794_))) + (_g3078930820_ + (lambda (_g3079130802_) + ((lambda (_L30805_) (let () (let () - (let ((__tmp50670 + (let ((__tmp50431 (gx#datum->syntax '#f 'lambda)) - (__tmp50667 - (let ((__tmp50669 + (__tmp50428 + (let ((__tmp50430 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L31063_ '()))) - (__tmp50668 - (let () (declare (not safe)) (cons _L31090_ '())))) + (let () (declare (not safe)) (cons _L30778_ '()))) + (__tmp50429 + (let () (declare (not safe)) (cons _L30805_ '())))) (declare (not safe)) - (cons __tmp50669 __tmp50668)))) + (cons __tmp50430 __tmp50429)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50670 - __tmp50667))))) - _g3107631087_)))) - (_g3107431105_ + (cons __tmp50431 + __tmp50428))))) + _g3079130802_)))) + (_g3078930820_ (gx#stx-wrap-source - (let ((__tmp50672 + (let ((__tmp50433 (gx#datum->syntax '#f 'match)) - (__tmp50671 + (__tmp50432 (let () (declare (not safe)) - (cons _L31063_ _L31035_)))) + (cons _L30778_ _L30750_)))) (declare (not safe)) - (cons __tmp50672 __tmp50671)) - (gx#stx-source _stx30761_)))))) - _g3104931060_)))) - (_g3104731109_ (gx#genident 'e))))) - (___kont4656546566_ - (lambda (_L30930_) - (let* ((_g3094330951_ - (lambda (_g3094430947_) + (cons __tmp50433 __tmp50432)) + (gx#stx-source _stx30476_)))))) + _g3076430775_)))) + (_g3076230824_ (gx#genident 'e))))) + (___kont4635746358_ + (lambda (_L30645_) + (let* ((_g3065830666_ + (lambda (_g3065930662_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3094430947_))) - (_g3094231004_ - (lambda (_g3094430955_) - ((lambda (_L30958_) + _g3065930662_))) + (_g3065730719_ + (lambda (_g3065930670_) + ((lambda (_L30673_) (let () - (let* ((_g3097030978_ - (lambda (_g3097130974_) + (let* ((_g3068530693_ + (lambda (_g3068630689_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3097130974_))) - (_g3096931000_ - (lambda (_g3097130982_) - ((lambda (_L30985_) + _g3068630689_))) + (_g3068430715_ + (lambda (_g3068630697_) + ((lambda (_L30700_) (let () (let () - (let ((__tmp50675 + (let ((__tmp50436 (gx#datum->syntax '#f 'lambda)) - (__tmp50673 - (let ((__tmp50674 + (__tmp50434 + (let ((__tmp50435 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L30985_ '())))) + (let () (declare (not safe)) (cons _L30700_ '())))) (declare (not safe)) - (cons _L30958_ __tmp50674)))) + (cons _L30673_ __tmp50435)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50675 - __tmp50673))))) - _g3097130982_)))) - (_g3096931000_ + (cons __tmp50436 + __tmp50434))))) + _g3068630697_)))) + (_g3068430715_ (gx#stx-wrap-source - (let ((__tmp50677 + (let ((__tmp50438 (gx#datum->syntax '#f 'match)) - (__tmp50676 + (__tmp50437 (let () (declare (not safe)) - (cons _L30958_ _L30930_)))) + (cons _L30673_ _L30645_)))) (declare (not safe)) - (cons __tmp50677 __tmp50676)) - (gx#stx-source _stx30761_)))))) - _g3094430955_)))) - (_g3094231004_ (gx#genident 'args))))) - (___kont4656746568_ - (lambda (_L30822_ _L30824_) - (let* ((_g3083830846_ - (lambda (_g3083930842_) + (cons __tmp50438 __tmp50437)) + (gx#stx-source _stx30476_)))))) + _g3065930670_)))) + (_g3065730719_ (gx#genident 'args))))) + (___kont4635946360_ + (lambda (_L30537_ _L30539_) + (let* ((_g3055330561_ + (lambda (_g3055430557_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3083930842_))) - (_g3083730899_ - (lambda (_g3083930850_) - ((lambda (_L30853_) + _g3055430557_))) + (_g3055230614_ + (lambda (_g3055430565_) + ((lambda (_L30568_) (let () - (let* ((_g3086530873_ - (lambda (_g3086630869_) + (let* ((_g3058030588_ + (lambda (_g3058130584_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3086630869_))) - (_g3086430895_ - (lambda (_g3086630877_) - ((lambda (_L30880_) + _g3058130584_))) + (_g3057930610_ + (lambda (_g3058130592_) + ((lambda (_L30595_) (let () (let () - (let ((__tmp50683 + (let ((__tmp50444 (gx#datum->syntax '#f 'let)) - (__tmp50678 - (let ((__tmp50680 + (__tmp50439 + (let ((__tmp50441 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50681 - (let ((__tmp50682 + (let ((__tmp50442 + (let ((__tmp50443 (let () (declare (not safe)) - (cons _L30824_ '())))) + (cons _L30539_ '())))) (declare (not safe)) - (cons _L30853_ __tmp50682)))) + (cons _L30568_ __tmp50443)))) (declare (not safe)) - (cons __tmp50681 '()))) - (__tmp50679 - (let () (declare (not safe)) (cons _L30880_ '())))) + (cons __tmp50442 '()))) + (__tmp50440 + (let () (declare (not safe)) (cons _L30595_ '())))) (declare (not safe)) - (cons __tmp50680 __tmp50679)))) + (cons __tmp50441 __tmp50440)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50683 - __tmp50678))))) - _g3086630877_)))) - (_g3086430895_ + (cons __tmp50444 + __tmp50439))))) + _g3058130592_)))) + (_g3057930610_ (let () (declare (not safe)) (|gerbil/core$[1]#generate-match| - _stx30761_ - _L30853_ - _L30822_)))))) - _g3083930850_)))) - (_g3083730899_ (gx#genident _L30824_)))))) - (let* ((___match4661346614_ - (lambda (_e3078630802_ - _hd3078530806_ - _tl3078430809_ - _e3078930812_ - _hd3078830816_ - _tl3078730819_) - (let ((_L30822_ _tl3078730819_) - (_L30824_ _hd3078830816_)) - (if (gx#stx-list? _L30822_) - (___kont4656746568_ _L30822_ _L30824_) - (let () (declare (not safe)) (_g3076630795_)))))) - (___match4660146602_ - (lambda (_e3077830910_ - _hd3077730914_ - _tl3077630917_ - _e3078130920_ - _hd3078030924_ - _tl3077930927_) - (let ((_L30930_ _tl3077930927_)) - (if (gx#stx-list? _L30930_) - (___kont4656546566_ _L30930_) - (___match4661346614_ - _e3077830910_ - _hd3077730914_ - _tl3077630917_ - _e3078130920_ - _hd3078030924_ - _tl3077930927_))))) - (___match4658546586_ - (lambda (_e3077131015_ - _hd3077031019_ - _tl3076931022_ - _e3077431025_ - _hd3077331029_ - _tl3077231032_) - (let ((_L31035_ _tl3077231032_)) - (if (gx#stx-list? _L31035_) - (___kont4656346564_ _L31035_) - (___match4661346614_ - _e3077131015_ - _hd3077031019_ - _tl3076931022_ - _e3077431025_ - _hd3077331029_ - _tl3077231032_)))))) - (if (gx#stx-pair? ___stx4656046561_) - (let ((_e3077131015_ (gx#syntax-e ___stx4656046561_))) - (let ((_tl3076931022_ - (let () (declare (not safe)) (##cdr _e3077131015_))) - (_hd3077031019_ + _stx30476_ + _L30568_ + _L30537_)))))) + _g3055430565_)))) + (_g3055230614_ (gx#genident _L30539_)))))) + (let* ((___match4640546406_ + (lambda (_e3050130517_ + _hd3050030521_ + _tl3049930524_ + _e3050430527_ + _hd3050330531_ + _tl3050230534_) + (let ((_L30537_ _tl3050230534_) + (_L30539_ _hd3050330531_)) + (if (gx#stx-list? _L30537_) + (___kont4635946360_ _L30537_ _L30539_) + (let () (declare (not safe)) (_g3048130510_)))))) + (___match4639346394_ + (lambda (_e3049330625_ + _hd3049230629_ + _tl3049130632_ + _e3049630635_ + _hd3049530639_ + _tl3049430642_) + (let ((_L30645_ _tl3049430642_)) + (if (gx#stx-list? _L30645_) + (___kont4635746358_ _L30645_) + (___match4640546406_ + _e3049330625_ + _hd3049230629_ + _tl3049130632_ + _e3049630635_ + _hd3049530639_ + _tl3049430642_))))) + (___match4637746378_ + (lambda (_e3048630730_ + _hd3048530734_ + _tl3048430737_ + _e3048930740_ + _hd3048830744_ + _tl3048730747_) + (let ((_L30750_ _tl3048730747_)) + (if (gx#stx-list? _L30750_) + (___kont4635546356_ _L30750_) + (___match4640546406_ + _e3048630730_ + _hd3048530734_ + _tl3048430737_ + _e3048930740_ + _hd3048830744_ + _tl3048730747_)))))) + (if (gx#stx-pair? ___stx4635246353_) + (let ((_e3048630730_ (gx#syntax-e ___stx4635246353_))) + (let ((_tl3048430737_ + (let () (declare (not safe)) (##cdr _e3048630730_))) + (_hd3048530734_ (let () (declare (not safe)) - (##car _e3077131015_)))) - (if (gx#stx-pair? _tl3076931022_) - (let ((_e3077431025_ (gx#syntax-e _tl3076931022_))) - (let ((_tl3077231032_ + (##car _e3048630730_)))) + (if (gx#stx-pair? _tl3048430737_) + (let ((_e3048930740_ (gx#syntax-e _tl3048430737_))) + (let ((_tl3048730747_ (let () (declare (not safe)) - (##cdr _e3077431025_))) - (_hd3077331029_ + (##cdr _e3048930740_))) + (_hd3048830744_ (let () (declare (not safe)) - (##car _e3077431025_)))) - (if (gx#identifier? _hd3077331029_) + (##car _e3048930740_)))) + (if (gx#identifier? _hd3048830744_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50685_| - _hd3077331029_) - (___match4658546586_ - _e3077131015_ - _hd3077031019_ - _tl3076931022_ - _e3077431025_ - _hd3077331029_ - _tl3077231032_) + |gerbil/core$[1]#_g50446_| + _hd3048830744_) + (___match4637746378_ + _e3048630730_ + _hd3048530734_ + _tl3048430737_ + _e3048930740_ + _hd3048830744_ + _tl3048730747_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50684_| - _hd3077331029_) - (___match4660146602_ - _e3077131015_ - _hd3077031019_ - _tl3076931022_ - _e3077431025_ - _hd3077331029_ - _tl3077231032_) - (___match4661346614_ - _e3077131015_ - _hd3077031019_ - _tl3076931022_ - _e3077431025_ - _hd3077331029_ - _tl3077231032_))) - (___match4661346614_ - _e3077131015_ - _hd3077031019_ - _tl3076931022_ - _e3077431025_ - _hd3077331029_ - _tl3077231032_)))) - (let () (declare (not safe)) (_g3076630795_))))) - (let () (declare (not safe)) (_g3076630795_)))))))) + |gerbil/core$[1]#_g50445_| + _hd3048830744_) + (___match4639346394_ + _e3048630730_ + _hd3048530734_ + _tl3048430737_ + _e3048930740_ + _hd3048830744_ + _tl3048730747_) + (___match4640546406_ + _e3048630730_ + _hd3048530734_ + _tl3048430737_ + _e3048930740_ + _hd3048830744_ + _tl3048730747_))) + (___match4640546406_ + _e3048630730_ + _hd3048530734_ + _tl3048430737_ + _e3048930740_ + _hd3048830744_ + _tl3048730747_)))) + (let () (declare (not safe)) (_g3048130510_))))) + (let () (declare (not safe)) (_g3048130510_)))))))) (define |gerbil/core$[:0:]#match*| - (lambda (_stx31117_) - (let* ((_g3112031144_ - (lambda (_g3112131140_) + (lambda (_stx30832_) + (let* ((_g3083530859_ + (lambda (_g3083630855_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3112131140_))) - (_g3111931356_ - (lambda (_g3112131148_) - (if (gx#stx-pair? _g3112131148_) - (let ((_e3112631151_ (gx#syntax-e _g3112131148_))) - (let ((_hd3112531155_ + _g3083630855_))) + (_g3083431071_ + (lambda (_g3083630863_) + (if (gx#stx-pair? _g3083630863_) + (let ((_e3084130866_ (gx#syntax-e _g3083630863_))) + (let ((_hd3084030870_ (let () (declare (not safe)) - (##car _e3112631151_))) - (_tl3112431158_ + (##car _e3084130866_))) + (_tl3083930873_ (let () (declare (not safe)) - (##cdr _e3112631151_)))) - (if (gx#stx-pair? _tl3112431158_) - (let ((_e3112931161_ - (gx#syntax-e _tl3112431158_))) - (let ((_hd3112831165_ + (##cdr _e3084130866_)))) + (if (gx#stx-pair? _tl3083930873_) + (let ((_e3084430876_ + (gx#syntax-e _tl3083930873_))) + (let ((_hd3084330880_ (let () (declare (not safe)) - (##car _e3112931161_))) - (_tl3112731168_ + (##car _e3084430876_))) + (_tl3084230883_ (let () (declare (not safe)) - (##cdr _e3112931161_)))) - (if (gx#stx-pair/null? _hd3112831165_) - (let ((_g50686_ + (##cdr _e3084430876_)))) + (if (gx#stx-pair/null? _hd3084330880_) + (let ((_g50447_ (gx#syntax-split-splice - _hd3112831165_ + _hd3084330880_ '0))) (begin - (let ((_g50687_ + (let ((_g50448_ (let () (declare (not safe)) - (if (##values? _g50686_) + (if (##values? _g50447_) (##vector-length - _g50686_) + _g50447_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50687_ 2))) + (##fx= _g50448_ 2))) (error "Context expects 2 values" - _g50687_))) - (let ((_target3113031171_ + _g50448_))) + (let ((_target3084530886_ (let () (declare (not safe)) - (##vector-ref _g50686_ 0))) - (_tl3113231174_ + (##vector-ref _g50447_ 0))) + (_tl3084730889_ (let () (declare (not safe)) - (##vector-ref _g50686_ 1)))) - (if (gx#stx-null? _tl3113231174_) - (letrec ((_loop3113331177_ - (lambda (_hd3113131181_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e3113731184_) - (if (gx#stx-pair? _hd3113131181_) - (let ((_e3113431187_ (gx#syntax-e _hd3113131181_))) - (let ((_lp-hd3113531191_ + (##vector-ref _g50447_ 1)))) + (if (gx#stx-null? _tl3084730889_) + (letrec ((_loop3084830892_ + (lambda (_hd3084630896_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _e3085230899_) + (if (gx#stx-pair? _hd3084630896_) + (let ((_e3084930902_ (gx#syntax-e _hd3084630896_))) + (let ((_lp-hd3085030906_ (let () (declare (not safe)) - (##car _e3113431187_))) - (_lp-tl3113631194_ + (##car _e3084930902_))) + (_lp-tl3085130909_ (let () (declare (not safe)) - (##cdr _e3113431187_)))) - (_loop3113331177_ - _lp-tl3113631194_ + (##cdr _e3084930902_)))) + (_loop3084830892_ + _lp-tl3085130909_ (let () (declare (not safe)) - (cons _lp-hd3113531191_ _e3113731184_))))) - (let ((_e3113831197_ (reverse _e3113731184_))) - ((lambda (_L31201_ _L31203_) - (if (gx#stx-list? _L31201_) - (let* ((_g3122131238_ - (lambda (_g3122231234_) + (cons _lp-hd3085030906_ _e3085230899_))))) + (let ((_e3085330912_ (reverse _e3085230899_))) + ((lambda (_L30916_ _L30918_) + (if (gx#stx-list? _L30916_) + (let* ((_g3093630953_ + (lambda (_g3093730949_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3122231234_))) - (_g3122031344_ - (lambda (_g3122231242_) + _g3093730949_))) + (_g3093531059_ + (lambda (_g3093730957_) (if (gx#stx-pair/null? - _g3122231242_) - (let ((_g50688_ + _g3093730957_) + (let ((_g50449_ (gx#syntax-split-splice - _g3122231242_ + _g3093730957_ '0))) (begin - (let ((_g50689_ + (let ((_g50450_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50688_) - (##vector-length _g50688_) + _g50449_) + (##vector-length _g50449_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g50689_ 2))) - (error "Context expects 2 values" _g50689_))) + (##fx= _g50450_ 2))) + (error "Context expects 2 values" _g50450_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3122431245_ + (let ((_target3093930960_ (let () (declare (not safe)) (##vector-ref - _g50688_ + _g50449_ 0))) - (_tl3122631248_ + (_tl3094130963_ (let () (declare (not safe)) (##vector-ref - _g50688_ + _g50449_ 1)))) (if (gx#stx-null? - _tl3122631248_) - (letrec ((_loop3122731251_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd3122531255_ _$e3123131258_) - (if (gx#stx-pair? _hd3122531255_) - (let ((_e3122831261_ - (gx#syntax-e _hd3122531255_))) - (let ((_lp-hd3122931265_ + _tl3094130963_) + (letrec ((_loop3094230966_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd3094030970_ _$e3094630973_) + (if (gx#stx-pair? _hd3094030970_) + (let ((_e3094330976_ + (gx#syntax-e _hd3094030970_))) + (let ((_lp-hd3094430980_ (let () (declare (not safe)) - (##car _e3122831261_))) - (_lp-tl3123031268_ + (##car _e3094330976_))) + (_lp-tl3094530983_ (let () (declare (not safe)) - (##cdr _e3122831261_)))) - (_loop3122731251_ - _lp-tl3123031268_ + (##cdr _e3094330976_)))) + (_loop3094230966_ + _lp-tl3094530983_ (let () (declare (not safe)) - (cons _lp-hd3122931265_ - _$e3123131258_))))) - (let ((_$e3123231271_ - (reverse _$e3123131258_))) - ((lambda (_L31275_) + (cons _lp-hd3094430980_ + _$e3094630973_))))) + (let ((_$e3094730986_ + (reverse _$e3094630973_))) + ((lambda (_L30990_) (let () - (let* ((_g3129131299_ - (lambda (_g3129231295_) + (let* ((_g3100631014_ + (lambda (_g3100731010_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3129231295_))) - (_g3129031332_ - (lambda (_g3129231303_) - ((lambda (_L31306_) + _g3100731010_))) + (_g3100531047_ + (lambda (_g3100731018_) + ((lambda (_L31021_) (let () (let () - (let ((__tmp50696 + (let ((__tmp50457 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let)) - (__tmp50690 - (let ((__tmp50692 + (__tmp50451 + (let ((__tmp50453 (begin (gx#syntax-check-splice-targets - _L31203_ - _L31275_) - (let ((__tmp50693 - (lambda (_g3132031324_ - _g3132131327_ - _g3132231329_) - (let ((__tmp50694 - (let ((__tmp50695 + _L30918_ + _L30990_) + (let ((__tmp50454 + (lambda (_g3103531039_ + _g3103631042_ + _g3103731044_) + (let ((__tmp50455 + (let ((__tmp50456 (let () (declare (not safe)) - (cons _g3132031324_ + (cons _g3103531039_ '())))) (declare (not safe)) - (cons _g3132131327_ - __tmp50695)))) + (cons _g3103631042_ + __tmp50456)))) (declare (not safe)) - (cons __tmp50694 _g3132231329_))))) + (cons __tmp50455 _g3103731044_))))) (declare (not safe)) - (foldr2 __tmp50693 '() _L31203_ _L31275_)))) - (__tmp50691 + (foldr2 __tmp50454 '() _L30918_ _L30990_)))) + (__tmp50452 (let () (declare (not safe)) - (cons _L31306_ '())))) + (cons _L31021_ '())))) (declare (not safe)) - (cons __tmp50692 __tmp50691)))) + (cons __tmp50453 __tmp50452)))) (declare (not safe)) - (cons __tmp50696 __tmp50690))))) + (cons __tmp50457 __tmp50451))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g3129231303_)))) - (_g3129031332_ - (let ((__tmp50697 - (let ((__tmp50698 - (lambda (_g3133531338_ + _g3100731018_)))) + (_g3100531047_ + (let ((__tmp50458 + (let ((__tmp50459 + (lambda (_g3105031053_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3133631341_) + _g3105131056_) (let () (declare (not safe)) - (cons _g3133531338_ _g3133631341_))))) + (cons _g3105031053_ _g3105131056_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp50698 + (foldr1 __tmp50459 '() - _L31275_)))) + _L30990_)))) (declare (not safe)) (|gerbil/core$[1]#generate-match*| - _stx31117_ - __tmp50697 - _L31201_)))))) - _$e3123231271_)))))) - (_loop3122731251_ _target3122431245_ '())) - (_g3122131238_ _g3122231242_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3122131238_ - _g3122231242_))))) - (_g3122031344_ + _stx30832_ + __tmp50458 + _L30916_)))))) + _$e3094730986_)))))) + (_loop3094230966_ _target3093930960_ '())) + (_g3093630953_ _g3093730957_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g3093630953_ + _g3093730957_))))) + (_g3093531059_ (gx#gentemps - (let ((__tmp50699 - (lambda (_g3134731350_ - _g3134831353_) + (let ((__tmp50460 + (lambda (_g3106231065_ + _g3106331068_) (let () (declare (not safe)) - (cons _g3134731350_ - _g3134831353_))))) + (cons _g3106231065_ + _g3106331068_))))) (declare (not safe)) - (foldr1 __tmp50699 '() _L31203_))))) - (_g3112031144_ _g3112131148_))) - _tl3112731168_ - _e3113831197_)))))) + (foldr1 __tmp50460 '() _L30918_))))) + (_g3083530859_ _g3083630863_))) + _tl3084230883_ + _e3085330912_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3113331177_ - _target3113031171_ + (_loop3084830892_ + _target3084530886_ '())) - (_g3112031144_ - _g3112131148_))))) - (_g3112031144_ _g3112131148_)))) - (_g3112031144_ _g3112131148_)))) - (_g3112031144_ _g3112131148_))))) - (_g3111931356_ _stx31117_)))) + (_g3083530859_ + _g3083630863_))))) + (_g3083530859_ _g3083630863_)))) + (_g3083530859_ _g3083630863_)))) + (_g3083530859_ _g3083630863_))))) + (_g3083431071_ _stx30832_)))) (define |gerbil/core$[:0:]#with| - (lambda (_$stx31362_) - (let* ((___stx4661646617_ _$stx31362_) - (_g3136831451_ + (lambda (_$stx31077_) + (let* ((___stx4640846409_ _$stx31077_) + (_g3108331166_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4661646617_)))) - (let ((___kont4661946620_ - (lambda (_L31781_) - (let ((__tmp50703 (gx#datum->syntax '#f 'let)) - (__tmp50700 - (let ((__tmp50701 - (let ((__tmp50702 - (lambda (_g3179731800_ _g3179831803_) + ___stx4640846409_)))) + (let ((___kont4641146412_ + (lambda (_L31496_) + (let ((__tmp50464 (gx#datum->syntax '#f 'let)) + (__tmp50461 + (let ((__tmp50462 + (let ((__tmp50463 + (lambda (_g3151231515_ _g3151331518_) (let () (declare (not safe)) - (cons _g3179731800_ - _g3179831803_))))) + (cons _g3151231515_ + _g3151331518_))))) (declare (not safe)) - (foldr1 __tmp50702 '() _L31781_)))) + (foldr1 __tmp50463 '() _L31496_)))) (declare (not safe)) - (cons '() __tmp50701)))) + (cons '() __tmp50462)))) (declare (not safe)) - (cons __tmp50703 __tmp50700)))) - (___kont4662346624_ - (lambda (_L31689_ _L31691_ _L31692_ _L31693_) - (let ((__tmp50704 - (let ((__tmp50707 - (let ((__tmp50708 - (let ((__tmp50709 + (cons __tmp50464 __tmp50461)))) + (___kont4641546416_ + (lambda (_L31404_ _L31406_ _L31407_ _L31408_) + (let ((__tmp50465 + (let ((__tmp50468 + (let ((__tmp50469 + (let ((__tmp50470 (let () (declare (not safe)) - (cons _L31691_ '())))) + (cons _L31406_ '())))) (declare (not safe)) - (cons _L31692_ __tmp50709)))) + (cons _L31407_ __tmp50470)))) (declare (not safe)) - (cons __tmp50708 '()))) - (__tmp50705 - (let ((__tmp50706 - (lambda (_g3171531718_ _g3171631721_) + (cons __tmp50469 '()))) + (__tmp50466 + (let ((__tmp50467 + (lambda (_g3143031433_ _g3143131436_) (let () (declare (not safe)) - (cons _g3171531718_ - _g3171631721_))))) + (cons _g3143031433_ + _g3143131436_))))) (declare (not safe)) - (foldr1 __tmp50706 '() _L31689_)))) + (foldr1 __tmp50467 '() _L31404_)))) (declare (not safe)) - (cons __tmp50707 __tmp50705)))) + (cons __tmp50468 __tmp50466)))) (declare (not safe)) - (cons _L31693_ __tmp50704)))) - (___kont4662746628_ - (lambda (_L31562_ _L31564_ _L31565_) - (let ((__tmp50719 (gx#datum->syntax '#f 'match*)) - (__tmp50710 - (let ((__tmp50717 - (let ((__tmp50718 - (lambda (_g3159131594_ _g3159231597_) + (cons _L31408_ __tmp50465)))) + (___kont4641946420_ + (lambda (_L31277_ _L31279_ _L31280_) + (let ((__tmp50480 (gx#datum->syntax '#f 'match*)) + (__tmp50471 + (let ((__tmp50478 + (let ((__tmp50479 + (lambda (_g3130631309_ _g3130731312_) (let () (declare (not safe)) - (cons _g3159131594_ - _g3159231597_))))) + (cons _g3130631309_ + _g3130731312_))))) (declare (not safe)) - (foldr1 __tmp50718 '() _L31564_))) - (__tmp50711 - (let ((__tmp50712 - (let ((__tmp50715 - (let ((__tmp50716 - (lambda (_g3158931600_ - _g3159031603_) + (foldr1 __tmp50479 '() _L31279_))) + (__tmp50472 + (let ((__tmp50473 + (let ((__tmp50476 + (let ((__tmp50477 + (lambda (_g3130431315_ + _g3130531318_) (let () (declare (not safe)) - (cons _g3158931600_ - _g3159031603_))))) + (cons _g3130431315_ + _g3130531318_))))) (declare (not safe)) - (foldr1 __tmp50716 + (foldr1 __tmp50477 '() - _L31565_))) - (__tmp50713 - (let ((__tmp50714 - (lambda (_g3158731606_ - _g3158831609_) + _L31280_))) + (__tmp50474 + (let ((__tmp50475 + (lambda (_g3130231321_ + _g3130331324_) (let () (declare (not safe)) - (cons _g3158731606_ - _g3158831609_))))) + (cons _g3130231321_ + _g3130331324_))))) (declare (not safe)) - (foldr1 __tmp50714 + (foldr1 __tmp50475 '() - _L31562_)))) + _L31277_)))) (declare (not safe)) - (cons __tmp50715 __tmp50713)))) + (cons __tmp50476 __tmp50474)))) (declare (not safe)) - (cons __tmp50712 '())))) + (cons __tmp50473 '())))) (declare (not safe)) - (cons __tmp50717 __tmp50711)))) + (cons __tmp50478 __tmp50472)))) (declare (not safe)) - (cons __tmp50719 __tmp50710))))) - (let* ((___match4670946710_ - (lambda (_e3141631458_ - _hd3141531462_ - _tl3141431465_ - _e3141931468_ - _hd3141831472_ - _tl3141731475_ - ___splice4662946630_ - _target3142031478_ - _tl3142231481_) - (letrec ((_loop3142331484_ - (lambda (_hd3142131488_ - _expr3142731491_ - _hd3142831493_) - (if (gx#stx-pair? _hd3142131488_) - (let ((_e3142431496_ - (gx#syntax-e _hd3142131488_))) - (let ((_lp-tl3142631503_ + (cons __tmp50480 __tmp50471))))) + (let* ((___match4650146502_ + (lambda (_e3113131173_ + _hd3113031177_ + _tl3112931180_ + _e3113431183_ + _hd3113331187_ + _tl3113231190_ + ___splice4642146422_ + _target3113531193_ + _tl3113731196_) + (letrec ((_loop3113831199_ + (lambda (_hd3113631203_ + _expr3114231206_ + _hd3114331208_) + (if (gx#stx-pair? _hd3113631203_) + (let ((_e3113931211_ + (gx#syntax-e _hd3113631203_))) + (let ((_lp-tl3114131218_ (let () (declare (not safe)) - (##cdr _e3142431496_))) - (_lp-hd3142531500_ + (##cdr _e3113931211_))) + (_lp-hd3114031215_ (let () (declare (not safe)) - (##car _e3142431496_)))) - (if (gx#stx-pair? _lp-hd3142531500_) - (let ((_e3143331506_ + (##car _e3113931211_)))) + (if (gx#stx-pair? _lp-hd3114031215_) + (let ((_e3114831221_ (gx#syntax-e - _lp-hd3142531500_))) - (let ((_tl3143131513_ + _lp-hd3114031215_))) + (let ((_tl3114631228_ (let () (declare (not safe)) - (##cdr _e3143331506_))) - (_hd3143231510_ + (##cdr _e3114831221_))) + (_hd3114731225_ (let () (declare (not safe)) - (##car _e3143331506_)))) + (##car _e3114831221_)))) (if (gx#stx-pair? - _tl3143131513_) - (let ((_e3143631516_ + _tl3114631228_) + (let ((_e3115131231_ (gx#syntax-e - _tl3143131513_))) - (let ((_tl3143431523_ + _tl3114631228_))) + (let ((_tl3114931238_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e3143631516_))) - (_hd3143531520_ - (let () (declare (not safe)) (##car _e3143631516_)))) - (if (gx#stx-null? _tl3143431523_) - (_loop3142331484_ - _lp-tl3142631503_ + (##cdr _e3115131231_))) + (_hd3115031235_ + (let () (declare (not safe)) (##car _e3115131231_)))) + (if (gx#stx-null? _tl3114931238_) + (_loop3113831199_ + _lp-tl3114131218_ (let () (declare (not safe)) - (cons _hd3143531520_ _expr3142731491_)) + (cons _hd3115031235_ _expr3114231206_)) (let () (declare (not safe)) - (cons _hd3143231510_ _hd3142831493_))) - (let () (declare (not safe)) (_g3136831451_))))) - (let () (declare (not safe)) (_g3136831451_))))) + (cons _hd3114731225_ _hd3114331208_))) + (let () (declare (not safe)) (_g3108331166_))))) + (let () (declare (not safe)) (_g3108331166_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3136831451_))))) - (let ((_hd3143031529_ - (reverse _hd3142831493_)) - (_expr3142931526_ - (reverse _expr3142731491_))) - (if (gx#stx-pair/null? _tl3141731475_) - (let ((___splice4663146632_ + (_g3108331166_))))) + (let ((_hd3114531244_ + (reverse _hd3114331208_)) + (_expr3114431241_ + (reverse _expr3114231206_))) + (if (gx#stx-pair/null? _tl3113231190_) + (let ((___splice4642346424_ (gx#syntax-split-splice - _tl3141731475_ + _tl3113231190_ '0))) - (let ((_tl3143931535_ + (let ((_tl3115431250_ (let () (declare (not safe)) (##vector-ref - ___splice4663146632_ + ___splice4642346424_ '1))) - (_target3143731532_ + (_target3115231247_ (let () (declare (not safe)) (##vector-ref - ___splice4663146632_ + ___splice4642346424_ '0)))) (if (gx#stx-null? - _tl3143931535_) - (letrec ((_loop3144031538_ - (lambda (_hd3143831542_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3144431545_) - (if (gx#stx-pair? _hd3143831542_) - (let ((_e3144131548_ (gx#syntax-e _hd3143831542_))) - (let ((_lp-tl3144331555_ + _tl3115431250_) + (letrec ((_loop3115531253_ + (lambda (_hd3115331257_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _body3115931260_) + (if (gx#stx-pair? _hd3115331257_) + (let ((_e3115631263_ (gx#syntax-e _hd3115331257_))) + (let ((_lp-tl3115831270_ (let () (declare (not safe)) - (##cdr _e3144131548_))) - (_lp-hd3144231552_ + (##cdr _e3115631263_))) + (_lp-hd3115731267_ (let () (declare (not safe)) - (##car _e3144131548_)))) - (_loop3144031538_ - _lp-tl3144331555_ + (##car _e3115631263_)))) + (_loop3115531253_ + _lp-tl3115831270_ (let () (declare (not safe)) - (cons _lp-hd3144231552_ - _body3144431545_))))) - (let ((_body3144531558_ - (reverse _body3144431545_))) - (___kont4662746628_ - _body3144531558_ - _expr3142931526_ - _hd3143031529_)))))) - (_loop3144031538_ _target3143731532_ '())) + (cons _lp-hd3115731267_ + _body3115931260_))))) + (let ((_body3116031273_ + (reverse _body3115931260_))) + (___kont4641946420_ + _body3116031273_ + _expr3114431241_ + _hd3114531244_)))))) + (_loop3115531253_ _target3115231247_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3136831451_))))) + (_g3108331166_))))) (let () (declare (not safe)) - (_g3136831451_)))))))) - (_loop3142331484_ _target3142031478_ '() '())))) - (___match4670146702_ - (lambda (_e3141631458_ - _hd3141531462_ - _tl3141431465_ - _e3141931468_ - _hd3141831472_ - _tl3141731475_) - (if (gx#stx-pair/null? _hd3141831472_) - (let ((___splice4662946630_ - (gx#syntax-split-splice _hd3141831472_ '0))) - (let ((_tl3142231481_ + (_g3108331166_)))))))) + (_loop3113831199_ _target3113531193_ '() '())))) + (___match4649346494_ + (lambda (_e3113131173_ + _hd3113031177_ + _tl3112931180_ + _e3113431183_ + _hd3113331187_ + _tl3113231190_) + (if (gx#stx-pair/null? _hd3113331187_) + (let ((___splice4642146422_ + (gx#syntax-split-splice _hd3113331187_ '0))) + (let ((_tl3113731196_ (let () (declare (not safe)) - (##vector-ref ___splice4662946630_ '1))) - (_target3142031478_ + (##vector-ref ___splice4642146422_ '1))) + (_target3113531193_ (let () (declare (not safe)) - (##vector-ref ___splice4662946630_ '0)))) - (if (gx#stx-null? _tl3142231481_) - (___match4670946710_ - _e3141631458_ - _hd3141531462_ - _tl3141431465_ - _e3141931468_ - _hd3141831472_ - _tl3141731475_ - ___splice4662946630_ - _target3142031478_ - _tl3142231481_) + (##vector-ref ___splice4642146422_ '0)))) + (if (gx#stx-null? _tl3113731196_) + (___match4650146502_ + _e3113131173_ + _hd3113031177_ + _tl3112931180_ + _e3113431183_ + _hd3113331187_ + _tl3113231190_ + ___splice4642146422_ + _target3113531193_ + _tl3113731196_) (let () (declare (not safe)) - (_g3136831451_))))) - (let () (declare (not safe)) (_g3136831451_))))) - (___match4668946690_ - (lambda (_e3139231619_ - _hd3139131623_ - _tl3139031626_ - _e3139531629_ - _hd3139431633_ - _tl3139331636_ - _e3139831639_ - _hd3139731643_ - _tl3139631646_ - _e3140131649_ - _hd3140031653_ - _tl3139931656_ - ___splice4662546626_ - _target3140231659_ - _tl3140431662_) - (letrec ((_loop3140531665_ - (lambda (_hd3140331669_ _body3140931672_) - (if (gx#stx-pair? _hd3140331669_) - (let ((_e3140631675_ - (gx#syntax-e _hd3140331669_))) - (let ((_lp-tl3140831682_ + (_g3108331166_))))) + (let () (declare (not safe)) (_g3108331166_))))) + (___match4648146482_ + (lambda (_e3110731334_ + _hd3110631338_ + _tl3110531341_ + _e3111031344_ + _hd3110931348_ + _tl3110831351_ + _e3111331354_ + _hd3111231358_ + _tl3111131361_ + _e3111631364_ + _hd3111531368_ + _tl3111431371_ + ___splice4641746418_ + _target3111731374_ + _tl3111931377_) + (letrec ((_loop3112031380_ + (lambda (_hd3111831384_ _body3112431387_) + (if (gx#stx-pair? _hd3111831384_) + (let ((_e3112131390_ + (gx#syntax-e _hd3111831384_))) + (let ((_lp-tl3112331397_ (let () (declare (not safe)) - (##cdr _e3140631675_))) - (_lp-hd3140731679_ + (##cdr _e3112131390_))) + (_lp-hd3112231394_ (let () (declare (not safe)) - (##car _e3140631675_)))) - (_loop3140531665_ - _lp-tl3140831682_ + (##car _e3112131390_)))) + (_loop3112031380_ + _lp-tl3112331397_ (let () (declare (not safe)) - (cons _lp-hd3140731679_ - _body3140931672_))))) - (let ((_body3141031685_ - (reverse _body3140931672_))) - (let ((_L31689_ _body3141031685_) - (_L31691_ _hd3140031653_) - (_L31692_ _hd3139731643_) - (_L31693_ _hd3139131623_)) + (cons _lp-hd3112231394_ + _body3112431387_))))) + (let ((_body3112531400_ + (reverse _body3112431387_))) + (let ((_L31404_ _body3112531400_) + (_L31406_ _hd3111531368_) + (_L31407_ _hd3111231358_) + (_L31408_ _hd3110631338_)) (if (let () (declare (not safe)) (|gerbil/core$[1]#match-pattern?| - _L31692_)) - (___kont4662346624_ - _L31689_ - _L31691_ - _L31692_ - _L31693_) - (___match4670146702_ - _e3139231619_ - _hd3139131623_ - _tl3139031626_ - _e3139531629_ - _hd3139431633_ - _tl3139331636_)))))))) - (_loop3140531665_ _target3140231659_ '())))) - (___match4665546656_ - (lambda (_e3137331731_ - _hd3137231735_ - _tl3137131738_ - _e3137631741_ - _hd3137531745_ - _tl3137431748_ - ___splice4662146622_ - _target3137731751_ - _tl3137931754_) - (letrec ((_loop3138031757_ - (lambda (_hd3137831761_ _body3138431764_) - (if (gx#stx-pair? _hd3137831761_) - (let ((_e3138131767_ - (gx#syntax-e _hd3137831761_))) - (let ((_lp-tl3138331774_ + _L31407_)) + (___kont4641546416_ + _L31404_ + _L31406_ + _L31407_ + _L31408_) + (___match4649346494_ + _e3110731334_ + _hd3110631338_ + _tl3110531341_ + _e3111031344_ + _hd3110931348_ + _tl3110831351_)))))))) + (_loop3112031380_ _target3111731374_ '())))) + (___match4644746448_ + (lambda (_e3108831446_ + _hd3108731450_ + _tl3108631453_ + _e3109131456_ + _hd3109031460_ + _tl3108931463_ + ___splice4641346414_ + _target3109231466_ + _tl3109431469_) + (letrec ((_loop3109531472_ + (lambda (_hd3109331476_ _body3109931479_) + (if (gx#stx-pair? _hd3109331476_) + (let ((_e3109631482_ + (gx#syntax-e _hd3109331476_))) + (let ((_lp-tl3109831489_ (let () (declare (not safe)) - (##cdr _e3138131767_))) - (_lp-hd3138231771_ + (##cdr _e3109631482_))) + (_lp-hd3109731486_ (let () (declare (not safe)) - (##car _e3138131767_)))) - (_loop3138031757_ - _lp-tl3138331774_ + (##car _e3109631482_)))) + (_loop3109531472_ + _lp-tl3109831489_ (let () (declare (not safe)) - (cons _lp-hd3138231771_ - _body3138431764_))))) - (let ((_body3138531777_ - (reverse _body3138431764_))) - (___kont4661946620_ - _body3138531777_)))))) - (_loop3138031757_ _target3137731751_ '()))))) - (if (gx#stx-pair? ___stx4661646617_) - (let ((_e3137331731_ (gx#syntax-e ___stx4661646617_))) - (let ((_tl3137131738_ - (let () (declare (not safe)) (##cdr _e3137331731_))) - (_hd3137231735_ + (cons _lp-hd3109731486_ + _body3109931479_))))) + (let ((_body3110031492_ + (reverse _body3109931479_))) + (___kont4641146412_ + _body3110031492_)))))) + (_loop3109531472_ _target3109231466_ '()))))) + (if (gx#stx-pair? ___stx4640846409_) + (let ((_e3108831446_ (gx#syntax-e ___stx4640846409_))) + (let ((_tl3108631453_ + (let () (declare (not safe)) (##cdr _e3108831446_))) + (_hd3108731450_ (let () (declare (not safe)) - (##car _e3137331731_)))) - (if (gx#stx-pair? _tl3137131738_) - (let ((_e3137631741_ (gx#syntax-e _tl3137131738_))) - (let ((_tl3137431748_ + (##car _e3108831446_)))) + (if (gx#stx-pair? _tl3108631453_) + (let ((_e3109131456_ (gx#syntax-e _tl3108631453_))) + (let ((_tl3108931463_ (let () (declare (not safe)) - (##cdr _e3137631741_))) - (_hd3137531745_ + (##cdr _e3109131456_))) + (_hd3109031460_ (let () (declare (not safe)) - (##car _e3137631741_)))) - (if (gx#stx-null? _hd3137531745_) - (if (gx#stx-pair/null? _tl3137431748_) - (let ((___splice4662146622_ + (##car _e3109131456_)))) + (if (gx#stx-null? _hd3109031460_) + (if (gx#stx-pair/null? _tl3108931463_) + (let ((___splice4641346414_ (gx#syntax-split-splice - _tl3137431748_ + _tl3108931463_ '0))) - (let ((_tl3137931754_ + (let ((_tl3109431469_ (let () (declare (not safe)) (##vector-ref - ___splice4662146622_ + ___splice4641346414_ '1))) - (_target3137731751_ + (_target3109231466_ (let () (declare (not safe)) (##vector-ref - ___splice4662146622_ + ___splice4641346414_ '0)))) - (if (gx#stx-null? _tl3137931754_) - (___match4665546656_ - _e3137331731_ - _hd3137231735_ - _tl3137131738_ - _e3137631741_ - _hd3137531745_ - _tl3137431748_ - ___splice4662146622_ - _target3137731751_ - _tl3137931754_) + (if (gx#stx-null? _tl3109431469_) + (___match4644746448_ + _e3108831446_ + _hd3108731450_ + _tl3108631453_ + _e3109131456_ + _hd3109031460_ + _tl3108931463_ + ___splice4641346414_ + _target3109231466_ + _tl3109431469_) (if (gx#stx-pair/null? - _hd3137531745_) - (let ((___splice4662946630_ + _hd3109031460_) + (let ((___splice4642146422_ (gx#syntax-split-splice - _hd3137531745_ + _hd3109031460_ '0))) - (let ((_tl3142231481_ + (let ((_tl3113731196_ (let () (declare (not safe)) (##vector-ref - ___splice4662946630_ + ___splice4642146422_ '1))) - (_target3142031478_ + (_target3113531193_ (let () (declare (not safe)) (##vector-ref - ___splice4662946630_ + ___splice4642146422_ '0)))) (if (gx#stx-null? - _tl3142231481_) - (___match4670946710_ - _e3137331731_ - _hd3137231735_ - _tl3137131738_ - _e3137631741_ - _hd3137531745_ - _tl3137431748_ - ___splice4662946630_ - _target3142031478_ - _tl3142231481_) + _tl3113731196_) + (___match4650146502_ + _e3108831446_ + _hd3108731450_ + _tl3108631453_ + _e3109131456_ + _hd3109031460_ + _tl3108931463_ + ___splice4642146422_ + _target3113531193_ + _tl3113731196_) (let () (declare (not safe)) - (_g3136831451_))))) + (_g3108331166_))))) (let () (declare (not safe)) - (_g3136831451_)))))) - (if (gx#stx-pair/null? _hd3137531745_) - (let ((___splice4662946630_ + (_g3108331166_)))))) + (if (gx#stx-pair/null? _hd3109031460_) + (let ((___splice4642146422_ (gx#syntax-split-splice - _hd3137531745_ + _hd3109031460_ '0))) - (let ((_tl3142231481_ + (let ((_tl3113731196_ (let () (declare (not safe)) (##vector-ref - ___splice4662946630_ + ___splice4642146422_ '1))) - (_target3142031478_ + (_target3113531193_ (let () (declare (not safe)) (##vector-ref - ___splice4662946630_ + ___splice4642146422_ '0)))) - (if (gx#stx-null? _tl3142231481_) - (___match4670946710_ - _e3137331731_ - _hd3137231735_ - _tl3137131738_ - _e3137631741_ - _hd3137531745_ - _tl3137431748_ - ___splice4662946630_ - _target3142031478_ - _tl3142231481_) + (if (gx#stx-null? _tl3113731196_) + (___match4650146502_ + _e3108831446_ + _hd3108731450_ + _tl3108631453_ + _e3109131456_ + _hd3109031460_ + _tl3108931463_ + ___splice4642146422_ + _target3113531193_ + _tl3113731196_) (let () (declare (not safe)) - (_g3136831451_))))) + (_g3108331166_))))) (let () (declare (not safe)) - (_g3136831451_)))) - (if (gx#stx-pair? _hd3137531745_) - (let ((_e3139831639_ - (gx#syntax-e _hd3137531745_))) - (let ((_tl3139631646_ + (_g3108331166_)))) + (if (gx#stx-pair? _hd3109031460_) + (let ((_e3111331354_ + (gx#syntax-e _hd3109031460_))) + (let ((_tl3111131361_ (let () (declare (not safe)) - (##cdr _e3139831639_))) - (_hd3139731643_ + (##cdr _e3111331354_))) + (_hd3111231358_ (let () (declare (not safe)) - (##car _e3139831639_)))) - (if (gx#stx-pair? _tl3139631646_) - (let ((_e3140131649_ + (##car _e3111331354_)))) + (if (gx#stx-pair? _tl3111131361_) + (let ((_e3111631364_ (gx#syntax-e - _tl3139631646_))) - (let ((_tl3139931656_ + _tl3111131361_))) + (let ((_tl3111431371_ (let () (declare (not safe)) - (##cdr _e3140131649_))) - (_hd3140031653_ + (##cdr _e3111631364_))) + (_hd3111531368_ (let () (declare (not safe)) - (##car _e3140131649_)))) + (##car _e3111631364_)))) (if (gx#stx-null? - _tl3139931656_) + _tl3111431371_) (if (gx#stx-pair/null? - _tl3137431748_) - (let ((___splice4662546626_ + _tl3108931463_) + (let ((___splice4641746418_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _tl3137431748_ '0))) - (let ((_tl3140431662_ + (gx#syntax-split-splice _tl3108931463_ '0))) + (let ((_tl3111931377_ (let () (declare (not safe)) - (##vector-ref ___splice4662546626_ '1))) - (_target3140231659_ + (##vector-ref ___splice4641746418_ '1))) + (_target3111731374_ (let () (declare (not safe)) - (##vector-ref ___splice4662546626_ '0)))) - (if (gx#stx-null? _tl3140431662_) - (___match4668946690_ - _e3137331731_ - _hd3137231735_ - _tl3137131738_ - _e3137631741_ - _hd3137531745_ - _tl3137431748_ - _e3139831639_ - _hd3139731643_ - _tl3139631646_ - _e3140131649_ - _hd3140031653_ - _tl3139931656_ - ___splice4662546626_ - _target3140231659_ - _tl3140431662_) - (if (gx#stx-pair/null? _hd3137531745_) - (let ((___splice4662946630_ + (##vector-ref ___splice4641746418_ '0)))) + (if (gx#stx-null? _tl3111931377_) + (___match4648146482_ + _e3108831446_ + _hd3108731450_ + _tl3108631453_ + _e3109131456_ + _hd3109031460_ + _tl3108931463_ + _e3111331354_ + _hd3111231358_ + _tl3111131361_ + _e3111631364_ + _hd3111531368_ + _tl3111431371_ + ___splice4641746418_ + _target3111731374_ + _tl3111931377_) + (if (gx#stx-pair/null? _hd3109031460_) + (let ((___splice4642146422_ (gx#syntax-split-splice - _hd3137531745_ + _hd3109031460_ '0))) - (let ((_tl3142231481_ + (let ((_tl3113731196_ (let () (declare (not safe)) (##vector-ref - ___splice4662946630_ + ___splice4642146422_ '1))) - (_target3142031478_ + (_target3113531193_ (let () (declare (not safe)) (##vector-ref - ___splice4662946630_ + ___splice4642146422_ '0)))) - (if (gx#stx-null? _tl3142231481_) - (___match4670946710_ - _e3137331731_ - _hd3137231735_ - _tl3137131738_ - _e3137631741_ - _hd3137531745_ - _tl3137431748_ - ___splice4662946630_ - _target3142031478_ - _tl3142231481_) + (if (gx#stx-null? _tl3113731196_) + (___match4650146502_ + _e3108831446_ + _hd3108731450_ + _tl3108631453_ + _e3109131456_ + _hd3109031460_ + _tl3108931463_ + ___splice4642146422_ + _target3113531193_ + _tl3113731196_) (let () (declare (not safe)) - (_g3136831451_))))) - (let () (declare (not safe)) (_g3136831451_)))))) - (if (gx#stx-pair/null? _hd3137531745_) - (let ((___splice4662946630_ - (gx#syntax-split-splice _hd3137531745_ '0))) - (let ((_tl3142231481_ + (_g3108331166_))))) + (let () (declare (not safe)) (_g3108331166_)))))) + (if (gx#stx-pair/null? _hd3109031460_) + (let ((___splice4642146422_ + (gx#syntax-split-splice _hd3109031460_ '0))) + (let ((_tl3113731196_ (let () (declare (not safe)) - (##vector-ref ___splice4662946630_ '1))) - (_target3142031478_ + (##vector-ref ___splice4642146422_ '1))) + (_target3113531193_ (let () (declare (not safe)) - (##vector-ref ___splice4662946630_ '0)))) - (if (gx#stx-null? _tl3142231481_) - (___match4670946710_ - _e3137331731_ - _hd3137231735_ - _tl3137131738_ - _e3137631741_ - _hd3137531745_ - _tl3137431748_ - ___splice4662946630_ - _target3142031478_ - _tl3142231481_) - (let () (declare (not safe)) (_g3136831451_))))) - (let () (declare (not safe)) (_g3136831451_)))) - (if (gx#stx-pair/null? _hd3137531745_) - (let ((___splice4662946630_ - (gx#syntax-split-splice _hd3137531745_ '0))) - (let ((_tl3142231481_ + (##vector-ref ___splice4642146422_ '0)))) + (if (gx#stx-null? _tl3113731196_) + (___match4650146502_ + _e3108831446_ + _hd3108731450_ + _tl3108631453_ + _e3109131456_ + _hd3109031460_ + _tl3108931463_ + ___splice4642146422_ + _target3113531193_ + _tl3113731196_) + (let () (declare (not safe)) (_g3108331166_))))) + (let () (declare (not safe)) (_g3108331166_)))) + (if (gx#stx-pair/null? _hd3109031460_) + (let ((___splice4642146422_ + (gx#syntax-split-splice _hd3109031460_ '0))) + (let ((_tl3113731196_ (let () (declare (not safe)) - (##vector-ref ___splice4662946630_ '1))) - (_target3142031478_ + (##vector-ref ___splice4642146422_ '1))) + (_target3113531193_ (let () (declare (not safe)) - (##vector-ref ___splice4662946630_ '0)))) - (if (gx#stx-null? _tl3142231481_) - (___match4670946710_ - _e3137331731_ - _hd3137231735_ - _tl3137131738_ - _e3137631741_ - _hd3137531745_ - _tl3137431748_ - ___splice4662946630_ - _target3142031478_ - _tl3142231481_) - (let () (declare (not safe)) (_g3136831451_))))) - (let () (declare (not safe)) (_g3136831451_)))))) + (##vector-ref ___splice4642146422_ '0)))) + (if (gx#stx-null? _tl3113731196_) + (___match4650146502_ + _e3108831446_ + _hd3108731450_ + _tl3108631453_ + _e3109131456_ + _hd3109031460_ + _tl3108931463_ + ___splice4642146422_ + _target3113531193_ + _tl3113731196_) + (let () (declare (not safe)) (_g3108331166_))))) + (let () (declare (not safe)) (_g3108331166_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _hd3137531745_) - (let ((___splice4662946630_ + _hd3109031460_) + (let ((___splice4642146422_ (gx#syntax-split-splice - _hd3137531745_ + _hd3109031460_ '0))) - (let ((_tl3142231481_ + (let ((_tl3113731196_ (let () (declare (not safe)) (##vector-ref - ___splice4662946630_ + ___splice4642146422_ '1))) - (_target3142031478_ + (_target3113531193_ (let () (declare (not safe)) (##vector-ref - ___splice4662946630_ + ___splice4642146422_ '0)))) (if (gx#stx-null? - _tl3142231481_) - (___match4670946710_ - _e3137331731_ - _hd3137231735_ - _tl3137131738_ - _e3137631741_ - _hd3137531745_ - _tl3137431748_ - ___splice4662946630_ - _target3142031478_ - _tl3142231481_) + _tl3113731196_) + (___match4650146502_ + _e3108831446_ + _hd3108731450_ + _tl3108631453_ + _e3109131456_ + _hd3109031460_ + _tl3108931463_ + ___splice4642146422_ + _target3113531193_ + _tl3113731196_) (let () (declare (not safe)) - (_g3136831451_))))) + (_g3108331166_))))) (let () (declare (not safe)) - (_g3136831451_)))))) - (if (gx#stx-pair/null? _hd3137531745_) - (let ((___splice4662946630_ + (_g3108331166_)))))) + (if (gx#stx-pair/null? _hd3109031460_) + (let ((___splice4642146422_ (gx#syntax-split-splice - _hd3137531745_ + _hd3109031460_ '0))) - (let ((_tl3142231481_ + (let ((_tl3113731196_ (let () (declare (not safe)) (##vector-ref - ___splice4662946630_ + ___splice4642146422_ '1))) - (_target3142031478_ + (_target3113531193_ (let () (declare (not safe)) (##vector-ref - ___splice4662946630_ + ___splice4642146422_ '0)))) - (if (gx#stx-null? _tl3142231481_) - (___match4670946710_ - _e3137331731_ - _hd3137231735_ - _tl3137131738_ - _e3137631741_ - _hd3137531745_ - _tl3137431748_ - ___splice4662946630_ - _target3142031478_ - _tl3142231481_) + (if (gx#stx-null? _tl3113731196_) + (___match4650146502_ + _e3108831446_ + _hd3108731450_ + _tl3108631453_ + _e3109131456_ + _hd3109031460_ + _tl3108931463_ + ___splice4642146422_ + _target3113531193_ + _tl3113731196_) (let () (declare (not safe)) - (_g3136831451_))))) + (_g3108331166_))))) (let () (declare (not safe)) - (_g3136831451_))))))) - (let () (declare (not safe)) (_g3136831451_))))) - (let () (declare (not safe)) (_g3136831451_)))))))) + (_g3108331166_))))))) + (let () (declare (not safe)) (_g3108331166_))))) + (let () (declare (not safe)) (_g3108331166_)))))))) (define |gerbil/core$[:0:]#with*| - (lambda (_$stx31814_) - (let* ((___stx4671246713_ _$stx31814_) - (_g3181931871_ + (lambda (_$stx31529_) + (let* ((___stx4650446505_ _$stx31529_) + (_g3153431586_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4671246713_)))) - (let ((___kont4671546716_ - (lambda (_L32041_ _L32043_ _L32044_ _L32045_ _L32046_) - (let ((__tmp50729 (gx#datum->syntax '#f 'with)) - (__tmp50720 - (let ((__tmp50726 - (let ((__tmp50727 - (let ((__tmp50728 + ___stx4650446505_)))) + (let ((___kont4650746508_ + (lambda (_L31756_ _L31758_ _L31759_ _L31760_ _L31761_) + (let ((__tmp50490 (gx#datum->syntax '#f 'with)) + (__tmp50481 + (let ((__tmp50487 + (let ((__tmp50488 + (let ((__tmp50489 (let () (declare (not safe)) - (cons _L32044_ '())))) + (cons _L31759_ '())))) (declare (not safe)) - (cons _L32045_ __tmp50728)))) + (cons _L31760_ __tmp50489)))) (declare (not safe)) - (cons __tmp50727 '()))) - (__tmp50721 - (let ((__tmp50722 - (let ((__tmp50723 - (let ((__tmp50724 - (let ((__tmp50725 - (lambda (_g3207132074_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3207232077_) + (cons __tmp50488 '()))) + (__tmp50482 + (let ((__tmp50483 + (let ((__tmp50484 + (let ((__tmp50485 + (let ((__tmp50486 + (lambda (_g3178631789_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g3178731792_) (let () (declare (not safe)) - (cons _g3207132074_ _g3207232077_))))) + (cons _g3178631789_ _g3178731792_))))) (declare (not safe)) - (foldr1 __tmp50725 '() _L32041_)))) + (foldr1 __tmp50486 '() _L31756_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L32043_ __tmp50724)))) + (cons _L31758_ __tmp50485)))) (declare (not safe)) - (cons _L32046_ __tmp50723)))) + (cons _L31761_ __tmp50484)))) (declare (not safe)) - (cons __tmp50722 '())))) + (cons __tmp50483 '())))) (declare (not safe)) - (cons __tmp50726 __tmp50721)))) + (cons __tmp50487 __tmp50482)))) (declare (not safe)) - (cons __tmp50729 __tmp50720)))) - (___kont4671946720_ - (lambda (_L31928_) - (let ((__tmp50733 (gx#datum->syntax '#f 'let)) - (__tmp50730 - (let ((__tmp50731 - (let ((__tmp50732 - (lambda (_g3194531948_ _g3194631951_) + (cons __tmp50490 __tmp50481)))) + (___kont4651146512_ + (lambda (_L31643_) + (let ((__tmp50494 (gx#datum->syntax '#f 'let)) + (__tmp50491 + (let ((__tmp50492 + (let ((__tmp50493 + (lambda (_g3166031663_ _g3166131666_) (let () (declare (not safe)) - (cons _g3194531948_ - _g3194631951_))))) + (cons _g3166031663_ + _g3166131666_))))) (declare (not safe)) - (foldr1 __tmp50732 '() _L31928_)))) + (foldr1 __tmp50493 '() _L31643_)))) (declare (not safe)) - (cons '() __tmp50731)))) + (cons '() __tmp50492)))) (declare (not safe)) - (cons __tmp50733 __tmp50730))))) - (let* ((___match4678546786_ - (lambda (_e3185331878_ - _hd3185231882_ - _tl3185131885_ - _e3185631888_ - _hd3185531892_ - _tl3185431895_ - ___splice4672146722_ - _target3185731898_ - _tl3185931901_) - (letrec ((_loop3186031904_ - (lambda (_hd3185831908_ _body3186431911_) - (if (gx#stx-pair? _hd3185831908_) - (let ((_e3186131914_ - (gx#syntax-e _hd3185831908_))) - (let ((_lp-tl3186331921_ + (cons __tmp50494 __tmp50491))))) + (let* ((___match4657746578_ + (lambda (_e3156831593_ + _hd3156731597_ + _tl3156631600_ + _e3157131603_ + _hd3157031607_ + _tl3156931610_ + ___splice4651346514_ + _target3157231613_ + _tl3157431616_) + (letrec ((_loop3157531619_ + (lambda (_hd3157331623_ _body3157931626_) + (if (gx#stx-pair? _hd3157331623_) + (let ((_e3157631629_ + (gx#syntax-e _hd3157331623_))) + (let ((_lp-tl3157831636_ (let () (declare (not safe)) - (##cdr _e3186131914_))) - (_lp-hd3186231918_ + (##cdr _e3157631629_))) + (_lp-hd3157731633_ (let () (declare (not safe)) - (##car _e3186131914_)))) - (_loop3186031904_ - _lp-tl3186331921_ + (##car _e3157631629_)))) + (_loop3157531619_ + _lp-tl3157831636_ (let () (declare (not safe)) - (cons _lp-hd3186231918_ - _body3186431911_))))) - (let ((_body3186531924_ - (reverse _body3186431911_))) - (___kont4671946720_ - _body3186531924_)))))) - (_loop3186031904_ _target3185731898_ '())))) - (___match4676346764_ - (lambda (_e3182831961_ - _hd3182731965_ - _tl3182631968_ - _e3183131971_ - _hd3183031975_ - _tl3182931978_ - _e3183431981_ - _hd3183331985_ - _tl3183231988_ - _e3183731991_ - _hd3183631995_ - _tl3183531998_ - _e3184032001_ - _hd3183932005_ - _tl3183832008_ - ___splice4671746718_ - _target3184132011_ - _tl3184332014_) - (letrec ((_loop3184432017_ - (lambda (_hd3184232021_ _body3184832024_) - (if (gx#stx-pair? _hd3184232021_) - (let ((_e3184532027_ - (gx#syntax-e _hd3184232021_))) - (let ((_lp-tl3184732034_ + (cons _lp-hd3157731633_ + _body3157931626_))))) + (let ((_body3158031639_ + (reverse _body3157931626_))) + (___kont4651146512_ + _body3158031639_)))))) + (_loop3157531619_ _target3157231613_ '())))) + (___match4655546556_ + (lambda (_e3154331676_ + _hd3154231680_ + _tl3154131683_ + _e3154631686_ + _hd3154531690_ + _tl3154431693_ + _e3154931696_ + _hd3154831700_ + _tl3154731703_ + _e3155231706_ + _hd3155131710_ + _tl3155031713_ + _e3155531716_ + _hd3155431720_ + _tl3155331723_ + ___splice4650946510_ + _target3155631726_ + _tl3155831729_) + (letrec ((_loop3155931732_ + (lambda (_hd3155731736_ _body3156331739_) + (if (gx#stx-pair? _hd3155731736_) + (let ((_e3156031742_ + (gx#syntax-e _hd3155731736_))) + (let ((_lp-tl3156231749_ (let () (declare (not safe)) - (##cdr _e3184532027_))) - (_lp-hd3184632031_ + (##cdr _e3156031742_))) + (_lp-hd3156131746_ (let () (declare (not safe)) - (##car _e3184532027_)))) - (_loop3184432017_ - _lp-tl3184732034_ + (##car _e3156031742_)))) + (_loop3155931732_ + _lp-tl3156231749_ (let () (declare (not safe)) - (cons _lp-hd3184632031_ - _body3184832024_))))) - (let ((_body3184932037_ - (reverse _body3184832024_))) - (___kont4671546716_ - _body3184932037_ - _tl3183231988_ - _hd3183932005_ - _hd3183631995_ - _hd3182731965_)))))) - (_loop3184432017_ _target3184132011_ '()))))) - (if (gx#stx-pair? ___stx4671246713_) - (let ((_e3182831961_ (gx#syntax-e ___stx4671246713_))) - (let ((_tl3182631968_ - (let () (declare (not safe)) (##cdr _e3182831961_))) - (_hd3182731965_ + (cons _lp-hd3156131746_ + _body3156331739_))))) + (let ((_body3156431752_ + (reverse _body3156331739_))) + (___kont4650746508_ + _body3156431752_ + _tl3154731703_ + _hd3155431720_ + _hd3155131710_ + _hd3154231680_)))))) + (_loop3155931732_ _target3155631726_ '()))))) + (if (gx#stx-pair? ___stx4650446505_) + (let ((_e3154331676_ (gx#syntax-e ___stx4650446505_))) + (let ((_tl3154131683_ + (let () (declare (not safe)) (##cdr _e3154331676_))) + (_hd3154231680_ (let () (declare (not safe)) - (##car _e3182831961_)))) - (if (gx#stx-pair? _tl3182631968_) - (let ((_e3183131971_ (gx#syntax-e _tl3182631968_))) - (let ((_tl3182931978_ + (##car _e3154331676_)))) + (if (gx#stx-pair? _tl3154131683_) + (let ((_e3154631686_ (gx#syntax-e _tl3154131683_))) + (let ((_tl3154431693_ (let () (declare (not safe)) - (##cdr _e3183131971_))) - (_hd3183031975_ + (##cdr _e3154631686_))) + (_hd3154531690_ (let () (declare (not safe)) - (##car _e3183131971_)))) - (if (gx#stx-pair? _hd3183031975_) - (let ((_e3183431981_ - (gx#syntax-e _hd3183031975_))) - (let ((_tl3183231988_ + (##car _e3154631686_)))) + (if (gx#stx-pair? _hd3154531690_) + (let ((_e3154931696_ + (gx#syntax-e _hd3154531690_))) + (let ((_tl3154731703_ (let () (declare (not safe)) - (##cdr _e3183431981_))) - (_hd3183331985_ + (##cdr _e3154931696_))) + (_hd3154831700_ (let () (declare (not safe)) - (##car _e3183431981_)))) - (if (gx#stx-pair? _hd3183331985_) - (let ((_e3183731991_ - (gx#syntax-e _hd3183331985_))) - (let ((_tl3183531998_ + (##car _e3154931696_)))) + (if (gx#stx-pair? _hd3154831700_) + (let ((_e3155231706_ + (gx#syntax-e _hd3154831700_))) + (let ((_tl3155031713_ (let () (declare (not safe)) - (##cdr _e3183731991_))) - (_hd3183631995_ + (##cdr _e3155231706_))) + (_hd3155131710_ (let () (declare (not safe)) - (##car _e3183731991_)))) - (if (gx#stx-pair? _tl3183531998_) - (let ((_e3184032001_ + (##car _e3155231706_)))) + (if (gx#stx-pair? _tl3155031713_) + (let ((_e3155531716_ (gx#syntax-e - _tl3183531998_))) - (let ((_tl3183832008_ + _tl3155031713_))) + (let ((_tl3155331723_ (let () (declare (not safe)) - (##cdr _e3184032001_))) - (_hd3183932005_ + (##cdr _e3155531716_))) + (_hd3155431720_ (let () (declare (not safe)) - (##car _e3184032001_)))) + (##car _e3155531716_)))) (if (gx#stx-null? - _tl3183832008_) + _tl3155331723_) (if (gx#stx-pair/null? - _tl3182931978_) - (let ((___splice4671746718_ + _tl3154431693_) + (let ((___splice4650946510_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _tl3182931978_ '0))) - (let ((_tl3184332014_ + (gx#syntax-split-splice _tl3154431693_ '0))) + (let ((_tl3155831729_ (let () (declare (not safe)) - (##vector-ref ___splice4671746718_ '1))) - (_target3184132011_ + (##vector-ref ___splice4650946510_ '1))) + (_target3155631726_ (let () (declare (not safe)) - (##vector-ref ___splice4671746718_ '0)))) - (if (gx#stx-null? _tl3184332014_) - (___match4676346764_ - _e3182831961_ - _hd3182731965_ - _tl3182631968_ - _e3183131971_ - _hd3183031975_ - _tl3182931978_ - _e3183431981_ - _hd3183331985_ - _tl3183231988_ - _e3183731991_ - _hd3183631995_ - _tl3183531998_ - _e3184032001_ - _hd3183932005_ - _tl3183832008_ - ___splice4671746718_ - _target3184132011_ - _tl3184332014_) - (let () (declare (not safe)) (_g3181931871_))))) - (let () (declare (not safe)) (_g3181931871_))) - (let () (declare (not safe)) (_g3181931871_))))) + (##vector-ref ___splice4650946510_ '0)))) + (if (gx#stx-null? _tl3155831729_) + (___match4655546556_ + _e3154331676_ + _hd3154231680_ + _tl3154131683_ + _e3154631686_ + _hd3154531690_ + _tl3154431693_ + _e3154931696_ + _hd3154831700_ + _tl3154731703_ + _e3155231706_ + _hd3155131710_ + _tl3155031713_ + _e3155531716_ + _hd3155431720_ + _tl3155331723_ + ___splice4650946510_ + _target3155631726_ + _tl3155831729_) + (let () (declare (not safe)) (_g3153431586_))))) + (let () (declare (not safe)) (_g3153431586_))) + (let () (declare (not safe)) (_g3153431586_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3181931871_))))) + (_g3153431586_))))) (let () (declare (not safe)) - (_g3181931871_))))) - (if (gx#stx-null? _hd3183031975_) - (if (gx#stx-pair/null? _tl3182931978_) - (let ((___splice4672146722_ + (_g3153431586_))))) + (if (gx#stx-null? _hd3154531690_) + (if (gx#stx-pair/null? _tl3154431693_) + (let ((___splice4651346514_ (gx#syntax-split-splice - _tl3182931978_ + _tl3154431693_ '0))) - (let ((_tl3185931901_ + (let ((_tl3157431616_ (let () (declare (not safe)) (##vector-ref - ___splice4672146722_ + ___splice4651346514_ '1))) - (_target3185731898_ + (_target3157231613_ (let () (declare (not safe)) (##vector-ref - ___splice4672146722_ + ___splice4651346514_ '0)))) - (if (gx#stx-null? _tl3185931901_) - (___match4678546786_ - _e3182831961_ - _hd3182731965_ - _tl3182631968_ - _e3183131971_ - _hd3183031975_ - _tl3182931978_ - ___splice4672146722_ - _target3185731898_ - _tl3185931901_) + (if (gx#stx-null? _tl3157431616_) + (___match4657746578_ + _e3154331676_ + _hd3154231680_ + _tl3154131683_ + _e3154631686_ + _hd3154531690_ + _tl3154431693_ + ___splice4651346514_ + _target3157231613_ + _tl3157431616_) (let () (declare (not safe)) - (_g3181931871_))))) + (_g3153431586_))))) (let () (declare (not safe)) - (_g3181931871_))) + (_g3153431586_))) (let () (declare (not safe)) - (_g3181931871_)))))) - (let () (declare (not safe)) (_g3181931871_))))) - (let () (declare (not safe)) (_g3181931871_)))))))) + (_g3153431586_)))))) + (let () (declare (not safe)) (_g3153431586_))))) + (let () (declare (not safe)) (_g3153431586_)))))))) (define |gerbil/core$[:0:]#?| - (lambda (_$stx32086_) - (let* ((___stx4678846789_ _$stx32086_) - (_g3209732243_ + (lambda (_$stx31801_) + (let* ((___stx4658046581_ _$stx31801_) + (_g3181231958_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4678846789_)))) - (let ((___kont4679146792_ - (lambda (_L32847_ _L32849_ _L32850_) - (let ((__tmp50739 (gx#datum->syntax '#f 'and)) - (__tmp50734 - (let ((__tmp50735 - (lambda (_g3287132874_ _g3287232877_) - (let ((__tmp50736 - (let ((__tmp50737 - (let ((__tmp50738 + ___stx4658046581_)))) + (let ((___kont4658346584_ + (lambda (_L32562_ _L32564_ _L32565_) + (let ((__tmp50500 (gx#datum->syntax '#f 'and)) + (__tmp50495 + (let ((__tmp50496 + (lambda (_g3258632589_ _g3258732592_) + (let ((__tmp50497 + (let ((__tmp50498 + (let ((__tmp50499 (let () (declare (not safe)) - (cons _L32847_ + (cons _L32562_ '())))) (declare (not safe)) - (cons _g3287132874_ - __tmp50738)))) + (cons _g3258632589_ + __tmp50499)))) (declare (not safe)) - (cons _L32850_ __tmp50737)))) + (cons _L32565_ __tmp50498)))) (declare (not safe)) - (cons __tmp50736 _g3287232877_))))) + (cons __tmp50497 _g3258732592_))))) (declare (not safe)) - (foldr1 __tmp50735 '() _L32849_)))) + (foldr1 __tmp50496 '() _L32564_)))) (declare (not safe)) - (cons __tmp50739 __tmp50734)))) - (___kont4679546796_ - (lambda (_L32737_ _L32739_ _L32740_) - (let ((__tmp50745 (gx#datum->syntax '#f 'or)) - (__tmp50740 - (let ((__tmp50741 - (lambda (_g3276132764_ _g3276232767_) - (let ((__tmp50742 - (let ((__tmp50743 - (let ((__tmp50744 + (cons __tmp50500 __tmp50495)))) + (___kont4658746588_ + (lambda (_L32452_ _L32454_ _L32455_) + (let ((__tmp50506 (gx#datum->syntax '#f 'or)) + (__tmp50501 + (let ((__tmp50502 + (lambda (_g3247632479_ _g3247732482_) + (let ((__tmp50503 + (let ((__tmp50504 + (let ((__tmp50505 (let () (declare (not safe)) - (cons _L32737_ + (cons _L32452_ '())))) (declare (not safe)) - (cons _g3276132764_ - __tmp50744)))) + (cons _g3247632479_ + __tmp50505)))) (declare (not safe)) - (cons _L32740_ __tmp50743)))) + (cons _L32455_ __tmp50504)))) (declare (not safe)) - (cons __tmp50742 _g3276232767_))))) + (cons __tmp50503 _g3247732482_))))) (declare (not safe)) - (foldr1 __tmp50741 '() _L32739_)))) + (foldr1 __tmp50502 '() _L32454_)))) (declare (not safe)) - (cons __tmp50745 __tmp50740)))) - (___kont4679946800_ - (lambda (_L32637_ _L32639_ _L32640_) - (let ((__tmp50750 (gx#datum->syntax '#f 'not)) - (__tmp50746 - (let ((__tmp50747 - (let ((__tmp50748 - (let ((__tmp50749 + (cons __tmp50506 __tmp50501)))) + (___kont4659146592_ + (lambda (_L32352_ _L32354_ _L32355_) + (let ((__tmp50511 (gx#datum->syntax '#f 'not)) + (__tmp50507 + (let ((__tmp50508 + (let ((__tmp50509 + (let ((__tmp50510 (let () (declare (not safe)) - (cons _L32637_ '())))) + (cons _L32352_ '())))) (declare (not safe)) - (cons _L32639_ __tmp50749)))) + (cons _L32354_ __tmp50510)))) (declare (not safe)) - (cons _L32640_ __tmp50748)))) + (cons _L32355_ __tmp50509)))) (declare (not safe)) - (cons __tmp50747 '())))) + (cons __tmp50508 '())))) (declare (not safe)) - (cons __tmp50750 __tmp50746)))) - (___kont4680146802_ - (lambda (_L32563_ _L32565_) - (let ((__tmp50751 - (let () (declare (not safe)) (cons _L32563_ '())))) + (cons __tmp50511 __tmp50507)))) + (___kont4659346594_ + (lambda (_L32278_ _L32280_) + (let ((__tmp50512 + (let () (declare (not safe)) (cons _L32278_ '())))) (declare (not safe)) - (cons _L32565_ __tmp50751)))) - (___kont4680346804_ - (lambda (_L32511_ _L32513_) - (let ((__tmp50760 (gx#datum->syntax '#f 'lambda)) - (__tmp50752 - (let ((__tmp50758 - (let ((__tmp50759 + (cons _L32280_ __tmp50512)))) + (___kont4659546596_ + (lambda (_L32226_ _L32228_) + (let ((__tmp50521 (gx#datum->syntax '#f 'lambda)) + (__tmp50513 + (let ((__tmp50519 + (let ((__tmp50520 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50759 '()))) - (__tmp50753 - (let ((__tmp50754 - (let ((__tmp50755 - (let ((__tmp50756 - (let ((__tmp50757 + (cons __tmp50520 '()))) + (__tmp50514 + (let ((__tmp50515 + (let ((__tmp50516 + (let ((__tmp50517 + (let ((__tmp50518 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50757 + (cons __tmp50518 '())))) (declare (not safe)) - (cons _L32511_ __tmp50756)))) + (cons _L32226_ __tmp50517)))) (declare (not safe)) - (cons _L32513_ __tmp50755)))) + (cons _L32228_ __tmp50516)))) (declare (not safe)) - (cons __tmp50754 '())))) + (cons __tmp50515 '())))) (declare (not safe)) - (cons __tmp50758 __tmp50753)))) + (cons __tmp50519 __tmp50514)))) (declare (not safe)) - (cons __tmp50760 __tmp50752)))) - (___kont4680546806_ - (lambda (_L32463_ _L32465_ _L32466_) - (let ((__tmp50779 (gx#datum->syntax '#f 'lambda)) - (__tmp50761 - (let ((__tmp50777 - (let ((__tmp50778 + (cons __tmp50521 __tmp50513)))) + (___kont4659746598_ + (lambda (_L32178_ _L32180_ _L32181_) + (let ((__tmp50540 (gx#datum->syntax '#f 'lambda)) + (__tmp50522 + (let ((__tmp50538 + (let ((__tmp50539 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50778 '()))) - (__tmp50762 - (let ((__tmp50763 - (let ((__tmp50776 + (cons __tmp50539 '()))) + (__tmp50523 + (let ((__tmp50524 + (let ((__tmp50537 (gx#datum->syntax '#f 'alet)) - (__tmp50764 - (let ((__tmp50769 - (let ((__tmp50775 + (__tmp50525 + (let ((__tmp50530 + (let ((__tmp50536 (gx#datum->syntax '#f '$val)) - (__tmp50770 - (let ((__tmp50771 + (__tmp50531 + (let ((__tmp50532 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50772 - (let ((__tmp50773 - (let ((__tmp50774 + (let ((__tmp50533 + (let ((__tmp50534 + (let ((__tmp50535 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50774 '())))) + (cons __tmp50535 '())))) (declare (not safe)) - (cons _L32465_ __tmp50773)))) + (cons _L32180_ __tmp50534)))) (declare (not safe)) - (cons _L32466_ __tmp50772)))) + (cons _L32181_ __tmp50533)))) (declare (not safe)) - (cons __tmp50771 '())))) + (cons __tmp50532 '())))) (declare (not safe)) - (cons __tmp50775 __tmp50770))) + (cons __tmp50536 __tmp50531))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50765 - (let ((__tmp50766 - (let ((__tmp50767 + (__tmp50526 + (let ((__tmp50527 + (let ((__tmp50528 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50768 (gx#datum->syntax '#f '$val))) + (let ((__tmp50529 (gx#datum->syntax '#f '$val))) (declare (not safe)) - (cons __tmp50768 '())))) + (cons __tmp50529 '())))) (declare (not safe)) - (cons _L32463_ __tmp50767)))) + (cons _L32178_ __tmp50528)))) (declare (not safe)) - (cons __tmp50766 '())))) + (cons __tmp50527 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50769 - __tmp50765)))) + (cons __tmp50530 + __tmp50526)))) (declare (not safe)) - (cons __tmp50776 __tmp50764)))) + (cons __tmp50537 __tmp50525)))) (declare (not safe)) - (cons __tmp50763 '())))) + (cons __tmp50524 '())))) (declare (not safe)) - (cons __tmp50777 __tmp50762)))) + (cons __tmp50538 __tmp50523)))) (declare (not safe)) - (cons __tmp50779 __tmp50761)))) - (___kont4680746808_ - (lambda (_L32394_ _L32396_ _L32397_) - (let ((__tmp50795 (gx#datum->syntax '#f 'lambda)) - (__tmp50780 - (let ((__tmp50793 - (let ((__tmp50794 + (cons __tmp50540 __tmp50522)))) + (___kont4659946600_ + (lambda (_L32109_ _L32111_ _L32112_) + (let ((__tmp50556 (gx#datum->syntax '#f 'lambda)) + (__tmp50541 + (let ((__tmp50554 + (let ((__tmp50555 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50794 '()))) - (__tmp50781 - (let ((__tmp50782 - (let ((__tmp50792 + (cons __tmp50555 '()))) + (__tmp50542 + (let ((__tmp50543 + (let ((__tmp50553 (gx#datum->syntax '#f 'and)) - (__tmp50783 - (let ((__tmp50788 - (let ((__tmp50789 - (let ((__tmp50790 + (__tmp50544 + (let ((__tmp50549 + (let ((__tmp50550 + (let ((__tmp50551 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50791 (gx#datum->syntax '#f '$obj))) + (let ((__tmp50552 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50791 '())))) + (cons __tmp50552 '())))) (declare (not safe)) - (cons _L32396_ __tmp50790)))) + (cons _L32111_ __tmp50551)))) (declare (not safe)) - (cons _L32397_ __tmp50789))) + (cons _L32112_ __tmp50550))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50784 - (let ((__tmp50785 - (let ((__tmp50786 + (__tmp50545 + (let ((__tmp50546 + (let ((__tmp50547 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50787 (gx#datum->syntax '#f '$obj))) + (let ((__tmp50548 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50787 '())))) + (cons __tmp50548 '())))) (declare (not safe)) - (cons _L32394_ __tmp50786)))) + (cons _L32109_ __tmp50547)))) (declare (not safe)) - (cons __tmp50785 '())))) + (cons __tmp50546 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50788 - __tmp50784)))) + (cons __tmp50549 + __tmp50545)))) (declare (not safe)) - (cons __tmp50792 __tmp50783)))) + (cons __tmp50553 __tmp50544)))) (declare (not safe)) - (cons __tmp50782 '())))) + (cons __tmp50543 '())))) (declare (not safe)) - (cons __tmp50793 __tmp50781)))) + (cons __tmp50554 __tmp50542)))) (declare (not safe)) - (cons __tmp50795 __tmp50780)))) - (___kont4680946810_ - (lambda (_L32314_ _L32316_ _L32317_ _L32318_) - (let ((__tmp50813 (gx#datum->syntax '#f 'lambda)) - (__tmp50796 - (let ((__tmp50811 - (let ((__tmp50812 + (cons __tmp50556 __tmp50541)))) + (___kont4660146602_ + (lambda (_L32029_ _L32031_ _L32032_ _L32033_) + (let ((__tmp50574 (gx#datum->syntax '#f 'lambda)) + (__tmp50557 + (let ((__tmp50572 + (let ((__tmp50573 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50812 '()))) - (__tmp50797 - (let ((__tmp50798 - (let ((__tmp50810 + (cons __tmp50573 '()))) + (__tmp50558 + (let ((__tmp50559 + (let ((__tmp50571 (gx#datum->syntax '#f 'and)) - (__tmp50799 - (let ((__tmp50806 - (let ((__tmp50807 - (let ((__tmp50808 + (__tmp50560 + (let ((__tmp50567 + (let ((__tmp50568 + (let ((__tmp50569 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50809 (gx#datum->syntax '#f '$obj))) + (let ((__tmp50570 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50809 '())))) + (cons __tmp50570 '())))) (declare (not safe)) - (cons _L32317_ __tmp50808)))) + (cons _L32032_ __tmp50569)))) (declare (not safe)) - (cons _L32318_ __tmp50807))) + (cons _L32033_ __tmp50568))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50800 - (let ((__tmp50801 - (let ((__tmp50802 + (__tmp50561 + (let ((__tmp50562 + (let ((__tmp50563 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50803 - (let ((__tmp50804 - (let ((__tmp50805 + (let ((__tmp50564 + (let ((__tmp50565 + (let ((__tmp50566 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50805 '())))) + (cons __tmp50566 '())))) (declare (not safe)) - (cons _L32316_ __tmp50804)))) + (cons _L32031_ __tmp50565)))) (declare (not safe)) - (cons __tmp50803 '())))) + (cons __tmp50564 '())))) (declare (not safe)) - (cons _L32314_ __tmp50802)))) + (cons _L32029_ __tmp50563)))) (declare (not safe)) - (cons __tmp50801 '())))) + (cons __tmp50562 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50806 - __tmp50800)))) + (cons __tmp50567 + __tmp50561)))) (declare (not safe)) - (cons __tmp50810 __tmp50799)))) + (cons __tmp50571 __tmp50560)))) (declare (not safe)) - (cons __tmp50798 '())))) + (cons __tmp50559 '())))) (declare (not safe)) - (cons __tmp50811 __tmp50797)))) + (cons __tmp50572 __tmp50558)))) (declare (not safe)) - (cons __tmp50813 __tmp50796))))) - (let* ((___match4696146962_ - (lambda (_e3218932423_ - _hd3218832427_ - _tl3218732430_ - _e3219232433_ - _hd3219132437_ - _tl3219032440_ - _e3219532443_ - _hd3219432447_ - _tl3219332450_) - (if (gx#identifier? _hd3219432447_) + (cons __tmp50574 __tmp50557))))) + (let* ((___match4675346754_ + (lambda (_e3190432138_ + _hd3190332142_ + _tl3190232145_ + _e3190732148_ + _hd3190632152_ + _tl3190532155_ + _e3191032158_ + _hd3190932162_ + _tl3190832165_) + (if (gx#identifier? _hd3190932162_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50815_| - _hd3219432447_) - (if (gx#stx-pair? _tl3219332450_) - (let ((_e3219832453_ - (gx#syntax-e _tl3219332450_))) - (let ((_tl3219632460_ + |gerbil/core$[1]#_g50576_| + _hd3190932162_) + (if (gx#stx-pair? _tl3190832165_) + (let ((_e3191332168_ + (gx#syntax-e _tl3190832165_))) + (let ((_tl3191132175_ (let () (declare (not safe)) - (##cdr _e3219832453_))) - (_hd3219732457_ + (##cdr _e3191332168_))) + (_hd3191232172_ (let () (declare (not safe)) - (##car _e3219832453_)))) - (if (gx#stx-null? _tl3219632460_) - (___kont4680546806_ - _hd3219732457_ - _hd3219132437_ - _hd3218832427_) + (##car _e3191332168_)))) + (if (gx#stx-null? _tl3191132175_) + (___kont4659746598_ + _hd3191232172_ + _hd3190632152_ + _hd3190332142_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))) - (if (gx#stx-datum? _hd3219432447_) - (let ((_e3221132380_ (gx#stx-e _hd3219432447_))) + (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))) + (if (gx#stx-datum? _hd3190932162_) + (let ((_e3192632095_ (gx#stx-e _hd3190932162_))) (if (let () (declare (not safe)) - (equal? _e3221132380_ '::)) - (if (gx#stx-pair? _tl3219332450_) - (let ((_e3221432384_ - (gx#syntax-e _tl3219332450_))) - (let ((_tl3221232391_ + (equal? _e3192632095_ '::)) + (if (gx#stx-pair? _tl3190832165_) + (let ((_e3192932099_ + (gx#syntax-e _tl3190832165_))) + (let ((_tl3192732106_ (let () (declare (not safe)) - (##cdr _e3221432384_))) - (_hd3221332388_ + (##cdr _e3192932099_))) + (_hd3192832103_ (let () (declare (not safe)) - (##car _e3221432384_)))) - (if (gx#stx-null? _tl3221232391_) - (___kont4680746808_ - _hd3221332388_ - _hd3219132437_ - _hd3218832427_) + (##car _e3192932099_)))) + (if (gx#stx-null? _tl3192732106_) + (___kont4659946600_ + _hd3192832103_ + _hd3190632152_ + _hd3190332142_) (if (gx#stx-pair? - _tl3221232391_) - (let ((_e3223432294_ + _tl3192732106_) + (let ((_e3194932009_ (gx#syntax-e - _tl3221232391_))) - (let ((_tl3223232301_ + _tl3192732106_))) + (let ((_tl3194732016_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3223432294_))) - (_hd3223332298_ - (let () (declare (not safe)) (##car _e3223432294_)))) - (if (gx#identifier? _hd3223332298_) + (##cdr _e3194932009_))) + (_hd3194832013_ + (let () (declare (not safe)) (##car _e3194932009_)))) + (if (gx#identifier? _hd3194832013_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50814_| - _hd3223332298_) - (if (gx#stx-pair? _tl3223232301_) - (let ((_e3223732304_ (gx#syntax-e _tl3223232301_))) - (let ((_tl3223532311_ + |gerbil/core$[1]#_g50575_| + _hd3194832013_) + (if (gx#stx-pair? _tl3194732016_) + (let ((_e3195232019_ (gx#syntax-e _tl3194732016_))) + (let ((_tl3195032026_ (let () (declare (not safe)) - (##cdr _e3223732304_))) - (_hd3223632308_ + (##cdr _e3195232019_))) + (_hd3195132023_ (let () (declare (not safe)) - (##car _e3223732304_)))) - (if (gx#stx-null? _tl3223532311_) - (___kont4680946810_ - _hd3223632308_ - _hd3221332388_ - _hd3219132437_ - _hd3218832427_) + (##car _e3195232019_)))) + (if (gx#stx-null? _tl3195032026_) + (___kont4660146602_ + _hd3195132023_ + _hd3192832103_ + _hd3190632152_ + _hd3190332142_) (let () (declare (not safe)) - (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))))) + (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3209732243_)))))) + (_g3181231958_)))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_)))) - (let () (declare (not safe)) (_g3209732243_)))))) - (___match4694146942_ - (lambda (_e3218032491_ - _hd3217932495_ - _tl3217832498_ - _e3218332501_ - _hd3218232505_ - _tl3218132508_) - (if (gx#stx-null? _tl3218132508_) - (___kont4680346804_ _hd3218232505_ _hd3217932495_) - (if (gx#stx-pair? _tl3218132508_) - (let ((_e3219532443_ - (gx#syntax-e _tl3218132508_))) - (let ((_tl3219332450_ + (_g3181231958_)))) + (let () (declare (not safe)) (_g3181231958_)))))) + (___match4673346734_ + (lambda (_e3189532206_ + _hd3189432210_ + _tl3189332213_ + _e3189832216_ + _hd3189732220_ + _tl3189632223_) + (if (gx#stx-null? _tl3189632223_) + (___kont4659546596_ _hd3189732220_ _hd3189432210_) + (if (gx#stx-pair? _tl3189632223_) + (let ((_e3191032158_ + (gx#syntax-e _tl3189632223_))) + (let ((_tl3190832165_ (let () (declare (not safe)) - (##cdr _e3219532443_))) - (_hd3219432447_ + (##cdr _e3191032158_))) + (_hd3190932162_ (let () (declare (not safe)) - (##car _e3219532443_)))) - (if (gx#identifier? _hd3219432447_) + (##car _e3191032158_)))) + (if (gx#identifier? _hd3190932162_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50815_| - _hd3219432447_) - (if (gx#stx-pair? _tl3219332450_) - (let ((_e3219832453_ + |gerbil/core$[1]#_g50576_| + _hd3190932162_) + (if (gx#stx-pair? _tl3190832165_) + (let ((_e3191332168_ (gx#syntax-e - _tl3219332450_))) - (let ((_tl3219632460_ + _tl3190832165_))) + (let ((_tl3191132175_ (let () (declare (not safe)) - (##cdr _e3219832453_))) - (_hd3219732457_ + (##cdr _e3191332168_))) + (_hd3191232172_ (let () (declare (not safe)) - (##car _e3219832453_)))) + (##car _e3191332168_)))) (if (gx#stx-null? - _tl3219632460_) - (___kont4680546806_ - _hd3219732457_ - _hd3218232505_ - _hd3217932495_) + _tl3191132175_) + (___kont4659746598_ + _hd3191232172_ + _hd3189732220_ + _hd3189432210_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))) - (if (gx#stx-datum? _hd3219432447_) - (let ((_e3221132380_ - (gx#stx-e _hd3219432447_))) + (_g3181231958_))) + (if (gx#stx-datum? _hd3190932162_) + (let ((_e3192632095_ + (gx#stx-e _hd3190932162_))) (if (let () (declare (not safe)) - (equal? _e3221132380_ '::)) + (equal? _e3192632095_ '::)) (if (gx#stx-pair? - _tl3219332450_) - (let ((_e3221432384_ + _tl3190832165_) + (let ((_e3192932099_ (gx#syntax-e - _tl3219332450_))) - (let ((_tl3221232391_ + _tl3190832165_))) + (let ((_tl3192732106_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3221432384_))) - (_hd3221332388_ - (let () (declare (not safe)) (##car _e3221432384_)))) - (if (gx#stx-null? _tl3221232391_) - (___kont4680746808_ - _hd3221332388_ - _hd3218232505_ - _hd3217932495_) - (if (gx#stx-pair? _tl3221232391_) - (let ((_e3223432294_ (gx#syntax-e _tl3221232391_))) - (let ((_tl3223232301_ + (##cdr _e3192932099_))) + (_hd3192832103_ + (let () (declare (not safe)) (##car _e3192932099_)))) + (if (gx#stx-null? _tl3192732106_) + (___kont4659946600_ + _hd3192832103_ + _hd3189732220_ + _hd3189432210_) + (if (gx#stx-pair? _tl3192732106_) + (let ((_e3194932009_ (gx#syntax-e _tl3192732106_))) + (let ((_tl3194732016_ (let () (declare (not safe)) - (##cdr _e3223432294_))) - (_hd3223332298_ + (##cdr _e3194932009_))) + (_hd3194832013_ (let () (declare (not safe)) - (##car _e3223432294_)))) - (if (gx#identifier? _hd3223332298_) + (##car _e3194932009_)))) + (if (gx#identifier? _hd3194832013_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50814_| - _hd3223332298_) - (if (gx#stx-pair? _tl3223232301_) - (let ((_e3223732304_ - (gx#syntax-e _tl3223232301_))) - (let ((_tl3223532311_ + |gerbil/core$[1]#_g50575_| + _hd3194832013_) + (if (gx#stx-pair? _tl3194732016_) + (let ((_e3195232019_ + (gx#syntax-e _tl3194732016_))) + (let ((_tl3195032026_ (let () (declare (not safe)) - (##cdr _e3223732304_))) - (_hd3223632308_ + (##cdr _e3195232019_))) + (_hd3195132023_ (let () (declare (not safe)) - (##car _e3223732304_)))) - (if (gx#stx-null? _tl3223532311_) - (___kont4680946810_ - _hd3223632308_ - _hd3221332388_ - _hd3218232505_ - _hd3217932495_) + (##car _e3195232019_)))) + (if (gx#stx-null? _tl3195032026_) + (___kont4660146602_ + _hd3195132023_ + _hd3192832103_ + _hd3189732220_ + _hd3189432210_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_)))))) + (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_)))) + (_g3181231958_)))) (let () (declare (not safe)) - (_g3209732243_)))))) - (let () (declare (not safe)) (_g3209732243_)))))) - (___match4687146872_ - (lambda (_e3212832667_ - _hd3212732671_ - _tl3212632674_ - _e3213132677_ - _hd3213032681_ - _tl3212932684_ - _e3213432687_ - _hd3213332691_ - _tl3213232694_ - ___splice4679746798_ - _target3213532697_ - _tl3213732700_) - (letrec ((_loop3213832703_ - (lambda (_hd3213632707_ _pred3214232710_) - (if (gx#stx-pair? _hd3213632707_) - (let ((_e3213932713_ - (gx#syntax-e _hd3213632707_))) - (let ((_lp-tl3214132720_ + (_g3181231958_)))))) + (let () (declare (not safe)) (_g3181231958_)))))) + (___match4666346664_ + (lambda (_e3184332382_ + _hd3184232386_ + _tl3184132389_ + _e3184632392_ + _hd3184532396_ + _tl3184432399_ + _e3184932402_ + _hd3184832406_ + _tl3184732409_ + ___splice4658946590_ + _target3185032412_ + _tl3185232415_) + (letrec ((_loop3185332418_ + (lambda (_hd3185132422_ _pred3185732425_) + (if (gx#stx-pair? _hd3185132422_) + (let ((_e3185432428_ + (gx#syntax-e _hd3185132422_))) + (let ((_lp-tl3185632435_ (let () (declare (not safe)) - (##cdr _e3213932713_))) - (_lp-hd3214032717_ + (##cdr _e3185432428_))) + (_lp-hd3185532432_ (let () (declare (not safe)) - (##car _e3213932713_)))) - (_loop3213832703_ - _lp-tl3214132720_ + (##car _e3185432428_)))) + (_loop3185332418_ + _lp-tl3185632435_ (let () (declare (not safe)) - (cons _lp-hd3214032717_ - _pred3214232710_))))) - (let ((_pred3214332723_ - (reverse _pred3214232710_))) - (if (gx#stx-pair? _tl3212932684_) - (let ((_e3214632727_ + (cons _lp-hd3185532432_ + _pred3185732425_))))) + (let ((_pred3185832438_ + (reverse _pred3185732425_))) + (if (gx#stx-pair? _tl3184432399_) + (let ((_e3186132442_ (gx#syntax-e - _tl3212932684_))) - (let ((_tl3214432734_ + _tl3184432399_))) + (let ((_tl3185932449_ (let () (declare (not safe)) - (##cdr _e3214632727_))) - (_hd3214532731_ + (##cdr _e3186132442_))) + (_hd3186032446_ (let () (declare (not safe)) - (##car _e3214632727_)))) + (##car _e3186132442_)))) (if (gx#stx-null? - _tl3214432734_) - (___kont4679546796_ - _hd3214532731_ - _pred3214332723_ - _hd3212732671_) - (___match4696146962_ - _e3212832667_ - _hd3212732671_ - _tl3212632674_ - _e3213132677_ - _hd3213032681_ - _tl3212932684_ - _e3214632727_ - _hd3214532731_ - _tl3214432734_)))) - (___match4694146942_ - _e3212832667_ - _hd3212732671_ - _tl3212632674_ - _e3213132677_ - _hd3213032681_ - _tl3212932684_))))))) - (_loop3213832703_ _target3213532697_ '())))) - (___match4684146842_ - (lambda (_e3210432777_ - _hd3210332781_ - _tl3210232784_ - _e3210732787_ - _hd3210632791_ - _tl3210532794_ - _e3211032797_ - _hd3210932801_ - _tl3210832804_ - ___splice4679346794_ - _target3211132807_ - _tl3211332810_) - (letrec ((_loop3211432813_ - (lambda (_hd3211232817_ _pred3211832820_) - (if (gx#stx-pair? _hd3211232817_) - (let ((_e3211532823_ - (gx#syntax-e _hd3211232817_))) - (let ((_lp-tl3211732830_ + _tl3185932449_) + (___kont4658746588_ + _hd3186032446_ + _pred3185832438_ + _hd3184232386_) + (___match4675346754_ + _e3184332382_ + _hd3184232386_ + _tl3184132389_ + _e3184632392_ + _hd3184532396_ + _tl3184432399_ + _e3186132442_ + _hd3186032446_ + _tl3185932449_)))) + (___match4673346734_ + _e3184332382_ + _hd3184232386_ + _tl3184132389_ + _e3184632392_ + _hd3184532396_ + _tl3184432399_))))))) + (_loop3185332418_ _target3185032412_ '())))) + (___match4663346634_ + (lambda (_e3181932492_ + _hd3181832496_ + _tl3181732499_ + _e3182232502_ + _hd3182132506_ + _tl3182032509_ + _e3182532512_ + _hd3182432516_ + _tl3182332519_ + ___splice4658546586_ + _target3182632522_ + _tl3182832525_) + (letrec ((_loop3182932528_ + (lambda (_hd3182732532_ _pred3183332535_) + (if (gx#stx-pair? _hd3182732532_) + (let ((_e3183032538_ + (gx#syntax-e _hd3182732532_))) + (let ((_lp-tl3183232545_ (let () (declare (not safe)) - (##cdr _e3211532823_))) - (_lp-hd3211632827_ + (##cdr _e3183032538_))) + (_lp-hd3183132542_ (let () (declare (not safe)) - (##car _e3211532823_)))) - (_loop3211432813_ - _lp-tl3211732830_ + (##car _e3183032538_)))) + (_loop3182932528_ + _lp-tl3183232545_ (let () (declare (not safe)) - (cons _lp-hd3211632827_ - _pred3211832820_))))) - (let ((_pred3211932833_ - (reverse _pred3211832820_))) - (if (gx#stx-pair? _tl3210532794_) - (let ((_e3212232837_ + (cons _lp-hd3183132542_ + _pred3183332535_))))) + (let ((_pred3183432548_ + (reverse _pred3183332535_))) + (if (gx#stx-pair? _tl3182032509_) + (let ((_e3183732552_ (gx#syntax-e - _tl3210532794_))) - (let ((_tl3212032844_ + _tl3182032509_))) + (let ((_tl3183532559_ (let () (declare (not safe)) - (##cdr _e3212232837_))) - (_hd3212132841_ + (##cdr _e3183732552_))) + (_hd3183632556_ (let () (declare (not safe)) - (##car _e3212232837_)))) + (##car _e3183732552_)))) (if (gx#stx-null? - _tl3212032844_) - (___kont4679146792_ - _hd3212132841_ - _pred3211932833_ - _hd3210332781_) - (___match4696146962_ - _e3210432777_ - _hd3210332781_ - _tl3210232784_ - _e3210732787_ - _hd3210632791_ - _tl3210532794_ - _e3212232837_ - _hd3212132841_ - _tl3212032844_)))) - (___match4694146942_ - _e3210432777_ - _hd3210332781_ - _tl3210232784_ - _e3210732787_ - _hd3210632791_ - _tl3210532794_))))))) - (_loop3211432813_ _target3211132807_ '()))))) - (if (gx#stx-pair? ___stx4678846789_) - (let ((_e3210432777_ (gx#syntax-e ___stx4678846789_))) - (let ((_tl3210232784_ - (let () (declare (not safe)) (##cdr _e3210432777_))) - (_hd3210332781_ + _tl3183532559_) + (___kont4658346584_ + _hd3183632556_ + _pred3183432548_ + _hd3181832496_) + (___match4675346754_ + _e3181932492_ + _hd3181832496_ + _tl3181732499_ + _e3182232502_ + _hd3182132506_ + _tl3182032509_ + _e3183732552_ + _hd3183632556_ + _tl3183532559_)))) + (___match4673346734_ + _e3181932492_ + _hd3181832496_ + _tl3181732499_ + _e3182232502_ + _hd3182132506_ + _tl3182032509_))))))) + (_loop3182932528_ _target3182632522_ '()))))) + (if (gx#stx-pair? ___stx4658046581_) + (let ((_e3181932492_ (gx#syntax-e ___stx4658046581_))) + (let ((_tl3181732499_ + (let () (declare (not safe)) (##cdr _e3181932492_))) + (_hd3181832496_ (let () (declare (not safe)) - (##car _e3210432777_)))) - (if (gx#stx-pair? _tl3210232784_) - (let ((_e3210732787_ (gx#syntax-e _tl3210232784_))) - (let ((_tl3210532794_ + (##car _e3181932492_)))) + (if (gx#stx-pair? _tl3181732499_) + (let ((_e3182232502_ (gx#syntax-e _tl3181732499_))) + (let ((_tl3182032509_ (let () (declare (not safe)) - (##cdr _e3210732787_))) - (_hd3210632791_ + (##cdr _e3182232502_))) + (_hd3182132506_ (let () (declare (not safe)) - (##car _e3210732787_)))) - (if (gx#stx-pair? _hd3210632791_) - (let ((_e3211032797_ - (gx#syntax-e _hd3210632791_))) - (let ((_tl3210832804_ + (##car _e3182232502_)))) + (if (gx#stx-pair? _hd3182132506_) + (let ((_e3182532512_ + (gx#syntax-e _hd3182132506_))) + (let ((_tl3182332519_ (let () (declare (not safe)) - (##cdr _e3211032797_))) - (_hd3210932801_ + (##cdr _e3182532512_))) + (_hd3182432516_ (let () (declare (not safe)) - (##car _e3211032797_)))) - (if (gx#identifier? _hd3210932801_) + (##car _e3182532512_)))) + (if (gx#identifier? _hd3182432516_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50818_| - _hd3210932801_) + |gerbil/core$[1]#_g50579_| + _hd3182432516_) (if (gx#stx-pair/null? - _tl3210832804_) - (let ((___splice4679346794_ + _tl3182332519_) + (let ((___splice4658546586_ (gx#syntax-split-splice - _tl3210832804_ + _tl3182332519_ '0))) - (let ((_tl3211332810_ + (let ((_tl3182832525_ (let () (declare (not safe)) (##vector-ref - ___splice4679346794_ + ___splice4658546586_ '1))) - (_target3211132807_ + (_target3182632522_ (let () (declare (not safe)) (##vector-ref - ___splice4679346794_ + ___splice4658546586_ '0)))) (if (gx#stx-null? - _tl3211332810_) - (___match4684146842_ - _e3210432777_ - _hd3210332781_ - _tl3210232784_ - _e3210732787_ - _hd3210632791_ - _tl3210532794_ - _e3211032797_ - _hd3210932801_ - _tl3210832804_ - ___splice4679346794_ - _target3211132807_ - _tl3211332810_) + _tl3182832525_) + (___match4663346634_ + _e3181932492_ + _hd3181832496_ + _tl3181732499_ + _e3182232502_ + _hd3182132506_ + _tl3182032509_ + _e3182532512_ + _hd3182432516_ + _tl3182332519_ + ___splice4658546586_ + _target3182632522_ + _tl3182832525_) (if (gx#stx-pair? - _tl3210532794_) - (let ((_e3217532553_ + _tl3182032509_) + (let ((_e3189032268_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3210532794_))) - (let ((_tl3217332560_ + (gx#syntax-e _tl3182032509_))) + (let ((_tl3188832275_ (let () (declare (not safe)) - (##cdr _e3217532553_))) - (_hd3217432557_ + (##cdr _e3189032268_))) + (_hd3188932272_ (let () (declare (not safe)) - (##car _e3217532553_)))) - (if (gx#stx-null? _tl3217332560_) - (___kont4680146802_ - _hd3217432557_ - _hd3210632791_) - (if (gx#identifier? _hd3217432557_) + (##car _e3189032268_)))) + (if (gx#stx-null? _tl3188832275_) + (___kont4659346594_ + _hd3188932272_ + _hd3182132506_) + (if (gx#identifier? _hd3188932272_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50815_| - _hd3217432557_) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3219832453_ - (gx#syntax-e _tl3217332560_))) - (let ((_tl3219632460_ + |gerbil/core$[1]#_g50576_| + _hd3188932272_) + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3191332168_ + (gx#syntax-e _tl3188832275_))) + (let ((_tl3191132175_ (let () (declare (not safe)) - (##cdr _e3219832453_))) - (_hd3219732457_ + (##cdr _e3191332168_))) + (_hd3191232172_ (let () (declare (not safe)) - (##car _e3219832453_)))) - (if (gx#stx-null? _tl3219632460_) - (___kont4680546806_ - _hd3219732457_ - _hd3210632791_ - _hd3210332781_) + (##car _e3191332168_)))) + (if (gx#stx-null? _tl3191132175_) + (___kont4659746598_ + _hd3191232172_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))) - (if (gx#stx-datum? _hd3217432557_) - (let ((_e3221132380_ - (gx#stx-e _hd3217432557_))) + (_g3181231958_))) + (if (gx#stx-datum? _hd3188932272_) + (let ((_e3192632095_ + (gx#stx-e _hd3188932272_))) (if (let () (declare (not safe)) - (equal? _e3221132380_ '::)) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3221432384_ + (equal? _e3192632095_ '::)) + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3192932099_ (gx#syntax-e - _tl3217332560_))) - (let ((_tl3221232391_ + _tl3188832275_))) + (let ((_tl3192732106_ (let () (declare (not safe)) - (##cdr _e3221432384_))) - (_hd3221332388_ + (##cdr _e3192932099_))) + (_hd3192832103_ (let () (declare (not safe)) - (##car _e3221432384_)))) + (##car _e3192932099_)))) (if (gx#stx-null? - _tl3221232391_) - (___kont4680746808_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) + _tl3192732106_) + (___kont4659946600_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) (if (gx#stx-pair? - _tl3221232391_) - (let ((_e3223432294_ + _tl3192732106_) + (let ((_e3194932009_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3221232391_))) - (let ((_tl3223232301_ + (gx#syntax-e _tl3192732106_))) + (let ((_tl3194732016_ (let () (declare (not safe)) - (##cdr _e3223432294_))) - (_hd3223332298_ + (##cdr _e3194932009_))) + (_hd3194832013_ (let () (declare (not safe)) - (##car _e3223432294_)))) - (if (gx#identifier? _hd3223332298_) + (##car _e3194932009_)))) + (if (gx#identifier? _hd3194832013_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50814_| - _hd3223332298_) - (if (gx#stx-pair? _tl3223232301_) - (let ((_e3223732304_ - (gx#syntax-e _tl3223232301_))) - (let ((_tl3223532311_ + |gerbil/core$[1]#_g50575_| + _hd3194832013_) + (if (gx#stx-pair? _tl3194732016_) + (let ((_e3195232019_ + (gx#syntax-e _tl3194732016_))) + (let ((_tl3195032026_ (let () (declare (not safe)) - (##cdr _e3223732304_))) - (_hd3223632308_ + (##cdr _e3195232019_))) + (_hd3195132023_ (let () (declare (not safe)) - (##car _e3223732304_)))) - (if (gx#stx-null? _tl3223532311_) - (___kont4680946810_ - _hd3223632308_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) + (##car _e3195232019_)))) + (if (gx#stx-null? _tl3195032026_) + (___kont4660146602_ + _hd3195132023_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_)))))) + (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_)))) + (_g3181231958_)))) (let () (declare (not safe)) - (_g3209732243_))))))) - (if (gx#stx-null? _tl3210532794_) - (___kont4680346804_ _hd3210632791_ _hd3210332781_) - (let () (declare (not safe)) (_g3209732243_))))))) + (_g3181231958_))))))) + (if (gx#stx-null? _tl3182032509_) + (___kont4659546596_ _hd3182132506_ _hd3181832496_) + (let () (declare (not safe)) (_g3181231958_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _tl3210532794_) - (let ((_e3217532553_ + _tl3182032509_) + (let ((_e3189032268_ (gx#syntax-e - _tl3210532794_))) - (let ((_tl3217332560_ + _tl3182032509_))) + (let ((_tl3188832275_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e3217532553_))) - (_hd3217432557_ - (let () (declare (not safe)) (##car _e3217532553_)))) - (if (gx#stx-null? _tl3217332560_) - (___kont4680146802_ _hd3217432557_ _hd3210632791_) - (if (gx#identifier? _hd3217432557_) + (##cdr _e3189032268_))) + (_hd3188932272_ + (let () (declare (not safe)) (##car _e3189032268_)))) + (if (gx#stx-null? _tl3188832275_) + (___kont4659346594_ _hd3188932272_ _hd3182132506_) + (if (gx#identifier? _hd3188932272_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50815_| - _hd3217432557_) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3219832453_ - (gx#syntax-e _tl3217332560_))) - (let ((_tl3219632460_ + |gerbil/core$[1]#_g50576_| + _hd3188932272_) + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3191332168_ + (gx#syntax-e _tl3188832275_))) + (let ((_tl3191132175_ (let () (declare (not safe)) - (##cdr _e3219832453_))) - (_hd3219732457_ + (##cdr _e3191332168_))) + (_hd3191232172_ (let () (declare (not safe)) - (##car _e3219832453_)))) - (if (gx#stx-null? _tl3219632460_) - (___kont4680546806_ - _hd3219732457_ - _hd3210632791_ - _hd3210332781_) + (##car _e3191332168_)))) + (if (gx#stx-null? _tl3191132175_) + (___kont4659746598_ + _hd3191232172_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))) - (if (gx#stx-datum? _hd3217432557_) - (let ((_e3221132380_ (gx#stx-e _hd3217432557_))) + (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))) + (if (gx#stx-datum? _hd3188932272_) + (let ((_e3192632095_ (gx#stx-e _hd3188932272_))) (if (let () (declare (not safe)) - (equal? _e3221132380_ '::)) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3221432384_ - (gx#syntax-e _tl3217332560_))) - (let ((_tl3221232391_ + (equal? _e3192632095_ '::)) + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3192932099_ + (gx#syntax-e _tl3188832275_))) + (let ((_tl3192732106_ (let () (declare (not safe)) - (##cdr _e3221432384_))) - (_hd3221332388_ + (##cdr _e3192932099_))) + (_hd3192832103_ (let () (declare (not safe)) - (##car _e3221432384_)))) - (if (gx#stx-null? _tl3221232391_) - (___kont4680746808_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) + (##car _e3192932099_)))) + (if (gx#stx-null? _tl3192732106_) + (___kont4659946600_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) (if (gx#stx-pair? - _tl3221232391_) - (let ((_e3223432294_ + _tl3192732106_) + (let ((_e3194932009_ (gx#syntax-e - _tl3221232391_))) - (let ((_tl3223232301_ + _tl3192732106_))) + (let ((_tl3194732016_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3223432294_))) - (_hd3223332298_ - (let () (declare (not safe)) (##car _e3223432294_)))) - (if (gx#identifier? _hd3223332298_) + (##cdr _e3194932009_))) + (_hd3194832013_ + (let () (declare (not safe)) (##car _e3194932009_)))) + (if (gx#identifier? _hd3194832013_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50814_| - _hd3223332298_) - (if (gx#stx-pair? _tl3223232301_) - (let ((_e3223732304_ (gx#syntax-e _tl3223232301_))) - (let ((_tl3223532311_ + |gerbil/core$[1]#_g50575_| + _hd3194832013_) + (if (gx#stx-pair? _tl3194732016_) + (let ((_e3195232019_ (gx#syntax-e _tl3194732016_))) + (let ((_tl3195032026_ (let () (declare (not safe)) - (##cdr _e3223732304_))) - (_hd3223632308_ + (##cdr _e3195232019_))) + (_hd3195132023_ (let () (declare (not safe)) - (##car _e3223732304_)))) - (if (gx#stx-null? _tl3223532311_) - (___kont4680946810_ - _hd3223632308_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) + (##car _e3195232019_)))) + (if (gx#stx-null? _tl3195032026_) + (___kont4660146602_ + _hd3195132023_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))))) + (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3209732243_)))))) + (_g3181231958_)))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_)))) + (_g3181231958_)))) (let () (declare (not safe)) - (_g3209732243_))))))) - (if (gx#stx-null? _tl3210532794_) - (___kont4680346804_ _hd3210632791_ _hd3210332781_) - (let () (declare (not safe)) (_g3209732243_))))) + (_g3181231958_))))))) + (if (gx#stx-null? _tl3182032509_) + (___kont4659546596_ _hd3182132506_ _hd3181832496_) + (let () (declare (not safe)) (_g3181231958_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g50817_| - _hd3210932801_) + |gerbil/core$[1]#_g50578_| + _hd3182432516_) (if (gx#stx-pair/null? - _tl3210832804_) - (let ((___splice4679746798_ + _tl3182332519_) + (let ((___splice4658946590_ (gx#syntax-split-splice - _tl3210832804_ + _tl3182332519_ '0))) - (let ((_tl3213732700_ + (let ((_tl3185232415_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4679746798_ '1))) - (_target3213532697_ + (##vector-ref ___splice4658946590_ '1))) + (_target3185032412_ (let () (declare (not safe)) - (##vector-ref ___splice4679746798_ '0)))) - (if (gx#stx-null? _tl3213732700_) - (___match4687146872_ - _e3210432777_ - _hd3210332781_ - _tl3210232784_ - _e3210732787_ - _hd3210632791_ - _tl3210532794_ - _e3211032797_ - _hd3210932801_ - _tl3210832804_ - ___splice4679746798_ - _target3213532697_ - _tl3213732700_) - (if (gx#stx-pair? _tl3210532794_) - (let ((_e3217532553_ (gx#syntax-e _tl3210532794_))) - (let ((_tl3217332560_ + (##vector-ref ___splice4658946590_ '0)))) + (if (gx#stx-null? _tl3185232415_) + (___match4666346664_ + _e3181932492_ + _hd3181832496_ + _tl3181732499_ + _e3182232502_ + _hd3182132506_ + _tl3182032509_ + _e3182532512_ + _hd3182432516_ + _tl3182332519_ + ___splice4658946590_ + _target3185032412_ + _tl3185232415_) + (if (gx#stx-pair? _tl3182032509_) + (let ((_e3189032268_ (gx#syntax-e _tl3182032509_))) + (let ((_tl3188832275_ (let () (declare (not safe)) - (##cdr _e3217532553_))) - (_hd3217432557_ + (##cdr _e3189032268_))) + (_hd3188932272_ (let () (declare (not safe)) - (##car _e3217532553_)))) - (if (gx#stx-null? _tl3217332560_) - (___kont4680146802_ - _hd3217432557_ - _hd3210632791_) - (if (gx#identifier? _hd3217432557_) + (##car _e3189032268_)))) + (if (gx#stx-null? _tl3188832275_) + (___kont4659346594_ + _hd3188932272_ + _hd3182132506_) + (if (gx#identifier? _hd3188932272_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50815_| - _hd3217432557_) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3219832453_ + |gerbil/core$[1]#_g50576_| + _hd3188932272_) + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3191332168_ (gx#syntax-e - _tl3217332560_))) - (let ((_tl3219632460_ + _tl3188832275_))) + (let ((_tl3191132175_ (let () (declare (not safe)) - (##cdr _e3219832453_))) - (_hd3219732457_ + (##cdr _e3191332168_))) + (_hd3191232172_ (let () (declare (not safe)) - (##car _e3219832453_)))) + (##car _e3191332168_)))) (if (gx#stx-null? - _tl3219632460_) - (___kont4680546806_ - _hd3219732457_ - _hd3210632791_ - _hd3210332781_) + _tl3191132175_) + (___kont4659746598_ + _hd3191232172_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))) - (if (gx#stx-datum? _hd3217432557_) - (let ((_e3221132380_ - (gx#stx-e _hd3217432557_))) + (_g3181231958_))) + (if (gx#stx-datum? _hd3188932272_) + (let ((_e3192632095_ + (gx#stx-e _hd3188932272_))) (if (let () (declare (not safe)) - (equal? _e3221132380_ '::)) + (equal? _e3192632095_ '::)) (if (gx#stx-pair? - _tl3217332560_) - (let ((_e3221432384_ + _tl3188832275_) + (let ((_e3192932099_ (gx#syntax-e - _tl3217332560_))) - (let ((_tl3221232391_ + _tl3188832275_))) + (let ((_tl3192732106_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3221432384_))) - (_hd3221332388_ - (let () (declare (not safe)) (##car _e3221432384_)))) - (if (gx#stx-null? _tl3221232391_) - (___kont4680746808_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) - (if (gx#stx-pair? _tl3221232391_) - (let ((_e3223432294_ (gx#syntax-e _tl3221232391_))) - (let ((_tl3223232301_ + (##cdr _e3192932099_))) + (_hd3192832103_ + (let () (declare (not safe)) (##car _e3192932099_)))) + (if (gx#stx-null? _tl3192732106_) + (___kont4659946600_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) + (if (gx#stx-pair? _tl3192732106_) + (let ((_e3194932009_ (gx#syntax-e _tl3192732106_))) + (let ((_tl3194732016_ (let () (declare (not safe)) - (##cdr _e3223432294_))) - (_hd3223332298_ + (##cdr _e3194932009_))) + (_hd3194832013_ (let () (declare (not safe)) - (##car _e3223432294_)))) - (if (gx#identifier? _hd3223332298_) + (##car _e3194932009_)))) + (if (gx#identifier? _hd3194832013_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50814_| - _hd3223332298_) - (if (gx#stx-pair? _tl3223232301_) - (let ((_e3223732304_ - (gx#syntax-e _tl3223232301_))) - (let ((_tl3223532311_ + |gerbil/core$[1]#_g50575_| + _hd3194832013_) + (if (gx#stx-pair? _tl3194732016_) + (let ((_e3195232019_ + (gx#syntax-e _tl3194732016_))) + (let ((_tl3195032026_ (let () (declare (not safe)) - (##cdr _e3223732304_))) - (_hd3223632308_ + (##cdr _e3195232019_))) + (_hd3195132023_ (let () (declare (not safe)) - (##car _e3223732304_)))) - (if (gx#stx-null? _tl3223532311_) - (___kont4680946810_ - _hd3223632308_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) + (##car _e3195232019_)))) + (if (gx#stx-null? _tl3195032026_) + (___kont4660146602_ + _hd3195132023_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_)))))) + (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_)))) + (_g3181231958_)))) (let () (declare (not safe)) - (_g3209732243_))))))) - (if (gx#stx-null? _tl3210532794_) - (___kont4680346804_ - _hd3210632791_ - _hd3210332781_) + (_g3181231958_))))))) + (if (gx#stx-null? _tl3182032509_) + (___kont4659546596_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))))) - (if (gx#stx-pair? _tl3210532794_) - (let ((_e3217532553_ (gx#syntax-e _tl3210532794_))) - (let ((_tl3217332560_ - (let () (declare (not safe)) (##cdr _e3217532553_))) - (_hd3217432557_ + (_g3181231958_))))))) + (if (gx#stx-pair? _tl3182032509_) + (let ((_e3189032268_ (gx#syntax-e _tl3182032509_))) + (let ((_tl3188832275_ + (let () (declare (not safe)) (##cdr _e3189032268_))) + (_hd3188932272_ (let () (declare (not safe)) - (##car _e3217532553_)))) - (if (gx#stx-null? _tl3217332560_) - (___kont4680146802_ _hd3217432557_ _hd3210632791_) - (if (gx#identifier? _hd3217432557_) + (##car _e3189032268_)))) + (if (gx#stx-null? _tl3188832275_) + (___kont4659346594_ _hd3188932272_ _hd3182132506_) + (if (gx#identifier? _hd3188932272_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50815_| - _hd3217432557_) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3219832453_ - (gx#syntax-e _tl3217332560_))) - (let ((_tl3219632460_ + |gerbil/core$[1]#_g50576_| + _hd3188932272_) + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3191332168_ + (gx#syntax-e _tl3188832275_))) + (let ((_tl3191132175_ (let () (declare (not safe)) - (##cdr _e3219832453_))) - (_hd3219732457_ + (##cdr _e3191332168_))) + (_hd3191232172_ (let () (declare (not safe)) - (##car _e3219832453_)))) - (if (gx#stx-null? _tl3219632460_) - (___kont4680546806_ - _hd3219732457_ - _hd3210632791_ - _hd3210332781_) + (##car _e3191332168_)))) + (if (gx#stx-null? _tl3191132175_) + (___kont4659746598_ + _hd3191232172_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))) - (if (gx#stx-datum? _hd3217432557_) - (let ((_e3221132380_ - (gx#stx-e _hd3217432557_))) + (_g3181231958_))) + (if (gx#stx-datum? _hd3188932272_) + (let ((_e3192632095_ + (gx#stx-e _hd3188932272_))) (if (let () (declare (not safe)) - (equal? _e3221132380_ '::)) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3221432384_ + (equal? _e3192632095_ '::)) + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3192932099_ (gx#syntax-e - _tl3217332560_))) - (let ((_tl3221232391_ + _tl3188832275_))) + (let ((_tl3192732106_ (let () (declare (not safe)) - (##cdr _e3221432384_))) - (_hd3221332388_ + (##cdr _e3192932099_))) + (_hd3192832103_ (let () (declare (not safe)) - (##car _e3221432384_)))) + (##car _e3192932099_)))) (if (gx#stx-null? - _tl3221232391_) - (___kont4680746808_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) + _tl3192732106_) + (___kont4659946600_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) (if (gx#stx-pair? - _tl3221232391_) - (let ((_e3223432294_ + _tl3192732106_) + (let ((_e3194932009_ (gx#syntax-e - _tl3221232391_))) - (let ((_tl3223232301_ + _tl3192732106_))) + (let ((_tl3194732016_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3223432294_))) - (_hd3223332298_ - (let () (declare (not safe)) (##car _e3223432294_)))) - (if (gx#identifier? _hd3223332298_) + (let () (declare (not safe)) (##cdr _e3194932009_))) + (_hd3194832013_ + (let () (declare (not safe)) (##car _e3194932009_)))) + (if (gx#identifier? _hd3194832013_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50814_| - _hd3223332298_) - (if (gx#stx-pair? _tl3223232301_) - (let ((_e3223732304_ - (gx#syntax-e _tl3223232301_))) - (let ((_tl3223532311_ + |gerbil/core$[1]#_g50575_| + _hd3194832013_) + (if (gx#stx-pair? _tl3194732016_) + (let ((_e3195232019_ + (gx#syntax-e _tl3194732016_))) + (let ((_tl3195032026_ (let () (declare (not safe)) - (##cdr _e3223732304_))) - (_hd3223632308_ + (##cdr _e3195232019_))) + (_hd3195132023_ (let () (declare (not safe)) - (##car _e3223732304_)))) - (if (gx#stx-null? _tl3223532311_) - (___kont4680946810_ - _hd3223632308_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) + (##car _e3195232019_)))) + (if (gx#stx-null? _tl3195032026_) + (___kont4660146602_ + _hd3195132023_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_)))))) + (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_)))) + (_g3181231958_)))) (let () (declare (not safe)) - (_g3209732243_))))))) - (if (gx#stx-null? _tl3210532794_) - (___kont4680346804_ _hd3210632791_ _hd3210332781_) - (let () (declare (not safe)) (_g3209732243_))))) + (_g3181231958_))))))) + (if (gx#stx-null? _tl3182032509_) + (___kont4659546596_ _hd3182132506_ _hd3181832496_) + (let () (declare (not safe)) (_g3181231958_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g50816_| - _hd3210932801_) + |gerbil/core$[1]#_g50577_| + _hd3182432516_) (if (gx#stx-pair? - _tl3210832804_) - (let ((_e3216132617_ + _tl3182332519_) + (let ((_e3187632332_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3210832804_))) - (let ((_tl3215932624_ - (let () (declare (not safe)) (##cdr _e3216132617_))) - (_hd3216032621_ + (gx#syntax-e _tl3182332519_))) + (let ((_tl3187432339_ + (let () (declare (not safe)) (##cdr _e3187632332_))) + (_hd3187532336_ (let () (declare (not safe)) - (##car _e3216132617_)))) - (if (gx#stx-null? _tl3215932624_) - (if (gx#stx-pair? _tl3210532794_) - (let ((_e3216432627_ - (gx#syntax-e _tl3210532794_))) - (let ((_tl3216232634_ + (##car _e3187632332_)))) + (if (gx#stx-null? _tl3187432339_) + (if (gx#stx-pair? _tl3182032509_) + (let ((_e3187932342_ + (gx#syntax-e _tl3182032509_))) + (let ((_tl3187732349_ (let () (declare (not safe)) - (##cdr _e3216432627_))) - (_hd3216332631_ + (##cdr _e3187932342_))) + (_hd3187832346_ (let () (declare (not safe)) - (##car _e3216432627_)))) - (if (gx#stx-null? _tl3216232634_) - (___kont4679946800_ - _hd3216332631_ - _hd3216032621_ - _hd3210332781_) - (if (gx#identifier? _hd3216332631_) + (##car _e3187932342_)))) + (if (gx#stx-null? _tl3187732349_) + (___kont4659146592_ + _hd3187832346_ + _hd3187532336_ + _hd3181832496_) + (if (gx#identifier? _hd3187832346_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50815_| - _hd3216332631_) - (if (gx#stx-pair? _tl3216232634_) - (let ((_e3219832453_ + |gerbil/core$[1]#_g50576_| + _hd3187832346_) + (if (gx#stx-pair? _tl3187732349_) + (let ((_e3191332168_ (gx#syntax-e - _tl3216232634_))) - (let ((_tl3219632460_ + _tl3187732349_))) + (let ((_tl3191132175_ (let () (declare (not safe)) - (##cdr _e3219832453_))) - (_hd3219732457_ + (##cdr _e3191332168_))) + (_hd3191232172_ (let () (declare (not safe)) - (##car _e3219832453_)))) + (##car _e3191332168_)))) (if (gx#stx-null? - _tl3219632460_) - (___kont4680546806_ - _hd3219732457_ - _hd3210632791_ - _hd3210332781_) + _tl3191132175_) + (___kont4659746598_ + _hd3191232172_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))) - (if (gx#stx-datum? _hd3216332631_) - (let ((_e3221132380_ + (_g3181231958_))) + (if (gx#stx-datum? _hd3187832346_) + (let ((_e3192632095_ (gx#stx-e - _hd3216332631_))) + _hd3187832346_))) (if (let () (declare (not safe)) - (equal? _e3221132380_ + (equal? _e3192632095_ '::)) (if (gx#stx-pair? - _tl3216232634_) - (let ((_e3221432384_ + _tl3187732349_) + (let ((_e3192932099_ (gx#syntax-e - _tl3216232634_))) - (let ((_tl3221232391_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3221432384_))) - (_hd3221332388_ - (let () (declare (not safe)) (##car _e3221432384_)))) - (if (gx#stx-null? _tl3221232391_) - (___kont4680746808_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) - (if (gx#stx-pair? _tl3221232391_) - (let ((_e3223432294_ (gx#syntax-e _tl3221232391_))) - (let ((_tl3223232301_ + _tl3187732349_))) + (let ((_tl3192732106_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _e3192932099_))) + (_hd3192832103_ + (let () (declare (not safe)) (##car _e3192932099_)))) + (if (gx#stx-null? _tl3192732106_) + (___kont4659946600_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) + (if (gx#stx-pair? _tl3192732106_) + (let ((_e3194932009_ (gx#syntax-e _tl3192732106_))) + (let ((_tl3194732016_ (let () (declare (not safe)) - (##cdr _e3223432294_))) - (_hd3223332298_ + (##cdr _e3194932009_))) + (_hd3194832013_ (let () (declare (not safe)) - (##car _e3223432294_)))) - (if (gx#identifier? _hd3223332298_) + (##car _e3194932009_)))) + (if (gx#identifier? _hd3194832013_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50814_| - _hd3223332298_) - (if (gx#stx-pair? _tl3223232301_) - (let ((_e3223732304_ + |gerbil/core$[1]#_g50575_| + _hd3194832013_) + (if (gx#stx-pair? _tl3194732016_) + (let ((_e3195232019_ (gx#syntax-e - _tl3223232301_))) - (let ((_tl3223532311_ + _tl3194732016_))) + (let ((_tl3195032026_ (let () (declare (not safe)) - (##cdr _e3223732304_))) - (_hd3223632308_ + (##cdr _e3195232019_))) + (_hd3195132023_ (let () (declare (not safe)) - (##car _e3223732304_)))) + (##car _e3195232019_)))) (if (gx#stx-null? - _tl3223532311_) - (___kont4680946810_ - _hd3223632308_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) + _tl3195032026_) + (___kont4660146602_ + _hd3195132023_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_)))))) - (let () (declare (not safe)) (_g3209732243_))) + (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_)))))) + (let () (declare (not safe)) (_g3181231958_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3209732243_)))) + (_g3181231958_)))) (let () (declare (not safe)) - (_g3209732243_))))))) - (if (gx#stx-null? _tl3210532794_) - (___kont4680346804_ - _hd3210632791_ - _hd3210332781_) + (_g3181231958_))))))) + (if (gx#stx-null? _tl3182032509_) + (___kont4659546596_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_)))) - (if (gx#stx-pair? _tl3210532794_) - (let ((_e3217532553_ - (gx#syntax-e _tl3210532794_))) - (let ((_tl3217332560_ + (_g3181231958_)))) + (if (gx#stx-pair? _tl3182032509_) + (let ((_e3189032268_ + (gx#syntax-e _tl3182032509_))) + (let ((_tl3188832275_ (let () (declare (not safe)) - (##cdr _e3217532553_))) - (_hd3217432557_ + (##cdr _e3189032268_))) + (_hd3188932272_ (let () (declare (not safe)) - (##car _e3217532553_)))) - (if (gx#stx-null? _tl3217332560_) - (___kont4680146802_ - _hd3217432557_ - _hd3210632791_) - (if (gx#identifier? _hd3217432557_) + (##car _e3189032268_)))) + (if (gx#stx-null? _tl3188832275_) + (___kont4659346594_ + _hd3188932272_ + _hd3182132506_) + (if (gx#identifier? _hd3188932272_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50815_| - _hd3217432557_) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3219832453_ + |gerbil/core$[1]#_g50576_| + _hd3188932272_) + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3191332168_ (gx#syntax-e - _tl3217332560_))) - (let ((_tl3219632460_ + _tl3188832275_))) + (let ((_tl3191132175_ (let () (declare (not safe)) - (##cdr _e3219832453_))) - (_hd3219732457_ + (##cdr _e3191332168_))) + (_hd3191232172_ (let () (declare (not safe)) - (##car _e3219832453_)))) + (##car _e3191332168_)))) (if (gx#stx-null? - _tl3219632460_) - (___kont4680546806_ - _hd3219732457_ - _hd3210632791_ - _hd3210332781_) + _tl3191132175_) + (___kont4659746598_ + _hd3191232172_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))) - (if (gx#stx-datum? _hd3217432557_) - (let ((_e3221132380_ + (_g3181231958_))) + (if (gx#stx-datum? _hd3188932272_) + (let ((_e3192632095_ (gx#stx-e - _hd3217432557_))) + _hd3188932272_))) (if (let () (declare (not safe)) - (equal? _e3221132380_ + (equal? _e3192632095_ '::)) (if (gx#stx-pair? - _tl3217332560_) - (let ((_e3221432384_ + _tl3188832275_) + (let ((_e3192932099_ (gx#syntax-e - _tl3217332560_))) - (let ((_tl3221232391_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3221432384_))) - (_hd3221332388_ - (let () (declare (not safe)) (##car _e3221432384_)))) - (if (gx#stx-null? _tl3221232391_) - (___kont4680746808_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) - (if (gx#stx-pair? _tl3221232391_) - (let ((_e3223432294_ (gx#syntax-e _tl3221232391_))) - (let ((_tl3223232301_ + _tl3188832275_))) + (let ((_tl3192732106_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _e3192932099_))) + (_hd3192832103_ + (let () (declare (not safe)) (##car _e3192932099_)))) + (if (gx#stx-null? _tl3192732106_) + (___kont4659946600_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) + (if (gx#stx-pair? _tl3192732106_) + (let ((_e3194932009_ (gx#syntax-e _tl3192732106_))) + (let ((_tl3194732016_ (let () (declare (not safe)) - (##cdr _e3223432294_))) - (_hd3223332298_ + (##cdr _e3194932009_))) + (_hd3194832013_ (let () (declare (not safe)) - (##car _e3223432294_)))) - (if (gx#identifier? _hd3223332298_) + (##car _e3194932009_)))) + (if (gx#identifier? _hd3194832013_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50814_| - _hd3223332298_) - (if (gx#stx-pair? _tl3223232301_) - (let ((_e3223732304_ + |gerbil/core$[1]#_g50575_| + _hd3194832013_) + (if (gx#stx-pair? _tl3194732016_) + (let ((_e3195232019_ (gx#syntax-e - _tl3223232301_))) - (let ((_tl3223532311_ + _tl3194732016_))) + (let ((_tl3195032026_ (let () (declare (not safe)) - (##cdr _e3223732304_))) - (_hd3223632308_ + (##cdr _e3195232019_))) + (_hd3195132023_ (let () (declare (not safe)) - (##car _e3223732304_)))) + (##car _e3195232019_)))) (if (gx#stx-null? - _tl3223532311_) - (___kont4680946810_ - _hd3223632308_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) + _tl3195032026_) + (___kont4660146602_ + _hd3195132023_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_)))))) - (let () (declare (not safe)) (_g3209732243_))) + (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_)))))) + (let () (declare (not safe)) (_g3181231958_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3209732243_)))) + (_g3181231958_)))) (let () (declare (not safe)) - (_g3209732243_))))))) - (if (gx#stx-null? _tl3210532794_) - (___kont4680346804_ - _hd3210632791_ - _hd3210332781_) + (_g3181231958_))))))) + (if (gx#stx-null? _tl3182032509_) + (___kont4659546596_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))))) - (if (gx#stx-pair? _tl3210532794_) - (let ((_e3217532553_ (gx#syntax-e _tl3210532794_))) - (let ((_tl3217332560_ + (_g3181231958_))))))) + (if (gx#stx-pair? _tl3182032509_) + (let ((_e3189032268_ (gx#syntax-e _tl3182032509_))) + (let ((_tl3188832275_ (let () (declare (not safe)) - (##cdr _e3217532553_))) - (_hd3217432557_ + (##cdr _e3189032268_))) + (_hd3188932272_ (let () (declare (not safe)) - (##car _e3217532553_)))) - (if (gx#stx-null? _tl3217332560_) - (___kont4680146802_ - _hd3217432557_ - _hd3210632791_) - (if (gx#identifier? _hd3217432557_) + (##car _e3189032268_)))) + (if (gx#stx-null? _tl3188832275_) + (___kont4659346594_ + _hd3188932272_ + _hd3182132506_) + (if (gx#identifier? _hd3188932272_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50815_| - _hd3217432557_) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3219832453_ - (gx#syntax-e _tl3217332560_))) - (let ((_tl3219632460_ + |gerbil/core$[1]#_g50576_| + _hd3188932272_) + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3191332168_ + (gx#syntax-e _tl3188832275_))) + (let ((_tl3191132175_ (let () (declare (not safe)) - (##cdr _e3219832453_))) - (_hd3219732457_ + (##cdr _e3191332168_))) + (_hd3191232172_ (let () (declare (not safe)) - (##car _e3219832453_)))) - (if (gx#stx-null? _tl3219632460_) - (___kont4680546806_ - _hd3219732457_ - _hd3210632791_ - _hd3210332781_) + (##car _e3191332168_)))) + (if (gx#stx-null? _tl3191132175_) + (___kont4659746598_ + _hd3191232172_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))) - (if (gx#stx-datum? _hd3217432557_) - (let ((_e3221132380_ - (gx#stx-e _hd3217432557_))) + (_g3181231958_))) + (if (gx#stx-datum? _hd3188932272_) + (let ((_e3192632095_ + (gx#stx-e _hd3188932272_))) (if (let () (declare (not safe)) - (equal? _e3221132380_ '::)) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3221432384_ + (equal? _e3192632095_ '::)) + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3192932099_ (gx#syntax-e - _tl3217332560_))) - (let ((_tl3221232391_ + _tl3188832275_))) + (let ((_tl3192732106_ (let () (declare (not safe)) - (##cdr _e3221432384_))) - (_hd3221332388_ + (##cdr _e3192932099_))) + (_hd3192832103_ (let () (declare (not safe)) - (##car _e3221432384_)))) + (##car _e3192932099_)))) (if (gx#stx-null? - _tl3221232391_) - (___kont4680746808_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) + _tl3192732106_) + (___kont4659946600_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) (if (gx#stx-pair? - _tl3221232391_) - (let ((_e3223432294_ + _tl3192732106_) + (let ((_e3194932009_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3221232391_))) - (let ((_tl3223232301_ + (gx#syntax-e _tl3192732106_))) + (let ((_tl3194732016_ (let () (declare (not safe)) - (##cdr _e3223432294_))) - (_hd3223332298_ + (##cdr _e3194932009_))) + (_hd3194832013_ (let () (declare (not safe)) - (##car _e3223432294_)))) - (if (gx#identifier? _hd3223332298_) + (##car _e3194932009_)))) + (if (gx#identifier? _hd3194832013_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50814_| - _hd3223332298_) - (if (gx#stx-pair? _tl3223232301_) - (let ((_e3223732304_ - (gx#syntax-e _tl3223232301_))) - (let ((_tl3223532311_ + |gerbil/core$[1]#_g50575_| + _hd3194832013_) + (if (gx#stx-pair? _tl3194732016_) + (let ((_e3195232019_ + (gx#syntax-e _tl3194732016_))) + (let ((_tl3195032026_ (let () (declare (not safe)) - (##cdr _e3223732304_))) - (_hd3223632308_ + (##cdr _e3195232019_))) + (_hd3195132023_ (let () (declare (not safe)) - (##car _e3223732304_)))) - (if (gx#stx-null? _tl3223532311_) - (___kont4680946810_ - _hd3223632308_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) + (##car _e3195232019_)))) + (if (gx#stx-null? _tl3195032026_) + (___kont4660146602_ + _hd3195132023_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_)))))) + (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_)))) + (_g3181231958_)))) (let () (declare (not safe)) - (_g3209732243_))))))) - (if (gx#stx-null? _tl3210532794_) - (___kont4680346804_ _hd3210632791_ _hd3210332781_) - (let () (declare (not safe)) (_g3209732243_))))) - (if (gx#stx-pair? _tl3210532794_) - (let ((_e3217532553_ (gx#syntax-e _tl3210532794_))) - (let ((_tl3217332560_ - (let () (declare (not safe)) (##cdr _e3217532553_))) - (_hd3217432557_ + (_g3181231958_))))))) + (if (gx#stx-null? _tl3182032509_) + (___kont4659546596_ _hd3182132506_ _hd3181832496_) + (let () (declare (not safe)) (_g3181231958_))))) + (if (gx#stx-pair? _tl3182032509_) + (let ((_e3189032268_ (gx#syntax-e _tl3182032509_))) + (let ((_tl3188832275_ + (let () (declare (not safe)) (##cdr _e3189032268_))) + (_hd3188932272_ (let () (declare (not safe)) - (##car _e3217532553_)))) - (if (gx#stx-null? _tl3217332560_) - (___kont4680146802_ _hd3217432557_ _hd3210632791_) - (if (gx#identifier? _hd3217432557_) + (##car _e3189032268_)))) + (if (gx#stx-null? _tl3188832275_) + (___kont4659346594_ _hd3188932272_ _hd3182132506_) + (if (gx#identifier? _hd3188932272_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50815_| - _hd3217432557_) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3219832453_ - (gx#syntax-e _tl3217332560_))) - (let ((_tl3219632460_ + |gerbil/core$[1]#_g50576_| + _hd3188932272_) + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3191332168_ + (gx#syntax-e _tl3188832275_))) + (let ((_tl3191132175_ (let () (declare (not safe)) - (##cdr _e3219832453_))) - (_hd3219732457_ + (##cdr _e3191332168_))) + (_hd3191232172_ (let () (declare (not safe)) - (##car _e3219832453_)))) - (if (gx#stx-null? _tl3219632460_) - (___kont4680546806_ - _hd3219732457_ - _hd3210632791_ - _hd3210332781_) + (##car _e3191332168_)))) + (if (gx#stx-null? _tl3191132175_) + (___kont4659746598_ + _hd3191232172_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))) - (if (gx#stx-datum? _hd3217432557_) - (let ((_e3221132380_ - (gx#stx-e _hd3217432557_))) + (_g3181231958_))) + (if (gx#stx-datum? _hd3188932272_) + (let ((_e3192632095_ + (gx#stx-e _hd3188932272_))) (if (let () (declare (not safe)) - (equal? _e3221132380_ '::)) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3221432384_ + (equal? _e3192632095_ '::)) + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3192932099_ (gx#syntax-e - _tl3217332560_))) - (let ((_tl3221232391_ + _tl3188832275_))) + (let ((_tl3192732106_ (let () (declare (not safe)) - (##cdr _e3221432384_))) - (_hd3221332388_ + (##cdr _e3192932099_))) + (_hd3192832103_ (let () (declare (not safe)) - (##car _e3221432384_)))) + (##car _e3192932099_)))) (if (gx#stx-null? - _tl3221232391_) - (___kont4680746808_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) + _tl3192732106_) + (___kont4659946600_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) (if (gx#stx-pair? - _tl3221232391_) - (let ((_e3223432294_ + _tl3192732106_) + (let ((_e3194932009_ (gx#syntax-e - _tl3221232391_))) - (let ((_tl3223232301_ + _tl3192732106_))) + (let ((_tl3194732016_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3223432294_))) - (_hd3223332298_ - (let () (declare (not safe)) (##car _e3223432294_)))) - (if (gx#identifier? _hd3223332298_) + (let () (declare (not safe)) (##cdr _e3194932009_))) + (_hd3194832013_ + (let () (declare (not safe)) (##car _e3194932009_)))) + (if (gx#identifier? _hd3194832013_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50814_| - _hd3223332298_) - (if (gx#stx-pair? _tl3223232301_) - (let ((_e3223732304_ - (gx#syntax-e _tl3223232301_))) - (let ((_tl3223532311_ + |gerbil/core$[1]#_g50575_| + _hd3194832013_) + (if (gx#stx-pair? _tl3194732016_) + (let ((_e3195232019_ + (gx#syntax-e _tl3194732016_))) + (let ((_tl3195032026_ (let () (declare (not safe)) - (##cdr _e3223732304_))) - (_hd3223632308_ + (##cdr _e3195232019_))) + (_hd3195132023_ (let () (declare (not safe)) - (##car _e3223732304_)))) - (if (gx#stx-null? _tl3223532311_) - (___kont4680946810_ - _hd3223632308_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) + (##car _e3195232019_)))) + (if (gx#stx-null? _tl3195032026_) + (___kont4660146602_ + _hd3195132023_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_)))))) + (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_)))) + (_g3181231958_)))) (let () (declare (not safe)) - (_g3209732243_))))))) - (if (gx#stx-null? _tl3210532794_) - (___kont4680346804_ _hd3210632791_ _hd3210332781_) - (let () (declare (not safe)) (_g3209732243_))))))) + (_g3181231958_))))))) + (if (gx#stx-null? _tl3182032509_) + (___kont4659546596_ _hd3182132506_ _hd3181832496_) + (let () (declare (not safe)) (_g3181231958_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl3210532794_) - (let ((_e3217532553_ + (if (gx#stx-pair? _tl3182032509_) + (let ((_e3189032268_ (gx#syntax-e - _tl3210532794_))) - (let ((_tl3217332560_ + _tl3182032509_))) + (let ((_tl3188832275_ (let () (declare (not safe)) - (##cdr _e3217532553_))) - (_hd3217432557_ + (##cdr _e3189032268_))) + (_hd3188932272_ (let () (declare (not safe)) - (##car _e3217532553_)))) + (##car _e3189032268_)))) (if (gx#stx-null? - _tl3217332560_) - (___kont4680146802_ - _hd3217432557_ - _hd3210632791_) + _tl3188832275_) + (___kont4659346594_ + _hd3188932272_ + _hd3182132506_) (if (gx#identifier? - _hd3217432557_) + _hd3188932272_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50815_| - _hd3217432557_) + |gerbil/core$[1]#_g50576_| + _hd3188932272_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl3217332560_) - (let ((_e3219832453_ (gx#syntax-e _tl3217332560_))) - (let ((_tl3219632460_ + _tl3188832275_) + (let ((_e3191332168_ (gx#syntax-e _tl3188832275_))) + (let ((_tl3191132175_ (let () (declare (not safe)) - (##cdr _e3219832453_))) - (_hd3219732457_ + (##cdr _e3191332168_))) + (_hd3191232172_ (let () (declare (not safe)) - (##car _e3219832453_)))) - (if (gx#stx-null? _tl3219632460_) - (___kont4680546806_ - _hd3219732457_ - _hd3210632791_ - _hd3210332781_) + (##car _e3191332168_)))) + (if (gx#stx-null? _tl3191132175_) + (___kont4659746598_ + _hd3191232172_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))) - (if (gx#stx-datum? _hd3217432557_) - (let ((_e3221132380_ (gx#stx-e _hd3217432557_))) + (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))) + (if (gx#stx-datum? _hd3188932272_) + (let ((_e3192632095_ (gx#stx-e _hd3188932272_))) (if (let () (declare (not safe)) - (equal? _e3221132380_ '::)) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3221432384_ - (gx#syntax-e _tl3217332560_))) - (let ((_tl3221232391_ + (equal? _e3192632095_ '::)) + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3192932099_ + (gx#syntax-e _tl3188832275_))) + (let ((_tl3192732106_ (let () (declare (not safe)) - (##cdr _e3221432384_))) - (_hd3221332388_ + (##cdr _e3192932099_))) + (_hd3192832103_ (let () (declare (not safe)) - (##car _e3221432384_)))) - (if (gx#stx-null? _tl3221232391_) - (___kont4680746808_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) - (if (gx#stx-pair? _tl3221232391_) - (let ((_e3223432294_ + (##car _e3192932099_)))) + (if (gx#stx-null? _tl3192732106_) + (___kont4659946600_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) + (if (gx#stx-pair? _tl3192732106_) + (let ((_e3194932009_ (gx#syntax-e - _tl3221232391_))) - (let ((_tl3223232301_ + _tl3192732106_))) + (let ((_tl3194732016_ (let () (declare (not safe)) - (##cdr _e3223432294_))) - (_hd3223332298_ + (##cdr _e3194932009_))) + (_hd3194832013_ (let () (declare (not safe)) - (##car _e3223432294_)))) + (##car _e3194932009_)))) (if (gx#identifier? - _hd3223332298_) + _hd3194832013_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50814_| - _hd3223332298_) + |gerbil/core$[1]#_g50575_| + _hd3194832013_) (if (gx#stx-pair? - _tl3223232301_) - (let ((_e3223732304_ + _tl3194732016_) + (let ((_e3195232019_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3223232301_))) - (let ((_tl3223532311_ + (gx#syntax-e _tl3194732016_))) + (let ((_tl3195032026_ (let () (declare (not safe)) - (##cdr _e3223732304_))) - (_hd3223632308_ + (##cdr _e3195232019_))) + (_hd3195132023_ (let () (declare (not safe)) - (##car _e3223732304_)))) - (if (gx#stx-null? _tl3223532311_) - (___kont4680946810_ - _hd3223632308_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) - (let () (declare (not safe)) (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))) + (##car _e3195232019_)))) + (if (gx#stx-null? _tl3195032026_) + (___kont4660146602_ + _hd3195132023_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) + (let () (declare (not safe)) (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_)))))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_)))) - (let () (declare (not safe)) (_g3209732243_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _tl3210532794_) - (___kont4680346804_ - _hd3210632791_ - _hd3210332781_) + (_g3181231958_)))))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_)))) + (let () (declare (not safe)) (_g3181231958_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? _tl3182032509_) + (___kont4659546596_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))))) - (if (gx#stx-pair? _tl3210532794_) - (let ((_e3217532553_ - (gx#syntax-e _tl3210532794_))) - (let ((_tl3217332560_ + (_g3181231958_))))))) + (if (gx#stx-pair? _tl3182032509_) + (let ((_e3189032268_ + (gx#syntax-e _tl3182032509_))) + (let ((_tl3188832275_ (let () (declare (not safe)) - (##cdr _e3217532553_))) - (_hd3217432557_ + (##cdr _e3189032268_))) + (_hd3188932272_ (let () (declare (not safe)) - (##car _e3217532553_)))) - (if (gx#stx-null? _tl3217332560_) - (___kont4680146802_ - _hd3217432557_ - _hd3210632791_) + (##car _e3189032268_)))) + (if (gx#stx-null? _tl3188832275_) + (___kont4659346594_ + _hd3188932272_ + _hd3182132506_) (if (gx#identifier? - _hd3217432557_) + _hd3188932272_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50815_| - _hd3217432557_) + |gerbil/core$[1]#_g50576_| + _hd3188932272_) (if (gx#stx-pair? - _tl3217332560_) - (let ((_e3219832453_ + _tl3188832275_) + (let ((_e3191332168_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3217332560_))) - (let ((_tl3219632460_ - (let () (declare (not safe)) (##cdr _e3219832453_))) - (_hd3219732457_ + (gx#syntax-e _tl3188832275_))) + (let ((_tl3191132175_ + (let () (declare (not safe)) (##cdr _e3191332168_))) + (_hd3191232172_ (let () (declare (not safe)) - (##car _e3219832453_)))) - (if (gx#stx-null? _tl3219632460_) - (___kont4680546806_ - _hd3219732457_ - _hd3210632791_ - _hd3210332781_) - (let () (declare (not safe)) (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_))) + (##car _e3191332168_)))) + (if (gx#stx-null? _tl3191132175_) + (___kont4659746598_ + _hd3191232172_ + _hd3182132506_ + _hd3181832496_) + (let () (declare (not safe)) (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-datum? - _hd3217432557_) - (let ((_e3221132380_ + _hd3188932272_) + (let ((_e3192632095_ (gx#stx-e - _hd3217432557_))) + _hd3188932272_))) (if (let () (declare (not safe)) - (equal? _e3221132380_ + (equal? _e3192632095_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '::)) - (if (gx#stx-pair? _tl3217332560_) - (let ((_e3221432384_ (gx#syntax-e _tl3217332560_))) - (let ((_tl3221232391_ + (if (gx#stx-pair? _tl3188832275_) + (let ((_e3192932099_ (gx#syntax-e _tl3188832275_))) + (let ((_tl3192732106_ (let () (declare (not safe)) - (##cdr _e3221432384_))) - (_hd3221332388_ + (##cdr _e3192932099_))) + (_hd3192832103_ (let () (declare (not safe)) - (##car _e3221432384_)))) - (if (gx#stx-null? _tl3221232391_) - (___kont4680746808_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) - (if (gx#stx-pair? _tl3221232391_) - (let ((_e3223432294_ - (gx#syntax-e _tl3221232391_))) - (let ((_tl3223232301_ + (##car _e3192932099_)))) + (if (gx#stx-null? _tl3192732106_) + (___kont4659946600_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) + (if (gx#stx-pair? _tl3192732106_) + (let ((_e3194932009_ + (gx#syntax-e _tl3192732106_))) + (let ((_tl3194732016_ (let () (declare (not safe)) - (##cdr _e3223432294_))) - (_hd3223332298_ + (##cdr _e3194932009_))) + (_hd3194832013_ (let () (declare (not safe)) - (##car _e3223432294_)))) - (if (gx#identifier? _hd3223332298_) + (##car _e3194932009_)))) + (if (gx#identifier? _hd3194832013_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50814_| - _hd3223332298_) + |gerbil/core$[1]#_g50575_| + _hd3194832013_) (if (gx#stx-pair? - _tl3223232301_) - (let ((_e3223732304_ + _tl3194732016_) + (let ((_e3195232019_ (gx#syntax-e - _tl3223232301_))) - (let ((_tl3223532311_ + _tl3194732016_))) + (let ((_tl3195032026_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3223732304_))) - (_hd3223632308_ - (let () (declare (not safe)) (##car _e3223732304_)))) - (if (gx#stx-null? _tl3223532311_) - (___kont4680946810_ - _hd3223632308_ - _hd3221332388_ - _hd3210632791_ - _hd3210332781_) - (let () (declare (not safe)) (_g3209732243_))))) + (##cdr _e3195232019_))) + (_hd3195132023_ + (let () (declare (not safe)) (##car _e3195232019_)))) + (if (gx#stx-null? _tl3195032026_) + (___kont4660146602_ + _hd3195132023_ + _hd3192832103_ + _hd3182132506_ + _hd3181832496_) + (let () (declare (not safe)) (_g3181231958_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))) + (_g3181231958_))) (let () (declare (not safe)) - (_g3209732243_))))) + (_g3181231958_))))) (let () (declare (not safe)) - (_g3209732243_)))))) - (let () (declare (not safe)) (_g3209732243_))) - (let () (declare (not safe)) (_g3209732243_)))) - (let () (declare (not safe)) (_g3209732243_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _tl3210532794_) - (___kont4680346804_ - _hd3210632791_ - _hd3210332781_) + (_g3181231958_)))))) + (let () (declare (not safe)) (_g3181231958_))) + (let () (declare (not safe)) (_g3181231958_)))) + (let () (declare (not safe)) (_g3181231958_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? _tl3182032509_) + (___kont4659546596_ + _hd3182132506_ + _hd3181832496_) (let () (declare (not safe)) - (_g3209732243_))))))) - (let () (declare (not safe)) (_g3209732243_))))) - (let () (declare (not safe)) (_g3209732243_)))))))) + (_g3181231958_))))))) + (let () (declare (not safe)) (_g3181231958_))))) + (let () (declare (not safe)) (_g3181231958_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-match| - (lambda (_$stx32886_) - (let* ((___stx4705647057_ _$stx32886_) - (_g3289132925_ + (lambda (_$stx32601_) + (let* ((___stx4684846849_ _$stx32601_) + (_g3260632640_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4705647057_)))) - (let ((___kont4705947060_ - (lambda (_L33029_ _L33031_ _L33032_) - (let ((__tmp50880 (gx#datum->syntax '#f 'defsyntax)) - (__tmp50819 - (let ((__tmp50820 - (let ((__tmp50821 - (let ((__tmp50879 + ___stx4684846849_)))) + (let ((___kont4685146852_ + (lambda (_L32744_ _L32746_ _L32747_) + (let ((__tmp50641 (gx#datum->syntax '#f 'defsyntax)) + (__tmp50580 + (let ((__tmp50581 + (let ((__tmp50582 + (let ((__tmp50640 (gx#datum->syntax '#f 'make-match-macro)) - (__tmp50822 - (let ((__tmp50823 - (let ((__tmp50824 - (let ((__tmp50878 + (__tmp50583 + (let ((__tmp50584 + (let ((__tmp50585 + (let ((__tmp50639 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp50825 - (let ((__tmp50870 - (let ((__tmp50875 - (let ((__tmp50877 + (__tmp50586 + (let ((__tmp50631 + (let ((__tmp50636 + (let ((__tmp50638 (gx#datum->syntax '#f '$match-e)) - (__tmp50876 + (__tmp50637 (let () (declare (not safe)) - (cons _L33031_ '())))) + (cons _L32746_ '())))) (declare (not safe)) - (cons __tmp50877 __tmp50876))) - (__tmp50871 - (let ((__tmp50872 - (let ((__tmp50874 + (cons __tmp50638 __tmp50637))) + (__tmp50632 + (let ((__tmp50633 + (let ((__tmp50635 (gx#datum->syntax '#f '$macro-e)) - (__tmp50873 + (__tmp50634 (let () (declare (not safe)) - (cons _L33029_ + (cons _L32744_ '())))) (declare (not safe)) - (cons __tmp50874 - __tmp50873)))) + (cons __tmp50635 + __tmp50634)))) (declare (not safe)) - (cons __tmp50872 '())))) + (cons __tmp50633 '())))) (declare (not safe)) - (cons __tmp50875 __tmp50871))) - (__tmp50826 - (let ((__tmp50827 - (let ((__tmp50869 + (cons __tmp50636 __tmp50632))) + (__tmp50587 + (let ((__tmp50588 + (let ((__tmp50630 (gx#datum->syntax '#f 'lambda)) - (__tmp50828 - (let ((__tmp50867 - (let ((__tmp50868 + (__tmp50589 + (let ((__tmp50628 + (let ((__tmp50629 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50868 + (cons __tmp50629 '()))) - (__tmp50829 - (let ((__tmp50830 - (let ((__tmp50866 + (__tmp50590 + (let ((__tmp50591 + (let ((__tmp50627 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-case)) - (__tmp50831 - (let ((__tmp50865 (gx#datum->syntax '#f '$stx)) - (__tmp50832 - (let ((__tmp50833 - (let ((__tmp50844 - (let ((__tmp50863 - (let ((__tmp50864 + (__tmp50592 + (let ((__tmp50626 (gx#datum->syntax '#f '$stx)) + (__tmp50593 + (let ((__tmp50594 + (let ((__tmp50605 + (let ((__tmp50624 + (let ((__tmp50625 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons 'match: __tmp50864))) - (__tmp50845 - (let ((__tmp50846 - (let ((__tmp50862 + (cons 'match: __tmp50625))) + (__tmp50606 + (let ((__tmp50607 + (let ((__tmp50623 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp50847 - (let ((__tmp50861 + (__tmp50608 + (let ((__tmp50622 (gx#datum->syntax '#f '$match-e)) - (__tmp50848 - (let ((__tmp50849 - (let ((__tmp50860 + (__tmp50609 + (let ((__tmp50610 + (let ((__tmp50621 (gx#datum->syntax '#f 'stx-wrap-source)) - (__tmp50850 - (let ((__tmp50856 - (let ((__tmp50859 + (__tmp50611 + (let ((__tmp50617 + (let ((__tmp50620 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax)) - (__tmp50857 - (let ((__tmp50858 (gx#datum->syntax '#f 'body))) + (__tmp50618 + (let ((__tmp50619 (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons __tmp50858 '())))) + (cons __tmp50619 '())))) (declare (not safe)) - (cons __tmp50859 __tmp50857))) - (__tmp50851 - (let ((__tmp50852 - (let ((__tmp50855 + (cons __tmp50620 __tmp50618))) + (__tmp50612 + (let ((__tmp50613 + (let ((__tmp50616 (gx#datum->syntax '#f 'stx-source)) - (__tmp50853 - (let ((__tmp50854 + (__tmp50614 + (let ((__tmp50615 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50854 '())))) + (cons __tmp50615 '())))) (declare (not safe)) - (cons __tmp50855 __tmp50853)))) + (cons __tmp50616 __tmp50614)))) (declare (not safe)) - (cons __tmp50852 '())))) + (cons __tmp50613 '())))) (declare (not safe)) - (cons __tmp50856 __tmp50851)))) + (cons __tmp50617 __tmp50612)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50860 __tmp50850)))) + (cons __tmp50621 __tmp50611)))) (declare (not safe)) - (cons __tmp50849 '())))) + (cons __tmp50610 '())))) (declare (not safe)) - (cons __tmp50861 __tmp50848)))) + (cons __tmp50622 __tmp50609)))) (declare (not safe)) - (cons __tmp50862 __tmp50847)))) + (cons __tmp50623 __tmp50608)))) (declare (not safe)) - (cons __tmp50846 '())))) + (cons __tmp50607 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50863 - __tmp50845))) - (__tmp50834 - (let ((__tmp50835 - (let ((__tmp50843 + (cons __tmp50624 + __tmp50606))) + (__tmp50595 + (let ((__tmp50596 + (let ((__tmp50604 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp50836 - (let ((__tmp50837 - (let ((__tmp50842 + (__tmp50597 + (let ((__tmp50598 + (let ((__tmp50603 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp50838 - (let ((__tmp50841 + (__tmp50599 + (let ((__tmp50602 (gx#datum->syntax '#f '$macro-e)) - (__tmp50839 - (let ((__tmp50840 + (__tmp50600 + (let ((__tmp50601 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50840 '())))) + (cons __tmp50601 '())))) (declare (not safe)) - (cons __tmp50841 __tmp50839)))) + (cons __tmp50602 __tmp50600)))) (declare (not safe)) - (cons __tmp50842 __tmp50838)))) + (cons __tmp50603 __tmp50599)))) (declare (not safe)) - (cons __tmp50837 '())))) + (cons __tmp50598 '())))) (declare (not safe)) - (cons __tmp50843 __tmp50836)))) + (cons __tmp50604 __tmp50597)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50835 '())))) + (cons __tmp50596 '())))) (declare (not safe)) - (cons __tmp50844 __tmp50834)))) + (cons __tmp50605 __tmp50595)))) (declare (not safe)) - (cons '() __tmp50833)))) + (cons '() __tmp50594)))) (declare (not safe)) - (cons __tmp50865 __tmp50832)))) + (cons __tmp50626 __tmp50593)))) (declare (not safe)) - (cons __tmp50866 __tmp50831)))) + (cons __tmp50627 __tmp50592)))) (declare (not safe)) - (cons __tmp50830 '())))) + (cons __tmp50591 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50867 - __tmp50829)))) + (cons __tmp50628 + __tmp50590)))) (declare (not safe)) - (cons __tmp50869 __tmp50828)))) + (cons __tmp50630 __tmp50589)))) (declare (not safe)) - (cons __tmp50827 '())))) + (cons __tmp50588 '())))) (declare (not safe)) - (cons __tmp50870 __tmp50826)))) + (cons __tmp50631 __tmp50587)))) (declare (not safe)) - (cons __tmp50878 __tmp50825)))) + (cons __tmp50639 __tmp50586)))) (declare (not safe)) - (cons __tmp50824 '())))) + (cons __tmp50585 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'macro: __tmp50823)))) + (cons 'macro: __tmp50584)))) (declare (not safe)) - (cons __tmp50879 __tmp50822)))) + (cons __tmp50640 __tmp50583)))) (declare (not safe)) - (cons __tmp50821 '())))) + (cons __tmp50582 '())))) (declare (not safe)) - (cons _L33032_ __tmp50820)))) + (cons _L32747_ __tmp50581)))) (declare (not safe)) - (cons __tmp50880 __tmp50819)))) - (___kont4706147062_ - (lambda (_L32962_ _L32964_ _L32965_) - (let ((__tmp50881 - (let ((__tmp50882 - (let ((__tmp50883 - (let ((__tmp50884 - (let ((__tmp50895 + (cons __tmp50641 __tmp50580)))) + (___kont4685346854_ + (lambda (_L32677_ _L32679_ _L32680_) + (let ((__tmp50642 + (let ((__tmp50643 + (let ((__tmp50644 + (let ((__tmp50645 + (let ((__tmp50656 (gx#datum->syntax '#f 'lambda)) - (__tmp50885 - (let ((__tmp50893 - (let ((__tmp50894 + (__tmp50646 + (let ((__tmp50654 + (let ((__tmp50655 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50894 '()))) - (__tmp50886 - (let ((__tmp50887 - (let ((__tmp50892 + (cons __tmp50655 '()))) + (__tmp50647 + (let ((__tmp50648 + (let ((__tmp50653 (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp50888 - (let ((__tmp50889 - (let ((__tmp50890 - (let ((__tmp50891 + (__tmp50649 + (let ((__tmp50650 + (let ((__tmp50651 + (let ((__tmp50652 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50891 '())))) + (cons __tmp50652 '())))) (declare (not safe)) (cons '"bad syntax; no macro definition for defsyntax-for-match" - __tmp50890)))) + __tmp50651)))) (declare (not safe)) - (cons '#f __tmp50889)))) + (cons '#f __tmp50650)))) (declare (not safe)) - (cons __tmp50892 __tmp50888)))) + (cons __tmp50653 __tmp50649)))) (declare (not safe)) - (cons __tmp50887 '())))) + (cons __tmp50648 '())))) (declare (not safe)) - (cons __tmp50893 __tmp50886)))) + (cons __tmp50654 __tmp50647)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50895 - __tmp50885)))) + (cons __tmp50656 + __tmp50646)))) (declare (not safe)) - (cons __tmp50884 '())))) + (cons __tmp50645 '())))) (declare (not safe)) - (cons _L32962_ __tmp50883)))) + (cons _L32677_ __tmp50644)))) (declare (not safe)) - (cons _L32964_ __tmp50882)))) + (cons _L32679_ __tmp50643)))) (declare (not safe)) - (cons _L32965_ __tmp50881))))) - (let ((___match4708947090_ - (lambda (_e3289832989_ - _hd3289732993_ - _tl3289632996_ - _e3290132999_ - _hd3290033003_ - _tl3289933006_ - _e3290433009_ - _hd3290333013_ - _tl3290233016_ - _e3290733019_ - _hd3290633023_ - _tl3290533026_) - (let ((_L33029_ _hd3290633023_) - (_L33031_ _hd3290333013_) - (_L33032_ _hd3290033003_)) - (if (gx#identifier? _L33032_) - (___kont4705947060_ _L33029_ _L33031_ _L33032_) - (let () (declare (not safe)) (_g3289132925_))))))) - (if (gx#stx-pair? ___stx4705647057_) - (let ((_e3289832989_ (gx#syntax-e ___stx4705647057_))) - (let ((_tl3289632996_ - (let () (declare (not safe)) (##cdr _e3289832989_))) - (_hd3289732993_ + (cons _L32680_ __tmp50642))))) + (let ((___match4688146882_ + (lambda (_e3261332704_ + _hd3261232708_ + _tl3261132711_ + _e3261632714_ + _hd3261532718_ + _tl3261432721_ + _e3261932724_ + _hd3261832728_ + _tl3261732731_ + _e3262232734_ + _hd3262132738_ + _tl3262032741_) + (let ((_L32744_ _hd3262132738_) + (_L32746_ _hd3261832728_) + (_L32747_ _hd3261532718_)) + (if (gx#identifier? _L32747_) + (___kont4685146852_ _L32744_ _L32746_ _L32747_) + (let () (declare (not safe)) (_g3260632640_))))))) + (if (gx#stx-pair? ___stx4684846849_) + (let ((_e3261332704_ (gx#syntax-e ___stx4684846849_))) + (let ((_tl3261132711_ + (let () (declare (not safe)) (##cdr _e3261332704_))) + (_hd3261232708_ (let () (declare (not safe)) - (##car _e3289832989_)))) - (if (gx#stx-pair? _tl3289632996_) - (let ((_e3290132999_ (gx#syntax-e _tl3289632996_))) - (let ((_tl3289933006_ + (##car _e3261332704_)))) + (if (gx#stx-pair? _tl3261132711_) + (let ((_e3261632714_ (gx#syntax-e _tl3261132711_))) + (let ((_tl3261432721_ (let () (declare (not safe)) - (##cdr _e3290132999_))) - (_hd3290033003_ + (##cdr _e3261632714_))) + (_hd3261532718_ (let () (declare (not safe)) - (##car _e3290132999_)))) - (if (gx#stx-pair? _tl3289933006_) - (let ((_e3290433009_ - (gx#syntax-e _tl3289933006_))) - (let ((_tl3290233016_ + (##car _e3261632714_)))) + (if (gx#stx-pair? _tl3261432721_) + (let ((_e3261932724_ + (gx#syntax-e _tl3261432721_))) + (let ((_tl3261732731_ (let () (declare (not safe)) - (##cdr _e3290433009_))) - (_hd3290333013_ + (##cdr _e3261932724_))) + (_hd3261832728_ (let () (declare (not safe)) - (##car _e3290433009_)))) - (if (gx#stx-pair? _tl3290233016_) - (let ((_e3290733019_ - (gx#syntax-e _tl3290233016_))) - (let ((_tl3290533026_ + (##car _e3261932724_)))) + (if (gx#stx-pair? _tl3261732731_) + (let ((_e3262232734_ + (gx#syntax-e _tl3261732731_))) + (let ((_tl3262032741_ (let () (declare (not safe)) - (##cdr _e3290733019_))) - (_hd3290633023_ + (##cdr _e3262232734_))) + (_hd3262132738_ (let () (declare (not safe)) - (##car _e3290733019_)))) - (if (gx#stx-null? _tl3290533026_) - (___match4708947090_ - _e3289832989_ - _hd3289732993_ - _tl3289632996_ - _e3290132999_ - _hd3290033003_ - _tl3289933006_ - _e3290433009_ - _hd3290333013_ - _tl3290233016_ - _e3290733019_ - _hd3290633023_ - _tl3290533026_) + (##car _e3262232734_)))) + (if (gx#stx-null? _tl3262032741_) + (___match4688146882_ + _e3261332704_ + _hd3261232708_ + _tl3261132711_ + _e3261632714_ + _hd3261532718_ + _tl3261432721_ + _e3261932724_ + _hd3261832728_ + _tl3261732731_ + _e3262232734_ + _hd3262132738_ + _tl3262032741_) (let () (declare (not safe)) - (_g3289132925_))))) - (if (gx#stx-null? _tl3290233016_) - (___kont4706147062_ - _hd3290333013_ - _hd3290033003_ - _hd3289732993_) + (_g3260632640_))))) + (if (gx#stx-null? _tl3261732731_) + (___kont4685346854_ + _hd3261832728_ + _hd3261532718_ + _hd3261232708_) (let () (declare (not safe)) - (_g3289132925_)))))) + (_g3260632640_)))))) (let () (declare (not safe)) - (_g3289132925_))))) - (let () (declare (not safe)) (_g3289132925_))))) - (let () (declare (not safe)) (_g3289132925_)))))))) + (_g3260632640_))))) + (let () (declare (not safe)) (_g3260632640_))))) + (let () (declare (not safe)) (_g3260632640_)))))))) (define |gerbil/core$[:0:]#defrules-for-match| - (lambda (_$stx33054_) - (let* ((_g3305833073_ - (lambda (_g3305933069_) + (lambda (_$stx32769_) + (let* ((_g3277332788_ + (lambda (_g3277432784_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3305933069_))) - (_g3305733116_ - (lambda (_g3305933077_) - (if (gx#stx-pair? _g3305933077_) - (let ((_e3306433080_ (gx#syntax-e _g3305933077_))) - (let ((_hd3306333084_ + _g3277432784_))) + (_g3277232831_ + (lambda (_g3277432792_) + (if (gx#stx-pair? _g3277432792_) + (let ((_e3277932795_ (gx#syntax-e _g3277432792_))) + (let ((_hd3277832799_ (let () (declare (not safe)) - (##car _e3306433080_))) - (_tl3306233087_ + (##car _e3277932795_))) + (_tl3277732802_ (let () (declare (not safe)) - (##cdr _e3306433080_)))) - (if (gx#stx-pair? _tl3306233087_) - (let ((_e3306733090_ - (gx#syntax-e _tl3306233087_))) - (let ((_hd3306633094_ + (##cdr _e3277932795_)))) + (if (gx#stx-pair? _tl3277732802_) + (let ((_e3278232805_ + (gx#syntax-e _tl3277732802_))) + (let ((_hd3278132809_ (let () (declare (not safe)) - (##car _e3306733090_))) - (_tl3306533097_ + (##car _e3278232805_))) + (_tl3278032812_ (let () (declare (not safe)) - (##cdr _e3306733090_)))) - ((lambda (_L33100_ _L33102_) - (let ((__tmp50900 + (##cdr _e3278232805_)))) + ((lambda (_L32815_ _L32817_) + (let ((__tmp50661 (gx#datum->syntax '#f 'defsyntax-for-match)) - (__tmp50896 - (let ((__tmp50897 - (let ((__tmp50898 - (let ((__tmp50899 + (__tmp50657 + (let ((__tmp50658 + (let ((__tmp50659 + (let ((__tmp50660 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp50899 _L33100_)))) + (cons __tmp50660 _L32815_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50898 '())))) + (cons __tmp50659 '())))) (declare (not safe)) - (cons _L33102_ __tmp50897)))) + (cons _L32817_ __tmp50658)))) (declare (not safe)) - (cons __tmp50900 __tmp50896))) - _tl3306533097_ - _hd3306633094_))) - (_g3305833073_ _g3305933077_)))) - (_g3305833073_ _g3305933077_))))) - (_g3305733116_ _$stx33054_)))))) + (cons __tmp50661 __tmp50657))) + _tl3278032812_ + _hd3278132809_))) + (_g3277332788_ _g3277432792_)))) + (_g3277332788_ _g3277432792_))))) + (_g3277232831_ _$stx32769_)))))) diff --git a/src/bootstrap/gerbil/core__11.scm b/src/bootstrap/gerbil/core__11.scm index d18397934..4c5466a28 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]#_g50903_| + (define |gerbil/core$[2]#_g50664_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50905_| + (define |gerbil/core$[2]#_g50666_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50907_| + (define |gerbil/core$[2]#_g50668_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50909_| + (define |gerbil/core$[2]#_g50670_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50913_| + (define |gerbil/core$[2]#_g50674_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50917_| + (define |gerbil/core$[2]#_g50678_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50921_| + (define |gerbil/core$[2]#_g50682_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50925_| + (define |gerbil/core$[2]#_g50686_| (##structure gx#syntax-quote::t '&match-macro-macro-set! @@ -57,7 +57,7 @@ (gx#current-expander-context) '())) (define |gerbil/core$[:1:]#match-macro| - (let ((__obj47561 + (let ((__obj47352 (let () (declare (not safe)) (##structure @@ -79,7 +79,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47561 + __obj47352 'gerbil.core#match-macro::t '1 gerbil/core$$#class-type-info::t @@ -87,7 +87,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47561 + __obj47352 'match-macro '2 gerbil/core$$#class-type-info::t @@ -95,26 +95,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47561 + __obj47352 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50901 - (let ((__tmp50902 |gerbil/core$[2]#_g50903_|)) + (let ((__tmp50662 + (let ((__tmp50663 |gerbil/core$[2]#_g50664_|)) (declare (not safe)) - (cons __tmp50902 '())))) + (cons __tmp50663 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47561 - __tmp50901 + __obj47352 + __tmp50662 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47561 + __obj47352 '#f '5 gerbil/core$$#class-type-info::t @@ -122,7 +122,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47561 + __obj47352 '#f '6 gerbil/core$$#class-type-info::t @@ -130,89 +130,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47561 + __obj47352 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50904 |gerbil/core$[2]#_g50905_|)) + (let ((__tmp50665 |gerbil/core$[2]#_g50666_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47561 - __tmp50904 + __obj47352 + __tmp50665 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50906 |gerbil/core$[2]#_g50907_|)) + (let ((__tmp50667 |gerbil/core$[2]#_g50668_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47561 - __tmp50906 + __obj47352 + __tmp50667 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50908 |gerbil/core$[2]#_g50909_|)) + (let ((__tmp50669 |gerbil/core$[2]#_g50670_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47561 - __tmp50908 + __obj47352 + __tmp50669 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50910 - (let ((__tmp50911 - (let ((__tmp50912 |gerbil/core$[2]#_g50913_|)) + (let ((__tmp50671 + (let ((__tmp50672 + (let ((__tmp50673 |gerbil/core$[2]#_g50674_|)) (declare (not safe)) - (cons 'macro __tmp50912)))) + (cons 'macro __tmp50673)))) (declare (not safe)) - (cons __tmp50911 '())))) + (cons __tmp50672 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47561 - __tmp50910 + __obj47352 + __tmp50671 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50914 - (let ((__tmp50915 - (let ((__tmp50916 |gerbil/core$[2]#_g50917_|)) + (let ((__tmp50675 + (let ((__tmp50676 + (let ((__tmp50677 |gerbil/core$[2]#_g50678_|)) (declare (not safe)) - (cons 'macro __tmp50916)))) + (cons 'macro __tmp50677)))) (declare (not safe)) - (cons __tmp50915 '())))) + (cons __tmp50676 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47561 - __tmp50914 + __obj47352 + __tmp50675 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50918 - (let ((__tmp50919 - (let ((__tmp50920 |gerbil/core$[2]#_g50921_|)) + (let ((__tmp50679 + (let ((__tmp50680 + (let ((__tmp50681 |gerbil/core$[2]#_g50682_|)) (declare (not safe)) - (cons 'macro __tmp50920)))) + (cons 'macro __tmp50681)))) (declare (not safe)) - (cons __tmp50919 '())))) + (cons __tmp50680 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47561 - __tmp50918 + __obj47352 + __tmp50679 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50922 - (let ((__tmp50923 - (let ((__tmp50924 |gerbil/core$[2]#_g50925_|)) + (let ((__tmp50683 + (let ((__tmp50684 + (let ((__tmp50685 |gerbil/core$[2]#_g50686_|)) (declare (not safe)) - (cons 'macro __tmp50924)))) + (cons 'macro __tmp50685)))) (declare (not safe)) - (cons __tmp50923 '())))) + (cons __tmp50684 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47561 - __tmp50922 + __obj47352 + __tmp50683 '14 gerbil/core$$#class-type-info::t '#f)) - __obj47561))) + __obj47352))) diff --git a/src/bootstrap/gerbil/core__12.scm b/src/bootstrap/gerbil/core__12.scm index b40608a50..255cab960 100644 --- a/src/bootstrap/gerbil/core__12.scm +++ b/src/bootstrap/gerbil/core__12.scm @@ -1,48 +1,48 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$[:0:]#:| - (lambda (_$stx33121_) - (let ((_g3312433131_ - (lambda (_g3312533127_) + (lambda (_$stx32836_) + (let ((_g3283932846_ + (lambda (_g3284032842_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3312533127_)))) - (_g3312433131_ _$stx33121_)))) + _g3284032842_)))) + (_g3283932846_ _$stx32836_)))) (define |gerbil/core$[:0:]#:~| - (lambda (_$stx33135_) - (let ((_g3313833145_ - (lambda (_g3313933141_) + (lambda (_$stx32850_) + (let ((_g3285332860_ + (lambda (_g3285432856_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3313933141_)))) - (_g3313833145_ _$stx33135_)))) + _g3285432856_)))) + (_g3285332860_ _$stx32850_)))) (define |gerbil/core$[:0:]#:-| - (lambda (_$stx33149_) - (let ((_g3315233159_ - (lambda (_g3315333155_) + (lambda (_$stx32864_) + (let ((_g3286732874_ + (lambda (_g3286832870_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3315333155_)))) - (_g3315233159_ _$stx33149_)))) + _g3286832870_)))) + (_g3286732874_ _$stx32864_)))) (define |gerbil/core$[:0:]#:=| - (lambda (_$stx33163_) - (let ((_g3316633173_ - (lambda (_g3316733169_) + (lambda (_$stx32878_) + (let ((_g3288132888_ + (lambda (_g3288232884_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3316733169_)))) - (_g3316633173_ _$stx33163_)))) + _g3288232884_)))) + (_g3288132888_ _$stx32878_)))) (define |gerbil/core$[1]#setq-macro::t| - (let ((__tmp50926 (list gerbil/core$#macro-object::t))) + (let ((__tmp50687 (list gerbil/core$#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#setq-macro::t 'setq-macro - __tmp50926 + __tmp50687 '() '() '#f))) @@ -51,10 +51,10 @@ (declare (not safe)) (make-class-predicate |gerbil/core$[1]#setq-macro::t|))) (define |gerbil/core$[1]#make-setq-macro| - (lambda _$args33188_ - (apply make-class-instance + (lambda _$args32903_ + (apply make-instance |gerbil/core$[1]#setq-macro::t| - _$args33188_))) + _$args32903_))) (define |gerbil/core$[1]#setq-macro-macro| (let () (declare (not safe)) @@ -80,12 +80,12 @@ |gerbil/core$[1]#setq-macro::t| 'macro))) (define |gerbil/core$[1]#setf-macro::t| - (let ((__tmp50927 (list gerbil/core$#macro-object::t))) + (let ((__tmp50688 (list gerbil/core$#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#setf-macro::t 'setf-macro - __tmp50927 + __tmp50688 '() '() '#f))) @@ -94,10 +94,10 @@ (declare (not safe)) (make-class-predicate |gerbil/core$[1]#setf-macro::t|))) (define |gerbil/core$[1]#make-setf-macro| - (lambda _$args33184_ - (apply make-class-instance + (lambda _$args32899_ + (apply make-instance |gerbil/core$[1]#setf-macro::t| - _$args33184_))) + _$args32899_))) (define |gerbil/core$[1]#setf-macro-macro| (let () (declare (not safe)) @@ -123,1499 +123,1499 @@ |gerbil/core$[1]#setf-macro::t| 'macro))) (define |gerbil/core$[1]#syntax-local-setf-macro?| - (lambda (_stx33181_) - (if (gx#identifier? _stx33181_) - (let ((__tmp50928 (gx#syntax-local-value _stx33181_ false))) + (lambda (_stx32896_) + (if (gx#identifier? _stx32896_) + (let ((__tmp50689 (gx#syntax-local-value _stx32896_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setf-macro::t| - __tmp50928)) + __tmp50689)) '#f))) (define |gerbil/core$[1]#syntax-local-setq-macro?| - (lambda (_stx33178_) - (if (gx#identifier? _stx33178_) - (let ((__tmp50929 (gx#syntax-local-value _stx33178_ false))) + (lambda (_stx32893_) + (if (gx#identifier? _stx32893_) + (let ((__tmp50690 (gx#syntax-local-value _stx32893_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setq-macro::t| - __tmp50929)) + __tmp50690)) '#f))) (define |gerbil/core$[:0:]#set!| - (lambda (_stx33192_) - (let* ((___stx4711247113_ _stx33192_) - (_g3319833257_ + (lambda (_stx32907_) + (let* ((___stx4690446905_ _stx32907_) + (_g3291332972_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4711247113_)))) - (let ((___kont4711547116_ - (lambda (_L33530_) + ___stx4690446905_)))) + (let ((___kont4690746908_ + (lambda (_L33245_) (gx#core-apply-expander - (gx#syntax-local-e _L33530_) - _stx33192_))) - (___kont4711747118_ - (lambda (_L33429_ _L33431_ _L33432_) - (let* ((_g3345433462_ - (lambda (_g3345533458_) + (gx#syntax-local-e _L33245_) + _stx32907_))) + (___kont4690946910_ + (lambda (_L33144_ _L33146_ _L33147_) + (let* ((_g3316933177_ + (lambda (_g3317033173_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3345533458_))) - (_g3345333489_ - (lambda (_g3345533466_) - ((lambda (_L33469_) + _g3317033173_))) + (_g3316833204_ + (lambda (_g3317033181_) + ((lambda (_L33184_) (let () - (let ((__tmp50930 - (let ((__tmp50932 - (lambda (_g3348033483_ - _g3348133486_) + (let ((__tmp50691 + (let ((__tmp50693 + (lambda (_g3319533198_ + _g3319633201_) (let () (declare (not safe)) - (cons _g3348033483_ - _g3348133486_)))) - (__tmp50931 + (cons _g3319533198_ + _g3319633201_)))) + (__tmp50692 (let () (declare (not safe)) - (cons _L33429_ '())))) + (cons _L33144_ '())))) (declare (not safe)) - (foldr1 __tmp50932 - __tmp50931 - _L33431_)))) + (foldr1 __tmp50693 + __tmp50692 + _L33146_)))) (declare (not safe)) - (cons _L33469_ __tmp50930)))) - _g3345533466_)))) - (_g3345333489_ - (gx#stx-identifier _L33432_ _L33432_ '"-set!"))))) - (___kont4712147122_ - (lambda (_L33339_) + (cons _L33184_ __tmp50691)))) + _g3317033181_)))) + (_g3316833204_ + (gx#stx-identifier _L33147_ _L33147_ '"-set!"))))) + (___kont4691346914_ + (lambda (_L33054_) (gx#core-apply-expander - (gx#syntax-local-e _L33339_) - _stx33192_))) - (___kont4712347124_ - (lambda (_L33294_ _L33296_) - (let ((__tmp50935 (gx#datum->syntax '#f '%#set!)) - (__tmp50933 - (let ((__tmp50934 + (gx#syntax-local-e _L33054_) + _stx32907_))) + (___kont4691546916_ + (lambda (_L33009_ _L33011_) + (let ((__tmp50696 (gx#datum->syntax '#f '%#set!)) + (__tmp50694 + (let ((__tmp50695 (let () (declare (not safe)) - (cons _L33294_ '())))) + (cons _L33009_ '())))) (declare (not safe)) - (cons _L33296_ __tmp50934)))) + (cons _L33011_ __tmp50695)))) (declare (not safe)) - (cons __tmp50935 __tmp50933))))) - (let* ((___match4720347204_ - (lambda (_e3324533264_ - _hd3324433268_ - _tl3324333271_ - _e3324833274_ - _hd3324733278_ - _tl3324633281_ - _e3325133284_ - _hd3325033288_ - _tl3324933291_) - (let ((_L33294_ _hd3325033288_) (_L33296_ _hd3324733278_)) - (if (gx#identifier? _L33296_) - (___kont4712347124_ _L33294_ _L33296_) - (let () (declare (not safe)) (_g3319833257_)))))) - (___match4718347184_ - (lambda (_e3323733319_ - _hd3323633323_ - _tl3323533326_ - _e3324033329_ - _hd3323933333_ - _tl3323833336_) - (let ((_L33339_ _hd3323933333_)) + (cons __tmp50696 __tmp50694))))) + (let* ((___match4699546996_ + (lambda (_e3296032979_ + _hd3295932983_ + _tl3295832986_ + _e3296332989_ + _hd3296232993_ + _tl3296132996_ + _e3296632999_ + _hd3296533003_ + _tl3296433006_) + (let ((_L33009_ _hd3296533003_) (_L33011_ _hd3296232993_)) + (if (gx#identifier? _L33011_) + (___kont4691546916_ _L33009_ _L33011_) + (let () (declare (not safe)) (_g3291332972_)))))) + (___match4697546976_ + (lambda (_e3295233034_ + _hd3295133038_ + _tl3295033041_ + _e3295533044_ + _hd3295433048_ + _tl3295333051_) + (let ((_L33054_ _hd3295433048_)) (if (let () (declare (not safe)) (|gerbil/core$[1]#syntax-local-setq-macro?| - _L33339_)) - (___kont4712147122_ _L33339_) - (if (gx#stx-pair? _tl3323833336_) - (let ((_e3325133284_ - (gx#syntax-e _tl3323833336_))) - (let ((_tl3324933291_ + _L33054_)) + (___kont4691346914_ _L33054_) + (if (gx#stx-pair? _tl3295333051_) + (let ((_e3296632999_ + (gx#syntax-e _tl3295333051_))) + (let ((_tl3296433006_ (let () (declare (not safe)) - (##cdr _e3325133284_))) - (_hd3325033288_ + (##cdr _e3296632999_))) + (_hd3296533003_ (let () (declare (not safe)) - (##car _e3325133284_)))) - (if (gx#stx-null? _tl3324933291_) - (___match4720347204_ - _e3323733319_ - _hd3323633323_ - _tl3323533326_ - _e3324033329_ - _hd3323933333_ - _tl3323833336_ - _e3325133284_ - _hd3325033288_ - _tl3324933291_) + (##car _e3296632999_)))) + (if (gx#stx-null? _tl3296433006_) + (___match4699546996_ + _e3295233034_ + _hd3295133038_ + _tl3295033041_ + _e3295533044_ + _hd3295433048_ + _tl3295333051_ + _e3296632999_ + _hd3296533003_ + _tl3296433006_) (let () (declare (not safe)) - (_g3319833257_))))) + (_g3291332972_))))) (let () (declare (not safe)) - (_g3319833257_))))))) - (___match4717147172_ - (lambda (_e3321533359_ - _hd3321433363_ - _tl3321333366_ - _e3321833369_ - _hd3321733373_ - _tl3321633376_ - _e3322133379_ - _hd3322033383_ - _tl3321933386_ - ___splice4711947120_ - _target3322233389_ - _tl3322433392_) - (letrec ((_loop3322533395_ - (lambda (_hd3322333399_ _arg3322933402_) - (if (gx#stx-pair? _hd3322333399_) - (let ((_e3322633405_ - (gx#syntax-e _hd3322333399_))) - (let ((_lp-tl3322833412_ + (_g3291332972_))))))) + (___match4696346964_ + (lambda (_e3293033074_ + _hd3292933078_ + _tl3292833081_ + _e3293333084_ + _hd3293233088_ + _tl3293133091_ + _e3293633094_ + _hd3293533098_ + _tl3293433101_ + ___splice4691146912_ + _target3293733104_ + _tl3293933107_) + (letrec ((_loop3294033110_ + (lambda (_hd3293833114_ _arg3294433117_) + (if (gx#stx-pair? _hd3293833114_) + (let ((_e3294133120_ + (gx#syntax-e _hd3293833114_))) + (let ((_lp-tl3294333127_ (let () (declare (not safe)) - (##cdr _e3322633405_))) - (_lp-hd3322733409_ + (##cdr _e3294133120_))) + (_lp-hd3294233124_ (let () (declare (not safe)) - (##car _e3322633405_)))) - (_loop3322533395_ - _lp-tl3322833412_ + (##car _e3294133120_)))) + (_loop3294033110_ + _lp-tl3294333127_ (let () (declare (not safe)) - (cons _lp-hd3322733409_ - _arg3322933402_))))) - (let ((_arg3323033415_ - (reverse _arg3322933402_))) - (if (gx#stx-pair? _tl3321633376_) - (let ((_e3323333419_ - (gx#syntax-e _tl3321633376_))) - (let ((_tl3323133426_ + (cons _lp-hd3294233124_ + _arg3294433117_))))) + (let ((_arg3294533130_ + (reverse _arg3294433117_))) + (if (gx#stx-pair? _tl3293133091_) + (let ((_e3294833134_ + (gx#syntax-e _tl3293133091_))) + (let ((_tl3294633141_ (let () (declare (not safe)) - (##cdr _e3323333419_))) - (_hd3323233423_ + (##cdr _e3294833134_))) + (_hd3294733138_ (let () (declare (not safe)) - (##car _e3323333419_)))) - (if (gx#stx-null? _tl3323133426_) - (let ((_L33429_ - _hd3323233423_) - (_L33431_ - _arg3323033415_) - (_L33432_ - _hd3322033383_)) + (##car _e3294833134_)))) + (if (gx#stx-null? _tl3294633141_) + (let ((_L33144_ + _hd3294733138_) + (_L33146_ + _arg3294533130_) + (_L33147_ + _hd3293533098_)) (if (gx#identifier? - _L33432_) - (___kont4711747118_ - _L33429_ - _L33431_ - _L33432_) - (___match4718347184_ - _e3321533359_ - _hd3321433363_ - _tl3321333366_ - _e3321833369_ - _hd3321733373_ - _tl3321633376_))) - (___match4718347184_ - _e3321533359_ - _hd3321433363_ - _tl3321333366_ - _e3321833369_ - _hd3321733373_ - _tl3321633376_)))) - (___match4718347184_ - _e3321533359_ - _hd3321433363_ - _tl3321333366_ - _e3321833369_ - _hd3321733373_ - _tl3321633376_))))))) - (_loop3322533395_ _target3322233389_ '()))))) - (if (gx#stx-pair? ___stx4711247113_) - (let ((_e3320333500_ (gx#syntax-e ___stx4711247113_))) - (let ((_tl3320133507_ - (let () (declare (not safe)) (##cdr _e3320333500_))) - (_hd3320233504_ - (let () (declare (not safe)) (##car _e3320333500_)))) - (if (gx#stx-pair? _tl3320133507_) - (let ((_e3320633510_ (gx#syntax-e _tl3320133507_))) - (let ((_tl3320433517_ + _L33147_) + (___kont4690946910_ + _L33144_ + _L33146_ + _L33147_) + (___match4697546976_ + _e3293033074_ + _hd3292933078_ + _tl3292833081_ + _e3293333084_ + _hd3293233088_ + _tl3293133091_))) + (___match4697546976_ + _e3293033074_ + _hd3292933078_ + _tl3292833081_ + _e3293333084_ + _hd3293233088_ + _tl3293133091_)))) + (___match4697546976_ + _e3293033074_ + _hd3292933078_ + _tl3292833081_ + _e3293333084_ + _hd3293233088_ + _tl3293133091_))))))) + (_loop3294033110_ _target3293733104_ '()))))) + (if (gx#stx-pair? ___stx4690446905_) + (let ((_e3291833215_ (gx#syntax-e ___stx4690446905_))) + (let ((_tl3291633222_ + (let () (declare (not safe)) (##cdr _e3291833215_))) + (_hd3291733219_ + (let () (declare (not safe)) (##car _e3291833215_)))) + (if (gx#stx-pair? _tl3291633222_) + (let ((_e3292133225_ (gx#syntax-e _tl3291633222_))) + (let ((_tl3291933232_ (let () (declare (not safe)) - (##cdr _e3320633510_))) - (_hd3320533514_ + (##cdr _e3292133225_))) + (_hd3292033229_ (let () (declare (not safe)) - (##car _e3320633510_)))) - (if (gx#stx-pair? _hd3320533514_) - (let ((_e3320933520_ - (gx#syntax-e _hd3320533514_))) - (let ((_tl3320733527_ + (##car _e3292133225_)))) + (if (gx#stx-pair? _hd3292033229_) + (let ((_e3292433235_ + (gx#syntax-e _hd3292033229_))) + (let ((_tl3292233242_ (let () (declare (not safe)) - (##cdr _e3320933520_))) - (_hd3320833524_ + (##cdr _e3292433235_))) + (_hd3292333239_ (let () (declare (not safe)) - (##car _e3320933520_)))) - (if (let ((__tmp50936 + (##car _e3292433235_)))) + (if (let ((__tmp50697 (gx#datum->syntax '#f 'setfid))) (declare (not safe)) (|gerbil/core$[1]#syntax-local-setf-macro?| - __tmp50936)) - (let ((_L33530_ _hd3320833524_)) - (___kont4711547116_ _L33530_)) - (if (gx#stx-pair/null? _tl3320733527_) - (let ((___splice4711947120_ + __tmp50697)) + (let ((_L33245_ _hd3292333239_)) + (___kont4690746908_ _L33245_)) + (if (gx#stx-pair/null? _tl3292233242_) + (let ((___splice4691146912_ (gx#syntax-split-splice - _tl3320733527_ + _tl3292233242_ '0))) - (let ((_tl3322433392_ + (let ((_tl3293933107_ (let () (declare (not safe)) (##vector-ref - ___splice4711947120_ + ___splice4691146912_ '1))) - (_target3322233389_ + (_target3293733104_ (let () (declare (not safe)) (##vector-ref - ___splice4711947120_ + ___splice4691146912_ '0)))) (if (gx#stx-null? - _tl3322433392_) - (___match4717147172_ - _e3320333500_ - _hd3320233504_ - _tl3320133507_ - _e3320633510_ - _hd3320533514_ - _tl3320433517_ - _e3320933520_ - _hd3320833524_ - _tl3320733527_ - ___splice4711947120_ - _target3322233389_ - _tl3322433392_) - (___match4718347184_ - _e3320333500_ - _hd3320233504_ - _tl3320133507_ - _e3320633510_ - _hd3320533514_ - _tl3320433517_)))) - (___match4718347184_ - _e3320333500_ - _hd3320233504_ - _tl3320133507_ - _e3320633510_ - _hd3320533514_ - _tl3320433517_))))) - (___match4718347184_ - _e3320333500_ - _hd3320233504_ - _tl3320133507_ - _e3320633510_ - _hd3320533514_ - _tl3320433517_)))) - (let () (declare (not safe)) (_g3319833257_))))) - (let () (declare (not safe)) (_g3319833257_)))))))) + _tl3293933107_) + (___match4696346964_ + _e3291833215_ + _hd3291733219_ + _tl3291633222_ + _e3292133225_ + _hd3292033229_ + _tl3291933232_ + _e3292433235_ + _hd3292333239_ + _tl3292233242_ + ___splice4691146912_ + _target3293733104_ + _tl3293933107_) + (___match4697546976_ + _e3291833215_ + _hd3291733219_ + _tl3291633222_ + _e3292133225_ + _hd3292033229_ + _tl3291933232_)))) + (___match4697546976_ + _e3291833215_ + _hd3291733219_ + _tl3291633222_ + _e3292133225_ + _hd3292033229_ + _tl3291933232_))))) + (___match4697546976_ + _e3291833215_ + _hd3291733219_ + _tl3291633222_ + _e3292133225_ + _hd3292033229_ + _tl3291933232_)))) + (let () (declare (not safe)) (_g3291332972_))))) + (let () (declare (not safe)) (_g3291332972_)))))))) (define |gerbil/core$[:0:]#values-set!| - (lambda (_stx33550_) - (let* ((_g3355333577_ - (lambda (_g3355433573_) + (lambda (_stx33265_) + (let* ((_g3326833292_ + (lambda (_g3326933288_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3355433573_))) - (_g3355233755_ - (lambda (_g3355433581_) - (if (gx#stx-pair? _g3355433581_) - (let ((_e3355933584_ (gx#syntax-e _g3355433581_))) - (let ((_hd3355833588_ + _g3326933288_))) + (_g3326733470_ + (lambda (_g3326933296_) + (if (gx#stx-pair? _g3326933296_) + (let ((_e3327433299_ (gx#syntax-e _g3326933296_))) + (let ((_hd3327333303_ (let () (declare (not safe)) - (##car _e3355933584_))) - (_tl3355733591_ + (##car _e3327433299_))) + (_tl3327233306_ (let () (declare (not safe)) - (##cdr _e3355933584_)))) - (if (gx#stx-pair/null? _tl3355733591_) - (if (fx>= (gx#stx-length _tl3355733591_) '1) - (let ((_g50937_ + (##cdr _e3327433299_)))) + (if (gx#stx-pair/null? _tl3327233306_) + (if (fx>= (gx#stx-length _tl3327233306_) '1) + (let ((_g50698_ (gx#syntax-split-splice - _tl3355733591_ + _tl3327233306_ '1))) (begin - (let ((_g50938_ + (let ((_g50699_ (let () (declare (not safe)) - (if (##values? _g50937_) - (##vector-length _g50937_) + (if (##values? _g50698_) + (##vector-length _g50698_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50938_ 2))) + (##fx= _g50699_ 2))) (error "Context expects 2 values" - _g50938_))) - (let ((_target3356033594_ + _g50699_))) + (let ((_target3327533309_ (let () (declare (not safe)) - (##vector-ref _g50937_ 0))) - (_tl3356233597_ + (##vector-ref _g50698_ 0))) + (_tl3327733312_ (let () (declare (not safe)) - (##vector-ref _g50937_ 1)))) - (if (gx#stx-pair? _tl3356233597_) - (let ((_e3357133600_ - (gx#syntax-e _tl3356233597_))) - (let ((_hd3357033604_ + (##vector-ref _g50698_ 1)))) + (if (gx#stx-pair? _tl3327733312_) + (let ((_e3328633315_ + (gx#syntax-e _tl3327733312_))) + (let ((_hd3328533319_ (let () (declare (not safe)) - (##car _e3357133600_))) - (_tl3356933607_ + (##car _e3328633315_))) + (_tl3328433322_ (let () (declare (not safe)) - (##cdr _e3357133600_)))) - (if (gx#stx-null? _tl3356933607_) - (letrec ((_loop3356333610_ - (lambda (_hd3356133614_ + (##cdr _e3328633315_)))) + (if (gx#stx-null? _tl3328433322_) + (letrec ((_loop3327833325_ + (lambda (_hd3327633329_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tgt3356733617_) - (if (gx#stx-pair? _hd3356133614_) - (let ((_e3356433620_ (gx#syntax-e _hd3356133614_))) - (let ((_lp-hd3356533624_ + _tgt3328233332_) + (if (gx#stx-pair? _hd3327633329_) + (let ((_e3327933335_ (gx#syntax-e _hd3327633329_))) + (let ((_lp-hd3328033339_ (let () (declare (not safe)) - (##car _e3356433620_))) - (_lp-tl3356633627_ + (##car _e3327933335_))) + (_lp-tl3328133342_ (let () (declare (not safe)) - (##cdr _e3356433620_)))) - (_loop3356333610_ - _lp-tl3356633627_ + (##cdr _e3327933335_)))) + (_loop3327833325_ + _lp-tl3328133342_ (let () (declare (not safe)) - (cons _lp-hd3356533624_ _tgt3356733617_))))) - (let ((_tgt3356833630_ (reverse _tgt3356733617_))) - ((lambda (_L33634_ _L33636_) - (let* ((_g3365433671_ - (lambda (_g3365533667_) + (cons _lp-hd3328033339_ _tgt3328233332_))))) + (let ((_tgt3328333345_ (reverse _tgt3328233332_))) + ((lambda (_L33349_ _L33351_) + (let* ((_g3336933386_ + (lambda (_g3337033382_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3365533667_))) - (_g3365333743_ - (lambda (_g3365533675_) - (if (gx#stx-pair/null? _g3365533675_) - (let ((_g50939_ + _g3337033382_))) + (_g3336833458_ + (lambda (_g3337033390_) + (if (gx#stx-pair/null? _g3337033390_) + (let ((_g50700_ (gx#syntax-split-splice - _g3365533675_ + _g3337033390_ '0))) (begin - (let ((_g50940_ + (let ((_g50701_ (let () (declare (not safe)) (if (##values? - _g50939_) + _g50700_) (##vector-length - _g50939_) + _g50700_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50940_ + (##fx= _g50701_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g50940_))) + (error "Context expects 2 values" _g50701_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3365733678_ + (let ((_target3337233393_ (let () (declare (not safe)) (##vector-ref - _g50939_ + _g50700_ 0))) - (_tl3365933681_ + (_tl3337433396_ (let () (declare (not safe)) (##vector-ref - _g50939_ + _g50700_ 1)))) (if (gx#stx-null? - _tl3365933681_) - (letrec ((_loop3366033684_ + _tl3337433396_) + (letrec ((_loop3337533399_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd3365833688_ _$e3366433691_) - (if (gx#stx-pair? _hd3365833688_) - (let ((_e3366133694_ - (gx#syntax-e _hd3365833688_))) - (let ((_lp-hd3366233698_ + (lambda (_hd3337333403_ _$e3337933406_) + (if (gx#stx-pair? _hd3337333403_) + (let ((_e3337633409_ + (gx#syntax-e _hd3337333403_))) + (let ((_lp-hd3337733413_ (let () (declare (not safe)) - (##car _e3366133694_))) - (_lp-tl3366333701_ + (##car _e3337633409_))) + (_lp-tl3337833416_ (let () (declare (not safe)) - (##cdr _e3366133694_)))) - (_loop3366033684_ - _lp-tl3366333701_ + (##cdr _e3337633409_)))) + (_loop3337533399_ + _lp-tl3337833416_ (let () (declare (not safe)) - (cons _lp-hd3366233698_ - _$e3366433691_))))) - (let ((_$e3366533704_ (reverse _$e3366433691_))) - ((lambda (_L33708_) + (cons _lp-hd3337733413_ + _$e3337933406_))))) + (let ((_$e3338033419_ (reverse _$e3337933406_))) + ((lambda (_L33423_) (let () - (let ((__tmp50953 + (let ((__tmp50714 (gx#datum->syntax '#f 'let-values)) - (__tmp50941 - (let ((__tmp50948 - (let ((__tmp50949 - (let ((__tmp50951 + (__tmp50702 + (let ((__tmp50709 + (let ((__tmp50710 + (let ((__tmp50712 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50952 - (lambda (_g3372633729_ _g3372733732_) + (let ((__tmp50713 + (lambda (_g3344133444_ _g3344233447_) (let () (declare (not safe)) - (cons _g3372633729_ _g3372733732_))))) + (cons _g3344133444_ _g3344233447_))))) (declare (not safe)) - (foldr1 __tmp50952 '() _L33708_))) - (__tmp50950 - (let () (declare (not safe)) (cons _L33634_ '())))) + (foldr1 __tmp50713 '() _L33423_))) + (__tmp50711 + (let () (declare (not safe)) (cons _L33349_ '())))) (declare (not safe)) - (cons __tmp50951 __tmp50950)))) + (cons __tmp50712 __tmp50711)))) (declare (not safe)) - (cons __tmp50949 '()))) + (cons __tmp50710 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50942 + (__tmp50703 (begin (gx#syntax-check-splice-targets - _L33708_ - _L33636_) - (let ((__tmp50943 - (lambda (_g3372333735_ + _L33423_ + _L33351_) + (let ((__tmp50704 + (lambda (_g3343833450_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3372433738_ - _g3372533740_) - (let ((__tmp50944 - (let ((__tmp50947 (gx#datum->syntax '#f 'set!)) - (__tmp50945 - (let ((__tmp50946 + _g3343933453_ + _g3344033455_) + (let ((__tmp50705 + (let ((__tmp50708 (gx#datum->syntax '#f 'set!)) + (__tmp50706 + (let ((__tmp50707 (let () (declare (not safe)) - (cons _g3372333735_ '())))) + (cons _g3343833450_ '())))) (declare (not safe)) - (cons _g3372433738_ __tmp50946)))) + (cons _g3343933453_ __tmp50707)))) (declare (not safe)) - (cons __tmp50947 __tmp50945)))) + (cons __tmp50708 __tmp50706)))) (declare (not safe)) - (cons __tmp50944 _g3372533740_))))) + (cons __tmp50705 _g3344033455_))))) (declare (not safe)) - (foldr2 __tmp50943 '() _L33708_ _L33636_))))) + (foldr2 __tmp50704 '() _L33423_ _L33351_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50948 __tmp50942)))) + (cons __tmp50709 __tmp50703)))) (declare (not safe)) - (cons __tmp50953 __tmp50941)))) - _$e3366533704_)))))) - (_loop3366033684_ _target3365733678_ '())) - (_g3365433671_ _g3365533675_))))) + (cons __tmp50714 __tmp50702)))) + _$e3338033419_)))))) + (_loop3337533399_ _target3337233393_ '())) + (_g3336933386_ _g3337033390_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3365433671_ _g3365533675_))))) - (_g3365333743_ + (_g3336933386_ _g3337033390_))))) + (_g3336833458_ (gx#gentemps - (let ((__tmp50954 - (lambda (_g3374633749_ _g3374733752_) + (let ((__tmp50715 + (lambda (_g3346133464_ _g3346233467_) (let () (declare (not safe)) - (cons _g3374633749_ - _g3374733752_))))) + (cons _g3346133464_ + _g3346233467_))))) (declare (not safe)) - (foldr1 __tmp50954 '() _L33636_)))))) - _hd3357033604_ - _tgt3356833630_)))))) + (foldr1 __tmp50715 '() _L33351_)))))) + _hd3328533319_ + _tgt3328333345_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3356333610_ - _target3356033594_ + (_loop3327833325_ + _target3327533309_ '())) - (_g3355333577_ - _g3355433581_)))) - (_g3355333577_ _g3355433581_))))) - (_g3355333577_ _g3355433581_)) - (_g3355333577_ _g3355433581_)))) - (_g3355333577_ _g3355433581_))))) - (_g3355233755_ _stx33550_)))) + (_g3326833292_ + _g3326933296_)))) + (_g3326833292_ _g3326933296_))))) + (_g3326833292_ _g3326933296_)) + (_g3326833292_ _g3326933296_)))) + (_g3326833292_ _g3326933296_))))) + (_g3326733470_ _stx33265_)))) (define |gerbil/core$[:0:]#parameterize| - (lambda (_stx33761_) - (let* ((___stx4720647207_ _stx33761_) - (_g3376533823_ + (lambda (_stx33476_) + (let* ((___stx4699846999_ _stx33476_) + (_g3348033538_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4720647207_)))) - (let ((___kont4720947210_ - (lambda (_L34157_) - (let ((__tmp50958 (gx#datum->syntax '#f 'let)) - (__tmp50955 - (let ((__tmp50956 - (let ((__tmp50957 - (lambda (_g3417334176_ _g3417434179_) + ___stx4699846999_)))) + (let ((___kont4700147002_ + (lambda (_L33872_) + (let ((__tmp50719 (gx#datum->syntax '#f 'let)) + (__tmp50716 + (let ((__tmp50717 + (let ((__tmp50718 + (lambda (_g3388833891_ _g3388933894_) (let () (declare (not safe)) - (cons _g3417334176_ - _g3417434179_))))) + (cons _g3388833891_ + _g3388933894_))))) (declare (not safe)) - (foldr1 __tmp50957 '() _L34157_)))) + (foldr1 __tmp50718 '() _L33872_)))) (declare (not safe)) - (cons '() __tmp50956)))) + (cons '() __tmp50717)))) (declare (not safe)) - (cons __tmp50958 __tmp50955)))) - (___kont4721347214_ - (lambda (_L33934_ _L33936_ _L33937_) - (let* ((_g3396033968_ - (lambda (_g3396133964_) + (cons __tmp50719 __tmp50716)))) + (___kont4700547006_ + (lambda (_L33649_ _L33651_ _L33652_) + (let* ((_g3367533683_ + (lambda (_g3367633679_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3396133964_))) - (_g3395934088_ - (lambda (_g3396133972_) - ((lambda (_L33975_) + _g3367633679_))) + (_g3367433803_ + (lambda (_g3367633687_) + ((lambda (_L33690_) (let () - (let* ((_g3398734004_ - (lambda (_g3398834000_) + (let* ((_g3370233719_ + (lambda (_g3370333715_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3398834000_))) - (_g3398634068_ - (lambda (_g3398834008_) - (if (gx#stx-pair/null? _g3398834008_) - (let ((_g50959_ + _g3370333715_))) + (_g3370133783_ + (lambda (_g3370333723_) + (if (gx#stx-pair/null? _g3370333723_) + (let ((_g50720_ (gx#syntax-split-splice - _g3398834008_ + _g3370333723_ '0))) (begin - (let ((_g50960_ + (let ((_g50721_ (let () (declare (not safe)) (if (##values? - _g50959_) + _g50720_) (##vector-length - _g50959_) + _g50720_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g50960_ 2))) - (error "Context expects 2 values" _g50960_))) + (##fx= _g50721_ 2))) + (error "Context expects 2 values" _g50721_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3399034011_ + (let ((_target3370533726_ (let () (declare (not safe)) (##vector-ref - _g50959_ + _g50720_ 0))) - (_tl3399234014_ + (_tl3370733729_ (let () (declare (not safe)) (##vector-ref - _g50959_ + _g50720_ 1)))) (if (gx#stx-null? - _tl3399234014_) - (letrec ((_loop3399334017_ + _tl3370733729_) + (letrec ((_loop3370833732_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd3399134021_ _arg3399734024_) - (if (gx#stx-pair? _hd3399134021_) - (let ((_e3399434027_ - (gx#syntax-e _hd3399134021_))) - (let ((_lp-hd3399534031_ + (lambda (_hd3370633736_ _arg3371233739_) + (if (gx#stx-pair? _hd3370633736_) + (let ((_e3370933742_ + (gx#syntax-e _hd3370633736_))) + (let ((_lp-hd3371033746_ (let () (declare (not safe)) - (##car _e3399434027_))) - (_lp-tl3399634034_ + (##car _e3370933742_))) + (_lp-tl3371133749_ (let () (declare (not safe)) - (##cdr _e3399434027_)))) - (_loop3399334017_ - _lp-tl3399634034_ + (##cdr _e3370933742_)))) + (_loop3370833732_ + _lp-tl3371133749_ (let () (declare (not safe)) - (cons _lp-hd3399534031_ - _arg3399734024_))))) - (let ((_arg3399834037_ - (reverse _arg3399734024_))) - ((lambda (_L34041_) + (cons _lp-hd3371033746_ + _arg3371233739_))))) + (let ((_arg3371333752_ + (reverse _arg3371233739_))) + ((lambda (_L33756_) (let () (let () - (let ((__tmp50964 + (let ((__tmp50725 (gx#datum->syntax '#f 'call-with-parameters)) - (__tmp50961 - (let ((__tmp50962 - (let ((__tmp50963 - (lambda (_g3405934062_ + (__tmp50722 + (let ((__tmp50723 + (let ((__tmp50724 + (lambda (_g3377433777_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3406034065_) + _g3377533780_) (let () (declare (not safe)) - (cons _g3405934062_ _g3406034065_))))) + (cons _g3377433777_ _g3377533780_))))) (declare (not safe)) - (foldr1 __tmp50963 '() _L34041_)))) + (foldr1 __tmp50724 '() _L33756_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L33975_ __tmp50962)))) + (cons _L33690_ __tmp50723)))) (declare (not safe)) - (cons __tmp50964 __tmp50961))))) - _arg3399834037_)))))) - (_loop3399334017_ _target3399034011_ '())) - (_g3398734004_ _g3398834008_))))) + (cons __tmp50725 __tmp50722))))) + _arg3371333752_)))))) + (_loop3370833732_ _target3370533726_ '())) + (_g3370233719_ _g3370333723_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3398734004_ _g3398834008_))))) - (_g3398634068_ - (let ((__tmp50967 + (_g3370233719_ _g3370333723_))))) + (_g3370133783_ + (let ((__tmp50728 (gx#syntax->list - (let ((__tmp50968 - (lambda (_g3407134074_ - _g3407234077_) + (let ((__tmp50729 + (lambda (_g3378633789_ + _g3378733792_) (let () (declare (not safe)) - (cons _g3407134074_ - _g3407234077_))))) + (cons _g3378633789_ + _g3378733792_))))) (declare (not safe)) - (foldr1 __tmp50968 + (foldr1 __tmp50729 '() - _L33937_)))) - (__tmp50965 + _L33652_)))) + (__tmp50726 (gx#syntax->list - (let ((__tmp50966 - (lambda (_g3407934082_ - _g3408034085_) + (let ((__tmp50727 + (lambda (_g3379433797_ + _g3379533800_) (let () (declare (not safe)) - (cons _g3407934082_ - _g3408034085_))))) + (cons _g3379433797_ + _g3379533800_))))) (declare (not safe)) - (foldr1 __tmp50966 + (foldr1 __tmp50727 '() - _L33936_))))) + _L33651_))))) (declare (not safe)) (foldr2 cons* '() - __tmp50967 - __tmp50965)))))) - _g3396133972_)))) - (_g3395934088_ + __tmp50728 + __tmp50726)))))) + _g3367633687_)))) + (_g3367433803_ (gx#stx-wrap-source - (let ((__tmp50972 (gx#datum->syntax '#f 'lambda)) - (__tmp50969 - (let ((__tmp50970 - (let ((__tmp50971 - (lambda (_g3409134094_ _g3409234097_) + (let ((__tmp50733 (gx#datum->syntax '#f 'lambda)) + (__tmp50730 + (let ((__tmp50731 + (let ((__tmp50732 + (lambda (_g3380633809_ _g3380733812_) (let () (declare (not safe)) - (cons _g3409134094_ - _g3409234097_))))) + (cons _g3380633809_ + _g3380733812_))))) (declare (not safe)) - (foldr1 __tmp50971 '() _L33934_)))) + (foldr1 __tmp50732 '() _L33649_)))) (declare (not safe)) - (cons '() __tmp50970)))) + (cons '() __tmp50731)))) (declare (not safe)) - (cons __tmp50972 __tmp50969)) - (gx#stx-source _stx33761_))))))) - (let* ((___match4726147262_ - (lambda (_e3378833830_ - _hd3378733834_ - _tl3378633837_ - _e3379133840_ - _hd3379033844_ - _tl3378933847_ - ___splice4721547216_ - _target3379233850_ - _tl3379433853_) - (letrec ((_loop3379533856_ - (lambda (_hd3379333860_ - _expr3379933863_ - _param3380033865_) - (if (gx#stx-pair? _hd3379333860_) - (let ((_e3379633868_ - (gx#syntax-e _hd3379333860_))) - (let ((_lp-tl3379833875_ + (cons __tmp50733 __tmp50730)) + (gx#stx-source _stx33476_))))))) + (let* ((___match4705347054_ + (lambda (_e3350333545_ + _hd3350233549_ + _tl3350133552_ + _e3350633555_ + _hd3350533559_ + _tl3350433562_ + ___splice4700747008_ + _target3350733565_ + _tl3350933568_) + (letrec ((_loop3351033571_ + (lambda (_hd3350833575_ + _expr3351433578_ + _param3351533580_) + (if (gx#stx-pair? _hd3350833575_) + (let ((_e3351133583_ + (gx#syntax-e _hd3350833575_))) + (let ((_lp-tl3351333590_ (let () (declare (not safe)) - (##cdr _e3379633868_))) - (_lp-hd3379733872_ + (##cdr _e3351133583_))) + (_lp-hd3351233587_ (let () (declare (not safe)) - (##car _e3379633868_)))) - (if (gx#stx-pair? _lp-hd3379733872_) - (let ((_e3380533878_ + (##car _e3351133583_)))) + (if (gx#stx-pair? _lp-hd3351233587_) + (let ((_e3352033593_ (gx#syntax-e - _lp-hd3379733872_))) - (let ((_tl3380333885_ + _lp-hd3351233587_))) + (let ((_tl3351833600_ (let () (declare (not safe)) - (##cdr _e3380533878_))) - (_hd3380433882_ + (##cdr _e3352033593_))) + (_hd3351933597_ (let () (declare (not safe)) - (##car _e3380533878_)))) + (##car _e3352033593_)))) (if (gx#stx-pair? - _tl3380333885_) - (let ((_e3380833888_ + _tl3351833600_) + (let ((_e3352333603_ (gx#syntax-e - _tl3380333885_))) - (let ((_tl3380633895_ + _tl3351833600_))) + (let ((_tl3352133610_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3380833888_))) - (_hd3380733892_ - (let () (declare (not safe)) (##car _e3380833888_)))) - (if (gx#stx-null? _tl3380633895_) - (_loop3379533856_ - _lp-tl3379833875_ + (##cdr _e3352333603_))) + (_hd3352233607_ + (let () (declare (not safe)) (##car _e3352333603_)))) + (if (gx#stx-null? _tl3352133610_) + (_loop3351033571_ + _lp-tl3351333590_ (let () (declare (not safe)) - (cons _hd3380733892_ _expr3379933863_)) + (cons _hd3352233607_ _expr3351433578_)) (let () (declare (not safe)) - (cons _hd3380433882_ _param3380033865_))) - (let () (declare (not safe)) (_g3376533823_))))) + (cons _hd3351933597_ _param3351533580_))) + (let () (declare (not safe)) (_g3348033538_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3376533823_))))) + (_g3348033538_))))) (let () (declare (not safe)) - (_g3376533823_))))) - (let ((_param3380233901_ - (reverse _param3380033865_)) - (_expr3380133898_ - (reverse _expr3379933863_))) - (if (gx#stx-pair/null? _tl3378933847_) - (let ((___splice4721747218_ + (_g3348033538_))))) + (let ((_param3351733616_ + (reverse _param3351533580_)) + (_expr3351633613_ + (reverse _expr3351433578_))) + (if (gx#stx-pair/null? _tl3350433562_) + (let ((___splice4700947010_ (gx#syntax-split-splice - _tl3378933847_ + _tl3350433562_ '0))) - (let ((_tl3381133907_ + (let ((_tl3352633622_ (let () (declare (not safe)) (##vector-ref - ___splice4721747218_ + ___splice4700947010_ '1))) - (_target3380933904_ + (_target3352433619_ (let () (declare (not safe)) (##vector-ref - ___splice4721747218_ + ___splice4700947010_ '0)))) - (if (gx#stx-null? _tl3381133907_) - (letrec ((_loop3381233910_ - (lambda (_hd3381033914_ + (if (gx#stx-null? _tl3352633622_) + (letrec ((_loop3352733625_ + (lambda (_hd3352533629_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3381633917_) - (if (gx#stx-pair? _hd3381033914_) - (let ((_e3381333920_ (gx#syntax-e _hd3381033914_))) - (let ((_lp-tl3381533927_ + _body3353133632_) + (if (gx#stx-pair? _hd3352533629_) + (let ((_e3352833635_ (gx#syntax-e _hd3352533629_))) + (let ((_lp-tl3353033642_ (let () (declare (not safe)) - (##cdr _e3381333920_))) - (_lp-hd3381433924_ + (##cdr _e3352833635_))) + (_lp-hd3352933639_ (let () (declare (not safe)) - (##car _e3381333920_)))) - (_loop3381233910_ - _lp-tl3381533927_ + (##car _e3352833635_)))) + (_loop3352733625_ + _lp-tl3353033642_ (let () (declare (not safe)) - (cons _lp-hd3381433924_ _body3381633917_))))) - (let ((_body3381733930_ (reverse _body3381633917_))) - (___kont4721347214_ - _body3381733930_ - _expr3380133898_ - _param3380233901_)))))) + (cons _lp-hd3352933639_ _body3353133632_))))) + (let ((_body3353233645_ (reverse _body3353133632_))) + (___kont4700547006_ + _body3353233645_ + _expr3351633613_ + _param3351733616_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3381233910_ - _target3380933904_ + (_loop3352733625_ + _target3352433619_ '())) (let () (declare (not safe)) - (_g3376533823_))))) + (_g3348033538_))))) (let () (declare (not safe)) - (_g3376533823_)))))))) - (_loop3379533856_ _target3379233850_ '() '())))) - (___match4724147242_ - (lambda (_e3377034107_ - _hd3376934111_ - _tl3376834114_ - _e3377334117_ - _hd3377234121_ - _tl3377134124_ - ___splice4721147212_ - _target3377434127_ - _tl3377634130_) - (letrec ((_loop3377734133_ - (lambda (_hd3377534137_ _body3378134140_) - (if (gx#stx-pair? _hd3377534137_) - (let ((_e3377834143_ - (gx#syntax-e _hd3377534137_))) - (let ((_lp-tl3378034150_ + (_g3348033538_)))))))) + (_loop3351033571_ _target3350733565_ '() '())))) + (___match4703347034_ + (lambda (_e3348533822_ + _hd3348433826_ + _tl3348333829_ + _e3348833832_ + _hd3348733836_ + _tl3348633839_ + ___splice4700347004_ + _target3348933842_ + _tl3349133845_) + (letrec ((_loop3349233848_ + (lambda (_hd3349033852_ _body3349633855_) + (if (gx#stx-pair? _hd3349033852_) + (let ((_e3349333858_ + (gx#syntax-e _hd3349033852_))) + (let ((_lp-tl3349533865_ (let () (declare (not safe)) - (##cdr _e3377834143_))) - (_lp-hd3377934147_ + (##cdr _e3349333858_))) + (_lp-hd3349433862_ (let () (declare (not safe)) - (##car _e3377834143_)))) - (_loop3377734133_ - _lp-tl3378034150_ + (##car _e3349333858_)))) + (_loop3349233848_ + _lp-tl3349533865_ (let () (declare (not safe)) - (cons _lp-hd3377934147_ - _body3378134140_))))) - (let ((_body3378234153_ - (reverse _body3378134140_))) - (___kont4720947210_ - _body3378234153_)))))) - (_loop3377734133_ _target3377434127_ '()))))) - (if (gx#stx-pair? ___stx4720647207_) - (let ((_e3377034107_ (gx#syntax-e ___stx4720647207_))) - (let ((_tl3376834114_ - (let () (declare (not safe)) (##cdr _e3377034107_))) - (_hd3376934111_ - (let () (declare (not safe)) (##car _e3377034107_)))) - (if (gx#stx-pair? _tl3376834114_) - (let ((_e3377334117_ (gx#syntax-e _tl3376834114_))) - (let ((_tl3377134124_ + (cons _lp-hd3349433862_ + _body3349633855_))))) + (let ((_body3349733868_ + (reverse _body3349633855_))) + (___kont4700147002_ + _body3349733868_)))))) + (_loop3349233848_ _target3348933842_ '()))))) + (if (gx#stx-pair? ___stx4699846999_) + (let ((_e3348533822_ (gx#syntax-e ___stx4699846999_))) + (let ((_tl3348333829_ + (let () (declare (not safe)) (##cdr _e3348533822_))) + (_hd3348433826_ + (let () (declare (not safe)) (##car _e3348533822_)))) + (if (gx#stx-pair? _tl3348333829_) + (let ((_e3348833832_ (gx#syntax-e _tl3348333829_))) + (let ((_tl3348633839_ (let () (declare (not safe)) - (##cdr _e3377334117_))) - (_hd3377234121_ + (##cdr _e3348833832_))) + (_hd3348733836_ (let () (declare (not safe)) - (##car _e3377334117_)))) - (if (gx#stx-null? _hd3377234121_) - (if (gx#stx-pair/null? _tl3377134124_) - (let ((___splice4721147212_ + (##car _e3348833832_)))) + (if (gx#stx-null? _hd3348733836_) + (if (gx#stx-pair/null? _tl3348633839_) + (let ((___splice4700347004_ (gx#syntax-split-splice - _tl3377134124_ + _tl3348633839_ '0))) - (let ((_tl3377634130_ + (let ((_tl3349133845_ (let () (declare (not safe)) (##vector-ref - ___splice4721147212_ + ___splice4700347004_ '1))) - (_target3377434127_ + (_target3348933842_ (let () (declare (not safe)) (##vector-ref - ___splice4721147212_ + ___splice4700347004_ '0)))) - (if (gx#stx-null? _tl3377634130_) - (___match4724147242_ - _e3377034107_ - _hd3376934111_ - _tl3376834114_ - _e3377334117_ - _hd3377234121_ - _tl3377134124_ - ___splice4721147212_ - _target3377434127_ - _tl3377634130_) + (if (gx#stx-null? _tl3349133845_) + (___match4703347034_ + _e3348533822_ + _hd3348433826_ + _tl3348333829_ + _e3348833832_ + _hd3348733836_ + _tl3348633839_ + ___splice4700347004_ + _target3348933842_ + _tl3349133845_) (if (gx#stx-pair/null? - _hd3377234121_) - (let ((___splice4721547216_ + _hd3348733836_) + (let ((___splice4700747008_ (gx#syntax-split-splice - _hd3377234121_ + _hd3348733836_ '0))) - (let ((_tl3379433853_ + (let ((_tl3350933568_ (let () (declare (not safe)) (##vector-ref - ___splice4721547216_ + ___splice4700747008_ '1))) - (_target3379233850_ + (_target3350733565_ (let () (declare (not safe)) (##vector-ref - ___splice4721547216_ + ___splice4700747008_ '0)))) (if (gx#stx-null? - _tl3379433853_) - (___match4726147262_ - _e3377034107_ - _hd3376934111_ - _tl3376834114_ - _e3377334117_ - _hd3377234121_ - _tl3377134124_ - ___splice4721547216_ - _target3379233850_ - _tl3379433853_) + _tl3350933568_) + (___match4705347054_ + _e3348533822_ + _hd3348433826_ + _tl3348333829_ + _e3348833832_ + _hd3348733836_ + _tl3348633839_ + ___splice4700747008_ + _target3350733565_ + _tl3350933568_) (let () (declare (not safe)) - (_g3376533823_))))) + (_g3348033538_))))) (let () (declare (not safe)) - (_g3376533823_)))))) - (if (gx#stx-pair/null? _hd3377234121_) - (let ((___splice4721547216_ + (_g3348033538_)))))) + (if (gx#stx-pair/null? _hd3348733836_) + (let ((___splice4700747008_ (gx#syntax-split-splice - _hd3377234121_ + _hd3348733836_ '0))) - (let ((_tl3379433853_ + (let ((_tl3350933568_ (let () (declare (not safe)) (##vector-ref - ___splice4721547216_ + ___splice4700747008_ '1))) - (_target3379233850_ + (_target3350733565_ (let () (declare (not safe)) (##vector-ref - ___splice4721547216_ + ___splice4700747008_ '0)))) - (if (gx#stx-null? _tl3379433853_) - (___match4726147262_ - _e3377034107_ - _hd3376934111_ - _tl3376834114_ - _e3377334117_ - _hd3377234121_ - _tl3377134124_ - ___splice4721547216_ - _target3379233850_ - _tl3379433853_) + (if (gx#stx-null? _tl3350933568_) + (___match4705347054_ + _e3348533822_ + _hd3348433826_ + _tl3348333829_ + _e3348833832_ + _hd3348733836_ + _tl3348633839_ + ___splice4700747008_ + _target3350733565_ + _tl3350933568_) (let () (declare (not safe)) - (_g3376533823_))))) + (_g3348033538_))))) (let () (declare (not safe)) - (_g3376533823_)))) - (if (gx#stx-pair/null? _hd3377234121_) - (let ((___splice4721547216_ + (_g3348033538_)))) + (if (gx#stx-pair/null? _hd3348733836_) + (let ((___splice4700747008_ (gx#syntax-split-splice - _hd3377234121_ + _hd3348733836_ '0))) - (let ((_tl3379433853_ + (let ((_tl3350933568_ (let () (declare (not safe)) (##vector-ref - ___splice4721547216_ + ___splice4700747008_ '1))) - (_target3379233850_ + (_target3350733565_ (let () (declare (not safe)) (##vector-ref - ___splice4721547216_ + ___splice4700747008_ '0)))) - (if (gx#stx-null? _tl3379433853_) - (___match4726147262_ - _e3377034107_ - _hd3376934111_ - _tl3376834114_ - _e3377334117_ - _hd3377234121_ - _tl3377134124_ - ___splice4721547216_ - _target3379233850_ - _tl3379433853_) + (if (gx#stx-null? _tl3350933568_) + (___match4705347054_ + _e3348533822_ + _hd3348433826_ + _tl3348333829_ + _e3348833832_ + _hd3348733836_ + _tl3348633839_ + ___splice4700747008_ + _target3350733565_ + _tl3350933568_) (let () (declare (not safe)) - (_g3376533823_))))) + (_g3348033538_))))) (let () (declare (not safe)) - (_g3376533823_)))))) - (let () (declare (not safe)) (_g3376533823_))))) - (let () (declare (not safe)) (_g3376533823_)))))))) + (_g3348033538_)))))) + (let () (declare (not safe)) (_g3348033538_))))) + (let () (declare (not safe)) (_g3348033538_)))))))) (define |gerbil/core$[:0:]#let/cc| - (lambda (_$stx34190_) - (let* ((_g3419434218_ - (lambda (_g3419534214_) + (lambda (_$stx33905_) + (let* ((_g3390933933_ + (lambda (_g3391033929_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3419534214_))) - (_g3419334303_ - (lambda (_g3419534222_) - (if (gx#stx-pair? _g3419534222_) - (let ((_e3420034225_ (gx#syntax-e _g3419534222_))) - (let ((_hd3419934229_ + _g3391033929_))) + (_g3390834018_ + (lambda (_g3391033937_) + (if (gx#stx-pair? _g3391033937_) + (let ((_e3391533940_ (gx#syntax-e _g3391033937_))) + (let ((_hd3391433944_ (let () (declare (not safe)) - (##car _e3420034225_))) - (_tl3419834232_ + (##car _e3391533940_))) + (_tl3391333947_ (let () (declare (not safe)) - (##cdr _e3420034225_)))) - (if (gx#stx-pair? _tl3419834232_) - (let ((_e3420334235_ (gx#syntax-e _tl3419834232_))) - (let ((_hd3420234239_ + (##cdr _e3391533940_)))) + (if (gx#stx-pair? _tl3391333947_) + (let ((_e3391833950_ (gx#syntax-e _tl3391333947_))) + (let ((_hd3391733954_ (let () (declare (not safe)) - (##car _e3420334235_))) - (_tl3420134242_ + (##car _e3391833950_))) + (_tl3391633957_ (let () (declare (not safe)) - (##cdr _e3420334235_)))) - (if (gx#stx-pair/null? _tl3420134242_) - (let ((_g50973_ + (##cdr _e3391833950_)))) + (if (gx#stx-pair/null? _tl3391633957_) + (let ((_g50734_ (gx#syntax-split-splice - _tl3420134242_ + _tl3391633957_ '0))) (begin - (let ((_g50974_ + (let ((_g50735_ (let () (declare (not safe)) - (if (##values? _g50973_) - (##vector-length _g50973_) + (if (##values? _g50734_) + (##vector-length _g50734_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50974_ 2))) + (##fx= _g50735_ 2))) (error "Context expects 2 values" - _g50974_))) - (let ((_target3420434245_ + _g50735_))) + (let ((_target3391933960_ (let () (declare (not safe)) - (##vector-ref _g50973_ 0))) - (_tl3420634248_ + (##vector-ref _g50734_ 0))) + (_tl3392133963_ (let () (declare (not safe)) - (##vector-ref _g50973_ 1)))) - (if (gx#stx-null? _tl3420634248_) - (letrec ((_loop3420734251_ - (lambda (_hd3420534255_ + (##vector-ref _g50734_ 1)))) + (if (gx#stx-null? _tl3392133963_) + (letrec ((_loop3392233966_ + (lambda (_hd3392033970_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3421134258_) - (if (gx#stx-pair? _hd3420534255_) - (let ((_e3420834261_ (gx#syntax-e _hd3420534255_))) - (let ((_lp-hd3420934265_ + _body3392633973_) + (if (gx#stx-pair? _hd3392033970_) + (let ((_e3392333976_ (gx#syntax-e _hd3392033970_))) + (let ((_lp-hd3392433980_ (let () (declare (not safe)) - (##car _e3420834261_))) - (_lp-tl3421034268_ + (##car _e3392333976_))) + (_lp-tl3392533983_ (let () (declare (not safe)) - (##cdr _e3420834261_)))) - (_loop3420734251_ - _lp-tl3421034268_ + (##cdr _e3392333976_)))) + (_loop3392233966_ + _lp-tl3392533983_ (let () (declare (not safe)) - (cons _lp-hd3420934265_ _body3421134258_))))) - (let ((_body3421234271_ (reverse _body3421134258_))) - ((lambda (_L34275_ _L34277_) - (if (gx#identifier? _L34277_) - (let ((__tmp50982 + (cons _lp-hd3392433980_ _body3392633973_))))) + (let ((_body3392733986_ (reverse _body3392633973_))) + ((lambda (_L33990_ _L33992_) + (if (gx#identifier? _L33992_) + (let ((__tmp50743 (gx#datum->syntax '#f 'call/cc)) - (__tmp50975 - (let ((__tmp50976 - (let ((__tmp50981 + (__tmp50736 + (let ((__tmp50737 + (let ((__tmp50742 (gx#datum->syntax '#f 'lambda)) - (__tmp50977 - (let ((__tmp50980 + (__tmp50738 + (let ((__tmp50741 (let () (declare (not safe)) - (cons _L34277_ + (cons _L33992_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp50978 - (let ((__tmp50979 - (lambda (_g3429434297_ _g3429534300_) + (__tmp50739 + (let ((__tmp50740 + (lambda (_g3400934012_ _g3401034015_) (let () (declare (not safe)) - (cons _g3429434297_ _g3429534300_))))) + (cons _g3400934012_ _g3401034015_))))) (declare (not safe)) - (foldr1 __tmp50979 '() _L34275_)))) + (foldr1 __tmp50740 '() _L33990_)))) (declare (not safe)) - (cons __tmp50980 __tmp50978)))) + (cons __tmp50741 __tmp50739)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50981 __tmp50977)))) + (cons __tmp50742 __tmp50738)))) (declare (not safe)) - (cons __tmp50976 '())))) + (cons __tmp50737 '())))) (declare (not safe)) - (cons __tmp50982 __tmp50975)) - (_g3419434218_ _g3419534222_))) - _body3421234271_ - _hd3420234239_)))))) + (cons __tmp50743 __tmp50736)) + (_g3390933933_ _g3391033937_))) + _body3392733986_ + _hd3391733954_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3420734251_ - _target3420434245_ + (_loop3392233966_ + _target3391933960_ '())) - (_g3419434218_ _g3419534222_))))) - (_g3419434218_ _g3419534222_)))) - (_g3419434218_ _g3419534222_)))) - (_g3419434218_ _g3419534222_))))) - (_g3419334303_ _$stx34190_)))) + (_g3390933933_ _g3391033937_))))) + (_g3390933933_ _g3391033937_)))) + (_g3390933933_ _g3391033937_)))) + (_g3390933933_ _g3391033937_))))) + (_g3390834018_ _$stx33905_)))) (define |gerbil/core$[:0:]#let/esc| - (lambda (_$stx34308_) - (let* ((_g3431234336_ - (lambda (_g3431334332_) + (lambda (_$stx34023_) + (let* ((_g3402734051_ + (lambda (_g3402834047_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3431334332_))) - (_g3431134421_ - (lambda (_g3431334340_) - (if (gx#stx-pair? _g3431334340_) - (let ((_e3431834343_ (gx#syntax-e _g3431334340_))) - (let ((_hd3431734347_ + _g3402834047_))) + (_g3402634136_ + (lambda (_g3402834055_) + (if (gx#stx-pair? _g3402834055_) + (let ((_e3403334058_ (gx#syntax-e _g3402834055_))) + (let ((_hd3403234062_ (let () (declare (not safe)) - (##car _e3431834343_))) - (_tl3431634350_ + (##car _e3403334058_))) + (_tl3403134065_ (let () (declare (not safe)) - (##cdr _e3431834343_)))) - (if (gx#stx-pair? _tl3431634350_) - (let ((_e3432134353_ (gx#syntax-e _tl3431634350_))) - (let ((_hd3432034357_ + (##cdr _e3403334058_)))) + (if (gx#stx-pair? _tl3403134065_) + (let ((_e3403634068_ (gx#syntax-e _tl3403134065_))) + (let ((_hd3403534072_ (let () (declare (not safe)) - (##car _e3432134353_))) - (_tl3431934360_ + (##car _e3403634068_))) + (_tl3403434075_ (let () (declare (not safe)) - (##cdr _e3432134353_)))) - (if (gx#stx-pair/null? _tl3431934360_) - (let ((_g50983_ + (##cdr _e3403634068_)))) + (if (gx#stx-pair/null? _tl3403434075_) + (let ((_g50744_ (gx#syntax-split-splice - _tl3431934360_ + _tl3403434075_ '0))) (begin - (let ((_g50984_ + (let ((_g50745_ (let () (declare (not safe)) - (if (##values? _g50983_) - (##vector-length _g50983_) + (if (##values? _g50744_) + (##vector-length _g50744_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50984_ 2))) + (##fx= _g50745_ 2))) (error "Context expects 2 values" - _g50984_))) - (let ((_target3432234363_ + _g50745_))) + (let ((_target3403734078_ (let () (declare (not safe)) - (##vector-ref _g50983_ 0))) - (_tl3432434366_ + (##vector-ref _g50744_ 0))) + (_tl3403934081_ (let () (declare (not safe)) - (##vector-ref _g50983_ 1)))) - (if (gx#stx-null? _tl3432434366_) - (letrec ((_loop3432534369_ - (lambda (_hd3432334373_ + (##vector-ref _g50744_ 1)))) + (if (gx#stx-null? _tl3403934081_) + (letrec ((_loop3404034084_ + (lambda (_hd3403834088_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3432934376_) - (if (gx#stx-pair? _hd3432334373_) - (let ((_e3432634379_ (gx#syntax-e _hd3432334373_))) - (let ((_lp-hd3432734383_ + _body3404434091_) + (if (gx#stx-pair? _hd3403834088_) + (let ((_e3404134094_ (gx#syntax-e _hd3403834088_))) + (let ((_lp-hd3404234098_ (let () (declare (not safe)) - (##car _e3432634379_))) - (_lp-tl3432834386_ + (##car _e3404134094_))) + (_lp-tl3404334101_ (let () (declare (not safe)) - (##cdr _e3432634379_)))) - (_loop3432534369_ - _lp-tl3432834386_ + (##cdr _e3404134094_)))) + (_loop3404034084_ + _lp-tl3404334101_ (let () (declare (not safe)) - (cons _lp-hd3432734383_ _body3432934376_))))) - (let ((_body3433034389_ (reverse _body3432934376_))) - ((lambda (_L34393_ _L34395_) - (if (gx#identifier? _L34395_) - (let ((__tmp50992 + (cons _lp-hd3404234098_ _body3404434091_))))) + (let ((_body3404534104_ (reverse _body3404434091_))) + ((lambda (_L34108_ _L34110_) + (if (gx#identifier? _L34110_) + (let ((__tmp50753 (gx#datum->syntax '#f 'call/esc)) - (__tmp50985 - (let ((__tmp50986 - (let ((__tmp50991 + (__tmp50746 + (let ((__tmp50747 + (let ((__tmp50752 (gx#datum->syntax '#f 'lambda)) - (__tmp50987 - (let ((__tmp50990 + (__tmp50748 + (let ((__tmp50751 (let () (declare (not safe)) - (cons _L34395_ + (cons _L34110_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp50988 - (let ((__tmp50989 - (lambda (_g3441234415_ _g3441334418_) + (__tmp50749 + (let ((__tmp50750 + (lambda (_g3412734130_ _g3412834133_) (let () (declare (not safe)) - (cons _g3441234415_ _g3441334418_))))) + (cons _g3412734130_ _g3412834133_))))) (declare (not safe)) - (foldr1 __tmp50989 '() _L34393_)))) + (foldr1 __tmp50750 '() _L34108_)))) (declare (not safe)) - (cons __tmp50990 __tmp50988)))) + (cons __tmp50751 __tmp50749)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50991 __tmp50987)))) + (cons __tmp50752 __tmp50748)))) (declare (not safe)) - (cons __tmp50986 '())))) + (cons __tmp50747 '())))) (declare (not safe)) - (cons __tmp50992 __tmp50985)) - (_g3431234336_ _g3431334340_))) - _body3433034389_ - _hd3432034357_)))))) + (cons __tmp50753 __tmp50746)) + (_g3402734051_ _g3402834055_))) + _body3404534104_ + _hd3403534072_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3432534369_ - _target3432234363_ + (_loop3404034084_ + _target3403734078_ '())) - (_g3431234336_ _g3431334340_))))) - (_g3431234336_ _g3431334340_)))) - (_g3431234336_ _g3431334340_)))) - (_g3431234336_ _g3431334340_))))) - (_g3431134421_ _$stx34308_)))) + (_g3402734051_ _g3402834055_))))) + (_g3402734051_ _g3402834055_)))) + (_g3402734051_ _g3402834055_)))) + (_g3402734051_ _g3402834055_))))) + (_g3402634136_ _$stx34023_)))) (define |gerbil/core$[:0:]#unwind-protect| - (lambda (_$stx34426_) - (let* ((_g3443034458_ - (lambda (_g3443134454_) + (lambda (_$stx34141_) + (let* ((_g3414534173_ + (lambda (_g3414634169_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3443134454_))) - (_g3442934557_ - (lambda (_g3443134462_) - (if (gx#stx-pair? _g3443134462_) - (let ((_e3443734465_ (gx#syntax-e _g3443134462_))) - (let ((_hd3443634469_ + _g3414634169_))) + (_g3414434272_ + (lambda (_g3414634177_) + (if (gx#stx-pair? _g3414634177_) + (let ((_e3415234180_ (gx#syntax-e _g3414634177_))) + (let ((_hd3415134184_ (let () (declare (not safe)) - (##car _e3443734465_))) - (_tl3443534472_ + (##car _e3415234180_))) + (_tl3415034187_ (let () (declare (not safe)) - (##cdr _e3443734465_)))) - (if (gx#stx-pair? _tl3443534472_) - (let ((_e3444034475_ (gx#syntax-e _tl3443534472_))) - (let ((_hd3443934479_ + (##cdr _e3415234180_)))) + (if (gx#stx-pair? _tl3415034187_) + (let ((_e3415534190_ (gx#syntax-e _tl3415034187_))) + (let ((_hd3415434194_ (let () (declare (not safe)) - (##car _e3444034475_))) - (_tl3443834482_ + (##car _e3415534190_))) + (_tl3415334197_ (let () (declare (not safe)) - (##cdr _e3444034475_)))) - (if (gx#stx-pair? _tl3443834482_) - (let ((_e3444334485_ - (gx#syntax-e _tl3443834482_))) - (let ((_hd3444234489_ + (##cdr _e3415534190_)))) + (if (gx#stx-pair? _tl3415334197_) + (let ((_e3415834200_ + (gx#syntax-e _tl3415334197_))) + (let ((_hd3415734204_ (let () (declare (not safe)) - (##car _e3444334485_))) - (_tl3444134492_ + (##car _e3415834200_))) + (_tl3415634207_ (let () (declare (not safe)) - (##cdr _e3444334485_)))) - (if (gx#stx-pair/null? _tl3444134492_) - (let ((_g50993_ + (##cdr _e3415834200_)))) + (if (gx#stx-pair/null? _tl3415634207_) + (let ((_g50754_ (gx#syntax-split-splice - _tl3444134492_ + _tl3415634207_ '0))) (begin - (let ((_g50994_ + (let ((_g50755_ (let () (declare (not safe)) (if (##values? - _g50993_) + _g50754_) (##vector-length - _g50993_) + _g50754_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50994_ + (##fx= _g50755_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g50994_))) + (error "Context expects 2 values" _g50755_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3444434495_ + (let ((_target3415934210_ (let () (declare (not safe)) (##vector-ref - _g50993_ + _g50754_ 0))) - (_tl3444634498_ + (_tl3416134213_ (let () (declare (not safe)) (##vector-ref - _g50993_ + _g50754_ 1)))) (if (gx#stx-null? - _tl3444634498_) - (letrec ((_loop3444734501_ - (lambda (_hd3444534505_ + _tl3416134213_) + (letrec ((_loop3416234216_ + (lambda (_hd3416034220_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest3445134508_) - (if (gx#stx-pair? _hd3444534505_) - (let ((_e3444834511_ - (gx#syntax-e _hd3444534505_))) - (let ((_lp-hd3444934515_ + _rest3416634223_) + (if (gx#stx-pair? _hd3416034220_) + (let ((_e3416334226_ + (gx#syntax-e _hd3416034220_))) + (let ((_lp-hd3416434230_ (let () (declare (not safe)) - (##car _e3444834511_))) - (_lp-tl3445034518_ + (##car _e3416334226_))) + (_lp-tl3416534233_ (let () (declare (not safe)) - (##cdr _e3444834511_)))) - (_loop3444734501_ - _lp-tl3445034518_ + (##cdr _e3416334226_)))) + (_loop3416234216_ + _lp-tl3416534233_ (let () (declare (not safe)) - (cons _lp-hd3444934515_ - _rest3445134508_))))) - (let ((_rest3445234521_ - (reverse _rest3445134508_))) - ((lambda (_L34525_ _L34527_ _L34528_) - (let ((__tmp51007 + (cons _lp-hd3416434230_ + _rest3416634223_))))) + (let ((_rest3416734236_ + (reverse _rest3416634223_))) + ((lambda (_L34240_ _L34242_ _L34243_) + (let ((__tmp50768 (gx#datum->syntax '#f 'with-unwind-protect)) - (__tmp50995 - (let ((__tmp51003 - (let ((__tmp51006 + (__tmp50756 + (let ((__tmp50764 + (let ((__tmp50767 (gx#datum->syntax '#f 'lambda)) - (__tmp51004 - (let ((__tmp51005 + (__tmp50765 + (let ((__tmp50766 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L34528_ '())))) + (cons _L34243_ '())))) (declare (not safe)) - (cons '() __tmp51005)))) + (cons '() __tmp50766)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51006 - __tmp51004))) - (__tmp50996 - (let ((__tmp50997 - (let ((__tmp51002 + (cons __tmp50767 + __tmp50765))) + (__tmp50757 + (let ((__tmp50758 + (let ((__tmp50763 (gx#datum->syntax '#f 'lambda)) - (__tmp50998 - (let ((__tmp50999 + (__tmp50759 + (let ((__tmp50760 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51000 - (let ((__tmp51001 - (lambda (_g3454834551_ - _g3454934554_) + (let ((__tmp50761 + (let ((__tmp50762 + (lambda (_g3426334266_ + _g3426434269_) (let () (declare (not safe)) - (cons _g3454834551_ - _g3454934554_))))) + (cons _g3426334266_ + _g3426434269_))))) (declare (not safe)) - (foldr1 __tmp51001 '() _L34525_)))) + (foldr1 __tmp50762 '() _L34240_)))) (declare (not safe)) - (cons _L34527_ __tmp51000)))) + (cons _L34242_ __tmp50761)))) (declare (not safe)) - (cons '() __tmp50999)))) + (cons '() __tmp50760)))) (declare (not safe)) - (cons __tmp51002 __tmp50998)))) + (cons __tmp50763 __tmp50759)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50997 '())))) + (cons __tmp50758 '())))) (declare (not safe)) - (cons __tmp51003 __tmp50996)))) + (cons __tmp50764 __tmp50757)))) (declare (not safe)) - (cons __tmp51007 __tmp50995))) - _rest3445234521_ - _hd3444234489_ - _hd3443934479_)))))) - (_loop3444734501_ _target3444434495_ '())) - (_g3443034458_ _g3443134462_))))) + (cons __tmp50768 __tmp50756))) + _rest3416734236_ + _hd3415734204_ + _hd3415434194_)))))) + (_loop3416234216_ _target3415934210_ '())) + (_g3414534173_ _g3414634177_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3443034458_ _g3443134462_)))) - (_g3443034458_ _g3443134462_)))) - (_g3443034458_ _g3443134462_)))) - (_g3443034458_ _g3443134462_))))) - (_g3442934557_ _$stx34426_)))) + (_g3414534173_ _g3414634177_)))) + (_g3414534173_ _g3414634177_)))) + (_g3414534173_ _g3414634177_)))) + (_g3414534173_ _g3414634177_))))) + (_g3414434272_ _$stx34141_)))) (define |gerbil/core$[:0:]#@bytes| - (lambda (_stx34562_) - (let* ((_g3456534579_ - (lambda (_g3456634575_) + (lambda (_stx34277_) + (let* ((_g3428034294_ + (lambda (_g3428134290_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3456634575_))) - (_g3456434651_ - (lambda (_g3456634583_) - (if (gx#stx-pair? _g3456634583_) - (let ((_e3457034586_ (gx#syntax-e _g3456634583_))) - (let ((_hd3456934590_ + _g3428134290_))) + (_g3427934366_ + (lambda (_g3428134298_) + (if (gx#stx-pair? _g3428134298_) + (let ((_e3428534301_ (gx#syntax-e _g3428134298_))) + (let ((_hd3428434305_ (let () (declare (not safe)) - (##car _e3457034586_))) - (_tl3456834593_ + (##car _e3428534301_))) + (_tl3428334308_ (let () (declare (not safe)) - (##cdr _e3457034586_)))) - (if (gx#stx-pair? _tl3456834593_) - (let ((_e3457334596_ (gx#syntax-e _tl3456834593_))) - (let ((_hd3457234600_ + (##cdr _e3428534301_)))) + (if (gx#stx-pair? _tl3428334308_) + (let ((_e3428834311_ (gx#syntax-e _tl3428334308_))) + (let ((_hd3428734315_ (let () (declare (not safe)) - (##car _e3457334596_))) - (_tl3457134603_ + (##car _e3428834311_))) + (_tl3428634318_ (let () (declare (not safe)) - (##cdr _e3457334596_)))) - (if (gx#stx-null? _tl3457134603_) - ((lambda (_L34606_) - (if (gx#stx-string? _L34606_) - (let* ((_g3462034628_ - (lambda (_g3462134624_) + (##cdr _e3428834311_)))) + (if (gx#stx-null? _tl3428634318_) + ((lambda (_L34321_) + (if (gx#stx-string? _L34321_) + (let* ((_g3433534343_ + (lambda (_g3433634339_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3462134624_))) - (_g3461934647_ - (lambda (_g3462134632_) - ((lambda (_L34635_) + _g3433634339_))) + (_g3433434362_ + (lambda (_g3433634347_) + ((lambda (_L34350_) (let () - (let ((__tmp51009 + (let ((__tmp50770 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51008 - (let () (declare (not safe)) (cons _L34635_ '())))) + (__tmp50769 + (let () (declare (not safe)) (cons _L34350_ '())))) (declare (not safe)) - (cons __tmp51009 __tmp51008)))) - _g3462134632_)))) + (cons __tmp50770 __tmp50769)))) + _g3433634347_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3461934647_ + (_g3433434362_ (string->bytes - (gx#stx-e _L34606_)))) - (_g3456534579_ _g3456634583_))) - _hd3457234600_) - (_g3456534579_ _g3456634583_)))) - (_g3456534579_ _g3456634583_)))) - (_g3456534579_ _g3456634583_))))) - (_g3456434651_ _stx34562_))))) + (gx#stx-e _L34321_)))) + (_g3428034294_ _g3428134298_))) + _hd3428734315_) + (_g3428034294_ _g3428134298_)))) + (_g3428034294_ _g3428134298_)))) + (_g3428034294_ _g3428134298_))))) + (_g3427934366_ _stx34277_))))) diff --git a/src/bootstrap/gerbil/core__13.scm b/src/bootstrap/gerbil/core__13.scm index f4579e818..f6bfedb3a 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]#_g51012_| + (define |gerbil/core$[2]#_g50773_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51014_| + (define |gerbil/core$[2]#_g50775_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51016_| + (define |gerbil/core$[2]#_g50777_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51018_| + (define |gerbil/core$[2]#_g50779_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51022_| + (define |gerbil/core$[2]#_g50783_| (##structure gx#syntax-quote::t 'setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51026_| + (define |gerbil/core$[2]#_g50787_| (##structure gx#syntax-quote::t 'setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51030_| + (define |gerbil/core$[2]#_g50791_| (##structure gx#syntax-quote::t '&setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51034_| + (define |gerbil/core$[2]#_g50795_| (##structure gx#syntax-quote::t '&setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51038_| + (define |gerbil/core$[2]#_g50799_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51040_| + (define |gerbil/core$[2]#_g50801_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51042_| + (define |gerbil/core$[2]#_g50803_| (##structure gx#syntax-quote::t 'setf-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51046_| + (define |gerbil/core$[2]#_g50807_| (##structure gx#syntax-quote::t 'setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51050_| + (define |gerbil/core$[2]#_g50811_| (##structure gx#syntax-quote::t 'setf-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51054_| + (define |gerbil/core$[2]#_g50815_| (##structure gx#syntax-quote::t '&setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51058_| + (define |gerbil/core$[2]#_g50819_| (##structure gx#syntax-quote::t '&setf-macro-macro-set! @@ -107,7 +107,7 @@ '())) (begin (define |gerbil/core$[:1:]#setq-macro| - (let ((__obj47570 + (let ((__obj47361 (let () (declare (not safe)) (##structure @@ -129,7 +129,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47570 + __obj47361 'gerbil.core#setq-macro::t '1 gerbil/core$$#class-type-info::t @@ -137,7 +137,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47570 + __obj47361 'setq-macro '2 gerbil/core$$#class-type-info::t @@ -145,26 +145,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47570 + __obj47361 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51010 - (let ((__tmp51011 |gerbil/core$[2]#_g51012_|)) + (let ((__tmp50771 + (let ((__tmp50772 |gerbil/core$[2]#_g50773_|)) (declare (not safe)) - (cons __tmp51011 '())))) + (cons __tmp50772 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47570 - __tmp51010 + __obj47361 + __tmp50771 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47570 + __obj47361 '#f '5 gerbil/core$$#class-type-info::t @@ -172,7 +172,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47570 + __obj47361 '#f '6 gerbil/core$$#class-type-info::t @@ -180,98 +180,98 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47570 + __obj47361 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51013 |gerbil/core$[2]#_g51014_|)) + (let ((__tmp50774 |gerbil/core$[2]#_g50775_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47570 - __tmp51013 + __obj47361 + __tmp50774 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51015 |gerbil/core$[2]#_g51016_|)) + (let ((__tmp50776 |gerbil/core$[2]#_g50777_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47570 - __tmp51015 + __obj47361 + __tmp50776 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51017 |gerbil/core$[2]#_g51018_|)) + (let ((__tmp50778 |gerbil/core$[2]#_g50779_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47570 - __tmp51017 + __obj47361 + __tmp50778 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51019 - (let ((__tmp51020 - (let ((__tmp51021 - |gerbil/core$[2]#_g51022_|)) + (let ((__tmp50780 + (let ((__tmp50781 + (let ((__tmp50782 + |gerbil/core$[2]#_g50783_|)) (declare (not safe)) - (cons 'macro __tmp51021)))) + (cons 'macro __tmp50782)))) (declare (not safe)) - (cons __tmp51020 '())))) + (cons __tmp50781 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47570 - __tmp51019 + __obj47361 + __tmp50780 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51023 - (let ((__tmp51024 - (let ((__tmp51025 - |gerbil/core$[2]#_g51026_|)) + (let ((__tmp50784 + (let ((__tmp50785 + (let ((__tmp50786 + |gerbil/core$[2]#_g50787_|)) (declare (not safe)) - (cons 'macro __tmp51025)))) + (cons 'macro __tmp50786)))) (declare (not safe)) - (cons __tmp51024 '())))) + (cons __tmp50785 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47570 - __tmp51023 + __obj47361 + __tmp50784 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51027 - (let ((__tmp51028 - (let ((__tmp51029 - |gerbil/core$[2]#_g51030_|)) + (let ((__tmp50788 + (let ((__tmp50789 + (let ((__tmp50790 + |gerbil/core$[2]#_g50791_|)) (declare (not safe)) - (cons 'macro __tmp51029)))) + (cons 'macro __tmp50790)))) (declare (not safe)) - (cons __tmp51028 '())))) + (cons __tmp50789 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47570 - __tmp51027 + __obj47361 + __tmp50788 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51031 - (let ((__tmp51032 - (let ((__tmp51033 - |gerbil/core$[2]#_g51034_|)) + (let ((__tmp50792 + (let ((__tmp50793 + (let ((__tmp50794 + |gerbil/core$[2]#_g50795_|)) (declare (not safe)) - (cons 'macro __tmp51033)))) + (cons 'macro __tmp50794)))) (declare (not safe)) - (cons __tmp51032 '())))) + (cons __tmp50793 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47570 - __tmp51031 + __obj47361 + __tmp50792 '14 gerbil/core$$#class-type-info::t '#f)) - __obj47570)) + __obj47361)) (define |gerbil/core$[:1:]#setf-macro| - (let ((__obj47571 + (let ((__obj47362 (let () (declare (not safe)) (##structure @@ -293,7 +293,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47571 + __obj47362 'gerbil.core#setf-macro::t '1 gerbil/core$$#class-type-info::t @@ -301,7 +301,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47571 + __obj47362 'setf-macro '2 gerbil/core$$#class-type-info::t @@ -309,26 +309,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47571 + __obj47362 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51035 - (let ((__tmp51036 |gerbil/core$[2]#_g51012_|)) + (let ((__tmp50796 + (let ((__tmp50797 |gerbil/core$[2]#_g50773_|)) (declare (not safe)) - (cons __tmp51036 '())))) + (cons __tmp50797 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47571 - __tmp51035 + __obj47362 + __tmp50796 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47571 + __obj47362 '#f '5 gerbil/core$$#class-type-info::t @@ -336,7 +336,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47571 + __obj47362 '#f '6 gerbil/core$$#class-type-info::t @@ -344,93 +344,93 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47571 + __obj47362 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51037 |gerbil/core$[2]#_g51038_|)) + (let ((__tmp50798 |gerbil/core$[2]#_g50799_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47571 - __tmp51037 + __obj47362 + __tmp50798 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51039 |gerbil/core$[2]#_g51040_|)) + (let ((__tmp50800 |gerbil/core$[2]#_g50801_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47571 - __tmp51039 + __obj47362 + __tmp50800 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51041 |gerbil/core$[2]#_g51042_|)) + (let ((__tmp50802 |gerbil/core$[2]#_g50803_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47571 - __tmp51041 + __obj47362 + __tmp50802 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51043 - (let ((__tmp51044 - (let ((__tmp51045 - |gerbil/core$[2]#_g51046_|)) + (let ((__tmp50804 + (let ((__tmp50805 + (let ((__tmp50806 + |gerbil/core$[2]#_g50807_|)) (declare (not safe)) - (cons 'macro __tmp51045)))) + (cons 'macro __tmp50806)))) (declare (not safe)) - (cons __tmp51044 '())))) + (cons __tmp50805 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47571 - __tmp51043 + __obj47362 + __tmp50804 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51047 - (let ((__tmp51048 - (let ((__tmp51049 - |gerbil/core$[2]#_g51050_|)) + (let ((__tmp50808 + (let ((__tmp50809 + (let ((__tmp50810 + |gerbil/core$[2]#_g50811_|)) (declare (not safe)) - (cons 'macro __tmp51049)))) + (cons 'macro __tmp50810)))) (declare (not safe)) - (cons __tmp51048 '())))) + (cons __tmp50809 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47571 - __tmp51047 + __obj47362 + __tmp50808 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51051 - (let ((__tmp51052 - (let ((__tmp51053 - |gerbil/core$[2]#_g51054_|)) + (let ((__tmp50812 + (let ((__tmp50813 + (let ((__tmp50814 + |gerbil/core$[2]#_g50815_|)) (declare (not safe)) - (cons 'macro __tmp51053)))) + (cons 'macro __tmp50814)))) (declare (not safe)) - (cons __tmp51052 '())))) + (cons __tmp50813 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47571 - __tmp51051 + __obj47362 + __tmp50812 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51055 - (let ((__tmp51056 - (let ((__tmp51057 - |gerbil/core$[2]#_g51058_|)) + (let ((__tmp50816 + (let ((__tmp50817 + (let ((__tmp50818 + |gerbil/core$[2]#_g50819_|)) (declare (not safe)) - (cons 'macro __tmp51057)))) + (cons 'macro __tmp50818)))) (declare (not safe)) - (cons __tmp51056 '())))) + (cons __tmp50817 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47571 - __tmp51055 + __obj47362 + __tmp50816 '14 gerbil/core$$#class-type-info::t '#f)) - __obj47571)))) + __obj47362)))) diff --git a/src/bootstrap/gerbil/core__14.scm b/src/bootstrap/gerbil/core__14.scm index 784573e68..ed087e4ca 100644 --- a/src/bootstrap/gerbil/core__14.scm +++ b/src/bootstrap/gerbil/core__14.scm @@ -1,52 +1,52 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$[:0:]#identifier-rules| - (lambda (_$stx34658_) - (let* ((_g3466234673_ - (lambda (_g3466334669_) + (lambda (_$stx34373_) + (let* ((_g3437734388_ + (lambda (_g3437834384_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3466334669_))) - (_g3466134703_ - (lambda (_g3466334677_) - (if (gx#stx-pair? _g3466334677_) - (let ((_e3466734680_ (gx#syntax-e _g3466334677_))) - (let ((_hd3466634684_ + _g3437834384_))) + (_g3437634418_ + (lambda (_g3437834392_) + (if (gx#stx-pair? _g3437834392_) + (let ((_e3438234395_ (gx#syntax-e _g3437834392_))) + (let ((_hd3438134399_ (let () (declare (not safe)) - (##car _e3466734680_))) - (_tl3466534687_ + (##car _e3438234395_))) + (_tl3438034402_ (let () (declare (not safe)) - (##cdr _e3466734680_)))) - ((lambda (_L34690_) - (let ((__tmp51063 + (##cdr _e3438234395_)))) + ((lambda (_L34405_) + (let ((__tmp50824 (gx#datum->syntax '#f 'make-setq-macro)) - (__tmp51059 - (let ((__tmp51060 - (let ((__tmp51061 - (let ((__tmp51062 + (__tmp50820 + (let ((__tmp50821 + (let ((__tmp50822 + (let ((__tmp50823 (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp51062 _L34690_)))) + (cons __tmp50823 _L34405_)))) (declare (not safe)) - (cons __tmp51061 '())))) + (cons __tmp50822 '())))) (declare (not safe)) - (cons 'macro: __tmp51060)))) + (cons 'macro: __tmp50821)))) (declare (not safe)) - (cons __tmp51063 __tmp51059))) - _tl3466534687_))) - (_g3466234673_ _g3466334677_))))) - (_g3466134703_ _$stx34658_)))) + (cons __tmp50824 __tmp50820))) + _tl3438034402_))) + (_g3437734388_ _g3437834392_))))) + (_g3437634418_ _$stx34373_)))) (define |gerbil/core$[:0:]#quasisyntax| - (lambda (_$stx34707_) - (let ((_g3471034717_ - (lambda (_g3471134713_) + (lambda (_$stx34422_) + (let ((_g3442534432_ + (lambda (_g3442634428_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3471134713_)))) - (_g3471034717_ _$stx34707_))))) + _g3442634428_)))) + (_g3442534432_ _$stx34422_))))) diff --git a/src/bootstrap/gerbil/core__15.scm b/src/bootstrap/gerbil/core__15.scm index 75753b0d8..7b9794c73 100644 --- a/src/bootstrap/gerbil/core__15.scm +++ b/src/bootstrap/gerbil/core__15.scm @@ -1,3257 +1,3257 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$[:0:]#require| - (lambda (_$stx34722_) - (let* ((___stx4726447265_ _$stx34722_) - (_g3472734746_ + (lambda (_$stx34437_) + (let* ((___stx4705647057_ _$stx34437_) + (_g3444234461_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4726447265_)))) - (let ((___kont4726747268_ + ___stx4705647057_)))) + (let ((___kont4705947060_ (lambda () - (let ((__tmp51064 (gx#datum->syntax '#f 'begin))) + (let ((__tmp50825 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp51064 '())))) - (___kont4726947270_ - (lambda (_L34773_ _L34775_ _L34776_) - (let ((__tmp51077 (gx#datum->syntax '#f 'cond-expand)) - (__tmp51065 - (let ((__tmp51074 - (let ((__tmp51075 - (let ((__tmp51076 + (cons __tmp50825 '())))) + (___kont4706147062_ + (lambda (_L34488_ _L34490_ _L34491_) + (let ((__tmp50838 (gx#datum->syntax '#f 'cond-expand)) + (__tmp50826 + (let ((__tmp50835 + (let ((__tmp50836 + (let ((__tmp50837 (let () (declare (not safe)) - (cons _L34776_ _L34773_)))) + (cons _L34491_ _L34488_)))) (declare (not safe)) - (cons __tmp51076 '())))) + (cons __tmp50837 '())))) (declare (not safe)) - (cons _L34775_ __tmp51075))) - (__tmp51066 - (let ((__tmp51067 - (let ((__tmp51073 + (cons _L34490_ __tmp50836))) + (__tmp50827 + (let ((__tmp50828 + (let ((__tmp50834 (gx#datum->syntax '#f 'else)) - (__tmp51068 - (let ((__tmp51069 - (let ((__tmp51072 + (__tmp50829 + (let ((__tmp50830 + (let ((__tmp50833 (gx#datum->syntax '#f 'syntax-error)) - (__tmp51070 - (let ((__tmp51071 + (__tmp50831 + (let ((__tmp50832 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L34775_ '())))) + (let () (declare (not safe)) (cons _L34490_ '())))) (declare (not safe)) - (cons '"Missing required feature" __tmp51071)))) + (cons '"Missing required feature" __tmp50832)))) (declare (not safe)) - (cons __tmp51072 __tmp51070)))) + (cons __tmp50833 __tmp50831)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51069 '())))) + (cons __tmp50830 '())))) (declare (not safe)) - (cons __tmp51073 __tmp51068)))) + (cons __tmp50834 __tmp50829)))) (declare (not safe)) - (cons __tmp51067 '())))) + (cons __tmp50828 '())))) (declare (not safe)) - (cons __tmp51074 __tmp51066)))) + (cons __tmp50835 __tmp50827)))) (declare (not safe)) - (cons __tmp51077 __tmp51065))))) - (if (gx#stx-pair? ___stx4726447265_) - (let ((_e3473134799_ (gx#syntax-e ___stx4726447265_))) - (let ((_tl3472934806_ - (let () (declare (not safe)) (##cdr _e3473134799_))) - (_hd3473034803_ - (let () (declare (not safe)) (##car _e3473134799_)))) - (if (gx#stx-null? _tl3472934806_) - (___kont4726747268_) - (if (gx#stx-pair? _tl3472934806_) - (let ((_e3474034763_ (gx#syntax-e _tl3472934806_))) - (let ((_tl3473834770_ + (cons __tmp50838 __tmp50826))))) + (if (gx#stx-pair? ___stx4705647057_) + (let ((_e3444634514_ (gx#syntax-e ___stx4705647057_))) + (let ((_tl3444434521_ + (let () (declare (not safe)) (##cdr _e3444634514_))) + (_hd3444534518_ + (let () (declare (not safe)) (##car _e3444634514_)))) + (if (gx#stx-null? _tl3444434521_) + (___kont4705947060_) + (if (gx#stx-pair? _tl3444434521_) + (let ((_e3445534478_ (gx#syntax-e _tl3444434521_))) + (let ((_tl3445334485_ (let () (declare (not safe)) - (##cdr _e3474034763_))) - (_hd3473934767_ + (##cdr _e3445534478_))) + (_hd3445434482_ (let () (declare (not safe)) - (##car _e3474034763_)))) - (___kont4726947270_ - _tl3473834770_ - _hd3473934767_ - _hd3473034803_))) - (let () (declare (not safe)) (_g3472734746_)))))) - (let () (declare (not safe)) (_g3472734746_))))))) + (##car _e3445534478_)))) + (___kont4706147062_ + _tl3445334485_ + _hd3445434482_ + _hd3444534518_))) + (let () (declare (not safe)) (_g3444234461_)))))) + (let () (declare (not safe)) (_g3444234461_))))))) (define |gerbil/core$[:0:]#defsyntax-for-import| - (lambda (_$stx34817_) - (let* ((___stx4729447295_ _$stx34817_) - (_g3482234862_ + (lambda (_$stx34532_) + (let* ((___stx4708647087_ _$stx34532_) + (_g3453734577_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4729447295_)))) - (let ((___kont4729747298_ - (lambda (_L35000_ _L35002_) - (let ((__tmp51083 (gx#datum->syntax '#f 'defsyntax)) - (__tmp51078 - (let ((__tmp51079 - (let ((__tmp51080 - (let ((__tmp51082 + ___stx4708647087_)))) + (let ((___kont4708947090_ + (lambda (_L34715_ _L34717_) + (let ((__tmp50844 (gx#datum->syntax '#f 'defsyntax)) + (__tmp50839 + (let ((__tmp50840 + (let ((__tmp50841 + (let ((__tmp50843 (gx#datum->syntax '#f 'make-import-expander)) - (__tmp51081 + (__tmp50842 (let () (declare (not safe)) - (cons _L35000_ '())))) + (cons _L34715_ '())))) (declare (not safe)) - (cons __tmp51082 __tmp51081)))) + (cons __tmp50843 __tmp50842)))) (declare (not safe)) - (cons __tmp51080 '())))) + (cons __tmp50841 '())))) (declare (not safe)) - (cons _L35002_ __tmp51079)))) + (cons _L34717_ __tmp50840)))) (declare (not safe)) - (cons __tmp51083 __tmp51078)))) - (___kont4729947300_ - (lambda (_L34929_ _L34931_ _L34932_ _L34933_) - (let ((__tmp51084 - (let ((__tmp51085 - (let ((__tmp51086 - (let ((__tmp51090 + (cons __tmp50844 __tmp50839)))) + (___kont4709147092_ + (lambda (_L34644_ _L34646_ _L34647_ _L34648_) + (let ((__tmp50845 + (let ((__tmp50846 + (let ((__tmp50847 + (let ((__tmp50851 (gx#datum->syntax '#f 'lambda)) - (__tmp51087 - (let ((__tmp51088 - (let ((__tmp51089 - (lambda (_g3495434957_ + (__tmp50848 + (let ((__tmp50849 + (let ((__tmp50850 + (lambda (_g3466934672_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3495534960_) + _g3467034675_) (let () (declare (not safe)) - (cons _g3495434957_ _g3495534960_))))) + (cons _g3466934672_ _g3467034675_))))) (declare (not safe)) - (foldr1 __tmp51089 '() _L34929_)))) + (foldr1 __tmp50850 '() _L34644_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L34931_ __tmp51088)))) + (cons _L34646_ __tmp50849)))) (declare (not safe)) - (cons __tmp51090 __tmp51087)))) + (cons __tmp50851 __tmp50848)))) (declare (not safe)) - (cons __tmp51086 '())))) + (cons __tmp50847 '())))) (declare (not safe)) - (cons _L34932_ __tmp51085)))) + (cons _L34647_ __tmp50846)))) (declare (not safe)) - (cons _L34933_ __tmp51084))))) - (let* ((___match4734947350_ - (lambda (_e3484134869_ - _hd3484034873_ - _tl3483934876_ - _e3484434879_ - _hd3484334883_ - _tl3484234886_ - _e3484734889_ - _hd3484634893_ - _tl3484534896_ - ___splice4730147302_ - _target3484834899_ - _tl3485034902_) - (letrec ((_loop3485134905_ - (lambda (_hd3484934909_ _body3485534912_) - (if (gx#stx-pair? _hd3484934909_) - (let ((_e3485234915_ - (gx#syntax-e _hd3484934909_))) - (let ((_lp-tl3485434922_ + (cons _L34648_ __tmp50845))))) + (let* ((___match4714147142_ + (lambda (_e3455634584_ + _hd3455534588_ + _tl3455434591_ + _e3455934594_ + _hd3455834598_ + _tl3455734601_ + _e3456234604_ + _hd3456134608_ + _tl3456034611_ + ___splice4709347094_ + _target3456334614_ + _tl3456534617_) + (letrec ((_loop3456634620_ + (lambda (_hd3456434624_ _body3457034627_) + (if (gx#stx-pair? _hd3456434624_) + (let ((_e3456734630_ + (gx#syntax-e _hd3456434624_))) + (let ((_lp-tl3456934637_ (let () (declare (not safe)) - (##cdr _e3485234915_))) - (_lp-hd3485334919_ + (##cdr _e3456734630_))) + (_lp-hd3456834634_ (let () (declare (not safe)) - (##car _e3485234915_)))) - (_loop3485134905_ - _lp-tl3485434922_ + (##car _e3456734630_)))) + (_loop3456634620_ + _lp-tl3456934637_ (let () (declare (not safe)) - (cons _lp-hd3485334919_ - _body3485534912_))))) - (let ((_body3485634925_ - (reverse _body3485534912_))) - (let ((_L34929_ _body3485634925_) - (_L34931_ _tl3484534896_) - (_L34932_ _hd3484634893_) - (_L34933_ _hd3484034873_)) - (if (gx#identifier? _L34932_) - (___kont4729947300_ - _L34929_ - _L34931_ - _L34932_ - _L34933_) + (cons _lp-hd3456834634_ + _body3457034627_))))) + (let ((_body3457134640_ + (reverse _body3457034627_))) + (let ((_L34644_ _body3457134640_) + (_L34646_ _tl3456034611_) + (_L34647_ _hd3456134608_) + (_L34648_ _hd3455534588_)) + (if (gx#identifier? _L34647_) + (___kont4709147092_ + _L34644_ + _L34646_ + _L34647_ + _L34648_) (let () (declare (not safe)) - (_g3482234862_))))))))) - (_loop3485134905_ _target3484834899_ '())))) - (___match4732347324_ - (lambda (_e3482834970_ - _hd3482734974_ - _tl3482634977_ - _e3483134980_ - _hd3483034984_ - _tl3482934987_ - _e3483434990_ - _hd3483334994_ - _tl3483234997_) - (let ((_L35000_ _hd3483334994_) (_L35002_ _hd3483034984_)) - (if (gx#identifier? _L35002_) - (___kont4729747298_ _L35000_ _L35002_) - (if (gx#stx-pair? _hd3483034984_) - (let ((_e3484734889_ - (gx#syntax-e _hd3483034984_))) - (let ((_tl3484534896_ + (_g3453734577_))))))))) + (_loop3456634620_ _target3456334614_ '())))) + (___match4711547116_ + (lambda (_e3454334685_ + _hd3454234689_ + _tl3454134692_ + _e3454634695_ + _hd3454534699_ + _tl3454434702_ + _e3454934705_ + _hd3454834709_ + _tl3454734712_) + (let ((_L34715_ _hd3454834709_) (_L34717_ _hd3454534699_)) + (if (gx#identifier? _L34717_) + (___kont4708947090_ _L34715_ _L34717_) + (if (gx#stx-pair? _hd3454534699_) + (let ((_e3456234604_ + (gx#syntax-e _hd3454534699_))) + (let ((_tl3456034611_ (let () (declare (not safe)) - (##cdr _e3484734889_))) - (_hd3484634893_ + (##cdr _e3456234604_))) + (_hd3456134608_ (let () (declare (not safe)) - (##car _e3484734889_)))) - (if (gx#stx-pair/null? _tl3482934987_) - (let ((___splice4730147302_ + (##car _e3456234604_)))) + (if (gx#stx-pair/null? _tl3454434702_) + (let ((___splice4709347094_ (gx#syntax-split-splice - _tl3482934987_ + _tl3454434702_ '0))) - (let ((_tl3485034902_ + (let ((_tl3456534617_ (let () (declare (not safe)) (##vector-ref - ___splice4730147302_ + ___splice4709347094_ '1))) - (_target3484834899_ + (_target3456334614_ (let () (declare (not safe)) (##vector-ref - ___splice4730147302_ + ___splice4709347094_ '0)))) - (if (gx#stx-null? _tl3485034902_) - (___match4734947350_ - _e3482834970_ - _hd3482734974_ - _tl3482634977_ - _e3483134980_ - _hd3483034984_ - _tl3482934987_ - _e3484734889_ - _hd3484634893_ - _tl3484534896_ - ___splice4730147302_ - _target3484834899_ - _tl3485034902_) + (if (gx#stx-null? _tl3456534617_) + (___match4714147142_ + _e3454334685_ + _hd3454234689_ + _tl3454134692_ + _e3454634695_ + _hd3454534699_ + _tl3454434702_ + _e3456234604_ + _hd3456134608_ + _tl3456034611_ + ___splice4709347094_ + _target3456334614_ + _tl3456534617_) (let () (declare (not safe)) - (_g3482234862_))))) + (_g3453734577_))))) (let () (declare (not safe)) - (_g3482234862_))))) + (_g3453734577_))))) (let () (declare (not safe)) - (_g3482234862_)))))))) - (if (gx#stx-pair? ___stx4729447295_) - (let ((_e3482834970_ (gx#syntax-e ___stx4729447295_))) - (let ((_tl3482634977_ - (let () (declare (not safe)) (##cdr _e3482834970_))) - (_hd3482734974_ - (let () (declare (not safe)) (##car _e3482834970_)))) - (if (gx#stx-pair? _tl3482634977_) - (let ((_e3483134980_ (gx#syntax-e _tl3482634977_))) - (let ((_tl3482934987_ + (_g3453734577_)))))))) + (if (gx#stx-pair? ___stx4708647087_) + (let ((_e3454334685_ (gx#syntax-e ___stx4708647087_))) + (let ((_tl3454134692_ + (let () (declare (not safe)) (##cdr _e3454334685_))) + (_hd3454234689_ + (let () (declare (not safe)) (##car _e3454334685_)))) + (if (gx#stx-pair? _tl3454134692_) + (let ((_e3454634695_ (gx#syntax-e _tl3454134692_))) + (let ((_tl3454434702_ (let () (declare (not safe)) - (##cdr _e3483134980_))) - (_hd3483034984_ + (##cdr _e3454634695_))) + (_hd3454534699_ (let () (declare (not safe)) - (##car _e3483134980_)))) - (if (gx#stx-pair? _tl3482934987_) - (let ((_e3483434990_ - (gx#syntax-e _tl3482934987_))) - (let ((_tl3483234997_ + (##car _e3454634695_)))) + (if (gx#stx-pair? _tl3454434702_) + (let ((_e3454934705_ + (gx#syntax-e _tl3454434702_))) + (let ((_tl3454734712_ (let () (declare (not safe)) - (##cdr _e3483434990_))) - (_hd3483334994_ + (##cdr _e3454934705_))) + (_hd3454834709_ (let () (declare (not safe)) - (##car _e3483434990_)))) - (if (gx#stx-null? _tl3483234997_) - (___match4732347324_ - _e3482834970_ - _hd3482734974_ - _tl3482634977_ - _e3483134980_ - _hd3483034984_ - _tl3482934987_ - _e3483434990_ - _hd3483334994_ - _tl3483234997_) - (if (gx#stx-pair? _hd3483034984_) - (let ((_e3484734889_ + (##car _e3454934705_)))) + (if (gx#stx-null? _tl3454734712_) + (___match4711547116_ + _e3454334685_ + _hd3454234689_ + _tl3454134692_ + _e3454634695_ + _hd3454534699_ + _tl3454434702_ + _e3454934705_ + _hd3454834709_ + _tl3454734712_) + (if (gx#stx-pair? _hd3454534699_) + (let ((_e3456234604_ (gx#syntax-e - _hd3483034984_))) - (let ((_tl3484534896_ + _hd3454534699_))) + (let ((_tl3456034611_ (let () (declare (not safe)) - (##cdr _e3484734889_))) - (_hd3484634893_ + (##cdr _e3456234604_))) + (_hd3456134608_ (let () (declare (not safe)) - (##car _e3484734889_)))) + (##car _e3456234604_)))) (if (gx#stx-pair/null? - _tl3482934987_) - (let ((___splice4730147302_ + _tl3454434702_) + (let ((___splice4709347094_ (gx#syntax-split-splice - _tl3482934987_ + _tl3454434702_ '0))) - (let ((_tl3485034902_ + (let ((_tl3456534617_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4730147302_ '1))) - (_target3484834899_ + (##vector-ref ___splice4709347094_ '1))) + (_target3456334614_ (let () (declare (not safe)) - (##vector-ref ___splice4730147302_ '0)))) - (if (gx#stx-null? _tl3485034902_) - (___match4734947350_ - _e3482834970_ - _hd3482734974_ - _tl3482634977_ - _e3483134980_ - _hd3483034984_ - _tl3482934987_ - _e3484734889_ - _hd3484634893_ - _tl3484534896_ - ___splice4730147302_ - _target3484834899_ - _tl3485034902_) - (let () (declare (not safe)) (_g3482234862_))))) + (##vector-ref ___splice4709347094_ '0)))) + (if (gx#stx-null? _tl3456534617_) + (___match4714147142_ + _e3454334685_ + _hd3454234689_ + _tl3454134692_ + _e3454634695_ + _hd3454534699_ + _tl3454434702_ + _e3456234604_ + _hd3456134608_ + _tl3456034611_ + ___splice4709347094_ + _target3456334614_ + _tl3456534617_) + (let () (declare (not safe)) (_g3453734577_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3482234862_))))) + (_g3453734577_))))) (let () (declare (not safe)) - (_g3482234862_)))))) - (if (gx#stx-pair? _hd3483034984_) - (let ((_e3484734889_ - (gx#syntax-e _hd3483034984_))) - (let ((_tl3484534896_ + (_g3453734577_)))))) + (if (gx#stx-pair? _hd3454534699_) + (let ((_e3456234604_ + (gx#syntax-e _hd3454534699_))) + (let ((_tl3456034611_ (let () (declare (not safe)) - (##cdr _e3484734889_))) - (_hd3484634893_ + (##cdr _e3456234604_))) + (_hd3456134608_ (let () (declare (not safe)) - (##car _e3484734889_)))) - (if (gx#stx-pair/null? _tl3482934987_) - (let ((___splice4730147302_ + (##car _e3456234604_)))) + (if (gx#stx-pair/null? _tl3454434702_) + (let ((___splice4709347094_ (gx#syntax-split-splice - _tl3482934987_ + _tl3454434702_ '0))) - (let ((_tl3485034902_ + (let ((_tl3456534617_ (let () (declare (not safe)) (##vector-ref - ___splice4730147302_ + ___splice4709347094_ '1))) - (_target3484834899_ + (_target3456334614_ (let () (declare (not safe)) (##vector-ref - ___splice4730147302_ + ___splice4709347094_ '0)))) (if (gx#stx-null? - _tl3485034902_) - (___match4734947350_ - _e3482834970_ - _hd3482734974_ - _tl3482634977_ - _e3483134980_ - _hd3483034984_ - _tl3482934987_ - _e3484734889_ - _hd3484634893_ - _tl3484534896_ - ___splice4730147302_ - _target3484834899_ - _tl3485034902_) + _tl3456534617_) + (___match4714147142_ + _e3454334685_ + _hd3454234689_ + _tl3454134692_ + _e3454634695_ + _hd3454534699_ + _tl3454434702_ + _e3456234604_ + _hd3456134608_ + _tl3456034611_ + ___splice4709347094_ + _target3456334614_ + _tl3456534617_) (let () (declare (not safe)) - (_g3482234862_))))) + (_g3453734577_))))) (let () (declare (not safe)) - (_g3482234862_))))) + (_g3453734577_))))) (let () (declare (not safe)) - (_g3482234862_)))))) - (let () (declare (not safe)) (_g3482234862_))))) - (let () (declare (not safe)) (_g3482234862_)))))))) + (_g3453734577_)))))) + (let () (declare (not safe)) (_g3453734577_))))) + (let () (declare (not safe)) (_g3453734577_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-export| - (lambda (_$stx35022_) - (let* ((___stx4735247353_ _$stx35022_) - (_g3502735067_ + (lambda (_$stx34737_) + (let* ((___stx4714447145_ _$stx34737_) + (_g3474234782_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4735247353_)))) - (let ((___kont4735547356_ - (lambda (_L35205_ _L35207_) - (let ((__tmp51096 (gx#datum->syntax '#f 'defsyntax)) - (__tmp51091 - (let ((__tmp51092 - (let ((__tmp51093 - (let ((__tmp51095 + ___stx4714447145_)))) + (let ((___kont4714747148_ + (lambda (_L34920_ _L34922_) + (let ((__tmp50857 (gx#datum->syntax '#f 'defsyntax)) + (__tmp50852 + (let ((__tmp50853 + (let ((__tmp50854 + (let ((__tmp50856 (gx#datum->syntax '#f 'make-export-expander)) - (__tmp51094 + (__tmp50855 (let () (declare (not safe)) - (cons _L35205_ '())))) + (cons _L34920_ '())))) (declare (not safe)) - (cons __tmp51095 __tmp51094)))) + (cons __tmp50856 __tmp50855)))) (declare (not safe)) - (cons __tmp51093 '())))) + (cons __tmp50854 '())))) (declare (not safe)) - (cons _L35207_ __tmp51092)))) + (cons _L34922_ __tmp50853)))) (declare (not safe)) - (cons __tmp51096 __tmp51091)))) - (___kont4735747358_ - (lambda (_L35134_ _L35136_ _L35137_ _L35138_) - (let ((__tmp51097 - (let ((__tmp51098 - (let ((__tmp51099 - (let ((__tmp51103 + (cons __tmp50857 __tmp50852)))) + (___kont4714947150_ + (lambda (_L34849_ _L34851_ _L34852_ _L34853_) + (let ((__tmp50858 + (let ((__tmp50859 + (let ((__tmp50860 + (let ((__tmp50864 (gx#datum->syntax '#f 'lambda)) - (__tmp51100 - (let ((__tmp51101 - (let ((__tmp51102 - (lambda (_g3515935162_ + (__tmp50861 + (let ((__tmp50862 + (let ((__tmp50863 + (lambda (_g3487434877_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3516035165_) + _g3487534880_) (let () (declare (not safe)) - (cons _g3515935162_ _g3516035165_))))) + (cons _g3487434877_ _g3487534880_))))) (declare (not safe)) - (foldr1 __tmp51102 '() _L35134_)))) + (foldr1 __tmp50863 '() _L34849_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L35136_ __tmp51101)))) + (cons _L34851_ __tmp50862)))) (declare (not safe)) - (cons __tmp51103 __tmp51100)))) + (cons __tmp50864 __tmp50861)))) (declare (not safe)) - (cons __tmp51099 '())))) + (cons __tmp50860 '())))) (declare (not safe)) - (cons _L35137_ __tmp51098)))) + (cons _L34852_ __tmp50859)))) (declare (not safe)) - (cons _L35138_ __tmp51097))))) - (let* ((___match4740747408_ - (lambda (_e3504635074_ - _hd3504535078_ - _tl3504435081_ - _e3504935084_ - _hd3504835088_ - _tl3504735091_ - _e3505235094_ - _hd3505135098_ - _tl3505035101_ - ___splice4735947360_ - _target3505335104_ - _tl3505535107_) - (letrec ((_loop3505635110_ - (lambda (_hd3505435114_ _body3506035117_) - (if (gx#stx-pair? _hd3505435114_) - (let ((_e3505735120_ - (gx#syntax-e _hd3505435114_))) - (let ((_lp-tl3505935127_ + (cons _L34853_ __tmp50858))))) + (let* ((___match4719947200_ + (lambda (_e3476134789_ + _hd3476034793_ + _tl3475934796_ + _e3476434799_ + _hd3476334803_ + _tl3476234806_ + _e3476734809_ + _hd3476634813_ + _tl3476534816_ + ___splice4715147152_ + _target3476834819_ + _tl3477034822_) + (letrec ((_loop3477134825_ + (lambda (_hd3476934829_ _body3477534832_) + (if (gx#stx-pair? _hd3476934829_) + (let ((_e3477234835_ + (gx#syntax-e _hd3476934829_))) + (let ((_lp-tl3477434842_ (let () (declare (not safe)) - (##cdr _e3505735120_))) - (_lp-hd3505835124_ + (##cdr _e3477234835_))) + (_lp-hd3477334839_ (let () (declare (not safe)) - (##car _e3505735120_)))) - (_loop3505635110_ - _lp-tl3505935127_ + (##car _e3477234835_)))) + (_loop3477134825_ + _lp-tl3477434842_ (let () (declare (not safe)) - (cons _lp-hd3505835124_ - _body3506035117_))))) - (let ((_body3506135130_ - (reverse _body3506035117_))) - (let ((_L35134_ _body3506135130_) - (_L35136_ _tl3505035101_) - (_L35137_ _hd3505135098_) - (_L35138_ _hd3504535078_)) - (if (gx#identifier? _L35137_) - (___kont4735747358_ - _L35134_ - _L35136_ - _L35137_ - _L35138_) + (cons _lp-hd3477334839_ + _body3477534832_))))) + (let ((_body3477634845_ + (reverse _body3477534832_))) + (let ((_L34849_ _body3477634845_) + (_L34851_ _tl3476534816_) + (_L34852_ _hd3476634813_) + (_L34853_ _hd3476034793_)) + (if (gx#identifier? _L34852_) + (___kont4714947150_ + _L34849_ + _L34851_ + _L34852_ + _L34853_) (let () (declare (not safe)) - (_g3502735067_))))))))) - (_loop3505635110_ _target3505335104_ '())))) - (___match4738147382_ - (lambda (_e3503335175_ - _hd3503235179_ - _tl3503135182_ - _e3503635185_ - _hd3503535189_ - _tl3503435192_ - _e3503935195_ - _hd3503835199_ - _tl3503735202_) - (let ((_L35205_ _hd3503835199_) (_L35207_ _hd3503535189_)) - (if (gx#identifier? _L35207_) - (___kont4735547356_ _L35205_ _L35207_) - (if (gx#stx-pair? _hd3503535189_) - (let ((_e3505235094_ - (gx#syntax-e _hd3503535189_))) - (let ((_tl3505035101_ + (_g3474234782_))))))))) + (_loop3477134825_ _target3476834819_ '())))) + (___match4717347174_ + (lambda (_e3474834890_ + _hd3474734894_ + _tl3474634897_ + _e3475134900_ + _hd3475034904_ + _tl3474934907_ + _e3475434910_ + _hd3475334914_ + _tl3475234917_) + (let ((_L34920_ _hd3475334914_) (_L34922_ _hd3475034904_)) + (if (gx#identifier? _L34922_) + (___kont4714747148_ _L34920_ _L34922_) + (if (gx#stx-pair? _hd3475034904_) + (let ((_e3476734809_ + (gx#syntax-e _hd3475034904_))) + (let ((_tl3476534816_ (let () (declare (not safe)) - (##cdr _e3505235094_))) - (_hd3505135098_ + (##cdr _e3476734809_))) + (_hd3476634813_ (let () (declare (not safe)) - (##car _e3505235094_)))) - (if (gx#stx-pair/null? _tl3503435192_) - (let ((___splice4735947360_ + (##car _e3476734809_)))) + (if (gx#stx-pair/null? _tl3474934907_) + (let ((___splice4715147152_ (gx#syntax-split-splice - _tl3503435192_ + _tl3474934907_ '0))) - (let ((_tl3505535107_ + (let ((_tl3477034822_ (let () (declare (not safe)) (##vector-ref - ___splice4735947360_ + ___splice4715147152_ '1))) - (_target3505335104_ + (_target3476834819_ (let () (declare (not safe)) (##vector-ref - ___splice4735947360_ + ___splice4715147152_ '0)))) - (if (gx#stx-null? _tl3505535107_) - (___match4740747408_ - _e3503335175_ - _hd3503235179_ - _tl3503135182_ - _e3503635185_ - _hd3503535189_ - _tl3503435192_ - _e3505235094_ - _hd3505135098_ - _tl3505035101_ - ___splice4735947360_ - _target3505335104_ - _tl3505535107_) + (if (gx#stx-null? _tl3477034822_) + (___match4719947200_ + _e3474834890_ + _hd3474734894_ + _tl3474634897_ + _e3475134900_ + _hd3475034904_ + _tl3474934907_ + _e3476734809_ + _hd3476634813_ + _tl3476534816_ + ___splice4715147152_ + _target3476834819_ + _tl3477034822_) (let () (declare (not safe)) - (_g3502735067_))))) + (_g3474234782_))))) (let () (declare (not safe)) - (_g3502735067_))))) + (_g3474234782_))))) (let () (declare (not safe)) - (_g3502735067_)))))))) - (if (gx#stx-pair? ___stx4735247353_) - (let ((_e3503335175_ (gx#syntax-e ___stx4735247353_))) - (let ((_tl3503135182_ - (let () (declare (not safe)) (##cdr _e3503335175_))) - (_hd3503235179_ - (let () (declare (not safe)) (##car _e3503335175_)))) - (if (gx#stx-pair? _tl3503135182_) - (let ((_e3503635185_ (gx#syntax-e _tl3503135182_))) - (let ((_tl3503435192_ + (_g3474234782_)))))))) + (if (gx#stx-pair? ___stx4714447145_) + (let ((_e3474834890_ (gx#syntax-e ___stx4714447145_))) + (let ((_tl3474634897_ + (let () (declare (not safe)) (##cdr _e3474834890_))) + (_hd3474734894_ + (let () (declare (not safe)) (##car _e3474834890_)))) + (if (gx#stx-pair? _tl3474634897_) + (let ((_e3475134900_ (gx#syntax-e _tl3474634897_))) + (let ((_tl3474934907_ (let () (declare (not safe)) - (##cdr _e3503635185_))) - (_hd3503535189_ + (##cdr _e3475134900_))) + (_hd3475034904_ (let () (declare (not safe)) - (##car _e3503635185_)))) - (if (gx#stx-pair? _tl3503435192_) - (let ((_e3503935195_ - (gx#syntax-e _tl3503435192_))) - (let ((_tl3503735202_ + (##car _e3475134900_)))) + (if (gx#stx-pair? _tl3474934907_) + (let ((_e3475434910_ + (gx#syntax-e _tl3474934907_))) + (let ((_tl3475234917_ (let () (declare (not safe)) - (##cdr _e3503935195_))) - (_hd3503835199_ + (##cdr _e3475434910_))) + (_hd3475334914_ (let () (declare (not safe)) - (##car _e3503935195_)))) - (if (gx#stx-null? _tl3503735202_) - (___match4738147382_ - _e3503335175_ - _hd3503235179_ - _tl3503135182_ - _e3503635185_ - _hd3503535189_ - _tl3503435192_ - _e3503935195_ - _hd3503835199_ - _tl3503735202_) - (if (gx#stx-pair? _hd3503535189_) - (let ((_e3505235094_ + (##car _e3475434910_)))) + (if (gx#stx-null? _tl3475234917_) + (___match4717347174_ + _e3474834890_ + _hd3474734894_ + _tl3474634897_ + _e3475134900_ + _hd3475034904_ + _tl3474934907_ + _e3475434910_ + _hd3475334914_ + _tl3475234917_) + (if (gx#stx-pair? _hd3475034904_) + (let ((_e3476734809_ (gx#syntax-e - _hd3503535189_))) - (let ((_tl3505035101_ + _hd3475034904_))) + (let ((_tl3476534816_ (let () (declare (not safe)) - (##cdr _e3505235094_))) - (_hd3505135098_ + (##cdr _e3476734809_))) + (_hd3476634813_ (let () (declare (not safe)) - (##car _e3505235094_)))) + (##car _e3476734809_)))) (if (gx#stx-pair/null? - _tl3503435192_) - (let ((___splice4735947360_ + _tl3474934907_) + (let ((___splice4715147152_ (gx#syntax-split-splice - _tl3503435192_ + _tl3474934907_ '0))) - (let ((_tl3505535107_ + (let ((_tl3477034822_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4735947360_ '1))) - (_target3505335104_ + (##vector-ref ___splice4715147152_ '1))) + (_target3476834819_ (let () (declare (not safe)) - (##vector-ref ___splice4735947360_ '0)))) - (if (gx#stx-null? _tl3505535107_) - (___match4740747408_ - _e3503335175_ - _hd3503235179_ - _tl3503135182_ - _e3503635185_ - _hd3503535189_ - _tl3503435192_ - _e3505235094_ - _hd3505135098_ - _tl3505035101_ - ___splice4735947360_ - _target3505335104_ - _tl3505535107_) - (let () (declare (not safe)) (_g3502735067_))))) + (##vector-ref ___splice4715147152_ '0)))) + (if (gx#stx-null? _tl3477034822_) + (___match4719947200_ + _e3474834890_ + _hd3474734894_ + _tl3474634897_ + _e3475134900_ + _hd3475034904_ + _tl3474934907_ + _e3476734809_ + _hd3476634813_ + _tl3476534816_ + ___splice4715147152_ + _target3476834819_ + _tl3477034822_) + (let () (declare (not safe)) (_g3474234782_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3502735067_))))) + (_g3474234782_))))) (let () (declare (not safe)) - (_g3502735067_)))))) - (if (gx#stx-pair? _hd3503535189_) - (let ((_e3505235094_ - (gx#syntax-e _hd3503535189_))) - (let ((_tl3505035101_ + (_g3474234782_)))))) + (if (gx#stx-pair? _hd3475034904_) + (let ((_e3476734809_ + (gx#syntax-e _hd3475034904_))) + (let ((_tl3476534816_ (let () (declare (not safe)) - (##cdr _e3505235094_))) - (_hd3505135098_ + (##cdr _e3476734809_))) + (_hd3476634813_ (let () (declare (not safe)) - (##car _e3505235094_)))) - (if (gx#stx-pair/null? _tl3503435192_) - (let ((___splice4735947360_ + (##car _e3476734809_)))) + (if (gx#stx-pair/null? _tl3474934907_) + (let ((___splice4715147152_ (gx#syntax-split-splice - _tl3503435192_ + _tl3474934907_ '0))) - (let ((_tl3505535107_ + (let ((_tl3477034822_ (let () (declare (not safe)) (##vector-ref - ___splice4735947360_ + ___splice4715147152_ '1))) - (_target3505335104_ + (_target3476834819_ (let () (declare (not safe)) (##vector-ref - ___splice4735947360_ + ___splice4715147152_ '0)))) (if (gx#stx-null? - _tl3505535107_) - (___match4740747408_ - _e3503335175_ - _hd3503235179_ - _tl3503135182_ - _e3503635185_ - _hd3503535189_ - _tl3503435192_ - _e3505235094_ - _hd3505135098_ - _tl3505035101_ - ___splice4735947360_ - _target3505335104_ - _tl3505535107_) + _tl3477034822_) + (___match4719947200_ + _e3474834890_ + _hd3474734894_ + _tl3474634897_ + _e3475134900_ + _hd3475034904_ + _tl3474934907_ + _e3476734809_ + _hd3476634813_ + _tl3476534816_ + ___splice4715147152_ + _target3476834819_ + _tl3477034822_) (let () (declare (not safe)) - (_g3502735067_))))) + (_g3474234782_))))) (let () (declare (not safe)) - (_g3502735067_))))) + (_g3474234782_))))) (let () (declare (not safe)) - (_g3502735067_)))))) - (let () (declare (not safe)) (_g3502735067_))))) - (let () (declare (not safe)) (_g3502735067_)))))))) + (_g3474234782_)))))) + (let () (declare (not safe)) (_g3474234782_))))) + (let () (declare (not safe)) (_g3474234782_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-import-export| - (lambda (_$stx35227_) - (let* ((___stx4741047411_ _$stx35227_) - (_g3523235272_ + (lambda (_$stx34942_) + (let* ((___stx4720247203_ _$stx34942_) + (_g3494734987_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4741047411_)))) - (let ((___kont4741347414_ - (lambda (_L35410_ _L35412_) - (let ((__tmp51109 (gx#datum->syntax '#f 'defsyntax)) - (__tmp51104 - (let ((__tmp51105 - (let ((__tmp51106 - (let ((__tmp51108 + ___stx4720247203_)))) + (let ((___kont4720547206_ + (lambda (_L35125_ _L35127_) + (let ((__tmp50870 (gx#datum->syntax '#f 'defsyntax)) + (__tmp50865 + (let ((__tmp50866 + (let ((__tmp50867 + (let ((__tmp50869 (gx#datum->syntax '#f 'make-import-export-expander)) - (__tmp51107 + (__tmp50868 (let () (declare (not safe)) - (cons _L35410_ '())))) + (cons _L35125_ '())))) (declare (not safe)) - (cons __tmp51108 __tmp51107)))) + (cons __tmp50869 __tmp50868)))) (declare (not safe)) - (cons __tmp51106 '())))) + (cons __tmp50867 '())))) (declare (not safe)) - (cons _L35412_ __tmp51105)))) + (cons _L35127_ __tmp50866)))) (declare (not safe)) - (cons __tmp51109 __tmp51104)))) - (___kont4741547416_ - (lambda (_L35339_ _L35341_ _L35342_ _L35343_) - (let ((__tmp51110 - (let ((__tmp51111 - (let ((__tmp51112 - (let ((__tmp51116 + (cons __tmp50870 __tmp50865)))) + (___kont4720747208_ + (lambda (_L35054_ _L35056_ _L35057_ _L35058_) + (let ((__tmp50871 + (let ((__tmp50872 + (let ((__tmp50873 + (let ((__tmp50877 (gx#datum->syntax '#f 'lambda)) - (__tmp51113 - (let ((__tmp51114 - (let ((__tmp51115 - (lambda (_g3536435367_ + (__tmp50874 + (let ((__tmp50875 + (let ((__tmp50876 + (lambda (_g3507935082_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3536535370_) + _g3508035085_) (let () (declare (not safe)) - (cons _g3536435367_ _g3536535370_))))) + (cons _g3507935082_ _g3508035085_))))) (declare (not safe)) - (foldr1 __tmp51115 '() _L35339_)))) + (foldr1 __tmp50876 '() _L35054_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L35341_ __tmp51114)))) + (cons _L35056_ __tmp50875)))) (declare (not safe)) - (cons __tmp51116 __tmp51113)))) + (cons __tmp50877 __tmp50874)))) (declare (not safe)) - (cons __tmp51112 '())))) + (cons __tmp50873 '())))) (declare (not safe)) - (cons _L35342_ __tmp51111)))) + (cons _L35057_ __tmp50872)))) (declare (not safe)) - (cons _L35343_ __tmp51110))))) - (let* ((___match4746547466_ - (lambda (_e3525135279_ - _hd3525035283_ - _tl3524935286_ - _e3525435289_ - _hd3525335293_ - _tl3525235296_ - _e3525735299_ - _hd3525635303_ - _tl3525535306_ - ___splice4741747418_ - _target3525835309_ - _tl3526035312_) - (letrec ((_loop3526135315_ - (lambda (_hd3525935319_ _body3526535322_) - (if (gx#stx-pair? _hd3525935319_) - (let ((_e3526235325_ - (gx#syntax-e _hd3525935319_))) - (let ((_lp-tl3526435332_ + (cons _L35058_ __tmp50871))))) + (let* ((___match4725747258_ + (lambda (_e3496634994_ + _hd3496534998_ + _tl3496435001_ + _e3496935004_ + _hd3496835008_ + _tl3496735011_ + _e3497235014_ + _hd3497135018_ + _tl3497035021_ + ___splice4720947210_ + _target3497335024_ + _tl3497535027_) + (letrec ((_loop3497635030_ + (lambda (_hd3497435034_ _body3498035037_) + (if (gx#stx-pair? _hd3497435034_) + (let ((_e3497735040_ + (gx#syntax-e _hd3497435034_))) + (let ((_lp-tl3497935047_ (let () (declare (not safe)) - (##cdr _e3526235325_))) - (_lp-hd3526335329_ + (##cdr _e3497735040_))) + (_lp-hd3497835044_ (let () (declare (not safe)) - (##car _e3526235325_)))) - (_loop3526135315_ - _lp-tl3526435332_ + (##car _e3497735040_)))) + (_loop3497635030_ + _lp-tl3497935047_ (let () (declare (not safe)) - (cons _lp-hd3526335329_ - _body3526535322_))))) - (let ((_body3526635335_ - (reverse _body3526535322_))) - (let ((_L35339_ _body3526635335_) - (_L35341_ _tl3525535306_) - (_L35342_ _hd3525635303_) - (_L35343_ _hd3525035283_)) - (if (gx#identifier? _L35342_) - (___kont4741547416_ - _L35339_ - _L35341_ - _L35342_ - _L35343_) + (cons _lp-hd3497835044_ + _body3498035037_))))) + (let ((_body3498135050_ + (reverse _body3498035037_))) + (let ((_L35054_ _body3498135050_) + (_L35056_ _tl3497035021_) + (_L35057_ _hd3497135018_) + (_L35058_ _hd3496534998_)) + (if (gx#identifier? _L35057_) + (___kont4720747208_ + _L35054_ + _L35056_ + _L35057_ + _L35058_) (let () (declare (not safe)) - (_g3523235272_))))))))) - (_loop3526135315_ _target3525835309_ '())))) - (___match4743947440_ - (lambda (_e3523835380_ - _hd3523735384_ - _tl3523635387_ - _e3524135390_ - _hd3524035394_ - _tl3523935397_ - _e3524435400_ - _hd3524335404_ - _tl3524235407_) - (let ((_L35410_ _hd3524335404_) (_L35412_ _hd3524035394_)) - (if (gx#identifier? _L35412_) - (___kont4741347414_ _L35410_ _L35412_) - (if (gx#stx-pair? _hd3524035394_) - (let ((_e3525735299_ - (gx#syntax-e _hd3524035394_))) - (let ((_tl3525535306_ + (_g3494734987_))))))))) + (_loop3497635030_ _target3497335024_ '())))) + (___match4723147232_ + (lambda (_e3495335095_ + _hd3495235099_ + _tl3495135102_ + _e3495635105_ + _hd3495535109_ + _tl3495435112_ + _e3495935115_ + _hd3495835119_ + _tl3495735122_) + (let ((_L35125_ _hd3495835119_) (_L35127_ _hd3495535109_)) + (if (gx#identifier? _L35127_) + (___kont4720547206_ _L35125_ _L35127_) + (if (gx#stx-pair? _hd3495535109_) + (let ((_e3497235014_ + (gx#syntax-e _hd3495535109_))) + (let ((_tl3497035021_ (let () (declare (not safe)) - (##cdr _e3525735299_))) - (_hd3525635303_ + (##cdr _e3497235014_))) + (_hd3497135018_ (let () (declare (not safe)) - (##car _e3525735299_)))) - (if (gx#stx-pair/null? _tl3523935397_) - (let ((___splice4741747418_ + (##car _e3497235014_)))) + (if (gx#stx-pair/null? _tl3495435112_) + (let ((___splice4720947210_ (gx#syntax-split-splice - _tl3523935397_ + _tl3495435112_ '0))) - (let ((_tl3526035312_ + (let ((_tl3497535027_ (let () (declare (not safe)) (##vector-ref - ___splice4741747418_ + ___splice4720947210_ '1))) - (_target3525835309_ + (_target3497335024_ (let () (declare (not safe)) (##vector-ref - ___splice4741747418_ + ___splice4720947210_ '0)))) - (if (gx#stx-null? _tl3526035312_) - (___match4746547466_ - _e3523835380_ - _hd3523735384_ - _tl3523635387_ - _e3524135390_ - _hd3524035394_ - _tl3523935397_ - _e3525735299_ - _hd3525635303_ - _tl3525535306_ - ___splice4741747418_ - _target3525835309_ - _tl3526035312_) + (if (gx#stx-null? _tl3497535027_) + (___match4725747258_ + _e3495335095_ + _hd3495235099_ + _tl3495135102_ + _e3495635105_ + _hd3495535109_ + _tl3495435112_ + _e3497235014_ + _hd3497135018_ + _tl3497035021_ + ___splice4720947210_ + _target3497335024_ + _tl3497535027_) (let () (declare (not safe)) - (_g3523235272_))))) + (_g3494734987_))))) (let () (declare (not safe)) - (_g3523235272_))))) + (_g3494734987_))))) (let () (declare (not safe)) - (_g3523235272_)))))))) - (if (gx#stx-pair? ___stx4741047411_) - (let ((_e3523835380_ (gx#syntax-e ___stx4741047411_))) - (let ((_tl3523635387_ - (let () (declare (not safe)) (##cdr _e3523835380_))) - (_hd3523735384_ - (let () (declare (not safe)) (##car _e3523835380_)))) - (if (gx#stx-pair? _tl3523635387_) - (let ((_e3524135390_ (gx#syntax-e _tl3523635387_))) - (let ((_tl3523935397_ + (_g3494734987_)))))))) + (if (gx#stx-pair? ___stx4720247203_) + (let ((_e3495335095_ (gx#syntax-e ___stx4720247203_))) + (let ((_tl3495135102_ + (let () (declare (not safe)) (##cdr _e3495335095_))) + (_hd3495235099_ + (let () (declare (not safe)) (##car _e3495335095_)))) + (if (gx#stx-pair? _tl3495135102_) + (let ((_e3495635105_ (gx#syntax-e _tl3495135102_))) + (let ((_tl3495435112_ (let () (declare (not safe)) - (##cdr _e3524135390_))) - (_hd3524035394_ + (##cdr _e3495635105_))) + (_hd3495535109_ (let () (declare (not safe)) - (##car _e3524135390_)))) - (if (gx#stx-pair? _tl3523935397_) - (let ((_e3524435400_ - (gx#syntax-e _tl3523935397_))) - (let ((_tl3524235407_ + (##car _e3495635105_)))) + (if (gx#stx-pair? _tl3495435112_) + (let ((_e3495935115_ + (gx#syntax-e _tl3495435112_))) + (let ((_tl3495735122_ (let () (declare (not safe)) - (##cdr _e3524435400_))) - (_hd3524335404_ + (##cdr _e3495935115_))) + (_hd3495835119_ (let () (declare (not safe)) - (##car _e3524435400_)))) - (if (gx#stx-null? _tl3524235407_) - (___match4743947440_ - _e3523835380_ - _hd3523735384_ - _tl3523635387_ - _e3524135390_ - _hd3524035394_ - _tl3523935397_ - _e3524435400_ - _hd3524335404_ - _tl3524235407_) - (if (gx#stx-pair? _hd3524035394_) - (let ((_e3525735299_ + (##car _e3495935115_)))) + (if (gx#stx-null? _tl3495735122_) + (___match4723147232_ + _e3495335095_ + _hd3495235099_ + _tl3495135102_ + _e3495635105_ + _hd3495535109_ + _tl3495435112_ + _e3495935115_ + _hd3495835119_ + _tl3495735122_) + (if (gx#stx-pair? _hd3495535109_) + (let ((_e3497235014_ (gx#syntax-e - _hd3524035394_))) - (let ((_tl3525535306_ + _hd3495535109_))) + (let ((_tl3497035021_ (let () (declare (not safe)) - (##cdr _e3525735299_))) - (_hd3525635303_ + (##cdr _e3497235014_))) + (_hd3497135018_ (let () (declare (not safe)) - (##car _e3525735299_)))) + (##car _e3497235014_)))) (if (gx#stx-pair/null? - _tl3523935397_) - (let ((___splice4741747418_ + _tl3495435112_) + (let ((___splice4720947210_ (gx#syntax-split-splice - _tl3523935397_ + _tl3495435112_ '0))) - (let ((_tl3526035312_ + (let ((_tl3497535027_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4741747418_ '1))) - (_target3525835309_ + (##vector-ref ___splice4720947210_ '1))) + (_target3497335024_ (let () (declare (not safe)) - (##vector-ref ___splice4741747418_ '0)))) - (if (gx#stx-null? _tl3526035312_) - (___match4746547466_ - _e3523835380_ - _hd3523735384_ - _tl3523635387_ - _e3524135390_ - _hd3524035394_ - _tl3523935397_ - _e3525735299_ - _hd3525635303_ - _tl3525535306_ - ___splice4741747418_ - _target3525835309_ - _tl3526035312_) - (let () (declare (not safe)) (_g3523235272_))))) + (##vector-ref ___splice4720947210_ '0)))) + (if (gx#stx-null? _tl3497535027_) + (___match4725747258_ + _e3495335095_ + _hd3495235099_ + _tl3495135102_ + _e3495635105_ + _hd3495535109_ + _tl3495435112_ + _e3497235014_ + _hd3497135018_ + _tl3497035021_ + ___splice4720947210_ + _target3497335024_ + _tl3497535027_) + (let () (declare (not safe)) (_g3494734987_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3523235272_))))) + (_g3494734987_))))) (let () (declare (not safe)) - (_g3523235272_)))))) - (if (gx#stx-pair? _hd3524035394_) - (let ((_e3525735299_ - (gx#syntax-e _hd3524035394_))) - (let ((_tl3525535306_ + (_g3494734987_)))))) + (if (gx#stx-pair? _hd3495535109_) + (let ((_e3497235014_ + (gx#syntax-e _hd3495535109_))) + (let ((_tl3497035021_ (let () (declare (not safe)) - (##cdr _e3525735299_))) - (_hd3525635303_ + (##cdr _e3497235014_))) + (_hd3497135018_ (let () (declare (not safe)) - (##car _e3525735299_)))) - (if (gx#stx-pair/null? _tl3523935397_) - (let ((___splice4741747418_ + (##car _e3497235014_)))) + (if (gx#stx-pair/null? _tl3495435112_) + (let ((___splice4720947210_ (gx#syntax-split-splice - _tl3523935397_ + _tl3495435112_ '0))) - (let ((_tl3526035312_ + (let ((_tl3497535027_ (let () (declare (not safe)) (##vector-ref - ___splice4741747418_ + ___splice4720947210_ '1))) - (_target3525835309_ + (_target3497335024_ (let () (declare (not safe)) (##vector-ref - ___splice4741747418_ + ___splice4720947210_ '0)))) (if (gx#stx-null? - _tl3526035312_) - (___match4746547466_ - _e3523835380_ - _hd3523735384_ - _tl3523635387_ - _e3524135390_ - _hd3524035394_ - _tl3523935397_ - _e3525735299_ - _hd3525635303_ - _tl3525535306_ - ___splice4741747418_ - _target3525835309_ - _tl3526035312_) + _tl3497535027_) + (___match4725747258_ + _e3495335095_ + _hd3495235099_ + _tl3495135102_ + _e3495635105_ + _hd3495535109_ + _tl3495435112_ + _e3497235014_ + _hd3497135018_ + _tl3497035021_ + ___splice4720947210_ + _target3497335024_ + _tl3497535027_) (let () (declare (not safe)) - (_g3523235272_))))) + (_g3494734987_))))) (let () (declare (not safe)) - (_g3523235272_))))) + (_g3494734987_))))) (let () (declare (not safe)) - (_g3523235272_)))))) - (let () (declare (not safe)) (_g3523235272_))))) - (let () (declare (not safe)) (_g3523235272_)))))))) + (_g3494734987_)))))) + (let () (declare (not safe)) (_g3494734987_))))) + (let () (declare (not safe)) (_g3494734987_)))))))) (define |gerbil/core$[:0:]#for-syntax| (gx#make-import-export-expander - (lambda (_stx35432_) - (let* ((_g3543535455_ - (lambda (_g3543635451_) + (lambda (_stx35147_) + (let* ((_g3515035170_ + (lambda (_g3515135166_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3543635451_))) - (_g3543435526_ - (lambda (_g3543635459_) - (if (gx#stx-pair? _g3543635459_) - (let ((_e3544035462_ (gx#syntax-e _g3543635459_))) - (let ((_hd3543935466_ + _g3515135166_))) + (_g3514935241_ + (lambda (_g3515135174_) + (if (gx#stx-pair? _g3515135174_) + (let ((_e3515535177_ (gx#syntax-e _g3515135174_))) + (let ((_hd3515435181_ (let () (declare (not safe)) - (##car _e3544035462_))) - (_tl3543835469_ + (##car _e3515535177_))) + (_tl3515335184_ (let () (declare (not safe)) - (##cdr _e3544035462_)))) - (if (gx#stx-pair/null? _tl3543835469_) - (let ((_g51117_ + (##cdr _e3515535177_)))) + (if (gx#stx-pair/null? _tl3515335184_) + (let ((_g50878_ (gx#syntax-split-splice - _tl3543835469_ + _tl3515335184_ '0))) (begin - (let ((_g51118_ + (let ((_g50879_ (let () (declare (not safe)) - (if (##values? _g51117_) - (##vector-length _g51117_) + (if (##values? _g50878_) + (##vector-length _g50878_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51118_ 2))) + (##fx= _g50879_ 2))) (error "Context expects 2 values" - _g51118_))) - (let ((_target3544135472_ + _g50879_))) + (let ((_target3515635187_ (let () (declare (not safe)) - (##vector-ref _g51117_ 0))) - (_tl3544335475_ + (##vector-ref _g50878_ 0))) + (_tl3515835190_ (let () (declare (not safe)) - (##vector-ref _g51117_ 1)))) - (if (gx#stx-null? _tl3544335475_) - (letrec ((_loop3544435478_ - (lambda (_hd3544235482_ - _body3544835485_) + (##vector-ref _g50878_ 1)))) + (if (gx#stx-null? _tl3515835190_) + (letrec ((_loop3515935193_ + (lambda (_hd3515735197_ + _body3516335200_) (if (gx#stx-pair? - _hd3544235482_) - (let ((_e3544535488_ + _hd3515735197_) + (let ((_e3516035203_ (gx#syntax-e - _hd3544235482_))) - (let ((_lp-hd3544635492_ + _hd3515735197_))) + (let ((_lp-hd3516135207_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e3544535488_))) - (_lp-tl3544735495_ - (let () (declare (not safe)) (##cdr _e3544535488_)))) - (_loop3544435478_ - _lp-tl3544735495_ + (##car _e3516035203_))) + (_lp-tl3516235210_ + (let () (declare (not safe)) (##cdr _e3516035203_)))) + (_loop3515935193_ + _lp-tl3516235210_ (let () (declare (not safe)) - (cons _lp-hd3544635492_ _body3544835485_))))) - (let ((_body3544935498_ (reverse _body3544835485_))) - ((lambda (_L35502_) - (let ((__tmp51119 - (let ((__tmp51120 - (let ((__tmp51121 - (lambda (_g3551735520_ _g3551835523_) + (cons _lp-hd3516135207_ _body3516335200_))))) + (let ((_body3516435213_ (reverse _body3516335200_))) + ((lambda (_L35217_) + (let ((__tmp50880 + (let ((__tmp50881 + (let ((__tmp50882 + (lambda (_g3523235235_ _g3523335238_) (let () (declare (not safe)) - (cons _g3551735520_ - _g3551835523_))))) + (cons _g3523235235_ + _g3523335238_))))) (declare (not safe)) - (foldr1 __tmp51121 '() _L35502_)))) + (foldr1 __tmp50882 '() _L35217_)))) (declare (not safe)) - (cons '1 __tmp51120)))) + (cons '1 __tmp50881)))) (declare (not safe)) - (cons 'phi: __tmp51119))) - _body3544935498_)))))) + (cons 'phi: __tmp50880))) + _body3516435213_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3544435478_ - _target3544135472_ + (_loop3515935193_ + _target3515635187_ '())) - (_g3543535455_ _g3543635459_))))) - (_g3543535455_ _g3543635459_)))) - (_g3543535455_ _g3543635459_))))) - (_g3543435526_ _stx35432_))))) + (_g3515035170_ _g3515135174_))))) + (_g3515035170_ _g3515135174_)))) + (_g3515035170_ _g3515135174_))))) + (_g3514935241_ _stx35147_))))) (define |gerbil/core$[:0:]#for-template| (gx#make-import-export-expander - (lambda (_stx35531_) - (let* ((_g3553435554_ - (lambda (_g3553535550_) + (lambda (_stx35246_) + (let* ((_g3524935269_ + (lambda (_g3525035265_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3553535550_))) - (_g3553335625_ - (lambda (_g3553535558_) - (if (gx#stx-pair? _g3553535558_) - (let ((_e3553935561_ (gx#syntax-e _g3553535558_))) - (let ((_hd3553835565_ + _g3525035265_))) + (_g3524835340_ + (lambda (_g3525035273_) + (if (gx#stx-pair? _g3525035273_) + (let ((_e3525435276_ (gx#syntax-e _g3525035273_))) + (let ((_hd3525335280_ (let () (declare (not safe)) - (##car _e3553935561_))) - (_tl3553735568_ + (##car _e3525435276_))) + (_tl3525235283_ (let () (declare (not safe)) - (##cdr _e3553935561_)))) - (if (gx#stx-pair/null? _tl3553735568_) - (let ((_g51122_ + (##cdr _e3525435276_)))) + (if (gx#stx-pair/null? _tl3525235283_) + (let ((_g50883_ (gx#syntax-split-splice - _tl3553735568_ + _tl3525235283_ '0))) (begin - (let ((_g51123_ + (let ((_g50884_ (let () (declare (not safe)) - (if (##values? _g51122_) - (##vector-length _g51122_) + (if (##values? _g50883_) + (##vector-length _g50883_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51123_ 2))) + (##fx= _g50884_ 2))) (error "Context expects 2 values" - _g51123_))) - (let ((_target3554035571_ + _g50884_))) + (let ((_target3525535286_ (let () (declare (not safe)) - (##vector-ref _g51122_ 0))) - (_tl3554235574_ + (##vector-ref _g50883_ 0))) + (_tl3525735289_ (let () (declare (not safe)) - (##vector-ref _g51122_ 1)))) - (if (gx#stx-null? _tl3554235574_) - (letrec ((_loop3554335577_ - (lambda (_hd3554135581_ - _body3554735584_) + (##vector-ref _g50883_ 1)))) + (if (gx#stx-null? _tl3525735289_) + (letrec ((_loop3525835292_ + (lambda (_hd3525635296_ + _body3526235299_) (if (gx#stx-pair? - _hd3554135581_) - (let ((_e3554435587_ + _hd3525635296_) + (let ((_e3525935302_ (gx#syntax-e - _hd3554135581_))) - (let ((_lp-hd3554535591_ + _hd3525635296_))) + (let ((_lp-hd3526035306_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e3554435587_))) - (_lp-tl3554635594_ - (let () (declare (not safe)) (##cdr _e3554435587_)))) - (_loop3554335577_ - _lp-tl3554635594_ + (##car _e3525935302_))) + (_lp-tl3526135309_ + (let () (declare (not safe)) (##cdr _e3525935302_)))) + (_loop3525835292_ + _lp-tl3526135309_ (let () (declare (not safe)) - (cons _lp-hd3554535591_ _body3554735584_))))) - (let ((_body3554835597_ (reverse _body3554735584_))) - ((lambda (_L35601_) - (let ((__tmp51124 - (let ((__tmp51125 - (let ((__tmp51126 - (lambda (_g3561635619_ _g3561735622_) + (cons _lp-hd3526035306_ _body3526235299_))))) + (let ((_body3526335312_ (reverse _body3526235299_))) + ((lambda (_L35316_) + (let ((__tmp50885 + (let ((__tmp50886 + (let ((__tmp50887 + (lambda (_g3533135334_ _g3533235337_) (let () (declare (not safe)) - (cons _g3561635619_ - _g3561735622_))))) + (cons _g3533135334_ + _g3533235337_))))) (declare (not safe)) - (foldr1 __tmp51126 '() _L35601_)))) + (foldr1 __tmp50887 '() _L35316_)))) (declare (not safe)) - (cons '-1 __tmp51125)))) + (cons '-1 __tmp50886)))) (declare (not safe)) - (cons 'phi: __tmp51124))) - _body3554835597_)))))) + (cons 'phi: __tmp50885))) + _body3526335312_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3554335577_ - _target3554035571_ + (_loop3525835292_ + _target3525535286_ '())) - (_g3553435554_ _g3553535558_))))) - (_g3553435554_ _g3553535558_)))) - (_g3553435554_ _g3553535558_))))) - (_g3553335625_ _stx35531_))))) + (_g3524935269_ _g3525035273_))))) + (_g3524935269_ _g3525035273_)))) + (_g3524935269_ _g3525035273_))))) + (_g3524835340_ _stx35246_))))) (define |gerbil/core$[:0:]#only-in| (gx#make-import-expander - (lambda (_stx35630_) - (let* ((_g3563335657_ - (lambda (_g3563435653_) + (lambda (_stx35345_) + (let* ((_g3534835372_ + (lambda (_g3534935368_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3563435653_))) - (_g3563235779_ - (lambda (_g3563435661_) - (if (gx#stx-pair? _g3563435661_) - (let ((_e3563935664_ (gx#syntax-e _g3563435661_))) - (let ((_hd3563835668_ + _g3534935368_))) + (_g3534735494_ + (lambda (_g3534935376_) + (if (gx#stx-pair? _g3534935376_) + (let ((_e3535435379_ (gx#syntax-e _g3534935376_))) + (let ((_hd3535335383_ (let () (declare (not safe)) - (##car _e3563935664_))) - (_tl3563735671_ + (##car _e3535435379_))) + (_tl3535235386_ (let () (declare (not safe)) - (##cdr _e3563935664_)))) - (if (gx#stx-pair? _tl3563735671_) - (let ((_e3564235674_ - (gx#syntax-e _tl3563735671_))) - (let ((_hd3564135678_ + (##cdr _e3535435379_)))) + (if (gx#stx-pair? _tl3535235386_) + (let ((_e3535735389_ + (gx#syntax-e _tl3535235386_))) + (let ((_hd3535635393_ (let () (declare (not safe)) - (##car _e3564235674_))) - (_tl3564035681_ + (##car _e3535735389_))) + (_tl3535535396_ (let () (declare (not safe)) - (##cdr _e3564235674_)))) - (if (gx#stx-pair/null? _tl3564035681_) - (let ((_g51127_ + (##cdr _e3535735389_)))) + (if (gx#stx-pair/null? _tl3535535396_) + (let ((_g50888_ (gx#syntax-split-splice - _tl3564035681_ + _tl3535535396_ '0))) (begin - (let ((_g51128_ + (let ((_g50889_ (let () (declare (not safe)) - (if (##values? _g51127_) + (if (##values? _g50888_) (##vector-length - _g51127_) + _g50888_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51128_ 2))) + (##fx= _g50889_ 2))) (error "Context expects 2 values" - _g51128_))) - (let ((_target3564335684_ + _g50889_))) + (let ((_target3535835399_ (let () (declare (not safe)) - (##vector-ref _g51127_ 0))) - (_tl3564535687_ + (##vector-ref _g50888_ 0))) + (_tl3536035402_ (let () (declare (not safe)) - (##vector-ref _g51127_ 1)))) - (if (gx#stx-null? _tl3564535687_) - (letrec ((_loop3564635690_ - (lambda (_hd3564435694_ + (##vector-ref _g50888_ 1)))) + (if (gx#stx-null? _tl3536035402_) + (letrec ((_loop3536135405_ + (lambda (_hd3535935409_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id3565035697_) - (if (gx#stx-pair? _hd3564435694_) - (let ((_e3564735700_ (gx#syntax-e _hd3564435694_))) - (let ((_lp-hd3564835704_ + _id3536535412_) + (if (gx#stx-pair? _hd3535935409_) + (let ((_e3536235415_ (gx#syntax-e _hd3535935409_))) + (let ((_lp-hd3536335419_ (let () (declare (not safe)) - (##car _e3564735700_))) - (_lp-tl3564935707_ + (##car _e3536235415_))) + (_lp-tl3536435422_ (let () (declare (not safe)) - (##cdr _e3564735700_)))) - (_loop3564635690_ - _lp-tl3564935707_ + (##cdr _e3536235415_)))) + (_loop3536135405_ + _lp-tl3536435422_ (let () (declare (not safe)) - (cons _lp-hd3564835704_ _id3565035697_))))) - (let ((_id3565135710_ (reverse _id3565035697_))) - ((lambda (_L35714_ _L35716_) + (cons _lp-hd3536335419_ _id3536535412_))))) + (let ((_id3536635425_ (reverse _id3536535412_))) + ((lambda (_L35429_ _L35431_) (if (gx#identifier-list? - (let ((__tmp51133 - (lambda (_g3573335736_ _g3573435739_) + (let ((__tmp50894 + (lambda (_g3544835451_ _g3544935454_) (let () (declare (not safe)) - (cons _g3573335736_ - _g3573435739_))))) + (cons _g3544835451_ + _g3544935454_))))) (declare (not safe)) - (foldr1 __tmp51133 '() _L35714_))) - (let* ((_keys35750_ + (foldr1 __tmp50894 '() _L35429_))) + (let* ((_keys35465_ (gx#stx-map gx#core-identifier-key - (let ((__tmp51129 - (lambda (_g3574135744_ - _g3574235747_) + (let ((__tmp50890 + (lambda (_g3545635459_ + _g3545735462_) (let () (declare (not safe)) - (cons _g3574135744_ - _g3574235747_))))) + (cons _g3545635459_ + _g3545735462_))))) (declare (not safe)) - (foldr1 __tmp51129 '() _L35714_)))) - (_keytab35761_ - (let ((_ht35753_ + (foldr1 __tmp50890 '() _L35429_)))) + (_keytab35476_ + (let ((_ht35468_ (let () (declare (not safe)) (make-table)))) (for-each - (lambda (_g3575535757_) + (lambda (_g3547035472_) (let () (declare (not safe)) (table-set! - _ht35753_ - _g3575535757_ + _ht35468_ + _g3547035472_ '#t))) - _keys35750_) - _ht35753_)) - (_imports35764_ + _keys35465_) + _ht35468_)) + (_imports35479_ (gx#core-expand-import-source - _L35716_)) - (_fold-e35774_ - (letrec ((_fold-e35767_ - (lambda (_in35770_ _r35772_) + _L35431_)) + (_fold-e35489_ + (letrec ((_fold-e35482_ + (lambda (_in35485_ _r35487_) (if (gx#module-import? - _in35770_) - (if (let ((__tmp51131 + _in35485_) + (if (let ((__tmp50892 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#module-import-name _in35770_))) + (gx#module-import-name _in35485_))) (declare (not safe)) - (table-ref _keytab35761_ __tmp51131 '#f)) - (let () (declare (not safe)) (cons _in35770_ _r35772_)) - _r35772_) - (if (gx#import-set? _in35770_) - (let ((__tmp51130 (gx#import-set-imports _in35770_))) + (table-ref _keytab35476_ __tmp50892 '#f)) + (let () (declare (not safe)) (cons _in35485_ _r35487_)) + _r35487_) + (if (gx#import-set? _in35485_) + (let ((__tmp50891 (gx#import-set-imports _in35485_))) (declare (not safe)) - (foldl1 _fold-e35767_ _r35772_ __tmp51130)) - _r35772_))))) + (foldl1 _fold-e35482_ _r35487_ __tmp50891)) + _r35487_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e35767_))) - (let ((__tmp51132 + _fold-e35482_))) + (let ((__tmp50893 (let () (declare (not safe)) - (foldl1 _fold-e35774_ + (foldl1 _fold-e35489_ '() - _imports35764_)))) + _imports35479_)))) (declare (not safe)) - (cons 'begin: __tmp51132))) - (_g3563335657_ _g3563435661_))) - _id3565135710_ - _hd3564135678_)))))) + (cons 'begin: __tmp50893))) + (_g3534835372_ _g3534935376_))) + _id3536635425_ + _hd3535635393_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3564635690_ - _target3564335684_ + (_loop3536135405_ + _target3535835399_ '())) - (_g3563335657_ - _g3563435661_))))) - (_g3563335657_ _g3563435661_)))) - (_g3563335657_ _g3563435661_)))) - (_g3563335657_ _g3563435661_))))) - (_g3563235779_ _stx35630_))))) + (_g3534835372_ + _g3534935376_))))) + (_g3534835372_ _g3534935376_)))) + (_g3534835372_ _g3534935376_)))) + (_g3534835372_ _g3534935376_))))) + (_g3534735494_ _stx35345_))))) (define |gerbil/core$[:0:]#except-in| (gx#make-import-expander - (lambda (_stx35784_) - (let* ((_g3578735811_ - (lambda (_g3578835807_) + (lambda (_stx35499_) + (let* ((_g3550235526_ + (lambda (_g3550335522_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3578835807_))) - (_g3578635933_ - (lambda (_g3578835815_) - (if (gx#stx-pair? _g3578835815_) - (let ((_e3579335818_ (gx#syntax-e _g3578835815_))) - (let ((_hd3579235822_ + _g3550335522_))) + (_g3550135648_ + (lambda (_g3550335530_) + (if (gx#stx-pair? _g3550335530_) + (let ((_e3550835533_ (gx#syntax-e _g3550335530_))) + (let ((_hd3550735537_ (let () (declare (not safe)) - (##car _e3579335818_))) - (_tl3579135825_ + (##car _e3550835533_))) + (_tl3550635540_ (let () (declare (not safe)) - (##cdr _e3579335818_)))) - (if (gx#stx-pair? _tl3579135825_) - (let ((_e3579635828_ - (gx#syntax-e _tl3579135825_))) - (let ((_hd3579535832_ + (##cdr _e3550835533_)))) + (if (gx#stx-pair? _tl3550635540_) + (let ((_e3551135543_ + (gx#syntax-e _tl3550635540_))) + (let ((_hd3551035547_ (let () (declare (not safe)) - (##car _e3579635828_))) - (_tl3579435835_ + (##car _e3551135543_))) + (_tl3550935550_ (let () (declare (not safe)) - (##cdr _e3579635828_)))) - (if (gx#stx-pair/null? _tl3579435835_) - (let ((_g51134_ + (##cdr _e3551135543_)))) + (if (gx#stx-pair/null? _tl3550935550_) + (let ((_g50895_ (gx#syntax-split-splice - _tl3579435835_ + _tl3550935550_ '0))) (begin - (let ((_g51135_ + (let ((_g50896_ (let () (declare (not safe)) - (if (##values? _g51134_) + (if (##values? _g50895_) (##vector-length - _g51134_) + _g50895_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51135_ 2))) + (##fx= _g50896_ 2))) (error "Context expects 2 values" - _g51135_))) - (let ((_target3579735838_ + _g50896_))) + (let ((_target3551235553_ (let () (declare (not safe)) - (##vector-ref _g51134_ 0))) - (_tl3579935841_ + (##vector-ref _g50895_ 0))) + (_tl3551435556_ (let () (declare (not safe)) - (##vector-ref _g51134_ 1)))) - (if (gx#stx-null? _tl3579935841_) - (letrec ((_loop3580035844_ - (lambda (_hd3579835848_ + (##vector-ref _g50895_ 1)))) + (if (gx#stx-null? _tl3551435556_) + (letrec ((_loop3551535559_ + (lambda (_hd3551335563_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id3580435851_) - (if (gx#stx-pair? _hd3579835848_) - (let ((_e3580135854_ (gx#syntax-e _hd3579835848_))) - (let ((_lp-hd3580235858_ + _id3551935566_) + (if (gx#stx-pair? _hd3551335563_) + (let ((_e3551635569_ (gx#syntax-e _hd3551335563_))) + (let ((_lp-hd3551735573_ (let () (declare (not safe)) - (##car _e3580135854_))) - (_lp-tl3580335861_ + (##car _e3551635569_))) + (_lp-tl3551835576_ (let () (declare (not safe)) - (##cdr _e3580135854_)))) - (_loop3580035844_ - _lp-tl3580335861_ + (##cdr _e3551635569_)))) + (_loop3551535559_ + _lp-tl3551835576_ (let () (declare (not safe)) - (cons _lp-hd3580235858_ _id3580435851_))))) - (let ((_id3580535864_ (reverse _id3580435851_))) - ((lambda (_L35868_ _L35870_) + (cons _lp-hd3551735573_ _id3551935566_))))) + (let ((_id3552035579_ (reverse _id3551935566_))) + ((lambda (_L35583_ _L35585_) (if (gx#identifier-list? - (let ((__tmp51140 - (lambda (_g3588735890_ _g3588835893_) + (let ((__tmp50901 + (lambda (_g3560235605_ _g3560335608_) (let () (declare (not safe)) - (cons _g3588735890_ - _g3588835893_))))) + (cons _g3560235605_ + _g3560335608_))))) (declare (not safe)) - (foldr1 __tmp51140 '() _L35868_))) - (let* ((_keys35904_ + (foldr1 __tmp50901 '() _L35583_))) + (let* ((_keys35619_ (gx#stx-map gx#core-identifier-key - (let ((__tmp51136 - (lambda (_g3589535898_ - _g3589635901_) + (let ((__tmp50897 + (lambda (_g3561035613_ + _g3561135616_) (let () (declare (not safe)) - (cons _g3589535898_ - _g3589635901_))))) + (cons _g3561035613_ + _g3561135616_))))) (declare (not safe)) - (foldr1 __tmp51136 '() _L35868_)))) - (_keytab35915_ - (let ((_ht35907_ + (foldr1 __tmp50897 '() _L35583_)))) + (_keytab35630_ + (let ((_ht35622_ (let () (declare (not safe)) (make-table)))) (for-each - (lambda (_g3590935911_) + (lambda (_g3562435626_) (let () (declare (not safe)) (table-set! - _ht35907_ - _g3590935911_ + _ht35622_ + _g3562435626_ '#t))) - _keys35904_) - _ht35907_)) - (_imports35918_ + _keys35619_) + _ht35622_)) + (_imports35633_ (gx#core-expand-import-source - _L35870_)) - (_fold-e35928_ - (letrec ((_fold-e35921_ - (lambda (_in35924_ _r35926_) + _L35585_)) + (_fold-e35643_ + (letrec ((_fold-e35636_ + (lambda (_in35639_ _r35641_) (if (gx#module-import? - _in35924_) - (if (let ((__tmp51138 + _in35639_) + (if (let ((__tmp50899 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#module-import-name _in35924_))) + (gx#module-import-name _in35639_))) (declare (not safe)) - (table-ref _keytab35915_ __tmp51138 '#f)) - _r35926_ - (let () (declare (not safe)) (cons _in35924_ _r35926_))) - (if (gx#import-set? _in35924_) - (let ((__tmp51137 (gx#import-set-imports _in35924_))) + (table-ref _keytab35630_ __tmp50899 '#f)) + _r35641_ + (let () (declare (not safe)) (cons _in35639_ _r35641_))) + (if (gx#import-set? _in35639_) + (let ((__tmp50898 (gx#import-set-imports _in35639_))) (declare (not safe)) - (foldl1 _fold-e35921_ _r35926_ __tmp51137)) + (foldl1 _fold-e35636_ _r35641_ __tmp50898)) (let () (declare (not safe)) - (cons _in35924_ _r35926_))))))) + (cons _in35639_ _r35641_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e35921_))) - (let ((__tmp51139 + _fold-e35636_))) + (let ((__tmp50900 (let () (declare (not safe)) - (foldl1 _fold-e35928_ + (foldl1 _fold-e35643_ '() - _imports35918_)))) + _imports35633_)))) (declare (not safe)) - (cons 'begin: __tmp51139))) - (_g3578735811_ _g3578835815_))) - _id3580535864_ - _hd3579535832_)))))) + (cons 'begin: __tmp50900))) + (_g3550235526_ _g3550335530_))) + _id3552035579_ + _hd3551035547_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3580035844_ - _target3579735838_ + (_loop3551535559_ + _target3551235553_ '())) - (_g3578735811_ - _g3578835815_))))) - (_g3578735811_ _g3578835815_)))) - (_g3578735811_ _g3578835815_)))) - (_g3578735811_ _g3578835815_))))) - (_g3578635933_ _stx35784_))))) + (_g3550235526_ + _g3550335530_))))) + (_g3550235526_ _g3550335530_)))) + (_g3550235526_ _g3550335530_)))) + (_g3550235526_ _g3550335530_))))) + (_g3550135648_ _stx35499_))))) (define |gerbil/core$[1]#module-import-rename| - (lambda (_in35985_ _rename35987_) + (lambda (_in35700_ _rename35702_) (gx#make-module-import - (gx#module-import-source _in35985_) - _rename35987_ - (gx#module-import-phi _in35985_) - (gx#module-import-weak? _in35985_)))) + (gx#module-import-source _in35700_) + _rename35702_ + (gx#module-import-phi _in35700_) + (gx#module-import-weak? _in35700_)))) (define |gerbil/core$[1]#prefix-identifier-key| - (lambda (_name35938_ _pre35940_) - (let* ((_name3594135949_ _name35938_) - (_else3594335961_ - (lambda () (make-symbol _pre35940_ _name35938_))) - (_K3594535969_ - (lambda (_mark35965_ _id35967_) - (let ((__tmp51141 (make-symbol _pre35940_ _id35967_))) + (lambda (_name35653_ _pre35655_) + (let* ((_name3565635664_ _name35653_) + (_else3565835676_ + (lambda () (make-symbol _pre35655_ _name35653_))) + (_K3566035684_ + (lambda (_mark35680_ _id35682_) + (let ((__tmp50902 (make-symbol _pre35655_ _id35682_))) (declare (not safe)) - (cons __tmp51141 _mark35965_))))) - (if (let () (declare (not safe)) (##pair? _name3594135949_)) - (let ((_hd3594635973_ - (let () (declare (not safe)) (##car _name3594135949_))) - (_tl3594735976_ - (let () (declare (not safe)) (##cdr _name3594135949_)))) - (let* ((_id35979_ _hd3594635973_) (_mark35982_ _tl3594735976_)) + (cons __tmp50902 _mark35680_))))) + (if (let () (declare (not safe)) (##pair? _name3565635664_)) + (let ((_hd3566135688_ + (let () (declare (not safe)) (##car _name3565635664_))) + (_tl3566235691_ + (let () (declare (not safe)) (##cdr _name3565635664_)))) + (let* ((_id35694_ _hd3566135688_) (_mark35697_ _tl3566235691_)) (declare (not safe)) - (_K3594535969_ _mark35982_ _id35979_))) - (let () (declare (not safe)) (_else3594335961_)))))) + (_K3566035684_ _mark35697_ _id35694_))) + (let () (declare (not safe)) (_else3565835676_)))))) (define |gerbil/core$[:0:]#rename-in| (gx#make-import-expander - (lambda (_stx35989_) - (let* ((_g3599236025_ - (lambda (_g3599336021_) + (lambda (_stx35704_) + (let* ((_g3570735740_ + (lambda (_g3570835736_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3599336021_))) - (_g3599136211_ - (lambda (_g3599336029_) - (if (gx#stx-pair? _g3599336029_) - (let ((_e3599936032_ (gx#syntax-e _g3599336029_))) - (let ((_hd3599836036_ + _g3570835736_))) + (_g3570635926_ + (lambda (_g3570835744_) + (if (gx#stx-pair? _g3570835744_) + (let ((_e3571435747_ (gx#syntax-e _g3570835744_))) + (let ((_hd3571335751_ (let () (declare (not safe)) - (##car _e3599936032_))) - (_tl3599736039_ + (##car _e3571435747_))) + (_tl3571235754_ (let () (declare (not safe)) - (##cdr _e3599936032_)))) - (if (gx#stx-pair? _tl3599736039_) - (let ((_e3600236042_ - (gx#syntax-e _tl3599736039_))) - (let ((_hd3600136046_ + (##cdr _e3571435747_)))) + (if (gx#stx-pair? _tl3571235754_) + (let ((_e3571735757_ + (gx#syntax-e _tl3571235754_))) + (let ((_hd3571635761_ (let () (declare (not safe)) - (##car _e3600236042_))) - (_tl3600036049_ + (##car _e3571735757_))) + (_tl3571535764_ (let () (declare (not safe)) - (##cdr _e3600236042_)))) - (if (gx#stx-pair/null? _tl3600036049_) - (let ((_g51142_ + (##cdr _e3571735757_)))) + (if (gx#stx-pair/null? _tl3571535764_) + (let ((_g50903_ (gx#syntax-split-splice - _tl3600036049_ + _tl3571535764_ '0))) (begin - (let ((_g51143_ + (let ((_g50904_ (let () (declare (not safe)) - (if (##values? _g51142_) + (if (##values? _g50903_) (##vector-length - _g51142_) + _g50903_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51143_ 2))) + (##fx= _g50904_ 2))) (error "Context expects 2 values" - _g51143_))) - (let ((_target3600336052_ + _g50904_))) + (let ((_target3571835767_ (let () (declare (not safe)) - (##vector-ref _g51142_ 0))) - (_tl3600536055_ + (##vector-ref _g50903_ 0))) + (_tl3572035770_ (let () (declare (not safe)) - (##vector-ref _g51142_ 1)))) - (if (gx#stx-null? _tl3600536055_) - (letrec ((_loop3600636058_ - (lambda (_hd3600436062_ + (##vector-ref _g50903_ 1)))) + (if (gx#stx-null? _tl3572035770_) + (letrec ((_loop3572135773_ + (lambda (_hd3571935777_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _new-id3601036065_ - _id3601136067_) - (if (gx#stx-pair? _hd3600436062_) - (let ((_e3600736070_ (gx#syntax-e _hd3600436062_))) - (let ((_lp-hd3600836074_ + _new-id3572535780_ + _id3572635782_) + (if (gx#stx-pair? _hd3571935777_) + (let ((_e3572235785_ (gx#syntax-e _hd3571935777_))) + (let ((_lp-hd3572335789_ (let () (declare (not safe)) - (##car _e3600736070_))) - (_lp-tl3600936077_ + (##car _e3572235785_))) + (_lp-tl3572435792_ (let () (declare (not safe)) - (##cdr _e3600736070_)))) - (if (gx#stx-pair? _lp-hd3600836074_) - (let ((_e3601636080_ - (gx#syntax-e _lp-hd3600836074_))) - (let ((_hd3601536084_ + (##cdr _e3572235785_)))) + (if (gx#stx-pair? _lp-hd3572335789_) + (let ((_e3573135795_ + (gx#syntax-e _lp-hd3572335789_))) + (let ((_hd3573035799_ (let () (declare (not safe)) - (##car _e3601636080_))) - (_tl3601436087_ + (##car _e3573135795_))) + (_tl3572935802_ (let () (declare (not safe)) - (##cdr _e3601636080_)))) - (if (gx#stx-pair? _tl3601436087_) - (let ((_e3601936090_ - (gx#syntax-e _tl3601436087_))) - (let ((_hd3601836094_ + (##cdr _e3573135795_)))) + (if (gx#stx-pair? _tl3572935802_) + (let ((_e3573435805_ + (gx#syntax-e _tl3572935802_))) + (let ((_hd3573335809_ (let () (declare (not safe)) - (##car _e3601936090_))) - (_tl3601736097_ + (##car _e3573435805_))) + (_tl3573235812_ (let () (declare (not safe)) - (##cdr _e3601936090_)))) - (if (gx#stx-null? _tl3601736097_) - (_loop3600636058_ - _lp-tl3600936077_ + (##cdr _e3573435805_)))) + (if (gx#stx-null? _tl3573235812_) + (_loop3572135773_ + _lp-tl3572435792_ (let () (declare (not safe)) - (cons _hd3601836094_ - _new-id3601036065_)) + (cons _hd3573335809_ + _new-id3572535780_)) (let () (declare (not safe)) - (cons _hd3601536084_ - _id3601136067_))) - (_g3599236025_ _g3599336029_)))) - (_g3599236025_ _g3599336029_)))) - (_g3599236025_ _g3599336029_)))) - (let ((_new-id3601236100_ (reverse _new-id3601036065_)) - (_id3601336103_ (reverse _id3601136067_))) - ((lambda (_L36106_ _L36108_ _L36109_) + (cons _hd3573035799_ + _id3572635782_))) + (_g3570735740_ _g3570835744_)))) + (_g3570735740_ _g3570835744_)))) + (_g3570735740_ _g3570835744_)))) + (let ((_new-id3572735815_ (reverse _new-id3572535780_)) + (_id3572835818_ (reverse _id3572635782_))) + ((lambda (_L35821_ _L35823_ _L35824_) (if (and (gx#identifier-list? - (let ((__tmp51154 - (lambda (_g3612736130_ - _g3612836133_) + (let ((__tmp50915 + (lambda (_g3584235845_ + _g3584335848_) (let () (declare (not safe)) - (cons _g3612736130_ - _g3612836133_))))) + (cons _g3584235845_ + _g3584335848_))))) (declare (not safe)) - (foldr1 __tmp51154 '() _L36108_))) + (foldr1 __tmp50915 '() _L35823_))) (gx#identifier-list? - (let ((__tmp51153 - (lambda (_g3613536138_ - _g3613636141_) + (let ((__tmp50914 + (lambda (_g3585035853_ + _g3585135856_) (let () (declare (not safe)) - (cons _g3613536138_ - _g3613636141_))))) + (cons _g3585035853_ + _g3585135856_))))) (declare (not safe)) - (foldr1 __tmp51153 '() _L36106_)))) - (let* ((_keytab36144_ + (foldr1 __tmp50914 '() _L35821_)))) + (let* ((_keytab35859_ (let () (declare (not safe)) (make-table))) - (_found36147_ + (_found35862_ (let () (declare (not safe)) (make-table))) - (_g51148_ + (_g50909_ (for-each - (lambda (_id36150_ _new-id36152_) - (let ((__tmp51145 + (lambda (_id35865_ _new-id35867_) + (let ((__tmp50906 (gx#core-identifier-key - _id36150_)) - (__tmp51144 + _id35865_)) + (__tmp50905 (gx#core-identifier-key - _new-id36152_))) + _new-id35867_))) (declare (not safe)) (table-set! - _keytab36144_ - __tmp51145 - __tmp51144))) - (let ((__tmp51146 - (lambda (_g3615336156_ - _g3615436159_) + _keytab35859_ + __tmp50906 + __tmp50905))) + (let ((__tmp50907 + (lambda (_g3586835871_ + _g3586935874_) (let () (declare (not safe)) - (cons _g3615336156_ - _g3615436159_))))) + (cons _g3586835871_ + _g3586935874_))))) (declare (not safe)) - (foldr1 __tmp51146 '() _L36108_)) - (let ((__tmp51147 - (lambda (_g3616136164_ - _g3616236167_) + (foldr1 __tmp50907 '() _L35823_)) + (let ((__tmp50908 + (lambda (_g3587635879_ + _g3587735882_) (let () (declare (not safe)) - (cons _g3616136164_ - _g3616236167_))))) + (cons _g3587635879_ + _g3587735882_))))) (declare (not safe)) - (foldr1 __tmp51147 '() _L36106_)))) - (_imports36172_ + (foldr1 __tmp50908 '() _L35821_)))) + (_imports35887_ (gx#core-expand-import-source - _L36109_)) - (_fold-e36192_ - (letrec ((_fold-e36175_ - (lambda (_in36178_ _r36180_) + _L35824_)) + (_fold-e35907_ + (letrec ((_fold-e35890_ + (lambda (_in35893_ _r35895_) (if (gx#module-import? - _in36178_) - (let* ((_name36182_ + _in35893_) + (let* ((_name35897_ (gx#module-import-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in36178_)) - (_$e36185_ + _in35893_)) + (_$e35900_ (let () (declare (not safe)) - (table-ref _keytab36144_ _name36182_ '#f)))) - (if _$e36185_ - ((lambda (_rename36189_) + (table-ref _keytab35859_ _name35897_ '#f)))) + (if _$e35900_ + ((lambda (_rename35904_) (let () (declare (not safe)) - (table-set! _found36147_ _name36182_ '#t)) - (let ((__tmp51150 + (table-set! _found35862_ _name35897_ '#t)) + (let ((__tmp50911 (let () (declare (not safe)) (|gerbil/core$[1]#module-import-rename| - _in36178_ - _rename36189_)))) + _in35893_ + _rename35904_)))) (declare (not safe)) - (cons __tmp51150 _r36180_))) - _$e36185_) - (let () (declare (not safe)) (cons _in36178_ _r36180_)))) - (if (gx#import-set? _in36178_) - (let ((__tmp51149 (gx#import-set-imports _in36178_))) + (cons __tmp50911 _r35895_))) + _$e35900_) + (let () (declare (not safe)) (cons _in35893_ _r35895_)))) + (if (gx#import-set? _in35893_) + (let ((__tmp50910 (gx#import-set-imports _in35893_))) (declare (not safe)) - (foldl1 _fold-e36175_ _r36180_ __tmp51149)) + (foldl1 _fold-e35890_ _r35895_ __tmp50910)) (let () (declare (not safe)) - (cons _in36178_ _r36180_))))))) + (cons _in35893_ _r35895_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e36175_)) - (_new-imports36195_ + _fold-e35890_)) + (_new-imports35910_ (let () (declare (not safe)) - (foldl1 _fold-e36192_ + (foldl1 _fold-e35907_ '() - _imports36172_)))) + _imports35887_)))) (for-each - (lambda (_id36200_) - (if (let ((__tmp51151 + (lambda (_id35915_) + (if (let ((__tmp50912 (gx#core-identifier-key - _id36200_))) + _id35915_))) (declare (not safe)) (table-ref - _found36147_ - __tmp51151 + _found35862_ + __tmp50912 '#f)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the import set" - _stx35989_ - _id36200_))) - (let ((__tmp51152 - (lambda (_g3620236205_ _g3620336208_) + _stx35704_ + _id35915_))) + (let ((__tmp50913 + (lambda (_g3591735920_ _g3591835923_) (let () (declare (not safe)) - (cons _g3620236205_ - _g3620336208_))))) + (cons _g3591735920_ + _g3591835923_))))) (declare (not safe)) - (foldr1 __tmp51152 '() _L36108_))) + (foldr1 __tmp50913 '() _L35823_))) (let () (declare (not safe)) - (cons 'begin: _new-imports36195_))) - (_g3599236025_ _g3599336029_))) - _new-id3601236100_ - _id3601336103_ - _hd3600136046_)))))) + (cons 'begin: _new-imports35910_))) + (_g3570735740_ _g3570835744_))) + _new-id3572735815_ + _id3572835818_ + _hd3571635761_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3600636058_ - _target3600336052_ + (_loop3572135773_ + _target3571835767_ '() '())) - (_g3599236025_ - _g3599336029_))))) - (_g3599236025_ _g3599336029_)))) - (_g3599236025_ _g3599336029_)))) - (_g3599236025_ _g3599336029_))))) - (_g3599136211_ _stx35989_))))) + (_g3570735740_ + _g3570835744_))))) + (_g3570735740_ _g3570835744_)))) + (_g3570735740_ _g3570835744_)))) + (_g3570735740_ _g3570835744_))))) + (_g3570635926_ _stx35704_))))) (define |gerbil/core$[:0:]#prefix-in| (gx#make-import-expander - (lambda (_stx36217_) - (let* ((_g3622036238_ - (lambda (_g3622136234_) + (lambda (_stx35932_) + (let* ((_g3593535953_ + (lambda (_g3593635949_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3622136234_))) - (_g3621936317_ - (lambda (_g3622136242_) - (if (gx#stx-pair? _g3622136242_) - (let ((_e3622636245_ (gx#syntax-e _g3622136242_))) - (let ((_hd3622536249_ + _g3593635949_))) + (_g3593436032_ + (lambda (_g3593635957_) + (if (gx#stx-pair? _g3593635957_) + (let ((_e3594135960_ (gx#syntax-e _g3593635957_))) + (let ((_hd3594035964_ (let () (declare (not safe)) - (##car _e3622636245_))) - (_tl3622436252_ + (##car _e3594135960_))) + (_tl3593935967_ (let () (declare (not safe)) - (##cdr _e3622636245_)))) - (if (gx#stx-pair? _tl3622436252_) - (let ((_e3622936255_ - (gx#syntax-e _tl3622436252_))) - (let ((_hd3622836259_ + (##cdr _e3594135960_)))) + (if (gx#stx-pair? _tl3593935967_) + (let ((_e3594435970_ + (gx#syntax-e _tl3593935967_))) + (let ((_hd3594335974_ (let () (declare (not safe)) - (##car _e3622936255_))) - (_tl3622736262_ + (##car _e3594435970_))) + (_tl3594235977_ (let () (declare (not safe)) - (##cdr _e3622936255_)))) - (if (gx#stx-pair? _tl3622736262_) - (let ((_e3623236265_ - (gx#syntax-e _tl3622736262_))) - (let ((_hd3623136269_ + (##cdr _e3594435970_)))) + (if (gx#stx-pair? _tl3594235977_) + (let ((_e3594735980_ + (gx#syntax-e _tl3594235977_))) + (let ((_hd3594635984_ (let () (declare (not safe)) - (##car _e3623236265_))) - (_tl3623036272_ + (##car _e3594735980_))) + (_tl3594535987_ (let () (declare (not safe)) - (##cdr _e3623236265_)))) - (if (gx#stx-null? _tl3623036272_) - ((lambda (_L36275_ _L36277_) - (if (gx#identifier? _L36275_) - (let* ((_pre36293_ + (##cdr _e3594735980_)))) + (if (gx#stx-null? _tl3594535987_) + ((lambda (_L35990_ _L35992_) + (if (gx#identifier? _L35990_) + (let* ((_pre36008_ (gx#stx-e - _L36275_)) - (_imports36296_ + _L35990_)) + (_imports36011_ (gx#core-expand-import-source - _L36277_)) - (_rename-e36302_ - (lambda (_name36299_) + _L35992_)) + (_rename-e36017_ + (lambda (_name36014_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (|gerbil/core$[1]#prefix-identifier-key| - _name36299_ - _pre36293_)))) - (_fold-e36312_ - (letrec ((_fold-e36305_ - (lambda (_in36308_ _r36310_) - (if (gx#module-import? _in36308_) - (let ((__tmp51156 - (let ((__tmp51157 - (_rename-e36302_ + _name36014_ + _pre36008_)))) + (_fold-e36027_ + (letrec ((_fold-e36020_ + (lambda (_in36023_ _r36025_) + (if (gx#module-import? _in36023_) + (let ((__tmp50917 + (let ((__tmp50918 + (_rename-e36017_ (gx#module-import-name - _in36308_)))) + _in36023_)))) (declare (not safe)) (|gerbil/core$[1]#module-import-rename| - _in36308_ - __tmp51157)))) + _in36023_ + __tmp50918)))) (declare (not safe)) - (cons __tmp51156 _r36310_)) - (if (gx#import-set? _in36308_) - (let ((__tmp51155 + (cons __tmp50917 _r36025_)) + (if (gx#import-set? _in36023_) + (let ((__tmp50916 (gx#import-set-imports - _in36308_))) + _in36023_))) (declare (not safe)) - (foldl1 _fold-e36305_ - _r36310_ - __tmp51155)) + (foldl1 _fold-e36020_ + _r36025_ + __tmp50916)) (let () (declare (not safe)) - (cons _in36308_ _r36310_))))))) - _fold-e36305_))) - (let ((__tmp51158 + (cons _in36023_ _r36025_))))))) + _fold-e36020_))) + (let ((__tmp50919 (let () (declare (not safe)) - (foldl1 _fold-e36312_ '() _imports36296_)))) + (foldl1 _fold-e36027_ '() _imports36011_)))) (declare (not safe)) - (cons 'begin: __tmp51158))) + (cons 'begin: __tmp50919))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3622036238_ - _g3622136242_))) - _hd3623136269_ - _hd3622836259_) - (_g3622036238_ _g3622136242_)))) - (_g3622036238_ _g3622136242_)))) - (_g3622036238_ _g3622136242_)))) - (_g3622036238_ _g3622136242_))))) - (_g3621936317_ _stx36217_))))) + (_g3593535953_ + _g3593635957_))) + _hd3594635984_ + _hd3594335974_) + (_g3593535953_ _g3593635957_)))) + (_g3593535953_ _g3593635957_)))) + (_g3593535953_ _g3593635957_)))) + (_g3593535953_ _g3593635957_))))) + (_g3593436032_ _stx35932_))))) (define |gerbil/core$[:0:]#group-in| (gx#make-import-expander - (lambda (_stx36321_) - (letrec ((_flatten36324_ - (lambda (_list-of-lists36579_) - (let ((__tmp51159 - (lambda (_v36582_ _acc36584_) - (if (let () (declare (not safe)) (null? _v36582_)) - _acc36584_ + (lambda (_stx36036_) + (letrec ((_flatten36039_ + (lambda (_list-of-lists36294_) + (let ((__tmp50920 + (lambda (_v36297_ _acc36299_) + (if (let () (declare (not safe)) (null? _v36297_)) + _acc36299_ (if (let () (declare (not safe)) - (pair? _v36582_)) - (append (_flatten36324_ _v36582_) - _acc36584_) + (pair? _v36297_)) + (append (_flatten36039_ _v36297_) + _acc36299_) (let () (declare (not safe)) - (cons _v36582_ _acc36584_))))))) + (cons _v36297_ _acc36299_))))))) (declare (not safe)) - (foldr1 __tmp51159 '() _list-of-lists36579_)))) - (_expand-path36326_ - (lambda (_top36447_ _mod36449_) - (let* ((___stx4746847469_ _mod36449_) - (_g3645236474_ + (foldr1 __tmp50920 '() _list-of-lists36294_)))) + (_expand-path36041_ + (lambda (_top36162_ _mod36164_) + (let* ((___stx4726047261_ _mod36164_) + (_g3616736189_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4746847469_)))) - (let ((___kont4747147472_ - (lambda (_L36542_ _L36544_) - (map (lambda (_mod36559_) + ___stx4726047261_)))) + (let ((___kont4726347264_ + (lambda (_L36257_ _L36259_) + (map (lambda (_mod36274_) (gx#stx-identifier - _top36447_ - _top36447_ + _top36162_ + _top36162_ '"/" - _mod36559_)) - (_flatten36324_ - (map (lambda (_g3656136563_) - (_expand-path36326_ - _L36544_ - _g3656136563_)) - (let ((__tmp51160 - (lambda (_g3656636569_ - _g3656736572_) + _mod36274_)) + (_flatten36039_ + (map (lambda (_g3627636278_) + (_expand-path36041_ + _L36259_ + _g3627636278_)) + (let ((__tmp50921 + (lambda (_g3628136284_ + _g3628236287_) (let () (declare (not safe)) - (cons _g3656636569_ - _g3656736572_))))) + (cons _g3628136284_ + _g3628236287_))))) (declare (not safe)) - (foldr1 __tmp51160 + (foldr1 __tmp50921 '() - _L36542_))))))) - (___kont4747547476_ - (lambda (_L36481_) + _L36257_))))))) + (___kont4726747268_ + (lambda (_L36196_) (gx#stx-identifier - _top36447_ - _top36447_ + _top36162_ + _top36162_ '"/" - _L36481_)))) - (let* ((_g3645136495_ + _L36196_)))) + (let* ((_g3616636210_ (lambda () - (let ((_L36481_ ___stx4746847469_)) - (if (or (gx#identifier? _L36481_) - (gx#stx-fixnum? _L36481_)) - (___kont4747547476_ _L36481_) + (let ((_L36196_ ___stx4726047261_)) + (if (or (gx#identifier? _L36196_) + (gx#stx-fixnum? _L36196_)) + (___kont4726747268_ _L36196_) (let () (declare (not safe)) - (_g3645236474_)))))) - (___match4749147492_ - (lambda (_e3645836502_ - _hd3645736506_ - _tl3645636509_ - ___splice4747347474_ - _target3645936512_ - _tl3646136515_) - (letrec ((_loop3646236518_ - (lambda (_hd3646036522_ - _mod3646636525_) - (if (gx#stx-pair? _hd3646036522_) - (let ((_e3646336528_ + (_g3616736189_)))))) + (___match4728347284_ + (lambda (_e3617336217_ + _hd3617236221_ + _tl3617136224_ + ___splice4726547266_ + _target3617436227_ + _tl3617636230_) + (letrec ((_loop3617736233_ + (lambda (_hd3617536237_ + _mod3618136240_) + (if (gx#stx-pair? _hd3617536237_) + (let ((_e3617836243_ (gx#syntax-e - _hd3646036522_))) - (let ((_lp-tl3646536535_ + _hd3617536237_))) + (let ((_lp-tl3618036250_ (let () (declare (not safe)) - (##cdr _e3646336528_))) - (_lp-hd3646436532_ + (##cdr _e3617836243_))) + (_lp-hd3617936247_ (let () (declare (not safe)) - (##car _e3646336528_)))) - (_loop3646236518_ - _lp-tl3646536535_ + (##car _e3617836243_)))) + (_loop3617736233_ + _lp-tl3618036250_ (let () (declare (not safe)) - (cons _lp-hd3646436532_ - _mod3646636525_))))) - (let ((_mod3646736538_ - (reverse _mod3646636525_))) - (___kont4747147472_ - _mod3646736538_ - _hd3645736506_)))))) - (_loop3646236518_ - _target3645936512_ + (cons _lp-hd3617936247_ + _mod3618136240_))))) + (let ((_mod3618236253_ + (reverse _mod3618136240_))) + (___kont4726347264_ + _mod3618236253_ + _hd3617236221_)))))) + (_loop3617736233_ + _target3617436227_ '()))))) - (if (gx#stx-pair? ___stx4746847469_) - (let ((_e3645836502_ - (gx#syntax-e ___stx4746847469_))) - (let ((_tl3645636509_ + (if (gx#stx-pair? ___stx4726047261_) + (let ((_e3617336217_ + (gx#syntax-e ___stx4726047261_))) + (let ((_tl3617136224_ (let () (declare (not safe)) - (##cdr _e3645836502_))) - (_hd3645736506_ + (##cdr _e3617336217_))) + (_hd3617236221_ (let () (declare (not safe)) - (##car _e3645836502_)))) - (if (gx#stx-pair/null? _tl3645636509_) - (let ((___splice4747347474_ + (##car _e3617336217_)))) + (if (gx#stx-pair/null? _tl3617136224_) + (let ((___splice4726547266_ (gx#syntax-split-splice - _tl3645636509_ + _tl3617136224_ '0))) - (let ((_tl3646136515_ + (let ((_tl3617636230_ (let () (declare (not safe)) (##vector-ref - ___splice4747347474_ + ___splice4726547266_ '1))) - (_target3645936512_ + (_target3617436227_ (let () (declare (not safe)) (##vector-ref - ___splice4747347474_ + ___splice4726547266_ '0)))) - (if (gx#stx-null? _tl3646136515_) - (___match4749147492_ - _e3645836502_ - _hd3645736506_ - _tl3645636509_ - ___splice4747347474_ - _target3645936512_ - _tl3646136515_) + (if (gx#stx-null? _tl3617636230_) + (___match4728347284_ + _e3617336217_ + _hd3617236221_ + _tl3617136224_ + ___splice4726547266_ + _target3617436227_ + _tl3617636230_) (let () (declare (not safe)) - (_g3645136495_))))) + (_g3616636210_))))) (let () (declare (not safe)) - (_g3645136495_))))) + (_g3616636210_))))) (let () (declare (not safe)) - (_g3645136495_))))))))) - (let* ((_g3632836352_ - (lambda (_g3632936348_) + (_g3616636210_))))))))) + (let* ((_g3604336067_ + (lambda (_g3604436063_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3632936348_))) - (_g3632736443_ - (lambda (_g3632936356_) - (if (gx#stx-pair? _g3632936356_) - (let ((_e3633436359_ (gx#syntax-e _g3632936356_))) - (let ((_hd3633336363_ + _g3604436063_))) + (_g3604236158_ + (lambda (_g3604436071_) + (if (gx#stx-pair? _g3604436071_) + (let ((_e3604936074_ (gx#syntax-e _g3604436071_))) + (let ((_hd3604836078_ (let () (declare (not safe)) - (##car _e3633436359_))) - (_tl3633236366_ + (##car _e3604936074_))) + (_tl3604736081_ (let () (declare (not safe)) - (##cdr _e3633436359_)))) - (if (gx#stx-pair? _tl3633236366_) - (let ((_e3633736369_ - (gx#syntax-e _tl3633236366_))) - (let ((_hd3633636373_ + (##cdr _e3604936074_)))) + (if (gx#stx-pair? _tl3604736081_) + (let ((_e3605236084_ + (gx#syntax-e _tl3604736081_))) + (let ((_hd3605136088_ (let () (declare (not safe)) - (##car _e3633736369_))) - (_tl3633536376_ + (##car _e3605236084_))) + (_tl3605036091_ (let () (declare (not safe)) - (##cdr _e3633736369_)))) - (if (gx#stx-pair/null? _tl3633536376_) - (let ((_g51161_ + (##cdr _e3605236084_)))) + (if (gx#stx-pair/null? _tl3605036091_) + (let ((_g50922_ (gx#syntax-split-splice - _tl3633536376_ + _tl3605036091_ '0))) (begin - (let ((_g51162_ + (let ((_g50923_ (let () (declare (not safe)) - (if (##values? _g51161_) + (if (##values? _g50922_) (##vector-length - _g51161_) + _g50922_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51162_ 2))) + (##fx= _g50923_ 2))) (error "Context expects 2 values" - _g51162_))) - (let ((_target3633836379_ + _g50923_))) + (let ((_target3605336094_ (let () (declare (not safe)) - (##vector-ref _g51161_ 0))) - (_tl3634036382_ + (##vector-ref _g50922_ 0))) + (_tl3605536097_ (let () (declare (not safe)) (##vector-ref - _g51161_ + _g50922_ 1)))) - (if (gx#stx-null? _tl3634036382_) - (letrec ((_loop3634136385_ - (lambda (_hd3633936389_ + (if (gx#stx-null? _tl3605536097_) + (letrec ((_loop3605636100_ + (lambda (_hd3605436104_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mod3634536392_) - (if (gx#stx-pair? _hd3633936389_) - (let ((_e3634236395_ (gx#syntax-e _hd3633936389_))) - (let ((_lp-hd3634336399_ + _mod3606036107_) + (if (gx#stx-pair? _hd3605436104_) + (let ((_e3605736110_ (gx#syntax-e _hd3605436104_))) + (let ((_lp-hd3605836114_ (let () (declare (not safe)) - (##car _e3634236395_))) - (_lp-tl3634436402_ + (##car _e3605736110_))) + (_lp-tl3605936117_ (let () (declare (not safe)) - (##cdr _e3634236395_)))) - (_loop3634136385_ - _lp-tl3634436402_ + (##cdr _e3605736110_)))) + (_loop3605636100_ + _lp-tl3605936117_ (let () (declare (not safe)) - (cons _lp-hd3634336399_ _mod3634536392_))))) - (let ((_mod3634636405_ (reverse _mod3634536392_))) - ((lambda (_L36409_ _L36411_) - (let ((__tmp51163 - (_flatten36324_ - (map (lambda (_g3642936431_) - (_expand-path36326_ - _L36411_ - _g3642936431_)) - (let ((__tmp51164 - (lambda (_g3643436437_ - _g3643536440_) + (cons _lp-hd3605836114_ _mod3606036107_))))) + (let ((_mod3606136120_ (reverse _mod3606036107_))) + ((lambda (_L36124_ _L36126_) + (let ((__tmp50924 + (_flatten36039_ + (map (lambda (_g3614436146_) + (_expand-path36041_ + _L36126_ + _g3614436146_)) + (let ((__tmp50925 + (lambda (_g3614936152_ + _g3615036155_) (let () (declare (not safe)) - (cons _g3643436437_ - _g3643536440_))))) + (cons _g3614936152_ + _g3615036155_))))) (declare (not safe)) - (foldr1 __tmp51164 + (foldr1 __tmp50925 '() - _L36409_)))))) + _L36124_)))))) (declare (not safe)) - (cons 'begin: __tmp51163))) - _mod3634636405_ - _hd3633636373_)))))) + (cons 'begin: __tmp50924))) + _mod3606136120_ + _hd3605136088_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3634136385_ - _target3633836379_ + (_loop3605636100_ + _target3605336094_ '())) - (_g3632836352_ - _g3632936356_))))) - (_g3632836352_ _g3632936356_)))) - (_g3632836352_ _g3632936356_)))) - (_g3632836352_ _g3632936356_))))) - (_g3632736443_ _stx36321_)))))) + (_g3604336067_ + _g3604436071_))))) + (_g3604336067_ _g3604436071_)))) + (_g3604336067_ _g3604436071_)))) + (_g3604336067_ _g3604436071_))))) + (_g3604236158_ _stx36036_)))))) (define |gerbil/core$[:0:]#except-out| (gx#make-export-expander - (lambda (_stx36588_) - (let* ((_g3659136615_ - (lambda (_g3659236611_) + (lambda (_stx36303_) + (let* ((_g3630636330_ + (lambda (_g3630736326_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3659236611_))) - (_g3659036737_ - (lambda (_g3659236619_) - (if (gx#stx-pair? _g3659236619_) - (let ((_e3659736622_ (gx#syntax-e _g3659236619_))) - (let ((_hd3659636626_ + _g3630736326_))) + (_g3630536452_ + (lambda (_g3630736334_) + (if (gx#stx-pair? _g3630736334_) + (let ((_e3631236337_ (gx#syntax-e _g3630736334_))) + (let ((_hd3631136341_ (let () (declare (not safe)) - (##car _e3659736622_))) - (_tl3659536629_ + (##car _e3631236337_))) + (_tl3631036344_ (let () (declare (not safe)) - (##cdr _e3659736622_)))) - (if (gx#stx-pair? _tl3659536629_) - (let ((_e3660036632_ - (gx#syntax-e _tl3659536629_))) - (let ((_hd3659936636_ + (##cdr _e3631236337_)))) + (if (gx#stx-pair? _tl3631036344_) + (let ((_e3631536347_ + (gx#syntax-e _tl3631036344_))) + (let ((_hd3631436351_ (let () (declare (not safe)) - (##car _e3660036632_))) - (_tl3659836639_ + (##car _e3631536347_))) + (_tl3631336354_ (let () (declare (not safe)) - (##cdr _e3660036632_)))) - (if (gx#stx-pair/null? _tl3659836639_) - (let ((_g51165_ + (##cdr _e3631536347_)))) + (if (gx#stx-pair/null? _tl3631336354_) + (let ((_g50926_ (gx#syntax-split-splice - _tl3659836639_ + _tl3631336354_ '0))) (begin - (let ((_g51166_ + (let ((_g50927_ (let () (declare (not safe)) - (if (##values? _g51165_) + (if (##values? _g50926_) (##vector-length - _g51165_) + _g50926_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51166_ 2))) + (##fx= _g50927_ 2))) (error "Context expects 2 values" - _g51166_))) - (let ((_target3660136642_ + _g50927_))) + (let ((_target3631636357_ (let () (declare (not safe)) - (##vector-ref _g51165_ 0))) - (_tl3660336645_ + (##vector-ref _g50926_ 0))) + (_tl3631836360_ (let () (declare (not safe)) - (##vector-ref _g51165_ 1)))) - (if (gx#stx-null? _tl3660336645_) - (letrec ((_loop3660436648_ - (lambda (_hd3660236652_ + (##vector-ref _g50926_ 1)))) + (if (gx#stx-null? _tl3631836360_) + (letrec ((_loop3631936363_ + (lambda (_hd3631736367_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id3660836655_) - (if (gx#stx-pair? _hd3660236652_) - (let ((_e3660536658_ (gx#syntax-e _hd3660236652_))) - (let ((_lp-hd3660636662_ + _id3632336370_) + (if (gx#stx-pair? _hd3631736367_) + (let ((_e3632036373_ (gx#syntax-e _hd3631736367_))) + (let ((_lp-hd3632136377_ (let () (declare (not safe)) - (##car _e3660536658_))) - (_lp-tl3660736665_ + (##car _e3632036373_))) + (_lp-tl3632236380_ (let () (declare (not safe)) - (##cdr _e3660536658_)))) - (_loop3660436648_ - _lp-tl3660736665_ + (##cdr _e3632036373_)))) + (_loop3631936363_ + _lp-tl3632236380_ (let () (declare (not safe)) - (cons _lp-hd3660636662_ _id3660836655_))))) - (let ((_id3660936668_ (reverse _id3660836655_))) - ((lambda (_L36672_ _L36674_) + (cons _lp-hd3632136377_ _id3632336370_))))) + (let ((_id3632436383_ (reverse _id3632336370_))) + ((lambda (_L36387_ _L36389_) (if (gx#identifier-list? - (let ((__tmp51171 - (lambda (_g3669136694_ _g3669236697_) + (let ((__tmp50932 + (lambda (_g3640636409_ _g3640736412_) (let () (declare (not safe)) - (cons _g3669136694_ - _g3669236697_))))) + (cons _g3640636409_ + _g3640736412_))))) (declare (not safe)) - (foldr1 __tmp51171 '() _L36672_))) - (let* ((_keys36708_ + (foldr1 __tmp50932 '() _L36387_))) + (let* ((_keys36423_ (gx#stx-map gx#core-identifier-key - (let ((__tmp51167 - (lambda (_g3669936702_ - _g3670036705_) + (let ((__tmp50928 + (lambda (_g3641436417_ + _g3641536420_) (let () (declare (not safe)) - (cons _g3669936702_ - _g3670036705_))))) + (cons _g3641436417_ + _g3641536420_))))) (declare (not safe)) - (foldr1 __tmp51167 '() _L36672_)))) - (_keytab36719_ - (let ((_ht36711_ + (foldr1 __tmp50928 '() _L36387_)))) + (_keytab36434_ + (let ((_ht36426_ (let () (declare (not safe)) (make-table)))) (for-each - (lambda (_g3671336715_) + (lambda (_g3642836430_) (let () (declare (not safe)) (table-set! - _ht36711_ - _g3671336715_ + _ht36426_ + _g3642836430_ '#t))) - _keys36708_) - _ht36711_)) - (_exports36722_ + _keys36423_) + _ht36426_)) + (_exports36437_ (gx#core-expand-export-source - _L36674_)) - (_fold-e36732_ - (letrec ((_fold-e36725_ - (lambda (_out36728_ _r36730_) + _L36389_)) + (_fold-e36447_ + (letrec ((_fold-e36440_ + (lambda (_out36443_ _r36445_) (if (gx#module-export? - _out36728_) - (if (let ((__tmp51169 + _out36443_) + (if (let ((__tmp50930 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#module-export-name _out36728_))) + (gx#module-export-name _out36443_))) (declare (not safe)) - (table-ref _keytab36719_ __tmp51169 '#f)) - _r36730_ - (let () (declare (not safe)) (cons _out36728_ _r36730_))) - (if (gx#export-set? _out36728_) - (let ((__tmp51168 (gx#export-set-exports _out36728_))) + (table-ref _keytab36434_ __tmp50930 '#f)) + _r36445_ + (let () (declare (not safe)) (cons _out36443_ _r36445_))) + (if (gx#export-set? _out36443_) + (let ((__tmp50929 (gx#export-set-exports _out36443_))) (declare (not safe)) - (foldl1 _fold-e36725_ _r36730_ __tmp51168)) - _r36730_))))) + (foldl1 _fold-e36440_ _r36445_ __tmp50929)) + _r36445_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e36725_))) - (let ((__tmp51170 + _fold-e36440_))) + (let ((__tmp50931 (let () (declare (not safe)) - (foldl1 _fold-e36732_ + (foldl1 _fold-e36447_ '() - _exports36722_)))) + _exports36437_)))) (declare (not safe)) - (cons 'begin: __tmp51170))) - (_g3659136615_ _g3659236619_))) - _id3660936668_ - _hd3659936636_)))))) + (cons 'begin: __tmp50931))) + (_g3630636330_ _g3630736334_))) + _id3632436383_ + _hd3631436351_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3660436648_ - _target3660136642_ + (_loop3631936363_ + _target3631636357_ '())) - (_g3659136615_ - _g3659236619_))))) - (_g3659136615_ _g3659236619_)))) - (_g3659136615_ _g3659236619_)))) - (_g3659136615_ _g3659236619_))))) - (_g3659036737_ _stx36588_))))) + (_g3630636330_ + _g3630736334_))))) + (_g3630636330_ _g3630736334_)))) + (_g3630636330_ _g3630736334_)))) + (_g3630636330_ _g3630736334_))))) + (_g3630536452_ _stx36303_))))) (define |gerbil/core$[1]#module-export-rename| - (lambda (_out36742_ _rename36744_) + (lambda (_out36457_ _rename36459_) (gx#make-module-export - (gx#module-export-context _out36742_) - (gx#module-export-key _out36742_) - (gx#module-export-phi _out36742_) - _rename36744_ - (gx#module-export-weak? _out36742_)))) + (gx#module-export-context _out36457_) + (gx#module-export-key _out36457_) + (gx#module-export-phi _out36457_) + _rename36459_ + (gx#module-export-weak? _out36457_)))) (define |gerbil/core$[:0:]#rename-out| (gx#make-export-expander - (lambda (_stx36746_) - (let* ((_g3674936782_ - (lambda (_g3675036778_) + (lambda (_stx36461_) + (let* ((_g3646436497_ + (lambda (_g3646536493_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3675036778_))) - (_g3674836968_ - (lambda (_g3675036786_) - (if (gx#stx-pair? _g3675036786_) - (let ((_e3675636789_ (gx#syntax-e _g3675036786_))) - (let ((_hd3675536793_ + _g3646536493_))) + (_g3646336683_ + (lambda (_g3646536501_) + (if (gx#stx-pair? _g3646536501_) + (let ((_e3647136504_ (gx#syntax-e _g3646536501_))) + (let ((_hd3647036508_ (let () (declare (not safe)) - (##car _e3675636789_))) - (_tl3675436796_ + (##car _e3647136504_))) + (_tl3646936511_ (let () (declare (not safe)) - (##cdr _e3675636789_)))) - (if (gx#stx-pair? _tl3675436796_) - (let ((_e3675936799_ - (gx#syntax-e _tl3675436796_))) - (let ((_hd3675836803_ + (##cdr _e3647136504_)))) + (if (gx#stx-pair? _tl3646936511_) + (let ((_e3647436514_ + (gx#syntax-e _tl3646936511_))) + (let ((_hd3647336518_ (let () (declare (not safe)) - (##car _e3675936799_))) - (_tl3675736806_ + (##car _e3647436514_))) + (_tl3647236521_ (let () (declare (not safe)) - (##cdr _e3675936799_)))) - (if (gx#stx-pair/null? _tl3675736806_) - (let ((_g51172_ + (##cdr _e3647436514_)))) + (if (gx#stx-pair/null? _tl3647236521_) + (let ((_g50933_ (gx#syntax-split-splice - _tl3675736806_ + _tl3647236521_ '0))) (begin - (let ((_g51173_ + (let ((_g50934_ (let () (declare (not safe)) - (if (##values? _g51172_) + (if (##values? _g50933_) (##vector-length - _g51172_) + _g50933_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51173_ 2))) + (##fx= _g50934_ 2))) (error "Context expects 2 values" - _g51173_))) - (let ((_target3676036809_ + _g50934_))) + (let ((_target3647536524_ (let () (declare (not safe)) - (##vector-ref _g51172_ 0))) - (_tl3676236812_ + (##vector-ref _g50933_ 0))) + (_tl3647736527_ (let () (declare (not safe)) - (##vector-ref _g51172_ 1)))) - (if (gx#stx-null? _tl3676236812_) - (letrec ((_loop3676336815_ - (lambda (_hd3676136819_ + (##vector-ref _g50933_ 1)))) + (if (gx#stx-null? _tl3647736527_) + (letrec ((_loop3647836530_ + (lambda (_hd3647636534_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _new-id3676736822_ - _id3676836824_) - (if (gx#stx-pair? _hd3676136819_) - (let ((_e3676436827_ (gx#syntax-e _hd3676136819_))) - (let ((_lp-hd3676536831_ + _new-id3648236537_ + _id3648336539_) + (if (gx#stx-pair? _hd3647636534_) + (let ((_e3647936542_ (gx#syntax-e _hd3647636534_))) + (let ((_lp-hd3648036546_ (let () (declare (not safe)) - (##car _e3676436827_))) - (_lp-tl3676636834_ + (##car _e3647936542_))) + (_lp-tl3648136549_ (let () (declare (not safe)) - (##cdr _e3676436827_)))) - (if (gx#stx-pair? _lp-hd3676536831_) - (let ((_e3677336837_ - (gx#syntax-e _lp-hd3676536831_))) - (let ((_hd3677236841_ + (##cdr _e3647936542_)))) + (if (gx#stx-pair? _lp-hd3648036546_) + (let ((_e3648836552_ + (gx#syntax-e _lp-hd3648036546_))) + (let ((_hd3648736556_ (let () (declare (not safe)) - (##car _e3677336837_))) - (_tl3677136844_ + (##car _e3648836552_))) + (_tl3648636559_ (let () (declare (not safe)) - (##cdr _e3677336837_)))) - (if (gx#stx-pair? _tl3677136844_) - (let ((_e3677636847_ - (gx#syntax-e _tl3677136844_))) - (let ((_hd3677536851_ + (##cdr _e3648836552_)))) + (if (gx#stx-pair? _tl3648636559_) + (let ((_e3649136562_ + (gx#syntax-e _tl3648636559_))) + (let ((_hd3649036566_ (let () (declare (not safe)) - (##car _e3677636847_))) - (_tl3677436854_ + (##car _e3649136562_))) + (_tl3648936569_ (let () (declare (not safe)) - (##cdr _e3677636847_)))) - (if (gx#stx-null? _tl3677436854_) - (_loop3676336815_ - _lp-tl3676636834_ + (##cdr _e3649136562_)))) + (if (gx#stx-null? _tl3648936569_) + (_loop3647836530_ + _lp-tl3648136549_ (let () (declare (not safe)) - (cons _hd3677536851_ - _new-id3676736822_)) + (cons _hd3649036566_ + _new-id3648236537_)) (let () (declare (not safe)) - (cons _hd3677236841_ - _id3676836824_))) - (_g3674936782_ _g3675036786_)))) - (_g3674936782_ _g3675036786_)))) - (_g3674936782_ _g3675036786_)))) - (let ((_new-id3676936857_ (reverse _new-id3676736822_)) - (_id3677036860_ (reverse _id3676836824_))) - ((lambda (_L36863_ _L36865_ _L36866_) + (cons _hd3648736556_ + _id3648336539_))) + (_g3646436497_ _g3646536501_)))) + (_g3646436497_ _g3646536501_)))) + (_g3646436497_ _g3646536501_)))) + (let ((_new-id3648436572_ (reverse _new-id3648236537_)) + (_id3648536575_ (reverse _id3648336539_))) + ((lambda (_L36578_ _L36580_ _L36581_) (if (and (gx#identifier-list? - (let ((__tmp51184 - (lambda (_g3688436887_ - _g3688536890_) + (let ((__tmp50945 + (lambda (_g3659936602_ + _g3660036605_) (let () (declare (not safe)) - (cons _g3688436887_ - _g3688536890_))))) + (cons _g3659936602_ + _g3660036605_))))) (declare (not safe)) - (foldr1 __tmp51184 '() _L36865_))) + (foldr1 __tmp50945 '() _L36580_))) (gx#identifier-list? - (let ((__tmp51183 - (lambda (_g3689236895_ - _g3689336898_) + (let ((__tmp50944 + (lambda (_g3660736610_ + _g3660836613_) (let () (declare (not safe)) - (cons _g3689236895_ - _g3689336898_))))) + (cons _g3660736610_ + _g3660836613_))))) (declare (not safe)) - (foldr1 __tmp51183 '() _L36863_)))) - (let* ((_keytab36901_ + (foldr1 __tmp50944 '() _L36578_)))) + (let* ((_keytab36616_ (let () (declare (not safe)) (make-table))) - (_found36904_ + (_found36619_ (let () (declare (not safe)) (make-table))) - (_g51178_ + (_g50939_ (for-each - (lambda (_id36907_ _new-id36909_) - (let ((__tmp51175 + (lambda (_id36622_ _new-id36624_) + (let ((__tmp50936 (gx#core-identifier-key - _id36907_)) - (__tmp51174 + _id36622_)) + (__tmp50935 (gx#core-identifier-key - _new-id36909_))) + _new-id36624_))) (declare (not safe)) (table-set! - _keytab36901_ - __tmp51175 - __tmp51174))) - (let ((__tmp51176 - (lambda (_g3691036913_ - _g3691136916_) + _keytab36616_ + __tmp50936 + __tmp50935))) + (let ((__tmp50937 + (lambda (_g3662536628_ + _g3662636631_) (let () (declare (not safe)) - (cons _g3691036913_ - _g3691136916_))))) + (cons _g3662536628_ + _g3662636631_))))) (declare (not safe)) - (foldr1 __tmp51176 '() _L36865_)) - (let ((__tmp51177 - (lambda (_g3691836921_ - _g3691936924_) + (foldr1 __tmp50937 '() _L36580_)) + (let ((__tmp50938 + (lambda (_g3663336636_ + _g3663436639_) (let () (declare (not safe)) - (cons _g3691836921_ - _g3691936924_))))) + (cons _g3663336636_ + _g3663436639_))))) (declare (not safe)) - (foldr1 __tmp51177 '() _L36863_)))) - (_exports36929_ + (foldr1 __tmp50938 '() _L36578_)))) + (_exports36644_ (gx#core-expand-export-source - _L36866_)) - (_fold-e36949_ - (letrec ((_fold-e36932_ - (lambda (_out36935_ _r36937_) + _L36581_)) + (_fold-e36664_ + (letrec ((_fold-e36647_ + (lambda (_out36650_ _r36652_) (if (gx#module-export? - _out36935_) - (let* ((_name36939_ + _out36650_) + (let* ((_name36654_ (gx#module-export-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out36935_)) - (_$e36942_ + _out36650_)) + (_$e36657_ (let () (declare (not safe)) - (table-ref _keytab36901_ _name36939_ '#f)))) - (if _$e36942_ - ((lambda (_rename36946_) + (table-ref _keytab36616_ _name36654_ '#f)))) + (if _$e36657_ + ((lambda (_rename36661_) (let () (declare (not safe)) - (table-set! _found36904_ _name36939_ '#t)) - (let ((__tmp51180 + (table-set! _found36619_ _name36654_ '#t)) + (let ((__tmp50941 (let () (declare (not safe)) (|gerbil/core$[1]#module-export-rename| - _out36935_ - _rename36946_)))) + _out36650_ + _rename36661_)))) (declare (not safe)) - (cons __tmp51180 _r36937_))) - _$e36942_) + (cons __tmp50941 _r36652_))) + _$e36657_) (let () (declare (not safe)) - (cons _out36935_ _r36937_)))) - (if (gx#export-set? _out36935_) - (let ((__tmp51179 (gx#export-set-exports _out36935_))) + (cons _out36650_ _r36652_)))) + (if (gx#export-set? _out36650_) + (let ((__tmp50940 (gx#export-set-exports _out36650_))) (declare (not safe)) - (foldl1 _fold-e36932_ _r36937_ __tmp51179)) + (foldl1 _fold-e36647_ _r36652_ __tmp50940)) (let () (declare (not safe)) - (cons _out36935_ _r36937_))))))) + (cons _out36650_ _r36652_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e36932_)) - (_new-exports36952_ + _fold-e36647_)) + (_new-exports36667_ (let () (declare (not safe)) - (foldl1 _fold-e36949_ + (foldl1 _fold-e36664_ '() - _exports36929_)))) + _exports36644_)))) (for-each - (lambda (_id36957_) - (if (let ((__tmp51181 + (lambda (_id36672_) + (if (let ((__tmp50942 (gx#core-identifier-key - _id36957_))) + _id36672_))) (declare (not safe)) (table-ref - _found36904_ - __tmp51181 + _found36619_ + __tmp50942 '#f)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the export set" - _stx36746_ - _id36957_))) - (let ((__tmp51182 - (lambda (_g3695936962_ _g3696036965_) + _stx36461_ + _id36672_))) + (let ((__tmp50943 + (lambda (_g3667436677_ _g3667536680_) (let () (declare (not safe)) - (cons _g3695936962_ - _g3696036965_))))) + (cons _g3667436677_ + _g3667536680_))))) (declare (not safe)) - (foldr1 __tmp51182 '() _L36865_))) + (foldr1 __tmp50943 '() _L36580_))) (let () (declare (not safe)) - (cons 'begin: _new-exports36952_))) - (_g3674936782_ _g3675036786_))) - _new-id3676936857_ - _id3677036860_ - _hd3675836803_)))))) + (cons 'begin: _new-exports36667_))) + (_g3646436497_ _g3646536501_))) + _new-id3648436572_ + _id3648536575_ + _hd3647336518_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3676336815_ - _target3676036809_ + (_loop3647836530_ + _target3647536524_ '() '())) - (_g3674936782_ - _g3675036786_))))) - (_g3674936782_ _g3675036786_)))) - (_g3674936782_ _g3675036786_)))) - (_g3674936782_ _g3675036786_))))) - (_g3674836968_ _stx36746_))))) + (_g3646436497_ + _g3646536501_))))) + (_g3646436497_ _g3646536501_)))) + (_g3646436497_ _g3646536501_)))) + (_g3646436497_ _g3646536501_))))) + (_g3646336683_ _stx36461_))))) (define |gerbil/core$[:0:]#prefix-out| (gx#make-export-expander - (lambda (_stx36974_) - (let* ((_g3697736995_ - (lambda (_g3697836991_) + (lambda (_stx36689_) + (let* ((_g3669236710_ + (lambda (_g3669336706_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3697836991_))) - (_g3697637074_ - (lambda (_g3697836999_) - (if (gx#stx-pair? _g3697836999_) - (let ((_e3698337002_ (gx#syntax-e _g3697836999_))) - (let ((_hd3698237006_ + _g3669336706_))) + (_g3669136789_ + (lambda (_g3669336714_) + (if (gx#stx-pair? _g3669336714_) + (let ((_e3669836717_ (gx#syntax-e _g3669336714_))) + (let ((_hd3669736721_ (let () (declare (not safe)) - (##car _e3698337002_))) - (_tl3698137009_ + (##car _e3669836717_))) + (_tl3669636724_ (let () (declare (not safe)) - (##cdr _e3698337002_)))) - (if (gx#stx-pair? _tl3698137009_) - (let ((_e3698637012_ - (gx#syntax-e _tl3698137009_))) - (let ((_hd3698537016_ + (##cdr _e3669836717_)))) + (if (gx#stx-pair? _tl3669636724_) + (let ((_e3670136727_ + (gx#syntax-e _tl3669636724_))) + (let ((_hd3670036731_ (let () (declare (not safe)) - (##car _e3698637012_))) - (_tl3698437019_ + (##car _e3670136727_))) + (_tl3669936734_ (let () (declare (not safe)) - (##cdr _e3698637012_)))) - (if (gx#stx-pair? _tl3698437019_) - (let ((_e3698937022_ - (gx#syntax-e _tl3698437019_))) - (let ((_hd3698837026_ + (##cdr _e3670136727_)))) + (if (gx#stx-pair? _tl3669936734_) + (let ((_e3670436737_ + (gx#syntax-e _tl3669936734_))) + (let ((_hd3670336741_ (let () (declare (not safe)) - (##car _e3698937022_))) - (_tl3698737029_ + (##car _e3670436737_))) + (_tl3670236744_ (let () (declare (not safe)) - (##cdr _e3698937022_)))) - (if (gx#stx-null? _tl3698737029_) - ((lambda (_L37032_ _L37034_) - (if (gx#identifier? _L37032_) - (let* ((_pre37050_ + (##cdr _e3670436737_)))) + (if (gx#stx-null? _tl3670236744_) + ((lambda (_L36747_ _L36749_) + (if (gx#identifier? _L36747_) + (let* ((_pre36765_ (gx#stx-e - _L37032_)) - (_exports37053_ + _L36747_)) + (_exports36768_ (gx#core-expand-export-source - _L37034_)) - (_rename-e37059_ - (lambda (_name37056_) + _L36749_)) + (_rename-e36774_ + (lambda (_name36771_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (|gerbil/core$[1]#prefix-identifier-key| - _name37056_ - _pre37050_)))) - (_fold-e37069_ - (letrec ((_fold-e37062_ - (lambda (_out37065_ _r37067_) - (if (gx#module-export? _out37065_) - (let ((__tmp51186 - (let ((__tmp51187 - (_rename-e37059_ + _name36771_ + _pre36765_)))) + (_fold-e36784_ + (letrec ((_fold-e36777_ + (lambda (_out36780_ _r36782_) + (if (gx#module-export? _out36780_) + (let ((__tmp50947 + (let ((__tmp50948 + (_rename-e36774_ (gx#module-export-name - _out37065_)))) + _out36780_)))) (declare (not safe)) (|gerbil/core$[1]#module-export-rename| - _out37065_ - __tmp51187)))) + _out36780_ + __tmp50948)))) (declare (not safe)) - (cons __tmp51186 _r37067_)) - (if (gx#export-set? _out37065_) - (let ((__tmp51185 + (cons __tmp50947 _r36782_)) + (if (gx#export-set? _out36780_) + (let ((__tmp50946 (gx#export-set-exports - _out37065_))) + _out36780_))) (declare (not safe)) - (foldl1 _fold-e37062_ - _r37067_ - __tmp51185)) + (foldl1 _fold-e36777_ + _r36782_ + __tmp50946)) (let () (declare (not safe)) - (cons _out37065_ _r37067_))))))) - _fold-e37062_))) - (let ((__tmp51188 + (cons _out36780_ _r36782_))))))) + _fold-e36777_))) + (let ((__tmp50949 (let () (declare (not safe)) - (foldl1 _fold-e37069_ '() _exports37053_)))) + (foldl1 _fold-e36784_ '() _exports36768_)))) (declare (not safe)) - (cons 'begin: __tmp51188))) + (cons 'begin: __tmp50949))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3697736995_ - _g3697836999_))) - _hd3698837026_ - _hd3698537016_) - (_g3697736995_ _g3697836999_)))) - (_g3697736995_ _g3697836999_)))) - (_g3697736995_ _g3697836999_)))) - (_g3697736995_ _g3697836999_))))) - (_g3697637074_ _stx36974_))))) + (_g3669236710_ + _g3669336714_))) + _hd3670336741_ + _hd3670036731_) + (_g3669236710_ _g3669336714_)))) + (_g3669236710_ _g3669336714_)))) + (_g3669236710_ _g3669336714_)))) + (_g3669236710_ _g3669336714_))))) + (_g3669136789_ _stx36689_))))) (define |gerbil/core$[:0:]#struct-out| (gx#make-export-expander - (lambda (_stx37078_) - (letrec ((_identifiers37081_ - (lambda (_id37313_ _unchecked?37315_) - (let ((_info37317_ (gx#syntax-local-value _id37313_ false))) + (lambda (_stx36793_) + (letrec ((_identifiers36796_ + (lambda (_id37028_ _unchecked?37030_) + (let ((_info37032_ (gx#syntax-local-value _id37028_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core$$#class-type-info::t - _info37317_)) - (let ((__tmp51189 - (let ((__tmp51201 - (let ((__obj47572 _info37317_)) + _info37032_)) + (let ((__tmp50950 + (let ((__tmp50962 + (let ((__obj47363 _info37032_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47572 + __obj47363 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47572 + __obj47363 '8 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47572 + __obj47363 'type-descriptor)))) - (__tmp51190 - (let ((__tmp51192 - (let ((__tmp51200 - (let ((__obj47573 - _info37317_)) + (__tmp50951 + (let ((__tmp50953 + (let ((__tmp50961 + (let ((__obj47364 + _info37032_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47573 + __obj47364 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47573 + __obj47364 '10 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47573 + __obj47364 'predicate)))) - (__tmp51193 - (let ((__tmp51195 - (let ((__tmp51197 + (__tmp50954 + (let ((__tmp50956 + (let ((__tmp50958 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _unchecked?37315_ - (let ((__tmp51199 + (if _unchecked?37030_ + (let ((__tmp50960 (map cdr - (let ((__obj47574 _info37317_)) + (let ((__obj47365 _info37032_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47574 + __obj47365 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47574 + __obj47365 '14 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47574 + __obj47365 'unchecked-mutators))))) - (__tmp51198 + (__tmp50959 (map cdr - (let ((__obj47575 _info37317_)) + (let ((__obj47366 _info37032_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47575 + __obj47366 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47575 + __obj47366 '13 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47575 + __obj47366 'unchecked-accessors)))))) (declare (not safe)) - (foldr1 cons __tmp51199 __tmp51198)) + (foldr1 cons __tmp50960 __tmp50959)) '())) - (__tmp51196 + (__tmp50957 (map cdr - (let ((__obj47576 _info37317_)) + (let ((__obj47367 _info37032_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47576 + __obj47367 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47576 + __obj47367 '12 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47576 + __obj47367 'mutators)))))) (declare (not safe)) - (foldr1 cons __tmp51197 __tmp51196))) - (__tmp51194 + (foldr1 cons __tmp50958 __tmp50957))) + (__tmp50955 (map cdr - (let ((__obj47577 _info37317_)) + (let ((__obj47368 _info37032_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47577 + __obj47368 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47577 + __obj47368 '11 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47577 + __obj47368 'accessors)))))) (declare (not safe)) - (foldr1 cons __tmp51195 __tmp51194)))) + (foldr1 cons __tmp50956 __tmp50955)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51200 __tmp51193))) - (__tmp51191 - (let ((_ctor37320_ - (let ((__obj47578 - _info37317_)) + (cons __tmp50961 __tmp50954))) + (__tmp50952 + (let ((_ctor37035_ + (let ((__obj47369 + _info37032_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47578 + __obj47369 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47578 + __obj47369 '9 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47578 + __obj47369 'constructor))))) - (if _ctor37320_ + (if _ctor37035_ (let () (declare (not safe)) - (cons _ctor37320_ '())) + (cons _ctor37035_ '())) '())))) (declare (not safe)) - (foldr1 cons __tmp51192 __tmp51191)))) + (foldr1 cons __tmp50953 __tmp50952)))) (declare (not safe)) - (cons __tmp51201 __tmp51190)))) + (cons __tmp50962 __tmp50951)))) (declare (not safe)) - (cons _id37313_ __tmp51189)) + (cons _id37028_ __tmp50950)) (gx#raise-syntax-error '#f '"no class type info" - _stx37078_ - _id37313_)))))) - (let* ((___stx4749447495_ _stx37078_) - (_g3708537126_ + _stx36793_ + _id37028_)))))) + (let* ((___stx4728647287_ _stx36793_) + (_g3680036841_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4749447495_)))) - (let ((___kont4749747498_ - (lambda (_L37274_ _L37276_) - (let ((__tmp51202 + ___stx4728647287_)))) + (let ((___kont4728947290_ + (lambda (_L36989_ _L36991_) + (let ((__tmp50963 (concatenate (gx#stx-map - (lambda (_g3729537297_) - (_identifiers37081_ - _g3729537297_ - (gx#stx-e _L37276_))) - (let ((__tmp51203 - (lambda (_g3730037303_ _g3730137306_) + (lambda (_g3701037012_) + (_identifiers36796_ + _g3701037012_ + (gx#stx-e _L36991_))) + (let ((__tmp50964 + (lambda (_g3701537018_ _g3701637021_) (let () (declare (not safe)) - (cons _g3730037303_ _g3730137306_))))) + (cons _g3701537018_ _g3701637021_))))) (declare (not safe)) - (foldr1 __tmp51203 '() _L37274_)))))) + (foldr1 __tmp50964 '() _L36989_)))))) (declare (not safe)) - (cons 'begin: __tmp51202)))) - (___kont4750147502_ - (lambda (_L37173_) - (let ((__tmp51204 + (cons 'begin: __tmp50963)))) + (___kont4729347294_ + (lambda (_L36888_) + (let ((__tmp50965 (concatenate (gx#stx-map - (lambda (_g3718937191_) - (_identifiers37081_ _g3718937191_ '#f)) - (let ((__tmp51205 - (lambda (_g3719437197_ _g3719537200_) + (lambda (_g3690436906_) + (_identifiers36796_ _g3690436906_ '#f)) + (let ((__tmp50966 + (lambda (_g3690936912_ _g3691036915_) (let () (declare (not safe)) - (cons _g3719437197_ _g3719537200_))))) + (cons _g3690936912_ _g3691036915_))))) (declare (not safe)) - (foldr1 __tmp51205 '() _L37173_)))))) + (foldr1 __tmp50966 '() _L36888_)))))) (declare (not safe)) - (cons 'begin: __tmp51204))))) - (let* ((___match4755147552_ - (lambda (_e3711137133_ - _hd3711037137_ - _tl3710937140_ - ___splice4750347504_ - _target3711237143_ - _tl3711437146_) - (letrec ((_loop3711537149_ - (lambda (_hd3711337153_ _id3711937156_) - (if (gx#stx-pair? _hd3711337153_) - (let ((_e3711637159_ - (gx#syntax-e _hd3711337153_))) - (let ((_lp-tl3711837166_ + (cons 'begin: __tmp50965))))) + (let* ((___match4734347344_ + (lambda (_e3682636848_ + _hd3682536852_ + _tl3682436855_ + ___splice4729547296_ + _target3682736858_ + _tl3682936861_) + (letrec ((_loop3683036864_ + (lambda (_hd3682836868_ _id3683436871_) + (if (gx#stx-pair? _hd3682836868_) + (let ((_e3683136874_ + (gx#syntax-e _hd3682836868_))) + (let ((_lp-tl3683336881_ (let () (declare (not safe)) - (##cdr _e3711637159_))) - (_lp-hd3711737163_ + (##cdr _e3683136874_))) + (_lp-hd3683236878_ (let () (declare (not safe)) - (##car _e3711637159_)))) - (_loop3711537149_ - _lp-tl3711837166_ + (##car _e3683136874_)))) + (_loop3683036864_ + _lp-tl3683336881_ (let () (declare (not safe)) - (cons _lp-hd3711737163_ - _id3711937156_))))) - (let ((_id3712037169_ - (reverse _id3711937156_))) - (___kont4750147502_ - _id3712037169_)))))) - (_loop3711537149_ _target3711237143_ '())))) - (___match4753747538_ - (lambda (_e3709137210_ - _hd3709037214_ - _tl3708937217_ - _e3709437220_ - _hd3709337224_ - _tl3709237227_ - _e3709537230_ - _e3709837234_ - _hd3709737238_ - _tl3709637241_ - ___splice4749947500_ - _target3709937244_ - _tl3710137247_) - (letrec ((_loop3710237250_ - (lambda (_hd3710037254_ _id3710637257_) - (if (gx#stx-pair? _hd3710037254_) - (let ((_e3710337260_ - (gx#syntax-e _hd3710037254_))) - (let ((_lp-tl3710537267_ + (cons _lp-hd3683236878_ + _id3683436871_))))) + (let ((_id3683536884_ + (reverse _id3683436871_))) + (___kont4729347294_ + _id3683536884_)))))) + (_loop3683036864_ _target3682736858_ '())))) + (___match4732947330_ + (lambda (_e3680636925_ + _hd3680536929_ + _tl3680436932_ + _e3680936935_ + _hd3680836939_ + _tl3680736942_ + _e3681036945_ + _e3681336949_ + _hd3681236953_ + _tl3681136956_ + ___splice4729147292_ + _target3681436959_ + _tl3681636962_) + (letrec ((_loop3681736965_ + (lambda (_hd3681536969_ _id3682136972_) + (if (gx#stx-pair? _hd3681536969_) + (let ((_e3681836975_ + (gx#syntax-e _hd3681536969_))) + (let ((_lp-tl3682036982_ (let () (declare (not safe)) - (##cdr _e3710337260_))) - (_lp-hd3710437264_ + (##cdr _e3681836975_))) + (_lp-hd3681936979_ (let () (declare (not safe)) - (##car _e3710337260_)))) - (_loop3710237250_ - _lp-tl3710537267_ + (##car _e3681836975_)))) + (_loop3681736965_ + _lp-tl3682036982_ (let () (declare (not safe)) - (cons _lp-hd3710437264_ - _id3710637257_))))) - (let ((_id3710737270_ - (reverse _id3710637257_))) - (___kont4749747498_ - _id3710737270_ - _hd3709737238_)))))) - (_loop3710237250_ _target3709937244_ '()))))) - (if (gx#stx-pair? ___stx4749447495_) - (let ((_e3709137210_ (gx#syntax-e ___stx4749447495_))) - (let ((_tl3708937217_ + (cons _lp-hd3681936979_ + _id3682136972_))))) + (let ((_id3682236985_ + (reverse _id3682136972_))) + (___kont4728947290_ + _id3682236985_ + _hd3681236953_)))))) + (_loop3681736965_ _target3681436959_ '()))))) + (if (gx#stx-pair? ___stx4728647287_) + (let ((_e3680636925_ (gx#syntax-e ___stx4728647287_))) + (let ((_tl3680436932_ (let () (declare (not safe)) - (##cdr _e3709137210_))) - (_hd3709037214_ + (##cdr _e3680636925_))) + (_hd3680536929_ (let () (declare (not safe)) - (##car _e3709137210_)))) - (if (gx#stx-pair? _tl3708937217_) - (let ((_e3709437220_ (gx#syntax-e _tl3708937217_))) - (let ((_tl3709237227_ + (##car _e3680636925_)))) + (if (gx#stx-pair? _tl3680436932_) + (let ((_e3680936935_ (gx#syntax-e _tl3680436932_))) + (let ((_tl3680736942_ (let () (declare (not safe)) - (##cdr _e3709437220_))) - (_hd3709337224_ + (##cdr _e3680936935_))) + (_hd3680836939_ (let () (declare (not safe)) - (##car _e3709437220_)))) - (if (gx#stx-datum? _hd3709337224_) - (let ((_e3709537230_ - (gx#stx-e _hd3709337224_))) + (##car _e3680936935_)))) + (if (gx#stx-datum? _hd3680836939_) + (let ((_e3681036945_ + (gx#stx-e _hd3680836939_))) (if (let () (declare (not safe)) - (equal? _e3709537230_ 'unchecked:)) - (if (gx#stx-pair? _tl3709237227_) - (let ((_e3709837234_ + (equal? _e3681036945_ 'unchecked:)) + (if (gx#stx-pair? _tl3680736942_) + (let ((_e3681336949_ (gx#syntax-e - _tl3709237227_))) - (let ((_tl3709637241_ + _tl3680736942_))) + (let ((_tl3681136956_ (let () (declare (not safe)) - (##cdr _e3709837234_))) - (_hd3709737238_ + (##cdr _e3681336949_))) + (_hd3681236953_ (let () (declare (not safe)) - (##car _e3709837234_)))) + (##car _e3681336949_)))) (if (gx#stx-pair/null? - _tl3709637241_) - (let ((___splice4749947500_ + _tl3681136956_) + (let ((___splice4729147292_ (gx#syntax-split-splice - _tl3709637241_ + _tl3681136956_ '0))) - (let ((_tl3710137247_ + (let ((_tl3681636962_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4749947500_ '1))) - (_target3709937244_ + (##vector-ref ___splice4729147292_ '1))) + (_target3681436959_ (let () (declare (not safe)) - (##vector-ref ___splice4749947500_ '0)))) - (if (gx#stx-null? _tl3710137247_) - (___match4753747538_ - _e3709137210_ - _hd3709037214_ - _tl3708937217_ - _e3709437220_ - _hd3709337224_ - _tl3709237227_ - _e3709537230_ - _e3709837234_ - _hd3709737238_ - _tl3709637241_ - ___splice4749947500_ - _target3709937244_ - _tl3710137247_) - (if (gx#stx-pair/null? _tl3708937217_) - (let ((___splice4750347504_ - (gx#syntax-split-splice _tl3708937217_ '0))) - (let ((_tl3711437146_ + (##vector-ref ___splice4729147292_ '0)))) + (if (gx#stx-null? _tl3681636962_) + (___match4732947330_ + _e3680636925_ + _hd3680536929_ + _tl3680436932_ + _e3680936935_ + _hd3680836939_ + _tl3680736942_ + _e3681036945_ + _e3681336949_ + _hd3681236953_ + _tl3681136956_ + ___splice4729147292_ + _target3681436959_ + _tl3681636962_) + (if (gx#stx-pair/null? _tl3680436932_) + (let ((___splice4729547296_ + (gx#syntax-split-splice _tl3680436932_ '0))) + (let ((_tl3682936861_ (let () (declare (not safe)) - (##vector-ref ___splice4750347504_ '1))) - (_target3711237143_ + (##vector-ref ___splice4729547296_ '1))) + (_target3682736858_ (let () (declare (not safe)) - (##vector-ref ___splice4750347504_ '0)))) - (if (gx#stx-null? _tl3711437146_) - (___match4755147552_ - _e3709137210_ - _hd3709037214_ - _tl3708937217_ - ___splice4750347504_ - _target3711237143_ - _tl3711437146_) + (##vector-ref ___splice4729547296_ '0)))) + (if (gx#stx-null? _tl3682936861_) + (___match4734347344_ + _e3680636925_ + _hd3680536929_ + _tl3680436932_ + ___splice4729547296_ + _target3682736858_ + _tl3682936861_) (let () (declare (not safe)) - (_g3708537126_))))) - (let () (declare (not safe)) (_g3708537126_)))))) + (_g3680036841_))))) + (let () (declare (not safe)) (_g3680036841_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _tl3708937217_) - (let ((___splice4750347504_ + _tl3680436932_) + (let ((___splice4729547296_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl3708937217_ + _tl3680436932_ '0))) - (let ((_tl3711437146_ + (let ((_tl3682936861_ (let () (declare (not safe)) - (##vector-ref ___splice4750347504_ '1))) - (_target3711237143_ + (##vector-ref ___splice4729547296_ '1))) + (_target3682736858_ (let () (declare (not safe)) - (##vector-ref ___splice4750347504_ '0)))) - (if (gx#stx-null? _tl3711437146_) - (___match4755147552_ - _e3709137210_ - _hd3709037214_ - _tl3708937217_ - ___splice4750347504_ - _target3711237143_ - _tl3711437146_) - (let () (declare (not safe)) (_g3708537126_))))) - (let () (declare (not safe)) (_g3708537126_)))))) + (##vector-ref ___splice4729547296_ '0)))) + (if (gx#stx-null? _tl3682936861_) + (___match4734347344_ + _e3680636925_ + _hd3680536929_ + _tl3680436932_ + ___splice4729547296_ + _target3682736858_ + _tl3682936861_) + (let () (declare (not safe)) (_g3680036841_))))) + (let () (declare (not safe)) (_g3680036841_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _tl3708937217_) - (let ((___splice4750347504_ + _tl3680436932_) + (let ((___splice4729547296_ (gx#syntax-split-splice - _tl3708937217_ + _tl3680436932_ '0))) - (let ((_tl3711437146_ + (let ((_tl3682936861_ (let () (declare (not safe)) (##vector-ref - ___splice4750347504_ + ___splice4729547296_ '1))) - (_target3711237143_ + (_target3682736858_ (let () (declare (not safe)) (##vector-ref - ___splice4750347504_ + ___splice4729547296_ '0)))) (if (gx#stx-null? - _tl3711437146_) - (___match4755147552_ - _e3709137210_ - _hd3709037214_ - _tl3708937217_ - ___splice4750347504_ - _target3711237143_ - _tl3711437146_) + _tl3682936861_) + (___match4734347344_ + _e3680636925_ + _hd3680536929_ + _tl3680436932_ + ___splice4729547296_ + _target3682736858_ + _tl3682936861_) (let () (declare (not safe)) - (_g3708537126_))))) + (_g3680036841_))))) (let () (declare (not safe)) - (_g3708537126_)))) - (if (gx#stx-pair/null? _tl3708937217_) - (let ((___splice4750347504_ + (_g3680036841_)))) + (if (gx#stx-pair/null? _tl3680436932_) + (let ((___splice4729547296_ (gx#syntax-split-splice - _tl3708937217_ + _tl3680436932_ '0))) - (let ((_tl3711437146_ + (let ((_tl3682936861_ (let () (declare (not safe)) (##vector-ref - ___splice4750347504_ + ___splice4729547296_ '1))) - (_target3711237143_ + (_target3682736858_ (let () (declare (not safe)) (##vector-ref - ___splice4750347504_ + ___splice4729547296_ '0)))) (if (gx#stx-null? - _tl3711437146_) - (___match4755147552_ - _e3709137210_ - _hd3709037214_ - _tl3708937217_ - ___splice4750347504_ - _target3711237143_ - _tl3711437146_) + _tl3682936861_) + (___match4734347344_ + _e3680636925_ + _hd3680536929_ + _tl3680436932_ + ___splice4729547296_ + _target3682736858_ + _tl3682936861_) (let () (declare (not safe)) - (_g3708537126_))))) + (_g3680036841_))))) (let () (declare (not safe)) - (_g3708537126_))))) - (if (gx#stx-pair/null? _tl3708937217_) - (let ((___splice4750347504_ + (_g3680036841_))))) + (if (gx#stx-pair/null? _tl3680436932_) + (let ((___splice4729547296_ (gx#syntax-split-splice - _tl3708937217_ + _tl3680436932_ '0))) - (let ((_tl3711437146_ + (let ((_tl3682936861_ (let () (declare (not safe)) (##vector-ref - ___splice4750347504_ + ___splice4729547296_ '1))) - (_target3711237143_ + (_target3682736858_ (let () (declare (not safe)) (##vector-ref - ___splice4750347504_ + ___splice4729547296_ '0)))) - (if (gx#stx-null? _tl3711437146_) - (___match4755147552_ - _e3709137210_ - _hd3709037214_ - _tl3708937217_ - ___splice4750347504_ - _target3711237143_ - _tl3711437146_) + (if (gx#stx-null? _tl3682936861_) + (___match4734347344_ + _e3680636925_ + _hd3680536929_ + _tl3680436932_ + ___splice4729547296_ + _target3682736858_ + _tl3682936861_) (let () (declare (not safe)) - (_g3708537126_))))) + (_g3680036841_))))) (let () (declare (not safe)) - (_g3708537126_)))))) - (if (gx#stx-pair/null? _tl3708937217_) - (let ((___splice4750347504_ + (_g3680036841_)))))) + (if (gx#stx-pair/null? _tl3680436932_) + (let ((___splice4729547296_ (gx#syntax-split-splice - _tl3708937217_ + _tl3680436932_ '0))) - (let ((_tl3711437146_ + (let ((_tl3682936861_ (let () (declare (not safe)) (##vector-ref - ___splice4750347504_ + ___splice4729547296_ '1))) - (_target3711237143_ + (_target3682736858_ (let () (declare (not safe)) (##vector-ref - ___splice4750347504_ + ___splice4729547296_ '0)))) - (if (gx#stx-null? _tl3711437146_) - (___match4755147552_ - _e3709137210_ - _hd3709037214_ - _tl3708937217_ - ___splice4750347504_ - _target3711237143_ - _tl3711437146_) + (if (gx#stx-null? _tl3682936861_) + (___match4734347344_ + _e3680636925_ + _hd3680536929_ + _tl3680436932_ + ___splice4729547296_ + _target3682736858_ + _tl3682936861_) (let () (declare (not safe)) - (_g3708537126_))))) + (_g3680036841_))))) (let () (declare (not safe)) - (_g3708537126_)))))) - (let () (declare (not safe)) (_g3708537126_))))))))))) + (_g3680036841_)))))) + (let () (declare (not safe)) (_g3680036841_))))))))))) diff --git a/src/bootstrap/gerbil/core__16.scm b/src/bootstrap/gerbil/core__16.scm index 3439c0c73..9352994e7 100644 --- a/src/bootstrap/gerbil/core__16.scm +++ b/src/bootstrap/gerbil/core__16.scm @@ -1,43 +1,43 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |gerbil/core$[:0:]#eval-when-compile| - (lambda (_stx37326_) - (let* ((_g3732937343_ - (lambda (_g3733037339_) + (lambda (_stx37041_) + (let* ((_g3704437058_ + (lambda (_g3704537054_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3733037339_))) - (_g3732837385_ - (lambda (_g3733037347_) - (if (gx#stx-pair? _g3733037347_) - (let ((_e3733437350_ (gx#syntax-e _g3733037347_))) - (let ((_hd3733337354_ - (let () (declare (not safe)) (##car _e3733437350_))) - (_tl3733237357_ + _g3704537054_))) + (_g3704337100_ + (lambda (_g3704537062_) + (if (gx#stx-pair? _g3704537062_) + (let ((_e3704937065_ (gx#syntax-e _g3704537062_))) + (let ((_hd3704837069_ + (let () (declare (not safe)) (##car _e3704937065_))) + (_tl3704737072_ (let () (declare (not safe)) - (##cdr _e3733437350_)))) - (if (gx#stx-pair? _tl3733237357_) - (let ((_e3733737360_ (gx#syntax-e _tl3733237357_))) - (let ((_hd3733637364_ + (##cdr _e3704937065_)))) + (if (gx#stx-pair? _tl3704737072_) + (let ((_e3705237075_ (gx#syntax-e _tl3704737072_))) + (let ((_hd3705137079_ (let () (declare (not safe)) - (##car _e3733737360_))) - (_tl3733537367_ + (##car _e3705237075_))) + (_tl3705037082_ (let () (declare (not safe)) - (##cdr _e3733737360_)))) - (if (gx#stx-null? _tl3733537367_) - ((lambda (_L37370_) + (##cdr _e3705237075_)))) + (if (gx#stx-null? _tl3705037082_) + ((lambda (_L37085_) (if (gx#current-expander-compiling?) - (gx#eval-syntax _L37370_) + (gx#eval-syntax _L37085_) '#!void) - (let ((__tmp51206 + (let ((__tmp50967 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp51206 '()))) - _hd3733637364_) - (_g3732937343_ _g3733037347_)))) - (_g3732937343_ _g3733037347_)))) - (_g3732937343_ _g3733037347_))))) - (_g3732837385_ _stx37326_)))) + (cons __tmp50967 '()))) + _hd3705137079_) + (_g3704437058_ _g3704537062_)))) + (_g3704437058_ _g3704537062_)))) + (_g3704437058_ _g3704537062_))))) + (_g3704337100_ _stx37041_)))) diff --git a/src/bootstrap/gerbil/core__2.scm b/src/bootstrap/gerbil/core__2.scm index 30bed7a2c..b1e2d2f1b 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]#_g47668_| + (define |gerbil/core$[1]#_g47459_| (##structure gx#syntax-quote::t 'values @@ -34,31 +34,31 @@ (declare (not safe)) (##cdr _e6092_)))) (if (gx#stx-pair/null? _tl5899_) - (let ((_g47588_ + (let ((_g47379_ (gx#syntax-split-splice _tl5899_ '0))) (begin - (let ((_g47589_ + (let ((_g47380_ (let () (declare (not safe)) - (if (##values? _g47588_) + (if (##values? _g47379_) (##vector-length - _g47588_) + _g47379_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47589_ 2))) + (##fx= _g47380_ 2))) (error "Context expects 2 values" - _g47589_))) + _g47380_))) (let ((_target61102_ (let () (declare (not safe)) - (##vector-ref _g47588_ 0))) + (##vector-ref _g47379_ 0))) (_tl63105_ (let () (declare (not safe)) - (##vector-ref _g47588_ 1)))) + (##vector-ref _g47379_ 1)))) (if (gx#stx-null? _tl63105_) (letrec ((_loop64108_ (lambda (_hd62112_ @@ -85,59 +85,59 @@ (let* ((_body297_ (gx#stx-map (lambda (_clause154_) - (let* ((___stx4187841879_ + (let* ((___stx4169441695_ _clause154_) (_g158185_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4187841879_)))) - (let ((___kont4188141882_ + ___stx4169441695_)))) + (let ((___kont4169741698_ (lambda (_L270_ _L272_) - (let ((__tmp47590 - (let ((__tmp47591 + (let ((__tmp47381 + (let ((__tmp47382 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47593 (gx#datum->syntax '#f 'syntax)) - (__tmp47592 + (let ((__tmp47384 (gx#datum->syntax '#f 'syntax)) + (__tmp47383 (let () (declare (not safe)) (cons _L270_ '())))) (declare (not safe)) - (cons __tmp47593 __tmp47592)))) + (cons __tmp47384 __tmp47383)))) (declare (not safe)) - (cons __tmp47591 '())))) + (cons __tmp47382 '())))) (declare (not safe)) - (cons _L272_ __tmp47590)))) + (cons _L272_ __tmp47381)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4188341884_ + (___kont4169941700_ (lambda (_L222_ _L224_ _L225_) - (let ((__tmp47594 - (let ((__tmp47595 + (let ((__tmp47385 + (let ((__tmp47386 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47596 - (let ((__tmp47598 + (let ((__tmp47387 + (let ((__tmp47389 (gx#datum->syntax '#f 'syntax)) - (__tmp47597 + (__tmp47388 (let () (declare (not safe)) (cons _L222_ '())))) (declare (not safe)) - (cons __tmp47598 __tmp47597)))) + (cons __tmp47389 __tmp47388)))) (declare (not safe)) - (cons __tmp47596 '())))) + (cons __tmp47387 '())))) (declare (not safe)) - (cons _L224_ __tmp47595)))) + (cons _L224_ __tmp47386)))) (declare (not safe)) - (cons _L225_ __tmp47594))))) + (cons _L225_ __tmp47385))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4187841879_) + ___stx4169441695_) (let ((_e164250_ (gx#syntax-e - ___stx4187841879_))) + ___stx4169441695_))) (let ((_tl162257_ (let () (declare @@ -153,7 +153,7 @@ (_hd166264_ (let () (declare (not safe)) (##car _e167260_)))) (if (gx#stx-null? _tl165267_) - (___kont4188141882_ _hd166264_ _hd163254_) + (___kont4169741698_ _hd166264_ _hd163254_) (if (gx#stx-pair? _tl165267_) (let ((_e179212_ (gx#syntax-e _tl165267_))) (let ((_tl177219_ @@ -165,7 +165,7 @@ (declare (not safe)) (##car _e179212_)))) (if (gx#stx-null? _tl177219_) - (___kont4188341884_ + (___kont4169941700_ _hd178216_ _hd166264_ _hd163254_) @@ -178,14 +178,14 @@ (let () (declare (not safe)) (_g158185_)))))) - (let ((__tmp47599 + (let ((__tmp47390 (lambda (_g288291_ _g289294_) (let () (declare (not safe)) (cons _g288291_ _g289294_))))) (declare (not safe)) - (foldr1 __tmp47599 '() _L132_)))) + (foldr1 __tmp47390 '() _L132_)))) (_g300317_ (lambda (_g301313_) (gx#raise-syntax-error @@ -195,41 +195,41 @@ (_g299376_ (lambda (_g301321_) (if (gx#stx-pair/null? _g301321_) - (let ((_g47600_ + (let ((_g47391_ (gx#syntax-split-splice _g301321_ '0))) (begin - (let ((_g47601_ + (let ((_g47392_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47600_) - (##vector-length _g47600_) + _g47391_) + (##vector-length _g47391_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g47601_ 2))) - (error "Context expects 2 values" _g47601_))) + (##fx= _g47392_ 2))) + (error "Context expects 2 values" _g47392_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target303324_ (let () (declare (not safe)) (##vector-ref - _g47600_ + _g47391_ 0))) (_tl305327_ (let () (declare (not safe)) (##vector-ref - _g47600_ + _g47391_ 1)))) (if (gx#stx-null? _tl305327_) @@ -254,46 +254,46 @@ (let ((_clause311350_ (reverse _clause310337_))) ((lambda (_L354_) - (let ((__tmp47613 + (let ((__tmp47404 (gx#datum->syntax '#f 'lambda%)) - (__tmp47602 - (let ((__tmp47611 - (let ((__tmp47612 + (__tmp47393 + (let ((__tmp47402 + (let ((__tmp47403 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp47612 '()))) - (__tmp47603 - (let ((__tmp47604 - (let ((__tmp47610 + (cons __tmp47403 '()))) + (__tmp47394 + (let ((__tmp47395 + (let ((__tmp47401 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-case)) - (__tmp47605 - (let ((__tmp47609 (gx#datum->syntax '#f '$stx)) - (__tmp47606 - (let ((__tmp47607 - (let ((__tmp47608 + (__tmp47396 + (let ((__tmp47400 (gx#datum->syntax '#f '$stx)) + (__tmp47397 + (let ((__tmp47398 + (let ((__tmp47399 (lambda (_g367370_ _g368373_) (let () (declare (not safe)) (cons _g367370_ _g368373_))))) (declare (not safe)) - (foldr1 __tmp47608 '() _L354_)))) + (foldr1 __tmp47399 '() _L354_)))) (declare (not safe)) - (cons _L134_ __tmp47607)))) + (cons _L134_ __tmp47398)))) (declare (not safe)) - (cons __tmp47609 __tmp47606)))) + (cons __tmp47400 __tmp47397)))) (declare (not safe)) - (cons __tmp47610 __tmp47605)))) + (cons __tmp47401 __tmp47396)))) (declare (not safe)) - (cons __tmp47604 '())))) + (cons __tmp47395 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47611 __tmp47603)))) + (cons __tmp47402 __tmp47394)))) (declare (not safe)) - (cons __tmp47613 __tmp47602))) + (cons __tmp47404 __tmp47393))) _clause311350_)))))) (_loop306330_ _target303324_ '())) (_g300317_ _g301321_))))) @@ -314,90 +314,90 @@ (_g50380_ _stx48_)))) (define |gerbil/core$[:0:]#with-syntax| (lambda (_stx386_) - (let* ((___stx4192241923_ _stx386_) + (let* ((___stx4173841739_ _stx386_) (_g391476_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4192241923_)))) - (let ((___kont4192541926_ + ___stx4173841739_)))) + (let ((___kont4174141742_ (lambda (_L816_) - (let ((__tmp47617 (gx#datum->syntax '#f 'let-values)) - (__tmp47614 - (let ((__tmp47615 - (let ((__tmp47616 + (let ((__tmp47408 (gx#datum->syntax '#f 'let-values)) + (__tmp47405 + (let ((__tmp47406 + (let ((__tmp47407 (lambda (_g832835_ _g833838_) (let () (declare (not safe)) (cons _g832835_ _g833838_))))) (declare (not safe)) - (foldr1 __tmp47616 '() _L816_)))) + (foldr1 __tmp47407 '() _L816_)))) (declare (not safe)) - (cons '() __tmp47615)))) + (cons '() __tmp47406)))) (declare (not safe)) - (cons __tmp47617 __tmp47614)))) - (___kont4192941930_ + (cons __tmp47408 __tmp47405)))) + (___kont4174541746_ (lambda (_L724_ _L726_ _L727_) - (let ((__tmp47628 (gx#datum->syntax '#f 'syntax-case)) - (__tmp47618 - (let ((__tmp47619 - (let ((__tmp47620 - (let ((__tmp47621 - (let ((__tmp47622 - (let ((__tmp47623 - (let ((__tmp47627 + (let ((__tmp47419 (gx#datum->syntax '#f 'syntax-case)) + (__tmp47409 + (let ((__tmp47410 + (let ((__tmp47411 + (let ((__tmp47412 + (let ((__tmp47413 + (let ((__tmp47414 + (let ((__tmp47418 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let-values)) - (__tmp47624 - (let ((__tmp47625 - (let ((__tmp47626 + (__tmp47415 + (let ((__tmp47416 + (let ((__tmp47417 (lambda (_g750753_ _g751756_) (let () (declare (not safe)) (cons _g750753_ _g751756_))))) (declare (not safe)) - (foldr1 __tmp47626 '() _L724_)))) + (foldr1 __tmp47417 '() _L724_)))) (declare (not safe)) - (cons '() __tmp47625)))) + (cons '() __tmp47416)))) (declare (not safe)) - (cons __tmp47627 __tmp47624)))) + (cons __tmp47418 __tmp47415)))) (declare (not safe)) - (cons __tmp47623 '())))) + (cons __tmp47414 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L727_ __tmp47622)))) + (cons _L727_ __tmp47413)))) (declare (not safe)) - (cons __tmp47621 '())))) + (cons __tmp47412 '())))) (declare (not safe)) - (cons '() __tmp47620)))) + (cons '() __tmp47411)))) (declare (not safe)) - (cons _L726_ __tmp47619)))) + (cons _L726_ __tmp47410)))) (declare (not safe)) - (cons __tmp47628 __tmp47618)))) - (___kont4193341934_ + (cons __tmp47419 __tmp47409)))) + (___kont4174941750_ (lambda (_L587_ _L589_ _L590_) - (let ((__tmp47645 (gx#datum->syntax '#f 'syntax-case)) - (__tmp47629 - (let ((__tmp47641 - (let ((__tmp47644 + (let ((__tmp47436 (gx#datum->syntax '#f 'syntax-case)) + (__tmp47420 + (let ((__tmp47432 + (let ((__tmp47435 (gx#datum->syntax '#f 'list)) - (__tmp47642 - (let ((__tmp47643 + (__tmp47433 + (let ((__tmp47434 (lambda (_g616619_ _g617622_) (let () (declare (not safe)) (cons _g616619_ _g617622_))))) (declare (not safe)) - (foldr1 __tmp47643 '() _L589_)))) + (foldr1 __tmp47434 '() _L589_)))) (declare (not safe)) - (cons __tmp47644 __tmp47642))) - (__tmp47630 - (let ((__tmp47631 - (let ((__tmp47632 - (let ((__tmp47639 - (let ((__tmp47640 + (cons __tmp47435 __tmp47433))) + (__tmp47421 + (let ((__tmp47422 + (let ((__tmp47423 + (let ((__tmp47430 + (let ((__tmp47431 (lambda (_g614625_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g615628_) @@ -405,48 +405,48 @@ (declare (not safe)) (cons _g614625_ _g615628_))))) (declare (not safe)) - (foldr1 __tmp47640 '() _L590_))) + (foldr1 __tmp47431 '() _L590_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp47633 - (let ((__tmp47634 - (let ((__tmp47638 + (__tmp47424 + (let ((__tmp47425 + (let ((__tmp47429 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let-values)) - (__tmp47635 - (let ((__tmp47636 - (let ((__tmp47637 + (__tmp47426 + (let ((__tmp47427 + (let ((__tmp47428 (lambda (_g612631_ _g613634_) (let () (declare (not safe)) (cons _g612631_ _g613634_))))) (declare (not safe)) - (foldr1 __tmp47637 '() _L587_)))) + (foldr1 __tmp47428 '() _L587_)))) (declare (not safe)) - (cons '() __tmp47636)))) + (cons '() __tmp47427)))) (declare (not safe)) - (cons __tmp47638 __tmp47635)))) + (cons __tmp47429 __tmp47426)))) (declare (not safe)) - (cons __tmp47634 '())))) + (cons __tmp47425 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47639 - __tmp47633)))) + (cons __tmp47430 + __tmp47424)))) (declare (not safe)) - (cons __tmp47632 '())))) + (cons __tmp47423 '())))) (declare (not safe)) - (cons '() __tmp47631)))) + (cons '() __tmp47422)))) (declare (not safe)) - (cons __tmp47641 __tmp47630)))) + (cons __tmp47432 __tmp47421)))) (declare (not safe)) - (cons __tmp47645 __tmp47629))))) - (let* ((___match4202342024_ + (cons __tmp47436 __tmp47420))))) + (let* ((___match4183941840_ (lambda (_e441483_ _hd440487_ _tl439490_ _e444493_ _hd443497_ _tl442500_ - ___splice4193541936_ + ___splice4175141752_ _target445503_ _tl447506_) (letrec ((_loop448509_ @@ -503,7 +503,7 @@ (let ((_pat455554_ (reverse _pat453518_)) (_e454551_ (reverse _e452516_))) (if (gx#stx-pair/null? _tl442500_) - (let ((___splice4193741938_ + (let ((___splice4175341754_ (gx#syntax-split-splice _tl442500_ '0))) @@ -511,13 +511,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4193741938_ + ___splice4175341754_ '1))) (_target462557_ (let () (declare (not safe)) (##vector-ref - ___splice4193741938_ + ___splice4175341754_ '0)))) (if (gx#stx-null? _tl464560_) (letrec ((_loop465563_ @@ -540,7 +540,7 @@ (declare (not safe)) (cons _lp-hd467577_ _body469570_))))) (let ((_body470583_ (reverse _body469570_))) - (___kont4193341934_ + (___kont4174941750_ _body470583_ _e454551_ _pat455554_)))))) @@ -553,7 +553,7 @@ (declare (not safe)) (_g391476_)))))))) (_loop448509_ _target445503_ '() '())))) - (___match4200342004_ + (___match4181941820_ (lambda (_e414644_ _hd413648_ _tl412651_ @@ -569,7 +569,7 @@ _e426684_ _hd425688_ _tl424691_ - ___splice4193141932_ + ___splice4174741748_ _target427694_ _tl429697_) (letrec ((_loop430700_ @@ -593,19 +593,19 @@ _body434707_))))) (let ((_body435720_ (reverse _body434707_))) - (___kont4192941930_ + (___kont4174541746_ _body435720_ _hd425688_ _hd422678_)))))) (_loop430700_ _target427694_ '())))) - (___match4196141962_ + (___match4177741778_ (lambda (_e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4192741928_ + ___splice4174341744_ _target400786_ _tl402789_) (letrec ((_loop403792_ @@ -629,10 +629,10 @@ _body407799_))))) (let ((_body408812_ (reverse _body407799_))) - (___kont4192541926_ _body408812_)))))) + (___kont4174141742_ _body408812_)))))) (_loop403792_ _target400786_ '()))))) - (if (gx#stx-pair? ___stx4192241923_) - (let ((_e396766_ (gx#syntax-e ___stx4192241923_))) + (if (gx#stx-pair? ___stx4173841739_) + (let ((_e396766_ (gx#syntax-e ___stx4173841739_))) (let ((_tl394773_ (let () (declare (not safe)) (##cdr _e396766_))) (_hd395770_ @@ -649,7 +649,7 @@ (##car _e399776_)))) (if (gx#stx-null? _hd398780_) (if (gx#stx-pair/null? _tl397783_) - (let ((___splice4192741928_ + (let ((___splice4174341744_ (gx#syntax-split-splice _tl397783_ '0))) @@ -657,28 +657,28 @@ (let () (declare (not safe)) (##vector-ref - ___splice4192741928_ + ___splice4174341744_ '1))) (_target400786_ (let () (declare (not safe)) (##vector-ref - ___splice4192741928_ + ___splice4174341744_ '0)))) (if (gx#stx-null? _tl402789_) - (___match4196141962_ + (___match4177741778_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4192741928_ + ___splice4174341744_ _target400786_ _tl402789_) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4193541936_ + (let ((___splice4175141752_ (gx#syntax-split-splice _hd398780_ '0))) @@ -687,25 +687,25 @@ (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4202342024_ + (___match4183941840_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4193541936_ + ___splice4175141752_ _target445503_ _tl447506_) (let () @@ -716,7 +716,7 @@ (declare (not safe)) (_g391476_)))))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4193541936_ + (let ((___splice4175141752_ (gx#syntax-split-splice _hd398780_ '0))) @@ -724,23 +724,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4202342024_ + (___match4183941840_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4193541936_ + ___splice4175141752_ _target445503_ _tl447506_) (let () @@ -785,22 +785,22 @@ (if (gx#stx-null? _tl424691_) (if (gx#stx-null? _tl418671_) (if (gx#stx-pair/null? _tl397783_) - (let ((___splice4193141932_ + (let ((___splice4174741748_ (gx#syntax-split-splice _tl397783_ '0))) (let ((_tl429697_ (let () (declare (not safe)) (##vector-ref - ___splice4193141932_ + ___splice4174741748_ '1))) (_target427694_ (let () (declare (not safe)) (##vector-ref - ___splice4193141932_ + ___splice4174741748_ '0)))) (if (gx#stx-null? _tl429697_) - (___match4200342004_ + (___match4181941820_ _e396766_ _hd395770_ _tl394773_ @@ -816,11 +816,11 @@ _e426684_ _hd425688_ _tl424691_ - ___splice4193141932_ + ___splice4174741748_ _target427694_ _tl429697_) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4193541936_ + (let ((___splice4175141752_ (gx#syntax-split-splice _hd398780_ '0))) @@ -828,23 +828,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4202342024_ + (___match4183941840_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4193541936_ + ___splice4175141752_ _target445503_ _tl447506_) (let () @@ -854,7 +854,7 @@ (declare (not safe)) (_g391476_)))))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4193541936_ + (let ((___splice4175141752_ (gx#syntax-split-splice _hd398780_ '0))) @@ -862,23 +862,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4202342024_ + (___match4183941840_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4193541936_ + ___splice4175141752_ _target445503_ _tl447506_) (let () @@ -886,29 +886,29 @@ (_g391476_))))) (let () (declare (not safe)) (_g391476_)))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4193541936_ + (let ((___splice4175141752_ (gx#syntax-split-splice _hd398780_ '0))) (let ((_tl447506_ (let () (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4202342024_ + (___match4183941840_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4193541936_ + ___splice4175141752_ _target445503_ _tl447506_) (let () @@ -916,49 +916,49 @@ (_g391476_))))) (let () (declare (not safe)) (_g391476_)))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4193541936_ + (let ((___splice4175141752_ (gx#syntax-split-splice _hd398780_ '0))) (let ((_tl447506_ (let () (declare (not safe)) - (##vector-ref ___splice4193541936_ '1))) + (##vector-ref ___splice4175141752_ '1))) (_target445503_ (let () (declare (not safe)) - (##vector-ref ___splice4193541936_ '0)))) + (##vector-ref ___splice4175141752_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4202342024_ + (___match4183941840_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4193541936_ + ___splice4175141752_ _target445503_ _tl447506_) (let () (declare (not safe)) (_g391476_))))) (let () (declare (not safe)) (_g391476_)))))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4193541936_ + (let ((___splice4175141752_ (gx#syntax-split-splice _hd398780_ '0))) (let ((_tl447506_ (let () (declare (not safe)) - (##vector-ref ___splice4193541936_ '1))) + (##vector-ref ___splice4175141752_ '1))) (_target445503_ (let () (declare (not safe)) - (##vector-ref ___splice4193541936_ '0)))) + (##vector-ref ___splice4175141752_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4202342024_ + (___match4183941840_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4193541936_ + ___splice4175141752_ _target445503_ _tl447506_) (let () (declare (not safe)) (_g391476_))))) @@ -966,7 +966,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4193541936_ + (let ((___splice4175141752_ (gx#syntax-split-splice _hd398780_ '0))) @@ -975,25 +975,25 @@ (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4202342024_ + (___match4183941840_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4193541936_ + ___splice4175141752_ _target445503_ _tl447506_) (let () @@ -1004,7 +1004,7 @@ (declare (not safe)) (_g391476_)))))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4193541936_ + (let ((___splice4175141752_ (gx#syntax-split-splice _hd398780_ '0))) @@ -1012,23 +1012,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4193541936_ + ___splice4175141752_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4202342024_ + (___match4183941840_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4193541936_ + ___splice4175141752_ _target445503_ _tl447506_) (let () @@ -1041,48 +1041,48 @@ (let () (declare (not safe)) (_g391476_)))))))) (define |gerbil/core$[:0:]#with-syntax*| (lambda (_stx849_) - (let* ((___stx4202642027_ _stx849_) + (let* ((___stx4184241843_ _stx849_) (_g854931_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4202642027_)))) - (let ((___kont4202942030_ + ___stx4184241843_)))) + (let ((___kont4184541846_ (lambda (_L1227_) - (let ((__tmp47649 (gx#datum->syntax '#f 'let-values)) - (__tmp47646 - (let ((__tmp47647 - (let ((__tmp47648 + (let ((__tmp47440 (gx#datum->syntax '#f 'let-values)) + (__tmp47437 + (let ((__tmp47438 + (let ((__tmp47439 (lambda (_g12431246_ _g12441249_) (let () (declare (not safe)) (cons _g12431246_ _g12441249_))))) (declare (not safe)) - (foldr1 __tmp47648 '() _L1227_)))) + (foldr1 __tmp47439 '() _L1227_)))) (declare (not safe)) - (cons '() __tmp47647)))) + (cons '() __tmp47438)))) (declare (not safe)) - (cons __tmp47649 __tmp47646)))) - (___kont4203342034_ + (cons __tmp47440 __tmp47437)))) + (___kont4184941850_ (lambda (_L1129_ _L1131_ _L1132_ _L1133_ _L1134_) - (let ((__tmp47659 (gx#datum->syntax '#f 'let-values)) - (__tmp47650 - (let ((__tmp47656 - (let ((__tmp47657 - (let ((__tmp47658 + (let ((__tmp47450 (gx#datum->syntax '#f 'let-values)) + (__tmp47441 + (let ((__tmp47447 + (let ((__tmp47448 + (let ((__tmp47449 (let () (declare (not safe)) (cons _L1132_ '())))) (declare (not safe)) - (cons _L1133_ __tmp47658)))) + (cons _L1133_ __tmp47449)))) (declare (not safe)) - (cons __tmp47657 '()))) - (__tmp47651 - (let ((__tmp47652 - (let ((__tmp47653 - (let ((__tmp47654 - (let ((__tmp47655 + (cons __tmp47448 '()))) + (__tmp47442 + (let ((__tmp47443 + (let ((__tmp47444 + (let ((__tmp47445 + (let ((__tmp47446 (lambda (_g11611164_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g11621167_) @@ -1090,31 +1090,31 @@ (declare (not safe)) (cons _g11611164_ _g11621167_))))) (declare (not safe)) - (foldr1 __tmp47655 '() _L1129_)))) + (foldr1 __tmp47446 '() _L1129_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1131_ __tmp47654)))) + (cons _L1131_ __tmp47445)))) (declare (not safe)) - (cons _L1134_ __tmp47653)))) + (cons _L1134_ __tmp47444)))) (declare (not safe)) - (cons __tmp47652 '())))) + (cons __tmp47443 '())))) (declare (not safe)) - (cons __tmp47656 __tmp47651)))) + (cons __tmp47447 __tmp47442)))) (declare (not safe)) - (cons __tmp47659 __tmp47650)))) - (___kont4203742038_ + (cons __tmp47450 __tmp47441)))) + (___kont4185341854_ (lambda (_L998_ _L1000_ _L1001_ _L1002_) - (let ((__tmp47667 (gx#datum->syntax '#f 'with-syntax)) - (__tmp47660 - (let ((__tmp47666 + (let ((__tmp47458 (gx#datum->syntax '#f 'with-syntax)) + (__tmp47451 + (let ((__tmp47457 (let () (declare (not safe)) (cons _L1001_ '()))) - (__tmp47661 - (let ((__tmp47662 - (let ((__tmp47663 - (let ((__tmp47664 - (let ((__tmp47665 + (__tmp47452 + (let ((__tmp47453 + (let ((__tmp47454 + (let ((__tmp47455 + (let ((__tmp47456 (lambda (_g10231026_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g10241029_) @@ -1122,19 +1122,19 @@ (declare (not safe)) (cons _g10231026_ _g10241029_))))) (declare (not safe)) - (foldr1 __tmp47665 '() _L998_)))) + (foldr1 __tmp47456 '() _L998_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1000_ __tmp47664)))) + (cons _L1000_ __tmp47455)))) (declare (not safe)) - (cons _L1002_ __tmp47663)))) + (cons _L1002_ __tmp47454)))) (declare (not safe)) - (cons __tmp47662 '())))) + (cons __tmp47453 '())))) (declare (not safe)) - (cons __tmp47666 __tmp47661)))) + (cons __tmp47457 __tmp47452)))) (declare (not safe)) - (cons __tmp47667 __tmp47660))))) - (let* ((___match4213942140_ + (cons __tmp47458 __tmp47451))))) + (let* ((___match4195541956_ (lambda (_e910938_ _hd909942_ _tl908945_ @@ -1144,7 +1144,7 @@ _e916958_ _hd915962_ _tl914965_ - ___splice4203942040_ + ___splice4185541856_ _target917968_ _tl919971_) (letrec ((_loop920974_ @@ -1168,13 +1168,13 @@ _body924981_))))) (let ((_body925994_ (reverse _body924981_))) - (___kont4203742038_ + (___kont4185341854_ _body925994_ _tl914965_ _hd915962_ _hd909942_)))))) (_loop920974_ _target917968_ '())))) - (___match4211342114_ + (___match4192941930_ (lambda (_e8791039_ _hd8781043_ _tl8771046_ @@ -1193,7 +1193,7 @@ _e8941089_ _hd8931093_ _tl8921096_ - ___splice4203542036_ + ___splice4185141852_ _target8951099_ _tl8971102_) (letrec ((_loop8981105_ @@ -1217,21 +1217,21 @@ _body9021112_))))) (let ((_body9031125_ (reverse _body9021112_))) - (___kont4203342034_ + (___kont4184941850_ _body9031125_ _tl8831066_ _hd8931093_ _tl8891086_ _hd8781043_)))))) (_loop8981105_ _target8951099_ '())))) - (___match4206342064_ + (___match4187941880_ (lambda (_e8591177_ _hd8581181_ _tl8571184_ _e8621187_ _hd8611191_ _tl8601194_ - ___splice4203142032_ + ___splice4184741848_ _target8631197_ _tl8651200_) (letrec ((_loop8661203_ @@ -1255,10 +1255,10 @@ _body8701210_))))) (let ((_body8711223_ (reverse _body8701210_))) - (___kont4202942030_ _body8711223_)))))) + (___kont4184541846_ _body8711223_)))))) (_loop8661203_ _target8631197_ '()))))) - (if (gx#stx-pair? ___stx4202642027_) - (let ((_e8591177_ (gx#syntax-e ___stx4202642027_))) + (if (gx#stx-pair? ___stx4184241843_) + (let ((_e8591177_ (gx#syntax-e ___stx4184241843_))) (let ((_tl8571184_ (let () (declare (not safe)) (##cdr _e8591177_))) (_hd8581181_ @@ -1275,7 +1275,7 @@ (##car _e8621187_)))) (if (gx#stx-null? _hd8611191_) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203142032_ + (let ((___splice4184741848_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1283,23 +1283,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4203142032_ + ___splice4184741848_ '1))) (_target8631197_ (let () (declare (not safe)) (##vector-ref - ___splice4203142032_ + ___splice4184741848_ '0)))) (if (gx#stx-null? _tl8651200_) - (___match4206342064_ + (___match4187941880_ _e8591177_ _hd8581181_ _tl8571184_ _e8621187_ _hd8611191_ _tl8601194_ - ___splice4203142032_ + ___splice4184741848_ _target8631197_ _tl8651200_) (let () @@ -1345,7 +1345,7 @@ (let () (declare (not safe)) (##car _e8911079_)))) (if (gx#identifier? _hd8901083_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g47668_| + |gerbil/core$[1]#_g47459_| _hd8901083_) (if (gx#stx-pair? _tl8861076_) (let ((_e8941089_ (gx#syntax-e _tl8861076_))) @@ -1359,7 +1359,7 @@ (##car _e8941089_)))) (if (gx#stx-null? _tl8921096_) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203542036_ + (let ((___splice4185141852_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1367,16 +1367,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4203542036_ + ___splice4185141852_ '1))) (_target8951099_ (let () (declare (not safe)) (##vector-ref - ___splice4203542036_ + ___splice4185141852_ '0)))) (if (gx#stx-null? _tl8971102_) - (___match4211342114_ + (___match4192941930_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1395,7 +1395,7 @@ _e8941089_ _hd8931093_ _tl8921096_ - ___splice4203542036_ + ___splice4185141852_ _target8951099_ _tl8971102_) (let () @@ -1405,7 +1405,7 @@ (declare (not safe)) (_g854931_))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203942040_ + (let ((___splice4185541856_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1413,16 +1413,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4203942040_ + ___splice4185541856_ '1))) (_target917968_ (let () (declare (not safe)) (##vector-ref - ___splice4203942040_ + ___splice4185541856_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4213942140_ + (___match4195541956_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1432,7 +1432,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4203942040_ + ___splice4185541856_ _target917968_ _tl919971_) (let () @@ -1442,7 +1442,7 @@ (declare (not safe)) (_g854931_)))))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203942040_ + (let ((___splice4185541856_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1450,16 +1450,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4203942040_ + ___splice4185541856_ '1))) (_target917968_ (let () (declare (not safe)) (##vector-ref - ___splice4203942040_ + ___splice4185541856_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4213942140_ + (___match4195541956_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1469,7 +1469,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4203942040_ + ___splice4185541856_ _target917968_ _tl919971_) (let () @@ -1477,22 +1477,22 @@ (_g854931_))))) (let () (declare (not safe)) (_g854931_)))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203942040_ + (let ((___splice4185541856_ (gx#syntax-split-splice _tl8601194_ '0))) (let ((_tl919971_ (let () (declare (not safe)) (##vector-ref - ___splice4203942040_ + ___splice4185541856_ '1))) (_target917968_ (let () (declare (not safe)) (##vector-ref - ___splice4203942040_ + ___splice4185541856_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4213942140_ + (___match4195541956_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1502,7 +1502,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4203942040_ + ___splice4185541856_ _target917968_ _tl919971_) (let () @@ -1510,18 +1510,18 @@ (_g854931_))))) (let () (declare (not safe)) (_g854931_)))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203942040_ + (let ((___splice4185541856_ (gx#syntax-split-splice _tl8601194_ '0))) (let ((_tl919971_ (let () (declare (not safe)) - (##vector-ref ___splice4203942040_ '1))) + (##vector-ref ___splice4185541856_ '1))) (_target917968_ (let () (declare (not safe)) - (##vector-ref ___splice4203942040_ '0)))) + (##vector-ref ___splice4185541856_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4213942140_ + (___match4195541956_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1531,24 +1531,24 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4203942040_ + ___splice4185541856_ _target917968_ _tl919971_) (let () (declare (not safe)) (_g854931_))))) (let () (declare (not safe)) (_g854931_)))))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203942040_ + (let ((___splice4185541856_ (gx#syntax-split-splice _tl8601194_ '0))) (let ((_tl919971_ (let () (declare (not safe)) - (##vector-ref ___splice4203942040_ '1))) + (##vector-ref ___splice4185541856_ '1))) (_target917968_ (let () (declare (not safe)) - (##vector-ref ___splice4203942040_ '0)))) + (##vector-ref ___splice4185541856_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4213942140_ + (___match4195541956_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1558,7 +1558,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4203942040_ + ___splice4185541856_ _target917968_ _tl919971_) (let () (declare (not safe)) (_g854931_))))) @@ -1566,7 +1566,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203942040_ + (let ((___splice4185541856_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1575,18 +1575,18 @@ (declare (not safe)) (##vector-ref - ___splice4203942040_ + ___splice4185541856_ '1))) (_target917968_ (let () (declare (not safe)) (##vector-ref - ___splice4203942040_ + ___splice4185541856_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4213942140_ + (___match4195541956_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1596,7 +1596,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4203942040_ + ___splice4185541856_ _target917968_ _tl919971_) (let () @@ -1654,39 +1654,39 @@ (##cdr _e12741307_)))) (if (gx#stx-null? _tl12721314_) ((lambda (_L1317_ _L1319_) - (let ((__tmp47677 + (let ((__tmp47468 (gx#datum->syntax '#f 'stx-wrap-source)) - (__tmp47669 - (let ((__tmp47674 - (let ((__tmp47676 + (__tmp47460 + (let ((__tmp47465 + (let ((__tmp47467 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax)) - (__tmp47675 + (__tmp47466 (let () (declare (not safe)) (cons _L1317_ '())))) (declare (not safe)) - (cons __tmp47676 __tmp47675))) - (__tmp47670 - (let ((__tmp47671 - (let ((__tmp47673 + (cons __tmp47467 __tmp47466))) + (__tmp47461 + (let ((__tmp47462 + (let ((__tmp47464 (gx#datum->syntax '#f 'stx-source)) - (__tmp47672 + (__tmp47463 (let () (declare (not safe)) (cons _L1319_ '())))) (declare (not safe)) - (cons __tmp47673 __tmp47672)))) + (cons __tmp47464 __tmp47463)))) (declare (not safe)) - (cons __tmp47671 '())))) + (cons __tmp47462 '())))) (declare (not safe)) - (cons __tmp47674 __tmp47670)))) + (cons __tmp47465 __tmp47461)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47677 - __tmp47669))) + (cons __tmp47468 + __tmp47460))) _hd12731311_ _hd12701301_) (_g12621280_ _g12631284_)))) diff --git a/src/bootstrap/gerbil/core__3.scm b/src/bootstrap/gerbil/core__3.scm index fa5a2cc68..7b87f7a08 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]#_g47774_| + (define |gerbil/core$$[1]#_g47565_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47775_| + (define |gerbil/core$$[1]#_g47566_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47858_| + (define |gerbil/core$$[1]#_g47649_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47859_| + (define |gerbil/core$$[1]#_g47650_| (##structure gx#syntax-quote::t 'else @@ -66,37 +66,37 @@ (declare (not safe)) (##cdr _e13581400_)))) (if (gx#stx-pair/null? _tl13561407_) - (let ((_g47678_ + (let ((_g47469_ (gx#syntax-split-splice _tl13561407_ '0))) (begin - (let ((_g47679_ + (let ((_g47470_ (let () (declare (not safe)) (if (##values? - _g47678_) + _g47469_) (##vector-length - _g47678_) + _g47469_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g47679_ 2))) - (error "Context expects 2 values" _g47679_))) + (##fx= _g47470_ 2))) + (error "Context expects 2 values" _g47470_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target13591410_ (let () (declare (not safe)) (##vector-ref - _g47678_ + _g47469_ 0))) (_tl13611413_ (let () (declare (not safe)) (##vector-ref - _g47678_ + _g47469_ 1)))) (if (gx#stx-null? _tl13611413_) @@ -123,37 +123,37 @@ (reverse _clauses13661423_))) ((lambda (_L1440_ _L1442_ _L1443_) (if (gx#identifier? _L1443_) - (let ((__tmp47687 + (let ((__tmp47478 (gx#datum->syntax '#f 'define-syntax)) - (__tmp47680 - (let ((__tmp47681 - (let ((__tmp47682 - (let ((__tmp47686 + (__tmp47471 + (let ((__tmp47472 + (let ((__tmp47473 + (let ((__tmp47477 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-rules)) - (__tmp47683 - (let ((__tmp47684 - (let ((__tmp47685 + (__tmp47474 + (let ((__tmp47475 + (let ((__tmp47476 (lambda (_g14651468_ _g14661471_) (let () (declare (not safe)) (cons _g14651468_ _g14661471_))))) (declare (not safe)) - (foldr1 __tmp47685 '() _L1440_)))) + (foldr1 __tmp47476 '() _L1440_)))) (declare (not safe)) - (cons _L1442_ __tmp47684)))) + (cons _L1442_ __tmp47475)))) (declare (not safe)) - (cons __tmp47686 __tmp47683)))) + (cons __tmp47477 __tmp47474)))) (declare (not safe)) - (cons __tmp47682 '())))) + (cons __tmp47473 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1443_ __tmp47681)))) + (cons _L1443_ __tmp47472)))) (declare (not safe)) - (cons __tmp47687 __tmp47680)) + (cons __tmp47478 __tmp47471)) (_g13451373_ _g13461377_))) _clauses13671436_ _hd13571404_ @@ -168,24 +168,24 @@ (_g13441474_ _$stx1341_)))) (define |gerbil/core$$[:0:]#defsyntax%| (lambda (_$stx1479_) - (let* ((___stx4214242143_ _$stx1479_) + (let* ((___stx4195841959_ _$stx1479_) (_g14841523_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4214242143_)))) - (let ((___kont4214542146_ + ___stx4195841959_)))) + (let ((___kont4196141962_ (lambda (_L1645_ _L1647_ _L1648_) - (let ((__tmp47695 (gx#datum->syntax '#f 'define-syntax)) - (__tmp47688 - (let ((__tmp47689 - (let ((__tmp47690 - (let ((__tmp47694 + (let ((__tmp47486 (gx#datum->syntax '#f 'define-syntax)) + (__tmp47479 + (let ((__tmp47480 + (let ((__tmp47481 + (let ((__tmp47485 (gx#datum->syntax '#f 'lambda%)) - (__tmp47691 - (let ((__tmp47692 - (let ((__tmp47693 + (__tmp47482 + (let ((__tmp47483 + (let ((__tmp47484 (lambda (_g16671670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g16681673_) @@ -193,31 +193,31 @@ (declare (not safe)) (cons _g16671670_ _g16681673_))))) (declare (not safe)) - (foldr1 __tmp47693 '() _L1645_)))) + (foldr1 __tmp47484 '() _L1645_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1647_ __tmp47692)))) + (cons _L1647_ __tmp47483)))) (declare (not safe)) - (cons __tmp47694 __tmp47691)))) + (cons __tmp47485 __tmp47482)))) (declare (not safe)) - (cons __tmp47690 '())))) + (cons __tmp47481 '())))) (declare (not safe)) - (cons _L1648_ __tmp47689)))) + (cons _L1648_ __tmp47480)))) (declare (not safe)) - (cons __tmp47695 __tmp47688)))) - (___kont4214942150_ + (cons __tmp47486 __tmp47479)))) + (___kont4196541966_ (lambda (_L1560_ _L1562_) - (let ((__tmp47698 (gx#datum->syntax '#f 'define-syntax)) - (__tmp47696 - (let ((__tmp47697 + (let ((__tmp47489 (gx#datum->syntax '#f 'define-syntax)) + (__tmp47487 + (let ((__tmp47488 (let () (declare (not safe)) (cons _L1560_ '())))) (declare (not safe)) - (cons _L1562_ __tmp47697)))) + (cons _L1562_ __tmp47488)))) (declare (not safe)) - (cons __tmp47698 __tmp47696))))) - (let* ((___match4219742198_ + (cons __tmp47489 __tmp47487))))) + (let* ((___match4201342014_ (lambda (_e15111530_ _hd15101534_ _tl15091537_ @@ -229,9 +229,9 @@ _tl15151557_) (let ((_L1560_ _hd15161554_) (_L1562_ _hd15131544_)) (if (gx#identifier? _L1562_) - (___kont4214942150_ _L1560_ _L1562_) + (___kont4196541966_ _L1560_ _L1562_) (let () (declare (not safe)) (_g14841523_)))))) - (___match4218942190_ + (___match4200542006_ (lambda (_e15111530_ _hd15101534_ _tl15091537_ @@ -249,7 +249,7 @@ (declare (not safe)) (##car _e15171550_)))) (if (gx#stx-null? _tl15151557_) - (___match4219742198_ + (___match4201342014_ _e15111530_ _hd15101534_ _tl15091537_ @@ -263,7 +263,7 @@ (declare (not safe)) (_g14841523_))))) (let () (declare (not safe)) (_g14841523_))))) - (___match4217742178_ + (___match4199341994_ (lambda (_e14911585_ _hd14901589_ _tl14891592_ @@ -273,7 +273,7 @@ _e14971605_ _hd14961609_ _tl14951612_ - ___splice4214742148_ + ___splice4196341964_ _target14981615_ _tl15001618_) (letrec ((_loop15011621_ @@ -301,11 +301,11 @@ (_L1647_ _tl14951612_) (_L1648_ _hd14961609_)) (if (gx#identifier? _L1648_) - (___kont4214542146_ + (___kont4196141962_ _L1645_ _L1647_ _L1648_) - (___match4218942190_ + (___match4200542006_ _e14911585_ _hd14901589_ _tl14891592_ @@ -313,8 +313,8 @@ _hd14931599_ _tl14921602_)))))))) (_loop15011621_ _target14981615_ '()))))) - (if (gx#stx-pair? ___stx4214242143_) - (let ((_e14911585_ (gx#syntax-e ___stx4214242143_))) + (if (gx#stx-pair? ___stx4195841959_) + (let ((_e14911585_ (gx#syntax-e ___stx4195841959_))) (let ((_tl14891592_ (let () (declare (not safe)) (##cdr _e14911585_))) (_hd14901589_ @@ -341,7 +341,7 @@ (declare (not safe)) (##car _e14971605_)))) (if (gx#stx-pair/null? _tl14921602_) - (let ((___splice4214742148_ + (let ((___splice4196341964_ (gx#syntax-split-splice _tl14921602_ '0))) @@ -349,16 +349,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4214742148_ + ___splice4196341964_ '1))) (_target14981615_ (let () (declare (not safe)) (##vector-ref - ___splice4214742148_ + ___splice4196341964_ '0)))) (if (gx#stx-null? _tl15001618_) - (___match4217742178_ + (___match4199341994_ _e14911585_ _hd14901589_ _tl14891592_ @@ -368,7 +368,7 @@ _e14971605_ _hd14961609_ _tl14951612_ - ___splice4214742148_ + ___splice4196341964_ _target14981615_ _tl15001618_) (if (gx#stx-pair? @@ -384,7 +384,7 @@ (_hd15161554_ (let () (declare (not safe)) (##car _e15171550_)))) (if (gx#stx-null? _tl15151557_) - (___match4219742198_ + (___match4201342014_ _e14911585_ _hd14901589_ _tl14891592_ @@ -411,7 +411,7 @@ (##car _e15171550_)))) (if (gx#stx-null? _tl15151557_) - (___match4219742198_ + (___match4201342014_ _e14911585_ _hd14901589_ _tl14891592_ @@ -439,7 +439,7 @@ (declare (not safe)) (##car _e15171550_)))) (if (gx#stx-null? _tl15151557_) - (___match4219742198_ + (___match4201342014_ _e14911585_ _hd14901589_ _tl14891592_ @@ -500,22 +500,22 @@ (##cdr _e16971730_)))) (if (gx#stx-null? _tl16951737_) ((lambda (_L1740_ _L1742_) - (let ((__tmp47701 + (let ((__tmp47492 (gx#datum->syntax '#f 'define-alias)) - (__tmp47699 - (let ((__tmp47700 + (__tmp47490 + (let ((__tmp47491 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L1740_ '())))) (declare (not safe)) - (cons _L1742_ __tmp47700)))) + (cons _L1742_ __tmp47491)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47701 - __tmp47699))) + (cons __tmp47492 + __tmp47490))) _hd16961734_ _hd16931724_) (_g16851703_ _g16861707_)))) @@ -525,28 +525,28 @@ (_g16841758_ _$stx1681_)))) (define |gerbil/core$$[:0:]#define| (lambda (_$stx1762_) - (let* ((___stx4220042201_ _$stx1762_) + (let* ((___stx4201642017_ _$stx1762_) (_g17671806_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4220042201_)))) - (let ((___kont4220342204_ + ___stx4201642017_)))) + (let ((___kont4201942020_ (lambda (_L1928_ _L1930_ _L1931_) - (let ((__tmp47710 (gx#datum->syntax '#f 'define-values)) - (__tmp47702 - (let ((__tmp47709 + (let ((__tmp47501 (gx#datum->syntax '#f 'define-values)) + (__tmp47493 + (let ((__tmp47500 (let () (declare (not safe)) (cons _L1931_ '()))) - (__tmp47703 - (let ((__tmp47704 - (let ((__tmp47708 + (__tmp47494 + (let ((__tmp47495 + (let ((__tmp47499 (gx#datum->syntax '#f 'lambda%)) - (__tmp47705 - (let ((__tmp47706 - (let ((__tmp47707 + (__tmp47496 + (let ((__tmp47497 + (let ((__tmp47498 (lambda (_g19501953_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g19511956_) @@ -554,35 +554,35 @@ (declare (not safe)) (cons _g19501953_ _g19511956_))))) (declare (not safe)) - (foldr1 __tmp47707 '() _L1928_)))) + (foldr1 __tmp47498 '() _L1928_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1930_ __tmp47706)))) + (cons _L1930_ __tmp47497)))) (declare (not safe)) - (cons __tmp47708 __tmp47705)))) + (cons __tmp47499 __tmp47496)))) (declare (not safe)) - (cons __tmp47704 '())))) + (cons __tmp47495 '())))) (declare (not safe)) - (cons __tmp47709 __tmp47703)))) + (cons __tmp47500 __tmp47494)))) (declare (not safe)) - (cons __tmp47710 __tmp47702)))) - (___kont4220742208_ + (cons __tmp47501 __tmp47493)))) + (___kont4202342024_ (lambda (_L1843_ _L1845_) - (let ((__tmp47714 (gx#datum->syntax '#f 'define-values)) - (__tmp47711 - (let ((__tmp47713 + (let ((__tmp47505 (gx#datum->syntax '#f 'define-values)) + (__tmp47502 + (let ((__tmp47504 (let () (declare (not safe)) (cons _L1845_ '()))) - (__tmp47712 + (__tmp47503 (let () (declare (not safe)) (cons _L1843_ '())))) (declare (not safe)) - (cons __tmp47713 __tmp47712)))) + (cons __tmp47504 __tmp47503)))) (declare (not safe)) - (cons __tmp47714 __tmp47711))))) - (let* ((___match4225542256_ + (cons __tmp47505 __tmp47502))))) + (let* ((___match4207142072_ (lambda (_e17941813_ _hd17931817_ _tl17921820_ @@ -594,9 +594,9 @@ _tl17981840_) (let ((_L1843_ _hd17991837_) (_L1845_ _hd17961827_)) (if (gx#identifier? _L1845_) - (___kont4220742208_ _L1843_ _L1845_) + (___kont4202342024_ _L1843_ _L1845_) (let () (declare (not safe)) (_g17671806_)))))) - (___match4224742248_ + (___match4206342064_ (lambda (_e17941813_ _hd17931817_ _tl17921820_ @@ -614,7 +614,7 @@ (declare (not safe)) (##car _e18001833_)))) (if (gx#stx-null? _tl17981840_) - (___match4225542256_ + (___match4207142072_ _e17941813_ _hd17931817_ _tl17921820_ @@ -628,7 +628,7 @@ (declare (not safe)) (_g17671806_))))) (let () (declare (not safe)) (_g17671806_))))) - (___match4223542236_ + (___match4205142052_ (lambda (_e17741868_ _hd17731872_ _tl17721875_ @@ -638,7 +638,7 @@ _e17801888_ _hd17791892_ _tl17781895_ - ___splice4220542206_ + ___splice4202142022_ _target17811898_ _tl17831901_) (letrec ((_loop17841904_ @@ -666,11 +666,11 @@ (_L1930_ _tl17781895_) (_L1931_ _hd17791892_)) (if (gx#identifier? _L1931_) - (___kont4220342204_ + (___kont4201942020_ _L1928_ _L1930_ _L1931_) - (___match4224742248_ + (___match4206342064_ _e17741868_ _hd17731872_ _tl17721875_ @@ -678,8 +678,8 @@ _hd17761882_ _tl17751885_)))))))) (_loop17841904_ _target17811898_ '()))))) - (if (gx#stx-pair? ___stx4220042201_) - (let ((_e17741868_ (gx#syntax-e ___stx4220042201_))) + (if (gx#stx-pair? ___stx4201642017_) + (let ((_e17741868_ (gx#syntax-e ___stx4201642017_))) (let ((_tl17721875_ (let () (declare (not safe)) (##cdr _e17741868_))) (_hd17731872_ @@ -706,7 +706,7 @@ (declare (not safe)) (##car _e17801888_)))) (if (gx#stx-pair/null? _tl17751885_) - (let ((___splice4220542206_ + (let ((___splice4202142022_ (gx#syntax-split-splice _tl17751885_ '0))) @@ -714,16 +714,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4220542206_ + ___splice4202142022_ '1))) (_target17811898_ (let () (declare (not safe)) (##vector-ref - ___splice4220542206_ + ___splice4202142022_ '0)))) (if (gx#stx-null? _tl17831901_) - (___match4223542236_ + (___match4205142052_ _e17741868_ _hd17731872_ _tl17721875_ @@ -733,7 +733,7 @@ _e17801888_ _hd17791892_ _tl17781895_ - ___splice4220542206_ + ___splice4202142022_ _target17811898_ _tl17831901_) (if (gx#stx-pair? @@ -749,7 +749,7 @@ (_hd17991837_ (let () (declare (not safe)) (##car _e18001833_)))) (if (gx#stx-null? _tl17981840_) - (___match4225542256_ + (___match4207142072_ _e17741868_ _hd17731872_ _tl17721875_ @@ -776,7 +776,7 @@ (##car _e18001833_)))) (if (gx#stx-null? _tl17981840_) - (___match4225542256_ + (___match4207142072_ _e17741868_ _hd17731872_ _tl17721875_ @@ -804,7 +804,7 @@ (declare (not safe)) (##car _e18001833_)))) (if (gx#stx-null? _tl17981840_) - (___match4225542256_ + (___match4207142072_ _e17741868_ _hd17731872_ _tl17721875_ @@ -824,42 +824,42 @@ (let () (declare (not safe)) (_g17671806_)))))))) (define |gerbil/core$$[:0:]#let*-values| (lambda (_$stx1964_) - (let* ((___stx4225842259_ _$stx1964_) + (let* ((___stx4207442075_ _$stx1964_) (_g19692014_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4225842259_)))) - (let ((___kont4226142262_ + ___stx4207442075_)))) + (let ((___kont4207742078_ (lambda (_L2172_) - (let ((__tmp47718 (gx#datum->syntax '#f 'let-values)) - (__tmp47715 - (let ((__tmp47716 - (let ((__tmp47717 + (let ((__tmp47509 (gx#datum->syntax '#f 'let-values)) + (__tmp47506 + (let ((__tmp47507 + (let ((__tmp47508 (lambda (_g21882191_ _g21892194_) (let () (declare (not safe)) (cons _g21882191_ _g21892194_))))) (declare (not safe)) - (foldr1 __tmp47717 '() _L2172_)))) + (foldr1 __tmp47508 '() _L2172_)))) (declare (not safe)) - (cons '() __tmp47716)))) + (cons '() __tmp47507)))) (declare (not safe)) - (cons __tmp47718 __tmp47715)))) - (___kont4226542266_ + (cons __tmp47509 __tmp47506)))) + (___kont4208142082_ (lambda (_L2081_ _L2083_ _L2084_ _L2085_) - (let ((__tmp47726 (gx#datum->syntax '#f 'let-values)) - (__tmp47719 - (let ((__tmp47725 + (let ((__tmp47517 (gx#datum->syntax '#f 'let-values)) + (__tmp47510 + (let ((__tmp47516 (let () (declare (not safe)) (cons _L2084_ '()))) - (__tmp47720 - (let ((__tmp47721 - (let ((__tmp47722 - (let ((__tmp47723 - (let ((__tmp47724 + (__tmp47511 + (let ((__tmp47512 + (let ((__tmp47513 + (let ((__tmp47514 + (let ((__tmp47515 (lambda (_g21062109_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g21072112_) @@ -867,19 +867,19 @@ (declare (not safe)) (cons _g21062109_ _g21072112_))))) (declare (not safe)) - (foldr1 __tmp47724 '() _L2081_)))) + (foldr1 __tmp47515 '() _L2081_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L2083_ __tmp47723)))) + (cons _L2083_ __tmp47514)))) (declare (not safe)) - (cons _L2085_ __tmp47722)))) + (cons _L2085_ __tmp47513)))) (declare (not safe)) - (cons __tmp47721 '())))) + (cons __tmp47512 '())))) (declare (not safe)) - (cons __tmp47725 __tmp47720)))) + (cons __tmp47516 __tmp47511)))) (declare (not safe)) - (cons __tmp47726 __tmp47719))))) - (let* ((___match4231742318_ + (cons __tmp47517 __tmp47510))))) + (let* ((___match4213342134_ (lambda (_e19932021_ _hd19922025_ _tl19912028_ @@ -889,7 +889,7 @@ _e19992041_ _hd19982045_ _tl19972048_ - ___splice4226742268_ + ___splice4208342084_ _target20002051_ _tl20022054_) (letrec ((_loop20032057_ @@ -913,20 +913,20 @@ _body20072064_))))) (let ((_body20082077_ (reverse _body20072064_))) - (___kont4226542266_ + (___kont4208142082_ _body20082077_ _tl19972048_ _hd19982045_ _hd19922025_)))))) (_loop20032057_ _target20002051_ '())))) - (___match4229142292_ + (___match4210742108_ (lambda (_e19742122_ _hd19732126_ _tl19722129_ _e19772132_ _hd19762136_ _tl19752139_ - ___splice4226342264_ + ___splice4207942080_ _target19782142_ _tl19802145_) (letrec ((_loop19812148_ @@ -950,11 +950,11 @@ _body19852155_))))) (let ((_body19862168_ (reverse _body19852155_))) - (___kont4226142262_ + (___kont4207742078_ _body19862168_)))))) (_loop19812148_ _target19782142_ '()))))) - (if (gx#stx-pair? ___stx4225842259_) - (let ((_e19742122_ (gx#syntax-e ___stx4225842259_))) + (if (gx#stx-pair? ___stx4207442075_) + (let ((_e19742122_ (gx#syntax-e ___stx4207442075_))) (let ((_tl19722129_ (let () (declare (not safe)) (##cdr _e19742122_))) (_hd19732126_ @@ -971,7 +971,7 @@ (##car _e19772132_)))) (if (gx#stx-null? _hd19762136_) (if (gx#stx-pair/null? _tl19752139_) - (let ((___splice4226342264_ + (let ((___splice4207942080_ (gx#syntax-split-splice _tl19752139_ '0))) @@ -979,23 +979,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4226342264_ + ___splice4207942080_ '1))) (_target19782142_ (let () (declare (not safe)) (##vector-ref - ___splice4226342264_ + ___splice4207942080_ '0)))) (if (gx#stx-null? _tl19802145_) - (___match4229142292_ + (___match4210742108_ _e19742122_ _hd19732126_ _tl19722129_ _e19772132_ _hd19762136_ _tl19752139_ - ___splice4226342264_ + ___splice4207942080_ _target19782142_ _tl19802145_) (let () @@ -1016,7 +1016,7 @@ (declare (not safe)) (##car _e19992041_)))) (if (gx#stx-pair/null? _tl19752139_) - (let ((___splice4226742268_ + (let ((___splice4208342084_ (gx#syntax-split-splice _tl19752139_ '0))) @@ -1024,17 +1024,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4226742268_ + ___splice4208342084_ '1))) (_target20002051_ (let () (declare (not safe)) (##vector-ref - ___splice4226742268_ + ___splice4208342084_ '0)))) (if (gx#stx-null? _tl20022054_) - (___match4231742318_ + (___match4213342134_ _e19742122_ _hd19732126_ _tl19722129_ @@ -1044,7 +1044,7 @@ _e19992041_ _hd19982045_ _tl19972048_ - ___splice4226742268_ + ___splice4208342084_ _target20002051_ _tl20022054_) (let () @@ -1060,87 +1060,87 @@ (let () (declare (not safe)) (_g19692014_)))))))) (define |gerbil/core$$[:0:]#let| (lambda (_$stx2203_) - (let* ((___stx4232042321_ _$stx2203_) + (let* ((___stx4213642137_ _$stx2203_) (_g22082272_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4232042321_)))) - (let ((___kont4232342324_ + ___stx4213642137_)))) + (let ((___kont4213942140_ (lambda (_L2478_ _L2480_ _L2481_ _L2482_ _L2483_) - (let ((__tmp47729 - (let ((__tmp47743 + (let ((__tmp47520 + (let ((__tmp47534 (gx#datum->syntax '#f 'letrec-values)) - (__tmp47730 - (let ((__tmp47732 - (let ((__tmp47733 - (let ((__tmp47742 + (__tmp47521 + (let ((__tmp47523 + (let ((__tmp47524 + (let ((__tmp47533 (let () (declare (not safe)) (cons _L2483_ '()))) - (__tmp47734 - (let ((__tmp47735 - (let ((__tmp47741 + (__tmp47525 + (let ((__tmp47526 + (let ((__tmp47532 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda%)) - (__tmp47736 - (let ((__tmp47739 - (let ((__tmp47740 + (__tmp47527 + (let ((__tmp47530 + (let ((__tmp47531 (lambda (_g25122515_ _g25132518_) (let () (declare (not safe)) (cons _g25122515_ _g25132518_))))) (declare (not safe)) - (foldr1 __tmp47740 _L2480_ _L2482_))) - (__tmp47737 - (let ((__tmp47738 + (foldr1 __tmp47531 _L2480_ _L2482_))) + (__tmp47528 + (let ((__tmp47529 (lambda (_g25102521_ _g25112524_) (let () (declare (not safe)) (cons _g25102521_ _g25112524_))))) (declare (not safe)) - (foldr1 __tmp47738 '() _L2478_)))) + (foldr1 __tmp47529 '() _L2478_)))) (declare (not safe)) - (cons __tmp47739 __tmp47737)))) + (cons __tmp47530 __tmp47528)))) (declare (not safe)) - (cons __tmp47741 __tmp47736)))) + (cons __tmp47532 __tmp47527)))) (declare (not safe)) - (cons __tmp47735 '())))) + (cons __tmp47526 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47742 - __tmp47734)))) + (cons __tmp47533 + __tmp47525)))) (declare (not safe)) - (cons __tmp47733 '()))) - (__tmp47731 + (cons __tmp47524 '()))) + (__tmp47522 (let () (declare (not safe)) (cons _L2483_ '())))) (declare (not safe)) - (cons __tmp47732 __tmp47731)))) + (cons __tmp47523 __tmp47522)))) (declare (not safe)) - (cons __tmp47743 __tmp47730))) - (__tmp47727 - (let ((__tmp47728 + (cons __tmp47534 __tmp47521))) + (__tmp47518 + (let ((__tmp47519 (lambda (_g25082527_ _g25092530_) (let () (declare (not safe)) (cons _g25082527_ _g25092530_))))) (declare (not safe)) - (foldr1 __tmp47728 '() _L2481_)))) + (foldr1 __tmp47519 '() _L2481_)))) (declare (not safe)) - (cons __tmp47729 __tmp47727)))) - (___kont4232942330_ + (cons __tmp47520 __tmp47518)))) + (___kont4214542146_ (lambda (_L2329_ _L2331_) - (let ((__tmp47749 (gx#datum->syntax '#f '~let)) - (__tmp47744 - (let ((__tmp47748 (gx#datum->syntax '#f 'let-values)) - (__tmp47745 - (let ((__tmp47746 - (let ((__tmp47747 + (let ((__tmp47540 (gx#datum->syntax '#f '~let)) + (__tmp47535 + (let ((__tmp47539 (gx#datum->syntax '#f 'let-values)) + (__tmp47536 + (let ((__tmp47537 + (let ((__tmp47538 (lambda (_g23482351_ _g23492354_) (let () @@ -1148,21 +1148,21 @@ (cons _g23482351_ _g23492354_))))) (declare (not safe)) - (foldr1 __tmp47747 '() _L2329_)))) + (foldr1 __tmp47538 '() _L2329_)))) (declare (not safe)) - (cons _L2331_ __tmp47746)))) + (cons _L2331_ __tmp47537)))) (declare (not safe)) - (cons __tmp47748 __tmp47745)))) + (cons __tmp47539 __tmp47536)))) (declare (not safe)) - (cons __tmp47749 __tmp47744))))) - (let* ((___match4237742378_ + (cons __tmp47540 __tmp47535))))) + (let* ((___match4219342194_ (lambda (_e22542279_ _hd22532283_ _tl22522286_ _e22572289_ _hd22562293_ _tl22552296_ - ___splice4233142332_ + ___splice4214742148_ _target22582299_ _tl22602302_) (letrec ((_loop22612305_ @@ -1186,11 +1186,11 @@ _body22652312_))))) (let ((_body22662325_ (reverse _body22652312_))) - (___kont4232942330_ + (___kont4214542146_ _body22662325_ _hd22562293_)))))) (_loop22612305_ _target22582299_ '())))) - (___match4236942370_ + (___match4218542186_ (lambda (_e22542279_ _hd22532283_ _tl22522286_ @@ -1198,32 +1198,32 @@ _hd22562293_ _tl22552296_) (if (gx#stx-pair/null? _tl22552296_) - (let ((___splice4233142332_ + (let ((___splice4214742148_ (gx#syntax-split-splice _tl22552296_ '0))) (let ((_tl22602302_ (let () (declare (not safe)) - (##vector-ref ___splice4233142332_ '1))) + (##vector-ref ___splice4214742148_ '1))) (_target22582299_ (let () (declare (not safe)) - (##vector-ref ___splice4233142332_ '0)))) + (##vector-ref ___splice4214742148_ '0)))) (if (gx#stx-null? _tl22602302_) - (___match4237742378_ + (___match4219342194_ _e22542279_ _hd22532283_ _tl22522286_ _e22572289_ _hd22562293_ _tl22552296_ - ___splice4233142332_ + ___splice4214742148_ _target22582299_ _tl22602302_) (let () (declare (not safe)) (_g22082272_))))) (let () (declare (not safe)) (_g22082272_))))) - (___match4235742358_ + (___match4217342174_ (lambda (_e22172364_ _hd22162368_ _tl22152371_ @@ -1233,7 +1233,7 @@ _e22232384_ _hd22222388_ _tl22212391_ - ___splice4232542326_ + ___splice4214142142_ _target22242394_ _tl22262397_) (letrec ((_loop22272400_ @@ -1284,14 +1284,14 @@ (let () (declare (not safe)) (cons _hd22362426_ _var22322409_))) - (___match4236942370_ + (___match4218542186_ _e22172364_ _hd22162368_ _tl22152371_ _e22202374_ _hd22192378_ _tl22182381_)))) - (___match4236942370_ + (___match4218542186_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1299,7 +1299,7 @@ _hd22192378_ _tl22182381_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4236942370_ + (___match4218542186_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1311,7 +1311,7 @@ (_arg22332442_ (reverse _arg22312407_))) (if (gx#stx-pair/null? _tl22212391_) - (let ((___splice4232742328_ + (let ((___splice4214342144_ (gx#syntax-split-splice _tl22212391_ '0))) @@ -1319,13 +1319,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4232742328_ + ___splice4214342144_ '1))) (_target22412448_ (let () (declare (not safe)) (##vector-ref - ___splice4232742328_ + ___splice4214342144_ '0)))) (if (gx#stx-null? _tl22432451_) (letrec ((_loop22442454_ @@ -1354,13 +1354,13 @@ (_L2482_ _var22342445_) (_L2483_ _hd22192378_)) (if (gx#identifier? _L2483_) - (___kont4232342324_ + (___kont4213942140_ _L2478_ _L2480_ _L2481_ _L2482_ _L2483_) - (___match4236942370_ + (___match4218542186_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1369,14 +1369,14 @@ _tl22182381_)))))))) (_loop22442454_ _target22412448_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4236942370_ + (___match4218542186_ _e22172364_ _hd22162368_ _tl22152371_ _e22202374_ _hd22192378_ _tl22182381_)))) - (___match4236942370_ + (___match4218542186_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1384,8 +1384,8 @@ _hd22192378_ _tl22182381_))))))) (_loop22272400_ _target22242394_ '() '()))))) - (if (gx#stx-pair? ___stx4232042321_) - (let ((_e22172364_ (gx#syntax-e ___stx4232042321_))) + (if (gx#stx-pair? ___stx4213642137_) + (let ((_e22172364_ (gx#syntax-e ___stx4213642137_))) (let ((_tl22152371_ (let () (declare (not safe)) (##cdr _e22172364_))) (_hd22162368_ @@ -1412,7 +1412,7 @@ (declare (not safe)) (##car _e22232384_)))) (if (gx#stx-pair/null? _hd22222388_) - (let ((___splice4232542326_ + (let ((___splice4214142142_ (gx#syntax-split-splice _hd22222388_ '0))) @@ -1420,15 +1420,15 @@ (let () (declare (not safe)) (##vector-ref - ___splice4232542326_ + ___splice4214142142_ '1))) (_target22242394_ (let () (declare (not safe)) (##vector-ref - ___splice4232542326_ + ___splice4214142142_ '0)))) - (___match4235742358_ + (___match4217342174_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1438,11 +1438,11 @@ _e22232384_ _hd22222388_ _tl22212391_ - ___splice4232542326_ + ___splice4214142142_ _target22242394_ _tl22262397_))) (if (gx#stx-pair/null? _tl22182381_) - (let ((___splice4233142332_ + (let ((___splice4214742148_ (gx#syntax-split-splice _tl22182381_ '0))) @@ -1450,24 +1450,24 @@ (let () (declare (not safe)) (##vector-ref - ___splice4233142332_ + ___splice4214742148_ '1))) (_target22582299_ (let () (declare (not safe)) (##vector-ref - ___splice4233142332_ + ___splice4214742148_ '0)))) (if (gx#stx-null? _tl22602302_) - (___match4237742378_ + (___match4219342194_ _e22172364_ _hd22162368_ _tl22152371_ _e22202374_ _hd22192378_ _tl22182381_ - ___splice4233142332_ + ___splice4214742148_ _target22582299_ _tl22602302_) (let () @@ -1477,7 +1477,7 @@ (declare (not safe)) (_g22082272_)))))) (if (gx#stx-pair/null? _tl22182381_) - (let ((___splice4233142332_ + (let ((___splice4214742148_ (gx#syntax-split-splice _tl22182381_ '0))) @@ -1485,23 +1485,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4233142332_ + ___splice4214742148_ '1))) (_target22582299_ (let () (declare (not safe)) (##vector-ref - ___splice4233142332_ + ___splice4214742148_ '0)))) (if (gx#stx-null? _tl22602302_) - (___match4237742378_ + (___match4219342194_ _e22172364_ _hd22162368_ _tl22152371_ _e22202374_ _hd22192378_ _tl22182381_ - ___splice4233142332_ + ___splice4214742148_ _target22582299_ _tl22602302_) (let () @@ -1543,31 +1543,31 @@ (declare (not safe)) (##cdr _e25532585_)))) (if (gx#stx-pair/null? _tl25512592_) - (let ((_g47750_ + (let ((_g47541_ (gx#syntax-split-splice _tl25512592_ '0))) (begin - (let ((_g47751_ + (let ((_g47542_ (let () (declare (not safe)) - (if (##values? _g47750_) + (if (##values? _g47541_) (##vector-length - _g47750_) + _g47541_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47751_ 2))) + (##fx= _g47542_ 2))) (error "Context expects 2 values" - _g47751_))) + _g47542_))) (let ((_target25542595_ (let () (declare (not safe)) - (##vector-ref _g47750_ 0))) + (##vector-ref _g47541_ 0))) (_tl25562598_ (let () (declare (not safe)) - (##vector-ref _g47750_ 1)))) + (##vector-ref _g47541_ 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 ((__tmp47757 (gx#datum->syntax '#f '~let)) - (__tmp47752 - (let ((__tmp47756 + (let ((__tmp47548 (gx#datum->syntax '#f '~let)) + (__tmp47543 + (let ((__tmp47547 (gx#datum->syntax '#f 'let*-values)) - (__tmp47753 - (let ((__tmp47754 - (let ((__tmp47755 + (__tmp47544 + (let ((__tmp47545 + (let ((__tmp47546 (lambda (_g26442647_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g26452650_) @@ -1605,15 +1605,15 @@ (cons _g26442647_ _g26452650_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp47755 + (foldr1 __tmp47546 '() _L2625_)))) (declare (not safe)) - (cons _L2627_ __tmp47754)))) + (cons _L2627_ __tmp47545)))) (declare (not safe)) - (cons __tmp47756 __tmp47753)))) + (cons __tmp47547 __tmp47544)))) (declare (not safe)) - (cons __tmp47757 __tmp47752))) + (cons __tmp47548 __tmp47543))) _body25622621_ _hd25522589_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1656,31 +1656,31 @@ (declare (not safe)) (##cdr _e26712703_)))) (if (gx#stx-pair/null? _tl26692710_) - (let ((_g47758_ + (let ((_g47549_ (gx#syntax-split-splice _tl26692710_ '0))) (begin - (let ((_g47759_ + (let ((_g47550_ (let () (declare (not safe)) - (if (##values? _g47758_) + (if (##values? _g47549_) (##vector-length - _g47758_) + _g47549_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47759_ 2))) + (##fx= _g47550_ 2))) (error "Context expects 2 values" - _g47759_))) + _g47550_))) (let ((_target26722713_ (let () (declare (not safe)) - (##vector-ref _g47758_ 0))) + (##vector-ref _g47549_ 0))) (_tl26742716_ (let () (declare (not safe)) - (##vector-ref _g47758_ 1)))) + (##vector-ref _g47549_ 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 ((__tmp47765 (gx#datum->syntax '#f '~let)) - (__tmp47760 - (let ((__tmp47764 + (let ((__tmp47556 (gx#datum->syntax '#f '~let)) + (__tmp47551 + (let ((__tmp47555 (gx#datum->syntax '#f 'letrec-values)) - (__tmp47761 - (let ((__tmp47762 - (let ((__tmp47763 + (__tmp47552 + (let ((__tmp47553 + (let ((__tmp47554 (lambda (_g27622765_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g27632768_) @@ -1720,15 +1720,15 @@ (cons _g27622765_ _g27632768_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp47763 + (foldr1 __tmp47554 '() _L2743_)))) (declare (not safe)) - (cons _L2745_ __tmp47762)))) + (cons _L2745_ __tmp47553)))) (declare (not safe)) - (cons __tmp47764 __tmp47761)))) + (cons __tmp47555 __tmp47552)))) (declare (not safe)) - (cons __tmp47765 __tmp47760))) + (cons __tmp47556 __tmp47551))) _body26802739_ _hd26702707_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1771,31 +1771,31 @@ (declare (not safe)) (##cdr _e27892821_)))) (if (gx#stx-pair/null? _tl27872828_) - (let ((_g47766_ + (let ((_g47557_ (gx#syntax-split-splice _tl27872828_ '0))) (begin - (let ((_g47767_ + (let ((_g47558_ (let () (declare (not safe)) - (if (##values? _g47766_) + (if (##values? _g47557_) (##vector-length - _g47766_) + _g47557_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47767_ 2))) + (##fx= _g47558_ 2))) (error "Context expects 2 values" - _g47767_))) + _g47558_))) (let ((_target27902831_ (let () (declare (not safe)) - (##vector-ref _g47766_ 0))) + (##vector-ref _g47557_ 0))) (_tl27922834_ (let () (declare (not safe)) - (##vector-ref _g47766_ 1)))) + (##vector-ref _g47557_ 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 ((__tmp47773 (gx#datum->syntax '#f '~let)) - (__tmp47768 - (let ((__tmp47772 + (let ((__tmp47564 (gx#datum->syntax '#f '~let)) + (__tmp47559 + (let ((__tmp47563 (gx#datum->syntax '#f 'letrec*-values)) - (__tmp47769 - (let ((__tmp47770 - (let ((__tmp47771 + (__tmp47560 + (let ((__tmp47561 + (let ((__tmp47562 (lambda (_g28802883_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g28812886_) @@ -1835,15 +1835,15 @@ (cons _g28802883_ _g28812886_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp47771 + (foldr1 __tmp47562 '() _L2861_)))) (declare (not safe)) - (cons _L2863_ __tmp47770)))) + (cons _L2863_ __tmp47561)))) (declare (not safe)) - (cons __tmp47772 __tmp47769)))) + (cons __tmp47563 __tmp47560)))) (declare (not safe)) - (cons __tmp47773 __tmp47768))) + (cons __tmp47564 __tmp47559))) _body27982857_ _hd27882825_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1859,21 +1859,21 @@ (lambda (_stx2894_) (letrec ((_let-head?2897_ (lambda (_x3377_) - (let* ((___stx4238042381_ _x3377_) + (let* ((___stx4219642197_ _x3377_) (_g33813392_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4238042381_)))) - (let ((___kont4238342384_ + ___stx4219642197_)))) + (let ((___kont4219942200_ (lambda (_L3420_) (gx#stx-andmap gx#identifier? _L3420_))) - (___kont4238542386_ + (___kont4220142202_ (lambda () (gx#identifier? _x3377_)))) - (if (gx#stx-pair? ___stx4238042381_) + (if (gx#stx-pair? ___stx4219642197_) (let ((_e33863410_ - (gx#syntax-e ___stx4238042381_))) + (gx#syntax-e ___stx4219642197_))) (let ((_tl33843417_ (let () (declare (not safe)) @@ -1884,26 +1884,26 @@ (##car _e33863410_)))) (if (gx#identifier? _hd33853414_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47774_| + |gerbil/core$$[1]#_g47565_| _hd33853414_) - (___kont4238342384_ _tl33843417_) - (___kont4238542386_)) - (___kont4238542386_)))) - (___kont4238542386_)))))) + (___kont4219942200_ _tl33843417_) + (___kont4220142202_)) + (___kont4220142202_)))) + (___kont4220142202_)))))) (_let-head2899_ (lambda (_x3317_) - (let* ((___stx4240042401_ _x3317_) + (let* ((___stx4221642217_ _x3317_) (_g33213332_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4240042401_)))) - (let ((___kont4240342404_ (lambda (_L3360_) _L3360_)) - (___kont4240542406_ (lambda () (list _x3317_)))) - (if (gx#stx-pair? ___stx4240042401_) + ___stx4221642217_)))) + (let ((___kont4221942220_ (lambda (_L3360_) _L3360_)) + (___kont4222142222_ (lambda () (list _x3317_)))) + (if (gx#stx-pair? ___stx4221642217_) (let ((_e33263350_ - (gx#syntax-e ___stx4240042401_))) + (gx#syntax-e ___stx4221642217_))) (let ((_tl33243357_ (let () (declare (not safe)) @@ -1914,40 +1914,40 @@ (##car _e33263350_)))) (if (gx#identifier? _hd33253354_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47775_| + |gerbil/core$$[1]#_g47566_| _hd33253354_) - (___kont4240342404_ _tl33243357_) - (___kont4240542406_)) - (___kont4240542406_)))) - (___kont4240542406_))))))) - (let* ((___stx4242042421_ _stx2894_) + (___kont4221942220_ _tl33243357_) + (___kont4222142222_)) + (___kont4222142222_)))) + (___kont4222142222_))))))) + (let* ((___stx4223642237_ _stx2894_) (_g29022968_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4242042421_)))) - (let ((___kont4242342424_ + ___stx4223642237_)))) + (let ((___kont4223942240_ (lambda (_L3286_ _L3288_ _L3289_ _L3290_ _L3291_) - (let ((__tmp47776 - (let ((__tmp47777 - (let ((__tmp47778 - (let ((__tmp47779 - (let ((__tmp47780 + (let ((__tmp47567 + (let ((__tmp47568 + (let ((__tmp47569 + (let ((__tmp47570 + (let ((__tmp47571 (let () (declare (not safe)) (cons _L3288_ '())))) (declare (not safe)) - (cons _L3289_ __tmp47780)))) + (cons _L3289_ __tmp47571)))) (declare (not safe)) - (cons __tmp47779 '())))) + (cons __tmp47570 '())))) (declare (not safe)) - (cons __tmp47778 _L3286_)))) + (cons __tmp47569 _L3286_)))) (declare (not safe)) - (cons _L3290_ __tmp47777)))) + (cons _L3290_ __tmp47568)))) (declare (not safe)) - (cons _L3291_ __tmp47776)))) - (___kont4242542426_ + (cons _L3291_ __tmp47567)))) + (___kont4224142242_ (lambda (_L3089_ _L3091_ _L3092_ _L3093_) (let* ((_g31283145_ (lambda (_g31293141_) @@ -1958,30 +1958,30 @@ (_g31273217_ (lambda (_g31293149_) (if (gx#stx-pair/null? _g31293149_) - (let ((_g47781_ + (let ((_g47572_ (gx#syntax-split-splice _g31293149_ '0))) (begin - (let ((_g47782_ + (let ((_g47573_ (let () (declare (not safe)) - (if (##values? _g47781_) - (##vector-length _g47781_) + (if (##values? _g47572_) + (##vector-length _g47572_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47782_ 2))) + (##fx= _g47573_ 2))) (error "Context expects 2 values" - _g47782_))) + _g47573_))) (let ((_target31313152_ (let () (declare (not safe)) - (##vector-ref _g47781_ 0))) + (##vector-ref _g47572_ 0))) (_tl31333155_ (let () (declare (not safe)) - (##vector-ref _g47781_ 1)))) + (##vector-ref _g47572_ 1)))) (if (gx#stx-null? _tl31333155_) (letrec ((_loop31343158_ (lambda (_hd31323162_ @@ -2007,34 +2007,34 @@ (let ((_hd-bind31393178_ (reverse _hd-bind31383165_))) ((lambda (_L3182_) (let () - (let ((__tmp47783 - (let ((__tmp47786 + (let ((__tmp47574 + (let ((__tmp47577 (begin (gx#syntax-check-splice-targets _L3091_ _L3182_) - (let ((__tmp47787 + (let ((__tmp47578 (lambda (_g31993203_ _g32003206_ _g32013208_) - (let ((__tmp47788 - (let ((__tmp47789 + (let ((__tmp47579 + (let ((__tmp47580 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _g31993203_ '())))) (declare (not safe)) - (cons _g32003206_ __tmp47789)))) + (cons _g32003206_ __tmp47580)))) (declare (not safe)) - (cons __tmp47788 _g32013208_))))) + (cons __tmp47579 _g32013208_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp47787 + (foldr2 __tmp47578 '() _L3091_ _L3182_)))) - (__tmp47784 - (let ((__tmp47785 + (__tmp47575 + (let ((__tmp47576 (lambda (_g31973211_ _g31983214_) (let () @@ -2042,11 +2042,11 @@ (cons _g31973211_ _g31983214_))))) (declare (not safe)) - (foldr1 __tmp47785 '() _L3089_)))) + (foldr1 __tmp47576 '() _L3089_)))) (declare (not safe)) - (cons __tmp47786 __tmp47784)))) + (cons __tmp47577 __tmp47575)))) (declare (not safe)) - (cons _L3093_ __tmp47783)))) + (cons _L3093_ __tmp47574)))) _hd-bind31393178_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop31343158_ @@ -2057,14 +2057,14 @@ (_g31273217_ (gx#stx-map _let-head2899_ - (let ((__tmp47790 + (let ((__tmp47581 (lambda (_g32203223_ _g32213226_) (let () (declare (not safe)) (cons _g32203223_ _g32213226_))))) (declare (not safe)) - (foldr1 __tmp47790 '() _L3092_)))))))) - (let* ((___match4248942490_ + (foldr1 __tmp47581 '() _L3092_)))))))) + (let* ((___match4230542306_ (lambda (_e29302975_ _hd29292979_ _tl29282982_ @@ -2074,7 +2074,7 @@ _e29362995_ _hd29352999_ _tl29343002_ - ___splice4242742428_ + ___splice4224342244_ _target29373005_ _tl29393008_) (letrec ((_loop29403011_ @@ -2134,7 +2134,7 @@ (_e29463053_ (reverse _e29443018_))) (if (gx#stx-pair/null? _tl29343002_) - (let ((___splice4242942430_ + (let ((___splice4224542246_ (gx#syntax-split-splice _tl29343002_ '0))) @@ -2142,13 +2142,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4242942430_ + ___splice4224542246_ '1))) (_target29543059_ (let () (declare (not safe)) (##vector-ref - ___splice4242942430_ + ___splice4224542246_ '0)))) (if (gx#stx-null? _tl29563062_) @@ -2178,15 +2178,15 @@ (_L3093_ _hd29322989_)) (if (gx#stx-andmap _let-head?2897_ - (let ((__tmp47791 + (let ((__tmp47582 (lambda (_g31193122_ _g31203125_) (let () (declare (not safe)) (cons _g31193122_ _g31203125_))))) (declare (not safe)) - (foldr1 __tmp47791 '() _L3092_))) - (___kont4242542426_ + (foldr1 __tmp47582 '() _L3092_))) + (___kont4224142242_ _L3089_ _L3091_ _L3092_ @@ -2201,7 +2201,7 @@ (declare (not safe)) (_g29022968_)))))))) (_loop29403011_ _target29373005_ '() '())))) - (___match4246342464_ + (___match4227942280_ (lambda (_e29113236_ _hd29103240_ _tl29093243_ @@ -2223,14 +2223,14 @@ (_L3290_ _hd29133250_) (_L3291_ _hd29103240_)) (if (_let-head?2897_ _L3289_) - (___kont4242342424_ + (___kont4223942240_ _L3286_ _L3288_ _L3289_ _L3290_ _L3291_) (if (gx#stx-pair/null? _hd29163260_) - (let ((___splice4242742428_ + (let ((___splice4224342244_ (gx#syntax-split-splice _hd29163260_ '0))) @@ -2238,16 +2238,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4242742428_ + ___splice4224342244_ '1))) (_target29373005_ (let () (declare (not safe)) (##vector-ref - ___splice4242742428_ + ___splice4224342244_ '0)))) (if (gx#stx-null? _tl29393008_) - (___match4248942490_ + (___match4230542306_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2257,7 +2257,7 @@ _e29173256_ _hd29163260_ _tl29153263_ - ___splice4242742428_ + ___splice4224342244_ _target29373005_ _tl29393008_) (let () @@ -2266,8 +2266,8 @@ (let () (declare (not safe)) (_g29022968_)))))))) - (if (gx#stx-pair? ___stx4242042421_) - (let ((_e29113236_ (gx#syntax-e ___stx4242042421_))) + (if (gx#stx-pair? ___stx4223642237_) + (let ((_e29113236_ (gx#syntax-e ___stx4223642237_))) (let ((_tl29093243_ (let () (declare (not safe)) (##cdr _e29113236_))) (_hd29103240_ @@ -2319,7 +2319,7 @@ (_hd29223280_ (let () (declare (not safe)) (##car _e29233276_)))) (if (gx#stx-null? _tl29213283_) - (___match4246342464_ + (___match4227942280_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2336,18 +2336,18 @@ _hd29223280_ _tl29213283_) (if (gx#stx-pair/null? _hd29163260_) - (let ((___splice4242742428_ + (let ((___splice4224342244_ (gx#syntax-split-splice _hd29163260_ '0))) (let ((_tl29393008_ (let () (declare (not safe)) - (##vector-ref ___splice4242742428_ '1))) + (##vector-ref ___splice4224342244_ '1))) (_target29373005_ (let () (declare (not safe)) - (##vector-ref ___splice4242742428_ '0)))) + (##vector-ref ___splice4224342244_ '0)))) (if (gx#stx-null? _tl29393008_) - (___match4248942490_ + (___match4230542306_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2357,7 +2357,7 @@ _e29173256_ _hd29163260_ _tl29153263_ - ___splice4242742428_ + ___splice4224342244_ _target29373005_ _tl29393008_) (let () (declare (not safe)) (_g29022968_))))) @@ -2365,7 +2365,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29163260_) - (let ((___splice4242742428_ + (let ((___splice4224342244_ (gx#syntax-split-splice _hd29163260_ '0))) @@ -2373,13 +2373,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice4242742428_ '1))) + (##vector-ref ___splice4224342244_ '1))) (_target29373005_ (let () (declare (not safe)) - (##vector-ref ___splice4242742428_ '0)))) + (##vector-ref ___splice4224342244_ '0)))) (if (gx#stx-null? _tl29393008_) - (___match4248942490_ + (___match4230542306_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2389,7 +2389,7 @@ _e29173256_ _hd29163260_ _tl29153263_ - ___splice4242742428_ + ___splice4224342244_ _target29373005_ _tl29393008_) (let () (declare (not safe)) (_g29022968_))))) @@ -2397,7 +2397,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29163260_) - (let ((___splice4242742428_ + (let ((___splice4224342244_ (gx#syntax-split-splice _hd29163260_ '0))) @@ -2405,17 +2405,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4242742428_ + ___splice4224342244_ '1))) (_target29373005_ (let () (declare (not safe)) (##vector-ref - ___splice4242742428_ + ___splice4224342244_ '0)))) (if (gx#stx-null? _tl29393008_) - (___match4248942490_ + (___match4230542306_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2425,7 +2425,7 @@ _e29173256_ _hd29163260_ _tl29153263_ - ___splice4242742428_ + ___splice4224342244_ _target29373005_ _tl29393008_) (let () @@ -2441,42 +2441,42 @@ (let () (declare (not safe)) (_g29022968_))))))))) (define |gerbil/core$$[:0:]#and| (lambda (_$stx3440_) - (let* ((___stx4249242493_ _$stx3440_) + (let* ((___stx4230842309_ _$stx3440_) (_g34463472_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4249242493_)))) - (let ((___kont4249542496_ (lambda () '#t)) - (___kont4249742498_ (lambda (_L3544_) _L3544_)) - (___kont4249942500_ + ___stx4230842309_)))) + (let ((___kont4231142312_ (lambda () '#t)) + (___kont4231342314_ (lambda (_L3544_) _L3544_)) + (___kont4231542316_ (lambda (_L3499_ _L3501_ _L3502_) - (let ((__tmp47796 (gx#datum->syntax '#f 'if)) - (__tmp47792 - (let ((__tmp47793 - (let ((__tmp47795 + (let ((__tmp47587 (gx#datum->syntax '#f 'if)) + (__tmp47583 + (let ((__tmp47584 + (let ((__tmp47586 (let () (declare (not safe)) (cons _L3502_ _L3499_))) - (__tmp47794 + (__tmp47585 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp47795 __tmp47794)))) + (cons __tmp47586 __tmp47585)))) (declare (not safe)) - (cons _L3501_ __tmp47793)))) + (cons _L3501_ __tmp47584)))) (declare (not safe)) - (cons __tmp47796 __tmp47792))))) - (if (gx#stx-pair? ___stx4249242493_) - (let ((_e34503564_ (gx#syntax-e ___stx4249242493_))) + (cons __tmp47587 __tmp47583))))) + (if (gx#stx-pair? ___stx4230842309_) + (let ((_e34503564_ (gx#syntax-e ___stx4230842309_))) (let ((_tl34483571_ (let () (declare (not safe)) (##cdr _e34503564_))) (_hd34493568_ (let () (declare (not safe)) (##car _e34503564_)))) (if (gx#stx-null? _tl34483571_) - (___kont4249542496_) + (___kont4231142312_) (if (gx#stx-pair? _tl34483571_) (let ((_e34573534_ (gx#syntax-e _tl34483571_))) (let ((_tl34553541_ @@ -2488,8 +2488,8 @@ (declare (not safe)) (##car _e34573534_)))) (if (gx#stx-null? _tl34553541_) - (___kont4249742498_ _hd34563538_) - (___kont4249942500_ + (___kont4231342314_ _hd34563538_) + (___kont4231542316_ _tl34553541_ _hd34563538_ _hd34493568_)))) @@ -2497,71 +2497,71 @@ (let () (declare (not safe)) (_g34463472_))))))) (define |gerbil/core$$[:0:]#or| (lambda (_$stx3582_) - (let* ((___stx4253842539_ _$stx3582_) + (let* ((___stx4235442355_ _$stx3582_) (_g35883614_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4253842539_)))) - (let ((___kont4254142542_ (lambda () '#f)) - (___kont4254342544_ (lambda (_L3686_) _L3686_)) - (___kont4254542546_ + ___stx4235442355_)))) + (let ((___kont4235742358_ (lambda () '#f)) + (___kont4235942360_ (lambda (_L3686_) _L3686_)) + (___kont4236142362_ (lambda (_L3641_ _L3643_ _L3644_) - (let ((__tmp47810 (gx#datum->syntax '#f 'let)) - (__tmp47797 - (let ((__tmp47807 - (let ((__tmp47809 (gx#datum->syntax '#f '$e)) - (__tmp47808 + (let ((__tmp47601 (gx#datum->syntax '#f 'let)) + (__tmp47588 + (let ((__tmp47598 + (let ((__tmp47600 (gx#datum->syntax '#f '$e)) + (__tmp47599 (let () (declare (not safe)) (cons _L3643_ '())))) (declare (not safe)) - (cons __tmp47809 __tmp47808))) - (__tmp47798 - (let ((__tmp47799 - (let ((__tmp47806 + (cons __tmp47600 __tmp47599))) + (__tmp47589 + (let ((__tmp47590 + (let ((__tmp47597 (gx#datum->syntax '#f 'if)) - (__tmp47800 - (let ((__tmp47805 + (__tmp47591 + (let ((__tmp47596 (gx#datum->syntax '#f '$e)) - (__tmp47801 - (let ((__tmp47804 + (__tmp47592 + (let ((__tmp47595 (gx#datum->syntax '#f '$e)) - (__tmp47802 - (let ((__tmp47803 + (__tmp47593 + (let ((__tmp47594 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L3644_ _L3641_)))) (declare (not safe)) - (cons __tmp47803 '())))) + (cons __tmp47594 '())))) (declare (not safe)) - (cons __tmp47804 __tmp47802)))) + (cons __tmp47595 __tmp47593)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47805 - __tmp47801)))) + (cons __tmp47596 + __tmp47592)))) (declare (not safe)) - (cons __tmp47806 __tmp47800)))) + (cons __tmp47597 __tmp47591)))) (declare (not safe)) - (cons __tmp47799 '())))) + (cons __tmp47590 '())))) (declare (not safe)) - (cons __tmp47807 __tmp47798)))) + (cons __tmp47598 __tmp47589)))) (declare (not safe)) - (cons __tmp47810 __tmp47797))))) - (if (gx#stx-pair? ___stx4253842539_) - (let ((_e35923706_ (gx#syntax-e ___stx4253842539_))) + (cons __tmp47601 __tmp47588))))) + (if (gx#stx-pair? ___stx4235442355_) + (let ((_e35923706_ (gx#syntax-e ___stx4235442355_))) (let ((_tl35903713_ (let () (declare (not safe)) (##cdr _e35923706_))) (_hd35913710_ (let () (declare (not safe)) (##car _e35923706_)))) (if (gx#stx-null? _tl35903713_) - (___kont4254142542_) + (___kont4235742358_) (if (gx#stx-pair? _tl35903713_) (let ((_e35993676_ (gx#syntax-e _tl35903713_))) (let ((_tl35973683_ @@ -2573,8 +2573,8 @@ (declare (not safe)) (##car _e35993676_)))) (if (gx#stx-null? _tl35973683_) - (___kont4254342544_ _hd35983680_) - (___kont4254542546_ + (___kont4235942360_ _hd35983680_) + (___kont4236142362_ _tl35973683_ _hd35983680_ _hd35913710_)))) @@ -2582,23 +2582,23 @@ (let () (declare (not safe)) (_g35883614_))))))) (define |gerbil/core$$[:0:]#cond| (lambda (_$stx3724_) - (let* ((___stx4258442585_ _$stx3724_) + (let* ((___stx4240042401_ _$stx3724_) (_g37333824_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4258442585_)))) - (let ((___kont4258742588_ (lambda () '#!void)) - (___kont4258942590_ + ___stx4240042401_)))) + (let ((___kont4240342404_ (lambda () '#!void)) + (___kont4240542406_ (lambda (_L4171_) - (let ((__tmp47816 (gx#datum->syntax '#f '%#expression)) - (__tmp47811 - (let ((__tmp47812 - (let ((__tmp47815 + (let ((__tmp47607 (gx#datum->syntax '#f '%#expression)) + (__tmp47602 + (let ((__tmp47603 + (let ((__tmp47606 (gx#datum->syntax '#f 'begin)) - (__tmp47813 - (let ((__tmp47814 + (__tmp47604 + (let ((__tmp47605 (lambda (_g41904193_ _g41914196_) (let () @@ -2606,131 +2606,131 @@ (cons _g41904193_ _g41914196_))))) (declare (not safe)) - (foldr1 __tmp47814 '() _L4171_)))) + (foldr1 __tmp47605 '() _L4171_)))) (declare (not safe)) - (cons __tmp47815 __tmp47813)))) + (cons __tmp47606 __tmp47604)))) (declare (not safe)) - (cons __tmp47812 '())))) + (cons __tmp47603 '())))) (declare (not safe)) - (cons __tmp47816 __tmp47811)))) - (___kont4259342594_ + (cons __tmp47607 __tmp47602)))) + (___kont4240942410_ (lambda () - (let ((__tmp47818 (gx#datum->syntax '#f 'syntax-error)) - (__tmp47817 + (let ((__tmp47609 (gx#datum->syntax '#f 'syntax-error)) + (__tmp47608 (let () (declare (not safe)) (cons '"bad syntax; misplaced else" '())))) (declare (not safe)) - (cons __tmp47818 __tmp47817)))) - (___kont4259542596_ + (cons __tmp47609 __tmp47608)))) + (___kont4241142412_ (lambda (_L4044_ _L4046_ _L4047_) - (let ((__tmp47832 (gx#datum->syntax '#f 'let)) - (__tmp47819 - (let ((__tmp47829 - (let ((__tmp47831 (gx#datum->syntax '#f '$e)) - (__tmp47830 + (let ((__tmp47623 (gx#datum->syntax '#f 'let)) + (__tmp47610 + (let ((__tmp47620 + (let ((__tmp47622 (gx#datum->syntax '#f '$e)) + (__tmp47621 (let () (declare (not safe)) (cons _L4046_ '())))) (declare (not safe)) - (cons __tmp47831 __tmp47830))) - (__tmp47820 - (let ((__tmp47821 - (let ((__tmp47828 + (cons __tmp47622 __tmp47621))) + (__tmp47611 + (let ((__tmp47612 + (let ((__tmp47619 (gx#datum->syntax '#f 'if)) - (__tmp47822 - (let ((__tmp47827 + (__tmp47613 + (let ((__tmp47618 (gx#datum->syntax '#f '$e)) - (__tmp47823 - (let ((__tmp47826 + (__tmp47614 + (let ((__tmp47617 (gx#datum->syntax '#f '$e)) - (__tmp47824 - (let ((__tmp47825 + (__tmp47615 + (let ((__tmp47616 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L4047_ _L4044_)))) (declare (not safe)) - (cons __tmp47825 '())))) + (cons __tmp47616 '())))) (declare (not safe)) - (cons __tmp47826 __tmp47824)))) + (cons __tmp47617 __tmp47615)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47827 - __tmp47823)))) + (cons __tmp47618 + __tmp47614)))) (declare (not safe)) - (cons __tmp47828 __tmp47822)))) + (cons __tmp47619 __tmp47613)))) (declare (not safe)) - (cons __tmp47821 '())))) + (cons __tmp47612 '())))) (declare (not safe)) - (cons __tmp47829 __tmp47820)))) + (cons __tmp47620 __tmp47611)))) (declare (not safe)) - (cons __tmp47832 __tmp47819)))) - (___kont4259742598_ + (cons __tmp47623 __tmp47610)))) + (___kont4241342414_ (lambda (_L3982_ _L3984_ _L3985_ _L3986_) - (let ((__tmp47848 (gx#datum->syntax '#f 'let)) - (__tmp47833 - (let ((__tmp47845 - (let ((__tmp47847 (gx#datum->syntax '#f '$e)) - (__tmp47846 + (let ((__tmp47639 (gx#datum->syntax '#f 'let)) + (__tmp47624 + (let ((__tmp47636 + (let ((__tmp47638 (gx#datum->syntax '#f '$e)) + (__tmp47637 (let () (declare (not safe)) (cons _L3985_ '())))) (declare (not safe)) - (cons __tmp47847 __tmp47846))) - (__tmp47834 - (let ((__tmp47835 - (let ((__tmp47844 + (cons __tmp47638 __tmp47637))) + (__tmp47625 + (let ((__tmp47626 + (let ((__tmp47635 (gx#datum->syntax '#f 'if)) - (__tmp47836 - (let ((__tmp47843 + (__tmp47627 + (let ((__tmp47634 (gx#datum->syntax '#f '$e)) - (__tmp47837 - (let ((__tmp47840 - (let ((__tmp47841 + (__tmp47628 + (let ((__tmp47631 + (let ((__tmp47632 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47842 (gx#datum->syntax '#f '$e))) + (let ((__tmp47633 (gx#datum->syntax '#f '$e))) (declare (not safe)) - (cons __tmp47842 '())))) + (cons __tmp47633 '())))) (declare (not safe)) - (cons _L3984_ __tmp47841))) - (__tmp47838 - (let ((__tmp47839 + (cons _L3984_ __tmp47632))) + (__tmp47629 + (let ((__tmp47630 (let () (declare (not safe)) (cons _L3986_ _L3982_)))) (declare (not safe)) - (cons __tmp47839 '())))) + (cons __tmp47630 '())))) (declare (not safe)) - (cons __tmp47840 __tmp47838)))) + (cons __tmp47631 __tmp47629)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47843 - __tmp47837)))) + (cons __tmp47634 + __tmp47628)))) (declare (not safe)) - (cons __tmp47844 __tmp47836)))) + (cons __tmp47635 __tmp47627)))) (declare (not safe)) - (cons __tmp47835 '())))) + (cons __tmp47626 '())))) (declare (not safe)) - (cons __tmp47845 __tmp47834)))) + (cons __tmp47636 __tmp47625)))) (declare (not safe)) - (cons __tmp47848 __tmp47833)))) - (___kont4259942600_ + (cons __tmp47639 __tmp47624)))) + (___kont4241542416_ (lambda (_L3891_ _L3893_ _L3894_ _L3895_) - (let ((__tmp47857 (gx#datum->syntax '#f 'if)) - (__tmp47849 - (let ((__tmp47850 - (let ((__tmp47853 - (let ((__tmp47856 + (let ((__tmp47648 (gx#datum->syntax '#f 'if)) + (__tmp47640 + (let ((__tmp47641 + (let ((__tmp47644 + (let ((__tmp47647 (gx#datum->syntax '#f 'begin)) - (__tmp47854 - (let ((__tmp47855 + (__tmp47645 + (let ((__tmp47646 (lambda (_g39163919_ _g39173922_) (let () @@ -2738,25 +2738,25 @@ (cons _g39163919_ _g39173922_))))) (declare (not safe)) - (foldr1 __tmp47855 + (foldr1 __tmp47646 '() _L3893_)))) (declare (not safe)) - (cons __tmp47856 __tmp47854))) - (__tmp47851 - (let ((__tmp47852 + (cons __tmp47647 __tmp47645))) + (__tmp47642 + (let ((__tmp47643 (let () (declare (not safe)) (cons _L3895_ _L3891_)))) (declare (not safe)) - (cons __tmp47852 '())))) + (cons __tmp47643 '())))) (declare (not safe)) - (cons __tmp47853 __tmp47851)))) + (cons __tmp47644 __tmp47642)))) (declare (not safe)) - (cons _L3894_ __tmp47850)))) + (cons _L3894_ __tmp47641)))) (declare (not safe)) - (cons __tmp47857 __tmp47849))))) - (let* ((___match4274542746_ + (cons __tmp47648 __tmp47640))))) + (let* ((___match4256142562_ (lambda (_e38033831_ _hd38023835_ _tl38013838_ @@ -2766,7 +2766,7 @@ _e38093851_ _hd38083855_ _tl38073858_ - ___splice4260142602_ + ___splice4241742418_ _target38103861_ _tl38123864_) (letrec ((_loop38133867_ @@ -2790,13 +2790,13 @@ _body38173874_))))) (let ((_body38183887_ (reverse _body38173874_))) - (___kont4259942600_ + (___kont4241542416_ _tl38043848_ _body38183887_ _hd38083855_ _hd38023835_)))))) (_loop38133867_ _target38103861_ '())))) - (___match4264142642_ + (___match4245742458_ (lambda (_e37414111_ _hd37404115_ _tl37394118_ @@ -2806,7 +2806,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4259142592_ + ___splice4240742408_ _target37484141_ _tl37504144_) (letrec ((_loop37514147_ @@ -2831,17 +2831,17 @@ (let ((_body37564167_ (reverse _body37554154_))) (if (gx#stx-null? _tl37424128_) - (___kont4258942590_ _body37564167_) - (___kont4259342594_))))))) + (___kont4240542406_ _body37564167_) + (___kont4240942410_))))))) (_loop37514147_ _target37484141_ '()))))) - (if (gx#stx-pair? ___stx4258442585_) - (let ((_e37374206_ (gx#syntax-e ___stx4258442585_))) + (if (gx#stx-pair? ___stx4240042401_) + (let ((_e37374206_ (gx#syntax-e ___stx4240042401_))) (let ((_tl37354213_ (let () (declare (not safe)) (##cdr _e37374206_))) (_hd37364210_ (let () (declare (not safe)) (##car _e37374206_)))) (if (gx#stx-null? _tl37354213_) - (___kont4258742588_) + (___kont4240342404_) (if (gx#stx-pair? _tl37354213_) (let ((_e37444121_ (gx#syntax-e _tl37354213_))) (let ((_tl37424128_ @@ -2865,11 +2865,11 @@ (##car _e37474131_)))) (if (gx#identifier? _hd37464135_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47859_| + |gerbil/core$$[1]#_g47650_| _hd37464135_) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4259142592_ + (let ((___splice4240742408_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -2877,13 +2877,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4259142592_ '1))) + (##vector-ref ___splice4240742408_ '1))) (_target37484141_ (let () (declare (not safe)) - (##vector-ref ___splice4259142592_ '0)))) + (##vector-ref ___splice4240742408_ '0)))) (if (gx#stx-null? _tl37504144_) - (___match4264142642_ + (___match4245742458_ _e37374206_ _hd37364210_ _tl37354213_ @@ -2893,15 +2893,15 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4259142592_ + ___splice4240742408_ _target37484141_ _tl37504144_) - (___kont4259342594_)))) - (___kont4259342594_)) + (___kont4240942410_)))) + (___kont4240942410_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl37454138_) - (___kont4259542596_ + (___kont4241142412_ _tl37424128_ _hd37464135_ _hd37364210_) @@ -2916,7 +2916,7 @@ (let () (declare (not safe)) (##car _e37933962_)))) (if (gx#identifier? _hd37923966_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47858_| + |gerbil/core$$[1]#_g47649_| _hd37923966_) (if (gx#stx-pair? _tl37913969_) (let ((_e37963972_ @@ -2930,13 +2930,13 @@ (declare (not safe)) (##car _e37963972_)))) (if (gx#stx-null? _tl37943979_) - (___kont4259742598_ + (___kont4241342414_ _tl37424128_ _hd37953976_ _hd37464135_ _hd37364210_) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4260142602_ + (let ((___splice4241742418_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -2944,17 +2944,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4274542746_ + (___match4256142562_ _e37374206_ _hd37364210_ _tl37354213_ @@ -2964,7 +2964,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4260142602_ + ___splice4241742418_ _target38103861_ _tl38123864_) (let () @@ -2974,7 +2974,7 @@ (declare (not safe)) (_g37333824_)))))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4260142602_ + (let ((___splice4241742418_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -2982,16 +2982,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4274542746_ + (___match4256142562_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3001,7 +3001,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4260142602_ + ___splice4241742418_ _target38103861_ _tl38123864_) (let () @@ -3011,7 +3011,7 @@ (declare (not safe)) (_g37333824_)))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4260142602_ + (let ((___splice4241742418_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -3019,16 +3019,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4274542746_ + (___match4256142562_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3038,7 +3038,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4260142602_ + ___splice4241742418_ _target38103861_ _tl38123864_) (let () @@ -3046,22 +3046,22 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4260142602_ + (let ((___splice4241742418_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4274542746_ + (___match4256142562_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3071,7 +3071,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4260142602_ + ___splice4241742418_ _target38103861_ _tl38123864_) (let () @@ -3079,18 +3079,18 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4260142602_ + (let ((___splice4241742418_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) - (##vector-ref ___splice4260142602_ '1))) + (##vector-ref ___splice4241742418_ '1))) (_target38103861_ (let () (declare (not safe)) - (##vector-ref ___splice4260142602_ '0)))) + (##vector-ref ___splice4241742418_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4274542746_ + (___match4256142562_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3100,14 +3100,14 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4260142602_ + ___splice4241742418_ _target38103861_ _tl38123864_) (let () (declare (not safe)) (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl37454138_) - (___kont4259542596_ + (___kont4241142412_ _tl37424128_ _hd37464135_ _hd37364210_) @@ -3125,7 +3125,7 @@ (let () (declare (not safe)) (##car _e37933962_)))) (if (gx#identifier? _hd37923966_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47858_| + |gerbil/core$$[1]#_g47649_| _hd37923966_) (if (gx#stx-pair? _tl37913969_) (let ((_e37963972_ (gx#syntax-e _tl37913969_))) @@ -3138,13 +3138,13 @@ (declare (not safe)) (##car _e37963972_)))) (if (gx#stx-null? _tl37943979_) - (___kont4259742598_ + (___kont4241342414_ _tl37424128_ _hd37953976_ _hd37464135_ _hd37364210_) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4260142602_ + (let ((___splice4241742418_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -3152,16 +3152,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4274542746_ + (___match4256142562_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3171,7 +3171,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4260142602_ + ___splice4241742418_ _target38103861_ _tl38123864_) (let () @@ -3181,7 +3181,7 @@ (declare (not safe)) (_g37333824_)))))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4260142602_ + (let ((___splice4241742418_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -3189,16 +3189,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4274542746_ + (___match4256142562_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3208,7 +3208,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4260142602_ + ___splice4241742418_ _target38103861_ _tl38123864_) (let () @@ -3216,22 +3216,22 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4260142602_ + (let ((___splice4241742418_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4260142602_ + ___splice4241742418_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4274542746_ + (___match4256142562_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3241,7 +3241,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4260142602_ + ___splice4241742418_ _target38103861_ _tl38123864_) (let () @@ -3249,18 +3249,18 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4260142602_ + (let ((___splice4241742418_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) - (##vector-ref ___splice4260142602_ '1))) + (##vector-ref ___splice4241742418_ '1))) (_target38103861_ (let () (declare (not safe)) - (##vector-ref ___splice4260142602_ '0)))) + (##vector-ref ___splice4241742418_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4274542746_ + (___match4256142562_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3270,7 +3270,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4260142602_ + ___splice4241742418_ _target38103861_ _tl38123864_) (let () @@ -3278,18 +3278,18 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4260142602_ + (let ((___splice4241742418_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) - (##vector-ref ___splice4260142602_ '1))) + (##vector-ref ___splice4241742418_ '1))) (_target38103861_ (let () (declare (not safe)) - (##vector-ref ___splice4260142602_ '0)))) + (##vector-ref ___splice4241742418_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4274542746_ + (___match4256142562_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3299,7 +3299,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4260142602_ + ___splice4241742418_ _target38103861_ _tl38123864_) (let () (declare (not safe)) (_g37333824_))))) @@ -3341,31 +3341,31 @@ (declare (not safe)) (##cdr _e42394271_)))) (if (gx#stx-pair/null? _tl42374278_) - (let ((_g47860_ + (let ((_g47651_ (gx#syntax-split-splice _tl42374278_ '0))) (begin - (let ((_g47861_ + (let ((_g47652_ (let () (declare (not safe)) - (if (##values? _g47860_) + (if (##values? _g47651_) (##vector-length - _g47860_) + _g47651_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47861_ 2))) + (##fx= _g47652_ 2))) (error "Context expects 2 values" - _g47861_))) + _g47652_))) (let ((_target42404281_ (let () (declare (not safe)) - (##vector-ref _g47860_ 0))) + (##vector-ref _g47651_ 0))) (_tl42424284_ (let () (declare (not safe)) - (##vector-ref _g47860_ 1)))) + (##vector-ref _g47651_ 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 ((__tmp47869 (gx#datum->syntax '#f 'if)) - (__tmp47862 - (let ((__tmp47863 - (let ((__tmp47865 - (let ((__tmp47868 + (let ((__tmp47660 (gx#datum->syntax '#f 'if)) + (__tmp47653 + (let ((__tmp47654 + (let ((__tmp47656 + (let ((__tmp47659 (gx#datum->syntax '#f 'begin)) - (__tmp47866 - (let ((__tmp47867 + (__tmp47657 + (let ((__tmp47658 (lambda (_g43304333_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g43314336_) @@ -3405,21 +3405,21 @@ (declare (not safe)) (cons _g43304333_ _g43314336_))))) (declare (not safe)) - (foldr1 __tmp47867 '() _L4311_)))) + (foldr1 __tmp47658 '() _L4311_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47868 - __tmp47866))) - (__tmp47864 + (cons __tmp47659 + __tmp47657))) + (__tmp47655 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons __tmp47865 __tmp47864)))) + (cons __tmp47656 __tmp47655)))) (declare (not safe)) - (cons _L4313_ __tmp47863)))) + (cons _L4313_ __tmp47654)))) (declare (not safe)) - (cons __tmp47869 __tmp47862))) + (cons __tmp47660 __tmp47653))) _expr42484307_ _hd42384275_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3462,31 +3462,31 @@ (declare (not safe)) (##cdr _e43574389_)))) (if (gx#stx-pair/null? _tl43554396_) - (let ((_g47870_ + (let ((_g47661_ (gx#syntax-split-splice _tl43554396_ '0))) (begin - (let ((_g47871_ + (let ((_g47662_ (let () (declare (not safe)) - (if (##values? _g47870_) + (if (##values? _g47661_) (##vector-length - _g47870_) + _g47661_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47871_ 2))) + (##fx= _g47662_ 2))) (error "Context expects 2 values" - _g47871_))) + _g47662_))) (let ((_target43584399_ (let () (declare (not safe)) - (##vector-ref _g47870_ 0))) + (##vector-ref _g47661_ 0))) (_tl43604402_ (let () (declare (not safe)) - (##vector-ref _g47870_ 1)))) + (##vector-ref _g47661_ 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 ((__tmp47879 (gx#datum->syntax '#f 'if)) - (__tmp47872 - (let ((__tmp47873 - (let ((__tmp47874 - (let ((__tmp47875 - (let ((__tmp47878 + (let ((__tmp47670 (gx#datum->syntax '#f 'if)) + (__tmp47663 + (let ((__tmp47664 + (let ((__tmp47665 + (let ((__tmp47666 + (let ((__tmp47669 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin)) - (__tmp47876 - (let ((__tmp47877 + (__tmp47667 + (let ((__tmp47668 (lambda (_g44484451_ _g44494454_) (let () (declare (not safe)) (cons _g44484451_ _g44494454_))))) (declare (not safe)) - (foldr1 __tmp47877 '() _L4429_)))) + (foldr1 __tmp47668 '() _L4429_)))) (declare (not safe)) - (cons __tmp47878 __tmp47876)))) + (cons __tmp47669 __tmp47667)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47875 '())))) + (cons __tmp47666 '())))) (declare (not safe)) - (cons '#!void __tmp47874)))) + (cons '#!void __tmp47665)))) (declare (not safe)) - (cons _L4431_ __tmp47873)))) + (cons _L4431_ __tmp47664)))) (declare (not safe)) - (cons __tmp47879 __tmp47872))) + (cons __tmp47670 __tmp47663))) _expr43664425_ _hd43564393_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3580,31 +3580,31 @@ (declare (not safe)) (##cdr _e44744506_)))) (if (gx#stx-pair/null? _tl44724513_) - (let ((_g47880_ + (let ((_g47671_ (gx#syntax-split-splice _tl44724513_ '0))) (begin - (let ((_g47881_ + (let ((_g47672_ (let () (declare (not safe)) - (if (##values? _g47880_) + (if (##values? _g47671_) (##vector-length - _g47880_) + _g47671_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47881_ 2))) + (##fx= _g47672_ 2))) (error "Context expects 2 values" - _g47881_))) + _g47672_))) (let ((_target44754516_ (let () (declare (not safe)) - (##vector-ref _g47880_ 0))) + (##vector-ref _g47671_ 0))) (_tl44774519_ (let () (declare (not safe)) - (##vector-ref _g47880_ 1)))) + (##vector-ref _g47671_ 1)))) (if (gx#stx-null? _tl44774519_) (letrec ((_loop44784522_ (lambda (_hd44764526_ @@ -3633,7 +3633,7 @@ (gx#stx-e _L4548_) _stx4462_ (gx#syntax->list - (let ((__tmp47882 + (let ((__tmp47673 (lambda (_g45654568_ _g45664571_) (let () @@ -3641,7 +3641,7 @@ (cons _g45654568_ _g45664571_))))) (declare (not safe)) - (foldr1 __tmp47882 '() _L4546_)))) + (foldr1 __tmp47673 '() _L4546_)))) (_g44654489_ _g44664493_))) _detail44834542_ _hd44734510_)))))) @@ -3697,52 +3697,52 @@ (##cdr _e45954628_)))) (if (gx#stx-null? _tl45934635_) ((lambda (_L4638_ _L4640_) - (let ((__tmp47896 + (let ((__tmp47687 (gx#datum->syntax '#f 'begin)) - (__tmp47883 - (let ((__tmp47892 - (let ((__tmp47895 + (__tmp47674 + (let ((__tmp47683 + (let ((__tmp47686 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'def)) - (__tmp47893 - (let ((__tmp47894 + (__tmp47684 + (let ((__tmp47685 (let () (declare (not safe)) (cons _L4638_ '())))) (declare (not safe)) - (cons _L4640_ __tmp47894)))) + (cons _L4640_ __tmp47685)))) (declare (not safe)) - (cons __tmp47895 __tmp47893))) - (__tmp47884 - (let ((__tmp47888 - (let ((__tmp47891 (gx#datum->syntax '#f 'set!)) - (__tmp47889 - (let ((__tmp47890 + (cons __tmp47686 __tmp47684))) + (__tmp47675 + (let ((__tmp47679 + (let ((__tmp47682 (gx#datum->syntax '#f 'set!)) + (__tmp47680 + (let ((__tmp47681 (let () (declare (not safe)) (cons _L4640_ '())))) (declare (not safe)) - (cons _L4640_ __tmp47890)))) + (cons _L4640_ __tmp47681)))) (declare (not safe)) - (cons __tmp47891 __tmp47889))) - (__tmp47885 - (let ((__tmp47886 - (let ((__tmp47887 + (cons __tmp47682 __tmp47680))) + (__tmp47676 + (let ((__tmp47677 + (let ((__tmp47678 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp47887 '())))) + (cons __tmp47678 '())))) (declare (not safe)) - (cons __tmp47886 '())))) + (cons __tmp47677 '())))) (declare (not safe)) - (cons __tmp47888 __tmp47885)))) + (cons __tmp47679 __tmp47676)))) (declare (not safe)) - (cons __tmp47892 __tmp47884)))) + (cons __tmp47683 __tmp47675)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47896 - __tmp47883))) + (cons __tmp47687 + __tmp47674))) _hd45944632_ _hd45914622_) (_g45834601_ _g45844605_)))) diff --git a/src/bootstrap/gerbil/core__4.scm b/src/bootstrap/gerbil/core__4.scm index 00937faef..a619f7c23 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]#_g48121_| + (define |gerbil/core$$[1]#_g47912_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48122_| + (define |gerbil/core$$[1]#_g47913_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48123_| + (define |gerbil/core$$[1]#_g47914_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48953_| + (define |gerbil/core$$[1]#_g48744_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48956_| + (define |gerbil/core$$[1]#_g48747_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48957_| + (define |gerbil/core$$[1]#_g48748_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49030_| + (define |gerbil/core$$[1]#_g48821_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49031_| + (define |gerbil/core$$[1]#_g48822_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49033_| + (define |gerbil/core$$[1]#_g48824_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49034_| + (define |gerbil/core$$[1]#_g48825_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49079_| + (define |gerbil/core$$[1]#_g48870_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49080_| + (define |gerbil/core$$[1]#_g48871_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49081_| + (define |gerbil/core$$[1]#_g48872_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49082_| + (define |gerbil/core$$[1]#_g48873_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49094_| + (define |gerbil/core$$[1]#_g48885_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49095_| + (define |gerbil/core$$[1]#_g48886_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) (begin (define |gerbil/core$$[:0:]#lambda| @@ -105,26 +105,26 @@ (_opt-lambda?4666_ (lambda (_hd7913_) (let _lp7916_ ((_rest7919_ _hd7913_) (_opt?7921_ '#f)) - (let* ((___stx4277242773_ _rest7919_) + (let* ((___stx4258842589_ _rest7919_) (_g79247936_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4277242773_)))) - (let ((___kont4277542776_ + ___stx4258842589_)))) + (let ((___kont4259142592_ (lambda (_L7968_ _L7970_) - (let* ((___stx4274842749_ _L7970_) + (let* ((___stx4256442565_ _L7970_) (_g79868000_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4274842749_)))) - (let ((___kont4275142752_ + ___stx4256442565_)))) + (let ((___kont4256742568_ (lambda (_L8038_) (_lp7916_ _L7968_ '#t))) - (___kont4275342754_ + (___kont4256942570_ (lambda () (if (gx#identifier? _L7970_) (if (let () @@ -133,7 +133,7 @@ (_lp7916_ _L7968_ '#f) '#f) '#f)))) - (let ((___match4276942770_ + (let ((___match4258542586_ (lambda (_e79918018_ _hd79908022_ _tl79898025_ @@ -142,13 +142,13 @@ _tl79928035_) (let ((_L8038_ _hd79908022_)) (if (gx#identifier? _L8038_) - (___kont4275142752_ + (___kont4256742568_ _L8038_) - (___kont4275342754_)))))) - (if (gx#stx-pair? ___stx4274842749_) + (___kont4256942570_)))))) + (if (gx#stx-pair? ___stx4256442565_) (let ((_e79918018_ (gx#syntax-e - ___stx4274842749_))) + ___stx4256442565_))) (let ((_tl79898025_ (let () (declare (not safe)) @@ -173,17 +173,17 @@ (##car _e79948028_)))) (if (gx#stx-null? _tl79928035_) - (___match4276942770_ + (___match4258542586_ _e79918018_ _hd79908022_ _tl79898025_ _e79948028_ _hd79938032_ _tl79928035_) - (___kont4275342754_)))) - (___kont4275342754_)))) - (___kont4275342754_))))))) - (___kont4277742778_ + (___kont4256942570_)))) + (___kont4256942570_)))) + (___kont4256942570_))))))) + (___kont4259342594_ (lambda () (if _opt?7921_ (let ((_$e7947_ @@ -192,9 +192,9 @@ _$e7947_ (gx#identifier? _rest7919_))) '#f)))) - (if (gx#stx-pair? ___stx4277242773_) + (if (gx#stx-pair? ___stx4258842589_) (let ((_e79307958_ - (gx#syntax-e ___stx4277242773_))) + (gx#syntax-e ___stx4258842589_))) (let ((_tl79287965_ (let () (declare (not safe)) @@ -203,59 +203,59 @@ (let () (declare (not safe)) (##car _e79307958_)))) - (___kont4277542776_ + (___kont4259142592_ _tl79287965_ _hd79297962_))) - (___kont4277742778_))))))) + (___kont4259342594_))))))) (_opt-lambda-split4667_ (lambda (_hd7765_) (let _lp7768_ ((_rest7771_ _hd7765_) (_pre7773_ '()) (_opt7774_ '())) - (let* ((___stx4281242813_ _rest7771_) + (let* ((___stx4262842629_ _rest7771_) (_g77777789_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4281242813_)))) - (let ((___kont4281542816_ + ___stx4262842629_)))) + (let ((___kont4263142632_ (lambda (_L7817_ _L7819_) - (let* ((___stx4278842789_ _L7819_) + (let* ((___stx4260442605_ _L7819_) (_g78357850_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4278842789_)))) - (let ((___kont4279142792_ + ___stx4260442605_)))) + (let ((___kont4260742608_ (lambda (_L7888_ _L7890_) (_lp7768_ _L7817_ _pre7773_ - (let ((__tmp47897 - (let ((__tmp47898 + (let ((__tmp47688 + (let ((__tmp47689 (_generate-bind4670_ _L7890_))) (declare (not safe)) - (cons __tmp47898 + (cons __tmp47689 _L7888_)))) (declare (not safe)) - (cons __tmp47897 _opt7774_))))) - (___kont4279342794_ + (cons __tmp47688 _opt7774_))))) + (___kont4260942610_ (lambda () (_lp7768_ _L7817_ - (let ((__tmp47899 + (let ((__tmp47690 (_generate-bind4670_ _L7819_))) (declare (not safe)) - (cons __tmp47899 _pre7773_)) + (cons __tmp47690 _pre7773_)) _opt7774_)))) - (if (gx#stx-pair? ___stx4278842789_) + (if (gx#stx-pair? ___stx4260442605_) (let ((_e78417868_ (gx#syntax-e - ___stx4278842789_))) + ___stx4260442605_))) (let ((_tl78397875_ (let () (declare (not safe)) @@ -280,22 +280,22 @@ (##car _e78447878_)))) (if (gx#stx-null? _tl78427885_) - (___kont4279142792_ + (___kont4260742608_ _hd78437882_ _hd78407872_) - (___kont4279342794_)))) - (___kont4279342794_)))) - (___kont4279342794_)))))) - (___kont4281742818_ + (___kont4260942610_)))) + (___kont4260942610_)))) + (___kont4260942610_)))))) + (___kont4263342634_ (lambda () (values (reverse _pre7773_) (reverse _opt7774_) (if (gx#identifier? _rest7771_) (_generate-bind4670_ _rest7771_) _rest7771_))))) - (if (gx#stx-pair? ___stx4281242813_) + (if (gx#stx-pair? ___stx4262842629_) (let ((_e77837807_ - (gx#syntax-e ___stx4281242813_))) + (gx#syntax-e ___stx4262842629_))) (let ((_tl77817814_ (let () (declare (not safe)) @@ -304,32 +304,32 @@ (let () (declare (not safe)) (##car _e77837807_)))) - (___kont4281542816_ + (___kont4263142632_ _tl77817814_ _hd77827811_))) - (___kont4281742818_))))))) + (___kont4263342634_))))))) (_kw-lambda?4668_ (lambda (_hd7433_) (let _lp7436_ ((_rest7439_ _hd7433_) (_opt?7441_ '#f) (_key?7442_ '#f)) - (let* ((___stx4287642877_ _rest7439_) + (let* ((___stx4269242693_ _rest7439_) (_g74477477_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4287642877_)))) - (let ((___kont4287942880_ + ___stx4269242693_)))) + (let ((___kont4269542696_ (lambda (_L7672_ _L7674_ _L7675_) - (let* ((___stx4285242853_ _L7674_) + (let* ((___stx4266842669_ _L7674_) (_g76907704_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4285242853_)))) - (let ((___kont4285542856_ + ___stx4266842669_)))) + (let ((___kont4267142672_ (lambda (_L7742_) (if (gx#identifier? _L7742_) (_lp7436_ @@ -337,7 +337,7 @@ _opt?7441_ '#t) '#f))) - (___kont4285742858_ + (___kont4267342674_ (lambda () (if (gx#identifier? _L7674_) (_lp7436_ @@ -345,10 +345,10 @@ _opt?7441_ '#t) '#f)))) - (if (gx#stx-pair? ___stx4285242853_) + (if (gx#stx-pair? ___stx4266842669_) (let ((_e76957722_ (gx#syntax-e - ___stx4285242853_))) + ___stx4266842669_))) (let ((_tl76937729_ (let () (declare (not safe)) @@ -373,26 +373,26 @@ (##car _e76987732_)))) (if (gx#stx-null? _tl76967739_) - (___kont4285542856_ + (___kont4267142672_ _hd76947726_) - (___kont4285742858_)))) - (___kont4285742858_)))) - (___kont4285742858_)))))) - (___kont4288142882_ + (___kont4267342674_)))) + (___kont4267342674_)))) + (___kont4267342674_)))))) + (___kont4269742698_ (lambda (_L7629_ _L7631_) (if (gx#identifier? _L7631_) (_lp7436_ _L7629_ _opt?7441_ '#t) '#f))) - (___kont4288342884_ + (___kont4269942700_ (lambda (_L7509_ _L7511_) - (let* ((___stx4282842829_ _L7511_) + (let* ((___stx4264442645_ _L7511_) (_g75277541_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4282842829_)))) - (let ((___kont4283142832_ + ___stx4264442645_)))) + (let ((___kont4264742648_ (lambda (_L7579_) (if (gx#identifier? _L7579_) (_lp7436_ @@ -400,7 +400,7 @@ '#t _key?7442_) '#f))) - (___kont4283342834_ + (___kont4264942650_ (lambda () (if (gx#identifier? _L7511_) (if (let () @@ -412,10 +412,10 @@ _key?7442_) '#f) '#f)))) - (if (gx#stx-pair? ___stx4282842829_) + (if (gx#stx-pair? ___stx4264442645_) (let ((_e75327559_ (gx#syntax-e - ___stx4282842829_))) + ___stx4264442645_))) (let ((_tl75307566_ (let () (declare (not safe)) @@ -440,12 +440,12 @@ (##car _e75357569_)))) (if (gx#stx-null? _tl75337576_) - (___kont4283142832_ + (___kont4264742648_ _hd75317563_) - (___kont4283342834_)))) - (___kont4283342834_)))) - (___kont4283342834_)))))) - (___kont4288542886_ + (___kont4264942650_)))) + (___kont4264942650_)))) + (___kont4264942650_)))))) + (___kont4270142702_ (lambda () (if _key?7442_ (let ((_$e7488_ @@ -454,7 +454,7 @@ _$e7488_ (gx#identifier? _rest7439_))) '#f)))) - (let ((___match4289942900_ + (let ((___match4271542716_ (lambda (_e74547652_ _hd74537656_ _tl74527659_ @@ -465,7 +465,7 @@ (_L7674_ _hd74567666_) (_L7675_ _hd74537656_)) (if (gx#stx-keyword? _L7675_) - (___kont4287942880_ + (___kont4269542696_ _L7672_ _L7674_ _L7675_) @@ -476,18 +476,18 @@ (declare (not safe)) (equal? _e74637615_ '#!key)) - (___kont4288142882_ + (___kont4269742698_ _tl74557669_ _hd74567666_) - (___kont4288342884_ + (___kont4269942700_ _tl74527659_ _hd74537656_))) - (___kont4288342884_ + (___kont4269942700_ _tl74527659_ _hd74537656_))))))) - (if (gx#stx-pair? ___stx4287642877_) + (if (gx#stx-pair? ___stx4269242693_) (let ((_e74547652_ - (gx#syntax-e ___stx4287642877_))) + (gx#syntax-e ___stx4269242693_))) (let ((_tl74527659_ (let () (declare (not safe)) @@ -507,7 +507,7 @@ (let () (declare (not safe)) (##car _e74577662_)))) - (___match4289942900_ + (___match4271542716_ _e74547652_ _hd74537656_ _tl74527659_ @@ -517,57 +517,57 @@ (if (gx#stx-datum? _hd74537656_) (let ((_e74637615_ (gx#stx-e _hd74537656_))) - (___kont4288342884_ + (___kont4269942700_ _tl74527659_ _hd74537656_)) - (___kont4288342884_ + (___kont4269942700_ _tl74527659_ _hd74537656_))))) - (___kont4288542886_)))))))) + (___kont4270142702_)))))))) (_kw-lambda-split4669_ (lambda (_hd7166_) (let _lp7169_ ((_rest7172_ _hd7166_) (_kwvar7174_ '#f) (_kwargs7175_ '()) (_args7176_ '())) - (let* ((___stx4295042951_ _rest7172_) + (let* ((___stx4276642767_ _rest7172_) (_g71817211_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4295042951_)))) - (let ((___kont4295342954_ + ___stx4276642767_)))) + (let ((___kont4276942770_ (lambda (_L7330_ _L7332_ _L7333_) (let ((_key7347_ (gx#stx-e _L7333_))) - (if (let ((__tmp47905 + (if (let ((__tmp47696 (lambda (_kwarg7350_) - (let ((__tmp47906 + (let ((__tmp47697 (car _kwarg7350_))) (declare (not safe)) (eq? _key7347_ - __tmp47906))))) + __tmp47697))))) (declare (not safe)) - (find __tmp47905 _kwargs7175_)) + (find __tmp47696 _kwargs7175_)) (gx#raise-syntax-error '#f '"bad syntax; duplicate keyword argument" _stx4661_ _hd7166_ _key7347_) - (let* ((___stx4292642927_ _L7332_) + (let* ((___stx4274242743_ _L7332_) (_g73547369_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4292642927_)))) - (let ((___kont4292942930_ + ___stx4274242743_)))) + (let ((___kont4274542746_ (lambda (_L7407_ _L7409_) (_lp7169_ _L7330_ _kwvar7174_ - (let ((__tmp47900 + (let ((__tmp47691 (list _key7347_ (_generate-bind4670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -575,39 +575,39 @@ _L7407_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47900 + (cons __tmp47691 _kwargs7175_)) _args7176_))) - (___kont4293142932_ + (___kont4274742748_ (lambda () (_lp7169_ _L7330_ _kwvar7174_ - (let ((__tmp47901 + (let ((__tmp47692 (list _key7347_ (_generate-bind4670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L7332_) - (let ((__tmp47904 (gx#datum->syntax '#f 'error)) - (__tmp47902 - (let ((__tmp47903 + (let ((__tmp47695 (gx#datum->syntax '#f 'error)) + (__tmp47693 + (let ((__tmp47694 (let () (declare (not safe)) (cons _L7333_ '())))) (declare (not safe)) (cons '"Missing required keyword argument" - __tmp47903)))) + __tmp47694)))) (declare (not safe)) - (cons __tmp47904 __tmp47902))))) + (cons __tmp47695 __tmp47693))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47901 + (cons __tmp47692 _kwargs7175_)) _args7176_)))) - (if (gx#stx-pair? ___stx4292642927_) + (if (gx#stx-pair? ___stx4274242743_) (let ((_e73607387_ (gx#syntax-e - ___stx4292642927_))) + ___stx4274242743_))) (let ((_tl73587394_ (let () (declare (not safe)) @@ -629,12 +629,12 @@ (_hd73627401_ (let () (declare (not safe)) (##car _e73637397_)))) (if (gx#stx-null? _tl73617404_) - (___kont4292942930_ _hd73627401_ _hd73597391_) - (___kont4293142932_)))) - (___kont4293142932_)))) + (___kont4274542746_ _hd73627401_ _hd73597391_) + (___kont4274742748_)))) + (___kont4274742748_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4293142932_)))))))) - (___kont4295542956_ + (___kont4274742748_)))))))) + (___kont4277142772_ (lambda (_L7287_ _L7289_) (if _kwvar7174_ (gx#raise-syntax-error @@ -648,7 +648,7 @@ (_generate-bind4670_ _L7289_) _kwargs7175_ _args7176_)))) - (___kont4295742958_ + (___kont4277342774_ (lambda (_L7239_ _L7241_) (_lp7169_ _L7239_ @@ -657,7 +657,7 @@ (let () (declare (not safe)) (cons _L7241_ _args7176_))))) - (___kont4295942960_ + (___kont4277542776_ (lambda () (values _kwvar7174_ (reverse _kwargs7175_) @@ -666,7 +666,7 @@ (foldl1 cons _rest7172_ _args7176_)))))) - (let ((___match4297342974_ + (let ((___match4278942790_ (lambda (_e71887310_ _hd71877314_ _tl71867317_ @@ -677,7 +677,7 @@ (_L7332_ _hd71907324_) (_L7333_ _hd71877314_)) (if (gx#stx-keyword? _L7333_) - (___kont4295342954_ + (___kont4276942770_ _L7330_ _L7332_ _L7333_) @@ -688,18 +688,18 @@ (declare (not safe)) (equal? _e71977273_ '#!key)) - (___kont4295542956_ + (___kont4277142772_ _tl71897327_ _hd71907324_) - (___kont4295742958_ + (___kont4277342774_ _tl71867317_ _hd71877314_))) - (___kont4295742958_ + (___kont4277342774_ _tl71867317_ _hd71877314_))))))) - (if (gx#stx-pair? ___stx4295042951_) + (if (gx#stx-pair? ___stx4276642767_) (let ((_e71887310_ - (gx#syntax-e ___stx4295042951_))) + (gx#syntax-e ___stx4276642767_))) (let ((_tl71867317_ (let () (declare (not safe)) @@ -719,7 +719,7 @@ (let () (declare (not safe)) (##car _e71917320_)))) - (___match4297342974_ + (___match4278942790_ _e71887310_ _hd71877314_ _tl71867317_ @@ -729,13 +729,13 @@ (if (gx#stx-datum? _hd71877314_) (let ((_e71977273_ (gx#stx-e _hd71877314_))) - (___kont4295742958_ + (___kont4277342774_ _tl71867317_ _hd71877314_)) - (___kont4295742958_ + (___kont4277342774_ _tl71867317_ _hd71877314_))))) - (___kont4295942960_)))))))) + (___kont4277542776_)))))))) (_generate-bind4670_ (lambda (_e7163_) (if (gx#underscore? _e7163_) @@ -751,14 +751,14 @@ (declare (not safe)) (cons _id7159_ _ids7161_)))))) (let _lp6866_ ((_rest6869_ _hd6860_) (_ids6871_ '())) - (let* ((___stx4302443025_ _rest6869_) + (let* ((___stx4284042841_ _rest6869_) (_g68746886_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4302443025_)))) - (let ((___kont4302743028_ + ___stx4284042841_)))) + (let ((___kont4284342844_ (lambda (_L6914_ _L6916_) (if (gx#identifier? _L6916_) (_lp6866_ @@ -827,26 +827,26 @@ (declare (not safe)) (##cdr _e69977010_)))) ((lambda (_L7020_ _L7022_) - (let* ((___stx4300043001_ _L7022_) + (let* ((___stx4281642817_ _L7022_) (_g70347048_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4300043001_)))) - (let ((___kont4300343004_ + ___stx4281642817_)))) + (let ((___kont4281942820_ (lambda (_L7086_) (_lp6866_ _L7020_ (_cons-id6863_ _L7086_ _ids6871_)))) - (___kont4300543006_ + (___kont4282142822_ (lambda () (_lp6866_ _L7020_ (_cons-id6863_ _L7022_ _ids6871_))))) - (if (gx#stx-pair? ___stx4300043001_) + (if (gx#stx-pair? ___stx4281642817_) (let ((_e70397066_ - (gx#syntax-e ___stx4300043001_))) + (gx#syntax-e ___stx4281642817_))) (let ((_tl70377073_ (let () (declare (not safe)) @@ -867,20 +867,20 @@ (declare (not safe)) (##car _e70427076_)))) (if (gx#stx-null? _tl70407083_) - (___kont4300343004_ + (___kont4281942820_ _hd70387070_) - (___kont4300543006_)))) - (___kont4300543006_)))) - (___kont4300543006_))))) + (___kont4282142822_)))) + (___kont4282142822_)))) + (___kont4282142822_))))) _tl69957017_ _hd69967014_))) (_g69917003_ _g69927007_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g69907105_ _L6914_)) - (if (let ((__tmp47907 + (if (let ((__tmp47698 (gx#stx-e _L6916_))) (declare (not safe)) - (eq? __tmp47907 '#!key)) + (eq? __tmp47698 '#!key)) (let* ((_g71097121_ (lambda (_g71107117_) (gx#raise-syntax-error @@ -913,16 +913,16 @@ (error '"BUG: check-duplicate-bindings" _stx4661_ _rest6869_))))))) - (___kont4302943030_ + (___kont4284542846_ (lambda () (gx#check-duplicate-identifiers (if (gx#stx-null? _rest6869_) _ids6871_ (_cons-id6863_ _rest6869_ _ids6871_)) _stx4661_)))) - (if (gx#stx-pair? ___stx4302443025_) + (if (gx#stx-pair? ___stx4284042841_) (let ((_e68806904_ - (gx#syntax-e ___stx4302443025_))) + (gx#syntax-e ___stx4284042841_))) (let ((_tl68786911_ (let () (declare (not safe)) @@ -931,10 +931,10 @@ (let () (declare (not safe)) (##car _e68806904_)))) - (___kont4302743028_ + (___kont4284342844_ _tl68786911_ _hd68796908_))) - (___kont4302943030_)))))))) + (___kont4284542846_)))))))) (_generate-opt-primary4672_ (lambda (_pre6652_ _opt6654_ _tail6655_ _body6656_) (let* ((_g66586699_ @@ -957,34 +957,34 @@ (declare (not safe)) (##cdr _e66666706_)))) (if (gx#stx-pair/null? _hd66656710_) - (let ((_g47908_ + (let ((_g47699_ (gx#syntax-split-splice _hd66656710_ '0))) (begin - (let ((_g47909_ + (let ((_g47700_ (let () (declare (not safe)) - (if (##values? _g47908_) + (if (##values? _g47699_) (##vector-length - _g47908_) + _g47699_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47909_ 2))) + (##fx= _g47700_ 2))) (error "Context expects 2 values" - _g47909_))) + _g47700_))) (let ((_target66676716_ (let () (declare (not safe)) (##vector-ref - _g47908_ + _g47699_ 0))) (_tl66696719_ (let () (declare (not safe)) (##vector-ref - _g47908_ + _g47699_ 1)))) (if (gx#stx-null? _tl66696719_) (letrec ((_loop66706722_ @@ -1019,34 +1019,34 @@ (declare (not safe)) (##cdr _e66786746_)))) (if (gx#stx-pair/null? _hd66776750_) - (let ((_g47910_ + (let ((_g47701_ (gx#syntax-split-splice _hd66776750_ '0))) (begin - (let ((_g47911_ + (let ((_g47702_ (let () (declare (not safe)) - (if (##values? _g47910_) + (if (##values? _g47701_) (##vector-length - _g47910_) + _g47701_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47911_ 2))) + (##fx= _g47702_ 2))) (error "Context expects 2 values" - _g47911_))) + _g47702_))) (let ((_target66796756_ (let () (declare (not safe)) (##vector-ref - _g47910_ + _g47701_ 0))) (_tl66816759_ (let () (declare (not safe)) (##vector-ref - _g47910_ + _g47701_ 1)))) (if (gx#stx-null? _tl66816759_) (letrec ((_loop66826762_ @@ -1097,33 +1097,33 @@ _L6809_ _L6810_) (let () - (let ((__tmp47917 + (let ((__tmp47708 (gx#datum->syntax '#f 'lambda%)) - (__tmp47912 - (let ((__tmp47913 + (__tmp47703 + (let ((__tmp47704 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47916 + (let ((__tmp47707 (lambda (_g68396844_ _g68406847_) (let () (declare (not safe)) (cons _g68396844_ _g68406847_)))) - (__tmp47914 - (let ((__tmp47915 + (__tmp47705 + (let ((__tmp47706 (lambda (_g68416850_ _g68426853_) (let () (declare (not safe)) (cons _g68416850_ _g68426853_))))) (declare (not safe)) - (foldr1 __tmp47915 _L6808_ _L6809_)))) + (foldr1 __tmp47706 _L6808_ _L6809_)))) (declare (not safe)) - (foldr1 __tmp47916 __tmp47914 _L6810_)))) + (foldr1 __tmp47707 __tmp47705 _L6810_)))) (declare (not safe)) - (cons __tmp47913 _L6806_)))) + (cons __tmp47704 _L6806_)))) (declare (not safe)) - (cons __tmp47917 __tmp47912)))) + (cons __tmp47708 __tmp47703)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd66926800_ _hd66896790_ @@ -1151,20 +1151,20 @@ _body6656_))))) (_generate-opt-dispatch4673_ (lambda (_primary6646_ _pre6648_ _opt6649_ _tail6650_) - (let ((__tmp47919 + (let ((__tmp47710 (list _pre6648_ (_generate-opt-clause4675_ _primary6646_ _pre6648_ _opt6649_))) - (__tmp47918 + (__tmp47709 (_generate-opt-dispatch*4674_ _primary6646_ _pre6648_ _opt6649_ _tail6650_))) (declare (not safe)) - (cons __tmp47919 __tmp47918)))) + (cons __tmp47710 __tmp47709)))) (_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 ((_g47934_ + (let ((_g47725_ (gx#syntax-split-splice _g62266246_ '0))) (begin - (let ((_g47935_ + (let ((_g47726_ (let () (declare (not safe)) - (if (##values? _g47934_) + (if (##values? _g47725_) (##vector-length - _g47934_) + _g47725_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47935_ 2))) + (##fx= _g47726_ 2))) (error "Context expects 2 values" - _g47935_))) + _g47726_))) (let ((_target62286249_ (let () (declare (not safe)) (##vector-ref - _g47934_ + _g47725_ 0))) (_tl62306252_ (let () (declare (not safe)) (##vector-ref - _g47934_ + _g47725_ 1)))) (if (gx#stx-null? _tl62306252_) (letrec ((_loop62316255_ @@ -1247,41 +1247,41 @@ (_g62996421_ (lambda (_g63016321_) (if (gx#stx-pair/null? _g63016321_) - (let ((_g47936_ + (let ((_g47727_ (gx#syntax-split-splice _g63016321_ '0))) (begin - (let ((_g47937_ + (let ((_g47728_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47936_) - (##vector-length _g47936_) + _g47727_) + (##vector-length _g47727_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g47937_ 2))) - (error "Context expects 2 values" _g47937_))) + (##fx= _g47728_ 2))) + (error "Context expects 2 values" _g47728_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target63036324_ (let () (declare (not safe)) (##vector-ref - _g47936_ + _g47727_ 0))) (_tl63056327_ (let () (declare (not safe)) (##vector-ref - _g47936_ + _g47727_ 1)))) (if (gx#stx-null? _tl63056327_) @@ -1320,39 +1320,39 @@ ((lambda (_L6386_) (let () (let () - (let ((__tmp47939 - (list (let ((__tmp47943 + (let ((__tmp47730 + (list (let ((__tmp47734 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g64006405_ _g64016408_) (let () (declare (not safe)) (cons _g64006405_ _g64016408_)))) - (__tmp47940 - (let ((__tmp47942 + (__tmp47731 + (let ((__tmp47733 (lambda (_g64026411_ _g64036414_) (let () (declare (not safe)) (cons _g64026411_ _g64036414_)))) - (__tmp47941 + (__tmp47732 (let () (declare (not safe)) (cons _L6386_ '())))) (declare (not safe)) - (foldr1 __tmp47942 - __tmp47941 + (foldr1 __tmp47733 + __tmp47732 _L6354_)))) (declare (not safe)) - (foldr1 __tmp47943 __tmp47940 _L6279_)) + (foldr1 __tmp47734 __tmp47731 _L6279_)) (_generate-opt-clause4675_ _primary6203_ - (let ((__tmp47944 (reverse _right*6222_))) + (let ((__tmp47735 (reverse _right*6222_))) (declare (not safe)) - (foldr1 cons __tmp47944 _pre6205_)) + (foldr1 cons __tmp47735 _pre6205_)) _rest6219_))) - (__tmp47938 (_recur6209_ _rest6219_ _right*6222_))) + (__tmp47729 (_recur6209_ _rest6219_ _right*6222_))) (declare (not safe)) - (cons __tmp47939 __tmp47938))))) + (cons __tmp47730 __tmp47729))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g63726383_)))) (_g63706417_ _hd6216_)))) @@ -1393,26 +1393,26 @@ (##cdr _e64376477_)))) (if (gx#stx-pair/null? _hd64366481_) - (let ((_g47920_ + (let ((_g47711_ (gx#syntax-split-splice _hd64366481_ '0))) (begin - (let ((_g47921_ + (let ((_g47712_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g47920_) - (##vector-length _g47920_) + (if (##values? _g47711_) + (##vector-length _g47711_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47921_ 2))) - (error "Context expects 2 values" _g47921_))) + (if (not (let () (declare (not safe)) (##fx= _g47712_ 2))) + (error "Context expects 2 values" _g47712_))) (let ((_target64386487_ - (let () (declare (not safe)) (##vector-ref _g47920_ 0))) + (let () (declare (not safe)) (##vector-ref _g47711_ 0))) (_tl64406490_ (let () (declare (not safe)) - (##vector-ref _g47920_ 1)))) + (##vector-ref _g47711_ 1)))) (if (gx#stx-null? _tl64406490_) (letrec ((_loop64416493_ (lambda (_hd64396497_ _pre64456500_) @@ -1448,26 +1448,26 @@ (##cdr _e64496517_)))) (if (gx#stx-pair/null? _hd64486521_) - (let ((_g47922_ + (let ((_g47713_ (gx#syntax-split-splice _hd64486521_ '0))) (begin - (let ((_g47923_ + (let ((_g47714_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g47922_) - (##vector-length _g47922_) + (if (##values? _g47713_) + (##vector-length _g47713_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47923_ 2))) - (error "Context expects 2 values" _g47923_))) + (if (not (let () (declare (not safe)) (##fx= _g47714_ 2))) + (error "Context expects 2 values" _g47714_))) (let ((_target64506527_ - (let () (declare (not safe)) (##vector-ref _g47922_ 0))) + (let () (declare (not safe)) (##vector-ref _g47713_ 0))) (_tl64526530_ (let () (declare (not safe)) - (##vector-ref _g47922_ 1)))) + (##vector-ref _g47713_ 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 ((__tmp47926 + (list (list (let ((__tmp47717 (lambda (_g66096614_ _g66106617_) (let () (declare (not safe)) (cons _g66096614_ _g66106617_)))) - (__tmp47924 - (let ((__tmp47925 + (__tmp47715 + (let ((__tmp47716 (lambda (_g66116620_ _g66126623_) (let () @@ -1531,40 +1531,40 @@ (cons _g66116620_ _g66126623_))))) (declare (not safe)) - (foldr1 __tmp47925 + (foldr1 __tmp47716 _L6579_ _L6580_)))) (declare (not safe)) - (foldr1 __tmp47926 __tmp47924 _L6581_)) + (foldr1 __tmp47717 __tmp47715 _L6581_)) (gx#stx-wrap-source - (let ((__tmp47933 + (let ((__tmp47724 (gx#datum->syntax '#f 'apply)) - (__tmp47927 - (let ((__tmp47928 - (let ((__tmp47932 + (__tmp47718 + (let ((__tmp47719 + (let ((__tmp47723 (lambda (_g66256630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g66266633_) (let () (declare (not safe)) (cons _g66256630_ _g66266633_)))) - (__tmp47929 - (let ((__tmp47931 + (__tmp47720 + (let ((__tmp47722 (lambda (_g66276636_ _g66286639_) (let () (declare (not safe)) (cons _g66276636_ _g66286639_)))) - (__tmp47930 + (__tmp47721 (let () (declare (not safe)) (cons _L6579_ '())))) (declare (not safe)) - (foldr1 __tmp47931 __tmp47930 _L6580_)))) + (foldr1 __tmp47722 __tmp47721 _L6580_)))) (declare (not safe)) - (foldr1 __tmp47932 __tmp47929 _L6581_)))) + (foldr1 __tmp47723 __tmp47720 _L6581_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L6577_ __tmp47928)))) + (cons _L6577_ __tmp47719)))) (declare (not safe)) - (cons __tmp47933 __tmp47927)) + (cons __tmp47724 __tmp47718)) (gx#stx-source _stx4661_)))))) _hd64636571_ _hd64606561_ @@ -1631,32 +1631,32 @@ ((lambda (_L5993_) (let () (let () - (let ((__tmp47959 + (let ((__tmp47750 (gx#datum->syntax '#f 'let-values)) - (__tmp47953 - (let ((__tmp47955 - (let ((__tmp47956 - (let ((__tmp47958 + (__tmp47744 + (let ((__tmp47746 + (let ((__tmp47747 + (let ((__tmp47749 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L5934_ '()))) - (__tmp47957 + (__tmp47748 (let () (declare (not safe)) (cons _L5965_ '())))) (declare (not safe)) - (cons __tmp47958 __tmp47957)))) + (cons __tmp47749 __tmp47748)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47956 '()))) - (__tmp47954 + (cons __tmp47747 '()))) + (__tmp47745 (let () (declare (not safe)) (cons _L5993_ '())))) (declare (not safe)) - (cons __tmp47955 __tmp47954)))) + (cons __tmp47746 __tmp47745)))) (declare (not safe)) - (cons __tmp47959 __tmp47953))))) + (cons __tmp47750 __tmp47744))))) _g59795990_)))) (_g59776008_ (_recur5906_ @@ -1690,36 +1690,36 @@ (##cdr _e60276064_)))) (if (gx#stx-pair/null? _hd60266068_) - (let ((_g47945_ + (let ((_g47736_ (gx#syntax-split-splice _hd60266068_ '0))) (begin - (let ((_g47946_ + (let ((_g47737_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47945_) - (##vector-length _g47945_) + _g47736_) + (##vector-length _g47736_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47946_ 2))) - (error "Context expects 2 values" _g47946_))) + (if (not (let () (declare (not safe)) (##fx= _g47737_ 2))) + (error "Context expects 2 values" _g47737_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target60286074_ (let () (declare (not safe)) (##vector-ref - _g47945_ + _g47736_ 0))) (_tl60306077_ (let () (declare (not safe)) (##vector-ref - _g47945_ + _g47736_ 1)))) (if (gx#stx-null? _tl60306077_) @@ -1758,36 +1758,36 @@ (##cdr _e60396104_)))) (if (gx#stx-pair/null? _hd60386108_) - (let ((_g47947_ + (let ((_g47738_ (gx#syntax-split-splice _hd60386108_ '0))) (begin - (let ((_g47948_ + (let ((_g47739_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47947_) - (##vector-length _g47947_) + _g47738_) + (##vector-length _g47738_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47948_ 2))) - (error "Context expects 2 values" _g47948_))) + (if (not (let () (declare (not safe)) (##fx= _g47739_ 2))) + (error "Context expects 2 values" _g47739_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target60406114_ (let () (declare (not safe)) (##vector-ref - _g47947_ + _g47738_ 0))) (_tl60426117_ (let () (declare (not safe)) (##vector-ref - _g47947_ + _g47738_ 1)))) (if (gx#stx-null? _tl60426117_) @@ -1830,25 +1830,25 @@ _L6157_) (let () (gx#stx-wrap-source - (let ((__tmp47949 - (let ((__tmp47952 + (let ((__tmp47740 + (let ((__tmp47743 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g61826187_ _g61836190_) (let () (declare (not safe)) (cons _g61826187_ _g61836190_)))) - (__tmp47950 - (let ((__tmp47951 + (__tmp47741 + (let ((__tmp47742 (lambda (_g61846193_ _g61856196_) (let () (declare (not safe)) (cons _g61846193_ _g61856196_))))) (declare (not safe)) - (foldr1 __tmp47951 '() _L6156_)))) + (foldr1 __tmp47742 '() _L6156_)))) (declare (not safe)) - (foldr1 __tmp47952 __tmp47950 _L6157_)))) + (foldr1 __tmp47743 __tmp47741 _L6157_)))) (declare (not safe)) - (cons _L6154_ __tmp47949)) + (cons _L6154_ __tmp47740)) (gx#stx-source _stx4661_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd60506148_ @@ -1940,62 +1940,62 @@ _L5867_ _L5868_) (let () - (let ((__tmp47976 + (let ((__tmp47767 (gx#datum->syntax '#f 'let-values)) - (__tmp47960 - (let ((__tmp47962 - (let ((__tmp47963 + (__tmp47751 + (let ((__tmp47753 + (let ((__tmp47754 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47975 + (let ((__tmp47766 (let () (declare (not safe)) (cons _L5868_ '()))) - (__tmp47964 - (let ((__tmp47965 - (let ((__tmp47974 + (__tmp47755 + (let ((__tmp47756 + (let ((__tmp47765 (gx#datum->syntax '#f 'if)) - (__tmp47966 - (let ((__tmp47969 - (let ((__tmp47973 + (__tmp47757 + (let ((__tmp47760 + (let ((__tmp47764 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'eq?)) - (__tmp47970 - (let ((__tmp47971 - (let ((__tmp47972 + (__tmp47761 + (let ((__tmp47762 + (let ((__tmp47763 (gx#datum->syntax '#f 'absent-value))) (declare (not safe)) - (cons __tmp47972 '())))) + (cons __tmp47763 '())))) (declare (not safe)) - (cons _L5867_ __tmp47971)))) + (cons _L5867_ __tmp47762)))) (declare (not safe)) - (cons __tmp47973 __tmp47970))) - (__tmp47967 - (let ((__tmp47968 + (cons __tmp47764 __tmp47761))) + (__tmp47758 + (let ((__tmp47759 (let () (declare (not safe)) (cons _L5867_ '())))) (declare (not safe)) - (cons _L5866_ __tmp47968)))) + (cons _L5866_ __tmp47759)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47969 - __tmp47967)))) + (cons __tmp47760 + __tmp47758)))) (declare (not safe)) - (cons __tmp47974 __tmp47966)))) + (cons __tmp47765 __tmp47757)))) (declare (not safe)) - (cons __tmp47965 '())))) + (cons __tmp47756 '())))) (declare (not safe)) - (cons __tmp47975 __tmp47964)))) + (cons __tmp47766 __tmp47755)))) (declare (not safe)) - (cons __tmp47963 '()))) - (__tmp47961 + (cons __tmp47754 '()))) + (__tmp47752 (let () (declare (not safe)) (cons _L5864_ '())))) (declare (not safe)) - (cons __tmp47962 __tmp47961)))) + (cons __tmp47753 __tmp47752)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47976 - __tmp47960)))) + (cons __tmp47767 + __tmp47751)))) _hd58105858_ _hd58075848_ _hd58045838_ @@ -2039,28 +2039,28 @@ (lambda (_g56065626_) (if (gx#stx-pair/null? _g56065626_) - (let ((_g47977_ + (let ((_g47768_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g56065626_ '0))) (begin - (let ((_g47978_ + (let ((_g47769_ (let () (declare (not safe)) - (if (##values? _g47977_) - (##vector-length _g47977_) + (if (##values? _g47768_) + (##vector-length _g47768_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47978_ 2))) - (error "Context expects 2 values" _g47978_))) + (##fx= _g47769_ 2))) + (error "Context expects 2 values" _g47769_))) (let ((_target56085629_ (let () (declare (not safe)) - (##vector-ref _g47977_ 0))) + (##vector-ref _g47768_ 0))) (_tl56105632_ (let () (declare (not safe)) - (##vector-ref _g47977_ 1)))) + (##vector-ref _g47768_ 1)))) (if (gx#stx-null? _tl56105632_) (letrec ((_loop56115635_ (lambda (_hd56095639_ _kwval56155642_) @@ -2109,42 +2109,42 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp47984 + (let ((__tmp47775 (gx#datum->syntax '#f 'lambda)) - (__tmp47979 - (let ((__tmp47981 - (let ((__tmp47982 + (__tmp47770 + (let ((__tmp47772 + (let ((__tmp47773 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47983 + (let ((__tmp47774 (lambda (_g57335736_ _g57345739_) (let () (declare (not safe)) (cons _g57335736_ _g57345739_))))) (declare (not safe)) - (foldr1 __tmp47983 _L5691_ _L5659_)))) + (foldr1 __tmp47774 _L5691_ _L5659_)))) (declare (not safe)) - (cons _L5593_ __tmp47982))) - (__tmp47980 + (cons _L5593_ __tmp47773))) + (__tmp47771 (let () (declare (not safe)) (cons _L5719_ '())))) (declare (not safe)) - (cons __tmp47981 __tmp47980)))) + (cons __tmp47772 __tmp47771)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47984 __tmp47979)) + (cons __tmp47775 __tmp47770)) (gx#stx-source _stx4661_))))) _g57055716_)))) (_g57035742_ (_make-body5283_ _kwargs5279_ - (let ((__tmp47985 + (let ((__tmp47776 (lambda (_g57455748_ _g57465751_) (let () (declare (not safe)) (cons _g57455748_ _g57465751_))))) (declare (not safe)) - (foldr1 __tmp47985 '() _L5659_))))))) + (foldr1 __tmp47776 '() _L5659_))))))) _g56775688_)))) (_g56755754_ _args5280_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2182,28 +2182,28 @@ (lambda (_g54175437_) (if (gx#stx-pair/null? _g54175437_) - (let ((_g47986_ + (let ((_g47777_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g54175437_ '0))) (begin - (let ((_g47987_ + (let ((_g47778_ (let () (declare (not safe)) - (if (##values? _g47986_) - (##vector-length _g47986_) + (if (##values? _g47777_) + (##vector-length _g47777_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47987_ 2))) - (error "Context expects 2 values" _g47987_))) + (##fx= _g47778_ 2))) + (error "Context expects 2 values" _g47778_))) (let ((_target54195440_ (let () (declare (not safe)) - (##vector-ref _g47986_ 0))) + (##vector-ref _g47777_ 0))) (_tl54215443_ (let () (declare (not safe)) - (##vector-ref _g47986_ 1)))) + (##vector-ref _g47777_ 1)))) (if (gx#stx-null? _tl54215443_) (letrec ((_loop54225446_ (lambda (_hd54205450_ @@ -2243,51 +2243,51 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp48000 + (let ((__tmp47791 (gx#datum->syntax '#f 'lambda)) - (__tmp47988 - (let ((__tmp47998 - (let ((__tmp47999 + (__tmp47779 + (let ((__tmp47789 + (let ((__tmp47790 (gx#datum->syntax '#f 'args))) (declare (not safe)) - (cons _L5404_ __tmp47999))) - (__tmp47989 - (let ((__tmp47990 - (let ((__tmp47997 + (cons _L5404_ __tmp47790))) + (__tmp47780 + (let ((__tmp47781 + (let ((__tmp47788 (gx#datum->syntax '#f 'apply)) - (__tmp47991 - (let ((__tmp47992 + (__tmp47782 + (let ((__tmp47783 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47993 - (let ((__tmp47996 + (let ((__tmp47784 + (let ((__tmp47787 (lambda (_g55165519_ _g55175522_) (let () (declare (not safe)) (cons _g55165519_ _g55175522_)))) - (__tmp47994 - (let ((__tmp47995 + (__tmp47785 + (let ((__tmp47786 (gx#datum->syntax '#f 'args))) (declare (not safe)) - (cons __tmp47995 '())))) + (cons __tmp47786 '())))) (declare (not safe)) - (foldr1 __tmp47996 __tmp47994 _L5470_)))) + (foldr1 __tmp47787 __tmp47785 _L5470_)))) (declare (not safe)) - (cons _L5404_ __tmp47993)))) + (cons _L5404_ __tmp47784)))) (declare (not safe)) - (cons _L5502_ __tmp47992)))) + (cons _L5502_ __tmp47783)))) (declare (not safe)) - (cons __tmp47997 __tmp47991)))) + (cons __tmp47788 __tmp47782)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47990 '())))) + (cons __tmp47781 '())))) (declare (not safe)) - (cons __tmp47998 __tmp47989)))) + (cons __tmp47789 __tmp47780)))) (declare (not safe)) - (cons __tmp48000 __tmp47988)) + (cons __tmp47791 __tmp47779)) (gx#stx-source _stx4661_))))) _g54885499_)))) (_g54865525_ _main5386_)))) @@ -2310,16 +2310,16 @@ (lambda (_g55375548_) ((lambda (_L5551_) (let () - (let ((__tmp48008 + (let ((__tmp47799 (gx#datum->syntax '#f 'hash-ref)) - (__tmp48001 - (let ((__tmp48002 - (let ((__tmp48005 - (let ((__tmp48007 + (__tmp47792 + (let ((__tmp47793 + (let ((__tmp47796 + (let ((__tmp47798 (gx#datum->syntax '#f 'quote)) - (__tmp48006 + (__tmp47797 (let () (declare (not safe)) @@ -2327,21 +2327,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp48007 __tmp48006))) + (cons __tmp47798 __tmp47797))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48003 - (let ((__tmp48004 + (__tmp47794 + (let ((__tmp47795 (gx#datum->syntax '#f 'absent-value))) (declare (not safe)) - (cons __tmp48004 '())))) + (cons __tmp47795 '())))) (declare (not safe)) - (cons __tmp48005 __tmp48003)))) + (cons __tmp47796 __tmp47794)))) (declare (not safe)) - (cons _L5404_ __tmp48002)))) + (cons _L5404_ __tmp47793)))) (declare (not safe)) - (cons __tmp48008 __tmp48001)))) + (cons __tmp47799 __tmp47792)))) _g55375548_)))) (_g55355564_ (car _kwarg5533_)))) _kwargs5279_))))) @@ -2384,16 +2384,16 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (let () - (let ((__tmp48015 + (let ((__tmp47806 (gx#datum->syntax '#f 'let-values)) - (__tmp48009 - (let ((__tmp48011 - (let ((__tmp48012 - (let ((__tmp48014 + (__tmp47800 + (let ((__tmp47802 + (let ((__tmp47803 + (let ((__tmp47805 (let () (declare (not safe)) (cons _L5303_ '()))) - (__tmp48013 + (__tmp47804 (let () (declare (not safe)) (cons _L5359_ @@ -2401,18 +2401,18 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48014 - __tmp48013)))) + (cons __tmp47805 + __tmp47804)))) (declare (not safe)) - (cons __tmp48012 '()))) - (__tmp48010 + (cons __tmp47803 '()))) + (__tmp47801 (let () (declare (not safe)) (cons _L5331_ '())))) (declare (not safe)) - (cons __tmp48011 __tmp48010)))) + (cons __tmp47802 __tmp47801)))) (declare (not safe)) - (cons __tmp48015 __tmp48009))))) + (cons __tmp47806 __tmp47800))))) _g53455356_)))) (_g53435374_ (_make-main5285_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2474,50 +2474,50 @@ _L5253_ _L5254_) (let () - (let ((__tmp48028 (gx#datum->syntax '#f 'lambda%)) - (__tmp48016 - (let ((__tmp48017 - (let ((__tmp48018 - (let ((__tmp48027 + (let ((__tmp47819 (gx#datum->syntax '#f 'lambda%)) + (__tmp47807 + (let ((__tmp47808 + (let ((__tmp47809 + (let ((__tmp47818 (gx#datum->syntax '#f 'apply)) - (__tmp48019 - (let ((__tmp48026 + (__tmp47810 + (let ((__tmp47817 (gx#datum->syntax '#f 'keyword-dispatch)) - (__tmp48020 - (let ((__tmp48023 + (__tmp47811 + (let ((__tmp47814 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48025 (gx#datum->syntax '#f 'quote)) - (__tmp48024 + (let ((__tmp47816 (gx#datum->syntax '#f 'quote)) + (__tmp47815 (let () (declare (not safe)) (cons _L5254_ '())))) (declare (not safe)) - (cons __tmp48025 __tmp48024))) - (__tmp48021 - (let ((__tmp48022 + (cons __tmp47816 __tmp47815))) + (__tmp47812 + (let ((__tmp47813 (let () (declare (not safe)) (cons _L5251_ '())))) (declare (not safe)) - (cons _L5253_ __tmp48022)))) + (cons _L5253_ __tmp47813)))) (declare (not safe)) - (cons __tmp48023 __tmp48021)))) + (cons __tmp47814 __tmp47812)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48026 - __tmp48020)))) + (cons __tmp47817 + __tmp47811)))) (declare (not safe)) - (cons __tmp48027 __tmp48019)))) + (cons __tmp47818 __tmp47810)))) (declare (not safe)) - (cons __tmp48018 '())))) + (cons __tmp47809 '())))) (declare (not safe)) - (cons _L5251_ __tmp48017)))) + (cons _L5251_ __tmp47808)))) (declare (not safe)) - (cons __tmp48028 __tmp48016)))) + (cons __tmp47819 __tmp47807)))) _hd52075245_ _hd52045235_ _hd52015225_) @@ -2559,48 +2559,48 @@ (vector-set! _pht5170_ _pos5185_ _key5179_) (_lp5173_ _rest5182_)))) _pht5170_)))))) - (let* ((___stx4304043041_ _stx4661_) + (let* ((___stx4285642857_ _stx4661_) (_g46824713_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4304043041_)))) - (let ((___kont4304343044_ + ___stx4285642857_)))) + (let ((___kont4285942860_ (lambda (_L5145_ _L5147_) - (let ((__tmp48030 (gx#datum->syntax '#f 'lambda%)) - (__tmp48029 + (let ((__tmp47821 (gx#datum->syntax '#f 'lambda%)) + (__tmp47820 (let () (declare (not safe)) (cons _L5147_ _L5145_)))) (declare (not safe)) - (cons __tmp48030 __tmp48029)))) - (___kont4304543046_ + (cons __tmp47821 __tmp47820)))) + (___kont4286142862_ (lambda (_L4917_ _L4919_) - (let ((_g48031_ (_opt-lambda-split4667_ _L4919_))) + (let ((_g47822_ (_opt-lambda-split4667_ _L4919_))) (begin - (let ((_g48032_ + (let ((_g47823_ (let () (declare (not safe)) - (if (##values? _g48031_) - (##vector-length _g48031_) + (if (##values? _g47822_) + (##vector-length _g47822_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48032_ 3))) - (error "Context expects 3 values" _g48032_))) + (##fx= _g47823_ 3))) + (error "Context expects 3 values" _g47823_))) (let ((_pre4932_ (let () (declare (not safe)) - (##vector-ref _g48031_ 0))) + (##vector-ref _g47822_ 0))) (_opt4934_ (let () (declare (not safe)) - (##vector-ref _g48031_ 1))) + (##vector-ref _g47822_ 1))) (_tail4935_ (let () (declare (not safe)) - (##vector-ref _g48031_ 2)))) + (##vector-ref _g47822_ 2)))) (let* ((_g49374945_ (lambda (_g49384941_) (gx#raise-syntax-error @@ -2631,28 +2631,28 @@ (_g49925106_ (lambda (_g49945014_) (if (gx#stx-pair/null? _g49945014_) - (let ((_g48033_ + (let ((_g47824_ (gx#syntax-split-splice _g49945014_ '0))) (begin - (let ((_g48034_ + (let ((_g47825_ (let () (declare (not safe)) - (if (##values? _g48033_) - (##vector-length _g48033_) + (if (##values? _g47824_) + (##vector-length _g47824_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48034_ 2))) + (##fx= _g47825_ 2))) (error "Context expects 2 values" - _g48034_))) + _g47825_))) (let ((_target49965017_ (let () (declare (not safe)) - (##vector-ref _g48033_ 0))) + (##vector-ref _g47824_ 0))) (_tl49985020_ (let () (declare (not safe)) - (##vector-ref _g48033_ 1)))) + (##vector-ref _g47824_ 1)))) (if (gx#stx-null? _tl49985020_) (letrec ((_loop49995023_ (lambda (_hd49975027_ @@ -2686,45 +2686,45 @@ ((lambda (_L5079_) (let () (let () - (let ((__tmp48041 + (let ((__tmp47832 (gx#datum->syntax '#f 'let-values)) - (__tmp48035 - (let ((__tmp48037 - (let ((__tmp48038 - (let ((__tmp48040 + (__tmp47826 + (let ((__tmp47828 + (let ((__tmp47829 + (let ((__tmp47831 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L4952_ '()))) - (__tmp48039 + (__tmp47830 (let () (declare (not safe)) (cons _L4980_ '())))) (declare (not safe)) - (cons __tmp48040 __tmp48039)))) + (cons __tmp47831 __tmp47830)))) (declare (not safe)) - (cons __tmp48038 '()))) - (__tmp48036 (let () (declare (not safe)) (cons _L5079_ '())))) + (cons __tmp47829 '()))) + (__tmp47827 (let () (declare (not safe)) (cons _L5079_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48037 - __tmp48036)))) + (cons __tmp47828 + __tmp47827)))) (declare (not safe)) - (cons __tmp48041 __tmp48035))))) + (cons __tmp47832 __tmp47826))))) _g50655076_)))) (_g50635094_ (gx#stx-wrap-source - (let ((__tmp48044 + (let ((__tmp47835 (gx#datum->syntax '#f 'case-lambda)) - (__tmp48042 - (let ((__tmp48043 + (__tmp47833 + (let ((__tmp47834 (lambda (_g50975100_ _g50985103_) (let () (declare (not safe)) (cons _g50975100_ _g50985103_))))) (declare (not safe)) - (foldr1 __tmp48043 '() _L5047_)))) + (foldr1 __tmp47834 '() _L5047_)))) (declare (not safe)) - (cons __tmp48044 __tmp48042)) + (cons __tmp47835 __tmp47833)) (gx#stx-source _stx4661_)))))) _clause50045043_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2751,7 +2751,7 @@ (gx#stx-source _stx4661_)))))) _g49384949_)))) (_g49365114_ (gx#genident 'opt-lambda)))))))) - (___kont4304743048_ + (___kont4286342864_ (lambda (_L4740_ _L4742_) (let* ((_g47584765_ (lambda (_g47594761_) @@ -2763,32 +2763,32 @@ (lambda (_g47594769_) ((lambda () (let () - (let ((_g48045_ + (let ((_g47836_ (_kw-lambda-split4669_ _L4742_))) (begin - (let ((_g48046_ + (let ((_g47837_ (let () (declare (not safe)) - (if (##values? _g48045_) - (##vector-length _g48045_) + (if (##values? _g47836_) + (##vector-length _g47836_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48046_ 3))) + (##fx= _g47837_ 3))) (error "Context expects 3 values" - _g48046_))) + _g47837_))) (let ((_key4778_ (let () (declare (not safe)) - (##vector-ref _g48045_ 0))) + (##vector-ref _g47836_ 0))) (_kwargs4780_ (let () (declare (not safe)) - (##vector-ref _g48045_ 1))) + (##vector-ref _g47836_ 1))) (_args4781_ (let () (declare (not safe)) - (##vector-ref _g48045_ 2)))) + (##vector-ref _g47836_ 2)))) (let* ((_g47834791_ (lambda (_g47844787_) (gx#raise-syntax-error @@ -2821,34 +2821,34 @@ ((lambda (_L4859_) (let () (let () - (let ((__tmp48053 + (let ((__tmp47844 (gx#datum->syntax '#f 'let-values)) - (__tmp48047 - (let ((__tmp48049 - (let ((__tmp48050 + (__tmp47838 + (let ((__tmp47840 + (let ((__tmp47841 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48052 + (let ((__tmp47843 (let () (declare (not safe)) (cons _L4798_ '()))) - (__tmp48051 + (__tmp47842 (let () (declare (not safe)) (cons _L4831_ '())))) (declare (not safe)) - (cons __tmp48052 __tmp48051)))) + (cons __tmp47843 __tmp47842)))) (declare (not safe)) - (cons __tmp48050 '()))) - (__tmp48048 + (cons __tmp47841 '()))) + (__tmp47839 (let () (declare (not safe)) (cons _L4859_ '())))) (declare (not safe)) - (cons __tmp48049 __tmp48048)))) + (cons __tmp47840 __tmp47839)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48053 - __tmp48047))))) + (cons __tmp47844 + __tmp47838))))) _g48454856_)))) (_g48434874_ (gx#stx-wrap-source @@ -2875,7 +2875,7 @@ 'kw-lambda)))))))))))) (_g47574886_ (_check-duplicate-bindings4671_ _L4742_)))))) - (let* ((___match4308543086_ + (let* ((___match4290142902_ (lambda (_e47044720_ _hd47034724_ _tl47024727_ @@ -2884,9 +2884,9 @@ _tl47054737_) (let ((_L4740_ _tl47054737_) (_L4742_ _hd47064734_)) (if (_kw-lambda?4668_ _L4742_) - (___kont4304743048_ _L4740_ _L4742_) + (___kont4286342864_ _L4740_ _L4742_) (let () (declare (not safe)) (_g46824713_)))))) - (___match4307343074_ + (___match4288942890_ (lambda (_e46964897_ _hd46954901_ _tl46944904_ @@ -2895,15 +2895,15 @@ _tl46974914_) (let ((_L4917_ _tl46974914_) (_L4919_ _hd46984911_)) (if (_opt-lambda?4666_ _L4919_) - (___kont4304543046_ _L4917_ _L4919_) - (___match4308543086_ + (___kont4286142862_ _L4917_ _L4919_) + (___match4290142902_ _e46964897_ _hd46954901_ _tl46944904_ _e46994907_ _hd46984911_ _tl46974914_))))) - (___match4306143062_ + (___match4287742878_ (lambda (_e46885125_ _hd46875129_ _tl46865132_ @@ -2912,16 +2912,16 @@ _tl46895142_) (let ((_L5145_ _tl46895142_) (_L5147_ _hd46905139_)) (if (_simple-lambda?4664_ _L5147_) - (___kont4304343044_ _L5145_ _L5147_) - (___match4307343074_ + (___kont4285942860_ _L5145_ _L5147_) + (___match4288942890_ _e46885125_ _hd46875129_ _tl46865132_ _e46915135_ _hd46905139_ _tl46895142_)))))) - (if (gx#stx-pair? ___stx4304043041_) - (let ((_e46885125_ (gx#syntax-e ___stx4304043041_))) + (if (gx#stx-pair? ___stx4285642857_) + (let ((_e46885125_ (gx#syntax-e ___stx4285642857_))) (let ((_tl46865132_ (let () (declare (not safe)) (##cdr _e46885125_))) (_hd46875129_ @@ -2938,7 +2938,7 @@ (let () (declare (not safe)) (##car _e46915135_)))) - (___match4306143062_ + (___match4287742878_ _e46885125_ _hd46875129_ _tl46865132_ @@ -2949,28 +2949,28 @@ (let () (declare (not safe)) (_g46824713_))))))))) (define |gerbil/core$$[:0:]#def| (lambda (_$stx8077_) - (let* ((___stx4308843089_ _$stx8077_) + (let* ((___stx4290442905_ _$stx8077_) (_g80838147_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4308843089_)))) - (let ((___kont4309143092_ + ___stx4290442905_)))) + (let ((___kont4290742908_ (lambda (_L8377_ _L8379_ _L8380_ _L8381_) - (let ((__tmp48062 (gx#datum->syntax '#f 'def)) - (__tmp48054 - (let ((__tmp48061 + (let ((__tmp47853 (gx#datum->syntax '#f 'def)) + (__tmp47845 + (let ((__tmp47852 (let () (declare (not safe)) (cons _L8381_ _L8380_))) - (__tmp48055 - (let ((__tmp48056 - (let ((__tmp48060 + (__tmp47846 + (let ((__tmp47847 + (let ((__tmp47851 (gx#datum->syntax '#f 'lambda)) - (__tmp48057 - (let ((__tmp48058 - (let ((__tmp48059 + (__tmp47848 + (let ((__tmp47849 + (let ((__tmp47850 (lambda (_g84038406_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g84048409_) @@ -2978,33 +2978,33 @@ (declare (not safe)) (cons _g84038406_ _g84048409_))))) (declare (not safe)) - (foldr1 __tmp48059 '() _L8377_)))) + (foldr1 __tmp47850 '() _L8377_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L8379_ __tmp48058)))) + (cons _L8379_ __tmp47849)))) (declare (not safe)) - (cons __tmp48060 __tmp48057)))) + (cons __tmp47851 __tmp47848)))) (declare (not safe)) - (cons __tmp48056 '())))) + (cons __tmp47847 '())))) (declare (not safe)) - (cons __tmp48061 __tmp48055)))) + (cons __tmp47852 __tmp47846)))) (declare (not safe)) - (cons __tmp48062 __tmp48054)))) - (___kont4309543096_ + (cons __tmp47853 __tmp47845)))) + (___kont4291142912_ (lambda (_L8269_ _L8271_ _L8272_) - (let ((__tmp48071 (gx#datum->syntax '#f 'define-values)) - (__tmp48063 - (let ((__tmp48070 + (let ((__tmp47862 (gx#datum->syntax '#f 'define-values)) + (__tmp47854 + (let ((__tmp47861 (let () (declare (not safe)) (cons _L8272_ '()))) - (__tmp48064 - (let ((__tmp48065 - (let ((__tmp48069 + (__tmp47855 + (let ((__tmp47856 + (let ((__tmp47860 (gx#datum->syntax '#f 'lambda)) - (__tmp48066 - (let ((__tmp48067 - (let ((__tmp48068 + (__tmp47857 + (let ((__tmp47858 + (let ((__tmp47859 (lambda (_g82918294_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g82928297_) @@ -3012,35 +3012,35 @@ (declare (not safe)) (cons _g82918294_ _g82928297_))))) (declare (not safe)) - (foldr1 __tmp48068 '() _L8269_)))) + (foldr1 __tmp47859 '() _L8269_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L8271_ __tmp48067)))) + (cons _L8271_ __tmp47858)))) (declare (not safe)) - (cons __tmp48069 __tmp48066)))) + (cons __tmp47860 __tmp47857)))) (declare (not safe)) - (cons __tmp48065 '())))) + (cons __tmp47856 '())))) (declare (not safe)) - (cons __tmp48070 __tmp48064)))) + (cons __tmp47861 __tmp47855)))) (declare (not safe)) - (cons __tmp48071 __tmp48063)))) - (___kont4309943100_ + (cons __tmp47862 __tmp47854)))) + (___kont4291542916_ (lambda (_L8184_ _L8186_) - (let ((__tmp48075 (gx#datum->syntax '#f 'define-values)) - (__tmp48072 - (let ((__tmp48074 + (let ((__tmp47866 (gx#datum->syntax '#f 'define-values)) + (__tmp47863 + (let ((__tmp47865 (let () (declare (not safe)) (cons _L8186_ '()))) - (__tmp48073 + (__tmp47864 (let () (declare (not safe)) (cons _L8184_ '())))) (declare (not safe)) - (cons __tmp48074 __tmp48073)))) + (cons __tmp47865 __tmp47864)))) (declare (not safe)) - (cons __tmp48075 __tmp48072))))) - (let* ((___match4317943180_ + (cons __tmp47866 __tmp47863))))) + (let* ((___match4299542996_ (lambda (_e81358154_ _hd81348158_ _tl81338161_ @@ -3052,9 +3052,9 @@ _tl81398181_) (let ((_L8184_ _hd81408178_) (_L8186_ _hd81378168_)) (if (gx#identifier? _L8186_) - (___kont4309943100_ _L8184_ _L8186_) + (___kont4291542916_ _L8184_ _L8186_) (let () (declare (not safe)) (_g80838147_)))))) - (___match4317143172_ + (___match4298742988_ (lambda (_e81358154_ _hd81348158_ _tl81338161_ @@ -3072,7 +3072,7 @@ (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4317943180_ + (___match4299542996_ _e81358154_ _hd81348158_ _tl81338161_ @@ -3086,7 +3086,7 @@ (declare (not safe)) (_g80838147_))))) (let () (declare (not safe)) (_g80838147_))))) - (___match4315943160_ + (___match4297542976_ (lambda (_e81158209_ _hd81148213_ _tl81138216_ @@ -3096,7 +3096,7 @@ _e81218229_ _hd81208233_ _tl81198236_ - ___splice4309743098_ + ___splice4291342914_ _target81228239_ _tl81248242_) (letrec ((_loop81258245_ @@ -3124,11 +3124,11 @@ (_L8271_ _tl81198236_) (_L8272_ _hd81208233_)) (if (gx#identifier? _L8272_) - (___kont4309543096_ + (___kont4291142912_ _L8269_ _L8271_ _L8272_) - (___match4317143172_ + (___match4298742988_ _e81158209_ _hd81148213_ _tl81138216_ @@ -3136,7 +3136,7 @@ _hd81178223_ _tl81168226_)))))))) (_loop81258245_ _target81228239_ '())))) - (___match4313343134_ + (___match4294942950_ (lambda (_e80918307_ _hd80908311_ _tl80898314_ @@ -3149,7 +3149,7 @@ _e81008337_ _hd80998341_ _tl80988344_ - ___splice4309343094_ + ___splice4290942910_ _target81018347_ _tl81038350_) (letrec ((_loop81048353_ @@ -3173,14 +3173,14 @@ _body81088360_))))) (let ((_body81098373_ (reverse _body81088360_))) - (___kont4309143092_ + (___kont4290742908_ _body81098373_ _tl80958334_ _tl80988344_ _hd80998341_)))))) (_loop81048353_ _target81018347_ '()))))) - (if (gx#stx-pair? ___stx4308843089_) - (let ((_e80918307_ (gx#syntax-e ___stx4308843089_))) + (if (gx#stx-pair? ___stx4290442905_) + (let ((_e80918307_ (gx#syntax-e ___stx4290442905_))) (let ((_tl80898314_ (let () (declare (not safe)) (##cdr _e80918307_))) (_hd80908311_ @@ -3219,7 +3219,7 @@ (##car _e81008337_)))) (if (gx#stx-pair/null? _tl80928324_) - (let ((___splice4309343094_ + (let ((___splice4290942910_ (gx#syntax-split-splice _tl80928324_ '0))) @@ -3228,18 +3228,18 @@ (declare (not safe)) (##vector-ref - ___splice4309343094_ + ___splice4290942910_ '1))) (_target81018347_ (let () (declare (not safe)) (##vector-ref - ___splice4309343094_ + ___splice4290942910_ '0)))) (if (gx#stx-null? _tl81038350_) - (___match4313343134_ + (___match4294942950_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3252,7 +3252,7 @@ _e81008337_ _hd80998341_ _tl80988344_ - ___splice4309343094_ + ___splice4290942910_ _target81018347_ _tl81038350_) (if (gx#stx-pair? @@ -3269,7 +3269,7 @@ (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4317943180_ + (___match4299542996_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3295,7 +3295,7 @@ (_hd81408178_ (let () (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4317943180_ + (___match4299542996_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3309,7 +3309,7 @@ (let () (declare (not safe)) (_g80838147_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl80928324_) - (let ((___splice4309743098_ + (let ((___splice4291342914_ (gx#syntax-split-splice _tl80928324_ '0))) @@ -3317,17 +3317,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4309743098_ + ___splice4291342914_ '1))) (_target81228239_ (let () (declare (not safe)) (##vector-ref - ___splice4309743098_ + ___splice4291342914_ '0)))) (if (gx#stx-null? _tl81248242_) - (___match4315943160_ + (___match4297542976_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3337,7 +3337,7 @@ _e80978327_ _hd80968331_ _tl80958334_ - ___splice4309743098_ + ___splice4291342914_ _target81228239_ _tl81248242_) (if (gx#stx-pair? @@ -3350,7 +3350,7 @@ (_hd81408178_ (let () (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4317943180_ + (___match4299542996_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3379,7 +3379,7 @@ (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4317943180_ + (___match4299542996_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3408,7 +3408,7 @@ (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4317943180_ + (___match4299542996_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3457,31 +3457,31 @@ (declare (not safe)) (##cdr _e84318463_)))) (if (gx#stx-pair/null? _tl84298470_) - (let ((_g48076_ + (let ((_g47867_ (gx#syntax-split-splice _tl84298470_ '0))) (begin - (let ((_g48077_ + (let ((_g47868_ (let () (declare (not safe)) - (if (##values? _g48076_) + (if (##values? _g47867_) (##vector-length - _g48076_) + _g47867_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48077_ 2))) + (##fx= _g47868_ 2))) (error "Context expects 2 values" - _g48077_))) + _g47868_))) (let ((_target84328473_ (let () (declare (not safe)) - (##vector-ref _g48076_ 0))) + (##vector-ref _g47867_ 0))) (_tl84348476_ (let () (declare (not safe)) - (##vector-ref _g48076_ 1)))) + (##vector-ref _g47867_ 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 ((__tmp48085 + (let ((__tmp47876 (gx#datum->syntax '#f 'define-values)) - (__tmp48078 - (let ((__tmp48084 + (__tmp47869 + (let ((__tmp47875 (let () (declare (not safe)) (cons _L8505_ '()))) - (__tmp48079 - (let ((__tmp48080 - (let ((__tmp48083 + (__tmp47870 + (let ((__tmp47871 + (let ((__tmp47874 (gx#datum->syntax '#f 'case-lambda)) - (__tmp48081 - (let ((__tmp48082 + (__tmp47872 + (let ((__tmp47873 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g85228525_ _g85238528_) (let () (declare (not safe)) (cons _g85228525_ _g85238528_))))) (declare (not safe)) - (foldr1 __tmp48082 '() _L8503_)))) + (foldr1 __tmp47873 '() _L8503_)))) (declare (not safe)) - (cons __tmp48083 __tmp48081)))) + (cons __tmp47874 __tmp47872)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48080 '())))) + (cons __tmp47871 '())))) (declare (not safe)) - (cons __tmp48084 __tmp48079)))) + (cons __tmp47875 __tmp47870)))) (declare (not safe)) - (cons __tmp48085 __tmp48078)) + (cons __tmp47876 __tmp47869)) (_g84228446_ _g84238450_))) _clauses84408499_ _hd84308467_)))))) @@ -3593,18 +3593,18 @@ ((lambda (_L8595_ _L8597_) (if (gx#identifier-list? _L8597_) - (let ((__tmp48088 + (let ((__tmp47879 (gx#datum->syntax '#f 'define-values)) - (__tmp48086 - (let ((__tmp48087 + (__tmp47877 + (let ((__tmp47878 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L8595_ '())))) (declare (not safe)) - (cons _L8597_ __tmp48087)))) + (cons _L8597_ __tmp47878)))) (declare (not safe)) - (cons __tmp48088 __tmp48086)) + (cons __tmp47879 __tmp47877)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g85408558_ _g85418562_))) @@ -3646,31 +3646,31 @@ (declare (not safe)) (##cdr _e86308662_)))) (if (gx#stx-pair/null? _tl86288669_) - (let ((_g48089_ + (let ((_g47880_ (gx#syntax-split-splice _tl86288669_ '0))) (begin - (let ((_g48090_ + (let ((_g47881_ (let () (declare (not safe)) - (if (##values? _g48089_) + (if (##values? _g47880_) (##vector-length - _g48089_) + _g47880_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48090_ 2))) + (##fx= _g47881_ 2))) (error "Context expects 2 values" - _g48090_))) + _g47881_))) (let ((_target86318672_ (let () (declare (not safe)) - (##vector-ref _g48089_ 0))) + (##vector-ref _g47880_ 0))) (_tl86338675_ (let () (declare (not safe)) - (##vector-ref _g48089_ 1)))) + (##vector-ref _g47880_ 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 ((__tmp48102 (gx#datum->syntax '#f 'let)) - (__tmp48091 - (let ((__tmp48099 - (let ((__tmp48101 + (let ((__tmp47893 (gx#datum->syntax '#f 'let)) + (__tmp47882 + (let ((__tmp47890 + (let ((__tmp47892 (gx#datum->syntax '#f '$e)) - (__tmp48100 + (__tmp47891 (let () (declare (not safe)) (cons _L8704_ '())))) (declare (not safe)) - (cons __tmp48101 __tmp48100))) - (__tmp48092 - (let ((__tmp48093 - (let ((__tmp48098 + (cons __tmp47892 __tmp47891))) + (__tmp47883 + (let ((__tmp47884 + (let ((__tmp47889 (gx#datum->syntax '#f '~case)) - (__tmp48094 - (let ((__tmp48097 + (__tmp47885 + (let ((__tmp47888 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp48095 - (let ((__tmp48096 + (__tmp47886 + (let ((__tmp47887 (lambda (_g87218724_ _g87228727_) (let () (declare (not safe)) (cons _g87218724_ _g87228727_))))) (declare (not safe)) - (foldr1 __tmp48096 '() _L8702_)))) + (foldr1 __tmp47887 '() _L8702_)))) (declare (not safe)) - (cons __tmp48097 __tmp48095)))) + (cons __tmp47888 __tmp47886)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48098 - __tmp48094)))) + (cons __tmp47889 + __tmp47885)))) (declare (not safe)) - (cons __tmp48093 '())))) + (cons __tmp47884 '())))) (declare (not safe)) - (cons __tmp48099 __tmp48092)))) + (cons __tmp47890 __tmp47883)))) (declare (not safe)) - (cons __tmp48102 __tmp48091))) + (cons __tmp47893 __tmp47882))) _clause86398698_ _hd86298666_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3755,23 +3755,23 @@ (_datums11210_ '()) (_dispatch11211_ '()) (_default11212_ '#f)) - (let* ((___stx4327843279_ _rest11208_) + (let* ((___stx4309443095_ _rest11208_) (_g1121511227_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4327843279_)))) - (let ((___kont4328143282_ + ___stx4309443095_)))) + (let ((___kont4309743098_ (lambda (_L11259_ _L11261_) - (let* ((___stx4318243183_ _L11261_) + (let* ((___stx4299842999_ _L11261_) (_g1127911352_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4318243183_)))) - (let ((___kont4318543186_ + ___stx4299842999_)))) + (let ((___kont4300143002_ (lambda (_L11717_) (if (gx#stx-null? _L11259_) (let* ((_g1173211740_ @@ -3788,13 +3788,13 @@ '() _datums11210_ _dispatch11211_ - (let ((__tmp48103 + (let ((__tmp47894 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L11747_ '())))) (declare (not safe)) - (cons _L11717_ __tmp48103))))) + (cons _L11717_ __tmp47894))))) _g1173311744_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1173111759_ _e11201_)) @@ -3803,19 +3803,19 @@ '"Misplaced else clause" _stx8735_ _L11261_)))) - (___kont4318743188_ + (___kont4300343004_ (lambda (_L11657_) (if (gx#stx-null? _L11259_) (_lp11205_ '() _datums11210_ _dispatch11211_ - (let ((__tmp48106 + (let ((__tmp47897 (gx#datum->syntax '#f 'begin)) - (__tmp48104 - (let ((__tmp48105 + (__tmp47895 + (let ((__tmp47896 (lambda (_g1167111674_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1167211677_) @@ -3823,20 +3823,20 @@ (declare (not safe)) (cons _g1167111674_ _g1167211677_))))) (declare (not safe)) - (foldr1 __tmp48105 '() _L11657_)))) + (foldr1 __tmp47896 '() _L11657_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48106 - __tmp48104))) + (cons __tmp47897 + __tmp47895))) (gx#raise-syntax-error '#f '"Misplaced else clause" _stx8735_ _L11261_)))) - (___kont4319143192_ + (___kont4300743008_ (lambda (_L11542_ _L11544_) - (if (let ((__tmp48111 - (let ((__tmp48112 + (if (let ((__tmp47902 + (let ((__tmp47903 (lambda (_g1156211565_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1156311568_) @@ -3844,10 +3844,10 @@ (declare (not safe)) (cons _g1156211565_ _g1156311568_))))) (declare (not safe)) - (foldr1 __tmp48112 '() _L11544_)))) + (foldr1 __tmp47903 '() _L11544_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp48111)) + (null? __tmp47902)) (_lp11205_ _L11259_ _datums11210_ @@ -3865,10 +3865,10 @@ (let () (_lp11205_ _L11259_ - (let ((__tmp48107 + (let ((__tmp47898 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map gx#stx-e - (let ((__tmp48108 + (let ((__tmp47899 (lambda (_g1159711600_ _g1159811603_) (let () @@ -3876,26 +3876,26 @@ (cons _g1159711600_ _g1159811603_))))) (declare (not safe)) - (foldr1 __tmp48108 '() _L11544_))))) + (foldr1 __tmp47899 '() _L11544_))))) (declare (not safe)) - (cons __tmp48107 _datums11210_)) - (let ((__tmp48109 - (let ((__tmp48110 + (cons __tmp47898 _datums11210_)) + (let ((__tmp47900 + (let ((__tmp47901 (let () (declare (not safe)) (cons _L11586_ '())))) (declare (not safe)) - (cons _L11542_ __tmp48110)))) + (cons _L11542_ __tmp47901)))) (declare (not safe)) - (cons __tmp48109 _dispatch11211_)) + (cons __tmp47900 _dispatch11211_)) _default11212_))) _g1157211583_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1157011606_ _e11201_))))) - (___kont4319543196_ + (___kont4301143012_ (lambda (_L11429_ _L11431_) - (if (let ((__tmp48119 - (let ((__tmp48120 + (if (let ((__tmp47910 + (let ((__tmp47911 (lambda (_g1145011453_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1145111456_) @@ -3903,10 +3903,10 @@ (declare (not safe)) (cons _g1145011453_ _g1145111456_))))) (declare (not safe)) - (foldr1 __tmp48120 '() _L11431_)))) + (foldr1 __tmp47911 '() _L11431_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp48119)) + (null? __tmp47910)) (_lp11205_ _L11259_ _datums11210_ @@ -3914,46 +3914,46 @@ _default11212_) (_lp11205_ _L11259_ - (let ((__tmp48113 + (let ((__tmp47904 (map gx#stx-e - (let ((__tmp48114 + (let ((__tmp47905 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1145811461_ _g1145911464_) (let () (declare (not safe)) (cons _g1145811461_ _g1145911464_))))) (declare (not safe)) - (foldr1 __tmp48114 '() _L11431_))))) + (foldr1 __tmp47905 '() _L11431_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48113 + (cons __tmp47904 _datums11210_)) - (let ((__tmp48115 - (let ((__tmp48118 + (let ((__tmp47906 + (let ((__tmp47909 (gx#datum->syntax '#f 'begin)) - (__tmp48116 - (let ((__tmp48117 + (__tmp47907 + (let ((__tmp47908 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1146611469_ _g1146711472_) (let () (declare (not safe)) (cons _g1146611469_ _g1146711472_))))) (declare (not safe)) - (foldr1 __tmp48117 '() _L11429_)))) + (foldr1 __tmp47908 '() _L11429_)))) (declare (not safe)) - (cons __tmp48118 __tmp48116)))) + (cons __tmp47909 __tmp47907)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48115 + (cons __tmp47906 _dispatch11211_)) _default11212_))))) - (let* ((___match4327543276_ + (let* ((___match4309143092_ (lambda (_e1132811359_ _hd1132711363_ _tl1132611366_ - ___splice4319743198_ + ___splice4301343014_ _target1132911369_ _tl1133111372_) (letrec ((_loop1133211375_ @@ -3977,7 +3977,7 @@ (cons _lp-hd1133411389_ _datum1133611382_))))) (let ((_datum1133711395_ (reverse _datum1133611382_))) (if (gx#stx-pair/null? _tl1132611366_) - (let ((___splice4319943200_ + (let ((___splice4301543016_ (gx#syntax-split-splice _tl1132611366_ '0))) @@ -3985,13 +3985,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4319943200_ + ___splice4301543016_ '1))) (_target1133811399_ (let () (declare (not safe)) (##vector-ref - ___splice4319943200_ + ___splice4301543016_ '0)))) (if (gx#stx-null? _tl1134011402_) (letrec ((_loop1134111405_ @@ -4018,7 +4018,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_body1134611425_ (reverse _body1134511412_))) - (___kont4319543196_ + (___kont4301143012_ _body1134611425_ _datum1133711395_)))))) (_loop1134111405_ @@ -4034,11 +4034,11 @@ (_loop1133211375_ _target1132911369_ '())))) - (___match4326143262_ + (___match4307743078_ (lambda (_e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_) (letrec ((_loop1131211498_ @@ -4074,7 +4074,7 @@ (##car _e1132011522_)))) (if (gx#identifier? _hd1131911526_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48121_| + |gerbil/core$$[1]#_g47912_| _hd1131911526_) (if (gx#stx-pair? _tl1131811529_) (let ((_e1132311532_ @@ -4090,53 +4090,53 @@ (##car _e1132311532_)))) (if (gx#stx-null? _tl1132111539_) - (___kont4319143192_ + (___kont4300743008_ _hd1132211536_ _datum1131711518_) - (___match4327543276_ + (___match4309143092_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_)))) - (___match4327543276_ + (___match4309143092_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_)) - (___match4327543276_ + (___match4309143092_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_)) - (___match4327543276_ + (___match4309143092_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_)))) - (___match4327543276_ + (___match4309143092_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop1131211498_ _target1130911492_ '())))) - (___match4324743248_ + (___match4306343064_ (lambda (_e1129411617_ _hd1129311621_ _tl1129211624_ - ___splice4318943190_ + ___splice4300543006_ _target1129511627_ _tl1129711630_) (letrec ((_loop1129811633_ @@ -4159,15 +4159,15 @@ (declare (not safe)) (cons _lp-hd1130011647_ _body1130211640_))))) (let ((_body1130311653_ (reverse _body1130211640_))) - (___kont4318743188_ _body1130311653_)))))) + (___kont4300343004_ _body1130311653_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop1129811633_ _target1129511627_ '()))))) - (if (gx#stx-pair? ___stx4318243183_) + (if (gx#stx-pair? ___stx4299842999_) (let ((_e1128411687_ (gx#syntax-e - ___stx4318243183_))) + ___stx4299842999_))) (let ((_tl1128211694_ (let () (declare (not safe)) @@ -4179,7 +4179,7 @@ (if (gx#identifier? _hd1128311691_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48123_| + |gerbil/core$$[1]#_g47914_| _hd1128311691_) (if (gx#stx-pair? _tl1128211694_) @@ -4196,7 +4196,7 @@ (##car _e1128711697_)))) (if (gx#identifier? _hd1128611701_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48122_| + |gerbil/core$$[1]#_g47913_| _hd1128611701_) (if (gx#stx-pair? _tl1128511704_) (let ((_e1129011707_ @@ -4210,10 +4210,10 @@ (declare (not safe)) (##car _e1129011707_)))) (if (gx#stx-null? _tl1128811714_) - (___kont4318543186_ _hd1128911711_) + (___kont4300143002_ _hd1128911711_) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4318943190_ + (let ((___splice4300543006_ (gx#syntax-split-splice _tl1128211694_ '0))) @@ -4221,42 +4221,42 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318943190_ + ___splice4300543006_ '1))) (_target1129511627_ (let () (declare (not safe)) (##vector-ref - ___splice4318943190_ + ___splice4300543006_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4324743248_ + (___match4306343064_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318943190_ + ___splice4300543006_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4319343194_ + (let ((___splice4300943010_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _hd1128311691_ '0))) (let ((_tl1131111495_ (let () (declare (not safe)) - (##vector-ref ___splice4319343194_ '1))) + (##vector-ref ___splice4300943010_ '1))) (_target1130911492_ (let () (declare (not safe)) - (##vector-ref ___splice4319343194_ '0)))) + (##vector-ref ___splice4300943010_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4326143262_ + (___match4307743078_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_) (let () (declare (not safe)) (_g1127911352_))))) @@ -4264,7 +4264,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4319343194_ + (let ((___splice4300943010_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4273,22 +4273,22 @@ (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4326143262_ + (___match4307743078_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_) (let () @@ -4299,7 +4299,7 @@ (declare (not safe)) (_g1127911352_))))))) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4318943190_ + (let ((___splice4300543006_ (gx#syntax-split-splice _tl1128211694_ '0))) @@ -4307,25 +4307,25 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318943190_ + ___splice4300543006_ '1))) (_target1129511627_ (let () (declare (not safe)) (##vector-ref - ___splice4318943190_ + ___splice4300543006_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4324743248_ + (___match4306343064_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318943190_ + ___splice4300543006_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4319343194_ + (let ((___splice4300943010_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4334,22 +4334,22 @@ (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4326143262_ + (___match4307743078_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_) (let () @@ -4360,7 +4360,7 @@ (declare (not safe)) (_g1127911352_)))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4319343194_ + (let ((___splice4300943010_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4368,21 +4368,21 @@ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4326143262_ + (___match4307743078_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_) (let () @@ -4392,7 +4392,7 @@ (declare (not safe)) (_g1127911352_))))) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4318943190_ + (let ((___splice4300543006_ (gx#syntax-split-splice _tl1128211694_ '0))) @@ -4400,25 +4400,25 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318943190_ + ___splice4300543006_ '1))) (_target1129511627_ (let () (declare (not safe)) (##vector-ref - ___splice4318943190_ + ___splice4300543006_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4324743248_ + (___match4306343064_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318943190_ + ___splice4300543006_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4319343194_ + (let ((___splice4300943010_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4426,21 +4426,21 @@ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4326143262_ + (___match4307743078_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_) (let () @@ -4450,7 +4450,7 @@ (declare (not safe)) (_g1127911352_)))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4319343194_ + (let ((___splice4300943010_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4458,20 +4458,20 @@ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4326143262_ + (___match4307743078_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_) (let () @@ -4481,7 +4481,7 @@ (declare (not safe)) (_g1127911352_))))) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4318943190_ + (let ((___splice4300543006_ (gx#syntax-split-splice _tl1128211694_ '0))) @@ -4489,24 +4489,24 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318943190_ + ___splice4300543006_ '1))) (_target1129511627_ (let () (declare (not safe)) (##vector-ref - ___splice4318943190_ + ___splice4300543006_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4324743248_ + (___match4306343064_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318943190_ + ___splice4300543006_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4319343194_ + (let ((___splice4300943010_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4514,21 +4514,21 @@ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4326143262_ + (___match4307743078_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_) (let () @@ -4538,7 +4538,7 @@ (declare (not safe)) (_g1127911352_)))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4319343194_ + (let ((___splice4300943010_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4546,20 +4546,20 @@ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4326143262_ + (___match4307743078_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_) (let () @@ -4569,26 +4569,26 @@ (declare (not safe)) (_g1127911352_))))))) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4318943190_ + (let ((___splice4300543006_ (gx#syntax-split-splice _tl1128211694_ '0))) (let ((_tl1129711630_ (let () (declare (not safe)) - (##vector-ref ___splice4318943190_ '1))) + (##vector-ref ___splice4300543006_ '1))) (_target1129511627_ (let () (declare (not safe)) - (##vector-ref ___splice4318943190_ '0)))) + (##vector-ref ___splice4300543006_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4324743248_ + (___match4306343064_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318943190_ + ___splice4300543006_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4319343194_ + (let ((___splice4300943010_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4596,20 +4596,20 @@ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4319343194_ + ___splice4300943010_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4326143262_ + (___match4307743078_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_) (let () @@ -4619,22 +4619,22 @@ (declare (not safe)) (_g1127911352_)))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4319343194_ + (let ((___splice4300943010_ (gx#syntax-split-splice _hd1128311691_ '0))) (let ((_tl1131111495_ (let () (declare (not safe)) - (##vector-ref ___splice4319343194_ '1))) + (##vector-ref ___splice4300943010_ '1))) (_target1130911492_ (let () (declare (not safe)) - (##vector-ref ___splice4319343194_ '0)))) + (##vector-ref ___splice4300943010_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4326143262_ + (___match4307743078_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_) (let () @@ -4642,22 +4642,22 @@ (_g1127911352_))))) (let () (declare (not safe)) (_g1127911352_))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4319343194_ + (let ((___splice4300943010_ (gx#syntax-split-splice _hd1128311691_ '0))) (let ((_tl1131111495_ (let () (declare (not safe)) - (##vector-ref ___splice4319343194_ '1))) + (##vector-ref ___splice4300943010_ '1))) (_target1130911492_ (let () (declare (not safe)) - (##vector-ref ___splice4319343194_ '0)))) + (##vector-ref ___splice4300943010_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4326143262_ + (___match4307743078_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_) (let () (declare (not safe)) (_g1127911352_))))) @@ -4665,7 +4665,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4319343194_ + (let ((___splice4300943010_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4673,17 +4673,17 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4319343194_ '1))) + (##vector-ref ___splice4300943010_ '1))) (_target1130911492_ (let () (declare (not safe)) - (##vector-ref ___splice4319343194_ '0)))) + (##vector-ref ___splice4300943010_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4326143262_ + (___match4307743078_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4319343194_ + ___splice4300943010_ _target1130911492_ _tl1131111495_) (let () (declare (not safe)) (_g1127911352_))))) @@ -4692,7 +4692,7 @@ (let () (declare (not safe)) (_g1127911352_)))))))) - (___kont4328343284_ + (___kont4309943100_ (lambda () (_check-duplicate-datums8740_ _datums11210_) (values (reverse _datums11210_) @@ -4703,14 +4703,14 @@ '#!void)))))) (let ((_g1121411242_ (lambda () - (if (gx#stx-null? ___stx4327843279_) - (___kont4328343284_) + (if (gx#stx-null? ___stx4309443095_) + (___kont4309943100_) (let () (declare (not safe)) (_g1121511227_)))))) - (if (gx#stx-pair? ___stx4327843279_) + (if (gx#stx-pair? ___stx4309443095_) (let ((_e1122111249_ - (gx#syntax-e ___stx4327843279_))) + (gx#syntax-e ___stx4309443095_))) (let ((_tl1121911256_ (let () (declare (not safe)) @@ -4719,7 +4719,7 @@ (let () (declare (not safe)) (##car _e1122111249_)))) - (___kont4328143282_ + (___kont4309743098_ _tl1121911256_ _hd1122011253_))) (let () @@ -4748,43 +4748,43 @@ _datums11189_)))) (_count-datums8741_ (lambda (_datums11182_) - (let ((__tmp48124 + (let ((__tmp47915 (lambda (_lst11185_ _r11187_) (+ (length _lst11185_) _r11187_)))) (declare (not safe)) - (foldl1 __tmp48124 '0 _datums11182_)))) + (foldl1 __tmp47915 '0 _datums11182_)))) (_symbolic-datums?8742_ (lambda (_datums11176_) - (let ((__tmp48125 + (let ((__tmp47916 (lambda (_lst11179_) (let () (declare (not safe)) (andmap1 symbol? _lst11179_))))) (declare (not safe)) - (andmap1 __tmp48125 _datums11176_)))) + (andmap1 __tmp47916 _datums11176_)))) (_char-datums?8743_ (lambda (_datums11170_) - (let ((__tmp48126 + (let ((__tmp47917 (lambda (_lst11173_) (let () (declare (not safe)) (andmap1 char? _lst11173_))))) (declare (not safe)) - (andmap1 __tmp48126 _datums11170_)))) + (andmap1 __tmp47917 _datums11170_)))) (_fixnum-datums?8744_ (lambda (_datums11164_) - (let ((__tmp48127 + (let ((__tmp47918 (lambda (_lst11167_) (let () (declare (not safe)) (andmap1 fixnum? _lst11167_))))) (declare (not safe)) - (andmap1 __tmp48127 _datums11164_)))) + (andmap1 __tmp47918 _datums11164_)))) (_eq-datums?8745_ (lambda (_datums11147_) - (let ((__tmp48128 + (let ((__tmp47919 (lambda (_lst11150_) - (let ((__tmp48129 + (let ((__tmp47920 (lambda (_x11153_) (let ((_$e11156_ (let () @@ -4801,9 +4801,9 @@ (immediate? _x11153_))))))))) (declare (not safe)) - (andmap1 __tmp48129 _lst11150_))))) + (andmap1 __tmp47920 _lst11150_))))) (declare (not safe)) - (andmap1 __tmp48128 _datums11147_)))) + (andmap1 __tmp47919 _datums11147_)))) (_generate-simple-case8746_ (lambda (_e10911_ _datums10913_ @@ -4823,14 +4823,14 @@ _datums10913_) (_dispatch10949_ _dispatch10914_)) - (let* ((___stx4329643297_ _datums10947_) + (let* ((___stx4311243113_ _datums10947_) (_g1095210973_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4329643297_)))) - (let ((___kont4329943300_ + ___stx4311243113_)))) + (let ((___kont4311543116_ (lambda (_L11031_ _L11033_) (let* ((_g1105311065_ (lambda (_g1105411061_) @@ -4864,48 +4864,48 @@ (lambda (_g1109711108_) ((lambda (_L11111_) (let () - (let ((__tmp48141 + (let ((__tmp47932 (gx#datum->syntax '#f 'if)) - (__tmp48130 - (let ((__tmp48133 - (let ((__tmp48140 + (__tmp47921 + (let ((__tmp47924 + (let ((__tmp47931 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'or)) - (__tmp48134 - (let ((__tmp48135 + (__tmp47925 + (let ((__tmp47926 (lambda (_g1112211125_ _g1112311128_) - (let ((__tmp48136 - (let ((__tmp48139 + (let ((__tmp47927 + (let ((__tmp47930 (gx#datum->syntax '#f '~case-test)) - (__tmp48137 - (let ((__tmp48138 + (__tmp47928 + (let ((__tmp47929 (let () (declare (not safe)) (cons _L10932_ '())))) (declare (not safe)) (cons _g1112211125_ - __tmp48138)))) + __tmp47929)))) (declare (not safe)) - (cons __tmp48139 __tmp48137)))) + (cons __tmp47930 __tmp47928)))) (declare (not safe)) - (cons __tmp48136 _g1112311128_))))) + (cons __tmp47927 _g1112311128_))))) (declare (not safe)) - (foldr1 __tmp48135 '() _L11033_)))) + (foldr1 __tmp47926 '() _L11033_)))) (declare (not safe)) - (cons __tmp48140 __tmp48134))) - (__tmp48131 - (let ((__tmp48132 + (cons __tmp47931 __tmp47925))) + (__tmp47922 + (let ((__tmp47923 (let () (declare (not safe)) (cons _L11111_ '())))) (declare (not safe)) - (cons _L11084_ __tmp48132)))) + (cons _L11084_ __tmp47923)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48133 - __tmp48131)))) + (cons __tmp47924 + __tmp47922)))) (declare (not safe)) - (cons __tmp48141 __tmp48130)))) + (cons __tmp47932 __tmp47921)))) _g1109711108_)))) (_g1109511131_ (_recur10944_ _L11031_ _L11082_)))) @@ -4915,13 +4915,13 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1105211135_ _dispatch10949_)))) - (___kont4330343304_ + (___kont4311943120_ (lambda () _default10915_))) - (let ((___match4331943320_ + (let ((___match4313543136_ (lambda (_e1095810991_ _hd1095710995_ _tl1095610998_ - ___splice4330143302_ + ___splice4311743118_ _target1095911001_ _tl1096111004_) (letrec ((_loop1096211007_ @@ -4945,17 +4945,17 @@ (cons _lp-hd1096411021_ _datum1096611014_))))) (let ((_datum1096711027_ (reverse _datum1096611014_))) - (___kont4329943300_ + (___kont4311543116_ _tl1095610998_ _datum1096711027_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop1096211007_ _target1095911001_ '()))))) - (if (gx#stx-pair? ___stx4329643297_) + (if (gx#stx-pair? ___stx4311243113_) (let ((_e1095810991_ (gx#syntax-e - ___stx4329643297_))) + ___stx4311243113_))) (let ((_tl1095610998_ (let () (declare (not safe)) @@ -4966,7 +4966,7 @@ (##car _e1095810991_)))) (if (gx#stx-pair/null? _hd1095710995_) - (let ((___splice4330143302_ + (let ((___splice4311743118_ (gx#syntax-split-splice _hd1095710995_ '0))) @@ -4974,23 +4974,23 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4330143302_ '1))) + (##vector-ref ___splice4311743118_ '1))) (_target1095911001_ (let () (declare (not safe)) - (##vector-ref ___splice4330143302_ '0)))) + (##vector-ref ___splice4311743118_ '0)))) (if (gx#stx-null? _tl1096111004_) - (___match4331943320_ + (___match4313543136_ _e1095810991_ _hd1095710995_ _tl1095610998_ - ___splice4330143302_ + ___splice4311743118_ _target1095911001_ _tl1096111004_) - (___kont4330343304_)))) - (___kont4330343304_)))) + (___kont4311943120_)))) + (___kont4311943120_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4330343304_)))))))) + (___kont4311943120_)))))))) _g1091810929_)))) (_g1091611143_ _e10911_)))) (_datum-dispatch-index8747_ @@ -4998,31 +4998,31 @@ (let _lp10786_ ((_rest10789_ _datums10783_) (_ix10791_ '0) (_r10792_ '())) - (let* ((___stx4332243323_ _rest10789_) + (let* ((___stx4313843139_ _rest10789_) (_g1079510816_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4332243323_)))) - (let ((___kont4332543326_ + ___stx4313843139_)))) + (let ((___kont4314143142_ (lambda (_L10874_ _L10876_) (_lp10786_ _L10874_ (let () (declare (not safe)) (fx+ _ix10791_ '1)) - (let ((__tmp48144 + (let ((__tmp47935 (lambda (_x10895_ _r10897_) - (let ((__tmp48145 + (let ((__tmp47936 (let () (declare (not safe)) (cons _x10895_ _ix10791_)))) (declare (not safe)) - (cons __tmp48145 _r10897_)))) - (__tmp48142 - (let ((__tmp48143 + (cons __tmp47936 _r10897_)))) + (__tmp47933 + (let ((__tmp47934 (lambda (_g1089810901_ _g1089910904_) (let () @@ -5030,15 +5030,15 @@ (cons _g1089810901_ _g1089910904_))))) (declare (not safe)) - (foldr1 __tmp48143 '() _L10876_)))) + (foldr1 __tmp47934 '() _L10876_)))) (declare (not safe)) - (foldl1 __tmp48144 _r10792_ __tmp48142))))) - (___kont4332943330_ (lambda () _r10792_))) - (let ((___match4334543346_ + (foldl1 __tmp47935 _r10792_ __tmp47933))))) + (___kont4314543146_ (lambda () _r10792_))) + (let ((___match4316143162_ (lambda (_e1080110834_ _hd1080010838_ _tl1079910841_ - ___splice4332743328_ + ___splice4314343144_ _target1080210844_ _tl1080410847_) (letrec ((_loop1080510850_ @@ -5067,15 +5067,15 @@ _datum1080910857_))))) (let ((_datum1081010870_ (reverse _datum1080910857_))) - (___kont4332543326_ + (___kont4314143142_ _tl1079910841_ _datum1081010870_)))))) (_loop1080510850_ _target1080210844_ '()))))) - (if (gx#stx-pair? ___stx4332243323_) + (if (gx#stx-pair? ___stx4313843139_) (let ((_e1080110834_ - (gx#syntax-e ___stx4332243323_))) + (gx#syntax-e ___stx4313843139_))) (let ((_tl1079910841_ (let () (declare (not safe)) @@ -5085,7 +5085,7 @@ (declare (not safe)) (##car _e1080110834_)))) (if (gx#stx-pair/null? _hd1080010838_) - (let ((___splice4332743328_ + (let ((___splice4314343144_ (gx#syntax-split-splice _hd1080010838_ '0))) @@ -5093,25 +5093,25 @@ (let () (declare (not safe)) (##vector-ref - ___splice4332743328_ + ___splice4314343144_ '1))) (_target1080210844_ (let () (declare (not safe)) (##vector-ref - ___splice4332743328_ + ___splice4314343144_ '0)))) (if (gx#stx-null? _tl1080410847_) - (___match4334543346_ + (___match4316143162_ _e1080110834_ _hd1080010838_ _tl1079910841_ - ___splice4332743328_ + ___splice4314343144_ _target1080210844_ _tl1080410847_) - (___kont4332943330_)))) - (___kont4332943330_)))) - (___kont4332943330_)))))))) + (___kont4314543146_)))) + (___kont4314543146_)))) + (___kont4314543146_)))))))) (_duplicate-indexes?8748_ (lambda (_xs10764_) (let ((_ht10767_ @@ -5287,210 +5287,210 @@ _L10487_ _L10488_) (let () - (let ((__tmp48304 (gx#datum->syntax '#f 'let)) - (__tmp48240 - (let ((__tmp48291 - (let ((__tmp48298 - (let ((__tmp48299 - (let ((__tmp48300 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48303 (gx#datum->syntax '#f 'lambda)) - (__tmp48301 - (let ((__tmp48302 + (let ((__tmp48095 (gx#datum->syntax '#f 'let)) + (__tmp48031 + (let ((__tmp48082 + (let ((__tmp48089 + (let ((__tmp48090 + (let ((__tmp48091 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48094 (gx#datum->syntax '#f 'lambda)) + (__tmp48092 + (let ((__tmp48093 (let () (declare (not safe)) (cons _L10484_ '())))) (declare (not safe)) - (cons '() __tmp48302)))) + (cons '() __tmp48093)))) (declare (not safe)) - (cons __tmp48303 __tmp48301)))) + (cons __tmp48094 __tmp48092)))) (declare (not safe)) - (cons __tmp48300 '())))) + (cons __tmp48091 '())))) (declare (not safe)) - (cons _L10487_ __tmp48299))) + (cons _L10487_ __tmp48090))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48292 - (let ((__tmp48293 - (let ((__tmp48294 + (__tmp48083 + (let ((__tmp48084 + (let ((__tmp48085 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48295 - (let ((__tmp48297 + (let ((__tmp48086 + (let ((__tmp48088 (gx#datum->syntax '#f 'quote)) - (__tmp48296 + (__tmp48087 (let () (declare (not safe)) (cons _L10483_ '())))) (declare (not safe)) - (cons __tmp48297 __tmp48296)))) + (cons __tmp48088 __tmp48087)))) (declare (not safe)) - (cons __tmp48295 '())))) + (cons __tmp48086 '())))) (declare (not safe)) - (cons _L10486_ __tmp48294)))) + (cons _L10486_ __tmp48085)))) (declare (not safe)) - (cons __tmp48293 '())))) + (cons __tmp48084 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48298 __tmp48292))) - (__tmp48241 - (let ((__tmp48242 - (let ((__tmp48290 + (cons __tmp48089 __tmp48083))) + (__tmp48032 + (let ((__tmp48033 + (let ((__tmp48081 (gx#datum->syntax '#f 'if)) - (__tmp48243 - (let ((__tmp48287 + (__tmp48034 + (let ((__tmp48078 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48289 (gx#datum->syntax '#f 'symbol?)) - (__tmp48288 + (let ((__tmp48080 (gx#datum->syntax '#f 'symbol?)) + (__tmp48079 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp48289 __tmp48288))) - (__tmp48244 - (let ((__tmp48247 - (let ((__tmp48286 + (cons __tmp48080 __tmp48079))) + (__tmp48035 + (let ((__tmp48038 + (let ((__tmp48077 (gx#datum->syntax '#f 'let*)) - (__tmp48248 - (let ((__tmp48261 - (let ((__tmp48280 - (let ((__tmp48285 + (__tmp48039 + (let ((__tmp48052 + (let ((__tmp48071 + (let ((__tmp48076 (gx#datum->syntax '#f 'h)) - (__tmp48281 - (let ((__tmp48282 + (__tmp48072 + (let ((__tmp48073 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48284 + (let ((__tmp48075 (gx#datum->syntax '#f '##symbol-hash)) - (__tmp48283 + (__tmp48074 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp48284 __tmp48283)))) + (cons __tmp48075 __tmp48074)))) (declare (not safe)) - (cons __tmp48282 '())))) + (cons __tmp48073 '())))) (declare (not safe)) - (cons __tmp48285 __tmp48281))) - (__tmp48262 - (let ((__tmp48272 - (let ((__tmp48279 (gx#datum->syntax '#f 'ix)) - (__tmp48273 - (let ((__tmp48274 - (let ((__tmp48278 + (cons __tmp48076 __tmp48072))) + (__tmp48053 + (let ((__tmp48063 + (let ((__tmp48070 (gx#datum->syntax '#f 'ix)) + (__tmp48064 + (let ((__tmp48065 + (let ((__tmp48069 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48275 - (let ((__tmp48277 + (__tmp48066 + (let ((__tmp48068 (gx#datum->syntax '#f 'h)) - (__tmp48276 + (__tmp48067 (let () (declare (not safe)) (cons _L10481_ '())))) (declare (not safe)) - (cons __tmp48277 __tmp48276)))) + (cons __tmp48068 __tmp48067)))) (declare (not safe)) - (cons __tmp48278 __tmp48275)))) + (cons __tmp48069 __tmp48066)))) (declare (not safe)) - (cons __tmp48274 '())))) + (cons __tmp48065 '())))) (declare (not safe)) - (cons __tmp48279 __tmp48273))) - (__tmp48263 - (let ((__tmp48264 - (let ((__tmp48271 (gx#datum->syntax '#f 'q)) - (__tmp48265 - (let ((__tmp48266 - (let ((__tmp48270 + (cons __tmp48070 __tmp48064))) + (__tmp48054 + (let ((__tmp48055 + (let ((__tmp48062 (gx#datum->syntax '#f 'q)) + (__tmp48056 + (let ((__tmp48057 + (let ((__tmp48061 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48267 - (let ((__tmp48268 - (let ((__tmp48269 + (__tmp48058 + (let ((__tmp48059 + (let ((__tmp48060 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48269 '())))) + (cons __tmp48060 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L10486_ - __tmp48268)))) + __tmp48059)))) (declare (not safe)) - (cons __tmp48270 __tmp48267)))) + (cons __tmp48061 __tmp48058)))) (declare (not safe)) - (cons __tmp48266 '())))) + (cons __tmp48057 '())))) (declare (not safe)) - (cons __tmp48271 __tmp48265)))) + (cons __tmp48062 __tmp48056)))) (declare (not safe)) - (cons __tmp48264 '())))) + (cons __tmp48055 '())))) (declare (not safe)) - (cons __tmp48272 __tmp48263)))) + (cons __tmp48063 __tmp48054)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48280 - __tmp48262))) - (__tmp48249 - (let ((__tmp48250 - (let ((__tmp48260 + (cons __tmp48071 + __tmp48053))) + (__tmp48040 + (let ((__tmp48041 + (let ((__tmp48051 (gx#datum->syntax '#f 'if)) - (__tmp48251 - (let ((__tmp48255 + (__tmp48042 + (let ((__tmp48046 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48259 (gx#datum->syntax '#f 'eq?)) - (__tmp48256 - (let ((__tmp48258 + (let ((__tmp48050 (gx#datum->syntax '#f 'eq?)) + (__tmp48047 + (let ((__tmp48049 (gx#datum->syntax '#f 'q)) - (__tmp48257 + (__tmp48048 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp48258 __tmp48257)))) + (cons __tmp48049 __tmp48048)))) (declare (not safe)) - (cons __tmp48259 __tmp48256))) - (__tmp48252 - (let ((__tmp48253 - (let ((__tmp48254 + (cons __tmp48050 __tmp48047))) + (__tmp48043 + (let ((__tmp48044 + (let ((__tmp48045 (let () (declare (not safe)) (cons _L10487_ '())))) (declare (not safe)) - (cons __tmp48254 '())))) + (cons __tmp48045 '())))) (declare (not safe)) - (cons _L10485_ __tmp48253)))) + (cons _L10485_ __tmp48044)))) (declare (not safe)) - (cons __tmp48255 __tmp48252)))) + (cons __tmp48046 __tmp48043)))) (declare (not safe)) - (cons __tmp48260 __tmp48251)))) + (cons __tmp48051 __tmp48042)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48250 '())))) + (cons __tmp48041 '())))) (declare (not safe)) - (cons __tmp48261 __tmp48249)))) + (cons __tmp48052 __tmp48040)))) (declare (not safe)) - (cons __tmp48286 __tmp48248))) - (__tmp48245 - (let ((__tmp48246 + (cons __tmp48077 __tmp48039))) + (__tmp48036 + (let ((__tmp48037 (let () (declare (not safe)) (cons _L10487_ '())))) (declare (not safe)) - (cons __tmp48246 '())))) + (cons __tmp48037 '())))) (declare (not safe)) - (cons __tmp48247 __tmp48245)))) + (cons __tmp48038 __tmp48036)))) (declare (not safe)) - (cons __tmp48287 __tmp48244)))) + (cons __tmp48078 __tmp48035)))) (declare (not safe)) - (cons __tmp48290 __tmp48243)))) + (cons __tmp48081 __tmp48034)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48242 '())))) + (cons __tmp48033 '())))) (declare (not safe)) - (cons __tmp48291 __tmp48241)))) + (cons __tmp48082 __tmp48032)))) (declare (not safe)) - (cons __tmp48304 __tmp48240)))) + (cons __tmp48095 __tmp48031)))) _hd1038710475_ _hd1038410465_ _hd1038110455_ @@ -5572,30 +5572,30 @@ (declare (not safe)) (##cdr _e1054910610_)))) (if (gx#stx-pair/null? _hd1054810614_) - (let ((_g48146_ + (let ((_g47937_ (gx#syntax-split-splice _hd1054810614_ '0))) (begin - (let ((_g48147_ + (let ((_g47938_ (let () (declare (not safe)) - (if (##values? _g48146_) - (##vector-length _g48146_) + (if (##values? _g47937_) + (##vector-length _g47937_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48147_ 2))) + (##fx= _g47938_ 2))) (error "Context expects 2 values" - _g48147_))) + _g47938_))) (let ((_target1055010620_ (let () (declare (not safe)) - (##vector-ref _g48146_ 0))) + (##vector-ref _g47937_ 0))) (_tl1055210623_ (let () (declare (not safe)) - (##vector-ref _g48146_ 1)))) + (##vector-ref _g47937_ 1)))) (if (gx#stx-null? _tl1055210623_) (letrec ((_loop1055310626_ (lambda (_hd1055110630_ @@ -5658,97 +5658,97 @@ _L10686_ _L10687_) (let () - (let ((__tmp48239 + (let ((__tmp48030 (gx#datum->syntax '#f 'let)) - (__tmp48148 - (let ((__tmp48226 + (__tmp47939 + (let ((__tmp48017 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48233 - (let ((__tmp48234 - (let ((__tmp48235 - (let ((__tmp48238 + (let ((__tmp48024 + (let ((__tmp48025 + (let ((__tmp48026 + (let ((__tmp48029 (gx#datum->syntax '#f 'lambda)) - (__tmp48236 - (let ((__tmp48237 + (__tmp48027 + (let ((__tmp48028 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L10683_ '())))) (declare (not safe)) - (cons '() __tmp48237)))) + (cons '() __tmp48028)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48238 - __tmp48236)))) + (cons __tmp48029 + __tmp48027)))) (declare (not safe)) - (cons __tmp48235 '())))) + (cons __tmp48026 '())))) (declare (not safe)) - (cons _L10686_ __tmp48234))) - (__tmp48227 - (let ((__tmp48228 - (let ((__tmp48229 - (let ((__tmp48230 - (let ((__tmp48232 + (cons _L10686_ __tmp48025))) + (__tmp48018 + (let ((__tmp48019 + (let ((__tmp48020 + (let ((__tmp48021 + (let ((__tmp48023 (gx#datum->syntax '#f 'quote)) - (__tmp48231 + (__tmp48022 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L10682_ '())))) (declare (not safe)) - (cons __tmp48232 __tmp48231)))) + (cons __tmp48023 __tmp48022)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48230 '())))) + (cons __tmp48021 '())))) (declare (not safe)) - (cons _L10685_ __tmp48229)))) + (cons _L10685_ __tmp48020)))) (declare (not safe)) - (cons __tmp48228 '())))) + (cons __tmp48019 '())))) (declare (not safe)) - (cons __tmp48233 __tmp48227))) - (__tmp48149 - (let ((__tmp48150 - (let ((__tmp48225 (gx#datum->syntax '#f 'if)) - (__tmp48151 - (let ((__tmp48222 - (let ((__tmp48224 + (cons __tmp48024 __tmp48018))) + (__tmp47940 + (let ((__tmp47941 + (let ((__tmp48016 (gx#datum->syntax '#f 'if)) + (__tmp47942 + (let ((__tmp48013 + (let ((__tmp48015 (gx#datum->syntax '#f 'symbol?)) - (__tmp48223 + (__tmp48014 (let () (declare (not safe)) (cons _L10687_ '())))) (declare (not safe)) - (cons __tmp48224 - __tmp48223))) - (__tmp48152 - (let ((__tmp48155 - (let ((__tmp48221 + (cons __tmp48015 + __tmp48014))) + (__tmp47943 + (let ((__tmp47946 + (let ((__tmp48012 (gx#datum->syntax '#f 'let*)) - (__tmp48156 - (let ((__tmp48196 + (__tmp47947 + (let ((__tmp47987 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48215 - (let ((__tmp48220 + (let ((__tmp48006 + (let ((__tmp48011 (gx#datum->syntax '#f 'h)) - (__tmp48216 - (let ((__tmp48217 - (let ((__tmp48219 + (__tmp48007 + (let ((__tmp48008 + (let ((__tmp48010 (gx#datum->syntax '#f '##symbol-hash)) - (__tmp48218 + (__tmp48009 (let () (declare (not safe)) (cons _L10687_ @@ -5756,214 +5756,214 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48219 - __tmp48218)))) + (cons __tmp48010 + __tmp48009)))) (declare (not safe)) - (cons __tmp48217 '())))) + (cons __tmp48008 '())))) (declare (not safe)) - (cons __tmp48220 __tmp48216))) - (__tmp48197 - (let ((__tmp48207 - (let ((__tmp48214 + (cons __tmp48011 __tmp48007))) + (__tmp47988 + (let ((__tmp47998 + (let ((__tmp48005 (gx#datum->syntax '#f 'ix)) - (__tmp48208 - (let ((__tmp48209 - (let ((__tmp48213 + (__tmp47999 + (let ((__tmp48000 + (let ((__tmp48004 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fxmodulo)) - (__tmp48210 - (let ((__tmp48212 (gx#datum->syntax '#f 'h)) - (__tmp48211 + (__tmp48001 + (let ((__tmp48003 (gx#datum->syntax '#f 'h)) + (__tmp48002 (let () (declare (not safe)) (cons _L10680_ '())))) (declare (not safe)) - (cons __tmp48212 __tmp48211)))) + (cons __tmp48003 __tmp48002)))) (declare (not safe)) - (cons __tmp48213 __tmp48210)))) + (cons __tmp48004 __tmp48001)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48209 '())))) + (cons __tmp48000 '())))) (declare (not safe)) - (cons __tmp48214 __tmp48208))) - (__tmp48198 - (let ((__tmp48199 - (let ((__tmp48206 + (cons __tmp48005 __tmp47999))) + (__tmp47989 + (let ((__tmp47990 + (let ((__tmp47997 (gx#datum->syntax '#f 'q)) - (__tmp48200 - (let ((__tmp48201 - (let ((__tmp48205 + (__tmp47991 + (let ((__tmp47992 + (let ((__tmp47996 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp48202 - (let ((__tmp48203 - (let ((__tmp48204 + (__tmp47993 + (let ((__tmp47994 + (let ((__tmp47995 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48204 '())))) + (cons __tmp47995 '())))) (declare (not safe)) - (cons _L10685_ __tmp48203)))) + (cons _L10685_ __tmp47994)))) (declare (not safe)) - (cons __tmp48205 __tmp48202)))) + (cons __tmp47996 __tmp47993)))) (declare (not safe)) - (cons __tmp48201 '())))) + (cons __tmp47992 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48206 - __tmp48200)))) + (cons __tmp47997 + __tmp47991)))) (declare (not safe)) - (cons __tmp48199 '())))) + (cons __tmp47990 '())))) (declare (not safe)) - (cons __tmp48207 __tmp48198)))) + (cons __tmp47998 __tmp47989)))) (declare (not safe)) - (cons __tmp48215 __tmp48197))) - (__tmp48157 - (let ((__tmp48158 - (let ((__tmp48195 + (cons __tmp48006 __tmp47988))) + (__tmp47948 + (let ((__tmp47949 + (let ((__tmp47986 (gx#datum->syntax '#f 'if)) - (__tmp48159 - (let ((__tmp48194 + (__tmp47950 + (let ((__tmp47985 (gx#datum->syntax '#f 'q)) - (__tmp48160 - (let ((__tmp48163 - (let ((__tmp48193 + (__tmp47951 + (let ((__tmp47954 + (let ((__tmp47984 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'if)) - (__tmp48164 - (let ((__tmp48185 - (let ((__tmp48192 (gx#datum->syntax '#f 'eq?)) - (__tmp48186 - (let ((__tmp48188 - (let ((__tmp48191 + (__tmp47955 + (let ((__tmp47976 + (let ((__tmp47983 (gx#datum->syntax '#f 'eq?)) + (__tmp47977 + (let ((__tmp47979 + (let ((__tmp47982 (gx#datum->syntax '#f '##car)) - (__tmp48189 - (let ((__tmp48190 + (__tmp47980 + (let ((__tmp47981 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48190 '())))) + (cons __tmp47981 '())))) (declare (not safe)) - (cons __tmp48191 __tmp48189))) - (__tmp48187 + (cons __tmp47982 __tmp47980))) + (__tmp47978 (let () (declare (not safe)) (cons _L10687_ '())))) (declare (not safe)) - (cons __tmp48188 __tmp48187)))) + (cons __tmp47979 __tmp47978)))) (declare (not safe)) - (cons __tmp48192 __tmp48186))) - (__tmp48165 - (let ((__tmp48168 - (let ((__tmp48184 + (cons __tmp47983 __tmp47977))) + (__tmp47956 + (let ((__tmp47959 + (let ((__tmp47975 (gx#datum->syntax '#f 'let)) - (__tmp48169 - (let ((__tmp48177 - (let ((__tmp48183 + (__tmp47960 + (let ((__tmp47968 + (let ((__tmp47974 (gx#datum->syntax '#f 'x)) - (__tmp48178 - (let ((__tmp48179 + (__tmp47969 + (let ((__tmp47970 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48182 (gx#datum->syntax '#f '##cdr)) - (__tmp48180 - (let ((__tmp48181 (gx#datum->syntax '#f 'q))) + (let ((__tmp47973 (gx#datum->syntax '#f '##cdr)) + (__tmp47971 + (let ((__tmp47972 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48181 '())))) + (cons __tmp47972 '())))) (declare (not safe)) - (cons __tmp48182 __tmp48180)))) + (cons __tmp47973 __tmp47971)))) (declare (not safe)) - (cons __tmp48179 '())))) + (cons __tmp47970 '())))) (declare (not safe)) - (cons __tmp48183 __tmp48178))) + (cons __tmp47974 __tmp47969))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48170 - (let ((__tmp48171 - (let ((__tmp48176 + (__tmp47961 + (let ((__tmp47962 + (let ((__tmp47967 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48172 - (let ((__tmp48175 (gx#datum->syntax '#f 'x)) - (__tmp48173 - (let ((__tmp48174 + (__tmp47963 + (let ((__tmp47966 (gx#datum->syntax '#f 'x)) + (__tmp47964 + (let ((__tmp47965 (lambda (_g1072010723_ _g1072110726_) (let () (declare (not safe)) (cons _g1072010723_ _g1072110726_))))) (declare (not safe)) - (foldr1 __tmp48174 '() _L10684_)))) + (foldr1 __tmp47965 '() _L10684_)))) (declare (not safe)) - (cons __tmp48175 __tmp48173)))) + (cons __tmp47966 __tmp47964)))) (declare (not safe)) - (cons __tmp48176 __tmp48172)))) + (cons __tmp47967 __tmp47963)))) (declare (not safe)) - (cons __tmp48171 '())))) + (cons __tmp47962 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48177 __tmp48170)))) + (cons __tmp47968 __tmp47961)))) (declare (not safe)) - (cons __tmp48184 __tmp48169))) - (__tmp48166 - (let ((__tmp48167 + (cons __tmp47975 __tmp47960))) + (__tmp47957 + (let ((__tmp47958 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp48167 '())))) + (cons __tmp47958 '())))) (declare (not safe)) - (cons __tmp48168 __tmp48166)))) + (cons __tmp47959 __tmp47957)))) (declare (not safe)) - (cons __tmp48185 __tmp48165)))) + (cons __tmp47976 __tmp47956)))) (declare (not safe)) - (cons __tmp48193 __tmp48164))) - (__tmp48161 - (let ((__tmp48162 + (cons __tmp47984 __tmp47955))) + (__tmp47952 + (let ((__tmp47953 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp48162 '())))) + (cons __tmp47953 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48163 - __tmp48161)))) + (cons __tmp47954 + __tmp47952)))) (declare (not safe)) - (cons __tmp48194 __tmp48160)))) + (cons __tmp47985 __tmp47951)))) (declare (not safe)) - (cons __tmp48195 __tmp48159)))) + (cons __tmp47986 __tmp47950)))) (declare (not safe)) - (cons __tmp48158 '())))) + (cons __tmp47949 '())))) (declare (not safe)) - (cons __tmp48196 __tmp48157)))) + (cons __tmp47987 __tmp47948)))) (declare (not safe)) - (cons __tmp48221 __tmp48156))) - (__tmp48153 - (let ((__tmp48154 + (cons __tmp48012 __tmp47947))) + (__tmp47944 + (let ((__tmp47945 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp48154 '())))) + (cons __tmp47945 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48155 - __tmp48153)))) + (cons __tmp47946 + __tmp47944)))) (declare (not safe)) - (cons __tmp48222 __tmp48152)))) + (cons __tmp48013 __tmp47943)))) (declare (not safe)) - (cons __tmp48225 __tmp48151)))) + (cons __tmp48016 __tmp47942)))) (declare (not safe)) - (cons __tmp48150 '())))) + (cons __tmp47941 '())))) (declare (not safe)) - (cons __tmp48226 __tmp48149)))) + (cons __tmp48017 __tmp47940)))) (declare (not safe)) - (cons __tmp48239 __tmp48148)))) + (cons __tmp48030 __tmp47939)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1056610674_ _hd1056310664_ @@ -5999,16 +5999,16 @@ (vector-length _tab10345_)))))))) (_max-char8751_ (lambda (_datums10325_) - (let ((__tmp48305 + (let ((__tmp48096 (lambda (_lst10328_ _r10330_) - (let ((__tmp48306 + (let ((__tmp48097 (lambda (_char10332_ _r10334_) (max (char->integer _char10332_) _r10334_)))) (declare (not safe)) - (foldl1 __tmp48306 _r10330_ _lst10328_))))) + (foldl1 __tmp48097 _r10330_ _lst10328_))))) (declare (not safe)) - (foldl1 __tmp48305 '0 _datums10325_)))) + (foldl1 __tmp48096 '0 _datums10325_)))) (_generate-char-dispatch-table8752_ (lambda (_indexes10304_) (let* ((_ixs10310_ @@ -6016,12 +6016,12 @@ (char->integer (car _x10307_))) _indexes10304_)) (_len10313_ - (let ((__tmp48307 + (let ((__tmp48098 (let () (declare (not safe)) (foldl1 max '0 _ixs10310_)))) (declare (not safe)) - (fx+ __tmp48307 '1))) + (fx+ __tmp48098 '1))) (_vec10316_ (make-vector _len10313_ '#f))) (for-each (lambda (_entry10321_ _x10323_) @@ -6169,167 +6169,167 @@ _L10028_ _L10029_) (let () - (let ((__tmp48428 (gx#datum->syntax '#f 'let)) - (__tmp48381 - (let ((__tmp48422 - (let ((__tmp48423 - (let ((__tmp48424 - (let ((__tmp48427 + (let ((__tmp48219 (gx#datum->syntax '#f 'let)) + (__tmp48172 + (let ((__tmp48213 + (let ((__tmp48214 + (let ((__tmp48215 + (let ((__tmp48218 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp48425 - (let ((__tmp48426 + (__tmp48216 + (let ((__tmp48217 (let () (declare (not safe)) (cons _L10026_ '())))) (declare (not safe)) - (cons '() __tmp48426)))) + (cons '() __tmp48217)))) (declare (not safe)) - (cons __tmp48427 __tmp48425)))) + (cons __tmp48218 __tmp48216)))) (declare (not safe)) - (cons __tmp48424 '())))) + (cons __tmp48215 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L10028_ __tmp48423))) - (__tmp48382 - (let ((__tmp48383 - (let ((__tmp48421 + (cons _L10028_ __tmp48214))) + (__tmp48173 + (let ((__tmp48174 + (let ((__tmp48212 (gx#datum->syntax '#f 'if)) - (__tmp48384 - (let ((__tmp48418 + (__tmp48175 + (let ((__tmp48209 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48420 (gx#datum->syntax '#f 'char?)) - (__tmp48419 + (let ((__tmp48211 (gx#datum->syntax '#f 'char?)) + (__tmp48210 (let () (declare (not safe)) (cons _L10029_ '())))) (declare (not safe)) - (cons __tmp48420 __tmp48419))) - (__tmp48385 - (let ((__tmp48388 - (let ((__tmp48417 (gx#datum->syntax '#f 'let)) - (__tmp48389 - (let ((__tmp48411 - (let ((__tmp48416 + (cons __tmp48211 __tmp48210))) + (__tmp48176 + (let ((__tmp48179 + (let ((__tmp48208 (gx#datum->syntax '#f 'let)) + (__tmp48180 + (let ((__tmp48202 + (let ((__tmp48207 (gx#datum->syntax '#f 'ix)) - (__tmp48412 - (let ((__tmp48413 - (let ((__tmp48415 + (__tmp48203 + (let ((__tmp48204 + (let ((__tmp48206 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##char->integer)) - (__tmp48414 + (__tmp48205 (let () (declare (not safe)) (cons _L10029_ '())))) (declare (not safe)) - (cons __tmp48415 __tmp48414)))) + (cons __tmp48206 __tmp48205)))) (declare (not safe)) - (cons __tmp48413 '())))) + (cons __tmp48204 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48416 __tmp48412))) - (__tmp48390 - (let ((__tmp48391 - (let ((__tmp48410 + (cons __tmp48207 __tmp48203))) + (__tmp48181 + (let ((__tmp48182 + (let ((__tmp48201 (gx#datum->syntax '#f 'if)) - (__tmp48392 - (let ((__tmp48396 + (__tmp48183 + (let ((__tmp48187 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48409 (gx#datum->syntax '#f 'and)) - (__tmp48397 - (let ((__tmp48404 - (let ((__tmp48408 + (let ((__tmp48200 (gx#datum->syntax '#f 'and)) + (__tmp48188 + (let ((__tmp48195 + (let ((__tmp48199 (gx#datum->syntax '#f '##fx>=)) - (__tmp48405 - (let ((__tmp48407 + (__tmp48196 + (let ((__tmp48198 (gx#datum->syntax '#f 'ix)) - (__tmp48406 + (__tmp48197 (let () (declare (not safe)) (cons _L10025_ '())))) (declare (not safe)) - (cons __tmp48407 - __tmp48406)))) + (cons __tmp48198 + __tmp48197)))) (declare (not safe)) - (cons __tmp48408 __tmp48405))) - (__tmp48398 - (let ((__tmp48399 - (let ((__tmp48403 + (cons __tmp48199 __tmp48196))) + (__tmp48189 + (let ((__tmp48190 + (let ((__tmp48194 (gx#datum->syntax '#f '##fx<)) - (__tmp48400 - (let ((__tmp48402 + (__tmp48191 + (let ((__tmp48193 (gx#datum->syntax '#f 'ix)) - (__tmp48401 + (__tmp48192 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L10023_ '())))) (declare (not safe)) - (cons __tmp48402 __tmp48401)))) + (cons __tmp48193 __tmp48192)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48403 - __tmp48400)))) + (cons __tmp48194 + __tmp48191)))) (declare (not safe)) - (cons __tmp48399 '())))) + (cons __tmp48190 '())))) (declare (not safe)) - (cons __tmp48404 __tmp48398)))) + (cons __tmp48195 __tmp48189)))) (declare (not safe)) - (cons __tmp48409 __tmp48397))) - (__tmp48393 - (let ((__tmp48394 - (let ((__tmp48395 + (cons __tmp48200 __tmp48188))) + (__tmp48184 + (let ((__tmp48185 + (let ((__tmp48186 (let () (declare (not safe)) (cons _L10028_ '())))) (declare (not safe)) - (cons __tmp48395 '())))) + (cons __tmp48186 '())))) (declare (not safe)) - (cons _L10027_ __tmp48394)))) + (cons _L10027_ __tmp48185)))) (declare (not safe)) - (cons __tmp48396 __tmp48393)))) + (cons __tmp48187 __tmp48184)))) (declare (not safe)) - (cons __tmp48410 __tmp48392)))) + (cons __tmp48201 __tmp48183)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48391 '())))) + (cons __tmp48182 '())))) (declare (not safe)) - (cons __tmp48411 __tmp48390)))) + (cons __tmp48202 __tmp48181)))) (declare (not safe)) - (cons __tmp48417 __tmp48389))) - (__tmp48386 - (let ((__tmp48387 + (cons __tmp48208 __tmp48180))) + (__tmp48177 + (let ((__tmp48178 (let () (declare (not safe)) (cons _L10028_ '())))) (declare (not safe)) - (cons __tmp48387 '())))) + (cons __tmp48178 '())))) (declare (not safe)) - (cons __tmp48388 __tmp48386)))) + (cons __tmp48179 __tmp48177)))) (declare (not safe)) - (cons __tmp48418 __tmp48385)))) + (cons __tmp48209 __tmp48176)))) (declare (not safe)) - (cons __tmp48421 __tmp48384)))) + (cons __tmp48212 __tmp48175)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48383 '())))) + (cons __tmp48174 '())))) (declare (not safe)) - (cons __tmp48422 __tmp48382)))) + (cons __tmp48213 __tmp48173)))) (declare (not safe)) - (cons __tmp48428 __tmp48381)))) + (cons __tmp48219 __tmp48172)))) _hd993910017_ _hd993610007_ _hd99339997_ @@ -6408,30 +6408,30 @@ (declare (not safe)) (##cdr _e1008710148_)))) (if (gx#stx-pair/null? _hd1008610152_) - (let ((_g48308_ + (let ((_g48099_ (gx#syntax-split-splice _hd1008610152_ '0))) (begin - (let ((_g48309_ + (let ((_g48100_ (let () (declare (not safe)) - (if (##values? _g48308_) - (##vector-length _g48308_) + (if (##values? _g48099_) + (##vector-length _g48099_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48309_ 2))) + (##fx= _g48100_ 2))) (error "Context expects 2 values" - _g48309_))) + _g48100_))) (let ((_target1008810158_ (let () (declare (not safe)) - (##vector-ref _g48308_ 0))) + (##vector-ref _g48099_ 0))) (_tl1009010161_ (let () (declare (not safe)) - (##vector-ref _g48308_ 1)))) + (##vector-ref _g48099_ 1)))) (if (gx#stx-null? _tl1009010161_) (letrec ((_loop1009110164_ (lambda (_hd1008910168_ @@ -6497,64 +6497,64 @@ _L10224_ _L10225_) (let () - (let ((__tmp48380 + (let ((__tmp48171 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let)) - (__tmp48310 - (let ((__tmp48367 - (let ((__tmp48374 - (let ((__tmp48375 - (let ((__tmp48376 - (let ((__tmp48379 + (__tmp48101 + (let ((__tmp48158 + (let ((__tmp48165 + (let ((__tmp48166 + (let ((__tmp48167 + (let ((__tmp48170 (gx#datum->syntax '#f 'lambda)) - (__tmp48377 - (let ((__tmp48378 + (__tmp48168 + (let ((__tmp48169 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L10221_ '())))) (declare (not safe)) - (cons '() __tmp48378)))) + (cons '() __tmp48169)))) (declare (not safe)) - (cons __tmp48379 __tmp48377)))) + (cons __tmp48170 __tmp48168)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48376 '())))) + (cons __tmp48167 '())))) (declare (not safe)) - (cons _L10224_ __tmp48375))) - (__tmp48368 - (let ((__tmp48369 - (let ((__tmp48370 - (let ((__tmp48371 - (let ((__tmp48373 + (cons _L10224_ __tmp48166))) + (__tmp48159 + (let ((__tmp48160 + (let ((__tmp48161 + (let ((__tmp48162 + (let ((__tmp48164 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp48372 + (__tmp48163 (let () (declare (not safe)) (cons _L10220_ '())))) (declare (not safe)) - (cons __tmp48373 __tmp48372)))) + (cons __tmp48164 __tmp48163)))) (declare (not safe)) - (cons __tmp48371 '())))) + (cons __tmp48162 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L10223_ __tmp48370)))) + (cons _L10223_ __tmp48161)))) (declare (not safe)) - (cons __tmp48369 '())))) + (cons __tmp48160 '())))) (declare (not safe)) - (cons __tmp48374 __tmp48368))) - (__tmp48311 - (let ((__tmp48312 - (let ((__tmp48366 + (cons __tmp48165 __tmp48159))) + (__tmp48102 + (let ((__tmp48103 + (let ((__tmp48157 (gx#datum->syntax '#f 'if)) - (__tmp48313 - (let ((__tmp48363 - (let ((__tmp48365 + (__tmp48104 + (let ((__tmp48154 + (let ((__tmp48156 (gx#datum->syntax '#f 'char?)) - (__tmp48364 + (__tmp48155 (let () (declare (not safe)) @@ -6562,103 +6562,103 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp48365 __tmp48364))) + (cons __tmp48156 __tmp48155))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48314 - (let ((__tmp48317 - (let ((__tmp48362 + (__tmp48105 + (let ((__tmp48108 + (let ((__tmp48153 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp48318 - (let ((__tmp48356 - (let ((__tmp48361 (gx#datum->syntax '#f 'ix)) - (__tmp48357 - (let ((__tmp48358 - (let ((__tmp48360 + (__tmp48109 + (let ((__tmp48147 + (let ((__tmp48152 (gx#datum->syntax '#f 'ix)) + (__tmp48148 + (let ((__tmp48149 + (let ((__tmp48151 (gx#datum->syntax '#f '##char->integer)) - (__tmp48359 + (__tmp48150 (let () (declare (not safe)) (cons _L10225_ '())))) (declare (not safe)) - (cons __tmp48360 - __tmp48359)))) + (cons __tmp48151 + __tmp48150)))) (declare (not safe)) - (cons __tmp48358 '())))) + (cons __tmp48149 '())))) (declare (not safe)) - (cons __tmp48361 __tmp48357))) - (__tmp48319 - (let ((__tmp48320 - (let ((__tmp48355 + (cons __tmp48152 __tmp48148))) + (__tmp48110 + (let ((__tmp48111 + (let ((__tmp48146 (gx#datum->syntax '#f 'if)) - (__tmp48321 - (let ((__tmp48350 - (let ((__tmp48354 + (__tmp48112 + (let ((__tmp48141 + (let ((__tmp48145 (gx#datum->syntax '#f '##fx<)) - (__tmp48351 - (let ((__tmp48353 + (__tmp48142 + (let ((__tmp48144 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix)) - (__tmp48352 + (__tmp48143 (let () (declare (not safe)) (cons _L10218_ '())))) (declare (not safe)) - (cons __tmp48353 __tmp48352)))) + (cons __tmp48144 __tmp48143)))) (declare (not safe)) - (cons __tmp48354 __tmp48351))) + (cons __tmp48145 __tmp48142))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48322 - (let ((__tmp48325 - (let ((__tmp48349 + (__tmp48113 + (let ((__tmp48116 + (let ((__tmp48140 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp48326 - (let ((__tmp48341 - (let ((__tmp48348 (gx#datum->syntax '#f 'x)) - (__tmp48342 - (let ((__tmp48343 - (let ((__tmp48347 + (__tmp48117 + (let ((__tmp48132 + (let ((__tmp48139 (gx#datum->syntax '#f 'x)) + (__tmp48133 + (let ((__tmp48134 + (let ((__tmp48138 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48344 - (let ((__tmp48345 - (let ((__tmp48346 + (__tmp48135 + (let ((__tmp48136 + (let ((__tmp48137 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48346 '())))) + (cons __tmp48137 '())))) (declare (not safe)) - (cons _L10223_ __tmp48345)))) + (cons _L10223_ __tmp48136)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48347 - __tmp48344)))) + (cons __tmp48138 + __tmp48135)))) (declare (not safe)) - (cons __tmp48343 '())))) + (cons __tmp48134 '())))) (declare (not safe)) - (cons __tmp48348 __tmp48342))) - (__tmp48327 - (let ((__tmp48328 - (let ((__tmp48340 + (cons __tmp48139 __tmp48133))) + (__tmp48118 + (let ((__tmp48119 + (let ((__tmp48131 (gx#datum->syntax '#f 'if)) - (__tmp48329 - (let ((__tmp48339 + (__tmp48120 + (let ((__tmp48130 (gx#datum->syntax '#f 'x)) - (__tmp48330 - (let ((__tmp48333 - (let ((__tmp48338 + (__tmp48121 + (let ((__tmp48124 + (let ((__tmp48129 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48334 - (let ((__tmp48337 (gx#datum->syntax '#f 'x)) - (__tmp48335 - (let ((__tmp48336 + (__tmp48125 + (let ((__tmp48128 (gx#datum->syntax '#f 'x)) + (__tmp48126 + (let ((__tmp48127 (lambda (_g1025810261_ _g1025910264_) (let () @@ -6666,69 +6666,69 @@ (cons _g1025810261_ _g1025910264_))))) (declare (not safe)) - (foldr1 __tmp48336 '() _L10222_)))) + (foldr1 __tmp48127 '() _L10222_)))) (declare (not safe)) - (cons __tmp48337 __tmp48335)))) + (cons __tmp48128 __tmp48126)))) (declare (not safe)) - (cons __tmp48338 __tmp48334))) - (__tmp48331 - (let ((__tmp48332 + (cons __tmp48129 __tmp48125))) + (__tmp48122 + (let ((__tmp48123 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp48332 '())))) + (cons __tmp48123 '())))) (declare (not safe)) - (cons __tmp48333 __tmp48331)))) + (cons __tmp48124 __tmp48122)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48339 - __tmp48330)))) + (cons __tmp48130 + __tmp48121)))) (declare (not safe)) - (cons __tmp48340 __tmp48329)))) + (cons __tmp48131 __tmp48120)))) (declare (not safe)) - (cons __tmp48328 '())))) + (cons __tmp48119 '())))) (declare (not safe)) - (cons __tmp48341 __tmp48327)))) + (cons __tmp48132 __tmp48118)))) (declare (not safe)) - (cons __tmp48349 __tmp48326))) - (__tmp48323 - (let ((__tmp48324 + (cons __tmp48140 __tmp48117))) + (__tmp48114 + (let ((__tmp48115 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp48324 '())))) + (cons __tmp48115 '())))) (declare (not safe)) - (cons __tmp48325 __tmp48323)))) + (cons __tmp48116 __tmp48114)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48350 - __tmp48322)))) + (cons __tmp48141 + __tmp48113)))) (declare (not safe)) - (cons __tmp48355 __tmp48321)))) + (cons __tmp48146 __tmp48112)))) (declare (not safe)) - (cons __tmp48320 '())))) + (cons __tmp48111 '())))) (declare (not safe)) - (cons __tmp48356 __tmp48319)))) + (cons __tmp48147 __tmp48110)))) (declare (not safe)) - (cons __tmp48362 __tmp48318))) - (__tmp48315 - (let ((__tmp48316 + (cons __tmp48153 __tmp48109))) + (__tmp48106 + (let ((__tmp48107 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp48316 '())))) + (cons __tmp48107 '())))) (declare (not safe)) - (cons __tmp48317 __tmp48315)))) + (cons __tmp48108 __tmp48106)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48363 __tmp48314)))) + (cons __tmp48154 __tmp48105)))) (declare (not safe)) - (cons __tmp48366 __tmp48313)))) + (cons __tmp48157 __tmp48104)))) (declare (not safe)) - (cons __tmp48312 '())))) + (cons __tmp48103 '())))) (declare (not safe)) - (cons __tmp48367 __tmp48311)))) + (cons __tmp48158 __tmp48102)))) (declare (not safe)) - (cons __tmp48380 __tmp48310)))) + (cons __tmp48171 __tmp48101)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1010410212_ _hd1010110202_ @@ -6826,28 +6826,28 @@ (declare (not safe)) (##cdr _e97069767_)))) (if (gx#stx-pair/null? _hd97059771_) - (let ((_g48429_ + (let ((_g48220_ (gx#syntax-split-splice _hd97059771_ '0))) (begin - (let ((_g48430_ + (let ((_g48221_ (let () (declare (not safe)) - (if (##values? _g48429_) - (##vector-length _g48429_) + (if (##values? _g48220_) + (##vector-length _g48220_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48430_ 2))) + (##fx= _g48221_ 2))) (error "Context expects 2 values" - _g48430_))) + _g48221_))) (let ((_target97079777_ (let () (declare (not safe)) - (##vector-ref _g48429_ 0))) + (##vector-ref _g48220_ 0))) (_tl97099780_ (let () (declare (not safe)) - (##vector-ref _g48429_ 1)))) + (##vector-ref _g48220_ 1)))) (if (gx#stx-null? _tl97099780_) (letrec ((_loop97109783_ (lambda (_hd97089787_ @@ -6908,22 +6908,22 @@ _L9843_ _L9844_) (let () - (let ((__tmp48522 + (let ((__tmp48313 (gx#datum->syntax '#f 'let)) - (__tmp48431 - (let ((__tmp48509 - (let ((__tmp48516 + (__tmp48222 + (let ((__tmp48300 + (let ((__tmp48307 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48517 - (let ((__tmp48518 - (let ((__tmp48521 + (let ((__tmp48308 + (let ((__tmp48309 + (let ((__tmp48312 (gx#datum->syntax '#f 'lambda)) - (__tmp48519 - (let ((__tmp48520 + (__tmp48310 + (let ((__tmp48311 (let () (declare (not safe)) @@ -6932,22 +6932,22 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp48520)))) + (cons '() __tmp48311)))) (declare (not safe)) - (cons __tmp48521 __tmp48519)))) + (cons __tmp48312 __tmp48310)))) (declare (not safe)) - (cons __tmp48518 '())))) + (cons __tmp48309 '())))) (declare (not safe)) - (cons _L9843_ __tmp48517))) - (__tmp48510 - (let ((__tmp48511 - (let ((__tmp48512 - (let ((__tmp48513 - (let ((__tmp48515 + (cons _L9843_ __tmp48308))) + (__tmp48301 + (let ((__tmp48302 + (let ((__tmp48303 + (let ((__tmp48304 + (let ((__tmp48306 (gx#datum->syntax '#f 'quote)) - (__tmp48514 + (__tmp48305 (let () (declare (not safe)) @@ -6956,222 +6956,222 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48515 - __tmp48514)))) + (cons __tmp48306 + __tmp48305)))) (declare (not safe)) - (cons __tmp48513 '())))) + (cons __tmp48304 '())))) (declare (not safe)) - (cons _L9842_ __tmp48512)))) + (cons _L9842_ __tmp48303)))) (declare (not safe)) - (cons __tmp48511 '())))) + (cons __tmp48302 '())))) (declare (not safe)) - (cons __tmp48516 __tmp48510))) - (__tmp48432 - (let ((__tmp48433 - (let ((__tmp48508 (gx#datum->syntax '#f 'if)) - (__tmp48434 - (let ((__tmp48505 - (let ((__tmp48507 + (cons __tmp48307 __tmp48301))) + (__tmp48223 + (let ((__tmp48224 + (let ((__tmp48299 (gx#datum->syntax '#f 'if)) + (__tmp48225 + (let ((__tmp48296 + (let ((__tmp48298 (gx#datum->syntax '#f 'char?)) - (__tmp48506 + (__tmp48297 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp48507 __tmp48506))) - (__tmp48435 - (let ((__tmp48438 - (let ((__tmp48504 + (cons __tmp48298 __tmp48297))) + (__tmp48226 + (let ((__tmp48229 + (let ((__tmp48295 (gx#datum->syntax '#f 'let*)) - (__tmp48439 - (let ((__tmp48479 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48498 - (let ((__tmp48503 (gx#datum->syntax '#f 'h)) - (__tmp48499 - (let ((__tmp48500 - (let ((__tmp48502 + (__tmp48230 + (let ((__tmp48270 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48289 + (let ((__tmp48294 (gx#datum->syntax '#f 'h)) + (__tmp48290 + (let ((__tmp48291 + (let ((__tmp48293 (gx#datum->syntax '#f '##char->integer)) - (__tmp48501 + (__tmp48292 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp48502 __tmp48501)))) + (cons __tmp48293 __tmp48292)))) (declare (not safe)) - (cons __tmp48500 '())))) + (cons __tmp48291 '())))) (declare (not safe)) - (cons __tmp48503 __tmp48499))) - (__tmp48480 - (let ((__tmp48490 - (let ((__tmp48497 + (cons __tmp48294 __tmp48290))) + (__tmp48271 + (let ((__tmp48281 + (let ((__tmp48288 (gx#datum->syntax '#f 'ix)) - (__tmp48491 - (let ((__tmp48492 - (let ((__tmp48496 + (__tmp48282 + (let ((__tmp48283 + (let ((__tmp48287 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48493 - (let ((__tmp48495 + (__tmp48284 + (let ((__tmp48286 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp48494 + (__tmp48285 (let () (declare (not safe)) (cons _L9837_ '())))) (declare (not safe)) - (cons __tmp48495 __tmp48494)))) + (cons __tmp48286 __tmp48285)))) (declare (not safe)) - (cons __tmp48496 __tmp48493)))) + (cons __tmp48287 __tmp48284)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48492 '())))) + (cons __tmp48283 '())))) (declare (not safe)) - (cons __tmp48497 __tmp48491))) - (__tmp48481 - (let ((__tmp48482 - (let ((__tmp48489 + (cons __tmp48288 __tmp48282))) + (__tmp48272 + (let ((__tmp48273 + (let ((__tmp48280 (gx#datum->syntax '#f 'q)) - (__tmp48483 - (let ((__tmp48484 - (let ((__tmp48488 + (__tmp48274 + (let ((__tmp48275 + (let ((__tmp48279 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp48485 - (let ((__tmp48486 - (let ((__tmp48487 + (__tmp48276 + (let ((__tmp48277 + (let ((__tmp48278 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48487 '())))) + (cons __tmp48278 '())))) (declare (not safe)) - (cons _L9842_ __tmp48486)))) + (cons _L9842_ __tmp48277)))) (declare (not safe)) - (cons __tmp48488 __tmp48485)))) + (cons __tmp48279 __tmp48276)))) (declare (not safe)) - (cons __tmp48484 '())))) + (cons __tmp48275 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48489 __tmp48483)))) + (cons __tmp48280 __tmp48274)))) (declare (not safe)) - (cons __tmp48482 '())))) + (cons __tmp48273 '())))) (declare (not safe)) - (cons __tmp48490 __tmp48481)))) + (cons __tmp48281 __tmp48272)))) (declare (not safe)) - (cons __tmp48498 __tmp48480))) - (__tmp48440 - (let ((__tmp48441 - (let ((__tmp48478 (gx#datum->syntax '#f 'if)) - (__tmp48442 - (let ((__tmp48477 + (cons __tmp48289 __tmp48271))) + (__tmp48231 + (let ((__tmp48232 + (let ((__tmp48269 (gx#datum->syntax '#f 'if)) + (__tmp48233 + (let ((__tmp48268 (gx#datum->syntax '#f 'q)) - (__tmp48443 - (let ((__tmp48446 - (let ((__tmp48476 + (__tmp48234 + (let ((__tmp48237 + (let ((__tmp48267 (gx#datum->syntax '#f 'if)) - (__tmp48447 - (let ((__tmp48468 + (__tmp48238 + (let ((__tmp48259 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48475 (gx#datum->syntax '#f 'eq?)) - (__tmp48469 - (let ((__tmp48471 - (let ((__tmp48474 + (let ((__tmp48266 (gx#datum->syntax '#f 'eq?)) + (__tmp48260 + (let ((__tmp48262 + (let ((__tmp48265 (gx#datum->syntax '#f '##car)) - (__tmp48472 - (let ((__tmp48473 + (__tmp48263 + (let ((__tmp48264 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48473 '())))) + (cons __tmp48264 '())))) (declare (not safe)) - (cons __tmp48474 __tmp48472))) - (__tmp48470 + (cons __tmp48265 __tmp48263))) + (__tmp48261 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp48471 __tmp48470)))) + (cons __tmp48262 __tmp48261)))) (declare (not safe)) - (cons __tmp48475 __tmp48469))) - (__tmp48448 - (let ((__tmp48451 - (let ((__tmp48467 + (cons __tmp48266 __tmp48260))) + (__tmp48239 + (let ((__tmp48242 + (let ((__tmp48258 (gx#datum->syntax '#f 'let)) - (__tmp48452 - (let ((__tmp48460 - (let ((__tmp48466 + (__tmp48243 + (let ((__tmp48251 + (let ((__tmp48257 (gx#datum->syntax '#f 'x)) - (__tmp48461 - (let ((__tmp48462 - (let ((__tmp48465 + (__tmp48252 + (let ((__tmp48253 + (let ((__tmp48256 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp48463 - (let ((__tmp48464 (gx#datum->syntax '#f 'q))) + (__tmp48254 + (let ((__tmp48255 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48464 '())))) + (cons __tmp48255 '())))) (declare (not safe)) - (cons __tmp48465 __tmp48463)))) + (cons __tmp48256 __tmp48254)))) (declare (not safe)) - (cons __tmp48462 '())))) + (cons __tmp48253 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48466 - __tmp48461))) - (__tmp48453 - (let ((__tmp48454 - (let ((__tmp48459 + (cons __tmp48257 + __tmp48252))) + (__tmp48244 + (let ((__tmp48245 + (let ((__tmp48250 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48455 - (let ((__tmp48458 + (__tmp48246 + (let ((__tmp48249 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp48456 - (let ((__tmp48457 + (__tmp48247 + (let ((__tmp48248 (lambda (_g98819884_ _g98829887_) (let () (declare (not safe)) (cons _g98819884_ _g98829887_))))) (declare (not safe)) - (foldr1 __tmp48457 '() _L9841_)))) + (foldr1 __tmp48248 '() _L9841_)))) (declare (not safe)) - (cons __tmp48458 __tmp48456)))) + (cons __tmp48249 __tmp48247)))) (declare (not safe)) - (cons __tmp48459 __tmp48455)))) + (cons __tmp48250 __tmp48246)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48454 '())))) + (cons __tmp48245 '())))) (declare (not safe)) - (cons __tmp48460 __tmp48453)))) + (cons __tmp48251 __tmp48244)))) (declare (not safe)) - (cons __tmp48467 __tmp48452))) - (__tmp48449 - (let ((__tmp48450 + (cons __tmp48258 __tmp48243))) + (__tmp48240 + (let ((__tmp48241 (let () (declare (not safe)) (cons _L9843_ '())))) (declare (not safe)) - (cons __tmp48450 '())))) + (cons __tmp48241 '())))) (declare (not safe)) - (cons __tmp48451 __tmp48449)))) + (cons __tmp48242 __tmp48240)))) (declare (not safe)) - (cons __tmp48468 __tmp48448)))) + (cons __tmp48259 __tmp48239)))) (declare (not safe)) - (cons __tmp48476 __tmp48447))) + (cons __tmp48267 __tmp48238))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48444 - (let ((__tmp48445 + (__tmp48235 + (let ((__tmp48236 (let () (declare (not safe)) @@ -7179,24 +7179,24 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp48445 '())))) + (cons __tmp48236 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48446 __tmp48444)))) + (cons __tmp48237 __tmp48235)))) (declare (not safe)) - (cons __tmp48477 __tmp48443)))) + (cons __tmp48268 __tmp48234)))) (declare (not safe)) - (cons __tmp48478 __tmp48442)))) + (cons __tmp48269 __tmp48233)))) (declare (not safe)) - (cons __tmp48441 '())))) + (cons __tmp48232 '())))) (declare (not safe)) - (cons __tmp48479 __tmp48440)))) + (cons __tmp48270 __tmp48231)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48504 - __tmp48439))) - (__tmp48436 - (let ((__tmp48437 + (cons __tmp48295 + __tmp48230))) + (__tmp48227 + (let ((__tmp48228 (let () (declare (not safe)) @@ -7205,21 +7205,21 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48437 '())))) + (cons __tmp48228 '())))) (declare (not safe)) - (cons __tmp48438 __tmp48436)))) + (cons __tmp48229 __tmp48227)))) (declare (not safe)) - (cons __tmp48505 __tmp48435)))) + (cons __tmp48296 __tmp48226)))) (declare (not safe)) - (cons __tmp48508 __tmp48434)))) + (cons __tmp48299 __tmp48225)))) (declare (not safe)) - (cons __tmp48433 '())))) + (cons __tmp48224 '())))) (declare (not safe)) - (cons __tmp48509 __tmp48432)))) + (cons __tmp48300 __tmp48223)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48522 - __tmp48431)))) + (cons __tmp48313 + __tmp48222)))) _hd97239831_ _hd97209821_ _hd97179811_ @@ -7251,32 +7251,32 @@ (vector-length _tab9681_))))))) (_min-fixnum8757_ (lambda (_datums9665_) - (let ((__tmp48523 + (let ((__tmp48314 (lambda (_lst9668_ _r9670_) (let () (declare (not safe)) (foldl1 min _r9670_ _lst9668_))))) (declare (not safe)) - (foldl1 __tmp48523 ##max-fixnum _datums9665_)))) + (foldl1 __tmp48314 ##max-fixnum _datums9665_)))) (_max-fixnum8758_ (lambda (_datums9658_) - (let ((__tmp48524 + (let ((__tmp48315 (lambda (_lst9661_ _r9663_) (let () (declare (not safe)) (foldl1 max _r9663_ _lst9661_))))) (declare (not safe)) - (foldl1 __tmp48524 ##min-fixnum _datums9658_)))) + (foldl1 __tmp48315 ##min-fixnum _datums9658_)))) (_generate-fixnum-dispatch-table8759_ (lambda (_indexes9640_) (let* ((_ixs9643_ (map car _indexes9640_)) (_len9646_ - (let ((__tmp48525 + (let ((__tmp48316 (let () (declare (not safe)) (foldl1 max '0 _ixs9643_)))) (declare (not safe)) - (fx+ __tmp48525 '1))) + (fx+ __tmp48316 '1))) (_vec9649_ (make-vector _len9646_ '#f))) (for-each (lambda (_entry9654_ _x9656_) @@ -7294,9 +7294,9 @@ (_generate-fixnum-dispatch-table8759_ _indexes9380_)) (_dense?9386_ - (let ((__tmp48526 (vector->list _tab9383_))) + (let ((__tmp48317 (vector->list _tab9383_))) (declare (not safe)) - (andmap1 values __tmp48526)))) + (andmap1 values __tmp48317)))) (let* ((_g93919435_ (lambda (_g93929431_) (gx#raise-syntax-error @@ -7349,30 +7349,30 @@ (declare (not safe)) (##cdr _e94119472_)))) (if (gx#stx-pair/null? _hd94109476_) - (let ((_g48527_ + (let ((_g48318_ (gx#syntax-split-splice _hd94109476_ '0))) (begin - (let ((_g48528_ + (let ((_g48319_ (let () (declare (not safe)) - (if (##values? _g48527_) - (##vector-length _g48527_) + (if (##values? _g48318_) + (##vector-length _g48318_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48528_ 2))) + (##fx= _g48319_ 2))) (error "Context expects 2 values" - _g48528_))) + _g48319_))) (let ((_target94129482_ (let () (declare (not safe)) - (##vector-ref _g48527_ 0))) + (##vector-ref _g48318_ 0))) (_tl94149485_ (let () (declare (not safe)) - (##vector-ref _g48527_ 1)))) + (##vector-ref _g48318_ 1)))) (if (gx#stx-null? _tl94149485_) (letrec ((_loop94159488_ (lambda (_hd94139492_ @@ -7443,145 +7443,145 @@ ((lambda (_L9603_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp48582 (gx#datum->syntax '#f 'let)) - (__tmp48529 - (let ((__tmp48569 - (let ((__tmp48576 - (let ((__tmp48577 - (let ((__tmp48578 - (let ((__tmp48581 + (let ((__tmp48373 (gx#datum->syntax '#f 'let)) + (__tmp48320 + (let ((__tmp48360 + (let ((__tmp48367 + (let ((__tmp48368 + (let ((__tmp48369 + (let ((__tmp48372 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp48579 - (let ((__tmp48580 + (__tmp48370 + (let ((__tmp48371 (let () (declare (not safe)) (cons _L9545_ '())))) (declare (not safe)) - (cons '() __tmp48580)))) + (cons '() __tmp48371)))) (declare (not safe)) - (cons __tmp48581 __tmp48579)))) + (cons __tmp48372 __tmp48370)))) (declare (not safe)) - (cons __tmp48578 '())))) + (cons __tmp48369 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L9548_ __tmp48577))) - (__tmp48570 - (let ((__tmp48571 - (let ((__tmp48572 - (let ((__tmp48573 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48575 (gx#datum->syntax '#f 'quote)) - (__tmp48574 + (cons _L9548_ __tmp48368))) + (__tmp48361 + (let ((__tmp48362 + (let ((__tmp48363 + (let ((__tmp48364 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48366 (gx#datum->syntax '#f 'quote)) + (__tmp48365 (let () (declare (not safe)) (cons _L9544_ '())))) (declare (not safe)) - (cons __tmp48575 __tmp48574)))) + (cons __tmp48366 __tmp48365)))) (declare (not safe)) - (cons __tmp48573 '())))) + (cons __tmp48364 '())))) (declare (not safe)) - (cons _L9547_ __tmp48572)))) + (cons _L9547_ __tmp48363)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48571 '())))) + (cons __tmp48362 '())))) (declare (not safe)) - (cons __tmp48576 __tmp48570))) - (__tmp48530 - (let ((__tmp48531 - (let ((__tmp48568 + (cons __tmp48367 __tmp48361))) + (__tmp48321 + (let ((__tmp48322 + (let ((__tmp48359 (gx#datum->syntax '#f 'if)) - (__tmp48532 - (let ((__tmp48565 - (let ((__tmp48567 + (__tmp48323 + (let ((__tmp48356 + (let ((__tmp48358 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fixnum?)) - (__tmp48566 + (__tmp48357 (let () (declare (not safe)) (cons _L9549_ '())))) (declare (not safe)) - (cons __tmp48567 __tmp48566))) - (__tmp48533 - (let ((__tmp48536 - (let ((__tmp48564 (gx#datum->syntax '#f 'if)) - (__tmp48537 - (let ((__tmp48552 - (let ((__tmp48563 + (cons __tmp48358 __tmp48357))) + (__tmp48324 + (let ((__tmp48327 + (let ((__tmp48355 (gx#datum->syntax '#f 'if)) + (__tmp48328 + (let ((__tmp48343 + (let ((__tmp48354 (gx#datum->syntax '#f 'and)) - (__tmp48553 - (let ((__tmp48559 - (let ((__tmp48562 + (__tmp48344 + (let ((__tmp48350 + (let ((__tmp48353 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##fx>=)) - (__tmp48560 - (let ((__tmp48561 + (__tmp48351 + (let ((__tmp48352 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons _L9549_ __tmp48561)))) + (cons _L9549_ __tmp48352)))) (declare (not safe)) - (cons __tmp48562 __tmp48560))) - (__tmp48554 - (let ((__tmp48555 - (let ((__tmp48558 (gx#datum->syntax '#f '##fx<)) - (__tmp48556 - (let ((__tmp48557 + (cons __tmp48353 __tmp48351))) + (__tmp48345 + (let ((__tmp48346 + (let ((__tmp48349 (gx#datum->syntax '#f '##fx<)) + (__tmp48347 + (let ((__tmp48348 (let () (declare (not safe)) (cons _L9542_ '())))) (declare (not safe)) - (cons _L9549_ __tmp48557)))) + (cons _L9549_ __tmp48348)))) (declare (not safe)) - (cons __tmp48558 __tmp48556)))) + (cons __tmp48349 __tmp48347)))) (declare (not safe)) - (cons __tmp48555 '())))) + (cons __tmp48346 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48559 - __tmp48554)))) + (cons __tmp48350 + __tmp48345)))) (declare (not safe)) - (cons __tmp48563 __tmp48553))) - (__tmp48538 - (let ((__tmp48541 - (let ((__tmp48551 + (cons __tmp48354 __tmp48344))) + (__tmp48329 + (let ((__tmp48332 + (let ((__tmp48342 (gx#datum->syntax '#f 'let)) - (__tmp48542 - (let ((__tmp48544 + (__tmp48333 + (let ((__tmp48335 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48550 (gx#datum->syntax '#f 'x)) - (__tmp48545 - (let ((__tmp48546 - (let ((__tmp48549 + (let ((__tmp48341 (gx#datum->syntax '#f 'x)) + (__tmp48336 + (let ((__tmp48337 + (let ((__tmp48340 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48547 - (let ((__tmp48548 + (__tmp48338 + (let ((__tmp48339 (let () (declare (not safe)) (cons _L9549_ '())))) (declare (not safe)) - (cons _L9547_ __tmp48548)))) + (cons _L9547_ __tmp48339)))) (declare (not safe)) - (cons __tmp48549 __tmp48547)))) + (cons __tmp48340 __tmp48338)))) (declare (not safe)) - (cons __tmp48546 '())))) + (cons __tmp48337 '())))) (declare (not safe)) - (cons __tmp48550 __tmp48545))) - (__tmp48543 + (cons __tmp48341 __tmp48336))) + (__tmp48334 (let () (declare (not safe)) (cons _L9603_ '())))) (declare (not safe)) - (cons __tmp48544 __tmp48543)))) + (cons __tmp48335 __tmp48334)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48551 - __tmp48542))) - (__tmp48539 - (let ((__tmp48540 + (cons __tmp48342 + __tmp48333))) + (__tmp48330 + (let ((__tmp48331 (let () (declare (not safe)) @@ -7590,68 +7590,68 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48540 '())))) + (cons __tmp48331 '())))) (declare (not safe)) - (cons __tmp48541 __tmp48539)))) + (cons __tmp48332 __tmp48330)))) (declare (not safe)) - (cons __tmp48552 __tmp48538)))) + (cons __tmp48343 __tmp48329)))) (declare (not safe)) - (cons __tmp48564 __tmp48537))) - (__tmp48534 - (let ((__tmp48535 + (cons __tmp48355 __tmp48328))) + (__tmp48325 + (let ((__tmp48326 (let () (declare (not safe)) (cons _L9548_ '())))) (declare (not safe)) - (cons __tmp48535 '())))) + (cons __tmp48326 '())))) (declare (not safe)) - (cons __tmp48536 __tmp48534)))) + (cons __tmp48327 __tmp48325)))) (declare (not safe)) - (cons __tmp48565 __tmp48533)))) + (cons __tmp48356 __tmp48324)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48568 - __tmp48532)))) + (cons __tmp48359 + __tmp48323)))) (declare (not safe)) - (cons __tmp48531 '())))) + (cons __tmp48322 '())))) (declare (not safe)) - (cons __tmp48569 __tmp48530)))) + (cons __tmp48360 __tmp48321)))) (declare (not safe)) - (cons __tmp48582 __tmp48529)))) + (cons __tmp48373 __tmp48320)))) _g95899600_)))) (_g95879616_ (if _dense?9386_ - (let ((__tmp48599 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48595 - (let ((__tmp48598 (gx#datum->syntax '#f 'x)) - (__tmp48596 - (let ((__tmp48597 + (let ((__tmp48390 (gx#datum->syntax '#f '~case-dispatch)) + (__tmp48386 + (let ((__tmp48389 (gx#datum->syntax '#f 'x)) + (__tmp48387 + (let ((__tmp48388 (lambda (_g96199622_ _g96209625_) (let () (declare (not safe)) (cons _g96199622_ _g96209625_))))) (declare (not safe)) - (foldr1 __tmp48597 '() _L9546_)))) + (foldr1 __tmp48388 '() _L9546_)))) (declare (not safe)) - (cons __tmp48598 __tmp48596)))) + (cons __tmp48389 __tmp48387)))) (declare (not safe)) - (cons __tmp48599 __tmp48595)) - (let ((__tmp48594 (gx#datum->syntax '#f 'if)) - (__tmp48583 - (let ((__tmp48593 (gx#datum->syntax '#f 'x)) - (__tmp48584 - (let ((__tmp48587 - (let ((__tmp48592 + (cons __tmp48390 __tmp48386)) + (let ((__tmp48385 (gx#datum->syntax '#f 'if)) + (__tmp48374 + (let ((__tmp48384 (gx#datum->syntax '#f 'x)) + (__tmp48375 + (let ((__tmp48378 + (let ((__tmp48383 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48588 - (let ((__tmp48591 + (__tmp48379 + (let ((__tmp48382 (gx#datum->syntax '#f 'x)) - (__tmp48589 - (let ((__tmp48590 + (__tmp48380 + (let ((__tmp48381 (lambda (_g96279630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g96289633_) @@ -7659,26 +7659,26 @@ (declare (not safe)) (cons _g96279630_ _g96289633_))))) (declare (not safe)) - (foldr1 __tmp48590 '() _L9546_)))) + (foldr1 __tmp48381 '() _L9546_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48591 - __tmp48589)))) + (cons __tmp48382 + __tmp48380)))) (declare (not safe)) - (cons __tmp48592 __tmp48588))) - (__tmp48585 - (let ((__tmp48586 + (cons __tmp48383 __tmp48379))) + (__tmp48376 + (let ((__tmp48377 (let () (declare (not safe)) (cons _L9548_ '())))) (declare (not safe)) - (cons __tmp48586 '())))) + (cons __tmp48377 '())))) (declare (not safe)) - (cons __tmp48587 __tmp48585)))) + (cons __tmp48378 __tmp48376)))) (declare (not safe)) - (cons __tmp48593 __tmp48584)))) + (cons __tmp48384 __tmp48375)))) (declare (not safe)) - (cons __tmp48594 __tmp48583))))))) + (cons __tmp48385 __tmp48374))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd94289536_ _hd94259526_ @@ -7774,28 +7774,28 @@ (declare (not safe)) (##cdr _e91869247_)))) (if (gx#stx-pair/null? _hd91859251_) - (let ((_g48600_ + (let ((_g48391_ (gx#syntax-split-splice _hd91859251_ '0))) (begin - (let ((_g48601_ + (let ((_g48392_ (let () (declare (not safe)) - (if (##values? _g48600_) - (##vector-length _g48600_) + (if (##values? _g48391_) + (##vector-length _g48391_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48601_ 2))) + (##fx= _g48392_ 2))) (error "Context expects 2 values" - _g48601_))) + _g48392_))) (let ((_target91879257_ (let () (declare (not safe)) - (##vector-ref _g48600_ 0))) + (##vector-ref _g48391_ 0))) (_tl91899260_ (let () (declare (not safe)) - (##vector-ref _g48600_ 1)))) + (##vector-ref _g48391_ 1)))) (if (gx#stx-null? _tl91899260_) (letrec ((_loop91909263_ (lambda (_hd91889267_ @@ -7856,22 +7856,22 @@ _L9323_ _L9324_) (let () - (let ((__tmp48685 + (let ((__tmp48476 (gx#datum->syntax '#f 'let)) - (__tmp48602 - (let ((__tmp48672 - (let ((__tmp48679 + (__tmp48393 + (let ((__tmp48463 + (let ((__tmp48470 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48680 - (let ((__tmp48681 - (let ((__tmp48684 + (let ((__tmp48471 + (let ((__tmp48472 + (let ((__tmp48475 (gx#datum->syntax '#f 'lambda)) - (__tmp48682 - (let ((__tmp48683 + (__tmp48473 + (let ((__tmp48474 (let () (declare (not safe)) @@ -7880,22 +7880,22 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp48683)))) + (cons '() __tmp48474)))) (declare (not safe)) - (cons __tmp48684 __tmp48682)))) + (cons __tmp48475 __tmp48473)))) (declare (not safe)) - (cons __tmp48681 '())))) + (cons __tmp48472 '())))) (declare (not safe)) - (cons _L9323_ __tmp48680))) - (__tmp48673 - (let ((__tmp48674 - (let ((__tmp48675 - (let ((__tmp48676 - (let ((__tmp48678 + (cons _L9323_ __tmp48471))) + (__tmp48464 + (let ((__tmp48465 + (let ((__tmp48466 + (let ((__tmp48467 + (let ((__tmp48469 (gx#datum->syntax '#f 'quote)) - (__tmp48677 + (__tmp48468 (let () (declare (not safe)) @@ -7904,50 +7904,50 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48678 - __tmp48677)))) + (cons __tmp48469 + __tmp48468)))) (declare (not safe)) - (cons __tmp48676 '())))) + (cons __tmp48467 '())))) (declare (not safe)) - (cons _L9322_ __tmp48675)))) + (cons _L9322_ __tmp48466)))) (declare (not safe)) - (cons __tmp48674 '())))) + (cons __tmp48465 '())))) (declare (not safe)) - (cons __tmp48679 __tmp48673))) - (__tmp48603 - (let ((__tmp48604 - (let ((__tmp48671 (gx#datum->syntax '#f 'if)) - (__tmp48605 - (let ((__tmp48668 - (let ((__tmp48670 + (cons __tmp48470 __tmp48464))) + (__tmp48394 + (let ((__tmp48395 + (let ((__tmp48462 (gx#datum->syntax '#f 'if)) + (__tmp48396 + (let ((__tmp48459 + (let ((__tmp48461 (gx#datum->syntax '#f 'fixnum?)) - (__tmp48669 + (__tmp48460 (let () (declare (not safe)) (cons _L9324_ '())))) (declare (not safe)) - (cons __tmp48670 __tmp48669))) - (__tmp48606 - (let ((__tmp48609 - (let ((__tmp48667 + (cons __tmp48461 __tmp48460))) + (__tmp48397 + (let ((__tmp48400 + (let ((__tmp48458 (gx#datum->syntax '#f 'let*)) - (__tmp48610 - (let ((__tmp48650 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48660 - (let ((__tmp48666 (gx#datum->syntax '#f 'ix)) - (__tmp48661 - (let ((__tmp48662 - (let ((__tmp48665 + (__tmp48401 + (let ((__tmp48441 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48451 + (let ((__tmp48457 (gx#datum->syntax '#f 'ix)) + (__tmp48452 + (let ((__tmp48453 + (let ((__tmp48456 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48663 - (let ((__tmp48664 + (__tmp48454 + (let ((__tmp48455 (let () (declare (not safe)) @@ -7955,152 +7955,152 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L9324_ __tmp48664)))) + (cons _L9324_ __tmp48455)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48665 __tmp48663)))) + (cons __tmp48456 __tmp48454)))) (declare (not safe)) - (cons __tmp48662 '())))) + (cons __tmp48453 '())))) (declare (not safe)) - (cons __tmp48666 __tmp48661))) - (__tmp48651 - (let ((__tmp48652 - (let ((__tmp48659 + (cons __tmp48457 __tmp48452))) + (__tmp48442 + (let ((__tmp48443 + (let ((__tmp48450 (gx#datum->syntax '#f 'q)) - (__tmp48653 - (let ((__tmp48654 - (let ((__tmp48658 + (__tmp48444 + (let ((__tmp48445 + (let ((__tmp48449 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48655 - (let ((__tmp48656 + (__tmp48446 + (let ((__tmp48447 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48657 (gx#datum->syntax '#f 'ix))) + (let ((__tmp48448 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48657 '())))) + (cons __tmp48448 '())))) (declare (not safe)) - (cons _L9322_ __tmp48656)))) + (cons _L9322_ __tmp48447)))) (declare (not safe)) - (cons __tmp48658 __tmp48655)))) + (cons __tmp48449 __tmp48446)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48654 '())))) + (cons __tmp48445 '())))) (declare (not safe)) - (cons __tmp48659 __tmp48653)))) + (cons __tmp48450 __tmp48444)))) (declare (not safe)) - (cons __tmp48652 '())))) + (cons __tmp48443 '())))) (declare (not safe)) - (cons __tmp48660 __tmp48651))) - (__tmp48611 - (let ((__tmp48612 - (let ((__tmp48649 (gx#datum->syntax '#f 'if)) - (__tmp48613 - (let ((__tmp48648 + (cons __tmp48451 __tmp48442))) + (__tmp48402 + (let ((__tmp48403 + (let ((__tmp48440 (gx#datum->syntax '#f 'if)) + (__tmp48404 + (let ((__tmp48439 (gx#datum->syntax '#f 'q)) - (__tmp48614 - (let ((__tmp48617 - (let ((__tmp48647 + (__tmp48405 + (let ((__tmp48408 + (let ((__tmp48438 (gx#datum->syntax '#f 'if)) - (__tmp48618 - (let ((__tmp48639 + (__tmp48409 + (let ((__tmp48430 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48646 (gx#datum->syntax '#f 'eq?)) - (__tmp48640 - (let ((__tmp48642 - (let ((__tmp48645 + (let ((__tmp48437 (gx#datum->syntax '#f 'eq?)) + (__tmp48431 + (let ((__tmp48433 + (let ((__tmp48436 (gx#datum->syntax '#f '##car)) - (__tmp48643 - (let ((__tmp48644 + (__tmp48434 + (let ((__tmp48435 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48644 '())))) + (cons __tmp48435 '())))) (declare (not safe)) - (cons __tmp48645 __tmp48643))) - (__tmp48641 + (cons __tmp48436 __tmp48434))) + (__tmp48432 (let () (declare (not safe)) (cons _L9324_ '())))) (declare (not safe)) - (cons __tmp48642 __tmp48641)))) + (cons __tmp48433 __tmp48432)))) (declare (not safe)) - (cons __tmp48646 __tmp48640))) - (__tmp48619 - (let ((__tmp48622 - (let ((__tmp48638 + (cons __tmp48437 __tmp48431))) + (__tmp48410 + (let ((__tmp48413 + (let ((__tmp48429 (gx#datum->syntax '#f 'let)) - (__tmp48623 - (let ((__tmp48631 - (let ((__tmp48637 + (__tmp48414 + (let ((__tmp48422 + (let ((__tmp48428 (gx#datum->syntax '#f 'x)) - (__tmp48632 - (let ((__tmp48633 - (let ((__tmp48636 + (__tmp48423 + (let ((__tmp48424 + (let ((__tmp48427 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp48634 - (let ((__tmp48635 (gx#datum->syntax '#f 'q))) + (__tmp48425 + (let ((__tmp48426 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48635 '())))) + (cons __tmp48426 '())))) (declare (not safe)) - (cons __tmp48636 __tmp48634)))) + (cons __tmp48427 __tmp48425)))) (declare (not safe)) - (cons __tmp48633 '())))) + (cons __tmp48424 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48637 - __tmp48632))) - (__tmp48624 - (let ((__tmp48625 - (let ((__tmp48630 + (cons __tmp48428 + __tmp48423))) + (__tmp48415 + (let ((__tmp48416 + (let ((__tmp48421 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48626 - (let ((__tmp48629 + (__tmp48417 + (let ((__tmp48420 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp48627 - (let ((__tmp48628 + (__tmp48418 + (let ((__tmp48419 (lambda (_g93619364_ _g93629367_) (let () (declare (not safe)) (cons _g93619364_ _g93629367_))))) (declare (not safe)) - (foldr1 __tmp48628 '() _L9321_)))) + (foldr1 __tmp48419 '() _L9321_)))) (declare (not safe)) - (cons __tmp48629 __tmp48627)))) + (cons __tmp48420 __tmp48418)))) (declare (not safe)) - (cons __tmp48630 __tmp48626)))) + (cons __tmp48421 __tmp48417)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48625 '())))) + (cons __tmp48416 '())))) (declare (not safe)) - (cons __tmp48631 __tmp48624)))) + (cons __tmp48422 __tmp48415)))) (declare (not safe)) - (cons __tmp48638 __tmp48623))) - (__tmp48620 - (let ((__tmp48621 + (cons __tmp48429 __tmp48414))) + (__tmp48411 + (let ((__tmp48412 (let () (declare (not safe)) (cons _L9323_ '())))) (declare (not safe)) - (cons __tmp48621 '())))) + (cons __tmp48412 '())))) (declare (not safe)) - (cons __tmp48622 __tmp48620)))) + (cons __tmp48413 __tmp48411)))) (declare (not safe)) - (cons __tmp48639 __tmp48619)))) + (cons __tmp48430 __tmp48410)))) (declare (not safe)) - (cons __tmp48647 __tmp48618))) + (cons __tmp48438 __tmp48409))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48615 - (let ((__tmp48616 + (__tmp48406 + (let ((__tmp48407 (let () (declare (not safe)) @@ -8108,24 +8108,24 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp48616 '())))) + (cons __tmp48407 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48617 __tmp48615)))) + (cons __tmp48408 __tmp48406)))) (declare (not safe)) - (cons __tmp48648 __tmp48614)))) + (cons __tmp48439 __tmp48405)))) (declare (not safe)) - (cons __tmp48649 __tmp48613)))) + (cons __tmp48440 __tmp48404)))) (declare (not safe)) - (cons __tmp48612 '())))) + (cons __tmp48403 '())))) (declare (not safe)) - (cons __tmp48650 __tmp48611)))) + (cons __tmp48441 __tmp48402)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48667 - __tmp48610))) - (__tmp48607 - (let ((__tmp48608 + (cons __tmp48458 + __tmp48401))) + (__tmp48398 + (let ((__tmp48399 (let () (declare (not safe)) @@ -8134,21 +8134,21 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48608 '())))) + (cons __tmp48399 '())))) (declare (not safe)) - (cons __tmp48609 __tmp48607)))) + (cons __tmp48400 __tmp48398)))) (declare (not safe)) - (cons __tmp48668 __tmp48606)))) + (cons __tmp48459 __tmp48397)))) (declare (not safe)) - (cons __tmp48671 __tmp48605)))) + (cons __tmp48462 __tmp48396)))) (declare (not safe)) - (cons __tmp48604 '())))) + (cons __tmp48395 '())))) (declare (not safe)) - (cons __tmp48672 __tmp48603)))) + (cons __tmp48463 __tmp48394)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48685 - __tmp48602)))) + (cons __tmp48476 + __tmp48393)))) _hd92039311_ _hd92009301_ _hd91979291_ @@ -8180,7 +8180,7 @@ (vector-length _tab9161_))))))) (_generate-generic-dispatch8762_ (lambda (_e8888_ _datums8890_ _dispatch8891_ _default8892_) - (let ((_g48686_ + (let ((_g48477_ (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 _g48686_ 0))) + (##vector-ref _g48477_ 0))) (_hashf8896_ (let () (declare (not safe)) - (##vector-ref _g48686_ 1))) + (##vector-ref _g48477_ 1))) (_eqf8897_ (let () (declare (not safe)) - (##vector-ref _g48686_ 2)))) + (##vector-ref _g48477_ 2)))) (let* ((_indexes8899_ (_datum-dispatch-index8747_ _datums8890_)) (_tab8902_ @@ -8257,30 +8257,30 @@ (declare (not safe)) (##cdr _e89298996_)))) (if (gx#stx-pair/null? _hd89289000_) - (let ((_g48687_ + (let ((_g48478_ (gx#syntax-split-splice _hd89289000_ '0))) (begin - (let ((_g48688_ + (let ((_g48479_ (let () (declare (not safe)) - (if (##values? _g48687_) - (##vector-length _g48687_) + (if (##values? _g48478_) + (##vector-length _g48478_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48688_ 2))) + (##fx= _g48479_ 2))) (error "Context expects 2 values" - _g48688_))) + _g48479_))) (let ((_target89309006_ (let () (declare (not safe)) - (##vector-ref _g48687_ 0))) + (##vector-ref _g48478_ 0))) (_tl89329009_ (let () (declare (not safe)) - (##vector-ref _g48687_ 1)))) + (##vector-ref _g48478_ 1)))) (if (gx#stx-null? _tl89329009_) (letrec ((_loop89339012_ (lambda (_hd89319016_ @@ -8368,267 +8368,267 @@ _L9094_ _L9095_) (let () - (let ((__tmp48769 (gx#datum->syntax '#f 'let)) - (__tmp48689 - (let ((__tmp48756 - (let ((__tmp48763 - (let ((__tmp48764 - (let ((__tmp48765 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48768 (gx#datum->syntax '#f 'lambda)) - (__tmp48766 - (let ((__tmp48767 + (let ((__tmp48560 (gx#datum->syntax '#f 'let)) + (__tmp48480 + (let ((__tmp48547 + (let ((__tmp48554 + (let ((__tmp48555 + (let ((__tmp48556 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48559 (gx#datum->syntax '#f 'lambda)) + (__tmp48557 + (let ((__tmp48558 (let () (declare (not safe)) (cons _L9091_ '())))) (declare (not safe)) - (cons '() __tmp48767)))) + (cons '() __tmp48558)))) (declare (not safe)) - (cons __tmp48768 __tmp48766)))) + (cons __tmp48559 __tmp48557)))) (declare (not safe)) - (cons __tmp48765 '())))) + (cons __tmp48556 '())))) (declare (not safe)) - (cons _L9094_ __tmp48764))) + (cons _L9094_ __tmp48555))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48757 - (let ((__tmp48758 - (let ((__tmp48759 + (__tmp48548 + (let ((__tmp48549 + (let ((__tmp48550 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48760 - (let ((__tmp48762 + (let ((__tmp48551 + (let ((__tmp48553 (gx#datum->syntax '#f 'quote)) - (__tmp48761 + (__tmp48552 (let () (declare (not safe)) (cons _L9090_ '())))) (declare (not safe)) - (cons __tmp48762 __tmp48761)))) + (cons __tmp48553 __tmp48552)))) (declare (not safe)) - (cons __tmp48760 '())))) + (cons __tmp48551 '())))) (declare (not safe)) - (cons _L9093_ __tmp48759)))) + (cons _L9093_ __tmp48550)))) (declare (not safe)) - (cons __tmp48758 '())))) + (cons __tmp48549 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48763 __tmp48757))) - (__tmp48690 - (let ((__tmp48691 - (let ((__tmp48755 + (cons __tmp48554 __tmp48548))) + (__tmp48481 + (let ((__tmp48482 + (let ((__tmp48546 (gx#datum->syntax '#f 'let*)) - (__tmp48692 - (let ((__tmp48731 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48750 - (let ((__tmp48754 (gx#datum->syntax '#f 'h)) - (__tmp48751 - (let ((__tmp48752 - (let ((__tmp48753 + (__tmp48483 + (let ((__tmp48522 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48541 + (let ((__tmp48545 (gx#datum->syntax '#f 'h)) + (__tmp48542 + (let ((__tmp48543 + (let ((__tmp48544 (let () (declare (not safe)) (cons _L9095_ '())))) (declare (not safe)) - (cons _L9088_ __tmp48753)))) + (cons _L9088_ __tmp48544)))) (declare (not safe)) - (cons __tmp48752 '())))) + (cons __tmp48543 '())))) (declare (not safe)) - (cons __tmp48754 __tmp48751))) - (__tmp48732 - (let ((__tmp48742 - (let ((__tmp48749 + (cons __tmp48545 __tmp48542))) + (__tmp48523 + (let ((__tmp48533 + (let ((__tmp48540 (gx#datum->syntax '#f 'ix)) - (__tmp48743 - (let ((__tmp48744 - (let ((__tmp48748 + (__tmp48534 + (let ((__tmp48535 + (let ((__tmp48539 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48745 - (let ((__tmp48747 + (__tmp48536 + (let ((__tmp48538 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp48746 + (__tmp48537 (let () (declare (not safe)) (cons _L9089_ '())))) (declare (not safe)) - (cons __tmp48747 __tmp48746)))) + (cons __tmp48538 __tmp48537)))) (declare (not safe)) - (cons __tmp48748 __tmp48745)))) + (cons __tmp48539 __tmp48536)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48744 '())))) + (cons __tmp48535 '())))) (declare (not safe)) - (cons __tmp48749 __tmp48743))) - (__tmp48733 - (let ((__tmp48734 - (let ((__tmp48741 + (cons __tmp48540 __tmp48534))) + (__tmp48524 + (let ((__tmp48525 + (let ((__tmp48532 (gx#datum->syntax '#f 'q)) - (__tmp48735 - (let ((__tmp48736 - (let ((__tmp48740 + (__tmp48526 + (let ((__tmp48527 + (let ((__tmp48531 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp48737 - (let ((__tmp48738 - (let ((__tmp48739 + (__tmp48528 + (let ((__tmp48529 + (let ((__tmp48530 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48739 '())))) + (cons __tmp48530 '())))) (declare (not safe)) - (cons _L9093_ __tmp48738)))) + (cons _L9093_ __tmp48529)))) (declare (not safe)) - (cons __tmp48740 __tmp48737)))) + (cons __tmp48531 __tmp48528)))) (declare (not safe)) - (cons __tmp48736 '())))) + (cons __tmp48527 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48741 - __tmp48735)))) + (cons __tmp48532 + __tmp48526)))) (declare (not safe)) - (cons __tmp48734 '())))) + (cons __tmp48525 '())))) (declare (not safe)) - (cons __tmp48742 __tmp48733)))) + (cons __tmp48533 __tmp48524)))) (declare (not safe)) - (cons __tmp48750 __tmp48732))) - (__tmp48693 - (let ((__tmp48694 - (let ((__tmp48730 (gx#datum->syntax '#f 'if)) - (__tmp48695 - (let ((__tmp48729 + (cons __tmp48541 __tmp48523))) + (__tmp48484 + (let ((__tmp48485 + (let ((__tmp48521 (gx#datum->syntax '#f 'if)) + (__tmp48486 + (let ((__tmp48520 (gx#datum->syntax '#f 'q)) - (__tmp48696 - (let ((__tmp48699 - (let ((__tmp48728 + (__tmp48487 + (let ((__tmp48490 + (let ((__tmp48519 (gx#datum->syntax '#f 'if)) - (__tmp48700 - (let ((__tmp48721 + (__tmp48491 + (let ((__tmp48512 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48722 - (let ((__tmp48724 - (let ((__tmp48727 + (let ((__tmp48513 + (let ((__tmp48515 + (let ((__tmp48518 (gx#datum->syntax '#f '##car)) - (__tmp48725 - (let ((__tmp48726 + (__tmp48516 + (let ((__tmp48517 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48726 '())))) + (cons __tmp48517 '())))) (declare (not safe)) - (cons __tmp48727 __tmp48725))) - (__tmp48723 + (cons __tmp48518 __tmp48516))) + (__tmp48514 (let () (declare (not safe)) (cons _L9095_ '())))) (declare (not safe)) - (cons __tmp48724 __tmp48723)))) + (cons __tmp48515 __tmp48514)))) (declare (not safe)) - (cons _L9086_ __tmp48722))) - (__tmp48701 - (let ((__tmp48704 - (let ((__tmp48720 + (cons _L9086_ __tmp48513))) + (__tmp48492 + (let ((__tmp48495 + (let ((__tmp48511 (gx#datum->syntax '#f 'let)) - (__tmp48705 - (let ((__tmp48713 - (let ((__tmp48719 + (__tmp48496 + (let ((__tmp48504 + (let ((__tmp48510 (gx#datum->syntax '#f 'x)) - (__tmp48714 - (let ((__tmp48715 - (let ((__tmp48718 + (__tmp48505 + (let ((__tmp48506 + (let ((__tmp48509 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp48716 - (let ((__tmp48717 (gx#datum->syntax '#f 'q))) + (__tmp48507 + (let ((__tmp48508 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48717 '())))) + (cons __tmp48508 '())))) (declare (not safe)) - (cons __tmp48718 __tmp48716)))) + (cons __tmp48509 __tmp48507)))) (declare (not safe)) - (cons __tmp48715 '())))) + (cons __tmp48506 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48719 - __tmp48714))) - (__tmp48706 - (let ((__tmp48707 - (let ((__tmp48712 + (cons __tmp48510 + __tmp48505))) + (__tmp48497 + (let ((__tmp48498 + (let ((__tmp48503 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48708 - (let ((__tmp48711 + (__tmp48499 + (let ((__tmp48502 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp48709 - (let ((__tmp48710 + (__tmp48500 + (let ((__tmp48501 (lambda (_g91399142_ _g91409145_) (let () (declare (not safe)) (cons _g91399142_ _g91409145_))))) (declare (not safe)) - (foldr1 __tmp48710 '() _L9092_)))) + (foldr1 __tmp48501 '() _L9092_)))) (declare (not safe)) - (cons __tmp48711 __tmp48709)))) + (cons __tmp48502 __tmp48500)))) (declare (not safe)) - (cons __tmp48712 __tmp48708)))) + (cons __tmp48503 __tmp48499)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48707 '())))) + (cons __tmp48498 '())))) (declare (not safe)) - (cons __tmp48713 __tmp48706)))) + (cons __tmp48504 __tmp48497)))) (declare (not safe)) - (cons __tmp48720 __tmp48705))) - (__tmp48702 - (let ((__tmp48703 + (cons __tmp48511 __tmp48496))) + (__tmp48493 + (let ((__tmp48494 (let () (declare (not safe)) (cons _L9094_ '())))) (declare (not safe)) - (cons __tmp48703 '())))) + (cons __tmp48494 '())))) (declare (not safe)) - (cons __tmp48704 __tmp48702)))) + (cons __tmp48495 __tmp48493)))) (declare (not safe)) - (cons __tmp48721 __tmp48701)))) + (cons __tmp48512 __tmp48492)))) (declare (not safe)) - (cons __tmp48728 __tmp48700))) + (cons __tmp48519 __tmp48491))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48697 - (let ((__tmp48698 + (__tmp48488 + (let ((__tmp48489 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L9094_ '())))) (declare (not safe)) - (cons __tmp48698 '())))) + (cons __tmp48489 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48699 - __tmp48697)))) + (cons __tmp48490 + __tmp48488)))) (declare (not safe)) - (cons __tmp48729 __tmp48696)))) + (cons __tmp48520 __tmp48487)))) (declare (not safe)) - (cons __tmp48730 __tmp48695)))) + (cons __tmp48521 __tmp48486)))) (declare (not safe)) - (cons __tmp48694 '())))) + (cons __tmp48485 '())))) (declare (not safe)) - (cons __tmp48731 __tmp48693)))) + (cons __tmp48522 __tmp48484)))) (declare (not safe)) - (cons __tmp48755 __tmp48692)))) + (cons __tmp48546 __tmp48483)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48691 '())))) + (cons __tmp48482 '())))) (declare (not safe)) - (cons __tmp48756 __tmp48690)))) + (cons __tmp48547 __tmp48481)))) (declare (not safe)) - (cons __tmp48769 __tmp48689)))) + (cons __tmp48560 __tmp48480)))) _hd89529080_ _hd89499070_ _hd89469060_ @@ -8695,34 +8695,34 @@ (declare (not safe)) (##cdr _e87738805_)))) (if (gx#stx-pair/null? _tl87718812_) - (let ((_g48770_ + (let ((_g48561_ (gx#syntax-split-splice _tl87718812_ '0))) (begin - (let ((_g48771_ + (let ((_g48562_ (let () (declare (not safe)) - (if (##values? _g48770_) + (if (##values? _g48561_) (##vector-length - _g48770_) + _g48561_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48771_ 2))) + (##fx= _g48562_ 2))) (error "Context expects 2 values" - _g48771_))) + _g48562_))) (let ((_target87748815_ (let () (declare (not safe)) (##vector-ref - _g48770_ + _g48561_ 0))) (_tl87768818_ (let () (declare (not safe)) (##vector-ref - _g48770_ + _g48561_ 1)))) (if (gx#stx-null? _tl87768818_) (letrec ((_loop87778821_ @@ -8746,41 +8746,41 @@ (cons _lp-hd87798835_ _clause87818828_))))) (let ((_clause87828841_ (reverse _clause87818828_))) ((lambda (_L8845_ _L8847_) - (let ((_g48772_ + (let ((_g48563_ (_parse-clauses8738_ _L8847_ - (let ((__tmp48774 + (let ((__tmp48565 (lambda (_g88658868_ _g88668871_) (let () (declare (not safe)) (cons _g88658868_ _g88668871_))))) (declare (not safe)) - (foldr1 __tmp48774 '() _L8845_))))) + (foldr1 __tmp48565 '() _L8845_))))) (begin - (let ((_g48773_ + (let ((_g48564_ (let () (declare (not safe)) - (if (##values? _g48772_) - (##vector-length _g48772_) + (if (##values? _g48563_) + (##vector-length _g48563_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48773_ 3))) + (##fx= _g48564_ 3))) (error "Context expects 3 values" - _g48773_))) + _g48564_))) (let ((_datums8874_ (let () (declare (not safe)) - (##vector-ref _g48772_ 0))) + (##vector-ref _g48563_ 0))) (_dispatch8876_ (let () (declare (not safe)) - (##vector-ref _g48772_ 1))) + (##vector-ref _g48563_ 1))) (_default8877_ (let () (declare (not safe)) - (##vector-ref _g48772_ 2)))) + (##vector-ref _g48563_ 2)))) (let ((_datum-count8879_ (_count-datums8741_ _datums8874_))) (if (< _datum-count8879_ '6) @@ -8890,67 +8890,67 @@ (not safe)) (immediate? _datum-e11862_))) - (let ((__tmp48792 + (let ((__tmp48583 (gx#datum->syntax '#f 'eq?)) - (__tmp48787 - (let ((__tmp48789 + (__tmp48578 + (let ((__tmp48580 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48791 (gx#datum->syntax '#f 'quote)) - (__tmp48790 + (let ((__tmp48582 (gx#datum->syntax '#f 'quote)) + (__tmp48581 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp48791 __tmp48790))) - (__tmp48788 + (cons __tmp48582 __tmp48581))) + (__tmp48579 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp48789 __tmp48788)))) + (cons __tmp48580 __tmp48579)))) (declare (not safe)) - (cons __tmp48792 __tmp48787)) + (cons __tmp48583 __tmp48578)) (if (let () (declare (not safe)) (number? _datum-e11862_)) - (let ((__tmp48786 (gx#datum->syntax '#f 'eqv?)) - (__tmp48781 - (let ((__tmp48783 - (let ((__tmp48785 + (let ((__tmp48577 (gx#datum->syntax '#f 'eqv?)) + (__tmp48572 + (let ((__tmp48574 + (let ((__tmp48576 (gx#datum->syntax '#f 'quote)) - (__tmp48784 + (__tmp48575 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp48785 __tmp48784))) - (__tmp48782 + (cons __tmp48576 __tmp48575))) + (__tmp48573 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp48783 __tmp48782)))) + (cons __tmp48574 __tmp48573)))) (declare (not safe)) - (cons __tmp48786 __tmp48781)) - (let ((__tmp48780 (gx#datum->syntax '#f 'equal?)) - (__tmp48775 - (let ((__tmp48777 - (let ((__tmp48779 + (cons __tmp48577 __tmp48572)) + (let ((__tmp48571 (gx#datum->syntax '#f 'equal?)) + (__tmp48566 + (let ((__tmp48568 + (let ((__tmp48570 (gx#datum->syntax '#f 'quote)) - (__tmp48778 + (__tmp48569 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp48779 __tmp48778))) - (__tmp48776 + (cons __tmp48570 __tmp48569))) + (__tmp48567 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp48777 __tmp48776)))) + (cons __tmp48568 __tmp48567)))) (declare (not safe)) - (cons __tmp48780 __tmp48775)))))) + (cons __tmp48571 __tmp48566)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1180011838_ _hd1179711828_) @@ -8991,31 +8991,31 @@ (declare (not safe)) (##cdr _e1189011922_)))) (if (gx#stx-pair/null? _tl1188811929_) - (let ((_g48793_ + (let ((_g48584_ (gx#syntax-split-splice _tl1188811929_ '0))) (begin - (let ((_g48794_ + (let ((_g48585_ (let () (declare (not safe)) - (if (##values? _g48793_) + (if (##values? _g48584_) (##vector-length - _g48793_) + _g48584_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48794_ 2))) + (##fx= _g48585_ 2))) (error "Context expects 2 values" - _g48794_))) + _g48585_))) (let ((_target1189111932_ (let () (declare (not safe)) - (##vector-ref _g48793_ 0))) + (##vector-ref _g48584_ 0))) (_tl1189311935_ (let () (declare (not safe)) - (##vector-ref _g48793_ 1)))) + (##vector-ref _g48584_ 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 ((__tmp48799 + (let ((__tmp48590 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp48795 - (let ((__tmp48796 - (let ((__tmp48797 - (let ((__tmp48798 + (__tmp48586 + (let ((__tmp48587 + (let ((__tmp48588 + (let ((__tmp48589 (lambda (_g1198111984_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1198211987_) @@ -9052,15 +9052,15 @@ (cons _g1198111984_ _g1198211987_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48798 + (foldr1 __tmp48589 '() _L11962_)))) (declare (not safe)) - (cons _L11964_ __tmp48797)))) + (cons _L11964_ __tmp48588)))) (declare (not safe)) - (cons '0 __tmp48796)))) + (cons '0 __tmp48587)))) (declare (not safe)) - (cons __tmp48799 __tmp48795))) + (cons __tmp48590 __tmp48586))) _K1189911958_ _hd1188911926_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -9075,23 +9075,23 @@ (_g1188011990_ _$stx11877_)))) (define |gerbil/core$$[:0:]#~case-dispatch*| (lambda (_stx11995_) - (let* ((___stx4334843349_ _stx11995_) + (let* ((___stx4316443165_ _stx11995_) (_g1200212098_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4334843349_)))) - (let ((___kont4335143352_ + ___stx4316443165_)))) + (let ((___kont4316743168_ (lambda (_L12575_ _L12577_) - (let ((__tmp48801 (gx#datum->syntax '#f 'quote)) - (__tmp48800 + (let ((__tmp48592 (gx#datum->syntax '#f 'quote)) + (__tmp48591 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons __tmp48801 __tmp48800)))) - (___kont4335343354_ + (cons __tmp48592 __tmp48591)))) + (___kont4316943170_ (lambda (_L12517_ _L12519_ _L12520_) _L12517_)) - (___kont4335543356_ + (___kont4317143172_ (lambda (_L12414_ _L12416_ _L12417_ _L12418_) (let* ((_g1243912447_ (lambda (_g1244012443_) @@ -9103,40 +9103,40 @@ (lambda (_g1244012451_) ((lambda (_L12454_) (let () - (let ((__tmp48809 (gx#datum->syntax '#f 'if)) - (__tmp48802 - (let ((__tmp48805 - (let ((__tmp48808 + (let ((__tmp48600 (gx#datum->syntax '#f 'if)) + (__tmp48593 + (let ((__tmp48596 + (let ((__tmp48599 (gx#datum->syntax '#f '##fx=)) - (__tmp48806 - (let ((__tmp48807 + (__tmp48597 + (let ((__tmp48598 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L12454_ '())))) (declare (not safe)) - (cons _L12417_ __tmp48807)))) + (cons _L12417_ __tmp48598)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48808 - __tmp48806))) - (__tmp48803 - (let ((__tmp48804 + (cons __tmp48599 + __tmp48597))) + (__tmp48594 + (let ((__tmp48595 (let () (declare (not safe)) (cons _L12414_ '())))) (declare (not safe)) - (cons _L12416_ __tmp48804)))) + (cons _L12416_ __tmp48595)))) (declare (not safe)) - (cons __tmp48805 __tmp48803)))) + (cons __tmp48596 __tmp48594)))) (declare (not safe)) - (cons __tmp48809 __tmp48802)))) + (cons __tmp48600 __tmp48593)))) _g1244012451_)))) (_g1243812466_ (gx#stx-e _L12418_))))) - (___kont4335743358_ + (___kont4317343174_ (lambda (_L12264_ _L12266_ _L12267_ _L12268_ _L12269_) (let* ((_g1229312308_ (lambda (_g1229412304_) @@ -9171,63 +9171,63 @@ (if (gx#stx-null? _tl1230012332_) ((lambda (_L12335_ _L12337_) (let () - (let ((__tmp48826 + (let ((__tmp48617 (gx#datum->syntax '#f 'if)) - (__tmp48810 - (let ((__tmp48822 + (__tmp48601 + (let ((__tmp48613 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48825 (gx#datum->syntax '#f '##fx=)) - (__tmp48823 - (let ((__tmp48824 + (let ((__tmp48616 (gx#datum->syntax '#f '##fx=)) + (__tmp48614 + (let ((__tmp48615 (let () (declare (not safe)) (cons _L12337_ '())))) (declare (not safe)) - (cons _L12268_ __tmp48824)))) + (cons _L12268_ __tmp48615)))) (declare (not safe)) - (cons __tmp48825 __tmp48823))) - (__tmp48811 - (let ((__tmp48812 - (let ((__tmp48813 - (let ((__tmp48821 + (cons __tmp48616 __tmp48614))) + (__tmp48602 + (let ((__tmp48603 + (let ((__tmp48604 + (let ((__tmp48612 (gx#datum->syntax '#f 'if)) - (__tmp48814 - (let ((__tmp48817 - (let ((__tmp48820 + (__tmp48605 + (let ((__tmp48608 + (let ((__tmp48611 (gx#datum->syntax '#f '##fx=)) - (__tmp48818 - (let ((__tmp48819 + (__tmp48609 + (let ((__tmp48610 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L12335_ '())))) (declare (not safe)) - (cons _L12268_ __tmp48819)))) + (cons _L12268_ __tmp48610)))) (declare (not safe)) - (cons __tmp48820 __tmp48818))) - (__tmp48815 - (let ((__tmp48816 + (cons __tmp48611 __tmp48609))) + (__tmp48606 + (let ((__tmp48607 (let () (declare (not safe)) (cons _L12264_ '())))) (declare (not safe)) - (cons _L12266_ __tmp48816)))) + (cons _L12266_ __tmp48607)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48817 - __tmp48815)))) + (cons __tmp48608 + __tmp48606)))) (declare (not safe)) - (cons __tmp48821 __tmp48814)))) + (cons __tmp48612 __tmp48605)))) (declare (not safe)) - (cons __tmp48813 '())))) + (cons __tmp48604 '())))) (declare (not safe)) - (cons _L12267_ __tmp48812)))) + (cons _L12267_ __tmp48603)))) (declare (not safe)) - (cons __tmp48822 __tmp48811)))) + (cons __tmp48613 __tmp48602)))) (declare (not safe)) - (cons __tmp48826 __tmp48810)))) + (cons __tmp48617 __tmp48601)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1230112329_ _hd1229812319_) @@ -9237,17 +9237,17 @@ (_g1229312308_ _g1229412312_))))) (_g1229212353_ (list (gx#stx-e _L12269_) - (let ((__tmp48827 (gx#stx-e _L12269_))) + (let ((__tmp48618 (gx#stx-e _L12269_))) (declare (not safe)) - (fx+ __tmp48827 '1))))))) - (___kont4335943360_ + (fx+ __tmp48618 '1))))))) + (___kont4317543176_ (lambda (_L12165_ _L12167_ _L12168_) - (let ((__tmp48832 + (let ((__tmp48623 (gx#datum->syntax '#f '~case-dispatch-bsearch)) - (__tmp48828 - (let ((__tmp48829 - (let ((__tmp48830 - (let ((__tmp48831 + (__tmp48619 + (let ((__tmp48620 + (let ((__tmp48621 + (let ((__tmp48622 (lambda (_g1218812191_ _g1218912194_) (let () @@ -9255,14 +9255,14 @@ (cons _g1218812191_ _g1218912194_))))) (declare (not safe)) - (foldr1 __tmp48831 '() _L12165_)))) + (foldr1 __tmp48622 '() _L12165_)))) (declare (not safe)) - (cons _L12167_ __tmp48830)))) + (cons _L12167_ __tmp48621)))) (declare (not safe)) - (cons _L12168_ __tmp48829)))) + (cons _L12168_ __tmp48620)))) (declare (not safe)) - (cons __tmp48832 __tmp48828))))) - (let ((___match4350543506_ + (cons __tmp48623 __tmp48619))))) + (let ((___match4332143322_ (lambda (_e1207712105_ _hd1207612109_ _tl1207512112_ @@ -9272,7 +9272,7 @@ _e1208312125_ _hd1208212129_ _tl1208112132_ - ___splice4336143362_ + ___splice4317743178_ _target1208412135_ _tl1208612138_) (letrec ((_loop1208712141_ @@ -9296,13 +9296,13 @@ _K1209112148_))))) (let ((_K1209212161_ (reverse _K1209112148_))) - (___kont4335943360_ + (___kont4317543176_ _K1209212161_ _hd1208212129_ _hd1207912119_)))))) (_loop1208712141_ _target1208412135_ '()))))) - (if (gx#stx-pair? ___stx4334843349_) - (let ((_e1200812545_ (gx#syntax-e ___stx4334843349_))) + (if (gx#stx-pair? ___stx4316443165_) + (let ((_e1200812545_ (gx#syntax-e ___stx4316443165_))) (let ((_tl1200612552_ (let () (declare (not safe)) (##cdr _e1200812545_))) (_hd1200712549_ @@ -9331,7 +9331,7 @@ (declare (not safe)) (##car _e1201412565_)))) (if (gx#stx-null? _tl1201212572_) - (___kont4335143352_ + (___kont4316743168_ _hd1201312569_ _hd1201012559_) (if (gx#stx-pair? _tl1201212572_) @@ -9348,7 +9348,7 @@ (##car _e1202912507_)))) (if (gx#stx-null? _tl1202712514_) - (___kont4335343354_ + (___kont4316943170_ _hd1202812511_ _hd1201312569_ _hd1201012559_) @@ -9364,7 +9364,7 @@ (declare (not safe)) (##car _e1204812404_)))) (if (gx#stx-null? _tl1204612411_) - (___kont4335543356_ + (___kont4317143172_ _hd1204712408_ _hd1202812511_ _hd1201312569_ @@ -9381,14 +9381,14 @@ (declare (not safe)) (##car _e1207112254_)))) (if (gx#stx-null? _tl1206912261_) - (___kont4335743358_ + (___kont4317343174_ _hd1207012258_ _hd1204712408_ _hd1202812511_ _hd1201312569_ _hd1201012559_) (if (gx#stx-pair/null? _tl1201212572_) - (let ((___splice4336143362_ + (let ((___splice4317743178_ (gx#syntax-split-splice _tl1201212572_ '0))) @@ -9396,16 +9396,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4336143362_ + ___splice4317743178_ '1))) (_target1208412135_ (let () (declare (not safe)) (##vector-ref - ___splice4336143362_ + ___splice4317743178_ '0)))) (if (gx#stx-null? _tl1208612138_) - (___match4350543506_ + (___match4332143322_ _e1200812545_ _hd1200712549_ _tl1200612552_ @@ -9415,7 +9415,7 @@ _e1201412565_ _hd1201312569_ _tl1201212572_ - ___splice4336143362_ + ___splice4317743178_ _target1208412135_ _tl1208612138_) (let () @@ -9425,7 +9425,7 @@ (declare (not safe)) (_g1200212098_)))))) (if (gx#stx-pair/null? _tl1201212572_) - (let ((___splice4336143362_ + (let ((___splice4317743178_ (gx#syntax-split-splice _tl1201212572_ '0))) @@ -9433,16 +9433,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4336143362_ + ___splice4317743178_ '1))) (_target1208412135_ (let () (declare (not safe)) (##vector-ref - ___splice4336143362_ + ___splice4317743178_ '0)))) (if (gx#stx-null? _tl1208612138_) - (___match4350543506_ + (___match4332143322_ _e1200812545_ _hd1200712549_ _tl1200612552_ @@ -9452,7 +9452,7 @@ _e1201412565_ _hd1201312569_ _tl1201212572_ - ___splice4336143362_ + ___splice4317743178_ _target1208412135_ _tl1208612138_) (let () @@ -9462,18 +9462,18 @@ (declare (not safe)) (_g1200212098_))))))) (if (gx#stx-pair/null? _tl1201212572_) - (let ((___splice4336143362_ + (let ((___splice4317743178_ (gx#syntax-split-splice _tl1201212572_ '0))) (let ((_tl1208612138_ (let () (declare (not safe)) - (##vector-ref ___splice4336143362_ '1))) + (##vector-ref ___splice4317743178_ '1))) (_target1208412135_ (let () (declare (not safe)) - (##vector-ref ___splice4336143362_ '0)))) + (##vector-ref ___splice4317743178_ '0)))) (if (gx#stx-null? _tl1208612138_) - (___match4350543506_ + (___match4332143322_ _e1200812545_ _hd1200712549_ _tl1200612552_ @@ -9483,7 +9483,7 @@ _e1201412565_ _hd1201312569_ _tl1201212572_ - ___splice4336143362_ + ___splice4317743178_ _target1208412135_ _tl1208612138_) (let () (declare (not safe)) (_g1200212098_))))) @@ -9491,7 +9491,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl1201212572_) - (let ((___splice4336143362_ + (let ((___splice4317743178_ (gx#syntax-split-splice _tl1201212572_ '0))) @@ -9500,18 +9500,18 @@ (declare (not safe)) (##vector-ref - ___splice4336143362_ + ___splice4317743178_ '1))) (_target1208412135_ (let () (declare (not safe)) (##vector-ref - ___splice4336143362_ + ___splice4317743178_ '0)))) (if (gx#stx-null? _tl1208612138_) - (___match4350543506_ + (___match4332143322_ _e1200812545_ _hd1200712549_ _tl1200612552_ @@ -9521,7 +9521,7 @@ _e1201412565_ _hd1201312569_ _tl1201212572_ - ___splice4336143362_ + ___splice4317743178_ _target1208412135_ _tl1208612138_) (let () @@ -9547,9 +9547,9 @@ (_lp12965_ (let () (declare (not safe)) (fx+ _i12968_ '1)) (cdr _rest12970_) - (let ((__tmp48833 (car _rest12970_))) + (let ((__tmp48624 (car _rest12970_))) (declare (not safe)) - (cons __tmp48833 _left12971_))) + (cons __tmp48624 _left12971_))) (values (reverse _left12971_) _rest12970_)))))) (let* ((_g1260312631_ (lambda (_g1260412627_) @@ -9593,36 +9593,36 @@ (##cdr _e1261612658_)))) (if (gx#stx-pair/null? _tl1261412665_) - (let ((_g48834_ + (let ((_g48625_ (gx#syntax-split-splice _tl1261412665_ '0))) (begin - (let ((_g48835_ + (let ((_g48626_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48834_) - (##vector-length _g48834_) + _g48625_) + (##vector-length _g48625_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48835_ 2))) - (error "Context expects 2 values" _g48835_))) + (if (not (let () (declare (not safe)) (##fx= _g48626_ 2))) + (error "Context expects 2 values" _g48626_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1261712668_ (let () (declare (not safe)) (##vector-ref - _g48834_ + _g48625_ 0))) (_tl1261912671_ (let () (declare (not safe)) (##vector-ref - _g48834_ + _g48625_ 1)))) (if (gx#stx-null? _tl1261912671_) @@ -9650,7 +9650,7 @@ (reverse _K1262412681_))) ((lambda (_L12698_ _L12700_ _L12701_) (let* ((_len12731_ - (length (let ((__tmp48836 + (length (let ((__tmp48627 (lambda (_g1272212725_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1272312728_) @@ -9658,13 +9658,13 @@ (declare (not safe)) (cons _g1272212725_ _g1272312728_))))) (declare (not safe)) - (foldr1 __tmp48836 '() _L12698_)))) + (foldr1 __tmp48627 '() _L12698_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_mid12734_ (quotient _len12731_ '2)) - (_g48837_ + (_g48628_ (_split12600_ - (let ((__tmp48839 + (let ((__tmp48630 (lambda (_g1273612739_ _g1273712742_) (let () @@ -9674,32 +9674,32 @@ _g1273712742_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48839 + (foldr1 __tmp48630 '() _L12698_)) _mid12734_))) (begin - (let ((_g48838_ + (let ((_g48629_ (let () (declare (not safe)) - (if (##values? _g48837_) + (if (##values? _g48628_) (##vector-length - _g48837_) + _g48628_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48838_ 2))) + (##fx= _g48629_ 2))) (error "Context expects 2 values" - _g48838_))) + _g48629_))) (let ((_left12745_ (let () (declare (not safe)) - (##vector-ref _g48837_ 0))) + (##vector-ref _g48628_ 0))) (_right12747_ (let () (declare (not safe)) (##vector-ref - _g48837_ + _g48628_ 1)))) (let () (let* ((_g1275112792_ @@ -9735,31 +9735,31 @@ (declare (not safe)) (##cdr _e1276212809_)))) (if (gx#stx-pair/null? _hd1276112813_) - (let ((_g48840_ + (let ((_g48631_ (gx#syntax-split-splice _hd1276112813_ '0))) (begin - (let ((_g48841_ + (let ((_g48632_ (let () (declare (not safe)) - (if (##values? _g48840_) + (if (##values? _g48631_) (##vector-length - _g48840_) + _g48631_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48841_ 2))) + (##fx= _g48632_ 2))) (error "Context expects 2 values" - _g48841_))) + _g48632_))) (let ((_target1276312819_ (let () (declare (not safe)) - (##vector-ref _g48840_ 0))) + (##vector-ref _g48631_ 0))) (_tl1276512822_ (let () (declare (not safe)) - (##vector-ref _g48840_ 1)))) + (##vector-ref _g48631_ 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 ((_g48842_ + (let ((_g48633_ (gx#syntax-split-splice _hd1277312853_ '0))) (begin - (let ((_g48843_ + (let ((_g48634_ (let () (declare (not safe)) - (if (##values? _g48842_) + (if (##values? _g48633_) (##vector-length - _g48842_) + _g48633_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48843_ 2))) + (##fx= _g48634_ 2))) (error "Context expects 2 values" - _g48843_))) + _g48634_))) (let ((_target1277512859_ (let () (declare (not safe)) - (##vector-ref _g48842_ 0))) + (##vector-ref _g48633_ 0))) (_tl1277712862_ (let () (declare (not safe)) - (##vector-ref _g48842_ 1)))) + (##vector-ref _g48633_ 1)))) (if (gx#stx-null? _tl1277712862_) (letrec ((_loop1277812865_ (lambda (_hd1277612869_ @@ -9857,32 +9857,32 @@ _L12902_ _L12903_) (let () - (let ((__tmp48863 + (let ((__tmp48654 (gx#datum->syntax '#f 'if)) - (__tmp48844 - (let ((__tmp48859 - (let ((__tmp48862 + (__tmp48635 + (let ((__tmp48650 + (let ((__tmp48653 (gx#datum->syntax '#f '##fx<)) - (__tmp48860 - (let ((__tmp48861 + (__tmp48651 + (let ((__tmp48652 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L12899_ '())))) (declare (not safe)) - (cons _L12700_ __tmp48861)))) + (cons _L12700_ __tmp48652)))) (declare (not safe)) - (cons __tmp48862 __tmp48860))) - (__tmp48845 - (let ((__tmp48853 - (let ((__tmp48858 + (cons __tmp48653 __tmp48651))) + (__tmp48636 + (let ((__tmp48644 + (let ((__tmp48649 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp48854 - (let ((__tmp48855 - (let ((__tmp48856 - (let ((__tmp48857 + (__tmp48645 + (let ((__tmp48646 + (let ((__tmp48647 + (let ((__tmp48648 (lambda (_g1293812941_ _g1293912944_) (let () @@ -9890,23 +9890,23 @@ (cons _g1293812941_ _g1293912944_))))) (declare (not safe)) - (foldr1 __tmp48857 + (foldr1 __tmp48648 '() _L12902_)))) (declare (not safe)) - (cons _L12700_ __tmp48856)))) + (cons _L12700_ __tmp48647)))) (declare (not safe)) - (cons _L12701_ __tmp48855)))) + (cons _L12701_ __tmp48646)))) (declare (not safe)) - (cons __tmp48858 __tmp48854))) - (__tmp48846 - (let ((__tmp48847 - (let ((__tmp48852 + (cons __tmp48649 __tmp48645))) + (__tmp48637 + (let ((__tmp48638 + (let ((__tmp48643 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp48848 - (let ((__tmp48849 - (let ((__tmp48850 - (let ((__tmp48851 + (__tmp48639 + (let ((__tmp48640 + (let ((__tmp48641 + (let ((__tmp48642 (lambda (_g1293612947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1293712950_) @@ -9915,25 +9915,25 @@ (cons _g1293612947_ _g1293712950_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48851 + (foldr1 __tmp48642 '() _L12901_)))) (declare (not safe)) - (cons _L12700_ __tmp48850)))) + (cons _L12700_ __tmp48641)))) (declare (not safe)) - (cons _L12899_ __tmp48849)))) + (cons _L12899_ __tmp48640)))) (declare (not safe)) - (cons __tmp48852 __tmp48848)))) + (cons __tmp48643 __tmp48639)))) (declare (not safe)) - (cons __tmp48847 '())))) + (cons __tmp48638 '())))) (declare (not safe)) - (cons __tmp48853 __tmp48846)))) + (cons __tmp48644 __tmp48637)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48859 - __tmp48845)))) + (cons __tmp48650 + __tmp48636)))) (declare (not safe)) - (cons __tmp48863 __tmp48844)))) + (cons __tmp48654 __tmp48635)))) _hd1278512893_ _K-right1278312885_ _K-left1277112845_ @@ -10009,31 +10009,31 @@ (declare (not safe)) (##cdr _e1299413069_)))) (if (gx#stx-pair/null? _hd1299313073_) - (let ((_g48864_ + (let ((_g48655_ (gx#syntax-split-splice _hd1299313073_ '0))) (begin - (let ((_g48865_ + (let ((_g48656_ (let () (declare (not safe)) - (if (##values? _g48864_) + (if (##values? _g48655_) (##vector-length - _g48864_) + _g48655_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48865_ 2))) + (##fx= _g48656_ 2))) (error "Context expects 2 values" - _g48865_))) + _g48656_))) (let ((_target1299513079_ (let () (declare (not safe)) - (##vector-ref _g48864_ 0))) + (##vector-ref _g48655_ 0))) (_tl1299713082_ (let () (declare (not safe)) - (##vector-ref _g48864_ 1)))) + (##vector-ref _g48655_ 1)))) (if (gx#stx-null? _tl1299713082_) (letrec ((_loop1299813085_ (lambda (_hd1299613089_ @@ -10075,36 +10075,36 @@ (##cdr _e1301313119_)))) (if (gx#stx-pair/null? _tl1301113126_) - (let ((_g48904_ + (let ((_g48695_ (gx#syntax-split-splice _tl1301113126_ '0))) (begin - (let ((_g48905_ + (let ((_g48696_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48904_) - (##vector-length _g48904_) + _g48695_) + (##vector-length _g48695_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48905_ 2))) - (error "Context expects 2 values" _g48905_))) + (if (not (let () (declare (not safe)) (##fx= _g48696_ 2))) + (error "Context expects 2 values" _g48696_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1301413129_ (let () (declare (not safe)) (##vector-ref - _g48904_ + _g48695_ 0))) (_tl1301613132_ (let () (declare (not safe)) (##vector-ref - _g48904_ + _g48695_ 1)))) (if (gx#stx-null? _tl1301613132_) @@ -10177,37 +10177,37 @@ (##cdr _e1302813177_)))) (if (gx#stx-pair/null? _tl1302613184_) - (let ((_g48866_ + (let ((_g48657_ (gx#syntax-split-splice _tl1302613184_ '0))) (begin - (let ((_g48867_ + (let ((_g48658_ (let () (declare (not safe)) (if (##values? - _g48866_) + _g48657_) (##vector-length - _g48866_) + _g48657_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g48867_ 2))) - (error "Context expects 2 values" _g48867_))) + (##fx= _g48658_ 2))) + (error "Context expects 2 values" _g48658_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1302913187_ (let () (declare (not safe)) (##vector-ref - _g48866_ + _g48657_ 0))) (_tl1303113190_ (let () (declare (not safe)) (##vector-ref - _g48866_ + _g48657_ 1)))) (if (gx#stx-null? _tl1303113190_) @@ -10234,31 +10234,31 @@ (let ((_fini1303713213_ (reverse _fini1303613200_))) (if (gx#stx-pair/null? _tl1302313174_) - (let ((_g48868_ + (let ((_g48659_ (gx#syntax-split-splice _tl1302313174_ '0))) (begin - (let ((_g48869_ + (let ((_g48660_ (let () (declare (not safe)) - (if (##values? _g48868_) + (if (##values? _g48659_) (##vector-length - _g48868_) + _g48659_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48869_ 2))) + (##fx= _g48660_ 2))) (error "Context expects 2 values" - _g48869_))) + _g48660_))) (let ((_target1303813217_ (let () (declare (not safe)) - (##vector-ref _g48868_ 0))) + (##vector-ref _g48659_ 0))) (_tl1304013220_ (let () (declare (not safe)) - (##vector-ref _g48868_ 1)))) + (##vector-ref _g48659_ 1)))) (if (gx#stx-null? _tl1304013220_) (letrec ((_loop1304113223_ (lambda (_hd1303913227_ @@ -10288,54 +10288,54 @@ _L13253_) (if (gx#stx-andmap gx#identifier? - (let ((__tmp48903 + (let ((__tmp48694 (lambda (_g1328613289_ _g1328713292_) (let () (declare (not safe)) (cons _g1328613289_ _g1328713292_))))) (declare (not safe)) - (foldr1 __tmp48903 '() _L13253_))) - (let ((__tmp48902 (gx#datum->syntax '#f 'let)) - (__tmp48870 - (let ((__tmp48901 + (foldr1 __tmp48694 '() _L13253_))) + (let ((__tmp48693 (gx#datum->syntax '#f 'let)) + (__tmp48661 + (let ((__tmp48692 (gx#datum->syntax '#f '$loop)) - (__tmp48871 - (let ((__tmp48897 + (__tmp48662 + (let ((__tmp48688 (begin (gx#syntax-check-splice-targets _L13252_ _L13253_) - (let ((__tmp48898 + (let ((__tmp48689 (lambda (_g1330313307_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1330413310_ _g1330513312_) - (let ((__tmp48899 - (let ((__tmp48900 + (let ((__tmp48690 + (let ((__tmp48691 (let () (declare (not safe)) (cons _g1330313307_ '())))) (declare (not safe)) - (cons _g1330413310_ __tmp48900)))) + (cons _g1330413310_ __tmp48691)))) (declare (not safe)) - (cons __tmp48899 _g1330513312_))))) + (cons __tmp48690 _g1330513312_))))) (declare (not safe)) - (foldr2 __tmp48898 '() _L13252_ _L13253_)))) + (foldr2 __tmp48689 '() _L13252_ _L13253_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48872 - (let ((__tmp48873 - (let ((__tmp48896 + (__tmp48663 + (let ((__tmp48664 + (let ((__tmp48687 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'if)) - (__tmp48874 - (let ((__tmp48875 - (let ((__tmp48891 - (let ((__tmp48895 + (__tmp48665 + (let ((__tmp48666 + (let ((__tmp48682 + (let ((__tmp48686 (gx#datum->syntax '#f 'begin)) - (__tmp48892 - (let ((__tmp48893 - (let ((__tmp48894 + (__tmp48683 + (let ((__tmp48684 + (let ((__tmp48685 (lambda (_g1330113315_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1330213318_) @@ -10343,94 +10343,94 @@ (declare (not safe)) (cons _g1330113315_ _g1330213318_))))) (declare (not safe)) - (foldr1 __tmp48894 '() _L13249_)))) + (foldr1 __tmp48685 '() _L13249_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#!void __tmp48893)))) + (cons '#!void __tmp48684)))) (declare (not safe)) - (cons __tmp48895 __tmp48892))) - (__tmp48876 - (let ((__tmp48877 - (let ((__tmp48890 + (cons __tmp48686 __tmp48683))) + (__tmp48667 + (let ((__tmp48668 + (let ((__tmp48681 (gx#datum->syntax '#f 'begin)) - (__tmp48878 - (let ((__tmp48889 + (__tmp48669 + (let ((__tmp48680 (lambda (_g1329413321_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1329513324_) (let () (declare (not safe)) (cons _g1329413321_ _g1329513324_)))) - (__tmp48879 - (let ((__tmp48880 - (let ((__tmp48888 (gx#datum->syntax '#f '$loop)) - (__tmp48881 + (__tmp48670 + (let ((__tmp48671 + (let ((__tmp48679 (gx#datum->syntax '#f '$loop)) + (__tmp48672 (begin (gx#syntax-check-splice-targets _L13251_ _L13253_) - (let ((__tmp48882 + (let ((__tmp48673 (lambda (_g1329613327_ _g1329713330_ _g1329813332_) - (let ((__tmp48883 - (let ((__tmp48887 + (let ((__tmp48674 + (let ((__tmp48678 (gx#datum->syntax '#f 'begin)) - (__tmp48884 - (let ((__tmp48885 + (__tmp48675 + (let ((__tmp48676 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48886 + (let ((__tmp48677 (lambda (_g1329913335_ _g1330013338_) (let () (declare (not safe)) (cons _g1329913335_ _g1330013338_))))) (declare (not safe)) - (foldr1 __tmp48886 '() _g1329613327_)))) + (foldr1 __tmp48677 '() _g1329613327_)))) (declare (not safe)) - (cons _g1329713330_ __tmp48885)))) + (cons _g1329713330_ __tmp48676)))) (declare (not safe)) - (cons __tmp48887 __tmp48884)))) + (cons __tmp48678 __tmp48675)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48883 + (cons __tmp48674 _g1329813332_))))) (declare (not safe)) - (foldr2 __tmp48882 + (foldr2 __tmp48673 '() _L13251_ _L13253_))))) (declare (not safe)) - (cons __tmp48888 __tmp48881)))) + (cons __tmp48679 __tmp48672)))) (declare (not safe)) - (cons __tmp48880 '())))) + (cons __tmp48671 '())))) (declare (not safe)) - (foldr1 __tmp48889 __tmp48879 _L13247_)))) + (foldr1 __tmp48680 __tmp48670 _L13247_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48890 - __tmp48878)))) + (cons __tmp48681 + __tmp48669)))) (declare (not safe)) - (cons __tmp48877 '())))) + (cons __tmp48668 '())))) (declare (not safe)) - (cons __tmp48891 __tmp48876)))) + (cons __tmp48682 __tmp48667)))) (declare (not safe)) - (cons _L13250_ __tmp48875)))) + (cons _L13250_ __tmp48666)))) (declare (not safe)) - (cons __tmp48896 __tmp48874)))) + (cons __tmp48687 __tmp48665)))) (declare (not safe)) - (cons __tmp48873 '())))) + (cons __tmp48664 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48897 - __tmp48872)))) + (cons __tmp48688 + __tmp48663)))) (declare (not safe)) - (cons __tmp48901 __tmp48871)))) + (cons __tmp48692 __tmp48662)))) (declare (not safe)) - (cons __tmp48902 __tmp48870)) + (cons __tmp48693 __tmp48661)) (_g1298113052_ _g1298213056_))) _body1304613243_ _fini1303713213_ @@ -10521,31 +10521,31 @@ _L13425_ _L13426_ _L13427_) - (let ((__tmp48912 + (let ((__tmp48703 (gx#datum->syntax '#f 'do)) - (__tmp48906 - (let ((__tmp48907 + (__tmp48697 + (let ((__tmp48698 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48908 - (let ((__tmp48909 - (let ((__tmp48911 + (let ((__tmp48699 + (let ((__tmp48700 + (let ((__tmp48702 (gx#datum->syntax '#f 'not)) - (__tmp48910 + (__tmp48701 (let () (declare (not safe)) (cons _L13426_ '())))) (declare (not safe)) - (cons __tmp48911 __tmp48910)))) + (cons __tmp48702 __tmp48701)))) (declare (not safe)) - (cons __tmp48909 _L13425_)))) + (cons __tmp48700 _L13425_)))) (declare (not safe)) - (cons __tmp48908 _L13423_)))) + (cons __tmp48699 _L13423_)))) (declare (not safe)) - (cons _L13427_ __tmp48907)))) + (cons _L13427_ __tmp48698)))) (declare (not safe)) - (cons __tmp48912 __tmp48906))) + (cons __tmp48703 __tmp48697))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _tl1336513410_ _tl1336813420_ @@ -10558,73 +10558,73 @@ (_g1335213447_ _$stx13349_)))) (define |gerbil/core$$[:0:]#begin0| (lambda (_$stx13451_) - (let* ((___stx4350843509_ _$stx13451_) + (let* ((___stx4332443325_ _$stx13451_) (_g1345613487_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4350843509_)))) - (let ((___kont4351143512_ (lambda (_L13599_) _L13599_)) - (___kont4351343514_ + ___stx4332443325_)))) + (let ((___kont4332743328_ (lambda (_L13599_) _L13599_)) + (___kont4332943330_ (lambda (_L13544_ _L13546_) - (let ((__tmp48927 (gx#datum->syntax '#f 'let)) - (__tmp48913 - (let ((__tmp48924 - (let ((__tmp48926 (gx#datum->syntax '#f '$r)) - (__tmp48925 + (let ((__tmp48718 (gx#datum->syntax '#f 'let)) + (__tmp48704 + (let ((__tmp48715 + (let ((__tmp48717 (gx#datum->syntax '#f '$r)) + (__tmp48716 (let () (declare (not safe)) (cons _L13546_ '())))) (declare (not safe)) - (cons __tmp48926 __tmp48925))) - (__tmp48914 - (let ((__tmp48917 - (let ((__tmp48923 + (cons __tmp48717 __tmp48716))) + (__tmp48705 + (let ((__tmp48708 + (let ((__tmp48714 (gx#datum->syntax '#f '%#expression)) - (__tmp48918 - (let ((__tmp48919 - (let ((__tmp48922 + (__tmp48709 + (let ((__tmp48710 + (let ((__tmp48713 (gx#datum->syntax '#f 'begin)) - (__tmp48920 - (let ((__tmp48921 + (__tmp48711 + (let ((__tmp48712 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1356313566_ _g1356413569_) (let () (declare (not safe)) (cons _g1356313566_ _g1356413569_))))) (declare (not safe)) - (foldr1 __tmp48921 '() _L13544_)))) + (foldr1 __tmp48712 '() _L13544_)))) (declare (not safe)) - (cons __tmp48922 __tmp48920)))) + (cons __tmp48713 __tmp48711)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48919 '())))) + (cons __tmp48710 '())))) (declare (not safe)) - (cons __tmp48923 __tmp48918))) - (__tmp48915 - (let ((__tmp48916 + (cons __tmp48714 __tmp48709))) + (__tmp48706 + (let ((__tmp48707 (gx#datum->syntax '#f '$r))) (declare (not safe)) - (cons __tmp48916 '())))) + (cons __tmp48707 '())))) (declare (not safe)) - (cons __tmp48917 __tmp48915)))) + (cons __tmp48708 __tmp48706)))) (declare (not safe)) - (cons __tmp48924 __tmp48914)))) + (cons __tmp48715 __tmp48705)))) (declare (not safe)) - (cons __tmp48927 __tmp48913))))) - (let ((___match4355143552_ + (cons __tmp48718 __tmp48704))))) + (let ((___match4336743368_ (lambda (_e1346913494_ _hd1346813498_ _tl1346713501_ _e1347213504_ _hd1347113508_ _tl1347013511_ - ___splice4351543516_ + ___splice4333143332_ _target1347313514_ _tl1347513517_) (letrec ((_loop1347613520_ @@ -10648,12 +10648,12 @@ _rest1348013527_))))) (let ((_rest1348113540_ (reverse _rest1348013527_))) - (___kont4351343514_ + (___kont4332943330_ _rest1348113540_ _hd1347113508_)))))) (_loop1347613520_ _target1347313514_ '()))))) - (if (gx#stx-pair? ___stx4350843509_) - (let ((_e1346113579_ (gx#syntax-e ___stx4350843509_))) + (if (gx#stx-pair? ___stx4332443325_) + (let ((_e1346113579_ (gx#syntax-e ___stx4332443325_))) (let ((_tl1345913586_ (let () (declare (not safe)) (##cdr _e1346113579_))) (_hd1346013583_ @@ -10671,9 +10671,9 @@ (declare (not safe)) (##car _e1346413589_)))) (if (gx#stx-null? _tl1346213596_) - (___kont4351143512_ _hd1346313593_) + (___kont4332743328_ _hd1346313593_) (if (gx#stx-pair/null? _tl1346213596_) - (let ((___splice4351543516_ + (let ((___splice4333143332_ (gx#syntax-split-splice _tl1346213596_ '0))) @@ -10681,23 +10681,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4351543516_ + ___splice4333143332_ '1))) (_target1347313514_ (let () (declare (not safe)) (##vector-ref - ___splice4351543516_ + ___splice4333143332_ '0)))) (if (gx#stx-null? _tl1347513517_) - (___match4355143552_ + (___match4336743368_ _e1346113579_ _hd1346013583_ _tl1345913586_ _e1346413589_ _hd1346313593_ _tl1346213596_ - ___splice4351543516_ + ___splice4333143332_ _target1347313514_ _tl1347513517_) (let () @@ -10710,103 +10710,103 @@ (let () (declare (not safe)) (_g1345613487_)))))))) (define |gerbil/core$$[:0:]#rec| (lambda (_$stx13617_) - (let* ((___stx4355443555_ _$stx13617_) + (let* ((___stx4337043371_ _$stx13617_) (_g1362313676_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4355443555_)))) - (let ((___kont4355743558_ + ___stx4337043371_)))) + (let ((___kont4337343374_ (lambda (_L13878_ _L13880_) - (let ((__tmp48933 (gx#datum->syntax '#f 'letrec)) - (__tmp48928 - (let ((__tmp48930 - (let ((__tmp48931 - (let ((__tmp48932 + (let ((__tmp48724 (gx#datum->syntax '#f 'letrec)) + (__tmp48719 + (let ((__tmp48721 + (let ((__tmp48722 + (let ((__tmp48723 (let () (declare (not safe)) (cons _L13878_ '())))) (declare (not safe)) - (cons _L13880_ __tmp48932)))) + (cons _L13880_ __tmp48723)))) (declare (not safe)) - (cons __tmp48931 '()))) - (__tmp48929 + (cons __tmp48722 '()))) + (__tmp48720 (let () (declare (not safe)) (cons _L13880_ '())))) (declare (not safe)) - (cons __tmp48930 __tmp48929)))) + (cons __tmp48721 __tmp48720)))) (declare (not safe)) - (cons __tmp48933 __tmp48928)))) - (___kont4355943560_ + (cons __tmp48724 __tmp48719)))) + (___kont4337543376_ (lambda (_L13822_ _L13824_) - (let ((__tmp48941 (gx#datum->syntax '#f 'letrec-values)) - (__tmp48934 - (let ((__tmp48938 - (let ((__tmp48939 - (let ((__tmp48940 + (let ((__tmp48732 (gx#datum->syntax '#f 'letrec-values)) + (__tmp48725 + (let ((__tmp48729 + (let ((__tmp48730 + (let ((__tmp48731 (let () (declare (not safe)) (cons _L13822_ '())))) (declare (not safe)) - (cons _L13824_ __tmp48940)))) + (cons _L13824_ __tmp48731)))) (declare (not safe)) - (cons __tmp48939 '()))) - (__tmp48935 - (let ((__tmp48936 - (let ((__tmp48937 + (cons __tmp48730 '()))) + (__tmp48726 + (let ((__tmp48727 + (let ((__tmp48728 (gx#datum->syntax '#f 'values))) (declare (not safe)) - (cons __tmp48937 _L13824_)))) + (cons __tmp48728 _L13824_)))) (declare (not safe)) - (cons __tmp48936 '())))) + (cons __tmp48727 '())))) (declare (not safe)) - (cons __tmp48938 __tmp48935)))) + (cons __tmp48729 __tmp48726)))) (declare (not safe)) - (cons __tmp48941 __tmp48934)))) - (___kont4356143562_ + (cons __tmp48732 __tmp48725)))) + (___kont4337743378_ (lambda (_L13743_ _L13745_ _L13746_) - (let ((__tmp48952 (gx#datum->syntax '#f 'letrec)) - (__tmp48942 - (let ((__tmp48944 - (let ((__tmp48945 - (let ((__tmp48946 - (let ((__tmp48947 - (let ((__tmp48951 + (let ((__tmp48743 (gx#datum->syntax '#f 'letrec)) + (__tmp48733 + (let ((__tmp48735 + (let ((__tmp48736 + (let ((__tmp48737 + (let ((__tmp48738 + (let ((__tmp48742 (gx#datum->syntax '#f 'lambda)) - (__tmp48948 - (let ((__tmp48949 + (__tmp48739 + (let ((__tmp48740 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48950 + (let ((__tmp48741 (lambda (_g1376613769_ _g1376713772_) (let () (declare (not safe)) (cons _g1376613769_ _g1376713772_))))) (declare (not safe)) - (foldr1 __tmp48950 '() _L13743_)))) + (foldr1 __tmp48741 '() _L13743_)))) (declare (not safe)) - (cons _L13745_ __tmp48949)))) + (cons _L13745_ __tmp48740)))) (declare (not safe)) - (cons __tmp48951 __tmp48948)))) + (cons __tmp48742 __tmp48739)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48947 '())))) + (cons __tmp48738 '())))) (declare (not safe)) - (cons _L13746_ __tmp48946)))) + (cons _L13746_ __tmp48737)))) (declare (not safe)) - (cons __tmp48945 '()))) - (__tmp48943 + (cons __tmp48736 '()))) + (__tmp48734 (let () (declare (not safe)) (cons _L13746_ '())))) (declare (not safe)) - (cons __tmp48944 __tmp48943)))) + (cons __tmp48735 __tmp48734)))) (declare (not safe)) - (cons __tmp48952 __tmp48942))))) - (let* ((___match4364143642_ + (cons __tmp48743 __tmp48733))))) + (let* ((___match4345743458_ (lambda (_e1365513683_ _hd1365413687_ _tl1365313690_ @@ -10816,7 +10816,7 @@ _e1366113703_ _hd1366013707_ _tl1365913710_ - ___splice4356343564_ + ___splice4337943380_ _target1366213713_ _tl1366413716_) (letrec ((_loop1366513719_ @@ -10844,7 +10844,7 @@ (_L13745_ _tl1365913710_) (_L13746_ _hd1366013707_)) (if (gx#identifier? _L13746_) - (___kont4356143562_ + (___kont4337743378_ _L13743_ _L13745_ _L13746_) @@ -10852,7 +10852,7 @@ (declare (not safe)) (_g1362313676_))))))))) (_loop1366513719_ _target1366213713_ '())))) - (___match4361543616_ + (___match4343143432_ (lambda (_e1364013782_ _hd1363913786_ _tl1363813789_ @@ -10868,9 +10868,9 @@ (let ((_L13822_ _hd1364813816_) (_L13824_ _tl1364413809_)) (if (gx#identifier-list? _L13824_) - (___kont4355943560_ _L13822_ _L13824_) + (___kont4337543376_ _L13822_ _L13824_) (if (gx#stx-pair/null? _tl1364113799_) - (let ((___splice4356343564_ + (let ((___splice4337943380_ (gx#syntax-split-splice _tl1364113799_ '0))) @@ -10878,16 +10878,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4356343564_ + ___splice4337943380_ '1))) (_target1366213713_ (let () (declare (not safe)) (##vector-ref - ___splice4356343564_ + ___splice4337943380_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4364143642_ + (___match4345743458_ _e1364013782_ _hd1363913786_ _tl1363813789_ @@ -10897,7 +10897,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4356343564_ + ___splice4337943380_ _target1366213713_ _tl1366413716_) (let () @@ -10906,7 +10906,7 @@ (let () (declare (not safe)) (_g1362313676_))))))) - (___match4358543586_ + (___match4340143402_ (lambda (_e1362913848_ _hd1362813852_ _tl1362713855_ @@ -10919,7 +10919,7 @@ (let ((_L13878_ _hd1363413872_) (_L13880_ _hd1363113862_)) (if (gx#identifier? _L13880_) - (___kont4355743558_ _L13878_ _L13880_) + (___kont4337343374_ _L13878_ _L13880_) (if (gx#stx-pair? _hd1363113862_) (let ((_e1364613802_ (gx#syntax-e _hd1363113862_))) @@ -10933,9 +10933,9 @@ (##car _e1364613802_)))) (if (gx#identifier? _hd1364513806_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48953_| + |gerbil/core$$[1]#_g48744_| _hd1364513806_) - (___match4361543616_ + (___match4343143432_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -10950,7 +10950,7 @@ _tl1363313875_) (if (gx#stx-pair/null? _tl1363013865_) - (let ((___splice4356343564_ + (let ((___splice4337943380_ (gx#syntax-split-splice _tl1363013865_ '0))) @@ -10958,17 +10958,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4356343564_ + ___splice4337943380_ '1))) (_target1366213713_ (let () (declare (not safe)) (##vector-ref - ___splice4356343564_ + ___splice4337943380_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4364143642_ + (___match4345743458_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -10978,7 +10978,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4356343564_ + ___splice4337943380_ _target1366213713_ _tl1366413716_) (let () @@ -10988,7 +10988,7 @@ (declare (not safe)) (_g1362313676_)))) (if (gx#stx-pair/null? _tl1363013865_) - (let ((___splice4356343564_ + (let ((___splice4337943380_ (gx#syntax-split-splice _tl1363013865_ '0))) @@ -10996,17 +10996,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4356343564_ + ___splice4337943380_ '1))) (_target1366213713_ (let () (declare (not safe)) (##vector-ref - ___splice4356343564_ + ___splice4337943380_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4364143642_ + (___match4345743458_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -11016,7 +11016,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4356343564_ + ___splice4337943380_ _target1366213713_ _tl1366413716_) (let () @@ -11028,8 +11028,8 @@ (let () (declare (not safe)) (_g1362313676_)))))))) - (if (gx#stx-pair? ___stx4355443555_) - (let ((_e1362913848_ (gx#syntax-e ___stx4355443555_))) + (if (gx#stx-pair? ___stx4337043371_) + (let ((_e1362913848_ (gx#syntax-e ___stx4337043371_))) (let ((_tl1362713855_ (let () (declare (not safe)) (##cdr _e1362913848_))) (_hd1362813852_ @@ -11058,7 +11058,7 @@ (declare (not safe)) (##car _e1363513868_)))) (if (gx#stx-null? _tl1363313875_) - (___match4358543586_ + (___match4340143402_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -11082,7 +11082,7 @@ (##car _e1364613802_)))) (if (gx#stx-pair/null? _tl1363013865_) - (let ((___splice4356343564_ + (let ((___splice4337943380_ (gx#syntax-split-splice _tl1363013865_ '0))) @@ -11090,13 +11090,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4356343564_ '1))) + (##vector-ref ___splice4337943380_ '1))) (_target1366213713_ (let () (declare (not safe)) - (##vector-ref ___splice4356343564_ '0)))) + (##vector-ref ___splice4337943380_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4364143642_ + (___match4345743458_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -11106,7 +11106,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4356343564_ + ___splice4337943380_ _target1366213713_ _tl1366413716_) (let () (declare (not safe)) (_g1362313676_))))) @@ -11128,7 +11128,7 @@ (##car _e1364613802_)))) (if (gx#stx-pair/null? _tl1363013865_) - (let ((___splice4356343564_ + (let ((___splice4337943380_ (gx#syntax-split-splice _tl1363013865_ '0))) @@ -11136,17 +11136,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4356343564_ + ___splice4337943380_ '1))) (_target1366213713_ (let () (declare (not safe)) (##vector-ref - ___splice4356343564_ + ___splice4337943380_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4364143642_ + (___match4345743458_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -11156,7 +11156,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4356343564_ + ___splice4337943380_ _target1366213713_ _tl1366413716_) (let () @@ -11174,21 +11174,21 @@ (lambda (_stx13900_) (letrec ((_let-bind?13903_ (lambda (_x14826_) - (let* ((___stx4364443645_ _x14826_) + (let* ((___stx4346043461_ _x14826_) (_g1483114850_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4364443645_)))) - (let ((___kont4364743648_ + ___stx4346043461_)))) + (let ((___kont4346343464_ (lambda (_L14918_ _L14920_) (_let-head?13906_ _L14920_))) - (___kont4364943650_ (lambda (_L14878_) '#t)) - (___kont4365143652_ (lambda () '#f))) - (if (gx#stx-pair? ___stx4364443645_) + (___kont4346543466_ (lambda (_L14878_) '#t)) + (___kont4346743468_ (lambda () '#f))) + (if (gx#stx-pair? ___stx4346043461_) (let ((_e1483714898_ - (gx#syntax-e ___stx4364443645_))) + (gx#syntax-e ___stx4346043461_))) (let ((_tl1483514905_ (let () (declare (not safe)) @@ -11209,37 +11209,37 @@ (declare (not safe)) (##car _e1484014908_)))) (if (gx#stx-null? _tl1483814915_) - (___kont4364743648_ + (___kont4346343464_ _hd1483914912_ _hd1483614902_) - (___kont4365143652_)))) + (___kont4346743468_)))) (if (gx#stx-null? _tl1483514905_) - (___kont4364943650_ _hd1483614902_) - (___kont4365143652_))))) - (___kont4365143652_)))))) + (___kont4346543466_ _hd1483614902_) + (___kont4346743468_))))) + (___kont4346743468_)))))) (_let-bind13905_ (lambda (_x14728_) - (let* ((___stx4367843679_ _x14728_) + (let* ((___stx4349443495_ _x14728_) (_g1473214751_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4367843679_)))) - (let ((___kont4368143682_ + ___stx4349443495_)))) + (let ((___kont4349743498_ (lambda (_L14807_ _L14809_) _x14728_)) - (___kont4368343684_ + (___kont4349943500_ (lambda (_L14768_) - (let ((__tmp48955 (gx#datum->syntax '#f '_)) - (__tmp48954 + (let ((__tmp48746 (gx#datum->syntax '#f '_)) + (__tmp48745 (let () (declare (not safe)) (cons _L14768_ '())))) (declare (not safe)) - (cons __tmp48955 __tmp48954))))) - (if (gx#stx-pair? ___stx4367843679_) + (cons __tmp48746 __tmp48745))))) + (if (gx#stx-pair? ___stx4349443495_) (let ((_e1473814787_ - (gx#syntax-e ___stx4367843679_))) + (gx#syntax-e ___stx4349443495_))) (let ((_tl1473614794_ (let () (declare (not safe)) @@ -11260,35 +11260,35 @@ (declare (not safe)) (##car _e1474114797_)))) (if (gx#stx-null? _tl1473914804_) - (___kont4368143682_ + (___kont4349743498_ _hd1474014801_ _hd1473714791_) (let () (declare (not safe)) (_g1473214751_))))) (if (gx#stx-null? _tl1473614794_) - (___kont4368343684_ _hd1473714791_) + (___kont4349943500_ _hd1473714791_) (let () (declare (not safe)) (_g1473214751_)))))) (let () (declare (not safe)) (_g1473214751_))))))) (_let-head?13906_ (lambda (_x14668_) - (let* ((___stx4371043711_ _x14668_) + (let* ((___stx4352643527_ _x14668_) (_g1467214683_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4371043711_)))) - (let ((___kont4371343714_ + ___stx4352643527_)))) + (let ((___kont4352943530_ (lambda (_L14711_) (gx#stx-andmap gx#identifier? _L14711_))) - (___kont4371543716_ + (___kont4353143532_ (lambda () (gx#identifier? _x14668_)))) - (if (gx#stx-pair? ___stx4371043711_) + (if (gx#stx-pair? ___stx4352643527_) (let ((_e1467714701_ - (gx#syntax-e ___stx4371043711_))) + (gx#syntax-e ___stx4352643527_))) (let ((_tl1467514708_ (let () (declare (not safe)) @@ -11299,26 +11299,26 @@ (##car _e1467714701_)))) (if (gx#identifier? _hd1467614705_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48956_| + |gerbil/core$$[1]#_g48747_| _hd1467614705_) - (___kont4371343714_ _tl1467514708_) - (___kont4371543716_)) - (___kont4371543716_)))) - (___kont4371543716_)))))) + (___kont4352943530_ _tl1467514708_) + (___kont4353143532_)) + (___kont4353143532_)))) + (___kont4353143532_)))))) (_let-head13907_ (lambda (_x14608_) - (let* ((___stx4373043731_ _x14608_) + (let* ((___stx4354643547_ _x14608_) (_g1461214623_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4373043731_)))) - (let ((___kont4373343734_ (lambda (_L14651_) _L14651_)) - (___kont4373543736_ (lambda () (list _x14608_)))) - (if (gx#stx-pair? ___stx4373043731_) + ___stx4354643547_)))) + (let ((___kont4354943550_ (lambda (_L14651_) _L14651_)) + (___kont4355143552_ (lambda () (list _x14608_)))) + (if (gx#stx-pair? ___stx4354643547_) (let ((_e1461714641_ - (gx#syntax-e ___stx4373043731_))) + (gx#syntax-e ___stx4354643547_))) (let ((_tl1461514648_ (let () (declare (not safe)) @@ -11329,47 +11329,47 @@ (##car _e1461714641_)))) (if (gx#identifier? _hd1461614645_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48957_| + |gerbil/core$$[1]#_g48748_| _hd1461614645_) - (___kont4373343734_ _tl1461514648_) - (___kont4373543736_)) - (___kont4373543736_)))) - (___kont4373543736_))))))) - (let* ((___stx4375043751_ _stx13900_) + (___kont4354943550_ _tl1461514648_) + (___kont4355143552_)) + (___kont4355143552_)))) + (___kont4355143552_))))))) + (let* ((___stx4356643567_ _stx13900_) (_g1391113983_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4375043751_)))) - (let ((___kont4375343754_ + ___stx4356643567_)))) + (let ((___kont4356943570_ (lambda (_L14581_ _L14583_ _L14584_ _L14585_) - (let ((__tmp48958 - (let ((__tmp48959 - (let ((__tmp48960 - (let ((__tmp48961 + (let ((__tmp48749 + (let ((__tmp48750 + (let ((__tmp48751 + (let ((__tmp48752 (let () (declare (not safe)) (cons _L14583_ '())))) (declare (not safe)) - (cons _L14584_ __tmp48961)))) + (cons _L14584_ __tmp48752)))) (declare (not safe)) - (cons __tmp48960 '())))) + (cons __tmp48751 '())))) (declare (not safe)) - (cons __tmp48959 _L14581_)))) + (cons __tmp48750 _L14581_)))) (declare (not safe)) - (cons _L14585_ __tmp48958)))) - (___kont4375543756_ + (cons _L14585_ __tmp48749)))) + (___kont4357143572_ (lambda (_L14503_ _L14505_) - (let ((__tmp48969 (gx#datum->syntax '#f 'and)) - (__tmp48962 - (let ((__tmp48963 - (let ((__tmp48964 - (let ((__tmp48968 + (let ((__tmp48760 (gx#datum->syntax '#f 'and)) + (__tmp48753 + (let ((__tmp48754 + (let ((__tmp48755 + (let ((__tmp48759 (gx#datum->syntax '#f 'let)) - (__tmp48965 - (let ((__tmp48966 - (let ((__tmp48967 + (__tmp48756 + (let ((__tmp48757 + (let ((__tmp48758 (lambda (_g1452514528_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1452614531_) @@ -11377,19 +11377,19 @@ (declare (not safe)) (cons _g1452514528_ _g1452614531_))))) (declare (not safe)) - (foldr1 __tmp48967 '() _L14503_)))) + (foldr1 __tmp48758 '() _L14503_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp48966)))) + (cons '() __tmp48757)))) (declare (not safe)) - (cons __tmp48968 __tmp48965)))) + (cons __tmp48759 __tmp48756)))) (declare (not safe)) - (cons __tmp48964 '())))) + (cons __tmp48755 '())))) (declare (not safe)) - (cons _L14505_ __tmp48963)))) + (cons _L14505_ __tmp48754)))) (declare (not safe)) - (cons __tmp48969 __tmp48962)))) - (___kont4375943760_ + (cons __tmp48760 __tmp48753)))) + (___kont4357543576_ (lambda (_L14070_ _L14072_) (let* ((_g1410314129_ (lambda (_g1410414125_) @@ -11400,30 +11400,30 @@ (_g1410214414_ (lambda (_g1410414133_) (if (gx#stx-pair/null? _g1410414133_) - (let ((_g48970_ + (let ((_g48761_ (gx#syntax-split-splice _g1410414133_ '0))) (begin - (let ((_g48971_ + (let ((_g48762_ (let () (declare (not safe)) - (if (##values? _g48970_) - (##vector-length _g48970_) + (if (##values? _g48761_) + (##vector-length _g48761_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48971_ 2))) + (##fx= _g48762_ 2))) (error "Context expects 2 values" - _g48971_))) + _g48762_))) (let ((_target1410714136_ (let () (declare (not safe)) - (##vector-ref _g48970_ 0))) + (##vector-ref _g48761_ 0))) (_tl1410914139_ (let () (declare (not safe)) - (##vector-ref _g48970_ 1)))) + (##vector-ref _g48761_ 1)))) (if (gx#stx-null? _tl1410914139_) (letrec ((_loop1411014142_ (lambda (_hd1410814146_ @@ -11491,34 +11491,34 @@ (_g1420714402_ (lambda (_g1420914229_) (if (gx#stx-pair/null? _g1420914229_) - (let ((_g48972_ + (let ((_g48763_ (gx#syntax-split-splice _g1420914229_ '0))) (begin - (let ((_g48973_ + (let ((_g48764_ (let () (declare (not safe)) - (if (##values? _g48972_) + (if (##values? _g48763_) (##vector-length - _g48972_) + _g48763_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48973_ 2))) + (##fx= _g48764_ 2))) (error "Context expects 2 values" - _g48973_))) + _g48764_))) (let ((_target1421114232_ (let () (declare (not safe)) (##vector-ref - _g48972_ + _g48763_ 0))) (_tl1421314235_ (let () (declare (not safe)) (##vector-ref - _g48972_ + _g48763_ 1)))) (if (gx#stx-null? _tl1421314235_) @@ -11554,36 +11554,36 @@ (lambda (_g1428014300_) (if (gx#stx-pair/null? _g1428014300_) - (let ((_g48974_ + (let ((_g48765_ (gx#syntax-split-splice _g1428014300_ '0))) (begin - (let ((_g48975_ + (let ((_g48766_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48974_) - (##vector-length _g48974_) + _g48765_) + (##vector-length _g48765_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48975_ 2))) - (error "Context expects 2 values" _g48975_))) + (if (not (let () (declare (not safe)) (##fx= _g48766_ 2))) + (error "Context expects 2 values" _g48766_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1428214303_ (let () (declare (not safe)) (##vector-ref - _g48974_ + _g48765_ 0))) (_tl1428414306_ (let () (declare (not safe)) (##vector-ref - _g48974_ + _g48765_ 1)))) (if (gx#stx-null? _tl1428414306_) @@ -11612,99 +11612,99 @@ ((lambda (_L14333_) (let () (let () - (let ((__tmp48997 + (let ((__tmp48788 (gx#datum->syntax '#f 'let-values)) - (__tmp48976 - (let ((__tmp48992 + (__tmp48767 + (let ((__tmp48783 (begin (gx#syntax-check-splice-targets _L14190_ _L14262_) - (let ((__tmp48993 + (let ((__tmp48784 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1435814362_ _g1435914365_ _g1436014367_) - (let ((__tmp48994 - (let ((__tmp48996 + (let ((__tmp48785 + (let ((__tmp48787 (let () (declare (not safe)) (cons _g1435914365_ '()))) - (__tmp48995 + (__tmp48786 (let () (declare (not safe)) (cons _g1435814362_ '())))) (declare (not safe)) - (cons __tmp48996 __tmp48995)))) + (cons __tmp48787 __tmp48786)))) (declare (not safe)) - (cons __tmp48994 _g1436014367_))))) + (cons __tmp48785 _g1436014367_))))) (declare (not safe)) - (foldr2 __tmp48993 '() _L14190_ _L14262_)))) - (__tmp48977 - (let ((__tmp48978 - (let ((__tmp48991 (gx#datum->syntax '#f 'and)) - (__tmp48979 - (let ((__tmp48990 + (foldr2 __tmp48784 '() _L14190_ _L14262_)))) + (__tmp48768 + (let ((__tmp48769 + (let ((__tmp48782 (gx#datum->syntax '#f 'and)) + (__tmp48770 + (let ((__tmp48781 (lambda (_g1435114370_ _g1435214373_) (let () (declare (not safe)) (cons _g1435114370_ _g1435214373_)))) - (__tmp48980 - (let ((__tmp48981 - (let ((__tmp48989 + (__tmp48771 + (let ((__tmp48772 + (let ((__tmp48780 (gx#datum->syntax '#f 'let-values)) - (__tmp48982 - (let ((__tmp48985 + (__tmp48773 + (let ((__tmp48776 (begin (gx#syntax-check-splice-targets _L14262_ _L14333_) - (let ((__tmp48986 + (let ((__tmp48777 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1435514376_ _g1435614379_ _g1435714381_) - (let ((__tmp48987 - (let ((__tmp48988 + (let ((__tmp48778 + (let ((__tmp48779 (let () (declare (not safe)) (cons _g1435514376_ '())))) (declare (not safe)) - (cons _g1435614379_ __tmp48988)))) + (cons _g1435614379_ __tmp48779)))) (declare (not safe)) - (cons __tmp48987 _g1435714381_))))) + (cons __tmp48778 _g1435714381_))))) (declare (not safe)) - (foldr2 __tmp48986 '() _L14262_ _L14333_)))) - (__tmp48983 - (let ((__tmp48984 + (foldr2 __tmp48777 '() _L14262_ _L14333_)))) + (__tmp48774 + (let ((__tmp48775 (lambda (_g1435314384_ _g1435414387_) (let () (declare (not safe)) (cons _g1435314384_ _g1435414387_))))) (declare (not safe)) - (foldr1 __tmp48984 '() _L14070_)))) + (foldr1 __tmp48775 '() _L14070_)))) (declare (not safe)) - (cons __tmp48985 __tmp48983)))) + (cons __tmp48776 __tmp48774)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48989 __tmp48982)))) + (cons __tmp48780 __tmp48773)))) (declare (not safe)) - (cons __tmp48981 '())))) + (cons __tmp48772 '())))) (declare (not safe)) - (foldr1 __tmp48990 __tmp48980 _L14262_)))) + (foldr1 __tmp48781 __tmp48771 _L14262_)))) (declare (not safe)) - (cons __tmp48991 __tmp48979)))) + (cons __tmp48782 __tmp48770)))) (declare (not safe)) - (cons __tmp48978 '())))) + (cons __tmp48769 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48992 - __tmp48977)))) + (cons __tmp48783 + __tmp48768)))) (declare (not safe)) - (cons __tmp48997 __tmp48976))))) + (cons __tmp48788 __tmp48767))))) _hd-bind1429014329_)))))) (_loop1428514309_ _target1428214303_ '())) (_g1427914296_ _g1428014300_))))) @@ -11714,7 +11714,7 @@ (_g1427814390_ (gx#stx-map _let-head13907_ - (let ((__tmp48998 + (let ((__tmp48789 (lambda (_g1439314396_ _g1439414399_) (let () @@ -11722,7 +11722,7 @@ (cons _g1439314396_ _g1439414399_))))) (declare (not safe)) - (foldr1 __tmp48998 '() _L14192_))))))) + (foldr1 __tmp48789 '() _L14192_))))))) _$e1421914258_)))))) (_loop1421414238_ _target1421114232_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11731,14 +11731,14 @@ (_g1420814225_ _g1420914229_))))) (_g1420714402_ (gx#gentemps - (let ((__tmp48999 + (let ((__tmp48790 (lambda (_g1440514408_ _g1440614411_) (let () (declare (not safe)) (cons _g1440514408_ _g1440614411_))))) (declare (not safe)) - (foldr1 __tmp48999 '() _L14192_))))))) + (foldr1 __tmp48790 '() _L14192_))))))) _e1411614184_ _hd1411714187_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11751,21 +11751,21 @@ (_g1410214414_ (gx#stx-map _let-bind13905_ - (let ((__tmp49000 + (let ((__tmp48791 (lambda (_g1441714420_ _g1441814423_) (let () (declare (not safe)) (cons _g1441714420_ _g1441814423_))))) (declare (not safe)) - (foldr1 __tmp49000 '() _L14072_)))))))) - (let* ((___match4384743848_ + (foldr1 __tmp48791 '() _L14072_)))))))) + (let* ((___match4366343664_ (lambda (_e1395613990_ _hd1395513994_ _tl1395413997_ _e1395914000_ _hd1395814004_ _tl1395714007_ - ___splice4376143762_ + ___splice4357743578_ _target1396014010_ _tl1396214013_) (letrec ((_loop1396314016_ @@ -11791,7 +11791,7 @@ (reverse _bind1396714023_))) (if (gx#stx-pair/null? _tl1395714007_) - (let ((___splice4376343764_ + (let ((___splice4357943580_ (gx#syntax-split-splice _tl1395714007_ '0))) @@ -11799,13 +11799,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4376343764_ + ___splice4357943580_ '1))) (_target1396914040_ (let () (declare (not safe)) (##vector-ref - ___splice4376343764_ + ___splice4357943580_ '0)))) (if (gx#stx-null? _tl1397114043_) @@ -11836,7 +11836,7 @@ (_L14072_ _bind1396814036_)) (if (gx#stx-andmap _let-bind?13903_ - (let ((__tmp49001 + (let ((__tmp48792 (lambda (_g1409414097_ _g1409514100_) (let () @@ -11844,8 +11844,8 @@ (cons _g1409414097_ _g1409514100_))))) (declare (not safe)) - (foldr1 __tmp49001 '() _L14072_))) - (___kont4375943760_ _L14070_ _L14072_) + (foldr1 __tmp48792 '() _L14072_))) + (___kont4357543576_ _L14070_ _L14072_) (let () (declare (not safe)) (_g1391113983_))))))))) @@ -11856,7 +11856,7 @@ (declare (not safe)) (_g1391113983_)))))))) (_loop1396314016_ _target1396014010_ '())))) - (___match4382743828_ + (___match4364343644_ (lambda (_e1393314433_ _hd1393214437_ _tl1393114440_ @@ -11869,7 +11869,7 @@ _e1394214463_ _hd1394114467_ _tl1394014470_ - ___splice4375743758_ + ___splice4357343574_ _target1394314473_ _tl1394514476_) (letrec ((_loop1394614479_ @@ -11893,11 +11893,11 @@ _body1395014486_))))) (let ((_body1395114499_ (reverse _body1395014486_))) - (___kont4375543756_ + (___kont4357143572_ _body1395114499_ _hd1394114467_)))))) (_loop1394614479_ _target1394314473_ '())))) - (___match4379143792_ + (___match4360743608_ (lambda (_e1391914541_ _hd1391814545_ _tl1391714548_ @@ -11915,7 +11915,7 @@ (_L14584_ _hd1392414565_) (_L14585_ _hd1391814545_)) (if (_let-head?13906_ _L14584_) - (___kont4375343754_ + (___kont4356943570_ _L14581_ _L14583_ _L14584_ @@ -11932,7 +11932,7 @@ (declare (not safe)) (##car _e1394214463_)))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4376143762_ + (let ((___splice4357743578_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -11940,23 +11940,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4376143762_ + ___splice4357743578_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4376143762_ + ___splice4357743578_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384743848_ + (___match4366343664_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4376143762_ + ___splice4357743578_ _target1396014010_ _tl1396214013_) (let () @@ -11966,7 +11966,7 @@ (declare (not safe)) (_g1391113983_))))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4376143762_ + (let ((___splice4357743578_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -11974,23 +11974,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4376143762_ + ___splice4357743578_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4376143762_ + ___splice4357743578_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384743848_ + (___match4366343664_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4376143762_ + ___splice4357743578_ _target1396014010_ _tl1396214013_) (let () @@ -11999,8 +11999,8 @@ (let () (declare (not safe)) (_g1391113983_))))))))) - (if (gx#stx-pair? ___stx4375043751_) - (let ((_e1391914541_ (gx#syntax-e ___stx4375043751_))) + (if (gx#stx-pair? ___stx4356643567_) + (let ((_e1391914541_ (gx#syntax-e ___stx4356643567_))) (let ((_tl1391714548_ (let () (declare (not safe)) @@ -12044,7 +12044,7 @@ (##car _e1392814571_)))) (if (gx#stx-null? _tl1392614578_) - (___match4379143792_ + (___match4360743608_ _e1391914541_ _hd1391814545_ _tl1391714548_ @@ -12068,25 +12068,25 @@ (_hd1394114467_ (let () (declare (not safe)) (##car _e1394214463_)))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4376143762_ + (let ((___splice4357743578_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4376143762_ '1))) + (##vector-ref ___splice4357743578_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4376143762_ '0)))) + (##vector-ref ___splice4357743578_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384743848_ + (___match4366343664_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4376143762_ + ___splice4357743578_ _target1396014010_ _tl1396214013_) (let () @@ -12094,25 +12094,25 @@ (_g1391113983_))))) (let () (declare (not safe)) (_g1391113983_))))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4376143762_ + (let ((___splice4357743578_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4376143762_ '1))) + (##vector-ref ___splice4357743578_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4376143762_ '0)))) + (##vector-ref ___splice4357743578_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384743848_ + (___match4366343664_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4376143762_ + ___splice4357743578_ _target1396014010_ _tl1396214013_) (let () (declare (not safe)) (_g1391113983_))))) @@ -12137,18 +12137,18 @@ (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _tl1392014558_) - (let ((___splice4375743758_ + (let ((___splice4357343574_ (gx#syntax-split-splice _tl1392014558_ '0))) (let ((_tl1394514476_ (let () (declare (not safe)) - (##vector-ref ___splice4375743758_ '1))) + (##vector-ref ___splice4357343574_ '1))) (_target1394314473_ (let () (declare (not safe)) - (##vector-ref ___splice4375743758_ '0)))) + (##vector-ref ___splice4357343574_ '0)))) (if (gx#stx-null? _tl1394514476_) - (___match4382743828_ + (___match4364343644_ _e1391914541_ _hd1391814545_ _tl1391714548_ @@ -12161,11 +12161,11 @@ _e1394214463_ _hd1394114467_ _tl1394014470_ - ___splice4375743758_ + ___splice4357343574_ _target1394314473_ _tl1394514476_) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4376143762_ + (let ((___splice4357743578_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -12173,23 +12173,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4376143762_ + ___splice4357743578_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4376143762_ + ___splice4357743578_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384743848_ + (___match4366343664_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4376143762_ + ___splice4357743578_ _target1396014010_ _tl1396214013_) (let () @@ -12199,27 +12199,27 @@ (declare (not safe)) (_g1391113983_)))))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4376143762_ + (let ((___splice4357743578_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4376143762_ '1))) + (##vector-ref ___splice4357743578_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4376143762_ + ___splice4357743578_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384743848_ + (___match4366343664_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4376143762_ + ___splice4357743578_ _target1396014010_ _tl1396214013_) (let () @@ -12227,25 +12227,25 @@ (_g1391113983_))))) (let () (declare (not safe)) (_g1391113983_)))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4376143762_ + (let ((___splice4357743578_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4376143762_ '1))) + (##vector-ref ___splice4357743578_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4376143762_ '0)))) + (##vector-ref ___splice4357743578_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384743848_ + (___match4366343664_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4376143762_ + ___splice4357743578_ _target1396014010_ _tl1396214013_) (let () @@ -12253,25 +12253,25 @@ (_g1391113983_))))) (let () (declare (not safe)) (_g1391113983_)))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4376143762_ + (let ((___splice4357743578_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4376143762_ '1))) + (##vector-ref ___splice4357743578_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4376143762_ '0)))) + (##vector-ref ___splice4357743578_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384743848_ + (___match4366343664_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4376143762_ + ___splice4357743578_ _target1396014010_ _tl1396214013_) (let () (declare (not safe)) (_g1391113983_))))) @@ -12279,7 +12279,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4376143762_ + (let ((___splice4357743578_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -12288,20 +12288,20 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4376143762_ '1))) + (##vector-ref ___splice4357743578_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4376143762_ '0)))) + (##vector-ref ___splice4357743578_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384743848_ + (___match4366343664_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4376143762_ + ___splice4357743578_ _target1396014010_ _tl1396214013_) (let () (declare (not safe)) (_g1391113983_))))) @@ -12310,7 +12310,7 @@ (declare (not safe)) (_g1391113983_))))))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4376143762_ + (let ((___splice4357743578_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -12318,23 +12318,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4376143762_ + ___splice4357743578_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4376143762_ + ___splice4357743578_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384743848_ + (___match4366343664_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4376143762_ + ___splice4357743578_ _target1396014010_ _tl1396214013_) (let () @@ -12347,44 +12347,44 @@ (let () (declare (not safe)) (_g1391113983_))))))))) (define |gerbil/core$$[:0:]#alet*| (lambda (_$stx14943_) - (let* ((___stx4385043851_ _$stx14943_) + (let* ((___stx4366643667_ _$stx14943_) (_g1494915000_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4385043851_)))) - (let ((___kont4385343854_ (lambda () '#t)) - (___kont4385543856_ + ___stx4366643667_)))) + (let ((___kont4366943670_ (lambda () '#t)) + (___kont4367143672_ (lambda (_L15158_) - (let ((__tmp49005 (gx#datum->syntax '#f 'let)) - (__tmp49002 - (let ((__tmp49003 - (let ((__tmp49004 + (let ((__tmp48796 (gx#datum->syntax '#f 'let)) + (__tmp48793 + (let ((__tmp48794 + (let ((__tmp48795 (lambda (_g1517415177_ _g1517515180_) (let () (declare (not safe)) (cons _g1517415177_ _g1517515180_))))) (declare (not safe)) - (foldr1 __tmp49004 '() _L15158_)))) + (foldr1 __tmp48795 '() _L15158_)))) (declare (not safe)) - (cons '() __tmp49003)))) + (cons '() __tmp48794)))) (declare (not safe)) - (cons __tmp49005 __tmp49002)))) - (___kont4385943860_ + (cons __tmp48796 __tmp48793)))) + (___kont4367543676_ (lambda (_L15067_ _L15069_ _L15070_ _L15071_) - (let ((__tmp49013 (gx#datum->syntax '#f 'alet)) - (__tmp49006 - (let ((__tmp49012 + (let ((__tmp48804 (gx#datum->syntax '#f 'alet)) + (__tmp48797 + (let ((__tmp48803 (let () (declare (not safe)) (cons _L15070_ '()))) - (__tmp49007 - (let ((__tmp49008 - (let ((__tmp49009 - (let ((__tmp49010 - (let ((__tmp49011 + (__tmp48798 + (let ((__tmp48799 + (let ((__tmp48800 + (let ((__tmp48801 + (let ((__tmp48802 (lambda (_g1509215095_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1509315098_) @@ -12392,19 +12392,19 @@ (declare (not safe)) (cons _g1509215095_ _g1509315098_))))) (declare (not safe)) - (foldr1 __tmp49011 '() _L15067_)))) + (foldr1 __tmp48802 '() _L15067_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L15069_ __tmp49010)))) + (cons _L15069_ __tmp48801)))) (declare (not safe)) - (cons _L15071_ __tmp49009)))) + (cons _L15071_ __tmp48800)))) (declare (not safe)) - (cons __tmp49008 '())))) + (cons __tmp48799 '())))) (declare (not safe)) - (cons __tmp49012 __tmp49007)))) + (cons __tmp48803 __tmp48798)))) (declare (not safe)) - (cons __tmp49013 __tmp49006))))) - (let* ((___match4392743928_ + (cons __tmp48804 __tmp48797))))) + (let* ((___match4374343744_ (lambda (_e1497915007_ _hd1497815011_ _tl1497715014_ @@ -12414,7 +12414,7 @@ _e1498515027_ _hd1498415031_ _tl1498315034_ - ___splice4386143862_ + ___splice4367743678_ _target1498615037_ _tl1498815040_) (letrec ((_loop1498915043_ @@ -12438,20 +12438,20 @@ _body1499315050_))))) (let ((_body1499415063_ (reverse _body1499315050_))) - (___kont4385943860_ + (___kont4367543676_ _body1499415063_ _tl1498315034_ _hd1498415031_ _hd1497815011_)))))) (_loop1498915043_ _target1498615037_ '())))) - (___match4390143902_ + (___match4371743718_ (lambda (_e1496015108_ _hd1495915112_ _tl1495815115_ _e1496315118_ _hd1496215122_ _tl1496115125_ - ___splice4385743858_ + ___splice4367343674_ _target1496415128_ _tl1496615131_) (letrec ((_loop1496715134_ @@ -12475,11 +12475,11 @@ _body1497115141_))))) (let ((_body1497215154_ (reverse _body1497115141_))) - (___kont4385543856_ + (___kont4367143672_ _body1497215154_)))))) (_loop1496715134_ _target1496415128_ '()))))) - (if (gx#stx-pair? ___stx4385043851_) - (let ((_e1495315190_ (gx#syntax-e ___stx4385043851_))) + (if (gx#stx-pair? ___stx4366643667_) + (let ((_e1495315190_ (gx#syntax-e ___stx4366643667_))) (let ((_tl1495115197_ (let () (declare (not safe)) (##cdr _e1495315190_))) (_hd1495215194_ @@ -12498,9 +12498,9 @@ (##car _e1495615200_)))) (if (gx#stx-null? _hd1495515204_) (if (gx#stx-null? _tl1495415207_) - (___kont4385343854_) + (___kont4366943670_) (if (gx#stx-pair/null? _tl1495415207_) - (let ((___splice4385743858_ + (let ((___splice4367343674_ (gx#syntax-split-splice _tl1495415207_ '0))) @@ -12508,23 +12508,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4385743858_ + ___splice4367343674_ '1))) (_target1496415128_ (let () (declare (not safe)) (##vector-ref - ___splice4385743858_ + ___splice4367343674_ '0)))) (if (gx#stx-null? _tl1496615131_) - (___match4390143902_ + (___match4371743718_ _e1495315190_ _hd1495215194_ _tl1495115197_ _e1495615200_ _hd1495515204_ _tl1495415207_ - ___splice4385743858_ + ___splice4367343674_ _target1496415128_ _tl1496615131_) (let () @@ -12546,7 +12546,7 @@ (##car _e1498515027_)))) (if (gx#stx-pair/null? _tl1495415207_) - (let ((___splice4386143862_ + (let ((___splice4367743678_ (gx#syntax-split-splice _tl1495415207_ '0))) @@ -12554,17 +12554,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4386143862_ + ___splice4367743678_ '1))) (_target1498615037_ (let () (declare (not safe)) (##vector-ref - ___splice4386143862_ + ___splice4367743678_ '0)))) (if (gx#stx-null? _tl1498815040_) - (___match4392743928_ + (___match4374343744_ _e1495315190_ _hd1495215194_ _tl1495115197_ @@ -12574,7 +12574,7 @@ _e1498515027_ _hd1498415031_ _tl1498315034_ - ___splice4386143862_ + ___splice4367743678_ _target1498615037_ _tl1498815040_) (let () @@ -12590,73 +12590,73 @@ (let () (declare (not safe)) (_g1494915000_)))))))) (define |gerbil/core$$[:0:]#@list| (lambda (_$stx15220_) - (let* ((___stx4393043931_ _$stx15220_) + (let* ((___stx4374643747_ _$stx15220_) (_g1523115309_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4393043931_)))) - (let ((___kont4393343934_ + ___stx4374643747_)))) + (let ((___kont4374943750_ (lambda () - (let ((__tmp49015 (gx#datum->syntax '#f 'quote)) - (__tmp49014 + (let ((__tmp48806 (gx#datum->syntax '#f 'quote)) + (__tmp48805 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp49015 __tmp49014)))) - (___kont4393543936_ + (cons __tmp48806 __tmp48805)))) + (___kont4375143752_ (lambda (_L15640_) - (let ((__tmp49017 (gx#datum->syntax '#f 'quote)) - (__tmp49016 + (let ((__tmp48808 (gx#datum->syntax '#f 'quote)) + (__tmp48807 (let () (declare (not safe)) (cons _L15640_ '())))) (declare (not safe)) - (cons __tmp49017 __tmp49016)))) - (___kont4393743938_ + (cons __tmp48808 __tmp48807)))) + (___kont4375343754_ (lambda (_L15588_) - (let ((__tmp49019 (gx#datum->syntax '#f 'quasiquote)) - (__tmp49018 + (let ((__tmp48810 (gx#datum->syntax '#f 'quasiquote)) + (__tmp48809 (let () (declare (not safe)) (cons _L15588_ '())))) (declare (not safe)) - (cons __tmp49019 __tmp49018)))) - (___kont4393943940_ (lambda (_L15535_) _L15535_)) - (___kont4394143942_ (lambda (_L15477_ _L15479_) _L15479_)) - (___kont4394343944_ + (cons __tmp48810 __tmp48809)))) + (___kont4375543756_ (lambda (_L15535_) _L15535_)) + (___kont4375743758_ (lambda (_L15477_ _L15479_) _L15479_)) + (___kont4375943760_ (lambda (_L15419_ _L15421_ _L15422_ _L15423_) - (let ((__tmp49025 (gx#datum->syntax '#f 'foldr)) - (__tmp49020 - (let ((__tmp49024 (gx#datum->syntax '#f 'cons)) - (__tmp49021 - (let ((__tmp49023 + (let ((__tmp48816 (gx#datum->syntax '#f 'foldr)) + (__tmp48811 + (let ((__tmp48815 (gx#datum->syntax '#f 'cons)) + (__tmp48812 + (let ((__tmp48814 (let () (declare (not safe)) (cons _L15423_ _L15419_))) - (__tmp49022 + (__tmp48813 (let () (declare (not safe)) (cons _L15422_ '())))) (declare (not safe)) - (cons __tmp49023 __tmp49022)))) + (cons __tmp48814 __tmp48813)))) (declare (not safe)) - (cons __tmp49024 __tmp49021)))) + (cons __tmp48815 __tmp48812)))) (declare (not safe)) - (cons __tmp49025 __tmp49020)))) - (___kont4394543946_ + (cons __tmp48816 __tmp48811)))) + (___kont4376143762_ (lambda (_L15365_ _L15367_ _L15368_) - (let ((__tmp49029 (gx#datum->syntax '#f 'cons)) - (__tmp49026 - (let ((__tmp49027 - (let ((__tmp49028 + (let ((__tmp48820 (gx#datum->syntax '#f 'cons)) + (__tmp48817 + (let ((__tmp48818 + (let ((__tmp48819 (let () (declare (not safe)) (cons _L15368_ _L15365_)))) (declare (not safe)) - (cons __tmp49028 '())))) + (cons __tmp48819 '())))) (declare (not safe)) - (cons _L15367_ __tmp49027)))) + (cons _L15367_ __tmp48818)))) (declare (not safe)) - (cons __tmp49029 __tmp49026)))) - (___kont4394743948_ (lambda (_L15326_) _L15326_))) - (let* ((___match4406944070_ + (cons __tmp48820 __tmp48817)))) + (___kont4376343764_ (lambda (_L15326_) _L15326_))) + (let* ((___match4388543886_ (lambda (_e1528415389_ _hd1528315393_ _tl1528215396_ @@ -12671,16 +12671,16 @@ (_L15422_ _hd1528615403_) (_L15423_ _hd1528315393_)) (if (gx#ellipsis? _L15421_) - (___kont4394343944_ + (___kont4375943760_ _L15419_ _L15421_ _L15422_ _L15423_) - (___kont4394543946_ + (___kont4376143762_ _tl1528515406_ _hd1528615403_ _hd1528315393_))))) - (___match4405144052_ + (___match4386743868_ (lambda (_e1527115447_ _hd1527015451_ _tl1526915454_ @@ -12693,8 +12693,8 @@ (let ((_L15477_ _hd1527615471_) (_L15479_ _hd1527315461_)) (if (gx#ellipsis? _L15477_) - (___kont4394143942_ _L15477_ _L15479_) - (___match4406944070_ + (___kont4375743758_ _L15477_ _L15479_) + (___match4388543886_ _e1527115447_ _hd1527015451_ _tl1526915454_ @@ -12704,8 +12704,8 @@ _e1527715467_ _hd1527615471_ _tl1527515474_)))))) - (if (gx#stx-pair? ___stx4393043931_) - (let ((_e1523515662_ (gx#syntax-e ___stx4393043931_))) + (if (gx#stx-pair? ___stx4374643747_) + (let ((_e1523515662_ (gx#syntax-e ___stx4374643747_))) (let ((_tl1523315669_ (let () (declare (not safe)) (##cdr _e1523515662_))) (_hd1523415666_ @@ -12713,7 +12713,7 @@ (declare (not safe)) (##car _e1523515662_)))) (if (gx#stx-null? _tl1523315669_) - (___kont4393343934_) + (___kont4374943750_) (if (gx#stx-pair? _tl1523315669_) (let ((_e1524215620_ (gx#syntax-e _tl1523315669_))) @@ -12727,7 +12727,7 @@ (##car _e1524215620_)))) (if (gx#identifier? _hd1524115624_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49031_| + |gerbil/core$$[1]#_g48822_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1524515630_ @@ -12743,9 +12743,9 @@ (##car _e1524515630_)))) (if (gx#stx-null? _tl1524315637_) - (___kont4393543936_ + (___kont4375143752_ _hd1524415634_) - (___match4406944070_ + (___match4388543886_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12755,12 +12755,12 @@ _e1524515630_ _hd1524415634_ _tl1524315637_)))) - (___kont4394543946_ + (___kont4376143762_ _tl1524015627_ _hd1524115624_ _hd1523415666_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49030_| + |gerbil/core$$[1]#_g48821_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1525515578_ @@ -12778,9 +12778,9 @@ (##car _e1525515578_)))) (if (gx#stx-null? _tl1525315585_) - (___kont4393743938_ + (___kont4375343754_ _hd1525415582_) - (___match4406944070_ + (___match4388543886_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12790,7 +12790,7 @@ _e1525515578_ _hd1525415582_ _tl1525315585_)))) - (___kont4394543946_ + (___kont4376143762_ _tl1524015627_ _hd1524115624_ _hd1523415666_)) @@ -12810,7 +12810,7 @@ (##car _e1527715467_)))) (if (gx#stx-null? _tl1527515474_) - (___match4405144052_ + (___match4386743868_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12820,7 +12820,7 @@ _e1527715467_ _hd1527615471_ _tl1527515474_) - (___match4406944070_ + (___match4388543886_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12830,7 +12830,7 @@ _e1527715467_ _hd1527615471_ _tl1527515474_)))) - (___kont4394543946_ + (___kont4376143762_ _tl1524015627_ _hd1524115624_ _hd1523415666_)))) @@ -12854,8 +12854,8 @@ (_hd1526515529_ (let () (declare (not safe)) (##car _e1526615525_)))) (if (gx#stx-null? _tl1526415532_) - (___kont4393943940_ _hd1526515529_) - (___match4406944070_ + (___kont4375543756_ _hd1526515529_) + (___match4388543886_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12866,7 +12866,7 @@ _hd1526515529_ _tl1526415532_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4394543946_ + (___kont4376143762_ _tl1524015627_ _hd1524115624_ _hd1523415666_)) @@ -12884,7 +12884,7 @@ (_hd1527615471_ (let () (declare (not safe)) (##car _e1527715467_)))) (if (gx#stx-null? _tl1527515474_) - (___match4405144052_ + (___match4386743868_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12894,7 +12894,7 @@ _e1527715467_ _hd1527615471_ _tl1527515474_) - (___match4406944070_ + (___match4388543886_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12905,7 +12905,7 @@ _hd1527615471_ _tl1527515474_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4394543946_ + (___kont4376143762_ _tl1524015627_ _hd1524115624_ _hd1523415666_)))) @@ -12923,7 +12923,7 @@ (##car _e1527715467_)))) (if (gx#stx-null? _tl1527515474_) - (___match4405144052_ + (___match4386743868_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12933,7 +12933,7 @@ _e1527715467_ _hd1527615471_ _tl1527515474_) - (___match4406944070_ + (___match4388543886_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12943,56 +12943,56 @@ _e1527715467_ _hd1527615471_ _tl1527515474_)))) - (___kont4394543946_ + (___kont4376143762_ _tl1524015627_ _hd1524115624_ _hd1523415666_)))))) - (___kont4394743948_ _tl1523315669_))))) + (___kont4376343764_ _tl1523315669_))))) (let () (declare (not safe)) (_g1523115309_)))))))) (define |gerbil/core$$[:0:]#quasiquote| (lambda (_stx15680_) (letrec ((_simple-quote?15683_ (lambda (_e16375_) - (let* ((___stx4409044091_ _e16375_) + (let* ((___stx4390643907_ _e16375_) (_g1638316420_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4409044091_)))) - (let ((___kont4409344094_ (lambda () '#f)) - (___kont4409544096_ (lambda () '#f)) - (___kont4409744098_ + ___stx4390643907_)))) + (let ((___kont4390943910_ (lambda () '#f)) + (___kont4391143912_ (lambda () '#f)) + (___kont4391343914_ (lambda (_L16534_ _L16536_) (if (_simple-quote?15683_ _L16536_) (_simple-quote?15683_ _L16534_) '#f))) - (___kont4409944100_ + (___kont4391543916_ (lambda (_L16495_) (_simple-quote?15683_ - (let ((__tmp49032 + (let ((__tmp48823 (lambda (_g1650816511_ _g1650916514_) (let () (declare (not safe)) (cons _g1650816511_ _g1650916514_))))) (declare (not safe)) - (foldr1 __tmp49032 '() _L16495_))))) - (___kont4410344104_ + (foldr1 __tmp48823 '() _L16495_))))) + (___kont4391943920_ (lambda (_L16442_) (_simple-quote?15683_ _L16442_))) - (___kont4410544106_ (lambda () '#t))) + (___kont4392143922_ (lambda () '#t))) (let* ((_g1638116454_ (lambda () - (if (gx#stx-box? ___stx4409044091_) + (if (gx#stx-box? ___stx4390643907_) (let ((_e1641416438_ (unbox (gx#syntax-e - ___stx4409044091_)))) - (___kont4410344104_ _e1641416438_)) - (___kont4410544106_)))) - (___match4416144162_ + ___stx4390643907_)))) + (___kont4391943920_ _e1641416438_)) + (___kont4392143922_)))) + (___match4397743978_ (lambda (_e1640316461_ - ___splice4410144102_ + ___splice4391743918_ _target1640416465_ _tl1640616468_) (letrec ((_loop1640716471_ @@ -13020,20 +13020,20 @@ _e1641116478_))))) (let ((_e1641216491_ (reverse _e1641116478_))) - (___kont4409944100_ + (___kont4391543916_ _e1641216491_)))))) (_loop1640716471_ _target1640416465_ '())))) (_g1638016517_ (lambda () - (if (gx#stx-vector? ___stx4409044091_) + (if (gx#stx-vector? ___stx4390643907_) (let ((_e1640316461_ (vector->list (gx#syntax-e - ___stx4409044091_)))) + ___stx4390643907_)))) (if (gx#stx-pair/null? _e1640316461_) - (let ((___splice4410144102_ + (let ((___splice4391743918_ (gx#syntax-split-splice _e1640316461_ '0))) @@ -13041,29 +13041,29 @@ (let () (declare (not safe)) (##vector-ref - ___splice4410144102_ + ___splice4391743918_ '1))) (_target1640416465_ (let () (declare (not safe)) (##vector-ref - ___splice4410144102_ + ___splice4391743918_ '0)))) (if (gx#stx-null? _tl1640616468_) - (___match4416144162_ + (___match4397743978_ _e1640316461_ - ___splice4410144102_ + ___splice4391743918_ _target1640416465_ _tl1640616468_) - (___kont4410544106_)))) - (___kont4410544106_))) + (___kont4392143922_)))) + (___kont4392143922_))) (let () (declare (not safe)) (_g1638116454_)))))) - (if (gx#stx-pair? ___stx4409044091_) + (if (gx#stx-pair? ___stx4390643907_) (let ((_e1638716585_ - (gx#syntax-e ___stx4409044091_))) + (gx#syntax-e ___stx4390643907_))) (let ((_tl1638516592_ (let () (declare (not safe)) @@ -13074,7 +13074,7 @@ (##car _e1638716585_)))) (if (gx#identifier? _hd1638616589_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49034_| + |gerbil/core$$[1]#_g48825_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639016595_ @@ -13090,15 +13090,15 @@ (##car _e1639016595_)))) (if (gx#stx-null? _tl1638816602_) - (___kont4409344094_) - (___kont4409744098_ + (___kont4390943910_) + (___kont4391343914_ _tl1638516592_ _hd1638616589_)))) - (___kont4409744098_ + (___kont4391343914_ _tl1638516592_ _hd1638616589_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49033_| + |gerbil/core$$[1]#_g48824_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639616564_ @@ -13116,17 +13116,17 @@ (##car _e1639616564_)))) (if (gx#stx-null? _tl1639416571_) - (___kont4409544096_) - (___kont4409744098_ + (___kont4391143912_) + (___kont4391343914_ _tl1638516592_ _hd1638616589_)))) - (___kont4409744098_ + (___kont4391343914_ _tl1638516592_ _hd1638616589_)) - (___kont4409744098_ + (___kont4391343914_ _tl1638516592_ _hd1638616589_))) - (___kont4409744098_ + (___kont4391343914_ _tl1638516592_ _hd1638616589_)))) (let () @@ -13134,14 +13134,14 @@ (_g1638016517_)))))))) (_generate15685_ (lambda (_e15747_ _d15749_) - (let* ((___stx4416844169_ _e15747_) + (let* ((___stx4398443985_ _e15747_) (_g1575815816_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4416844169_)))) - (let ((___kont4417144172_ + ___stx4398443985_)))) + (let ((___kont4398743988_ (lambda (_L16327_) (let* ((_g1634016348_ (lambda (_g1634116344_) @@ -13153,29 +13153,29 @@ (lambda (_g1634116352_) ((lambda (_L16355_) (let () - (let ((__tmp49041 + (let ((__tmp48832 (gx#datum->syntax '#f 'list)) - (__tmp49035 - (let ((__tmp49037 - (let ((__tmp49040 + (__tmp48826 + (let ((__tmp48828 + (let ((__tmp48831 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49038 - (let ((__tmp49039 + (__tmp48829 + (let ((__tmp48830 (gx#datum->syntax '#f 'quasiquote))) (declare (not safe)) - (cons __tmp49039 '())))) + (cons __tmp48830 '())))) (declare (not safe)) - (cons __tmp49040 __tmp49038))) - (__tmp49036 + (cons __tmp48831 __tmp48829))) + (__tmp48827 (let () (declare (not safe)) (cons _L16355_ '())))) (declare (not safe)) - (cons __tmp49037 __tmp49036)))) + (cons __tmp48828 __tmp48827)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49041 __tmp49035)))) + (cons __tmp48832 __tmp48826)))) _g1634116352_)))) (_g1633916367_ (_generate15685_ @@ -13183,7 +13183,7 @@ (let () (declare (not safe)) (fx+ _d15749_ '1))))))) - (___kont4417344174_ + (___kont4398943990_ (lambda (_L16256_) (if (let () (declare (not safe)) @@ -13199,30 +13199,30 @@ (lambda (_g1627016281_) ((lambda (_L16284_) (let () - (let ((__tmp49048 + (let ((__tmp48839 (gx#datum->syntax '#f 'list)) - (__tmp49042 - (let ((__tmp49044 - (let ((__tmp49047 + (__tmp48833 + (let ((__tmp48835 + (let ((__tmp48838 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49045 - (let ((__tmp49046 + (__tmp48836 + (let ((__tmp48837 (gx#datum->syntax '#f 'unquote))) (declare (not safe)) - (cons __tmp49046 '())))) + (cons __tmp48837 '())))) (declare (not safe)) - (cons __tmp49047 __tmp49045))) - (__tmp49043 + (cons __tmp48838 __tmp48836))) + (__tmp48834 (let () (declare (not safe)) (cons _L16284_ '())))) (declare (not safe)) - (cons __tmp49044 __tmp49043)))) + (cons __tmp48835 __tmp48834)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49048 - __tmp49042)))) + (cons __tmp48839 + __tmp48833)))) _g1627016281_)))) (_g1626816296_ (_generate15685_ @@ -13230,38 +13230,38 @@ (let () (declare (not safe)) (fx- _d15749_ '1)))))))) - (___kont4417544176_ + (___kont4399143992_ (lambda (_L16185_) (if (let () (declare (not safe)) (fxzero? _d15749_)) - (let ((__tmp49063 + (let ((__tmp48854 (gx#datum->syntax '#f 'foldr)) - (__tmp49056 - (let ((__tmp49062 + (__tmp48847 + (let ((__tmp48853 (gx#datum->syntax '#f 'cons)) - (__tmp49057 - (let ((__tmp49059 - (let ((__tmp49061 + (__tmp48848 + (let ((__tmp48850 + (let ((__tmp48852 (gx#datum->syntax '#f 'quote)) - (__tmp49060 + (__tmp48851 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp49061 __tmp49060))) - (__tmp49058 (let () (declare (not safe)) (cons _L16185_ '())))) + (cons __tmp48852 __tmp48851))) + (__tmp48849 (let () (declare (not safe)) (cons _L16185_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49059 - __tmp49058)))) + (cons __tmp48850 + __tmp48849)))) (declare (not safe)) - (cons __tmp49062 __tmp49057)))) + (cons __tmp48853 __tmp48848)))) (declare (not safe)) - (cons __tmp49063 __tmp49056)) + (cons __tmp48854 __tmp48847)) (let* ((_g1619816206_ (lambda (_g1619916202_) (gx#raise-syntax-error @@ -13272,32 +13272,32 @@ (lambda (_g1619916210_) ((lambda (_L16213_) (let () - (let ((__tmp49055 + (let ((__tmp48846 (gx#datum->syntax '#f 'list)) - (__tmp49049 - (let ((__tmp49051 - (let ((__tmp49054 + (__tmp48840 + (let ((__tmp48842 + (let ((__tmp48845 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49052 - (let ((__tmp49053 + (__tmp48843 + (let ((__tmp48844 (gx#datum->syntax '#f 'unquote-splicing))) (declare (not safe)) - (cons __tmp49053 '())))) + (cons __tmp48844 '())))) (declare (not safe)) - (cons __tmp49054 __tmp49052))) - (__tmp49050 + (cons __tmp48845 __tmp48843))) + (__tmp48841 (let () (declare (not safe)) (cons _L16213_ '())))) (declare (not safe)) - (cons __tmp49051 __tmp49050)))) + (cons __tmp48842 __tmp48841)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49055 - __tmp49049)))) + (cons __tmp48846 + __tmp48840)))) _g1619916210_)))) (_g1619716225_ (_generate15685_ @@ -13305,7 +13305,7 @@ (let () (declare (not safe)) (fx- _d15749_ '1)))))))) - (___kont4417744178_ + (___kont4399343994_ (lambda (_L16110_ _L16112_) (let* ((_g1612716135_ (lambda (_g1612816131_) @@ -13317,30 +13317,30 @@ (lambda (_g1612816139_) ((lambda (_L16142_) (let () - (let ((__tmp49068 + (let ((__tmp48859 (gx#datum->syntax '#f 'foldr)) - (__tmp49064 - (let ((__tmp49067 + (__tmp48855 + (let ((__tmp48858 (gx#datum->syntax '#f 'cons)) - (__tmp49065 - (let ((__tmp49066 + (__tmp48856 + (let ((__tmp48857 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L16112_ '())))) (declare (not safe)) - (cons _L16142_ __tmp49066)))) + (cons _L16142_ __tmp48857)))) (declare (not safe)) - (cons __tmp49067 __tmp49065)))) + (cons __tmp48858 __tmp48856)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49068 __tmp49064)))) + (cons __tmp48859 __tmp48855)))) _g1612816139_)))) (_g1612616154_ (_generate15685_ _L16110_ _d15749_))))) - (___kont4417944180_ + (___kont4399543996_ (lambda (_L15996_ _L15998_) (let* ((_g1600916024_ (lambda (_g1601016020_) @@ -13378,16 +13378,16 @@ (if (gx#stx-null? _tl1601616048_) ((lambda (_L16051_ _L16053_) (let () - (let ((__tmp49071 (gx#datum->syntax '#f 'cons)) - (__tmp49069 - (let ((__tmp49070 + (let ((__tmp48862 (gx#datum->syntax '#f 'cons)) + (__tmp48860 + (let ((__tmp48861 (let () (declare (not safe)) (cons _L16051_ '())))) (declare (not safe)) - (cons _L16053_ __tmp49070)))) + (cons _L16053_ __tmp48861)))) (declare (not safe)) - (cons __tmp49071 __tmp49069)))) + (cons __tmp48862 __tmp48860)))) _hd1601716045_ _hd1601416035_) (_g1600916024_ _g1601016028_)))) @@ -13400,7 +13400,7 @@ (_generate15685_ _L15996_ _d15749_)))))) - (___kont4418144182_ + (___kont4399743998_ (lambda (_L15926_) (let* ((_g1594015948_ (lambda (_g1594115944_) @@ -13412,29 +13412,29 @@ (lambda (_g1594115952_) ((lambda (_L15955_) (let () - (let ((__tmp49073 + (let ((__tmp48864 (gx#datum->syntax '#f 'list->vector)) - (__tmp49072 + (__tmp48863 (let () (declare (not safe)) (cons _L15955_ '())))) (declare (not safe)) - (cons __tmp49073 __tmp49072)))) + (cons __tmp48864 __tmp48863)))) _g1594115952_)))) (_g1593915967_ (_generate15685_ - (let ((__tmp49074 + (let ((__tmp48865 (lambda (_g1597015973_ _g1597115976_) (let () (declare (not safe)) (cons _g1597015973_ _g1597115976_))))) (declare (not safe)) - (foldr1 __tmp49074 '() _L15926_)) + (foldr1 __tmp48865 '() _L15926_)) _d15749_))))) - (___kont4418544186_ + (___kont4400144002_ (lambda (_L15844_) (let* ((_g1585415862_ (lambda (_g1585515858_) @@ -13446,39 +13446,39 @@ (lambda (_g1585515866_) ((lambda (_L15869_) (let () - (let ((__tmp49076 + (let ((__tmp48867 (gx#datum->syntax '#f 'box)) - (__tmp49075 + (__tmp48866 (let () (declare (not safe)) (cons _L15869_ '())))) (declare (not safe)) - (cons __tmp49076 __tmp49075)))) + (cons __tmp48867 __tmp48866)))) _g1585515866_)))) (_g1585315881_ (_generate15685_ _L15844_ _d15749_))))) - (___kont4418744188_ + (___kont4400344004_ (lambda (_L15823_) - (let ((__tmp49078 (gx#datum->syntax '#f 'quote)) - (__tmp49077 + (let ((__tmp48869 (gx#datum->syntax '#f 'quote)) + (__tmp48868 (let () (declare (not safe)) (cons _L15823_ '())))) (declare (not safe)) - (cons __tmp49078 __tmp49077))))) + (cons __tmp48869 __tmp48868))))) (let* ((_g1575615885_ (lambda () - (if (gx#stx-box? ___stx4416844169_) + (if (gx#stx-box? ___stx4398443985_) (let ((_e1580915840_ (unbox (gx#syntax-e - ___stx4416844169_)))) - (___kont4418544186_ _e1580915840_)) - (___kont4418744188_ ___stx4416844169_)))) - (___match4428744288_ + ___stx4398443985_)))) + (___kont4400144002_ _e1580915840_)) + (___kont4400344004_ ___stx4398443985_)))) + (___match4410344104_ (lambda (_e1579815892_ - ___splice4418344184_ + ___splice4399944000_ _target1579915896_ _tl1580115899_) (letrec ((_loop1580215902_ @@ -13506,20 +13506,20 @@ _e1580615909_))))) (let ((_e1580715922_ (reverse _e1580615909_))) - (___kont4418144182_ + (___kont4399743998_ _e1580715922_)))))) (_loop1580215902_ _target1579915896_ '())))) (_g1575515979_ (lambda () - (if (gx#stx-vector? ___stx4416844169_) + (if (gx#stx-vector? ___stx4398443985_) (let ((_e1579815892_ (vector->list (gx#syntax-e - ___stx4416844169_)))) + ___stx4398443985_)))) (if (gx#stx-pair/null? _e1579815892_) - (let ((___splice4418344184_ + (let ((___splice4399944000_ (gx#syntax-split-splice _e1579815892_ '0))) @@ -13527,31 +13527,31 @@ (let () (declare (not safe)) (##vector-ref - ___splice4418344184_ + ___splice4399944000_ '1))) (_target1579915896_ (let () (declare (not safe)) (##vector-ref - ___splice4418344184_ + ___splice4399944000_ '0)))) (if (gx#stx-null? _tl1580115899_) - (___match4428744288_ + (___match4410344104_ _e1579815892_ - ___splice4418344184_ + ___splice4399944000_ _target1579915896_ _tl1580115899_) - (___kont4418744188_ - ___stx4416844169_)))) - (___kont4418744188_ - ___stx4416844169_))) + (___kont4400344004_ + ___stx4398443985_)))) + (___kont4400344004_ + ___stx4398443985_))) (let () (declare (not safe)) (_g1575615885_)))))) - (if (gx#stx-pair? ___stx4416844169_) + (if (gx#stx-pair? ___stx4398443985_) (let ((_e1576316307_ - (gx#syntax-e ___stx4416844169_))) + (gx#syntax-e ___stx4398443985_))) (let ((_tl1576116314_ (let () (declare (not safe)) @@ -13562,7 +13562,7 @@ (##car _e1576316307_)))) (if (gx#identifier? _hd1576216311_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49082_| + |gerbil/core$$[1]#_g48873_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1576616317_ @@ -13578,16 +13578,16 @@ (##car _e1576616317_)))) (if (gx#stx-null? _tl1576416324_) - (___kont4417144172_ + (___kont4398743988_ _hd1576516321_) - (___kont4417944180_ + (___kont4399543996_ _tl1576116314_ _hd1576216311_)))) - (___kont4417944180_ + (___kont4399543996_ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49081_| + |gerbil/core$$[1]#_g48872_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1577316246_ @@ -13605,16 +13605,16 @@ (##car _e1577316246_)))) (if (gx#stx-null? _tl1577116253_) - (___kont4417344174_ + (___kont4398943990_ _hd1577216250_) - (___kont4417944180_ + (___kont4399543996_ _tl1576116314_ _hd1576216311_)))) - (___kont4417944180_ + (___kont4399543996_ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49080_| + |gerbil/core$$[1]#_g48871_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) @@ -13629,11 +13629,11 @@ (_hd1577916179_ (let () (declare (not safe)) (##car _e1578016175_)))) (if (gx#stx-null? _tl1577816182_) - (___kont4417544176_ _hd1577916179_) - (___kont4417944180_ _tl1576116314_ _hd1576216311_)))) - (___kont4417944180_ _tl1576116314_ _hd1576216311_)) + (___kont4399143992_ _hd1577916179_) + (___kont4399543996_ _tl1576116314_ _hd1576216311_)))) + (___kont4399543996_ _tl1576116314_ _hd1576216311_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4417944180_ + (___kont4399543996_ _tl1576116314_ _hd1576216311_)))) (if (gx#stx-pair? _hd1576216311_) @@ -13650,7 +13650,7 @@ (if (gx#identifier? _hd1578716094_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49079_| + |gerbil/core$$[1]#_g48870_| _hd1578716094_) (if (gx#stx-pair? _tl1578616097_) @@ -13667,18 +13667,18 @@ (if (let () (declare (not safe)) (fxzero? _d15749_)) (let ((_L16110_ _tl1576116314_) (_L16112_ _hd1579016104_)) - (___kont4417744178_ _L16110_ _L16112_)) - (___kont4417944180_ + (___kont4399343994_ _L16110_ _L16112_)) + (___kont4399543996_ _tl1576116314_ _hd1576216311_)) - (___kont4417944180_ _tl1576116314_ _hd1576216311_)))) - (___kont4417944180_ _tl1576116314_ _hd1576216311_)) - (___kont4417944180_ _tl1576116314_ _hd1576216311_)) + (___kont4399543996_ _tl1576116314_ _hd1576216311_)))) + (___kont4399543996_ _tl1576116314_ _hd1576216311_)) + (___kont4399543996_ _tl1576116314_ _hd1576216311_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4417944180_ + (___kont4399543996_ _tl1576116314_ _hd1576216311_)))) - (___kont4417944180_ + (___kont4399543996_ _tl1576116314_ _hd1576216311_))))) (let () @@ -13716,16 +13716,16 @@ (if (gx#stx-null? _tl1569315725_) ((lambda (_L15728_) (if (_simple-quote?15683_ _L15728_) - (let ((__tmp49084 + (let ((__tmp48875 (gx#datum->syntax '#f 'quote)) - (__tmp49083 + (__tmp48874 (let () (declare (not safe)) (cons _L15728_ '())))) (declare (not safe)) - (cons __tmp49084 __tmp49083)) + (cons __tmp48875 __tmp48874)) (_generate15685_ _L15728_ '0))) _hd1569415722_) (_g1568715701_ _g1568815705_)))) @@ -13734,41 +13734,41 @@ (_g1568615743_ _stx15680_))))) (define |gerbil/core$$[:0:]#delay| (lambda (_$stx16615_) - (let* ((___stx4429444295_ _$stx16615_) + (let* ((___stx4411044111_ _$stx16615_) (_g1662016641_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4429444295_)))) - (let ((___kont4429744298_ + ___stx4411044111_)))) + (let ((___kont4411344114_ (lambda (_L16709_) - (let ((__tmp49086 (gx#datum->syntax '#f 'quote)) - (__tmp49085 + (let ((__tmp48877 (gx#datum->syntax '#f 'quote)) + (__tmp48876 (let () (declare (not safe)) (cons _L16709_ '())))) (declare (not safe)) - (cons __tmp49086 __tmp49085)))) - (___kont4429944300_ + (cons __tmp48877 __tmp48876)))) + (___kont4411544116_ (lambda (_L16668_) - (let ((__tmp49092 (gx#datum->syntax '#f 'make-promise)) - (__tmp49087 - (let ((__tmp49088 - (let ((__tmp49091 + (let ((__tmp48883 (gx#datum->syntax '#f 'make-promise)) + (__tmp48878 + (let ((__tmp48879 + (let ((__tmp48882 (gx#datum->syntax '#f 'lambda%)) - (__tmp49089 - (let ((__tmp49090 + (__tmp48880 + (let ((__tmp48881 (let () (declare (not safe)) (cons _L16668_ '())))) (declare (not safe)) - (cons '() __tmp49090)))) + (cons '() __tmp48881)))) (declare (not safe)) - (cons __tmp49091 __tmp49089)))) + (cons __tmp48882 __tmp48880)))) (declare (not safe)) - (cons __tmp49088 '())))) + (cons __tmp48879 '())))) (declare (not safe)) - (cons __tmp49092 __tmp49087))))) - (let ((___match4431544316_ + (cons __tmp48883 __tmp48878))))) + (let ((___match4413144132_ (lambda (_e1662516689_ _hd1662416693_ _tl1662316696_ @@ -13777,10 +13777,10 @@ _tl1662616706_) (let ((_L16709_ _hd1662716703_)) (if (gx#stx-datum? _L16709_) - (___kont4429744298_ _L16709_) - (___kont4429944300_ _hd1662716703_)))))) - (if (gx#stx-pair? ___stx4429444295_) - (let ((_e1662516689_ (gx#syntax-e ___stx4429444295_))) + (___kont4411344114_ _L16709_) + (___kont4411544116_ _hd1662716703_)))))) + (if (gx#stx-pair? ___stx4411044111_) + (let ((_e1662516689_ (gx#syntax-e ___stx4411044111_))) (let ((_tl1662316696_ (let () (declare (not safe)) (##cdr _e1662516689_))) (_hd1662416693_ @@ -13798,7 +13798,7 @@ (declare (not safe)) (##car _e1662816699_)))) (if (gx#stx-null? _tl1662616706_) - (___match4431544316_ + (___match4413144132_ _e1662516689_ _hd1662416693_ _tl1662316696_ @@ -13817,23 +13817,23 @@ (let _lp16851_ ((_rest16854_ _rest16848_) (_hd16856_ '()) (_body16857_ '())) - (let* ((___stx4435244353_ _rest16854_) + (let* ((___stx4416844169_ _rest16854_) (_g1686016872_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4435244353_)))) - (let ((___kont4435544356_ + ___stx4416844169_)))) + (let ((___kont4417144172_ (lambda (_L16900_ _L16902_) - (let* ((___stx4433244333_ _L16902_) + (let* ((___stx4414844149_ _L16902_) (_g1691916926_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4433244333_)))) - (let ((___kont4433544336_ + ___stx4414844149_)))) + (let ((___kont4415144152_ (lambda () (let ((_arg16962_ (gx#genident))) (_lp16851_ @@ -13845,7 +13845,7 @@ (declare (not safe)) (cons _arg16962_ _body16857_)))))) - (___kont4433744338_ + (___kont4415344154_ (lambda () (if (gx#stx-null? _L16900_) (let ((_tail16948_ @@ -13857,9 +13857,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _tail16948_ _hd16856_)) - (let ((__tmp49093 (list _tail16948_))) + (let ((__tmp48884 (list _tail16948_))) (declare (not safe)) - (foldl1 cons __tmp49093 _body16857_)) + (foldl1 cons __tmp48884 _body16857_)) '#t)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error @@ -13867,7 +13867,7 @@ '"bad syntax; cut ellipsis <...> not in tail position" _stx16726_ _L16902_)))) - (___kont4433944340_ + (___kont4415544156_ (lambda () (_lp16851_ _L16900_ @@ -13875,25 +13875,25 @@ (let () (declare (not safe)) (cons _L16902_ _body16857_)))))) - (if (gx#identifier? ___stx4433244333_) + (if (gx#identifier? ___stx4414844149_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49095_| - ___stx4433244333_) - (___kont4433544336_) + |gerbil/core$$[1]#_g48886_| + ___stx4414844149_) + (___kont4415144152_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49094_| - ___stx4433244333_) - (___kont4433744338_) - (___kont4433944340_))) - (___kont4433944340_)))))) - (___kont4435744358_ + |gerbil/core$$[1]#_g48885_| + ___stx4414844149_) + (___kont4415344154_) + (___kont4415544156_))) + (___kont4415544156_)))))) + (___kont4417344174_ (lambda () (values (reverse _hd16856_) (reverse _body16857_) '#f)))) - (if (gx#stx-pair? ___stx4435244353_) + (if (gx#stx-pair? ___stx4416844169_) (let ((_e1686616890_ - (gx#syntax-e ___stx4435244353_))) + (gx#syntax-e ___stx4416844169_))) (let ((_tl1686416897_ (let () (declare (not safe)) @@ -13902,10 +13902,10 @@ (let () (declare (not safe)) (##car _e1686616890_)))) - (___kont4435544356_ + (___kont4417144172_ _tl1686416897_ _hd1686516894_))) - (___kont4435744358_)))))))) + (___kont4417344174_)))))))) (let* ((_g1673216743_ (lambda (_g1673316739_) (gx#raise-syntax-error @@ -13926,35 +13926,35 @@ (##cdr _e1673716750_)))) ((lambda (_L16760_) (if (and (gx#stx-list? _L16760_) - (let ((__tmp49106 + (let ((__tmp50977 (gx#stx-null? _L16760_))) (declare (not safe)) - (not __tmp49106))) - (let ((_g49096_ (_generate16729_ _L16760_))) + (not __tmp50977))) + (let ((_g48887_ (_generate16729_ _L16760_))) (begin - (let ((_g49097_ + (let ((_g50968_ (let () (declare (not safe)) - (if (##values? _g49096_) - (##vector-length _g49096_) + (if (##values? _g48887_) + (##vector-length _g48887_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49097_ 3))) + (##fx= _g50968_ 3))) (error "Context expects 3 values" - _g49097_))) + _g50968_))) (let ((_hd16773_ (let () (declare (not safe)) - (##vector-ref _g49096_ 0))) + (##vector-ref _g48887_ 0))) (_body16775_ (let () (declare (not safe)) - (##vector-ref _g49096_ 1))) + (##vector-ref _g48887_ 1))) (_tail?16776_ (let () (declare (not safe)) - (##vector-ref _g49096_ 2)))) + (##vector-ref _g48887_ 2)))) (let* ((_g1677816786_ (lambda (_g1677916782_) (gx#raise-syntax-error @@ -13978,34 +13978,34 @@ (let () (let () (if _tail?16776_ - (let ((__tmp49105 + (let ((__tmp50976 (gx#datum->syntax '#f 'lambda%)) - (__tmp49101 - (let ((__tmp49102 - (let ((__tmp49103 - (let ((__tmp49104 + (__tmp50972 + (let ((__tmp50973 + (let ((__tmp50974 + (let ((__tmp50975 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'apply))) (declare (not safe)) - (cons __tmp49104 _L16821_)))) + (cons __tmp50975 _L16821_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49103 '())))) + (cons __tmp50974 '())))) (declare (not safe)) - (cons _L16793_ __tmp49102)))) + (cons _L16793_ __tmp50973)))) (declare (not safe)) - (cons __tmp49105 __tmp49101)) - (let ((__tmp49100 + (cons __tmp50976 __tmp50972)) + (let ((__tmp50971 (gx#datum->syntax '#f 'lambda%)) - (__tmp49098 - (let ((__tmp49099 + (__tmp50969 + (let ((__tmp50970 (let () (declare (not safe)) (cons _L16821_ '())))) (declare (not safe)) - (cons _L16793_ __tmp49099)))) + (cons _L16793_ __tmp50970)))) (declare (not safe)) - (cons __tmp49100 __tmp49098)))))) + (cons __tmp50971 __tmp50969)))))) _g1680716818_)))) (_g1680516836_ _body16775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> diff --git a/src/bootstrap/gerbil/core__5.scm b/src/bootstrap/gerbil/core__5.scm index 9abab4bf8..190fea6b3 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]#_g49191_| + (define |gerbil/core$$[1]#_g48972_| (##structure gx#syntax-quote::t 'quote @@ -10,24 +10,24 @@ (begin (define |gerbil/core$$[:0:]#defsyntax| (lambda (_$stx17003_) - (let* ((___stx4436844369_ _$stx17003_) + (let* ((___stx4418444185_ _$stx17003_) (_g1700817047_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4436844369_)))) - (let ((___kont4437144372_ + ___stx4418444185_)))) + (let ((___kont4418744188_ (lambda (_L17170_ _L17172_ _L17173_) - (let ((__tmp49114 (gx#datum->syntax '#f 'define-syntax)) - (__tmp49107 - (let ((__tmp49108 - (let ((__tmp49109 - (let ((__tmp49113 + (let ((__tmp48895 (gx#datum->syntax '#f 'define-syntax)) + (__tmp48888 + (let ((__tmp48889 + (let ((__tmp48890 + (let ((__tmp48894 (gx#datum->syntax '#f 'lambda)) - (__tmp49110 - (let ((__tmp49111 - (let ((__tmp49112 + (__tmp48891 + (let ((__tmp48892 + (let ((__tmp48893 (lambda (_g1719217195_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1719317198_) @@ -35,31 +35,31 @@ (declare (not safe)) (cons _g1719217195_ _g1719317198_))))) (declare (not safe)) - (foldr1 __tmp49112 '() _L17170_)))) + (foldr1 __tmp48893 '() _L17170_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17172_ __tmp49111)))) + (cons _L17172_ __tmp48892)))) (declare (not safe)) - (cons __tmp49113 __tmp49110)))) + (cons __tmp48894 __tmp48891)))) (declare (not safe)) - (cons __tmp49109 '())))) + (cons __tmp48890 '())))) (declare (not safe)) - (cons _L17173_ __tmp49108)))) + (cons _L17173_ __tmp48889)))) (declare (not safe)) - (cons __tmp49114 __tmp49107)))) - (___kont4437544376_ + (cons __tmp48895 __tmp48888)))) + (___kont4419144192_ (lambda (_L17084_ _L17086_) - (let ((__tmp49117 (gx#datum->syntax '#f 'define-syntax)) - (__tmp49115 - (let ((__tmp49116 + (let ((__tmp48898 (gx#datum->syntax '#f 'define-syntax)) + (__tmp48896 + (let ((__tmp48897 (let () (declare (not safe)) (cons _L17084_ '())))) (declare (not safe)) - (cons _L17086_ __tmp49116)))) + (cons _L17086_ __tmp48897)))) (declare (not safe)) - (cons __tmp49117 __tmp49115))))) - (let* ((___match4442344424_ + (cons __tmp48898 __tmp48896))))) + (let* ((___match4423944240_ (lambda (_e1703517054_ _hd1703417058_ _tl1703317061_ @@ -72,9 +72,9 @@ (let ((_L17084_ _hd1704017078_) (_L17086_ _hd1703717068_)) (if (gx#identifier? _L17086_) - (___kont4437544376_ _L17084_ _L17086_) + (___kont4419144192_ _L17084_ _L17086_) (let () (declare (not safe)) (_g1700817047_)))))) - (___match4441544416_ + (___match4423144232_ (lambda (_e1703517054_ _hd1703417058_ _tl1703317061_ @@ -92,7 +92,7 @@ (declare (not safe)) (##car _e1704117074_)))) (if (gx#stx-null? _tl1703917081_) - (___match4442344424_ + (___match4423944240_ _e1703517054_ _hd1703417058_ _tl1703317061_ @@ -106,7 +106,7 @@ (declare (not safe)) (_g1700817047_))))) (let () (declare (not safe)) (_g1700817047_))))) - (___match4440344404_ + (___match4421944220_ (lambda (_e1701517110_ _hd1701417114_ _tl1701317117_ @@ -116,7 +116,7 @@ _e1702117130_ _hd1702017134_ _tl1701917137_ - ___splice4437344374_ + ___splice4418944190_ _target1702217140_ _tl1702417143_) (letrec ((_loop1702517146_ @@ -144,11 +144,11 @@ (_L17172_ _tl1701917137_) (_L17173_ _hd1702017134_)) (if (gx#identifier? _L17173_) - (___kont4437144372_ + (___kont4418744188_ _L17170_ _L17172_ _L17173_) - (___match4441544416_ + (___match4423144232_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -156,8 +156,8 @@ _hd1701717124_ _tl1701617127_)))))))) (_loop1702517146_ _target1702217140_ '()))))) - (if (gx#stx-pair? ___stx4436844369_) - (let ((_e1701517110_ (gx#syntax-e ___stx4436844369_))) + (if (gx#stx-pair? ___stx4418444185_) + (let ((_e1701517110_ (gx#syntax-e ___stx4418444185_))) (let ((_tl1701317117_ (let () (declare (not safe)) (##cdr _e1701517110_))) (_hd1701417114_ @@ -186,7 +186,7 @@ (declare (not safe)) (##car _e1702117130_)))) (if (gx#stx-pair/null? _tl1701617127_) - (let ((___splice4437344374_ + (let ((___splice4418944190_ (gx#syntax-split-splice _tl1701617127_ '0))) @@ -194,16 +194,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4437344374_ + ___splice4418944190_ '1))) (_target1702217140_ (let () (declare (not safe)) (##vector-ref - ___splice4437344374_ + ___splice4418944190_ '0)))) (if (gx#stx-null? _tl1702417143_) - (___match4440344404_ + (___match4421944220_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -213,7 +213,7 @@ _e1702117130_ _hd1702017134_ _tl1701917137_ - ___splice4437344374_ + ___splice4418944190_ _target1702217140_ _tl1702417143_) (if (gx#stx-pair? @@ -229,7 +229,7 @@ (_hd1704017078_ (let () (declare (not safe)) (##car _e1704117074_)))) (if (gx#stx-null? _tl1703917081_) - (___match4442344424_ + (___match4423944240_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -256,7 +256,7 @@ (##car _e1704117074_)))) (if (gx#stx-null? _tl1703917081_) - (___match4442344424_ + (___match4423944240_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -284,7 +284,7 @@ (declare (not safe)) (##car _e1704117074_)))) (if (gx#stx-null? _tl1703917081_) - (___match4442344424_ + (___match4423944240_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -346,37 +346,37 @@ (##cdr _e1722217273_)))) (if (gx#stx-pair/null? _tl1722017280_) - (let ((_g49118_ + (let ((_g48899_ (gx#syntax-split-splice _tl1722017280_ '0))) (begin - (let ((_g49119_ + (let ((_g48900_ (let () (declare (not safe)) (if (##values? - _g49118_) + _g48899_) (##vector-length - _g49118_) + _g48899_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g49119_ 2))) - (error "Context expects 2 values" _g49119_))) + (##fx= _g48900_ 2))) + (error "Context expects 2 values" _g48900_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1722317283_ (let () (declare (not safe)) (##vector-ref - _g49118_ + _g48899_ 0))) (_tl1722517286_ (let () (declare (not safe)) (##vector-ref - _g49118_ + _g48899_ 1)))) (if (gx#stx-null? _tl1722517286_) @@ -403,31 +403,31 @@ (let ((_arg1723117309_ (reverse _arg1723017296_))) (if (gx#stx-pair/null? _tl1721717270_) - (let ((_g49120_ + (let ((_g48901_ (gx#syntax-split-splice _tl1721717270_ '0))) (begin - (let ((_g49121_ + (let ((_g48902_ (let () (declare (not safe)) - (if (##values? _g49120_) + (if (##values? _g48901_) (##vector-length - _g49120_) + _g48901_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49121_ 2))) + (##fx= _g48902_ 2))) (error "Context expects 2 values" - _g49121_))) + _g48902_))) (let ((_target1723217313_ (let () (declare (not safe)) - (##vector-ref _g49120_ 0))) + (##vector-ref _g48901_ 0))) (_tl1723417316_ (let () (declare (not safe)) - (##vector-ref _g49120_ 1)))) + (##vector-ref _g48901_ 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 ((__tmp49167 + (let ((__tmp48948 (lambda (_g1737017373_ _g1737117376_) (let () @@ -460,7 +460,7 @@ (cons _g1737017373_ _g1737117376_))))) (declare (not safe)) - (foldr1 __tmp49167 '() _L17345_)))) + (foldr1 __tmp48948 '() _L17345_)))) (let* ((_g1737917387_ (lambda (_g1738017383_) (gx#raise-syntax-error @@ -481,28 +481,28 @@ (lambda (_g1740717427_) (if (gx#stx-pair/null? _g1740717427_) - (let ((_g49122_ + (let ((_g48903_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1740717427_ '0))) (begin - (let ((_g49123_ + (let ((_g48904_ (let () (declare (not safe)) - (if (##values? _g49122_) - (##vector-length _g49122_) + (if (##values? _g48903_) + (##vector-length _g48903_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49123_ 2))) - (error "Context expects 2 values" _g49123_))) + (##fx= _g48904_ 2))) + (error "Context expects 2 values" _g48904_))) (let ((_target1740917430_ (let () (declare (not safe)) - (##vector-ref _g49122_ 0))) + (##vector-ref _g48903_ 0))) (_tl1741117433_ (let () (declare (not safe)) - (##vector-ref _g49122_ 1)))) + (##vector-ref _g48903_ 1)))) (if (gx#stx-null? _tl1741117433_) (letrec ((_loop1741217436_ (lambda (_hd1741017440_ @@ -552,32 +552,32 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp49126 + (let ((__tmp48907 (gx#datum->syntax '#f 'begin)) - (__tmp49124 - (let ((__tmp49125 + (__tmp48905 + (let ((__tmp48906 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L17492_ '())))) (declare (not safe)) - (cons _L17520_ __tmp49125)))) + (cons _L17520_ __tmp48906)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49126 __tmp49124)) + (cons __tmp48907 __tmp48905)) (gx#stx-source _stx17206_))))) _g1750617517_)))) (_g1750417535_ (gx#stx-wrap-source - (let ((__tmp49133 + (let ((__tmp48914 (gx#datum->syntax '#f 'def)) - (__tmp49127 - (let ((__tmp49130 - (let ((__tmp49131 - (let ((__tmp49132 + (__tmp48908 + (let ((__tmp48911 + (let ((__tmp48912 + (let ((__tmp48913 (lambda (_g1754017543_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1754117546_) @@ -585,12 +585,12 @@ (declare (not safe)) (cons _g1754017543_ _g1754117546_))))) (declare (not safe)) - (foldr1 __tmp49132 '() _L17345_)))) + (foldr1 __tmp48913 '() _L17345_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17394_ __tmp49131))) - (__tmp49128 - (let ((__tmp49129 + (cons _L17394_ __tmp48912))) + (__tmp48909 + (let ((__tmp48910 (lambda (_g1753817549_ _g1753917552_) (let () @@ -600,47 +600,47 @@ _g1753917552_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp49129 + (foldr1 __tmp48910 '() _L17343_)))) (declare (not safe)) - (cons __tmp49130 __tmp49128)))) + (cons __tmp48911 __tmp48909)))) (declare (not safe)) - (cons __tmp49133 __tmp49127)) + (cons __tmp48914 __tmp48908)) (gx#stx-source _stx17206_)))))) _g1747817489_)))) (_g1747617555_ (gx#stx-wrap-source - (let ((__tmp49165 (gx#datum->syntax '#f 'defrules)) - (__tmp49134 - (let ((__tmp49135 - (let ((__tmp49136 - (let ((__tmp49149 - (let ((__tmp49161 - (let ((__tmp49164 + (let ((__tmp48946 (gx#datum->syntax '#f 'defrules)) + (__tmp48915 + (let ((__tmp48916 + (let ((__tmp48917 + (let ((__tmp48930 + (let ((__tmp48942 + (let ((__tmp48945 (gx#datum->syntax '#f '_)) - (__tmp49162 - (let ((__tmp49163 + (__tmp48943 + (let ((__tmp48944 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1756417567_ _g1756517570_) (let () (declare (not safe)) (cons _g1756417567_ _g1756517570_))))) (declare (not safe)) - (foldr1 __tmp49163 '() _L17460_)))) + (foldr1 __tmp48944 '() _L17460_)))) (declare (not safe)) - (cons __tmp49164 __tmp49162))) + (cons __tmp48945 __tmp48943))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49150 - (let ((__tmp49151 - (let ((__tmp49154 + (__tmp48931 + (let ((__tmp48932 + (let ((__tmp48935 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49160 (gx#datum->syntax '#f 'lambda)) - (__tmp49155 - (let ((__tmp49158 - (let ((__tmp49159 + (let ((__tmp48941 (gx#datum->syntax '#f 'lambda)) + (__tmp48936 + (let ((__tmp48939 + (let ((__tmp48940 (lambda (_g1756217573_ _g1756317576_) (let () @@ -648,9 +648,9 @@ (cons _g1756217573_ _g1756317576_))))) (declare (not safe)) - (foldr1 __tmp49159 '() _L17345_))) - (__tmp49156 - (let ((__tmp49157 + (foldr1 __tmp48940 '() _L17345_))) + (__tmp48937 + (let ((__tmp48938 (lambda (_g1756017579_ _g1756117582_) (let () @@ -658,73 +658,73 @@ (cons _g1756017579_ _g1756117582_))))) (declare (not safe)) - (foldr1 __tmp49157 '() _L17343_)))) + (foldr1 __tmp48938 '() _L17343_)))) (declare (not safe)) - (cons __tmp49158 __tmp49156)))) + (cons __tmp48939 __tmp48937)))) (declare (not safe)) - (cons __tmp49160 __tmp49155))) - (__tmp49152 - (let ((__tmp49153 + (cons __tmp48941 __tmp48936))) + (__tmp48933 + (let ((__tmp48934 (lambda (_g1755817585_ _g1755917588_) (let () (declare (not safe)) (cons _g1755817585_ _g1755917588_))))) (declare (not safe)) - (foldr1 __tmp49153 '() _L17460_)))) + (foldr1 __tmp48934 '() _L17460_)))) (declare (not safe)) - (cons __tmp49154 __tmp49152)))) + (cons __tmp48935 __tmp48933)))) (declare (not safe)) - (cons __tmp49151 '())))) + (cons __tmp48932 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49161 __tmp49150))) - (__tmp49137 - (let ((__tmp49138 - (let ((__tmp49148 + (cons __tmp48942 __tmp48931))) + (__tmp48918 + (let ((__tmp48919 + (let ((__tmp48929 (gx#datum->syntax '#f 'ref)) - (__tmp49139 - (let ((__tmp49141 + (__tmp48920 + (let ((__tmp48922 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49147 + (let ((__tmp48928 (gx#datum->syntax '#f 'identifier?)) - (__tmp49142 - (let ((__tmp49143 - (let ((__tmp49146 + (__tmp48923 + (let ((__tmp48924 + (let ((__tmp48927 (gx#datum->syntax '#f 'syntax)) - (__tmp49144 - (let ((__tmp49145 + (__tmp48925 + (let ((__tmp48926 (gx#datum->syntax '#f 'ref))) (declare (not safe)) - (cons __tmp49145 '())))) + (cons __tmp48926 '())))) (declare (not safe)) - (cons __tmp49146 __tmp49144)))) + (cons __tmp48927 __tmp48925)))) (declare (not safe)) - (cons __tmp49143 '())))) + (cons __tmp48924 '())))) (declare (not safe)) - (cons __tmp49147 __tmp49142))) - (__tmp49140 + (cons __tmp48928 __tmp48923))) + (__tmp48921 (let () (declare (not safe)) (cons _L17394_ '())))) (declare (not safe)) - (cons __tmp49141 __tmp49140)))) + (cons __tmp48922 __tmp48921)))) (declare (not safe)) - (cons __tmp49148 __tmp49139)))) + (cons __tmp48929 __tmp48920)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49138 '())))) + (cons __tmp48919 '())))) (declare (not safe)) - (cons __tmp49149 __tmp49137)))) + (cons __tmp48930 __tmp48918)))) (declare (not safe)) - (cons '() __tmp49136)))) + (cons '() __tmp48917)))) (declare (not safe)) - (cons _L17346_ __tmp49135)))) + (cons _L17346_ __tmp48916)))) (declare (not safe)) - (cons __tmp49165 __tmp49134)) + (cons __tmp48946 __tmp48915)) (gx#stx-source _stx17206_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _xarg1741717456_)))))) @@ -734,7 +734,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1740517591_ (gx#gentemps - (let ((__tmp49166 + (let ((__tmp48947 (lambda (_g1759417597_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1759517600_) @@ -742,7 +742,7 @@ (declare (not safe)) (cons _g1759417597_ _g1759517600_))))) (declare (not safe)) - (foldr1 __tmp49166 '() _L17345_))))))) + (foldr1 __tmp48947 '() _L17345_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1738017391_)))) (_g1737817603_ @@ -771,89 +771,89 @@ (_g1720817607_ _stx17206_)))) (define |gerbil/core$$[:0:]#defconst| (lambda (_$stx17614_) - (let* ((___stx4442644427_ _$stx17614_) + (let* ((___stx4424244243_ _$stx17614_) (_g1761917655_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4442644427_)))) - (let ((___kont4442944430_ + ___stx4424244243_)))) + (let ((___kont4424544246_ (lambda (_L17769_ _L17771_) - (let ((__tmp49185 (gx#datum->syntax '#f 'defrules)) - (__tmp49168 - (let ((__tmp49169 - (let ((__tmp49170 - (let ((__tmp49171 - (let ((__tmp49184 + (let ((__tmp48966 (gx#datum->syntax '#f 'defrules)) + (__tmp48949 + (let ((__tmp48950 + (let ((__tmp48951 + (let ((__tmp48952 + (let ((__tmp48965 (gx#datum->syntax '#f 'x)) - (__tmp49172 - (let ((__tmp49177 - (let ((__tmp49183 + (__tmp48953 + (let ((__tmp48958 + (let ((__tmp48964 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'identifier?)) - (__tmp49178 - (let ((__tmp49179 - (let ((__tmp49182 + (__tmp48959 + (let ((__tmp48960 + (let ((__tmp48963 (gx#datum->syntax '#f 'syntax)) - (__tmp49180 - (let ((__tmp49181 + (__tmp48961 + (let ((__tmp48962 (gx#datum->syntax '#f 'x))) (declare (not safe)) - (cons __tmp49181 '())))) + (cons __tmp48962 '())))) (declare (not safe)) - (cons __tmp49182 __tmp49180)))) + (cons __tmp48963 __tmp48961)))) (declare (not safe)) - (cons __tmp49179 '())))) + (cons __tmp48960 '())))) (declare (not safe)) - (cons __tmp49183 __tmp49178))) - (__tmp49173 - (let ((__tmp49174 - (let ((__tmp49176 (gx#datum->syntax '#f 'quote)) - (__tmp49175 + (cons __tmp48964 __tmp48959))) + (__tmp48954 + (let ((__tmp48955 + (let ((__tmp48957 (gx#datum->syntax '#f 'quote)) + (__tmp48956 (let () (declare (not safe)) (cons _L17769_ '())))) (declare (not safe)) - (cons __tmp49176 __tmp49175)))) + (cons __tmp48957 __tmp48956)))) (declare (not safe)) - (cons __tmp49174 '())))) + (cons __tmp48955 '())))) (declare (not safe)) - (cons __tmp49177 __tmp49173)))) + (cons __tmp48958 __tmp48954)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49184 - __tmp49172)))) + (cons __tmp48965 + __tmp48953)))) (declare (not safe)) - (cons __tmp49171 '())))) + (cons __tmp48952 '())))) (declare (not safe)) - (cons '() __tmp49170)))) + (cons '() __tmp48951)))) (declare (not safe)) - (cons _L17771_ __tmp49169)))) + (cons _L17771_ __tmp48950)))) (declare (not safe)) - (cons __tmp49185 __tmp49168)))) - (___kont4443144432_ + (cons __tmp48966 __tmp48949)))) + (___kont4424744248_ (lambda (_L17692_ _L17694_ _L17695_) - (let ((__tmp49186 - (let ((__tmp49187 - (let ((__tmp49188 - (let ((__tmp49190 + (let ((__tmp48967 + (let ((__tmp48968 + (let ((__tmp48969 + (let ((__tmp48971 (gx#datum->syntax '#f 'quote)) - (__tmp49189 + (__tmp48970 (let () (declare (not safe)) (cons _L17692_ '())))) (declare (not safe)) - (cons __tmp49190 __tmp49189)))) + (cons __tmp48971 __tmp48970)))) (declare (not safe)) - (cons __tmp49188 '())))) + (cons __tmp48969 '())))) (declare (not safe)) - (cons _L17694_ __tmp49187)))) + (cons _L17694_ __tmp48968)))) (declare (not safe)) - (cons _L17695_ __tmp49186))))) - (let* ((___match4449144492_ + (cons _L17695_ __tmp48967))))) + (let* ((___match4430744308_ (lambda (_e1764317662_ _hd1764217666_ _tl1764117669_ @@ -868,9 +868,9 @@ (_L17695_ _hd1764217666_)) (if (and (gx#identifier? _L17694_) (gx#stx-datum? _L17692_)) - (___kont4443144432_ _L17692_ _L17694_ _L17695_) + (___kont4424744248_ _L17692_ _L17694_ _L17695_) (let () (declare (not safe)) (_g1761917655_)))))) - (___match4447144472_ + (___match4428744288_ (lambda (_e1762517719_ _hd1762417723_ _tl1762317726_ @@ -889,8 +889,8 @@ (let ((_L17769_ _hd1763617763_) (_L17771_ _hd1762717733_)) (if (gx#identifier? _L17771_) - (___kont4442944430_ _L17769_ _L17771_) - (___match4449144492_ + (___kont4424544246_ _L17769_ _L17771_) + (___match4430744308_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -900,8 +900,8 @@ _e1763117739_ _hd1763017743_ _tl1762917746_)))))) - (if (gx#stx-pair? ___stx4442644427_) - (let ((_e1762517719_ (gx#syntax-e ___stx4442644427_))) + (if (gx#stx-pair? ___stx4424244243_) + (let ((_e1762517719_ (gx#syntax-e ___stx4424244243_))) (let ((_tl1762317726_ (let () (declare (not safe)) (##cdr _e1762517719_))) (_hd1762417723_ @@ -943,7 +943,7 @@ (if (gx#identifier? _hd1763317753_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49191_| + |gerbil/core$$[1]#_g48972_| _hd1763317753_) (if (gx#stx-pair? _tl1763217756_) @@ -958,7 +958,7 @@ (##car _e1763717759_)))) (if (gx#stx-null? _tl1763517766_) (if (gx#stx-null? _tl1762917746_) - (___match4447144472_ + (___match4428744288_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -976,7 +976,7 @@ _tl1763517766_) (let () (declare (not safe)) (_g1761917655_))) (if (gx#stx-null? _tl1762917746_) - (___match4449144492_ + (___match4430744308_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -988,7 +988,7 @@ _tl1762917746_) (let () (declare (not safe)) (_g1761917655_)))))) (if (gx#stx-null? _tl1762917746_) - (___match4449144492_ + (___match4430744308_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -1000,7 +1000,7 @@ _tl1762917746_) (let () (declare (not safe)) (_g1761917655_)))) (if (gx#stx-null? _tl1762917746_) - (___match4449144492_ + (___match4430744308_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -1014,7 +1014,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl1762917746_) - (___match4449144492_ + (___match4430744308_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -1028,7 +1028,7 @@ (declare (not safe)) (_g1761917655_)))))) (if (gx#stx-null? _tl1762917746_) - (___match4449144492_ + (___match4430744308_ _e1762517719_ _hd1762417723_ _tl1762317726_ diff --git a/src/bootstrap/gerbil/core__6.scm b/src/bootstrap/gerbil/core__6.scm index ceb89bf52..7d18b2451 100644 --- a/src/bootstrap/gerbil/core__6.scm +++ b/src/bootstrap/gerbil/core__6.scm @@ -1,111 +1,112 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$$[1]#module-type-id| - (lambda (_type-t19267_) - (let ((_$e19270_ (gx#module-context-ns (gx#current-expander-context)))) - (if _$e19270_ - ((lambda (_ns19274_) + (lambda (_type-t19120_) + (let ((_$e19123_ (gx#module-context-ns (gx#current-expander-context)))) + (if _$e19123_ + ((lambda (_ns19127_) (gx#stx-identifier - _type-t19267_ - _ns19274_ + _type-t19120_ + _ns19127_ '"#" - _type-t19267_ + _type-t19120_ '"::t")) - _$e19270_) - (let ((_mid19277_ + _$e19123_) + (let ((_mid19130_ (gx#expander-context-id (gx#current-expander-context)))) (gx#stx-identifier - _type-t19267_ - _mid19277_ + _type-t19120_ + _mid19130_ '"#" - _type-t19267_ + _type-t19120_ '"::t")))))) (define |gerbil/core$$[1]#make-class-type-id| - (lambda (_type-t19264_) + (lambda (_type-t19117_) (if (gx#module-context? (gx#current-expander-context)) (let () (declare (not safe)) - (|gerbil/core$$[1]#module-type-id| _type-t19264_)) - (make-symbol '"__" (gensym (gx#stx-e _type-t19264_)) '"::t")))) + (|gerbil/core$$[1]#module-type-id| _type-t19117_)) + (make-symbol '"__" (gensym (gx#stx-e _type-t19117_)) '"::t")))) (define |gerbil/core$$[1]#generate-typedef| (lambda (_stx17796_ _struct?17798_) (letrec ((_wrap17800_ - (lambda (_e-stx19261_) + (lambda (_e-stx19114_) (gx#stx-wrap-source - _e-stx19261_ + _e-stx19114_ (gx#stx-source _stx17796_)))) (_slot-name17802_ - (lambda (_slot-spec19178_) - (let* ((_g1918119200_ - (lambda (_g1918219196_) + (lambda (_slot-spec19031_) + (let* ((_g1903419053_ + (lambda (_g1903519049_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1918219196_))) - (_g1918019257_ - (lambda (_g1918219204_) - (if (gx#stx-pair? _g1918219204_) - (let ((_e1918819207_ - (gx#syntax-e _g1918219204_))) - (let ((_hd1918719211_ + _g1903519049_))) + (_g1903319110_ + (lambda (_g1903519057_) + (if (gx#stx-pair? _g1903519057_) + (let ((_e1904119060_ + (gx#syntax-e _g1903519057_))) + (let ((_hd1904019064_ (let () (declare (not safe)) - (##car _e1918819207_))) - (_tl1918619214_ + (##car _e1904119060_))) + (_tl1903919067_ (let () (declare (not safe)) - (##cdr _e1918819207_)))) - (if (gx#stx-pair? _tl1918619214_) - (let ((_e1919119217_ - (gx#syntax-e _tl1918619214_))) - (let ((_hd1919019221_ + (##cdr _e1904119060_)))) + (if (gx#stx-pair? _tl1903919067_) + (let ((_e1904419070_ + (gx#syntax-e _tl1903919067_))) + (let ((_hd1904319074_ (let () (declare (not safe)) - (##car _e1919119217_))) - (_tl1918919224_ + (##car _e1904419070_))) + (_tl1904219077_ (let () (declare (not safe)) - (##cdr _e1919119217_)))) - (if (gx#stx-pair? _tl1918919224_) - (let ((_e1919419227_ + (##cdr _e1904419070_)))) + (if (gx#stx-pair? _tl1904219077_) + (let ((_e1904719080_ (gx#syntax-e - _tl1918919224_))) - (let ((_hd1919319231_ + _tl1904219077_))) + (let ((_hd1904619084_ (let () (declare (not safe)) - (##car _e1919419227_))) - (_tl1919219234_ + (##car _e1904719080_))) + (_tl1904519087_ (let () (declare (not safe)) - (##cdr _e1919419227_)))) + (##cdr _e1904719080_)))) (if (gx#stx-null? - _tl1919219234_) - ((lambda (_L19237_ + _tl1904519087_) + ((lambda (_L19090_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L19239_ - _L19240_) - _L19240_) - _hd1919319231_ - _hd1919019221_ - _hd1918719211_) - (let () (declare (not safe)) (_g1918119200_ _g1918219204_))))) + _L19092_ + _L19093_) + _L19093_) + _hd1904619084_ + _hd1904319074_ + _hd1904019064_) + (let () (declare (not safe)) (_g1903419053_ _g1903519057_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1918119200_ - _g1918219204_))))) + (_g1903419053_ + _g1903519057_))))) (let () (declare (not safe)) - (_g1918119200_ _g1918219204_))))) + (_g1903419053_ _g1903519057_))))) (let () (declare (not safe)) - (_g1918119200_ _g1918219204_)))))) + (_g1903419053_ _g1903519057_)))))) (declare (not safe)) - (_g1918019257_ _slot-spec19178_)))) + (_g1903319110_ _slot-spec19031_)))) (_class-opt?17803_ - (lambda (_key19175_) - (memq (gx#stx-e _key19175_) - '(slots: + (lambda (_key19028_) + (memq (gx#stx-e _key19028_) + '(struct: + slots: id: name: properties: @@ -118,7 +119,7 @@ '#f '"Bad syntax; invalid match target" _g1780617828_))) - (_g1780419171_ + (_g1780419024_ (lambda (_g1780617836_) (if (gx#stx-pair? _g1780617836_) (let ((_e1781417839_ (gx#syntax-e _g1780617836_))) @@ -178,1708 +179,1475 @@ (let () (declare (not safe)) (##cdr _e1782617879_)))) ((lambda (_L17889_ _L17891_ _L17892_ _L17893_ _L17894_) (if (and (gx#identifier? _L17894_) - (if _struct?17798_ - (or (gx#identifier? _L17893_) - (gx#stx-false? _L17893_)) - (gx#identifier-list? _L17893_)) + (gx#identifier-list? _L17893_) (or (gx#identifier? _L17892_) (gx#stx-false? _L17892_)) (gx#identifier? _L17891_) (gx#stx-plist? _L17889_ _class-opt?17803_)) - (let* ((_slots17932_ - (let ((_$e17928_ - (gx#stx-getq 'slots: _L17889_))) - (if _$e17928_ _$e17928_ '()))) - (_mixin-slots17939_ + (let* ((_struct?17932_ + (let ((_$e17924_ _struct?17798_)) + (if _$e17924_ + _$e17924_ + (let ((_$e17928_ + (gx#stx-getq 'struct: _L17889_))) + (if _$e17928_ + (gx#stx-e _$e17928_) + '#f))))) + (_slots17939_ (let ((_$e17935_ - (gx#stx-getq 'mixin: _L17889_))) + (gx#stx-getq 'slots: _L17889_))) (if _$e17935_ _$e17935_ '()))) - (_accessible-slots17942_ - (append (gx#syntax->list _slots17932_) - (gx#syntax->list _mixin-slots17939_))) - (_g1794517962_ - (lambda (_g1794617958_) + (_mixin-slots17946_ + (let ((_$e17942_ + (gx#stx-getq 'mixin: _L17889_))) + (if _$e17942_ _$e17942_ '()))) + (_accessible-slots17949_ + (append (gx#syntax->list _slots17939_) + (gx#syntax->list _mixin-slots17946_))) + (_g1795217969_ + (lambda (_g1795317965_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1794617958_))) - (_g1794419167_ - (lambda (_g1794617966_) - (if (gx#stx-pair/null? _g1794617966_) - (let ((_g49192_ + _g1795317965_))) + (_g1795119020_ + (lambda (_g1795317973_) + (if (gx#stx-pair/null? _g1795317973_) + (let ((_g48973_ (gx#syntax-split-splice - _g1794617966_ + _g1795317973_ '0))) (begin - (let ((_g49193_ + (let ((_g48974_ (let () (declare (not safe)) - (if (##values? _g49192_) + (if (##values? _g48973_) (##vector-length - _g49192_) + _g48973_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49193_ 2))) + (##fx= _g48974_ 2))) (error "Context expects 2 values" - _g49193_))) - (let ((_target1794817969_ + _g48974_))) + (let ((_target1795517976_ (let () (declare (not safe)) - (##vector-ref _g49192_ 0))) - (_tl1795017972_ + (##vector-ref _g48973_ 0))) + (_tl1795717979_ (let () (declare (not safe)) (##vector-ref - _g49192_ + _g48973_ 1)))) - (if (gx#stx-null? _tl1795017972_) - (letrec ((_loop1795117975_ - (lambda (_hd1794917979_ + (if (gx#stx-null? _tl1795717979_) + (letrec ((_loop1795817982_ + (lambda (_hd1795617986_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _slot1795517982_) - (if (gx#stx-pair? _hd1794917979_) - (let ((_e1795217985_ (gx#syntax-e _hd1794917979_))) - (let ((_lp-hd1795317989_ + _slot1796217989_) + (if (gx#stx-pair? _hd1795617986_) + (let ((_e1795917992_ (gx#syntax-e _hd1795617986_))) + (let ((_lp-hd1796017996_ (let () (declare (not safe)) - (##car _e1795217985_))) - (_lp-tl1795417992_ + (##car _e1795917992_))) + (_lp-tl1796117999_ (let () (declare (not safe)) - (##cdr _e1795217985_)))) - (let ((__tmp49432 + (##cdr _e1795917992_)))) + (let ((__tmp49192 (let () (declare (not safe)) - (cons _lp-hd1795317989_ - _slot1795517982_)))) + (cons _lp-hd1796017996_ + _slot1796217989_)))) (declare (not safe)) - (_loop1795117975_ - _lp-tl1795417992_ - __tmp49432)))) - (let ((_slot1795617995_ (reverse _slot1795517982_))) - ((lambda (_L17999_) - (let () - (let* ((_g1801818053_ - (lambda (_g1801918049_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1801918049_))) - (_g1801719163_ - (lambda (_g1801918057_) - (if (gx#stx-pair? _g1801918057_) - (let ((_e1802918060_ - (gx#syntax-e - _g1801918057_))) - (let ((_hd1802818064_ - (let () - (declare (not safe)) - (##car _e1802918060_))) - (_tl1802718067_ - (let () - (declare (not safe)) - (##cdr _e1802918060_)))) - (if (gx#stx-pair? - _tl1802718067_) - (let ((_e1803218070_ - (gx#syntax-e - _tl1802718067_))) - (let ((_hd1803118074_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e1803218070_))) - (_tl1803018077_ - (let () (declare (not safe)) (##cdr _e1803218070_)))) - (if (gx#stx-pair? _tl1803018077_) - (let ((_e1803518080_ (gx#syntax-e _tl1803018077_))) - (let ((_hd1803418084_ - (let () - (declare (not safe)) - (##car _e1803518080_))) - (_tl1803318087_ - (let () - (declare (not safe)) - (##cdr _e1803518080_)))) - (if (gx#stx-pair? _tl1803318087_) - (let ((_e1803818090_ - (gx#syntax-e _tl1803318087_))) - (let ((_hd1803718094_ - (let () - (declare (not safe)) - (##car _e1803818090_))) - (_tl1803618097_ - (let () - (declare (not safe)) - (##cdr _e1803818090_)))) - (if (gx#stx-pair? _tl1803618097_) - (let ((_e1804118100_ - (gx#syntax-e _tl1803618097_))) - (let ((_hd1804018104_ - (let () - (declare (not safe)) - (##car _e1804118100_))) - (_tl1803918107_ - (let () - (declare (not safe)) - (##cdr _e1804118100_)))) - (if (gx#stx-pair? _tl1803918107_) - (let ((_e1804418110_ - (gx#syntax-e - _tl1803918107_))) - (let ((_hd1804318114_ - (let () - (declare (not safe)) - (##car _e1804418110_))) - (_tl1804218117_ - (let () - (declare (not safe)) - (##cdr _e1804418110_)))) - (if (gx#stx-pair? - _tl1804218117_) - (let ((_e1804718120_ - (gx#syntax-e - _tl1804218117_))) - (let ((_hd1804618124_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e1804718120_))) - (_tl1804518127_ - (let () (declare (not safe)) (##cdr _e1804718120_)))) - (if (gx#stx-null? _tl1804518127_) - ((lambda (_L18130_ - _L18132_ - _L18133_ - _L18134_ - _L18135_ - _L18136_ - _L18137_) - (let () - (let* ((_g1816918177_ - (lambda (_g1817018173_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1817018173_))) - (_g1816819155_ - (lambda (_g1817018181_) - ((lambda (_L18184_) - (let () - (let* ((_g1819718205_ - (lambda (_g1819818201_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1819818201_))) - (_g1819619147_ - (lambda (_g1819818209_) - ((lambda (_L18212_) - (let () - (let* ((_g1822518233_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1822618229_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1822618229_))) - (_g1822419143_ - (lambda (_g1822618237_) - ((lambda (_L18240_) + (_loop1795817982_ + _lp-tl1796117999_ + __tmp49192)))) + (let ((_slot1796318002_ (reverse _slot1796217989_))) + ((lambda (_L18006_) (let () - (let* ((_g1825318261_ - (lambda (_g1825418257_) + (let* ((_g1802618034_ + (lambda (_g1802718030_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1825418257_))) - (_g1825219139_ - (lambda (_g1825418265_) - ((lambda (_L18268_) + _g1802718030_))) + (_g1802519012_ + (lambda (_g1802718038_) + ((lambda (_L18041_) (let () - (let* ((_g1828118289_ - (lambda (_g1828218285_) + (let* ((_g1805418062_ + (lambda (_g1805518058_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1828218285_))) - (_g1828019135_ - (lambda (_g1828218293_) - ((lambda (_L18296_) + _g1805518058_))) + (_g1805319004_ + (lambda (_g1805518066_) + ((lambda (_L18069_) (let () - (let* ((_g1830918317_ + (let* ((_g1808218090_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1831018313_) + (lambda (_g1808318086_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1831018313_))) - (_g1830819131_ - (lambda (_g1831018321_) - ((lambda (_L18324_) + _g1808318086_))) + (_g1808119000_ + (lambda (_g1808318094_) + ((lambda (_L18097_) (let () - (let* ((_g1833718345_ - (lambda (_g1833818341_) + (let* ((_g1811018118_ + (lambda (_g1811118114_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1833818341_))) - (_g1833619127_ - (lambda (_g1833818349_) - ((lambda (_L18352_) + _g1811118114_))) + (_g1810918996_ + (lambda (_g1811118122_) + ((lambda (_L18125_) (let () - (let* ((_g1836518373_ - (lambda (_g1836618369_) + (let* ((_g1813818146_ + (lambda (_g1813918142_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1836618369_))) - (_g1836419119_ - (lambda (_g1836618377_) - ((lambda (_L18380_) + _g1813918142_))) + (_g1813718992_ + (lambda (_g1813918150_) + ((lambda (_L18153_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g1839318401_ - (lambda (_g1839418397_) + (let* ((_g1816618174_ + (lambda (_g1816718170_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1839418397_))) - (_g1839219115_ - (lambda (_g1839418405_) - ((lambda (_L18408_) + _g1816718170_))) + (_g1816518988_ + (lambda (_g1816718178_) + ((lambda (_L18181_) (let () - (let* ((_g1842118429_ - (lambda (_g1842218425_) + (let* ((_g1819418202_ + (lambda (_g1819518198_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1842218425_))) - (_g1842019111_ - (lambda (_g1842218433_) - ((lambda (_L18436_) + _g1819518198_))) + (_g1819318984_ + (lambda (_g1819518206_) + ((lambda (_L18209_) (let () - (let* ((_g1844918457_ + (let* ((_g1822218230_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1845018453_) + (lambda (_g1822318226_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1845018453_))) - (_g1844819107_ - (lambda (_g1845018461_) - ((lambda (_L18464_) + _g1822318226_))) + (_g1822118976_ + (lambda (_g1822318234_) + ((lambda (_L18237_) (let () - (let* ((_g1847718485_ - (lambda (_g1847818481_) + (let* ((_g1825018258_ + (lambda (_g1825118254_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1847818481_))) - (_g1847619095_ - (lambda (_g1847818489_) - ((lambda (_L18492_) + _g1825118254_))) + (_g1824918972_ + (lambda (_g1825118262_) + ((lambda (_L18265_) (let () - (let* ((_g1850518513_ - (lambda (_g1850618509_) + (let* ((_g1827818286_ + (lambda (_g1827918282_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1850618509_))) - (_g1850419083_ - (lambda (_g1850618517_) - ((lambda (_L18520_) + _g1827918282_))) + (_g1827718968_ + (lambda (_g1827918290_) + ((lambda (_L18293_) (let () - (let* ((_g1853318541_ + (let* ((_g1830618314_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1853418537_) + (lambda (_g1830718310_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1853418537_))) - (_g1853219079_ - (lambda (_g1853418545_) - ((lambda (_L18548_) + _g1830718310_))) + (_g1830518964_ + (lambda (_g1830718318_) + ((lambda (_L18321_) (let () - (let* ((_g1856118569_ - (lambda (_g1856218565_) + (let* ((_g1833418342_ + (lambda (_g1833518338_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1856218565_))) - (_g1856019075_ - (lambda (_g1856218573_) - ((lambda (_L18576_) + _g1833518338_))) + (_g1833318952_ + (lambda (_g1833518346_) + ((lambda (_L18349_) (let () - (let* ((_g1858918615_ - (lambda (_g1859018611_) + (let* ((_g1836218370_ + (lambda (_g1836318366_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1859018611_))) - (_g1858818987_ - (lambda (_g1859018619_) - (if (gx#stx-pair/null? + _g1836318366_))) + (_g1836118940_ + (lambda (_g1836318374_) + ((lambda (_L18377_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1859018619_) - (let ((_g49194_ - (gx#syntax-split-splice _g1859018619_ '0))) - (begin - (let ((_g49195_ - (let () - (declare (not safe)) - (if (##values? _g49194_) - (##vector-length _g49194_) - 1)))) - (if (not (let () + (let () + (let* ((_g1839018398_ + (lambda (_g1839118394_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1839118394_))) + (_g1838918936_ + (lambda (_g1839118402_) + ((lambda (_L18405_) + (let () + (let* ((_g1841818426_ + (lambda (_g1841918422_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1841918422_))) + (_g1841718932_ + (lambda (_g1841918430_) + ((lambda (_L18433_) + (let () + (let* ((_g1844618472_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g1844718468_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1844718468_))) + (_g1844518844_ + (lambda (_g1844718476_) + (if (gx#stx-pair/null? _g1844718476_) + (let ((_g48975_ + (gx#syntax-split-splice + _g1844718476_ + '0))) + (begin + (let ((_g48976_ + (let () + (declare (not safe)) + (if (##values? _g48975_) + (##vector-length _g48975_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g48976_ 2))) + (error "Context expects 2 values" + _g48976_))) + (let ((_target1845018479_ + (let () + (declare (not safe)) + (##vector-ref _g48975_ 0))) + (_tl1845218482_ + (let () + (declare (not safe)) + (##vector-ref _g48975_ 1)))) + (if (gx#stx-null? _tl1845218482_) + (letrec ((_loop1845318485_ + (lambda (_hd1845118489_ + _def-setf1845718492_ + _def-getf1845818494_) + (if (gx#stx-pair? + _hd1845118489_) + (let ((_e1845418497_ + (gx#syntax-e +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _hd1845118489_))) + (let ((_lp-hd1845518501_ + (let () (declare (not safe)) (##car _e1845418497_))) + (_lp-tl1845618504_ + (let () (declare (not safe)) (##cdr _e1845418497_)))) + (if (gx#stx-pair? _lp-hd1845518501_) + (let ((_e1846318507_ (gx#syntax-e _lp-hd1845518501_))) + (let ((_hd1846218511_ + (let () + (declare (not safe)) + (##car _e1846318507_))) + (_tl1846118514_ + (let () + (declare (not safe)) + (##cdr _e1846318507_)))) + (if (gx#stx-pair? _tl1846118514_) + (let ((_e1846618517_ + (gx#syntax-e _tl1846118514_))) + (let ((_hd1846518521_ + (let () + (declare (not safe)) + (##car _e1846618517_))) + (_tl1846418524_ + (let () + (declare (not safe)) + (##cdr _e1846618517_)))) + (if (gx#stx-null? _tl1846418524_) + (let ((__tmp49040 + (let () + (declare (not safe)) + (cons _hd1846518521_ + _def-setf1845718492_))) + (__tmp49039 + (let () + (declare (not safe)) + (cons _hd1846218511_ + _def-getf1845818494_)))) (declare (not safe)) - (##fx= _g49195_ 2))) - (error "Context expects 2 values" - _g49195_))) - (let ((_target1859318622_ - (let () - (declare (not safe)) - (##vector-ref _g49194_ 0))) - (_tl1859518625_ - (let () - (declare (not safe)) - (##vector-ref _g49194_ 1)))) - (if (gx#stx-null? _tl1859518625_) - (letrec ((_loop1859618628_ - (lambda (_hd1859418632_ - _def-setf1860018635_ - _def-getf1860118637_) - (if (gx#stx-pair? - _hd1859418632_) - (let ((_e1859718640_ - (gx#syntax-e - _hd1859418632_))) - (let ((_lp-hd1859818644_ - (let () - (declare + (_loop1845318485_ + _lp-tl1845618504_ + __tmp49040 + __tmp49039)) + (let () + (declare (not safe)) + (_g1844618472_ _g1844718476_))))) + (let () + (declare (not safe)) + (_g1844618472_ _g1844718476_))))) + (let () + (declare (not safe)) + (_g1844618472_ _g1844718476_))))) + (let ((_def-setf1845918527_ (reverse _def-setf1845718492_)) + (_def-getf1846018530_ (reverse _def-getf1845818494_))) + ((lambda (_L18533_ _L18535_) + (let () + (let* ((_g1855218578_ + (lambda (_g1855318574_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1855318574_))) + (_g1855118692_ + (lambda (_g1855318582_) + (if (gx#stx-pair/null? _g1855318582_) + (let ((_g48977_ + (gx#syntax-split-splice + _g1855318582_ + '0))) + (begin + (let ((_g48978_ + (let () + (declare (not safe)) + (if (##values? _g48977_) + (##vector-length + _g48977_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g48978_ 2))) + (error "Context expects 2 values" + _g48978_))) + (let ((_target1855618585_ + (let () + (declare (not safe)) + (##vector-ref _g48977_ 0))) + (_tl1855818588_ + (let () + (declare (not safe)) + (##vector-ref _g48977_ 1)))) + (if (gx#stx-null? _tl1855818588_) + (letrec ((_loop1855918591_ + (lambda (_hd1855718595_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e1859718640_))) - (_lp-tl1859918647_ - (let () (declare (not safe)) (##cdr _e1859718640_)))) - (if (gx#stx-pair? _lp-hd1859818644_) - (let ((_e1860618650_ (gx#syntax-e _lp-hd1859818644_))) - (let ((_hd1860518654_ - (let () - (declare (not safe)) - (##car _e1860618650_))) - (_tl1860418657_ + _def-usetf1856318598_ + _def-ugetf1856418600_) + (if (gx#stx-pair? _hd1855718595_) + (let ((_e1856018603_ (gx#syntax-e _hd1855718595_))) + (let ((_lp-hd1856118607_ + (let () + (declare (not safe)) + (##car _e1856018603_))) + (_lp-tl1856218610_ + (let () + (declare (not safe)) + (##cdr _e1856018603_)))) + (if (gx#stx-pair? _lp-hd1856118607_) + (let ((_e1856918613_ + (gx#syntax-e _lp-hd1856118607_))) + (let ((_hd1856818617_ + (let () + (declare (not safe)) + (##car _e1856918613_))) + (_tl1856718620_ + (let () + (declare (not safe)) + (##cdr _e1856918613_)))) + (if (gx#stx-pair? _tl1856718620_) + (let ((_e1857218623_ + (gx#syntax-e _tl1856718620_))) + (let ((_hd1857118627_ + (let () + (declare (not safe)) + (##car _e1857218623_))) + (_tl1857018630_ + (let () + (declare (not safe)) + (##cdr _e1857218623_)))) + (if (gx#stx-null? _tl1857018630_) + (let ((__tmp48993 + (let () + (declare (not safe)) + (cons _hd1857118627_ + _def-usetf1856318598_))) + (__tmp48992 + (let () + (declare (not safe)) + (cons _hd1856818617_ + _def-ugetf1856418600_)))) + (declare (not safe)) + (_loop1855918591_ + _lp-tl1856218610_ + __tmp48993 + __tmp48992)) + (let () + (declare (not safe)) + (_g1855218578_ + _g1855318582_))))) + (let () + (declare (not safe)) + (_g1855218578_ _g1855318582_))))) + (let () + (declare (not safe)) + (_g1855218578_ _g1855318582_))))) + (let ((_def-usetf1856518633_ + (reverse _def-usetf1856318598_)) + (_def-ugetf1856618636_ + (reverse _def-ugetf1856418600_))) + ((lambda (_L18639_ _L18641_) (let () - (declare (not safe)) - (##cdr _e1860618650_)))) - (if (gx#stx-pair? _tl1860418657_) - (let ((_e1860918660_ (gx#syntax-e _tl1860418657_))) - (let ((_hd1860818664_ - (let () - (declare (not safe)) - (##car _e1860918660_))) - (_tl1860718667_ + (let () + (let ((__tmp48979 + (let ((__tmp48991 + (gx#datum->syntax '#f 'begin)) + (__tmp48980 + (let ((__tmp48981 + (let ((__tmp48982 + (let ((__tmp48983 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48990 + (lambda (_g1865918668_ _g1866018671_) (let () (declare (not safe)) - (##cdr _e1860918660_)))) - (if (gx#stx-null? _tl1860718667_) - (let ((__tmp49257 - (let () - (declare (not safe)) - (cons _hd1860818664_ - _def-setf1860018635_))) - (__tmp49256 - (let () - (declare (not safe)) - (cons _hd1860518654_ - _def-getf1860118637_)))) - (declare (not safe)) - (_loop1859618628_ - _lp-tl1859918647_ - __tmp49257 - __tmp49256)) - (let () - (declare (not safe)) - (_g1858918615_ _g1859018619_))))) - (let () - (declare (not safe)) - (_g1858918615_ _g1859018619_))))) - (let () - (declare (not safe)) - (_g1858918615_ _g1859018619_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_def-setf1860218670_ - (reverse _def-setf1860018635_)) - (_def-getf1860318673_ - (reverse _def-getf1860118637_))) - ((lambda (_L18676_ - _L18678_) - (let () - (let* ((_g1869518721_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1869618717_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1869618717_))) - (_g1869418835_ - (lambda (_g1869618725_) - (if (gx#stx-pair/null? _g1869618725_) - (let ((_g49196_ - (gx#syntax-split-splice - _g1869618725_ - '0))) - (begin - (let ((_g49197_ - (let () - (declare (not safe)) - (if (##values? _g49196_) - (##vector-length _g49196_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g49197_ 2))) - (error "Context expects 2 values" - _g49197_))) - (let ((_target1869918728_ - (let () - (declare (not safe)) - (##vector-ref _g49196_ 0))) - (_tl1870118731_ - (let () - (declare (not safe)) - (##vector-ref _g49196_ 1)))) - (if (gx#stx-null? _tl1870118731_) - (letrec ((_loop1870218734_ - (lambda (_hd1870018738_ - _def-usetf1870618741_ - _def-ugetf1870718743_) - (if (gx#stx-pair? - _hd1870018738_) - (let ((_e1870318746_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1870018738_))) - (let ((_lp-hd1870418750_ - (let () - (declare (not safe)) - (##car _e1870318746_))) - (_lp-tl1870518753_ - (let () - (declare (not safe)) - (##cdr _e1870318746_)))) - (if (gx#stx-pair? _lp-hd1870418750_) - (let ((_e1871218756_ - (gx#syntax-e _lp-hd1870418750_))) - (let ((_hd1871118760_ - (let () - (declare (not safe)) - (##car _e1871218756_))) - (_tl1871018763_ - (let () - (declare (not safe)) - (##cdr _e1871218756_)))) - (if (gx#stx-pair? _tl1871018763_) - (let ((_e1871518766_ - (gx#syntax-e _tl1871018763_))) - (let ((_hd1871418770_ + (cons _g1865918668_ _g1866018671_)))) + (__tmp48984 + (let ((__tmp48989 + (lambda (_g1866118674_ _g1866218677_) (let () (declare (not safe)) - (##car _e1871518766_))) - (_tl1871318773_ - (let () - (declare (not safe)) - (##cdr _e1871518766_)))) - (if (gx#stx-null? _tl1871318773_) - (let ((__tmp49212 - (let () - (declare (not safe)) - (cons _hd1871418770_ - _def-usetf1870618741_))) - (__tmp49211 - (let () - (declare (not safe)) - (cons _hd1871118760_ - _def-ugetf1870718743_)))) - (declare (not safe)) - (_loop1870218734_ - _lp-tl1870518753_ - __tmp49212 - __tmp49211)) - (let () - (declare (not safe)) - (_g1869518721_ _g1869618725_))))) - (let () - (declare (not safe)) - (_g1869518721_ _g1869618725_))))) - (let () - (declare (not safe)) - (_g1869518721_ _g1869618725_))))) - (let ((_def-usetf1870818776_ - (reverse _def-usetf1870618741_)) - (_def-ugetf1870918779_ - (reverse _def-ugetf1870718743_))) - ((lambda (_L18782_ _L18784_) - (let () - (let () - (let ((__tmp49198 - (let ((__tmp49210 - (gx#datum->syntax '#f 'begin)) - (__tmp49199 - (let ((__tmp49200 - (let ((__tmp49201 - (let ((__tmp49202 - (let ((__tmp49209 + (cons _g1866118674_ + _g1866218677_)))) + (__tmp48985 + (let ((__tmp48988 + (lambda (_g1866318680_ + _g1866418683_) + (let () + (declare (not safe)) + (cons _g1866318680_ + _g1866418683_)))) + (__tmp48986 + (let ((__tmp48987 + (lambda (_g1866518686_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1880218811_ _g1880318814_) - (let () - (declare (not safe)) - (cons _g1880218811_ _g1880318814_)))) - (__tmp49203 - (let ((__tmp49208 - (lambda (_g1880418817_ _g1880518820_) - (let () - (declare (not safe)) - (cons _g1880418817_ _g1880518820_)))) - (__tmp49204 - (let ((__tmp49207 - (lambda (_g1880618823_ - _g1880718826_) - (let () - (declare (not safe)) - (cons _g1880618823_ - _g1880718826_)))) - (__tmp49205 - (let ((__tmp49206 - (lambda (_g1880818829_ - _g1880918832_) - (let () - (declare (not safe)) - (cons _g1880818829_ - _g1880918832_))))) - (declare (not safe)) - (foldr1 __tmp49206 - '() - _L18782_)))) - (declare (not safe)) - (foldr1 __tmp49207 - __tmp49205 - _L18784_)))) - (declare (not safe)) - (foldr1 __tmp49208 __tmp49204 _L18676_)))) - (declare (not safe)) - (foldr1 __tmp49209 __tmp49203 _L18678_)))) - (declare (not safe)) - (cons _L18548_ __tmp49202)))) + _g1866618689_) + (let () + (declare (not safe)) + (cons _g1866518686_ _g1866618689_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18576_ - __tmp49201)))) + (foldr1 __tmp48987 + '() + _L18639_)))) (declare (not safe)) - (cons _L18520_ __tmp49200)))) + (foldr1 __tmp48988 + __tmp48986 + _L18641_)))) (declare (not safe)) - (cons __tmp49210 __tmp49199)))) + (foldr1 __tmp48989 __tmp48985 _L18533_)))) (declare (not safe)) - (_wrap17800_ __tmp49198))))) - _def-usetf1870818776_ - _def-ugetf1870918779_)))))) + (foldr1 __tmp48990 __tmp48984 _L18535_)))) + (declare (not safe)) + (cons _L18405_ __tmp48983)))) + (declare (not safe)) + (cons _L18433_ __tmp48982)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_loop1870218734_ - _target1869918728_ - '() - '()))) - (let () - (declare (not safe)) - (_g1869518721_ _g1869618725_)))))) - (let () + (declare (not safe)) + (cons _L18377_ __tmp48981)))) + (declare (not safe)) + (cons __tmp48991 __tmp48980)))) (declare (not safe)) - (_g1869518721_ _g1869618725_))))) - (__tmp49213 - (gx#stx-map - (lambda (_ref18839_) - (let* ((_g1884218861_ - (lambda (_g1884318857_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1884318857_))) - (_g1884118983_ - (lambda (_g1884318865_) - (if (gx#stx-pair? _g1884318865_) - (let ((_e1884918868_ - (gx#syntax-e - _g1884318865_))) - (let ((_hd1884818872_ - (let () - (declare (not safe)) - (##car _e1884918868_))) - (_tl1884718875_ - (let () - (declare (not safe)) - (##cdr _e1884918868_)))) - (if (gx#stx-pair? - _tl1884718875_) - (let ((_e1885218878_ - (gx#syntax-e - _tl1884718875_))) - (let ((_hd1885118882_ - (let () - (declare + (_wrap17800_ __tmp48979))))) + _def-usetf1856518633_ + _def-ugetf1856618636_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1855918591_ + _target1855618585_ + '() + '()))) + (let () + (declare (not safe)) + (_g1855218578_ + _g1855318582_)))))) + (let () + (declare (not safe)) + (_g1855218578_ _g1855318582_))))) + (__tmp48994 + (gx#stx-map + (lambda (_ref18696_) + (let* ((_g1869918718_ + (lambda (_g1870018714_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1870018714_))) + (_g1869818840_ + (lambda (_g1870018722_) + (if (gx#stx-pair? _g1870018722_) + (let ((_e1870618725_ + (gx#syntax-e + _g1870018722_))) + (let ((_hd1870518729_ + (let () + (declare + (not safe)) + (##car _e1870618725_))) + (_tl1870418732_ + (let () + (declare + (not safe)) + (##cdr _e1870618725_)))) + (if (gx#stx-pair? + _tl1870418732_) + (let ((_e1870918735_ + (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e1885218878_))) - (_tl1885018885_ - (let () (declare (not safe)) (##cdr _e1885218878_)))) - (if (gx#stx-pair? _tl1885018885_) - (let ((_e1885518888_ (gx#syntax-e _tl1885018885_))) - (let ((_hd1885418892_ - (let () - (declare (not safe)) - (##car _e1885518888_))) - (_tl1885318895_ - (let () - (declare (not safe)) - (##cdr _e1885518888_)))) - (if (gx#stx-null? _tl1885318895_) - ((lambda (_L18898_ _L18900_ _L18901_) - (let* ((_g1891918934_ - (lambda (_g1892018930_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1892018930_))) - (_g1891818979_ - (lambda (_g1892018938_) - (if (gx#stx-pair? _g1892018938_) - (let ((_e1892518941_ - (gx#syntax-e - _g1892018938_))) - (let ((_hd1892418945_ - (let () - (declare (not safe)) - (##car _e1892518941_))) - (_tl1892318948_ - (let () - (declare (not safe)) - (##cdr _e1892518941_)))) - (if (gx#stx-pair? - _tl1892318948_) - (let ((_e1892818951_ - (gx#syntax-e - _tl1892318948_))) - (let ((_hd1892718955_ - (let () - (declare + _tl1870418732_))) + (let ((_hd1870818739_ + (let () (declare (not safe)) (##car _e1870918735_))) + (_tl1870718742_ + (let () (declare (not safe)) (##cdr _e1870918735_)))) + (if (gx#stx-pair? _tl1870718742_) + (let ((_e1871218745_ (gx#syntax-e _tl1870718742_))) + (let ((_hd1871118749_ + (let () + (declare (not safe)) + (##car _e1871218745_))) + (_tl1871018752_ + (let () + (declare (not safe)) + (##cdr _e1871218745_)))) + (if (gx#stx-null? _tl1871018752_) + ((lambda (_L18755_ _L18757_ _L18758_) + (let* ((_g1877618791_ + (lambda (_g1877718787_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1877718787_))) + (_g1877518836_ + (lambda (_g1877718795_) + (if (gx#stx-pair? _g1877718795_) + (let ((_e1878218798_ + (gx#syntax-e + _g1877718795_))) + (let ((_hd1878118802_ + (let () + (declare + (not safe)) + (##car _e1878218798_))) + (_tl1878018805_ + (let () + (declare + (not safe)) + (##cdr _e1878218798_)))) + (if (gx#stx-pair? + _tl1878018805_) + (let ((_e1878518808_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e1892818951_))) - (_tl1892618958_ - (let () (declare (not safe)) (##cdr _e1892818951_)))) - (if (gx#stx-null? _tl1892618958_) - ((lambda (_L18961_ _L18963_) - (let () - (let ((__tmp49235 - (let ((__tmp49236 - (let ((__tmp49254 - (gx#datum->syntax '#f 'def)) - (__tmp49237 - (let ((__tmp49238 - (let ((__tmp49239 - (let ((__tmp49253 + (gx#syntax-e _tl1878018805_))) + (let ((_hd1878418812_ + (let () (declare (not safe)) (##car _e1878518808_))) + (_tl1878318815_ + (let () + (declare (not safe)) + (##cdr _e1878518808_)))) + (if (gx#stx-null? _tl1878318815_) + ((lambda (_L18818_ _L18820_) + (let () + (let ((__tmp49017 + (let ((__tmp49018 + (let ((__tmp49037 + (gx#datum->syntax + '#f + 'def)) + (__tmp49019 + (let ((__tmp49020 + (let ((__tmp49021 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49240 - (let ((__tmp49248 - (let ((__tmp49252 - (gx#datum->syntax - '#f - '@mop.accessor)) - (__tmp49249 - (let ((__tmp49250 - (let ((__tmp49251 - (let () - (declare (not safe)) - (cons '#f '())))) - (declare (not safe)) - (cons _L18901_ - __tmp49251)))) - (declare (not safe)) - (cons _L18268_ __tmp49250)))) - (declare (not safe)) - (cons __tmp49252 __tmp49249))) - (__tmp49241 - (let ((__tmp49242 - (let ((__tmp49243 - (let ((__tmp49244 - (let ((__tmp49245 - (let ((__tmp49247 + (let ((__tmp49036 + (gx#datum->syntax '#f 'begin-annotation)) + (__tmp49022 + (let ((__tmp49031 + (let ((__tmp49035 + (gx#datum->syntax + '#f + '@mop.accessor)) + (__tmp49032 + (let ((__tmp49033 + (let ((__tmp49034 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'quote)) - (__tmp49246 - (let () - (declare (not safe)) - (cons _L18901_ '())))) - (declare (not safe)) - (cons __tmp49247 __tmp49246)))) - (declare (not safe)) - (cons __tmp49245 '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L17894_ - __tmp49244)))) - (declare (not safe)) - (cons _L18132_ __tmp49243)))) - (declare (not safe)) - (cons __tmp49242 '())))) - (declare (not safe)) - (cons __tmp49248 __tmp49241)))) - (declare (not safe)) - (cons __tmp49253 __tmp49240)))) + (not safe)) + (cons '#f '())))) (declare (not safe)) - (cons __tmp49239 '())))) + (cons _L18758_ __tmp49034)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18963_ __tmp49238)))) + (cons _L18125_ __tmp49033)))) (declare (not safe)) - (cons __tmp49254 __tmp49237)))) - (declare (not safe)) - (_wrap17800_ __tmp49236))) - (__tmp49214 - (let ((__tmp49215 - (let ((__tmp49216 - (let ((__tmp49234 + (cons __tmp49035 __tmp49032))) + (__tmp49023 + (let ((__tmp49024 + (let ((__tmp49030 (gx#datum->syntax '#f - 'def)) - (__tmp49217 - (let ((__tmp49218 - (let ((__tmp49219 + 'make-class-slot-unchecked-accessor)) + (__tmp49025 + (let ((__tmp49026 + (let ((__tmp49027 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49233 - (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49220 - (let ((__tmp49228 - (let ((__tmp49232 - (gx#datum->syntax - '#f - '@mop.mutator)) - (__tmp49229 - (let ((__tmp49230 - (let ((__tmp49231 - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (cons '#f '())))) - (declare (not safe)) - (cons _L18901_ __tmp49231)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L18268_ - __tmp49230)))) - (declare (not safe)) - (cons __tmp49232 __tmp49229))) - (__tmp49221 - (let ((__tmp49222 - (let ((__tmp49223 - (let ((__tmp49224 - (let ((__tmp49225 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49227 (gx#datum->syntax '#f 'quote)) - (__tmp49226 - (let () - (declare (not safe)) - (cons _L18901_ '())))) - (declare (not safe)) - (cons __tmp49227 __tmp49226)))) - (declare (not safe)) - (cons __tmp49225 '())))) - (declare (not safe)) - (cons _L17894_ __tmp49224)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L18130_ - __tmp49223)))) - (declare (not safe)) - (cons __tmp49222 '())))) + (let ((__tmp49029 (gx#datum->syntax '#f 'quote)) + (__tmp49028 + (let () (declare (not safe)) - (cons __tmp49228 __tmp49221)))) + (cons _L18758_ '())))) (declare (not safe)) - (cons __tmp49233 __tmp49220)))) + (cons __tmp49029 __tmp49028)))) (declare (not safe)) - (cons __tmp49219 '())))) + (cons __tmp49027 '())))) (declare (not safe)) - (cons _L18961_ __tmp49218)))) + (cons _L17894_ __tmp49026)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49234 - __tmp49217)))) + (cons __tmp49030 + __tmp49025)))) (declare (not safe)) - (_wrap17800_ __tmp49216)))) + (cons __tmp49024 '())))) (declare (not safe)) - (cons __tmp49215 '())))) + (cons __tmp49031 __tmp49023)))) (declare (not safe)) - (cons __tmp49235 __tmp49214)))) - _hd1892718955_ - _hd1892418945_) - (let () - (declare (not safe)) - (_g1891918934_ _g1892018938_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_g1891918934_ - _g1892018938_))))) - (let () - (declare (not safe)) - (_g1891918934_ - _g1892018938_))))) - (__tmp49255 - (list (gx#stx-identifier - _L18900_ - '"&" - _L18900_) - (gx#stx-identifier - _L18898_ - '"&" - _L18898_)))) - (declare (not safe)) - (_g1891818979_ __tmp49255))) - _hd1885418892_ - _hd1885118882_ - _hd1884818872_) - (let () - (declare (not safe)) - (_g1884218861_ _g1884318865_))))) - (let () - (declare (not safe)) - (_g1884218861_ _g1884318865_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_g1884218861_ - _g1884318865_))))) - (let () - (declare (not safe)) - (_g1884218861_ - _g1884318865_)))))) - (declare (not safe)) - (_g1884118983_ _ref18839_))) - _accessible-slots17942_))) + (cons __tmp49036 __tmp49022)))) (declare (not safe)) - (_g1869418835_ __tmp49213)))) - _def-setf1860218670_ - _def-getf1860318673_)))))) + (cons __tmp49021 '())))) + (declare (not safe)) + (cons _L18820_ __tmp49020)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () + (declare (not safe)) + (cons __tmp49037 __tmp49019)))) (declare (not safe)) - (_loop1859618628_ - _target1859318622_ - '() - '()))) - (let () - (declare (not safe)) - (_g1858918615_ _g1859018619_)))))) - (let () - (declare (not safe)) - (_g1858918615_ _g1859018619_))))) - (__tmp49258 - (gx#stx-map - (lambda (_ref18991_) - (let* ((_g1899419013_ - (lambda (_g1899519009_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1899519009_))) - (_g1899319071_ - (lambda (_g1899519017_) - (if (gx#stx-pair? _g1899519017_) - (let ((_e1900119020_ - (gx#syntax-e _g1899519017_))) - (let ((_hd1900019024_ - (let () - (declare (not safe)) - (##car _e1900119020_))) - (_tl1899919027_ - (let () - (declare (not safe)) - (##cdr _e1900119020_)))) - (if (gx#stx-pair? _tl1899919027_) - (let ((_e1900419030_ - (gx#syntax-e - _tl1899919027_))) - (let ((_hd1900319034_ - (let () - (declare (not safe)) - (##car _e1900419030_))) - (_tl1900219037_ - (let () - (declare (not safe)) - (##cdr _e1900419030_)))) - (if (gx#stx-pair? - _tl1900219037_) - (let ((_e1900719040_ - (gx#syntax-e - _tl1900219037_))) - (let ((_hd1900619044_ - (let () - (declare + (_wrap17800_ __tmp49018))) + (__tmp48995 + (let ((__tmp48996 + (let ((__tmp48997 + (let ((__tmp49016 + (gx#datum->syntax + '#f + 'def)) + (__tmp48998 + (let ((__tmp48999 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e1900719040_))) - (_tl1900519047_ - (let () (declare (not safe)) (##cdr _e1900719040_)))) - (if (gx#stx-null? _tl1900519047_) - ((lambda (_L19050_ _L19052_ _L19053_) - (let ((__tmp49280 - (let ((__tmp49281 - (let ((__tmp49299 - (gx#datum->syntax '#f 'def)) - (__tmp49282 - (let ((__tmp49283 - (let ((__tmp49284 - (let ((__tmp49298 + (let ((__tmp49000 + (let ((__tmp49015 + (gx#datum->syntax + '#f + 'begin-annotation)) + (__tmp49001 + (let ((__tmp49010 + (let ((__tmp49014 + (gx#datum->syntax + '#f + '@mop.mutator)) + (__tmp49011 + (let ((__tmp49012 + (let ((__tmp49013 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49285 - (let ((__tmp49293 - (let ((__tmp49297 - (gx#datum->syntax '#f '@mop.accessor)) - (__tmp49294 - (let ((__tmp49295 - (let ((__tmp49296 - (let () - (declare (not safe)) - (cons '#t '())))) + (let () (declare (not safe)) (cons '#f '())))) + (declare (not safe)) + (cons _L18758_ __tmp49013)))) + (declare (not safe)) + (cons _L18125_ __tmp49012)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L19053_ __tmp49296)))) - (declare (not safe)) - (cons _L18268_ __tmp49295)))) - (declare (not safe)) - (cons __tmp49297 __tmp49294))) - (__tmp49286 - (let ((__tmp49287 - (let ((__tmp49288 - (let ((__tmp49289 - (let ((__tmp49290 - (let ((__tmp49292 + (cons __tmp49014 __tmp49011))) + (__tmp49002 + (let ((__tmp49003 + (let ((__tmp49009 + (gx#datum->syntax + '#f + 'make-class-slot-unchecked-mutator)) + (__tmp49004 + (let ((__tmp49005 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'quote)) - (__tmp49291 - (let () (declare (not safe)) (cons _L19053_ '())))) + (let ((__tmp49006 + (let ((__tmp49008 + (gx#datum->syntax '#f 'quote)) + (__tmp49007 + (let () + (declare (not safe)) + (cons _L18758_ '())))) + (declare (not safe)) + (cons __tmp49008 __tmp49007)))) + (declare (not safe)) + (cons __tmp49006 '())))) (declare (not safe)) - (cons __tmp49292 __tmp49291)))) + (cons _L17894_ __tmp49005)))) (declare (not safe)) - (cons __tmp49290 '())))) + (cons __tmp49009 __tmp49004)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17894_ __tmp49289)))) + (cons __tmp49003 '())))) (declare (not safe)) - (cons _L18134_ __tmp49288)))) + (cons __tmp49010 __tmp49002)))) (declare (not safe)) - (cons __tmp49287 '())))) + (cons __tmp49015 __tmp49001)))) (declare (not safe)) - (cons __tmp49293 __tmp49286)))) + (cons __tmp49000 '())))) (declare (not safe)) - (cons __tmp49298 __tmp49285)))) + (cons _L18818_ __tmp48999)))) (declare (not safe)) - (cons __tmp49284 '())))) + (cons __tmp49016 __tmp48998)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L19052_ __tmp49283)))) + (_wrap17800_ __tmp48997)))) (declare (not safe)) - (cons __tmp49299 __tmp49282)))) + (cons __tmp48996 '())))) (declare (not safe)) - (_wrap17800_ __tmp49281))) - (__tmp49259 - (let ((__tmp49260 - (let ((__tmp49261 - (let ((__tmp49279 - (gx#datum->syntax - '#f - 'def)) - (__tmp49262 - (let ((__tmp49263 - (let ((__tmp49264 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49278 - (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49265 - (let ((__tmp49273 - (let ((__tmp49277 - (gx#datum->syntax - '#f - '@mop.mutator)) - (__tmp49274 - (let ((__tmp49275 - (let ((__tmp49276 - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (cons '#t '())))) - (declare (not safe)) - (cons _L19053_ __tmp49276)))) + (cons __tmp49017 __tmp48995)))) + _hd1878418812_ + _hd1878118802_) + (let () + (declare (not safe)) + (_g1877618791_ _g1877718795_))))) + (let () + (declare (not safe)) + (_g1877618791_ _g1877718795_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L18268_ __tmp49275)))) - (declare (not safe)) - (cons __tmp49277 __tmp49274))) - (__tmp49266 - (let ((__tmp49267 - (let ((__tmp49268 - (let ((__tmp49269 - (let ((__tmp49270 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49272 (gx#datum->syntax '#f 'quote)) - (__tmp49271 - (let () + (let () + (declare (not safe)) + (_g1877618791_ + _g1877718795_))))) + (__tmp49038 + (list (gx#stx-identifier + _L18757_ + '"&" + _L18757_) + (gx#stx-identifier + _L18755_ + '"&" + _L18755_)))) + (declare (not safe)) + (_g1877518836_ __tmp49038))) + _hd1871118749_ + _hd1870818739_ + _hd1870518729_) + (let () + (declare (not safe)) + (_g1869918718_ _g1870018722_))))) + (let () + (declare (not safe)) + (_g1869918718_ _g1870018722_))))) + (let () (declare (not safe)) (_g1869918718_ _g1870018722_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g1869918718_ + _g1870018722_)))))) (declare (not safe)) - (cons _L19053_ '())))) - (declare (not safe)) - (cons __tmp49272 __tmp49271)))) - (declare (not safe)) - (cons __tmp49270 '())))) - (declare (not safe)) - (cons _L17894_ __tmp49269)))) + (_g1869818840_ _ref18696_))) + _accessible-slots17949_))) + (declare (not safe)) + (_g1855118692_ __tmp48994)))) + _def-setf1845918527_ + _def-getf1846018530_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L18133_ __tmp49268)))) - (declare (not safe)) - (cons __tmp49267 '())))) + (let () + (declare (not safe)) + (_loop1845318485_ + _target1845018479_ + '() + '()))) + (let () + (declare (not safe)) + (_g1844618472_ _g1844718476_)))))) + (let () + (declare (not safe)) + (_g1844618472_ _g1844718476_))))) + (__tmp49041 + (gx#stx-map + (lambda (_ref18848_) + (let* ((_g1885118870_ + (lambda (_g1885218866_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1885218866_))) + (_g1885018928_ + (lambda (_g1885218874_) + (if (gx#stx-pair? _g1885218874_) + (let ((_e1885818877_ + (gx#syntax-e _g1885218874_))) + (let ((_hd1885718881_ + (let () + (declare (not safe)) + (##car _e1885818877_))) + (_tl1885618884_ + (let () + (declare (not safe)) + (##cdr _e1885818877_)))) + (if (gx#stx-pair? _tl1885618884_) + (let ((_e1886118887_ + (gx#syntax-e + _tl1885618884_))) + (let ((_hd1886018891_ + (let () + (declare + (not safe)) + (##car _e1886118887_))) + (_tl1885918894_ + (let () + (declare + (not safe)) + (##cdr _e1886118887_)))) + (if (gx#stx-pair? + _tl1885918894_) + (let ((_e1886418897_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _tl1885918894_))) + (let ((_hd1886318901_ + (let () (declare (not safe)) (##car _e1886418897_))) + (_tl1886218904_ + (let () + (declare (not safe)) + (##cdr _e1886418897_)))) + (if (gx#stx-null? _tl1886218904_) + ((lambda (_L18907_ _L18909_ _L18910_) + (let ((__tmp49064 + (let ((__tmp49065 + (let ((__tmp49084 + (gx#datum->syntax '#f 'def)) + (__tmp49066 + (let ((__tmp49067 + (let ((__tmp49068 + (let ((__tmp49083 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'begin-annotation)) + (__tmp49069 + (let ((__tmp49078 + (let ((__tmp49082 + (gx#datum->syntax + '#f + '@mop.accessor)) + (__tmp49079 + (let ((__tmp49080 + (let ((__tmp49081 + (let () + (declare + (not safe)) + (cons '#t '())))) + (declare (not safe)) + (cons _L18910_ + __tmp49081)))) + (declare (not safe)) + (cons _L18125_ __tmp49080)))) + (declare (not safe)) + (cons __tmp49082 __tmp49079))) + (__tmp49070 + (let ((__tmp49071 + (let ((__tmp49077 + (gx#datum->syntax + '#f + 'make-class-slot-accessor)) + (__tmp49072 + (let ((__tmp49073 + (let ((__tmp49074 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49076 (gx#datum->syntax '#f 'quote)) + (__tmp49075 + (let () (declare (not safe)) - (cons __tmp49273 __tmp49266)))) + (cons _L18910_ '())))) (declare (not safe)) - (cons __tmp49278 __tmp49265)))) + (cons __tmp49076 __tmp49075)))) (declare (not safe)) - (cons __tmp49264 '())))) + (cons __tmp49074 '())))) (declare (not safe)) - (cons _L19050_ __tmp49263)))) + (cons _L17894_ __tmp49073)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49279 __tmp49262)))) + (cons __tmp49077 __tmp49072)))) (declare (not safe)) - (_wrap17800_ __tmp49261)))) + (cons __tmp49071 '())))) (declare (not safe)) - (cons __tmp49260 '())))) + (cons __tmp49078 __tmp49070)))) (declare (not safe)) - (cons __tmp49280 __tmp49259))) - _hd1900619044_ - _hd1900319034_ - _hd1900019024_) - (let () - (declare (not safe)) - (_g1899419013_ _g1899519017_))))) + (cons __tmp49083 __tmp49069)))) + (declare (not safe)) + (cons __tmp49068 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_g1899419013_ - _g1899519017_))))) - (let () - (declare (not safe)) - (_g1899419013_ - _g1899519017_))))) - (let () - (declare (not safe)) - (_g1899419013_ _g1899519017_)))))) - (declare (not safe)) - (_g1899319071_ _ref18991_))) - _accessible-slots17942_))) + (declare (not safe)) + (cons _L18909_ + __tmp49067)))) + (declare (not safe)) + (cons __tmp49084 __tmp49066)))) + (declare (not safe)) + (_wrap17800_ __tmp49065))) + (__tmp49042 + (let ((__tmp49043 + (let ((__tmp49044 + (let ((__tmp49063 + (gx#datum->syntax + '#f + 'def)) + (__tmp49045 + (let ((__tmp49046 + (let ((__tmp49047 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49062 + (gx#datum->syntax '#f 'begin-annotation)) + (__tmp49048 + (let ((__tmp49057 + (let ((__tmp49061 + (gx#datum->syntax + '#f + '@mop.mutator)) + (__tmp49058 + (let ((__tmp49059 + (let ((__tmp49060 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons '#t '())))) + (declare (not safe)) + (cons _L18910_ __tmp49060)))) (declare (not safe)) - (_g1858818987_ __tmp49258)))) + (cons _L18125_ __tmp49059)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1856218573_))) - (__tmp49300 - (let ((__tmp49301 - (let ((__tmp49313 + (declare (not safe)) + (cons __tmp49061 __tmp49058))) + (__tmp49049 + (let ((__tmp49050 + (let ((__tmp49056 (gx#datum->syntax '#f - 'def)) - (__tmp49302 - (let ((__tmp49303 + 'make-class-slot-mutator)) + (__tmp49051 + (let ((__tmp49052 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49304 - (let ((__tmp49312 - (gx#datum->syntax - '#f - 'begin-annotation)) - (__tmp49305 - (let ((__tmp49309 - (let ((__tmp49311 - (gx#datum->syntax - '#f - '@mop.predicate)) - (__tmp49310 - (let () - (declare (not safe)) - (cons _L18268_ '())))) - (declare (not safe)) - (cons __tmp49311 __tmp49310))) - (__tmp49306 - (let ((__tmp49307 - (let ((__tmp49308 - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (cons _L17894_ '())))) - (declare (not safe)) - (cons _L18135_ __tmp49308)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49307 '())))) + (let ((__tmp49053 + (let ((__tmp49055 + (gx#datum->syntax '#f 'quote)) + (__tmp49054 + (let () (declare (not safe)) - (cons __tmp49309 __tmp49306)))) + (cons _L18910_ '())))) (declare (not safe)) - (cons __tmp49312 __tmp49305)))) + (cons __tmp49055 __tmp49054)))) (declare (not safe)) - (cons __tmp49304 '())))) + (cons __tmp49053 '())))) (declare (not safe)) - (cons _L17891_ __tmp49303)))) + (cons _L17894_ __tmp49052)))) (declare (not safe)) - (cons __tmp49313 __tmp49302)))) + (cons __tmp49056 __tmp49051)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17800_ __tmp49301)))) - (declare (not safe)) - (_g1856019075_ __tmp49300)))) - _g1853418545_))) - (__tmp49314 - (if (gx#stx-false? _L17892_) - (let ((__tmp49337 - (gx#datum->syntax '#f 'begin))) - (declare (not safe)) - (cons __tmp49337 '())) - (let ((__tmp49315 - (let ((__tmp49336 - (gx#datum->syntax '#f 'def)) - (__tmp49316 - (let ((__tmp49317 - (let ((__tmp49318 - (let ((__tmp49335 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49319 - (let ((__tmp49332 - (let ((__tmp49334 - (gx#datum->syntax - '#f - '@mop.constructor)) - (__tmp49333 - (let () - (declare (not safe)) - (cons _L18268_ '())))) - (declare (not safe)) - (cons __tmp49334 __tmp49333))) - (__tmp49320 - (let ((__tmp49321 - (let ((__tmp49331 - (gx#datum->syntax - '#f - 'lambda)) - (__tmp49322 - (let ((__tmp49330 - (gx#datum->syntax - '#f - '$args)) - (__tmp49323 - (let ((__tmp49324 - (let ((__tmp49329 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'apply)) - (__tmp49325 - (let ((__tmp49326 - (let ((__tmp49327 - (let ((__tmp49328 - (gx#datum->syntax - '#f - '$args))) - (declare (not safe)) - (cons __tmp49328 '())))) + (cons __tmp49050 '())))) (declare (not safe)) - (cons _L17894_ __tmp49327)))) + (cons __tmp49057 __tmp49049)))) (declare (not safe)) - (cons _L18136_ __tmp49326)))) + (cons __tmp49062 __tmp49048)))) (declare (not safe)) - (cons __tmp49329 __tmp49325)))) + (cons __tmp49047 '())))) (declare (not safe)) - (cons __tmp49324 '())))) + (cons _L18907_ __tmp49046)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49330 - __tmp49323)))) + (cons __tmp49063 + __tmp49045)))) (declare (not safe)) - (cons __tmp49331 __tmp49322)))) + (_wrap17800_ __tmp49044)))) (declare (not safe)) - (cons __tmp49321 '())))) + (cons __tmp49043 '())))) (declare (not safe)) - (cons __tmp49332 __tmp49320)))) - (declare (not safe)) - (cons __tmp49335 __tmp49319)))) - (declare (not safe)) - (cons __tmp49318 '())))) + (cons __tmp49064 __tmp49042))) + _hd1886318901_ + _hd1886018891_ + _hd1885718881_) + (let () + (declare (not safe)) + (_g1885118870_ _g1885218874_))))) + (let () + (declare (not safe)) + (_g1885118870_ _g1885218874_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L17892_ __tmp49317)))) - (declare (not safe)) - (cons __tmp49336 __tmp49316)))) - (declare (not safe)) - (_wrap17800_ __tmp49315))))) - (declare (not safe)) - (_g1853219079_ __tmp49314)))) - _g1850618517_))) - (__tmp49338 - (let ((__tmp49339 - (let ((__tmp49356 (gx#datum->syntax '#f 'def)) - (__tmp49340 - (let ((__tmp49341 - (let ((__tmp49342 - (let ((__tmp49355 - (gx#datum->syntax - '#f - 'begin-annotation)) - (__tmp49343 - (let ((__tmp49345 - (let ((__tmp49354 + (let () + (declare (not safe)) + (_g1885118870_ + _g1885218874_))))) + (let () + (declare (not safe)) + (_g1885118870_ _g1885218874_)))))) + (declare (not safe)) + (_g1885018928_ _ref18848_))) + _accessible-slots17949_))) + (declare (not safe)) + (_g1844518844_ __tmp49041)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g1841918430_))) + (__tmp49085 + (let ((__tmp49086 + (let ((__tmp49099 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - '@mop.class)) - (__tmp49346 - (let ((__tmp49347 - (let ((__tmp49348 - (let ((__tmp49352 - (let ((__tmp49353 - (lambda (_g1908619089_ - _g1908719092_) - (let () - (declare (not safe)) - (cons _g1908619089_ - _g1908719092_))))) - (declare (not safe)) - (foldr1 __tmp49353 - '() - _L17999_))) - (__tmp49349 - (let ((__tmp49350 - (let ((__tmp49351 + 'def)) + (__tmp49087 + (let ((__tmp49088 + (let ((__tmp49089 + (let ((__tmp49098 + (gx#datum->syntax + '#f + 'begin-annotation)) + (__tmp49090 + (let ((__tmp49095 + (let ((__tmp49097 + (gx#datum->syntax + '#f + '@mop.predicate)) + (__tmp49096 (let () (declare (not safe)) - (cons _L18352_ + (cons _L18125_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L18324_ __tmp49351)))) + (cons __tmp49097 __tmp49096))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp49091 + (let ((__tmp49092 + (let ((__tmp49094 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'make-class-predicate)) + (__tmp49093 + (let () (declare (not safe)) (cons _L17894_ '())))) + (declare (not safe)) + (cons __tmp49094 __tmp49093)))) + (declare (not safe)) + (cons __tmp49092 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18240_ __tmp49350)))) + (cons __tmp49095 __tmp49091)))) (declare (not safe)) - (cons __tmp49352 __tmp49349)))) + (cons __tmp49098 __tmp49090)))) (declare (not safe)) - (cons _L18296_ __tmp49348)))) + (cons __tmp49089 '())))) (declare (not safe)) - (cons _L18184_ __tmp49347)))) + (cons _L17891_ __tmp49088)))) (declare (not safe)) - (cons __tmp49354 __tmp49346))) - (__tmp49344 (let () (declare (not safe)) (cons _L18492_ '())))) + (cons __tmp49099 __tmp49087)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49345 - __tmp49344)))) + (_wrap17800_ __tmp49086)))) + (declare (not safe)) + (_g1841718932_ __tmp49085)))) + _g1839118402_))) + (__tmp49100 + (if (gx#stx-false? _L17892_) + (let ((__tmp49124 + (gx#datum->syntax '#f 'begin))) + (declare (not safe)) + (cons __tmp49124 '())) + (let ((__tmp49101 + (let ((__tmp49123 + (gx#datum->syntax + '#f + 'def)) + (__tmp49102 + (let ((__tmp49103 + (let ((__tmp49104 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49122 + (gx#datum->syntax '#f 'begin-annotation)) + (__tmp49105 + (let ((__tmp49119 + (let ((__tmp49121 + (gx#datum->syntax + '#f + '@mop.constructor)) + (__tmp49120 + (let () + (declare (not safe)) + (cons _L18125_ '())))) + (declare (not safe)) + (cons __tmp49121 __tmp49120))) + (__tmp49106 + (let ((__tmp49107 + (let ((__tmp49118 + (gx#datum->syntax + '#f + 'lambda)) + (__tmp49108 + (let ((__tmp49117 + (gx#datum->syntax + '#f + '$args)) + (__tmp49109 + (let ((__tmp49110 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49116 (gx#datum->syntax '#f 'apply)) + (__tmp49111 + (let ((__tmp49115 + (gx#datum->syntax + '#f + 'make-instance)) + (__tmp49112 + (let ((__tmp49113 + (let ((__tmp49114 + (gx#datum->syntax + '#f + '$args))) + (declare (not safe)) + (cons __tmp49114 '())))) (declare (not safe)) - (cons __tmp49355 __tmp49343)))) + (cons _L17894_ __tmp49113)))) (declare (not safe)) - (cons __tmp49342 '())))) + (cons __tmp49115 __tmp49112)))) (declare (not safe)) - (cons _L17894_ __tmp49341)))) + (cons __tmp49116 __tmp49111)))) (declare (not safe)) - (cons __tmp49356 __tmp49340)))) + (cons __tmp49110 '())))) (declare (not safe)) - (_wrap17800_ __tmp49339)))) + (cons __tmp49117 __tmp49109)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_g1850419083_ __tmp49338)))) - _g1847818489_))) - (__tmp49357 - (let ((__tmp49358 - (let ((__tmp49375 - (let ((__tmp49377 - (gx#datum->syntax - '#f - 'quote)) - (__tmp49376 - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (cons _L18184_ '())))) - (declare (not safe)) - (cons __tmp49377 __tmp49376))) + (declare (not safe)) + (cons __tmp49118 + __tmp49108)))) + (declare (not safe)) + (cons __tmp49107 '())))) + (declare (not safe)) + (cons __tmp49119 __tmp49106)))) + (declare (not safe)) + (cons __tmp49122 __tmp49105)))) + (declare (not safe)) + (cons __tmp49104 '())))) + (declare (not safe)) + (cons _L17892_ __tmp49103)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49359 - (let ((__tmp49372 - (let ((__tmp49374 + (declare (not safe)) + (cons __tmp49123 __tmp49102)))) + (declare (not safe)) + (_wrap17800_ __tmp49101))))) + (declare (not safe)) + (_g1838918936_ __tmp49100)))) + _g1836318374_))) + (__tmp49125 + (let ((__tmp49126 + (let ((__tmp49143 (gx#datum->syntax '#f 'def)) + (__tmp49127 + (let ((__tmp49128 + (let ((__tmp49129 + (let ((__tmp49142 + (gx#datum->syntax + '#f + 'begin-annotation)) + (__tmp49130 + (let ((__tmp49132 + (let ((__tmp49141 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'quote)) - (__tmp49373 - (let () (declare (not safe)) (cons _L18212_ '())))) - (declare (not safe)) - (cons __tmp49374 __tmp49373))) - (__tmp49360 - (let ((__tmp49361 - (let ((__tmp49367 - (let ((__tmp49371 - (gx#datum->syntax '#f 'quote)) - (__tmp49368 - (let ((__tmp49369 - (let ((__tmp49370 - (lambda (_g1909819101_ + (gx#datum->syntax '#f '@mop.class)) + (__tmp49133 + (let ((__tmp49134 + (let ((__tmp49135 + (let ((__tmp49139 + (let ((__tmp49140 + (lambda (_g1894318946_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1909919104_) - (let () - (declare (not safe)) - (cons _g1909819101_ _g1909919104_))))) + _g1894418949_) + (let () + (declare (not safe)) + (cons _g1894318946_ _g1894418949_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 __tmp49370 - '() - _L17999_)))) - (declare (not safe)) - (cons __tmp49369 '())))) - (declare (not safe)) - (cons __tmp49371 __tmp49368))) - (__tmp49362 - (let ((__tmp49363 - (let ((__tmp49364 - (let ((__tmp49366 - (gx#datum->syntax - '#f - 'quote)) - (__tmp49365 - (let () - (declare (not safe)) - (cons _L18240_ - '())))) - (declare (not safe)) - (cons __tmp49366 - __tmp49365)))) - (declare (not safe)) - (cons __tmp49364 '())))) - (declare (not safe)) - (cons _L18436_ __tmp49363)))) - (declare (not safe)) - (cons __tmp49367 __tmp49362)))) - (declare (not safe)) - (cons _L18464_ __tmp49361)))) + (declare (not safe)) + (foldr1 __tmp49140 + '() + _L18006_))) + (__tmp49136 + (let ((__tmp49137 + (let ((__tmp49138 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _L18209_ '())))) + (declare (not safe)) + (cons _L18181_ __tmp49138)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L18097_ + __tmp49137)))) + (declare (not safe)) + (cons __tmp49139 __tmp49136)))) + (declare (not safe)) + (cons _L18153_ __tmp49135)))) + (declare (not safe)) + (cons _L18041_ __tmp49134)))) + (declare (not safe)) + (cons __tmp49141 __tmp49133))) + (__tmp49131 + (let () (declare (not safe)) (cons _L18349_ '())))) + (declare (not safe)) + (cons __tmp49132 __tmp49131)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp49142 + __tmp49130)))) + (declare (not safe)) + (cons __tmp49129 '())))) + (declare (not safe)) + (cons _L17894_ __tmp49128)))) + (declare (not safe)) + (cons __tmp49143 __tmp49127)))) + (declare (not safe)) + (_wrap17800_ __tmp49126)))) + (declare (not safe)) + (_g1836118940_ __tmp49125)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g1833518346_))) + (__tmp49144 + (let ((__tmp49165 + (gx#datum->syntax + '#f + 'make-class-type)) + (__tmp49145 + (let ((__tmp49162 + (let ((__tmp49164 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'quote)) + (__tmp49163 + (let () (declare (not safe)) (cons _L18041_ '())))) + (declare (not safe)) + (cons __tmp49164 __tmp49163))) + (__tmp49146 + (let ((__tmp49159 + (let ((__tmp49161 (gx#datum->syntax '#f 'quote)) + (__tmp49160 + (let () + (declare (not safe)) + (cons _L18069_ '())))) + (declare (not safe)) + (cons __tmp49161 __tmp49160))) + (__tmp49147 + (let ((__tmp49148 + (let ((__tmp49154 + (let ((__tmp49158 + (gx#datum->syntax '#f 'quote)) + (__tmp49155 + (let ((__tmp49156 + (let ((__tmp49157 + (lambda (_g1895518958_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g1895618961_) + (let () + (declare (not safe)) + (cons _g1895518958_ _g1895618961_))))) (declare (not safe)) - (cons __tmp49372 __tmp49360)))) + (foldr1 __tmp49157 '() _L18006_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49375 - __tmp49359)))) + (cons __tmp49156 '())))) (declare (not safe)) - (cons _L18137_ __tmp49358)))) - (declare (not safe)) - (_g1847619095_ __tmp49357)))) - _g1845018461_))) - (__tmp49378 - (if _struct?17798_ - _L17893_ - (let ((__tmp49379 (gx#datum->syntax '#f 'list))) - (declare (not safe)) - (cons __tmp49379 _L17893_))))) - (declare (not safe)) - (_g1844819107_ __tmp49378)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1842218433_))) - (__tmp49380 - (if _struct?17798_ - (let ((__tmp49387 + (cons __tmp49158 __tmp49155))) + (__tmp49149 + (let ((__tmp49150 + (let ((__tmp49151 + (let ((__tmp49153 (gx#datum->syntax '#f - '@list)) - (__tmp49381 - (let ((__tmp49384 + 'quote)) + (__tmp49152 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49386 (gx#datum->syntax '#f '@list)) - (__tmp49385 - (let () - (declare (not safe)) - (cons 'struct: '#t)))) - (declare (not safe)) - (cons __tmp49386 __tmp49385))) - (__tmp49382 - (let ((__tmp49383 - (let () - (declare (not safe)) - (cons _L18408_ '())))) - (declare (not safe)) - (cons ':: __tmp49383)))) - (declare (not safe)) - (cons __tmp49384 __tmp49382)))) + (not safe)) + (cons _L18097_ '())))) (declare (not safe)) - (cons __tmp49387 __tmp49381)) - _L18408_))) + (cons __tmp49153 __tmp49152)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_g1842019111_ __tmp49380)))) - _g1839418405_))) - (__tmp49388 - (if (gx#stx-e _L18352_) - (let ((__tmp49395 - (gx#datum->syntax '#f '@list)) - (__tmp49389 - (let ((__tmp49392 - (let ((__tmp49394 - (gx#datum->syntax - '#f - '@list)) - (__tmp49393 - (let () - (declare - (not safe)) - (cons 'final: -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#t)))) - (declare (not safe)) - (cons __tmp49394 __tmp49393))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49390 - (let ((__tmp49391 - (let () - (declare - (not safe)) - (cons _L18380_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) - (declare (not safe)) - (cons ':: __tmp49391)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49392 __tmp49390)))) - (declare (not safe)) - (cons __tmp49395 __tmp49389)) - _L18380_))) - (declare (not safe)) - (_g1839219115_ __tmp49388)))) - _g1836618377_))) - (__tmp49396 - (let ((_$e19123_ (gx#stx-getq 'properties: _L17889_))) - (if _$e19123_ - _$e19123_ - (let ((__tmp49397 (gx#datum->syntax '#f '@list))) + (declare (not safe)) + (cons __tmp49151 '())))) + (declare (not safe)) + (cons _L18293_ __tmp49150)))) + (declare (not safe)) + (cons __tmp49154 __tmp49149)))) (declare (not safe)) - (cons __tmp49397 '())))))) + (cons _L18321_ __tmp49148)))) + (declare (not safe)) + (cons __tmp49159 __tmp49147)))) (declare (not safe)) - (_g1836419119_ __tmp49396)))) + (cons __tmp49162 __tmp49146)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1833818349_))) - (__tmp49398 - (gx#stx-getq 'final: _L17889_))) + (declare (not safe)) + (cons __tmp49165 __tmp49145)))) (declare (not safe)) - (_g1833619127_ __tmp49398)))) - _g1831018321_)))) + (_g1833318952_ __tmp49144)))) + _g1830718318_))) + (__tmp49166 + (let ((__tmp49167 (gx#datum->syntax '#f 'list))) + (declare (not safe)) + (cons __tmp49167 _L17893_)))) (declare (not safe)) - (_g1830819131_ _struct?17798_)))) - _g1828218293_))) - (__tmp49399 - (if _struct?17798_ - (if (gx#stx-e _L17893_) - (let ((__tmp49400 (gx#core-quote-syntax _L17893_))) - (declare (not safe)) - (cons __tmp49400 '())) - '()) - (gx#stx-map gx#core-quote-syntax _L17893_)))) + (_g1830518964_ __tmp49166)))) + _g1827918290_))) + (__tmp49168 + (if _struct?17932_ + (let ((__tmp49175 (gx#datum->syntax '#f '@list)) + (__tmp49169 + (let ((__tmp49172 + (let ((__tmp49174 + (gx#datum->syntax '#f '@list)) + (__tmp49173 + (let () + (declare (not safe)) + (cons 'struct: '#t)))) + (declare (not safe)) + (cons __tmp49174 __tmp49173))) + (__tmp49170 + (let ((__tmp49171 + (let () + (declare (not safe)) + (cons _L18265_ '())))) + (declare (not safe)) + (cons ':: __tmp49171)))) + (declare (not safe)) + (cons __tmp49172 __tmp49170)))) + (declare (not safe)) + (cons __tmp49175 __tmp49169)) + _L18265_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1828019135_ __tmp49399)))) - _g1825418265_))) - (__tmp49401 - (gx#core-quote-syntax _L17894_))) + (_g1827718968_ __tmp49168)))) + _g1825118262_))) + (__tmp49176 + (if (gx#stx-e _L18209_) + (let ((__tmp49183 + (gx#datum->syntax + '#f + '@list)) + (__tmp49177 + (let ((__tmp49180 + (let ((__tmp49182 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '@list)) + (__tmp49181 + (let () (declare (not safe)) (cons 'final: '#t)))) + (declare (not safe)) + (cons __tmp49182 __tmp49181))) + (__tmp49178 + (let ((__tmp49179 + (let () (declare (not safe)) (cons _L18237_ '())))) + (declare (not safe)) + (cons ':: __tmp49179)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp49180 + __tmp49178)))) + (declare (not safe)) + (cons __tmp49183 __tmp49177)) + _L18237_))) (declare (not safe)) - (_g1825219139_ __tmp49401)))) - _g1822618237_))) - (__tmp49402 (gx#stx-getq 'constructor: _L17889_))) + (_g1824918972_ __tmp49176)))) + _g1822318234_))) + (__tmp49184 + (let ((_$e18980_ (gx#stx-getq 'properties: _L17889_))) + (if _$e18980_ + _$e18980_ + (let ((__tmp49185 + (gx#datum->syntax '#f '@list))) + (declare (not safe)) + (cons __tmp49185 '())))))) (declare (not safe)) - (_g1822419143_ __tmp49402)))) + (_g1822118976_ __tmp49184)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1819818209_))) - (__tmp49403 - (let ((_$e19151_ - (gx#stx-getq - 'name: - _L17889_))) - (if _$e19151_ - _$e19151_ - _L17894_)))) + _g1819518206_))) + (__tmp49186 + (gx#stx-getq + 'final: + _L17889_))) (declare (not safe)) - (_g1819619147_ __tmp49403)))) - _g1817018181_))) - (__tmp49404 - (let ((_$e19159_ - (gx#stx-getq 'id: _L17889_))) - (if _$e19159_ - _$e19159_ - (let () - (declare (not safe)) - (|gerbil/core$$[1]#make-class-type-id| - _L17894_)))))) + (_g1819318984_ __tmp49186)))) + _g1816718178_)))) (declare (not safe)) - (_g1816819155_ __tmp49404)))) - _hd1804618124_ - _hd1804318114_ - _hd1804018104_ - _hd1803718094_ - _hd1803418084_ - _hd1803118074_ - _hd1802818064_) - (let () - (declare (not safe)) - (_g1801818053_ _g1801918057_))))) - (let () (declare (not safe)) (_g1801818053_ _g1801918057_))))) + (_g1816518988_ _struct?17932_)))) + _g1813918150_))) + (__tmp49187 (gx#stx-map gx#core-quote-syntax _L17893_))) + (declare (not safe)) + (_g1813718992_ __tmp49187)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_g1801818053_ - _g1801918057_))))) - (let () - (declare (not safe)) - (_g1801818053_ _g1801918057_))))) - (let () - (declare (not safe)) - (_g1801818053_ _g1801918057_))))) - (let () + _g1811118122_))) + (__tmp49188 + (gx#core-quote-syntax _L17894_))) + (declare (not safe)) + (_g1810918996_ __tmp49188)))) + _g1808318094_))) + (__tmp49189 (gx#stx-getq 'constructor: _L17889_))) (declare (not safe)) - (_g1801818053_ _g1801918057_))))) - (let () (declare (not safe)) (_g1801818053_ _g1801918057_))))) + (_g1808119000_ __tmp49189)))) + _g1805518066_))) + (__tmp49190 + (let ((_$e19008_ (gx#stx-getq 'name: _L17889_))) + (if _$e19008_ _$e19008_ _L17894_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g1805319004_ __tmp49190)))) + _g1802718038_))) + (__tmp49191 + (let ((_$e19016_ + (gx#stx-getq 'id: _L17889_))) + (if _$e19016_ + _$e19016_ (let () (declare (not safe)) - (_g1801818053_ - _g1801918057_))))) - (__tmp49405 - (if _struct?17798_ - (let ((__tmp49431 - (gx#datum->syntax - '#f - 'make-struct-type)) - (__tmp49419 - (let ((__tmp49430 - (gx#datum->syntax - '#f - 'make-struct-instance)) - (__tmp49420 - (let ((__tmp49429 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'make-struct-predicate)) - (__tmp49421 - (let ((__tmp49428 - (gx#datum->syntax - '#f - 'make-struct-slot-accessor)) - (__tmp49422 - (let ((__tmp49427 - (gx#datum->syntax - '#f - 'make-struct-slot-mutator)) - (__tmp49423 - (let ((__tmp49426 - (gx#datum->syntax - '#f - 'make-struct-slot-unchecked-accessor)) - (__tmp49424 - (let ((__tmp49425 - (gx#datum->syntax - '#f - 'make-struct-slot-unchecked-mutator))) - (declare (not safe)) - (cons __tmp49425 '())))) - (declare (not safe)) - (cons __tmp49426 __tmp49424)))) - (declare (not safe)) - (cons __tmp49427 __tmp49423)))) - (declare (not safe)) - (cons __tmp49428 __tmp49422)))) - (declare (not safe)) - (cons __tmp49429 __tmp49421)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49430 - __tmp49420)))) - (declare (not safe)) - (cons __tmp49431 __tmp49419)) - (let ((__tmp49418 - (gx#datum->syntax - '#f - 'make-class-type)) - (__tmp49406 - (let ((__tmp49417 - (gx#datum->syntax - '#f - 'make-class-instance)) - (__tmp49407 - (let ((__tmp49416 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'make-class-predicate)) - (__tmp49408 - (let ((__tmp49415 - (gx#datum->syntax - '#f - 'make-class-slot-accessor)) - (__tmp49409 - (let ((__tmp49414 - (gx#datum->syntax - '#f - 'make-class-slot-mutator)) - (__tmp49410 - (let ((__tmp49413 - (gx#datum->syntax - '#f - 'make-class-slot-unchecked-accessor)) - (__tmp49411 - (let ((__tmp49412 - (gx#datum->syntax - '#f - 'make-class-slot-unchecked-mutator))) - (declare (not safe)) - (cons __tmp49412 '())))) - (declare (not safe)) - (cons __tmp49413 __tmp49411)))) - (declare (not safe)) - (cons __tmp49414 __tmp49410)))) - (declare (not safe)) - (cons __tmp49415 __tmp49409)))) - (declare (not safe)) - (cons __tmp49416 __tmp49408)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49417 - __tmp49407)))) - (declare (not safe)) - (cons __tmp49418 __tmp49406))))) + (|gerbil/core$$[1]#make-class-type-id| + _L17894_)))))) (declare (not safe)) - (_g1801719163_ __tmp49405)))) - _slot1795617995_)))))) + (_g1802519012_ __tmp49191)))) + _slot1796318002_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1795117975_ - _target1794817969_ + (_loop1795817982_ + _target1795517976_ '()))) (let () (declare (not safe)) - (_g1794517962_ - _g1794617966_)))))) + (_g1795217969_ + _g1795317973_)))))) (let () (declare (not safe)) - (_g1794517962_ _g1794617966_))))) - (__tmp49433 - (gx#stx-map _slot-name17802_ _slots17932_))) + (_g1795217969_ _g1795317973_))))) + (__tmp49193 + (gx#stx-map _slot-name17802_ _slots17939_))) (declare (not safe)) - (_g1794419167_ __tmp49433)) + (_g1795119020_ __tmp49193)) (let () (declare (not safe)) (_g1780517832_ _g1780617836_)))) @@ -1904,14 +1672,14 @@ (declare (not safe)) (_g1780517832_ _g1780617836_)))))) (declare (not safe)) - (_g1780419171_ _stx17796_))))) + (_g1780419024_ _stx17796_))))) (define |gerbil/core$$[:0:]#defstruct-type| - (lambda (_stx19283_) + (lambda (_stx19136_) (let () (declare (not safe)) - (|gerbil/core$$[1]#generate-typedef| _stx19283_ '#t)))) + (|gerbil/core$$[1]#generate-typedef| _stx19136_ '#t)))) (define |gerbil/core$$[:0:]#defclass-type| - (lambda (_stx19286_) + (lambda (_stx19139_) (let () (declare (not safe)) - (|gerbil/core$$[1]#generate-typedef| _stx19286_ '#f))))) + (|gerbil/core$$[1]#generate-typedef| _stx19139_ '#f))))) diff --git a/src/bootstrap/gerbil/core__7.scm b/src/bootstrap/gerbil/core__7.scm index c5e5043ba..55f0bf189 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]#_g49435_| + (define |gerbil/core$$[1]#_g49195_| (##structure gx#syntax-quote::t 'class-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49437_| + (define |gerbil/core$$[1]#_g49197_| (##structure gx#syntax-quote::t 'make-class-type-info #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49439_| + (define |gerbil/core$$[1]#_g49199_| (##structure gx#syntax-quote::t 'class-type-info? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49456_| + (define |gerbil/core$$[1]#_g49216_| (##structure gx#syntax-quote::t 'class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49459_| + (define |gerbil/core$$[1]#_g49219_| (##structure gx#syntax-quote::t 'class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49462_| + (define |gerbil/core$$[1]#_g49222_| (##structure gx#syntax-quote::t 'class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49465_| + (define |gerbil/core$$[1]#_g49225_| (##structure gx#syntax-quote::t 'class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49468_| + (define |gerbil/core$$[1]#_g49228_| (##structure gx#syntax-quote::t 'class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49471_| + (define |gerbil/core$$[1]#_g49231_| (##structure gx#syntax-quote::t 'class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49474_| + (define |gerbil/core$$[1]#_g49234_| (##structure gx#syntax-quote::t 'class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49477_| + (define |gerbil/core$$[1]#_g49237_| (##structure gx#syntax-quote::t 'class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49480_| + (define |gerbil/core$$[1]#_g49240_| (##structure gx#syntax-quote::t 'class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49483_| + (define |gerbil/core$$[1]#_g49243_| (##structure gx#syntax-quote::t 'class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49486_| + (define |gerbil/core$$[1]#_g49246_| (##structure gx#syntax-quote::t 'class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49489_| + (define |gerbil/core$$[1]#_g49249_| (##structure gx#syntax-quote::t 'class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49492_| + (define |gerbil/core$$[1]#_g49252_| (##structure gx#syntax-quote::t 'class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49495_| + (define |gerbil/core$$[1]#_g49255_| (##structure gx#syntax-quote::t 'class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49512_| + (define |gerbil/core$$[1]#_g49272_| (##structure gx#syntax-quote::t 'class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49515_| + (define |gerbil/core$$[1]#_g49275_| (##structure gx#syntax-quote::t 'class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49518_| + (define |gerbil/core$$[1]#_g49278_| (##structure gx#syntax-quote::t 'class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49521_| + (define |gerbil/core$$[1]#_g49281_| (##structure gx#syntax-quote::t 'class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49524_| + (define |gerbil/core$$[1]#_g49284_| (##structure gx#syntax-quote::t 'class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49527_| + (define |gerbil/core$$[1]#_g49287_| (##structure gx#syntax-quote::t 'class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49530_| + (define |gerbil/core$$[1]#_g49290_| (##structure gx#syntax-quote::t 'class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49533_| + (define |gerbil/core$$[1]#_g49293_| (##structure gx#syntax-quote::t 'class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49536_| + (define |gerbil/core$$[1]#_g49296_| (##structure gx#syntax-quote::t 'class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49539_| + (define |gerbil/core$$[1]#_g49299_| (##structure gx#syntax-quote::t 'class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49542_| + (define |gerbil/core$$[1]#_g49302_| (##structure gx#syntax-quote::t 'class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49545_| + (define |gerbil/core$$[1]#_g49305_| (##structure gx#syntax-quote::t 'class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49548_| + (define |gerbil/core$$[1]#_g49308_| (##structure gx#syntax-quote::t 'class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49551_| + (define |gerbil/core$$[1]#_g49311_| (##structure gx#syntax-quote::t 'class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49568_| + (define |gerbil/core$$[1]#_g49328_| (##structure gx#syntax-quote::t '&class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49571_| + (define |gerbil/core$$[1]#_g49331_| (##structure gx#syntax-quote::t '&class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49574_| + (define |gerbil/core$$[1]#_g49334_| (##structure gx#syntax-quote::t '&class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49577_| + (define |gerbil/core$$[1]#_g49337_| (##structure gx#syntax-quote::t '&class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49580_| + (define |gerbil/core$$[1]#_g49340_| (##structure gx#syntax-quote::t '&class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49583_| + (define |gerbil/core$$[1]#_g49343_| (##structure gx#syntax-quote::t '&class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49586_| + (define |gerbil/core$$[1]#_g49346_| (##structure gx#syntax-quote::t '&class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49589_| + (define |gerbil/core$$[1]#_g49349_| (##structure gx#syntax-quote::t '&class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49592_| + (define |gerbil/core$$[1]#_g49352_| (##structure gx#syntax-quote::t '&class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49595_| + (define |gerbil/core$$[1]#_g49355_| (##structure gx#syntax-quote::t '&class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49598_| + (define |gerbil/core$$[1]#_g49358_| (##structure gx#syntax-quote::t '&class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49601_| + (define |gerbil/core$$[1]#_g49361_| (##structure gx#syntax-quote::t '&class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49604_| + (define |gerbil/core$$[1]#_g49364_| (##structure gx#syntax-quote::t '&class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49607_| + (define |gerbil/core$$[1]#_g49367_| (##structure gx#syntax-quote::t '&class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49624_| + (define |gerbil/core$$[1]#_g49384_| (##structure gx#syntax-quote::t '&class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49627_| + (define |gerbil/core$$[1]#_g49387_| (##structure gx#syntax-quote::t '&class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49630_| + (define |gerbil/core$$[1]#_g49390_| (##structure gx#syntax-quote::t '&class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49633_| + (define |gerbil/core$$[1]#_g49393_| (##structure gx#syntax-quote::t '&class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49636_| + (define |gerbil/core$$[1]#_g49396_| (##structure gx#syntax-quote::t '&class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49639_| + (define |gerbil/core$$[1]#_g49399_| (##structure gx#syntax-quote::t '&class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49642_| + (define |gerbil/core$$[1]#_g49402_| (##structure gx#syntax-quote::t '&class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49645_| + (define |gerbil/core$$[1]#_g49405_| (##structure gx#syntax-quote::t '&class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49648_| + (define |gerbil/core$$[1]#_g49408_| (##structure gx#syntax-quote::t '&class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49651_| + (define |gerbil/core$$[1]#_g49411_| (##structure gx#syntax-quote::t '&class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49654_| + (define |gerbil/core$$[1]#_g49414_| (##structure gx#syntax-quote::t '&class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49657_| + (define |gerbil/core$$[1]#_g49417_| (##structure gx#syntax-quote::t '&class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49660_| + (define |gerbil/core$$[1]#_g49420_| (##structure gx#syntax-quote::t '&class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49663_| + (define |gerbil/core$$[1]#_g49423_| (##structure gx#syntax-quote::t '&class-type-id-set! @@ -414,7 +414,7 @@ (gx#current-expander-context) '())) (define |gerbil/core$$[:0:]#class-type-info| - (let ((__obj47554 + (let ((__obj47346 (let () (declare (not safe)) (##structure @@ -436,7 +436,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47554 + __obj47346 'gerbil.core#class-type-info::t '1 gerbil/core$$#class-type-info::t @@ -444,7 +444,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47554 + __obj47346 'class-type-info '2 gerbil/core$$#class-type-info::t @@ -452,7 +452,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47554 + __obj47346 '() '3 gerbil/core$$#class-type-info::t @@ -460,7 +460,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47554 + __obj47346 '(id name super slots @@ -480,7 +480,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47554 + __obj47346 '#f '5 gerbil/core$$#class-type-info::t @@ -488,7 +488,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47554 + __obj47346 '#f '6 gerbil/core$$#class-type-info::t @@ -496,541 +496,541 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47554 + __obj47346 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49434 |gerbil/core$$[1]#_g49435_|)) + (let ((__tmp49194 |gerbil/core$$[1]#_g49195_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47554 - __tmp49434 + __obj47346 + __tmp49194 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49436 |gerbil/core$$[1]#_g49437_|)) + (let ((__tmp49196 |gerbil/core$$[1]#_g49197_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47554 - __tmp49436 + __obj47346 + __tmp49196 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49438 |gerbil/core$$[1]#_g49439_|)) + (let ((__tmp49198 |gerbil/core$$[1]#_g49199_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47554 - __tmp49438 + __obj47346 + __tmp49198 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49440 - (let ((__tmp49493 - (let ((__tmp49494 |gerbil/core$$[1]#_g49495_|)) + (let ((__tmp49200 + (let ((__tmp49253 + (let ((__tmp49254 |gerbil/core$$[1]#_g49255_|)) (declare (not safe)) - (cons 'id __tmp49494))) - (__tmp49441 - (let ((__tmp49490 - (let ((__tmp49491 - |gerbil/core$$[1]#_g49492_|)) + (cons 'id __tmp49254))) + (__tmp49201 + (let ((__tmp49250 + (let ((__tmp49251 + |gerbil/core$$[1]#_g49252_|)) (declare (not safe)) - (cons 'name __tmp49491))) - (__tmp49442 - (let ((__tmp49487 - (let ((__tmp49488 - |gerbil/core$$[1]#_g49489_|)) + (cons 'name __tmp49251))) + (__tmp49202 + (let ((__tmp49247 + (let ((__tmp49248 + |gerbil/core$$[1]#_g49249_|)) (declare (not safe)) - (cons 'super __tmp49488))) - (__tmp49443 - (let ((__tmp49484 - (let ((__tmp49485 - |gerbil/core$$[1]#_g49486_|)) + (cons 'super __tmp49248))) + (__tmp49203 + (let ((__tmp49244 + (let ((__tmp49245 + |gerbil/core$$[1]#_g49246_|)) (declare (not safe)) - (cons 'slots __tmp49485))) - (__tmp49444 - (let ((__tmp49481 - (let ((__tmp49482 - |gerbil/core$$[1]#_g49483_|)) + (cons 'slots __tmp49245))) + (__tmp49204 + (let ((__tmp49241 + (let ((__tmp49242 + |gerbil/core$$[1]#_g49243_|)) (declare (not safe)) - (cons 'struct? __tmp49482))) - (__tmp49445 - (let ((__tmp49478 - (let ((__tmp49479 - |gerbil/core$$[1]#_g49480_|)) + (cons 'struct? __tmp49242))) + (__tmp49205 + (let ((__tmp49238 + (let ((__tmp49239 + |gerbil/core$$[1]#_g49240_|)) (declare (not safe)) (cons 'final? - __tmp49479))) - (__tmp49446 - (let ((__tmp49475 - (let ((__tmp49476 + __tmp49239))) + (__tmp49206 + (let ((__tmp49235 + (let ((__tmp49236 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49477_|)) + |gerbil/core$$[1]#_g49237_|)) (declare (not safe)) - (cons 'constructor-method __tmp49476))) - (__tmp49447 - (let ((__tmp49472 - (let ((__tmp49473 - |gerbil/core$$[1]#_g49474_|)) + (cons 'constructor-method __tmp49236))) + (__tmp49207 + (let ((__tmp49232 + (let ((__tmp49233 + |gerbil/core$$[1]#_g49234_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49473))) - (__tmp49448 - (let ((__tmp49469 - (let ((__tmp49470 - |gerbil/core$$[1]#_g49471_|)) + (cons 'type-descriptor __tmp49233))) + (__tmp49208 + (let ((__tmp49229 + (let ((__tmp49230 + |gerbil/core$$[1]#_g49231_|)) (declare (not safe)) - (cons 'constructor __tmp49470))) - (__tmp49449 - (let ((__tmp49466 - (let ((__tmp49467 - |gerbil/core$$[1]#_g49468_|)) + (cons 'constructor __tmp49230))) + (__tmp49209 + (let ((__tmp49226 + (let ((__tmp49227 + |gerbil/core$$[1]#_g49228_|)) (declare (not safe)) - (cons 'predicate __tmp49467))) - (__tmp49450 - (let ((__tmp49463 - (let ((__tmp49464 - |gerbil/core$$[1]#_g49465_|)) + (cons 'predicate __tmp49227))) + (__tmp49210 + (let ((__tmp49223 + (let ((__tmp49224 + |gerbil/core$$[1]#_g49225_|)) (declare (not safe)) (cons 'accessors - __tmp49464))) - (__tmp49451 - (let ((__tmp49460 - (let ((__tmp49461 - |gerbil/core$$[1]#_g49462_|)) + __tmp49224))) + (__tmp49211 + (let ((__tmp49220 + (let ((__tmp49221 + |gerbil/core$$[1]#_g49222_|)) (declare (not safe)) (cons 'mutators ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49461))) - (__tmp49452 - (let ((__tmp49457 - (let ((__tmp49458 - |gerbil/core$$[1]#_g49459_|)) + __tmp49221))) + (__tmp49212 + (let ((__tmp49217 + (let ((__tmp49218 + |gerbil/core$$[1]#_g49219_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49458))) - (__tmp49453 - (let ((__tmp49454 - (let ((__tmp49455 - |gerbil/core$$[1]#_g49456_|)) + (cons 'unchecked-accessors __tmp49218))) + (__tmp49213 + (let ((__tmp49214 + (let ((__tmp49215 + |gerbil/core$$[1]#_g49216_|)) (declare (not safe)) - (cons 'unchecked-mutators __tmp49455)))) + (cons 'unchecked-mutators __tmp49215)))) (declare (not safe)) - (cons __tmp49454 '())))) + (cons __tmp49214 '())))) (declare (not safe)) - (cons __tmp49457 __tmp49453)))) + (cons __tmp49217 __tmp49213)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49460 - __tmp49452)))) + (cons __tmp49220 + __tmp49212)))) (declare (not safe)) - (cons __tmp49463 __tmp49451)))) + (cons __tmp49223 __tmp49211)))) (declare (not safe)) - (cons __tmp49466 __tmp49450)))) + (cons __tmp49226 __tmp49210)))) (declare (not safe)) - (cons __tmp49469 __tmp49449)))) + (cons __tmp49229 __tmp49209)))) (declare (not safe)) - (cons __tmp49472 __tmp49448)))) + (cons __tmp49232 __tmp49208)))) (declare (not safe)) - (cons __tmp49475 __tmp49447)))) + (cons __tmp49235 __tmp49207)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49478 - __tmp49446)))) + (cons __tmp49238 + __tmp49206)))) (declare (not safe)) - (cons __tmp49481 __tmp49445)))) + (cons __tmp49241 __tmp49205)))) (declare (not safe)) - (cons __tmp49484 __tmp49444)))) + (cons __tmp49244 __tmp49204)))) (declare (not safe)) - (cons __tmp49487 __tmp49443)))) + (cons __tmp49247 __tmp49203)))) (declare (not safe)) - (cons __tmp49490 __tmp49442)))) + (cons __tmp49250 __tmp49202)))) (declare (not safe)) - (cons __tmp49493 __tmp49441)))) + (cons __tmp49253 __tmp49201)))) (declare (not safe)) (##unchecked-structure-set! - __obj47554 - __tmp49440 + __obj47346 + __tmp49200 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49496 - (let ((__tmp49549 - (let ((__tmp49550 |gerbil/core$$[1]#_g49551_|)) + (let ((__tmp49256 + (let ((__tmp49309 + (let ((__tmp49310 |gerbil/core$$[1]#_g49311_|)) (declare (not safe)) - (cons 'id __tmp49550))) - (__tmp49497 - (let ((__tmp49546 - (let ((__tmp49547 - |gerbil/core$$[1]#_g49548_|)) + (cons 'id __tmp49310))) + (__tmp49257 + (let ((__tmp49306 + (let ((__tmp49307 + |gerbil/core$$[1]#_g49308_|)) (declare (not safe)) - (cons 'name __tmp49547))) - (__tmp49498 - (let ((__tmp49543 - (let ((__tmp49544 - |gerbil/core$$[1]#_g49545_|)) + (cons 'name __tmp49307))) + (__tmp49258 + (let ((__tmp49303 + (let ((__tmp49304 + |gerbil/core$$[1]#_g49305_|)) (declare (not safe)) - (cons 'super __tmp49544))) - (__tmp49499 - (let ((__tmp49540 - (let ((__tmp49541 - |gerbil/core$$[1]#_g49542_|)) + (cons 'super __tmp49304))) + (__tmp49259 + (let ((__tmp49300 + (let ((__tmp49301 + |gerbil/core$$[1]#_g49302_|)) (declare (not safe)) - (cons 'slots __tmp49541))) - (__tmp49500 - (let ((__tmp49537 - (let ((__tmp49538 - |gerbil/core$$[1]#_g49539_|)) + (cons 'slots __tmp49301))) + (__tmp49260 + (let ((__tmp49297 + (let ((__tmp49298 + |gerbil/core$$[1]#_g49299_|)) (declare (not safe)) - (cons 'struct? __tmp49538))) - (__tmp49501 - (let ((__tmp49534 - (let ((__tmp49535 - |gerbil/core$$[1]#_g49536_|)) + (cons 'struct? __tmp49298))) + (__tmp49261 + (let ((__tmp49294 + (let ((__tmp49295 + |gerbil/core$$[1]#_g49296_|)) (declare (not safe)) (cons 'final? - __tmp49535))) - (__tmp49502 - (let ((__tmp49531 - (let ((__tmp49532 + __tmp49295))) + (__tmp49262 + (let ((__tmp49291 + (let ((__tmp49292 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49533_|)) + |gerbil/core$$[1]#_g49293_|)) (declare (not safe)) - (cons 'constructor-method __tmp49532))) - (__tmp49503 - (let ((__tmp49528 - (let ((__tmp49529 - |gerbil/core$$[1]#_g49530_|)) + (cons 'constructor-method __tmp49292))) + (__tmp49263 + (let ((__tmp49288 + (let ((__tmp49289 + |gerbil/core$$[1]#_g49290_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49529))) - (__tmp49504 - (let ((__tmp49525 - (let ((__tmp49526 - |gerbil/core$$[1]#_g49527_|)) + (cons 'type-descriptor __tmp49289))) + (__tmp49264 + (let ((__tmp49285 + (let ((__tmp49286 + |gerbil/core$$[1]#_g49287_|)) (declare (not safe)) - (cons 'constructor __tmp49526))) - (__tmp49505 - (let ((__tmp49522 - (let ((__tmp49523 - |gerbil/core$$[1]#_g49524_|)) + (cons 'constructor __tmp49286))) + (__tmp49265 + (let ((__tmp49282 + (let ((__tmp49283 + |gerbil/core$$[1]#_g49284_|)) (declare (not safe)) - (cons 'predicate __tmp49523))) - (__tmp49506 - (let ((__tmp49519 - (let ((__tmp49520 - |gerbil/core$$[1]#_g49521_|)) + (cons 'predicate __tmp49283))) + (__tmp49266 + (let ((__tmp49279 + (let ((__tmp49280 + |gerbil/core$$[1]#_g49281_|)) (declare (not safe)) (cons 'accessors - __tmp49520))) - (__tmp49507 - (let ((__tmp49516 - (let ((__tmp49517 - |gerbil/core$$[1]#_g49518_|)) + __tmp49280))) + (__tmp49267 + (let ((__tmp49276 + (let ((__tmp49277 + |gerbil/core$$[1]#_g49278_|)) (declare (not safe)) (cons 'mutators ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49517))) - (__tmp49508 - (let ((__tmp49513 - (let ((__tmp49514 - |gerbil/core$$[1]#_g49515_|)) + __tmp49277))) + (__tmp49268 + (let ((__tmp49273 + (let ((__tmp49274 + |gerbil/core$$[1]#_g49275_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49514))) - (__tmp49509 - (let ((__tmp49510 - (let ((__tmp49511 - |gerbil/core$$[1]#_g49512_|)) + (cons 'unchecked-accessors __tmp49274))) + (__tmp49269 + (let ((__tmp49270 + (let ((__tmp49271 + |gerbil/core$$[1]#_g49272_|)) (declare (not safe)) - (cons 'unchecked-mutators __tmp49511)))) + (cons 'unchecked-mutators __tmp49271)))) (declare (not safe)) - (cons __tmp49510 '())))) + (cons __tmp49270 '())))) (declare (not safe)) - (cons __tmp49513 __tmp49509)))) + (cons __tmp49273 __tmp49269)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49516 - __tmp49508)))) + (cons __tmp49276 + __tmp49268)))) (declare (not safe)) - (cons __tmp49519 __tmp49507)))) + (cons __tmp49279 __tmp49267)))) (declare (not safe)) - (cons __tmp49522 __tmp49506)))) + (cons __tmp49282 __tmp49266)))) (declare (not safe)) - (cons __tmp49525 __tmp49505)))) + (cons __tmp49285 __tmp49265)))) (declare (not safe)) - (cons __tmp49528 __tmp49504)))) + (cons __tmp49288 __tmp49264)))) (declare (not safe)) - (cons __tmp49531 __tmp49503)))) + (cons __tmp49291 __tmp49263)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49534 - __tmp49502)))) + (cons __tmp49294 + __tmp49262)))) (declare (not safe)) - (cons __tmp49537 __tmp49501)))) + (cons __tmp49297 __tmp49261)))) (declare (not safe)) - (cons __tmp49540 __tmp49500)))) + (cons __tmp49300 __tmp49260)))) (declare (not safe)) - (cons __tmp49543 __tmp49499)))) + (cons __tmp49303 __tmp49259)))) (declare (not safe)) - (cons __tmp49546 __tmp49498)))) + (cons __tmp49306 __tmp49258)))) (declare (not safe)) - (cons __tmp49549 __tmp49497)))) + (cons __tmp49309 __tmp49257)))) (declare (not safe)) (##unchecked-structure-set! - __obj47554 - __tmp49496 + __obj47346 + __tmp49256 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49552 - (let ((__tmp49605 - (let ((__tmp49606 |gerbil/core$$[1]#_g49607_|)) + (let ((__tmp49312 + (let ((__tmp49365 + (let ((__tmp49366 |gerbil/core$$[1]#_g49367_|)) (declare (not safe)) - (cons 'id __tmp49606))) - (__tmp49553 - (let ((__tmp49602 - (let ((__tmp49603 - |gerbil/core$$[1]#_g49604_|)) + (cons 'id __tmp49366))) + (__tmp49313 + (let ((__tmp49362 + (let ((__tmp49363 + |gerbil/core$$[1]#_g49364_|)) (declare (not safe)) - (cons 'name __tmp49603))) - (__tmp49554 - (let ((__tmp49599 - (let ((__tmp49600 - |gerbil/core$$[1]#_g49601_|)) + (cons 'name __tmp49363))) + (__tmp49314 + (let ((__tmp49359 + (let ((__tmp49360 + |gerbil/core$$[1]#_g49361_|)) (declare (not safe)) - (cons 'super __tmp49600))) - (__tmp49555 - (let ((__tmp49596 - (let ((__tmp49597 - |gerbil/core$$[1]#_g49598_|)) + (cons 'super __tmp49360))) + (__tmp49315 + (let ((__tmp49356 + (let ((__tmp49357 + |gerbil/core$$[1]#_g49358_|)) (declare (not safe)) - (cons 'slots __tmp49597))) - (__tmp49556 - (let ((__tmp49593 - (let ((__tmp49594 - |gerbil/core$$[1]#_g49595_|)) + (cons 'slots __tmp49357))) + (__tmp49316 + (let ((__tmp49353 + (let ((__tmp49354 + |gerbil/core$$[1]#_g49355_|)) (declare (not safe)) - (cons 'struct? __tmp49594))) - (__tmp49557 - (let ((__tmp49590 - (let ((__tmp49591 - |gerbil/core$$[1]#_g49592_|)) + (cons 'struct? __tmp49354))) + (__tmp49317 + (let ((__tmp49350 + (let ((__tmp49351 + |gerbil/core$$[1]#_g49352_|)) (declare (not safe)) (cons 'final? - __tmp49591))) - (__tmp49558 - (let ((__tmp49587 - (let ((__tmp49588 + __tmp49351))) + (__tmp49318 + (let ((__tmp49347 + (let ((__tmp49348 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49589_|)) + |gerbil/core$$[1]#_g49349_|)) (declare (not safe)) - (cons 'constructor-method __tmp49588))) - (__tmp49559 - (let ((__tmp49584 - (let ((__tmp49585 - |gerbil/core$$[1]#_g49586_|)) + (cons 'constructor-method __tmp49348))) + (__tmp49319 + (let ((__tmp49344 + (let ((__tmp49345 + |gerbil/core$$[1]#_g49346_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49585))) - (__tmp49560 - (let ((__tmp49581 - (let ((__tmp49582 - |gerbil/core$$[1]#_g49583_|)) + (cons 'type-descriptor __tmp49345))) + (__tmp49320 + (let ((__tmp49341 + (let ((__tmp49342 + |gerbil/core$$[1]#_g49343_|)) (declare (not safe)) - (cons 'constructor __tmp49582))) - (__tmp49561 - (let ((__tmp49578 - (let ((__tmp49579 - |gerbil/core$$[1]#_g49580_|)) + (cons 'constructor __tmp49342))) + (__tmp49321 + (let ((__tmp49338 + (let ((__tmp49339 + |gerbil/core$$[1]#_g49340_|)) (declare (not safe)) - (cons 'predicate __tmp49579))) - (__tmp49562 - (let ((__tmp49575 - (let ((__tmp49576 - |gerbil/core$$[1]#_g49577_|)) + (cons 'predicate __tmp49339))) + (__tmp49322 + (let ((__tmp49335 + (let ((__tmp49336 + |gerbil/core$$[1]#_g49337_|)) (declare (not safe)) (cons 'accessors - __tmp49576))) - (__tmp49563 - (let ((__tmp49572 - (let ((__tmp49573 - |gerbil/core$$[1]#_g49574_|)) + __tmp49336))) + (__tmp49323 + (let ((__tmp49332 + (let ((__tmp49333 + |gerbil/core$$[1]#_g49334_|)) (declare (not safe)) (cons 'mutators ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49573))) - (__tmp49564 - (let ((__tmp49569 - (let ((__tmp49570 - |gerbil/core$$[1]#_g49571_|)) + __tmp49333))) + (__tmp49324 + (let ((__tmp49329 + (let ((__tmp49330 + |gerbil/core$$[1]#_g49331_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49570))) - (__tmp49565 - (let ((__tmp49566 - (let ((__tmp49567 - |gerbil/core$$[1]#_g49568_|)) + (cons 'unchecked-accessors __tmp49330))) + (__tmp49325 + (let ((__tmp49326 + (let ((__tmp49327 + |gerbil/core$$[1]#_g49328_|)) (declare (not safe)) - (cons 'unchecked-mutators __tmp49567)))) + (cons 'unchecked-mutators __tmp49327)))) (declare (not safe)) - (cons __tmp49566 '())))) + (cons __tmp49326 '())))) (declare (not safe)) - (cons __tmp49569 __tmp49565)))) + (cons __tmp49329 __tmp49325)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49572 - __tmp49564)))) + (cons __tmp49332 + __tmp49324)))) (declare (not safe)) - (cons __tmp49575 __tmp49563)))) + (cons __tmp49335 __tmp49323)))) (declare (not safe)) - (cons __tmp49578 __tmp49562)))) + (cons __tmp49338 __tmp49322)))) (declare (not safe)) - (cons __tmp49581 __tmp49561)))) + (cons __tmp49341 __tmp49321)))) (declare (not safe)) - (cons __tmp49584 __tmp49560)))) + (cons __tmp49344 __tmp49320)))) (declare (not safe)) - (cons __tmp49587 __tmp49559)))) + (cons __tmp49347 __tmp49319)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49590 - __tmp49558)))) + (cons __tmp49350 + __tmp49318)))) (declare (not safe)) - (cons __tmp49593 __tmp49557)))) + (cons __tmp49353 __tmp49317)))) (declare (not safe)) - (cons __tmp49596 __tmp49556)))) + (cons __tmp49356 __tmp49316)))) (declare (not safe)) - (cons __tmp49599 __tmp49555)))) + (cons __tmp49359 __tmp49315)))) (declare (not safe)) - (cons __tmp49602 __tmp49554)))) + (cons __tmp49362 __tmp49314)))) (declare (not safe)) - (cons __tmp49605 __tmp49553)))) + (cons __tmp49365 __tmp49313)))) (declare (not safe)) (##unchecked-structure-set! - __obj47554 - __tmp49552 + __obj47346 + __tmp49312 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49608 - (let ((__tmp49661 - (let ((__tmp49662 |gerbil/core$$[1]#_g49663_|)) + (let ((__tmp49368 + (let ((__tmp49421 + (let ((__tmp49422 |gerbil/core$$[1]#_g49423_|)) (declare (not safe)) - (cons 'id __tmp49662))) - (__tmp49609 - (let ((__tmp49658 - (let ((__tmp49659 - |gerbil/core$$[1]#_g49660_|)) + (cons 'id __tmp49422))) + (__tmp49369 + (let ((__tmp49418 + (let ((__tmp49419 + |gerbil/core$$[1]#_g49420_|)) (declare (not safe)) - (cons 'name __tmp49659))) - (__tmp49610 - (let ((__tmp49655 - (let ((__tmp49656 - |gerbil/core$$[1]#_g49657_|)) + (cons 'name __tmp49419))) + (__tmp49370 + (let ((__tmp49415 + (let ((__tmp49416 + |gerbil/core$$[1]#_g49417_|)) (declare (not safe)) - (cons 'super __tmp49656))) - (__tmp49611 - (let ((__tmp49652 - (let ((__tmp49653 - |gerbil/core$$[1]#_g49654_|)) + (cons 'super __tmp49416))) + (__tmp49371 + (let ((__tmp49412 + (let ((__tmp49413 + |gerbil/core$$[1]#_g49414_|)) (declare (not safe)) - (cons 'slots __tmp49653))) - (__tmp49612 - (let ((__tmp49649 - (let ((__tmp49650 - |gerbil/core$$[1]#_g49651_|)) + (cons 'slots __tmp49413))) + (__tmp49372 + (let ((__tmp49409 + (let ((__tmp49410 + |gerbil/core$$[1]#_g49411_|)) (declare (not safe)) - (cons 'struct? __tmp49650))) - (__tmp49613 - (let ((__tmp49646 - (let ((__tmp49647 - |gerbil/core$$[1]#_g49648_|)) + (cons 'struct? __tmp49410))) + (__tmp49373 + (let ((__tmp49406 + (let ((__tmp49407 + |gerbil/core$$[1]#_g49408_|)) (declare (not safe)) (cons 'final? - __tmp49647))) - (__tmp49614 - (let ((__tmp49643 - (let ((__tmp49644 + __tmp49407))) + (__tmp49374 + (let ((__tmp49403 + (let ((__tmp49404 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49645_|)) + |gerbil/core$$[1]#_g49405_|)) (declare (not safe)) - (cons 'constructor-method __tmp49644))) - (__tmp49615 - (let ((__tmp49640 - (let ((__tmp49641 - |gerbil/core$$[1]#_g49642_|)) + (cons 'constructor-method __tmp49404))) + (__tmp49375 + (let ((__tmp49400 + (let ((__tmp49401 + |gerbil/core$$[1]#_g49402_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49641))) - (__tmp49616 - (let ((__tmp49637 - (let ((__tmp49638 - |gerbil/core$$[1]#_g49639_|)) + (cons 'type-descriptor __tmp49401))) + (__tmp49376 + (let ((__tmp49397 + (let ((__tmp49398 + |gerbil/core$$[1]#_g49399_|)) (declare (not safe)) - (cons 'constructor __tmp49638))) - (__tmp49617 - (let ((__tmp49634 - (let ((__tmp49635 - |gerbil/core$$[1]#_g49636_|)) + (cons 'constructor __tmp49398))) + (__tmp49377 + (let ((__tmp49394 + (let ((__tmp49395 + |gerbil/core$$[1]#_g49396_|)) (declare (not safe)) - (cons 'predicate __tmp49635))) - (__tmp49618 - (let ((__tmp49631 - (let ((__tmp49632 - |gerbil/core$$[1]#_g49633_|)) + (cons 'predicate __tmp49395))) + (__tmp49378 + (let ((__tmp49391 + (let ((__tmp49392 + |gerbil/core$$[1]#_g49393_|)) (declare (not safe)) (cons 'accessors - __tmp49632))) - (__tmp49619 - (let ((__tmp49628 - (let ((__tmp49629 - |gerbil/core$$[1]#_g49630_|)) + __tmp49392))) + (__tmp49379 + (let ((__tmp49388 + (let ((__tmp49389 + |gerbil/core$$[1]#_g49390_|)) (declare (not safe)) (cons 'mutators ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49629))) - (__tmp49620 - (let ((__tmp49625 - (let ((__tmp49626 - |gerbil/core$$[1]#_g49627_|)) + __tmp49389))) + (__tmp49380 + (let ((__tmp49385 + (let ((__tmp49386 + |gerbil/core$$[1]#_g49387_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49626))) - (__tmp49621 - (let ((__tmp49622 - (let ((__tmp49623 - |gerbil/core$$[1]#_g49624_|)) + (cons 'unchecked-accessors __tmp49386))) + (__tmp49381 + (let ((__tmp49382 + (let ((__tmp49383 + |gerbil/core$$[1]#_g49384_|)) (declare (not safe)) - (cons 'unchecked-mutators __tmp49623)))) + (cons 'unchecked-mutators __tmp49383)))) (declare (not safe)) - (cons __tmp49622 '())))) + (cons __tmp49382 '())))) (declare (not safe)) - (cons __tmp49625 __tmp49621)))) + (cons __tmp49385 __tmp49381)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49628 - __tmp49620)))) + (cons __tmp49388 + __tmp49380)))) (declare (not safe)) - (cons __tmp49631 __tmp49619)))) + (cons __tmp49391 __tmp49379)))) (declare (not safe)) - (cons __tmp49634 __tmp49618)))) + (cons __tmp49394 __tmp49378)))) (declare (not safe)) - (cons __tmp49637 __tmp49617)))) + (cons __tmp49397 __tmp49377)))) (declare (not safe)) - (cons __tmp49640 __tmp49616)))) + (cons __tmp49400 __tmp49376)))) (declare (not safe)) - (cons __tmp49643 __tmp49615)))) + (cons __tmp49403 __tmp49375)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49646 - __tmp49614)))) + (cons __tmp49406 + __tmp49374)))) (declare (not safe)) - (cons __tmp49649 __tmp49613)))) + (cons __tmp49409 __tmp49373)))) (declare (not safe)) - (cons __tmp49652 __tmp49612)))) + (cons __tmp49412 __tmp49372)))) (declare (not safe)) - (cons __tmp49655 __tmp49611)))) + (cons __tmp49415 __tmp49371)))) (declare (not safe)) - (cons __tmp49658 __tmp49610)))) + (cons __tmp49418 __tmp49370)))) (declare (not safe)) - (cons __tmp49661 __tmp49609)))) + (cons __tmp49421 __tmp49369)))) (declare (not safe)) (##unchecked-structure-set! - __obj47554 - __tmp49608 + __obj47346 + __tmp49368 '14 gerbil/core$$#class-type-info::t '#f)) - __obj47554))) + __obj47346))) diff --git a/src/bootstrap/gerbil/core__8.scm b/src/bootstrap/gerbil/core__8.scm index 1bd92fd8f..027e2b430 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]#_g50002_| + (define |gerbil/core$$[1]#_g49763_| (##structure gx#syntax-quote::t '@method @@ -9,4974 +9,4853 @@ '())) (begin (define |gerbil/core$$[1]#typedef-body?| - (lambda (_stx21600_) - (letrec ((_body-opt?21603_ - (lambda (_key21606_) - (memq (gx#stx-e _key21606_) + (lambda (_stx21398_) + (letrec ((_body-opt?21401_ + (lambda (_key21404_) + (memq (gx#stx-e _key21404_) '(id: + struct: name: constructor: transparent: final: print: equal:))))) - (gx#stx-plist? _stx21600_ _body-opt?21603_)))) - (define |gerbil/core$$[1]#generate-typedef| - (lambda (_stx19407_ - _id19409_ - _super-ref19410_ - _slots19411_ - _body19412_ - _struct?19413_) - (letrec* ((_wrap19415_ - (lambda (_e-stx21597_) + (gx#stx-plist? _stx21398_ _body-opt?21401_)))) + (define |gerbil/core$$[1]#generate-defclass| + (lambda (_stx19260_ _id19262_ _super-ref19263_ _slots19264_ _body19265_) + (letrec* ((_wrap19267_ + (lambda (_e-stx21395_) (gx#stx-wrap-source - _e-stx21597_ - (gx#stx-source _stx19407_)))) - (_make-id19417_ - (if (uninterned-symbol? (gx#stx-e _id19409_)) - (lambda _g49664_ (gx#genident _id19409_)) - (lambda _args21594_ - (apply gx#stx-identifier _id19409_ _args21594_)))) - (_get-mixin-slots19418_ - (lambda (_super21568_ _slots21570_) - (letrec* ((_tab21572_ + _e-stx21395_ + (gx#stx-source _stx19260_)))) + (_make-id19269_ + (if (uninterned-symbol? (gx#stx-e _id19262_)) + (lambda _g49424_ (gx#genident _id19262_)) + (lambda _args21392_ + (apply gx#stx-identifier _id19262_ _args21392_)))) + (_get-mixin-slots19270_ + (lambda (_super21366_ _slots21368_) + (letrec* ((_tab21370_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_dedup21574_ - (lambda (_mixins21579_) - (let _lp21582_ ((_rest21585_ _mixins21579_) - (_r21587_ '())) + (_dedup21372_ + (lambda (_mixins21377_) + (let _lp21380_ ((_rest21383_ _mixins21377_) + (_r21385_ '())) (if (let () (declare (not safe)) - (pair? _rest21585_)) - (let ((_slot21589_ (car _rest21585_))) + (pair? _rest21383_)) + (let ((_slot21387_ (car _rest21383_))) (if (let () (declare (not safe)) (table-ref - _tab21572_ - _slot21589_ + _tab21370_ + _slot21387_ '#f)) - (let ((__tmp49667 - (cdr _rest21585_))) + (let ((__tmp49427 + (cdr _rest21383_))) (declare (not safe)) - (_lp21582_ - __tmp49667 - _r21587_)) + (_lp21380_ + __tmp49427 + _r21385_)) (begin (let () (declare (not safe)) (table-set! - _tab21572_ - _slot21589_ + _tab21370_ + _slot21387_ '#t)) - (let ((__tmp49666 - (cdr _rest21585_)) - (__tmp49665 + (let ((__tmp49426 + (cdr _rest21383_)) + (__tmp49425 (let () (declare (not safe)) - (cons _slot21589_ - _r21587_)))) + (cons _slot21387_ + _r21385_)))) (declare (not safe)) - (_lp21582_ - __tmp49666 - __tmp49665))))) - (reverse _r21587_)))))) + (_lp21380_ + __tmp49426 + __tmp49425))))) + (reverse _r21385_)))))) (gx#stx-for-each - (lambda (_slot21576_) - (let ((__tmp49668 (gx#stx-e _slot21576_))) + (lambda (_slot21374_) + (let ((__tmp49428 (gx#stx-e _slot21374_))) (declare (not safe)) - (table-set! _tab21572_ __tmp49668 '#t))) - _slots21570_) - (if (let () (declare (not safe)) (not _super21568_)) + (table-set! _tab21370_ __tmp49428 '#t))) + _slots21368_) + (if (let () (declare (not safe)) (not _super21366_)) '() - (if (gx#identifier? _super21568_) - (let ((__tmp49670 + (if (gx#identifier? _super21366_) + (let ((__tmp49430 (let () (declare (not safe)) - (_get-mixin-slots-r19419_ - _super21568_)))) + (_get-mixin-slots-r19271_ + _super21366_)))) (declare (not safe)) - (_dedup21574_ __tmp49670)) - (let ((__tmp49669 + (_dedup21372_ __tmp49430)) + (let ((__tmp49429 (concatenate - (map _get-mixin-slots-r19419_ - _super21568_)))) + (map _get-mixin-slots-r19271_ + _super21366_)))) (declare (not safe)) - (_dedup21574_ __tmp49669))))))) - (_get-mixin-slots-r19419_ - (lambda (_type-id21562_) - (let ((_info21565_ - (gx#syntax-local-value _type-id21562_))) - (append (let ((__obj47555 _info21565_)) + (_dedup21372_ __tmp49429))))))) + (_get-mixin-slots-r19271_ + (lambda (_type-id21360_) + (let ((_info21363_ + (gx#syntax-local-value _type-id21360_))) + (append (let ((__obj47347 _info21363_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47555 + __obj47347 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47555 + __obj47347 '4 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47555 + __obj47347 'slots))) (concatenate - (map _get-mixin-slots-r19419_ - (let ((__obj47556 _info21565_)) + (map _get-mixin-slots-r19271_ + (let ((__obj47348 _info21363_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47556 + __obj47348 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47556 + __obj47348 '3 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47556 + __obj47348 'super)))))))))) - (gx#check-duplicate-identifiers _slots19411_ _stx19407_) - (let* ((_name19421_ (symbol->string (gx#stx-e _id19409_))) - (_super19424_ - (if _struct?19413_ - (if _super-ref19410_ - (gx#syntax-local-value _super-ref19410_) - '#f) - (map gx#syntax-local-value _super-ref19410_))) - (_g1942719435_ - (lambda (_g1942819431_) + (gx#check-duplicate-identifiers _slots19264_ _stx19260_) + (let* ((_name19273_ (symbol->string (gx#stx-e _id19262_))) + (_super19276_ (map gx#syntax-local-value _super-ref19263_)) + (_struct?19279_ (gx#stx-getq 'struct: _body19265_)) + (_g1928219290_ + (lambda (_g1928319286_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1942819431_))) - (_g1942621558_ - (lambda (_g1942819439_) - ((lambda (_L19442_) + _g1928319286_))) + (_g1928121356_ + (lambda (_g1928319294_) + ((lambda (_L19297_) (let () - (let* ((_g1945719465_ - (lambda (_g1945819461_) + (let* ((_g1931319321_ + (lambda (_g1931419317_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1945819461_))) - (_g1945621554_ - (lambda (_g1945819469_) - ((lambda (_L19472_) + _g1931419317_))) + (_g1931221352_ + (lambda (_g1931419325_) + ((lambda (_L19328_) (let () - (let* ((_g1948519493_ - (lambda (_g1948619489_) + (let* ((_g1934119349_ + (lambda (_g1934219345_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1948619489_))) - (_g1948421550_ - (lambda (_g1948619497_) - ((lambda (_L19500_) + _g1934219345_))) + (_g1934021348_ + (lambda (_g1934219353_) + ((lambda (_L19356_) (let () - (let* ((_g1951319521_ - (lambda (_g1951419517_) + (let* ((_g1936919377_ + (lambda (_g1937019373_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1951419517_))) - (_g1951221546_ - (lambda (_g1951419525_) - ((lambda (_L19528_) + _g1937019373_))) + (_g1936821344_ + (lambda (_g1937019381_) + ((lambda (_L19384_) (let () - (let* ((_g1954119549_ - (lambda (_g1954219545_) + (let* ((_g1939719405_ + (lambda (_g1939819401_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1954219545_))) - (_g1954021542_ - (lambda (_g1954219553_) - ((lambda (_L19556_) + _g1939819401_))) + (_g1939621340_ + (lambda (_g1939819409_) + ((lambda (_L19412_) (let () - (let* ((_g1956919577_ - (lambda (_g1957019573_) + (let* ((_g1942519442_ + (lambda (_g1942619438_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1957019573_))) - (_g1956821538_ - (lambda (_g1957019581_) - ((lambda (_L19584_) - (let () - (let* ((_g1959719614_ + _g1942619438_))) + (_g1942421336_ + (lambda (_g1942619446_) + (if (gx#stx-pair/null? + _g1942619446_) + (let ((_g49431_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1959819610_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1959819610_))) - (_g1959621534_ - (lambda (_g1959819618_) - (if (gx#stx-pair/null? _g1959819618_) - (let ((_g49671_ - (gx#syntax-split-splice - _g1959819618_ - '0))) - (begin - (let ((_g49672_ - (let () - (declare (not safe)) - (if (##values? _g49671_) - (##vector-length _g49671_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g49672_ 2))) - (error "Context expects 2 values" - _g49672_))) - (let ((_target1960019621_ - (let () - (declare (not safe)) - (##vector-ref _g49671_ 0))) - (_tl1960219624_ - (let () - (declare (not safe)) - (##vector-ref _g49671_ 1)))) - (if (gx#stx-null? _tl1960219624_) - (letrec ((_loop1960319627_ - (lambda (_hd1960119631_ - _slot1960719634_) - (if (gx#stx-pair? - _hd1960119631_) - (let ((_e1960419637_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1960119631_))) - (let ((_lp-hd1960519641_ - (let () - (declare (not safe)) - (##car _e1960419637_))) - (_lp-tl1960619644_ - (let () - (declare (not safe)) - (##cdr _e1960419637_)))) - (let ((__tmp49945 - (let () - (declare (not safe)) - (cons _lp-hd1960519641_ _slot1960719634_)))) - (declare (not safe)) - (_loop1960319627_ _lp-tl1960619644_ __tmp49945)))) - (let ((_slot1960819647_ (reverse _slot1960719634_))) - ((lambda (_L19651_) - (let () - (let* ((_g1966819685_ - (lambda (_g1966919681_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1966919681_))) - (_g1966721525_ - (lambda (_g1966919689_) - (if (gx#stx-pair/null? _g1966919689_) - (let ((_g49673_ - (gx#syntax-split-splice - _g1966919689_ - '0))) - (begin - (let ((_g49674_ - (let () - (declare (not safe)) - (if (##values? _g49673_) - (##vector-length - _g49673_) - 1)))) - (if (not (let () + (gx#syntax-split-splice _g1942619446_ '0))) + (begin + (let ((_g49432_ + (let () + (declare (not safe)) + (if (##values? _g49431_) + (##vector-length _g49431_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g49432_ 2))) + (error "Context expects 2 values" _g49432_))) + (let ((_target1942819449_ + (let () + (declare (not safe)) + (##vector-ref _g49431_ 0))) + (_tl1943019452_ + (let () + (declare (not safe)) + (##vector-ref _g49431_ 1)))) + (if (gx#stx-null? _tl1943019452_) + (letrec ((_loop1943119455_ + (lambda (_hd1942919459_ + _slot1943519462_) + (if (gx#stx-pair? _hd1942919459_) + (let ((_e1943219465_ + (gx#syntax-e + _hd1942919459_))) + (let ((_lp-hd1943319469_ + (let () + (declare (not safe)) + (##car _e1943219465_))) + (_lp-tl1943419472_ + (let () + (declare (not safe)) + (##cdr _e1943219465_)))) + (let ((__tmp49702 + (let () (declare (not safe)) - (##fx= _g49674_ 2))) - (error "Context expects 2 values" - _g49674_))) - (let ((_target1967119692_ - (let () - (declare (not safe)) - (##vector-ref - _g49673_ - 0))) - (_tl1967319695_ - (let () - (declare (not safe)) - (##vector-ref - _g49673_ - 1)))) - (if (gx#stx-null? - _tl1967319695_) - (letrec ((_loop1967419698_ - (lambda (_hd1967219702_ + (cons _lp-hd1943319469_ + _slot1943519462_)))) + (declare (not safe)) + (_loop1943119455_ + _lp-tl1943419472_ + __tmp49702)))) + (let ((_slot1943619475_ + (reverse _slot1943519462_))) + ((lambda (_L19479_) + (let () + (let* ((_g1949619513_ + (lambda (_g1949719509_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1949719509_))) + (_g1949521327_ + (lambda (_g1949719517_) + (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _getf1967819705_) - (if (gx#stx-pair? _hd1967219702_) - (let ((_e1967519708_ (gx#syntax-e _hd1967219702_))) - (let ((_lp-hd1967619712_ - (let () - (declare (not safe)) - (##car _e1967519708_))) - (_lp-tl1967719715_ - (let () - (declare (not safe)) - (##cdr _e1967519708_)))) - (let ((__tmp49943 - (let () - (declare (not safe)) - (cons _lp-hd1967619712_ - _getf1967819705_)))) - (declare (not safe)) - (_loop1967419698_ - _lp-tl1967719715_ - __tmp49943)))) - (let ((_getf1967919718_ (reverse _getf1967819705_))) - ((lambda (_L19722_) - (let () - (let* ((_g1973919756_ - (lambda (_g1974019752_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1974019752_))) - (_g1973821516_ - (lambda (_g1974019760_) - (if (gx#stx-pair/null? - _g1974019760_) - (let ((_g49675_ - (gx#syntax-split-splice - _g1974019760_ - '0))) - (begin - (let ((_g49676_ - (let () - (declare - (not safe)) - (if (##values? + _g1949719517_) + (let ((_g49433_ + (gx#syntax-split-splice _g1949719517_ '0))) + (begin + (let ((_g49434_ + (let () + (declare (not safe)) + (if (##values? _g49433_) + (##vector-length _g49433_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g49434_ 2))) + (error "Context expects 2 values" + _g49434_))) + (let ((_target1949919520_ + (let () + (declare (not safe)) + (##vector-ref _g49433_ 0))) + (_tl1950119523_ + (let () + (declare (not safe)) + (##vector-ref _g49433_ 1)))) + (if (gx#stx-null? _tl1950119523_) + (letrec ((_loop1950219526_ + (lambda (_hd1950019530_ + _getf1950619533_) + (if (gx#stx-pair? + _hd1950019530_) + (let ((_e1950319536_ + (gx#syntax-e + _hd1950019530_))) + (let ((_lp-hd1950419540_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g49675_) - (##vector-length _g49675_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49676_ 2))) - (error "Context expects 2 values" _g49676_))) + (not safe)) + (##car _e1950319536_))) + (_lp-tl1950519543_ + (let () (declare (not safe)) (##cdr _e1950319536_)))) + (let ((__tmp49700 + (let () + (declare (not safe)) + (cons _lp-hd1950419540_ _getf1950619533_)))) + (declare (not safe)) + (_loop1950219526_ _lp-tl1950519543_ __tmp49700)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1974219763_ - (let () - (declare - (not safe)) - (##vector-ref - _g49675_ - 0))) - (_tl1974419766_ - (let () - (declare - (not safe)) - (##vector-ref - _g49675_ - 1)))) - (if (gx#stx-null? - _tl1974419766_) - (letrec ((_loop1974519769_ + (let ((_getf1950719546_ + (reverse _getf1950619533_))) + ((lambda (_L19550_) + (let () + (let* ((_g1956719584_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1974319773_ _setf1974919776_) - (if (gx#stx-pair? _hd1974319773_) - (let ((_e1974619779_ - (gx#syntax-e _hd1974319773_))) - (let ((_lp-hd1974719783_ - (let () - (declare (not safe)) - (##car _e1974619779_))) - (_lp-tl1974819786_ - (let () - (declare (not safe)) - (##cdr _e1974619779_)))) - (let ((__tmp49941 - (let () - (declare (not safe)) - (cons _lp-hd1974719783_ - _setf1974919776_)))) - (declare (not safe)) - (_loop1974519769_ - _lp-tl1974819786_ - __tmp49941)))) - (let ((_setf1975019789_ - (reverse _setf1974919776_))) - ((lambda (_L19793_) - (let () - (let* ((_mixin-slots19810_ - (let () - (declare (not safe)) - (_get-mixin-slots19418_ - _super-ref19410_ - _slots19411_))) - (_g1981319830_ - (lambda (_g1981419826_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1981419826_))) - (_g1981221512_ - (lambda (_g1981419834_) - (if (gx#stx-pair/null? - _g1981419834_) - (let ((_g49677_ - (gx#syntax-split-splice - _g1981419834_ - '0))) - (begin - (let ((_g49678_ + (lambda (_g1956819580_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1956819580_))) + (_g1956621318_ + (lambda (_g1956819588_) + (if (gx#stx-pair/null? _g1956819588_) + (let ((_g49435_ + (gx#syntax-split-splice + _g1956819588_ + '0))) + (begin + (let ((_g49436_ + (let () + (declare (not safe)) + (if (##values? _g49435_) + (##vector-length _g49435_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g49436_ 2))) + (error "Context expects 2 values" + _g49436_))) + (let ((_target1957019591_ + (let () + (declare (not safe)) + (##vector-ref _g49435_ 0))) + (_tl1957219594_ + (let () + (declare (not safe)) + (##vector-ref _g49435_ 1)))) + (if (gx#stx-null? _tl1957219594_) + (letrec ((_loop1957319597_ + (lambda (_hd1957119601_ + _setf1957719604_) + (if (gx#stx-pair? + _hd1957119601_) + (let ((_e1957419607_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (if (##values? _g49677_) - (##vector-length _g49677_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49678_ 2))) - (error "Context expects 2 values" _g49678_))) - (let ((_target1981619837_ - (let () - (declare (not safe)) - (##vector-ref _g49677_ 0))) - (_tl1981819840_ - (let () - (declare (not safe)) - (##vector-ref _g49677_ 1)))) - (if (gx#stx-null? _tl1981819840_) - (letrec ((_loop1981919843_ - (lambda (_hd1981719847_ - _mixin-slot1982319850_) - (if (gx#stx-pair? _hd1981719847_) - (let ((_e1982019853_ - (gx#syntax-e _hd1981719847_))) - (let ((_lp-hd1982119857_ - (let () - (declare (not safe)) - (##car _e1982019853_))) - (_lp-tl1982219860_ - (let () - (declare (not safe)) - (##cdr _e1982019853_)))) - (let ((__tmp49940 - (let () - (declare (not safe)) - (cons _lp-hd1982119857_ - _mixin-slot1982319850_)))) - (declare (not safe)) - (_loop1981919843_ - _lp-tl1982219860_ - __tmp49940)))) - (let ((_mixin-slot1982419863_ - (reverse _mixin-slot1982319850_))) - ((lambda (_L19867_) - (let () - (let* ((_g1988519902_ - (lambda (_g1988619898_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1988619898_))) - (_g1988421503_ - (lambda (_g1988619906_) - (if (gx#stx-pair/null? - _g1988619906_) - (let ((_g49679_ + (gx#syntax-e _hd1957119601_))) + (let ((_lp-hd1957519611_ + (let () + (declare (not safe)) + (##car _e1957419607_))) + (_lp-tl1957619614_ + (let () + (declare (not safe)) + (##cdr _e1957419607_)))) + (let ((__tmp49698 + (let () + (declare (not safe)) + (cons _lp-hd1957519611_ _setf1957719604_)))) + (declare (not safe)) + (_loop1957319597_ _lp-tl1957619614_ __tmp49698)))) + (let ((_setf1957819617_ (reverse _setf1957719604_))) + ((lambda (_L19621_) + (let () + (let* ((_mixin-slots19638_ + (let () + (declare (not safe)) + (_get-mixin-slots19270_ + _super-ref19263_ + _slots19264_))) + (_g1964119658_ + (lambda (_g1964219654_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1964219654_))) + (_g1964021314_ + (lambda (_g1964219662_) + (if (gx#stx-pair/null? _g1964219662_) + (let ((_g49437_ + (gx#syntax-split-splice + _g1964219662_ + '0))) + (begin + (let ((_g49438_ + (let () + (declare (not safe)) + (if (##values? _g49437_) + (##vector-length + _g49437_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g49438_ 2))) + (error "Context expects 2 values" + _g49438_))) + (let ((_target1964419665_ + (let () + (declare (not safe)) + (##vector-ref + _g49437_ + 0))) + (_tl1964619668_ + (let () + (declare (not safe)) + (##vector-ref + _g49437_ + 1)))) + (if (gx#stx-null? _tl1964619668_) + (letrec ((_loop1964719671_ + (lambda (_hd1964519675_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _g1988619906_ '0))) - (begin - (let ((_g49680_ - (let () - (declare (not safe)) - (if (##values? _g49679_) - (##vector-length _g49679_) - 1)))) - (if (not (let () + _mixin-slot1965119678_) + (if (gx#stx-pair? _hd1964519675_) + (let ((_e1964819681_ (gx#syntax-e _hd1964519675_))) + (let ((_lp-hd1964919685_ + (let () + (declare (not safe)) + (##car _e1964819681_))) + (_lp-tl1965019688_ + (let () + (declare (not safe)) + (##cdr _e1964819681_)))) + (let ((__tmp49697 + (let () (declare (not safe)) - (##fx= _g49680_ 2))) - (error "Context expects 2 values" _g49680_))) - (let ((_target1988819909_ - (let () - (declare (not safe)) - (##vector-ref _g49679_ 0))) - (_tl1989019912_ - (let () - (declare (not safe)) - (##vector-ref _g49679_ 1)))) - (if (gx#stx-null? _tl1989019912_) - (letrec ((_loop1989119915_ - (lambda (_hd1988919919_ - _mixin-getf1989519922_) - (if (gx#stx-pair? _hd1988919919_) - (let ((_e1989219925_ - (gx#syntax-e - _hd1988919919_))) - (let ((_lp-hd1989319929_ - (let () - (declare (not safe)) - (##car _e1989219925_))) - (_lp-tl1989419932_ - (let () - (declare (not safe)) - (##cdr _e1989219925_)))) - (let ((__tmp49938 - (let () - (declare - (not safe)) - (cons _lp-hd1989319929_ + (cons _lp-hd1964919685_ + _mixin-slot1965119678_)))) + (declare (not safe)) + (_loop1964719671_ + _lp-tl1965019688_ + __tmp49697)))) + (let ((_mixin-slot1965219691_ + (reverse _mixin-slot1965119678_))) + ((lambda (_L19695_) + (let () + (let* ((_g1971319730_ + (lambda (_g1971419726_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1971419726_))) + (_g1971221305_ + (lambda (_g1971419734_) + (if (gx#stx-pair/null? + _g1971419734_) + (let ((_g49439_ + (gx#syntax-split-splice + _g1971419734_ + '0))) + (begin + (let ((_g49440_ + (let () + (declare + (not safe)) + (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mixin-getf1989519922_)))) - (declare (not safe)) - (_loop1989119915_ _lp-tl1989419932_ __tmp49938)))) + _g49439_) + (##vector-length _g49439_) + 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_mixin-getf1989619935_ - (reverse _mixin-getf1989519922_))) - ((lambda (_L19939_) - (let () - (let* ((_g1995619973_ - (lambda (_g1995719969_) + (if (not (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1995719969_))) - (_g1995521494_ - (lambda (_g1995719977_) - (if (gx#stx-pair/null? _g1995719977_) - (let ((_g49681_ - (gx#syntax-split-splice _g1995719977_ '0))) - (begin - (let ((_g49682_ - (let () - (declare (not safe)) - (if (##values? _g49681_) - (##vector-length _g49681_) - 1)))) - (if (not (let () + (not safe)) + (##fx= _g49440_ 2))) + (error "Context expects 2 values" _g49440_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_target1971619737_ + (let () + (declare + (not safe)) + (##vector-ref + _g49439_ + 0))) + (_tl1971819740_ + (let () + (declare + (not safe)) + (##vector-ref + _g49439_ + 1)))) + (if (gx#stx-null? + _tl1971819740_) + (letrec ((_loop1971919743_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd1971719747_ _mixin-getf1972319750_) + (if (gx#stx-pair? _hd1971719747_) + (let ((_e1972019753_ + (gx#syntax-e _hd1971719747_))) + (let ((_lp-hd1972119757_ + (let () + (declare (not safe)) + (##car _e1972019753_))) + (_lp-tl1972219760_ + (let () + (declare (not safe)) + (##cdr _e1972019753_)))) + (let ((__tmp49695 + (let () (declare (not safe)) - (##fx= _g49682_ 2))) - (error "Context expects 2 values" - _g49682_))) - (let ((_target1995919980_ - (let () - (declare (not safe)) - (##vector-ref _g49681_ 0))) - (_tl1996119983_ - (let () - (declare (not safe)) - (##vector-ref _g49681_ 1)))) - (if (gx#stx-null? _tl1996119983_) - (letrec ((_loop1996219986_ - (lambda (_hd1996019990_ - _mixin-setf1996619993_) - (if (gx#stx-pair? - _hd1996019990_) - (let ((_e1996319996_ - (gx#syntax-e - _hd1996019990_))) - (let ((_lp-hd1996420000_ - (let () + (cons _lp-hd1972119757_ + _mixin-getf1972319750_)))) + (declare (not safe)) + (_loop1971919743_ + _lp-tl1972219760_ + __tmp49695)))) + (let ((_mixin-getf1972419763_ + (reverse _mixin-getf1972319750_))) + ((lambda (_L19767_) + (let () + (let* ((_g1978419801_ + (lambda (_g1978519797_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1978519797_))) + (_g1978321296_ + (lambda (_g1978519805_) + (if (gx#stx-pair/null? + _g1978519805_) + (let ((_g49441_ + (gx#syntax-split-splice + _g1978519805_ + '0))) + (begin + (let ((_g49442_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e1996319996_))) - (_lp-tl1996520003_ - (let () (declare (not safe)) (##cdr _e1996319996_)))) - (let ((__tmp49936 - (let () - (declare (not safe)) - (cons _lp-hd1996420000_ _mixin-setf1996619993_)))) - (declare (not safe)) - (_loop1996219986_ _lp-tl1996520003_ __tmp49936)))) - (let ((_mixin-setf1996720006_ (reverse _mixin-setf1996619993_))) - ((lambda (_L20010_) - (let () - (let* ((_g2002720044_ - (lambda (_g2002820040_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g2002820040_))) - (_g2002621477_ - (lambda (_g2002820048_) - (if (gx#stx-pair/null? _g2002820048_) - (let ((_g49683_ - (gx#syntax-split-splice - _g2002820048_ - '0))) - (begin - (let ((_g49684_ - (let () - (declare (not safe)) - (if (##values? _g49683_) - (##vector-length _g49683_) - 1)))) - (if (not (let () + (let () + (declare (not safe)) + (if (##values? _g49441_) + (##vector-length _g49441_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g49442_ 2))) + (error "Context expects 2 values" _g49442_))) + (let ((_target1978719808_ + (let () + (declare (not safe)) + (##vector-ref _g49441_ 0))) + (_tl1978919811_ + (let () + (declare (not safe)) + (##vector-ref _g49441_ 1)))) + (if (gx#stx-null? _tl1978919811_) + (letrec ((_loop1979019814_ + (lambda (_hd1978819818_ + _mixin-setf1979419821_) + (if (gx#stx-pair? _hd1978819818_) + (let ((_e1979119824_ + (gx#syntax-e _hd1978819818_))) + (let ((_lp-hd1979219828_ + (let () + (declare (not safe)) + (##car _e1979119824_))) + (_lp-tl1979319831_ + (let () + (declare (not safe)) + (##cdr _e1979119824_)))) + (let ((__tmp49693 + (let () (declare (not safe)) - (##fx= _g49684_ 2))) - (error "Context expects 2 values" - _g49684_))) - (let ((_target2003020051_ - (let () - (declare (not safe)) - (##vector-ref _g49683_ 0))) - (_tl2003220054_ - (let () - (declare (not safe)) - (##vector-ref _g49683_ 1)))) - (if (gx#stx-null? _tl2003220054_) - (letrec ((_loop2003320057_ - (lambda (_hd2003120061_ + (cons _lp-hd1979219828_ + _mixin-setf1979419821_)))) + (declare (not safe)) + (_loop1979019814_ + _lp-tl1979319831_ + __tmp49693)))) + (let ((_mixin-setf1979519834_ + (reverse _mixin-setf1979419821_))) + ((lambda (_L19838_) + (let () + (let* ((_g1985519872_ + (lambda (_g1985619868_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1985619868_))) + (_g1985421279_ + (lambda (_g1985619876_) + (if (gx#stx-pair/null? + _g1985619876_) + (let ((_g49443_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ugetf2003720064_) - (if (gx#stx-pair? _hd2003120061_) - (let ((_e2003420067_ (gx#syntax-e _hd2003120061_))) - (let ((_lp-hd2003520071_ - (let () - (declare (not safe)) - (##car _e2003420067_))) - (_lp-tl2003620074_ - (let () - (declare (not safe)) - (##cdr _e2003420067_)))) - (let ((__tmp49933 - (let () - (declare (not safe)) - (cons _lp-hd2003520071_ - _ugetf2003720064_)))) - (declare (not safe)) - (_loop2003320057_ _lp-tl2003620074_ __tmp49933)))) - (let ((_ugetf2003820077_ (reverse _ugetf2003720064_))) - ((lambda (_L20081_) - (let () - (let* ((_g2009820115_ - (lambda (_g2009920111_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g2009920111_))) - (_g2009721460_ - (lambda (_g2009920119_) - (if (gx#stx-pair/null? _g2009920119_) - (let ((_g49685_ - (gx#syntax-split-splice - _g2009920119_ - '0))) - (begin - (let ((_g49686_ - (let () - (declare (not safe)) - (if (##values? - _g49685_) - (##vector-length - _g49685_) - 1)))) - (if (not (let () + (gx#syntax-split-splice _g1985619876_ '0))) + (begin + (let ((_g49444_ + (let () + (declare (not safe)) + (if (##values? _g49443_) + (##vector-length _g49443_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g49444_ 2))) + (error "Context expects 2 values" _g49444_))) + (let ((_target1985819879_ + (let () + (declare (not safe)) + (##vector-ref _g49443_ 0))) + (_tl1986019882_ + (let () + (declare (not safe)) + (##vector-ref _g49443_ 1)))) + (if (gx#stx-null? _tl1986019882_) + (letrec ((_loop1986119885_ + (lambda (_hd1985919889_ + _ugetf1986519892_) + (if (gx#stx-pair? _hd1985919889_) + (let ((_e1986219895_ + (gx#syntax-e + _hd1985919889_))) + (let ((_lp-hd1986319899_ + (let () + (declare (not safe)) + (##car _e1986219895_))) + (_lp-tl1986419902_ + (let () + (declare (not safe)) + (##cdr _e1986219895_)))) + (let ((__tmp49690 + (let () (declare (not safe)) - (##fx= _g49686_ + (cons _lp-hd1986319899_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - 2))) + _ugetf1986519892_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (error "Context expects 2 values" - _g49686_))) - (let ((_target2010120122_ - (let () - (declare (not safe)) - (##vector-ref - _g49685_ - 0))) - (_tl2010320125_ - (let () - (declare (not safe)) - (##vector-ref - _g49685_ - 1)))) - (if (gx#stx-null? - _tl2010320125_) - (letrec ((_loop2010420128_ - (lambda (_hd2010220132_ + (declare (not safe)) + (_loop1986119885_ + _lp-tl1986419902_ + __tmp49690)))) + (let ((_ugetf1986619905_ + (reverse _ugetf1986519892_))) + ((lambda (_L19909_) + (let () + (let* ((_g1992619943_ + (lambda (_g1992719939_) + (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _usetf2010820135_) - (if (gx#stx-pair? _hd2010220132_) - (let ((_e2010520138_ - (gx#syntax-e _hd2010220132_))) - (let ((_lp-hd2010620142_ - (let () - (declare (not safe)) - (##car _e2010520138_))) - (_lp-tl2010720145_ - (let () - (declare (not safe)) - (##cdr _e2010520138_)))) - (let ((__tmp49930 - (let () - (declare (not safe)) - (cons _lp-hd2010620142_ - _usetf2010820135_)))) - (declare (not safe)) - (_loop2010420128_ - _lp-tl2010720145_ - __tmp49930)))) - (let ((_usetf2010920148_ - (reverse _usetf2010820135_))) - ((lambda (_L20152_) - (let () - (let* ((_g2016920186_ - (lambda (_g2017020182_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g2017020182_))) - (_g2016821443_ - (lambda (_g2017020190_) - (if (gx#stx-pair/null? - _g2017020190_) - (let ((_g49687_ - (gx#syntax-split-splice - _g2017020190_ - '0))) - (begin - (let ((_g49688_ - (let () - (declare + '#f + '"Bad syntax; invalid match target" + _g1992719939_))) + (_g1992521262_ + (lambda (_g1992719947_) + (if (gx#stx-pair/null? _g1992719947_) + (let ((_g49445_ + (gx#syntax-split-splice _g1992719947_ '0))) + (begin + (let ((_g49446_ + (let () + (declare (not safe)) + (if (##values? _g49445_) + (##vector-length _g49445_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g49446_ 2))) + (error "Context expects 2 values" + _g49446_))) + (let ((_target1992919950_ + (let () + (declare (not safe)) + (##vector-ref _g49445_ 0))) + (_tl1993119953_ + (let () + (declare (not safe)) + (##vector-ref _g49445_ 1)))) + (if (gx#stx-null? _tl1993119953_) + (letrec ((_loop1993219956_ + (lambda (_hd1993019960_ + _usetf1993619963_) + (if (gx#stx-pair? + _hd1993019960_) + (let ((_e1993319966_ + (gx#syntax-e + _hd1993019960_))) + (let ((_lp-hd1993419970_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _e1993319966_))) + (_lp-tl1993519973_ + (let () (declare (not safe)) (##cdr _e1993319966_)))) + (let ((__tmp49687 + (let () + (declare (not safe)) + (cons _lp-hd1993419970_ _usetf1993619963_)))) + (declare (not safe)) + (_loop1993219956_ _lp-tl1993519973_ __tmp49687)))) + (let ((_usetf1993719976_ (reverse _usetf1993619963_))) + ((lambda (_L19980_) + (let () + (let* ((_g1999720014_ + (lambda (_g1999820010_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1999820010_))) + (_g1999621245_ + (lambda (_g1999820018_) + (if (gx#stx-pair/null? _g1999820018_) + (let ((_g49447_ + (gx#syntax-split-splice + _g1999820018_ + '0))) + (begin + (let ((_g49448_ + (let () + (declare (not safe)) + (if (##values? _g49447_) + (##vector-length _g49447_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g49448_ 2))) + (error "Context expects 2 values" + _g49448_))) + (let ((_target2000020021_ + (let () + (declare (not safe)) + (##vector-ref _g49447_ 0))) + (_tl2000220024_ + (let () + (declare (not safe)) + (##vector-ref _g49447_ 1)))) + (if (gx#stx-null? _tl2000220024_) + (letrec ((_loop2000320027_ + (lambda (_hd2000120031_ + _mixin-ugetf2000720034_) + (if (gx#stx-pair? + _hd2000120031_) + (let ((_e2000420037_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _hd2000120031_))) + (let ((_lp-hd2000520041_ + (let () + (declare (not safe)) + (##car _e2000420037_))) + (_lp-tl2000620044_ + (let () + (declare (not safe)) + (##cdr _e2000420037_)))) + (let ((__tmp49684 + (let () + (declare (not safe)) + (cons _lp-hd2000520041_ + _mixin-ugetf2000720034_)))) + (declare (not safe)) + (_loop2000320027_ _lp-tl2000620044_ __tmp49684)))) + (let ((_mixin-ugetf2000820047_ + (reverse _mixin-ugetf2000720034_))) + ((lambda (_L20051_) + (let () + (let* ((_g2006820085_ + (lambda (_g2006920081_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2006920081_))) + (_g2006721228_ + (lambda (_g2006920089_) + (if (gx#stx-pair/null? _g2006920089_) + (let ((_g49449_ + (gx#syntax-split-splice + _g2006920089_ + '0))) + (begin + (let ((_g49450_ + (let () + (declare (not safe)) + (if (##values? _g49449_) + (##vector-length + _g49449_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g49450_ 2))) + (error "Context expects 2 values" + _g49450_))) + (let ((_target2007120092_ + (let () + (declare (not safe)) + (##vector-ref + _g49449_ + 0))) + (_tl2007320095_ + (let () + (declare (not safe)) + (##vector-ref + _g49449_ + 1)))) + (if (gx#stx-null? + _tl2007320095_) + (letrec ((_loop2007420098_ + (lambda (_hd2007220102_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (if (##values? _g49687_) - (##vector-length _g49687_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49688_ 2))) - (error "Context expects 2 values" _g49688_))) - (let ((_target2017220193_ - (let () (declare (not safe)) (##vector-ref _g49687_ 0))) - (_tl2017420196_ - (let () (declare (not safe)) (##vector-ref _g49687_ 1)))) - (if (gx#stx-null? _tl2017420196_) - (letrec ((_loop2017520199_ - (lambda (_hd2017320203_ _mixin-ugetf2017920206_) - (if (gx#stx-pair? _hd2017320203_) - (let ((_e2017620209_ - (gx#syntax-e _hd2017320203_))) - (let ((_lp-hd2017720213_ - (let () - (declare (not safe)) - (##car _e2017620209_))) - (_lp-tl2017820216_ - (let () - (declare (not safe)) - (##cdr _e2017620209_)))) - (let ((__tmp49927 - (let () + _mixin-usetf2007820105_) + (if (gx#stx-pair? _hd2007220102_) + (let ((_e2007520108_ (gx#syntax-e _hd2007220102_))) + (let ((_lp-hd2007620112_ + (let () + (declare (not safe)) + (##car _e2007520108_))) + (_lp-tl2007720115_ + (let () + (declare (not safe)) + (##cdr _e2007520108_)))) + (let ((__tmp49681 + (let () + (declare (not safe)) + (cons _lp-hd2007620112_ + _mixin-usetf2007820105_)))) + (declare (not safe)) + (_loop2007420098_ + _lp-tl2007720115_ + __tmp49681)))) + (let ((_mixin-usetf2007920118_ + (reverse _mixin-usetf2007820105_))) + ((lambda (_L20122_) + (let () + (let* ((_type-slots20153_ + (if (gx#stx-null? _slots19264_) + '() + (let ((__tmp49451 + (let ((__tmp49452 + (begin + (gx#syntax-check-splice-targets + _L19621_ + _L19550_ + _L19479_) + (let ((__tmp49453 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g2013820143_ + _g2013920146_ + _g2014020148_ + _g2014120150_) + (let ((__tmp49454 + (let ((__tmp49455 + (let ((__tmp49456 + (let () + (declare (not safe)) + (cons _g2013820143_ + '())))) + (declare (not safe)) + (cons _g2013920146_ + __tmp49456)))) + (declare (not safe)) + (cons _g2014020148_ __tmp49455)))) + (declare (not safe)) + (cons __tmp49454 _g2014120150_))))) + (declare (not safe)) + (foldr* __tmp49453 '() _L19621_ _L19550_ _L19479_))))) + (declare (not safe)) + (cons __tmp49452 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _lp-hd2017720213_ - _mixin-ugetf2017920206_)))) - (declare (not safe)) - (_loop2017520199_ - _lp-tl2017820216_ - __tmp49927)))) - (let ((_mixin-ugetf2018020219_ - (reverse _mixin-ugetf2017920206_))) - ((lambda (_L20223_) - (let () - (let* ((_g2024020257_ - (lambda (_g2024120253_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g2024120253_))) - (_g2023921426_ - (lambda (_g2024120261_) - (if (gx#stx-pair/null? - _g2024120261_) - (let ((_g49689_ - (gx#syntax-split-splice + (cons 'slots: __tmp49451)))) + (_type-mixin-slots20170_ + (if (gx#stx-null? + _mixin-slots19638_) + '() + (let ((__tmp49457 + (let ((__tmp49458 + (begin + (gx#syntax-check-splice-targets + _L19838_ + _L19767_ + _L19695_) + (let ((__tmp49459 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2024120261_ - '0))) - (begin - (let ((_g49690_ - (let () - (declare (not safe)) - (if (##values? _g49689_) - (##vector-length _g49689_) - 1)))) - (if (not (let () + (lambda (_g2015520160_ + _g2015620163_ + _g2015720165_ + _g2015820167_) + (let ((__tmp49460 + (let ((__tmp49461 + (let ((__tmp49462 + (let () + (declare (not safe)) + (cons _g2015520160_ + '())))) + (declare (not safe)) + (cons _g2015620163_ + __tmp49462)))) + (declare (not safe)) + (cons _g2015720165_ __tmp49461)))) (declare (not safe)) - (##fx= _g49690_ 2))) - (error "Context expects 2 values" _g49690_))) - (let ((_target2024320264_ - (let () - (declare (not safe)) - (##vector-ref _g49689_ 0))) - (_tl2024520267_ - (let () - (declare (not safe)) - (##vector-ref _g49689_ 1)))) - (if (gx#stx-null? _tl2024520267_) - (letrec ((_loop2024620270_ - (lambda (_hd2024420274_ - _mixin-usetf2025020277_) - (if (gx#stx-pair? _hd2024420274_) - (let ((_e2024720280_ - (gx#syntax-e - _hd2024420274_))) - (let ((_lp-hd2024820284_ - (let () - (declare (not safe)) - (##car _e2024720280_))) - (_lp-tl2024920287_ - (let () - (declare (not safe)) - (##cdr _e2024720280_)))) - (let ((__tmp49924 - (let () - (declare (not safe)) - (cons _lp-hd2024820284_ - _mixin-usetf2025020277_)))) + (cons __tmp49460 _g2015820167_))))) + (declare (not safe)) + (foldr* __tmp49459 '() _L19838_ _L19767_ _L19695_))))) + (declare (not safe)) + (cons __tmp49458 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop2024620270_ - _lp-tl2024920287_ - __tmp49924)))) - (let ((_mixin-usetf2025120290_ - (reverse _mixin-usetf2025020277_))) - ((lambda (_L20294_) - (let () - (let* ((_type-slots20325_ - (if (gx#stx-null? - _slots19411_) - '() - (let ((__tmp49691 + (cons 'mixin: __tmp49457)))) + (_type-name20177_ + (let ((__tmp49463 + (let ((__tmp49464 + (let ((_$e20173_ + (gx#stx-getq ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49692 - (begin - (gx#syntax-check-splice-targets - _L19793_ - _L19722_ - _L19651_) - (let ((__tmp49693 - (lambda (_g2031020315_ - _g2031120318_ - _g2031220320_ - _g2031320322_) - (let ((__tmp49694 - (let ((__tmp49695 - (let ((__tmp49696 + 'name: + _body19265_))) + (if _$e20173_ _$e20173_ _id19262_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp49464 '())))) + (declare (not safe)) + (cons 'name: __tmp49463))) + (_type-id20184_ + (let ((__tmp49465 + (let ((__tmp49466 + (let ((_$e20180_ + (gx#stx-getq +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + 'id: + _body19265_))) + (if _$e20180_ + _$e20180_ + (let () + (declare (not safe)) + (|gerbil/core$$[1]#make-class-type-id| + _L19297_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp49466 '())))) + (declare (not safe)) + (cons 'id: __tmp49465))) + (_type-constructor20199_ + (let ((_$e20195_ + (let ((_e2018620188_ + (gx#stx-getq + 'constructor: + _body19265_))) + (if _e2018620188_ + (let* ((_e20192_ + _e2018620188_) + (__tmp49467 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _e20192_ '())))) + (declare (not safe)) + (cons 'constructor: __tmp49467)) + '#f)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if _$e20195_ _$e20195_ '()))) + (_properties20233_ + (let* ((_properties20202_ + (if (gx#stx-e + (gx#stx-getq + 'transparent: + _body19265_)) + (let ((__tmp49468 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons 'transparent: '#t)))) + (declare (not safe)) + (cons __tmp49468 '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_properties20215_ + (let ((_$e20205_ + (gx#stx-e + (gx#stx-getq + 'print: + _body19265_)))) + (if _$e20205_ + ((lambda (_print20209_) + (let* ((_print20212_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (if (let () + (declare (not safe)) + (eq? _print20209_ '#t)) + _slots19264_ + _print20209_)) + (__tmp49469 (let () (declare (not safe)) - (cons _g2031020315_ '())))) - (declare (not safe)) - (cons _g2031120318_ __tmp49696)))) - (declare (not safe)) - (cons _g2031220320_ __tmp49695)))) + (cons 'print: _print20212_)))) + (declare (not safe)) + (cons __tmp49469 _properties20202_))) + _$e20205_) + _properties20202_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49694 - _g2031320322_))))) - (declare (not safe)) - (foldr* __tmp49693 - '() - _L19793_ - _L19722_ - _L19651_))))) - (declare (not safe)) - (cons __tmp49692 '())))) - (declare (not safe)) - (cons 'slots: __tmp49691)))) - (_type-mixin-slots20342_ - (if (gx#stx-null? _mixin-slots19810_) - '() - (let ((__tmp49697 - (let ((__tmp49698 - (begin - (gx#syntax-check-splice-targets - _L20010_ - _L19939_ - _L19867_) - (let ((__tmp49699 - (lambda (_g2032720332_ - _g2032820335_ - _g2032920337_ - _g2033020339_) - (let ((__tmp49700 - (let ((__tmp49701 - (let ((__tmp49702 + (_properties20228_ + (let ((_$e20218_ + (gx#stx-e + (gx#stx-getq + 'equal: + _body19265_)))) + (if _$e20218_ + ((lambda (_equal20222_) + (let* ((_equal20225_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (if (let () + (declare (not safe)) + (eq? _equal20222_ '#t)) + _slots19264_ + _equal20222_)) + (__tmp49470 (let () (declare (not safe)) - (cons _g2032720332_ '())))) - (declare (not safe)) - (cons _g2032820335_ __tmp49702)))) - (declare (not safe)) - (cons _g2032920337_ __tmp49701)))) + (cons 'equal: _equal20225_)))) + (declare (not safe)) + (cons __tmp49470 _properties20215_))) + _$e20218_) + _properties20215_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49700 - _g2033020339_))))) - (declare (not safe)) - (foldr* __tmp49699 - '() - _L20010_ - _L19939_ - _L19867_))))) - (declare (not safe)) - (cons __tmp49698 '())))) - (declare (not safe)) - (cons 'mixin: __tmp49697)))) - (_type-name20349_ - (let ((__tmp49703 - (let ((__tmp49704 - (let ((_$e20345_ - (gx#stx-getq 'name: _body19412_))) - (if _$e20345_ _$e20345_ _id19409_)))) - (declare (not safe)) - (cons __tmp49704 '())))) - (declare (not safe)) - (cons 'name: __tmp49703))) - (_type-id20356_ - (let ((__tmp49705 - (let ((__tmp49706 - (let ((_$e20352_ - (gx#stx-getq 'id: _body19412_))) - (if _$e20352_ - _$e20352_ - (let () - (declare (not safe)) - (|gerbil/core$$[1]#make-class-type-id| - _L19472_)))))) - (declare (not safe)) - (cons __tmp49706 '())))) - (declare (not safe)) - (cons 'id: __tmp49705))) - (_type-constructor20371_ - (let ((_$e20367_ - (let ((_e2035820360_ - (gx#stx-getq 'constructor: _body19412_))) - (if _e2035820360_ - (let* ((_e20364_ _e2035820360_) - (__tmp49707 - (let () - (declare (not safe)) - (cons _e20364_ '())))) - (declare (not safe)) - (cons 'constructor: __tmp49707)) - '#f)))) - (if _$e20367_ _$e20367_ '()))) - (_properties20405_ - (let* ((_properties20374_ - (if (gx#stx-e - (gx#stx-getq 'transparent: _body19412_)) - (let ((__tmp49708 - (let () - (declare (not safe)) - (cons 'transparent: '#t)))) - (declare (not safe)) - (cons __tmp49708 '())) - '())) - (_properties20387_ - (let ((_$e20377_ - (gx#stx-e (gx#stx-getq 'print: _body19412_)))) - (if _$e20377_ - ((lambda (_print20381_) - (let* ((_print20384_ + _properties20228_)) + (_type-properties20274_ (if (let () (declare (not safe)) - (eq? _print20381_ '#t)) - _slots19411_ - _print20381_)) - (__tmp49709 + (null? _properties20233_)) + '() + (let* ((_g2023620244_ + (lambda (_g2023720240_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2023720240_))) + (_g2023520270_ + (lambda (_g2023720248_) + ((lambda (_L20251_) + (let () + (let ((__tmp49471 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49472 + (let ((__tmp49474 + (gx#datum->syntax '#f 'quote)) + (__tmp49473 (let () (declare (not safe)) - (cons 'print: _print20384_)))) - (declare (not safe)) - (cons __tmp49709 _properties20374_))) - _$e20377_) - _properties20374_))) - (_properties20400_ - (let ((_$e20390_ - (gx#stx-e (gx#stx-getq 'equal: _body19412_)))) - (if _$e20390_ - ((lambda (_equal20394_) - (let* ((_equal20397_ - (if (let () + (cons _L20251_ '())))) + (declare (not safe)) + (cons __tmp49474 __tmp49473)))) + (declare (not safe)) + (cons __tmp49472 '())))) + (declare (not safe)) + (cons 'properties: __tmp49471)))) + _g2023720248_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (eq? _equal20394_ '#t)) - _slots19411_ - _equal20394_)) - (__tmp49710 - (let () + (_g2023520270_ + _properties20233_)))) + (_final?20277_ + (gx#stx-e + (gx#stx-getq 'final: _body19265_))) + (_type-struct20280_ + (let ((__tmp49475 + (let () + (declare (not safe)) + (cons _struct?19279_ + '())))) (declare (not safe)) - (cons 'equal: _equal20397_)))) - (declare (not safe)) - (cons __tmp49710 _properties20387_))) - _$e20390_) - _properties20387_)))) - _properties20400_)) - (_type-properties20446_ - (if (let () (declare (not safe)) (null? _properties20405_)) - '() - (let* ((_g2040820416_ - (lambda (_g2040920412_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g2040920412_))) - (_g2040720442_ - (lambda (_g2040920420_) - ((lambda (_L20423_) - (let () - (let ((__tmp49711 - (let ((__tmp49712 - (let ((__tmp49714 - (gx#datum->syntax - '#f - 'quote)) - (__tmp49713 - (let () - (declare - (not safe)) - (cons _L20423_ + (cons 'struct: __tmp49475))) + (_type-final20283_ + (let ((__tmp49476 + (let () + (declare (not safe)) + (cons _final?20277_ '())))) + (declare (not safe)) + (cons 'final: __tmp49476))) + (_g2028620303_ + (lambda (_g2028720299_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2028720299_))) + (_g2028521224_ + (lambda (_g2028720307_) + (if (gx#stx-pair/null? + _g2028720307_) + (let ((_g49477_ + (gx#syntax-split-splice + _g2028720307_ + '0))) + (begin + (let ((_g49478_ + (let () + (declare + (not safe)) + (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) + _g49477_) + (##vector-length _g49477_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g49478_ 2))) + (error "Context expects 2 values" _g49478_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49714 - __tmp49713)))) + (let ((_target2028920310_ + (let () + (declare + (not safe)) + (##vector-ref + _g49477_ + 0))) + (_tl2029120313_ + (let () + (declare + (not safe)) + (##vector-ref + _g49477_ + 1)))) + (if (gx#stx-null? + _tl2029120313_) + (letrec ((_loop2029220316_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd2029020320_ _type-body2029620323_) + (if (gx#stx-pair? _hd2029020320_) + (let ((_e2029320326_ + (gx#syntax-e _hd2029020320_))) + (let ((_lp-hd2029420330_ + (let () (declare (not safe)) - (cons __tmp49712 '())))) - (declare (not safe)) - (cons 'properties: __tmp49711)))) - _g2040920420_)))) - (declare (not safe)) - (_g2040720442_ _properties20405_)))) - (_final?20449_ (gx#stx-e (gx#stx-getq 'final: _body19412_))) - (_type-final20452_ - (let ((__tmp49715 - (let () - (declare (not safe)) - (cons _final?20449_ '())))) - (declare (not safe)) - (cons 'final: __tmp49715))) - (_g2045520472_ - (lambda (_g2045620468_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g2045620468_))) - (_g2045421422_ - (lambda (_g2045620476_) - (if (gx#stx-pair/null? _g2045620476_) - (let ((_g49716_ - (gx#syntax-split-splice _g2045620476_ '0))) - (begin - (let ((_g49717_ - (let () - (declare (not safe)) - (if (##values? _g49716_) - (##vector-length _g49716_) - 1)))) - (if (not (let () + (##car _e2029320326_))) + (_lp-tl2029520333_ + (let () + (declare (not safe)) + (##cdr _e2029320326_)))) + (let ((__tmp49673 + (let () + (declare (not safe)) + (cons _lp-hd2029420330_ + _type-body2029620323_)))) (declare (not safe)) - (##fx= _g49717_ 2))) - (error "Context expects 2 values" _g49717_))) - (let ((_target2045820479_ - (let () - (declare (not safe)) - (##vector-ref _g49716_ 0))) - (_tl2046020482_ - (let () - (declare (not safe)) - (##vector-ref _g49716_ 1)))) - (if (gx#stx-null? _tl2046020482_) - (letrec ((_loop2046120485_ - (lambda (_hd2045920489_ - _type-body2046520492_) - (if (gx#stx-pair? _hd2045920489_) - (let ((_e2046220495_ - (gx#syntax-e - _hd2045920489_))) - (let ((_lp-hd2046320499_ - (let () - (declare - (not safe)) - (##car _e2046220495_))) - (_lp-tl2046420502_ - (let () - (declare - (not safe)) - (##cdr _e2046220495_)))) - (let ((__tmp49917 - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (cons _lp-hd2046320499_ _type-body2046520492_)))) - (declare (not safe)) - (_loop2046120485_ _lp-tl2046420502_ __tmp49917)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_type-body2046620505_ - (reverse _type-body2046520492_))) - ((lambda (_L20509_) + (_loop2029220316_ + _lp-tl2029520333_ + __tmp49673)))) + (let ((_type-body2029720336_ + (reverse _type-body2029620323_))) + ((lambda (_L20340_) + (let () + (let* ((_g2035920367_ + (lambda (_g2036020363_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2036020363_))) + (_g2035821212_ + (lambda (_g2036020371_) + ((lambda (_L20374_) (let () - (let* ((_g2052720535_ + (let* ((_g2038720395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2052820531_) + (lambda (_g2038820391_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2052820531_))) - (_g2052621410_ - (lambda (_g2052820539_) - ((lambda (_L20542_) + _g2038820391_))) + (_g2038621141_ + (lambda (_g2038820399_) + ((lambda (_L20402_) (let () - (let* ((_g2055520563_ - (lambda (_g2055620559_) + (let* ((_g2041520423_ + (lambda (_g2041620419_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2055620559_))) - (_g2055421339_ - (lambda (_g2055620567_) - ((lambda (_L20570_) + _g2041620419_))) + (_g2041421106_ + (lambda (_g2041620427_) + ((lambda (_L20430_) (let () - (let* ((_g2058320591_ - (lambda (_g2058420587_) + (let* ((_g2044320451_ + (lambda (_g2044420447_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2058420587_))) - (_g2058221304_ - (lambda (_g2058420595_) - ((lambda (_L20598_) + _g2044420447_))) + (_g2044221020_ + (lambda (_g2044420455_) + ((lambda (_L20458_) (let () - (let* ((_g2061120619_ + (let* ((_g2047120479_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2061220615_) + (lambda (_g2047220475_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2061220615_))) - (_g2061021188_ - (lambda (_g2061220623_) - ((lambda (_L20626_) + _g2047220475_))) + (_g2047021008_ + (lambda (_g2047220483_) + ((lambda (_L20486_) (let () - (let* ((_g2063920647_ - (lambda (_g2064020643_) + (let* ((_g2049920507_ + (lambda (_g2050020503_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2064020643_))) - (_g2063821176_ - (lambda (_g2064020651_) - ((lambda (_L20654_) + _g2050020503_))) + (_g2049821004_ + (lambda (_g2050020511_) + ((lambda (_L20514_) (let () - (let* ((_g2066720675_ - (lambda (_g2066820671_) + (let* ((_g2052720535_ + (lambda (_g2052820531_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2066820671_))) - (_g2066621172_ - (lambda (_g2066820679_) - ((lambda (_L20682_) + _g2052820531_))) + (_g2052621000_ + (lambda (_g2052820539_) + ((lambda (_L20542_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2069520703_ - (lambda (_g2069620699_) + (let* ((_g2055520563_ + (lambda (_g2055620559_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2069620699_))) - (_g2069421168_ - (lambda (_g2069620707_) - ((lambda (_L20710_) + _g2055620559_))) + (_g2055420929_ + (lambda (_g2055620567_) + ((lambda (_L20570_) (let () - (let* ((_g2072320731_ - (lambda (_g2072420727_) + (let* ((_g2058320591_ + (lambda (_g2058420587_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2072420727_))) - (_g2072221097_ - (lambda (_g2072420735_) - ((lambda (_L20738_) + _g2058420587_))) + (_g2058220925_ + (lambda (_g2058420595_) + ((lambda (_L20598_) (let () - (let* ((_g2075120759_ + (let* ((_g2061120619_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2075220755_) + (lambda (_g2061220615_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2075220755_))) - (_g2075021093_ - (lambda (_g2075220763_) - ((lambda (_L20766_) + _g2061220615_))) + (_g2061020921_ + (lambda (_g2061220623_) + ((lambda (_L20626_) (let () - (let* ((_g2077920787_ - (lambda (_g2078020783_) + (let* ((_g2063920647_ + (lambda (_g2064020643_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2078020783_))) - (_g2077821089_ - (lambda (_g2078020791_) - ((lambda (_L20794_) + _g2064020643_))) + (_g2063820917_ + (lambda (_g2064020651_) + ((lambda (_L20654_) (let () - (let* ((_g2080720815_ - (lambda (_g2080820811_) + (let* ((_g2066720675_ + (lambda (_g2066820671_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2080820811_))) - (_g2080621085_ - (lambda (_g2080820819_) - ((lambda (_L20822_) + _g2066820671_))) + (_g2066620891_ + (lambda (_g2066820679_) + ((lambda (_L20682_) (let () - (let* ((_g2083520843_ + (let* ((_g2069520703_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2083620839_) + (lambda (_g2069620699_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2083620839_))) - (_g2083421059_ - (lambda (_g2083620847_) - ((lambda (_L20850_) + _g2069620699_))) + (_g2069420865_ + (lambda (_g2069620707_) + ((lambda (_L20710_) (let () - (let* ((_g2086320871_ - (lambda (_g2086420867_) + (let* ((_g2072320731_ + (lambda (_g2072420727_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2086420867_))) - (_g2086221033_ - (lambda (_g2086420875_) - ((lambda (_L20878_) + _g2072420727_))) + (_g2072220839_ + (lambda (_g2072420735_) + ((lambda (_L20738_) (let () - (let* ((_g2089120899_ - (lambda (_g2089220895_) + (let* ((_g2075120759_ + (lambda (_g2075220755_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2089220895_))) - (_g2089021007_ - (lambda (_g2089220903_) - ((lambda (_L20906_) + _g2075220755_))) + (_g2075020813_ + (lambda (_g2075220763_) + ((lambda (_L20766_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2091920927_ - (lambda (_g2092020923_) + (let* ((_g2077920787_ + (lambda (_g2078020783_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2092020923_))) - (_g2091820981_ - (lambda (_g2092020931_) - ((lambda (_L20934_) + _g2078020783_))) + (_g2077820809_ + (lambda (_g2078020791_) + ((lambda (_L20794_) (let () - (let* ((_g2094720955_ - (lambda (_g2094820951_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g2094820951_))) - (_g2094620977_ - (lambda (_g2094820959_) - ((lambda (_L20962_) - (let () - (let () - (let ((__tmp49718 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49721 (gx#datum->syntax '#f 'begin)) - (__tmp49719 - (let ((__tmp49720 - (let () - (declare (not safe)) - (cons _L20962_ '())))) - (declare (not safe)) - (cons _L20542_ __tmp49720)))) - (declare (not safe)) - (cons __tmp49721 __tmp49719)))) - (declare (not safe)) - (_wrap19415_ __tmp49718))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2094820959_))) - (__tmp49722 - (let ((__tmp49723 - (let ((__tmp49756 - (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'defsyntax)) - (__tmp49724 - (let ((__tmp49725 - (let ((__tmp49726 - (let ((__tmp49755 - (gx#datum->syntax - '#f - 'make-class-type-info)) - (__tmp49727 - (let ((__tmp49728 - (let ((__tmp49729 - (let ((__tmp49730 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49731 - (let ((__tmp49732 - (let ((__tmp49733 - (let ((__tmp49734 - (let ((__tmp49735 - (let ((__tmp49736 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49737 - (let ((__tmp49738 - (let ((__tmp49739 - (let ((__tmp49740 - (let ((__tmp49741 - (let ((__tmp49742 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49743 - (let ((__tmp49744 - (let ((__tmp49745 - (let ((__tmp49746 - (let ((__tmp49747 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49748 - (let ((__tmp49749 - (let ((__tmp49750 - (let ((__tmp49751 - (let ((__tmp49752 - (let ((__tmp49753 + (let () + (let ((__tmp49479 + (let ((__tmp49482 + (gx#datum->syntax + '#f + 'begin)) + (__tmp49480 + (let ((__tmp49481 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49754 - (let () - (declare (not safe)) - (cons _L20934_ '())))) - (declare (not safe)) - (cons 'unchecked-mutators: __tmp49754)))) - (declare (not safe)) - (cons _L20906_ __tmp49753)))) - (declare (not safe)) - (cons 'unchecked-accessors: __tmp49752)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L20878_ __tmp49751)))) - (declare (not safe)) - (cons 'mutators: __tmp49750)))) - (declare (not safe)) - (cons _L20850_ __tmp49749)))) - (declare (not safe)) - (cons 'accessors: __tmp49748)))) + (let () (declare (not safe)) (cons _L20794_ '())))) (declare (not safe)) - (cons _L20822_ __tmp49747)))) + (cons _L20374_ __tmp49481)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'predicate: - __tmp49746)))) + (cons __tmp49482 + __tmp49480)))) (declare (not safe)) - (cons _L20794_ __tmp49745)))) - (declare (not safe)) - (cons 'constructor: __tmp49744)))) - (declare (not safe)) - (cons _L20766_ __tmp49743)))) - (declare (not safe)) - (cons 'type-descriptor: __tmp49742)))) - (declare (not safe)) - (cons _L20738_ __tmp49741)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons 'constructor-method: - __tmp49740)))) - (declare (not safe)) - (cons _L20710_ __tmp49739)))) - (declare (not safe)) - (cons 'final?: __tmp49738)))) - (declare (not safe)) - (cons _L20682_ __tmp49737)))) - (declare (not safe)) - (cons 'struct?: __tmp49736)))) - (declare (not safe)) - (cons _L20626_ __tmp49735)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons 'super: __tmp49734)))) - (declare (not safe)) - (cons _L20654_ __tmp49733)))) - (declare (not safe)) - (cons 'slots: __tmp49732)))) - (declare (not safe)) - (cons _L20598_ __tmp49731)))) - (declare (not safe)) - (cons 'name: __tmp49730)))) - (declare (not safe)) - (cons _L20570_ __tmp49729)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons 'id: __tmp49728)))) - (declare (not safe)) - (cons __tmp49755 __tmp49727)))) - (declare (not safe)) - (cons __tmp49726 '())))) - (declare (not safe)) - (cons _L19472_ __tmp49725)))) - (declare (not safe)) - (cons __tmp49756 __tmp49724)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_wrap19415_ __tmp49723)))) - (declare (not safe)) - (_g2094620977_ __tmp49722)))) - _g2092020931_))) - (__tmp49757 - (let ((__tmp49784 - (gx#datum->syntax '#f '@list)) - (__tmp49758 - (begin - (gx#syntax-check-splice-targets - _L20152_ - _L19651_) - (let ((__tmp49772 - (lambda (_g2098420991_ - _g2098520994_ - _g2098620996_) - (let ((__tmp49773 - (let ((__tmp49783 + (_wrap19267_ __tmp49479))))) + _g2078020791_))) + (__tmp49483 + (let ((__tmp49484 + (let ((__tmp49517 + (gx#datum->syntax + '#f + 'defsyntax)) + (__tmp49485 + (let ((__tmp49486 + (let ((__tmp49487 + (let ((__tmp49516 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f '@list)) - (__tmp49774 - (let ((__tmp49780 - (let ((__tmp49782 - (gx#datum->syntax '#f 'quote)) - (__tmp49781 - (let () - (declare (not safe)) - (cons _g2098520994_ '())))) - (declare (not safe)) - (cons __tmp49782 __tmp49781))) - (__tmp49775 - (let ((__tmp49776 - (let ((__tmp49777 - (let ((__tmp49779 - (gx#datum->syntax - '#f - 'quote-syntax)) - (__tmp49778 - (let () - (declare (not safe)) - (cons _g2098420991_ - '())))) - (declare (not safe)) - (cons __tmp49779 - __tmp49778)))) - (declare (not safe)) - (cons __tmp49777 '())))) - (declare (not safe)) - (cons ':: __tmp49776)))) - (declare (not safe)) - (cons __tmp49780 __tmp49775)))) - (declare (not safe)) - (cons __tmp49783 __tmp49774)))) - (declare (not safe)) - (cons __tmp49773 _g2098620996_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49759 - (begin - (gx#syntax-check-splice-targets - _L20294_ - _L19867_) - (let ((__tmp49760 - (lambda (_g2098720999_ + (gx#datum->syntax '#f 'make-class-type-info)) + (__tmp49488 + (let ((__tmp49489 + (let ((__tmp49490 + (let ((__tmp49491 + (let ((__tmp49492 + (let ((__tmp49493 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49494 + (let ((__tmp49495 + (let ((__tmp49496 + (let ((__tmp49497 + (let ((__tmp49498 + (let ((__tmp49499 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49500 + (let ((__tmp49501 + (let ((__tmp49502 + (let ((__tmp49503 + (let ((__tmp49504 + (let ((__tmp49505 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2098821002_ - _g2098921004_) - (let ((__tmp49761 - (let ((__tmp49771 (gx#datum->syntax '#f '@list)) - (__tmp49762 - (let ((__tmp49768 - (let ((__tmp49770 - (gx#datum->syntax - '#f - 'quote)) - (__tmp49769 - (let () - (declare (not safe)) - (cons _g2098821002_ '())))) - (declare (not safe)) - (cons __tmp49770 __tmp49769))) - (__tmp49763 - (let ((__tmp49764 - (let ((__tmp49765 - (let ((__tmp49767 - (gx#datum->syntax + (let ((__tmp49506 + (let ((__tmp49507 + (let ((__tmp49508 + (let ((__tmp49509 + (let ((__tmp49510 + (let ((__tmp49511 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote-syntax)) - (__tmp49766 - (let () + (let ((__tmp49512 + (let ((__tmp49513 + (let ((__tmp49514 + (let ((__tmp49515 + (let () + (declare + (not safe)) + (cons _L20766_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) + (declare (not safe)) + (cons 'unchecked-mutators: __tmp49515)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L20738_ __tmp49514)))) + (declare (not safe)) + (cons 'unchecked-accessors: + __tmp49513)))) + (declare (not safe)) + (cons _L20710_ __tmp49512)))) (declare (not safe)) - (cons _g2098720999_ '())))) + (cons 'mutators: __tmp49511)))) (declare (not safe)) - (cons __tmp49767 __tmp49766)))) + (cons _L20682_ __tmp49510)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49765 '())))) + (cons 'accessors: + __tmp49509)))) (declare (not safe)) - (cons ':: __tmp49764)))) + (cons _L20654_ __tmp49508)))) (declare (not safe)) - (cons __tmp49768 __tmp49763)))) + (cons 'predicate: __tmp49507)))) (declare (not safe)) - (cons __tmp49771 __tmp49762)))) + (cons _L20626_ __tmp49506)))) (declare (not safe)) - (cons __tmp49761 _g2098921004_))))) + (cons 'constructor: __tmp49505)))) + (declare (not safe)) + (cons _L20598_ __tmp49504)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'type-descriptor: + __tmp49503)))) + (declare (not safe)) + (cons _L20570_ __tmp49502)))) + (declare (not safe)) + (cons 'constructor-method: __tmp49501)))) + (declare (not safe)) + (cons _L20542_ __tmp49500)))) + (declare (not safe)) + (cons 'final?: __tmp49499)))) (declare (not safe)) - (foldr2 __tmp49760 '() _L20294_ _L19867_))))) + (cons _L20514_ __tmp49498)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'struct?: __tmp49497)))) + (declare (not safe)) + (cons _L20458_ __tmp49496)))) + (declare (not safe)) + (cons 'super: __tmp49495)))) + (declare (not safe)) + (cons _L20486_ __tmp49494)))) + (declare (not safe)) + (cons 'slots: __tmp49493)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L20430_ + __tmp49492)))) (declare (not safe)) - (foldr2 __tmp49772 - __tmp49759 - _L20152_ - _L19651_))))) + (cons 'name: __tmp49491)))) + (declare (not safe)) + (cons _L20402_ __tmp49490)))) + (declare (not safe)) + (cons 'id: __tmp49489)))) + (declare (not safe)) + (cons __tmp49516 __tmp49488)))) + (declare (not safe)) + (cons __tmp49487 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L19297_ + __tmp49486)))) + (declare (not safe)) + (cons __tmp49517 __tmp49485)))) (declare (not safe)) - (cons __tmp49784 __tmp49758)))) + (_wrap19267_ __tmp49484)))) (declare (not safe)) - (_g2091820981_ __tmp49757)))) - _g2089220903_))) - (__tmp49785 - (let ((__tmp49812 (gx#datum->syntax '#f '@list)) - (__tmp49786 + (_g2077820809_ __tmp49483)))) + _g2075220763_))) + (__tmp49518 + (let ((__tmp49545 (gx#datum->syntax '#f '@list)) + (__tmp49519 (begin - (gx#syntax-check-splice-targets _L20081_ _L19651_) - (let ((__tmp49800 - (lambda (_g2101021017_ - _g2101121020_ - _g2101221022_) - (let ((__tmp49801 - (let ((__tmp49811 + (gx#syntax-check-splice-targets _L19980_ _L19479_) + (let ((__tmp49533 + (lambda (_g2081620823_ + _g2081720826_ + _g2081820828_) + (let ((__tmp49534 + (let ((__tmp49544 (gx#datum->syntax '#f '@list)) - (__tmp49802 - (let ((__tmp49808 - (let ((__tmp49810 + (__tmp49535 + (let ((__tmp49541 + (let ((__tmp49543 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49809 + (__tmp49542 (let () (declare (not safe)) - (cons _g2101121020_ '())))) + (cons _g2081720826_ '())))) (declare (not safe)) - (cons __tmp49810 __tmp49809))) - (__tmp49803 - (let ((__tmp49804 - (let ((__tmp49805 - (let ((__tmp49807 + (cons __tmp49543 __tmp49542))) + (__tmp49536 + (let ((__tmp49537 + (let ((__tmp49538 + (let ((__tmp49540 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49806 + (__tmp49539 (let () (declare (not safe)) - (cons _g2101021017_ '())))) + (cons _g2081620823_ '())))) (declare (not safe)) - (cons __tmp49807 __tmp49806)))) + (cons __tmp49540 __tmp49539)))) (declare (not safe)) - (cons __tmp49805 '())))) + (cons __tmp49538 '())))) (declare (not safe)) - (cons ':: __tmp49804)))) + (cons ':: __tmp49537)))) (declare (not safe)) - (cons __tmp49808 __tmp49803)))) + (cons __tmp49541 __tmp49536)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49811 __tmp49802)))) + (cons __tmp49544 __tmp49535)))) (declare (not safe)) - (cons __tmp49801 _g2101221022_)))) - (__tmp49787 + (cons __tmp49534 _g2081820828_)))) + (__tmp49520 (begin (gx#syntax-check-splice-targets - _L20223_ - _L19867_) - (let ((__tmp49788 - (lambda (_g2101321025_ - _g2101421028_ - _g2101521030_) - (let ((__tmp49789 - (let ((__tmp49799 + _L20122_ + _L19695_) + (let ((__tmp49521 + (lambda (_g2081920831_ + _g2082020834_ + _g2082120836_) + (let ((__tmp49522 + (let ((__tmp49532 (gx#datum->syntax '#f '@list)) - (__tmp49790 - (let ((__tmp49796 + (__tmp49523 + (let ((__tmp49529 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49798 (gx#datum->syntax '#f 'quote)) - (__tmp49797 + (let ((__tmp49531 (gx#datum->syntax '#f 'quote)) + (__tmp49530 (let () (declare (not safe)) - (cons _g2101421028_ '())))) + (cons _g2082020834_ '())))) (declare (not safe)) - (cons __tmp49798 __tmp49797))) - (__tmp49791 - (let ((__tmp49792 - (let ((__tmp49793 - (let ((__tmp49795 + (cons __tmp49531 __tmp49530))) + (__tmp49524 + (let ((__tmp49525 + (let ((__tmp49526 + (let ((__tmp49528 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49794 + (__tmp49527 (let () (declare (not safe)) - (cons _g2101321025_ '())))) + (cons _g2081920831_ '())))) (declare (not safe)) - (cons __tmp49795 __tmp49794)))) + (cons __tmp49528 __tmp49527)))) (declare (not safe)) - (cons __tmp49793 '())))) + (cons __tmp49526 '())))) (declare (not safe)) - (cons ':: __tmp49792)))) + (cons ':: __tmp49525)))) (declare (not safe)) - (cons __tmp49796 __tmp49791)))) + (cons __tmp49529 __tmp49524)))) (declare (not safe)) - (cons __tmp49799 __tmp49790)))) + (cons __tmp49532 __tmp49523)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49789 - _g2101521030_))))) + (cons __tmp49522 + _g2082120836_))))) (declare (not safe)) - (foldr2 __tmp49788 + (foldr2 __tmp49521 '() - _L20223_ - _L19867_))))) + _L20122_ + _L19695_))))) (declare (not safe)) - (foldr2 __tmp49800 - __tmp49787 - _L20081_ - _L19651_))))) + (foldr2 __tmp49533 + __tmp49520 + _L19980_ + _L19479_))))) (declare (not safe)) - (cons __tmp49812 __tmp49786)))) + (cons __tmp49545 __tmp49519)))) (declare (not safe)) - (_g2089021007_ __tmp49785)))) + (_g2075020813_ __tmp49518)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2086420875_))) - (__tmp49813 - (let ((__tmp49840 + _g2072420735_))) + (__tmp49546 + (let ((__tmp49573 (gx#datum->syntax '#f '@list)) - (__tmp49814 + (__tmp49547 (begin (gx#syntax-check-splice-targets - _L19793_ - _L19651_) - (let ((__tmp49828 - (lambda (_g2103621043_ + _L19909_ + _L19479_) + (let ((__tmp49561 + (lambda (_g2084220849_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2103721046_ - _g2103821048_) - (let ((__tmp49829 - (let ((__tmp49839 (gx#datum->syntax '#f '@list)) - (__tmp49830 - (let ((__tmp49836 - (let ((__tmp49838 + _g2084320852_ + _g2084420854_) + (let ((__tmp49562 + (let ((__tmp49572 (gx#datum->syntax '#f '@list)) + (__tmp49563 + (let ((__tmp49569 + (let ((__tmp49571 (gx#datum->syntax '#f 'quote)) - (__tmp49837 + (__tmp49570 (let () (declare (not safe)) - (cons _g2103721046_ + (cons _g2084320852_ '())))) (declare (not safe)) - (cons __tmp49838 __tmp49837))) - (__tmp49831 - (let ((__tmp49832 - (let ((__tmp49833 - (let ((__tmp49835 + (cons __tmp49571 __tmp49570))) + (__tmp49564 + (let ((__tmp49565 + (let ((__tmp49566 + (let ((__tmp49568 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49834 + (__tmp49567 (let () (declare (not safe)) - (cons _g2103621043_ '())))) + (cons _g2084220849_ '())))) (declare (not safe)) - (cons __tmp49835 __tmp49834)))) + (cons __tmp49568 __tmp49567)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49833 '())))) + (cons __tmp49566 '())))) (declare (not safe)) - (cons ':: __tmp49832)))) + (cons ':: __tmp49565)))) (declare (not safe)) - (cons __tmp49836 __tmp49831)))) + (cons __tmp49569 __tmp49564)))) (declare (not safe)) - (cons __tmp49839 __tmp49830)))) + (cons __tmp49572 __tmp49563)))) (declare (not safe)) - (cons __tmp49829 _g2103821048_)))) - (__tmp49815 + (cons __tmp49562 _g2084420854_)))) + (__tmp49548 (begin - (gx#syntax-check-splice-targets _L20010_ _L19867_) - (let ((__tmp49816 - (lambda (_g2103921051_ - _g2104021054_ - _g2104121056_) - (let ((__tmp49817 - (let ((__tmp49827 + (gx#syntax-check-splice-targets _L20051_ _L19695_) + (let ((__tmp49549 + (lambda (_g2084520857_ + _g2084620860_ + _g2084720862_) + (let ((__tmp49550 + (let ((__tmp49560 (gx#datum->syntax '#f '@list)) - (__tmp49818 - (let ((__tmp49824 - (let ((__tmp49826 + (__tmp49551 + (let ((__tmp49557 + (let ((__tmp49559 (gx#datum->syntax '#f 'quote)) - (__tmp49825 + (__tmp49558 (let () (declare (not safe)) - (cons _g2104021054_ + (cons _g2084620860_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp49826 __tmp49825))) + (cons __tmp49559 __tmp49558))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49819 - (let ((__tmp49820 - (let ((__tmp49821 + (__tmp49552 + (let ((__tmp49553 + (let ((__tmp49554 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49823 + (let ((__tmp49556 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49822 + (__tmp49555 (let () (declare (not safe)) - (cons _g2103921051_ '())))) + (cons _g2084520857_ '())))) (declare (not safe)) - (cons __tmp49823 __tmp49822)))) + (cons __tmp49556 __tmp49555)))) (declare (not safe)) - (cons __tmp49821 '())))) + (cons __tmp49554 '())))) (declare (not safe)) - (cons ':: __tmp49820)))) + (cons ':: __tmp49553)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49824 __tmp49819)))) + (cons __tmp49557 __tmp49552)))) (declare (not safe)) - (cons __tmp49827 __tmp49818)))) + (cons __tmp49560 __tmp49551)))) (declare (not safe)) - (cons __tmp49817 _g2104121056_))))) + (cons __tmp49550 _g2084720862_))))) (declare (not safe)) - (foldr2 __tmp49816 '() _L20010_ _L19867_))))) + (foldr2 __tmp49549 '() _L20051_ _L19695_))))) (declare (not safe)) - (foldr2 __tmp49828 __tmp49815 _L19793_ _L19651_))))) + (foldr2 __tmp49561 __tmp49548 _L19909_ _L19479_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49840 __tmp49814)))) + (cons __tmp49573 __tmp49547)))) (declare (not safe)) - (_g2086221033_ __tmp49813)))) - _g2083620847_))) - (__tmp49841 - (let ((__tmp49868 (gx#datum->syntax '#f '@list)) - (__tmp49842 + (_g2072220839_ __tmp49546)))) + _g2069620707_))) + (__tmp49574 + (let ((__tmp49601 (gx#datum->syntax '#f '@list)) + (__tmp49575 (begin (gx#syntax-check-splice-targets - _L19722_ - _L19651_) - (let ((__tmp49856 - (lambda (_g2106221069_ - _g2106321072_ - _g2106421074_) - (let ((__tmp49857 - (let ((__tmp49867 + _L19621_ + _L19479_) + (let ((__tmp49589 + (lambda (_g2086820875_ + _g2086920878_ + _g2087020880_) + (let ((__tmp49590 + (let ((__tmp49600 (gx#datum->syntax '#f '@list)) - (__tmp49858 - (let ((__tmp49864 + (__tmp49591 + (let ((__tmp49597 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49866 (gx#datum->syntax '#f 'quote)) - (__tmp49865 + (let ((__tmp49599 (gx#datum->syntax '#f 'quote)) + (__tmp49598 (let () (declare (not safe)) - (cons _g2106321072_ '())))) + (cons _g2086920878_ '())))) (declare (not safe)) - (cons __tmp49866 __tmp49865))) - (__tmp49859 - (let ((__tmp49860 - (let ((__tmp49861 - (let ((__tmp49863 + (cons __tmp49599 __tmp49598))) + (__tmp49592 + (let ((__tmp49593 + (let ((__tmp49594 + (let ((__tmp49596 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49862 + (__tmp49595 (let () (declare (not safe)) - (cons _g2106221069_ '())))) + (cons _g2086820875_ '())))) (declare (not safe)) - (cons __tmp49863 __tmp49862)))) + (cons __tmp49596 __tmp49595)))) (declare (not safe)) - (cons __tmp49861 '())))) + (cons __tmp49594 '())))) (declare (not safe)) - (cons ':: __tmp49860)))) + (cons ':: __tmp49593)))) (declare (not safe)) - (cons __tmp49864 __tmp49859)))) + (cons __tmp49597 __tmp49592)))) (declare (not safe)) - (cons __tmp49867 __tmp49858)))) + (cons __tmp49600 __tmp49591)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49857 - _g2106421074_)))) - (__tmp49843 + (cons __tmp49590 + _g2087020880_)))) + (__tmp49576 (begin (gx#syntax-check-splice-targets - _L19939_ - _L19867_) - (let ((__tmp49844 - (lambda (_g2106521077_ - _g2106621080_ - _g2106721082_) - (let ((__tmp49845 - (let ((__tmp49855 + _L19838_ + _L19695_) + (let ((__tmp49577 + (lambda (_g2087120883_ + _g2087220886_ + _g2087320888_) + (let ((__tmp49578 + (let ((__tmp49588 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp49846 - (let ((__tmp49852 - (let ((__tmp49854 + (__tmp49579 + (let ((__tmp49585 + (let ((__tmp49587 (gx#datum->syntax '#f 'quote)) - (__tmp49853 + (__tmp49586 (let () (declare (not safe)) - (cons _g2106621080_ '())))) + (cons _g2087220886_ '())))) (declare (not safe)) - (cons __tmp49854 __tmp49853))) - (__tmp49847 - (let ((__tmp49848 - (let ((__tmp49849 - (let ((__tmp49851 + (cons __tmp49587 __tmp49586))) + (__tmp49580 + (let ((__tmp49581 + (let ((__tmp49582 + (let ((__tmp49584 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49850 + (__tmp49583 (let () (declare (not safe)) - (cons _g2106521077_ + (cons _g2087120883_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp49851 __tmp49850)))) + (cons __tmp49584 __tmp49583)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49849 '())))) + (cons __tmp49582 '())))) (declare (not safe)) - (cons ':: __tmp49848)))) + (cons ':: __tmp49581)))) (declare (not safe)) - (cons __tmp49852 __tmp49847)))) + (cons __tmp49585 __tmp49580)))) (declare (not safe)) - (cons __tmp49855 __tmp49846)))) + (cons __tmp49588 __tmp49579)))) (declare (not safe)) - (cons __tmp49845 _g2106721082_))))) + (cons __tmp49578 _g2087320888_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp49844 + (foldr2 __tmp49577 '() - _L19939_ - _L19867_))))) + _L19838_ + _L19695_))))) (declare (not safe)) - (foldr2 __tmp49856 - __tmp49843 - _L19722_ - _L19651_))))) + (foldr2 __tmp49589 + __tmp49576 + _L19621_ + _L19479_))))) (declare (not safe)) - (cons __tmp49868 __tmp49842)))) + (cons __tmp49601 __tmp49575)))) (declare (not safe)) - (_g2083421059_ __tmp49841)))) - _g2080820819_))) - (__tmp49869 - (let ((__tmp49871 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49870 - (let () (declare (not safe)) (cons _L19556_ '())))) + (_g2069420865_ __tmp49574)))) + _g2066820679_))) + (__tmp49602 + (let ((__tmp49629 (gx#datum->syntax '#f '@list)) + (__tmp49603 + (begin + (gx#syntax-check-splice-targets _L19550_ _L19479_) + (let ((__tmp49617 + (lambda (_g2089420901_ + _g2089520904_ + _g2089620906_) + (let ((__tmp49618 + (let ((__tmp49628 + (gx#datum->syntax '#f '@list)) + (__tmp49619 + (let ((__tmp49625 + (let ((__tmp49627 + (gx#datum->syntax + '#f + 'quote)) + (__tmp49626 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _g2089520904_ '())))) + (declare (not safe)) + (cons __tmp49627 __tmp49626))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp49620 + (let ((__tmp49621 + (let ((__tmp49622 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49624 + (gx#datum->syntax '#f 'quote-syntax)) + (__tmp49623 + (let () + (declare (not safe)) + (cons _g2089420901_ '())))) + (declare (not safe)) + (cons __tmp49624 __tmp49623)))) + (declare (not safe)) + (cons __tmp49622 '())))) + (declare (not safe)) + (cons ':: __tmp49621)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp49625 + __tmp49620)))) + (declare (not safe)) + (cons __tmp49628 __tmp49619)))) + (declare (not safe)) + (cons __tmp49618 _g2089620906_)))) + (__tmp49604 + (begin + (gx#syntax-check-splice-targets + _L19767_ + _L19695_) + (let ((__tmp49605 + (lambda (_g2089720909_ + _g2089820912_ + _g2089920914_) + (let ((__tmp49606 + (let ((__tmp49616 + (gx#datum->syntax + '#f + '@list)) + (__tmp49607 + (let ((__tmp49613 + (let ((__tmp49615 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'quote)) + (__tmp49614 + (let () + (declare (not safe)) + (cons _g2089820912_ '())))) + (declare (not safe)) + (cons __tmp49615 __tmp49614))) + (__tmp49608 + (let ((__tmp49609 + (let ((__tmp49610 + (let ((__tmp49612 + (gx#datum->syntax + '#f + 'quote-syntax)) + (__tmp49611 + (let () + (declare (not safe)) + (cons _g2089720909_ '())))) + (declare (not safe)) + (cons __tmp49612 __tmp49611)))) + (declare (not safe)) + (cons __tmp49610 '())))) + (declare (not safe)) + (cons ':: __tmp49609)))) + (declare (not safe)) + (cons __tmp49613 __tmp49608)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp49616 + __tmp49607)))) + (declare (not safe)) + (cons __tmp49606 _g2089920914_))))) + (declare (not safe)) + (foldr2 __tmp49605 + '() + _L19767_ + _L19695_))))) + (declare (not safe)) + (foldr2 __tmp49617 __tmp49604 _L19550_ _L19479_))))) (declare (not safe)) - (cons __tmp49871 __tmp49870)))) + (cons __tmp49629 __tmp49603)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2080621085_ __tmp49869)))) - _g2078020791_))) - (__tmp49872 - (let ((__tmp49874 + (_g2066620891_ __tmp49602)))) + _g2064020651_))) + (__tmp49630 + (let ((__tmp49632 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49873 + (__tmp49631 (let () (declare (not safe)) - (cons _L19528_ '())))) + (cons _L19384_ '())))) (declare (not safe)) - (cons __tmp49874 __tmp49873)))) + (cons __tmp49632 __tmp49631)))) (declare (not safe)) - (_g2077821089_ __tmp49872)))) - _g2075220763_))) - (__tmp49875 - (let ((__tmp49877 + (_g2063820917_ __tmp49630)))) + _g2061220623_))) + (__tmp49633 + (let ((__tmp49635 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49876 + (__tmp49634 (let () (declare (not safe)) - (cons _L19500_ '())))) + (cons _L19356_ '())))) (declare (not safe)) - (cons __tmp49877 __tmp49876)))) + (cons __tmp49635 __tmp49634)))) (declare (not safe)) - (_g2075021093_ __tmp49875)))) + (_g2061020921_ __tmp49633)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2072420735_))) - (__tmp49878 - (if (let () - (declare (not safe)) - (null? _type-constructor20371_)) - '#f - (let* ((_g2110121116_ - (lambda (_g2110221112_) - (gx#raise-syntax-error -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '"Bad syntax; invalid match target" - _g2110221112_))) - (_g2110021164_ - (lambda (_g2110221120_) - (if (gx#stx-pair? _g2110221120_) - (let ((_e2110621123_ (gx#syntax-e _g2110221120_))) - (let ((_hd2110521127_ - (let () - (declare (not safe)) - (##car _e2110621123_))) - (_tl2110421130_ - (let () - (declare (not safe)) - (##cdr _e2110621123_)))) - (if (gx#stx-datum? _hd2110521127_) - (let ((_e2110721133_ - (gx#stx-e _hd2110521127_))) - (if (let () - (declare (not safe)) - (equal? _e2110721133_ - 'constructor:)) - (if (gx#stx-pair? _tl2110421130_) - (let ((_e2111021137_ - (gx#syntax-e - _tl2110421130_))) - (let ((_hd2110921141_ - (let () - (declare (not safe)) - (##car _e2111021137_))) - (_tl2110821144_ - (let () - (declare (not safe)) - (##cdr _e2111021137_)))) - (if (gx#stx-null? - _tl2110821144_) - ((lambda (_L21147_) + _g2058420595_))) + (__tmp49636 + (let ((__tmp49638 + (gx#datum->syntax + '#f + 'quote-syntax)) + (__tmp49637 (let () - (let ((__tmp49880 + (declare (not safe)) + (cons _L19328_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'quote)) - (__tmp49879 - (let () (declare (not safe)) (cons _L21147_ '())))) - (declare (not safe)) - (cons __tmp49880 __tmp49879)))) - _hd2110921141_) - (let () (declare (not safe)) (_g2110121116_ _g2110221120_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_g2110121116_ _g2110221120_))) - (let () - (declare (not safe)) - (_g2110121116_ _g2110221120_)))) - (let () - (declare (not safe)) - (_g2110121116_ _g2110221120_))))) - (let () - (declare (not safe)) - (_g2110121116_ _g2110221120_)))))) - (declare (not safe)) - (_g2110021164_ _type-constructor20371_))))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp49638 + __tmp49637)))) (declare (not safe)) - (_g2072221097_ __tmp49878)))) - _g2069620707_)))) - (declare (not safe)) - (_g2069421168_ _final?20449_)))) - _g2066820679_)))) - (declare (not safe)) - (_g2066621172_ _struct?19413_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2064020651_))) - (__tmp49881 - (let ((__tmp49885 - (gx#datum->syntax - '#f - 'quote)) - (__tmp49882 - (let ((__tmp49883 - (let ((__tmp49884 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2117921182_ _g2118021185_) - (let () - (declare (not safe)) - (cons _g2117921182_ _g2118021185_))))) - (declare (not safe)) - (foldr1 __tmp49884 '() _L19651_)))) - (declare (not safe)) - (cons __tmp49883 '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49885 __tmp49882)))) - (declare (not safe)) - (_g2063821176_ __tmp49881)))) - _g2061220623_))) - (__tmp49886 - (if _struct?19413_ - (if _super19424_ - (let* ((_g2119221200_ - (lambda (_g2119321196_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g2119321196_))) - (_g2119121219_ - (lambda (_g2119321204_) - ((lambda (_L21207_) - (let () - (let ((__tmp49901 - (gx#datum->syntax - '#f - '@list)) - (__tmp49897 - (let ((__tmp49898 + (_g2058220925_ __tmp49636)))) + _g2055620567_))) + (__tmp49639 + (if (let () + (declare (not safe)) + (null? _type-constructor20199_)) + '#f + (let* ((_g2093320948_ + (lambda (_g2093420944_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2093420944_))) + (_g2093220996_ + (lambda (_g2093420952_) + (if (gx#stx-pair? + _g2093420952_) + (let ((_e2093820955_ + (gx#syntax-e + _g2093420952_))) + (let ((_hd2093720959_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49900 - (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49899 - (let () - (declare (not safe)) - (cons _L21207_ '())))) + (not safe)) + (##car _e2093820955_))) + (_tl2093620962_ + (let () (declare (not safe)) (##cdr _e2093820955_)))) + (if (gx#stx-datum? _hd2093720959_) + (let ((_e2093920965_ (gx#stx-e _hd2093720959_))) + (if (let () (declare (not safe)) - (cons __tmp49900 __tmp49899)))) - (declare (not safe)) - (cons __tmp49898 '())))) - (declare (not safe)) - (cons __tmp49901 __tmp49897)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2119321204_)))) - (declare (not safe)) - (_g2119121219_ _super-ref19410_)) - (let ((__tmp49896 - (gx#datum->syntax '#f '@list))) - (declare (not safe)) - (cons __tmp49896 '()))) - (let* ((_g2122321240_ - (lambda (_g2122421236_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g2122421236_))) - (_g2122221300_ - (lambda (_g2122421244_) - (if (gx#stx-pair/null? - _g2122421244_) - (let ((_g49887_ - (gx#syntax-split-splice - _g2122421244_ - '0))) - (begin - (let ((_g49888_ - (let () - (declare - (not safe)) - (if (##values? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g49887_) - (##vector-length _g49887_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49888_ 2))) - (error "Context expects 2 values" _g49888_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target2122621247_ - (let () - (declare - (not safe)) - (##vector-ref - _g49887_ - 0))) - (_tl2122821250_ - (let () - (declare - (not safe)) - (##vector-ref - _g49887_ - 1)))) - (if (gx#stx-null? - _tl2122821250_) - (letrec ((_loop2122921253_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd2122721257_ _super-id2123321260_) - (if (gx#stx-pair? _hd2122721257_) - (let ((_e2123021263_ - (gx#syntax-e _hd2122721257_))) - (let ((_lp-hd2123121267_ - (let () - (declare (not safe)) - (##car _e2123021263_))) - (_lp-tl2123221270_ - (let () - (declare (not safe)) - (##cdr _e2123021263_)))) - (let ((__tmp49895 - (let () - (declare (not safe)) - (cons _lp-hd2123121267_ - _super-id2123321260_)))) - (declare (not safe)) - (_loop2122921253_ - _lp-tl2123221270_ - __tmp49895)))) - (let ((_super-id2123421273_ - (reverse _super-id2123321260_))) - ((lambda (_L21277_) + (equal? _e2093920965_ 'constructor:)) + (if (gx#stx-pair? _tl2093620962_) + (let ((_e2094220969_ + (gx#syntax-e _tl2093620962_))) + (let ((_hd2094120973_ + (let () + (declare (not safe)) + (##car _e2094220969_))) + (_tl2094020976_ + (let () + (declare (not safe)) + (##cdr _e2094220969_)))) + (if (gx#stx-null? _tl2094020976_) + ((lambda (_L20979_) + (let () + (let ((__tmp49641 + (gx#datum->syntax + '#f + 'quote)) + (__tmp49640 + (let () + (declare (not safe)) + (cons _L20979_ '())))) + (declare (not safe)) + (cons __tmp49641 __tmp49640)))) + _hd2094120973_) (let () - (let ((__tmp49894 - (gx#datum->syntax '#f '@list)) - (__tmp49889 - (let ((__tmp49890 - (lambda (_g2129121294_ - _g2129221297_) - (let ((__tmp49891 - (let ((__tmp49893 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49892 + (declare (not safe)) + (_g2093320948_ _g2093420952_))))) (let () (declare (not safe)) - (cons _g2129121294_ '())))) - (declare (not safe)) - (cons __tmp49893 __tmp49892)))) - (declare (not safe)) - (cons __tmp49891 _g2129221297_))))) + (_g2093320948_ _g2093420952_))) + (let () + (declare (not safe)) + (_g2093320948_ _g2093420952_)))) + (let () + (declare (not safe)) + (_g2093320948_ _g2093420952_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 __tmp49890 - '() - _L21277_)))) - (declare (not safe)) - (cons __tmp49894 __tmp49889)))) - _super-id2123421273_)))))) - (let () - (declare (not safe)) - (_loop2122921253_ _target2122621247_ '()))) - (let () - (declare (not safe)) - (_g2122321240_ _g2122421244_)))))) + (let () + (declare (not safe)) + (_g2093320948_ + _g2093420952_)))))) + (declare (not safe)) + (_g2093220996_ + _type-constructor20199_))))) + (declare (not safe)) + (_g2055420929_ __tmp49639)))) + _g2052820539_)))) + (declare (not safe)) + (_g2052621000_ _final?20277_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_g2122321240_ - _g2122421244_)))))) - (declare (not safe)) - (_g2122221300_ _super-ref19410_))))) + _g2050020511_)))) + (declare (not safe)) + (_g2049821004_ _struct?19279_)))) + _g2047220483_))) + (__tmp49642 + (let ((__tmp49646 (gx#datum->syntax '#f 'quote)) + (__tmp49643 + (let ((__tmp49644 + (let ((__tmp49645 + (lambda (_g2101121014_ + _g2101221017_) + (let () + (declare (not safe)) + (cons _g2101121014_ + _g2101221017_))))) + (declare (not safe)) + (foldr1 __tmp49645 + '() + _L19479_)))) + (declare (not safe)) + (cons __tmp49644 '())))) + (declare (not safe)) + (cons __tmp49646 __tmp49643)))) (declare (not safe)) - (_g2061021188_ __tmp49886)))) - _g2058420595_))) - (__tmp49902 - (let* ((_g2130821316_ - (lambda (_g2130921312_) + (_g2047021008_ __tmp49642)))) + _g2044420455_))) + (__tmp49647 + (let* ((_g2102421041_ + (lambda (_g2102521037_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2130921312_))) - (_g2130721335_ - (lambda (_g2130921320_) - ((lambda (_L21323_) - (let () - (let ((__tmp49904 (gx#datum->syntax '#f 'quote)) - (__tmp49903 - (let () - (declare (not safe)) - (cons _L21323_ '())))) - (declare (not safe)) - (cons __tmp49904 __tmp49903)))) - _g2130921320_))) - (__tmp49905 (cadr _type-name20349_))) - (declare (not safe)) - (_g2130721335_ __tmp49905)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_g2058221304_ __tmp49902)))) - _g2055620567_))) - (__tmp49906 - (let* ((_g2134321358_ - (lambda (_g2134421354_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g2134421354_))) - (_g2134221406_ - (lambda (_g2134421362_) - (if (gx#stx-pair? - _g2134421362_) - (let ((_e2134821365_ - (gx#syntax-e - _g2134421362_))) - (let ((_hd2134721369_ - (let () + _g2102521037_))) + (_g2102321102_ + (lambda (_g2102521045_) + (if (gx#stx-pair/null? _g2102521045_) + (let ((_g49648_ + (gx#syntax-split-splice _g2102521045_ '0))) + (begin + (let ((_g49649_ + (let () + (declare (not safe)) + (if (##values? _g49648_) + (##vector-length _g49648_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g49649_ 2))) + (error "Context expects 2 values" + _g49649_))) + (let ((_target2102721048_ + (let () + (declare (not safe)) + (##vector-ref _g49648_ 0))) + (_tl2102921051_ + (let () + (declare (not safe)) + (##vector-ref _g49648_ 1)))) + (if (gx#stx-null? _tl2102921051_) + (letrec ((_loop2103021054_ + (lambda (_hd2102821058_ + _super-id2103421061_) + (if (gx#stx-pair? + _hd2102821058_) + (let ((_e2103121064_ + (gx#syntax-e + _hd2102821058_))) + (let ((_lp-hd2103221068_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _e2134821365_))) - (_tl2134621372_ - (let () (declare (not safe)) (##cdr _e2134821365_)))) - (if (gx#stx-datum? _hd2134721369_) - (let ((_e2134921375_ (gx#stx-e _hd2134721369_))) - (if (let () - (declare (not safe)) - (equal? _e2134921375_ 'id:)) - (if (gx#stx-pair? _tl2134621372_) - (let ((_e2135221379_ - (gx#syntax-e _tl2134621372_))) - (let ((_hd2135121383_ - (let () - (declare (not safe)) - (##car _e2135221379_))) - (_tl2135021386_ - (let () - (declare (not safe)) - (##cdr _e2135221379_)))) - (if (gx#stx-null? _tl2135021386_) - ((lambda (_L21389_) - (let () - (let ((__tmp49908 + (declare (not safe)) + (##car _e2103121064_))) + (_lp-tl2103321071_ + (let () (declare (not safe)) (##cdr _e2103121064_)))) + (let ((__tmp49656 + (let () + (declare (not safe)) + (cons _lp-hd2103221068_ _super-id2103421061_)))) + (declare (not safe)) + (_loop2103021054_ _lp-tl2103321071_ __tmp49656)))) + (let ((_super-id2103521074_ (reverse _super-id2103421061_))) + ((lambda (_L21078_) + (let () + (let ((__tmp49655 (gx#datum->syntax '#f '@list)) + (__tmp49650 + (let ((__tmp49651 + (lambda (_g2109321096_ _g2109421099_) + (let ((__tmp49652 + (let ((__tmp49654 (gx#datum->syntax '#f - 'quote)) - (__tmp49907 + 'quote-syntax)) + (__tmp49653 (let () (declare (not safe)) - (cons _L21389_ '())))) + (cons _g2109321096_ + '())))) (declare (not safe)) - (cons __tmp49908 __tmp49907)))) - _hd2135121383_) - (let () - (declare (not safe)) - (_g2134321358_ _g2134421362_))))) - (let () - (declare (not safe)) - (_g2134321358_ _g2134421362_))) - (let () - (declare (not safe)) - (_g2134321358_ _g2134421362_)))) - (let () + (cons __tmp49654 __tmp49653)))) + (declare (not safe)) + (cons __tmp49652 _g2109421099_))))) + (declare (not safe)) + (foldr1 __tmp49651 '() _L21078_)))) (declare (not safe)) - (_g2134321358_ _g2134421362_))))) - (let () (declare (not safe)) (_g2134321358_ _g2134421362_)))))) + (cons __tmp49655 __tmp49650)))) + _super-id2103521074_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop2103021054_ + _target2102721048_ + '()))) + (let () + (declare (not safe)) + (_g2102421041_ _g2102521045_)))))) + (let () + (declare (not safe)) + (_g2102421041_ _g2102521045_)))))) + (declare (not safe)) + (_g2102321102_ _super-ref19263_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_g2134221406_ _type-id20356_)))) - (declare (not safe)) - (_g2055421339_ __tmp49906)))) - _g2052820539_))) - (__tmp49909 - (let ((__tmp49910 - (let ((__tmp49911 - (let ((__tmp49912 - (let ((__tmp49913 - (let ((__tmp49914 - (let ((__tmp49915 + (declare (not safe)) + (_g2044221020_ __tmp49647)))) + _g2041620427_))) + (__tmp49657 + (let* ((_g2111021118_ + (lambda (_g2111121114_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2111121114_))) + (_g2110921137_ + (lambda (_g2111121122_) + ((lambda (_L21125_) + (let () + (let ((__tmp49659 + (gx#datum->syntax + '#f + 'quote)) + (__tmp49658 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49916 - (lambda (_g2141321416_ _g2141421419_) - (let () - (declare (not safe)) - (cons _g2141321416_ _g2141421419_))))) - (declare (not safe)) - (foldr1 __tmp49916 '() _L20509_)))) - (declare (not safe)) - (cons _L19556_ __tmp49915)))) - (declare (not safe)) - (cons _L19528_ __tmp49914)))) + (not safe)) + (cons _L21125_ '())))) + (declare (not safe)) + (cons __tmp49659 __tmp49658)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L19584_ __tmp49913)))) - (declare (not safe)) - (cons _L19500_ __tmp49912)))) + _g2111121122_))) + (__tmp49660 + (cadr _type-name20177_))) + (declare (not safe)) + (_g2110921137_ __tmp49660)))) (declare (not safe)) - (cons _L19442_ __tmp49911)))) + (_g2041421106_ __tmp49657)))) + _g2038820399_))) + (__tmp49661 + (let* ((_g2114521160_ + (lambda (_g2114621156_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2114621156_))) + (_g2114421208_ + (lambda (_g2114621164_) + (if (gx#stx-pair? _g2114621164_) + (let ((_e2115021167_ + (gx#syntax-e _g2114621164_))) + (let ((_hd2114921171_ + (let () + (declare (not safe)) + (##car _e2115021167_))) + (_tl2114821174_ + (let () + (declare (not safe)) + (##cdr _e2115021167_)))) + (if (gx#stx-datum? _hd2114921171_) + (let ((_e2115121177_ + (gx#stx-e + _hd2114921171_))) + (if (let () + (declare (not safe)) + (equal? _e2115121177_ + 'id:)) + (if (gx#stx-pair? + _tl2114821174_) + (let ((_e2115421181_ + (gx#syntax-e +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _tl2114821174_))) + (let ((_hd2115321185_ + (let () (declare (not safe)) (##car _e2115421181_))) + (_tl2115221188_ + (let () (declare (not safe)) (##cdr _e2115421181_)))) + (if (gx#stx-null? _tl2115221188_) + ((lambda (_L21191_) + (let () + (let ((__tmp49663 (gx#datum->syntax '#f 'quote)) + (__tmp49662 + (let () + (declare (not safe)) + (cons _L21191_ '())))) + (declare (not safe)) + (cons __tmp49663 __tmp49662)))) + _hd2115321185_) + (let () (declare (not safe)) - (_wrap19415_ __tmp49910)))) - (declare (not safe)) - (_g2052621410_ __tmp49909)))) + (_g2114521160_ _g2114621164_))))) + (let () (declare (not safe)) (_g2114521160_ _g2114621164_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _type-body2046620505_)))))) - (let () - (declare (not safe)) - (_loop2046120485_ - _target2045820479_ - '()))) - (let () - (declare (not safe)) - (_g2045520472_ _g2045620476_)))))) - (let () - (declare (not safe)) - (_g2045520472_ _g2045620476_))))) - (__tmp49918 - (let ((__tmp49919 - (let ((__tmp49920 - (let ((__tmp49921 - (let ((__tmp49922 - (let ((__tmp49923 (let () (declare (not safe)) - (foldr1 cons - _type-mixin-slots20342_ - _type-slots20325_)))) - (declare (not safe)) - (foldr1 cons - __tmp49923 - _type-properties20446_)))) + (_g2114521160_ + _g2114621164_)))) + (let () + (declare (not safe)) + (_g2114521160_ + _g2114621164_))))) + (let () (declare (not safe)) - (foldr1 cons - __tmp49922 - _type-final20452_)))) - (declare (not safe)) - (foldr1 cons - __tmp49921 - _type-constructor20371_)))) + (_g2114521160_ _g2114621164_)))))) (declare (not safe)) - (foldr1 cons __tmp49920 _type-name20349_)))) - (declare (not safe)) - (foldr1 cons __tmp49919 _type-id20356_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_g2045421422_ - __tmp49918)))) - _mixin-usetf2025120290_)))))) - (let () - (declare (not safe)) - (_loop2024620270_ _target2024320264_ '()))) - (let () - (declare (not safe)) - (_g2024020257_ _g2024120261_)))))) - (let () (declare (not safe)) (_g2024020257_ _g2024120261_))))) + (_g2114421208_ _type-id20184_)))) + (declare (not safe)) + (_g2038621141_ __tmp49661)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49925 - (gx#stx-map - (lambda (_g2142921431_) - (_make-id19417_ - '"&" - _g2142921431_)) - (let ((__tmp49926 - (lambda (_g2143421437_ + _g2036020371_))) + (__tmp49664 + (let ((__tmp49665 + (let ((__tmp49672 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'defclass-type)) + (__tmp49666 + (let ((__tmp49667 + (let ((__tmp49668 + (let ((__tmp49669 + (let ((__tmp49670 + (let ((__tmp49671 + (lambda (_g2121521218_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2143521440_) + _g2121621221_) (let () (declare (not safe)) - (cons _g2143421437_ _g2143521440_))))) + (cons _g2121521218_ _g2121621221_))))) (declare (not safe)) - (foldr1 __tmp49926 '() _L20010_))))) + (foldr1 __tmp49671 '() _L20340_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_g2023921426_ __tmp49925)))) - _mixin-ugetf2018020219_)))))) - (let () - (declare (not safe)) - (_loop2017520199_ _target2017220193_ '()))) - (let () - (declare (not safe)) - (_g2016920186_ _g2017020190_)))))) + (declare (not safe)) + (cons _L19384_ __tmp49670)))) + (declare (not safe)) + (cons _L19356_ __tmp49669)))) + (declare (not safe)) + (cons _L19412_ __tmp49668)))) + (declare (not safe)) + (cons _L19328_ __tmp49667)))) + (declare (not safe)) + (cons __tmp49672 __tmp49666)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () (declare (not safe)) - (_g2016920186_ - _g2017020190_))))) - (__tmp49928 - (gx#stx-map - (lambda (_g2144621448_) - (_make-id19417_ - '"&" - _g2144621448_)) - (let ((__tmp49929 - (lambda (_g2145121454_ - _g2145221457_) - (let () - (declare (not safe)) - (cons _g2145121454_ - _g2145221457_))))) + (_wrap19267_ __tmp49665)))) + (declare (not safe)) + (_g2035821212_ __tmp49664)))) + _type-body2029720336_)))))) + (let () + (declare (not safe)) + (_loop2029220316_ _target2028920310_ '()))) + (let () + (declare (not safe)) + (_g2028620303_ _g2028720307_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_g2028620303_ + _g2028720307_))))) + (__tmp49674 + (let ((__tmp49675 + (let ((__tmp49676 + (let ((__tmp49677 + (let ((__tmp49678 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49679 + (let ((__tmp49680 + (let () (declare (not safe)) - (foldr1 __tmp49929 - '() - _L19939_))))) - (declare (not safe)) - (_g2016821443_ __tmp49928)))) - _usetf2010920148_)))))) - (let () - (declare (not safe)) - (_loop2010420128_ _target2010120122_ '()))) + (foldr1 cons + _type-mixin-slots20170_ + _type-slots20153_)))) + (declare (not safe)) + (foldr1 cons + __tmp49680 + _type-properties20274_)))) + (declare (not safe)) + (foldr1 cons __tmp49679 _type-final20283_)))) + (declare (not safe)) + (foldr1 cons __tmp49678 _type-struct20280_)))) + (declare (not safe)) + (foldr1 cons __tmp49677 _type-constructor20199_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_g2009820115_ - _g2009920119_)))))) - (let () + (declare (not safe)) + (foldr1 cons + __tmp49676 + _type-name20177_)))) (declare (not safe)) - (_g2009820115_ _g2009920119_))))) - (__tmp49931 - (gx#stx-map - (lambda (_g2146321465_) - (_make-id19417_ '"&" _g2146321465_)) - (let ((__tmp49932 - (lambda (_g2146821471_ - _g2146921474_) - (let () - (declare (not safe)) - (cons _g2146821471_ - _g2146921474_))))) - (declare (not safe)) - (foldr1 __tmp49932 '() _L19793_))))) - (declare (not safe)) - (_g2009721460_ __tmp49931)))) - _ugetf2003820077_)))))) + (foldr1 cons + __tmp49675 + _type-id20184_)))) + (declare (not safe)) + (_g2028521224_ __tmp49674)))) + _mixin-usetf2007920118_)))))) + (let () + (declare (not safe)) + (_loop2007420098_ _target2007120092_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_loop2003320057_ - _target2003020051_ - '()))) + (let () + (declare (not safe)) + (_g2006820085_ + _g2006920089_)))))) + (let () + (declare (not safe)) + (_g2006820085_ _g2006920089_))))) + (__tmp49682 + (gx#stx-map + (lambda (_g2123121233_) + (_make-id19269_ '"&" _g2123121233_)) + (let ((__tmp49683 + (lambda (_g2123621239_ + _g2123721242_) (let () (declare (not safe)) - (_g2002720044_ - _g2002820048_)))))) - (let () - (declare (not safe)) - (_g2002720044_ _g2002820048_))))) - (__tmp49934 - (gx#stx-map - (lambda (_g2148021482_) - (_make-id19417_ '"&" _g2148021482_)) - (let ((__tmp49935 - (lambda (_g2148521488_ _g2148621491_) - (let () - (declare (not safe)) - (cons _g2148521488_ - _g2148621491_))))) - (declare (not safe)) - (foldr1 __tmp49935 '() _L19722_))))) - (declare (not safe)) - (_g2002621477_ __tmp49934)))) - _mixin-setf1996720006_)))))) + (cons _g2123621239_ + _g2123721242_))))) + (declare (not safe)) + (foldr1 __tmp49683 '() _L19838_))))) + (declare (not safe)) + (_g2006721228_ __tmp49682)))) + _mixin-ugetf2000820047_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_loop1996219986_ - _target1995919980_ - '()))) + (let () + (declare (not safe)) + (_loop2000320027_ + _target2000020021_ + '()))) + (let () + (declare (not safe)) + (_g1999720014_ + _g1999820018_)))))) + (let () + (declare (not safe)) + (_g1999720014_ _g1999820018_))))) + (__tmp49685 + (gx#stx-map + (lambda (_g2124821250_) + (_make-id19269_ '"&" _g2124821250_)) + (let ((__tmp49686 + (lambda (_g2125321256_ _g2125421259_) (let () (declare (not safe)) - (_g1995619973_ _g1995719977_)))))) - (let () - (declare (not safe)) - (_g1995619973_ _g1995719977_))))) - (__tmp49937 - (gx#stx-map - (lambda (_g2149721499_) - (_make-id19417_ - _name19421_ - '"-" - _g2149721499_ - '"-set!")) - _mixin-slots19810_))) - (declare (not safe)) - (_g1995521494_ __tmp49937)))) + (cons _g2125321256_ _g2125421259_))))) + (declare (not safe)) + (foldr1 __tmp49686 '() _L19767_))))) + (declare (not safe)) + (_g1999621245_ __tmp49685)))) + _usetf1993719976_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _mixin-getf1989619935_)))))) - (let () - (declare (not safe)) - (_loop1989119915_ _target1988819909_ '()))) + (let () + (declare (not safe)) + (_loop1993219956_ + _target1992919950_ + '()))) + (let () + (declare (not safe)) + (_g1992619943_ _g1992719947_)))))) + (let () + (declare (not safe)) + (_g1992619943_ _g1992719947_))))) + (__tmp49688 + (gx#stx-map + (lambda (_g2126521267_) + (_make-id19269_ '"&" _g2126521267_)) + (let ((__tmp49689 + (lambda (_g2127021273_ _g2127121276_) (let () (declare (not safe)) - (_g1988519902_ _g1988619906_)))))) - (let () - (declare (not safe)) - (_g1988519902_ _g1988619906_))))) - (__tmp49939 - (gx#stx-map - (lambda (_g2150621508_) - (_make-id19417_ _name19421_ '"-" _g2150621508_)) - _mixin-slots19810_))) + (cons _g2127021273_ _g2127121276_))))) + (declare (not safe)) + (foldr1 __tmp49689 '() _L19621_))))) + (declare (not safe)) + (_g1992521262_ __tmp49688)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_g1988421503_ __tmp49939)))) - _mixin-slot1982419863_)))))) - (let () - (declare (not safe)) - (_loop1981919843_ _target1981619837_ '()))) + _ugetf1986619905_)))))) + (let () + (declare (not safe)) + (_loop1986119885_ _target1985819879_ '()))) + (let () + (declare (not safe)) + (_g1985519872_ _g1985619876_)))))) + (let () + (declare (not safe)) + (_g1985519872_ _g1985619876_))))) + (__tmp49691 + (gx#stx-map + (lambda (_g2128221284_) (_make-id19269_ '"&" _g2128221284_)) + (let ((__tmp49692 + (lambda (_g2128721290_ _g2128821293_) (let () (declare (not safe)) - (_g1981319830_ _g1981419834_)))))) - (let () (declare (not safe)) (_g1981319830_ _g1981419834_)))))) + (cons _g2128721290_ _g2128821293_))))) + (declare (not safe)) + (foldr1 __tmp49692 '() _L19550_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_g1981221512_ - _mixin-slots19810_)))) - _setf1975019789_)))))) - (let () - (declare (not safe)) - (_loop1974519769_ _target1974219763_ '()))) - (let () - (declare (not safe)) - (_g1973919756_ _g1974019760_)))))) + (declare (not safe)) + (_g1985421279_ __tmp49691)))) + _mixin-setf1979519834_)))))) + (let () + (declare (not safe)) + (_loop1979019814_ _target1978719808_ '()))) + (let () + (declare (not safe)) + (_g1978419801_ _g1978519805_)))))) + (let () (declare (not safe)) (_g1978419801_ _g1978519805_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_g1973919756_ - _g1974019760_))))) - (__tmp49942 - (gx#stx-map - (lambda (_g2151921521_) - (_make-id19417_ - _name19421_ - '"-" - _g2151921521_ - '"-set!")) - _slots19411_))) - (declare (not safe)) - (_g1973821516_ __tmp49942)))) - _getf1967919718_)))))) + (__tmp49694 + (gx#stx-map + (lambda (_g2129921301_) + (_make-id19269_ + _name19273_ + '"-" + _g2129921301_ + '"-set!")) + _mixin-slots19638_))) + (declare (not safe)) + (_g1978321296_ __tmp49694)))) + _mixin-getf1972419763_)))))) + (let () + (declare (not safe)) + (_loop1971919743_ _target1971619737_ '()))) + (let () + (declare (not safe)) + (_g1971319730_ _g1971419734_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_loop1967419698_ - _target1967119692_ - '()))) - (let () - (declare (not safe)) - (_g1966819685_ - _g1966919689_)))))) - (let () - (declare (not safe)) - (_g1966819685_ _g1966919689_))))) - (__tmp49944 - (gx#stx-map - (lambda (_g2152821530_) - (_make-id19417_ - _name19421_ - '"-" - _g2152821530_)) - _slots19411_))) - (declare (not safe)) - (_g1966721525_ __tmp49944)))) - _slot1960819647_)))))) + (let () + (declare (not safe)) + (_g1971319730_ + _g1971419734_))))) + (__tmp49696 + (gx#stx-map + (lambda (_g2130821310_) + (_make-id19269_ + _name19273_ + '"-" + _g2130821310_)) + _mixin-slots19638_))) + (declare (not safe)) + (_g1971221305_ __tmp49696)))) + _mixin-slot1965219691_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_loop1960319627_ - _target1960019621_ - '()))) - (let () - (declare (not safe)) - (_g1959719614_ - _g1959819618_)))))) - (let () - (declare (not safe)) - (_g1959719614_ _g1959819618_)))))) - (declare (not safe)) - (_g1959621534_ _slots19411_)))) - _g1957019581_))) + (let () + (declare (not safe)) + (_loop1964719671_ + _target1964419665_ + '()))) + (let () + (declare (not safe)) + (_g1964119658_ + _g1964219662_)))))) + (let () + (declare (not safe)) + (_g1964119658_ _g1964219662_)))))) + (declare (not safe)) + (_g1964021314_ _mixin-slots19638_)))) + _setf1957819617_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49946 - (if _struct?19413_ - (if _super19424_ - (let ((__obj47557 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _super19424_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj47557 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj47557 - '8 - gerbil/core$$#class-type-info::t - '#f)) - (class-slot-ref - gerbil/core$$#class-type-info::t - __obj47557 - 'type-descriptor))) - '#f) - (map gerbil/core$$#class-type-descriptor - _super19424_)))) + (let () + (declare (not safe)) + (_loop1957319597_ + _target1957019591_ + '()))) + (let () + (declare (not safe)) + (_g1956719584_ _g1956819588_)))))) + (let () + (declare (not safe)) + (_g1956719584_ _g1956819588_))))) + (__tmp49699 + (gx#stx-map + (lambda (_g2132121323_) + (_make-id19269_ + _name19273_ + '"-" + _g2132121323_ + '"-set!")) + _slots19264_))) + (declare (not safe)) + (_g1956621318_ __tmp49699)))) + _getf1950719546_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1950219526_ + _target1949919520_ + '()))) + (let () + (declare (not safe)) + (_g1949619513_ _g1949719517_)))))) + (let () + (declare (not safe)) + (_g1949619513_ _g1949719517_))))) + (__tmp49701 + (gx#stx-map + (lambda (_g2133021332_) + (_make-id19269_ _name19273_ '"-" _g2133021332_)) + _slots19264_))) + (declare (not safe)) + (_g1949521327_ __tmp49701)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _slot1943619475_)))))) + (let () + (declare (not safe)) + (_loop1943119455_ _target1942819449_ '()))) + (let () + (declare (not safe)) + (_g1942519442_ _g1942619446_)))))) + (let () + (declare (not safe)) + (_g1942519442_ _g1942619446_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1956821538_ __tmp49946)))) - _g1954219553_))) - (__tmp49947 - (_make-id19417_ _name19421_ '"?"))) + (_g1942421336_ _slots19264_)))) + _g1939819409_))) + (__tmp49703 + (map gerbil/core$$#class-type-descriptor + _super19276_))) (declare (not safe)) - (_g1954021542_ __tmp49947)))) - _g1951419525_))) - (__tmp49948 (_make-id19417_ '"make-" _name19421_))) + (_g1939621340_ __tmp49703)))) + _g1937019381_))) + (__tmp49704 (_make-id19269_ _name19273_ '"?"))) (declare (not safe)) - (_g1951221546_ __tmp49948)))) + (_g1936821344_ __tmp49704)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1948619497_))) - (__tmp49949 - (_make-id19417_ - _name19421_ - '"::t"))) + _g1934219353_))) + (__tmp49705 + (_make-id19269_ + '"make-" + _name19273_))) (declare (not safe)) - (_g1948421550_ __tmp49949)))) - _g1945819469_)))) + (_g1934021348_ __tmp49705)))) + _g1931419325_))) + (__tmp49706 + (_make-id19269_ _name19273_ '"::t"))) (declare (not safe)) - (_g1945621554_ _id19409_)))) - _g1942819439_))) - (__tmp49950 - (if _struct?19413_ - (gx#datum->syntax '#f 'defstruct-type) - (gx#datum->syntax '#f 'defclass-type)))) + (_g1931221352_ __tmp49706)))) + _g1928319294_)))) (declare (not safe)) - (_g1942621558_ __tmp49950))))) + (_g1928121356_ _id19262_))))) (define |gerbil/core$$[:0:]#defstruct| - (lambda (_stx21622_) - (letrec ((_generate21625_ - (lambda (_hd21709_ _fields21711_ _body21712_) - (let* ((___stx4449444495_ _hd21709_) - (_g2171521730_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - ___stx4449444495_)))) - (let ((___kont4449744498_ - (lambda (_L21768_ _L21770_) + (lambda (_$stx21420_) + (let* ((_g2142421443_ + (lambda (_g2142521439_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2142521439_))) + (_g2142321500_ + (lambda (_g2142521447_) + (if (gx#stx-pair? _g2142521447_) + (let ((_e2143121450_ (gx#syntax-e _g2142521447_))) + (let ((_hd2143021454_ (let () (declare (not safe)) - (|gerbil/core$$[1]#generate-typedef| - _stx21622_ - _L21770_ - _L21768_ - _fields21711_ - _body21712_ - '#t)))) - (___kont4449944500_ - (lambda () - (if (gx#identifier? _hd21709_) - (let () - (declare (not safe)) - (|gerbil/core$$[1]#generate-typedef| - _stx21622_ - _hd21709_ - '#f - _fields21711_ - _body21712_ - '#t)) - (gx#raise-syntax-error - '#f - '"bad syntax; struct name not an identifier" - _stx21622_ - _hd21709_))))) - (let ((___match4451544516_ - (lambda (_e2172121748_ - _hd2172021752_ - _tl2171921755_ - _e2172421758_ - _hd2172321762_ - _tl2172221765_) - (let ((_L21768_ _hd2172321762_) - (_L21770_ _hd2172021752_)) - (if (and (gx#identifier? _L21770_) - (let () - (declare (not safe)) - (gerbil/core$$#syntax-local-class-type-info?__% - _L21768_ - gerbil/core$$#class-type-struct?))) - (___kont4449744498_ _L21768_ _L21770_) - (___kont4449944500_)))))) - (if (gx#stx-pair? ___stx4449444495_) - (let ((_e2172121748_ - (gx#syntax-e ___stx4449444495_))) - (let ((_tl2171921755_ + (##car _e2143121450_))) + (_tl2142921457_ + (let () + (declare (not safe)) + (##cdr _e2143121450_)))) + (if (gx#stx-pair? _tl2142921457_) + (let ((_e2143421460_ + (gx#syntax-e _tl2142921457_))) + (let ((_hd2143321464_ (let () (declare (not safe)) - (##cdr _e2172121748_))) - (_hd2172021752_ + (##car _e2143421460_))) + (_tl2143221467_ (let () (declare (not safe)) - (##car _e2172121748_)))) - (if (gx#stx-pair? _tl2171921755_) - (let ((_e2172421758_ - (gx#syntax-e _tl2171921755_))) - (let ((_tl2172221765_ + (##cdr _e2143421460_)))) + (if (gx#stx-pair? _tl2143221467_) + (let ((_e2143721470_ + (gx#syntax-e _tl2143221467_))) + (let ((_hd2143621474_ (let () (declare (not safe)) - (##cdr _e2172421758_))) - (_hd2172321762_ + (##car _e2143721470_))) + (_tl2143521477_ (let () (declare (not safe)) - (##car _e2172421758_)))) - (if (gx#stx-null? _tl2172221765_) - (___match4451544516_ - _e2172121748_ - _hd2172021752_ - _tl2171921755_ - _e2172421758_ - _hd2172321762_ - _tl2172221765_) - (___kont4449944500_)))) - (___kont4449944500_)))) - (___kont4449944500_)))))))) - (let* ((_g2162821647_ - (lambda (_g2162921643_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g2162921643_))) - (_g2162721705_ - (lambda (_g2162921651_) - (if (gx#stx-pair? _g2162921651_) - (let ((_e2163521654_ (gx#syntax-e _g2162921651_))) - (let ((_hd2163421658_ - (let () - (declare (not safe)) - (##car _e2163521654_))) - (_tl2163321661_ + (##cdr _e2143721470_)))) + ((lambda (_L21480_ _L21482_ _L21483_) + (let ((__tmp49711 + (gx#datum->syntax + '#f + 'defclass)) + (__tmp49707 + (let ((__tmp49708 + (let ((__tmp49709 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49710 (let () (declare (not safe)) - (##cdr _e2163521654_)))) - (if (gx#stx-pair? _tl2163321661_) - (let ((_e2163821664_ - (gx#syntax-e _tl2163321661_))) - (let ((_hd2163721668_ - (let () - (declare (not safe)) - (##car _e2163821664_))) - (_tl2163621671_ - (let () - (declare (not safe)) - (##cdr _e2163821664_)))) - (if (gx#stx-pair? _tl2163621671_) - (let ((_e2164121674_ - (gx#syntax-e _tl2163621671_))) - (let ((_hd2164021678_ - (let () - (declare (not safe)) - (##car _e2164121674_))) - (_tl2163921681_ - (let () - (declare (not safe)) - (##cdr _e2164121674_)))) - ((lambda (_L21684_ - _L21686_ - _L21687_) - (if (and (gx#identifier-list? - _L21686_) - (let () - (declare (not safe)) - (|gerbil/core$$[1]#typedef-body?| - _L21684_))) - (_generate21625_ - _L21687_ - _L21686_ - _L21684_) - (_g2162821647_ - _g2162921651_))) - _tl2163921681_ - _hd2164021678_ - _hd2163721668_))) - (_g2162821647_ _g2162921651_)))) - (_g2162821647_ _g2162921651_)))) - (_g2162821647_ _g2162921651_))))) - (_g2162721705_ _stx21622_))))) + (cons '#t _L21480_)))) + (declare (not safe)) + (cons 'struct: __tmp49710)))) + (declare (not safe)) + (cons _L21482_ __tmp49709)))) + (declare (not safe)) + (cons _L21483_ __tmp49708)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp49711 __tmp49707))) + _tl2143521477_ + _hd2143621474_ + _hd2143321464_))) + (_g2142421443_ _g2142521447_)))) + (_g2142421443_ _g2142521447_)))) + (_g2142421443_ _g2142521447_))))) + (_g2142321500_ _$stx21420_)))) (define |gerbil/core$$[:0:]#defclass| - (lambda (_stx21789_) - (letrec ((_generate21792_ - (lambda (_hd21876_ _slots21878_ _body21879_) - (let* ((___stx4451844519_ _hd21876_) - (_g2188221894_ + (lambda (_stx21504_) + (letrec ((_generate21507_ + (lambda (_hd21591_ _slots21593_ _body21594_) + (let* ((___stx4431044311_ _hd21591_) + (_g2159721609_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4451844519_)))) - (let ((___kont4452144522_ - (lambda (_L21922_ _L21924_) - (let ((__tmp49951 (gx#syntax->list _L21922_))) + ___stx4431044311_)))) + (let ((___kont4431344314_ + (lambda (_L21637_ _L21639_) + (let ((__tmp49712 (gx#syntax->list _L21637_))) (declare (not safe)) - (|gerbil/core$$[1]#generate-typedef| - _stx21789_ - _L21924_ - __tmp49951 - _slots21878_ - _body21879_ - '#f)))) - (___kont4452344524_ + (|gerbil/core$$[1]#generate-defclass| + _stx21504_ + _L21639_ + __tmp49712 + _slots21593_ + _body21594_)))) + (___kont4431544316_ (lambda () - (if (gx#identifier? _hd21876_) + (if (gx#identifier? _hd21591_) (let () (declare (not safe)) - (|gerbil/core$$[1]#generate-typedef| - _stx21789_ - _hd21876_ + (|gerbil/core$$[1]#generate-defclass| + _stx21504_ + _hd21591_ '() - _slots21878_ - _body21879_ - '#f)) + _slots21593_ + _body21594_)) (gx#raise-syntax-error '#f '"bad syntax; class name should be an identifier" - _stx21789_ - _hd21876_))))) - (let ((___match4453144532_ - (lambda (_e2188821912_ - _hd2188721916_ - _tl2188621919_) - (let ((_L21922_ _tl2188621919_) - (_L21924_ _hd2188721916_)) - (if (and (gx#stx-list? _L21922_) + _stx21504_ + _hd21591_))))) + (let ((___match4432344324_ + (lambda (_e2160321627_ + _hd2160221631_ + _tl2160121634_) + (let ((_L21637_ _tl2160121634_) + (_L21639_ _hd2160221631_)) + (if (and (gx#stx-list? _L21637_) (gx#stx-andmap gerbil/core$$#syntax-local-class-type-info? - _L21922_)) - (___kont4452144522_ _L21922_ _L21924_) - (___kont4452344524_)))))) - (if (gx#stx-pair? ___stx4451844519_) - (let ((_e2188821912_ - (gx#syntax-e ___stx4451844519_))) - (let ((_tl2188621919_ + _L21637_)) + (___kont4431344314_ _L21637_ _L21639_) + (___kont4431544316_)))))) + (if (gx#stx-pair? ___stx4431044311_) + (let ((_e2160321627_ + (gx#syntax-e ___stx4431044311_))) + (let ((_tl2160121634_ (let () (declare (not safe)) - (##cdr _e2188821912_))) - (_hd2188721916_ + (##cdr _e2160321627_))) + (_hd2160221631_ (let () (declare (not safe)) - (##car _e2188821912_)))) - (___match4453144532_ - _e2188821912_ - _hd2188721916_ - _tl2188621919_))) - (___kont4452344524_)))))))) - (let* ((_g2179521814_ - (lambda (_g2179621810_) + (##car _e2160321627_)))) + (___match4432344324_ + _e2160321627_ + _hd2160221631_ + _tl2160121634_))) + (___kont4431544316_)))))))) + (let* ((_g2151021529_ + (lambda (_g2151121525_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2179621810_))) - (_g2179421872_ - (lambda (_g2179621818_) - (if (gx#stx-pair? _g2179621818_) - (let ((_e2180221821_ (gx#syntax-e _g2179621818_))) - (let ((_hd2180121825_ + _g2151121525_))) + (_g2150921587_ + (lambda (_g2151121533_) + (if (gx#stx-pair? _g2151121533_) + (let ((_e2151721536_ (gx#syntax-e _g2151121533_))) + (let ((_hd2151621540_ (let () (declare (not safe)) - (##car _e2180221821_))) - (_tl2180021828_ + (##car _e2151721536_))) + (_tl2151521543_ (let () (declare (not safe)) - (##cdr _e2180221821_)))) - (if (gx#stx-pair? _tl2180021828_) - (let ((_e2180521831_ - (gx#syntax-e _tl2180021828_))) - (let ((_hd2180421835_ + (##cdr _e2151721536_)))) + (if (gx#stx-pair? _tl2151521543_) + (let ((_e2152021546_ + (gx#syntax-e _tl2151521543_))) + (let ((_hd2151921550_ (let () (declare (not safe)) - (##car _e2180521831_))) - (_tl2180321838_ + (##car _e2152021546_))) + (_tl2151821553_ (let () (declare (not safe)) - (##cdr _e2180521831_)))) - (if (gx#stx-pair? _tl2180321838_) - (let ((_e2180821841_ - (gx#syntax-e _tl2180321838_))) - (let ((_hd2180721845_ + (##cdr _e2152021546_)))) + (if (gx#stx-pair? _tl2151821553_) + (let ((_e2152321556_ + (gx#syntax-e _tl2151821553_))) + (let ((_hd2152221560_ (let () (declare (not safe)) - (##car _e2180821841_))) - (_tl2180621848_ + (##car _e2152321556_))) + (_tl2152121563_ (let () (declare (not safe)) - (##cdr _e2180821841_)))) - ((lambda (_L21851_ - _L21853_ - _L21854_) + (##cdr _e2152321556_)))) + ((lambda (_L21566_ + _L21568_ + _L21569_) (if (and (gx#identifier-list? - _L21853_) + _L21568_) (let () (declare (not safe)) (|gerbil/core$$[1]#typedef-body?| - _L21851_))) - (_generate21792_ - _L21854_ - _L21853_ - _L21851_) - (_g2179521814_ - _g2179621818_))) - _tl2180621848_ - _hd2180721845_ - _hd2180421835_))) - (_g2179521814_ _g2179621818_)))) - (_g2179521814_ _g2179621818_)))) - (_g2179521814_ _g2179621818_))))) - (_g2179421872_ _stx21789_))))) + _L21566_))) + (_generate21507_ + _L21569_ + _L21568_ + _L21566_) + (_g2151021529_ + _g2151121533_))) + _tl2152121563_ + _hd2152221560_ + _hd2151921550_))) + (_g2151021529_ _g2151121533_)))) + (_g2151021529_ _g2151121533_)))) + (_g2151021529_ _g2151121533_))))) + (_g2150921587_ _stx21504_))))) (define |gerbil/core$$[:0:]#defmethod| - (lambda (_stx21941_) - (letrec ((_wrap21944_ - (lambda (_e-stx22281_) + (lambda (_stx21656_) + (letrec ((_wrap21659_ + (lambda (_e-stx21996_) (gx#stx-wrap-source - _e-stx22281_ - (gx#stx-source _stx21941_)))) - (_method-opt?21946_ - (lambda (_x22278_) (memq (gx#stx-e _x22278_) '(rebind:))))) - (let* ((_g2194821977_ - (lambda (_g2194921973_) + _e-stx21996_ + (gx#stx-source _stx21656_)))) + (_method-opt?21661_ + (lambda (_x21993_) (memq (gx#stx-e _x21993_) '(rebind:))))) + (let* ((_g2166321692_ + (lambda (_g2166421688_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2194921973_))) - (_g2194722274_ - (lambda (_g2194921981_) - (if (gx#stx-pair? _g2194921981_) - (let ((_e2195621984_ (gx#syntax-e _g2194921981_))) - (let ((_hd2195521988_ + _g2166421688_))) + (_g2166221989_ + (lambda (_g2166421696_) + (if (gx#stx-pair? _g2166421696_) + (let ((_e2167121699_ (gx#syntax-e _g2166421696_))) + (let ((_hd2167021703_ (let () (declare (not safe)) - (##car _e2195621984_))) - (_tl2195421991_ + (##car _e2167121699_))) + (_tl2166921706_ (let () (declare (not safe)) - (##cdr _e2195621984_)))) - (if (gx#stx-pair? _tl2195421991_) - (let ((_e2195921994_ - (gx#syntax-e _tl2195421991_))) - (let ((_hd2195821998_ + (##cdr _e2167121699_)))) + (if (gx#stx-pair? _tl2166921706_) + (let ((_e2167421709_ + (gx#syntax-e _tl2166921706_))) + (let ((_hd2167321713_ (let () (declare (not safe)) - (##car _e2195921994_))) - (_tl2195722001_ + (##car _e2167421709_))) + (_tl2167221716_ (let () (declare (not safe)) - (##cdr _e2195921994_)))) - (if (gx#stx-pair? _hd2195821998_) - (let ((_e2196222004_ - (gx#syntax-e _hd2195821998_))) - (let ((_hd2196122008_ + (##cdr _e2167421709_)))) + (if (gx#stx-pair? _hd2167321713_) + (let ((_e2167721719_ + (gx#syntax-e _hd2167321713_))) + (let ((_hd2167621723_ (let () (declare (not safe)) - (##car _e2196222004_))) - (_tl2196022011_ + (##car _e2167721719_))) + (_tl2167521726_ (let () (declare (not safe)) - (##cdr _e2196222004_)))) - (if (gx#identifier? _hd2196122008_) + (##cdr _e2167721719_)))) + (if (gx#identifier? _hd2167621723_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g50002_| - _hd2196122008_) + |gerbil/core$$[1]#_g49763_| + _hd2167621723_) (if (gx#stx-pair? - _tl2196022011_) - (let ((_e2196522014_ + _tl2167521726_) + (let ((_e2168021729_ (gx#syntax-e - _tl2196022011_))) - (let ((_hd2196422018_ + _tl2167521726_))) + (let ((_hd2167921733_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e2196522014_))) - (_tl2196322021_ - (let () (declare (not safe)) (##cdr _e2196522014_)))) - (if (gx#stx-pair? _tl2196322021_) - (let ((_e2196822024_ (gx#syntax-e _tl2196322021_))) - (let ((_hd2196722028_ + (let () (declare (not safe)) (##car _e2168021729_))) + (_tl2167821736_ + (let () (declare (not safe)) (##cdr _e2168021729_)))) + (if (gx#stx-pair? _tl2167821736_) + (let ((_e2168321739_ (gx#syntax-e _tl2167821736_))) + (let ((_hd2168221743_ (let () (declare (not safe)) - (##car _e2196822024_))) - (_tl2196622031_ + (##car _e2168321739_))) + (_tl2168121746_ (let () (declare (not safe)) - (##cdr _e2196822024_)))) - (if (gx#stx-null? _tl2196622031_) - (if (gx#stx-pair? _tl2195722001_) - (let ((_e2197122034_ - (gx#syntax-e _tl2195722001_))) - (let ((_hd2197022038_ + (##cdr _e2168321739_)))) + (if (gx#stx-null? _tl2168121746_) + (if (gx#stx-pair? _tl2167221716_) + (let ((_e2168621749_ + (gx#syntax-e _tl2167221716_))) + (let ((_hd2168521753_ (let () (declare (not safe)) - (##car _e2197122034_))) - (_tl2196922041_ + (##car _e2168621749_))) + (_tl2168421756_ (let () (declare (not safe)) - (##cdr _e2197122034_)))) - ((lambda (_L22044_ - _L22046_ - _L22047_ - _L22048_) - (if (and (gx#identifier? _L22048_) + (##cdr _e2168621749_)))) + ((lambda (_L21759_ + _L21761_ + _L21762_ + _L21763_) + (if (and (gx#identifier? _L21763_) (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__0 - _L22047_)) + _L21762_)) (gx#stx-plist? - _L22044_ - _method-opt?21946_)) - (let* ((_klass22073_ + _L21759_ + _method-opt?21661_)) + (let* ((_klass21788_ (gx#syntax-local-value - _L22047_)) - (_rebind?22076_ - (if (gx#stx-e - (gx#stx-getq - 'rebind: - _L22044_)) - '#t - '#f)) - (_g2207922087_ - (lambda (_g2208022083_) + _L21762_)) + (_rebind?21791_ + (gx#stx-e + (gx#stx-getq + 'rebind: + _L21759_))) + (_g2179421802_ + (lambda (_g2179521798_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2208022083_))) - (_g2207822270_ - (lambda (_g2208022091_) - ((lambda (_L22094_) + _g2179521798_))) + (_g2179321985_ + (lambda (_g2179521806_) + ((lambda (_L21809_) (let () - (let* ((_g2210822116_ + (let* ((_g2182321831_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2210922112_) + (lambda (_g2182421827_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2210922112_))) - (_g2210722266_ - (lambda (_g2210922120_) - ((lambda (_L22123_) + _g2182421827_))) + (_g2182221981_ + (lambda (_g2182421835_) + ((lambda (_L21838_) (let () - (let* ((_g2213622144_ - (lambda (_g2213722140_) + (let* ((_g2185121859_ + (lambda (_g2185221855_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2213722140_))) - (_g2213522262_ - (lambda (_g2213722148_) - ((lambda (_L22151_) + _g2185221855_))) + (_g2185021977_ + (lambda (_g2185221863_) + ((lambda (_L21866_) (let () - (let* ((_g2216422172_ - (lambda (_g2216522168_) + (let* ((_g2187921887_ + (lambda (_g2188021883_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2216522168_))) - (_g2216322258_ - (lambda (_g2216522176_) - ((lambda (_L22179_) + _g2188021883_))) + (_g2187821973_ + (lambda (_g2188021891_) + ((lambda (_L21894_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2219222200_ - (lambda (_g2219322196_) + (let* ((_g2190721915_ + (lambda (_g2190821911_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2219322196_))) - (_g2219122254_ - (lambda (_g2219322204_) - ((lambda (_L22207_) + _g2190821911_))) + (_g2190621969_ + (lambda (_g2190821919_) + ((lambda (_L21922_) (let () - (let* ((_g2222022228_ - (lambda (_g2222122224_) + (let* ((_g2193521943_ + (lambda (_g2193621939_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2222122224_))) - (_g2221922250_ - (lambda (_g2222122232_) - ((lambda (_L22235_) + _g2193621939_))) + (_g2193421965_ + (lambda (_g2193621947_) + ((lambda (_L21950_) (let () (let () - (_wrap21944_ - (let ((__tmp49956 + (_wrap21659_ + (let ((__tmp49717 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin)) - (__tmp49954 - (let ((__tmp49955 + (__tmp49715 + (let ((__tmp49716 (let () (declare (not safe)) - (cons _L22235_ '())))) + (cons _L21950_ '())))) (declare (not safe)) - (cons _L22179_ __tmp49955)))) + (cons _L21894_ __tmp49716)))) (declare (not safe)) - (cons __tmp49956 __tmp49954)))))) + (cons __tmp49717 __tmp49715)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2222122232_)))) - (_g2221922250_ - (_wrap21944_ - (let ((__tmp49964 + _g2193621947_)))) + (_g2193421965_ + (_wrap21659_ + (let ((__tmp49725 (gx#datum->syntax '#f 'bind-method!)) - (__tmp49957 - (let ((__tmp49958 - (let ((__tmp49961 + (__tmp49718 + (let ((__tmp49719 + (let ((__tmp49722 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49963 (gx#datum->syntax '#f 'quote)) - (__tmp49962 + (let ((__tmp49724 (gx#datum->syntax '#f 'quote)) + (__tmp49723 (let () (declare (not safe)) - (cons _L22048_ '())))) + (cons _L21763_ '())))) (declare (not safe)) - (cons __tmp49963 __tmp49962))) - (__tmp49959 - (let ((__tmp49960 + (cons __tmp49724 __tmp49723))) + (__tmp49720 + (let ((__tmp49721 (let () (declare (not safe)) - (cons _L22207_ '())))) + (cons _L21922_ '())))) (declare (not safe)) - (cons _L22123_ __tmp49960)))) + (cons _L21838_ __tmp49721)))) (declare (not safe)) - (cons __tmp49961 __tmp49959)))) + (cons __tmp49722 __tmp49720)))) (declare (not safe)) - (cons _L22094_ __tmp49958)))) + (cons _L21809_ __tmp49719)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49964 - __tmp49957))))))) - _g2219322204_)))) - (_g2219122254_ _rebind?22076_)))) - _g2216522176_)))) - (_g2216322258_ - (_wrap21944_ - (let ((__tmp50001 (gx#datum->syntax '#f 'def)) - (__tmp49965 - (let ((__tmp49966 - (let ((__tmp49967 - (let ((__tmp50000 + (cons __tmp49725 + __tmp49718))))))) + _g2190821919_)))) + (_g2190621969_ _rebind?21791_)))) + _g2188021891_)))) + (_g2187821973_ + (_wrap21659_ + (let ((__tmp49762 (gx#datum->syntax '#f 'def)) + (__tmp49726 + (let ((__tmp49727 + (let ((__tmp49728 + (let ((__tmp49761 (gx#datum->syntax '#f 'let-syntax)) - (__tmp49968 - (let ((__tmp49970 - (let ((__tmp49971 - (let ((__tmp49972 + (__tmp49729 + (let ((__tmp49731 + (let ((__tmp49732 + (let ((__tmp49733 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49973 - (let ((__tmp49999 + (let ((__tmp49734 + (let ((__tmp49760 (gx#datum->syntax '#f 'syntax-rules)) - (__tmp49974 - (let ((__tmp49975 - (let ((__tmp49976 - (let ((__tmp49991 - (let ((__tmp49998 + (__tmp49735 + (let ((__tmp49736 + (let ((__tmp49737 + (let ((__tmp49752 + (let ((__tmp49759 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp49992 - (let ((__tmp49997 (gx#datum->syntax '#f 'obj)) - (__tmp49993 - (let ((__tmp49996 + (__tmp49753 + (let ((__tmp49758 (gx#datum->syntax '#f 'obj)) + (__tmp49754 + (let ((__tmp49757 (gx#datum->syntax '#f 'arg)) - (__tmp49994 - (let ((__tmp49995 + (__tmp49755 + (let ((__tmp49756 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp49995 '())))) + (cons __tmp49756 '())))) (declare (not safe)) - (cons __tmp49996 __tmp49994)))) + (cons __tmp49757 __tmp49755)))) (declare (not safe)) - (cons __tmp49997 __tmp49993)))) + (cons __tmp49758 __tmp49754)))) (declare (not safe)) - (cons __tmp49998 __tmp49992))) - (__tmp49977 - (let ((__tmp49978 - (let ((__tmp49990 + (cons __tmp49759 __tmp49753))) + (__tmp49738 + (let ((__tmp49739 + (let ((__tmp49751 (gx#datum->syntax '#f 'call-next-method)) - (__tmp49979 - (let ((__tmp49980 - (let ((__tmp49989 + (__tmp49740 + (let ((__tmp49741 + (let ((__tmp49750 (gx#datum->syntax '#f 'obj)) - (__tmp49981 - (let ((__tmp49986 - (let ((__tmp49988 + (__tmp49742 + (let ((__tmp49747 + (let ((__tmp49749 (gx#datum->syntax '#f 'quote)) - (__tmp49987 + (__tmp49748 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L22048_ '())))) + (cons _L21763_ '())))) (declare (not safe)) - (cons __tmp49988 __tmp49987))) - (__tmp49982 - (let ((__tmp49985 (gx#datum->syntax '#f 'arg)) - (__tmp49983 - (let ((__tmp49984 (gx#datum->syntax '#f '...))) + (cons __tmp49749 __tmp49748))) + (__tmp49743 + (let ((__tmp49746 (gx#datum->syntax '#f 'arg)) + (__tmp49744 + (let ((__tmp49745 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp49984 '())))) + (cons __tmp49745 '())))) (declare (not safe)) - (cons __tmp49985 __tmp49983)))) + (cons __tmp49746 __tmp49744)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49986 - __tmp49982)))) + (cons __tmp49747 + __tmp49743)))) (declare (not safe)) - (cons __tmp49989 __tmp49981)))) + (cons __tmp49750 __tmp49742)))) (declare (not safe)) - (cons _L22094_ __tmp49980)))) + (cons _L21809_ __tmp49741)))) (declare (not safe)) - (cons __tmp49990 __tmp49979)))) + (cons __tmp49751 __tmp49740)))) (declare (not safe)) - (cons __tmp49978 '())))) + (cons __tmp49739 '())))) (declare (not safe)) - (cons __tmp49991 __tmp49977)))) + (cons __tmp49752 __tmp49738)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49976 '())))) + (cons __tmp49737 '())))) (declare (not safe)) - (cons '() __tmp49975)))) + (cons '() __tmp49736)))) (declare (not safe)) - (cons __tmp49999 __tmp49974)))) + (cons __tmp49760 __tmp49735)))) (declare (not safe)) - (cons __tmp49973 '())))) + (cons __tmp49734 '())))) (declare (not safe)) - (cons _L22151_ __tmp49972)))) + (cons _L21866_ __tmp49733)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49971 '()))) - (__tmp49969 + (cons __tmp49732 '()))) + (__tmp49730 (let () (declare (not safe)) - (cons _L22046_ '())))) + (cons _L21761_ '())))) (declare (not safe)) - (cons __tmp49970 __tmp49969)))) + (cons __tmp49731 __tmp49730)))) (declare (not safe)) - (cons __tmp50000 __tmp49968)))) + (cons __tmp49761 __tmp49729)))) (declare (not safe)) - (cons __tmp49967 '())))) + (cons __tmp49728 '())))) (declare (not safe)) - (cons _L22123_ __tmp49966)))) + (cons _L21838_ __tmp49727)))) (declare (not safe)) - (cons __tmp50001 __tmp49965))))))) + (cons __tmp49762 __tmp49726))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2213722148_)))) - (_g2213522262_ + _g2185221863_)))) + (_g2185021977_ (gx#stx-identifier - _L22047_ + _L21762_ '@next-method))))) - _g2210922120_)))) - (_g2210722266_ + _g2182421835_)))) + (_g2182221981_ (gx#stx-identifier - _L22047_ - _L22047_ + _L21762_ + _L21762_ '"::" - _L22048_))))) - _g2208022091_)))) + _L21763_))))) + _g2179521806_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2207822270_ - (let ((__obj47558 - _klass22073_)) + (_g2179321985_ + (let ((__obj47349 + _klass21788_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47558 + __obj47349 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47558 + __obj47349 '8 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47558 + __obj47349 'type-descriptor))))) - (if (let ((__tmp49953 + (if (let ((__tmp49714 (gx#identifier? - _L22048_))) + _L21763_))) (declare (not safe)) - (not __tmp49953)) + (not __tmp49714)) (gx#raise-syntax-error '#f '"bad syntax; expected method identifier" - _stx21941_ - _L22048_) - (if (let ((__tmp49952 + _stx21656_ + _L21763_) + (if (let ((__tmp49713 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gerbil/core$$#syntax-local-class-type-info?__0 - _L22047_)))) + _L21762_)))) (declare (not safe)) - (not __tmp49952)) + (not __tmp49713)) (gx#raise-syntax-error '#f '"bad syntax; expected type identifier" - _stx21941_ - _L22047_) + _stx21656_ + _L21762_) (gx#raise-syntax-error '#f '"bad syntax; illegal method options" - _stx21941_))))) + _stx21656_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl2196922041_ - _hd2197022038_ - _hd2196722028_ - _hd2196422018_))) - (_g2194821977_ _g2194921981_)) - (_g2194821977_ _g2194921981_)))) - (_g2194821977_ _g2194921981_)))) - (_g2194821977_ _g2194921981_)) + _tl2168421756_ + _hd2168521753_ + _hd2168221743_ + _hd2167921733_))) + (_g2166321692_ _g2166421696_)) + (_g2166321692_ _g2166421696_)))) + (_g2166321692_ _g2166421696_)))) + (_g2166321692_ _g2166421696_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2194821977_ - _g2194921981_)) - (_g2194821977_ - _g2194921981_)))) - (_g2194821977_ _g2194921981_)))) - (_g2194821977_ _g2194921981_)))) - (_g2194821977_ _g2194921981_))))) - (_g2194722274_ _stx21941_))))) + (_g2166321692_ + _g2166421696_)) + (_g2166321692_ + _g2166421696_)))) + (_g2166321692_ _g2166421696_)))) + (_g2166321692_ _g2166421696_)))) + (_g2166321692_ _g2166421696_))))) + (_g2166221989_ _stx21656_))))) (define |gerbil/core$$[:0:]#@method| - (lambda (_stx22284_) - (letrec ((_dotted-identifier?22287_ - (lambda (_id22920_) - (if (gx#identifier? _id22920_) - (let ((_id-str22923_ - (symbol->string (gx#stx-e _id22920_)))) + (lambda (_stx21999_) + (letrec ((_dotted-identifier?22002_ + (lambda (_id22635_) + (if (gx#identifier? _id22635_) + (let ((_id-str22638_ + (symbol->string (gx#stx-e _id22635_)))) (if (let () (declare (not safe)) - (string-index _id-str22923_ '#\.)) - (let ((_split22926_ + (string-index _id-str22638_ '#\.)) + (let ((_split22641_ (let () (declare (not safe)) - (string-split _id-str22923_ '#\.)))) - (fx= (length _split22926_) '2)) + (string-split _id-str22638_ '#\.)))) + (fx= (length _split22641_) '2)) '#f)) '#f))) - (_split-dotted22289_ - (lambda (_id22909_) - (let* ((_id-str22912_ - (symbol->string (gx#stx-e _id22909_))) - (_split22915_ + (_split-dotted22004_ + (lambda (_id22624_) + (let* ((_id-str22627_ + (symbol->string (gx#stx-e _id22624_))) + (_split22630_ (let () (declare (not safe)) - (string-split _id-str22912_ '#\.)))) - (let ((__tmp50005 - (gx#stx-identifier _id22909_ (car _split22915_))) - (__tmp50003 - (let ((__tmp50004 + (string-split _id-str22627_ '#\.)))) + (let ((__tmp49766 + (gx#stx-identifier _id22624_ (car _split22630_))) + (__tmp49764 + (let ((__tmp49765 (gx#stx-identifier - _id22909_ - (cadr _split22915_)))) + _id22624_ + (cadr _split22630_)))) (declare (not safe)) - (cons __tmp50004 '())))) + (cons __tmp49765 '())))) (declare (not safe)) - (cons __tmp50005 __tmp50003)))))) - (let* ((___stx4453444535_ _stx22284_) - (_g2229422381_ + (cons __tmp49766 __tmp49764)))))) + (let* ((___stx4432644327_ _stx21999_) + (_g2200922096_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4453444535_)))) - (let ((___kont4453744538_ - (lambda (_L22802_ _L22804_ _L22805_) - (let* ((_g2283322848_ - (lambda (_g2283422844_) + ___stx4432644327_)))) + (let ((___kont4432944330_ + (lambda (_L22517_ _L22519_ _L22520_) + (let* ((_g2254822563_ + (lambda (_g2254922559_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2283422844_))) - (_g2283222901_ - (lambda (_g2283422852_) - (if (gx#stx-pair? _g2283422852_) - (let ((_e2283922855_ - (gx#syntax-e _g2283422852_))) - (let ((_hd2283822859_ + _g2254922559_))) + (_g2254722616_ + (lambda (_g2254922567_) + (if (gx#stx-pair? _g2254922567_) + (let ((_e2255422570_ + (gx#syntax-e _g2254922567_))) + (let ((_hd2255322574_ (let () (declare (not safe)) - (##car _e2283922855_))) - (_tl2283722862_ + (##car _e2255422570_))) + (_tl2255222577_ (let () (declare (not safe)) - (##cdr _e2283922855_)))) - (if (gx#stx-pair? _tl2283722862_) - (let ((_e2284222865_ + (##cdr _e2255422570_)))) + (if (gx#stx-pair? _tl2255222577_) + (let ((_e2255722580_ (gx#syntax-e - _tl2283722862_))) - (let ((_hd2284122869_ + _tl2255222577_))) + (let ((_hd2255622584_ (let () (declare (not safe)) - (##car _e2284222865_))) - (_tl2284022872_ + (##car _e2255722580_))) + (_tl2255522587_ (let () (declare (not safe)) - (##cdr _e2284222865_)))) + (##cdr _e2255722580_)))) (if (gx#stx-null? - _tl2284022872_) - ((lambda (_L22875_ _L22877_) + _tl2255522587_) + ((lambda (_L22590_ _L22592_) (let () - (let ((__tmp50018 + (let ((__tmp49779 (gx#datum->syntax '#f 'apply)) - (__tmp50006 - (let ((__tmp50017 + (__tmp49767 + (let ((__tmp49778 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'call-method)) - (__tmp50007 - (let ((__tmp50008 - (let ((__tmp50014 - (let ((__tmp50016 + (__tmp49768 + (let ((__tmp49769 + (let ((__tmp49775 + (let ((__tmp49777 (gx#datum->syntax '#f 'quote)) - (__tmp50015 + (__tmp49776 (let () (declare (not safe)) - (cons _L22875_ '())))) + (cons _L22590_ '())))) (declare (not safe)) - (cons __tmp50016 __tmp50015))) - (__tmp50009 - (let ((__tmp50010 - (let ((__tmp50013 + (cons __tmp49777 __tmp49776))) + (__tmp49770 + (let ((__tmp49771 + (let ((__tmp49774 (gx#datum->syntax '#f '@list)) - (__tmp50011 - (let ((__tmp50012 + (__tmp49772 + (let ((__tmp49773 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2289222895_ _g2289322898_) + (lambda (_g2260722610_ _g2260822613_) (let () (declare (not safe)) - (cons _g2289222895_ _g2289322898_))))) + (cons _g2260722610_ _g2260822613_))))) (declare (not safe)) - (foldr1 __tmp50012 '() _L22804_)))) + (foldr1 __tmp49773 '() _L22519_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50013 - __tmp50011)))) + (cons __tmp49774 + __tmp49772)))) (declare (not safe)) - (cons __tmp50010 '())))) + (cons __tmp49771 '())))) (declare (not safe)) - (cons __tmp50014 __tmp50009)))) + (cons __tmp49775 __tmp49770)))) (declare (not safe)) - (cons _L22877_ __tmp50008)))) + (cons _L22592_ __tmp49769)))) (declare (not safe)) - (cons __tmp50017 __tmp50007)))) + (cons __tmp49778 __tmp49768)))) (declare (not safe)) - (cons __tmp50018 __tmp50006)))) + (cons __tmp49779 __tmp49767)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2284122869_ - _hd2283822859_) - (_g2283322848_ - _g2283422852_)))) - (_g2283322848_ _g2283422852_)))) - (_g2283322848_ _g2283422852_))))) - (_g2283222901_ (_split-dotted22289_ _L22805_))))) - (___kont4454144542_ - (lambda (_L22644_ _L22646_) - (let* ((_g2266322678_ - (lambda (_g2266422674_) + _hd2255622584_ + _hd2255322574_) + (_g2254822563_ + _g2254922567_)))) + (_g2254822563_ _g2254922567_)))) + (_g2254822563_ _g2254922567_))))) + (_g2254722616_ (_split-dotted22004_ _L22520_))))) + (___kont4433344334_ + (lambda (_L22359_ _L22361_) + (let* ((_g2237822393_ + (lambda (_g2237922389_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2266422674_))) - (_g2266222731_ - (lambda (_g2266422682_) - (if (gx#stx-pair? _g2266422682_) - (let ((_e2266922685_ - (gx#syntax-e _g2266422682_))) - (let ((_hd2266822689_ + _g2237922389_))) + (_g2237722446_ + (lambda (_g2237922397_) + (if (gx#stx-pair? _g2237922397_) + (let ((_e2238422400_ + (gx#syntax-e _g2237922397_))) + (let ((_hd2238322404_ (let () (declare (not safe)) - (##car _e2266922685_))) - (_tl2266722692_ + (##car _e2238422400_))) + (_tl2238222407_ (let () (declare (not safe)) - (##cdr _e2266922685_)))) - (if (gx#stx-pair? _tl2266722692_) - (let ((_e2267222695_ + (##cdr _e2238422400_)))) + (if (gx#stx-pair? _tl2238222407_) + (let ((_e2238722410_ (gx#syntax-e - _tl2266722692_))) - (let ((_hd2267122699_ + _tl2238222407_))) + (let ((_hd2238622414_ (let () (declare (not safe)) - (##car _e2267222695_))) - (_tl2267022702_ + (##car _e2238722410_))) + (_tl2238522417_ (let () (declare (not safe)) - (##cdr _e2267222695_)))) + (##cdr _e2238722410_)))) (if (gx#stx-null? - _tl2267022702_) - ((lambda (_L22705_ _L22707_) + _tl2238522417_) + ((lambda (_L22420_ _L22422_) (let () - (let ((__tmp50026 + (let ((__tmp49787 (gx#datum->syntax '#f 'call-method)) - (__tmp50019 - (let ((__tmp50020 + (__tmp49780 + (let ((__tmp49781 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50023 - (let ((__tmp50025 + (let ((__tmp49784 + (let ((__tmp49786 (gx#datum->syntax '#f 'quote)) - (__tmp50024 + (__tmp49785 (let () (declare (not safe)) - (cons _L22705_ '())))) + (cons _L22420_ '())))) (declare (not safe)) - (cons __tmp50025 __tmp50024))) - (__tmp50021 - (let ((__tmp50022 - (lambda (_g2272222725_ - _g2272322728_) + (cons __tmp49786 __tmp49785))) + (__tmp49782 + (let ((__tmp49783 + (lambda (_g2243722440_ + _g2243822443_) (let () (declare (not safe)) - (cons _g2272222725_ - _g2272322728_))))) + (cons _g2243722440_ + _g2243822443_))))) (declare (not safe)) - (foldr1 __tmp50022 '() _L22644_)))) + (foldr1 __tmp49783 '() _L22359_)))) (declare (not safe)) - (cons __tmp50023 __tmp50021)))) + (cons __tmp49784 __tmp49782)))) (declare (not safe)) - (cons _L22707_ __tmp50020)))) + (cons _L22422_ __tmp49781)))) (declare (not safe)) - (cons __tmp50026 __tmp50019)))) + (cons __tmp49787 __tmp49780)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2267122699_ - _hd2266822689_) - (_g2266322678_ - _g2266422682_)))) - (_g2266322678_ _g2266422682_)))) - (_g2266322678_ _g2266422682_))))) - (_g2266222731_ (_split-dotted22289_ _L22646_))))) - (___kont4454544546_ - (lambda (_L22548_ _L22550_ _L22551_) - (let ((__tmp50039 (gx#datum->syntax '#f 'apply)) - (__tmp50027 - (let ((__tmp50038 + _hd2238622414_ + _hd2238322404_) + (_g2237822393_ + _g2237922397_)))) + (_g2237822393_ _g2237922397_)))) + (_g2237822393_ _g2237922397_))))) + (_g2237722446_ (_split-dotted22004_ _L22361_))))) + (___kont4433744338_ + (lambda (_L22263_ _L22265_ _L22266_) + (let ((__tmp49800 (gx#datum->syntax '#f 'apply)) + (__tmp49788 + (let ((__tmp49799 (gx#datum->syntax '#f 'call-method)) - (__tmp50028 - (let ((__tmp50029 - (let ((__tmp50035 - (let ((__tmp50037 + (__tmp49789 + (let ((__tmp49790 + (let ((__tmp49796 + (let ((__tmp49798 (gx#datum->syntax '#f 'quote)) - (__tmp50036 + (__tmp49797 (let () (declare (not safe)) - (cons _L22551_ + (cons _L22266_ '())))) (declare (not safe)) - (cons __tmp50037 - __tmp50036))) - (__tmp50030 - (let ((__tmp50031 - (let ((__tmp50034 + (cons __tmp49798 + __tmp49797))) + (__tmp49791 + (let ((__tmp49792 + (let ((__tmp49795 (gx#datum->syntax '#f '@list)) - (__tmp50032 - (let ((__tmp50033 + (__tmp49793 + (let ((__tmp49794 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2257822581_ _g2257922584_) + (lambda (_g2229322296_ _g2229422299_) (let () (declare (not safe)) - (cons _g2257822581_ _g2257922584_))))) + (cons _g2229322296_ _g2229422299_))))) (declare (not safe)) - (foldr1 __tmp50033 '() _L22548_)))) + (foldr1 __tmp49794 '() _L22263_)))) (declare (not safe)) - (cons __tmp50034 __tmp50032)))) + (cons __tmp49795 __tmp49793)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50031 '())))) + (cons __tmp49792 '())))) (declare (not safe)) - (cons __tmp50035 __tmp50030)))) + (cons __tmp49796 __tmp49791)))) (declare (not safe)) - (cons _L22550_ __tmp50029)))) + (cons _L22265_ __tmp49790)))) (declare (not safe)) - (cons __tmp50038 __tmp50028)))) + (cons __tmp49799 __tmp49789)))) (declare (not safe)) - (cons __tmp50039 __tmp50027)))) - (___kont4454944550_ - (lambda (_L22448_ _L22450_ _L22451_) - (let ((__tmp50047 (gx#datum->syntax '#f 'call-method)) - (__tmp50040 - (let ((__tmp50041 - (let ((__tmp50044 - (let ((__tmp50046 + (cons __tmp49800 __tmp49788)))) + (___kont4434144342_ + (lambda (_L22163_ _L22165_ _L22166_) + (let ((__tmp49808 (gx#datum->syntax '#f 'call-method)) + (__tmp49801 + (let ((__tmp49802 + (let ((__tmp49805 + (let ((__tmp49807 (gx#datum->syntax '#f 'quote)) - (__tmp50045 + (__tmp49806 (let () (declare (not safe)) - (cons _L22451_ '())))) + (cons _L22166_ '())))) (declare (not safe)) - (cons __tmp50046 __tmp50045))) - (__tmp50042 - (let ((__tmp50043 - (lambda (_g2247222475_ - _g2247322478_) + (cons __tmp49807 __tmp49806))) + (__tmp49803 + (let ((__tmp49804 + (lambda (_g2218722190_ + _g2218822193_) (let () (declare (not safe)) - (cons _g2247222475_ - _g2247322478_))))) + (cons _g2218722190_ + _g2218822193_))))) (declare (not safe)) - (foldr1 __tmp50043 '() _L22448_)))) + (foldr1 __tmp49804 '() _L22163_)))) (declare (not safe)) - (cons __tmp50044 __tmp50042)))) + (cons __tmp49805 __tmp49803)))) (declare (not safe)) - (cons _L22450_ __tmp50041)))) + (cons _L22165_ __tmp49802)))) (declare (not safe)) - (cons __tmp50047 __tmp50040))))) - (let* ((___match4465344654_ - (lambda (_e2236022388_ - _hd2235922392_ - _tl2235822395_ - _e2236322398_ - _hd2236222402_ - _tl2236122405_ - _e2236622408_ - _hd2236522412_ - _tl2236422415_ - ___splice4455144552_ - _target2236722418_ - _tl2236922421_) - (letrec ((_loop2237022424_ - (lambda (_hd2236822428_ _arg2237422431_) - (if (gx#stx-pair? _hd2236822428_) - (let ((_e2237122434_ - (gx#syntax-e _hd2236822428_))) - (let ((_lp-tl2237322441_ + (cons __tmp49808 __tmp49801))))) + (let* ((___match4444544446_ + (lambda (_e2207522103_ + _hd2207422107_ + _tl2207322110_ + _e2207822113_ + _hd2207722117_ + _tl2207622120_ + _e2208122123_ + _hd2208022127_ + _tl2207922130_ + ___splice4434344344_ + _target2208222133_ + _tl2208422136_) + (letrec ((_loop2208522139_ + (lambda (_hd2208322143_ _arg2208922146_) + (if (gx#stx-pair? _hd2208322143_) + (let ((_e2208622149_ + (gx#syntax-e _hd2208322143_))) + (let ((_lp-tl2208822156_ (let () (declare (not safe)) - (##cdr _e2237122434_))) - (_lp-hd2237222438_ + (##cdr _e2208622149_))) + (_lp-hd2208722153_ (let () (declare (not safe)) - (##car _e2237122434_)))) - (_loop2237022424_ - _lp-tl2237322441_ + (##car _e2208622149_)))) + (_loop2208522139_ + _lp-tl2208822156_ (let () (declare (not safe)) - (cons _lp-hd2237222438_ - _arg2237422431_))))) - (let ((_arg2237522444_ - (reverse _arg2237422431_))) - (let ((_L22448_ _arg2237522444_) - (_L22450_ _hd2236522412_) - (_L22451_ _hd2236222402_)) - (if (gx#identifier? _L22451_) - (___kont4454944550_ - _L22448_ - _L22450_ - _L22451_) + (cons _lp-hd2208722153_ + _arg2208922146_))))) + (let ((_arg2209022159_ + (reverse _arg2208922146_))) + (let ((_L22163_ _arg2209022159_) + (_L22165_ _hd2208022127_) + (_L22166_ _hd2207722117_)) + (if (gx#identifier? _L22166_) + (___kont4434144342_ + _L22163_ + _L22165_ + _L22166_) (let () (declare (not safe)) - (_g2229422381_))))))))) - (_loop2237022424_ _target2236722418_ '())))) - (___match4462744628_ - (lambda (_e2233922488_ - _hd2233822492_ - _tl2233722495_ - _e2234222498_ - _hd2234122502_ - _tl2234022505_ - _e2234522508_ - _hd2234422512_ - _tl2234322515_ - ___splice4454744548_ - _target2234622518_ - _tl2234822521_) - (letrec ((_loop2234922524_ - (lambda (_hd2234722528_ _arg2235322531_) - (if (gx#stx-pair? _hd2234722528_) - (let ((_e2235022534_ - (gx#syntax-e _hd2234722528_))) - (let ((_lp-tl2235222541_ + (_g2200922096_))))))))) + (_loop2208522139_ _target2208222133_ '())))) + (___match4441944420_ + (lambda (_e2205422203_ + _hd2205322207_ + _tl2205222210_ + _e2205722213_ + _hd2205622217_ + _tl2205522220_ + _e2206022223_ + _hd2205922227_ + _tl2205822230_ + ___splice4433944340_ + _target2206122233_ + _tl2206322236_) + (letrec ((_loop2206422239_ + (lambda (_hd2206222243_ _arg2206822246_) + (if (gx#stx-pair? _hd2206222243_) + (let ((_e2206522249_ + (gx#syntax-e _hd2206222243_))) + (let ((_lp-tl2206722256_ (let () (declare (not safe)) - (##cdr _e2235022534_))) - (_lp-hd2235122538_ + (##cdr _e2206522249_))) + (_lp-hd2206622253_ (let () (declare (not safe)) - (##car _e2235022534_)))) - (_loop2234922524_ - _lp-tl2235222541_ + (##car _e2206522249_)))) + (_loop2206422239_ + _lp-tl2206722256_ (let () (declare (not safe)) - (cons _lp-hd2235122538_ - _arg2235322531_))))) - (let ((_arg2235422544_ - (reverse _arg2235322531_))) - (let ((_L22548_ _arg2235422544_) - (_L22550_ _hd2234422512_) - (_L22551_ _hd2234122502_)) - (if (and (gx#identifier? _L22551_) + (cons _lp-hd2206622253_ + _arg2206822246_))))) + (let ((_arg2206922259_ + (reverse _arg2206822246_))) + (let ((_L22263_ _arg2206922259_) + (_L22265_ _hd2205922227_) + (_L22266_ _hd2205622217_)) + (if (and (gx#identifier? _L22266_) (gx#stx-ormap gx#ellipsis? - (let ((__tmp50048 - (lambda (_g2257022573_ + (let ((__tmp49809 + (lambda (_g2228522288_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2257122576_) + _g2228622291_) (let () (declare (not safe)) - (cons _g2257022573_ _g2257122576_))))) + (cons _g2228522288_ _g2228622291_))))) (declare (not safe)) - (foldr1 __tmp50048 '() _L22548_)))) + (foldr1 __tmp49809 '() _L22263_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4454544546_ - _L22548_ - _L22550_ - _L22551_) - (___match4465344654_ - _e2233922488_ - _hd2233822492_ - _tl2233722495_ - _e2234222498_ - _hd2234122502_ - _tl2234022505_ - _e2234522508_ - _hd2234422512_ - _tl2234322515_ - ___splice4454744548_ - _target2234622518_ - _tl2234822521_)))))))) - (_loop2234922524_ _target2234622518_ '())))) - (___match4461344614_ - (lambda (_e2233922488_ - _hd2233822492_ - _tl2233722495_ - _e2234222498_ - _hd2234122502_ - _tl2234022505_) - (if (gx#stx-pair? _tl2234022505_) - (let ((_e2234522508_ (gx#syntax-e _tl2234022505_))) - (let ((_tl2234322515_ + (___kont4433744338_ + _L22263_ + _L22265_ + _L22266_) + (___match4444544446_ + _e2205422203_ + _hd2205322207_ + _tl2205222210_ + _e2205722213_ + _hd2205622217_ + _tl2205522220_ + _e2206022223_ + _hd2205922227_ + _tl2205822230_ + ___splice4433944340_ + _target2206122233_ + _tl2206322236_)))))))) + (_loop2206422239_ _target2206122233_ '())))) + (___match4440544406_ + (lambda (_e2205422203_ + _hd2205322207_ + _tl2205222210_ + _e2205722213_ + _hd2205622217_ + _tl2205522220_) + (if (gx#stx-pair? _tl2205522220_) + (let ((_e2206022223_ (gx#syntax-e _tl2205522220_))) + (let ((_tl2205822230_ (let () (declare (not safe)) - (##cdr _e2234522508_))) - (_hd2234422512_ + (##cdr _e2206022223_))) + (_hd2205922227_ (let () (declare (not safe)) - (##car _e2234522508_)))) - (if (gx#stx-pair/null? _tl2234322515_) - (let ((___splice4454744548_ + (##car _e2206022223_)))) + (if (gx#stx-pair/null? _tl2205822230_) + (let ((___splice4433944340_ (gx#syntax-split-splice - _tl2234322515_ + _tl2205822230_ '0))) - (let ((_tl2234822521_ + (let ((_tl2206322236_ (let () (declare (not safe)) (##vector-ref - ___splice4454744548_ + ___splice4433944340_ '1))) - (_target2234622518_ + (_target2206122233_ (let () (declare (not safe)) (##vector-ref - ___splice4454744548_ + ___splice4433944340_ '0)))) - (if (gx#stx-null? _tl2234822521_) - (___match4462744628_ - _e2233922488_ - _hd2233822492_ - _tl2233722495_ - _e2234222498_ - _hd2234122502_ - _tl2234022505_ - _e2234522508_ - _hd2234422512_ - _tl2234322515_ - ___splice4454744548_ - _target2234622518_ - _tl2234822521_) + (if (gx#stx-null? _tl2206322236_) + (___match4441944420_ + _e2205422203_ + _hd2205322207_ + _tl2205222210_ + _e2205722213_ + _hd2205622217_ + _tl2205522220_ + _e2206022223_ + _hd2205922227_ + _tl2205822230_ + ___splice4433944340_ + _target2206122233_ + _tl2206322236_) (let () (declare (not safe)) - (_g2229422381_))))) + (_g2200922096_))))) (let () (declare (not safe)) - (_g2229422381_))))) - (let () (declare (not safe)) (_g2229422381_))))) - (___match4460144602_ - (lambda (_e2232122594_ - _hd2232022598_ - _tl2231922601_ - _e2232422604_ - _hd2232322608_ - _tl2232222611_ - ___splice4454344544_ - _target2232522614_ - _tl2232722617_) - (letrec ((_loop2232822620_ - (lambda (_hd2232622624_ _arg2233222627_) - (if (gx#stx-pair? _hd2232622624_) - (let ((_e2232922630_ - (gx#syntax-e _hd2232622624_))) - (let ((_lp-tl2233122637_ + (_g2200922096_))))) + (let () (declare (not safe)) (_g2200922096_))))) + (___match4439344394_ + (lambda (_e2203622309_ + _hd2203522313_ + _tl2203422316_ + _e2203922319_ + _hd2203822323_ + _tl2203722326_ + ___splice4433544336_ + _target2204022329_ + _tl2204222332_) + (letrec ((_loop2204322335_ + (lambda (_hd2204122339_ _arg2204722342_) + (if (gx#stx-pair? _hd2204122339_) + (let ((_e2204422345_ + (gx#syntax-e _hd2204122339_))) + (let ((_lp-tl2204622352_ (let () (declare (not safe)) - (##cdr _e2232922630_))) - (_lp-hd2233022634_ + (##cdr _e2204422345_))) + (_lp-hd2204522349_ (let () (declare (not safe)) - (##car _e2232922630_)))) - (_loop2232822620_ - _lp-tl2233122637_ + (##car _e2204422345_)))) + (_loop2204322335_ + _lp-tl2204622352_ (let () (declare (not safe)) - (cons _lp-hd2233022634_ - _arg2233222627_))))) - (let ((_arg2233322640_ - (reverse _arg2233222627_))) - (let ((_L22644_ _arg2233322640_) - (_L22646_ _hd2232322608_)) - (if (_dotted-identifier?22287_ - _L22646_) - (___kont4454144542_ - _L22644_ - _L22646_) - (___match4461344614_ - _e2232122594_ - _hd2232022598_ - _tl2231922601_ - _e2232422604_ - _hd2232322608_ - _tl2232222611_)))))))) - (_loop2232822620_ _target2232522614_ '())))) - (___match4459944600_ - (lambda (_e2232122594_ - _hd2232022598_ - _tl2231922601_ - _e2232422604_ - _hd2232322608_ - _tl2232222611_ - ___splice4454344544_ - _target2232522614_ - _tl2232722617_) - (if (gx#stx-null? _tl2232722617_) - (___match4460144602_ - _e2232122594_ - _hd2232022598_ - _tl2231922601_ - _e2232422604_ - _hd2232322608_ - _tl2232222611_ - ___splice4454344544_ - _target2232522614_ - _tl2232722617_) - (if (gx#stx-pair? _tl2232222611_) - (let ((_e2234522508_ - (gx#syntax-e _tl2232222611_))) - (let ((_tl2234322515_ + (cons _lp-hd2204522349_ + _arg2204722342_))))) + (let ((_arg2204822355_ + (reverse _arg2204722342_))) + (let ((_L22359_ _arg2204822355_) + (_L22361_ _hd2203822323_)) + (if (_dotted-identifier?22002_ + _L22361_) + (___kont4433344334_ + _L22359_ + _L22361_) + (___match4440544406_ + _e2203622309_ + _hd2203522313_ + _tl2203422316_ + _e2203922319_ + _hd2203822323_ + _tl2203722326_)))))))) + (_loop2204322335_ _target2204022329_ '())))) + (___match4439144392_ + (lambda (_e2203622309_ + _hd2203522313_ + _tl2203422316_ + _e2203922319_ + _hd2203822323_ + _tl2203722326_ + ___splice4433544336_ + _target2204022329_ + _tl2204222332_) + (if (gx#stx-null? _tl2204222332_) + (___match4439344394_ + _e2203622309_ + _hd2203522313_ + _tl2203422316_ + _e2203922319_ + _hd2203822323_ + _tl2203722326_ + ___splice4433544336_ + _target2204022329_ + _tl2204222332_) + (if (gx#stx-pair? _tl2203722326_) + (let ((_e2206022223_ + (gx#syntax-e _tl2203722326_))) + (let ((_tl2205822230_ (let () (declare (not safe)) - (##cdr _e2234522508_))) - (_hd2234422512_ + (##cdr _e2206022223_))) + (_hd2205922227_ (let () (declare (not safe)) - (##car _e2234522508_)))) - (if (gx#stx-pair/null? _tl2234322515_) - (let ((___splice4454744548_ + (##car _e2206022223_)))) + (if (gx#stx-pair/null? _tl2205822230_) + (let ((___splice4433944340_ (gx#syntax-split-splice - _tl2234322515_ + _tl2205822230_ '0))) - (let ((_tl2234822521_ + (let ((_tl2206322236_ (let () (declare (not safe)) (##vector-ref - ___splice4454744548_ + ___splice4433944340_ '1))) - (_target2234622518_ + (_target2206122233_ (let () (declare (not safe)) (##vector-ref - ___splice4454744548_ + ___splice4433944340_ '0)))) - (if (gx#stx-null? _tl2234822521_) - (___match4462744628_ - _e2232122594_ - _hd2232022598_ - _tl2231922601_ - _e2232422604_ - _hd2232322608_ - _tl2232222611_ - _e2234522508_ - _hd2234422512_ - _tl2234322515_ - ___splice4454744548_ - _target2234622518_ - _tl2234822521_) + (if (gx#stx-null? _tl2206322236_) + (___match4441944420_ + _e2203622309_ + _hd2203522313_ + _tl2203422316_ + _e2203922319_ + _hd2203822323_ + _tl2203722326_ + _e2206022223_ + _hd2205922227_ + _tl2205822230_ + ___splice4433944340_ + _target2206122233_ + _tl2206322236_) (let () (declare (not safe)) - (_g2229422381_))))) + (_g2200922096_))))) (let () (declare (not safe)) - (_g2229422381_))))) + (_g2200922096_))))) (let () (declare (not safe)) - (_g2229422381_)))))) - (___match4458144582_ - (lambda (_e2230122742_ - _hd2230022746_ - _tl2229922749_ - _e2230422752_ - _hd2230322756_ - _tl2230222759_ - ___splice4453944540_ - _target2230522762_ - _tl2230722765_ - _e2231622768_ - _hd2231522772_ - _tl2231422775_) - (letrec ((_loop2230822778_ - (lambda (_hd2230622782_ _arg2231222785_) - (if (gx#stx-pair? _hd2230622782_) - (let ((_e2230922788_ - (gx#syntax-e _hd2230622782_))) - (let ((_lp-tl2231122795_ + (_g2200922096_)))))) + (___match4437344374_ + (lambda (_e2201622457_ + _hd2201522461_ + _tl2201422464_ + _e2201922467_ + _hd2201822471_ + _tl2201722474_ + ___splice4433144332_ + _target2202022477_ + _tl2202222480_ + _e2203122483_ + _hd2203022487_ + _tl2202922490_) + (letrec ((_loop2202322493_ + (lambda (_hd2202122497_ _arg2202722500_) + (if (gx#stx-pair? _hd2202122497_) + (let ((_e2202422503_ + (gx#syntax-e _hd2202122497_))) + (let ((_lp-tl2202622510_ (let () (declare (not safe)) - (##cdr _e2230922788_))) - (_lp-hd2231022792_ + (##cdr _e2202422503_))) + (_lp-hd2202522507_ (let () (declare (not safe)) - (##car _e2230922788_)))) - (_loop2230822778_ - _lp-tl2231122795_ + (##car _e2202422503_)))) + (_loop2202322493_ + _lp-tl2202622510_ (let () (declare (not safe)) - (cons _lp-hd2231022792_ - _arg2231222785_))))) - (let ((_arg2231322798_ - (reverse _arg2231222785_))) - (let ((_L22802_ _hd2231522772_) - (_L22804_ _arg2231322798_) - (_L22805_ _hd2230322756_)) - (if (and (_dotted-identifier?22287_ - _L22805_) + (cons _lp-hd2202522507_ + _arg2202722500_))))) + (let ((_arg2202822513_ + (reverse _arg2202722500_))) + (let ((_L22517_ _hd2203022487_) + (_L22519_ _arg2202822513_) + (_L22520_ _hd2201822471_)) + (if (and (_dotted-identifier?22002_ + _L22520_) (gx#stx-ormap gx#ellipsis? - (let ((__tmp50049 - (lambda (_g2282422827_ + (let ((__tmp49810 + (lambda (_g2253922542_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2282522830_) + _g2254022545_) (let () (declare (not safe)) - (cons _g2282422827_ _g2282522830_))))) + (cons _g2253922542_ _g2254022545_))))) (declare (not safe)) - (foldr1 __tmp50049 '() _L22804_)))) + (foldr1 __tmp49810 '() _L22519_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4453744538_ - _L22802_ - _L22804_ - _L22805_) - (let ((___splice4454344544_ + (___kont4432944330_ + _L22517_ + _L22519_ + _L22520_) + (let ((___splice4433544336_ (gx#syntax-split-splice - _tl2230222759_ + _tl2201722474_ '0))) - (let ((_tl2232722617_ + (let ((_tl2204222332_ (let () (declare (not safe)) (##vector-ref - ___splice4454344544_ + ___splice4433544336_ '1))) - (_target2232522614_ + (_target2204022329_ (let () (declare (not safe)) (##vector-ref - ___splice4454344544_ + ___splice4433544336_ '0)))) - (___match4459944600_ - _e2230122742_ - _hd2230022746_ - _tl2229922749_ - _e2230422752_ - _hd2230322756_ - _tl2230222759_ - ___splice4454344544_ - _target2232522614_ - _tl2232722617_)))))))))) - (_loop2230822778_ _target2230522762_ '()))))) - (if (gx#stx-pair? ___stx4453444535_) - (let ((_e2230122742_ (gx#syntax-e ___stx4453444535_))) - (let ((_tl2229922749_ + (___match4439144392_ + _e2201622457_ + _hd2201522461_ + _tl2201422464_ + _e2201922467_ + _hd2201822471_ + _tl2201722474_ + ___splice4433544336_ + _target2204022329_ + _tl2204222332_)))))))))) + (_loop2202322493_ _target2202022477_ '()))))) + (if (gx#stx-pair? ___stx4432644327_) + (let ((_e2201622457_ (gx#syntax-e ___stx4432644327_))) + (let ((_tl2201422464_ (let () (declare (not safe)) - (##cdr _e2230122742_))) - (_hd2230022746_ + (##cdr _e2201622457_))) + (_hd2201522461_ (let () (declare (not safe)) - (##car _e2230122742_)))) - (if (gx#stx-pair? _tl2229922749_) - (let ((_e2230422752_ (gx#syntax-e _tl2229922749_))) - (let ((_tl2230222759_ + (##car _e2201622457_)))) + (if (gx#stx-pair? _tl2201422464_) + (let ((_e2201922467_ (gx#syntax-e _tl2201422464_))) + (let ((_tl2201722474_ (let () (declare (not safe)) - (##cdr _e2230422752_))) - (_hd2230322756_ + (##cdr _e2201922467_))) + (_hd2201822471_ (let () (declare (not safe)) - (##car _e2230422752_)))) - (if (gx#stx-pair/null? _tl2230222759_) - (if (fx>= (gx#stx-length _tl2230222759_) + (##car _e2201922467_)))) + (if (gx#stx-pair/null? _tl2201722474_) + (if (fx>= (gx#stx-length _tl2201722474_) '1) - (let ((___splice4453944540_ + (let ((___splice4433144332_ (gx#syntax-split-splice - _tl2230222759_ + _tl2201722474_ '1))) - (let ((_tl2230722765_ + (let ((_tl2202222480_ (let () (declare (not safe)) (##vector-ref - ___splice4453944540_ + ___splice4433144332_ '1))) - (_target2230522762_ + (_target2202022477_ (let () (declare (not safe)) (##vector-ref - ___splice4453944540_ + ___splice4433144332_ '0)))) - (if (gx#stx-pair? _tl2230722765_) - (let ((_e2231622768_ + (if (gx#stx-pair? _tl2202222480_) + (let ((_e2203122483_ (gx#syntax-e - _tl2230722765_))) - (let ((_tl2231422775_ + _tl2202222480_))) + (let ((_tl2202922490_ (let () (declare (not safe)) - (##cdr _e2231622768_))) - (_hd2231522772_ + (##cdr _e2203122483_))) + (_hd2203022487_ (let () (declare (not safe)) - (##car _e2231622768_)))) + (##car _e2203122483_)))) (if (gx#stx-null? - _tl2231422775_) - (___match4458144582_ - _e2230122742_ - _hd2230022746_ - _tl2229922749_ - _e2230422752_ - _hd2230322756_ - _tl2230222759_ - ___splice4453944540_ - _target2230522762_ - _tl2230722765_ - _e2231622768_ - _hd2231522772_ - _tl2231422775_) - (let ((___splice4454344544_ + _tl2202922490_) + (___match4437344374_ + _e2201622457_ + _hd2201522461_ + _tl2201422464_ + _e2201922467_ + _hd2201822471_ + _tl2201722474_ + ___splice4433144332_ + _target2202022477_ + _tl2202222480_ + _e2203122483_ + _hd2203022487_ + _tl2202922490_) + (let ((___splice4433544336_ (gx#syntax-split-splice - _tl2230222759_ + _tl2201722474_ '0))) - (let ((_tl2232722617_ + (let ((_tl2204222332_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice4454344544_ '1))) - (_target2232522614_ + (##vector-ref ___splice4433544336_ '1))) + (_target2204022329_ (let () (declare (not safe)) - (##vector-ref ___splice4454344544_ '0)))) - (if (gx#stx-null? _tl2232722617_) - (___match4460144602_ - _e2230122742_ - _hd2230022746_ - _tl2229922749_ - _e2230422752_ - _hd2230322756_ - _tl2230222759_ - ___splice4454344544_ - _target2232522614_ - _tl2232722617_) - (if (gx#stx-pair? _tl2230222759_) - (let ((_e2234522508_ (gx#syntax-e _tl2230222759_))) - (let ((_tl2234322515_ + (##vector-ref ___splice4433544336_ '0)))) + (if (gx#stx-null? _tl2204222332_) + (___match4439344394_ + _e2201622457_ + _hd2201522461_ + _tl2201422464_ + _e2201922467_ + _hd2201822471_ + _tl2201722474_ + ___splice4433544336_ + _target2204022329_ + _tl2204222332_) + (if (gx#stx-pair? _tl2201722474_) + (let ((_e2206022223_ (gx#syntax-e _tl2201722474_))) + (let ((_tl2205822230_ (let () (declare (not safe)) - (##cdr _e2234522508_))) - (_hd2234422512_ + (##cdr _e2206022223_))) + (_hd2205922227_ (let () (declare (not safe)) - (##car _e2234522508_)))) - (if (gx#stx-pair/null? _tl2234322515_) - (let ((___splice4454744548_ + (##car _e2206022223_)))) + (if (gx#stx-pair/null? _tl2205822230_) + (let ((___splice4433944340_ (gx#syntax-split-splice - _tl2234322515_ + _tl2205822230_ '0))) - (let ((_tl2234822521_ + (let ((_tl2206322236_ (let () (declare (not safe)) (##vector-ref - ___splice4454744548_ + ___splice4433944340_ '1))) - (_target2234622518_ + (_target2206122233_ (let () (declare (not safe)) (##vector-ref - ___splice4454744548_ + ___splice4433944340_ '0)))) - (if (gx#stx-null? _tl2234822521_) - (___match4462744628_ - _e2230122742_ - _hd2230022746_ - _tl2229922749_ - _e2230422752_ - _hd2230322756_ - _tl2230222759_ - _e2234522508_ - _hd2234422512_ - _tl2234322515_ - ___splice4454744548_ - _target2234622518_ - _tl2234822521_) + (if (gx#stx-null? _tl2206322236_) + (___match4441944420_ + _e2201622457_ + _hd2201522461_ + _tl2201422464_ + _e2201922467_ + _hd2201822471_ + _tl2201722474_ + _e2206022223_ + _hd2205922227_ + _tl2205822230_ + ___splice4433944340_ + _target2206122233_ + _tl2206322236_) (let () (declare (not safe)) - (_g2229422381_))))) + (_g2200922096_))))) (let () (declare (not safe)) - (_g2229422381_))))) + (_g2200922096_))))) (let () (declare (not safe)) - (_g2229422381_))))))))) + (_g2200922096_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___splice4454344544_ + (let ((___splice4433544336_ (gx#syntax-split-splice - _tl2230222759_ + _tl2201722474_ '0))) - (let ((_tl2232722617_ + (let ((_tl2204222332_ (let () (declare (not safe)) (##vector-ref - ___splice4454344544_ + ___splice4433544336_ '1))) - (_target2232522614_ + (_target2204022329_ (let () (declare (not safe)) (##vector-ref - ___splice4454344544_ + ___splice4433544336_ '0)))) (if (gx#stx-null? - _tl2232722617_) - (___match4460144602_ - _e2230122742_ - _hd2230022746_ - _tl2229922749_ - _e2230422752_ - _hd2230322756_ - _tl2230222759_ - ___splice4454344544_ - _target2232522614_ - _tl2232722617_) + _tl2204222332_) + (___match4439344394_ + _e2201622457_ + _hd2201522461_ + _tl2201422464_ + _e2201922467_ + _hd2201822471_ + _tl2201722474_ + ___splice4433544336_ + _target2204022329_ + _tl2204222332_) (if (gx#stx-pair? - _tl2230222759_) - (let ((_e2234522508_ + _tl2201722474_) + (let ((_e2206022223_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2230222759_))) - (let ((_tl2234322515_ + (gx#syntax-e _tl2201722474_))) + (let ((_tl2205822230_ (let () (declare (not safe)) - (##cdr _e2234522508_))) - (_hd2234422512_ + (##cdr _e2206022223_))) + (_hd2205922227_ (let () (declare (not safe)) - (##car _e2234522508_)))) - (if (gx#stx-pair/null? _tl2234322515_) - (let ((___splice4454744548_ - (gx#syntax-split-splice _tl2234322515_ '0))) - (let ((_tl2234822521_ + (##car _e2206022223_)))) + (if (gx#stx-pair/null? _tl2205822230_) + (let ((___splice4433944340_ + (gx#syntax-split-splice _tl2205822230_ '0))) + (let ((_tl2206322236_ (let () (declare (not safe)) - (##vector-ref ___splice4454744548_ '1))) - (_target2234622518_ + (##vector-ref ___splice4433944340_ '1))) + (_target2206122233_ (let () (declare (not safe)) (##vector-ref - ___splice4454744548_ + ___splice4433944340_ '0)))) - (if (gx#stx-null? _tl2234822521_) - (___match4462744628_ - _e2230122742_ - _hd2230022746_ - _tl2229922749_ - _e2230422752_ - _hd2230322756_ - _tl2230222759_ - _e2234522508_ - _hd2234422512_ - _tl2234322515_ - ___splice4454744548_ - _target2234622518_ - _tl2234822521_) + (if (gx#stx-null? _tl2206322236_) + (___match4441944420_ + _e2201622457_ + _hd2201522461_ + _tl2201422464_ + _e2201922467_ + _hd2201822471_ + _tl2201722474_ + _e2206022223_ + _hd2205922227_ + _tl2205822230_ + ___splice4433944340_ + _target2206122233_ + _tl2206322236_) (let () (declare (not safe)) - (_g2229422381_))))) - (let () (declare (not safe)) (_g2229422381_))))) - (let () (declare (not safe)) (_g2229422381_))))))))) + (_g2200922096_))))) + (let () (declare (not safe)) (_g2200922096_))))) + (let () (declare (not safe)) (_g2200922096_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___splice4454344544_ + (let ((___splice4433544336_ (gx#syntax-split-splice - _tl2230222759_ + _tl2201722474_ '0))) - (let ((_tl2232722617_ + (let ((_tl2204222332_ (let () (declare (not safe)) (##vector-ref - ___splice4454344544_ + ___splice4433544336_ '1))) - (_target2232522614_ + (_target2204022329_ (let () (declare (not safe)) (##vector-ref - ___splice4454344544_ + ___splice4433544336_ '0)))) - (if (gx#stx-null? _tl2232722617_) - (___match4460144602_ - _e2230122742_ - _hd2230022746_ - _tl2229922749_ - _e2230422752_ - _hd2230322756_ - _tl2230222759_ - ___splice4454344544_ - _target2232522614_ - _tl2232722617_) + (if (gx#stx-null? _tl2204222332_) + (___match4439344394_ + _e2201622457_ + _hd2201522461_ + _tl2201422464_ + _e2201922467_ + _hd2201822471_ + _tl2201722474_ + ___splice4433544336_ + _target2204022329_ + _tl2204222332_) (if (gx#stx-pair? - _tl2230222759_) - (let ((_e2234522508_ + _tl2201722474_) + (let ((_e2206022223_ (gx#syntax-e - _tl2230222759_))) - (let ((_tl2234322515_ + _tl2201722474_))) + (let ((_tl2205822230_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2234522508_))) - (_hd2234422512_ - (let () (declare (not safe)) (##car _e2234522508_)))) - (if (gx#stx-pair/null? _tl2234322515_) - (let ((___splice4454744548_ - (gx#syntax-split-splice _tl2234322515_ '0))) - (let ((_tl2234822521_ + (##cdr _e2206022223_))) + (_hd2205922227_ + (let () (declare (not safe)) (##car _e2206022223_)))) + (if (gx#stx-pair/null? _tl2205822230_) + (let ((___splice4433944340_ + (gx#syntax-split-splice _tl2205822230_ '0))) + (let ((_tl2206322236_ (let () (declare (not safe)) - (##vector-ref ___splice4454744548_ '1))) - (_target2234622518_ + (##vector-ref ___splice4433944340_ '1))) + (_target2206122233_ (let () (declare (not safe)) - (##vector-ref ___splice4454744548_ '0)))) - (if (gx#stx-null? _tl2234822521_) - (___match4462744628_ - _e2230122742_ - _hd2230022746_ - _tl2229922749_ - _e2230422752_ - _hd2230322756_ - _tl2230222759_ - _e2234522508_ - _hd2234422512_ - _tl2234322515_ - ___splice4454744548_ - _target2234622518_ - _tl2234822521_) - (let () (declare (not safe)) (_g2229422381_))))) - (let () (declare (not safe)) (_g2229422381_))))) + (##vector-ref ___splice4433944340_ '0)))) + (if (gx#stx-null? _tl2206322236_) + (___match4441944420_ + _e2201622457_ + _hd2201522461_ + _tl2201422464_ + _e2201922467_ + _hd2201822471_ + _tl2201722474_ + _e2206022223_ + _hd2205922227_ + _tl2205822230_ + ___splice4433944340_ + _target2206122233_ + _tl2206322236_) + (let () (declare (not safe)) (_g2200922096_))))) + (let () (declare (not safe)) (_g2200922096_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2229422381_))))))) - (if (gx#stx-pair? _tl2230222759_) - (let ((_e2234522508_ - (gx#syntax-e _tl2230222759_))) - (let ((_tl2234322515_ + (_g2200922096_))))))) + (if (gx#stx-pair? _tl2201722474_) + (let ((_e2206022223_ + (gx#syntax-e _tl2201722474_))) + (let ((_tl2205822230_ (let () (declare (not safe)) - (##cdr _e2234522508_))) - (_hd2234422512_ + (##cdr _e2206022223_))) + (_hd2205922227_ (let () (declare (not safe)) - (##car _e2234522508_)))) + (##car _e2206022223_)))) (if (gx#stx-pair/null? - _tl2234322515_) - (let ((___splice4454744548_ + _tl2205822230_) + (let ((___splice4433944340_ (gx#syntax-split-splice - _tl2234322515_ + _tl2205822230_ '0))) - (let ((_tl2234822521_ + (let ((_tl2206322236_ (let () (declare (not safe)) (##vector-ref - ___splice4454744548_ + ___splice4433944340_ '1))) - (_target2234622518_ + (_target2206122233_ (let () (declare (not safe)) (##vector-ref - ___splice4454744548_ + ___splice4433944340_ '0)))) (if (gx#stx-null? - _tl2234822521_) - (___match4462744628_ - _e2230122742_ - _hd2230022746_ - _tl2229922749_ - _e2230422752_ - _hd2230322756_ - _tl2230222759_ - _e2234522508_ - _hd2234422512_ - _tl2234322515_ - ___splice4454744548_ - _target2234622518_ - _tl2234822521_) + _tl2206322236_) + (___match4441944420_ + _e2201622457_ + _hd2201522461_ + _tl2201422464_ + _e2201922467_ + _hd2201822471_ + _tl2201722474_ + _e2206022223_ + _hd2205922227_ + _tl2205822230_ + ___splice4433944340_ + _target2206122233_ + _tl2206322236_) (let () (declare (not safe)) - (_g2229422381_))))) + (_g2200922096_))))) (let () (declare (not safe)) - (_g2229422381_))))) + (_g2200922096_))))) (let () (declare (not safe)) - (_g2229422381_)))))) - (let () (declare (not safe)) (_g2229422381_))))) - (let () (declare (not safe)) (_g2229422381_))))))))) + (_g2200922096_)))))) + (let () (declare (not safe)) (_g2200922096_))))) + (let () (declare (not safe)) (_g2200922096_))))))))) (define |gerbil/core$$[:0:]#@| - (lambda (_$stx22933_) - (let* ((___stx4465644657_ _$stx22933_) - (_g2293822978_ + (lambda (_$stx22648_) + (let* ((___stx4444844449_ _$stx22648_) + (_g2265322693_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4465644657_)))) - (let ((___kont4465944660_ - (lambda (_L23116_ _L23118_) - (let ((__tmp50055 (gx#datum->syntax '#f 'slot-ref)) - (__tmp50050 - (let ((__tmp50051 - (let ((__tmp50052 - (let ((__tmp50054 + ___stx4444844449_)))) + (let ((___kont4445144452_ + (lambda (_L22831_ _L22833_) + (let ((__tmp49816 (gx#datum->syntax '#f 'slot-ref)) + (__tmp49811 + (let ((__tmp49812 + (let ((__tmp49813 + (let ((__tmp49815 (gx#datum->syntax '#f 'quote)) - (__tmp50053 + (__tmp49814 (let () (declare (not safe)) - (cons _L23116_ '())))) + (cons _L22831_ '())))) (declare (not safe)) - (cons __tmp50054 __tmp50053)))) + (cons __tmp49815 __tmp49814)))) (declare (not safe)) - (cons __tmp50052 '())))) + (cons __tmp49813 '())))) (declare (not safe)) - (cons _L23118_ __tmp50051)))) + (cons _L22833_ __tmp49812)))) (declare (not safe)) - (cons __tmp50055 __tmp50050)))) - (___kont4466144662_ - (lambda (_L23045_ _L23047_ _L23048_ _L23049_) - (let ((__tmp50056 - (let ((__tmp50059 - (let ((__tmp50060 - (let ((__tmp50061 + (cons __tmp49816 __tmp49811)))) + (___kont4445344454_ + (lambda (_L22760_ _L22762_ _L22763_ _L22764_) + (let ((__tmp49817 + (let ((__tmp49820 + (let ((__tmp49821 + (let ((__tmp49822 (let () (declare (not safe)) - (cons _L23047_ '())))) + (cons _L22762_ '())))) (declare (not safe)) - (cons _L23048_ __tmp50061)))) + (cons _L22763_ __tmp49822)))) (declare (not safe)) - (cons _L23049_ __tmp50060))) - (__tmp50057 - (let ((__tmp50058 - (lambda (_g2307023073_ _g2307123076_) + (cons _L22764_ __tmp49821))) + (__tmp49818 + (let ((__tmp49819 + (lambda (_g2278522788_ _g2278622791_) (let () (declare (not safe)) - (cons _g2307023073_ - _g2307123076_))))) + (cons _g2278522788_ + _g2278622791_))))) (declare (not safe)) - (foldr1 __tmp50058 '() _L23045_)))) + (foldr1 __tmp49819 '() _L22760_)))) (declare (not safe)) - (cons __tmp50059 __tmp50057)))) + (cons __tmp49820 __tmp49818)))) (declare (not safe)) - (cons _L23049_ __tmp50056))))) - (let* ((___match4471144712_ - (lambda (_e2295722985_ - _hd2295622989_ - _tl2295522992_ - _e2296022995_ - _hd2295922999_ - _tl2295823002_ - _e2296323005_ - _hd2296223009_ - _tl2296123012_ - ___splice4466344664_ - _target2296423015_ - _tl2296623018_) - (letrec ((_loop2296723021_ - (lambda (_hd2296523025_ _rest2297123028_) - (if (gx#stx-pair? _hd2296523025_) - (let ((_e2296823031_ - (gx#syntax-e _hd2296523025_))) - (let ((_lp-tl2297023038_ + (cons _L22764_ __tmp49817))))) + (let* ((___match4450344504_ + (lambda (_e2267222700_ + _hd2267122704_ + _tl2267022707_ + _e2267522710_ + _hd2267422714_ + _tl2267322717_ + _e2267822720_ + _hd2267722724_ + _tl2267622727_ + ___splice4445544456_ + _target2267922730_ + _tl2268122733_) + (letrec ((_loop2268222736_ + (lambda (_hd2268022740_ _rest2268622743_) + (if (gx#stx-pair? _hd2268022740_) + (let ((_e2268322746_ + (gx#syntax-e _hd2268022740_))) + (let ((_lp-tl2268522753_ (let () (declare (not safe)) - (##cdr _e2296823031_))) - (_lp-hd2296923035_ + (##cdr _e2268322746_))) + (_lp-hd2268422750_ (let () (declare (not safe)) - (##car _e2296823031_)))) - (_loop2296723021_ - _lp-tl2297023038_ + (##car _e2268322746_)))) + (_loop2268222736_ + _lp-tl2268522753_ (let () (declare (not safe)) - (cons _lp-hd2296923035_ - _rest2297123028_))))) - (let ((_rest2297223041_ - (reverse _rest2297123028_))) - (___kont4466144662_ - _rest2297223041_ - _hd2296223009_ - _hd2295922999_ - _hd2295622989_)))))) - (_loop2296723021_ _target2296423015_ '())))) - (___match4468544686_ - (lambda (_e2294423086_ - _hd2294323090_ - _tl2294223093_ - _e2294723096_ - _hd2294623100_ - _tl2294523103_ - _e2295023106_ - _hd2294923110_ - _tl2294823113_) - (let ((_L23116_ _hd2294923110_) - (_L23118_ _hd2294623100_)) - (if (gx#identifier? _L23116_) - (___kont4465944660_ _L23116_ _L23118_) - (if (gx#stx-pair/null? _tl2294823113_) - (let ((___splice4466344664_ + (cons _lp-hd2268422750_ + _rest2268622743_))))) + (let ((_rest2268722756_ + (reverse _rest2268622743_))) + (___kont4445344454_ + _rest2268722756_ + _hd2267722724_ + _hd2267422714_ + _hd2267122704_)))))) + (_loop2268222736_ _target2267922730_ '())))) + (___match4447744478_ + (lambda (_e2265922801_ + _hd2265822805_ + _tl2265722808_ + _e2266222811_ + _hd2266122815_ + _tl2266022818_ + _e2266522821_ + _hd2266422825_ + _tl2266322828_) + (let ((_L22831_ _hd2266422825_) + (_L22833_ _hd2266122815_)) + (if (gx#identifier? _L22831_) + (___kont4445144452_ _L22831_ _L22833_) + (if (gx#stx-pair/null? _tl2266322828_) + (let ((___splice4445544456_ (gx#syntax-split-splice - _tl2294823113_ + _tl2266322828_ '0))) - (let ((_tl2296623018_ + (let ((_tl2268122733_ (let () (declare (not safe)) (##vector-ref - ___splice4466344664_ + ___splice4445544456_ '1))) - (_target2296423015_ + (_target2267922730_ (let () (declare (not safe)) (##vector-ref - ___splice4466344664_ + ___splice4445544456_ '0)))) - (if (gx#stx-null? _tl2296623018_) - (___match4471144712_ - _e2294423086_ - _hd2294323090_ - _tl2294223093_ - _e2294723096_ - _hd2294623100_ - _tl2294523103_ - _e2295023106_ - _hd2294923110_ - _tl2294823113_ - ___splice4466344664_ - _target2296423015_ - _tl2296623018_) + (if (gx#stx-null? _tl2268122733_) + (___match4450344504_ + _e2265922801_ + _hd2265822805_ + _tl2265722808_ + _e2266222811_ + _hd2266122815_ + _tl2266022818_ + _e2266522821_ + _hd2266422825_ + _tl2266322828_ + ___splice4445544456_ + _target2267922730_ + _tl2268122733_) (let () (declare (not safe)) - (_g2293822978_))))) + (_g2265322693_))))) (let () (declare (not safe)) - (_g2293822978_)))))))) - (if (gx#stx-pair? ___stx4465644657_) - (let ((_e2294423086_ (gx#syntax-e ___stx4465644657_))) - (let ((_tl2294223093_ - (let () (declare (not safe)) (##cdr _e2294423086_))) - (_hd2294323090_ + (_g2265322693_)))))))) + (if (gx#stx-pair? ___stx4444844449_) + (let ((_e2265922801_ (gx#syntax-e ___stx4444844449_))) + (let ((_tl2265722808_ + (let () (declare (not safe)) (##cdr _e2265922801_))) + (_hd2265822805_ (let () (declare (not safe)) - (##car _e2294423086_)))) - (if (gx#stx-pair? _tl2294223093_) - (let ((_e2294723096_ (gx#syntax-e _tl2294223093_))) - (let ((_tl2294523103_ + (##car _e2265922801_)))) + (if (gx#stx-pair? _tl2265722808_) + (let ((_e2266222811_ (gx#syntax-e _tl2265722808_))) + (let ((_tl2266022818_ (let () (declare (not safe)) - (##cdr _e2294723096_))) - (_hd2294623100_ + (##cdr _e2266222811_))) + (_hd2266122815_ (let () (declare (not safe)) - (##car _e2294723096_)))) - (if (gx#stx-pair? _tl2294523103_) - (let ((_e2295023106_ - (gx#syntax-e _tl2294523103_))) - (let ((_tl2294823113_ + (##car _e2266222811_)))) + (if (gx#stx-pair? _tl2266022818_) + (let ((_e2266522821_ + (gx#syntax-e _tl2266022818_))) + (let ((_tl2266322828_ (let () (declare (not safe)) - (##cdr _e2295023106_))) - (_hd2294923110_ + (##cdr _e2266522821_))) + (_hd2266422825_ (let () (declare (not safe)) - (##car _e2295023106_)))) - (if (gx#stx-null? _tl2294823113_) - (___match4468544686_ - _e2294423086_ - _hd2294323090_ - _tl2294223093_ - _e2294723096_ - _hd2294623100_ - _tl2294523103_ - _e2295023106_ - _hd2294923110_ - _tl2294823113_) + (##car _e2266522821_)))) + (if (gx#stx-null? _tl2266322828_) + (___match4447744478_ + _e2265922801_ + _hd2265822805_ + _tl2265722808_ + _e2266222811_ + _hd2266122815_ + _tl2266022818_ + _e2266522821_ + _hd2266422825_ + _tl2266322828_) (if (gx#stx-pair/null? - _tl2294823113_) - (let ((___splice4466344664_ + _tl2266322828_) + (let ((___splice4445544456_ (gx#syntax-split-splice - _tl2294823113_ + _tl2266322828_ '0))) - (let ((_tl2296623018_ + (let ((_tl2268122733_ (let () (declare (not safe)) (##vector-ref - ___splice4466344664_ + ___splice4445544456_ '1))) - (_target2296423015_ + (_target2267922730_ (let () (declare (not safe)) (##vector-ref - ___splice4466344664_ + ___splice4445544456_ '0)))) (if (gx#stx-null? - _tl2296623018_) - (___match4471144712_ - _e2294423086_ - _hd2294323090_ - _tl2294223093_ - _e2294723096_ - _hd2294623100_ - _tl2294523103_ - _e2295023106_ - _hd2294923110_ - _tl2294823113_ - ___splice4466344664_ - _target2296423015_ - _tl2296623018_) + _tl2268122733_) + (___match4450344504_ + _e2265922801_ + _hd2265822805_ + _tl2265722808_ + _e2266222811_ + _hd2266122815_ + _tl2266022818_ + _e2266522821_ + _hd2266422825_ + _tl2266322828_ + ___splice4445544456_ + _target2267922730_ + _tl2268122733_) (let () (declare (not safe)) - (_g2293822978_))))) + (_g2265322693_))))) (let () (declare (not safe)) - (_g2293822978_)))))) + (_g2265322693_)))))) (let () (declare (not safe)) - (_g2293822978_))))) - (let () (declare (not safe)) (_g2293822978_))))) - (let () (declare (not safe)) (_g2293822978_)))))))) + (_g2265322693_))))) + (let () (declare (not safe)) (_g2265322693_))))) + (let () (declare (not safe)) (_g2265322693_)))))))) (define |gerbil/core$$[:0:]#@-set!| - (lambda (_$stx23138_) - (let* ((___stx4471444715_ _$stx23138_) - (_g2314323195_ + (lambda (_$stx22853_) + (let* ((___stx4450644507_ _$stx22853_) + (_g2285822910_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4471444715_)))) - (let ((___kont4471744718_ - (lambda (_L23371_ _L23373_ _L23374_) - (let ((__tmp50068 (gx#datum->syntax '#f 'slot-set!)) - (__tmp50062 - (let ((__tmp50063 - (let ((__tmp50065 - (let ((__tmp50067 + ___stx4450644507_)))) + (let ((___kont4450944510_ + (lambda (_L23086_ _L23088_ _L23089_) + (let ((__tmp49829 (gx#datum->syntax '#f 'slot-set!)) + (__tmp49823 + (let ((__tmp49824 + (let ((__tmp49826 + (let ((__tmp49828 (gx#datum->syntax '#f 'quote)) - (__tmp50066 + (__tmp49827 (let () (declare (not safe)) - (cons _L23373_ '())))) + (cons _L23088_ '())))) (declare (not safe)) - (cons __tmp50067 __tmp50066))) - (__tmp50064 + (cons __tmp49828 __tmp49827))) + (__tmp49825 (let () (declare (not safe)) - (cons _L23371_ '())))) + (cons _L23086_ '())))) (declare (not safe)) - (cons __tmp50065 __tmp50064)))) + (cons __tmp49826 __tmp49825)))) (declare (not safe)) - (cons _L23374_ __tmp50063)))) + (cons _L23089_ __tmp49824)))) (declare (not safe)) - (cons __tmp50068 __tmp50062)))) - (___kont4471944720_ - (lambda (_L23282_ - _L23284_ - _L23285_ - _L23286_ - _L23287_ - _L23288_) - (let ((__tmp50069 - (let ((__tmp50072 - (let ((__tmp50077 (gx#datum->syntax '#f '@)) - (__tmp50073 - (let ((__tmp50074 - (let ((__tmp50075 - (let ((__tmp50076 - (lambda (_g2331523318_ + (cons __tmp49829 __tmp49823)))) + (___kont4451144512_ + (lambda (_L22997_ + _L22999_ + _L23000_ + _L23001_ + _L23002_ + _L23003_) + (let ((__tmp49830 + (let ((__tmp49833 + (let ((__tmp49838 (gx#datum->syntax '#f '@)) + (__tmp49834 + (let ((__tmp49835 + (let ((__tmp49836 + (let ((__tmp49837 + (lambda (_g2303023033_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2331623321_) + _g2303123036_) (let () (declare (not safe)) - (cons _g2331523318_ _g2331623321_))))) + (cons _g2303023033_ _g2303123036_))))) (declare (not safe)) - (foldr1 __tmp50076 '() _L23285_)))) + (foldr1 __tmp49837 '() _L23000_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L23286_ __tmp50075)))) + (cons _L23001_ __tmp49836)))) (declare (not safe)) - (cons _L23287_ __tmp50074)))) + (cons _L23002_ __tmp49835)))) (declare (not safe)) - (cons __tmp50077 __tmp50073))) - (__tmp50070 - (let ((__tmp50071 + (cons __tmp49838 __tmp49834))) + (__tmp49831 + (let ((__tmp49832 (let () (declare (not safe)) - (cons _L23282_ '())))) + (cons _L22997_ '())))) (declare (not safe)) - (cons _L23284_ __tmp50071)))) + (cons _L22999_ __tmp49832)))) (declare (not safe)) - (cons __tmp50072 __tmp50070)))) + (cons __tmp49833 __tmp49831)))) (declare (not safe)) - (cons _L23288_ __tmp50069))))) - (let* ((___match4478944790_ - (lambda (_e2316823202_ - _hd2316723206_ - _tl2316623209_ - _e2317123212_ - _hd2317023216_ - _tl2316923219_ - _e2317423222_ - _hd2317323226_ - _tl2317223229_ - ___splice4472144722_ - _target2317523232_ - _tl2317723235_ - _e2318623238_ - _hd2318523242_ - _tl2318423245_ - _e2318923248_ - _hd2318823252_ - _tl2318723255_) - (letrec ((_loop2317823258_ - (lambda (_hd2317623262_ _path2318223265_) - (if (gx#stx-pair? _hd2317623262_) - (let ((_e2317923268_ - (gx#syntax-e _hd2317623262_))) - (let ((_lp-tl2318123275_ + (cons _L23003_ __tmp49830))))) + (let* ((___match4458144582_ + (lambda (_e2288322917_ + _hd2288222921_ + _tl2288122924_ + _e2288622927_ + _hd2288522931_ + _tl2288422934_ + _e2288922937_ + _hd2288822941_ + _tl2288722944_ + ___splice4451344514_ + _target2289022947_ + _tl2289222950_ + _e2290122953_ + _hd2290022957_ + _tl2289922960_ + _e2290422963_ + _hd2290322967_ + _tl2290222970_) + (letrec ((_loop2289322973_ + (lambda (_hd2289122977_ _path2289722980_) + (if (gx#stx-pair? _hd2289122977_) + (let ((_e2289422983_ + (gx#syntax-e _hd2289122977_))) + (let ((_lp-tl2289622990_ (let () (declare (not safe)) - (##cdr _e2317923268_))) - (_lp-hd2318023272_ + (##cdr _e2289422983_))) + (_lp-hd2289522987_ (let () (declare (not safe)) - (##car _e2317923268_)))) - (_loop2317823258_ - _lp-tl2318123275_ + (##car _e2289422983_)))) + (_loop2289322973_ + _lp-tl2289622990_ (let () (declare (not safe)) - (cons _lp-hd2318023272_ - _path2318223265_))))) - (let ((_path2318323278_ - (reverse _path2318223265_))) - (___kont4471944720_ - _hd2318823252_ - _hd2318523242_ - _path2318323278_ - _hd2317323226_ - _hd2317023216_ - _hd2316723206_)))))) - (_loop2317823258_ _target2317523232_ '())))) - (___match4474944750_ - (lambda (_e2315023331_ - _hd2314923335_ - _tl2314823338_ - _e2315323341_ - _hd2315223345_ - _tl2315123348_ - _e2315623351_ - _hd2315523355_ - _tl2315423358_ - _e2315923361_ - _hd2315823365_ - _tl2315723368_) - (let ((_L23371_ _hd2315823365_) - (_L23373_ _hd2315523355_) - (_L23374_ _hd2315223345_)) - (if (gx#identifier? _L23373_) - (___kont4471744718_ _L23371_ _L23373_ _L23374_) - (if (gx#stx-pair/null? _tl2315423358_) - (if (fx>= (gx#stx-length _tl2315423358_) '2) - (let ((___splice4472144722_ + (cons _lp-hd2289522987_ + _path2289722980_))))) + (let ((_path2289822993_ + (reverse _path2289722980_))) + (___kont4451144512_ + _hd2290322967_ + _hd2290022957_ + _path2289822993_ + _hd2288822941_ + _hd2288522931_ + _hd2288222921_)))))) + (_loop2289322973_ _target2289022947_ '())))) + (___match4454144542_ + (lambda (_e2286523046_ + _hd2286423050_ + _tl2286323053_ + _e2286823056_ + _hd2286723060_ + _tl2286623063_ + _e2287123066_ + _hd2287023070_ + _tl2286923073_ + _e2287423076_ + _hd2287323080_ + _tl2287223083_) + (let ((_L23086_ _hd2287323080_) + (_L23088_ _hd2287023070_) + (_L23089_ _hd2286723060_)) + (if (gx#identifier? _L23088_) + (___kont4450944510_ _L23086_ _L23088_ _L23089_) + (if (gx#stx-pair/null? _tl2286923073_) + (if (fx>= (gx#stx-length _tl2286923073_) '2) + (let ((___splice4451344514_ (gx#syntax-split-splice - _tl2315423358_ + _tl2286923073_ '2))) - (let ((_tl2317723235_ + (let ((_tl2289222950_ (let () (declare (not safe)) (##vector-ref - ___splice4472144722_ + ___splice4451344514_ '1))) - (_target2317523232_ + (_target2289022947_ (let () (declare (not safe)) (##vector-ref - ___splice4472144722_ + ___splice4451344514_ '0)))) - (if (gx#stx-pair? _tl2317723235_) - (let ((_e2318623238_ + (if (gx#stx-pair? _tl2289222950_) + (let ((_e2290122953_ (gx#syntax-e - _tl2317723235_))) - (let ((_tl2318423245_ + _tl2289222950_))) + (let ((_tl2289922960_ (let () (declare (not safe)) - (##cdr _e2318623238_))) - (_hd2318523242_ + (##cdr _e2290122953_))) + (_hd2290022957_ (let () (declare (not safe)) - (##car _e2318623238_)))) + (##car _e2290122953_)))) (if (gx#stx-pair? - _tl2318423245_) - (let ((_e2318923248_ + _tl2289922960_) + (let ((_e2290422963_ (gx#syntax-e - _tl2318423245_))) - (let ((_tl2318723255_ + _tl2289922960_))) + (let ((_tl2290222970_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2318923248_))) - (_hd2318823252_ - (let () (declare (not safe)) (##car _e2318923248_)))) - (if (gx#stx-null? _tl2318723255_) - (___match4478944790_ - _e2315023331_ - _hd2314923335_ - _tl2314823338_ - _e2315323341_ - _hd2315223345_ - _tl2315123348_ - _e2315623351_ - _hd2315523355_ - _tl2315423358_ - ___splice4472144722_ - _target2317523232_ - _tl2317723235_ - _e2318623238_ - _hd2318523242_ - _tl2318423245_ - _e2318923248_ - _hd2318823252_ - _tl2318723255_) - (let () (declare (not safe)) (_g2314323195_))))) + (##cdr _e2290422963_))) + (_hd2290322967_ + (let () (declare (not safe)) (##car _e2290422963_)))) + (if (gx#stx-null? _tl2290222970_) + (___match4458144582_ + _e2286523046_ + _hd2286423050_ + _tl2286323053_ + _e2286823056_ + _hd2286723060_ + _tl2286623063_ + _e2287123066_ + _hd2287023070_ + _tl2286923073_ + ___splice4451344514_ + _target2289022947_ + _tl2289222950_ + _e2290122953_ + _hd2290022957_ + _tl2289922960_ + _e2290422963_ + _hd2290322967_ + _tl2290222970_) + (let () (declare (not safe)) (_g2285822910_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2314323195_))))) + (_g2285822910_))))) (let () (declare (not safe)) - (_g2314323195_))))) + (_g2285822910_))))) (let () (declare (not safe)) - (_g2314323195_))) + (_g2285822910_))) (let () (declare (not safe)) - (_g2314323195_)))))))) - (if (gx#stx-pair? ___stx4471444715_) - (let ((_e2315023331_ (gx#syntax-e ___stx4471444715_))) - (let ((_tl2314823338_ - (let () (declare (not safe)) (##cdr _e2315023331_))) - (_hd2314923335_ + (_g2285822910_)))))))) + (if (gx#stx-pair? ___stx4450644507_) + (let ((_e2286523046_ (gx#syntax-e ___stx4450644507_))) + (let ((_tl2286323053_ + (let () (declare (not safe)) (##cdr _e2286523046_))) + (_hd2286423050_ (let () (declare (not safe)) - (##car _e2315023331_)))) - (if (gx#stx-pair? _tl2314823338_) - (let ((_e2315323341_ (gx#syntax-e _tl2314823338_))) - (let ((_tl2315123348_ + (##car _e2286523046_)))) + (if (gx#stx-pair? _tl2286323053_) + (let ((_e2286823056_ (gx#syntax-e _tl2286323053_))) + (let ((_tl2286623063_ (let () (declare (not safe)) - (##cdr _e2315323341_))) - (_hd2315223345_ + (##cdr _e2286823056_))) + (_hd2286723060_ (let () (declare (not safe)) - (##car _e2315323341_)))) - (if (gx#stx-pair? _tl2315123348_) - (let ((_e2315623351_ - (gx#syntax-e _tl2315123348_))) - (let ((_tl2315423358_ + (##car _e2286823056_)))) + (if (gx#stx-pair? _tl2286623063_) + (let ((_e2287123066_ + (gx#syntax-e _tl2286623063_))) + (let ((_tl2286923073_ (let () (declare (not safe)) - (##cdr _e2315623351_))) - (_hd2315523355_ + (##cdr _e2287123066_))) + (_hd2287023070_ (let () (declare (not safe)) - (##car _e2315623351_)))) - (if (gx#stx-pair? _tl2315423358_) - (let ((_e2315923361_ - (gx#syntax-e _tl2315423358_))) - (let ((_tl2315723368_ + (##car _e2287123066_)))) + (if (gx#stx-pair? _tl2286923073_) + (let ((_e2287423076_ + (gx#syntax-e _tl2286923073_))) + (let ((_tl2287223083_ (let () (declare (not safe)) - (##cdr _e2315923361_))) - (_hd2315823365_ + (##cdr _e2287423076_))) + (_hd2287323080_ (let () (declare (not safe)) - (##car _e2315923361_)))) - (if (gx#stx-null? _tl2315723368_) - (___match4474944750_ - _e2315023331_ - _hd2314923335_ - _tl2314823338_ - _e2315323341_ - _hd2315223345_ - _tl2315123348_ - _e2315623351_ - _hd2315523355_ - _tl2315423358_ - _e2315923361_ - _hd2315823365_ - _tl2315723368_) + (##car _e2287423076_)))) + (if (gx#stx-null? _tl2287223083_) + (___match4454144542_ + _e2286523046_ + _hd2286423050_ + _tl2286323053_ + _e2286823056_ + _hd2286723060_ + _tl2286623063_ + _e2287123066_ + _hd2287023070_ + _tl2286923073_ + _e2287423076_ + _hd2287323080_ + _tl2287223083_) (if (gx#stx-pair/null? - _tl2315423358_) + _tl2286923073_) (if (fx>= (gx#stx-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2315423358_) + _tl2286923073_) '2) - (let ((___splice4472144722_ - (gx#syntax-split-splice _tl2315423358_ '2))) - (let ((_tl2317723235_ + (let ((___splice4451344514_ + (gx#syntax-split-splice _tl2286923073_ '2))) + (let ((_tl2289222950_ (let () (declare (not safe)) - (##vector-ref ___splice4472144722_ '1))) - (_target2317523232_ + (##vector-ref ___splice4451344514_ '1))) + (_target2289022947_ (let () (declare (not safe)) - (##vector-ref ___splice4472144722_ '0)))) - (if (gx#stx-pair? _tl2317723235_) - (let ((_e2318623238_ (gx#syntax-e _tl2317723235_))) - (let ((_tl2318423245_ + (##vector-ref ___splice4451344514_ '0)))) + (if (gx#stx-pair? _tl2289222950_) + (let ((_e2290122953_ (gx#syntax-e _tl2289222950_))) + (let ((_tl2289922960_ (let () (declare (not safe)) - (##cdr _e2318623238_))) - (_hd2318523242_ + (##cdr _e2290122953_))) + (_hd2290022957_ (let () (declare (not safe)) - (##car _e2318623238_)))) - (if (gx#stx-pair? _tl2318423245_) - (let ((_e2318923248_ - (gx#syntax-e _tl2318423245_))) - (let ((_tl2318723255_ + (##car _e2290122953_)))) + (if (gx#stx-pair? _tl2289922960_) + (let ((_e2290422963_ + (gx#syntax-e _tl2289922960_))) + (let ((_tl2290222970_ (let () (declare (not safe)) - (##cdr _e2318923248_))) - (_hd2318823252_ + (##cdr _e2290422963_))) + (_hd2290322967_ (let () (declare (not safe)) - (##car _e2318923248_)))) - (if (gx#stx-null? _tl2318723255_) - (___match4478944790_ - _e2315023331_ - _hd2314923335_ - _tl2314823338_ - _e2315323341_ - _hd2315223345_ - _tl2315123348_ - _e2315623351_ - _hd2315523355_ - _tl2315423358_ - ___splice4472144722_ - _target2317523232_ - _tl2317723235_ - _e2318623238_ - _hd2318523242_ - _tl2318423245_ - _e2318923248_ - _hd2318823252_ - _tl2318723255_) + (##car _e2290422963_)))) + (if (gx#stx-null? _tl2290222970_) + (___match4458144582_ + _e2286523046_ + _hd2286423050_ + _tl2286323053_ + _e2286823056_ + _hd2286723060_ + _tl2286623063_ + _e2287123066_ + _hd2287023070_ + _tl2286923073_ + ___splice4451344514_ + _target2289022947_ + _tl2289222950_ + _e2290122953_ + _hd2290022957_ + _tl2289922960_ + _e2290422963_ + _hd2290322967_ + _tl2290222970_) (let () (declare (not safe)) - (_g2314323195_))))) + (_g2285822910_))))) (let () (declare (not safe)) - (_g2314323195_))))) - (let () (declare (not safe)) (_g2314323195_))))) - (let () (declare (not safe)) (_g2314323195_))) - (let () (declare (not safe)) (_g2314323195_)))))) + (_g2285822910_))))) + (let () (declare (not safe)) (_g2285822910_))))) + (let () (declare (not safe)) (_g2285822910_))) + (let () (declare (not safe)) (_g2285822910_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _tl2315423358_) + _tl2286923073_) (if (fx>= (gx#stx-length - _tl2315423358_) + _tl2286923073_) '2) - (let ((___splice4472144722_ + (let ((___splice4451344514_ (gx#syntax-split-splice - _tl2315423358_ + _tl2286923073_ '2))) - (let ((_tl2317723235_ + (let ((_tl2289222950_ (let () (declare (not safe)) (##vector-ref - ___splice4472144722_ + ___splice4451344514_ '1))) - (_target2317523232_ + (_target2289022947_ (let () (declare (not safe)) (##vector-ref - ___splice4472144722_ + ___splice4451344514_ '0)))) (if (gx#stx-pair? - _tl2317723235_) - (let ((_e2318623238_ + _tl2289222950_) + (let ((_e2290122953_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2317723235_))) - (let ((_tl2318423245_ - (let () (declare (not safe)) (##cdr _e2318623238_))) - (_hd2318523242_ + (gx#syntax-e _tl2289222950_))) + (let ((_tl2289922960_ + (let () (declare (not safe)) (##cdr _e2290122953_))) + (_hd2290022957_ (let () (declare (not safe)) - (##car _e2318623238_)))) - (if (gx#stx-pair? _tl2318423245_) - (let ((_e2318923248_ (gx#syntax-e _tl2318423245_))) - (let ((_tl2318723255_ + (##car _e2290122953_)))) + (if (gx#stx-pair? _tl2289922960_) + (let ((_e2290422963_ (gx#syntax-e _tl2289922960_))) + (let ((_tl2290222970_ (let () (declare (not safe)) - (##cdr _e2318923248_))) - (_hd2318823252_ + (##cdr _e2290422963_))) + (_hd2290322967_ (let () (declare (not safe)) - (##car _e2318923248_)))) - (if (gx#stx-null? _tl2318723255_) - (___match4478944790_ - _e2315023331_ - _hd2314923335_ - _tl2314823338_ - _e2315323341_ - _hd2315223345_ - _tl2315123348_ - _e2315623351_ - _hd2315523355_ - _tl2315423358_ - ___splice4472144722_ - _target2317523232_ - _tl2317723235_ - _e2318623238_ - _hd2318523242_ - _tl2318423245_ - _e2318923248_ - _hd2318823252_ - _tl2318723255_) + (##car _e2290422963_)))) + (if (gx#stx-null? _tl2290222970_) + (___match4458144582_ + _e2286523046_ + _hd2286423050_ + _tl2286323053_ + _e2286823056_ + _hd2286723060_ + _tl2286623063_ + _e2287123066_ + _hd2287023070_ + _tl2286923073_ + ___splice4451344514_ + _target2289022947_ + _tl2289222950_ + _e2290122953_ + _hd2290022957_ + _tl2289922960_ + _e2290422963_ + _hd2290322967_ + _tl2290222970_) (let () (declare (not safe)) - (_g2314323195_))))) - (let () (declare (not safe)) (_g2314323195_))))) - (let () (declare (not safe)) (_g2314323195_))))) + (_g2285822910_))))) + (let () (declare (not safe)) (_g2285822910_))))) + (let () (declare (not safe)) (_g2285822910_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2314323195_))) + (_g2285822910_))) (let () (declare (not safe)) - (_g2314323195_)))))) + (_g2285822910_)))))) (let () (declare (not safe)) - (_g2314323195_))))) - (let () (declare (not safe)) (_g2314323195_))))) - (let () (declare (not safe)) (_g2314323195_)))))))))) + (_g2285822910_))))) + (let () (declare (not safe)) (_g2285822910_))))) + (let () (declare (not safe)) (_g2285822910_)))))))))) diff --git a/src/bootstrap/gerbil/core__9.scm b/src/bootstrap/gerbil/core__9.scm index fef188523..2be63a156 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]#_g50079_| + (define |gerbil/core$[1]#_g49840_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50081_| + (define |gerbil/core$[1]#_g49842_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50083_| + (define |gerbil/core$[1]#_g49844_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50087_| + (define |gerbil/core$[1]#_g49848_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50091_| + (define |gerbil/core$[1]#_g49852_| (##structure gx#syntax-quote::t 'macro-object-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50095_| + (define |gerbil/core$[1]#_g49856_| (##structure gx#syntax-quote::t '¯o-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50099_| + (define |gerbil/core$[1]#_g49860_| (##structure gx#syntax-quote::t '¯o-object-macro-set! @@ -50,7 +50,7 @@ (gx#current-expander-context) '())) (define |gerbil/core$[:0:]#macro-object| - (let ((__obj47559 + (let ((__obj47350 (let () (declare (not safe)) (##structure @@ -72,7 +72,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47559 + __obj47350 'gerbil.core#macro-object::t '1 gerbil/core$$#class-type-info::t @@ -80,7 +80,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47559 + __obj47350 'macro-object '2 gerbil/core$$#class-type-info::t @@ -88,7 +88,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47559 + __obj47350 '(macro) '4 gerbil/core$$#class-type-info::t @@ -96,7 +96,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47559 + __obj47350 '() '3 gerbil/core$$#class-type-info::t @@ -104,7 +104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47559 + __obj47350 '#f '5 gerbil/core$$#class-type-info::t @@ -112,7 +112,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47559 + __obj47350 '#f '6 gerbil/core$$#class-type-info::t @@ -120,93 +120,93 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47559 + __obj47350 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50078 |gerbil/core$[1]#_g50079_|)) + (let ((__tmp49839 |gerbil/core$[1]#_g49840_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47559 - __tmp50078 + __obj47350 + __tmp49839 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50080 |gerbil/core$[1]#_g50081_|)) + (let ((__tmp49841 |gerbil/core$[1]#_g49842_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47559 - __tmp50080 + __obj47350 + __tmp49841 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50082 |gerbil/core$[1]#_g50083_|)) + (let ((__tmp49843 |gerbil/core$[1]#_g49844_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47559 - __tmp50082 + __obj47350 + __tmp49843 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50084 - (let ((__tmp50085 - (let ((__tmp50086 - |gerbil/core$[1]#_g50087_|)) + (let ((__tmp49845 + (let ((__tmp49846 + (let ((__tmp49847 + |gerbil/core$[1]#_g49848_|)) (declare (not safe)) - (cons 'macro __tmp50086)))) + (cons 'macro __tmp49847)))) (declare (not safe)) - (cons __tmp50085 '())))) + (cons __tmp49846 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47559 - __tmp50084 + __obj47350 + __tmp49845 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50088 - (let ((__tmp50089 - (let ((__tmp50090 - |gerbil/core$[1]#_g50091_|)) + (let ((__tmp49849 + (let ((__tmp49850 + (let ((__tmp49851 + |gerbil/core$[1]#_g49852_|)) (declare (not safe)) - (cons 'macro __tmp50090)))) + (cons 'macro __tmp49851)))) (declare (not safe)) - (cons __tmp50089 '())))) + (cons __tmp49850 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47559 - __tmp50088 + __obj47350 + __tmp49849 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50092 - (let ((__tmp50093 - (let ((__tmp50094 - |gerbil/core$[1]#_g50095_|)) + (let ((__tmp49853 + (let ((__tmp49854 + (let ((__tmp49855 + |gerbil/core$[1]#_g49856_|)) (declare (not safe)) - (cons 'macro __tmp50094)))) + (cons 'macro __tmp49855)))) (declare (not safe)) - (cons __tmp50093 '())))) + (cons __tmp49854 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47559 - __tmp50092 + __obj47350 + __tmp49853 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50096 - (let ((__tmp50097 - (let ((__tmp50098 - |gerbil/core$[1]#_g50099_|)) + (let ((__tmp49857 + (let ((__tmp49858 + (let ((__tmp49859 + |gerbil/core$[1]#_g49860_|)) (declare (not safe)) - (cons 'macro __tmp50098)))) + (cons 'macro __tmp49859)))) (declare (not safe)) - (cons __tmp50097 '())))) + (cons __tmp49858 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47559 - __tmp50096 + __obj47350 + __tmp49857 '14 gerbil/core$$#class-type-info::t '#f)) - __obj47559))) + __obj47350))) diff --git a/src/bootstrap/gerbil/expander/common__0.scm b/src/bootstrap/gerbil/expander/common__0.scm index 858e48139..04725d861 100644 --- a/src/bootstrap/gerbil/expander/common__0.scm +++ b/src/bootstrap/gerbil/expander/common__0.scm @@ -1,51 +1,51 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/common::timestamp 1707573211) + (define gerbil/expander/common::timestamp 1707674930) (begin (define gx#AST::t - (let ((__tmp134250 - (let ((__tmp134251 + (let ((__tmp135598 (list)) + (__tmp135596 + (let ((__tmp135597 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp134251 '())))) + (cons __tmp135597 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gerbil#AST::t 'syntax - '#f + __tmp135598 '(e source) - __tmp134250 + __tmp135596 '#f))) (define gx#AST? - (let () (declare (not safe)) (make-struct-predicate gx#AST::t))) + (let () (declare (not safe)) (make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _$args129681_ - (apply make-struct-instance gx#AST::t _$args129681_))) + (lambda _$args130927_ (apply make-instance gx#AST::t _$args130927_))) (define gx#AST-e - (let () (declare (not safe)) (make-struct-slot-accessor gx#AST::t 'e))) + (let () (declare (not safe)) (make-class-slot-accessor gx#AST::t 'e))) (define gx#AST-source (let () (declare (not safe)) - (make-struct-slot-accessor gx#AST::t 'source))) + (make-class-slot-accessor gx#AST::t 'source))) (define gx#AST-e-set! - (let () (declare (not safe)) (make-struct-slot-mutator gx#AST::t 'e))) + (let () (declare (not safe)) (make-class-slot-mutator gx#AST::t 'e))) (define gx#AST-source-set! (let () (declare (not safe)) - (make-struct-slot-mutator gx#AST::t 'source))) + (make-class-slot-mutator gx#AST::t 'source))) (define gx#&AST-e (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gx#AST::t 'e))) + (make-class-slot-unchecked-accessor gx#AST::t 'e))) (define gx#&AST-source (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gx#AST::t 'source))) + (make-class-slot-unchecked-accessor gx#AST::t 'source))) (define gx#&AST-e-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gx#AST::t 'e))) + (make-class-slot-unchecked-mutator gx#AST::t 'e))) (define gx#&AST-source-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gx#AST::t 'source))))) + (make-class-slot-unchecked-mutator gx#AST::t 'source))))) diff --git a/src/bootstrap/gerbil/expander/common__1.scm b/src/bootstrap/gerbil/expander/common__1.scm index be9f7728a..425ab96a0 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]#_g134253_| + (define |gx[1]#_g135600_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g134255_| + (define |gx[1]#_g135602_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g134257_| + (define |gx[1]#_g135604_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g134262_| + (define |gx[1]#_g135609_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g134265_| + (define |gx[1]#_g135612_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g134270_| + (define |gx[1]#_g135617_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g134273_| + (define |gx[1]#_g135620_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g134278_| + (define |gx[1]#_g135625_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g134281_| + (define |gx[1]#_g135628_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g134286_| + (define |gx[1]#_g135633_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g134289_| + (define |gx[1]#_g135636_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g134396_| + (define |gx[1]#_g135743_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj134249 + (let ((__obj135595 (let () (declare (not safe)) (##structure @@ -108,7 +108,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134249 + __obj135595 'gerbil#AST::t '1 gerbil/core$$#class-type-info::t @@ -116,7 +116,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134249 + __obj135595 'syntax '2 gerbil/core$$#class-type-info::t @@ -124,7 +124,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134249 + __obj135595 '(e source) '4 gerbil/core$$#class-type-info::t @@ -132,7 +132,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134249 + __obj135595 '() '3 gerbil/core$$#class-type-info::t @@ -140,7 +140,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134249 + __obj135595 '#t '5 gerbil/core$$#class-type-info::t @@ -148,7 +148,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134249 + __obj135595 '#f '6 gerbil/core$$#class-type-info::t @@ -156,859 +156,859 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj134249 + __obj135595 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp134252 |gx[1]#_g134253_|)) + (let ((__tmp135599 |gx[1]#_g135600_|)) (declare (not safe)) (##unchecked-structure-set! - __obj134249 - __tmp134252 + __obj135595 + __tmp135599 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp134254 |gx[1]#_g134255_|)) + (let ((__tmp135601 |gx[1]#_g135602_|)) (declare (not safe)) (##unchecked-structure-set! - __obj134249 - __tmp134254 + __obj135595 + __tmp135601 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp134256 |gx[1]#_g134257_|)) + (let ((__tmp135603 |gx[1]#_g135604_|)) (declare (not safe)) (##unchecked-structure-set! - __obj134249 - __tmp134256 + __obj135595 + __tmp135603 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp134258 - (let ((__tmp134263 - (let ((__tmp134264 |gx[1]#_g134265_|)) + (let ((__tmp135605 + (let ((__tmp135610 + (let ((__tmp135611 |gx[1]#_g135612_|)) (declare (not safe)) - (cons 'e __tmp134264))) - (__tmp134259 - (let ((__tmp134260 - (let ((__tmp134261 |gx[1]#_g134262_|)) + (cons 'e __tmp135611))) + (__tmp135606 + (let ((__tmp135607 + (let ((__tmp135608 |gx[1]#_g135609_|)) (declare (not safe)) - (cons 'source __tmp134261)))) + (cons 'source __tmp135608)))) (declare (not safe)) - (cons __tmp134260 '())))) + (cons __tmp135607 '())))) (declare (not safe)) - (cons __tmp134263 __tmp134259)))) + (cons __tmp135610 __tmp135606)))) (declare (not safe)) (##unchecked-structure-set! - __obj134249 - __tmp134258 + __obj135595 + __tmp135605 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp134266 - (let ((__tmp134271 - (let ((__tmp134272 |gx[1]#_g134273_|)) + (let ((__tmp135613 + (let ((__tmp135618 + (let ((__tmp135619 |gx[1]#_g135620_|)) (declare (not safe)) - (cons 'e __tmp134272))) - (__tmp134267 - (let ((__tmp134268 - (let ((__tmp134269 |gx[1]#_g134270_|)) + (cons 'e __tmp135619))) + (__tmp135614 + (let ((__tmp135615 + (let ((__tmp135616 |gx[1]#_g135617_|)) (declare (not safe)) - (cons 'source __tmp134269)))) + (cons 'source __tmp135616)))) (declare (not safe)) - (cons __tmp134268 '())))) + (cons __tmp135615 '())))) (declare (not safe)) - (cons __tmp134271 __tmp134267)))) + (cons __tmp135618 __tmp135614)))) (declare (not safe)) (##unchecked-structure-set! - __obj134249 - __tmp134266 + __obj135595 + __tmp135613 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp134274 - (let ((__tmp134279 - (let ((__tmp134280 |gx[1]#_g134281_|)) + (let ((__tmp135621 + (let ((__tmp135626 + (let ((__tmp135627 |gx[1]#_g135628_|)) (declare (not safe)) - (cons 'e __tmp134280))) - (__tmp134275 - (let ((__tmp134276 - (let ((__tmp134277 |gx[1]#_g134278_|)) + (cons 'e __tmp135627))) + (__tmp135622 + (let ((__tmp135623 + (let ((__tmp135624 |gx[1]#_g135625_|)) (declare (not safe)) - (cons 'source __tmp134277)))) + (cons 'source __tmp135624)))) (declare (not safe)) - (cons __tmp134276 '())))) + (cons __tmp135623 '())))) (declare (not safe)) - (cons __tmp134279 __tmp134275)))) + (cons __tmp135626 __tmp135622)))) (declare (not safe)) (##unchecked-structure-set! - __obj134249 - __tmp134274 + __obj135595 + __tmp135621 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp134282 - (let ((__tmp134287 - (let ((__tmp134288 |gx[1]#_g134289_|)) + (let ((__tmp135629 + (let ((__tmp135634 + (let ((__tmp135635 |gx[1]#_g135636_|)) (declare (not safe)) - (cons 'e __tmp134288))) - (__tmp134283 - (let ((__tmp134284 - (let ((__tmp134285 |gx[1]#_g134286_|)) + (cons 'e __tmp135635))) + (__tmp135630 + (let ((__tmp135631 + (let ((__tmp135632 |gx[1]#_g135633_|)) (declare (not safe)) - (cons 'source __tmp134285)))) + (cons 'source __tmp135632)))) (declare (not safe)) - (cons __tmp134284 '())))) + (cons __tmp135631 '())))) (declare (not safe)) - (cons __tmp134287 __tmp134283)))) + (cons __tmp135634 __tmp135630)))) (declare (not safe)) (##unchecked-structure-set! - __obj134249 - __tmp134282 + __obj135595 + __tmp135629 '14 gerbil/core$$#class-type-info::t '#f)) - __obj134249)) + __obj135595)) (define |gx[:0:]#check-procedure| - (lambda (_$stx128401_) - (let* ((_g128405128419_ - (lambda (_g128406128415_) + (lambda (_$stx129647_) + (let* ((_g129651129665_ + (lambda (_g129652129661_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g128406128415_))) - (_g128404128461_ - (lambda (_g128406128423_) - (if (gx#stx-pair? _g128406128423_) - (let ((_e128410128426_ (gx#syntax-e _g128406128423_))) - (let ((_hd128409128430_ + _g129652129661_))) + (_g129650129707_ + (lambda (_g129652129669_) + (if (gx#stx-pair? _g129652129669_) + (let ((_e129656129672_ (gx#syntax-e _g129652129669_))) + (let ((_hd129655129676_ (let () (declare (not safe)) - (##car _e128410128426_))) - (_tl128408128433_ + (##car _e129656129672_))) + (_tl129654129679_ (let () (declare (not safe)) - (##cdr _e128410128426_)))) - (if (gx#stx-pair? _tl128408128433_) - (let ((_e128413128436_ - (gx#syntax-e _tl128408128433_))) - (let ((_hd128412128440_ + (##cdr _e129656129672_)))) + (if (gx#stx-pair? _tl129654129679_) + (let ((_e129659129682_ + (gx#syntax-e _tl129654129679_))) + (let ((_hd129658129686_ (let () (declare (not safe)) - (##car _e128413128436_))) - (_tl128411128443_ + (##car _e129659129682_))) + (_tl129657129689_ (let () (declare (not safe)) - (##cdr _e128413128436_)))) - (if (gx#stx-null? _tl128411128443_) - ((lambda (_L128446_) - (let ((__tmp134299 + (##cdr _e129659129682_)))) + (if (gx#stx-null? _tl129657129689_) + ((lambda (_L129692_) + (let ((__tmp135646 (gx#datum->syntax '#f 'unless)) - (__tmp134290 - (let ((__tmp134296 - (let ((__tmp134298 + (__tmp135637 + (let ((__tmp135643 + (let ((__tmp135645 (gx#datum->syntax '#f 'procedure?)) - (__tmp134297 + (__tmp135644 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L128446_ '())))) + (cons _L129692_ '())))) (declare (not safe)) - (cons __tmp134298 __tmp134297))) - (__tmp134291 - (let ((__tmp134292 - (let ((__tmp134295 (gx#datum->syntax '#f 'error)) - (__tmp134293 - (let ((__tmp134294 + (cons __tmp135645 __tmp135644))) + (__tmp135638 + (let ((__tmp135639 + (let ((__tmp135642 (gx#datum->syntax '#f 'error)) + (__tmp135640 + (let ((__tmp135641 (let () (declare (not safe)) - (cons _L128446_ '())))) + (cons _L129692_ '())))) (declare (not safe)) - (cons '"expected procedure" __tmp134294)))) + (cons '"expected procedure" __tmp135641)))) (declare (not safe)) - (cons __tmp134295 __tmp134293)))) + (cons __tmp135642 __tmp135640)))) (declare (not safe)) - (cons __tmp134292 '())))) + (cons __tmp135639 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp134296 - __tmp134291)))) + (cons __tmp135643 + __tmp135638)))) (declare (not safe)) - (cons __tmp134299 __tmp134290))) - _hd128412128440_) - (_g128405128419_ _g128406128423_)))) - (_g128405128419_ _g128406128423_)))) - (_g128405128419_ _g128406128423_))))) - (_g128404128461_ _$stx128401_)))) + (cons __tmp135646 __tmp135637))) + _hd129658129686_) + (_g129651129665_ _g129652129669_)))) + (_g129651129665_ _g129652129669_)))) + (_g129651129665_ _g129652129669_))))) + (_g129650129707_ _$stx129647_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_stx128465_) - (letrec ((_generate128468_ - (lambda (_tgt128617_ _kws128619_ _clauses128620_) - (letrec ((_generate-clause128622_ - (lambda (_hd129532_ _E129534_) - (let* ((___stx134152134153_ _hd129532_) - (_g129538129565_ + (lambda (_stx129711_) + (letrec ((_generate129714_ + (lambda (_tgt129863_ _kws129865_ _clauses129866_) + (letrec ((_generate-clause129868_ + (lambda (_hd130778_ _E130780_) + (let* ((___stx135498135499_ _hd130778_) + (_g130784130811_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134152134153_)))) - (let ((___kont134155134156_ - (lambda (_L129661_ _L129663_) - (_generate1128624_ - _hd129532_ - _L129663_ + ___stx135498135499_)))) + (let ((___kont135501135502_ + (lambda (_L130907_ _L130909_) + (_generate1129870_ + _hd130778_ + _L130909_ '#t - _L129661_ - _E129534_))) - (___kont134157134158_ - (lambda (_L129613_ - _L129615_ - _L129616_) - (_generate1128624_ - _hd129532_ - _L129616_ - _L129615_ - _L129613_ - _E129534_))) - (___kont134159134160_ + _L130907_ + _E130780_))) + (___kont135503135504_ + (lambda (_L130859_ + _L130861_ + _L130862_) + (_generate1129870_ + _hd130778_ + _L130862_ + _L130861_ + _L130859_ + _E130780_))) + (___kont135505135506_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _stx128465_ - _hd129532_)))) - (if (gx#stx-pair? ___stx134152134153_) - (let ((_e129544129641_ + _stx129711_ + _hd130778_)))) + (if (gx#stx-pair? ___stx135498135499_) + (let ((_e130790130887_ (gx#syntax-e - ___stx134152134153_))) - (let ((_tl129542129648_ + ___stx135498135499_))) + (let ((_tl130788130894_ (let () (declare (not safe)) - (##cdr _e129544129641_))) - (_hd129543129645_ + (##cdr _e130790130887_))) + (_hd130789130891_ (let () (declare (not safe)) - (##car _e129544129641_)))) - (if (gx#stx-pair? _tl129542129648_) - (let ((_e129547129651_ + (##car _e130790130887_)))) + (if (gx#stx-pair? _tl130788130894_) + (let ((_e130793130897_ (gx#syntax-e - _tl129542129648_))) - (let ((_tl129545129658_ + _tl130788130894_))) + (let ((_tl130791130904_ (let () (declare (not safe)) - (##cdr _e129547129651_))) - (_hd129546129655_ + (##cdr _e130793130897_))) + (_hd130792130901_ (let () (declare (not safe)) - (##car _e129547129651_)))) + (##car _e130793130897_)))) (if (gx#stx-null? - _tl129545129658_) - (___kont134155134156_ - _hd129546129655_ - _hd129543129645_) + _tl130791130904_) + (___kont135501135502_ + _hd130792130901_ + _hd130789130891_) (if (gx#stx-pair? - _tl129545129658_) - (let ((_e129559129603_ + _tl130791130904_) + (let ((_e130805130849_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl129545129658_))) - (let ((_tl129557129610_ + (gx#syntax-e _tl130791130904_))) + (let ((_tl130803130856_ (let () (declare (not safe)) - (##cdr _e129559129603_))) - (_hd129558129607_ + (##cdr _e130805130849_))) + (_hd130804130853_ (let () (declare (not safe)) - (##car _e129559129603_)))) - (if (gx#stx-null? _tl129557129610_) - (___kont134157134158_ - _hd129558129607_ - _hd129546129655_ - _hd129543129645_) - (___kont134159134160_)))) - (___kont134159134160_))))) + (##car _e130805130849_)))) + (if (gx#stx-null? _tl130803130856_) + (___kont135503135504_ + _hd130804130853_ + _hd130792130901_ + _hd130789130891_) + (___kont135505135506_)))) + (___kont135505135506_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134159134160_)))) - (___kont134159134160_)))))) - (_generate1128624_ - (lambda (_where129010_ - _hd129012_ - _fender129013_ - _body129014_ - _E129015_) - (letrec ((_recur129017_ - (lambda (_hd129020_ - _tgt129022_ - _K129023_) - (let* ((___stx134198134199_ - _hd129020_) - (_g129026129038_ + (___kont135505135506_)))) + (___kont135505135506_)))))) + (_generate1129870_ + (lambda (_where130256_ + _hd130258_ + _fender130259_ + _body130260_ + _E130261_) + (letrec ((_recur130263_ + (lambda (_hd130266_ + _tgt130268_ + _K130269_) + (let* ((___stx135544135545_ + _hd130266_) + (_g130272130284_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134198134199_)))) - (let ((___kont134201134202_ - (lambda (_L129322_ - _L129324_) - (let* ((_g129335129343_ - (lambda (_g129336129339_) + ___stx135544135545_)))) + (let ((___kont135547135548_ + (lambda (_L130568_ + _L130570_) + (let* ((_g130581130589_ + (lambda (_g130582130585_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g129336129339_))) - (_g129334129524_ - (lambda (_g129336129347_) - ((lambda (_L129350_) + _g130582130585_))) + (_g130580130770_ + (lambda (_g130582130593_) + ((lambda (_L130596_) (let () - (let* ((_g129362129370_ - (lambda (_g129363129366_) + (let* ((_g130608130616_ + (lambda (_g130609130612_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g129363129366_))) - (_g129361129520_ - (lambda (_g129363129374_) - ((lambda (_L129377_) + _g130609130612_))) + (_g130607130766_ + (lambda (_g130609130620_) + ((lambda (_L130623_) (let () - (let* ((_g129390129398_ - (lambda (_g129391129394_) + (let* ((_g130636130644_ + (lambda (_g130637130640_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g129391129394_))) - (_g129389129516_ - (lambda (_g129391129402_) - ((lambda (_L129405_) + _g130637130640_))) + (_g130635130762_ + (lambda (_g130637130648_) + ((lambda (_L130651_) (let () - (let* ((_g129418129426_ + (let* ((_g130664130672_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g129419129422_) + (lambda (_g130665130668_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g129419129422_))) - (_g129417129512_ - (lambda (_g129419129430_) - ((lambda (_L129433_) + _g130665130668_))) + (_g130663130758_ + (lambda (_g130665130676_) + ((lambda (_L130679_) (let () - (let* ((_g129446129454_ - (lambda (_g129447129450_) + (let* ((_g130692130700_ + (lambda (_g130693130696_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g129447129450_))) - (_g129445129508_ - (lambda (_g129447129458_) - ((lambda (_L129461_) + _g130693130696_))) + (_g130691130754_ + (lambda (_g130693130704_) + ((lambda (_L130707_) (let () - (let* ((_g129474129482_ - (lambda (_g129475129478_) + (let* ((_g130720130728_ + (lambda (_g130721130724_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g129475129478_))) - (_g129473129504_ - (lambda (_g129475129486_) - ((lambda (_L129489_) + _g130721130724_))) + (_g130719130750_ + (lambda (_g130721130732_) + ((lambda (_L130735_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp134332 (gx#datum->syntax '#f 'if)) - (__tmp134300 - (let ((__tmp134329 - (let ((__tmp134331 + (let ((__tmp135679 (gx#datum->syntax '#f 'if)) + (__tmp135647 + (let ((__tmp135676 + (let ((__tmp135678 (gx#datum->syntax '#f 'stx-pair?)) - (__tmp134330 + (__tmp135677 (let () (declare (not safe)) - (cons _L129350_ '())))) + (cons _L130596_ '())))) (declare (not safe)) - (cons __tmp134331 __tmp134330))) - (__tmp134301 - (let ((__tmp134303 - (let ((__tmp134328 + (cons __tmp135678 __tmp135677))) + (__tmp135648 + (let ((__tmp135650 + (let ((__tmp135675 (gx#datum->syntax '#f 'let)) - (__tmp134304 - (let ((__tmp134322 - (let ((__tmp134323 + (__tmp135651 + (let ((__tmp135669 + (let ((__tmp135670 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp134324 - (let ((__tmp134325 - (let ((__tmp134327 + (let ((__tmp135671 + (let ((__tmp135672 + (let ((__tmp135674 (gx#datum->syntax '#f 'syntax-e)) - (__tmp134326 + (__tmp135673 (let () (declare (not safe)) - (cons _L129350_ '())))) + (cons _L130596_ '())))) (declare (not safe)) - (cons __tmp134327 __tmp134326)))) + (cons __tmp135674 __tmp135673)))) (declare (not safe)) - (cons __tmp134325 '())))) + (cons __tmp135672 '())))) (declare (not safe)) - (cons _L129377_ __tmp134324)))) + (cons _L130623_ __tmp135671)))) (declare (not safe)) - (cons __tmp134323 '()))) - (__tmp134305 - (let ((__tmp134306 - (let ((__tmp134321 (gx#datum->syntax '#f 'let)) - (__tmp134307 - (let ((__tmp134309 - (let ((__tmp134316 - (let ((__tmp134317 - (let ((__tmp134318 - (let ((__tmp134320 + (cons __tmp135670 '()))) + (__tmp135652 + (let ((__tmp135653 + (let ((__tmp135668 (gx#datum->syntax '#f 'let)) + (__tmp135654 + (let ((__tmp135656 + (let ((__tmp135663 + (let ((__tmp135664 + (let ((__tmp135665 + (let ((__tmp135667 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp134319 + (__tmp135666 (let () (declare (not safe)) - (cons _L129377_ '())))) + (cons _L130623_ '())))) (declare (not safe)) - (cons __tmp134320 __tmp134319)))) + (cons __tmp135667 __tmp135666)))) (declare (not safe)) - (cons __tmp134318 '())))) + (cons __tmp135665 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L129405_ - __tmp134317))) - (__tmp134310 - (let ((__tmp134311 - (let ((__tmp134312 - (let ((__tmp134313 + (cons _L130651_ + __tmp135664))) + (__tmp135657 + (let ((__tmp135658 + (let ((__tmp135659 + (let ((__tmp135660 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp134315 + (let ((__tmp135662 (gx#datum->syntax '#f '##cdr)) - (__tmp134314 + (__tmp135661 (let () (declare (not safe)) - (cons _L129377_ '())))) + (cons _L130623_ '())))) (declare (not safe)) - (cons __tmp134315 __tmp134314)))) + (cons __tmp135662 __tmp135661)))) (declare (not safe)) - (cons __tmp134313 '())))) + (cons __tmp135660 '())))) (declare (not safe)) - (cons _L129433_ __tmp134312)))) + (cons _L130679_ __tmp135659)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp134311 '())))) + (cons __tmp135658 '())))) (declare (not safe)) - (cons __tmp134316 __tmp134310))) - (__tmp134308 + (cons __tmp135663 __tmp135657))) + (__tmp135655 (let () (declare (not safe)) - (cons _L129461_ '())))) + (cons _L130707_ '())))) (declare (not safe)) - (cons __tmp134309 __tmp134308)))) + (cons __tmp135656 __tmp135655)))) (declare (not safe)) - (cons __tmp134321 __tmp134307)))) + (cons __tmp135668 __tmp135654)))) (declare (not safe)) - (cons __tmp134306 '())))) + (cons __tmp135653 '())))) (declare (not safe)) - (cons __tmp134322 __tmp134305)))) + (cons __tmp135669 __tmp135652)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp134328 - __tmp134304))) - (__tmp134302 + (cons __tmp135675 + __tmp135651))) + (__tmp135649 (let () (declare (not safe)) - (cons _L129489_ '())))) + (cons _L130735_ '())))) (declare (not safe)) - (cons __tmp134303 __tmp134302)))) + (cons __tmp135650 __tmp135649)))) (declare (not safe)) - (cons __tmp134329 __tmp134301)))) + (cons __tmp135676 __tmp135648)))) (declare (not safe)) - (cons __tmp134332 __tmp134300))))) - _g129475129486_)))) + (cons __tmp135679 __tmp135647))))) + _g130721130732_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g129473129504_ - _E129015_)))) - _g129447129458_)))) - (_g129445129508_ - (_recur129017_ - _L129324_ - _L129405_ - (_recur129017_ - _L129322_ - _L129433_ - _K129023_)))))) - _g129419129430_)))) - (_g129417129512_ (gx#genident 'tl))))) - _g129391129402_)))) + (_g130719130750_ + _E130261_)))) + _g130693130704_)))) + (_g130691130754_ + (_recur130263_ + _L130570_ + _L130651_ + (_recur130263_ + _L130568_ + _L130679_ + _K130269_)))))) + _g130665130676_)))) + (_g130663130758_ (gx#genident 'tl))))) + _g130637130648_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g129389129516_ + (_g130635130762_ (gx#genident 'hd))))) - _g129363129374_)))) - (_g129361129520_ (gx#genident 'e))))) - _g129336129347_)))) - (_g129334129524_ _tgt129022_)))) + _g130609130620_)))) + (_g130607130766_ (gx#genident 'e))))) + _g130582130593_)))) + (_g130580130770_ _tgt130268_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134203134204_ + (___kont135549135550_ (lambda () (if (gx#identifier? - _hd129020_) + _hd130266_) (if (gx#underscore? - _hd129020_) - _K129023_ - (if (let ((__tmp134377 + _hd130266_) + _K130269_ + (if (let ((__tmp135724 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g129048129050_) + (lambda (_g130294130296_) (gx#bound-identifier=? - _g129048129050_ - _hd129020_)))) + _g130294130296_ + _hd130266_)))) (declare (not safe)) - (find __tmp134377 _kws128619_)) - (let* ((_g129054129069_ - (lambda (_g129055129065_) + (find __tmp135724 _kws129865_)) + (let* ((_g130300130315_ + (lambda (_g130301130311_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g129055129065_))) - (_g129053129120_ - (lambda (_g129055129073_) - (if (gx#stx-pair? _g129055129073_) - (let ((_e129060129076_ - (gx#syntax-e _g129055129073_))) - (let ((_hd129059129080_ + _g130301130311_))) + (_g130299130366_ + (lambda (_g130301130319_) + (if (gx#stx-pair? _g130301130319_) + (let ((_e130306130322_ + (gx#syntax-e _g130301130319_))) + (let ((_hd130305130326_ (let () (declare (not safe)) - (##car _e129060129076_))) - (_tl129058129083_ + (##car _e130306130322_))) + (_tl130304130329_ (let () (declare (not safe)) - (##cdr _e129060129076_)))) + (##cdr _e130306130322_)))) (if (gx#stx-pair? - _tl129058129083_) - (let ((_e129063129086_ + _tl130304130329_) + (let ((_e130309130332_ (gx#syntax-e - _tl129058129083_))) - (let ((_hd129062129090_ + _tl130304130329_))) + (let ((_hd130308130336_ (let () (declare (not safe)) - (##car _e129063129086_))) - (_tl129061129093_ + (##car _e130309130332_))) + (_tl130307130339_ (let () (declare (not safe)) - (##cdr _e129063129086_)))) + (##cdr _e130309130332_)))) (if (gx#stx-null? - _tl129061129093_) - ((lambda (_L129096_ + _tl130307130339_) + ((lambda (_L130342_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L129098_) + _L130344_) (let () - (let ((__tmp134376 (gx#datum->syntax '#f 'if)) - (__tmp134359 - (let ((__tmp134362 - (let ((__tmp134375 + (let ((__tmp135723 (gx#datum->syntax '#f 'if)) + (__tmp135706 + (let ((__tmp135709 + (let ((__tmp135722 (gx#datum->syntax '#f 'and)) - (__tmp134363 - (let ((__tmp134372 - (let ((__tmp134374 + (__tmp135710 + (let ((__tmp135719 + (let ((__tmp135721 (gx#datum->syntax '#f 'identifier?)) - (__tmp134373 + (__tmp135720 (let () (declare (not safe)) - (cons _L129098_ + (cons _L130344_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp134374 - __tmp134373))) - (__tmp134364 - (let ((__tmp134365 - (let ((__tmp134371 + (cons __tmp135721 + __tmp135720))) + (__tmp135711 + (let ((__tmp135712 + (let ((__tmp135718 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'core-identifier=?)) - (__tmp134366 - (let ((__tmp134367 - (let ((__tmp134368 - (let ((__tmp134370 + (__tmp135713 + (let ((__tmp135714 + (let ((__tmp135715 + (let ((__tmp135717 (gx#datum->syntax '#f 'quote)) - (__tmp134369 + (__tmp135716 (let () (declare (not safe)) - (cons _L129096_ '())))) + (cons _L130342_ '())))) (declare (not safe)) - (cons __tmp134370 __tmp134369)))) + (cons __tmp135717 __tmp135716)))) (declare (not safe)) - (cons __tmp134368 '())))) + (cons __tmp135715 '())))) (declare (not safe)) - (cons _L129098_ __tmp134367)))) + (cons _L130344_ __tmp135714)))) (declare (not safe)) - (cons __tmp134371 __tmp134366)))) + (cons __tmp135718 __tmp135713)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp134365 '())))) + (cons __tmp135712 '())))) (declare (not safe)) - (cons __tmp134372 __tmp134364)))) + (cons __tmp135719 __tmp135711)))) (declare (not safe)) - (cons __tmp134375 __tmp134363))) - (__tmp134360 - (let ((__tmp134361 + (cons __tmp135722 __tmp135710))) + (__tmp135707 + (let ((__tmp135708 (let () (declare (not safe)) - (cons _E129015_ '())))) + (cons _E130261_ '())))) (declare (not safe)) - (cons _K129023_ __tmp134361)))) + (cons _K130269_ __tmp135708)))) (declare (not safe)) - (cons __tmp134362 __tmp134360)))) + (cons __tmp135709 __tmp135707)))) (declare (not safe)) - (cons __tmp134376 __tmp134359)))) - _hd129062129090_ - _hd129059129080_) - (_g129054129069_ _g129055129073_)))) + (cons __tmp135723 __tmp135706)))) + _hd130308130336_ + _hd130305130326_) + (_g130300130315_ _g130301130319_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g129054129069_ - _g129055129073_)))) - (_g129054129069_ _g129055129073_))))) - (_g129053129120_ (list _tgt129022_ _hd129020_))) - (let* ((_g129124129139_ - (lambda (_g129125129135_) + (_g130300130315_ + _g130301130319_)))) + (_g130300130315_ _g130301130319_))))) + (_g130299130366_ (list _tgt130268_ _hd130266_))) + (let* ((_g130370130385_ + (lambda (_g130371130381_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g129125129135_))) - (_g129123129183_ - (lambda (_g129125129143_) - (if (gx#stx-pair? _g129125129143_) - (let ((_e129130129146_ - (gx#syntax-e _g129125129143_))) - (let ((_hd129129129150_ + _g130371130381_))) + (_g130369130429_ + (lambda (_g130371130389_) + (if (gx#stx-pair? _g130371130389_) + (let ((_e130376130392_ + (gx#syntax-e _g130371130389_))) + (let ((_hd130375130396_ (let () (declare (not safe)) - (##car _e129130129146_))) - (_tl129128129153_ + (##car _e130376130392_))) + (_tl130374130399_ (let () (declare (not safe)) - (##cdr _e129130129146_)))) + (##cdr _e130376130392_)))) (if (gx#stx-pair? - _tl129128129153_) - (let ((_e129133129156_ + _tl130374130399_) + (let ((_e130379130402_ (gx#syntax-e - _tl129128129153_))) - (let ((_hd129132129160_ + _tl130374130399_))) + (let ((_hd130378130406_ (let () (declare (not safe)) - (##car _e129133129156_))) - (_tl129131129163_ + (##car _e130379130402_))) + (_tl130377130409_ (let () (declare (not safe)) - (##cdr _e129133129156_)))) + (##cdr _e130379130402_)))) (if (gx#stx-null? - _tl129131129163_) - ((lambda (_L129166_ + _tl130377130409_) + ((lambda (_L130412_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L129168_) + _L130414_) (let () - (let ((__tmp134358 (gx#datum->syntax '#f 'let)) - (__tmp134353 - (let ((__tmp134355 - (let ((__tmp134356 - (let ((__tmp134357 + (let ((__tmp135705 (gx#datum->syntax '#f 'let)) + (__tmp135700 + (let ((__tmp135702 + (let ((__tmp135703 + (let ((__tmp135704 (let () (declare (not safe)) - (cons _L129168_ '())))) + (cons _L130414_ '())))) (declare (not safe)) - (cons _L129166_ __tmp134357)))) + (cons _L130412_ __tmp135704)))) (declare (not safe)) - (cons __tmp134356 '()))) - (__tmp134354 + (cons __tmp135703 '()))) + (__tmp135701 (let () (declare (not safe)) - (cons _K129023_ '())))) + (cons _K130269_ '())))) (declare (not safe)) - (cons __tmp134355 __tmp134354)))) + (cons __tmp135702 __tmp135701)))) (declare (not safe)) - (cons __tmp134358 __tmp134353)))) - _hd129132129160_ - _hd129129129150_) - (_g129124129139_ _g129125129143_)))) + (cons __tmp135705 __tmp135700)))) + _hd130378130406_ + _hd130375130396_) + (_g130370130385_ _g130371130389_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g129124129139_ - _g129125129143_)))) - (_g129124129139_ _g129125129143_))))) - (_g129123129183_ (list _tgt129022_ _hd129020_))))) - (if (gx#stx-null? _hd129020_) - (let* ((_g129187129195_ - (lambda (_g129188129191_) + (_g130370130385_ + _g130371130389_)))) + (_g130370130385_ _g130371130389_))))) + (_g130369130429_ (list _tgt130268_ _hd130266_))))) + (if (gx#stx-null? _hd130266_) + (let* ((_g130433130441_ + (lambda (_g130434130437_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g129188129191_))) - (_g129186129213_ - (lambda (_g129188129199_) - ((lambda (_L129202_) + _g130434130437_))) + (_g130432130459_ + (lambda (_g130434130445_) + ((lambda (_L130448_) (let () - (let ((__tmp134352 + (let ((__tmp135699 (gx#datum->syntax '#f 'if)) - (__tmp134346 - (let ((__tmp134349 - (let ((__tmp134351 + (__tmp135693 + (let ((__tmp135696 + (let ((__tmp135698 (gx#datum->syntax '#f 'stx-null?)) - (__tmp134350 + (__tmp135697 (let () (declare (not safe)) - (cons _L129202_ + (cons _L130448_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp134351 __tmp134350))) + (cons __tmp135698 __tmp135697))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp134347 - (let ((__tmp134348 + (__tmp135694 + (let ((__tmp135695 (let () (declare (not safe)) - (cons _E129015_ + (cons _E130261_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _K129023_ __tmp134348)))) + (cons _K130269_ __tmp135695)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp134349 - __tmp134347)))) + (cons __tmp135696 + __tmp135694)))) (declare (not safe)) - (cons __tmp134352 __tmp134346)))) - _g129188129199_)))) - (_g129186129213_ _tgt129022_)) - (if (gx#stx-datum? _hd129020_) - (let* ((_g129217129236_ - (lambda (_g129218129232_) + (cons __tmp135699 __tmp135693)))) + _g130434130445_)))) + (_g130432130459_ _tgt130268_)) + (if (gx#stx-datum? _hd130266_) + (let* ((_g130463130482_ + (lambda (_g130464130478_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g129218129232_))) - (_g129216129294_ - (lambda (_g129218129240_) - (if (gx#stx-pair? _g129218129240_) - (let ((_e129224129243_ - (gx#syntax-e _g129218129240_))) - (let ((_hd129223129247_ + _g130464130478_))) + (_g130462130540_ + (lambda (_g130464130486_) + (if (gx#stx-pair? _g130464130486_) + (let ((_e130470130489_ + (gx#syntax-e _g130464130486_))) + (let ((_hd130469130493_ (let () (declare (not safe)) - (##car _e129224129243_))) - (_tl129222129250_ + (##car _e130470130489_))) + (_tl130468130496_ (let () (declare (not safe)) - (##cdr _e129224129243_)))) + (##cdr _e130470130489_)))) (if (gx#stx-pair? - _tl129222129250_) - (let ((_e129227129253_ + _tl130468130496_) + (let ((_e130473130499_ (gx#syntax-e - _tl129222129250_))) - (let ((_hd129226129257_ + _tl130468130496_))) + (let ((_hd130472130503_ (let () (declare (not safe)) - (##car _e129227129253_))) - (_tl129225129260_ + (##car _e130473130499_))) + (_tl130471130506_ (let () (declare (not safe)) - (##cdr _e129227129253_)))) + (##cdr _e130473130499_)))) (if (gx#stx-pair? - _tl129225129260_) - (let ((_e129230129263_ + _tl130471130506_) + (let ((_e130476130509_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl129225129260_))) - (let ((_hd129229129267_ + _tl130471130506_))) + (let ((_hd130475130513_ (let () (declare (not safe)) - (##car _e129230129263_))) - (_tl129228129270_ + (##car _e130476130509_))) + (_tl130474130516_ (let () (declare (not safe)) - (##cdr _e129230129263_)))) - (if (gx#stx-null? _tl129228129270_) - ((lambda (_L129273_ _L129275_ _L129276_) + (##cdr _e130476130509_)))) + (if (gx#stx-null? _tl130474130516_) + ((lambda (_L130519_ _L130521_ _L130522_) (let () - (let ((__tmp134345 (gx#datum->syntax '#f 'if)) - (__tmp134333 - (let ((__tmp134336 - (let ((__tmp134337 - (let ((__tmp134342 - (let ((__tmp134344 + (let ((__tmp135692 (gx#datum->syntax '#f 'if)) + (__tmp135680 + (let ((__tmp135683 + (let ((__tmp135684 + (let ((__tmp135689 + (let ((__tmp135691 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'stx-e)) - (__tmp134343 - (let () (declare (not safe)) (cons _L129276_ '())))) + (__tmp135690 + (let () (declare (not safe)) (cons _L130522_ '())))) (declare (not safe)) - (cons __tmp134344 __tmp134343))) - (__tmp134338 - (let ((__tmp134339 - (let ((__tmp134341 (gx#datum->syntax '#f 'quote)) - (__tmp134340 + (cons __tmp135691 __tmp135690))) + (__tmp135685 + (let ((__tmp135686 + (let ((__tmp135688 (gx#datum->syntax '#f 'quote)) + (__tmp135687 (let () (declare (not safe)) - (cons _L129275_ '())))) + (cons _L130521_ '())))) (declare (not safe)) - (cons __tmp134341 __tmp134340)))) + (cons __tmp135688 __tmp135687)))) (declare (not safe)) - (cons __tmp134339 '())))) + (cons __tmp135686 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp134342 - __tmp134338)))) + (cons __tmp135689 + __tmp135685)))) (declare (not safe)) - (cons _L129273_ __tmp134337))) - (__tmp134334 - (let ((__tmp134335 + (cons _L130519_ __tmp135684))) + (__tmp135681 + (let ((__tmp135682 (let () (declare (not safe)) - (cons _E129015_ '())))) + (cons _E130261_ '())))) (declare (not safe)) - (cons _K129023_ __tmp134335)))) + (cons _K130269_ __tmp135682)))) (declare (not safe)) - (cons __tmp134336 __tmp134334)))) + (cons __tmp135683 __tmp135681)))) (declare (not safe)) - (cons __tmp134345 __tmp134333)))) - _hd129229129267_ - _hd129226129257_ - _hd129223129247_) - (_g129217129236_ _g129218129240_)))) - (_g129217129236_ _g129218129240_)))) + (cons __tmp135692 __tmp135680)))) + _hd130475130513_ + _hd130472130503_ + _hd130469130493_) + (_g130463130482_ _g130464130486_)))) + (_g130463130482_ _g130464130486_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g129217129236_ - _g129218129240_)))) - (_g129217129236_ _g129218129240_))))) - (_g129216129294_ - (list _tgt129022_ - _hd129020_ - (let ((_e129298_ (gx#stx-e _hd129020_))) - (if (or (keyword? _e129298_) + (_g130463130482_ + _g130464130486_)))) + (_g130463130482_ _g130464130486_))))) + (_g130462130540_ + (list _tgt130268_ + _hd130266_ + (let ((_e130544_ (gx#stx-e _hd130266_))) + (if (or (keyword? _e130544_) (let () (declare (not safe)) - (immediate? _e129298_))) + (immediate? _e130544_))) (gx#datum->syntax '#f 'eq?) (if (let () (declare (not safe)) - (number? _e129298_)) + (number? _e130544_)) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -1016,511 +1016,511 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _stx128465_ - _where129010_ - _hd129020_))))))) + _stx129711_ + _where130256_ + _hd130266_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx134198134199_) - (let ((_e129032129312_ + ___stx135544135545_) + (let ((_e130278130558_ (gx#syntax-e - ___stx134198134199_))) - (let ((_tl129030129319_ + ___stx135544135545_))) + (let ((_tl130276130565_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e129032129312_))) - (_hd129031129316_ - (let () (declare (not safe)) (##car _e129032129312_)))) - (___kont134201134202_ _tl129030129319_ _hd129031129316_))) + (##cdr _e130278130558_))) + (_hd130277130562_ + (let () (declare (not safe)) (##car _e130278130558_)))) + (___kont135547135548_ _tl130276130565_ _hd130277130562_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134203134204_))))))) - (_recur129017_ - _hd129012_ - _tgt128617_ - (let ((__tmp134381 + (___kont135549135550_))))))) + (_recur130263_ + _hd130258_ + _tgt129863_ + (let ((__tmp135728 (gx#datum->syntax '#f 'if)) - (__tmp134378 - (let ((__tmp134379 - (let ((__tmp134380 + (__tmp135725 + (let ((__tmp135726 + (let ((__tmp135727 (let () (declare (not safe)) - (cons _E129015_ + (cons _E130261_ '())))) (declare (not safe)) - (cons _body129014_ - __tmp134380)))) + (cons _body130260_ + __tmp135727)))) (declare (not safe)) - (cons _fender129013_ - __tmp134379)))) + (cons _fender130259_ + __tmp135726)))) (declare (not safe)) - (cons __tmp134381 __tmp134378)))))) - (_generate-clauses128625_ - (lambda (_clauses128748_) - (let _lp128751_ ((_rest128754_ _clauses128748_) - (_E128756_ (gx#genident 'E)) - (_r128757_ '())) - (let* ((___stx134234134235_ _rest128754_) - (_g128760128772_ + (cons __tmp135728 __tmp135725)))))) + (_generate-clauses129871_ + (lambda (_clauses129994_) + (let _lp129997_ ((_rest130000_ _clauses129994_) + (_E130002_ (gx#genident 'E)) + (_r130003_ '())) + (let* ((___stx135580135581_ _rest130000_) + (_g130006130018_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134234134235_)))) - (let ((___kont134237134238_ - (lambda (_L128837_ _L128839_) - (let* ((___stx134214134215_ - _L128839_) - (_g128851128862_ + ___stx135580135581_)))) + (let ((___kont135583135584_ + (lambda (_L130083_ _L130085_) + (let* ((___stx135560135561_ + _L130085_) + (_g130097130108_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134214134215_)))) - (let ((___kont134217134218_ - (lambda (_L128991_) + ___stx135560135561_)))) + (let ((___kont135563135564_ + (lambda (_L130237_) (if (gx#stx-null? - _L128837_) + _L130083_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L128991_) - (let ((__tmp134390 (gx#stx-null? _L128991_))) + _L130237_) + (let ((__tmp135737 (gx#stx-null? _L130237_))) (declare (not safe)) - (not __tmp134390))) - (let ((__tmp134382 - (let ((__tmp134383 - (let ((__tmp134384 + (not __tmp135737))) + (let ((__tmp135729 + (let ((__tmp135730 + (let ((__tmp135731 (gx#stx-wrap-source - (let ((__tmp134389 + (let ((__tmp135736 (gx#datum->syntax '#f 'lambda)) - (__tmp134385 - (let ((__tmp134386 - (let ((__tmp134387 + (__tmp135732 + (let ((__tmp135733 + (let ((__tmp135734 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp134388 (gx#datum->syntax '#f 'begin))) + (let ((__tmp135735 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp134388 _L128991_)))) + (cons __tmp135735 _L130237_)))) (declare (not safe)) - (cons __tmp134387 '())))) + (cons __tmp135734 '())))) (declare (not safe)) - (cons '() __tmp134386)))) + (cons '() __tmp135733)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp134389 __tmp134385)) - (gx#stx-source _L128839_)))) + (cons __tmp135736 __tmp135732)) + (gx#stx-source _L130085_)))) (declare (not safe)) - (cons __tmp134384 '())))) + (cons __tmp135731 '())))) (declare (not safe)) - (cons _E128756_ __tmp134383)))) + (cons _E130002_ __tmp135730)))) (declare (not safe)) - (cons __tmp134382 _r128757_)) + (cons __tmp135729 _r130003_)) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _stx128465_ - _L128839_)) + _stx129711_ + _L130085_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _stx128465_ - _L128839_)))) + _stx129711_ + _L130085_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134219134220_ + (___kont135565135566_ (lambda () - (let* ((_g128873128881_ - (lambda (_g128874128877_) + (let* ((_g130119130127_ + (lambda (_g130120130123_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g128874128877_))) - (_g128872128970_ - (lambda (_g128874128885_) - ((lambda (_L128888_) + _g130120130123_))) + (_g130118130216_ + (lambda (_g130120130131_) + ((lambda (_L130134_) (let () - (let* ((_g128904128912_ - (lambda (_g128905128908_) + (let* ((_g130150130158_ + (lambda (_g130151130154_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g128905128908_))) - (_g128903128966_ - (lambda (_g128905128916_) - ((lambda (_L128919_) + _g130151130154_))) + (_g130149130212_ + (lambda (_g130151130162_) + ((lambda (_L130165_) (let () - (let* ((_g128932128940_ - (lambda (_g128933128936_) + (let* ((_g130178130186_ + (lambda (_g130179130182_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g128933128936_))) - (_g128931128962_ - (lambda (_g128933128944_) - ((lambda (_L128947_) + _g130179130182_))) + (_g130177130208_ + (lambda (_g130179130190_) + ((lambda (_L130193_) (let () (let () - (_lp128751_ - _L128837_ - _L128888_ - (let ((__tmp134391 + (_lp129997_ + _L130083_ + _L130134_ + (let ((__tmp135738 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp134392 + (let ((__tmp135739 (let () (declare (not safe)) - (cons _L128947_ '())))) + (cons _L130193_ '())))) (declare (not safe)) - (cons _E128756_ __tmp134392)))) + (cons _E130002_ __tmp135739)))) (declare (not safe)) - (cons __tmp134391 _r128757_)))))) - _g128933128944_)))) + (cons __tmp135738 _r130003_)))))) + _g130179130190_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g128931128962_ + (_g130177130208_ (gx#stx-wrap-source - (let ((__tmp134395 + (let ((__tmp135742 (gx#datum->syntax '#f 'lambda)) - (__tmp134393 - (let ((__tmp134394 + (__tmp135740 + (let ((__tmp135741 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L128919_ '())))) + (cons _L130165_ '())))) (declare (not safe)) - (cons '() __tmp134394)))) + (cons '() __tmp135741)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp134395 - __tmp134393)) + (cons __tmp135742 + __tmp135740)) (gx#stx-source - _L128839_)))))) - _g128905128916_)))) - (_g128903128966_ - (_generate-clause128622_ - _L128839_ + _L130085_)))))) + _g130151130162_)))) + (_g130149130212_ + (_generate-clause129868_ + _L130085_ (let () (declare (not safe)) - (cons _L128888_ '()))))))) - _g128874128885_)))) - (_g128872128970_ (gx#genident 'E)))))) + (cons _L130134_ '()))))))) + _g130120130131_)))) + (_g130118130216_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx134214134215_) - (let ((_e128856128981_ + ___stx135560135561_) + (let ((_e130102130227_ (gx#syntax-e - ___stx134214134215_))) - (let ((_tl128854128988_ + ___stx135560135561_))) + (let ((_tl130100130234_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e128856128981_))) - (_hd128855128985_ - (let () (declare (not safe)) (##car _e128856128981_)))) - (if (gx#identifier? _hd128855128985_) + (##cdr _e130102130227_))) + (_hd130101130231_ + (let () (declare (not safe)) (##car _e130102130227_)))) + (if (gx#identifier? _hd130101130231_) (if (gx#free-identifier=? - |gx[1]#_g134396_| - _hd128855128985_) - (___kont134217134218_ _tl128854128988_) - (___kont134219134220_)) - (___kont134219134220_)))) + |gx[1]#_g135743_| + _hd130101130231_) + (___kont135563135564_ _tl130100130234_) + (___kont135565135566_)) + (___kont135565135566_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134219134220_)))))) - (___kont134239134240_ + (___kont135565135566_)))))) + (___kont135585135586_ (lambda () - (let* ((_g128783128791_ - (lambda (_g128784128787_) + (let* ((_g130029130037_ + (lambda (_g130030130033_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g128784128787_))) - (_g128782128816_ - (lambda (_g128784128795_) - ((lambda (_L128798_) + _g130030130033_))) + (_g130028130062_ + (lambda (_g130030130041_) + ((lambda (_L130044_) (let () - (let ((__tmp134397 + (let ((__tmp135744 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp134398 - (let ((__tmp134399 + (let ((__tmp135745 + (let ((__tmp135746 (gx#stx-wrap-source - (let ((__tmp134407 + (let ((__tmp135754 (gx#datum->syntax '#f 'lambda)) - (__tmp134400 - (let ((__tmp134401 - (let ((__tmp134402 - (let ((__tmp134406 + (__tmp135747 + (let ((__tmp135748 + (let ((__tmp135749 + (let ((__tmp135753 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp134403 - (let ((__tmp134404 - (let ((__tmp134405 + (__tmp135750 + (let ((__tmp135751 + (let ((__tmp135752 (let () (declare (not safe)) - (cons _L128798_ '())))) + (cons _L130044_ '())))) (declare (not safe)) (cons '"Bad syntax; invalid syntax-case clause" - __tmp134405)))) + __tmp135752)))) (declare (not safe)) - (cons '#f __tmp134404)))) + (cons '#f __tmp135751)))) (declare (not safe)) - (cons __tmp134406 __tmp134403)))) + (cons __tmp135753 __tmp135750)))) (declare (not safe)) - (cons __tmp134402 '())))) + (cons __tmp135749 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp134401)))) + (cons '() __tmp135748)))) (declare (not safe)) - (cons __tmp134407 __tmp134400)) - (gx#stx-source _stx128465_)))) + (cons __tmp135754 __tmp135747)) + (gx#stx-source _stx129711_)))) (declare (not safe)) - (cons __tmp134399 '())))) + (cons __tmp135746 '())))) (declare (not safe)) - (cons _E128756_ __tmp134398)))) + (cons _E130002_ __tmp135745)))) (declare (not safe)) - (cons __tmp134397 _r128757_)))) - _g128784128795_)))) + (cons __tmp135744 _r130003_)))) + _g130030130041_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g128782128816_ - _tgt128617_))))) - (if (gx#stx-pair? ___stx134234134235_) - (let ((_e128766128827_ + (_g130028130062_ + _tgt129863_))))) + (if (gx#stx-pair? ___stx135580135581_) + (let ((_e130012130073_ (gx#syntax-e - ___stx134234134235_))) - (let ((_tl128764128834_ + ___stx135580135581_))) + (let ((_tl130010130080_ (let () (declare (not safe)) - (##cdr _e128766128827_))) - (_hd128765128831_ + (##cdr _e130012130073_))) + (_hd130011130077_ (let () (declare (not safe)) - (##car _e128766128827_)))) - (___kont134237134238_ - _tl128764128834_ - _hd128765128831_))) - (___kont134239134240_)))))))) - (let* ((_bind128627_ - (_generate-clauses128625_ _clauses128620_)) - (_g128630128647_ - (lambda (_g128631128643_) + (##car _e130012130073_)))) + (___kont135583135584_ + _tl130010130080_ + _hd130011130077_))) + (___kont135585135586_)))))))) + (let* ((_bind129873_ + (_generate-clauses129871_ _clauses129866_)) + (_g129876129893_ + (lambda (_g129877129889_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g128631128643_))) - (_g128629128744_ - (lambda (_g128631128651_) - (if (gx#stx-pair/null? _g128631128651_) - (let ((_g134408_ + _g129877129889_))) + (_g129875129990_ + (lambda (_g129877129897_) + (if (gx#stx-pair/null? _g129877129897_) + (let ((_g135755_ (gx#syntax-split-splice - _g128631128651_ + _g129877129897_ '0))) (begin - (let ((_g134409_ + (let ((_g135756_ (let () (declare (not safe)) - (if (##values? _g134408_) + (if (##values? _g135755_) (##vector-length - _g134408_) + _g135755_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g134409_ 2))) + (##fx= _g135756_ 2))) (error "Context expects 2 values" - _g134409_))) - (let ((_target128633128654_ + _g135756_))) + (let ((_target129879129900_ (let () (declare (not safe)) - (##vector-ref _g134408_ 0))) - (_tl128635128657_ + (##vector-ref _g135755_ 0))) + (_tl129881129903_ (let () (declare (not safe)) - (##vector-ref _g134408_ 1)))) - (if (gx#stx-null? _tl128635128657_) - (letrec ((_loop128636128660_ - (lambda (_hd128634128664_ + (##vector-ref _g135755_ 1)))) + (if (gx#stx-null? _tl129881129903_) + (letrec ((_loop129882129906_ + (lambda (_hd129880129910_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind-try128640128667_) - (if (gx#stx-pair? _hd128634128664_) - (let ((_e128637128670_ (gx#syntax-e _hd128634128664_))) - (let ((_lp-hd128638128674_ + _bind-try129886129913_) + (if (gx#stx-pair? _hd129880129910_) + (let ((_e129883129916_ (gx#syntax-e _hd129880129910_))) + (let ((_lp-hd129884129920_ (let () (declare (not safe)) - (##car _e128637128670_))) - (_lp-tl128639128677_ + (##car _e129883129916_))) + (_lp-tl129885129923_ (let () (declare (not safe)) - (##cdr _e128637128670_)))) - (_loop128636128660_ - _lp-tl128639128677_ + (##cdr _e129883129916_)))) + (_loop129882129906_ + _lp-tl129885129923_ (let () (declare (not safe)) - (cons _lp-hd128638128674_ - _bind-try128640128667_))))) - (let ((_bind-try128641128680_ - (reverse _bind-try128640128667_))) - ((lambda (_L128684_) + (cons _lp-hd129884129920_ + _bind-try129886129913_))))) + (let ((_bind-try129887129926_ + (reverse _bind-try129886129913_))) + ((lambda (_L129930_) (let () - (let* ((_g128702128710_ - (lambda (_g128703128706_) + (let* ((_g129948129956_ + (lambda (_g129949129952_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g128703128706_))) - (_g128701128740_ - (lambda (_g128703128714_) - ((lambda (_L128717_) + _g129949129952_))) + (_g129947129986_ + (lambda (_g129949129960_) + ((lambda (_L129963_) (let () (let () - (let ((__tmp134415 + (let ((__tmp135762 (gx#datum->syntax '#f 'let*)) - (__tmp134410 - (let ((__tmp134413 - (let ((__tmp134414 + (__tmp135757 + (let ((__tmp135760 + (let ((__tmp135761 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g128731128734_ _g128732128737_) + (lambda (_g129977129980_ _g129978129983_) (let () (declare (not safe)) - (cons _g128731128734_ _g128732128737_))))) + (cons _g129977129980_ _g129978129983_))))) (declare (not safe)) - (foldr1 __tmp134414 '() _L128684_))) - (__tmp134411 - (let ((__tmp134412 - (let () (declare (not safe)) (cons _L128717_ '())))) + (foldr1 __tmp135761 '() _L129930_))) + (__tmp135758 + (let ((__tmp135759 + (let () (declare (not safe)) (cons _L129963_ '())))) (declare (not safe)) - (cons __tmp134412 '())))) + (cons __tmp135759 '())))) (declare (not safe)) - (cons __tmp134413 __tmp134411)))) + (cons __tmp135760 __tmp135758)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp134415 - __tmp134410))))) - _g128703128714_)))) - (_g128701128740_ + (cons __tmp135762 + __tmp135757))))) + _g129949129960_)))) + (_g129947129986_ (car (let () (declare (not safe)) - (last _bind128627_))))))) - _bind-try128641128680_)))))) + (last _bind129873_))))))) + _bind-try129887129926_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop128636128660_ - _target128633128654_ + (_loop129882129906_ + _target129879129900_ '())) - (_g128630128647_ - _g128631128651_))))) - (_g128630128647_ _g128631128651_))))) - (_g128629128744_ _bind128627_)))))) - (let* ((_g128471128490_ - (lambda (_g128472128486_) + (_g129876129893_ + _g129877129897_))))) + (_g129876129893_ _g129877129897_))))) + (_g129875129990_ _bind129873_)))))) + (let* ((_g129717129736_ + (lambda (_g129718129732_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g128472128486_))) - (_g128470128613_ - (lambda (_g128472128494_) - (if (gx#stx-pair? _g128472128494_) - (let ((_e128478128497_ (gx#syntax-e _g128472128494_))) - (let ((_hd128477128501_ + _g129718129732_))) + (_g129716129859_ + (lambda (_g129718129740_) + (if (gx#stx-pair? _g129718129740_) + (let ((_e129724129743_ (gx#syntax-e _g129718129740_))) + (let ((_hd129723129747_ (let () (declare (not safe)) - (##car _e128478128497_))) - (_tl128476128504_ + (##car _e129724129743_))) + (_tl129722129750_ (let () (declare (not safe)) - (##cdr _e128478128497_)))) - (if (gx#stx-pair? _tl128476128504_) - (let ((_e128481128507_ - (gx#syntax-e _tl128476128504_))) - (let ((_hd128480128511_ + (##cdr _e129724129743_)))) + (if (gx#stx-pair? _tl129722129750_) + (let ((_e129727129753_ + (gx#syntax-e _tl129722129750_))) + (let ((_hd129726129757_ (let () (declare (not safe)) - (##car _e128481128507_))) - (_tl128479128514_ + (##car _e129727129753_))) + (_tl129725129760_ (let () (declare (not safe)) - (##cdr _e128481128507_)))) - (if (gx#stx-pair? _tl128479128514_) - (let ((_e128484128517_ - (gx#syntax-e _tl128479128514_))) - (let ((_hd128483128521_ + (##cdr _e129727129753_)))) + (if (gx#stx-pair? _tl129725129760_) + (let ((_e129730129763_ + (gx#syntax-e _tl129725129760_))) + (let ((_hd129729129767_ (let () (declare (not safe)) - (##car _e128484128517_))) - (_tl128482128524_ + (##car _e129730129763_))) + (_tl129728129770_ (let () (declare (not safe)) - (##cdr _e128484128517_)))) - ((lambda (_L128527_ - _L128529_ - _L128530_) + (##cdr _e129730129763_)))) + ((lambda (_L129773_ + _L129775_ + _L129776_) (if (and (gx#identifier-list? - _L128529_) + _L129775_) (gx#stx-list? - _L128527_)) - (let* ((_g128548128556_ - (lambda (_g128549128552_) + _L129773_)) + (let* ((_g129794129802_ + (lambda (_g129795129798_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g128549128552_))) - (_g128547128609_ - (lambda (_g128549128560_) - ((lambda (_L128563_) + _g129795129798_))) + (_g129793129855_ + (lambda (_g129795129806_) + ((lambda (_L129809_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g128575128583_ - (lambda (_g128576128579_) + (let* ((_g129821129829_ + (lambda (_g129822129825_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g128576128579_))) - (_g128574128605_ - (lambda (_g128576128587_) - ((lambda (_L128590_) + _g129822129825_))) + (_g129820129851_ + (lambda (_g129822129833_) + ((lambda (_L129836_) (let () (let () - (let ((__tmp134421 + (let ((__tmp135768 (gx#datum->syntax '#f 'let)) - (__tmp134416 - (let ((__tmp134418 - (let ((__tmp134419 - (let ((__tmp134420 + (__tmp135763 + (let ((__tmp135765 + (let ((__tmp135766 + (let ((__tmp135767 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L128530_ '())))) + (cons _L129776_ '())))) (declare (not safe)) - (cons _L128563_ __tmp134420)))) + (cons _L129809_ __tmp135767)))) (declare (not safe)) - (cons __tmp134419 '()))) - (__tmp134417 - (let () (declare (not safe)) (cons _L128590_ '())))) + (cons __tmp135766 '()))) + (__tmp135764 + (let () (declare (not safe)) (cons _L129836_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp134418 - __tmp134417)))) + (cons __tmp135765 + __tmp135764)))) (declare (not safe)) - (cons __tmp134421 __tmp134416))))) - _g128576128587_)))) - (_g128574128605_ - (_generate128468_ - _L128563_ - (gx#syntax->list _L128529_) - _L128527_))))) - _g128549128560_)))) + (cons __tmp135768 __tmp135763))))) + _g129822129833_)))) + (_g129820129851_ + (_generate129714_ + _L129809_ + (gx#syntax->list _L129775_) + _L129773_))))) + _g129795129806_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g128547128609_ + (_g129793129855_ (gx#genident 'e))) - (_g128471128490_ - _g128472128494_))) - _tl128482128524_ - _hd128483128521_ - _hd128480128511_))) - (_g128471128490_ _g128472128494_)))) - (_g128471128490_ _g128472128494_)))) - (_g128471128490_ _g128472128494_))))) - (_g128470128613_ _stx128465_))))))) + (_g129717129736_ + _g129718129740_))) + _tl129728129770_ + _hd129729129767_ + _hd129726129757_))) + (_g129717129736_ _g129718129740_)))) + (_g129717129736_ _g129718129740_)))) + (_g129717129736_ _g129718129740_))))) + (_g129716129859_ _stx129711_))))))) diff --git a/src/bootstrap/gerbil/expander/compile__0.scm b/src/bootstrap/gerbil/expander/compile__0.scm index f902ad415..9ef847227 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 1707573212) + (define gerbil/expander/compile::timestamp 1707674931) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_stx166868_) - (let* ((_e166869166876_ _stx166868_) - (_E166871166880_ + (lambda (_stx168615_) + (let* ((_e168616168623_ _stx168615_) + (_E168618168627_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166869166876_))) - (_E166870166894_ - (lambda () - (if (gx#stx-pair? _e166869166876_) - (let ((_e166872166884_ (gx#syntax-e _e166869166876_))) - (let ((_hd166873166887_ (##car _e166872166884_)) - (_tl166874166889_ (##cdr _e166872166884_))) - (let ((_form166892_ _hd166873166887_)) + _e168616168623_))) + (_E168617168641_ + (lambda () + (if (gx#stx-pair? _e168616168623_) + (let ((_e168619168631_ (gx#syntax-e _e168616168623_))) + (let ((_hd168620168634_ (##car _e168619168631_)) + (_tl168621168636_ (##cdr _e168619168631_))) + (let ((_form168639_ _hd168620168634_)) (if '#t - (let* ((__self171365 - (gx#syntax-local-e__0 _form166892_)) - (__method171366 + (let* ((__self173212 + (gx#syntax-local-e__0 _form168639_)) + (__method173213 (method-ref - __self171365 + __self173212 'compile-top-syntax))) - (if __method171366 - (__method171366 __self171365 _stx166868_) + (if __method173213 + (__method173213 __self173212 _stx168615_) (error '"Missing method" - __self171365 + __self173212 'compile-top-syntax))) - (_E166871166880_))))) - (_E166871166880_))))) - (_E166870166894_)))) + (_E168618168627_))))) + (_E168618168627_))))) + (_E168617168641_)))) (define gx#core-expander::compile-top-syntax - (lambda (_self166828_ _stx166829_) - (let* ((_self166830166838_ _self166828_) - (_E166832166842_ - (lambda () (error '"No clause matching" _self166830166838_))) - (_K166833166854_ - (lambda (_K166845_) - (let ((_$e166847_ (gx#stx-source _stx166829_))) - (if _$e166847_ - ((lambda (_g166849166851_) + (lambda (_self168575_ _stx168576_) + (let* ((_self168577168585_ _self168575_) + (_E168579168589_ + (lambda () (error '"No clause matching" _self168577168585_))) + (_K168580168601_ + (lambda (_K168592_) + (let ((_$e168594_ (gx#stx-source _stx168576_))) + (if _$e168594_ + ((lambda (_g168596168598_) (gx#stx-wrap-source - (_K166845_ _stx166829_) - _g166849166851_)) - _$e166847_) - (_K166845_ _stx166829_)))))) + (_K168592_ _stx168576_) + _g168596168598_)) + _$e168594_) + (_K168592_ _stx168576_)))))) (if (##structure-instance-of? - _self166830166838_ + _self168577168585_ 'gx#core-expander::t) - (let* ((_e166834166857_ + (let* ((_e168581168604_ (##unchecked-structure-ref - _self166830166838_ + _self168577168585_ '1 gx#expander::t '#f)) - (_e166835166860_ + (_e168582168607_ (##unchecked-structure-ref - _self166830166838_ + _self168577168585_ '2 gx#core-expander::t '#f)) - (_e166836166863_ + (_e168583168610_ (##unchecked-structure-ref - _self166830166838_ + _self168577168585_ '3 gx#core-expander::t '#f)) - (_K166866_ _e166836166863_)) - (_K166833166854_ _K166866_)) - (_E166832166842_))))) + (_K168613_ _e168583168610_)) + (_K168580168601_ _K168613_)) + (_E168579168589_))))) (bind-method! gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_stx166702_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _stx166702_))) + (lambda (_stx168449_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _stx168449_))) (define gx#core-compile-top-begin% - (lambda (_stx166672_) - (let* ((_e166673166680_ _stx166672_) - (_E166675166684_ + (lambda (_stx168419_) + (let* ((_e168420168427_ _stx168419_) + (_E168422168431_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166673166680_))) - (_E166674166698_ - (lambda () - (if (gx#stx-pair? _e166673166680_) - (let ((_e166676166688_ (gx#syntax-e _e166673166680_))) - (let ((_hd166677166691_ (##car _e166676166688_)) - (_tl166678166693_ (##cdr _e166676166688_))) - (let ((_body166696_ _tl166678166693_)) + _e168420168427_))) + (_E168421168445_ + (lambda () + (if (gx#stx-pair? _e168420168427_) + (let ((_e168423168435_ (gx#syntax-e _e168420168427_))) + (let ((_hd168424168438_ (##car _e168423168435_)) + (_tl168425168440_ (##cdr _e168423168435_))) + (let ((_body168443_ _tl168425168440_)) (if '#t (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _body166696_)) - (_E166675166684_))))) - (_E166675166684_))))) - (_E166674166698_)))) + _body168443_)) + (_E168422168431_))))) + (_E168422168431_))))) + (_E168421168445_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_stx166641_) - (let* ((_e166642166649_ _stx166641_) - (_E166644166653_ + (lambda (_stx168388_) + (let* ((_e168389168396_ _stx168388_) + (_E168391168400_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166642166649_))) - (_E166643166668_ - (lambda () - (if (gx#stx-pair? _e166642166649_) - (let ((_e166645166657_ (gx#syntax-e _e166642166649_))) - (let ((_hd166646166660_ (##car _e166645166657_)) - (_tl166647166662_ (##cdr _e166645166657_))) - (let ((_body166665_ _tl166647166662_)) + _e168389168396_))) + (_E168390168415_ + (lambda () + (if (gx#stx-pair? _e168389168396_) + (let ((_e168392168404_ (gx#syntax-e _e168389168396_))) + (let ((_hd168393168407_ (##car _e168392168404_)) + (_tl168394168409_ (##cdr _e168392168404_))) + (let ((_body168412_ _tl168394168409_)) (if '#t (cons '%#begin-syntax (call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _body166665_)) + _body168412_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))) - (_E166644166653_))))) - (_E166644166653_))))) - (_E166643166668_)))) + (_E168391168400_))))) + (_E168391168400_))))) + (_E168390168415_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_stx166611_) - (let* ((_e166612166619_ _stx166611_) - (_E166614166623_ + (lambda (_stx168358_) + (let* ((_e168359168366_ _stx168358_) + (_E168361168370_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166612166619_))) - (_E166613166637_ - (lambda () - (if (gx#stx-pair? _e166612166619_) - (let ((_e166615166627_ (gx#syntax-e _e166612166619_))) - (let ((_hd166616166630_ (##car _e166615166627_)) - (_tl166617166632_ (##cdr _e166615166627_))) - (let ((_body166635_ _tl166617166632_)) + _e168359168366_))) + (_E168360168384_ + (lambda () + (if (gx#stx-pair? _e168359168366_) + (let ((_e168362168374_ (gx#syntax-e _e168359168366_))) + (let ((_hd168363168377_ (##car _e168362168374_)) + (_tl168364168379_ (##cdr _e168362168374_))) + (let ((_body168382_ _tl168364168379_)) (if '#t - (cons '%#begin-foreign _body166635_) - (_E166614166623_))))) - (_E166614166623_))))) - (_E166613166637_)))) + (cons '%#begin-foreign _body168382_) + (_E168361168370_))))) + (_E168361168370_))))) + (_E168360168384_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_stx166557_) - (let* ((_e166558166571_ _stx166557_) - (_E166560166575_ + (lambda (_stx168304_) + (let* ((_e168305168318_ _stx168304_) + (_E168307168322_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166558166571_))) - (_E166559166607_ - (lambda () - (if (gx#stx-pair? _e166558166571_) - (let ((_e166561166579_ (gx#syntax-e _e166558166571_))) - (let ((_hd166562166582_ (##car _e166561166579_)) - (_tl166563166584_ (##cdr _e166561166579_))) - (if (gx#stx-pair? _tl166563166584_) - (let ((_e166564166587_ - (gx#syntax-e _tl166563166584_))) - (let ((_hd166565166590_ - (##car _e166564166587_)) - (_tl166566166592_ - (##cdr _e166564166587_))) - (let ((_ann166595_ _hd166565166590_)) - (if (gx#stx-pair? _tl166566166592_) - (let ((_e166567166597_ - (gx#syntax-e _tl166566166592_))) - (let ((_hd166568166600_ - (##car _e166567166597_)) - (_tl166569166602_ - (##cdr _e166567166597_))) - (let ((_expr166605_ - _hd166568166600_)) + _e168305168318_))) + (_E168306168354_ + (lambda () + (if (gx#stx-pair? _e168305168318_) + (let ((_e168308168326_ (gx#syntax-e _e168305168318_))) + (let ((_hd168309168329_ (##car _e168308168326_)) + (_tl168310168331_ (##cdr _e168308168326_))) + (if (gx#stx-pair? _tl168310168331_) + (let ((_e168311168334_ + (gx#syntax-e _tl168310168331_))) + (let ((_hd168312168337_ + (##car _e168311168334_)) + (_tl168313168339_ + (##cdr _e168311168334_))) + (let ((_ann168342_ _hd168312168337_)) + (if (gx#stx-pair? _tl168313168339_) + (let ((_e168314168344_ + (gx#syntax-e _tl168313168339_))) + (let ((_hd168315168347_ + (##car _e168314168344_)) + (_tl168316168349_ + (##cdr _e168314168344_))) + (let ((_expr168352_ + _hd168315168347_)) (if (gx#stx-null? - _tl166569166602_) + _tl168316168349_) (if '#t (gx#core-compile-top-syntax - _expr166605_) - (_E166560166575_)) - (_E166560166575_))))) - (_E166560166575_))))) - (_E166560166575_)))) - (_E166560166575_))))) - (_E166559166607_)))) + _expr168352_) + (_E168307168322_)) + (_E168307168322_))))) + (_E168307168322_))))) + (_E168307168322_)))) + (_E168307168322_))))) + (_E168306168354_)))) (define gx#core-compile-top-import% - (lambda (_stx166527_) - (let* ((_e166528166535_ _stx166527_) - (_E166530166539_ + (lambda (_stx168274_) + (let* ((_e168275168282_ _stx168274_) + (_E168277168286_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166528166535_))) - (_E166529166553_ - (lambda () - (if (gx#stx-pair? _e166528166535_) - (let ((_e166531166543_ (gx#syntax-e _e166528166535_))) - (let ((_hd166532166546_ (##car _e166531166543_)) - (_tl166533166548_ (##cdr _e166531166543_))) - (let ((_body166551_ _tl166533166548_)) + _e168275168282_))) + (_E168276168300_ + (lambda () + (if (gx#stx-pair? _e168275168282_) + (let ((_e168278168290_ (gx#syntax-e _e168275168282_))) + (let ((_hd168279168293_ (##car _e168278168290_)) + (_tl168280168295_ (##cdr _e168278168290_))) + (let ((_body168298_ _tl168280168295_)) (if '#t - (cons '%#import _body166551_) - (_E166530166539_))))) - (_E166530166539_))))) - (_E166529166553_)))) + (cons '%#import _body168298_) + (_E168277168286_))))) + (_E168277168286_))))) + (_E168276168300_)))) (define gx#core-compile-top-module% - (lambda (_stx166484_) - (let* ((_e166485166495_ _stx166484_) - (_E166487166499_ + (lambda (_stx168231_) + (let* ((_e168232168242_ _stx168231_) + (_E168234168246_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166485166495_))) - (_E166486166523_ - (lambda () - (if (gx#stx-pair? _e166485166495_) - (let ((_e166488166503_ (gx#syntax-e _e166485166495_))) - (let ((_hd166489166506_ (##car _e166488166503_)) - (_tl166490166508_ (##cdr _e166488166503_))) - (if (gx#stx-pair? _tl166490166508_) - (let ((_e166491166511_ - (gx#syntax-e _tl166490166508_))) - (let ((_hd166492166514_ - (##car _e166491166511_)) - (_tl166493166516_ - (##cdr _e166491166511_))) - (let* ((_hd166519_ _hd166492166514_) - (_body166521_ _tl166493166516_)) + _e168232168242_))) + (_E168233168270_ + (lambda () + (if (gx#stx-pair? _e168232168242_) + (let ((_e168235168250_ (gx#syntax-e _e168232168242_))) + (let ((_hd168236168253_ (##car _e168235168250_)) + (_tl168237168255_ (##cdr _e168235168250_))) + (if (gx#stx-pair? _tl168237168255_) + (let ((_e168238168258_ + (gx#syntax-e _tl168237168255_))) + (let ((_hd168239168261_ + (##car _e168238168258_)) + (_tl168240168263_ + (##cdr _e168238168258_))) + (let* ((_hd168266_ _hd168239168261_) + (_body168268_ _tl168240168263_)) (if '#t (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _hd166519_) + _hd168266_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _body166521_))) - (_E166487166499_))))) - (_E166487166499_)))) - (_E166487166499_))))) - (_E166486166523_)))) + _body168268_))) + (_E168234168246_))))) + (_E168234168246_)))) + (_E168234168246_))))) + (_E168233168270_)))) (define gx#core-compile-top-export% - (lambda (_stx166454_) - (let* ((_e166455166462_ _stx166454_) - (_E166457166466_ + (lambda (_stx168201_) + (let* ((_e168202168209_ _stx168201_) + (_E168204168213_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166455166462_))) - (_E166456166480_ - (lambda () - (if (gx#stx-pair? _e166455166462_) - (let ((_e166458166470_ (gx#syntax-e _e166455166462_))) - (let ((_hd166459166473_ (##car _e166458166470_)) - (_tl166460166475_ (##cdr _e166458166470_))) - (let ((_body166478_ _tl166460166475_)) + _e168202168209_))) + (_E168203168227_ + (lambda () + (if (gx#stx-pair? _e168202168209_) + (let ((_e168205168217_ (gx#syntax-e _e168202168209_))) + (let ((_hd168206168220_ (##car _e168205168217_)) + (_tl168207168222_ (##cdr _e168205168217_))) + (let ((_body168225_ _tl168207168222_)) (if '#t - (cons '%#export _body166478_) - (_E166457166466_))))) - (_E166457166466_))))) - (_E166456166480_)))) + (cons '%#export _body168225_) + (_E168204168213_))))) + (_E168204168213_))))) + (_E168203168227_)))) (define gx#core-compile-top-provide% - (lambda (_stx166424_) - (let* ((_e166425166432_ _stx166424_) - (_E166427166436_ + (lambda (_stx168171_) + (let* ((_e168172168179_ _stx168171_) + (_E168174168183_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166425166432_))) - (_E166426166450_ - (lambda () - (if (gx#stx-pair? _e166425166432_) - (let ((_e166428166440_ (gx#syntax-e _e166425166432_))) - (let ((_hd166429166443_ (##car _e166428166440_)) - (_tl166430166445_ (##cdr _e166428166440_))) - (let ((_body166448_ _tl166430166445_)) + _e168172168179_))) + (_E168173168197_ + (lambda () + (if (gx#stx-pair? _e168172168179_) + (let ((_e168175168187_ (gx#syntax-e _e168172168179_))) + (let ((_hd168176168190_ (##car _e168175168187_)) + (_tl168177168192_ (##cdr _e168175168187_))) + (let ((_body168195_ _tl168177168192_)) (if '#t - (cons '%#provide _body166448_) - (_E166427166436_))))) - (_E166427166436_))))) - (_E166426166450_)))) + (cons '%#provide _body168195_) + (_E168174168183_))))) + (_E168174168183_))))) + (_E168173168197_)))) (define gx#core-compile-top-extern% - (lambda (_stx166394_) - (let* ((_e166395166402_ _stx166394_) - (_E166397166406_ + (lambda (_stx168141_) + (let* ((_e168142168149_ _stx168141_) + (_E168144168153_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166395166402_))) - (_E166396166420_ - (lambda () - (if (gx#stx-pair? _e166395166402_) - (let ((_e166398166410_ (gx#syntax-e _e166395166402_))) - (let ((_hd166399166413_ (##car _e166398166410_)) - (_tl166400166415_ (##cdr _e166398166410_))) - (let ((_body166418_ _tl166400166415_)) + _e168142168149_))) + (_E168143168167_ + (lambda () + (if (gx#stx-pair? _e168142168149_) + (let ((_e168145168157_ (gx#syntax-e _e168142168149_))) + (let ((_hd168146168160_ (##car _e168145168157_)) + (_tl168147168162_ (##cdr _e168145168157_))) + (let ((_body168165_ _tl168147168162_)) (if '#t - (cons '%#extern _body166418_) - (_E166397166406_))))) - (_E166397166406_))))) - (_E166396166420_)))) + (cons '%#extern _body168165_) + (_E168144168153_))))) + (_E168144168153_))))) + (_E168143168167_)))) (define gx#core-compile-top-define-values% - (lambda (_stx166340_) - (let* ((_e166341166354_ _stx166340_) - (_E166343166358_ + (lambda (_stx168087_) + (let* ((_e168088168101_ _stx168087_) + (_E168090168105_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166341166354_))) - (_E166342166390_ - (lambda () - (if (gx#stx-pair? _e166341166354_) - (let ((_e166344166362_ (gx#syntax-e _e166341166354_))) - (let ((_hd166345166365_ (##car _e166344166362_)) - (_tl166346166367_ (##cdr _e166344166362_))) - (if (gx#stx-pair? _tl166346166367_) - (let ((_e166347166370_ - (gx#syntax-e _tl166346166367_))) - (let ((_hd166348166373_ - (##car _e166347166370_)) - (_tl166349166375_ - (##cdr _e166347166370_))) - (let ((_hd166378_ _hd166348166373_)) - (if (gx#stx-pair? _tl166349166375_) - (let ((_e166350166380_ - (gx#syntax-e _tl166349166375_))) - (let ((_hd166351166383_ - (##car _e166350166380_)) - (_tl166352166385_ - (##cdr _e166350166380_))) - (let ((_expr166388_ - _hd166351166383_)) + _e168088168101_))) + (_E168089168137_ + (lambda () + (if (gx#stx-pair? _e168088168101_) + (let ((_e168091168109_ (gx#syntax-e _e168088168101_))) + (let ((_hd168092168112_ (##car _e168091168109_)) + (_tl168093168114_ (##cdr _e168091168109_))) + (if (gx#stx-pair? _tl168093168114_) + (let ((_e168094168117_ + (gx#syntax-e _tl168093168114_))) + (let ((_hd168095168120_ + (##car _e168094168117_)) + (_tl168096168122_ + (##cdr _e168094168117_))) + (let ((_hd168125_ _hd168095168120_)) + (if (gx#stx-pair? _tl168096168122_) + (let ((_e168097168127_ + (gx#syntax-e _tl168096168122_))) + (let ((_hd168098168130_ + (##car _e168097168127_)) + (_tl168099168132_ + (##cdr _e168097168127_))) + (let ((_expr168135_ + _hd168098168130_)) (if (gx#stx-null? - _tl166352166385_) + _tl168099168132_) (if '#t (cons '%#define-values (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-runtime-bind - _hd166378_) - (cons (gx#core-compile-top-syntax _expr166388_) + _hd168125_) + (cons (gx#core-compile-top-syntax _expr168135_) '()))) - (_E166343166358_)) + (_E168090168105_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E166343166358_))))) - (_E166343166358_))))) - (_E166343166358_)))) - (_E166343166358_))))) - (_E166342166390_)))) + (_E168090168105_))))) + (_E168090168105_))))) + (_E168090168105_)))) + (_E168090168105_))))) + (_E168089168137_)))) (define gx#core-compile-top-define-syntax% - (lambda (_stx166285_) - (let* ((_e166286166299_ _stx166285_) - (_E166288166303_ + (lambda (_stx168032_) + (let* ((_e168033168046_ _stx168032_) + (_E168035168050_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166286166299_))) - (_E166287166336_ - (lambda () - (if (gx#stx-pair? _e166286166299_) - (let ((_e166289166307_ (gx#syntax-e _e166286166299_))) - (let ((_hd166290166310_ (##car _e166289166307_)) - (_tl166291166312_ (##cdr _e166289166307_))) - (if (gx#stx-pair? _tl166291166312_) - (let ((_e166292166315_ - (gx#syntax-e _tl166291166312_))) - (let ((_hd166293166318_ - (##car _e166292166315_)) - (_tl166294166320_ - (##cdr _e166292166315_))) - (let ((_hd166323_ _hd166293166318_)) - (if (gx#stx-pair? _tl166294166320_) - (let ((_e166295166325_ - (gx#syntax-e _tl166294166320_))) - (let ((_hd166296166328_ - (##car _e166295166325_)) - (_tl166297166330_ - (##cdr _e166295166325_))) - (let ((_expr166333_ - _hd166296166328_)) + _e168033168046_))) + (_E168034168083_ + (lambda () + (if (gx#stx-pair? _e168033168046_) + (let ((_e168036168054_ (gx#syntax-e _e168033168046_))) + (let ((_hd168037168057_ (##car _e168036168054_)) + (_tl168038168059_ (##cdr _e168036168054_))) + (if (gx#stx-pair? _tl168038168059_) + (let ((_e168039168062_ + (gx#syntax-e _tl168038168059_))) + (let ((_hd168040168065_ + (##car _e168039168062_)) + (_tl168041168067_ + (##cdr _e168039168062_))) + (let ((_hd168070_ _hd168040168065_)) + (if (gx#stx-pair? _tl168041168067_) + (let ((_e168042168072_ + (gx#syntax-e _tl168041168067_))) + (let ((_hd168043168075_ + (##car _e168042168072_)) + (_tl168044168077_ + (##cdr _e168042168072_))) + (let ((_expr168080_ + _hd168043168075_)) (if (gx#stx-null? - _tl166297166330_) + _tl168044168077_) (if '#t (cons '%#define-syntax - (cons _hd166323_ + (cons _hd168070_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (call-with-parameters (lambda () - (gx#core-compile-top-syntax _expr166333_)) + (gx#core-compile-top-syntax _expr168080_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)) '()))) - (_E166288166303_)) + (_E168035168050_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E166288166303_))))) - (_E166288166303_))))) - (_E166288166303_)))) - (_E166288166303_))))) - (_E166287166336_)))) + (_E168035168050_))))) + (_E168035168050_))))) + (_E168035168050_)))) + (_E168035168050_))))) + (_E168034168083_)))) (define gx#core-compile-top-define-alias% - (lambda (_stx166255_) - (let* ((_e166256166263_ _stx166255_) - (_E166258166267_ + (lambda (_stx168002_) + (let* ((_e168003168010_ _stx168002_) + (_E168005168014_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166256166263_))) - (_E166257166281_ - (lambda () - (if (gx#stx-pair? _e166256166263_) - (let ((_e166259166271_ (gx#syntax-e _e166256166263_))) - (let ((_hd166260166274_ (##car _e166259166271_)) - (_tl166261166276_ (##cdr _e166259166271_))) - (let ((_body166279_ _tl166261166276_)) + _e168003168010_))) + (_E168004168028_ + (lambda () + (if (gx#stx-pair? _e168003168010_) + (let ((_e168006168018_ (gx#syntax-e _e168003168010_))) + (let ((_hd168007168021_ (##car _e168006168018_)) + (_tl168008168023_ (##cdr _e168006168018_))) + (let ((_body168026_ _tl168008168023_)) (if '#t - (cons '%#define-alias _body166279_) - (_E166258166267_))))) - (_E166258166267_))))) - (_E166257166281_)))) + (cons '%#define-alias _body168026_) + (_E168005168014_))))) + (_E168005168014_))))) + (_E168004168028_)))) (define gx#core-compile-top-define-runtime% - (lambda (_stx166225_) - (let* ((_e166226166233_ _stx166225_) - (_E166228166237_ + (lambda (_stx167972_) + (let* ((_e167973167980_ _stx167972_) + (_E167975167984_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166226166233_))) - (_E166227166251_ - (lambda () - (if (gx#stx-pair? _e166226166233_) - (let ((_e166229166241_ (gx#syntax-e _e166226166233_))) - (let ((_hd166230166244_ (##car _e166229166241_)) - (_tl166231166246_ (##cdr _e166229166241_))) - (let ((_body166249_ _tl166231166246_)) + _e167973167980_))) + (_E167974167998_ + (lambda () + (if (gx#stx-pair? _e167973167980_) + (let ((_e167976167988_ (gx#syntax-e _e167973167980_))) + (let ((_hd167977167991_ (##car _e167976167988_)) + (_tl167978167993_ (##cdr _e167976167988_))) + (let ((_body167996_ _tl167978167993_)) (if '#t - (cons '%#define-runtime _body166249_) - (_E166228166237_))))) - (_E166228166237_))))) - (_E166227166251_)))) + (cons '%#define-runtime _body167996_) + (_E167975167984_))))) + (_E167975167984_))))) + (_E167974167998_)))) (define gx#core-compile-top-declare% - (lambda (_stx166195_) - (let* ((_e166196166203_ _stx166195_) - (_E166198166207_ + (lambda (_stx167942_) + (let* ((_e167943167950_ _stx167942_) + (_E167945167954_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166196166203_))) - (_E166197166221_ - (lambda () - (if (gx#stx-pair? _e166196166203_) - (let ((_e166199166211_ (gx#syntax-e _e166196166203_))) - (let ((_hd166200166214_ (##car _e166199166211_)) - (_tl166201166216_ (##cdr _e166199166211_))) - (let ((_decls166219_ _tl166201166216_)) + _e167943167950_))) + (_E167944167968_ + (lambda () + (if (gx#stx-pair? _e167943167950_) + (let ((_e167946167958_ (gx#syntax-e _e167943167950_))) + (let ((_hd167947167961_ (##car _e167946167958_)) + (_tl167948167963_ (##cdr _e167946167958_))) + (let ((_decls167966_ _tl167948167963_)) (if '#t - (cons '%#declare _decls166219_) - (_E166198166207_))))) - (_E166198166207_))))) - (_E166197166221_)))) + (cons '%#declare _decls167966_) + (_E167945167954_))))) + (_E167945167954_))))) + (_E167944167968_)))) (define gx#core-compile-top-lambda% - (lambda (_stx166165_) - (let* ((_e166166166173_ _stx166165_) - (_E166168166177_ + (lambda (_stx167912_) + (let* ((_e167913167920_ _stx167912_) + (_E167915167924_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166166166173_))) - (_E166167166191_ - (lambda () - (if (gx#stx-pair? _e166166166173_) - (let ((_e166169166181_ (gx#syntax-e _e166166166173_))) - (let ((_hd166170166184_ (##car _e166169166181_)) - (_tl166171166186_ (##cdr _e166169166181_))) - (let ((_clause166189_ _tl166171166186_)) + _e167913167920_))) + (_E167914167938_ + (lambda () + (if (gx#stx-pair? _e167913167920_) + (let ((_e167916167928_ (gx#syntax-e _e167913167920_))) + (let ((_hd167917167931_ (##car _e167916167928_)) + (_tl167918167933_ (##cdr _e167916167928_))) + (let ((_clause167936_ _tl167918167933_)) (if '#t (cons '%#lambda (gx#core-compile-top-lambda-clause - _clause166189_)) - (_E166168166177_))))) - (_E166168166177_))))) - (_E166167166191_)))) + _clause167936_)) + (_E167915167924_))))) + (_E167915167924_))))) + (_E167914167938_)))) (define gx#core-compile-top-lambda-clause - (lambda (_stx166122_) - (let* ((_e166123166133_ _stx166122_) - (_E166125166137_ + (lambda (_stx167869_) + (let* ((_e167870167880_ _stx167869_) + (_E167872167884_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166123166133_))) - (_E166124166161_ - (lambda () - (if (gx#stx-pair? _e166123166133_) - (let ((_e166126166141_ (gx#syntax-e _e166123166133_))) - (let ((_hd166127166144_ (##car _e166126166141_)) - (_tl166128166146_ (##cdr _e166126166141_))) - (let ((_hd166149_ _hd166127166144_)) - (if (gx#stx-pair? _tl166128166146_) - (let ((_e166129166151_ - (gx#syntax-e _tl166128166146_))) - (let ((_hd166130166154_ - (##car _e166129166151_)) - (_tl166131166156_ - (##cdr _e166129166151_))) - (let ((_body166159_ _hd166130166154_)) - (if (gx#stx-null? _tl166131166156_) + _e167870167880_))) + (_E167871167908_ + (lambda () + (if (gx#stx-pair? _e167870167880_) + (let ((_e167873167888_ (gx#syntax-e _e167870167880_))) + (let ((_hd167874167891_ (##car _e167873167888_)) + (_tl167875167893_ (##cdr _e167873167888_))) + (let ((_hd167896_ _hd167874167891_)) + (if (gx#stx-pair? _tl167875167893_) + (let ((_e167876167898_ + (gx#syntax-e _tl167875167893_))) + (let ((_hd167877167901_ + (##car _e167876167898_)) + (_tl167878167903_ + (##cdr _e167876167898_))) + (let ((_body167906_ _hd167877167901_)) + (if (gx#stx-null? _tl167878167903_) (if '#t (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _hd166149_) + _hd167896_) (cons (gx#core-compile-top-syntax - _body166159_) + _body167906_) '())) - (_E166125166137_)) - (_E166125166137_))))) - (_E166125166137_))))) - (_E166125166137_))))) - (_E166124166161_)))) + (_E167872167884_)) + (_E167872167884_))))) + (_E167872167884_))))) + (_E167872167884_))))) + (_E167871167908_)))) (define gx#core-compile-top-case-lambda% - (lambda (_stx166092_) - (let* ((_e166093166100_ _stx166092_) - (_E166095166104_ + (lambda (_stx167839_) + (let* ((_e167840167847_ _stx167839_) + (_E167842167851_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166093166100_))) - (_E166094166118_ - (lambda () - (if (gx#stx-pair? _e166093166100_) - (let ((_e166096166108_ (gx#syntax-e _e166093166100_))) - (let ((_hd166097166111_ (##car _e166096166108_)) - (_tl166098166113_ (##cdr _e166096166108_))) - (let ((_clauses166116_ _tl166098166113_)) + _e167840167847_))) + (_E167841167865_ + (lambda () + (if (gx#stx-pair? _e167840167847_) + (let ((_e167843167855_ (gx#syntax-e _e167840167847_))) + (let ((_hd167844167858_ (##car _e167843167855_)) + (_tl167845167860_ (##cdr _e167843167855_))) + (let ((_clauses167863_ _tl167845167860_)) (if '#t (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _clauses166116_)) - (_E166095166104_))))) - (_E166095166104_))))) - (_E166094166118_)))) + _clauses167863_)) + (_E167842167851_))))) + (_E167842167851_))))) + (_E167841167865_)))) (define gx#core-compile-top-let-values%__% - (lambda (_stx166027_ _form166028_) - (let* ((_e166029166042_ _stx166027_) - (_E166031166046_ + (lambda (_stx167774_ _form167775_) + (let* ((_e167776167789_ _stx167774_) + (_E167778167793_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e166029166042_))) - (_E166030166078_ - (lambda () - (if (gx#stx-pair? _e166029166042_) - (let ((_e166032166050_ (gx#syntax-e _e166029166042_))) - (let ((_hd166033166053_ (##car _e166032166050_)) - (_tl166034166055_ (##cdr _e166032166050_))) - (if (gx#stx-pair? _tl166034166055_) - (let ((_e166035166058_ - (gx#syntax-e _tl166034166055_))) - (let ((_hd166036166061_ - (##car _e166035166058_)) - (_tl166037166063_ - (##cdr _e166035166058_))) - (let ((_hd166066_ _hd166036166061_)) - (if (gx#stx-pair? _tl166037166063_) - (let ((_e166038166068_ - (gx#syntax-e _tl166037166063_))) - (let ((_hd166039166071_ - (##car _e166038166068_)) - (_tl166040166073_ - (##cdr _e166038166068_))) - (let ((_body166076_ - _hd166039166071_)) + _e167776167789_))) + (_E167777167825_ + (lambda () + (if (gx#stx-pair? _e167776167789_) + (let ((_e167779167797_ (gx#syntax-e _e167776167789_))) + (let ((_hd167780167800_ (##car _e167779167797_)) + (_tl167781167802_ (##cdr _e167779167797_))) + (if (gx#stx-pair? _tl167781167802_) + (let ((_e167782167805_ + (gx#syntax-e _tl167781167802_))) + (let ((_hd167783167808_ + (##car _e167782167805_)) + (_tl167784167810_ + (##cdr _e167782167805_))) + (let ((_hd167813_ _hd167783167808_)) + (if (gx#stx-pair? _tl167784167810_) + (let ((_e167785167815_ + (gx#syntax-e _tl167784167810_))) + (let ((_hd167786167818_ + (##car _e167785167815_)) + (_tl167787167820_ + (##cdr _e167785167815_))) + (let ((_body167823_ + _hd167786167818_)) (if (gx#stx-null? - _tl166040166073_) + _tl167787167820_) (if '#t - (cons _form166028_ + (cons _form167775_ (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-lambda-clause - _hd166066_) - (cons (gx#core-compile-top-syntax _body166076_) + _hd167813_) + (cons (gx#core-compile-top-syntax _body167823_) '()))) - (_E166031166046_)) + (_E167778167793_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E166031166046_))))) - (_E166031166046_))))) - (_E166031166046_)))) - (_E166031166046_))))) - (_E166030166078_)))) + (_E167778167793_))))) + (_E167778167793_))))) + (_E167778167793_)))) + (_E167778167793_))))) + (_E167777167825_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_stx166085_) - (let ((_form166087_ '%#let-values)) - (gx#core-compile-top-let-values%__% _stx166085_ _form166087_)))) + (lambda (_stx167832_) + (let ((_form167834_ '%#let-values)) + (gx#core-compile-top-let-values%__% _stx167832_ _form167834_)))) (define gx#core-compile-top-let-values% - (lambda _g171368_ - (let ((_g171367_ (##length _g171368_))) - (cond ((##fx= _g171367_ 1) - (apply (lambda (_stx166085_) - (gx#core-compile-top-let-values%__0 _stx166085_)) - _g171368_)) - ((##fx= _g171367_ 2) - (apply (lambda (_stx166089_ _form166090_) + (lambda _g173215_ + (let ((_g173214_ (##length _g173215_))) + (cond ((##fx= _g173214_ 1) + (apply (lambda (_stx167832_) + (gx#core-compile-top-let-values%__0 _stx167832_)) + _g173215_)) + ((##fx= _g173214_ 2) + (apply (lambda (_stx167836_ _form167837_) (gx#core-compile-top-let-values%__% - _stx166089_ - _form166090_)) - _g171368_)) + _stx167836_ + _form167837_)) + _g173215_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g171368_)))))) + _g173215_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_stx166024_) - (gx#core-compile-top-let-values%__% _stx166024_ '%#letrec-values))) + (lambda (_stx167771_) + (gx#core-compile-top-let-values%__% _stx167771_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_stx166022_) - (gx#core-compile-top-let-values%__% _stx166022_ '%#letrec*-values))) + (lambda (_stx167769_) + (gx#core-compile-top-let-values%__% _stx167769_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_stx165981_) - (let* ((_e165982165992_ _stx165981_) - (_E165984165996_ + (lambda (_stx167728_) + (let* ((_e167729167739_ _stx167728_) + (_E167731167743_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e165982165992_))) - (_E165983166018_ - (lambda () - (if (gx#stx-pair? _e165982165992_) - (let ((_e165985166000_ (gx#syntax-e _e165982165992_))) - (let ((_hd165986166003_ (##car _e165985166000_)) - (_tl165987166005_ (##cdr _e165985166000_))) - (if (gx#stx-pair? _tl165987166005_) - (let ((_e165988166008_ - (gx#syntax-e _tl165987166005_))) - (let ((_hd165989166011_ - (##car _e165988166008_)) - (_tl165990166013_ - (##cdr _e165988166008_))) - (let ((_e166016_ _hd165989166011_)) - (if (gx#stx-null? _tl165990166013_) + _e167729167739_))) + (_E167730167765_ + (lambda () + (if (gx#stx-pair? _e167729167739_) + (let ((_e167732167747_ (gx#syntax-e _e167729167739_))) + (let ((_hd167733167750_ (##car _e167732167747_)) + (_tl167734167752_ (##cdr _e167732167747_))) + (if (gx#stx-pair? _tl167734167752_) + (let ((_e167735167755_ + (gx#syntax-e _tl167734167752_))) + (let ((_hd167736167758_ + (##car _e167735167755_)) + (_tl167737167760_ + (##cdr _e167735167755_))) + (let ((_e167763_ _hd167736167758_)) + (if (gx#stx-null? _tl167737167760_) (if '#t (cons '%#quote (cons (gx#syntax->datum - _e166016_) + _e167763_) '())) - (_E165984165996_)) - (_E165984165996_))))) - (_E165984165996_)))) - (_E165984165996_))))) - (_E165983166018_)))) + (_E167731167743_)) + (_E167731167743_))))) + (_E167731167743_)))) + (_E167731167743_))))) + (_E167730167765_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_stx165940_) - (let* ((_e165941165951_ _stx165940_) - (_E165943165955_ + (lambda (_stx167687_) + (let* ((_e167688167698_ _stx167687_) + (_E167690167702_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e165941165951_))) - (_E165942165977_ - (lambda () - (if (gx#stx-pair? _e165941165951_) - (let ((_e165944165959_ (gx#syntax-e _e165941165951_))) - (let ((_hd165945165962_ (##car _e165944165959_)) - (_tl165946165964_ (##cdr _e165944165959_))) - (if (gx#stx-pair? _tl165946165964_) - (let ((_e165947165967_ - (gx#syntax-e _tl165946165964_))) - (let ((_hd165948165970_ - (##car _e165947165967_)) - (_tl165949165972_ - (##cdr _e165947165967_))) - (let ((_e165975_ _hd165948165970_)) - (if (gx#stx-null? _tl165949165972_) + _e167688167698_))) + (_E167689167724_ + (lambda () + (if (gx#stx-pair? _e167688167698_) + (let ((_e167691167706_ (gx#syntax-e _e167688167698_))) + (let ((_hd167692167709_ (##car _e167691167706_)) + (_tl167693167711_ (##cdr _e167691167706_))) + (if (gx#stx-pair? _tl167693167711_) + (let ((_e167694167714_ + (gx#syntax-e _tl167693167711_))) + (let ((_hd167695167717_ + (##car _e167694167714_)) + (_tl167696167719_ + (##cdr _e167694167714_))) + (let ((_e167722_ _hd167695167717_)) + (if (gx#stx-null? _tl167696167719_) (if '#t (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _e165975_) + _e167722_) '())) - (_E165943165955_)) - (_E165943165955_))))) - (_E165943165955_)))) - (_E165943165955_))))) - (_E165942165977_)))) + (_E167690167702_)) + (_E167690167702_))))) + (_E167690167702_)))) + (_E167690167702_))))) + (_E167689167724_)))) (define gx#core-compile-top-call% - (lambda (_stx165897_) - (let* ((_e165898165908_ _stx165897_) - (_E165900165912_ + (lambda (_stx167644_) + (let* ((_e167645167655_ _stx167644_) + (_E167647167659_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e165898165908_))) - (_E165899165936_ - (lambda () - (if (gx#stx-pair? _e165898165908_) - (let ((_e165901165916_ (gx#syntax-e _e165898165908_))) - (let ((_hd165902165919_ (##car _e165901165916_)) - (_tl165903165921_ (##cdr _e165901165916_))) - (if (gx#stx-pair? _tl165903165921_) - (let ((_e165904165924_ - (gx#syntax-e _tl165903165921_))) - (let ((_hd165905165927_ - (##car _e165904165924_)) - (_tl165906165929_ - (##cdr _e165904165924_))) - (let* ((_rator165932_ _hd165905165927_) - (_args165934_ _tl165906165929_)) + _e167645167655_))) + (_E167646167683_ + (lambda () + (if (gx#stx-pair? _e167645167655_) + (let ((_e167648167663_ (gx#syntax-e _e167645167655_))) + (let ((_hd167649167666_ (##car _e167648167663_)) + (_tl167650167668_ (##cdr _e167648167663_))) + (if (gx#stx-pair? _tl167650167668_) + (let ((_e167651167671_ + (gx#syntax-e _tl167650167668_))) + (let ((_hd167652167674_ + (##car _e167651167671_)) + (_tl167653167676_ + (##cdr _e167651167671_))) + (let* ((_rator167679_ _hd167652167674_) + (_args167681_ _tl167653167676_)) (if '#t (cons '%#call (cons (gx#core-compile-top-syntax - _rator165932_) + _rator167679_) (gx#stx-map1 gx#core-compile-top-syntax - _args165934_))) - (_E165900165912_))))) - (_E165900165912_)))) - (_E165900165912_))))) - (_E165899165936_)))) + _args167681_))) + (_E167647167659_))))) + (_E167647167659_)))) + (_E167647167659_))))) + (_E167646167683_)))) (define gx#core-compile-top-if% - (lambda (_stx165830_) - (let* ((_e165831165847_ _stx165830_) - (_E165833165851_ + (lambda (_stx167577_) + (let* ((_e167578167594_ _stx167577_) + (_E167580167598_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e165831165847_))) - (_E165832165893_ - (lambda () - (if (gx#stx-pair? _e165831165847_) - (let ((_e165834165855_ (gx#syntax-e _e165831165847_))) - (let ((_hd165835165858_ (##car _e165834165855_)) - (_tl165836165860_ (##cdr _e165834165855_))) - (if (gx#stx-pair? _tl165836165860_) - (let ((_e165837165863_ - (gx#syntax-e _tl165836165860_))) - (let ((_hd165838165866_ - (##car _e165837165863_)) - (_tl165839165868_ - (##cdr _e165837165863_))) - (let ((_test165871_ _hd165838165866_)) - (if (gx#stx-pair? _tl165839165868_) - (let ((_e165840165873_ - (gx#syntax-e _tl165839165868_))) - (let ((_hd165841165876_ - (##car _e165840165873_)) - (_tl165842165878_ - (##cdr _e165840165873_))) - (let ((_K165881_ _hd165841165876_)) + _e167578167594_))) + (_E167579167640_ + (lambda () + (if (gx#stx-pair? _e167578167594_) + (let ((_e167581167602_ (gx#syntax-e _e167578167594_))) + (let ((_hd167582167605_ (##car _e167581167602_)) + (_tl167583167607_ (##cdr _e167581167602_))) + (if (gx#stx-pair? _tl167583167607_) + (let ((_e167584167610_ + (gx#syntax-e _tl167583167607_))) + (let ((_hd167585167613_ + (##car _e167584167610_)) + (_tl167586167615_ + (##cdr _e167584167610_))) + (let ((_test167618_ _hd167585167613_)) + (if (gx#stx-pair? _tl167586167615_) + (let ((_e167587167620_ + (gx#syntax-e _tl167586167615_))) + (let ((_hd167588167623_ + (##car _e167587167620_)) + (_tl167589167625_ + (##cdr _e167587167620_))) + (let ((_K167628_ _hd167588167623_)) (if (gx#stx-pair? - _tl165842165878_) - (let ((_e165843165883_ + _tl167589167625_) + (let ((_e167590167630_ (gx#syntax-e - _tl165842165878_))) - (let ((_hd165844165886_ - (##car _e165843165883_)) - (_tl165845165888_ - (##cdr _e165843165883_))) - (let ((_E165891_ - _hd165844165886_)) + _tl167589167625_))) + (let ((_hd167591167633_ + (##car _e167590167630_)) + (_tl167592167635_ + (##cdr _e167590167630_))) + (let ((_E167638_ + _hd167591167633_)) (if (gx#stx-null? - _tl165845165888_) + _tl167592167635_) (if '#t (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _test165871_) + (cons (gx#core-compile-top-syntax _test167618_) (cons (gx#core-compile-top-syntax - _K165881_) + _K167628_) (cons (gx#core-compile-top-syntax - _E165891_) + _E167638_) '())))) - (_E165833165851_)) - (_E165833165851_))))) + (_E167580167598_)) + (_E167580167598_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E165833165851_))))) - (_E165833165851_))))) - (_E165833165851_)))) - (_E165833165851_))))) - (_E165832165893_)))) + (_E167580167598_))))) + (_E167580167598_))))) + (_E167580167598_)))) + (_E167580167598_))))) + (_E167579167640_)))) (define gx#core-compile-top-ref% - (lambda (_stx165789_) - (let* ((_e165790165800_ _stx165789_) - (_E165792165804_ + (lambda (_stx167536_) + (let* ((_e167537167547_ _stx167536_) + (_E167539167551_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e165790165800_))) - (_E165791165826_ - (lambda () - (if (gx#stx-pair? _e165790165800_) - (let ((_e165793165808_ (gx#syntax-e _e165790165800_))) - (let ((_hd165794165811_ (##car _e165793165808_)) - (_tl165795165813_ (##cdr _e165793165808_))) - (if (gx#stx-pair? _tl165795165813_) - (let ((_e165796165816_ - (gx#syntax-e _tl165795165813_))) - (let ((_hd165797165819_ - (##car _e165796165816_)) - (_tl165798165821_ - (##cdr _e165796165816_))) - (let ((_id165824_ _hd165797165819_)) - (if (gx#stx-null? _tl165798165821_) - (if (gx#identifier? _id165824_) + _e167537167547_))) + (_E167538167573_ + (lambda () + (if (gx#stx-pair? _e167537167547_) + (let ((_e167540167555_ (gx#syntax-e _e167537167547_))) + (let ((_hd167541167558_ (##car _e167540167555_)) + (_tl167542167560_ (##cdr _e167540167555_))) + (if (gx#stx-pair? _tl167542167560_) + (let ((_e167543167563_ + (gx#syntax-e _tl167542167560_))) + (let ((_hd167544167566_ + (##car _e167543167563_)) + (_tl167545167568_ + (##cdr _e167543167563_))) + (let ((_id167571_ _hd167544167566_)) + (if (gx#stx-null? _tl167545167568_) + (if (gx#identifier? _id167571_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _id165824_) + _id167571_) '())) - (_E165792165804_)) - (_E165792165804_))))) - (_E165792165804_)))) - (_E165792165804_))))) - (_E165791165826_)))) + (_E167539167551_)) + (_E167539167551_))))) + (_E167539167551_)))) + (_E167539167551_))))) + (_E167538167573_)))) (define gx#core-compile-top-setq% - (lambda (_stx165735_) - (let* ((_e165736165749_ _stx165735_) - (_E165738165753_ + (lambda (_stx167482_) + (let* ((_e167483167496_ _stx167482_) + (_E167485167500_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e165736165749_))) - (_E165737165785_ - (lambda () - (if (gx#stx-pair? _e165736165749_) - (let ((_e165739165757_ (gx#syntax-e _e165736165749_))) - (let ((_hd165740165760_ (##car _e165739165757_)) - (_tl165741165762_ (##cdr _e165739165757_))) - (if (gx#stx-pair? _tl165741165762_) - (let ((_e165742165765_ - (gx#syntax-e _tl165741165762_))) - (let ((_hd165743165768_ - (##car _e165742165765_)) - (_tl165744165770_ - (##cdr _e165742165765_))) - (let ((_id165773_ _hd165743165768_)) - (if (gx#stx-pair? _tl165744165770_) - (let ((_e165745165775_ - (gx#syntax-e _tl165744165770_))) - (let ((_hd165746165778_ - (##car _e165745165775_)) - (_tl165747165780_ - (##cdr _e165745165775_))) - (let ((_expr165783_ - _hd165746165778_)) + _e167483167496_))) + (_E167484167532_ + (lambda () + (if (gx#stx-pair? _e167483167496_) + (let ((_e167486167504_ (gx#syntax-e _e167483167496_))) + (let ((_hd167487167507_ (##car _e167486167504_)) + (_tl167488167509_ (##cdr _e167486167504_))) + (if (gx#stx-pair? _tl167488167509_) + (let ((_e167489167512_ + (gx#syntax-e _tl167488167509_))) + (let ((_hd167490167515_ + (##car _e167489167512_)) + (_tl167491167517_ + (##cdr _e167489167512_))) + (let ((_id167520_ _hd167490167515_)) + (if (gx#stx-pair? _tl167491167517_) + (let ((_e167492167522_ + (gx#syntax-e _tl167491167517_))) + (let ((_hd167493167525_ + (##car _e167492167522_)) + (_tl167494167527_ + (##cdr _e167492167522_))) + (let ((_expr167530_ + _hd167493167525_)) (if (gx#stx-null? - _tl165747165780_) + _tl167494167527_) (if (gx#identifier? - _id165773_) + _id167520_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id165773_) - (cons (gx#core-compile-top-syntax _expr165783_) + _id167520_) + (cons (gx#core-compile-top-syntax _expr167530_) '()))) - (_E165738165753_)) + (_E167485167500_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E165738165753_))))) - (_E165738165753_))))) - (_E165738165753_)))) - (_E165738165753_))))) - (_E165737165785_)))) + (_E167485167500_))))) + (_E167485167500_))))) + (_E167485167500_)))) + (_E167485167500_))))) + (_E167484167532_)))) (define gx#core-compile-top-runtime-ref - (lambda (_id165730_) - (let ((_$e165732_ (gx#resolve-identifier__0 _id165730_))) - (if _$e165732_ - (##unchecked-structure-ref _$e165732_ '1 gx#binding::t '#f) - _id165730_)))) + (lambda (_id167477_) + (let ((_$e167479_ (gx#resolve-identifier__0 _id167477_))) + (if _$e167479_ + (##unchecked-structure-ref _$e167479_ '1 gx#binding::t '#f) + _id167477_)))) (define gx#core-compile-top-runtime-bind - (lambda (_hd165728_) - (if (gx#identifier? _hd165728_) - (gx#core-compile-top-runtime-ref _hd165728_) + (lambda (_hd167475_) + (if (gx#identifier? _hd167475_) + (gx#core-compile-top-runtime-ref _hd167475_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core__0.scm b/src/bootstrap/gerbil/expander/core__0.scm index 6b6f8d146..8f778c2b7 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 1707573212) + (define gerbil/expander/core::timestamp 1707674931) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -19,2287 +19,2271 @@ (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-class-type 'gx#expander-context::t 'expander-context - '#f + (list) '(id table) (cons (cons 'struct: '#t) '()) ':init!)) - (define gx#expander-context? - (make-struct-predicate gx#expander-context::t)) + (define gx#expander-context? (make-class-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _$args143349_ - (apply make-struct-instance gx#expander-context::t _$args143349_))) + (lambda _$args144796_ + (apply make-instance gx#expander-context::t _$args144796_))) (define gx#expander-context-id - (make-struct-slot-accessor gx#expander-context::t 'id)) + (make-class-slot-accessor gx#expander-context::t 'id)) (define gx#expander-context-table - (make-struct-slot-accessor gx#expander-context::t 'table)) + (make-class-slot-accessor gx#expander-context::t 'table)) (define gx#expander-context-id-set! - (make-struct-slot-mutator gx#expander-context::t 'id)) + (make-class-slot-mutator gx#expander-context::t 'id)) (define gx#expander-context-table-set! - (make-struct-slot-mutator gx#expander-context::t 'table)) + (make-class-slot-mutator gx#expander-context::t 'table)) (define gx#&expander-context-id - (make-struct-slot-unchecked-accessor gx#expander-context::t 'id)) + (make-class-slot-unchecked-accessor gx#expander-context::t 'id)) (define gx#&expander-context-table - (make-struct-slot-unchecked-accessor gx#expander-context::t 'table)) + (make-class-slot-unchecked-accessor gx#expander-context::t 'table)) (define gx#&expander-context-id-set! - (make-struct-slot-unchecked-mutator gx#expander-context::t 'id)) + (make-class-slot-unchecked-mutator gx#expander-context::t 'id)) (define gx#&expander-context-table-set! - (make-struct-slot-unchecked-mutator gx#expander-context::t 'table)) + (make-class-slot-unchecked-mutator gx#expander-context::t 'table)) (define gx#root-context::t - (make-struct-type + (make-class-type 'gx#root-context::t 'root-context - gx#expander-context::t + (list gx#expander-context::t) '() (cons (cons 'struct: '#t) '()) '#f)) - (define gx#root-context? (make-struct-predicate gx#root-context::t)) + (define gx#root-context? (make-class-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _$args143346_ - (apply make-struct-instance gx#root-context::t _$args143346_))) + (lambda _$args144793_ + (apply make-instance gx#root-context::t _$args144793_))) (define gx#root-context-id - (make-struct-slot-accessor gx#root-context::t 'id)) + (make-class-slot-accessor gx#root-context::t 'id)) (define gx#root-context-table - (make-struct-slot-accessor gx#root-context::t 'table)) + (make-class-slot-accessor gx#root-context::t 'table)) (define gx#root-context-id-set! - (make-struct-slot-mutator gx#root-context::t 'id)) + (make-class-slot-mutator gx#root-context::t 'id)) (define gx#root-context-table-set! - (make-struct-slot-mutator gx#root-context::t 'table)) + (make-class-slot-mutator gx#root-context::t 'table)) (define gx#&root-context-id - (make-struct-slot-unchecked-accessor gx#root-context::t 'id)) + (make-class-slot-unchecked-accessor gx#root-context::t 'id)) (define gx#&root-context-table - (make-struct-slot-unchecked-accessor gx#root-context::t 'table)) + (make-class-slot-unchecked-accessor gx#root-context::t 'table)) (define gx#&root-context-id-set! - (make-struct-slot-unchecked-mutator gx#root-context::t 'id)) + (make-class-slot-unchecked-mutator gx#root-context::t 'id)) (define gx#&root-context-table-set! - (make-struct-slot-unchecked-mutator gx#root-context::t 'table)) + (make-class-slot-unchecked-mutator gx#root-context::t 'table)) (define gx#phi-context::t - (make-struct-type + (make-class-type 'gx#context-phi::t 'phi-context - gx#expander-context::t + (list gx#expander-context::t) '(super up down) (cons (cons 'struct: '#t) '()) '#f)) - (define gx#phi-context? (make-struct-predicate gx#phi-context::t)) + (define gx#phi-context? (make-class-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _$args143343_ - (apply make-struct-instance gx#phi-context::t _$args143343_))) + (lambda _$args144790_ + (apply make-instance gx#phi-context::t _$args144790_))) (define gx#phi-context-super - (make-struct-slot-accessor gx#phi-context::t 'super)) - (define gx#phi-context-up - (make-struct-slot-accessor gx#phi-context::t 'up)) + (make-class-slot-accessor gx#phi-context::t 'super)) + (define gx#phi-context-up (make-class-slot-accessor gx#phi-context::t 'up)) (define gx#phi-context-down - (make-struct-slot-accessor gx#phi-context::t 'down)) - (define gx#phi-context-id - (make-struct-slot-accessor gx#phi-context::t 'id)) + (make-class-slot-accessor gx#phi-context::t 'down)) + (define gx#phi-context-id (make-class-slot-accessor gx#phi-context::t 'id)) (define gx#phi-context-table - (make-struct-slot-accessor gx#phi-context::t 'table)) + (make-class-slot-accessor gx#phi-context::t 'table)) (define gx#phi-context-super-set! - (make-struct-slot-mutator gx#phi-context::t 'super)) + (make-class-slot-mutator gx#phi-context::t 'super)) (define gx#phi-context-up-set! - (make-struct-slot-mutator gx#phi-context::t 'up)) + (make-class-slot-mutator gx#phi-context::t 'up)) (define gx#phi-context-down-set! - (make-struct-slot-mutator gx#phi-context::t 'down)) + (make-class-slot-mutator gx#phi-context::t 'down)) (define gx#phi-context-id-set! - (make-struct-slot-mutator gx#phi-context::t 'id)) + (make-class-slot-mutator gx#phi-context::t 'id)) (define gx#phi-context-table-set! - (make-struct-slot-mutator gx#phi-context::t 'table)) + (make-class-slot-mutator gx#phi-context::t 'table)) (define gx#&phi-context-super - (make-struct-slot-unchecked-accessor gx#phi-context::t 'super)) + (make-class-slot-unchecked-accessor gx#phi-context::t 'super)) (define gx#&phi-context-up - (make-struct-slot-unchecked-accessor gx#phi-context::t 'up)) + (make-class-slot-unchecked-accessor gx#phi-context::t 'up)) (define gx#&phi-context-down - (make-struct-slot-unchecked-accessor gx#phi-context::t 'down)) + (make-class-slot-unchecked-accessor gx#phi-context::t 'down)) (define gx#&phi-context-id - (make-struct-slot-unchecked-accessor gx#phi-context::t 'id)) + (make-class-slot-unchecked-accessor gx#phi-context::t 'id)) (define gx#&phi-context-table - (make-struct-slot-unchecked-accessor gx#phi-context::t 'table)) + (make-class-slot-unchecked-accessor gx#phi-context::t 'table)) (define gx#&phi-context-super-set! - (make-struct-slot-unchecked-mutator gx#phi-context::t 'super)) + (make-class-slot-unchecked-mutator gx#phi-context::t 'super)) (define gx#&phi-context-up-set! - (make-struct-slot-unchecked-mutator gx#phi-context::t 'up)) + (make-class-slot-unchecked-mutator gx#phi-context::t 'up)) (define gx#&phi-context-down-set! - (make-struct-slot-unchecked-mutator gx#phi-context::t 'down)) + (make-class-slot-unchecked-mutator gx#phi-context::t 'down)) (define gx#&phi-context-id-set! - (make-struct-slot-unchecked-mutator gx#phi-context::t 'id)) + (make-class-slot-unchecked-mutator gx#phi-context::t 'id)) (define gx#&phi-context-table-set! - (make-struct-slot-unchecked-mutator gx#phi-context::t 'table)) + (make-class-slot-unchecked-mutator gx#phi-context::t 'table)) (define gx#top-context::t - (make-struct-type + (make-class-type 'gx#top-context::t 'top-context - gx#phi-context::t + (list gx#phi-context::t) '() (cons (cons 'struct: '#t) '()) '#f)) - (define gx#top-context? (make-struct-predicate gx#top-context::t)) + (define gx#top-context? (make-class-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _$args143340_ - (apply make-struct-instance gx#top-context::t _$args143340_))) + (lambda _$args144787_ + (apply make-instance gx#top-context::t _$args144787_))) (define gx#top-context-super - (make-struct-slot-accessor gx#top-context::t 'super)) - (define gx#top-context-up - (make-struct-slot-accessor gx#top-context::t 'up)) + (make-class-slot-accessor gx#top-context::t 'super)) + (define gx#top-context-up (make-class-slot-accessor gx#top-context::t 'up)) (define gx#top-context-down - (make-struct-slot-accessor gx#top-context::t 'down)) - (define gx#top-context-id - (make-struct-slot-accessor gx#top-context::t 'id)) + (make-class-slot-accessor gx#top-context::t 'down)) + (define gx#top-context-id (make-class-slot-accessor gx#top-context::t 'id)) (define gx#top-context-table - (make-struct-slot-accessor gx#top-context::t 'table)) + (make-class-slot-accessor gx#top-context::t 'table)) (define gx#top-context-super-set! - (make-struct-slot-mutator gx#top-context::t 'super)) + (make-class-slot-mutator gx#top-context::t 'super)) (define gx#top-context-up-set! - (make-struct-slot-mutator gx#top-context::t 'up)) + (make-class-slot-mutator gx#top-context::t 'up)) (define gx#top-context-down-set! - (make-struct-slot-mutator gx#top-context::t 'down)) + (make-class-slot-mutator gx#top-context::t 'down)) (define gx#top-context-id-set! - (make-struct-slot-mutator gx#top-context::t 'id)) + (make-class-slot-mutator gx#top-context::t 'id)) (define gx#top-context-table-set! - (make-struct-slot-mutator gx#top-context::t 'table)) + (make-class-slot-mutator gx#top-context::t 'table)) (define gx#&top-context-super - (make-struct-slot-unchecked-accessor gx#top-context::t 'super)) + (make-class-slot-unchecked-accessor gx#top-context::t 'super)) (define gx#&top-context-up - (make-struct-slot-unchecked-accessor gx#top-context::t 'up)) + (make-class-slot-unchecked-accessor gx#top-context::t 'up)) (define gx#&top-context-down - (make-struct-slot-unchecked-accessor gx#top-context::t 'down)) + (make-class-slot-unchecked-accessor gx#top-context::t 'down)) (define gx#&top-context-id - (make-struct-slot-unchecked-accessor gx#top-context::t 'id)) + (make-class-slot-unchecked-accessor gx#top-context::t 'id)) (define gx#&top-context-table - (make-struct-slot-unchecked-accessor gx#top-context::t 'table)) + (make-class-slot-unchecked-accessor gx#top-context::t 'table)) (define gx#&top-context-super-set! - (make-struct-slot-unchecked-mutator gx#top-context::t 'super)) + (make-class-slot-unchecked-mutator gx#top-context::t 'super)) (define gx#&top-context-up-set! - (make-struct-slot-unchecked-mutator gx#top-context::t 'up)) + (make-class-slot-unchecked-mutator gx#top-context::t 'up)) (define gx#&top-context-down-set! - (make-struct-slot-unchecked-mutator gx#top-context::t 'down)) + (make-class-slot-unchecked-mutator gx#top-context::t 'down)) (define gx#&top-context-id-set! - (make-struct-slot-unchecked-mutator gx#top-context::t 'id)) + (make-class-slot-unchecked-mutator gx#top-context::t 'id)) (define gx#&top-context-table-set! - (make-struct-slot-unchecked-mutator gx#top-context::t 'table)) + (make-class-slot-unchecked-mutator gx#top-context::t 'table)) (define gx#module-context::t - (make-struct-type + (make-class-type 'gx#module-context::t 'module-context - gx#top-context::t + (list gx#top-context::t) '(ns path import export e code) (cons (cons 'struct: '#t) '()) '#f)) - (define gx#module-context? (make-struct-predicate gx#module-context::t)) + (define gx#module-context? (make-class-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _$args143337_ - (apply make-struct-instance gx#module-context::t _$args143337_))) + (lambda _$args144784_ + (apply make-instance gx#module-context::t _$args144784_))) (define gx#module-context-ns - (make-struct-slot-accessor gx#module-context::t 'ns)) + (make-class-slot-accessor gx#module-context::t 'ns)) (define gx#module-context-path - (make-struct-slot-accessor gx#module-context::t 'path)) + (make-class-slot-accessor gx#module-context::t 'path)) (define gx#module-context-import - (make-struct-slot-accessor gx#module-context::t 'import)) + (make-class-slot-accessor gx#module-context::t 'import)) (define gx#module-context-export - (make-struct-slot-accessor gx#module-context::t 'export)) + (make-class-slot-accessor gx#module-context::t 'export)) (define gx#module-context-e - (make-struct-slot-accessor gx#module-context::t 'e)) + (make-class-slot-accessor gx#module-context::t 'e)) (define gx#module-context-code - (make-struct-slot-accessor gx#module-context::t 'code)) + (make-class-slot-accessor gx#module-context::t 'code)) (define gx#module-context-super - (make-struct-slot-accessor gx#module-context::t 'super)) + (make-class-slot-accessor gx#module-context::t 'super)) (define gx#module-context-up - (make-struct-slot-accessor gx#module-context::t 'up)) + (make-class-slot-accessor gx#module-context::t 'up)) (define gx#module-context-down - (make-struct-slot-accessor gx#module-context::t 'down)) + (make-class-slot-accessor gx#module-context::t 'down)) (define gx#module-context-id - (make-struct-slot-accessor gx#module-context::t 'id)) + (make-class-slot-accessor gx#module-context::t 'id)) (define gx#module-context-table - (make-struct-slot-accessor gx#module-context::t 'table)) + (make-class-slot-accessor gx#module-context::t 'table)) (define gx#module-context-ns-set! - (make-struct-slot-mutator gx#module-context::t 'ns)) + (make-class-slot-mutator gx#module-context::t 'ns)) (define gx#module-context-path-set! - (make-struct-slot-mutator gx#module-context::t 'path)) + (make-class-slot-mutator gx#module-context::t 'path)) (define gx#module-context-import-set! - (make-struct-slot-mutator gx#module-context::t 'import)) + (make-class-slot-mutator gx#module-context::t 'import)) (define gx#module-context-export-set! - (make-struct-slot-mutator gx#module-context::t 'export)) + (make-class-slot-mutator gx#module-context::t 'export)) (define gx#module-context-e-set! - (make-struct-slot-mutator gx#module-context::t 'e)) + (make-class-slot-mutator gx#module-context::t 'e)) (define gx#module-context-code-set! - (make-struct-slot-mutator gx#module-context::t 'code)) + (make-class-slot-mutator gx#module-context::t 'code)) (define gx#module-context-super-set! - (make-struct-slot-mutator gx#module-context::t 'super)) + (make-class-slot-mutator gx#module-context::t 'super)) (define gx#module-context-up-set! - (make-struct-slot-mutator gx#module-context::t 'up)) + (make-class-slot-mutator gx#module-context::t 'up)) (define gx#module-context-down-set! - (make-struct-slot-mutator gx#module-context::t 'down)) + (make-class-slot-mutator gx#module-context::t 'down)) (define gx#module-context-id-set! - (make-struct-slot-mutator gx#module-context::t 'id)) + (make-class-slot-mutator gx#module-context::t 'id)) (define gx#module-context-table-set! - (make-struct-slot-mutator gx#module-context::t 'table)) + (make-class-slot-mutator gx#module-context::t 'table)) (define gx#&module-context-ns - (make-struct-slot-unchecked-accessor gx#module-context::t 'ns)) + (make-class-slot-unchecked-accessor gx#module-context::t 'ns)) (define gx#&module-context-path - (make-struct-slot-unchecked-accessor gx#module-context::t 'path)) + (make-class-slot-unchecked-accessor gx#module-context::t 'path)) (define gx#&module-context-import - (make-struct-slot-unchecked-accessor gx#module-context::t 'import)) + (make-class-slot-unchecked-accessor gx#module-context::t 'import)) (define gx#&module-context-export - (make-struct-slot-unchecked-accessor gx#module-context::t 'export)) + (make-class-slot-unchecked-accessor gx#module-context::t 'export)) (define gx#&module-context-e - (make-struct-slot-unchecked-accessor gx#module-context::t 'e)) + (make-class-slot-unchecked-accessor gx#module-context::t 'e)) (define gx#&module-context-code - (make-struct-slot-unchecked-accessor gx#module-context::t 'code)) + (make-class-slot-unchecked-accessor gx#module-context::t 'code)) (define gx#&module-context-super - (make-struct-slot-unchecked-accessor gx#module-context::t 'super)) + (make-class-slot-unchecked-accessor gx#module-context::t 'super)) (define gx#&module-context-up - (make-struct-slot-unchecked-accessor gx#module-context::t 'up)) + (make-class-slot-unchecked-accessor gx#module-context::t 'up)) (define gx#&module-context-down - (make-struct-slot-unchecked-accessor gx#module-context::t 'down)) + (make-class-slot-unchecked-accessor gx#module-context::t 'down)) (define gx#&module-context-id - (make-struct-slot-unchecked-accessor gx#module-context::t 'id)) + (make-class-slot-unchecked-accessor gx#module-context::t 'id)) (define gx#&module-context-table - (make-struct-slot-unchecked-accessor gx#module-context::t 'table)) + (make-class-slot-unchecked-accessor gx#module-context::t 'table)) (define gx#&module-context-ns-set! - (make-struct-slot-unchecked-mutator gx#module-context::t 'ns)) + (make-class-slot-unchecked-mutator gx#module-context::t 'ns)) (define gx#&module-context-path-set! - (make-struct-slot-unchecked-mutator gx#module-context::t 'path)) + (make-class-slot-unchecked-mutator gx#module-context::t 'path)) (define gx#&module-context-import-set! - (make-struct-slot-unchecked-mutator gx#module-context::t 'import)) + (make-class-slot-unchecked-mutator gx#module-context::t 'import)) (define gx#&module-context-export-set! - (make-struct-slot-unchecked-mutator gx#module-context::t 'export)) + (make-class-slot-unchecked-mutator gx#module-context::t 'export)) (define gx#&module-context-e-set! - (make-struct-slot-unchecked-mutator gx#module-context::t 'e)) + (make-class-slot-unchecked-mutator gx#module-context::t 'e)) (define gx#&module-context-code-set! - (make-struct-slot-unchecked-mutator gx#module-context::t 'code)) + (make-class-slot-unchecked-mutator gx#module-context::t 'code)) (define gx#&module-context-super-set! - (make-struct-slot-unchecked-mutator gx#module-context::t 'super)) + (make-class-slot-unchecked-mutator gx#module-context::t 'super)) (define gx#&module-context-up-set! - (make-struct-slot-unchecked-mutator gx#module-context::t 'up)) + (make-class-slot-unchecked-mutator gx#module-context::t 'up)) (define gx#&module-context-down-set! - (make-struct-slot-unchecked-mutator gx#module-context::t 'down)) + (make-class-slot-unchecked-mutator gx#module-context::t 'down)) (define gx#&module-context-id-set! - (make-struct-slot-unchecked-mutator gx#module-context::t 'id)) + (make-class-slot-unchecked-mutator gx#module-context::t 'id)) (define gx#&module-context-table-set! - (make-struct-slot-unchecked-mutator gx#module-context::t 'table)) + (make-class-slot-unchecked-mutator gx#module-context::t 'table)) (define gx#prelude-context::t - (make-struct-type + (make-class-type 'gx#prelude-context::t 'prelude-context - gx#top-context::t + (list gx#top-context::t) '(path import e) (cons (cons 'struct: '#t) '()) '#f)) - (define gx#prelude-context? (make-struct-predicate gx#prelude-context::t)) + (define gx#prelude-context? (make-class-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _$args143334_ - (apply make-struct-instance gx#prelude-context::t _$args143334_))) + (lambda _$args144781_ + (apply make-instance gx#prelude-context::t _$args144781_))) (define gx#prelude-context-path - (make-struct-slot-accessor gx#prelude-context::t 'path)) + (make-class-slot-accessor gx#prelude-context::t 'path)) (define gx#prelude-context-import - (make-struct-slot-accessor gx#prelude-context::t 'import)) + (make-class-slot-accessor gx#prelude-context::t 'import)) (define gx#prelude-context-e - (make-struct-slot-accessor gx#prelude-context::t 'e)) + (make-class-slot-accessor gx#prelude-context::t 'e)) (define gx#prelude-context-super - (make-struct-slot-accessor gx#prelude-context::t 'super)) + (make-class-slot-accessor gx#prelude-context::t 'super)) (define gx#prelude-context-up - (make-struct-slot-accessor gx#prelude-context::t 'up)) + (make-class-slot-accessor gx#prelude-context::t 'up)) (define gx#prelude-context-down - (make-struct-slot-accessor gx#prelude-context::t 'down)) + (make-class-slot-accessor gx#prelude-context::t 'down)) (define gx#prelude-context-id - (make-struct-slot-accessor gx#prelude-context::t 'id)) + (make-class-slot-accessor gx#prelude-context::t 'id)) (define gx#prelude-context-table - (make-struct-slot-accessor gx#prelude-context::t 'table)) + (make-class-slot-accessor gx#prelude-context::t 'table)) (define gx#prelude-context-path-set! - (make-struct-slot-mutator gx#prelude-context::t 'path)) + (make-class-slot-mutator gx#prelude-context::t 'path)) (define gx#prelude-context-import-set! - (make-struct-slot-mutator gx#prelude-context::t 'import)) + (make-class-slot-mutator gx#prelude-context::t 'import)) (define gx#prelude-context-e-set! - (make-struct-slot-mutator gx#prelude-context::t 'e)) + (make-class-slot-mutator gx#prelude-context::t 'e)) (define gx#prelude-context-super-set! - (make-struct-slot-mutator gx#prelude-context::t 'super)) + (make-class-slot-mutator gx#prelude-context::t 'super)) (define gx#prelude-context-up-set! - (make-struct-slot-mutator gx#prelude-context::t 'up)) + (make-class-slot-mutator gx#prelude-context::t 'up)) (define gx#prelude-context-down-set! - (make-struct-slot-mutator gx#prelude-context::t 'down)) + (make-class-slot-mutator gx#prelude-context::t 'down)) (define gx#prelude-context-id-set! - (make-struct-slot-mutator gx#prelude-context::t 'id)) + (make-class-slot-mutator gx#prelude-context::t 'id)) (define gx#prelude-context-table-set! - (make-struct-slot-mutator gx#prelude-context::t 'table)) + (make-class-slot-mutator gx#prelude-context::t 'table)) (define gx#&prelude-context-path - (make-struct-slot-unchecked-accessor gx#prelude-context::t 'path)) + (make-class-slot-unchecked-accessor gx#prelude-context::t 'path)) (define gx#&prelude-context-import - (make-struct-slot-unchecked-accessor gx#prelude-context::t 'import)) + (make-class-slot-unchecked-accessor gx#prelude-context::t 'import)) (define gx#&prelude-context-e - (make-struct-slot-unchecked-accessor gx#prelude-context::t 'e)) + (make-class-slot-unchecked-accessor gx#prelude-context::t 'e)) (define gx#&prelude-context-super - (make-struct-slot-unchecked-accessor gx#prelude-context::t 'super)) + (make-class-slot-unchecked-accessor gx#prelude-context::t 'super)) (define gx#&prelude-context-up - (make-struct-slot-unchecked-accessor gx#prelude-context::t 'up)) + (make-class-slot-unchecked-accessor gx#prelude-context::t 'up)) (define gx#&prelude-context-down - (make-struct-slot-unchecked-accessor gx#prelude-context::t 'down)) + (make-class-slot-unchecked-accessor gx#prelude-context::t 'down)) (define gx#&prelude-context-id - (make-struct-slot-unchecked-accessor gx#prelude-context::t 'id)) + (make-class-slot-unchecked-accessor gx#prelude-context::t 'id)) (define gx#&prelude-context-table - (make-struct-slot-unchecked-accessor gx#prelude-context::t 'table)) + (make-class-slot-unchecked-accessor gx#prelude-context::t 'table)) (define gx#&prelude-context-path-set! - (make-struct-slot-unchecked-mutator gx#prelude-context::t 'path)) + (make-class-slot-unchecked-mutator gx#prelude-context::t 'path)) (define gx#&prelude-context-import-set! - (make-struct-slot-unchecked-mutator gx#prelude-context::t 'import)) + (make-class-slot-unchecked-mutator gx#prelude-context::t 'import)) (define gx#&prelude-context-e-set! - (make-struct-slot-unchecked-mutator gx#prelude-context::t 'e)) + (make-class-slot-unchecked-mutator gx#prelude-context::t 'e)) (define gx#&prelude-context-super-set! - (make-struct-slot-unchecked-mutator gx#prelude-context::t 'super)) + (make-class-slot-unchecked-mutator gx#prelude-context::t 'super)) (define gx#&prelude-context-up-set! - (make-struct-slot-unchecked-mutator gx#prelude-context::t 'up)) + (make-class-slot-unchecked-mutator gx#prelude-context::t 'up)) (define gx#&prelude-context-down-set! - (make-struct-slot-unchecked-mutator gx#prelude-context::t 'down)) + (make-class-slot-unchecked-mutator gx#prelude-context::t 'down)) (define gx#&prelude-context-id-set! - (make-struct-slot-unchecked-mutator gx#prelude-context::t 'id)) + (make-class-slot-unchecked-mutator gx#prelude-context::t 'id)) (define gx#&prelude-context-table-set! - (make-struct-slot-unchecked-mutator gx#prelude-context::t 'table)) + (make-class-slot-unchecked-mutator gx#prelude-context::t 'table)) (define gx#local-context::t - (make-struct-type + (make-class-type 'gx#local-context::t 'local-context - gx#phi-context::t + (list gx#phi-context::t) '() (cons (cons 'struct: '#t) '()) '#f)) - (define gx#local-context? (make-struct-predicate gx#local-context::t)) + (define gx#local-context? (make-class-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _$args143331_ - (apply make-struct-instance gx#local-context::t _$args143331_))) + (lambda _$args144778_ + (apply make-instance gx#local-context::t _$args144778_))) (define gx#local-context-super - (make-struct-slot-accessor gx#local-context::t 'super)) + (make-class-slot-accessor gx#local-context::t 'super)) (define gx#local-context-up - (make-struct-slot-accessor gx#local-context::t 'up)) + (make-class-slot-accessor gx#local-context::t 'up)) (define gx#local-context-down - (make-struct-slot-accessor gx#local-context::t 'down)) + (make-class-slot-accessor gx#local-context::t 'down)) (define gx#local-context-id - (make-struct-slot-accessor gx#local-context::t 'id)) + (make-class-slot-accessor gx#local-context::t 'id)) (define gx#local-context-table - (make-struct-slot-accessor gx#local-context::t 'table)) + (make-class-slot-accessor gx#local-context::t 'table)) (define gx#local-context-super-set! - (make-struct-slot-mutator gx#local-context::t 'super)) + (make-class-slot-mutator gx#local-context::t 'super)) (define gx#local-context-up-set! - (make-struct-slot-mutator gx#local-context::t 'up)) + (make-class-slot-mutator gx#local-context::t 'up)) (define gx#local-context-down-set! - (make-struct-slot-mutator gx#local-context::t 'down)) + (make-class-slot-mutator gx#local-context::t 'down)) (define gx#local-context-id-set! - (make-struct-slot-mutator gx#local-context::t 'id)) + (make-class-slot-mutator gx#local-context::t 'id)) (define gx#local-context-table-set! - (make-struct-slot-mutator gx#local-context::t 'table)) + (make-class-slot-mutator gx#local-context::t 'table)) (define gx#&local-context-super - (make-struct-slot-unchecked-accessor gx#local-context::t 'super)) + (make-class-slot-unchecked-accessor gx#local-context::t 'super)) (define gx#&local-context-up - (make-struct-slot-unchecked-accessor gx#local-context::t 'up)) + (make-class-slot-unchecked-accessor gx#local-context::t 'up)) (define gx#&local-context-down - (make-struct-slot-unchecked-accessor gx#local-context::t 'down)) + (make-class-slot-unchecked-accessor gx#local-context::t 'down)) (define gx#&local-context-id - (make-struct-slot-unchecked-accessor gx#local-context::t 'id)) + (make-class-slot-unchecked-accessor gx#local-context::t 'id)) (define gx#&local-context-table - (make-struct-slot-unchecked-accessor gx#local-context::t 'table)) + (make-class-slot-unchecked-accessor gx#local-context::t 'table)) (define gx#&local-context-super-set! - (make-struct-slot-unchecked-mutator gx#local-context::t 'super)) + (make-class-slot-unchecked-mutator gx#local-context::t 'super)) (define gx#&local-context-up-set! - (make-struct-slot-unchecked-mutator gx#local-context::t 'up)) + (make-class-slot-unchecked-mutator gx#local-context::t 'up)) (define gx#&local-context-down-set! - (make-struct-slot-unchecked-mutator gx#local-context::t 'down)) + (make-class-slot-unchecked-mutator gx#local-context::t 'down)) (define gx#&local-context-id-set! - (make-struct-slot-unchecked-mutator gx#local-context::t 'id)) + (make-class-slot-unchecked-mutator gx#local-context::t 'id)) (define gx#&local-context-table-set! - (make-struct-slot-unchecked-mutator gx#local-context::t 'table)) + (make-class-slot-unchecked-mutator gx#local-context::t 'table)) (define gx#phi-context:::init!__% - (lambda (_self143315_ _id143316_ _super143317_) - (if (##fx< '3 (##structure-length _self143315_)) + (lambda (_self144762_ _id144763_ _super144764_) + (if (##fx< '3 (##structure-length _self144762_)) (begin (##unchecked-structure-set! - _self143315_ - _id143316_ + _self144762_ + _id144763_ '1 - (##structure-type _self143315_) + (##structure-type _self144762_) '#f) (##unchecked-structure-set! - _self143315_ + _self144762_ (make-table 'test: eq?) '2 - (##structure-type _self143315_) + (##structure-type _self144762_) '#f) (##unchecked-structure-set! - _self143315_ - _super143317_ + _self144762_ + _super144764_ '3 - (##structure-type _self143315_) + (##structure-type _self144762_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self143315_ + _self144762_ '3 - (##vector-length _self143315_))))) + (##vector-length _self144762_))))) (define gx#phi-context:::init!__0 - (lambda (_self143322_ _id143323_) - (let ((_super143325_ (gx#current-expander-context))) - (gx#phi-context:::init!__% _self143322_ _id143323_ _super143325_)))) + (lambda (_self144769_ _id144770_) + (let ((_super144772_ (gx#current-expander-context))) + (gx#phi-context:::init!__% _self144769_ _id144770_ _super144772_)))) (define gx#phi-context:::init! - (lambda _g147860_ - (let ((_g147859_ (##length _g147860_))) - (cond ((##fx= _g147859_ 2) - (apply (lambda (_self143322_ _id143323_) - (gx#phi-context:::init!__0 _self143322_ _id143323_)) - _g147860_)) - ((##fx= _g147859_ 3) - (apply (lambda (_self143327_ _id143328_ _super143329_) + (lambda _g149407_ + (let ((_g149406_ (##length _g149407_))) + (cond ((##fx= _g149406_ 2) + (apply (lambda (_self144769_ _id144770_) + (gx#phi-context:::init!__0 _self144769_ _id144770_)) + _g149407_)) + ((##fx= _g149406_ 3) + (apply (lambda (_self144774_ _id144775_ _super144776_) (gx#phi-context:::init!__% - _self143327_ - _id143328_ - _super143329_)) - _g147860_)) + _self144774_ + _id144775_ + _super144776_)) + _g149407_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g147860_)))))) + _g149407_)))))) (bind-method! gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_self143179_ _super143180_) - (if (##fx< '3 (##structure-length _self143179_)) + (lambda (_self144626_ _super144627_) + (if (##fx< '3 (##structure-length _self144626_)) (begin (##unchecked-structure-set! - _self143179_ + _self144626_ (gensym 'L) '1 - (##structure-type _self143179_) + (##structure-type _self144626_) '#f) (##unchecked-structure-set! - _self143179_ + _self144626_ (make-table 'test: eq?) '2 - (##structure-type _self143179_) + (##structure-type _self144626_) '#f) (##unchecked-structure-set! - _self143179_ - _super143180_ + _self144626_ + _super144627_ '3 - (##structure-type _self143179_) + (##structure-type _self144626_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self143179_ + _self144626_ '3 - (##vector-length _self143179_))))) + (##vector-length _self144626_))))) (define gx#local-context:::init!__0 - (lambda (_self143185_) - (let ((_super143187_ (gx#current-expander-context))) - (gx#local-context:::init!__% _self143185_ _super143187_)))) + (lambda (_self144632_) + (let ((_super144634_ (gx#current-expander-context))) + (gx#local-context:::init!__% _self144632_ _super144634_)))) (define gx#local-context:::init! - (lambda _g147862_ - (let ((_g147861_ (##length _g147862_))) - (cond ((##fx= _g147861_ 1) - (apply (lambda (_self143185_) - (gx#local-context:::init!__0 _self143185_)) - _g147862_)) - ((##fx= _g147861_ 2) - (apply (lambda (_self143189_ _super143190_) + (lambda _g149409_ + (let ((_g149408_ (##length _g149409_))) + (cond ((##fx= _g149408_ 1) + (apply (lambda (_self144632_) + (gx#local-context:::init!__0 _self144632_)) + _g149409_)) + ((##fx= _g149408_ 2) + (apply (lambda (_self144636_ _super144637_) (gx#local-context:::init!__% - _self143189_ - _super143190_)) - _g147862_)) + _self144636_ + _super144637_)) + _g149409_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g147862_)))))) + _g149409_)))))) (bind-method! gx#local-context::t ':init! gx#local-context:::init! '#f) (define gx#binding::t - (make-struct-type + (make-class-type 'gx#binding::t 'binding - '#f + (list) '(id key phi) (cons (cons 'struct: '#t) '((transparent: . #t))) '#f)) - (define gx#binding? (make-struct-predicate gx#binding::t)) + (define gx#binding? (make-class-predicate gx#binding::t)) (define gx#make-binding - (lambda _$args143053_ - (apply make-struct-instance gx#binding::t _$args143053_))) - (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)) - (define gx#binding-id-set! (make-struct-slot-mutator gx#binding::t 'id)) - (define gx#binding-key-set! (make-struct-slot-mutator gx#binding::t 'key)) - (define gx#binding-phi-set! (make-struct-slot-mutator gx#binding::t 'phi)) + (lambda _$args144500_ (apply make-instance gx#binding::t _$args144500_))) + (define gx#binding-id (make-class-slot-accessor gx#binding::t 'id)) + (define gx#binding-key (make-class-slot-accessor gx#binding::t 'key)) + (define gx#binding-phi (make-class-slot-accessor gx#binding::t 'phi)) + (define gx#binding-id-set! (make-class-slot-mutator gx#binding::t 'id)) + (define gx#binding-key-set! (make-class-slot-mutator gx#binding::t 'key)) + (define gx#binding-phi-set! (make-class-slot-mutator gx#binding::t 'phi)) (define gx#&binding-id - (make-struct-slot-unchecked-accessor gx#binding::t 'id)) + (make-class-slot-unchecked-accessor gx#binding::t 'id)) (define gx#&binding-key - (make-struct-slot-unchecked-accessor gx#binding::t 'key)) + (make-class-slot-unchecked-accessor gx#binding::t 'key)) (define gx#&binding-phi - (make-struct-slot-unchecked-accessor gx#binding::t 'phi)) + (make-class-slot-unchecked-accessor gx#binding::t 'phi)) (define gx#&binding-id-set! - (make-struct-slot-unchecked-mutator gx#binding::t 'id)) + (make-class-slot-unchecked-mutator gx#binding::t 'id)) (define gx#&binding-key-set! - (make-struct-slot-unchecked-mutator gx#binding::t 'key)) + (make-class-slot-unchecked-mutator gx#binding::t 'key)) (define gx#&binding-phi-set! - (make-struct-slot-unchecked-mutator gx#binding::t 'phi)) + (make-class-slot-unchecked-mutator gx#binding::t 'phi)) (define gx#runtime-binding::t - (make-struct-type + (make-class-type 'gx#runtime-binding::t 'runtime-binding - gx#binding::t + (list gx#binding::t) '() (cons (cons 'struct: '#t) '((transparent: . #t))) '#f)) - (define gx#runtime-binding? (make-struct-predicate gx#runtime-binding::t)) + (define gx#runtime-binding? (make-class-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _$args143050_ - (apply make-struct-instance gx#runtime-binding::t _$args143050_))) + (lambda _$args144497_ + (apply make-instance gx#runtime-binding::t _$args144497_))) (define gx#runtime-binding-id - (make-struct-slot-accessor gx#runtime-binding::t 'id)) + (make-class-slot-accessor gx#runtime-binding::t 'id)) (define gx#runtime-binding-key - (make-struct-slot-accessor gx#runtime-binding::t 'key)) + (make-class-slot-accessor gx#runtime-binding::t 'key)) (define gx#runtime-binding-phi - (make-struct-slot-accessor gx#runtime-binding::t 'phi)) + (make-class-slot-accessor gx#runtime-binding::t 'phi)) (define gx#runtime-binding-id-set! - (make-struct-slot-mutator gx#runtime-binding::t 'id)) + (make-class-slot-mutator gx#runtime-binding::t 'id)) (define gx#runtime-binding-key-set! - (make-struct-slot-mutator gx#runtime-binding::t 'key)) + (make-class-slot-mutator gx#runtime-binding::t 'key)) (define gx#runtime-binding-phi-set! - (make-struct-slot-mutator gx#runtime-binding::t 'phi)) + (make-class-slot-mutator gx#runtime-binding::t 'phi)) (define gx#&runtime-binding-id - (make-struct-slot-unchecked-accessor gx#runtime-binding::t 'id)) + (make-class-slot-unchecked-accessor gx#runtime-binding::t 'id)) (define gx#&runtime-binding-key - (make-struct-slot-unchecked-accessor gx#runtime-binding::t 'key)) + (make-class-slot-unchecked-accessor gx#runtime-binding::t 'key)) (define gx#&runtime-binding-phi - (make-struct-slot-unchecked-accessor gx#runtime-binding::t 'phi)) + (make-class-slot-unchecked-accessor gx#runtime-binding::t 'phi)) (define gx#&runtime-binding-id-set! - (make-struct-slot-unchecked-mutator gx#runtime-binding::t 'id)) + (make-class-slot-unchecked-mutator gx#runtime-binding::t 'id)) (define gx#&runtime-binding-key-set! - (make-struct-slot-unchecked-mutator gx#runtime-binding::t 'key)) + (make-class-slot-unchecked-mutator gx#runtime-binding::t 'key)) (define gx#&runtime-binding-phi-set! - (make-struct-slot-unchecked-mutator gx#runtime-binding::t 'phi)) + (make-class-slot-unchecked-mutator gx#runtime-binding::t 'phi)) (define gx#local-binding::t - (make-struct-type + (make-class-type 'gx#local-binding::t 'local-binding - gx#runtime-binding::t + (list gx#runtime-binding::t) '() (cons (cons 'struct: '#t) '((transparent: . #t))) '#f)) - (define gx#local-binding? (make-struct-predicate gx#local-binding::t)) + (define gx#local-binding? (make-class-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _$args143047_ - (apply make-struct-instance gx#local-binding::t _$args143047_))) + (lambda _$args144494_ + (apply make-instance gx#local-binding::t _$args144494_))) (define gx#local-binding-id - (make-struct-slot-accessor gx#local-binding::t 'id)) + (make-class-slot-accessor gx#local-binding::t 'id)) (define gx#local-binding-key - (make-struct-slot-accessor gx#local-binding::t 'key)) + (make-class-slot-accessor gx#local-binding::t 'key)) (define gx#local-binding-phi - (make-struct-slot-accessor gx#local-binding::t 'phi)) + (make-class-slot-accessor gx#local-binding::t 'phi)) (define gx#local-binding-id-set! - (make-struct-slot-mutator gx#local-binding::t 'id)) + (make-class-slot-mutator gx#local-binding::t 'id)) (define gx#local-binding-key-set! - (make-struct-slot-mutator gx#local-binding::t 'key)) + (make-class-slot-mutator gx#local-binding::t 'key)) (define gx#local-binding-phi-set! - (make-struct-slot-mutator gx#local-binding::t 'phi)) + (make-class-slot-mutator gx#local-binding::t 'phi)) (define gx#&local-binding-id - (make-struct-slot-unchecked-accessor gx#local-binding::t 'id)) + (make-class-slot-unchecked-accessor gx#local-binding::t 'id)) (define gx#&local-binding-key - (make-struct-slot-unchecked-accessor gx#local-binding::t 'key)) + (make-class-slot-unchecked-accessor gx#local-binding::t 'key)) (define gx#&local-binding-phi - (make-struct-slot-unchecked-accessor gx#local-binding::t 'phi)) + (make-class-slot-unchecked-accessor gx#local-binding::t 'phi)) (define gx#&local-binding-id-set! - (make-struct-slot-unchecked-mutator gx#local-binding::t 'id)) + (make-class-slot-unchecked-mutator gx#local-binding::t 'id)) (define gx#&local-binding-key-set! - (make-struct-slot-unchecked-mutator gx#local-binding::t 'key)) + (make-class-slot-unchecked-mutator gx#local-binding::t 'key)) (define gx#&local-binding-phi-set! - (make-struct-slot-unchecked-mutator gx#local-binding::t 'phi)) + (make-class-slot-unchecked-mutator gx#local-binding::t 'phi)) (define gx#top-binding::t - (make-struct-type + (make-class-type 'gx#top-binding::t 'top-binding - gx#runtime-binding::t + (list gx#runtime-binding::t) '() (cons (cons 'struct: '#t) '((transparent: . #t))) '#f)) - (define gx#top-binding? (make-struct-predicate gx#top-binding::t)) + (define gx#top-binding? (make-class-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _$args143044_ - (apply make-struct-instance gx#top-binding::t _$args143044_))) - (define gx#top-binding-id - (make-struct-slot-accessor gx#top-binding::t 'id)) + (lambda _$args144491_ + (apply make-instance gx#top-binding::t _$args144491_))) + (define gx#top-binding-id (make-class-slot-accessor gx#top-binding::t 'id)) (define gx#top-binding-key - (make-struct-slot-accessor gx#top-binding::t 'key)) + (make-class-slot-accessor gx#top-binding::t 'key)) (define gx#top-binding-phi - (make-struct-slot-accessor gx#top-binding::t 'phi)) + (make-class-slot-accessor gx#top-binding::t 'phi)) (define gx#top-binding-id-set! - (make-struct-slot-mutator gx#top-binding::t 'id)) + (make-class-slot-mutator gx#top-binding::t 'id)) (define gx#top-binding-key-set! - (make-struct-slot-mutator gx#top-binding::t 'key)) + (make-class-slot-mutator gx#top-binding::t 'key)) (define gx#top-binding-phi-set! - (make-struct-slot-mutator gx#top-binding::t 'phi)) + (make-class-slot-mutator gx#top-binding::t 'phi)) (define gx#&top-binding-id - (make-struct-slot-unchecked-accessor gx#top-binding::t 'id)) + (make-class-slot-unchecked-accessor gx#top-binding::t 'id)) (define gx#&top-binding-key - (make-struct-slot-unchecked-accessor gx#top-binding::t 'key)) + (make-class-slot-unchecked-accessor gx#top-binding::t 'key)) (define gx#&top-binding-phi - (make-struct-slot-unchecked-accessor gx#top-binding::t 'phi)) + (make-class-slot-unchecked-accessor gx#top-binding::t 'phi)) (define gx#&top-binding-id-set! - (make-struct-slot-unchecked-mutator gx#top-binding::t 'id)) + (make-class-slot-unchecked-mutator gx#top-binding::t 'id)) (define gx#&top-binding-key-set! - (make-struct-slot-unchecked-mutator gx#top-binding::t 'key)) + (make-class-slot-unchecked-mutator gx#top-binding::t 'key)) (define gx#&top-binding-phi-set! - (make-struct-slot-unchecked-mutator gx#top-binding::t 'phi)) + (make-class-slot-unchecked-mutator gx#top-binding::t 'phi)) (define gx#module-binding::t - (make-struct-type + (make-class-type 'gx#module-binding::t 'module-binding - gx#top-binding::t + (list gx#top-binding::t) '(context) (cons (cons 'struct: '#t) '((transparent: . #t))) '#f)) - (define gx#module-binding? (make-struct-predicate gx#module-binding::t)) + (define gx#module-binding? (make-class-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _$args143041_ - (apply make-struct-instance gx#module-binding::t _$args143041_))) + (lambda _$args144488_ + (apply make-instance gx#module-binding::t _$args144488_))) (define gx#module-binding-context - (make-struct-slot-accessor gx#module-binding::t 'context)) + (make-class-slot-accessor gx#module-binding::t 'context)) (define gx#module-binding-id - (make-struct-slot-accessor gx#module-binding::t 'id)) + (make-class-slot-accessor gx#module-binding::t 'id)) (define gx#module-binding-key - (make-struct-slot-accessor gx#module-binding::t 'key)) + (make-class-slot-accessor gx#module-binding::t 'key)) (define gx#module-binding-phi - (make-struct-slot-accessor gx#module-binding::t 'phi)) + (make-class-slot-accessor gx#module-binding::t 'phi)) (define gx#module-binding-context-set! - (make-struct-slot-mutator gx#module-binding::t 'context)) + (make-class-slot-mutator gx#module-binding::t 'context)) (define gx#module-binding-id-set! - (make-struct-slot-mutator gx#module-binding::t 'id)) + (make-class-slot-mutator gx#module-binding::t 'id)) (define gx#module-binding-key-set! - (make-struct-slot-mutator gx#module-binding::t 'key)) + (make-class-slot-mutator gx#module-binding::t 'key)) (define gx#module-binding-phi-set! - (make-struct-slot-mutator gx#module-binding::t 'phi)) + (make-class-slot-mutator gx#module-binding::t 'phi)) (define gx#&module-binding-context - (make-struct-slot-unchecked-accessor gx#module-binding::t 'context)) + (make-class-slot-unchecked-accessor gx#module-binding::t 'context)) (define gx#&module-binding-id - (make-struct-slot-unchecked-accessor gx#module-binding::t 'id)) + (make-class-slot-unchecked-accessor gx#module-binding::t 'id)) (define gx#&module-binding-key - (make-struct-slot-unchecked-accessor gx#module-binding::t 'key)) + (make-class-slot-unchecked-accessor gx#module-binding::t 'key)) (define gx#&module-binding-phi - (make-struct-slot-unchecked-accessor gx#module-binding::t 'phi)) + (make-class-slot-unchecked-accessor gx#module-binding::t 'phi)) (define gx#&module-binding-context-set! - (make-struct-slot-unchecked-mutator gx#module-binding::t 'context)) + (make-class-slot-unchecked-mutator gx#module-binding::t 'context)) (define gx#&module-binding-id-set! - (make-struct-slot-unchecked-mutator gx#module-binding::t 'id)) + (make-class-slot-unchecked-mutator gx#module-binding::t 'id)) (define gx#&module-binding-key-set! - (make-struct-slot-unchecked-mutator gx#module-binding::t 'key)) + (make-class-slot-unchecked-mutator gx#module-binding::t 'key)) (define gx#&module-binding-phi-set! - (make-struct-slot-unchecked-mutator gx#module-binding::t 'phi)) + (make-class-slot-unchecked-mutator gx#module-binding::t 'phi)) (define gx#extern-binding::t - (make-struct-type + (make-class-type 'gx#extern-binding::t 'extern-binding - gx#top-binding::t + (list gx#top-binding::t) '() (cons (cons 'struct: '#t) '((transparent: . #t))) '#f)) - (define gx#extern-binding? (make-struct-predicate gx#extern-binding::t)) + (define gx#extern-binding? (make-class-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _$args143038_ - (apply make-struct-instance gx#extern-binding::t _$args143038_))) + (lambda _$args144485_ + (apply make-instance gx#extern-binding::t _$args144485_))) (define gx#extern-binding-id - (make-struct-slot-accessor gx#extern-binding::t 'id)) + (make-class-slot-accessor gx#extern-binding::t 'id)) (define gx#extern-binding-key - (make-struct-slot-accessor gx#extern-binding::t 'key)) + (make-class-slot-accessor gx#extern-binding::t 'key)) (define gx#extern-binding-phi - (make-struct-slot-accessor gx#extern-binding::t 'phi)) + (make-class-slot-accessor gx#extern-binding::t 'phi)) (define gx#extern-binding-id-set! - (make-struct-slot-mutator gx#extern-binding::t 'id)) + (make-class-slot-mutator gx#extern-binding::t 'id)) (define gx#extern-binding-key-set! - (make-struct-slot-mutator gx#extern-binding::t 'key)) + (make-class-slot-mutator gx#extern-binding::t 'key)) (define gx#extern-binding-phi-set! - (make-struct-slot-mutator gx#extern-binding::t 'phi)) + (make-class-slot-mutator gx#extern-binding::t 'phi)) (define gx#&extern-binding-id - (make-struct-slot-unchecked-accessor gx#extern-binding::t 'id)) + (make-class-slot-unchecked-accessor gx#extern-binding::t 'id)) (define gx#&extern-binding-key - (make-struct-slot-unchecked-accessor gx#extern-binding::t 'key)) + (make-class-slot-unchecked-accessor gx#extern-binding::t 'key)) (define gx#&extern-binding-phi - (make-struct-slot-unchecked-accessor gx#extern-binding::t 'phi)) + (make-class-slot-unchecked-accessor gx#extern-binding::t 'phi)) (define gx#&extern-binding-id-set! - (make-struct-slot-unchecked-mutator gx#extern-binding::t 'id)) + (make-class-slot-unchecked-mutator gx#extern-binding::t 'id)) (define gx#&extern-binding-key-set! - (make-struct-slot-unchecked-mutator gx#extern-binding::t 'key)) + (make-class-slot-unchecked-mutator gx#extern-binding::t 'key)) (define gx#&extern-binding-phi-set! - (make-struct-slot-unchecked-mutator gx#extern-binding::t 'phi)) + (make-class-slot-unchecked-mutator gx#extern-binding::t 'phi)) (define gx#syntax-binding::t - (make-struct-type + (make-class-type 'gx#syntax-binding::t 'syntax-binding - gx#binding::t + (list gx#binding::t) '(e) (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '((transparent: . #t)))) '#f)) - (define gx#syntax-binding? (make-struct-predicate gx#syntax-binding::t)) + (define gx#syntax-binding? (make-class-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _$args143035_ - (apply make-struct-instance gx#syntax-binding::t _$args143035_))) + (lambda _$args144482_ + (apply make-instance gx#syntax-binding::t _$args144482_))) (define gx#syntax-binding-e - (make-struct-slot-accessor gx#syntax-binding::t 'e)) + (make-class-slot-accessor gx#syntax-binding::t 'e)) (define gx#syntax-binding-id - (make-struct-slot-accessor gx#syntax-binding::t 'id)) + (make-class-slot-accessor gx#syntax-binding::t 'id)) (define gx#syntax-binding-key - (make-struct-slot-accessor gx#syntax-binding::t 'key)) + (make-class-slot-accessor gx#syntax-binding::t 'key)) (define gx#syntax-binding-phi - (make-struct-slot-accessor gx#syntax-binding::t 'phi)) + (make-class-slot-accessor gx#syntax-binding::t 'phi)) (define gx#syntax-binding-e-set! - (make-struct-slot-mutator gx#syntax-binding::t 'e)) + (make-class-slot-mutator gx#syntax-binding::t 'e)) (define gx#syntax-binding-id-set! - (make-struct-slot-mutator gx#syntax-binding::t 'id)) + (make-class-slot-mutator gx#syntax-binding::t 'id)) (define gx#syntax-binding-key-set! - (make-struct-slot-mutator gx#syntax-binding::t 'key)) + (make-class-slot-mutator gx#syntax-binding::t 'key)) (define gx#syntax-binding-phi-set! - (make-struct-slot-mutator gx#syntax-binding::t 'phi)) + (make-class-slot-mutator gx#syntax-binding::t 'phi)) (define gx#&syntax-binding-e - (make-struct-slot-unchecked-accessor gx#syntax-binding::t 'e)) + (make-class-slot-unchecked-accessor gx#syntax-binding::t 'e)) (define gx#&syntax-binding-id - (make-struct-slot-unchecked-accessor gx#syntax-binding::t 'id)) + (make-class-slot-unchecked-accessor gx#syntax-binding::t 'id)) (define gx#&syntax-binding-key - (make-struct-slot-unchecked-accessor gx#syntax-binding::t 'key)) + (make-class-slot-unchecked-accessor gx#syntax-binding::t 'key)) (define gx#&syntax-binding-phi - (make-struct-slot-unchecked-accessor gx#syntax-binding::t 'phi)) + (make-class-slot-unchecked-accessor gx#syntax-binding::t 'phi)) (define gx#&syntax-binding-e-set! - (make-struct-slot-unchecked-mutator gx#syntax-binding::t 'e)) + (make-class-slot-unchecked-mutator gx#syntax-binding::t 'e)) (define gx#&syntax-binding-id-set! - (make-struct-slot-unchecked-mutator gx#syntax-binding::t 'id)) + (make-class-slot-unchecked-mutator gx#syntax-binding::t 'id)) (define gx#&syntax-binding-key-set! - (make-struct-slot-unchecked-mutator gx#syntax-binding::t 'key)) + (make-class-slot-unchecked-mutator gx#syntax-binding::t 'key)) (define gx#&syntax-binding-phi-set! - (make-struct-slot-unchecked-mutator gx#syntax-binding::t 'phi)) + (make-class-slot-unchecked-mutator gx#syntax-binding::t 'phi)) (define gx#import-binding::t - (make-struct-type + (make-class-type 'gx#import-binding::t 'import-binding - gx#binding::t + (list gx#binding::t) '(e context weak?) (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '((transparent: . #t)))) '#f)) - (define gx#import-binding? (make-struct-predicate gx#import-binding::t)) + (define gx#import-binding? (make-class-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _$args143032_ - (apply make-struct-instance gx#import-binding::t _$args143032_))) + (lambda _$args144479_ + (apply make-instance gx#import-binding::t _$args144479_))) (define gx#import-binding-e - (make-struct-slot-accessor gx#import-binding::t 'e)) + (make-class-slot-accessor gx#import-binding::t 'e)) (define gx#import-binding-context - (make-struct-slot-accessor gx#import-binding::t 'context)) + (make-class-slot-accessor gx#import-binding::t 'context)) (define gx#import-binding-weak? - (make-struct-slot-accessor gx#import-binding::t 'weak?)) + (make-class-slot-accessor gx#import-binding::t 'weak?)) (define gx#import-binding-id - (make-struct-slot-accessor gx#import-binding::t 'id)) + (make-class-slot-accessor gx#import-binding::t 'id)) (define gx#import-binding-key - (make-struct-slot-accessor gx#import-binding::t 'key)) + (make-class-slot-accessor gx#import-binding::t 'key)) (define gx#import-binding-phi - (make-struct-slot-accessor gx#import-binding::t 'phi)) + (make-class-slot-accessor gx#import-binding::t 'phi)) (define gx#import-binding-e-set! - (make-struct-slot-mutator gx#import-binding::t 'e)) + (make-class-slot-mutator gx#import-binding::t 'e)) (define gx#import-binding-context-set! - (make-struct-slot-mutator gx#import-binding::t 'context)) + (make-class-slot-mutator gx#import-binding::t 'context)) (define gx#import-binding-weak?-set! - (make-struct-slot-mutator gx#import-binding::t 'weak?)) + (make-class-slot-mutator gx#import-binding::t 'weak?)) (define gx#import-binding-id-set! - (make-struct-slot-mutator gx#import-binding::t 'id)) + (make-class-slot-mutator gx#import-binding::t 'id)) (define gx#import-binding-key-set! - (make-struct-slot-mutator gx#import-binding::t 'key)) + (make-class-slot-mutator gx#import-binding::t 'key)) (define gx#import-binding-phi-set! - (make-struct-slot-mutator gx#import-binding::t 'phi)) + (make-class-slot-mutator gx#import-binding::t 'phi)) (define gx#&import-binding-e - (make-struct-slot-unchecked-accessor gx#import-binding::t 'e)) + (make-class-slot-unchecked-accessor gx#import-binding::t 'e)) (define gx#&import-binding-context - (make-struct-slot-unchecked-accessor gx#import-binding::t 'context)) + (make-class-slot-unchecked-accessor gx#import-binding::t 'context)) (define gx#&import-binding-weak? - (make-struct-slot-unchecked-accessor gx#import-binding::t 'weak?)) + (make-class-slot-unchecked-accessor gx#import-binding::t 'weak?)) (define gx#&import-binding-id - (make-struct-slot-unchecked-accessor gx#import-binding::t 'id)) + (make-class-slot-unchecked-accessor gx#import-binding::t 'id)) (define gx#&import-binding-key - (make-struct-slot-unchecked-accessor gx#import-binding::t 'key)) + (make-class-slot-unchecked-accessor gx#import-binding::t 'key)) (define gx#&import-binding-phi - (make-struct-slot-unchecked-accessor gx#import-binding::t 'phi)) + (make-class-slot-unchecked-accessor gx#import-binding::t 'phi)) (define gx#&import-binding-e-set! - (make-struct-slot-unchecked-mutator gx#import-binding::t 'e)) + (make-class-slot-unchecked-mutator gx#import-binding::t 'e)) (define gx#&import-binding-context-set! - (make-struct-slot-unchecked-mutator gx#import-binding::t 'context)) + (make-class-slot-unchecked-mutator gx#import-binding::t 'context)) (define gx#&import-binding-weak?-set! - (make-struct-slot-unchecked-mutator gx#import-binding::t 'weak?)) + (make-class-slot-unchecked-mutator gx#import-binding::t 'weak?)) (define gx#&import-binding-id-set! - (make-struct-slot-unchecked-mutator gx#import-binding::t 'id)) + (make-class-slot-unchecked-mutator gx#import-binding::t 'id)) (define gx#&import-binding-key-set! - (make-struct-slot-unchecked-mutator gx#import-binding::t 'key)) + (make-class-slot-unchecked-mutator gx#import-binding::t 'key)) (define gx#&import-binding-phi-set! - (make-struct-slot-unchecked-mutator gx#import-binding::t 'phi)) + (make-class-slot-unchecked-mutator gx#import-binding::t 'phi)) (define gx#alias-binding::t - (make-struct-type + (make-class-type 'gx#alias-binding::t 'alias-binding - gx#binding::t + (list gx#binding::t) '(e) (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '((transparent: . #t)))) '#f)) - (define gx#alias-binding? (make-struct-predicate gx#alias-binding::t)) + (define gx#alias-binding? (make-class-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _$args143029_ - (apply make-struct-instance gx#alias-binding::t _$args143029_))) + (lambda _$args144476_ + (apply make-instance gx#alias-binding::t _$args144476_))) (define gx#alias-binding-e - (make-struct-slot-accessor gx#alias-binding::t 'e)) + (make-class-slot-accessor gx#alias-binding::t 'e)) (define gx#alias-binding-id - (make-struct-slot-accessor gx#alias-binding::t 'id)) + (make-class-slot-accessor gx#alias-binding::t 'id)) (define gx#alias-binding-key - (make-struct-slot-accessor gx#alias-binding::t 'key)) + (make-class-slot-accessor gx#alias-binding::t 'key)) (define gx#alias-binding-phi - (make-struct-slot-accessor gx#alias-binding::t 'phi)) + (make-class-slot-accessor gx#alias-binding::t 'phi)) (define gx#alias-binding-e-set! - (make-struct-slot-mutator gx#alias-binding::t 'e)) + (make-class-slot-mutator gx#alias-binding::t 'e)) (define gx#alias-binding-id-set! - (make-struct-slot-mutator gx#alias-binding::t 'id)) + (make-class-slot-mutator gx#alias-binding::t 'id)) (define gx#alias-binding-key-set! - (make-struct-slot-mutator gx#alias-binding::t 'key)) + (make-class-slot-mutator gx#alias-binding::t 'key)) (define gx#alias-binding-phi-set! - (make-struct-slot-mutator gx#alias-binding::t 'phi)) + (make-class-slot-mutator gx#alias-binding::t 'phi)) (define gx#&alias-binding-e - (make-struct-slot-unchecked-accessor gx#alias-binding::t 'e)) + (make-class-slot-unchecked-accessor gx#alias-binding::t 'e)) (define gx#&alias-binding-id - (make-struct-slot-unchecked-accessor gx#alias-binding::t 'id)) + (make-class-slot-unchecked-accessor gx#alias-binding::t 'id)) (define gx#&alias-binding-key - (make-struct-slot-unchecked-accessor gx#alias-binding::t 'key)) + (make-class-slot-unchecked-accessor gx#alias-binding::t 'key)) (define gx#&alias-binding-phi - (make-struct-slot-unchecked-accessor gx#alias-binding::t 'phi)) + (make-class-slot-unchecked-accessor gx#alias-binding::t 'phi)) (define gx#&alias-binding-e-set! - (make-struct-slot-unchecked-mutator gx#alias-binding::t 'e)) + (make-class-slot-unchecked-mutator gx#alias-binding::t 'e)) (define gx#&alias-binding-id-set! - (make-struct-slot-unchecked-mutator gx#alias-binding::t 'id)) + (make-class-slot-unchecked-mutator gx#alias-binding::t 'id)) (define gx#&alias-binding-key-set! - (make-struct-slot-unchecked-mutator gx#alias-binding::t 'key)) + (make-class-slot-unchecked-mutator gx#alias-binding::t 'key)) (define gx#&alias-binding-phi-set! - (make-struct-slot-unchecked-mutator gx#alias-binding::t 'phi)) + (make-class-slot-unchecked-mutator gx#alias-binding::t 'phi)) (define gx#expander::t - (make-struct-type + (make-class-type 'gx#expander::t 'expander - '#f + (list) '(e) (cons (cons 'struct: '#t) '()) '#f)) - (define gx#expander? (make-struct-predicate gx#expander::t)) + (define gx#expander? (make-class-predicate gx#expander::t)) (define gx#make-expander - (lambda _$args143026_ - (apply make-struct-instance gx#expander::t _$args143026_))) - (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)) + (lambda _$args144473_ + (apply make-instance gx#expander::t _$args144473_))) + (define gx#expander-e (make-class-slot-accessor gx#expander::t 'e)) + (define gx#expander-e-set! (make-class-slot-mutator gx#expander::t 'e)) (define gx#&expander-e - (make-struct-slot-unchecked-accessor gx#expander::t 'e)) + (make-class-slot-unchecked-accessor gx#expander::t 'e)) (define gx#&expander-e-set! - (make-struct-slot-unchecked-mutator gx#expander::t 'e)) + (make-class-slot-unchecked-mutator gx#expander::t 'e)) (define gx#core-expander::t - (make-struct-type + (make-class-type 'gx#core-expander::t 'core-expander - gx#expander::t + (list gx#expander::t) '(id compile-top) (cons (cons 'struct: '#t) '()) '#f)) - (define gx#core-expander? (make-struct-predicate gx#core-expander::t)) + (define gx#core-expander? (make-class-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _$args143023_ - (apply make-struct-instance gx#core-expander::t _$args143023_))) + (lambda _$args144470_ + (apply make-instance gx#core-expander::t _$args144470_))) (define gx#core-expander-id - (make-struct-slot-accessor gx#core-expander::t 'id)) + (make-class-slot-accessor gx#core-expander::t 'id)) (define gx#core-expander-compile-top - (make-struct-slot-accessor gx#core-expander::t 'compile-top)) + (make-class-slot-accessor gx#core-expander::t 'compile-top)) (define gx#core-expander-e - (make-struct-slot-accessor gx#core-expander::t 'e)) + (make-class-slot-accessor gx#core-expander::t 'e)) (define gx#core-expander-id-set! - (make-struct-slot-mutator gx#core-expander::t 'id)) + (make-class-slot-mutator gx#core-expander::t 'id)) (define gx#core-expander-compile-top-set! - (make-struct-slot-mutator gx#core-expander::t 'compile-top)) + (make-class-slot-mutator gx#core-expander::t 'compile-top)) (define gx#core-expander-e-set! - (make-struct-slot-mutator gx#core-expander::t 'e)) + (make-class-slot-mutator gx#core-expander::t 'e)) (define gx#&core-expander-id - (make-struct-slot-unchecked-accessor gx#core-expander::t 'id)) + (make-class-slot-unchecked-accessor gx#core-expander::t 'id)) (define gx#&core-expander-compile-top - (make-struct-slot-unchecked-accessor gx#core-expander::t 'compile-top)) + (make-class-slot-unchecked-accessor gx#core-expander::t 'compile-top)) (define gx#&core-expander-e - (make-struct-slot-unchecked-accessor gx#core-expander::t 'e)) + (make-class-slot-unchecked-accessor gx#core-expander::t 'e)) (define gx#&core-expander-id-set! - (make-struct-slot-unchecked-mutator gx#core-expander::t 'id)) + (make-class-slot-unchecked-mutator gx#core-expander::t 'id)) (define gx#&core-expander-compile-top-set! - (make-struct-slot-unchecked-mutator gx#core-expander::t 'compile-top)) + (make-class-slot-unchecked-mutator gx#core-expander::t 'compile-top)) (define gx#&core-expander-e-set! - (make-struct-slot-unchecked-mutator gx#core-expander::t 'e)) + (make-class-slot-unchecked-mutator gx#core-expander::t 'e)) (define gx#expression-form::t - (make-struct-type + (make-class-type 'gx#expression-form::t 'expression-form - gx#core-expander::t + (list gx#core-expander::t) '() (cons (cons 'struct: '#t) '()) '#f)) - (define gx#expression-form? (make-struct-predicate gx#expression-form::t)) + (define gx#expression-form? (make-class-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _$args143020_ - (apply make-struct-instance gx#expression-form::t _$args143020_))) + (lambda _$args144467_ + (apply make-instance gx#expression-form::t _$args144467_))) (define gx#expression-form-id - (make-struct-slot-accessor gx#expression-form::t 'id)) + (make-class-slot-accessor gx#expression-form::t 'id)) (define gx#expression-form-compile-top - (make-struct-slot-accessor gx#expression-form::t 'compile-top)) + (make-class-slot-accessor gx#expression-form::t 'compile-top)) (define gx#expression-form-e - (make-struct-slot-accessor gx#expression-form::t 'e)) + (make-class-slot-accessor gx#expression-form::t 'e)) (define gx#expression-form-id-set! - (make-struct-slot-mutator gx#expression-form::t 'id)) + (make-class-slot-mutator gx#expression-form::t 'id)) (define gx#expression-form-compile-top-set! - (make-struct-slot-mutator gx#expression-form::t 'compile-top)) + (make-class-slot-mutator gx#expression-form::t 'compile-top)) (define gx#expression-form-e-set! - (make-struct-slot-mutator gx#expression-form::t 'e)) + (make-class-slot-mutator gx#expression-form::t 'e)) (define gx#&expression-form-id - (make-struct-slot-unchecked-accessor gx#expression-form::t 'id)) + (make-class-slot-unchecked-accessor gx#expression-form::t 'id)) (define gx#&expression-form-compile-top - (make-struct-slot-unchecked-accessor gx#expression-form::t 'compile-top)) + (make-class-slot-unchecked-accessor gx#expression-form::t 'compile-top)) (define gx#&expression-form-e - (make-struct-slot-unchecked-accessor gx#expression-form::t 'e)) + (make-class-slot-unchecked-accessor gx#expression-form::t 'e)) (define gx#&expression-form-id-set! - (make-struct-slot-unchecked-mutator gx#expression-form::t 'id)) + (make-class-slot-unchecked-mutator gx#expression-form::t 'id)) (define gx#&expression-form-compile-top-set! - (make-struct-slot-unchecked-mutator gx#expression-form::t 'compile-top)) + (make-class-slot-unchecked-mutator gx#expression-form::t 'compile-top)) (define gx#&expression-form-e-set! - (make-struct-slot-unchecked-mutator gx#expression-form::t 'e)) + (make-class-slot-unchecked-mutator gx#expression-form::t 'e)) (define gx#special-form::t - (make-struct-type + (make-class-type 'gx#special-form::t 'special-form - gx#core-expander::t + (list gx#core-expander::t) '() (cons (cons 'struct: '#t) '()) '#f)) - (define gx#special-form? (make-struct-predicate gx#special-form::t)) + (define gx#special-form? (make-class-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _$args143017_ - (apply make-struct-instance gx#special-form::t _$args143017_))) + (lambda _$args144464_ + (apply make-instance gx#special-form::t _$args144464_))) (define gx#special-form-id - (make-struct-slot-accessor gx#special-form::t 'id)) + (make-class-slot-accessor gx#special-form::t 'id)) (define gx#special-form-compile-top - (make-struct-slot-accessor gx#special-form::t 'compile-top)) - (define gx#special-form-e - (make-struct-slot-accessor gx#special-form::t 'e)) + (make-class-slot-accessor gx#special-form::t 'compile-top)) + (define gx#special-form-e (make-class-slot-accessor gx#special-form::t 'e)) (define gx#special-form-id-set! - (make-struct-slot-mutator gx#special-form::t 'id)) + (make-class-slot-mutator gx#special-form::t 'id)) (define gx#special-form-compile-top-set! - (make-struct-slot-mutator gx#special-form::t 'compile-top)) + (make-class-slot-mutator gx#special-form::t 'compile-top)) (define gx#special-form-e-set! - (make-struct-slot-mutator gx#special-form::t 'e)) + (make-class-slot-mutator gx#special-form::t 'e)) (define gx#&special-form-id - (make-struct-slot-unchecked-accessor gx#special-form::t 'id)) + (make-class-slot-unchecked-accessor gx#special-form::t 'id)) (define gx#&special-form-compile-top - (make-struct-slot-unchecked-accessor gx#special-form::t 'compile-top)) + (make-class-slot-unchecked-accessor gx#special-form::t 'compile-top)) (define gx#&special-form-e - (make-struct-slot-unchecked-accessor gx#special-form::t 'e)) + (make-class-slot-unchecked-accessor gx#special-form::t 'e)) (define gx#&special-form-id-set! - (make-struct-slot-unchecked-mutator gx#special-form::t 'id)) + (make-class-slot-unchecked-mutator gx#special-form::t 'id)) (define gx#&special-form-compile-top-set! - (make-struct-slot-unchecked-mutator gx#special-form::t 'compile-top)) + (make-class-slot-unchecked-mutator gx#special-form::t 'compile-top)) (define gx#&special-form-e-set! - (make-struct-slot-unchecked-mutator gx#special-form::t 'e)) + (make-class-slot-unchecked-mutator gx#special-form::t 'e)) (define gx#definition-form::t - (make-struct-type + (make-class-type 'gx#definition-form::t 'definition-form - gx#special-form::t + (list gx#special-form::t) '() (cons (cons 'struct: '#t) '()) '#f)) - (define gx#definition-form? (make-struct-predicate gx#definition-form::t)) + (define gx#definition-form? (make-class-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _$args143014_ - (apply make-struct-instance gx#definition-form::t _$args143014_))) + (lambda _$args144461_ + (apply make-instance gx#definition-form::t _$args144461_))) (define gx#definition-form-id - (make-struct-slot-accessor gx#definition-form::t 'id)) + (make-class-slot-accessor gx#definition-form::t 'id)) (define gx#definition-form-compile-top - (make-struct-slot-accessor gx#definition-form::t 'compile-top)) + (make-class-slot-accessor gx#definition-form::t 'compile-top)) (define gx#definition-form-e - (make-struct-slot-accessor gx#definition-form::t 'e)) + (make-class-slot-accessor gx#definition-form::t 'e)) (define gx#definition-form-id-set! - (make-struct-slot-mutator gx#definition-form::t 'id)) + (make-class-slot-mutator gx#definition-form::t 'id)) (define gx#definition-form-compile-top-set! - (make-struct-slot-mutator gx#definition-form::t 'compile-top)) + (make-class-slot-mutator gx#definition-form::t 'compile-top)) (define gx#definition-form-e-set! - (make-struct-slot-mutator gx#definition-form::t 'e)) + (make-class-slot-mutator gx#definition-form::t 'e)) (define gx#&definition-form-id - (make-struct-slot-unchecked-accessor gx#definition-form::t 'id)) + (make-class-slot-unchecked-accessor gx#definition-form::t 'id)) (define gx#&definition-form-compile-top - (make-struct-slot-unchecked-accessor gx#definition-form::t 'compile-top)) + (make-class-slot-unchecked-accessor gx#definition-form::t 'compile-top)) (define gx#&definition-form-e - (make-struct-slot-unchecked-accessor gx#definition-form::t 'e)) + (make-class-slot-unchecked-accessor gx#definition-form::t 'e)) (define gx#&definition-form-id-set! - (make-struct-slot-unchecked-mutator gx#definition-form::t 'id)) + (make-class-slot-unchecked-mutator gx#definition-form::t 'id)) (define gx#&definition-form-compile-top-set! - (make-struct-slot-unchecked-mutator gx#definition-form::t 'compile-top)) + (make-class-slot-unchecked-mutator gx#definition-form::t 'compile-top)) (define gx#&definition-form-e-set! - (make-struct-slot-unchecked-mutator gx#definition-form::t 'e)) + (make-class-slot-unchecked-mutator gx#definition-form::t 'e)) (define gx#top-special-form::t - (make-struct-type + (make-class-type 'gx#top-special-form::t 'top-special-form - gx#special-form::t + (list gx#special-form::t) '() (cons (cons 'struct: '#t) '()) '#f)) - (define gx#top-special-form? - (make-struct-predicate gx#top-special-form::t)) + (define gx#top-special-form? (make-class-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _$args143011_ - (apply make-struct-instance gx#top-special-form::t _$args143011_))) + (lambda _$args144458_ + (apply make-instance gx#top-special-form::t _$args144458_))) (define gx#top-special-form-id - (make-struct-slot-accessor gx#top-special-form::t 'id)) + (make-class-slot-accessor gx#top-special-form::t 'id)) (define gx#top-special-form-compile-top - (make-struct-slot-accessor gx#top-special-form::t 'compile-top)) + (make-class-slot-accessor gx#top-special-form::t 'compile-top)) (define gx#top-special-form-e - (make-struct-slot-accessor gx#top-special-form::t 'e)) + (make-class-slot-accessor gx#top-special-form::t 'e)) (define gx#top-special-form-id-set! - (make-struct-slot-mutator gx#top-special-form::t 'id)) + (make-class-slot-mutator gx#top-special-form::t 'id)) (define gx#top-special-form-compile-top-set! - (make-struct-slot-mutator gx#top-special-form::t 'compile-top)) + (make-class-slot-mutator gx#top-special-form::t 'compile-top)) (define gx#top-special-form-e-set! - (make-struct-slot-mutator gx#top-special-form::t 'e)) + (make-class-slot-mutator gx#top-special-form::t 'e)) (define gx#&top-special-form-id - (make-struct-slot-unchecked-accessor gx#top-special-form::t 'id)) + (make-class-slot-unchecked-accessor gx#top-special-form::t 'id)) (define gx#&top-special-form-compile-top - (make-struct-slot-unchecked-accessor - gx#top-special-form::t - 'compile-top)) + (make-class-slot-unchecked-accessor gx#top-special-form::t 'compile-top)) (define gx#&top-special-form-e - (make-struct-slot-unchecked-accessor gx#top-special-form::t 'e)) + (make-class-slot-unchecked-accessor gx#top-special-form::t 'e)) (define gx#&top-special-form-id-set! - (make-struct-slot-unchecked-mutator gx#top-special-form::t 'id)) + (make-class-slot-unchecked-mutator gx#top-special-form::t 'id)) (define gx#&top-special-form-compile-top-set! - (make-struct-slot-unchecked-mutator gx#top-special-form::t 'compile-top)) + (make-class-slot-unchecked-mutator gx#top-special-form::t 'compile-top)) (define gx#&top-special-form-e-set! - (make-struct-slot-unchecked-mutator gx#top-special-form::t 'e)) + (make-class-slot-unchecked-mutator gx#top-special-form::t 'e)) (define gx#module-special-form::t - (make-struct-type + (make-class-type 'gx#module-special-form::t 'module-special-form - gx#top-special-form::t + (list gx#top-special-form::t) '() (cons (cons 'struct: '#t) '()) '#f)) (define gx#module-special-form? - (make-struct-predicate gx#module-special-form::t)) + (make-class-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _$args143008_ - (apply make-struct-instance gx#module-special-form::t _$args143008_))) + (lambda _$args144455_ + (apply make-instance gx#module-special-form::t _$args144455_))) (define gx#module-special-form-id - (make-struct-slot-accessor gx#module-special-form::t 'id)) + (make-class-slot-accessor gx#module-special-form::t 'id)) (define gx#module-special-form-compile-top - (make-struct-slot-accessor gx#module-special-form::t 'compile-top)) + (make-class-slot-accessor gx#module-special-form::t 'compile-top)) (define gx#module-special-form-e - (make-struct-slot-accessor gx#module-special-form::t 'e)) + (make-class-slot-accessor gx#module-special-form::t 'e)) (define gx#module-special-form-id-set! - (make-struct-slot-mutator gx#module-special-form::t 'id)) + (make-class-slot-mutator gx#module-special-form::t 'id)) (define gx#module-special-form-compile-top-set! - (make-struct-slot-mutator gx#module-special-form::t 'compile-top)) + (make-class-slot-mutator gx#module-special-form::t 'compile-top)) (define gx#module-special-form-e-set! - (make-struct-slot-mutator gx#module-special-form::t 'e)) + (make-class-slot-mutator gx#module-special-form::t 'e)) (define gx#&module-special-form-id - (make-struct-slot-unchecked-accessor gx#module-special-form::t 'id)) + (make-class-slot-unchecked-accessor gx#module-special-form::t 'id)) (define gx#&module-special-form-compile-top - (make-struct-slot-unchecked-accessor + (make-class-slot-unchecked-accessor gx#module-special-form::t 'compile-top)) (define gx#&module-special-form-e - (make-struct-slot-unchecked-accessor gx#module-special-form::t 'e)) + (make-class-slot-unchecked-accessor gx#module-special-form::t 'e)) (define gx#&module-special-form-id-set! - (make-struct-slot-unchecked-mutator gx#module-special-form::t 'id)) + (make-class-slot-unchecked-mutator gx#module-special-form::t 'id)) (define gx#&module-special-form-compile-top-set! - (make-struct-slot-unchecked-mutator + (make-class-slot-unchecked-mutator gx#module-special-form::t 'compile-top)) (define gx#&module-special-form-e-set! - (make-struct-slot-unchecked-mutator gx#module-special-form::t 'e)) + (make-class-slot-unchecked-mutator gx#module-special-form::t 'e)) (define gx#feature-expander::t - (make-struct-type + (make-class-type 'gx#feature-expander::t 'feature-expander - gx#expander::t + (list gx#expander::t) '() (cons (cons 'struct: '#t) '()) '#f)) - (define gx#feature-expander? - (make-struct-predicate gx#feature-expander::t)) + (define gx#feature-expander? (make-class-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _$args143005_ - (apply make-struct-instance gx#feature-expander::t _$args143005_))) + (lambda _$args144452_ + (apply make-instance gx#feature-expander::t _$args144452_))) (define gx#feature-expander-e - (make-struct-slot-accessor gx#feature-expander::t 'e)) + (make-class-slot-accessor gx#feature-expander::t 'e)) (define gx#feature-expander-e-set! - (make-struct-slot-mutator gx#feature-expander::t 'e)) + (make-class-slot-mutator gx#feature-expander::t 'e)) (define gx#&feature-expander-e - (make-struct-slot-unchecked-accessor gx#feature-expander::t 'e)) + (make-class-slot-unchecked-accessor gx#feature-expander::t 'e)) (define gx#&feature-expander-e-set! - (make-struct-slot-unchecked-mutator gx#feature-expander::t 'e)) + (make-class-slot-unchecked-mutator gx#feature-expander::t 'e)) (define gx#private-feature-expander::t - (make-struct-type + (make-class-type 'gx#private-feature-expander::t 'private-feature-expander - gx#feature-expander::t + (list gx#feature-expander::t) '() (cons (cons 'struct: '#t) '()) '#f)) (define gx#private-feature-expander? - (make-struct-predicate gx#private-feature-expander::t)) + (make-class-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _$args143002_ - (apply make-struct-instance - gx#private-feature-expander::t - _$args143002_))) + (lambda _$args144449_ + (apply make-instance gx#private-feature-expander::t _$args144449_))) (define gx#private-feature-expander-e - (make-struct-slot-accessor gx#private-feature-expander::t 'e)) + (make-class-slot-accessor gx#private-feature-expander::t 'e)) (define gx#private-feature-expander-e-set! - (make-struct-slot-mutator gx#private-feature-expander::t 'e)) + (make-class-slot-mutator gx#private-feature-expander::t 'e)) (define gx#&private-feature-expander-e - (make-struct-slot-unchecked-accessor gx#private-feature-expander::t 'e)) + (make-class-slot-unchecked-accessor gx#private-feature-expander::t 'e)) (define gx#&private-feature-expander-e-set! - (make-struct-slot-unchecked-mutator gx#private-feature-expander::t 'e)) + (make-class-slot-unchecked-mutator gx#private-feature-expander::t 'e)) (define gx#reserved-expander::t - (make-struct-type + (make-class-type 'gx#reserved-expander::t 'reserved-expander - gx#expander::t + (list gx#expander::t) '() (cons (cons 'struct: '#t) '()) '#f)) (define gx#reserved-expander? - (make-struct-predicate gx#reserved-expander::t)) + (make-class-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _$args142999_ - (apply make-struct-instance gx#reserved-expander::t _$args142999_))) + (lambda _$args144446_ + (apply make-instance gx#reserved-expander::t _$args144446_))) (define gx#reserved-expander-e - (make-struct-slot-accessor gx#reserved-expander::t 'e)) + (make-class-slot-accessor gx#reserved-expander::t 'e)) (define gx#reserved-expander-e-set! - (make-struct-slot-mutator gx#reserved-expander::t 'e)) + (make-class-slot-mutator gx#reserved-expander::t 'e)) (define gx#&reserved-expander-e - (make-struct-slot-unchecked-accessor gx#reserved-expander::t 'e)) + (make-class-slot-unchecked-accessor gx#reserved-expander::t 'e)) (define gx#&reserved-expander-e-set! - (make-struct-slot-unchecked-mutator gx#reserved-expander::t 'e)) + (make-class-slot-unchecked-mutator gx#reserved-expander::t 'e)) (define gx#macro-expander::t - (make-struct-type + (make-class-type 'gx#core-macro::t 'macro-expander - gx#expander::t + (list gx#expander::t) '() (cons (cons 'struct: '#t) '()) '#f)) - (define gx#macro-expander? (make-struct-predicate gx#macro-expander::t)) + (define gx#macro-expander? (make-class-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _$args142996_ - (apply make-struct-instance gx#macro-expander::t _$args142996_))) + (lambda _$args144443_ + (apply make-instance gx#macro-expander::t _$args144443_))) (define gx#macro-expander-e - (make-struct-slot-accessor gx#macro-expander::t 'e)) + (make-class-slot-accessor gx#macro-expander::t 'e)) (define gx#macro-expander-e-set! - (make-struct-slot-mutator gx#macro-expander::t 'e)) + (make-class-slot-mutator gx#macro-expander::t 'e)) (define gx#¯o-expander-e - (make-struct-slot-unchecked-accessor gx#macro-expander::t 'e)) + (make-class-slot-unchecked-accessor gx#macro-expander::t 'e)) (define gx#¯o-expander-e-set! - (make-struct-slot-unchecked-mutator gx#macro-expander::t 'e)) + (make-class-slot-unchecked-mutator gx#macro-expander::t 'e)) (define gx#rename-macro-expander::t - (make-struct-type + (make-class-type 'gx#rename-macro-expander::t 'rename-macro-expander - gx#macro-expander::t + (list gx#macro-expander::t) '() (cons (cons 'struct: '#t) '()) '#f)) (define gx#rename-macro-expander? - (make-struct-predicate gx#rename-macro-expander::t)) + (make-class-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _$args142993_ - (apply make-struct-instance - gx#rename-macro-expander::t - _$args142993_))) + (lambda _$args144440_ + (apply make-instance gx#rename-macro-expander::t _$args144440_))) (define gx#rename-macro-expander-e - (make-struct-slot-accessor gx#rename-macro-expander::t 'e)) + (make-class-slot-accessor gx#rename-macro-expander::t 'e)) (define gx#rename-macro-expander-e-set! - (make-struct-slot-mutator gx#rename-macro-expander::t 'e)) + (make-class-slot-mutator gx#rename-macro-expander::t 'e)) (define gx#&rename-macro-expander-e - (make-struct-slot-unchecked-accessor gx#rename-macro-expander::t 'e)) + (make-class-slot-unchecked-accessor gx#rename-macro-expander::t 'e)) (define gx#&rename-macro-expander-e-set! - (make-struct-slot-unchecked-mutator gx#rename-macro-expander::t 'e)) + (make-class-slot-unchecked-mutator gx#rename-macro-expander::t 'e)) (define gx#user-expander::t - (make-struct-type + (make-class-type 'gx#macro-expander::t 'user-expander - gx#macro-expander::t + (list gx#macro-expander::t) '(context phi) (cons (cons 'struct: '#t) '()) '#f)) - (define gx#user-expander? (make-struct-predicate gx#user-expander::t)) + (define gx#user-expander? (make-class-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _$args142990_ - (apply make-struct-instance gx#user-expander::t _$args142990_))) + (lambda _$args144437_ + (apply make-instance gx#user-expander::t _$args144437_))) (define gx#user-expander-context - (make-struct-slot-accessor gx#user-expander::t 'context)) + (make-class-slot-accessor gx#user-expander::t 'context)) (define gx#user-expander-phi - (make-struct-slot-accessor gx#user-expander::t 'phi)) + (make-class-slot-accessor gx#user-expander::t 'phi)) (define gx#user-expander-e - (make-struct-slot-accessor gx#user-expander::t 'e)) + (make-class-slot-accessor gx#user-expander::t 'e)) (define gx#user-expander-context-set! - (make-struct-slot-mutator gx#user-expander::t 'context)) + (make-class-slot-mutator gx#user-expander::t 'context)) (define gx#user-expander-phi-set! - (make-struct-slot-mutator gx#user-expander::t 'phi)) + (make-class-slot-mutator gx#user-expander::t 'phi)) (define gx#user-expander-e-set! - (make-struct-slot-mutator gx#user-expander::t 'e)) + (make-class-slot-mutator gx#user-expander::t 'e)) (define gx#&user-expander-context - (make-struct-slot-unchecked-accessor gx#user-expander::t 'context)) + (make-class-slot-unchecked-accessor gx#user-expander::t 'context)) (define gx#&user-expander-phi - (make-struct-slot-unchecked-accessor gx#user-expander::t 'phi)) + (make-class-slot-unchecked-accessor gx#user-expander::t 'phi)) (define gx#&user-expander-e - (make-struct-slot-unchecked-accessor gx#user-expander::t 'e)) + (make-class-slot-unchecked-accessor gx#user-expander::t 'e)) (define gx#&user-expander-context-set! - (make-struct-slot-unchecked-mutator gx#user-expander::t 'context)) + (make-class-slot-unchecked-mutator gx#user-expander::t 'context)) (define gx#&user-expander-phi-set! - (make-struct-slot-unchecked-mutator gx#user-expander::t 'phi)) + (make-class-slot-unchecked-mutator gx#user-expander::t 'phi)) (define gx#&user-expander-e-set! - (make-struct-slot-unchecked-mutator gx#user-expander::t 'e)) + (make-class-slot-unchecked-mutator gx#user-expander::t 'e)) (define gx#expander-mark::t - (make-struct-type + (make-class-type 'gx#expander-mark::t 'expander-mark - '#f + (list) '(subst context phi trace) (cons (cons 'struct: '#t) '()) '#f)) - (define gx#expander-mark? (make-struct-predicate gx#expander-mark::t)) + (define gx#expander-mark? (make-class-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _$args142987_ - (apply make-struct-instance gx#expander-mark::t _$args142987_))) + (lambda _$args144434_ + (apply make-instance gx#expander-mark::t _$args144434_))) (define gx#expander-mark-subst - (make-struct-slot-accessor gx#expander-mark::t 'subst)) + (make-class-slot-accessor gx#expander-mark::t 'subst)) (define gx#expander-mark-context - (make-struct-slot-accessor gx#expander-mark::t 'context)) + (make-class-slot-accessor gx#expander-mark::t 'context)) (define gx#expander-mark-phi - (make-struct-slot-accessor gx#expander-mark::t 'phi)) + (make-class-slot-accessor gx#expander-mark::t 'phi)) (define gx#expander-mark-trace - (make-struct-slot-accessor gx#expander-mark::t 'trace)) + (make-class-slot-accessor gx#expander-mark::t 'trace)) (define gx#expander-mark-subst-set! - (make-struct-slot-mutator gx#expander-mark::t 'subst)) + (make-class-slot-mutator gx#expander-mark::t 'subst)) (define gx#expander-mark-context-set! - (make-struct-slot-mutator gx#expander-mark::t 'context)) + (make-class-slot-mutator gx#expander-mark::t 'context)) (define gx#expander-mark-phi-set! - (make-struct-slot-mutator gx#expander-mark::t 'phi)) + (make-class-slot-mutator gx#expander-mark::t 'phi)) (define gx#expander-mark-trace-set! - (make-struct-slot-mutator gx#expander-mark::t 'trace)) + (make-class-slot-mutator gx#expander-mark::t 'trace)) (define gx#&expander-mark-subst - (make-struct-slot-unchecked-accessor gx#expander-mark::t 'subst)) + (make-class-slot-unchecked-accessor gx#expander-mark::t 'subst)) (define gx#&expander-mark-context - (make-struct-slot-unchecked-accessor gx#expander-mark::t 'context)) + (make-class-slot-unchecked-accessor gx#expander-mark::t 'context)) (define gx#&expander-mark-phi - (make-struct-slot-unchecked-accessor gx#expander-mark::t 'phi)) + (make-class-slot-unchecked-accessor gx#expander-mark::t 'phi)) (define gx#&expander-mark-trace - (make-struct-slot-unchecked-accessor gx#expander-mark::t 'trace)) + (make-class-slot-unchecked-accessor gx#expander-mark::t 'trace)) (define gx#&expander-mark-subst-set! - (make-struct-slot-unchecked-mutator gx#expander-mark::t 'subst)) + (make-class-slot-unchecked-mutator gx#expander-mark::t 'subst)) (define gx#&expander-mark-context-set! - (make-struct-slot-unchecked-mutator gx#expander-mark::t 'context)) + (make-class-slot-unchecked-mutator gx#expander-mark::t 'context)) (define gx#&expander-mark-phi-set! - (make-struct-slot-unchecked-mutator gx#expander-mark::t 'phi)) + (make-class-slot-unchecked-mutator gx#expander-mark::t 'phi)) (define gx#&expander-mark-trace-set! - (make-struct-slot-unchecked-mutator gx#expander-mark::t 'trace)) + (make-class-slot-unchecked-mutator gx#expander-mark::t 'trace)) (define gx#raise-syntax-error - (lambda (_ctx142972_ _message142973_ _stx142974_ . _details142975_) - (let ((_ctx142985_ - (let ((_$e142977_ _ctx142972_)) - (if _$e142977_ - _$e142977_ - (let ((_$e142980_ (gx#core-context-top__0))) - (if _$e142980_ - ((lambda (_ctx142983_) + (lambda (_ctx144419_ _message144420_ _stx144421_ . _details144422_) + (let ((_ctx144432_ + (let ((_$e144424_ _ctx144419_)) + (if _$e144424_ + _$e144424_ + (let ((_$e144427_ (gx#core-context-top__0))) + (if _$e144427_ + ((lambda (_ctx144430_) (cons 'expand (cons (##structure-ref - _ctx142983_ + _ctx144430_ '1 gx#expander-context::t '#f) '()))) - _$e142980_) + _$e144427_) '#f)))))) (raise (make-syntax-error - _message142973_ - (cons _stx142974_ _details142975_) - _ctx142985_ + _message144420_ + (cons _stx144421_ _details144422_) + _ctx144432_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_stx142959_ _expression?142960_) - (gx#eval-syntax* (gx#core-expand__% _stx142959_ _expression?142960_)))) + (lambda (_stx144406_ _expression?144407_) + (gx#eval-syntax* (gx#core-expand__% _stx144406_ _expression?144407_)))) (define gx#eval-syntax__0 - (lambda (_stx142965_) - (let ((_expression?142967_ '#f)) - (gx#eval-syntax__% _stx142965_ _expression?142967_)))) + (lambda (_stx144412_) + (let ((_expression?144414_ '#f)) + (gx#eval-syntax__% _stx144412_ _expression?144414_)))) (define gx#eval-syntax - (lambda _g147864_ - (let ((_g147863_ (##length _g147864_))) - (cond ((##fx= _g147863_ 1) - (apply (lambda (_stx142965_) (gx#eval-syntax__0 _stx142965_)) - _g147864_)) - ((##fx= _g147863_ 2) - (apply (lambda (_stx142969_ _expression?142970_) - (gx#eval-syntax__% _stx142969_ _expression?142970_)) - _g147864_)) + (lambda _g149411_ + (let ((_g149410_ (##length _g149411_))) + (cond ((##fx= _g149410_ 1) + (apply (lambda (_stx144412_) (gx#eval-syntax__0 _stx144412_)) + _g149411_)) + ((##fx= _g149410_ 2) + (apply (lambda (_stx144416_ _expression?144417_) + (gx#eval-syntax__% _stx144416_ _expression?144417_)) + _g149411_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g147864_)))))) + _g149411_)))))) (define gx#eval-syntax* - (lambda (_stx142956_) + (lambda (_stx144403_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _stx142956_)))) + ((gx#current-expander-compile) _stx144403_)))) (define gx#core-expand__% - (lambda (_stx142943_ _expression?142944_) - (if _expression?142944_ - (gx#core-expand-expression _stx142943_) - (gx#core-expand-top _stx142943_)))) + (lambda (_stx144390_ _expression?144391_) + (if _expression?144391_ + (gx#core-expand-expression _stx144390_) + (gx#core-expand-top _stx144390_)))) (define gx#core-expand__0 - (lambda (_stx142949_) - (let ((_expression?142951_ '#f)) - (gx#core-expand__% _stx142949_ _expression?142951_)))) + (lambda (_stx144396_) + (let ((_expression?144398_ '#f)) + (gx#core-expand__% _stx144396_ _expression?144398_)))) (define gx#core-expand - (lambda _g147866_ - (let ((_g147865_ (##length _g147866_))) - (cond ((##fx= _g147865_ 1) - (apply (lambda (_stx142949_) (gx#core-expand__0 _stx142949_)) - _g147866_)) - ((##fx= _g147865_ 2) - (apply (lambda (_stx142953_ _expression?142954_) - (gx#core-expand__% _stx142953_ _expression?142954_)) - _g147866_)) + (lambda _g149413_ + (let ((_g149412_ (##length _g149413_))) + (cond ((##fx= _g149412_ 1) + (apply (lambda (_stx144396_) (gx#core-expand__0 _stx144396_)) + _g149413_)) + ((##fx= _g149412_ 2) + (apply (lambda (_stx144400_ _expression?144401_) + (gx#core-expand__% _stx144400_ _expression?144401_)) + _g149413_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g147866_)))))) + _g149413_)))))) (define gx#core-expand-top - (lambda (_stx142910_) - (let* ((_stx142912_ (gx#core-expand*__0 _stx142910_)) - (_e142913142920_ _stx142912_) - (_E142915142924_ - (lambda () (gx#core-expand-expression _stx142912_))) - (_E142914142938_ + (lambda (_stx144357_) + (let* ((_stx144359_ (gx#core-expand*__0 _stx144357_)) + (_e144360144367_ _stx144359_) + (_E144362144371_ + (lambda () (gx#core-expand-expression _stx144359_))) + (_E144361144385_ (lambda () - (if (gx#stx-pair? _e142913142920_) - (let ((_e142916142928_ (gx#syntax-e _e142913142920_))) - (let ((_hd142917142931_ (##car _e142916142928_)) - (_tl142918142933_ (##cdr _e142916142928_))) - (let ((_form142936_ _hd142917142931_)) - (if (gx#core-bound-identifier?__0 _form142936_) - _stx142912_ - (_E142915142924_))))) - (_E142915142924_))))) - (_E142914142938_)))) + (if (gx#stx-pair? _e144360144367_) + (let ((_e144363144375_ (gx#syntax-e _e144360144367_))) + (let ((_hd144364144378_ (##car _e144363144375_)) + (_tl144365144380_ (##cdr _e144363144375_))) + (let ((_form144383_ _hd144364144378_)) + (if (gx#core-bound-identifier?__0 _form144383_) + _stx144359_ + (_E144362144371_))))) + (_E144362144371_))))) + (_E144361144385_)))) (define gx#core-expand-expression - (lambda (_stx142857_) - (letrec ((_sealed-expression?142859_ - (lambda (_hd142880_) - (if (gx#sealed-syntax? _hd142880_) - (let* ((_e142881142888_ _hd142880_) - (_E142883142892_ (lambda () '#f)) - (_E142882142906_ + (lambda (_stx144304_) + (letrec ((_sealed-expression?144306_ + (lambda (_hd144327_) + (if (gx#sealed-syntax? _hd144327_) + (let* ((_e144328144335_ _hd144327_) + (_E144330144339_ (lambda () '#f)) + (_E144329144353_ (lambda () - (if (gx#stx-pair? _e142881142888_) - (let ((_e142884142896_ - (gx#syntax-e _e142881142888_))) - (let ((_hd142885142899_ - (##car _e142884142896_)) - (_tl142886142901_ - (##cdr _e142884142896_))) - (let ((_form142904_ - _hd142885142899_)) + (if (gx#stx-pair? _e144328144335_) + (let ((_e144331144343_ + (gx#syntax-e _e144328144335_))) + (let ((_hd144332144346_ + (##car _e144331144343_)) + (_tl144333144348_ + (##cdr _e144331144343_))) + (let ((_form144351_ + _hd144332144346_)) (if '#t (gx#core-bound-identifier?__% - _form142904_ + _form144351_ gx#expression-form-binding?) - (_E142883142892_))))) - (_E142883142892_))))) - (_E142882142906_)) + (_E144330144339_))))) + (_E144330144339_))))) + (_E144329144353_)) '#f))) - (_illegal-expression142860_ - (lambda (_hd142878_ . _g147867_) + (_illegal-expression144307_ + (lambda (_hd144325_ . _g149414_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _stx142857_ - _hd142878_))) - (_expand-e142861_ - (lambda (_form142873_ _hd142874_) - (let ((_bind142876_ + _stx144304_ + _hd144325_))) + (_expand-e144308_ + (lambda (_form144320_ _hd144321_) + (let ((_bind144323_ (if (##structure-instance-of? - _form142873_ + _form144320_ 'gx#binding::t) - _form142873_ - (gx#resolve-identifier__0 _form142873_)))) - (if (gx#core-expander-binding? _bind142876_) + _form144320_ + (gx#resolve-identifier__0 _form144320_)))) + (if (gx#core-expander-binding? _bind144323_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind142876_ + _bind144323_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd142874_ - (gx#stx-source _stx142857_))) + _hd144321_ + (gx#stx-source _stx144304_))) (if (##structure-direct-instance-of? - _bind142876_ + _bind144323_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind142876_ + _bind144323_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd142874_ - (gx#stx-source _stx142857_)))) + _hd144321_ + (gx#stx-source _stx144304_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _stx142857_ - _form142873_))))))) - (let ((_hd142863_ (gx#core-expand-head _stx142857_))) - (if (_sealed-expression?142859_ _hd142863_) - _hd142863_ - (if (gx#stx-pair? _hd142863_) - (let* ((_form142865_ (gx#stx-car _hd142863_)) - (_bind142867_ - (if (gx#identifier? _form142865_) - (gx#resolve-identifier__0 _form142865_) + _stx144304_ + _form144320_))))))) + (let ((_hd144310_ (gx#core-expand-head _stx144304_))) + (if (_sealed-expression?144306_ _hd144310_) + _hd144310_ + (if (gx#stx-pair? _hd144310_) + (let* ((_form144312_ (gx#stx-car _hd144310_)) + (_bind144314_ + (if (gx#identifier? _form144312_) + (gx#resolve-identifier__0 _form144312_) '#f))) - (if (or (not _bind142867_) - (not (gx#core-expander-binding? _bind142867_))) - (_expand-e142861_ '%%app (cons '%%app _hd142863_)) + (if (or (not _bind144314_) + (not (gx#core-expander-binding? _bind144314_))) + (_expand-e144308_ '%%app (cons '%%app _hd144310_)) (if (eq? (##unchecked-structure-ref - _bind142867_ + _bind144314_ '1 gx#binding::t '#f) '%#begin) (gx#core-expand-block* - _hd142863_ - _illegal-expression142860_) - (if (gx#expression-form-binding? _bind142867_) - (_expand-e142861_ _bind142867_ _hd142863_) + _hd144310_ + _illegal-expression144307_) + (if (gx#expression-form-binding? _bind144314_) + (_expand-e144308_ _bind144314_ _hd144310_) (if (gx#direct-special-form-binding? - _bind142867_) + _bind144314_) (gx#core-expand-expression - (_expand-e142861_ - _bind142867_ - _hd142863_)) - (_illegal-expression142860_ - _hd142863_)))))) - (if (gx#core-bound-identifier?__0 _hd142863_) - (_illegal-expression142860_ _hd142863_) - (if (gx#identifier? _hd142863_) - (_expand-e142861_ + (_expand-e144308_ + _bind144314_ + _hd144310_)) + (_illegal-expression144307_ + _hd144310_)))))) + (if (gx#core-bound-identifier?__0 _hd144310_) + (_illegal-expression144307_ _hd144310_) + (if (gx#identifier? _hd144310_) + (_expand-e144308_ '%%ref - (cons '%%ref (cons _hd142863_ '()))) - (if (gx#stx-datum? _hd142863_) - (_expand-e142861_ + (cons '%%ref (cons _hd144310_ '()))) + (if (gx#stx-datum? _hd144310_) + (_expand-e144308_ '%#quote - (cons '%#quote (cons _hd142863_ '()))) - (_illegal-expression142860_ - _hd142863_)))))))))) + (cons '%#quote (cons _hd144310_ '()))) + (_illegal-expression144307_ + _hd144310_)))))))))) (define gx#core-expand-expression+1 - (lambda (_stx142852_) + (lambda (_stx144299_) (call-with-parameters (lambda () - (let ((_stx142855_ (gx#core-expand-expression _stx142852_))) - (values _stx142855_ (gx#eval-syntax* _stx142855_)))) + (let ((_stx144302_ (gx#core-expand-expression _stx144299_))) + (values _stx144302_ (gx#eval-syntax* _stx144302_)))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_stx142833_ _stop?142834_) - (let _lp142836_ ((_stx142838_ _stx142833_)) - (if (_stop?142834_ _stx142838_) - _stx142838_ - (let ((_rstx142840_ (gx#core-expand1 _stx142838_))) - (if (eq? _stx142838_ _rstx142840_) - _stx142838_ - (_lp142836_ _rstx142840_))))))) + (lambda (_stx144280_ _stop?144281_) + (let _lp144283_ ((_stx144285_ _stx144280_)) + (if (_stop?144281_ _stx144285_) + _stx144285_ + (let ((_rstx144287_ (gx#core-expand1 _stx144285_))) + (if (eq? _stx144285_ _rstx144287_) + _stx144285_ + (_lp144283_ _rstx144287_))))))) (define gx#core-expand*__0 - (lambda (_stx142845_) - (let ((_stop?142847_ false)) - (gx#core-expand*__% _stx142845_ _stop?142847_)))) + (lambda (_stx144292_) + (let ((_stop?144294_ false)) + (gx#core-expand*__% _stx144292_ _stop?144294_)))) (define gx#core-expand* - (lambda _g147869_ - (let ((_g147868_ (##length _g147869_))) - (cond ((##fx= _g147868_ 1) - (apply (lambda (_stx142845_) (gx#core-expand*__0 _stx142845_)) - _g147869_)) - ((##fx= _g147868_ 2) - (apply (lambda (_stx142849_ _stop?142850_) - (gx#core-expand*__% _stx142849_ _stop?142850_)) - _g147869_)) + (lambda _g149416_ + (let ((_g149415_ (##length _g149416_))) + (cond ((##fx= _g149415_ 1) + (apply (lambda (_stx144292_) (gx#core-expand*__0 _stx144292_)) + _g149416_)) + ((##fx= _g149415_ 2) + (apply (lambda (_stx144296_ _stop?144297_) + (gx#core-expand*__% _stx144296_ _stop?144297_)) + _g149416_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g147869_)))))) + _g149416_)))))) (define gx#core-expand1 - (lambda (_stx142789_) - (letrec ((_step142791_ - (lambda (_hd142828_) - (let ((_bind142830_ (gx#resolve-identifier__0 _hd142828_))) + (lambda (_stx144236_) + (letrec ((_step144238_ + (lambda (_hd144275_) + (let ((_bind144277_ (gx#resolve-identifier__0 _hd144275_))) (if (##structure-instance-of? - _bind142830_ + _bind144277_ 'gx#runtime-binding::t) - _stx142789_ + _stx144236_ (if (##structure-direct-instance-of? - _bind142830_ + _bind144277_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind142830_ + _bind144277_ '4 gx#syntax-binding::t '#f) - _stx142789_) - (if (not _bind142830_) - _stx142789_ + _stx144236_) + (if (not _bind144277_) + _stx144236_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _stx142789_)))))))) - (let* ((_e142792142800_ _stx142789_) - (_E142798142804_ (lambda () _stx142789_)) - (_E142794142810_ + _stx144236_)))))))) + (let* ((_e144239144247_ _stx144236_) + (_E144245144251_ (lambda () _stx144236_)) + (_E144241144257_ (lambda () - (let ((_hd142808_ _e142792142800_)) - (if (gx#identifier? _hd142808_) - (_step142791_ _hd142808_) - (_E142798142804_))))) - (_E142793142824_ + (let ((_hd144255_ _e144239144247_)) + (if (gx#identifier? _hd144255_) + (_step144238_ _hd144255_) + (_E144245144251_))))) + (_E144240144271_ (lambda () - (if (gx#stx-pair? _e142792142800_) - (let ((_e142795142814_ (gx#syntax-e _e142792142800_))) - (let ((_hd142796142817_ (##car _e142795142814_)) - (_tl142797142819_ (##cdr _e142795142814_))) - (let ((_hd142822_ _hd142796142817_)) - (if (gx#identifier? _hd142822_) - (_step142791_ _hd142822_) - (_E142794142810_))))) - (_E142794142810_))))) - (_E142793142824_))))) + (if (gx#stx-pair? _e144239144247_) + (let ((_e144242144261_ (gx#syntax-e _e144239144247_))) + (let ((_hd144243144264_ (##car _e144242144261_)) + (_tl144244144266_ (##cdr _e144242144261_))) + (let ((_hd144269_ _hd144243144264_)) + (if (gx#identifier? _hd144269_) + (_step144238_ _hd144269_) + (_E144241144257_))))) + (_E144241144257_))))) + (_E144240144271_))))) (define gx#core-expand-head - (lambda (_stx142755_) - (letrec ((_stop?142757_ - (lambda (_stx142759_) - (let* ((_e142760142767_ _stx142759_) - (_E142762142771_ (lambda () '#f)) - (_E142761142785_ + (lambda (_stx144202_) + (letrec ((_stop?144204_ + (lambda (_stx144206_) + (let* ((_e144207144214_ _stx144206_) + (_E144209144218_ (lambda () '#f)) + (_E144208144232_ (lambda () - (if (gx#stx-pair? _e142760142767_) - (let ((_e142763142775_ - (gx#syntax-e _e142760142767_))) - (let ((_hd142764142778_ - (##car _e142763142775_)) - (_tl142765142780_ - (##cdr _e142763142775_))) - (let ((_hd142783_ _hd142764142778_)) + (if (gx#stx-pair? _e144207144214_) + (let ((_e144210144222_ + (gx#syntax-e _e144207144214_))) + (let ((_hd144211144225_ + (##car _e144210144222_)) + (_tl144212144227_ + (##cdr _e144210144222_))) + (let ((_hd144230_ _hd144211144225_)) (if '#t (gx#core-bound-identifier?__0 - _hd142783_) - (_E142762142771_))))) - (_E142762142771_))))) - (_E142761142785_))))) - (gx#core-expand*__% _stx142755_ _stop?142757_)))) + _hd144230_) + (_E144209144218_))))) + (_E144209144218_))))) + (_E144208144232_))))) + (gx#core-expand*__% _stx144202_ _stop?144204_)))) (define gx#core-expand-block__% - (lambda (_stx142561_ - _expand-special142562_ - _begin-form142563_ - _expand-e142564_) - (letrec ((_expand-splice142566_ - (lambda (_hd142729_ _body142730_ _rest142731_ _r142732_) - (if (gx#stx-list? _body142730_) - (_K142570_ - (gx#stx-foldr cons _rest142731_ _body142730_) - _r142732_) + (lambda (_stx144008_ + _expand-special144009_ + _begin-form144010_ + _expand-e144011_) + (letrec ((_expand-splice144013_ + (lambda (_hd144176_ _body144177_ _rest144178_ _r144179_) + (if (gx#stx-list? _body144177_) + (_K144017_ + (gx#stx-foldr cons _rest144178_ _body144177_) + _r144179_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _stx142561_ - _hd142729_)))) - (_expand-cond-expand142567_ - (lambda (_hd142725_ _rest142726_ _r142727_) - (_K142570_ - (cons (gx#core-expand-cond-expand% _hd142725_) - _rest142726_) - _r142727_))) - (_expand-include142568_ - (lambda (_hd142674_ _rest142675_ _r142676_) - (let* ((_e142677142687_ _hd142674_) - (_E142679142691_ + _stx144008_ + _hd144176_)))) + (_expand-cond-expand144014_ + (lambda (_hd144172_ _rest144173_ _r144174_) + (_K144017_ + (cons (gx#core-expand-cond-expand% _hd144172_) + _rest144173_) + _r144174_))) + (_expand-include144015_ + (lambda (_hd144121_ _rest144122_ _r144123_) + (let* ((_e144124144134_ _hd144121_) + (_E144126144138_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e142677142687_))) - (_E142678142721_ + _e144124144134_))) + (_E144125144168_ (lambda () - (if (gx#stx-pair? _e142677142687_) - (let ((_e142680142695_ - (gx#syntax-e _e142677142687_))) - (let ((_hd142681142698_ - (##car _e142680142695_)) - (_tl142682142700_ - (##cdr _e142680142695_))) - (if (gx#stx-pair? _tl142682142700_) - (let ((_e142683142703_ + (if (gx#stx-pair? _e144124144134_) + (let ((_e144127144142_ + (gx#syntax-e _e144124144134_))) + (let ((_hd144128144145_ + (##car _e144127144142_)) + (_tl144129144147_ + (##cdr _e144127144142_))) + (if (gx#stx-pair? _tl144129144147_) + (let ((_e144130144150_ (gx#syntax-e - _tl142682142700_))) - (let ((_hd142684142706_ - (##car _e142683142703_)) - (_tl142685142708_ - (##cdr _e142683142703_))) - (let ((_path142711_ - _hd142684142706_)) + _tl144129144147_))) + (let ((_hd144131144153_ + (##car _e144130144150_)) + (_tl144132144155_ + (##cdr _e144130144150_))) + (let ((_path144158_ + _hd144131144153_)) (if (gx#stx-null? - _tl142685142708_) + _tl144132144155_) (if (gx#stx-string? - _path142711_) - (let* ((_rpath142713_ + _path144158_) + (let* ((_rpath144160_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _path142711_ - (gx#stx-source _hd142674_))) - (_block142715_ - (gx#core-expand-include%__% _hd142674_ _rpath142713_)) - (_rbody142718_ + _path144158_ + (gx#stx-source _hd144121_))) + (_block144162_ + (gx#core-expand-include%__% _hd144121_ _rpath144160_)) + (_rbody144165_ (call-with-parameters (lambda () (gx#core-expand-block__% - _block142715_ - _expand-special142562_ + _block144162_ + _expand-special144009_ '#f - _expand-e142564_)) + _expand-e144011_)) gx#current-expander-path - (cons _rpath142713_ (gx#current-expander-path))))) - (_K142570_ - _rest142675_ - (foldr1 cons _r142676_ _rbody142718_))) - (_E142679142691_)) + (cons _rpath144160_ (gx#current-expander-path))))) + (_K144017_ + _rest144122_ + (foldr1 cons _r144123_ _rbody144165_))) + (_E144126144138_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E142679142691_))))) - (_E142679142691_)))) - (_E142679142691_))))) - (_E142678142721_)))) - (_expand-expression142569_ - (lambda (_hd142670_ _rest142671_ _r142672_) - (_K142570_ - _rest142671_ - (cons (_expand-e142564_ _hd142670_) _r142672_)))) - (_K142570_ - (lambda (_rest142600_ _r142601_) - (let* ((_e142602142609_ _rest142600_) - (_E142604142613_ + (_E144126144138_))))) + (_E144126144138_)))) + (_E144126144138_))))) + (_E144125144168_)))) + (_expand-expression144016_ + (lambda (_hd144117_ _rest144118_ _r144119_) + (_K144017_ + _rest144118_ + (cons (_expand-e144011_ _hd144117_) _r144119_)))) + (_K144017_ + (lambda (_rest144047_ _r144048_) + (let* ((_e144049144056_ _rest144047_) + (_E144051144060_ (lambda () - (if _begin-form142563_ + (if _begin-form144010_ (gx#core-quote-syntax__1 (gx#core-cons - _begin-form142563_ - (reverse _r142601_)) - (gx#stx-source _stx142561_)) - _r142601_))) - (_E142603142666_ + _begin-form144010_ + (reverse _r144048_)) + (gx#stx-source _stx144008_)) + _r144048_))) + (_E144050144113_ (lambda () - (if (gx#stx-pair? _e142602142609_) - (let ((_e142605142617_ - (gx#syntax-e _e142602142609_))) - (let ((_hd142606142620_ - (##car _e142605142617_)) - (_tl142607142622_ - (##cdr _e142605142617_))) - (let* ((_hd142625_ _hd142606142620_) - (_rest142627_ _tl142607142622_)) + (if (gx#stx-pair? _e144049144056_) + (let ((_e144052144064_ + (gx#syntax-e _e144049144056_))) + (let ((_hd144053144067_ + (##car _e144052144064_)) + (_tl144054144069_ + (##cdr _e144052144064_))) + (let* ((_hd144072_ _hd144053144067_) + (_rest144074_ _tl144054144069_)) (if '#t - (let* ((_hd142629_ + (let* ((_hd144076_ (gx#core-expand-head - _hd142625_)) - (_e142630142637_ _hd142629_) - (_E142632142641_ + _hd144072_)) + (_e144077144084_ _hd144076_) + (_E144079144088_ (lambda () - (_expand-expression142569_ - _hd142629_ - _rest142627_ - _r142601_))) - (_E142631142662_ + (_expand-expression144016_ + _hd144076_ + _rest144074_ + _r144048_))) + (_E144078144109_ (lambda () (if (gx#stx-pair? - _e142630142637_) - (let ((_e142633142645_ + _e144077144084_) + (let ((_e144080144092_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e142630142637_))) - (let ((_hd142634142648_ (##car _e142633142645_)) - (_tl142635142650_ (##cdr _e142633142645_))) - (let* ((_form142653_ _hd142634142648_) - (_body142655_ _tl142635142650_)) + (gx#syntax-e _e144077144084_))) + (let ((_hd144081144095_ (##car _e144080144092_)) + (_tl144082144097_ (##cdr _e144080144092_))) + (let* ((_form144100_ _hd144081144095_) + (_body144102_ _tl144082144097_)) (if '#t - (let ((_bind142657_ - (if (gx#identifier? _form142653_) - (gx#resolve-identifier__0 _form142653_) + (let ((_bind144104_ + (if (gx#identifier? _form144100_) + (gx#resolve-identifier__0 _form144100_) '#f))) - (if (gx#special-form-binding? _bind142657_) - (let ((_$e142659_ + (if (gx#special-form-binding? _bind144104_) + (let ((_$e144106_ (##unchecked-structure-ref - _bind142657_ + _bind144104_ '1 gx#binding::t '#f))) - (if (eq? '%#begin _$e142659_) - (_expand-splice142566_ - _hd142629_ - _body142655_ - _rest142627_ - _r142601_) - (if (eq? '%#cond-expand _$e142659_) - (_expand-cond-expand142567_ - _hd142629_ - _rest142627_ - _r142601_) - (if (eq? '%#include _$e142659_) - (_expand-include142568_ - _hd142629_ - _rest142627_ - _r142601_) - (_expand-special142562_ - _hd142629_ - _K142570_ - _rest142627_ - _r142601_))))) - (_expand-expression142569_ - _hd142629_ - _rest142627_ - _r142601_))) - (_E142632142641_))))) - (_E142632142641_))))) + (if (eq? '%#begin _$e144106_) + (_expand-splice144013_ + _hd144076_ + _body144102_ + _rest144074_ + _r144048_) + (if (eq? '%#cond-expand _$e144106_) + (_expand-cond-expand144014_ + _hd144076_ + _rest144074_ + _r144048_) + (if (eq? '%#include _$e144106_) + (_expand-include144015_ + _hd144076_ + _rest144074_ + _r144048_) + (_expand-special144009_ + _hd144076_ + _K144017_ + _rest144074_ + _r144048_))))) + (_expand-expression144016_ + _hd144076_ + _rest144074_ + _r144048_))) + (_E144079144088_))))) + (_E144079144088_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E142631142662_)) - (_E142604142613_))))) - (_E142604142613_))))) - (_E142603142666_))))) - (let* ((_e142571142578_ _stx142561_) - (_E142573142582_ + (_E144078144109_)) + (_E144051144060_))))) + (_E144051144060_))))) + (_E144050144113_))))) + (let* ((_e144018144025_ _stx144008_) + (_E144020144029_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e142571142578_))) - (_E142572142596_ + _e144018144025_))) + (_E144019144043_ (lambda () - (if (gx#stx-pair? _e142571142578_) - (let ((_e142574142586_ (gx#syntax-e _e142571142578_))) - (let ((_hd142575142589_ (##car _e142574142586_)) - (_tl142576142591_ (##cdr _e142574142586_))) - (let ((_body142594_ _tl142576142591_)) - (if (gx#stx-list? _body142594_) - (_K142570_ _body142594_ '()) - (_E142573142582_))))) - (_E142573142582_))))) - (_E142572142596_))))) + (if (gx#stx-pair? _e144018144025_) + (let ((_e144021144033_ (gx#syntax-e _e144018144025_))) + (let ((_hd144022144036_ (##car _e144021144033_)) + (_tl144023144038_ (##cdr _e144021144033_))) + (let ((_body144041_ _tl144023144038_)) + (if (gx#stx-list? _body144041_) + (_K144017_ _body144041_ '()) + (_E144020144029_))))) + (_E144020144029_))))) + (_E144019144043_))))) (define gx#core-expand-block__0 - (lambda (_stx142737_ _expand-special142738_) - (let* ((_begin-form142740_ '%#begin) - (_expand-e142742_ gx#core-expand-expression)) + (lambda (_stx144184_ _expand-special144185_) + (let* ((_begin-form144187_ '%#begin) + (_expand-e144189_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx142737_ - _expand-special142738_ - _begin-form142740_ - _expand-e142742_)))) + _stx144184_ + _expand-special144185_ + _begin-form144187_ + _expand-e144189_)))) (define gx#core-expand-block__1 - (lambda (_stx142744_ _expand-special142745_ _begin-form142746_) - (let ((_expand-e142748_ gx#core-expand-expression)) + (lambda (_stx144191_ _expand-special144192_ _begin-form144193_) + (let ((_expand-e144195_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx142744_ - _expand-special142745_ - _begin-form142746_ - _expand-e142748_)))) + _stx144191_ + _expand-special144192_ + _begin-form144193_ + _expand-e144195_)))) (define gx#core-expand-block - (lambda _g147871_ - (let ((_g147870_ (##length _g147871_))) - (cond ((##fx= _g147870_ 2) - (apply (lambda (_stx142737_ _expand-special142738_) + (lambda _g149418_ + (let ((_g149417_ (##length _g149418_))) + (cond ((##fx= _g149417_ 2) + (apply (lambda (_stx144184_ _expand-special144185_) (gx#core-expand-block__0 - _stx142737_ - _expand-special142738_)) - _g147871_)) - ((##fx= _g147870_ 3) - (apply (lambda (_stx142744_ - _expand-special142745_ - _begin-form142746_) + _stx144184_ + _expand-special144185_)) + _g149418_)) + ((##fx= _g149417_ 3) + (apply (lambda (_stx144191_ + _expand-special144192_ + _begin-form144193_) (gx#core-expand-block__1 - _stx142744_ - _expand-special142745_ - _begin-form142746_)) - _g147871_)) - ((##fx= _g147870_ 4) - (apply (lambda (_stx142750_ - _expand-special142751_ - _begin-form142752_ - _expand-e142753_) + _stx144191_ + _expand-special144192_ + _begin-form144193_)) + _g149418_)) + ((##fx= _g149417_ 4) + (apply (lambda (_stx144197_ + _expand-special144198_ + _begin-form144199_ + _expand-e144200_) (gx#core-expand-block__% - _stx142750_ - _expand-special142751_ - _begin-form142752_ - _expand-e142753_)) - _g147871_)) + _stx144197_ + _expand-special144198_ + _begin-form144199_ + _expand-e144200_)) + _g149418_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g147871_)))))) + _g149418_)))))) (define gx#core-expand-block* - (lambda (_stx142509_ _expand-special142510_) - (let* ((_g142511142522_ + (lambda (_stx143956_ _expand-special143957_) + (let* ((_g143958143969_ (gx#core-expand-block__1 - _stx142509_ - _expand-special142510_ + _stx143956_ + _expand-special143957_ '#f)) - (_E142515142526_ - (lambda () (error '"No clause matching" _g142511142522_)))) - (let ((_K142520142557_ + (_E143962143973_ + (lambda () (error '"No clause matching" _g143958143969_)))) + (let ((_K143967144004_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _stx142509_))) - (_K142517142543_ (lambda (_expr142541_) _expr142541_)) - (_K142516142532_ - (lambda (_body142530_) + _stx143956_))) + (_K143964143990_ (lambda (_expr143988_) _expr143988_)) + (_K143963143979_ + (lambda (_body143977_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _body142530_)) - (gx#stx-source _stx142509_))))) - (let ((_try-match142513142553_ + (gx#core-cons '%#begin (reverse _body143977_)) + (gx#stx-source _stx143956_))))) + (let ((_try-match143960144000_ (lambda () - (if (##pair? _g142511142522_) - (let ((_tl142519142548_ (##cdr _g142511142522_)) - (_hd142518142546_ (##car _g142511142522_))) - (if (##null? _tl142519142548_) - (let ((_expr142551_ _hd142518142546_)) - (_K142517142543_ _expr142551_)) - (let ((_body142535_ _g142511142522_)) - (_K142516142532_ _body142535_)))) - (let ((_body142535_ _g142511142522_)) - (_K142516142532_ _body142535_)))))) - (if (##null? _g142511142522_) - (_K142520142557_) - (_try-match142513142553_))))))) + (if (##pair? _g143958143969_) + (let ((_tl143966143995_ (##cdr _g143958143969_)) + (_hd143965143993_ (##car _g143958143969_))) + (if (##null? _tl143966143995_) + (let ((_expr143998_ _hd143965143993_)) + (_K143964143990_ _expr143998_)) + (let ((_body143982_ _g143958143969_)) + (_K143963143979_ _body143982_)))) + (let ((_body143982_ _g143958143969_)) + (_K143963143979_ _body143982_)))))) + (if (##null? _g143958143969_) + (_K143967144004_) + (_try-match143960144000_))))))) (define gx#core-expand-cond-expand% - (lambda (_stx142337_) - (letrec ((_satisfied?142339_ - (lambda (_condition142437_) - (let* ((_e142438142453_ _condition142437_) - (_E142448142457_ + (lambda (_stx143784_) + (letrec ((_satisfied?143786_ + (lambda (_condition143884_) + (let* ((_e143885143900_ _condition143884_) + (_E143895143904_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e142438142453_))) - (_E142441142476_ + _e143885143900_))) + (_E143888143923_ (lambda () - (if (gx#stx-pair? _e142438142453_) - (let ((_e142449142461_ - (gx#syntax-e _e142438142453_))) - (let ((_hd142450142464_ - (##car _e142449142461_)) - (_tl142451142466_ - (##cdr _e142449142461_))) - (let* ((_combinator142469_ - _hd142450142464_) - (_body142471_ _tl142451142466_)) - (if (gx#stx-list? _body142471_) - (let ((_$e142473_ + (if (gx#stx-pair? _e143885143900_) + (let ((_e143896143908_ + (gx#syntax-e _e143885143900_))) + (let ((_hd143897143911_ + (##car _e143896143908_)) + (_tl143898143913_ + (##cdr _e143896143908_))) + (let* ((_combinator143916_ + _hd143897143911_) + (_body143918_ _tl143898143913_)) + (if (gx#stx-list? _body143918_) + (let ((_$e143920_ (gx#stx-e - _combinator142469_))) - (if (eq? 'not _$e142473_) + _combinator143916_))) + (if (eq? 'not _$e143920_) (not (gx#stx-ormap - _satisfied?142339_ - _body142471_)) - (if (eq? 'and _$e142473_) + _satisfied?143786_ + _body143918_)) + (if (eq? 'and _$e143920_) (gx#stx-andmap - _satisfied?142339_ - _body142471_) - (if (eq? 'or _$e142473_) + _satisfied?143786_ + _body143918_) + (if (eq? 'or _$e143920_) (gx#stx-ormap - _satisfied?142339_ - _body142471_) + _satisfied?143786_ + _body143918_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e142473_) - (gx#stx-andmap gx#core-resolve-identifier _body142471_) + _$e143920_) + (gx#stx-andmap gx#core-resolve-identifier _body143918_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _stx142337_ - _combinator142469_)))))) + _stx143784_ + _combinator143916_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E142448142457_))))) - (_E142448142457_)))) - (_E142440142499_ + (_E143895143904_))))) + (_E143895143904_)))) + (_E143887143946_ (lambda () - (if (gx#stx-pair? _e142438142453_) - (let ((_e142442142480_ - (gx#syntax-e _e142438142453_))) - (let ((_hd142443142483_ - (##car _e142442142480_)) - (_tl142444142485_ - (##cdr _e142442142480_))) + (if (gx#stx-pair? _e143885143900_) + (let ((_e143889143927_ + (gx#syntax-e _e143885143900_))) + (let ((_hd143890143930_ + (##car _e143889143927_)) + (_tl143891143932_ + (##cdr _e143889143927_))) (if (and (gx#identifier? - _hd142443142483_) + _hd143890143930_) (gx#core-identifier=? - _hd142443142483_ + _hd143890143930_ 'unquote)) - (if (gx#stx-pair? _tl142444142485_) - (let ((_e142445142488_ + (if (gx#stx-pair? _tl143891143932_) + (let ((_e143892143935_ (gx#syntax-e - _tl142444142485_))) - (let ((_hd142446142491_ - (##car _e142445142488_)) - (_tl142447142493_ - (##cdr _e142445142488_))) - (let ((_expr142496_ - _hd142446142491_)) + _tl143891143932_))) + (let ((_hd143893143938_ + (##car _e143892143935_)) + (_tl143894143940_ + (##cdr _e143892143935_))) + (let ((_expr143943_ + _hd143893143938_)) (if (gx#stx-null? - _tl142447142493_) + _tl143894143940_) (if '#t (call-with-parameters (lambda () (gx#eval-syntax__0 - _expr142496_)) + _expr143943_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1)) - (_E142441142476_)) - (_E142441142476_))))) + (_E143888143923_)) + (_E143888143923_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E142441142476_)) - (_E142441142476_)))) - (_E142441142476_)))) - (_E142439142505_ + (_E143888143923_)) + (_E143888143923_)))) + (_E143888143923_)))) + (_E143886143952_ (lambda () - (let ((_id142503_ _e142438142453_)) - (if (gx#identifier? _id142503_) + (let ((_id143950_ _e143885143900_)) + (if (gx#identifier? _id143950_) (gx#core-bound-identifier?__% - _id142503_ + _id143950_ gx#feature-binding?) - (_E142440142499_)))))) - (_E142439142505_)))) - (_loop142340_ - (lambda (_rest142370_) - (let* ((_e142371142379_ _rest142370_) - (_E142377142383_ + (_E143887143946_)))))) + (_E143886143952_)))) + (_loop143787_ + (lambda (_rest143817_) + (let* ((_e143818143826_ _rest143817_) + (_E143824143830_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e142371142379_))) - (_E142373142387_ + _e143818143826_))) + (_E143820143834_ (lambda () - (if (gx#stx-null? _e142371142379_) - (if '#t '() (_E142377142383_)) - (_E142377142383_)))) - (_E142372142433_ + (if (gx#stx-null? _e143818143826_) + (if '#t '() (_E143824143830_)) + (_E143824143830_)))) + (_E143819143880_ (lambda () - (if (gx#stx-pair? _e142371142379_) - (let ((_e142374142391_ - (gx#syntax-e _e142371142379_))) - (let ((_hd142375142394_ - (##car _e142374142391_)) - (_tl142376142396_ - (##cdr _e142374142391_))) - (let* ((_hd142399_ _hd142375142394_) - (_rest142401_ _tl142376142396_)) + (if (gx#stx-pair? _e143818143826_) + (let ((_e143821143838_ + (gx#syntax-e _e143818143826_))) + (let ((_hd143822143841_ + (##car _e143821143838_)) + (_tl143823143843_ + (##cdr _e143821143838_))) + (let* ((_hd143846_ _hd143822143841_) + (_rest143848_ _tl143823143843_)) (if '#t - (let* ((_e142402142409_ _hd142399_) - (_E142404142413_ + (let* ((_e143849143856_ _hd143846_) + (_E143851143860_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e142402142409_))) - (_E142403142429_ + _e143849143856_))) + (_E143850143876_ (lambda () (if (gx#stx-pair? - _e142402142409_) - (let ((_e142405142417_ + _e143849143856_) + (let ((_e143852143864_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e142402142409_))) - (let ((_hd142406142420_ (##car _e142405142417_)) - (_tl142407142422_ (##cdr _e142405142417_))) - (let* ((_condition142425_ _hd142406142420_) - (_body142427_ _tl142407142422_)) + (gx#syntax-e _e143849143856_))) + (let ((_hd143853143867_ (##car _e143852143864_)) + (_tl143854143869_ (##cdr _e143852143864_))) + (let* ((_condition143872_ _hd143853143867_) + (_body143874_ _tl143854143869_)) (if '#t - (if (gx#stx-eq? _condition142425_ 'else) - (if (gx#stx-null? _rest142401_) - _body142427_ + (if (gx#stx-eq? _condition143872_ 'else) + (if (gx#stx-null? _rest143848_) + _body143874_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _stx142337_ - _hd142399_)) - (if (_satisfied?142339_ _condition142425_) - _body142427_ - (_loop142340_ _rest142401_))) - (_E142404142413_))))) - (_E142404142413_))))) + _stx143784_ + _hd143846_)) + (if (_satisfied?143786_ _condition143872_) + _body143874_ + (_loop143787_ _rest143848_))) + (_E143851143860_))))) + (_E143851143860_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E142403142429_)) - (_E142373142387_))))) - (_E142373142387_))))) - (_E142372142433_))))) - (let* ((_e142341142348_ _stx142337_) - (_E142343142352_ + (_E143850143876_)) + (_E143820143834_))))) + (_E143820143834_))))) + (_E143819143880_))))) + (let* ((_e143788143795_ _stx143784_) + (_E143790143799_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e142341142348_))) - (_E142342142366_ + _e143788143795_))) + (_E143789143813_ (lambda () - (if (gx#stx-pair? _e142341142348_) - (let ((_e142344142356_ (gx#syntax-e _e142341142348_))) - (let ((_hd142345142359_ (##car _e142344142356_)) - (_tl142346142361_ (##cdr _e142344142356_))) - (let ((_clauses142364_ _tl142346142361_)) - (if (gx#stx-list? _clauses142364_) + (if (gx#stx-pair? _e143788143795_) + (let ((_e143791143803_ (gx#syntax-e _e143788143795_))) + (let ((_hd143792143806_ (##car _e143791143803_)) + (_tl143793143808_ (##cdr _e143791143803_))) + (let ((_clauses143811_ _tl143793143808_)) + (if (gx#stx-list? _clauses143811_) (gx#core-cons 'begin - (_loop142340_ _clauses142364_)) - (_E142343142352_))))) - (_E142343142352_))))) - (_E142342142366_))))) + (_loop143787_ _clauses143811_)) + (_E143790143799_))))) + (_E143790143799_))))) + (_E143789143813_))))) (define gx#core-expand-include%__% - (lambda (_stx142280_ _rpath142281_) - (let* ((_e142282142292_ _stx142280_) - (_E142284142296_ + (lambda (_stx143727_ _rpath143728_) + (let* ((_e143729143739_ _stx143727_) + (_E143731143743_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e142282142292_))) - (_E142283142323_ + _e143729143739_))) + (_E143730143770_ (lambda () - (if (gx#stx-pair? _e142282142292_) - (let ((_e142285142300_ (gx#syntax-e _e142282142292_))) - (let ((_hd142286142303_ (##car _e142285142300_)) - (_tl142287142305_ (##cdr _e142285142300_))) - (if (gx#stx-pair? _tl142287142305_) - (let ((_e142288142308_ - (gx#syntax-e _tl142287142305_))) - (let ((_hd142289142311_ - (##car _e142288142308_)) - (_tl142290142313_ - (##cdr _e142288142308_))) - (let ((_path142316_ _hd142289142311_)) - (if (gx#stx-null? _tl142290142313_) - (if (gx#stx-string? _path142316_) - (let ((_rpath142321_ - (let ((_$e142318_ - _rpath142281_)) - (if _$e142318_ - _$e142318_ + (if (gx#stx-pair? _e143729143739_) + (let ((_e143732143747_ (gx#syntax-e _e143729143739_))) + (let ((_hd143733143750_ (##car _e143732143747_)) + (_tl143734143752_ (##cdr _e143732143747_))) + (if (gx#stx-pair? _tl143734143752_) + (let ((_e143735143755_ + (gx#syntax-e _tl143734143752_))) + (let ((_hd143736143758_ + (##car _e143735143755_)) + (_tl143737143760_ + (##cdr _e143735143755_))) + (let ((_path143763_ _hd143736143758_)) + (if (gx#stx-null? _tl143737143760_) + (if (gx#stx-string? _path143763_) + (let ((_rpath143768_ + (let ((_$e143765_ + _rpath143728_)) + (if _$e143765_ + _$e143765_ (gx#core-resolve-path__% - _path142316_ + _path143763_ (gx#stx-source - _stx142280_)))))) - (if (member _rpath142321_ + _stx143727_)))))) + (if (member _rpath143768_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _stx142280_) + _stx143727_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _rpath142321_)) + _rpath143768_)) (gx#stx-source - _stx142280_))))) - (_E142284142296_)) - (_E142284142296_))))) - (_E142284142296_)))) - (_E142284142296_))))) - (_E142283142323_)))) + _stx143727_))))) + (_E143731143743_)) + (_E143731143743_))))) + (_E143731143743_)))) + (_E143731143743_))))) + (_E143730143770_)))) (define gx#core-expand-include%__0 - (lambda (_stx142330_) - (let ((_rpath142332_ '#f)) - (gx#core-expand-include%__% _stx142330_ _rpath142332_)))) + (lambda (_stx143777_) + (let ((_rpath143779_ '#f)) + (gx#core-expand-include%__% _stx143777_ _rpath143779_)))) (define gx#core-expand-include% - (lambda _g147873_ - (let ((_g147872_ (##length _g147873_))) - (cond ((##fx= _g147872_ 1) - (apply (lambda (_stx142330_) - (gx#core-expand-include%__0 _stx142330_)) - _g147873_)) - ((##fx= _g147872_ 2) - (apply (lambda (_stx142334_ _rpath142335_) + (lambda _g149420_ + (let ((_g149419_ (##length _g149420_))) + (cond ((##fx= _g149419_ 1) + (apply (lambda (_stx143777_) + (gx#core-expand-include%__0 _stx143777_)) + _g149420_)) + ((##fx= _g149419_ 2) + (apply (lambda (_stx143781_ _rpath143782_) (gx#core-expand-include%__% - _stx142334_ - _rpath142335_)) - _g147873_)) + _stx143781_ + _rpath143782_)) + _g149420_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g147873_)))))) + _g149420_)))))) (define gx#core-apply-expander__% - (lambda (_K142249_ _stx142250_ _method142251_) - (if (procedure? _K142249_) - (let ((_$e142253_ (gx#stx-source _stx142250_))) - (if _$e142253_ - ((lambda (_g142255142257_) + (lambda (_K143696_ _stx143697_ _method143698_) + (if (procedure? _K143696_) + (let ((_$e143700_ (gx#stx-source _stx143697_))) + (if _$e143700_ + ((lambda (_g143702143704_) (gx#stx-wrap-source - (_K142249_ _stx142250_) - _g142255142257_)) - _$e142253_) - (_K142249_ _stx142250_))) - (let ((_$e142260_ (bound-method-ref _K142249_ _method142251_))) - (if _$e142260_ - ((lambda (_g142262142264_) + (_K143696_ _stx143697_) + _g143702143704_)) + _$e143700_) + (_K143696_ _stx143697_))) + (let ((_$e143707_ (bound-method-ref _K143696_ _method143698_))) + (if _$e143707_ + ((lambda (_g143709143711_) (gx#core-apply-expander__% - _g142262142264_ - _stx142250_ - _method142251_)) - _$e142260_) + _g143709143711_ + _stx143697_ + _method143698_)) + _$e143707_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _stx142250_ - _method142251_)))))) + _stx143697_ + _method143698_)))))) (define gx#core-apply-expander__0 - (lambda (_K142270_ _stx142271_) - (let ((_method142273_ 'apply-macro-expander)) - (gx#core-apply-expander__% _K142270_ _stx142271_ _method142273_)))) + (lambda (_K143717_ _stx143718_) + (let ((_method143720_ 'apply-macro-expander)) + (gx#core-apply-expander__% _K143717_ _stx143718_ _method143720_)))) (define gx#core-apply-expander - (lambda _g147875_ - (let ((_g147874_ (##length _g147875_))) - (cond ((##fx= _g147874_ 2) - (apply (lambda (_K142270_ _stx142271_) - (gx#core-apply-expander__0 _K142270_ _stx142271_)) - _g147875_)) - ((##fx= _g147874_ 3) - (apply (lambda (_K142275_ _stx142276_ _method142277_) + (lambda _g149422_ + (let ((_g149421_ (##length _g149422_))) + (cond ((##fx= _g149421_ 2) + (apply (lambda (_K143717_ _stx143718_) + (gx#core-apply-expander__0 _K143717_ _stx143718_)) + _g149422_)) + ((##fx= _g149421_ 3) + (apply (lambda (_K143722_ _stx143723_ _method143724_) (gx#core-apply-expander__% - _K142275_ - _stx142276_ - _method142277_)) - _g147875_)) + _K143722_ + _stx143723_ + _method143724_)) + _g149422_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g147875_)))))) + _g149422_)))))) (define gx#expander::apply-macro-expander - (lambda (_self142245_ _stx142246_) + (lambda (_self143692_ _stx143693_) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _stx142246_))) + _stx143693_))) (bind-method! gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_self142098_ _stx142099_) - (let* ((_self142100142106_ _self142098_) - (_E142102142110_ - (lambda () (error '"No clause matching" _self142100142106_))) - (_K142103142115_ - (lambda (_K142113_) - (gx#core-apply-expander__0 _K142113_ _stx142099_)))) - (if (##structure-instance-of? _self142100142106_ 'gx#core-macro::t) - (let* ((_e142104142118_ + (lambda (_self143545_ _stx143546_) + (let* ((_self143547143553_ _self143545_) + (_E143549143557_ + (lambda () (error '"No clause matching" _self143547143553_))) + (_K143550143562_ + (lambda (_K143560_) + (gx#core-apply-expander__0 _K143560_ _stx143546_)))) + (if (##structure-instance-of? _self143547143553_ 'gx#core-macro::t) + (let* ((_e143551143565_ (##unchecked-structure-ref - _self142100142106_ + _self143547143553_ '1 gx#expander::t '#f)) - (_K142121_ _e142104142118_)) - (_K142103142115_ _K142121_)) - (_E142102142110_))))) + (_K143568_ _e143551143565_)) + (_K143550143562_ _K143568_)) + (_E143549143557_))))) (bind-method! gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_self141951_ _stx141952_) - (if (gx#sealed-syntax? _stx141952_) - _stx141952_ - (let* ((_self141953141959_ _self141951_) - (_E141955141963_ + (lambda (_self143398_ _stx143399_) + (if (gx#sealed-syntax? _stx143399_) + _stx143399_ + (let* ((_self143400143406_ _self143398_) + (_E143402143410_ (lambda () - (error '"No clause matching" _self141953141959_))) - (_K141956141968_ - (lambda (_K141966_) - (gx#core-apply-expander__0 _K141966_ _stx141952_)))) + (error '"No clause matching" _self143400143406_))) + (_K143403143415_ + (lambda (_K143413_) + (gx#core-apply-expander__0 _K143413_ _stx143399_)))) (if (##structure-instance-of? - _self141953141959_ + _self143400143406_ 'gx#core-expander::t) - (let* ((_e141957141971_ + (let* ((_e143404143418_ (##unchecked-structure-ref - _self141953141959_ + _self143400143406_ '1 gx#expander::t '#f)) - (_K141974_ _e141957141971_)) - (_K141956141968_ _K141974_)) - (_E141955141963_)))))) + (_K143421_ _e143404143418_)) + (_K143403143415_ _K143421_)) + (_E143402143410_)))))) (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 (_self141813_ _stx141814_ _top?141815_) - (if (_top?141815_ (gx#current-expander-context)) - (gx#core-expander::apply-macro-expander _self141813_ _stx141814_) + (lambda (_self143260_ _stx143261_ _top?143262_) + (if (_top?143262_ (gx#current-expander-context)) + (gx#core-expander::apply-macro-expander _self143260_ _stx143261_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _stx141814_)))) + _stx143261_)))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_self141820_ _stx141821_) - (let ((_top?141823_ gx#top-context?)) + (lambda (_self143267_ _stx143268_) + (let ((_top?143270_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _self141820_ - _stx141821_ - _top?141823_)))) + _self143267_ + _stx143268_ + _top?143270_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g147877_ - (let ((_g147876_ (##length _g147877_))) - (cond ((##fx= _g147876_ 2) - (apply (lambda (_self141820_ _stx141821_) + (lambda _g149424_ + (let ((_g149423_ (##length _g149424_))) + (cond ((##fx= _g149423_ 2) + (apply (lambda (_self143267_ _stx143268_) (gx#top-special-form::apply-macro-expander__0 - _self141820_ - _stx141821_)) - _g147877_)) - ((##fx= _g147876_ 3) - (apply (lambda (_self141825_ _stx141826_ _top?141827_) + _self143267_ + _stx143268_)) + _g149424_)) + ((##fx= _g149423_ 3) + (apply (lambda (_self143272_ _stx143273_ _top?143274_) (gx#top-special-form::apply-macro-expander__% - _self141825_ - _stx141826_ - _top?141827_)) - _g147877_)) + _self143272_ + _stx143273_ + _top?143274_)) + _g149424_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g147877_)))))) + _g149424_)))))) (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 (_self141687_ _stx141688_) + (lambda (_self143134_ _stx143135_) (gx#top-special-form::apply-macro-expander__% - _self141687_ - _stx141688_ + _self143134_ + _stx143135_ gx#module-context?))) (bind-method! gx#module-special-form::t @@ -2307,138 +2291,138 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_self141512_ _stx141513_) - (let* ((_self141514141520_ _self141512_) - (_E141516141524_ - (lambda () (error '"No clause matching" _self141514141520_))) - (_K141517141557_ - (lambda (_id141527_) - (let* ((_e141528141535_ _stx141513_) - (_E141530141539_ + (lambda (_self142959_ _stx142960_) + (let* ((_self142961142967_ _self142959_) + (_E142963142971_ + (lambda () (error '"No clause matching" _self142961142967_))) + (_K142964143004_ + (lambda (_id142974_) + (let* ((_e142975142982_ _stx142960_) + (_E142977142986_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e141528141535_))) - (_E141529141553_ + _e142975142982_))) + (_E142976143000_ (lambda () - (if (gx#stx-pair? _e141528141535_) - (let ((_e141531141543_ - (gx#syntax-e _e141528141535_))) - (let ((_hd141532141546_ - (##car _e141531141543_)) - (_tl141533141548_ - (##cdr _e141531141543_))) - (let ((_body141551_ _tl141533141548_)) + (if (gx#stx-pair? _e142975142982_) + (let ((_e142978142990_ + (gx#syntax-e _e142975142982_))) + (let ((_hd142979142993_ + (##car _e142978142990_)) + (_tl142980142995_ + (##cdr _e142978142990_))) + (let ((_body142998_ _tl142980142995_)) (if '#t (gx#core-cons - _id141527_ - _body141551_) - (_E141530141539_))))) - (_E141530141539_))))) - (_E141529141553_))))) + _id142974_ + _body142998_) + (_E142977142986_))))) + (_E142977142986_))))) + (_E142976143000_))))) (if (##structure-instance-of? - _self141514141520_ + _self142961142967_ 'gx#rename-macro-expander::t) - (let* ((_e141518141560_ + (let* ((_e142965143007_ (##unchecked-structure-ref - _self141514141520_ + _self142961142967_ '1 gx#expander::t '#f)) - (_id141563_ _e141518141560_)) - (_K141517141557_ _id141563_)) - (_E141516141524_))))) + (_id143010_ _e142965143007_)) + (_K142964143004_ _id143010_)) + (_E142963142971_))))) (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 (_self141338_ _stx141339_ _method141340_) - (let* ((_self141341141349_ _self141338_) - (_E141343141353_ - (lambda () (error '"No clause matching" _self141341141349_))) - (_K141344141360_ - (lambda (_phi141356_ _ctx141357_ _K141358_) + (lambda (_self142785_ _stx142786_ _method142787_) + (let* ((_self142788142796_ _self142785_) + (_E142790142800_ + (lambda () (error '"No clause matching" _self142788142796_))) + (_K142791142807_ + (lambda (_phi142803_ _ctx142804_ _K142805_) (gx#core-apply-user-macro - _K141358_ - _stx141339_ - _ctx141357_ - _phi141356_ - _method141340_)))) + _K142805_ + _stx142786_ + _ctx142804_ + _phi142803_ + _method142787_)))) (if (##structure-instance-of? - _self141341141349_ + _self142788142796_ 'gx#macro-expander::t) - (let* ((_e141345141363_ + (let* ((_e142792142810_ (##unchecked-structure-ref - _self141341141349_ + _self142788142796_ '1 gx#expander::t '#f)) - (_K141366_ _e141345141363_) - (_e141346141368_ + (_K142813_ _e142792142810_) + (_e142793142815_ (##unchecked-structure-ref - _self141341141349_ + _self142788142796_ '2 gx#user-expander::t '#f)) - (_ctx141371_ _e141346141368_) - (_e141347141373_ + (_ctx142818_ _e142793142815_) + (_e142794142820_ (##unchecked-structure-ref - _self141341141349_ + _self142788142796_ '3 gx#user-expander::t '#f)) - (_phi141376_ _e141347141373_)) - (_K141344141360_ _phi141376_ _ctx141371_ _K141366_)) - (_E141343141353_))))) + (_phi142823_ _e142794142820_)) + (_K142791142807_ _phi142823_ _ctx142818_ _K142813_)) + (_E142790142800_))))) (define gx#core-apply-user-expander__0 - (lambda (_self141381_ _stx141382_) - (let ((_method141384_ 'apply-macro-expander)) + (lambda (_self142828_ _stx142829_) + (let ((_method142831_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _self141381_ - _stx141382_ - _method141384_)))) + _self142828_ + _stx142829_ + _method142831_)))) (define gx#core-apply-user-expander - (lambda _g147879_ - (let ((_g147878_ (##length _g147879_))) - (cond ((##fx= _g147878_ 2) - (apply (lambda (_self141381_ _stx141382_) + (lambda _g149426_ + (let ((_g149425_ (##length _g149426_))) + (cond ((##fx= _g149425_ 2) + (apply (lambda (_self142828_ _stx142829_) (gx#core-apply-user-expander__0 - _self141381_ - _stx141382_)) - _g147879_)) - ((##fx= _g147878_ 3) - (apply (lambda (_self141386_ _stx141387_ _method141388_) + _self142828_ + _stx142829_)) + _g149426_)) + ((##fx= _g149425_ 3) + (apply (lambda (_self142833_ _stx142834_ _method142835_) (gx#core-apply-user-expander__% - _self141386_ - _stx141387_ - _method141388_)) - _g147879_)) + _self142833_ + _stx142834_ + _method142835_)) + _g149426_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g147879_)))))) + _g149426_)))))) (define gx#core-apply-user-macro - (lambda (_K141328_ _stx141329_ _ctx141330_ _phi141331_ _method141332_) - (let ((_mark141334_ + (lambda (_K142775_ _stx142776_ _ctx142777_ _phi142778_ _method142779_) + (let ((_mark142781_ (##structure gx#expander-mark::t '#f - _ctx141330_ - _phi141331_ - _stx141329_))) + _ctx142777_ + _phi142778_ + _stx142776_))) (call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _K141328_ - (gx#stx-apply-mark _stx141329_ _mark141334_) - _method141332_) - _mark141334_)) + _K142775_ + (gx#stx-apply-mark _stx142776_ _mark142781_) + _method142779_) + _mark142781_)) gx#current-expander-marks - (cons _mark141334_ (gx#current-expander-marks)))))) + (cons _mark142781_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) (bind-method! gx#user-expander::t @@ -2446,433 +2430,433 @@ gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_stx141180_ _phi141181_ _ctx141182_) - (let _lp141184_ ((_bind141186_ + (lambda (_stx142627_ _phi142628_ _ctx142629_) + (let _lp142631_ ((_bind142633_ (gx#core-resolve-identifier__% - _stx141180_ - _phi141181_ - _ctx141182_))) + _stx142627_ + _phi142628_ + _ctx142629_))) (if (##structure-direct-instance-of? - _bind141186_ + _bind142633_ 'gx#import-binding::t) - (_lp141184_ + (_lp142631_ (##unchecked-structure-ref - _bind141186_ + _bind142633_ '4 gx#import-binding::t '#f)) (if (##structure-direct-instance-of? - _bind141186_ + _bind142633_ 'gx#alias-binding::t) - (_lp141184_ + (_lp142631_ (gx#core-resolve-identifier__% (##unchecked-structure-ref - _bind141186_ + _bind142633_ '4 gx#alias-binding::t '#f) - _phi141181_ - _ctx141182_)) - _bind141186_))))) + _phi142628_ + _ctx142629_)) + _bind142633_))))) (define gx#resolve-identifier__0 - (lambda (_stx141191_) - (let* ((_phi141193_ (gx#current-expander-phi)) - (_ctx141195_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx141191_ _phi141193_ _ctx141195_)))) + (lambda (_stx142638_) + (let* ((_phi142640_ (gx#current-expander-phi)) + (_ctx142642_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx142638_ _phi142640_ _ctx142642_)))) (define gx#resolve-identifier__1 - (lambda (_stx141197_ _phi141198_) - (let ((_ctx141200_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx141197_ _phi141198_ _ctx141200_)))) + (lambda (_stx142644_ _phi142645_) + (let ((_ctx142647_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx142644_ _phi142645_ _ctx142647_)))) (define gx#resolve-identifier - (lambda _g147881_ - (let ((_g147880_ (##length _g147881_))) - (cond ((##fx= _g147880_ 1) - (apply (lambda (_stx141191_) - (gx#resolve-identifier__0 _stx141191_)) - _g147881_)) - ((##fx= _g147880_ 2) - (apply (lambda (_stx141197_ _phi141198_) - (gx#resolve-identifier__1 _stx141197_ _phi141198_)) - _g147881_)) - ((##fx= _g147880_ 3) - (apply (lambda (_stx141202_ _phi141203_ _ctx141204_) + (lambda _g149428_ + (let ((_g149427_ (##length _g149428_))) + (cond ((##fx= _g149427_ 1) + (apply (lambda (_stx142638_) + (gx#resolve-identifier__0 _stx142638_)) + _g149428_)) + ((##fx= _g149427_ 2) + (apply (lambda (_stx142644_ _phi142645_) + (gx#resolve-identifier__1 _stx142644_ _phi142645_)) + _g149428_)) + ((##fx= _g149427_ 3) + (apply (lambda (_stx142649_ _phi142650_ _ctx142651_) (gx#resolve-identifier__% - _stx141202_ - _phi141203_ - _ctx141204_)) - _g147881_)) + _stx142649_ + _phi142650_ + _ctx142651_)) + _g149428_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g147881_)))))) + _g149428_)))))) (define gx#bind-identifier!__% - (lambda (_stx141138_ _val141139_ _rebind?141140_ _phi141141_ _ctx141142_) - (let ((_rebind?141144_ - (if (not _rebind?141140_) + (lambda (_stx142585_ _val142586_ _rebind?142587_ _phi142588_ _ctx142589_) + (let ((_rebind?142591_ + (if (not _rebind?142587_) gx#core-context-rebind? - (if (procedure? _rebind?141140_) _rebind?141140_ true)))) + (if (procedure? _rebind?142587_) _rebind?142587_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _stx141138_) - _val141139_ - _rebind?141144_ - _phi141141_ - _ctx141142_)))) + (gx#core-identifier-key _stx142585_) + _val142586_ + _rebind?142591_ + _phi142588_ + _ctx142589_)))) (define gx#bind-identifier!__0 - (lambda (_stx141149_ _val141150_) - (let* ((_rebind?141152_ '#f) - (_phi141154_ (gx#current-expander-phi)) - (_ctx141156_ (gx#current-expander-context))) + (lambda (_stx142596_ _val142597_) + (let* ((_rebind?142599_ '#f) + (_phi142601_ (gx#current-expander-phi)) + (_ctx142603_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx141149_ - _val141150_ - _rebind?141152_ - _phi141154_ - _ctx141156_)))) + _stx142596_ + _val142597_ + _rebind?142599_ + _phi142601_ + _ctx142603_)))) (define gx#bind-identifier!__1 - (lambda (_stx141158_ _val141159_ _rebind?141160_) - (let* ((_phi141162_ (gx#current-expander-phi)) - (_ctx141164_ (gx#current-expander-context))) + (lambda (_stx142605_ _val142606_ _rebind?142607_) + (let* ((_phi142609_ (gx#current-expander-phi)) + (_ctx142611_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx141158_ - _val141159_ - _rebind?141160_ - _phi141162_ - _ctx141164_)))) + _stx142605_ + _val142606_ + _rebind?142607_ + _phi142609_ + _ctx142611_)))) (define gx#bind-identifier!__2 - (lambda (_stx141166_ _val141167_ _rebind?141168_ _phi141169_) - (let ((_ctx141171_ (gx#current-expander-context))) + (lambda (_stx142613_ _val142614_ _rebind?142615_ _phi142616_) + (let ((_ctx142618_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx141166_ - _val141167_ - _rebind?141168_ - _phi141169_ - _ctx141171_)))) + _stx142613_ + _val142614_ + _rebind?142615_ + _phi142616_ + _ctx142618_)))) (define gx#bind-identifier! - (lambda _g147883_ - (let ((_g147882_ (##length _g147883_))) - (cond ((##fx= _g147882_ 2) - (apply (lambda (_stx141149_ _val141150_) - (gx#bind-identifier!__0 _stx141149_ _val141150_)) - _g147883_)) - ((##fx= _g147882_ 3) - (apply (lambda (_stx141158_ _val141159_ _rebind?141160_) + (lambda _g149430_ + (let ((_g149429_ (##length _g149430_))) + (cond ((##fx= _g149429_ 2) + (apply (lambda (_stx142596_ _val142597_) + (gx#bind-identifier!__0 _stx142596_ _val142597_)) + _g149430_)) + ((##fx= _g149429_ 3) + (apply (lambda (_stx142605_ _val142606_ _rebind?142607_) (gx#bind-identifier!__1 - _stx141158_ - _val141159_ - _rebind?141160_)) - _g147883_)) - ((##fx= _g147882_ 4) - (apply (lambda (_stx141166_ - _val141167_ - _rebind?141168_ - _phi141169_) + _stx142605_ + _val142606_ + _rebind?142607_)) + _g149430_)) + ((##fx= _g149429_ 4) + (apply (lambda (_stx142613_ + _val142614_ + _rebind?142615_ + _phi142616_) (gx#bind-identifier!__2 - _stx141166_ - _val141167_ - _rebind?141168_ - _phi141169_)) - _g147883_)) - ((##fx= _g147882_ 5) - (apply (lambda (_stx141173_ - _val141174_ - _rebind?141175_ - _phi141176_ - _ctx141177_) + _stx142613_ + _val142614_ + _rebind?142615_ + _phi142616_)) + _g149430_)) + ((##fx= _g149429_ 5) + (apply (lambda (_stx142620_ + _val142621_ + _rebind?142622_ + _phi142623_ + _ctx142624_) (gx#bind-identifier!__% - _stx141173_ - _val141174_ - _rebind?141175_ - _phi141176_ - _ctx141177_)) - _g147883_)) + _stx142620_ + _val142621_ + _rebind?142622_ + _phi142623_ + _ctx142624_)) + _g149430_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g147883_)))))) + _g149430_)))))) (define gx#core-resolve-identifier__% - (lambda (_stx141110_ _phi141111_ _ctx141112_) - (let _lp141114_ ((_e141116_ _stx141110_) - (_marks141117_ (gx#current-expander-marks))) - (if (symbol? _e141116_) + (lambda (_stx142557_ _phi142558_ _ctx142559_) + (let _lp142561_ ((_e142563_ _stx142557_) + (_marks142564_ (gx#current-expander-marks))) + (if (symbol? _e142563_) (gx#core-resolve-binding - _e141116_ - _phi141111_ - _phi141111_ - _ctx141112_ - (reverse _marks141117_)) - (if (gx#identifier-quote? _e141116_) + _e142563_ + _phi142558_ + _phi142558_ + _ctx142559_ + (reverse _marks142564_)) + (if (gx#identifier-quote? _e142563_) (gx#core-resolve-binding - (##unchecked-structure-ref _e141116_ '1 gx#AST::t '#f) - _phi141111_ + (##unchecked-structure-ref _e142563_ '1 gx#AST::t '#f) + _phi142558_ '0 (##unchecked-structure-ref - _e141116_ + _e142563_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _e141116_ + _e142563_ '4 gx#syntax-quote::t '#f)) (if (##structure-direct-instance-of? - _e141116_ + _e142563_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _e141116_ '1 gx#AST::t '#f) - _phi141111_ - _phi141111_ - _ctx141112_ + (##unchecked-structure-ref _e142563_ '1 gx#AST::t '#f) + _phi142558_ + _phi142558_ + _ctx142559_ (foldl1 gx#apply-mark (##unchecked-structure-ref - _e141116_ + _e142563_ '3 gx#identifier-wrap::t '#f) - _marks141117_)) + _marks142564_)) (if (##structure-direct-instance-of? - _e141116_ + _e142563_ 'gx#syntax-wrap::t) - (_lp141114_ + (_lp142561_ (##unchecked-structure-ref - _e141116_ + _e142563_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e141116_ + _e142563_ '3 gx#syntax-wrap::t '#f) - _marks141117_)) + _marks142564_)) (if (##structure-instance-of? - _e141116_ + _e142563_ 'gerbil#AST::t) - (_lp141114_ + (_lp142561_ (##unchecked-structure-ref - _e141116_ + _e142563_ '1 gx#AST::t '#f) - _marks141117_) + _marks142564_) (gx#raise-syntax-error '#f '"Bad identifier" - _stx141110_))))))))) + _stx142557_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_stx141122_) - (let* ((_phi141124_ (gx#current-expander-phi)) - (_ctx141126_ (gx#current-expander-context))) + (lambda (_stx142569_) + (let* ((_phi142571_ (gx#current-expander-phi)) + (_ctx142573_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _stx141122_ - _phi141124_ - _ctx141126_)))) + _stx142569_ + _phi142571_ + _ctx142573_)))) (define gx#core-resolve-identifier__1 - (lambda (_stx141128_ _phi141129_) - (let ((_ctx141131_ (gx#current-expander-context))) + (lambda (_stx142575_ _phi142576_) + (let ((_ctx142578_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _stx141128_ - _phi141129_ - _ctx141131_)))) + _stx142575_ + _phi142576_ + _ctx142578_)))) (define gx#core-resolve-identifier - (lambda _g147885_ - (let ((_g147884_ (##length _g147885_))) - (cond ((##fx= _g147884_ 1) - (apply (lambda (_stx141122_) - (gx#core-resolve-identifier__0 _stx141122_)) - _g147885_)) - ((##fx= _g147884_ 2) - (apply (lambda (_stx141128_ _phi141129_) + (lambda _g149432_ + (let ((_g149431_ (##length _g149432_))) + (cond ((##fx= _g149431_ 1) + (apply (lambda (_stx142569_) + (gx#core-resolve-identifier__0 _stx142569_)) + _g149432_)) + ((##fx= _g149431_ 2) + (apply (lambda (_stx142575_ _phi142576_) (gx#core-resolve-identifier__1 - _stx141128_ - _phi141129_)) - _g147885_)) - ((##fx= _g147884_ 3) - (apply (lambda (_stx141133_ _phi141134_ _ctx141135_) + _stx142575_ + _phi142576_)) + _g149432_)) + ((##fx= _g149431_ 3) + (apply (lambda (_stx142580_ _phi142581_ _ctx142582_) (gx#core-resolve-identifier__% - _stx141133_ - _phi141134_ - _ctx141135_)) - _g147885_)) + _stx142580_ + _phi142581_ + _ctx142582_)) + _g149432_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g147885_)))))) + _g149432_)))))) (define gx#core-resolve-binding - (lambda (_id141023_ - _phi141024_ - _src-phi141025_ - _ctx141026_ - _marks141027_) - (letrec ((_resolve141029_ - (lambda (_ctx141097_ _src-phi141098_ _key141099_) - (let _lp141101_ ((_ctx141103_ + (lambda (_id142470_ + _phi142471_ + _src-phi142472_ + _ctx142473_ + _marks142474_) + (letrec ((_resolve142476_ + (lambda (_ctx142544_ _src-phi142545_ _key142546_) + (let _lp142548_ ((_ctx142550_ (gx#core-context-shift - _ctx141097_ - _phi141024_)) - (_dphi141104_ - (fx- _phi141024_ _src-phi141098_))) - (let ((_$e141106_ + _ctx142544_ + _phi142471_)) + (_dphi142551_ + (fx- _phi142471_ _src-phi142545_))) + (let ((_$e142553_ (gx#core-context-resolve - _ctx141103_ - _key141099_))) - (if _$e141106_ - (values _$e141106_) - (if (fxzero? _dphi141104_) + _ctx142550_ + _key142546_))) + (if _$e142553_ + (values _$e142553_) + (if (fxzero? _dphi142551_) '#f - (if (fxpositive? _dphi141104_) - (_lp141101_ - (gx#core-context-shift _ctx141103_ '-1) - (fx- _dphi141104_ '1)) - (_lp141101_ - (gx#core-context-shift _ctx141103_ '1) - (fx+ _dphi141104_ '1)))))))))) - (let _lp141031_ ((_ctx141033_ _ctx141026_) - (_src-phi141034_ _src-phi141025_) - (_rest141035_ _marks141027_)) - (let* ((_rest141036141044_ _rest141035_) - (_else141038141052_ + (if (fxpositive? _dphi142551_) + (_lp142548_ + (gx#core-context-shift _ctx142550_ '-1) + (fx- _dphi142551_ '1)) + (_lp142548_ + (gx#core-context-shift _ctx142550_ '1) + (fx+ _dphi142551_ '1)))))))))) + (let _lp142478_ ((_ctx142480_ _ctx142473_) + (_src-phi142481_ _src-phi142472_) + (_rest142482_ _marks142474_)) + (let* ((_rest142483142491_ _rest142482_) + (_else142485142499_ (lambda () - (_resolve141029_ - _ctx141033_ - _src-phi141034_ - _id141023_))) - (_K141040141085_ - (lambda (_rest141055_ _hd141056_) - (let* ((_hd141057141063_ _hd141056_) - (_E141059141067_ + (_resolve142476_ + _ctx142480_ + _src-phi142481_ + _id142470_))) + (_K142487142532_ + (lambda (_rest142502_ _hd142503_) + (let* ((_hd142504142510_ _hd142503_) + (_E142506142514_ (lambda () (error '"No clause matching" - _hd141057141063_))) - (_K141060141077_ - (lambda (_subst141070_) - (let ((_$e141074_ - (let ((_key141072_ - (if _subst141070_ + _hd142504142510_))) + (_K142507142524_ + (lambda (_subst142517_) + (let ((_$e142521_ + (let ((_key142519_ + (if _subst142517_ (table-ref - _subst141070_ - _id141023_ + _subst142517_ + _id142470_ '#f) '#f))) - (if _key141072_ - (_resolve141029_ - _ctx141033_ - _src-phi141034_ - _key141072_) + (if _key142519_ + (_resolve142476_ + _ctx142480_ + _src-phi142481_ + _key142519_) '#f)))) - (if _$e141074_ - _$e141074_ - (_lp141031_ + (if _$e142521_ + _$e142521_ + (_lp142478_ (##unchecked-structure-ref - _hd141056_ + _hd142503_ '2 gx#expander-mark::t '#f) (##unchecked-structure-ref - _hd141056_ + _hd142503_ '3 gx#expander-mark::t '#f) - _rest141055_)))))) + _rest142502_)))))) (if (##structure-instance-of? - _hd141057141063_ + _hd142504142510_ 'gx#expander-mark::t) - (let* ((_e141061141080_ + (let* ((_e142508142527_ (##unchecked-structure-ref - _hd141057141063_ + _hd142504142510_ '1 gx#expander-mark::t '#f)) - (_subst141083_ _e141061141080_)) - (_K141060141077_ _subst141083_)) - (_E141059141067_)))))) - (if (##pair? _rest141036141044_) - (let ((_hd141041141088_ (##car _rest141036141044_)) - (_tl141042141090_ (##cdr _rest141036141044_))) - (let* ((_hd141093_ _hd141041141088_) - (_rest141095_ _tl141042141090_)) - (_K141040141085_ _rest141095_ _hd141093_))) - (_else141038141052_))))))) + (_subst142530_ _e142508142527_)) + (_K142507142524_ _subst142530_)) + (_E142506142514_)))))) + (if (##pair? _rest142483142491_) + (let ((_hd142488142535_ (##car _rest142483142491_)) + (_tl142489142537_ (##cdr _rest142483142491_))) + (let* ((_hd142540_ _hd142488142535_) + (_rest142542_ _tl142489142537_)) + (_K142487142532_ _rest142542_ _hd142540_))) + (_else142485142499_))))))) (define gx#core-bind!__% - (lambda (_key140899_ _val140900_ _rebind?140901_ _phi140902_ _ctx140903_) - (letrec ((_update-binding140905_ - (lambda (_xval140976_) - (if (or (_rebind?140901_ - _ctx140903_ - _xval140976_ - _val140900_) + (lambda (_key142346_ _val142347_ _rebind?142348_ _phi142349_ _ctx142350_) + (letrec ((_update-binding142352_ + (lambda (_xval142423_) + (if (or (_rebind?142348_ + _ctx142350_ + _xval142423_ + _val142347_) (and (##structure-direct-instance-of? - _xval140976_ + _xval142423_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _xval140976_ + _xval142423_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _val140900_ + _val142347_ 'gx#binding::t) (not (##structure-direct-instance-of? - _val140900_ + _val142347_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _xval140976_ + _xval142423_ 'gx#extern-binding::t) (##structure-instance-of? - _val140900_ + _val142347_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _val140900_ + _val142347_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval140976_ + _xval142423_ '1 gx#binding::t '#f)))) - _val140900_ + _val142347_ (if (and (##structure-direct-instance-of? - _val140900_ + _val142347_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _val140900_ + _val142347_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _xval140976_ + _xval142423_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _val140900_ + _val142347_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval140976_ + _xval142423_ '1 gx#binding::t '#f))))) - _xval140976_ + _xval142423_ (if (and (##structure-direct-instance-of? - _val140900_ + _val142347_ 'gx#import-binding::t) (##structure-instance-of? - _xval140976_ + _xval142423_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _key140899_ + _key142346_ (cons (##unchecked-structure-ref - _val140900_ + _val142347_ '1 gx#binding::t '#f) (cons (##structure-ref (##unchecked-structure-ref - _val140900_ + _val142347_ '5 gx#import-binding::t '#f) @@ -2881,200 +2865,200 @@ '#f) '())) (cons (##unchecked-structure-ref - _xval140976_ + _xval142423_ '1 gx#binding::t '#f) (cons (if (##structure-direct-instance-of? - _xval140976_ + _xval142423_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _xval140976_ + _xval142423_ '5 gx#import-binding::t '#f) '1 gx#expander-context::t '#f) - _xval140976_) + _xval142423_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _key140899_ - _val140900_ - _xval140976_)))))) - (_gensubst140906_ - (lambda (_subst140971_ _id140972_) - (let ((_eid140974_ - (gensym (if (uninterned-symbol? _id140972_) + _key142346_ + _val142347_ + _xval142423_)))))) + (_gensubst142353_ + (lambda (_subst142418_ _id142419_) + (let ((_eid142421_ + (gensym (if (uninterned-symbol? _id142419_) '% - _id140972_)))) - (table-set! _subst140971_ _id140972_ _eid140974_) - _eid140974_))) - (_subst!140907_ - (lambda (_key140909_) - (let* ((_key140910140918_ _key140909_) - (_else140912140926_ (lambda () _key140909_)) - (_K140914140959_ - (lambda (_mark140929_ _id140930_) - (let* ((_mark140931140937_ _mark140929_) - (_E140933140941_ + _id142419_)))) + (table-set! _subst142418_ _id142419_ _eid142421_) + _eid142421_))) + (_subst!142354_ + (lambda (_key142356_) + (let* ((_key142357142365_ _key142356_) + (_else142359142373_ (lambda () _key142356_)) + (_K142361142406_ + (lambda (_mark142376_ _id142377_) + (let* ((_mark142378142384_ _mark142376_) + (_E142380142388_ (lambda () (error '"No clause matching" - _mark140931140937_))) - (_K140934140951_ - (lambda (_subst140944_) - (if (not _subst140944_) - (let ((_subst140946_ + _mark142378142384_))) + (_K142381142398_ + (lambda (_subst142391_) + (if (not _subst142391_) + (let ((_subst142393_ (make-table 'test: eq?))) (##unchecked-structure-set! - _mark140929_ - _subst140946_ + _mark142376_ + _subst142393_ '1 gx#expander-mark::t '#f) - (_gensubst140906_ - _subst140946_ - _id140930_)) - (let ((_$e140948_ + (_gensubst142353_ + _subst142393_ + _id142377_)) + (let ((_$e142395_ (table-ref - _subst140944_ - _id140930_ + _subst142391_ + _id142377_ '#f))) - (if _$e140948_ - (values _$e140948_) - (_gensubst140906_ - _subst140944_ - _id140930_))))))) + (if _$e142395_ + (values _$e142395_) + (_gensubst142353_ + _subst142391_ + _id142377_))))))) (if (##structure-instance-of? - _mark140931140937_ + _mark142378142384_ 'gx#expander-mark::t) - (let* ((_e140935140954_ + (let* ((_e142382142401_ (##unchecked-structure-ref - _mark140931140937_ + _mark142378142384_ '1 gx#expander-mark::t '#f)) - (_subst140957_ _e140935140954_)) - (_K140934140951_ _subst140957_)) - (_E140933140941_)))))) - (if (##pair? _key140910140918_) - (let ((_hd140915140962_ (##car _key140910140918_)) - (_tl140916140964_ (##cdr _key140910140918_))) - (let* ((_id140967_ _hd140915140962_) - (_mark140969_ _tl140916140964_)) - (_K140914140959_ _mark140969_ _id140967_))) - (_else140912140926_)))))) + (_subst142404_ _e142382142401_)) + (_K142381142398_ _subst142404_)) + (_E142380142388_)))))) + (if (##pair? _key142357142365_) + (let ((_hd142362142409_ (##car _key142357142365_)) + (_tl142363142411_ (##cdr _key142357142365_))) + (let* ((_id142414_ _hd142362142409_) + (_mark142416_ _tl142363142411_)) + (_K142361142406_ _mark142416_ _id142414_))) + (_else142359142373_)))))) (gx#core-context-bind! - (gx#core-context-shift _ctx140903_ _phi140902_) - (_subst!140907_ _key140899_) - _val140900_ - _update-binding140905_)))) + (gx#core-context-shift _ctx142350_ _phi142349_) + (_subst!142354_ _key142346_) + _val142347_ + _update-binding142352_)))) (define gx#core-bind!__0 - (lambda (_key140993_ _val140994_) - (let* ((_rebind?140996_ false) - (_phi140998_ (gx#current-expander-phi)) - (_ctx141000_ (gx#current-expander-context))) + (lambda (_key142440_ _val142441_) + (let* ((_rebind?142443_ false) + (_phi142445_ (gx#current-expander-phi)) + (_ctx142447_ (gx#current-expander-context))) (gx#core-bind!__% - _key140993_ - _val140994_ - _rebind?140996_ - _phi140998_ - _ctx141000_)))) + _key142440_ + _val142441_ + _rebind?142443_ + _phi142445_ + _ctx142447_)))) (define gx#core-bind!__1 - (lambda (_key141002_ _val141003_ _rebind?141004_) - (let* ((_phi141006_ (gx#current-expander-phi)) - (_ctx141008_ (gx#current-expander-context))) + (lambda (_key142449_ _val142450_ _rebind?142451_) + (let* ((_phi142453_ (gx#current-expander-phi)) + (_ctx142455_ (gx#current-expander-context))) (gx#core-bind!__% - _key141002_ - _val141003_ - _rebind?141004_ - _phi141006_ - _ctx141008_)))) + _key142449_ + _val142450_ + _rebind?142451_ + _phi142453_ + _ctx142455_)))) (define gx#core-bind!__2 - (lambda (_key141010_ _val141011_ _rebind?141012_ _phi141013_) - (let ((_ctx141015_ (gx#current-expander-context))) + (lambda (_key142457_ _val142458_ _rebind?142459_ _phi142460_) + (let ((_ctx142462_ (gx#current-expander-context))) (gx#core-bind!__% - _key141010_ - _val141011_ - _rebind?141012_ - _phi141013_ - _ctx141015_)))) + _key142457_ + _val142458_ + _rebind?142459_ + _phi142460_ + _ctx142462_)))) (define gx#core-bind! - (lambda _g147887_ - (let ((_g147886_ (##length _g147887_))) - (cond ((##fx= _g147886_ 2) - (apply (lambda (_key140993_ _val140994_) - (gx#core-bind!__0 _key140993_ _val140994_)) - _g147887_)) - ((##fx= _g147886_ 3) - (apply (lambda (_key141002_ _val141003_ _rebind?141004_) + (lambda _g149434_ + (let ((_g149433_ (##length _g149434_))) + (cond ((##fx= _g149433_ 2) + (apply (lambda (_key142440_ _val142441_) + (gx#core-bind!__0 _key142440_ _val142441_)) + _g149434_)) + ((##fx= _g149433_ 3) + (apply (lambda (_key142449_ _val142450_ _rebind?142451_) (gx#core-bind!__1 - _key141002_ - _val141003_ - _rebind?141004_)) - _g147887_)) - ((##fx= _g147886_ 4) - (apply (lambda (_key141010_ - _val141011_ - _rebind?141012_ - _phi141013_) + _key142449_ + _val142450_ + _rebind?142451_)) + _g149434_)) + ((##fx= _g149433_ 4) + (apply (lambda (_key142457_ + _val142458_ + _rebind?142459_ + _phi142460_) (gx#core-bind!__2 - _key141010_ - _val141011_ - _rebind?141012_ - _phi141013_)) - _g147887_)) - ((##fx= _g147886_ 5) - (apply (lambda (_key141017_ - _val141018_ - _rebind?141019_ - _phi141020_ - _ctx141021_) + _key142457_ + _val142458_ + _rebind?142459_ + _phi142460_)) + _g149434_)) + ((##fx= _g149433_ 5) + (apply (lambda (_key142464_ + _val142465_ + _rebind?142466_ + _phi142467_ + _ctx142468_) (gx#core-bind!__% - _key141017_ - _val141018_ - _rebind?141019_ - _phi141020_ - _ctx141021_)) - _g147887_)) + _key142464_ + _val142465_ + _rebind?142466_ + _phi142467_ + _ctx142468_)) + _g149434_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g147887_)))))) + _g149434_)))))) (define gx#core-identifier-key - (lambda (_stx140833_) - (if (symbol? _stx140833_) - (let* ((_g140834140842_ (gx#current-expander-marks)) - (_else140836140850_ (lambda () _stx140833_)) - (_K140838140855_ - (lambda (_hd140853_) (cons _stx140833_ _hd140853_)))) - (if (##pair? _g140834140842_) - (let* ((_hd140839140858_ (##car _g140834140842_)) - (_hd140861_ _hd140839140858_)) - (_K140838140855_ _hd140861_)) - (_else140836140850_))) - (if (gx#identifier? _stx140833_) - (let* ((_id140863_ (gx#syntax-local-unwrap _stx140833_)) - (_eid140865_ (gx#stx-e _id140863_)) - (_marks140867_ (gx#stx-identifier-marks* _id140863_))) - (let* ((_marks140869140877_ _marks140867_) - (_else140871140885_ (lambda () _eid140865_)) - (_K140873140890_ - (lambda (_hd140888_) (cons _eid140865_ _hd140888_)))) - (if (##pair? _marks140869140877_) - (let* ((_hd140874140893_ (##car _marks140869140877_)) - (_hd140896_ _hd140874140893_)) - (_K140873140890_ _hd140896_)) - (_else140871140885_)))) - (gx#raise-syntax-error '#f '"Bad identifier" _stx140833_))))) + (lambda (_stx142280_) + (if (symbol? _stx142280_) + (let* ((_g142281142289_ (gx#current-expander-marks)) + (_else142283142297_ (lambda () _stx142280_)) + (_K142285142302_ + (lambda (_hd142300_) (cons _stx142280_ _hd142300_)))) + (if (##pair? _g142281142289_) + (let* ((_hd142286142305_ (##car _g142281142289_)) + (_hd142308_ _hd142286142305_)) + (_K142285142302_ _hd142308_)) + (_else142283142297_))) + (if (gx#identifier? _stx142280_) + (let* ((_id142310_ (gx#syntax-local-unwrap _stx142280_)) + (_eid142312_ (gx#stx-e _id142310_)) + (_marks142314_ (gx#stx-identifier-marks* _id142310_))) + (let* ((_marks142316142324_ _marks142314_) + (_else142318142332_ (lambda () _eid142312_)) + (_K142320142337_ + (lambda (_hd142335_) (cons _eid142312_ _hd142335_)))) + (if (##pair? _marks142316142324_) + (let* ((_hd142321142340_ (##car _marks142316142324_)) + (_hd142343_ _hd142321142340_)) + (_K142320142337_ _hd142343_)) + (_else142318142332_)))) + (gx#raise-syntax-error '#f '"Bad identifier" _stx142280_))))) (define gx#core-context-shift - (lambda (_ctx140778_ _phi140779_) - (letrec ((_make-phi140781_ - (lambda (_super140831_) - (let ((__obj147858 + (lambda (_ctx142225_ _phi142226_) + (letrec ((_make-phi142228_ + (lambda (_super142278_) + (let ((__obj149405 (##structure gx#phi-context::t '#f @@ -3083,663 +3067,663 @@ '#f '#f))) (gx#phi-context:::init! - __obj147858 + __obj149405 (gensym 'phi) - _super140831_) - __obj147858))) - (_make-phi/up140782_ - (lambda (_ctx140826_ _super140827_) - (let ((_ctx+1140829_ (_make-phi140781_ _super140827_))) + _super142278_) + __obj149405))) + (_make-phi/up142229_ + (lambda (_ctx142273_ _super142274_) + (let ((_ctx+1142276_ (_make-phi142228_ _super142274_))) (##unchecked-structure-set! - _ctx140826_ - _ctx+1140829_ + _ctx142273_ + _ctx+1142276_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx+1140829_ - _ctx140826_ + _ctx+1142276_ + _ctx142273_ '5 gx#phi-context::t '#f) - _ctx+1140829_))) - (_make-phi/down140783_ - (lambda (_ctx140821_ _super140822_) - (let ((_ctx-1140824_ (_make-phi140781_ _super140822_))) + _ctx+1142276_))) + (_make-phi/down142230_ + (lambda (_ctx142268_ _super142269_) + (let ((_ctx-1142271_ (_make-phi142228_ _super142269_))) (##unchecked-structure-set! - _ctx-1140824_ - _ctx140821_ + _ctx-1142271_ + _ctx142268_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx140821_ - _ctx-1140824_ + _ctx142268_ + _ctx-1142271_ '5 gx#phi-context::t '#f) - _ctx-1140824_))) - (_shift140784_ - (lambda (_ctx140805_ - _delta140806_ - _make-delta-context140807_ - _phi140808_ - _K140809_) - (let ((_$e140811_ + _ctx-1142271_))) + (_shift142231_ + (lambda (_ctx142252_ + _delta142253_ + _make-delta-context142254_ + _phi142255_ + _K142256_) + (let ((_$e142258_ (##unchecked-structure-ref - _ctx140805_ + _ctx142252_ '3 gx#phi-context::t '#f))) - (if _$e140811_ - ((lambda (_super140814_) - (let* ((_super140816_ - (_K140809_ _super140814_ _delta140806_)) - (_ctx+d140818_ - (_make-delta-context140807_ - _ctx140805_ - _super140816_))) - (_K140809_ - _ctx+d140818_ - (fx- _phi140808_ _delta140806_)))) - _$e140811_) - (error '"Bad context" _ctx140805_)))))) - (let _K140786_ ((_ctx140788_ _ctx140778_) (_phi140789_ _phi140779_)) - (if (fxzero? _phi140789_) - _ctx140788_ - (if (fx> (##vector-length _ctx140788_) '3) - (if (fxpositive? _phi140789_) - (let ((_$e140791_ + (if _$e142258_ + ((lambda (_super142261_) + (let* ((_super142263_ + (_K142256_ _super142261_ _delta142253_)) + (_ctx+d142265_ + (_make-delta-context142254_ + _ctx142252_ + _super142263_))) + (_K142256_ + _ctx+d142265_ + (fx- _phi142255_ _delta142253_)))) + _$e142258_) + (error '"Bad context" _ctx142252_)))))) + (let _K142233_ ((_ctx142235_ _ctx142225_) (_phi142236_ _phi142226_)) + (if (fxzero? _phi142236_) + _ctx142235_ + (if (fx> (##vector-length _ctx142235_) '3) + (if (fxpositive? _phi142236_) + (let ((_$e142238_ (##unchecked-structure-ref - _ctx140788_ + _ctx142235_ '4 gx#phi-context::t '#f))) - (if _$e140791_ - ((lambda (_g140793140795_) - (_K140786_ - _g140793140795_ - (fx- _phi140789_ '1))) - _$e140791_) - (_shift140784_ - _ctx140788_ + (if _$e142238_ + ((lambda (_g142240142242_) + (_K142233_ + _g142240142242_ + (fx- _phi142236_ '1))) + _$e142238_) + (_shift142231_ + _ctx142235_ '1 - _make-phi/up140782_ - _phi140789_ - _K140786_))) - (let ((_$e140798_ + _make-phi/up142229_ + _phi142236_ + _K142233_))) + (let ((_$e142245_ (##unchecked-structure-ref - _ctx140788_ + _ctx142235_ '5 gx#phi-context::t '#f))) - (if _$e140798_ - ((lambda (_g140800140802_) - (_K140786_ - _g140800140802_ - (fx+ _phi140789_ '1))) - _$e140798_) - (_shift140784_ - _ctx140788_ + (if _$e142245_ + ((lambda (_g142247142249_) + (_K142233_ + _g142247142249_ + (fx+ _phi142236_ '1))) + _$e142245_) + (_shift142231_ + _ctx142235_ '-1 - _make-phi/down140783_ - _phi140789_ - _K140786_)))) - _ctx140788_)))))) + _make-phi/down142230_ + _phi142236_ + _K142233_)))) + _ctx142235_)))))) (define gx#core-context-get - (lambda (_ctx140775_ _key140776_) + (lambda (_ctx142222_ _key142223_) (table-ref - (##unchecked-structure-ref _ctx140775_ '2 gx#expander-context::t '#f) - _key140776_ + (##unchecked-structure-ref _ctx142222_ '2 gx#expander-context::t '#f) + _key142223_ '#f))) (define gx#core-context-put! - (lambda (_ctx140771_ _key140772_ _val140773_) + (lambda (_ctx142218_ _key142219_ _val142220_) (table-set! - (##unchecked-structure-ref _ctx140771_ '2 gx#expander-context::t '#f) - _key140772_ - _val140773_))) + (##unchecked-structure-ref _ctx142218_ '2 gx#expander-context::t '#f) + _key142219_ + _val142220_))) (define gx#core-context-resolve - (lambda (_ctx140758_ _key140759_) - (let _lp140761_ ((_ctx140763_ _ctx140758_)) - (let ((_$e140765_ (gx#core-context-get _ctx140763_ _key140759_))) - (if _$e140765_ - (values _$e140765_) - (let ((_$e140768_ - (if (fx> (##vector-length _ctx140763_) '3) + (lambda (_ctx142205_ _key142206_) + (let _lp142208_ ((_ctx142210_ _ctx142205_)) + (let ((_$e142212_ (gx#core-context-get _ctx142210_ _key142206_))) + (if _$e142212_ + (values _$e142212_) + (let ((_$e142215_ + (if (fx> (##vector-length _ctx142210_) '3) (##unchecked-structure-ref - _ctx140763_ + _ctx142210_ '3 gx#phi-context::t '#f) '#f))) - (if _$e140768_ (_lp140761_ _$e140768_) '#f))))))) + (if _$e142215_ (_lp142208_ _$e142215_) '#f))))))) (define gx#core-context-bind! - (lambda (_ctx140748_ _key140749_ _val140750_ _rebind140751_) - (let ((_$e140753_ (gx#core-context-get _ctx140748_ _key140749_))) - (if _$e140753_ - ((lambda (_xval140756_) + (lambda (_ctx142195_ _key142196_ _val142197_ _rebind142198_) + (let ((_$e142200_ (gx#core-context-get _ctx142195_ _key142196_))) + (if _$e142200_ + ((lambda (_xval142203_) (gx#core-context-put! - _ctx140748_ - _key140749_ - (_rebind140751_ _xval140756_))) - _$e140753_) - (gx#core-context-put! _ctx140748_ _key140749_ _val140750_))))) + _ctx142195_ + _key142196_ + (_rebind142198_ _xval142203_))) + _$e142200_) + (gx#core-context-put! _ctx142195_ _key142196_ _val142197_))))) (define gx#core-context-top__% - (lambda (_ctx140726_ _stop?140727_) - (let _lp140729_ ((_ctx140731_ _ctx140726_)) - (if (_stop?140727_ _ctx140731_) - _ctx140731_ - (if (##structure-instance-of? _ctx140731_ 'gx#context-phi::t) - (_lp140729_ + (lambda (_ctx142173_ _stop?142174_) + (let _lp142176_ ((_ctx142178_ _ctx142173_)) + (if (_stop?142174_ _ctx142178_) + _ctx142178_ + (if (##structure-instance-of? _ctx142178_ 'gx#context-phi::t) + (_lp142176_ (##unchecked-structure-ref - _ctx140731_ + _ctx142178_ '3 gx#phi-context::t '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_ctx140737_ (gx#current-expander-context)) - (_stop?140739_ gx#top-context?)) - (gx#core-context-top__% _ctx140737_ _stop?140739_)))) + (let* ((_ctx142184_ (gx#current-expander-context)) + (_stop?142186_ gx#top-context?)) + (gx#core-context-top__% _ctx142184_ _stop?142186_)))) (define gx#core-context-top__1 - (lambda (_ctx140741_) - (let ((_stop?140743_ gx#top-context?)) - (gx#core-context-top__% _ctx140741_ _stop?140743_)))) + (lambda (_ctx142188_) + (let ((_stop?142190_ gx#top-context?)) + (gx#core-context-top__% _ctx142188_ _stop?142190_)))) (define gx#core-context-top - (lambda _g147889_ - (let ((_g147888_ (##length _g147889_))) - (cond ((##fx= _g147888_ 0) - (apply (lambda () (gx#core-context-top__0)) _g147889_)) - ((##fx= _g147888_ 1) - (apply (lambda (_ctx140741_) - (gx#core-context-top__1 _ctx140741_)) - _g147889_)) - ((##fx= _g147888_ 2) - (apply (lambda (_ctx140745_ _stop?140746_) - (gx#core-context-top__% _ctx140745_ _stop?140746_)) - _g147889_)) + (lambda _g149436_ + (let ((_g149435_ (##length _g149436_))) + (cond ((##fx= _g149435_ 0) + (apply (lambda () (gx#core-context-top__0)) _g149436_)) + ((##fx= _g149435_ 1) + (apply (lambda (_ctx142188_) + (gx#core-context-top__1 _ctx142188_)) + _g149436_)) + ((##fx= _g149435_ 2) + (apply (lambda (_ctx142192_ _stop?142193_) + (gx#core-context-top__% _ctx142192_ _stop?142193_)) + _g149436_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g147889_)))))) + _g149436_)))))) (define gx#core-context-root__% - (lambda (_ctx140711_) - (let _lp140713_ ((_ctx140715_ _ctx140711_)) - (if (##structure-instance-of? _ctx140715_ 'gx#context-phi::t) - (_lp140713_ + (lambda (_ctx142158_) + (let _lp142160_ ((_ctx142162_ _ctx142158_)) + (if (##structure-instance-of? _ctx142162_ 'gx#context-phi::t) + (_lp142160_ (##unchecked-structure-ref - _ctx140715_ + _ctx142162_ '3 gx#phi-context::t '#f)) - _ctx140715_)))) + _ctx142162_)))) (define gx#core-context-root__0 (lambda () - (let ((_ctx140721_ (gx#current-expander-context))) - (gx#core-context-root__% _ctx140721_)))) + (let ((_ctx142168_ (gx#current-expander-context))) + (gx#core-context-root__% _ctx142168_)))) (define gx#core-context-root - (lambda _g147891_ - (let ((_g147890_ (##length _g147891_))) - (cond ((##fx= _g147890_ 0) - (apply (lambda () (gx#core-context-root__0)) _g147891_)) - ((##fx= _g147890_ 1) - (apply (lambda (_ctx140723_) - (gx#core-context-root__% _ctx140723_)) - _g147891_)) + (lambda _g149438_ + (let ((_g149437_ (##length _g149438_))) + (cond ((##fx= _g149437_ 0) + (apply (lambda () (gx#core-context-root__0)) _g149438_)) + ((##fx= _g149437_ 1) + (apply (lambda (_ctx142170_) + (gx#core-context-root__% _ctx142170_)) + _g149438_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g147891_)))))) + _g149438_)))))) (define gx#core-context-rebind?__% - (lambda (_ctx140692_ . __140689140693_) - (let ((_$e140696_ (gx#current-expander-allow-rebind?))) - (if _$e140696_ - _$e140696_ - (if (##structure-instance-of? _ctx140692_ 'gx#top-context::t) + (lambda (_ctx142139_ . __142136142140_) + (let ((_$e142143_ (gx#current-expander-allow-rebind?))) + (if _$e142143_ + _$e142143_ + (if (##structure-instance-of? _ctx142139_ 'gx#top-context::t) (if (not (##structure-instance-of? - _ctx140692_ + _ctx142139_ 'gx#module-context::t)) (not (##structure-instance-of? - _ctx140692_ + _ctx142139_ 'gx#prelude-context::t)) '#f) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_ctx140703_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _ctx140703_)))) + (let ((_ctx142150_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _ctx142150_)))) (define gx#core-context-rebind? - (lambda _g147893_ - (let ((_g147892_ (##length _g147893_))) - (cond ((##fx= _g147892_ 0) - (apply (lambda () (gx#core-context-rebind?__0)) _g147893_)) - ((##fx= _g147892_ 1) - (apply (lambda (_ctx140705_) - (gx#core-context-rebind?__% _ctx140705_)) - _g147893_)) - ((##fx>= _g147892_ 1) - (apply gx#core-context-rebind?__% _g147893_)) + (lambda _g149440_ + (let ((_g149439_ (##length _g149440_))) + (cond ((##fx= _g149439_ 0) + (apply (lambda () (gx#core-context-rebind?__0)) _g149440_)) + ((##fx= _g149439_ 1) + (apply (lambda (_ctx142152_) + (gx#core-context-rebind?__% _ctx142152_)) + _g149440_)) + ((##fx>= _g149439_ 1) + (apply gx#core-context-rebind?__% _g149440_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g147893_)))))) + _g149440_)))))) (define gx#core-context-namespace__% - (lambda (_ctx140675_) - (let ((_$e140677_ (gx#core-context-top__1 _ctx140675_))) - (if _$e140677_ - ((lambda (_ctx140680_) + (lambda (_ctx142122_) + (let ((_$e142124_ (gx#core-context-top__1 _ctx142122_))) + (if _$e142124_ + ((lambda (_ctx142127_) (if (##structure-instance-of? - _ctx140680_ + _ctx142127_ 'gx#module-context::t) (##unchecked-structure-ref - _ctx140680_ + _ctx142127_ '6 gx#module-context::t '#f) '#f)) - _$e140677_) + _$e142124_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_ctx140686_ (gx#current-expander-context))) - (gx#core-context-namespace__% _ctx140686_)))) + (let ((_ctx142133_ (gx#current-expander-context))) + (gx#core-context-namespace__% _ctx142133_)))) (define gx#core-context-namespace - (lambda _g147895_ - (let ((_g147894_ (##length _g147895_))) - (cond ((##fx= _g147894_ 0) - (apply (lambda () (gx#core-context-namespace__0)) _g147895_)) - ((##fx= _g147894_ 1) - (apply (lambda (_ctx140688_) - (gx#core-context-namespace__% _ctx140688_)) - _g147895_)) + (lambda _g149442_ + (let ((_g149441_ (##length _g149442_))) + (cond ((##fx= _g149441_ 0) + (apply (lambda () (gx#core-context-namespace__0)) _g149442_)) + ((##fx= _g149441_ 1) + (apply (lambda (_ctx142135_) + (gx#core-context-namespace__% _ctx142135_)) + _g149442_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g147895_)))))) + _g149442_)))))) (define gx#expander-binding?__% - (lambda (_bind140661_ _is?140662_) + (lambda (_bind142108_ _is?142109_) (if (##structure-direct-instance-of? - _bind140661_ + _bind142108_ 'gx#syntax-binding::t) - (_is?140662_ + (_is?142109_ (##unchecked-structure-ref - _bind140661_ + _bind142108_ '4 gx#syntax-binding::t '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_bind140667_) - (let ((_is?140669_ gx#expander?)) - (gx#expander-binding?__% _bind140667_ _is?140669_)))) + (lambda (_bind142114_) + (let ((_is?142116_ gx#expander?)) + (gx#expander-binding?__% _bind142114_ _is?142116_)))) (define gx#expander-binding? - (lambda _g147897_ - (let ((_g147896_ (##length _g147897_))) - (cond ((##fx= _g147896_ 1) - (apply (lambda (_bind140667_) - (gx#expander-binding?__0 _bind140667_)) - _g147897_)) - ((##fx= _g147896_ 2) - (apply (lambda (_bind140671_ _is?140672_) - (gx#expander-binding?__% _bind140671_ _is?140672_)) - _g147897_)) + (lambda _g149444_ + (let ((_g149443_ (##length _g149444_))) + (cond ((##fx= _g149443_ 1) + (apply (lambda (_bind142114_) + (gx#expander-binding?__0 _bind142114_)) + _g149444_)) + ((##fx= _g149443_ 2) + (apply (lambda (_bind142118_ _is?142119_) + (gx#expander-binding?__% _bind142118_ _is?142119_)) + _g149444_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g147897_)))))) + _g149444_)))))) (define gx#core-expander-binding? - (lambda (_bind140658_) - (gx#expander-binding?__% _bind140658_ gx#core-expander?))) + (lambda (_bind142105_) + (gx#expander-binding?__% _bind142105_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_bind140656_) - (gx#expander-binding?__% _bind140656_ gx#expression-form?))) + (lambda (_bind142103_) + (gx#expander-binding?__% _bind142103_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_bind140650_) - (letrec ((_direct-special-form?140652_ - (lambda (_obj140654_) + (lambda (_bind142097_) + (letrec ((_direct-special-form?142099_ + (lambda (_obj142101_) (##structure-direct-instance-of? - _obj140654_ + _obj142101_ (##type-id gx#special-form::t))))) (gx#expander-binding?__% - _bind140650_ - _direct-special-form?140652_)))) + _bind142097_ + _direct-special-form?142099_)))) (define gx#special-form-binding? - (lambda (_bind140648_) - (gx#expander-binding?__% _bind140648_ gx#special-form?))) + (lambda (_bind142095_) + (gx#expander-binding?__% _bind142095_ gx#special-form?))) (define gx#feature-binding? - (lambda (_bind140639_) - (letrec ((_feature?140641_ - (lambda (_e140643_) - (let ((_$e140645_ + (lambda (_bind142086_) + (letrec ((_feature?142088_ + (lambda (_e142090_) + (let ((_$e142092_ (##structure-instance-of? - _e140643_ + _e142090_ 'gx#feature-expander::t))) - (if _$e140645_ - _$e140645_ + (if _$e142092_ + _$e142092_ (##structure-instance-of? - _e140643_ + _e142090_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _bind140639_ _feature?140641_)))) + (gx#expander-binding?__% _bind142086_ _feature?142088_)))) (define gx#private-feature-binding? - (lambda (_bind140637_) - (gx#expander-binding?__% _bind140637_ gx#private-feature-expander?))) + (lambda (_bind142084_) + (gx#expander-binding?__% _bind142084_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_id140624_ _bound?140625_) - (if (gx#identifier? _id140624_) - (_bound?140625_ (gx#resolve-identifier__0 _id140624_)) + (lambda (_id142071_ _bound?142072_) + (if (gx#identifier? _id142071_) + (_bound?142072_ (gx#resolve-identifier__0 _id142071_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_id140630_) - (let ((_bound?140632_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _id140630_ _bound?140632_)))) + (lambda (_id142077_) + (let ((_bound?142079_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _id142077_ _bound?142079_)))) (define gx#core-bound-identifier? - (lambda _g147899_ - (let ((_g147898_ (##length _g147899_))) - (cond ((##fx= _g147898_ 1) - (apply (lambda (_id140630_) - (gx#core-bound-identifier?__0 _id140630_)) - _g147899_)) - ((##fx= _g147898_ 2) - (apply (lambda (_id140634_ _bound?140635_) + (lambda _g149446_ + (let ((_g149445_ (##length _g149446_))) + (cond ((##fx= _g149445_ 1) + (apply (lambda (_id142077_) + (gx#core-bound-identifier?__0 _id142077_)) + _g149446_)) + ((##fx= _g149445_ 2) + (apply (lambda (_id142081_ _bound?142082_) (gx#core-bound-identifier?__% - _id140634_ - _bound?140635_)) - _g147899_)) + _id142081_ + _bound?142082_)) + _g149446_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g147899_)))))) + _g149446_)))))) (define gx#core-identifier=? - (lambda (_x140614_ _y140615_) - (letrec ((_y=?140617_ - (lambda (_xid140621_) - ((if (list? _y140615_) memq eq?) _xid140621_ _y140615_)))) - (let ((_bind140619_ (gx#resolve-identifier__0 _x140614_))) - (if (##structure-instance-of? _bind140619_ 'gx#binding::t) - (_y=?140617_ - (##unchecked-structure-ref _bind140619_ '1 gx#binding::t '#f)) - (_y=?140617_ (gx#stx-e _x140614_))))))) + (lambda (_x142061_ _y142062_) + (letrec ((_y=?142064_ + (lambda (_xid142068_) + ((if (list? _y142062_) memq eq?) _xid142068_ _y142062_)))) + (let ((_bind142066_ (gx#resolve-identifier__0 _x142061_))) + (if (##structure-instance-of? _bind142066_ 'gx#binding::t) + (_y=?142064_ + (##unchecked-structure-ref _bind142066_ '1 gx#binding::t '#f)) + (_y=?142064_ (gx#stx-e _x142061_))))))) (define gx#core-extern-symbol? - (lambda (_e140612_) - (if (interned-symbol? _e140612_) - (string-index (symbol->string _e140612_) '#\#) + (lambda (_e142059_) + (if (interned-symbol? _e142059_) + (string-index (symbol->string _e142059_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_stx140567_ _src140568_ _ctx140569_ _marks140570_) - (if (##structure? _stx140567_) - (let ((_$e140572_ (gx#sealed-syntax-unwrap _stx140567_))) - (if _$e140572_ - (values _$e140572_) - (if (gx#identifier? _stx140567_) - (let ((_id140575_ - (gx#stx-unwrap__% _stx140567_ _marks140570_))) + (lambda (_stx142014_ _src142015_ _ctx142016_ _marks142017_) + (if (##structure? _stx142014_) + (let ((_$e142019_ (gx#sealed-syntax-unwrap _stx142014_))) + (if _$e142019_ + (values _$e142019_) + (if (gx#identifier? _stx142014_) + (let ((_id142022_ + (gx#stx-unwrap__% _stx142014_ _marks142017_))) (##structure gx#syntax-quote::t (##unchecked-structure-ref - _id140575_ + _id142022_ '1 gx#AST::t '#f) - (let ((_$e140577_ + (let ((_$e142024_ (##unchecked-structure-ref - _id140575_ + _id142022_ '2 gx#AST::t '#f))) - (if _$e140577_ _$e140577_ _src140568_)) - _ctx140569_ + (if _$e142024_ _$e142024_ _src142015_)) + _ctx142016_ (##unchecked-structure-ref - _id140575_ + _id142022_ '3 gx#identifier-wrap::t '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _stx140567_) - (let ((_$e140580_ (gx#stx-source _stx140567_))) - (if _$e140580_ _$e140580_ _src140568_)) - _ctx140569_ - (reverse _marks140570_))))) + (gx#stx-e _stx142014_) + (let ((_$e142027_ (gx#stx-source _stx142014_))) + (if _$e142027_ _$e142027_ _src142015_)) + _ctx142016_ + (reverse _marks142017_))))) (##structure gx#syntax-quote::t - _stx140567_ - _src140568_ - _ctx140569_ - (reverse _marks140570_))))) + _stx142014_ + _src142015_ + _ctx142016_ + (reverse _marks142017_))))) (define gx#core-quote-syntax__0 - (lambda (_stx140586_) - (let* ((_src140588_ '#f) - (_ctx140590_ (gx#current-expander-context)) - (_marks140592_ (gx#current-expander-marks))) + (lambda (_stx142033_) + (let* ((_src142035_ '#f) + (_ctx142037_ (gx#current-expander-context)) + (_marks142039_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx140586_ - _src140588_ - _ctx140590_ - _marks140592_)))) + _stx142033_ + _src142035_ + _ctx142037_ + _marks142039_)))) (define gx#core-quote-syntax__1 - (lambda (_stx140594_ _src140595_) - (let* ((_ctx140597_ (gx#current-expander-context)) - (_marks140599_ (gx#current-expander-marks))) + (lambda (_stx142041_ _src142042_) + (let* ((_ctx142044_ (gx#current-expander-context)) + (_marks142046_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx140594_ - _src140595_ - _ctx140597_ - _marks140599_)))) + _stx142041_ + _src142042_ + _ctx142044_ + _marks142046_)))) (define gx#core-quote-syntax__2 - (lambda (_stx140601_ _src140602_ _ctx140603_) - (let ((_marks140605_ (gx#current-expander-marks))) + (lambda (_stx142048_ _src142049_ _ctx142050_) + (let ((_marks142052_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx140601_ - _src140602_ - _ctx140603_ - _marks140605_)))) + _stx142048_ + _src142049_ + _ctx142050_ + _marks142052_)))) (define gx#core-quote-syntax - (lambda _g147901_ - (let ((_g147900_ (##length _g147901_))) - (cond ((##fx= _g147900_ 1) - (apply (lambda (_stx140586_) - (gx#core-quote-syntax__0 _stx140586_)) - _g147901_)) - ((##fx= _g147900_ 2) - (apply (lambda (_stx140594_ _src140595_) - (gx#core-quote-syntax__1 _stx140594_ _src140595_)) - _g147901_)) - ((##fx= _g147900_ 3) - (apply (lambda (_stx140601_ _src140602_ _ctx140603_) + (lambda _g149448_ + (let ((_g149447_ (##length _g149448_))) + (cond ((##fx= _g149447_ 1) + (apply (lambda (_stx142033_) + (gx#core-quote-syntax__0 _stx142033_)) + _g149448_)) + ((##fx= _g149447_ 2) + (apply (lambda (_stx142041_ _src142042_) + (gx#core-quote-syntax__1 _stx142041_ _src142042_)) + _g149448_)) + ((##fx= _g149447_ 3) + (apply (lambda (_stx142048_ _src142049_ _ctx142050_) (gx#core-quote-syntax__2 - _stx140601_ - _src140602_ - _ctx140603_)) - _g147901_)) - ((##fx= _g147900_ 4) - (apply (lambda (_stx140607_ - _src140608_ - _ctx140609_ - _marks140610_) + _stx142048_ + _src142049_ + _ctx142050_)) + _g149448_)) + ((##fx= _g149447_ 4) + (apply (lambda (_stx142054_ + _src142055_ + _ctx142056_ + _marks142057_) (gx#core-quote-syntax__% - _stx140607_ - _src140608_ - _ctx140609_ - _marks140610_)) - _g147901_)) + _stx142054_ + _src142055_ + _ctx142056_ + _marks142057_)) + _g149448_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g147901_)))))) + _g149448_)))))) (define gx#core-cons - (lambda (_hd140563_ _tl140564_) - (cons (gx#core-quote-syntax__0 _hd140563_) _tl140564_))) + (lambda (_hd142010_ _tl142011_) + (cons (gx#core-quote-syntax__0 _hd142010_) _tl142011_))) (define gx#core-list - (lambda (_hd140560_ . _rest140561_) - (cons (gx#core-quote-syntax__0 _hd140560_) _rest140561_))) + (lambda (_hd142007_ . _rest142008_) + (cons (gx#core-quote-syntax__0 _hd142007_) _rest142008_))) (define gx#core-cons* - (lambda (_hd140557_ . _rest140558_) - (apply cons* (gx#core-quote-syntax__0 _hd140557_) _rest140558_))) + (lambda (_hd142004_ . _rest142005_) + (apply cons* (gx#core-quote-syntax__0 _hd142004_) _rest142005_))) (define gx#core-resolve-path__% - (lambda (_stx-path140531_ _rel140532_) - (let ((_path140544_ (gx#stx-e _stx-path140531_)) - (_reldir140545_ - (let _lp140534_ ((_relsrc140536_ - (let ((_$e140541_ - (gx#stx-source _stx-path140531_))) - (if _$e140541_ _$e140541_ _rel140532_)))) - (if (##structure-instance-of? _relsrc140536_ 'gerbil#AST::t) - (_lp140534_ - (let ((_$e140538_ (gx#stx-source _relsrc140536_))) - (if _$e140538_ _$e140538_ (gx#stx-e _relsrc140536_)))) - (if (source-location-path? _relsrc140536_) - (path-directory (source-location-path _relsrc140536_)) - (if (string? _relsrc140536_) - (path-directory _relsrc140536_) + (lambda (_stx-path141978_ _rel141979_) + (let ((_path141991_ (gx#stx-e _stx-path141978_)) + (_reldir141992_ + (let _lp141981_ ((_relsrc141983_ + (let ((_$e141988_ + (gx#stx-source _stx-path141978_))) + (if _$e141988_ _$e141988_ _rel141979_)))) + (if (##structure-instance-of? _relsrc141983_ 'gerbil#AST::t) + (_lp141981_ + (let ((_$e141985_ (gx#stx-source _relsrc141983_))) + (if _$e141985_ _$e141985_ (gx#stx-e _relsrc141983_)))) + (if (source-location-path? _relsrc141983_) + (path-directory (source-location-path _relsrc141983_)) + (if (string? _relsrc141983_) + (path-directory _relsrc141983_) (if (not (null? (gx#current-expander-path))) (path-directory (car (gx#current-expander-path))) (current-directory)))))))) - (path-expand _path140544_ (path-normalize _reldir140545_))))) + (path-expand _path141991_ (path-normalize _reldir141992_))))) (define gx#core-resolve-path__0 - (lambda (_stx-path140550_) - (let ((_rel140552_ '#f)) - (gx#core-resolve-path__% _stx-path140550_ _rel140552_)))) + (lambda (_stx-path141997_) + (let ((_rel141999_ '#f)) + (gx#core-resolve-path__% _stx-path141997_ _rel141999_)))) (define gx#core-resolve-path - (lambda _g147903_ - (let ((_g147902_ (##length _g147903_))) - (cond ((##fx= _g147902_ 1) - (apply (lambda (_stx-path140550_) - (gx#core-resolve-path__0 _stx-path140550_)) - _g147903_)) - ((##fx= _g147902_ 2) - (apply (lambda (_stx-path140554_ _rel140555_) + (lambda _g149450_ + (let ((_g149449_ (##length _g149450_))) + (cond ((##fx= _g149449_ 1) + (apply (lambda (_stx-path141997_) + (gx#core-resolve-path__0 _stx-path141997_)) + _g149450_)) + ((##fx= _g149449_ 2) + (apply (lambda (_stx-path142001_ _rel142002_) (gx#core-resolve-path__% - _stx-path140554_ - _rel140555_)) - _g147903_)) + _stx-path142001_ + _rel142002_)) + _g149450_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g147903_)))))) + _g149450_)))))) (define gx#core-deserialize-mark__% - (lambda (_repr140487_ _ctx140488_) - (let* ((_repr140489140496_ _repr140487_) - (_E140491140500_ - (lambda () (error '"No clause matching" _repr140489140496_))) - (_K140492140508_ - (lambda (_subs140503_ _phi140504_) - (let ((_subst140506_ - (if (not (null? _subs140503_)) - (list->table _subs140503_ 'test: eq?) + (lambda (_repr141934_ _ctx141935_) + (let* ((_repr141936141943_ _repr141934_) + (_E141938141947_ + (lambda () (error '"No clause matching" _repr141936141943_))) + (_K141939141955_ + (lambda (_subs141950_ _phi141951_) + (let ((_subst141953_ + (if (not (null? _subs141950_)) + (list->table _subs141950_ 'test: eq?) '#f))) (##structure gx#expander-mark::t - _subst140506_ - _ctx140488_ - _phi140504_ + _subst141953_ + _ctx141935_ + _phi141951_ '#f))))) - (if (##pair? _repr140489140496_) - (let ((_hd140493140511_ (##car _repr140489140496_)) - (_tl140494140513_ (##cdr _repr140489140496_))) - (let* ((_phi140516_ _hd140493140511_) - (_subs140518_ _tl140494140513_)) - (_K140492140508_ _subs140518_ _phi140516_))) - (_E140491140500_))))) + (if (##pair? _repr141936141943_) + (let ((_hd141940141958_ (##car _repr141936141943_)) + (_tl141941141960_ (##cdr _repr141936141943_))) + (let* ((_phi141963_ _hd141940141958_) + (_subs141965_ _tl141941141960_)) + (_K141939141955_ _subs141965_ _phi141963_))) + (_E141938141947_))))) (define gx#core-deserialize-mark__0 - (lambda (_repr140523_) - (let ((_ctx140525_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _repr140523_ _ctx140525_)))) + (lambda (_repr141970_) + (let ((_ctx141972_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _repr141970_ _ctx141972_)))) (define gx#core-deserialize-mark - (lambda _g147905_ - (let ((_g147904_ (##length _g147905_))) - (cond ((##fx= _g147904_ 1) - (apply (lambda (_repr140523_) - (gx#core-deserialize-mark__0 _repr140523_)) - _g147905_)) - ((##fx= _g147904_ 2) - (apply (lambda (_repr140527_ _ctx140528_) + (lambda _g149452_ + (let ((_g149451_ (##length _g149452_))) + (cond ((##fx= _g149451_ 1) + (apply (lambda (_repr141970_) + (gx#core-deserialize-mark__0 _repr141970_)) + _g149452_)) + ((##fx= _g149451_ 2) + (apply (lambda (_repr141974_ _ctx141975_) (gx#core-deserialize-mark__% - _repr140527_ - _ctx140528_)) - _g147905_)) + _repr141974_ + _ctx141975_)) + _g149452_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g147905_)))))) + _g149452_)))))) (define gx#syntax-local-rewrap - (lambda (_stx140484_) - (gx#stx-rewrap _stx140484_ (gx#current-expander-marks)))) + (lambda (_stx141931_) + (gx#stx-rewrap _stx141931_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_stx140482_) - (gx#stx-unwrap__% _stx140482_ (gx#current-expander-marks)))) + (lambda (_stx141929_) + (gx#stx-unwrap__% _stx141929_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_stx140452_) - (let* ((_g140453140461_ (gx#current-expander-marks)) - (_else140455140469_ (lambda () _stx140452_)) - (_K140457140474_ - (lambda (_hd140472_) - (gx#stx-apply-mark _stx140452_ _hd140472_)))) - (if (##pair? _g140453140461_) - (let* ((_hd140458140477_ (##car _g140453140461_)) - (_hd140480_ _hd140458140477_)) - (_K140457140474_ _hd140480_)) - (_else140455140469_))))) + (lambda (_stx141899_) + (let* ((_g141900141908_ (gx#current-expander-marks)) + (_else141902141916_ (lambda () _stx141899_)) + (_K141904141921_ + (lambda (_hd141919_) + (gx#stx-apply-mark _stx141899_ _hd141919_)))) + (if (##pair? _g141900141908_) + (let* ((_hd141905141924_ (##car _g141900141908_)) + (_hd141927_ _hd141905141924_)) + (_K141904141921_ _hd141927_)) + (_else141902141916_))))) (define gx#syntax-local-e__% - (lambda (_stx140437_ _E140438_) - (let ((_bind140440_ (gx#resolve-identifier__0 _stx140437_))) + (lambda (_stx141884_ _E141885_) + (let ((_bind141887_ (gx#resolve-identifier__0 _stx141884_))) (if (##structure-direct-instance-of? - _bind140440_ + _bind141887_ 'gx#syntax-binding::t) (##unchecked-structure-ref - _bind140440_ + _bind141887_ '4 gx#syntax-binding::t '#f) - (_E140438_ _stx140437_))))) + (_E141885_ _stx141884_))))) (define gx#syntax-local-e__0 - (lambda (_stx140445_) - (let ((_E140447_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _stx140445_ _E140447_)))) + (lambda (_stx141892_) + (let ((_E141894_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _stx141892_ _E141894_)))) (define gx#syntax-local-e - (lambda _g147907_ - (let ((_g147906_ (##length _g147907_))) - (cond ((##fx= _g147906_ 1) - (apply (lambda (_stx140445_) - (gx#syntax-local-e__0 _stx140445_)) - _g147907_)) - ((##fx= _g147906_ 2) - (apply (lambda (_stx140449_ _E140450_) - (gx#syntax-local-e__% _stx140449_ _E140450_)) - _g147907_)) + (lambda _g149454_ + (let ((_g149453_ (##length _g149454_))) + (cond ((##fx= _g149453_ 1) + (apply (lambda (_stx141892_) + (gx#syntax-local-e__0 _stx141892_)) + _g149454_)) + ((##fx= _g149453_ 2) + (apply (lambda (_stx141896_ _E141897_) + (gx#syntax-local-e__% _stx141896_ _E141897_)) + _g149454_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g147907_)))))) + _g149454_)))))) (define gx#syntax-local-value__% - (lambda (_stx140421_ _E140422_) - (let ((_e140424_ (gx#syntax-local-e__% _stx140421_ _E140422_))) - (if (##structure-instance-of? _e140424_ 'gx#expander::t) - (##structure-ref _e140424_ '1 gx#expander::t '#f) - _e140424_)))) + (lambda (_stx141868_ _E141869_) + (let ((_e141871_ (gx#syntax-local-e__% _stx141868_ _E141869_))) + (if (##structure-instance-of? _e141871_ 'gx#expander::t) + (##structure-ref _e141871_ '1 gx#expander::t '#f) + _e141871_)))) (define gx#syntax-local-value__0 - (lambda (_stx140429_) - (let ((_E140431_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _stx140429_ _E140431_)))) + (lambda (_stx141876_) + (let ((_E141878_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _stx141876_ _E141878_)))) (define gx#syntax-local-value - (lambda _g147909_ - (let ((_g147908_ (##length _g147909_))) - (cond ((##fx= _g147908_ 1) - (apply (lambda (_stx140429_) - (gx#syntax-local-value__0 _stx140429_)) - _g147909_)) - ((##fx= _g147908_ 2) - (apply (lambda (_stx140433_ _E140434_) - (gx#syntax-local-value__% _stx140433_ _E140434_)) - _g147909_)) + (lambda _g149456_ + (let ((_g149455_ (##length _g149456_))) + (cond ((##fx= _g149455_ 1) + (apply (lambda (_stx141876_) + (gx#syntax-local-value__0 _stx141876_)) + _g149456_)) + ((##fx= _g149455_ 2) + (apply (lambda (_stx141880_ _E141881_) + (gx#syntax-local-value__% _stx141880_ _E141881_)) + _g149456_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g147909_)))))) + _g149456_)))))) (define gx#raise-syntax-ref-error - (lambda (_stx140418_) + (lambda (_stx141865_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _stx140418_))))) + _stx141865_))))) diff --git a/src/bootstrap/gerbil/expander/core__1.scm b/src/bootstrap/gerbil/expander/core__1.scm index f230ce9ca..02ed053d2 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]#_g147911_| + (define |gx[1]#_g149458_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g147913_| + (define |gx[1]#_g149460_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g147915_| + (define |gx[1]#_g149462_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g147920_| + (define |gx[1]#_g149467_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g147923_| + (define |gx[1]#_g149470_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g147928_| + (define |gx[1]#_g149475_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g147931_| + (define |gx[1]#_g149478_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g147936_| + (define |gx[1]#_g149483_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g147939_| + (define |gx[1]#_g149486_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g147944_| + (define |gx[1]#_g149491_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g147947_| + (define |gx[1]#_g149494_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g147950_| + (define |gx[1]#_g149497_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g147952_| + (define |gx[1]#_g149499_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g147954_| + (define |gx[1]#_g149501_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g147956_| + (define |gx[1]#_g149503_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g147961_| + (define |gx[1]#_g149508_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g147964_| + (define |gx[1]#_g149511_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g147969_| + (define |gx[1]#_g149516_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g147972_| + (define |gx[1]#_g149519_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g147977_| + (define |gx[1]#_g149524_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g147980_| + (define |gx[1]#_g149527_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g147985_| + (define |gx[1]#_g149532_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g147988_| + (define |gx[1]#_g149535_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g147992_| + (define |gx[1]#_g149539_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g147994_| + (define |gx[1]#_g149541_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g147996_| + (define |gx[1]#_g149543_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g148004_| + (define |gx[1]#_g149551_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g148007_| + (define |gx[1]#_g149554_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148010_| + (define |gx[1]#_g149557_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g148013_| + (define |gx[1]#_g149560_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g148016_| + (define |gx[1]#_g149563_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g148024_| + (define |gx[1]#_g149571_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148027_| + (define |gx[1]#_g149574_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148030_| + (define |gx[1]#_g149577_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148033_| + (define |gx[1]#_g149580_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148036_| + (define |gx[1]#_g149583_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148044_| + (define |gx[1]#_g149591_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g148047_| + (define |gx[1]#_g149594_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148050_| + (define |gx[1]#_g149597_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g148053_| + (define |gx[1]#_g149600_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g148056_| + (define |gx[1]#_g149603_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g148064_| + (define |gx[1]#_g149611_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148067_| + (define |gx[1]#_g149614_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148070_| + (define |gx[1]#_g149617_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148073_| + (define |gx[1]#_g149620_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148076_| + (define |gx[1]#_g149623_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148079_| + (define |gx[1]#_g149626_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g148081_| + (define |gx[1]#_g149628_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g148083_| + (define |gx[1]#_g149630_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g148085_| + (define |gx[1]#_g149632_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g148093_| + (define |gx[1]#_g149640_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g148096_| + (define |gx[1]#_g149643_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148099_| + (define |gx[1]#_g149646_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g148102_| + (define |gx[1]#_g149649_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g148105_| + (define |gx[1]#_g149652_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g148113_| + (define |gx[1]#_g149660_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148116_| + (define |gx[1]#_g149663_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148119_| + (define |gx[1]#_g149666_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148122_| + (define |gx[1]#_g149669_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148125_| + (define |gx[1]#_g149672_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148133_| + (define |gx[1]#_g149680_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g148136_| + (define |gx[1]#_g149683_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148139_| + (define |gx[1]#_g149686_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g148142_| + (define |gx[1]#_g149689_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g148145_| + (define |gx[1]#_g149692_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g148153_| + (define |gx[1]#_g149700_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148156_| + (define |gx[1]#_g149703_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148159_| + (define |gx[1]#_g149706_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148162_| + (define |gx[1]#_g149709_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148165_| + (define |gx[1]#_g149712_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148168_| + (define |gx[1]#_g149715_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g148170_| + (define |gx[1]#_g149717_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g148172_| + (define |gx[1]#_g149719_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g148174_| + (define |gx[1]#_g149721_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g148188_| + (define |gx[1]#_g149735_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g148191_| + (define |gx[1]#_g149738_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148194_| + (define |gx[1]#_g149741_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g148197_| + (define |gx[1]#_g149744_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g148200_| + (define |gx[1]#_g149747_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g148203_| + (define |gx[1]#_g149750_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g148206_| + (define |gx[1]#_g149753_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g148209_| + (define |gx[1]#_g149756_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g148212_| + (define |gx[1]#_g149759_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g148215_| + (define |gx[1]#_g149762_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g148218_| + (define |gx[1]#_g149765_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g148232_| + (define |gx[1]#_g149779_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148235_| + (define |gx[1]#_g149782_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148238_| + (define |gx[1]#_g149785_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148241_| + (define |gx[1]#_g149788_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148244_| + (define |gx[1]#_g149791_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148247_| + (define |gx[1]#_g149794_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148250_| + (define |gx[1]#_g149797_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148253_| + (define |gx[1]#_g149800_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148256_| + (define |gx[1]#_g149803_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148259_| + (define |gx[1]#_g149806_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148262_| + (define |gx[1]#_g149809_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148276_| + (define |gx[1]#_g149823_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g148279_| + (define |gx[1]#_g149826_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148282_| + (define |gx[1]#_g149829_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g148285_| + (define |gx[1]#_g149832_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g148288_| + (define |gx[1]#_g149835_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g148291_| + (define |gx[1]#_g149838_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g148294_| + (define |gx[1]#_g149841_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g148297_| + (define |gx[1]#_g149844_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g148300_| + (define |gx[1]#_g149847_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g148303_| + (define |gx[1]#_g149850_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g148306_| + (define |gx[1]#_g149853_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g148320_| + (define |gx[1]#_g149867_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148323_| + (define |gx[1]#_g149870_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148326_| + (define |gx[1]#_g149873_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148329_| + (define |gx[1]#_g149876_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148332_| + (define |gx[1]#_g149879_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148335_| + (define |gx[1]#_g149882_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148338_| + (define |gx[1]#_g149885_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148341_| + (define |gx[1]#_g149888_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148344_| + (define |gx[1]#_g149891_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148347_| + (define |gx[1]#_g149894_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148350_| + (define |gx[1]#_g149897_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148354_| + (define |gx[1]#_g149901_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g148356_| + (define |gx[1]#_g149903_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g148358_| + (define |gx[1]#_g149905_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g148369_| + (define |gx[1]#_g149916_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g148372_| + (define |gx[1]#_g149919_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148375_| + (define |gx[1]#_g149922_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g148378_| + (define |gx[1]#_g149925_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g148381_| + (define |gx[1]#_g149928_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g148384_| + (define |gx[1]#_g149931_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g148387_| + (define |gx[1]#_g149934_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g148390_| + (define |gx[1]#_g149937_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g148401_| + (define |gx[1]#_g149948_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148404_| + (define |gx[1]#_g149951_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148407_| + (define |gx[1]#_g149954_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148410_| + (define |gx[1]#_g149957_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148413_| + (define |gx[1]#_g149960_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148416_| + (define |gx[1]#_g149963_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148419_| + (define |gx[1]#_g149966_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148422_| + (define |gx[1]#_g149969_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148433_| + (define |gx[1]#_g149980_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g148436_| + (define |gx[1]#_g149983_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148439_| + (define |gx[1]#_g149986_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g148442_| + (define |gx[1]#_g149989_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g148445_| + (define |gx[1]#_g149992_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g148448_| + (define |gx[1]#_g149995_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g148451_| + (define |gx[1]#_g149998_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g148454_| + (define |gx[1]#_g150001_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g148465_| + (define |gx[1]#_g150012_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148468_| + (define |gx[1]#_g150015_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148471_| + (define |gx[1]#_g150018_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148474_| + (define |gx[1]#_g150021_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148477_| + (define |gx[1]#_g150024_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148480_| + (define |gx[1]#_g150027_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148483_| + (define |gx[1]#_g150030_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148486_| + (define |gx[1]#_g150033_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148490_| + (define |gx[1]#_g150037_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g148492_| + (define |gx[1]#_g150039_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g148494_| + (define |gx[1]#_g150041_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g148502_| + (define |gx[1]#_g150049_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g148505_| + (define |gx[1]#_g150052_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148508_| + (define |gx[1]#_g150055_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g148511_| + (define |gx[1]#_g150058_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g148514_| + (define |gx[1]#_g150061_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g148522_| + (define |gx[1]#_g150069_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148525_| + (define |gx[1]#_g150072_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148528_| + (define |gx[1]#_g150075_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148531_| + (define |gx[1]#_g150078_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148534_| + (define |gx[1]#_g150081_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148542_| + (define |gx[1]#_g150089_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g148545_| + (define |gx[1]#_g150092_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148548_| + (define |gx[1]#_g150095_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g148551_| + (define |gx[1]#_g150098_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g148554_| + (define |gx[1]#_g150101_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g148562_| + (define |gx[1]#_g150109_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148565_| + (define |gx[1]#_g150112_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148568_| + (define |gx[1]#_g150115_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148571_| + (define |gx[1]#_g150118_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148574_| + (define |gx[1]#_g150121_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148576_| + (define |gx[1]#_g150123_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g148578_| + (define |gx[1]#_g150125_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g148580_| + (define |gx[1]#_g150127_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g148586_| + (define |gx[1]#_g150133_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148589_| + (define |gx[1]#_g150136_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148592_| + (define |gx[1]#_g150139_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148598_| + (define |gx[1]#_g150145_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148601_| + (define |gx[1]#_g150148_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148604_| + (define |gx[1]#_g150151_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148610_| + (define |gx[1]#_g150157_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148613_| + (define |gx[1]#_g150160_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148616_| + (define |gx[1]#_g150163_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148622_| + (define |gx[1]#_g150169_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148625_| + (define |gx[1]#_g150172_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148628_| + (define |gx[1]#_g150175_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148631_| + (define |gx[1]#_g150178_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g148633_| + (define |gx[1]#_g150180_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g148635_| + (define |gx[1]#_g150182_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g148637_| + (define |gx[1]#_g150184_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g148643_| + (define |gx[1]#_g150190_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148646_| + (define |gx[1]#_g150193_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148649_| + (define |gx[1]#_g150196_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148655_| + (define |gx[1]#_g150202_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148658_| + (define |gx[1]#_g150205_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148661_| + (define |gx[1]#_g150208_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148667_| + (define |gx[1]#_g150214_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148670_| + (define |gx[1]#_g150217_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148673_| + (define |gx[1]#_g150220_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148679_| + (define |gx[1]#_g150226_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148682_| + (define |gx[1]#_g150229_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148685_| + (define |gx[1]#_g150232_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148688_| + (define |gx[1]#_g150235_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g148690_| + (define |gx[1]#_g150237_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g148692_| + (define |gx[1]#_g150239_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g148694_| + (define |gx[1]#_g150241_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g148700_| + (define |gx[1]#_g150247_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148703_| + (define |gx[1]#_g150250_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148706_| + (define |gx[1]#_g150253_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148712_| + (define |gx[1]#_g150259_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148715_| + (define |gx[1]#_g150262_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148718_| + (define |gx[1]#_g150265_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148724_| + (define |gx[1]#_g150271_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148727_| + (define |gx[1]#_g150274_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148730_| + (define |gx[1]#_g150277_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148736_| + (define |gx[1]#_g150283_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148739_| + (define |gx[1]#_g150286_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148742_| + (define |gx[1]#_g150289_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148746_| + (define |gx[1]#_g150293_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g148748_| + (define |gx[1]#_g150295_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g148750_| + (define |gx[1]#_g150297_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g148756_| + (define |gx[1]#_g150303_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148759_| + (define |gx[1]#_g150306_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148762_| + (define |gx[1]#_g150309_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148768_| + (define |gx[1]#_g150315_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148771_| + (define |gx[1]#_g150318_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148774_| + (define |gx[1]#_g150321_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148780_| + (define |gx[1]#_g150327_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148783_| + (define |gx[1]#_g150330_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148786_| + (define |gx[1]#_g150333_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148792_| + (define |gx[1]#_g150339_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148795_| + (define |gx[1]#_g150342_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148798_| + (define |gx[1]#_g150345_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148801_| + (define |gx[1]#_g150348_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g148803_| + (define |gx[1]#_g150350_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g148805_| + (define |gx[1]#_g150352_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g148807_| + (define |gx[1]#_g150354_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g148814_| + (define |gx[1]#_g150361_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148817_| + (define |gx[1]#_g150364_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148820_| + (define |gx[1]#_g150367_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148823_| + (define |gx[1]#_g150370_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g148830_| + (define |gx[1]#_g150377_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148833_| + (define |gx[1]#_g150380_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148836_| + (define |gx[1]#_g150383_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148839_| + (define |gx[1]#_g150386_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148846_| + (define |gx[1]#_g150393_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148849_| + (define |gx[1]#_g150396_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148852_| + (define |gx[1]#_g150399_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148855_| + (define |gx[1]#_g150402_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g148862_| + (define |gx[1]#_g150409_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148865_| + (define |gx[1]#_g150412_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148868_| + (define |gx[1]#_g150415_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148871_| + (define |gx[1]#_g150418_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148875_| + (define |gx[1]#_g150422_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g148877_| + (define |gx[1]#_g150424_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g148879_| + (define |gx[1]#_g150426_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g148885_| + (define |gx[1]#_g150432_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148888_| + (define |gx[1]#_g150435_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148891_| + (define |gx[1]#_g150438_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148897_| + (define |gx[1]#_g150444_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148900_| + (define |gx[1]#_g150447_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148903_| + (define |gx[1]#_g150450_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148909_| + (define |gx[1]#_g150456_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148912_| + (define |gx[1]#_g150459_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148915_| + (define |gx[1]#_g150462_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148921_| + (define |gx[1]#_g150468_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148924_| + (define |gx[1]#_g150471_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148927_| + (define |gx[1]#_g150474_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148931_| + (define |gx[1]#_g150478_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g148933_| + (define |gx[1]#_g150480_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g148935_| + (define |gx[1]#_g150482_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g148942_| + (define |gx[1]#_g150489_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148945_| + (define |gx[1]#_g150492_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148948_| + (define |gx[1]#_g150495_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148951_| + (define |gx[1]#_g150498_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g148958_| + (define |gx[1]#_g150505_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148961_| + (define |gx[1]#_g150508_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148964_| + (define |gx[1]#_g150511_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148967_| + (define |gx[1]#_g150514_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148974_| + (define |gx[1]#_g150521_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g148977_| + (define |gx[1]#_g150524_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g148980_| + (define |gx[1]#_g150527_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g148983_| + (define |gx[1]#_g150530_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g148990_| + (define |gx[1]#_g150537_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148993_| + (define |gx[1]#_g150540_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148996_| + (define |gx[1]#_g150543_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g148999_| + (define |gx[1]#_g150546_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149003_| + (define |gx[1]#_g150550_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149005_| + (define |gx[1]#_g150552_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g149007_| + (define |gx[1]#_g150554_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149016_| + (define |gx[1]#_g150563_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g149019_| + (define |gx[1]#_g150566_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g149022_| + (define |gx[1]#_g150569_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149025_| + (define |gx[1]#_g150572_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149028_| + (define |gx[1]#_g150575_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149031_| + (define |gx[1]#_g150578_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149040_| + (define |gx[1]#_g150587_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149043_| + (define |gx[1]#_g150590_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149046_| + (define |gx[1]#_g150593_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149049_| + (define |gx[1]#_g150596_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149052_| + (define |gx[1]#_g150599_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149055_| + (define |gx[1]#_g150602_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149064_| + (define |gx[1]#_g150611_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g149067_| + (define |gx[1]#_g150614_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g149070_| + (define |gx[1]#_g150617_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149073_| + (define |gx[1]#_g150620_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149076_| + (define |gx[1]#_g150623_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149079_| + (define |gx[1]#_g150626_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149088_| + (define |gx[1]#_g150635_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149091_| + (define |gx[1]#_g150638_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149094_| + (define |gx[1]#_g150641_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149097_| + (define |gx[1]#_g150644_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149100_| + (define |gx[1]#_g150647_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149103_| + (define |gx[1]#_g150650_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149107_| + (define |gx[1]#_g150654_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149109_| + (define |gx[1]#_g150656_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g149111_| + (define |gx[1]#_g150658_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149118_| + (define |gx[1]#_g150665_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g149121_| + (define |gx[1]#_g150668_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g149124_| + (define |gx[1]#_g150671_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149127_| + (define |gx[1]#_g150674_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149134_| + (define |gx[1]#_g150681_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149137_| + (define |gx[1]#_g150684_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149140_| + (define |gx[1]#_g150687_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149143_| + (define |gx[1]#_g150690_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149150_| + (define |gx[1]#_g150697_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g149153_| + (define |gx[1]#_g150700_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g149156_| + (define |gx[1]#_g150703_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149159_| + (define |gx[1]#_g150706_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149166_| + (define |gx[1]#_g150713_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149169_| + (define |gx[1]#_g150716_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149172_| + (define |gx[1]#_g150719_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149175_| + (define |gx[1]#_g150722_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149177_| + (define |gx[1]#_g150724_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149179_| + (define |gx[1]#_g150726_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g149181_| + (define |gx[1]#_g150728_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149185_| + (define |gx[1]#_g150732_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149189_| + (define |gx[1]#_g150736_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149193_| + (define |gx[1]#_g150740_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149197_| + (define |gx[1]#_g150744_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149200_| + (define |gx[1]#_g150747_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g149202_| + (define |gx[1]#_g150749_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149204_| + (define |gx[1]#_g150751_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g149206_| + (define |gx[1]#_g150753_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149212_| + (define |gx[1]#_g150759_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149215_| + (define |gx[1]#_g150762_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g149218_| + (define |gx[1]#_g150765_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149224_| + (define |gx[1]#_g150771_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149227_| + (define |gx[1]#_g150774_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149230_| + (define |gx[1]#_g150777_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149236_| + (define |gx[1]#_g150783_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149239_| + (define |gx[1]#_g150786_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g149242_| + (define |gx[1]#_g150789_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149248_| + (define |gx[1]#_g150795_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149251_| + (define |gx[1]#_g150798_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149254_| + (define |gx[1]#_g150801_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149257_| + (define |gx[1]#_g150804_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g149259_| + (define |gx[1]#_g150806_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149261_| + (define |gx[1]#_g150808_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g149263_| + (define |gx[1]#_g150810_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149269_| + (define |gx[1]#_g150816_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149272_| + (define |gx[1]#_g150819_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g149275_| + (define |gx[1]#_g150822_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149281_| + (define |gx[1]#_g150828_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149284_| + (define |gx[1]#_g150831_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149287_| + (define |gx[1]#_g150834_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149293_| + (define |gx[1]#_g150840_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149296_| + (define |gx[1]#_g150843_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g149299_| + (define |gx[1]#_g150846_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149305_| + (define |gx[1]#_g150852_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149308_| + (define |gx[1]#_g150855_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149311_| + (define |gx[1]#_g150858_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149315_| + (define |gx[1]#_g150862_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149317_| + (define |gx[1]#_g150864_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g149319_| + (define |gx[1]#_g150866_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149325_| + (define |gx[1]#_g150872_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149328_| + (define |gx[1]#_g150875_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g149331_| + (define |gx[1]#_g150878_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149337_| + (define |gx[1]#_g150884_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149340_| + (define |gx[1]#_g150887_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149343_| + (define |gx[1]#_g150890_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149349_| + (define |gx[1]#_g150896_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149352_| + (define |gx[1]#_g150899_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g149355_| + (define |gx[1]#_g150902_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149361_| + (define |gx[1]#_g150908_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149364_| + (define |gx[1]#_g150911_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149367_| + (define |gx[1]#_g150914_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149370_| + (define |gx[1]#_g150917_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g149372_| + (define |gx[1]#_g150919_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149374_| + (define |gx[1]#_g150921_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g149376_| + (define |gx[1]#_g150923_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149382_| + (define |gx[1]#_g150929_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149385_| + (define |gx[1]#_g150932_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g149388_| + (define |gx[1]#_g150935_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149394_| + (define |gx[1]#_g150941_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149397_| + (define |gx[1]#_g150944_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149400_| + (define |gx[1]#_g150947_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149406_| + (define |gx[1]#_g150953_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149409_| + (define |gx[1]#_g150956_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g149412_| + (define |gx[1]#_g150959_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149418_| + (define |gx[1]#_g150965_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149421_| + (define |gx[1]#_g150968_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149424_| + (define |gx[1]#_g150971_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149428_| + (define |gx[1]#_g150975_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149430_| + (define |gx[1]#_g150977_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g149432_| + (define |gx[1]#_g150979_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149438_| + (define |gx[1]#_g150985_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149441_| + (define |gx[1]#_g150988_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g149444_| + (define |gx[1]#_g150991_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149450_| + (define |gx[1]#_g150997_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149453_| + (define |gx[1]#_g151000_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149456_| + (define |gx[1]#_g151003_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149462_| + (define |gx[1]#_g151009_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149465_| + (define |gx[1]#_g151012_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g149468_| + (define |gx[1]#_g151015_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149474_| + (define |gx[1]#_g151021_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149477_| + (define |gx[1]#_g151024_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149480_| + (define |gx[1]#_g151027_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149483_| + (define |gx[1]#_g151030_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g149485_| + (define |gx[1]#_g151032_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149487_| + (define |gx[1]#_g151034_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g149489_| + (define |gx[1]#_g151036_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149495_| + (define |gx[1]#_g151042_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149498_| + (define |gx[1]#_g151045_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g149501_| + (define |gx[1]#_g151048_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149507_| + (define |gx[1]#_g151054_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149510_| + (define |gx[1]#_g151057_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149513_| + (define |gx[1]#_g151060_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149519_| + (define |gx[1]#_g151066_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149522_| + (define |gx[1]#_g151069_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g149525_| + (define |gx[1]#_g151072_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149531_| + (define |gx[1]#_g151078_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149534_| + (define |gx[1]#_g151081_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149537_| + (define |gx[1]#_g151084_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149541_| + (define |gx[1]#_g151088_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149543_| + (define |gx[1]#_g151090_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g149545_| + (define |gx[1]#_g151092_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149549_| + (define |gx[1]#_g151096_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149553_| + (define |gx[1]#_g151100_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149557_| + (define |gx[1]#_g151104_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149561_| + (define |gx[1]#_g151108_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149564_| + (define |gx[1]#_g151111_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g149566_| + (define |gx[1]#_g151113_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149568_| + (define |gx[1]#_g151115_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g149570_| + (define |gx[1]#_g151117_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149574_| + (define |gx[1]#_g151121_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149578_| + (define |gx[1]#_g151125_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149582_| + (define |gx[1]#_g151129_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149586_| + (define |gx[1]#_g151133_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149590_| + (define |gx[1]#_g151137_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149592_| + (define |gx[1]#_g151139_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g149594_| + (define |gx[1]#_g151141_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149598_| + (define |gx[1]#_g151145_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149602_| + (define |gx[1]#_g151149_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149606_| + (define |gx[1]#_g151153_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149610_| + (define |gx[1]#_g151157_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149614_| + (define |gx[1]#_g151161_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149616_| + (define |gx[1]#_g151163_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g149618_| + (define |gx[1]#_g151165_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149622_| + (define |gx[1]#_g151169_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149626_| + (define |gx[1]#_g151173_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149630_| + (define |gx[1]#_g151177_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149634_| + (define |gx[1]#_g151181_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149637_| + (define |gx[1]#_g151184_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g149639_| + (define |gx[1]#_g151186_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149641_| + (define |gx[1]#_g151188_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g149643_| + (define |gx[1]#_g151190_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149647_| + (define |gx[1]#_g151194_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149651_| + (define |gx[1]#_g151198_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149655_| + (define |gx[1]#_g151202_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149659_| + (define |gx[1]#_g151206_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149663_| + (define |gx[1]#_g151210_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149665_| + (define |gx[1]#_g151212_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g149667_| + (define |gx[1]#_g151214_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149673_| + (define |gx[1]#_g151220_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149676_| + (define |gx[1]#_g151223_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g149679_| + (define |gx[1]#_g151226_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149685_| + (define |gx[1]#_g151232_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149688_| + (define |gx[1]#_g151235_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149691_| + (define |gx[1]#_g151238_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149697_| + (define |gx[1]#_g151244_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149700_| + (define |gx[1]#_g151247_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g149703_| + (define |gx[1]#_g151250_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149709_| + (define |gx[1]#_g151256_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149712_| + (define |gx[1]#_g151259_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149715_| + (define |gx[1]#_g151262_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149717_| + (define |gx[1]#_g151264_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149719_| + (define |gx[1]#_g151266_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g149721_| + (define |gx[1]#_g151268_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149728_| + (define |gx[1]#_g151275_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g149731_| + (define |gx[1]#_g151278_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g149734_| + (define |gx[1]#_g151281_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149737_| + (define |gx[1]#_g151284_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g149744_| + (define |gx[1]#_g151291_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149747_| + (define |gx[1]#_g151294_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149750_| + (define |gx[1]#_g151297_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149753_| + (define |gx[1]#_g151300_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149760_| + (define |gx[1]#_g151307_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g149763_| + (define |gx[1]#_g151310_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g149766_| + (define |gx[1]#_g151313_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149769_| + (define |gx[1]#_g151316_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g149776_| + (define |gx[1]#_g151323_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149779_| + (define |gx[1]#_g151326_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149782_| + (define |gx[1]#_g151329_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149785_| + (define |gx[1]#_g151332_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj147828 + (let ((__obj149375 (let () (declare (not safe)) (##structure @@ -3594,7 +3594,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147828 + __obj149375 'gx#expander-context::t '1 gerbil/core$$#class-type-info::t @@ -3602,7 +3602,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147828 + __obj149375 'expander-context '2 gerbil/core$$#class-type-info::t @@ -3610,7 +3610,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147828 + __obj149375 '(id table) '4 gerbil/core$$#class-type-info::t @@ -3618,7 +3618,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147828 + __obj149375 '() '3 gerbil/core$$#class-type-info::t @@ -3626,7 +3626,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147828 + __obj149375 '#t '5 gerbil/core$$#class-type-info::t @@ -3634,7 +3634,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147828 + __obj149375 '#f '6 gerbil/core$$#class-type-info::t @@ -3642,122 +3642,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147828 + __obj149375 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147910 |gx[1]#_g147911_|)) + (let ((__tmp149457 |gx[1]#_g149458_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147828 - __tmp147910 + __obj149375 + __tmp149457 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147912 |gx[1]#_g147913_|)) + (let ((__tmp149459 |gx[1]#_g149460_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147828 - __tmp147912 + __obj149375 + __tmp149459 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147914 |gx[1]#_g147915_|)) + (let ((__tmp149461 |gx[1]#_g149462_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147828 - __tmp147914 + __obj149375 + __tmp149461 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147916 - (let ((__tmp147921 - (let ((__tmp147922 |gx[1]#_g147923_|)) + (let ((__tmp149463 + (let ((__tmp149468 + (let ((__tmp149469 |gx[1]#_g149470_|)) (declare (not safe)) - (cons 'id __tmp147922))) - (__tmp147917 - (let ((__tmp147918 - (let ((__tmp147919 |gx[1]#_g147920_|)) + (cons 'id __tmp149469))) + (__tmp149464 + (let ((__tmp149465 + (let ((__tmp149466 |gx[1]#_g149467_|)) (declare (not safe)) - (cons 'table __tmp147919)))) + (cons 'table __tmp149466)))) (declare (not safe)) - (cons __tmp147918 '())))) + (cons __tmp149465 '())))) (declare (not safe)) - (cons __tmp147921 __tmp147917)))) + (cons __tmp149468 __tmp149464)))) (declare (not safe)) (##unchecked-structure-set! - __obj147828 - __tmp147916 + __obj149375 + __tmp149463 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147924 - (let ((__tmp147929 - (let ((__tmp147930 |gx[1]#_g147931_|)) + (let ((__tmp149471 + (let ((__tmp149476 + (let ((__tmp149477 |gx[1]#_g149478_|)) (declare (not safe)) - (cons 'id __tmp147930))) - (__tmp147925 - (let ((__tmp147926 - (let ((__tmp147927 |gx[1]#_g147928_|)) + (cons 'id __tmp149477))) + (__tmp149472 + (let ((__tmp149473 + (let ((__tmp149474 |gx[1]#_g149475_|)) (declare (not safe)) - (cons 'table __tmp147927)))) + (cons 'table __tmp149474)))) (declare (not safe)) - (cons __tmp147926 '())))) + (cons __tmp149473 '())))) (declare (not safe)) - (cons __tmp147929 __tmp147925)))) + (cons __tmp149476 __tmp149472)))) (declare (not safe)) (##unchecked-structure-set! - __obj147828 - __tmp147924 + __obj149375 + __tmp149471 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147932 - (let ((__tmp147937 - (let ((__tmp147938 |gx[1]#_g147939_|)) + (let ((__tmp149479 + (let ((__tmp149484 + (let ((__tmp149485 |gx[1]#_g149486_|)) (declare (not safe)) - (cons 'id __tmp147938))) - (__tmp147933 - (let ((__tmp147934 - (let ((__tmp147935 |gx[1]#_g147936_|)) + (cons 'id __tmp149485))) + (__tmp149480 + (let ((__tmp149481 + (let ((__tmp149482 |gx[1]#_g149483_|)) (declare (not safe)) - (cons 'table __tmp147935)))) + (cons 'table __tmp149482)))) (declare (not safe)) - (cons __tmp147934 '())))) + (cons __tmp149481 '())))) (declare (not safe)) - (cons __tmp147937 __tmp147933)))) + (cons __tmp149484 __tmp149480)))) (declare (not safe)) (##unchecked-structure-set! - __obj147828 - __tmp147932 + __obj149375 + __tmp149479 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147940 - (let ((__tmp147945 - (let ((__tmp147946 |gx[1]#_g147947_|)) + (let ((__tmp149487 + (let ((__tmp149492 + (let ((__tmp149493 |gx[1]#_g149494_|)) (declare (not safe)) - (cons 'id __tmp147946))) - (__tmp147941 - (let ((__tmp147942 - (let ((__tmp147943 |gx[1]#_g147944_|)) + (cons 'id __tmp149493))) + (__tmp149488 + (let ((__tmp149489 + (let ((__tmp149490 |gx[1]#_g149491_|)) (declare (not safe)) - (cons 'table __tmp147943)))) + (cons 'table __tmp149490)))) (declare (not safe)) - (cons __tmp147942 '())))) + (cons __tmp149489 '())))) (declare (not safe)) - (cons __tmp147945 __tmp147941)))) + (cons __tmp149492 __tmp149488)))) (declare (not safe)) (##unchecked-structure-set! - __obj147828 - __tmp147940 + __obj149375 + __tmp149487 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147828)) + __obj149375)) (define |gx[:0:]#root-context| - (let ((__obj147829 + (let ((__obj149376 (let () (declare (not safe)) (##structure @@ -3779,7 +3779,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147829 + __obj149376 'gx#root-context::t '1 gerbil/core$$#class-type-info::t @@ -3787,7 +3787,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147829 + __obj149376 'root-context '2 gerbil/core$$#class-type-info::t @@ -3795,26 +3795,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147829 + __obj149376 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147948 - (let ((__tmp147949 |gx[1]#_g147950_|)) + (let ((__tmp149495 + (let ((__tmp149496 |gx[1]#_g149497_|)) (declare (not safe)) - (cons __tmp147949 '())))) + (cons __tmp149496 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147829 - __tmp147948 + __obj149376 + __tmp149495 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147829 + __obj149376 '#t '5 gerbil/core$$#class-type-info::t @@ -3822,7 +3822,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147829 + __obj149376 '#f '6 gerbil/core$$#class-type-info::t @@ -3830,122 +3830,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147829 + __obj149376 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147951 |gx[1]#_g147952_|)) + (let ((__tmp149498 |gx[1]#_g149499_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147829 - __tmp147951 + __obj149376 + __tmp149498 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147953 |gx[1]#_g147954_|)) + (let ((__tmp149500 |gx[1]#_g149501_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147829 - __tmp147953 + __obj149376 + __tmp149500 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147955 |gx[1]#_g147956_|)) + (let ((__tmp149502 |gx[1]#_g149503_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147829 - __tmp147955 + __obj149376 + __tmp149502 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147957 - (let ((__tmp147962 - (let ((__tmp147963 |gx[1]#_g147964_|)) + (let ((__tmp149504 + (let ((__tmp149509 + (let ((__tmp149510 |gx[1]#_g149511_|)) (declare (not safe)) - (cons 'id __tmp147963))) - (__tmp147958 - (let ((__tmp147959 - (let ((__tmp147960 |gx[1]#_g147961_|)) + (cons 'id __tmp149510))) + (__tmp149505 + (let ((__tmp149506 + (let ((__tmp149507 |gx[1]#_g149508_|)) (declare (not safe)) - (cons 'table __tmp147960)))) + (cons 'table __tmp149507)))) (declare (not safe)) - (cons __tmp147959 '())))) + (cons __tmp149506 '())))) (declare (not safe)) - (cons __tmp147962 __tmp147958)))) + (cons __tmp149509 __tmp149505)))) (declare (not safe)) (##unchecked-structure-set! - __obj147829 - __tmp147957 + __obj149376 + __tmp149504 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147965 - (let ((__tmp147970 - (let ((__tmp147971 |gx[1]#_g147972_|)) + (let ((__tmp149512 + (let ((__tmp149517 + (let ((__tmp149518 |gx[1]#_g149519_|)) (declare (not safe)) - (cons 'id __tmp147971))) - (__tmp147966 - (let ((__tmp147967 - (let ((__tmp147968 |gx[1]#_g147969_|)) + (cons 'id __tmp149518))) + (__tmp149513 + (let ((__tmp149514 + (let ((__tmp149515 |gx[1]#_g149516_|)) (declare (not safe)) - (cons 'table __tmp147968)))) + (cons 'table __tmp149515)))) (declare (not safe)) - (cons __tmp147967 '())))) + (cons __tmp149514 '())))) (declare (not safe)) - (cons __tmp147970 __tmp147966)))) + (cons __tmp149517 __tmp149513)))) (declare (not safe)) (##unchecked-structure-set! - __obj147829 - __tmp147965 + __obj149376 + __tmp149512 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147973 - (let ((__tmp147978 - (let ((__tmp147979 |gx[1]#_g147980_|)) + (let ((__tmp149520 + (let ((__tmp149525 + (let ((__tmp149526 |gx[1]#_g149527_|)) (declare (not safe)) - (cons 'id __tmp147979))) - (__tmp147974 - (let ((__tmp147975 - (let ((__tmp147976 |gx[1]#_g147977_|)) + (cons 'id __tmp149526))) + (__tmp149521 + (let ((__tmp149522 + (let ((__tmp149523 |gx[1]#_g149524_|)) (declare (not safe)) - (cons 'table __tmp147976)))) + (cons 'table __tmp149523)))) (declare (not safe)) - (cons __tmp147975 '())))) + (cons __tmp149522 '())))) (declare (not safe)) - (cons __tmp147978 __tmp147974)))) + (cons __tmp149525 __tmp149521)))) (declare (not safe)) (##unchecked-structure-set! - __obj147829 - __tmp147973 + __obj149376 + __tmp149520 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147981 - (let ((__tmp147986 - (let ((__tmp147987 |gx[1]#_g147988_|)) + (let ((__tmp149528 + (let ((__tmp149533 + (let ((__tmp149534 |gx[1]#_g149535_|)) (declare (not safe)) - (cons 'id __tmp147987))) - (__tmp147982 - (let ((__tmp147983 - (let ((__tmp147984 |gx[1]#_g147985_|)) + (cons 'id __tmp149534))) + (__tmp149529 + (let ((__tmp149530 + (let ((__tmp149531 |gx[1]#_g149532_|)) (declare (not safe)) - (cons 'table __tmp147984)))) + (cons 'table __tmp149531)))) (declare (not safe)) - (cons __tmp147983 '())))) + (cons __tmp149530 '())))) (declare (not safe)) - (cons __tmp147986 __tmp147982)))) + (cons __tmp149533 __tmp149529)))) (declare (not safe)) (##unchecked-structure-set! - __obj147829 - __tmp147981 + __obj149376 + __tmp149528 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147829)) + __obj149376)) (define |gx[:0:]#phi-context| - (let ((__obj147830 + (let ((__obj149377 (let () (declare (not safe)) (##structure @@ -3967,7 +3967,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147830 + __obj149377 'gx#context-phi::t '1 gerbil/core$$#class-type-info::t @@ -3975,7 +3975,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147830 + __obj149377 'phi-context '2 gerbil/core$$#class-type-info::t @@ -3983,26 +3983,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147830 + __obj149377 '(super up down) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147989 - (let ((__tmp147990 |gx[1]#_g147950_|)) + (let ((__tmp149536 + (let ((__tmp149537 |gx[1]#_g149497_|)) (declare (not safe)) - (cons __tmp147990 '())))) + (cons __tmp149537 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147830 - __tmp147989 + __obj149377 + __tmp149536 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147830 + __obj149377 '#t '5 gerbil/core$$#class-type-info::t @@ -4010,7 +4010,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147830 + __obj149377 '#f '6 gerbil/core$$#class-type-info::t @@ -4018,218 +4018,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147830 + __obj149377 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147991 |gx[1]#_g147992_|)) + (let ((__tmp149538 |gx[1]#_g149539_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147830 - __tmp147991 + __obj149377 + __tmp149538 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147993 |gx[1]#_g147994_|)) + (let ((__tmp149540 |gx[1]#_g149541_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147830 - __tmp147993 + __obj149377 + __tmp149540 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147995 |gx[1]#_g147996_|)) + (let ((__tmp149542 |gx[1]#_g149543_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147830 - __tmp147995 + __obj149377 + __tmp149542 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp147997 - (let ((__tmp148014 - (let ((__tmp148015 |gx[1]#_g148016_|)) + (let ((__tmp149544 + (let ((__tmp149561 + (let ((__tmp149562 |gx[1]#_g149563_|)) (declare (not safe)) - (cons 'super __tmp148015))) - (__tmp147998 - (let ((__tmp148011 - (let ((__tmp148012 |gx[1]#_g148013_|)) + (cons 'super __tmp149562))) + (__tmp149545 + (let ((__tmp149558 + (let ((__tmp149559 |gx[1]#_g149560_|)) (declare (not safe)) - (cons 'up __tmp148012))) - (__tmp147999 - (let ((__tmp148008 - (let ((__tmp148009 |gx[1]#_g148010_|)) + (cons 'up __tmp149559))) + (__tmp149546 + (let ((__tmp149555 + (let ((__tmp149556 |gx[1]#_g149557_|)) (declare (not safe)) - (cons 'down __tmp148009))) - (__tmp148000 - (let ((__tmp148005 - (let ((__tmp148006 - |gx[1]#_g148007_|)) + (cons 'down __tmp149556))) + (__tmp149547 + (let ((__tmp149552 + (let ((__tmp149553 + |gx[1]#_g149554_|)) (declare (not safe)) - (cons 'id __tmp148006))) - (__tmp148001 - (let ((__tmp148002 - (let ((__tmp148003 - |gx[1]#_g148004_|)) + (cons 'id __tmp149553))) + (__tmp149548 + (let ((__tmp149549 + (let ((__tmp149550 + |gx[1]#_g149551_|)) (declare (not safe)) (cons 'table - __tmp148003)))) + __tmp149550)))) (declare (not safe)) - (cons __tmp148002 '())))) + (cons __tmp149549 '())))) (declare (not safe)) - (cons __tmp148005 __tmp148001)))) + (cons __tmp149552 __tmp149548)))) (declare (not safe)) - (cons __tmp148008 __tmp148000)))) + (cons __tmp149555 __tmp149547)))) (declare (not safe)) - (cons __tmp148011 __tmp147999)))) + (cons __tmp149558 __tmp149546)))) (declare (not safe)) - (cons __tmp148014 __tmp147998)))) + (cons __tmp149561 __tmp149545)))) (declare (not safe)) (##unchecked-structure-set! - __obj147830 - __tmp147997 + __obj149377 + __tmp149544 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148017 - (let ((__tmp148034 - (let ((__tmp148035 |gx[1]#_g148036_|)) + (let ((__tmp149564 + (let ((__tmp149581 + (let ((__tmp149582 |gx[1]#_g149583_|)) (declare (not safe)) - (cons 'super __tmp148035))) - (__tmp148018 - (let ((__tmp148031 - (let ((__tmp148032 |gx[1]#_g148033_|)) + (cons 'super __tmp149582))) + (__tmp149565 + (let ((__tmp149578 + (let ((__tmp149579 |gx[1]#_g149580_|)) (declare (not safe)) - (cons 'up __tmp148032))) - (__tmp148019 - (let ((__tmp148028 - (let ((__tmp148029 |gx[1]#_g148030_|)) + (cons 'up __tmp149579))) + (__tmp149566 + (let ((__tmp149575 + (let ((__tmp149576 |gx[1]#_g149577_|)) (declare (not safe)) - (cons 'down __tmp148029))) - (__tmp148020 - (let ((__tmp148025 - (let ((__tmp148026 - |gx[1]#_g148027_|)) + (cons 'down __tmp149576))) + (__tmp149567 + (let ((__tmp149572 + (let ((__tmp149573 + |gx[1]#_g149574_|)) (declare (not safe)) - (cons 'id __tmp148026))) - (__tmp148021 - (let ((__tmp148022 - (let ((__tmp148023 - |gx[1]#_g148024_|)) + (cons 'id __tmp149573))) + (__tmp149568 + (let ((__tmp149569 + (let ((__tmp149570 + |gx[1]#_g149571_|)) (declare (not safe)) (cons 'table - __tmp148023)))) + __tmp149570)))) (declare (not safe)) - (cons __tmp148022 '())))) + (cons __tmp149569 '())))) (declare (not safe)) - (cons __tmp148025 __tmp148021)))) + (cons __tmp149572 __tmp149568)))) (declare (not safe)) - (cons __tmp148028 __tmp148020)))) + (cons __tmp149575 __tmp149567)))) (declare (not safe)) - (cons __tmp148031 __tmp148019)))) + (cons __tmp149578 __tmp149566)))) (declare (not safe)) - (cons __tmp148034 __tmp148018)))) + (cons __tmp149581 __tmp149565)))) (declare (not safe)) (##unchecked-structure-set! - __obj147830 - __tmp148017 + __obj149377 + __tmp149564 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148037 - (let ((__tmp148054 - (let ((__tmp148055 |gx[1]#_g148056_|)) + (let ((__tmp149584 + (let ((__tmp149601 + (let ((__tmp149602 |gx[1]#_g149603_|)) (declare (not safe)) - (cons 'super __tmp148055))) - (__tmp148038 - (let ((__tmp148051 - (let ((__tmp148052 |gx[1]#_g148053_|)) + (cons 'super __tmp149602))) + (__tmp149585 + (let ((__tmp149598 + (let ((__tmp149599 |gx[1]#_g149600_|)) (declare (not safe)) - (cons 'up __tmp148052))) - (__tmp148039 - (let ((__tmp148048 - (let ((__tmp148049 |gx[1]#_g148050_|)) + (cons 'up __tmp149599))) + (__tmp149586 + (let ((__tmp149595 + (let ((__tmp149596 |gx[1]#_g149597_|)) (declare (not safe)) - (cons 'down __tmp148049))) - (__tmp148040 - (let ((__tmp148045 - (let ((__tmp148046 - |gx[1]#_g148047_|)) + (cons 'down __tmp149596))) + (__tmp149587 + (let ((__tmp149592 + (let ((__tmp149593 + |gx[1]#_g149594_|)) (declare (not safe)) - (cons 'id __tmp148046))) - (__tmp148041 - (let ((__tmp148042 - (let ((__tmp148043 - |gx[1]#_g148044_|)) + (cons 'id __tmp149593))) + (__tmp149588 + (let ((__tmp149589 + (let ((__tmp149590 + |gx[1]#_g149591_|)) (declare (not safe)) (cons 'table - __tmp148043)))) + __tmp149590)))) (declare (not safe)) - (cons __tmp148042 '())))) + (cons __tmp149589 '())))) (declare (not safe)) - (cons __tmp148045 __tmp148041)))) + (cons __tmp149592 __tmp149588)))) (declare (not safe)) - (cons __tmp148048 __tmp148040)))) + (cons __tmp149595 __tmp149587)))) (declare (not safe)) - (cons __tmp148051 __tmp148039)))) + (cons __tmp149598 __tmp149586)))) (declare (not safe)) - (cons __tmp148054 __tmp148038)))) + (cons __tmp149601 __tmp149585)))) (declare (not safe)) (##unchecked-structure-set! - __obj147830 - __tmp148037 + __obj149377 + __tmp149584 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148057 - (let ((__tmp148074 - (let ((__tmp148075 |gx[1]#_g148076_|)) + (let ((__tmp149604 + (let ((__tmp149621 + (let ((__tmp149622 |gx[1]#_g149623_|)) (declare (not safe)) - (cons 'super __tmp148075))) - (__tmp148058 - (let ((__tmp148071 - (let ((__tmp148072 |gx[1]#_g148073_|)) + (cons 'super __tmp149622))) + (__tmp149605 + (let ((__tmp149618 + (let ((__tmp149619 |gx[1]#_g149620_|)) (declare (not safe)) - (cons 'up __tmp148072))) - (__tmp148059 - (let ((__tmp148068 - (let ((__tmp148069 |gx[1]#_g148070_|)) + (cons 'up __tmp149619))) + (__tmp149606 + (let ((__tmp149615 + (let ((__tmp149616 |gx[1]#_g149617_|)) (declare (not safe)) - (cons 'down __tmp148069))) - (__tmp148060 - (let ((__tmp148065 - (let ((__tmp148066 - |gx[1]#_g148067_|)) + (cons 'down __tmp149616))) + (__tmp149607 + (let ((__tmp149612 + (let ((__tmp149613 + |gx[1]#_g149614_|)) (declare (not safe)) - (cons 'id __tmp148066))) - (__tmp148061 - (let ((__tmp148062 - (let ((__tmp148063 - |gx[1]#_g148064_|)) + (cons 'id __tmp149613))) + (__tmp149608 + (let ((__tmp149609 + (let ((__tmp149610 + |gx[1]#_g149611_|)) (declare (not safe)) (cons 'table - __tmp148063)))) + __tmp149610)))) (declare (not safe)) - (cons __tmp148062 '())))) + (cons __tmp149609 '())))) (declare (not safe)) - (cons __tmp148065 __tmp148061)))) + (cons __tmp149612 __tmp149608)))) (declare (not safe)) - (cons __tmp148068 __tmp148060)))) + (cons __tmp149615 __tmp149607)))) (declare (not safe)) - (cons __tmp148071 __tmp148059)))) + (cons __tmp149618 __tmp149606)))) (declare (not safe)) - (cons __tmp148074 __tmp148058)))) + (cons __tmp149621 __tmp149605)))) (declare (not safe)) (##unchecked-structure-set! - __obj147830 - __tmp148057 + __obj149377 + __tmp149604 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147830)) + __obj149377)) (define |gx[:0:]#top-context| - (let ((__obj147831 + (let ((__obj149378 (let () (declare (not safe)) (##structure @@ -4251,7 +4251,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147831 + __obj149378 'gx#top-context::t '1 gerbil/core$$#class-type-info::t @@ -4259,7 +4259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147831 + __obj149378 'top-context '2 gerbil/core$$#class-type-info::t @@ -4267,26 +4267,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147831 + __obj149378 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148077 - (let ((__tmp148078 |gx[1]#_g148079_|)) + (let ((__tmp149624 + (let ((__tmp149625 |gx[1]#_g149626_|)) (declare (not safe)) - (cons __tmp148078 '())))) + (cons __tmp149625 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147831 - __tmp148077 + __obj149378 + __tmp149624 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147831 + __obj149378 '#t '5 gerbil/core$$#class-type-info::t @@ -4294,7 +4294,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147831 + __obj149378 '#f '6 gerbil/core$$#class-type-info::t @@ -4302,218 +4302,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147831 + __obj149378 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148080 |gx[1]#_g148081_|)) + (let ((__tmp149627 |gx[1]#_g149628_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147831 - __tmp148080 + __obj149378 + __tmp149627 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148082 |gx[1]#_g148083_|)) + (let ((__tmp149629 |gx[1]#_g149630_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147831 - __tmp148082 + __obj149378 + __tmp149629 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148084 |gx[1]#_g148085_|)) + (let ((__tmp149631 |gx[1]#_g149632_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147831 - __tmp148084 + __obj149378 + __tmp149631 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148086 - (let ((__tmp148103 - (let ((__tmp148104 |gx[1]#_g148105_|)) + (let ((__tmp149633 + (let ((__tmp149650 + (let ((__tmp149651 |gx[1]#_g149652_|)) (declare (not safe)) - (cons 'super __tmp148104))) - (__tmp148087 - (let ((__tmp148100 - (let ((__tmp148101 |gx[1]#_g148102_|)) + (cons 'super __tmp149651))) + (__tmp149634 + (let ((__tmp149647 + (let ((__tmp149648 |gx[1]#_g149649_|)) (declare (not safe)) - (cons 'up __tmp148101))) - (__tmp148088 - (let ((__tmp148097 - (let ((__tmp148098 |gx[1]#_g148099_|)) + (cons 'up __tmp149648))) + (__tmp149635 + (let ((__tmp149644 + (let ((__tmp149645 |gx[1]#_g149646_|)) (declare (not safe)) - (cons 'down __tmp148098))) - (__tmp148089 - (let ((__tmp148094 - (let ((__tmp148095 - |gx[1]#_g148096_|)) + (cons 'down __tmp149645))) + (__tmp149636 + (let ((__tmp149641 + (let ((__tmp149642 + |gx[1]#_g149643_|)) (declare (not safe)) - (cons 'id __tmp148095))) - (__tmp148090 - (let ((__tmp148091 - (let ((__tmp148092 - |gx[1]#_g148093_|)) + (cons 'id __tmp149642))) + (__tmp149637 + (let ((__tmp149638 + (let ((__tmp149639 + |gx[1]#_g149640_|)) (declare (not safe)) (cons 'table - __tmp148092)))) + __tmp149639)))) (declare (not safe)) - (cons __tmp148091 '())))) + (cons __tmp149638 '())))) (declare (not safe)) - (cons __tmp148094 __tmp148090)))) + (cons __tmp149641 __tmp149637)))) (declare (not safe)) - (cons __tmp148097 __tmp148089)))) + (cons __tmp149644 __tmp149636)))) (declare (not safe)) - (cons __tmp148100 __tmp148088)))) + (cons __tmp149647 __tmp149635)))) (declare (not safe)) - (cons __tmp148103 __tmp148087)))) + (cons __tmp149650 __tmp149634)))) (declare (not safe)) (##unchecked-structure-set! - __obj147831 - __tmp148086 + __obj149378 + __tmp149633 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148106 - (let ((__tmp148123 - (let ((__tmp148124 |gx[1]#_g148125_|)) + (let ((__tmp149653 + (let ((__tmp149670 + (let ((__tmp149671 |gx[1]#_g149672_|)) (declare (not safe)) - (cons 'super __tmp148124))) - (__tmp148107 - (let ((__tmp148120 - (let ((__tmp148121 |gx[1]#_g148122_|)) + (cons 'super __tmp149671))) + (__tmp149654 + (let ((__tmp149667 + (let ((__tmp149668 |gx[1]#_g149669_|)) (declare (not safe)) - (cons 'up __tmp148121))) - (__tmp148108 - (let ((__tmp148117 - (let ((__tmp148118 |gx[1]#_g148119_|)) + (cons 'up __tmp149668))) + (__tmp149655 + (let ((__tmp149664 + (let ((__tmp149665 |gx[1]#_g149666_|)) (declare (not safe)) - (cons 'down __tmp148118))) - (__tmp148109 - (let ((__tmp148114 - (let ((__tmp148115 - |gx[1]#_g148116_|)) + (cons 'down __tmp149665))) + (__tmp149656 + (let ((__tmp149661 + (let ((__tmp149662 + |gx[1]#_g149663_|)) (declare (not safe)) - (cons 'id __tmp148115))) - (__tmp148110 - (let ((__tmp148111 - (let ((__tmp148112 - |gx[1]#_g148113_|)) + (cons 'id __tmp149662))) + (__tmp149657 + (let ((__tmp149658 + (let ((__tmp149659 + |gx[1]#_g149660_|)) (declare (not safe)) (cons 'table - __tmp148112)))) + __tmp149659)))) (declare (not safe)) - (cons __tmp148111 '())))) + (cons __tmp149658 '())))) (declare (not safe)) - (cons __tmp148114 __tmp148110)))) + (cons __tmp149661 __tmp149657)))) (declare (not safe)) - (cons __tmp148117 __tmp148109)))) + (cons __tmp149664 __tmp149656)))) (declare (not safe)) - (cons __tmp148120 __tmp148108)))) + (cons __tmp149667 __tmp149655)))) (declare (not safe)) - (cons __tmp148123 __tmp148107)))) + (cons __tmp149670 __tmp149654)))) (declare (not safe)) (##unchecked-structure-set! - __obj147831 - __tmp148106 + __obj149378 + __tmp149653 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148126 - (let ((__tmp148143 - (let ((__tmp148144 |gx[1]#_g148145_|)) + (let ((__tmp149673 + (let ((__tmp149690 + (let ((__tmp149691 |gx[1]#_g149692_|)) (declare (not safe)) - (cons 'super __tmp148144))) - (__tmp148127 - (let ((__tmp148140 - (let ((__tmp148141 |gx[1]#_g148142_|)) + (cons 'super __tmp149691))) + (__tmp149674 + (let ((__tmp149687 + (let ((__tmp149688 |gx[1]#_g149689_|)) (declare (not safe)) - (cons 'up __tmp148141))) - (__tmp148128 - (let ((__tmp148137 - (let ((__tmp148138 |gx[1]#_g148139_|)) + (cons 'up __tmp149688))) + (__tmp149675 + (let ((__tmp149684 + (let ((__tmp149685 |gx[1]#_g149686_|)) (declare (not safe)) - (cons 'down __tmp148138))) - (__tmp148129 - (let ((__tmp148134 - (let ((__tmp148135 - |gx[1]#_g148136_|)) + (cons 'down __tmp149685))) + (__tmp149676 + (let ((__tmp149681 + (let ((__tmp149682 + |gx[1]#_g149683_|)) (declare (not safe)) - (cons 'id __tmp148135))) - (__tmp148130 - (let ((__tmp148131 - (let ((__tmp148132 - |gx[1]#_g148133_|)) + (cons 'id __tmp149682))) + (__tmp149677 + (let ((__tmp149678 + (let ((__tmp149679 + |gx[1]#_g149680_|)) (declare (not safe)) (cons 'table - __tmp148132)))) + __tmp149679)))) (declare (not safe)) - (cons __tmp148131 '())))) + (cons __tmp149678 '())))) (declare (not safe)) - (cons __tmp148134 __tmp148130)))) + (cons __tmp149681 __tmp149677)))) (declare (not safe)) - (cons __tmp148137 __tmp148129)))) + (cons __tmp149684 __tmp149676)))) (declare (not safe)) - (cons __tmp148140 __tmp148128)))) + (cons __tmp149687 __tmp149675)))) (declare (not safe)) - (cons __tmp148143 __tmp148127)))) + (cons __tmp149690 __tmp149674)))) (declare (not safe)) (##unchecked-structure-set! - __obj147831 - __tmp148126 + __obj149378 + __tmp149673 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148146 - (let ((__tmp148163 - (let ((__tmp148164 |gx[1]#_g148165_|)) + (let ((__tmp149693 + (let ((__tmp149710 + (let ((__tmp149711 |gx[1]#_g149712_|)) (declare (not safe)) - (cons 'super __tmp148164))) - (__tmp148147 - (let ((__tmp148160 - (let ((__tmp148161 |gx[1]#_g148162_|)) + (cons 'super __tmp149711))) + (__tmp149694 + (let ((__tmp149707 + (let ((__tmp149708 |gx[1]#_g149709_|)) (declare (not safe)) - (cons 'up __tmp148161))) - (__tmp148148 - (let ((__tmp148157 - (let ((__tmp148158 |gx[1]#_g148159_|)) + (cons 'up __tmp149708))) + (__tmp149695 + (let ((__tmp149704 + (let ((__tmp149705 |gx[1]#_g149706_|)) (declare (not safe)) - (cons 'down __tmp148158))) - (__tmp148149 - (let ((__tmp148154 - (let ((__tmp148155 - |gx[1]#_g148156_|)) + (cons 'down __tmp149705))) + (__tmp149696 + (let ((__tmp149701 + (let ((__tmp149702 + |gx[1]#_g149703_|)) (declare (not safe)) - (cons 'id __tmp148155))) - (__tmp148150 - (let ((__tmp148151 - (let ((__tmp148152 - |gx[1]#_g148153_|)) + (cons 'id __tmp149702))) + (__tmp149697 + (let ((__tmp149698 + (let ((__tmp149699 + |gx[1]#_g149700_|)) (declare (not safe)) (cons 'table - __tmp148152)))) + __tmp149699)))) (declare (not safe)) - (cons __tmp148151 '())))) + (cons __tmp149698 '())))) (declare (not safe)) - (cons __tmp148154 __tmp148150)))) + (cons __tmp149701 __tmp149697)))) (declare (not safe)) - (cons __tmp148157 __tmp148149)))) + (cons __tmp149704 __tmp149696)))) (declare (not safe)) - (cons __tmp148160 __tmp148148)))) + (cons __tmp149707 __tmp149695)))) (declare (not safe)) - (cons __tmp148163 __tmp148147)))) + (cons __tmp149710 __tmp149694)))) (declare (not safe)) (##unchecked-structure-set! - __obj147831 - __tmp148146 + __obj149378 + __tmp149693 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147831)) + __obj149378)) (define |gx[:0:]#module-context| - (let ((__obj147832 + (let ((__obj149379 (let () (declare (not safe)) (##structure @@ -4535,7 +4535,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147832 + __obj149379 'gx#module-context::t '1 gerbil/core$$#class-type-info::t @@ -4543,7 +4543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147832 + __obj149379 'module-context '2 gerbil/core$$#class-type-info::t @@ -4551,26 +4551,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147832 + __obj149379 '(ns path import export e code) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148166 - (let ((__tmp148167 |gx[1]#_g148168_|)) + (let ((__tmp149713 + (let ((__tmp149714 |gx[1]#_g149715_|)) (declare (not safe)) - (cons __tmp148167 '())))) + (cons __tmp149714 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147832 - __tmp148166 + __obj149379 + __tmp149713 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147832 + __obj149379 '#t '5 gerbil/core$$#class-type-info::t @@ -4578,7 +4578,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147832 + __obj149379 '#f '6 gerbil/core$$#class-type-info::t @@ -4586,414 +4586,414 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147832 + __obj149379 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148169 |gx[1]#_g148170_|)) + (let ((__tmp149716 |gx[1]#_g149717_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147832 - __tmp148169 + __obj149379 + __tmp149716 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148171 |gx[1]#_g148172_|)) + (let ((__tmp149718 |gx[1]#_g149719_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147832 - __tmp148171 + __obj149379 + __tmp149718 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148173 |gx[1]#_g148174_|)) + (let ((__tmp149720 |gx[1]#_g149721_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147832 - __tmp148173 + __obj149379 + __tmp149720 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148175 - (let ((__tmp148216 - (let ((__tmp148217 |gx[1]#_g148218_|)) + (let ((__tmp149722 + (let ((__tmp149763 + (let ((__tmp149764 |gx[1]#_g149765_|)) (declare (not safe)) - (cons 'ns __tmp148217))) - (__tmp148176 - (let ((__tmp148213 - (let ((__tmp148214 |gx[1]#_g148215_|)) + (cons 'ns __tmp149764))) + (__tmp149723 + (let ((__tmp149760 + (let ((__tmp149761 |gx[1]#_g149762_|)) (declare (not safe)) - (cons 'path __tmp148214))) - (__tmp148177 - (let ((__tmp148210 - (let ((__tmp148211 |gx[1]#_g148212_|)) + (cons 'path __tmp149761))) + (__tmp149724 + (let ((__tmp149757 + (let ((__tmp149758 |gx[1]#_g149759_|)) (declare (not safe)) - (cons 'import __tmp148211))) - (__tmp148178 - (let ((__tmp148207 - (let ((__tmp148208 - |gx[1]#_g148209_|)) + (cons 'import __tmp149758))) + (__tmp149725 + (let ((__tmp149754 + (let ((__tmp149755 + |gx[1]#_g149756_|)) (declare (not safe)) - (cons 'export __tmp148208))) - (__tmp148179 - (let ((__tmp148204 - (let ((__tmp148205 - |gx[1]#_g148206_|)) + (cons 'export __tmp149755))) + (__tmp149726 + (let ((__tmp149751 + (let ((__tmp149752 + |gx[1]#_g149753_|)) (declare (not safe)) - (cons 'e __tmp148205))) - (__tmp148180 - (let ((__tmp148201 - (let ((__tmp148202 - |gx[1]#_g148203_|)) + (cons 'e __tmp149752))) + (__tmp149727 + (let ((__tmp149748 + (let ((__tmp149749 + |gx[1]#_g149750_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp148202))) - (__tmp148181 - (let ((__tmp148198 - (let ((__tmp148199 |gx[1]#_g148200_|)) + __tmp149749))) + (__tmp149728 + (let ((__tmp149745 + (let ((__tmp149746 |gx[1]#_g149747_|)) (declare (not safe)) - (cons 'super __tmp148199))) - (__tmp148182 - (let ((__tmp148195 - (let ((__tmp148196 |gx[1]#_g148197_|)) + (cons 'super __tmp149746))) + (__tmp149729 + (let ((__tmp149742 + (let ((__tmp149743 |gx[1]#_g149744_|)) (declare (not safe)) - (cons 'up __tmp148196))) - (__tmp148183 - (let ((__tmp148192 - (let ((__tmp148193 |gx[1]#_g148194_|)) + (cons 'up __tmp149743))) + (__tmp149730 + (let ((__tmp149739 + (let ((__tmp149740 |gx[1]#_g149741_|)) (declare (not safe)) - (cons 'down __tmp148193))) - (__tmp148184 - (let ((__tmp148189 - (let ((__tmp148190 - |gx[1]#_g148191_|)) + (cons 'down __tmp149740))) + (__tmp149731 + (let ((__tmp149736 + (let ((__tmp149737 + |gx[1]#_g149738_|)) (declare (not safe)) - (cons 'id __tmp148190))) - (__tmp148185 - (let ((__tmp148186 - (let ((__tmp148187 - |gx[1]#_g148188_|)) + (cons 'id __tmp149737))) + (__tmp149732 + (let ((__tmp149733 + (let ((__tmp149734 + |gx[1]#_g149735_|)) (declare (not safe)) (cons 'table - __tmp148187)))) + __tmp149734)))) (declare (not safe)) - (cons __tmp148186 '())))) + (cons __tmp149733 '())))) (declare (not safe)) - (cons __tmp148189 __tmp148185)))) + (cons __tmp149736 __tmp149732)))) (declare (not safe)) - (cons __tmp148192 __tmp148184)))) + (cons __tmp149739 __tmp149731)))) (declare (not safe)) - (cons __tmp148195 __tmp148183)))) + (cons __tmp149742 __tmp149730)))) (declare (not safe)) - (cons __tmp148198 __tmp148182)))) + (cons __tmp149745 __tmp149729)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp148201 - __tmp148181)))) + (cons __tmp149748 + __tmp149728)))) (declare (not safe)) - (cons __tmp148204 __tmp148180)))) + (cons __tmp149751 __tmp149727)))) (declare (not safe)) - (cons __tmp148207 __tmp148179)))) + (cons __tmp149754 __tmp149726)))) (declare (not safe)) - (cons __tmp148210 __tmp148178)))) + (cons __tmp149757 __tmp149725)))) (declare (not safe)) - (cons __tmp148213 __tmp148177)))) + (cons __tmp149760 __tmp149724)))) (declare (not safe)) - (cons __tmp148216 __tmp148176)))) + (cons __tmp149763 __tmp149723)))) (declare (not safe)) (##unchecked-structure-set! - __obj147832 - __tmp148175 + __obj149379 + __tmp149722 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148219 - (let ((__tmp148260 - (let ((__tmp148261 |gx[1]#_g148262_|)) + (let ((__tmp149766 + (let ((__tmp149807 + (let ((__tmp149808 |gx[1]#_g149809_|)) (declare (not safe)) - (cons 'ns __tmp148261))) - (__tmp148220 - (let ((__tmp148257 - (let ((__tmp148258 |gx[1]#_g148259_|)) + (cons 'ns __tmp149808))) + (__tmp149767 + (let ((__tmp149804 + (let ((__tmp149805 |gx[1]#_g149806_|)) (declare (not safe)) - (cons 'path __tmp148258))) - (__tmp148221 - (let ((__tmp148254 - (let ((__tmp148255 |gx[1]#_g148256_|)) + (cons 'path __tmp149805))) + (__tmp149768 + (let ((__tmp149801 + (let ((__tmp149802 |gx[1]#_g149803_|)) (declare (not safe)) - (cons 'import __tmp148255))) - (__tmp148222 - (let ((__tmp148251 - (let ((__tmp148252 - |gx[1]#_g148253_|)) + (cons 'import __tmp149802))) + (__tmp149769 + (let ((__tmp149798 + (let ((__tmp149799 + |gx[1]#_g149800_|)) (declare (not safe)) - (cons 'export __tmp148252))) - (__tmp148223 - (let ((__tmp148248 - (let ((__tmp148249 - |gx[1]#_g148250_|)) + (cons 'export __tmp149799))) + (__tmp149770 + (let ((__tmp149795 + (let ((__tmp149796 + |gx[1]#_g149797_|)) (declare (not safe)) - (cons 'e __tmp148249))) - (__tmp148224 - (let ((__tmp148245 - (let ((__tmp148246 - |gx[1]#_g148247_|)) + (cons 'e __tmp149796))) + (__tmp149771 + (let ((__tmp149792 + (let ((__tmp149793 + |gx[1]#_g149794_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp148246))) - (__tmp148225 - (let ((__tmp148242 - (let ((__tmp148243 |gx[1]#_g148244_|)) + __tmp149793))) + (__tmp149772 + (let ((__tmp149789 + (let ((__tmp149790 |gx[1]#_g149791_|)) (declare (not safe)) - (cons 'super __tmp148243))) - (__tmp148226 - (let ((__tmp148239 - (let ((__tmp148240 |gx[1]#_g148241_|)) + (cons 'super __tmp149790))) + (__tmp149773 + (let ((__tmp149786 + (let ((__tmp149787 |gx[1]#_g149788_|)) (declare (not safe)) - (cons 'up __tmp148240))) - (__tmp148227 - (let ((__tmp148236 - (let ((__tmp148237 |gx[1]#_g148238_|)) + (cons 'up __tmp149787))) + (__tmp149774 + (let ((__tmp149783 + (let ((__tmp149784 |gx[1]#_g149785_|)) (declare (not safe)) - (cons 'down __tmp148237))) - (__tmp148228 - (let ((__tmp148233 - (let ((__tmp148234 - |gx[1]#_g148235_|)) + (cons 'down __tmp149784))) + (__tmp149775 + (let ((__tmp149780 + (let ((__tmp149781 + |gx[1]#_g149782_|)) (declare (not safe)) - (cons 'id __tmp148234))) - (__tmp148229 - (let ((__tmp148230 - (let ((__tmp148231 - |gx[1]#_g148232_|)) + (cons 'id __tmp149781))) + (__tmp149776 + (let ((__tmp149777 + (let ((__tmp149778 + |gx[1]#_g149779_|)) (declare (not safe)) (cons 'table - __tmp148231)))) + __tmp149778)))) (declare (not safe)) - (cons __tmp148230 '())))) + (cons __tmp149777 '())))) (declare (not safe)) - (cons __tmp148233 __tmp148229)))) + (cons __tmp149780 __tmp149776)))) (declare (not safe)) - (cons __tmp148236 __tmp148228)))) + (cons __tmp149783 __tmp149775)))) (declare (not safe)) - (cons __tmp148239 __tmp148227)))) + (cons __tmp149786 __tmp149774)))) (declare (not safe)) - (cons __tmp148242 __tmp148226)))) + (cons __tmp149789 __tmp149773)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp148245 - __tmp148225)))) + (cons __tmp149792 + __tmp149772)))) (declare (not safe)) - (cons __tmp148248 __tmp148224)))) + (cons __tmp149795 __tmp149771)))) (declare (not safe)) - (cons __tmp148251 __tmp148223)))) + (cons __tmp149798 __tmp149770)))) (declare (not safe)) - (cons __tmp148254 __tmp148222)))) + (cons __tmp149801 __tmp149769)))) (declare (not safe)) - (cons __tmp148257 __tmp148221)))) + (cons __tmp149804 __tmp149768)))) (declare (not safe)) - (cons __tmp148260 __tmp148220)))) + (cons __tmp149807 __tmp149767)))) (declare (not safe)) (##unchecked-structure-set! - __obj147832 - __tmp148219 + __obj149379 + __tmp149766 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148263 - (let ((__tmp148304 - (let ((__tmp148305 |gx[1]#_g148306_|)) + (let ((__tmp149810 + (let ((__tmp149851 + (let ((__tmp149852 |gx[1]#_g149853_|)) (declare (not safe)) - (cons 'ns __tmp148305))) - (__tmp148264 - (let ((__tmp148301 - (let ((__tmp148302 |gx[1]#_g148303_|)) + (cons 'ns __tmp149852))) + (__tmp149811 + (let ((__tmp149848 + (let ((__tmp149849 |gx[1]#_g149850_|)) (declare (not safe)) - (cons 'path __tmp148302))) - (__tmp148265 - (let ((__tmp148298 - (let ((__tmp148299 |gx[1]#_g148300_|)) + (cons 'path __tmp149849))) + (__tmp149812 + (let ((__tmp149845 + (let ((__tmp149846 |gx[1]#_g149847_|)) (declare (not safe)) - (cons 'import __tmp148299))) - (__tmp148266 - (let ((__tmp148295 - (let ((__tmp148296 - |gx[1]#_g148297_|)) + (cons 'import __tmp149846))) + (__tmp149813 + (let ((__tmp149842 + (let ((__tmp149843 + |gx[1]#_g149844_|)) (declare (not safe)) - (cons 'export __tmp148296))) - (__tmp148267 - (let ((__tmp148292 - (let ((__tmp148293 - |gx[1]#_g148294_|)) + (cons 'export __tmp149843))) + (__tmp149814 + (let ((__tmp149839 + (let ((__tmp149840 + |gx[1]#_g149841_|)) (declare (not safe)) - (cons 'e __tmp148293))) - (__tmp148268 - (let ((__tmp148289 - (let ((__tmp148290 - |gx[1]#_g148291_|)) + (cons 'e __tmp149840))) + (__tmp149815 + (let ((__tmp149836 + (let ((__tmp149837 + |gx[1]#_g149838_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp148290))) - (__tmp148269 - (let ((__tmp148286 - (let ((__tmp148287 |gx[1]#_g148288_|)) + __tmp149837))) + (__tmp149816 + (let ((__tmp149833 + (let ((__tmp149834 |gx[1]#_g149835_|)) (declare (not safe)) - (cons 'super __tmp148287))) - (__tmp148270 - (let ((__tmp148283 - (let ((__tmp148284 |gx[1]#_g148285_|)) + (cons 'super __tmp149834))) + (__tmp149817 + (let ((__tmp149830 + (let ((__tmp149831 |gx[1]#_g149832_|)) (declare (not safe)) - (cons 'up __tmp148284))) - (__tmp148271 - (let ((__tmp148280 - (let ((__tmp148281 |gx[1]#_g148282_|)) + (cons 'up __tmp149831))) + (__tmp149818 + (let ((__tmp149827 + (let ((__tmp149828 |gx[1]#_g149829_|)) (declare (not safe)) - (cons 'down __tmp148281))) - (__tmp148272 - (let ((__tmp148277 - (let ((__tmp148278 - |gx[1]#_g148279_|)) + (cons 'down __tmp149828))) + (__tmp149819 + (let ((__tmp149824 + (let ((__tmp149825 + |gx[1]#_g149826_|)) (declare (not safe)) - (cons 'id __tmp148278))) - (__tmp148273 - (let ((__tmp148274 - (let ((__tmp148275 - |gx[1]#_g148276_|)) + (cons 'id __tmp149825))) + (__tmp149820 + (let ((__tmp149821 + (let ((__tmp149822 + |gx[1]#_g149823_|)) (declare (not safe)) (cons 'table - __tmp148275)))) + __tmp149822)))) (declare (not safe)) - (cons __tmp148274 '())))) + (cons __tmp149821 '())))) (declare (not safe)) - (cons __tmp148277 __tmp148273)))) + (cons __tmp149824 __tmp149820)))) (declare (not safe)) - (cons __tmp148280 __tmp148272)))) + (cons __tmp149827 __tmp149819)))) (declare (not safe)) - (cons __tmp148283 __tmp148271)))) + (cons __tmp149830 __tmp149818)))) (declare (not safe)) - (cons __tmp148286 __tmp148270)))) + (cons __tmp149833 __tmp149817)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp148289 - __tmp148269)))) + (cons __tmp149836 + __tmp149816)))) (declare (not safe)) - (cons __tmp148292 __tmp148268)))) + (cons __tmp149839 __tmp149815)))) (declare (not safe)) - (cons __tmp148295 __tmp148267)))) + (cons __tmp149842 __tmp149814)))) (declare (not safe)) - (cons __tmp148298 __tmp148266)))) + (cons __tmp149845 __tmp149813)))) (declare (not safe)) - (cons __tmp148301 __tmp148265)))) + (cons __tmp149848 __tmp149812)))) (declare (not safe)) - (cons __tmp148304 __tmp148264)))) + (cons __tmp149851 __tmp149811)))) (declare (not safe)) (##unchecked-structure-set! - __obj147832 - __tmp148263 + __obj149379 + __tmp149810 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148307 - (let ((__tmp148348 - (let ((__tmp148349 |gx[1]#_g148350_|)) + (let ((__tmp149854 + (let ((__tmp149895 + (let ((__tmp149896 |gx[1]#_g149897_|)) (declare (not safe)) - (cons 'ns __tmp148349))) - (__tmp148308 - (let ((__tmp148345 - (let ((__tmp148346 |gx[1]#_g148347_|)) + (cons 'ns __tmp149896))) + (__tmp149855 + (let ((__tmp149892 + (let ((__tmp149893 |gx[1]#_g149894_|)) (declare (not safe)) - (cons 'path __tmp148346))) - (__tmp148309 - (let ((__tmp148342 - (let ((__tmp148343 |gx[1]#_g148344_|)) + (cons 'path __tmp149893))) + (__tmp149856 + (let ((__tmp149889 + (let ((__tmp149890 |gx[1]#_g149891_|)) (declare (not safe)) - (cons 'import __tmp148343))) - (__tmp148310 - (let ((__tmp148339 - (let ((__tmp148340 - |gx[1]#_g148341_|)) + (cons 'import __tmp149890))) + (__tmp149857 + (let ((__tmp149886 + (let ((__tmp149887 + |gx[1]#_g149888_|)) (declare (not safe)) - (cons 'export __tmp148340))) - (__tmp148311 - (let ((__tmp148336 - (let ((__tmp148337 - |gx[1]#_g148338_|)) + (cons 'export __tmp149887))) + (__tmp149858 + (let ((__tmp149883 + (let ((__tmp149884 + |gx[1]#_g149885_|)) (declare (not safe)) - (cons 'e __tmp148337))) - (__tmp148312 - (let ((__tmp148333 - (let ((__tmp148334 - |gx[1]#_g148335_|)) + (cons 'e __tmp149884))) + (__tmp149859 + (let ((__tmp149880 + (let ((__tmp149881 + |gx[1]#_g149882_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp148334))) - (__tmp148313 - (let ((__tmp148330 - (let ((__tmp148331 |gx[1]#_g148332_|)) + __tmp149881))) + (__tmp149860 + (let ((__tmp149877 + (let ((__tmp149878 |gx[1]#_g149879_|)) (declare (not safe)) - (cons 'super __tmp148331))) - (__tmp148314 - (let ((__tmp148327 - (let ((__tmp148328 |gx[1]#_g148329_|)) + (cons 'super __tmp149878))) + (__tmp149861 + (let ((__tmp149874 + (let ((__tmp149875 |gx[1]#_g149876_|)) (declare (not safe)) - (cons 'up __tmp148328))) - (__tmp148315 - (let ((__tmp148324 - (let ((__tmp148325 |gx[1]#_g148326_|)) + (cons 'up __tmp149875))) + (__tmp149862 + (let ((__tmp149871 + (let ((__tmp149872 |gx[1]#_g149873_|)) (declare (not safe)) - (cons 'down __tmp148325))) - (__tmp148316 - (let ((__tmp148321 - (let ((__tmp148322 - |gx[1]#_g148323_|)) + (cons 'down __tmp149872))) + (__tmp149863 + (let ((__tmp149868 + (let ((__tmp149869 + |gx[1]#_g149870_|)) (declare (not safe)) - (cons 'id __tmp148322))) - (__tmp148317 - (let ((__tmp148318 - (let ((__tmp148319 - |gx[1]#_g148320_|)) + (cons 'id __tmp149869))) + (__tmp149864 + (let ((__tmp149865 + (let ((__tmp149866 + |gx[1]#_g149867_|)) (declare (not safe)) (cons 'table - __tmp148319)))) + __tmp149866)))) (declare (not safe)) - (cons __tmp148318 '())))) + (cons __tmp149865 '())))) (declare (not safe)) - (cons __tmp148321 __tmp148317)))) + (cons __tmp149868 __tmp149864)))) (declare (not safe)) - (cons __tmp148324 __tmp148316)))) + (cons __tmp149871 __tmp149863)))) (declare (not safe)) - (cons __tmp148327 __tmp148315)))) + (cons __tmp149874 __tmp149862)))) (declare (not safe)) - (cons __tmp148330 __tmp148314)))) + (cons __tmp149877 __tmp149861)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp148333 - __tmp148313)))) + (cons __tmp149880 + __tmp149860)))) (declare (not safe)) - (cons __tmp148336 __tmp148312)))) + (cons __tmp149883 __tmp149859)))) (declare (not safe)) - (cons __tmp148339 __tmp148311)))) + (cons __tmp149886 __tmp149858)))) (declare (not safe)) - (cons __tmp148342 __tmp148310)))) + (cons __tmp149889 __tmp149857)))) (declare (not safe)) - (cons __tmp148345 __tmp148309)))) + (cons __tmp149892 __tmp149856)))) (declare (not safe)) - (cons __tmp148348 __tmp148308)))) + (cons __tmp149895 __tmp149855)))) (declare (not safe)) (##unchecked-structure-set! - __obj147832 - __tmp148307 + __obj149379 + __tmp149854 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147832)) + __obj149379)) (define |gx[:0:]#prelude-context| - (let ((__obj147833 + (let ((__obj149380 (let () (declare (not safe)) (##structure @@ -5015,7 +5015,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147833 + __obj149380 'gx#prelude-context::t '1 gerbil/core$$#class-type-info::t @@ -5023,7 +5023,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147833 + __obj149380 'prelude-context '2 gerbil/core$$#class-type-info::t @@ -5031,26 +5031,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147833 + __obj149380 '(path import e) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148351 - (let ((__tmp148352 |gx[1]#_g148168_|)) + (let ((__tmp149898 + (let ((__tmp149899 |gx[1]#_g149715_|)) (declare (not safe)) - (cons __tmp148352 '())))) + (cons __tmp149899 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147833 - __tmp148351 + __obj149380 + __tmp149898 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147833 + __obj149380 '#t '5 gerbil/core$$#class-type-info::t @@ -5058,7 +5058,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147833 + __obj149380 '#f '6 gerbil/core$$#class-type-info::t @@ -5066,318 +5066,318 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147833 + __obj149380 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148353 |gx[1]#_g148354_|)) + (let ((__tmp149900 |gx[1]#_g149901_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147833 - __tmp148353 + __obj149380 + __tmp149900 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148355 |gx[1]#_g148356_|)) + (let ((__tmp149902 |gx[1]#_g149903_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147833 - __tmp148355 + __obj149380 + __tmp149902 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148357 |gx[1]#_g148358_|)) + (let ((__tmp149904 |gx[1]#_g149905_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147833 - __tmp148357 + __obj149380 + __tmp149904 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148359 - (let ((__tmp148388 - (let ((__tmp148389 |gx[1]#_g148390_|)) + (let ((__tmp149906 + (let ((__tmp149935 + (let ((__tmp149936 |gx[1]#_g149937_|)) (declare (not safe)) - (cons 'path __tmp148389))) - (__tmp148360 - (let ((__tmp148385 - (let ((__tmp148386 |gx[1]#_g148387_|)) + (cons 'path __tmp149936))) + (__tmp149907 + (let ((__tmp149932 + (let ((__tmp149933 |gx[1]#_g149934_|)) (declare (not safe)) - (cons 'import __tmp148386))) - (__tmp148361 - (let ((__tmp148382 - (let ((__tmp148383 |gx[1]#_g148384_|)) + (cons 'import __tmp149933))) + (__tmp149908 + (let ((__tmp149929 + (let ((__tmp149930 |gx[1]#_g149931_|)) (declare (not safe)) - (cons 'e __tmp148383))) - (__tmp148362 - (let ((__tmp148379 - (let ((__tmp148380 - |gx[1]#_g148381_|)) + (cons 'e __tmp149930))) + (__tmp149909 + (let ((__tmp149926 + (let ((__tmp149927 + |gx[1]#_g149928_|)) (declare (not safe)) - (cons 'super __tmp148380))) - (__tmp148363 - (let ((__tmp148376 - (let ((__tmp148377 - |gx[1]#_g148378_|)) + (cons 'super __tmp149927))) + (__tmp149910 + (let ((__tmp149923 + (let ((__tmp149924 + |gx[1]#_g149925_|)) (declare (not safe)) - (cons 'up __tmp148377))) - (__tmp148364 - (let ((__tmp148373 - (let ((__tmp148374 - |gx[1]#_g148375_|)) + (cons 'up __tmp149924))) + (__tmp149911 + (let ((__tmp149920 + (let ((__tmp149921 + |gx[1]#_g149922_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp148374))) - (__tmp148365 - (let ((__tmp148370 - (let ((__tmp148371 |gx[1]#_g148372_|)) + __tmp149921))) + (__tmp149912 + (let ((__tmp149917 + (let ((__tmp149918 |gx[1]#_g149919_|)) (declare (not safe)) - (cons 'id __tmp148371))) - (__tmp148366 - (let ((__tmp148367 - (let ((__tmp148368 |gx[1]#_g148369_|)) + (cons 'id __tmp149918))) + (__tmp149913 + (let ((__tmp149914 + (let ((__tmp149915 |gx[1]#_g149916_|)) (declare (not safe)) - (cons 'table __tmp148368)))) + (cons 'table __tmp149915)))) (declare (not safe)) - (cons __tmp148367 '())))) + (cons __tmp149914 '())))) (declare (not safe)) - (cons __tmp148370 __tmp148366)))) + (cons __tmp149917 __tmp149913)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp148373 - __tmp148365)))) + (cons __tmp149920 + __tmp149912)))) (declare (not safe)) - (cons __tmp148376 __tmp148364)))) + (cons __tmp149923 __tmp149911)))) (declare (not safe)) - (cons __tmp148379 __tmp148363)))) + (cons __tmp149926 __tmp149910)))) (declare (not safe)) - (cons __tmp148382 __tmp148362)))) + (cons __tmp149929 __tmp149909)))) (declare (not safe)) - (cons __tmp148385 __tmp148361)))) + (cons __tmp149932 __tmp149908)))) (declare (not safe)) - (cons __tmp148388 __tmp148360)))) + (cons __tmp149935 __tmp149907)))) (declare (not safe)) (##unchecked-structure-set! - __obj147833 - __tmp148359 + __obj149380 + __tmp149906 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148391 - (let ((__tmp148420 - (let ((__tmp148421 |gx[1]#_g148422_|)) + (let ((__tmp149938 + (let ((__tmp149967 + (let ((__tmp149968 |gx[1]#_g149969_|)) (declare (not safe)) - (cons 'path __tmp148421))) - (__tmp148392 - (let ((__tmp148417 - (let ((__tmp148418 |gx[1]#_g148419_|)) + (cons 'path __tmp149968))) + (__tmp149939 + (let ((__tmp149964 + (let ((__tmp149965 |gx[1]#_g149966_|)) (declare (not safe)) - (cons 'import __tmp148418))) - (__tmp148393 - (let ((__tmp148414 - (let ((__tmp148415 |gx[1]#_g148416_|)) + (cons 'import __tmp149965))) + (__tmp149940 + (let ((__tmp149961 + (let ((__tmp149962 |gx[1]#_g149963_|)) (declare (not safe)) - (cons 'e __tmp148415))) - (__tmp148394 - (let ((__tmp148411 - (let ((__tmp148412 - |gx[1]#_g148413_|)) + (cons 'e __tmp149962))) + (__tmp149941 + (let ((__tmp149958 + (let ((__tmp149959 + |gx[1]#_g149960_|)) (declare (not safe)) - (cons 'super __tmp148412))) - (__tmp148395 - (let ((__tmp148408 - (let ((__tmp148409 - |gx[1]#_g148410_|)) + (cons 'super __tmp149959))) + (__tmp149942 + (let ((__tmp149955 + (let ((__tmp149956 + |gx[1]#_g149957_|)) (declare (not safe)) - (cons 'up __tmp148409))) - (__tmp148396 - (let ((__tmp148405 - (let ((__tmp148406 - |gx[1]#_g148407_|)) + (cons 'up __tmp149956))) + (__tmp149943 + (let ((__tmp149952 + (let ((__tmp149953 + |gx[1]#_g149954_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp148406))) - (__tmp148397 - (let ((__tmp148402 - (let ((__tmp148403 |gx[1]#_g148404_|)) + __tmp149953))) + (__tmp149944 + (let ((__tmp149949 + (let ((__tmp149950 |gx[1]#_g149951_|)) (declare (not safe)) - (cons 'id __tmp148403))) - (__tmp148398 - (let ((__tmp148399 - (let ((__tmp148400 |gx[1]#_g148401_|)) + (cons 'id __tmp149950))) + (__tmp149945 + (let ((__tmp149946 + (let ((__tmp149947 |gx[1]#_g149948_|)) (declare (not safe)) - (cons 'table __tmp148400)))) + (cons 'table __tmp149947)))) (declare (not safe)) - (cons __tmp148399 '())))) + (cons __tmp149946 '())))) (declare (not safe)) - (cons __tmp148402 __tmp148398)))) + (cons __tmp149949 __tmp149945)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp148405 - __tmp148397)))) + (cons __tmp149952 + __tmp149944)))) (declare (not safe)) - (cons __tmp148408 __tmp148396)))) + (cons __tmp149955 __tmp149943)))) (declare (not safe)) - (cons __tmp148411 __tmp148395)))) + (cons __tmp149958 __tmp149942)))) (declare (not safe)) - (cons __tmp148414 __tmp148394)))) + (cons __tmp149961 __tmp149941)))) (declare (not safe)) - (cons __tmp148417 __tmp148393)))) + (cons __tmp149964 __tmp149940)))) (declare (not safe)) - (cons __tmp148420 __tmp148392)))) + (cons __tmp149967 __tmp149939)))) (declare (not safe)) (##unchecked-structure-set! - __obj147833 - __tmp148391 + __obj149380 + __tmp149938 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148423 - (let ((__tmp148452 - (let ((__tmp148453 |gx[1]#_g148454_|)) + (let ((__tmp149970 + (let ((__tmp149999 + (let ((__tmp150000 |gx[1]#_g150001_|)) (declare (not safe)) - (cons 'path __tmp148453))) - (__tmp148424 - (let ((__tmp148449 - (let ((__tmp148450 |gx[1]#_g148451_|)) + (cons 'path __tmp150000))) + (__tmp149971 + (let ((__tmp149996 + (let ((__tmp149997 |gx[1]#_g149998_|)) (declare (not safe)) - (cons 'import __tmp148450))) - (__tmp148425 - (let ((__tmp148446 - (let ((__tmp148447 |gx[1]#_g148448_|)) + (cons 'import __tmp149997))) + (__tmp149972 + (let ((__tmp149993 + (let ((__tmp149994 |gx[1]#_g149995_|)) (declare (not safe)) - (cons 'e __tmp148447))) - (__tmp148426 - (let ((__tmp148443 - (let ((__tmp148444 - |gx[1]#_g148445_|)) + (cons 'e __tmp149994))) + (__tmp149973 + (let ((__tmp149990 + (let ((__tmp149991 + |gx[1]#_g149992_|)) (declare (not safe)) - (cons 'super __tmp148444))) - (__tmp148427 - (let ((__tmp148440 - (let ((__tmp148441 - |gx[1]#_g148442_|)) + (cons 'super __tmp149991))) + (__tmp149974 + (let ((__tmp149987 + (let ((__tmp149988 + |gx[1]#_g149989_|)) (declare (not safe)) - (cons 'up __tmp148441))) - (__tmp148428 - (let ((__tmp148437 - (let ((__tmp148438 - |gx[1]#_g148439_|)) + (cons 'up __tmp149988))) + (__tmp149975 + (let ((__tmp149984 + (let ((__tmp149985 + |gx[1]#_g149986_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp148438))) - (__tmp148429 - (let ((__tmp148434 - (let ((__tmp148435 |gx[1]#_g148436_|)) + __tmp149985))) + (__tmp149976 + (let ((__tmp149981 + (let ((__tmp149982 |gx[1]#_g149983_|)) (declare (not safe)) - (cons 'id __tmp148435))) - (__tmp148430 - (let ((__tmp148431 - (let ((__tmp148432 |gx[1]#_g148433_|)) + (cons 'id __tmp149982))) + (__tmp149977 + (let ((__tmp149978 + (let ((__tmp149979 |gx[1]#_g149980_|)) (declare (not safe)) - (cons 'table __tmp148432)))) + (cons 'table __tmp149979)))) (declare (not safe)) - (cons __tmp148431 '())))) + (cons __tmp149978 '())))) (declare (not safe)) - (cons __tmp148434 __tmp148430)))) + (cons __tmp149981 __tmp149977)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp148437 - __tmp148429)))) + (cons __tmp149984 + __tmp149976)))) (declare (not safe)) - (cons __tmp148440 __tmp148428)))) + (cons __tmp149987 __tmp149975)))) (declare (not safe)) - (cons __tmp148443 __tmp148427)))) + (cons __tmp149990 __tmp149974)))) (declare (not safe)) - (cons __tmp148446 __tmp148426)))) + (cons __tmp149993 __tmp149973)))) (declare (not safe)) - (cons __tmp148449 __tmp148425)))) + (cons __tmp149996 __tmp149972)))) (declare (not safe)) - (cons __tmp148452 __tmp148424)))) + (cons __tmp149999 __tmp149971)))) (declare (not safe)) (##unchecked-structure-set! - __obj147833 - __tmp148423 + __obj149380 + __tmp149970 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148455 - (let ((__tmp148484 - (let ((__tmp148485 |gx[1]#_g148486_|)) + (let ((__tmp150002 + (let ((__tmp150031 + (let ((__tmp150032 |gx[1]#_g150033_|)) (declare (not safe)) - (cons 'path __tmp148485))) - (__tmp148456 - (let ((__tmp148481 - (let ((__tmp148482 |gx[1]#_g148483_|)) + (cons 'path __tmp150032))) + (__tmp150003 + (let ((__tmp150028 + (let ((__tmp150029 |gx[1]#_g150030_|)) (declare (not safe)) - (cons 'import __tmp148482))) - (__tmp148457 - (let ((__tmp148478 - (let ((__tmp148479 |gx[1]#_g148480_|)) + (cons 'import __tmp150029))) + (__tmp150004 + (let ((__tmp150025 + (let ((__tmp150026 |gx[1]#_g150027_|)) (declare (not safe)) - (cons 'e __tmp148479))) - (__tmp148458 - (let ((__tmp148475 - (let ((__tmp148476 - |gx[1]#_g148477_|)) + (cons 'e __tmp150026))) + (__tmp150005 + (let ((__tmp150022 + (let ((__tmp150023 + |gx[1]#_g150024_|)) (declare (not safe)) - (cons 'super __tmp148476))) - (__tmp148459 - (let ((__tmp148472 - (let ((__tmp148473 - |gx[1]#_g148474_|)) + (cons 'super __tmp150023))) + (__tmp150006 + (let ((__tmp150019 + (let ((__tmp150020 + |gx[1]#_g150021_|)) (declare (not safe)) - (cons 'up __tmp148473))) - (__tmp148460 - (let ((__tmp148469 - (let ((__tmp148470 - |gx[1]#_g148471_|)) + (cons 'up __tmp150020))) + (__tmp150007 + (let ((__tmp150016 + (let ((__tmp150017 + |gx[1]#_g150018_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp148470))) - (__tmp148461 - (let ((__tmp148466 - (let ((__tmp148467 |gx[1]#_g148468_|)) + __tmp150017))) + (__tmp150008 + (let ((__tmp150013 + (let ((__tmp150014 |gx[1]#_g150015_|)) (declare (not safe)) - (cons 'id __tmp148467))) - (__tmp148462 - (let ((__tmp148463 - (let ((__tmp148464 |gx[1]#_g148465_|)) + (cons 'id __tmp150014))) + (__tmp150009 + (let ((__tmp150010 + (let ((__tmp150011 |gx[1]#_g150012_|)) (declare (not safe)) - (cons 'table __tmp148464)))) + (cons 'table __tmp150011)))) (declare (not safe)) - (cons __tmp148463 '())))) + (cons __tmp150010 '())))) (declare (not safe)) - (cons __tmp148466 __tmp148462)))) + (cons __tmp150013 __tmp150009)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp148469 - __tmp148461)))) + (cons __tmp150016 + __tmp150008)))) (declare (not safe)) - (cons __tmp148472 __tmp148460)))) + (cons __tmp150019 __tmp150007)))) (declare (not safe)) - (cons __tmp148475 __tmp148459)))) + (cons __tmp150022 __tmp150006)))) (declare (not safe)) - (cons __tmp148478 __tmp148458)))) + (cons __tmp150025 __tmp150005)))) (declare (not safe)) - (cons __tmp148481 __tmp148457)))) + (cons __tmp150028 __tmp150004)))) (declare (not safe)) - (cons __tmp148484 __tmp148456)))) + (cons __tmp150031 __tmp150003)))) (declare (not safe)) (##unchecked-structure-set! - __obj147833 - __tmp148455 + __obj149380 + __tmp150002 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147833)) + __obj149380)) (define |gx[:0:]#local-context| - (let ((__obj147834 + (let ((__obj149381 (let () (declare (not safe)) (##structure @@ -5399,7 +5399,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147834 + __obj149381 'gx#local-context::t '1 gerbil/core$$#class-type-info::t @@ -5407,7 +5407,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147834 + __obj149381 'local-context '2 gerbil/core$$#class-type-info::t @@ -5415,26 +5415,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147834 + __obj149381 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148487 - (let ((__tmp148488 |gx[1]#_g148079_|)) + (let ((__tmp150034 + (let ((__tmp150035 |gx[1]#_g149626_|)) (declare (not safe)) - (cons __tmp148488 '())))) + (cons __tmp150035 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147834 - __tmp148487 + __obj149381 + __tmp150034 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147834 + __obj149381 '#t '5 gerbil/core$$#class-type-info::t @@ -5442,7 +5442,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147834 + __obj149381 '#f '6 gerbil/core$$#class-type-info::t @@ -5450,218 +5450,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147834 + __obj149381 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148489 |gx[1]#_g148490_|)) + (let ((__tmp150036 |gx[1]#_g150037_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147834 - __tmp148489 + __obj149381 + __tmp150036 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148491 |gx[1]#_g148492_|)) + (let ((__tmp150038 |gx[1]#_g150039_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147834 - __tmp148491 + __obj149381 + __tmp150038 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148493 |gx[1]#_g148494_|)) + (let ((__tmp150040 |gx[1]#_g150041_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147834 - __tmp148493 + __obj149381 + __tmp150040 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148495 - (let ((__tmp148512 - (let ((__tmp148513 |gx[1]#_g148514_|)) + (let ((__tmp150042 + (let ((__tmp150059 + (let ((__tmp150060 |gx[1]#_g150061_|)) (declare (not safe)) - (cons 'super __tmp148513))) - (__tmp148496 - (let ((__tmp148509 - (let ((__tmp148510 |gx[1]#_g148511_|)) + (cons 'super __tmp150060))) + (__tmp150043 + (let ((__tmp150056 + (let ((__tmp150057 |gx[1]#_g150058_|)) (declare (not safe)) - (cons 'up __tmp148510))) - (__tmp148497 - (let ((__tmp148506 - (let ((__tmp148507 |gx[1]#_g148508_|)) + (cons 'up __tmp150057))) + (__tmp150044 + (let ((__tmp150053 + (let ((__tmp150054 |gx[1]#_g150055_|)) (declare (not safe)) - (cons 'down __tmp148507))) - (__tmp148498 - (let ((__tmp148503 - (let ((__tmp148504 - |gx[1]#_g148505_|)) + (cons 'down __tmp150054))) + (__tmp150045 + (let ((__tmp150050 + (let ((__tmp150051 + |gx[1]#_g150052_|)) (declare (not safe)) - (cons 'id __tmp148504))) - (__tmp148499 - (let ((__tmp148500 - (let ((__tmp148501 - |gx[1]#_g148502_|)) + (cons 'id __tmp150051))) + (__tmp150046 + (let ((__tmp150047 + (let ((__tmp150048 + |gx[1]#_g150049_|)) (declare (not safe)) (cons 'table - __tmp148501)))) + __tmp150048)))) (declare (not safe)) - (cons __tmp148500 '())))) + (cons __tmp150047 '())))) (declare (not safe)) - (cons __tmp148503 __tmp148499)))) + (cons __tmp150050 __tmp150046)))) (declare (not safe)) - (cons __tmp148506 __tmp148498)))) + (cons __tmp150053 __tmp150045)))) (declare (not safe)) - (cons __tmp148509 __tmp148497)))) + (cons __tmp150056 __tmp150044)))) (declare (not safe)) - (cons __tmp148512 __tmp148496)))) + (cons __tmp150059 __tmp150043)))) (declare (not safe)) (##unchecked-structure-set! - __obj147834 - __tmp148495 + __obj149381 + __tmp150042 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148515 - (let ((__tmp148532 - (let ((__tmp148533 |gx[1]#_g148534_|)) + (let ((__tmp150062 + (let ((__tmp150079 + (let ((__tmp150080 |gx[1]#_g150081_|)) (declare (not safe)) - (cons 'super __tmp148533))) - (__tmp148516 - (let ((__tmp148529 - (let ((__tmp148530 |gx[1]#_g148531_|)) + (cons 'super __tmp150080))) + (__tmp150063 + (let ((__tmp150076 + (let ((__tmp150077 |gx[1]#_g150078_|)) (declare (not safe)) - (cons 'up __tmp148530))) - (__tmp148517 - (let ((__tmp148526 - (let ((__tmp148527 |gx[1]#_g148528_|)) + (cons 'up __tmp150077))) + (__tmp150064 + (let ((__tmp150073 + (let ((__tmp150074 |gx[1]#_g150075_|)) (declare (not safe)) - (cons 'down __tmp148527))) - (__tmp148518 - (let ((__tmp148523 - (let ((__tmp148524 - |gx[1]#_g148525_|)) + (cons 'down __tmp150074))) + (__tmp150065 + (let ((__tmp150070 + (let ((__tmp150071 + |gx[1]#_g150072_|)) (declare (not safe)) - (cons 'id __tmp148524))) - (__tmp148519 - (let ((__tmp148520 - (let ((__tmp148521 - |gx[1]#_g148522_|)) + (cons 'id __tmp150071))) + (__tmp150066 + (let ((__tmp150067 + (let ((__tmp150068 + |gx[1]#_g150069_|)) (declare (not safe)) (cons 'table - __tmp148521)))) + __tmp150068)))) (declare (not safe)) - (cons __tmp148520 '())))) + (cons __tmp150067 '())))) (declare (not safe)) - (cons __tmp148523 __tmp148519)))) + (cons __tmp150070 __tmp150066)))) (declare (not safe)) - (cons __tmp148526 __tmp148518)))) + (cons __tmp150073 __tmp150065)))) (declare (not safe)) - (cons __tmp148529 __tmp148517)))) + (cons __tmp150076 __tmp150064)))) (declare (not safe)) - (cons __tmp148532 __tmp148516)))) + (cons __tmp150079 __tmp150063)))) (declare (not safe)) (##unchecked-structure-set! - __obj147834 - __tmp148515 + __obj149381 + __tmp150062 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148535 - (let ((__tmp148552 - (let ((__tmp148553 |gx[1]#_g148554_|)) + (let ((__tmp150082 + (let ((__tmp150099 + (let ((__tmp150100 |gx[1]#_g150101_|)) (declare (not safe)) - (cons 'super __tmp148553))) - (__tmp148536 - (let ((__tmp148549 - (let ((__tmp148550 |gx[1]#_g148551_|)) + (cons 'super __tmp150100))) + (__tmp150083 + (let ((__tmp150096 + (let ((__tmp150097 |gx[1]#_g150098_|)) (declare (not safe)) - (cons 'up __tmp148550))) - (__tmp148537 - (let ((__tmp148546 - (let ((__tmp148547 |gx[1]#_g148548_|)) + (cons 'up __tmp150097))) + (__tmp150084 + (let ((__tmp150093 + (let ((__tmp150094 |gx[1]#_g150095_|)) (declare (not safe)) - (cons 'down __tmp148547))) - (__tmp148538 - (let ((__tmp148543 - (let ((__tmp148544 - |gx[1]#_g148545_|)) + (cons 'down __tmp150094))) + (__tmp150085 + (let ((__tmp150090 + (let ((__tmp150091 + |gx[1]#_g150092_|)) (declare (not safe)) - (cons 'id __tmp148544))) - (__tmp148539 - (let ((__tmp148540 - (let ((__tmp148541 - |gx[1]#_g148542_|)) + (cons 'id __tmp150091))) + (__tmp150086 + (let ((__tmp150087 + (let ((__tmp150088 + |gx[1]#_g150089_|)) (declare (not safe)) (cons 'table - __tmp148541)))) + __tmp150088)))) (declare (not safe)) - (cons __tmp148540 '())))) + (cons __tmp150087 '())))) (declare (not safe)) - (cons __tmp148543 __tmp148539)))) + (cons __tmp150090 __tmp150086)))) (declare (not safe)) - (cons __tmp148546 __tmp148538)))) + (cons __tmp150093 __tmp150085)))) (declare (not safe)) - (cons __tmp148549 __tmp148537)))) + (cons __tmp150096 __tmp150084)))) (declare (not safe)) - (cons __tmp148552 __tmp148536)))) + (cons __tmp150099 __tmp150083)))) (declare (not safe)) (##unchecked-structure-set! - __obj147834 - __tmp148535 + __obj149381 + __tmp150082 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148555 - (let ((__tmp148572 - (let ((__tmp148573 |gx[1]#_g148574_|)) + (let ((__tmp150102 + (let ((__tmp150119 + (let ((__tmp150120 |gx[1]#_g150121_|)) (declare (not safe)) - (cons 'super __tmp148573))) - (__tmp148556 - (let ((__tmp148569 - (let ((__tmp148570 |gx[1]#_g148571_|)) + (cons 'super __tmp150120))) + (__tmp150103 + (let ((__tmp150116 + (let ((__tmp150117 |gx[1]#_g150118_|)) (declare (not safe)) - (cons 'up __tmp148570))) - (__tmp148557 - (let ((__tmp148566 - (let ((__tmp148567 |gx[1]#_g148568_|)) + (cons 'up __tmp150117))) + (__tmp150104 + (let ((__tmp150113 + (let ((__tmp150114 |gx[1]#_g150115_|)) (declare (not safe)) - (cons 'down __tmp148567))) - (__tmp148558 - (let ((__tmp148563 - (let ((__tmp148564 - |gx[1]#_g148565_|)) + (cons 'down __tmp150114))) + (__tmp150105 + (let ((__tmp150110 + (let ((__tmp150111 + |gx[1]#_g150112_|)) (declare (not safe)) - (cons 'id __tmp148564))) - (__tmp148559 - (let ((__tmp148560 - (let ((__tmp148561 - |gx[1]#_g148562_|)) + (cons 'id __tmp150111))) + (__tmp150106 + (let ((__tmp150107 + (let ((__tmp150108 + |gx[1]#_g150109_|)) (declare (not safe)) (cons 'table - __tmp148561)))) + __tmp150108)))) (declare (not safe)) - (cons __tmp148560 '())))) + (cons __tmp150107 '())))) (declare (not safe)) - (cons __tmp148563 __tmp148559)))) + (cons __tmp150110 __tmp150106)))) (declare (not safe)) - (cons __tmp148566 __tmp148558)))) + (cons __tmp150113 __tmp150105)))) (declare (not safe)) - (cons __tmp148569 __tmp148557)))) + (cons __tmp150116 __tmp150104)))) (declare (not safe)) - (cons __tmp148572 __tmp148556)))) + (cons __tmp150119 __tmp150103)))) (declare (not safe)) (##unchecked-structure-set! - __obj147834 - __tmp148555 + __obj149381 + __tmp150102 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147834)) + __obj149381)) (define |gx[:0:]#binding| - (let ((__obj147835 + (let ((__obj149382 (let () (declare (not safe)) (##structure @@ -5683,7 +5683,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147835 + __obj149382 'gx#binding::t '1 gerbil/core$$#class-type-info::t @@ -5691,7 +5691,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147835 + __obj149382 'binding '2 gerbil/core$$#class-type-info::t @@ -5699,7 +5699,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147835 + __obj149382 '(id key phi) '4 gerbil/core$$#class-type-info::t @@ -5707,7 +5707,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147835 + __obj149382 '() '3 gerbil/core$$#class-type-info::t @@ -5715,7 +5715,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147835 + __obj149382 '#t '5 gerbil/core$$#class-type-info::t @@ -5723,7 +5723,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147835 + __obj149382 '#f '6 gerbil/core$$#class-type-info::t @@ -5731,150 +5731,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147835 + __obj149382 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148575 |gx[1]#_g148576_|)) + (let ((__tmp150122 |gx[1]#_g150123_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147835 - __tmp148575 + __obj149382 + __tmp150122 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148577 |gx[1]#_g148578_|)) + (let ((__tmp150124 |gx[1]#_g150125_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147835 - __tmp148577 + __obj149382 + __tmp150124 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148579 |gx[1]#_g148580_|)) + (let ((__tmp150126 |gx[1]#_g150127_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147835 - __tmp148579 + __obj149382 + __tmp150126 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148581 - (let ((__tmp148590 - (let ((__tmp148591 |gx[1]#_g148592_|)) + (let ((__tmp150128 + (let ((__tmp150137 + (let ((__tmp150138 |gx[1]#_g150139_|)) (declare (not safe)) - (cons 'id __tmp148591))) - (__tmp148582 - (let ((__tmp148587 - (let ((__tmp148588 |gx[1]#_g148589_|)) + (cons 'id __tmp150138))) + (__tmp150129 + (let ((__tmp150134 + (let ((__tmp150135 |gx[1]#_g150136_|)) (declare (not safe)) - (cons 'key __tmp148588))) - (__tmp148583 - (let ((__tmp148584 - (let ((__tmp148585 |gx[1]#_g148586_|)) + (cons 'key __tmp150135))) + (__tmp150130 + (let ((__tmp150131 + (let ((__tmp150132 |gx[1]#_g150133_|)) (declare (not safe)) - (cons 'phi __tmp148585)))) + (cons 'phi __tmp150132)))) (declare (not safe)) - (cons __tmp148584 '())))) + (cons __tmp150131 '())))) (declare (not safe)) - (cons __tmp148587 __tmp148583)))) + (cons __tmp150134 __tmp150130)))) (declare (not safe)) - (cons __tmp148590 __tmp148582)))) + (cons __tmp150137 __tmp150129)))) (declare (not safe)) (##unchecked-structure-set! - __obj147835 - __tmp148581 + __obj149382 + __tmp150128 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148593 - (let ((__tmp148602 - (let ((__tmp148603 |gx[1]#_g148604_|)) + (let ((__tmp150140 + (let ((__tmp150149 + (let ((__tmp150150 |gx[1]#_g150151_|)) (declare (not safe)) - (cons 'id __tmp148603))) - (__tmp148594 - (let ((__tmp148599 - (let ((__tmp148600 |gx[1]#_g148601_|)) + (cons 'id __tmp150150))) + (__tmp150141 + (let ((__tmp150146 + (let ((__tmp150147 |gx[1]#_g150148_|)) (declare (not safe)) - (cons 'key __tmp148600))) - (__tmp148595 - (let ((__tmp148596 - (let ((__tmp148597 |gx[1]#_g148598_|)) + (cons 'key __tmp150147))) + (__tmp150142 + (let ((__tmp150143 + (let ((__tmp150144 |gx[1]#_g150145_|)) (declare (not safe)) - (cons 'phi __tmp148597)))) + (cons 'phi __tmp150144)))) (declare (not safe)) - (cons __tmp148596 '())))) + (cons __tmp150143 '())))) (declare (not safe)) - (cons __tmp148599 __tmp148595)))) + (cons __tmp150146 __tmp150142)))) (declare (not safe)) - (cons __tmp148602 __tmp148594)))) + (cons __tmp150149 __tmp150141)))) (declare (not safe)) (##unchecked-structure-set! - __obj147835 - __tmp148593 + __obj149382 + __tmp150140 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148605 - (let ((__tmp148614 - (let ((__tmp148615 |gx[1]#_g148616_|)) + (let ((__tmp150152 + (let ((__tmp150161 + (let ((__tmp150162 |gx[1]#_g150163_|)) (declare (not safe)) - (cons 'id __tmp148615))) - (__tmp148606 - (let ((__tmp148611 - (let ((__tmp148612 |gx[1]#_g148613_|)) + (cons 'id __tmp150162))) + (__tmp150153 + (let ((__tmp150158 + (let ((__tmp150159 |gx[1]#_g150160_|)) (declare (not safe)) - (cons 'key __tmp148612))) - (__tmp148607 - (let ((__tmp148608 - (let ((__tmp148609 |gx[1]#_g148610_|)) + (cons 'key __tmp150159))) + (__tmp150154 + (let ((__tmp150155 + (let ((__tmp150156 |gx[1]#_g150157_|)) (declare (not safe)) - (cons 'phi __tmp148609)))) + (cons 'phi __tmp150156)))) (declare (not safe)) - (cons __tmp148608 '())))) + (cons __tmp150155 '())))) (declare (not safe)) - (cons __tmp148611 __tmp148607)))) + (cons __tmp150158 __tmp150154)))) (declare (not safe)) - (cons __tmp148614 __tmp148606)))) + (cons __tmp150161 __tmp150153)))) (declare (not safe)) (##unchecked-structure-set! - __obj147835 - __tmp148605 + __obj149382 + __tmp150152 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148617 - (let ((__tmp148626 - (let ((__tmp148627 |gx[1]#_g148628_|)) + (let ((__tmp150164 + (let ((__tmp150173 + (let ((__tmp150174 |gx[1]#_g150175_|)) (declare (not safe)) - (cons 'id __tmp148627))) - (__tmp148618 - (let ((__tmp148623 - (let ((__tmp148624 |gx[1]#_g148625_|)) + (cons 'id __tmp150174))) + (__tmp150165 + (let ((__tmp150170 + (let ((__tmp150171 |gx[1]#_g150172_|)) (declare (not safe)) - (cons 'key __tmp148624))) - (__tmp148619 - (let ((__tmp148620 - (let ((__tmp148621 |gx[1]#_g148622_|)) + (cons 'key __tmp150171))) + (__tmp150166 + (let ((__tmp150167 + (let ((__tmp150168 |gx[1]#_g150169_|)) (declare (not safe)) - (cons 'phi __tmp148621)))) + (cons 'phi __tmp150168)))) (declare (not safe)) - (cons __tmp148620 '())))) + (cons __tmp150167 '())))) (declare (not safe)) - (cons __tmp148623 __tmp148619)))) + (cons __tmp150170 __tmp150166)))) (declare (not safe)) - (cons __tmp148626 __tmp148618)))) + (cons __tmp150173 __tmp150165)))) (declare (not safe)) (##unchecked-structure-set! - __obj147835 - __tmp148617 + __obj149382 + __tmp150164 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147835)) + __obj149382)) (define |gx[:0:]#runtime-binding| - (let ((__obj147836 + (let ((__obj149383 (let () (declare (not safe)) (##structure @@ -5896,7 +5896,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147836 + __obj149383 'gx#runtime-binding::t '1 gerbil/core$$#class-type-info::t @@ -5904,7 +5904,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147836 + __obj149383 'runtime-binding '2 gerbil/core$$#class-type-info::t @@ -5912,26 +5912,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147836 + __obj149383 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148629 - (let ((__tmp148630 |gx[1]#_g148631_|)) + (let ((__tmp150176 + (let ((__tmp150177 |gx[1]#_g150178_|)) (declare (not safe)) - (cons __tmp148630 '())))) + (cons __tmp150177 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147836 - __tmp148629 + __obj149383 + __tmp150176 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147836 + __obj149383 '#t '5 gerbil/core$$#class-type-info::t @@ -5939,7 +5939,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147836 + __obj149383 '#f '6 gerbil/core$$#class-type-info::t @@ -5947,150 +5947,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147836 + __obj149383 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148632 |gx[1]#_g148633_|)) + (let ((__tmp150179 |gx[1]#_g150180_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147836 - __tmp148632 + __obj149383 + __tmp150179 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148634 |gx[1]#_g148635_|)) + (let ((__tmp150181 |gx[1]#_g150182_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147836 - __tmp148634 + __obj149383 + __tmp150181 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148636 |gx[1]#_g148637_|)) + (let ((__tmp150183 |gx[1]#_g150184_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147836 - __tmp148636 + __obj149383 + __tmp150183 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148638 - (let ((__tmp148647 - (let ((__tmp148648 |gx[1]#_g148649_|)) + (let ((__tmp150185 + (let ((__tmp150194 + (let ((__tmp150195 |gx[1]#_g150196_|)) (declare (not safe)) - (cons 'id __tmp148648))) - (__tmp148639 - (let ((__tmp148644 - (let ((__tmp148645 |gx[1]#_g148646_|)) + (cons 'id __tmp150195))) + (__tmp150186 + (let ((__tmp150191 + (let ((__tmp150192 |gx[1]#_g150193_|)) (declare (not safe)) - (cons 'key __tmp148645))) - (__tmp148640 - (let ((__tmp148641 - (let ((__tmp148642 |gx[1]#_g148643_|)) + (cons 'key __tmp150192))) + (__tmp150187 + (let ((__tmp150188 + (let ((__tmp150189 |gx[1]#_g150190_|)) (declare (not safe)) - (cons 'phi __tmp148642)))) + (cons 'phi __tmp150189)))) (declare (not safe)) - (cons __tmp148641 '())))) + (cons __tmp150188 '())))) (declare (not safe)) - (cons __tmp148644 __tmp148640)))) + (cons __tmp150191 __tmp150187)))) (declare (not safe)) - (cons __tmp148647 __tmp148639)))) + (cons __tmp150194 __tmp150186)))) (declare (not safe)) (##unchecked-structure-set! - __obj147836 - __tmp148638 + __obj149383 + __tmp150185 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148650 - (let ((__tmp148659 - (let ((__tmp148660 |gx[1]#_g148661_|)) + (let ((__tmp150197 + (let ((__tmp150206 + (let ((__tmp150207 |gx[1]#_g150208_|)) (declare (not safe)) - (cons 'id __tmp148660))) - (__tmp148651 - (let ((__tmp148656 - (let ((__tmp148657 |gx[1]#_g148658_|)) + (cons 'id __tmp150207))) + (__tmp150198 + (let ((__tmp150203 + (let ((__tmp150204 |gx[1]#_g150205_|)) (declare (not safe)) - (cons 'key __tmp148657))) - (__tmp148652 - (let ((__tmp148653 - (let ((__tmp148654 |gx[1]#_g148655_|)) + (cons 'key __tmp150204))) + (__tmp150199 + (let ((__tmp150200 + (let ((__tmp150201 |gx[1]#_g150202_|)) (declare (not safe)) - (cons 'phi __tmp148654)))) + (cons 'phi __tmp150201)))) (declare (not safe)) - (cons __tmp148653 '())))) + (cons __tmp150200 '())))) (declare (not safe)) - (cons __tmp148656 __tmp148652)))) + (cons __tmp150203 __tmp150199)))) (declare (not safe)) - (cons __tmp148659 __tmp148651)))) + (cons __tmp150206 __tmp150198)))) (declare (not safe)) (##unchecked-structure-set! - __obj147836 - __tmp148650 + __obj149383 + __tmp150197 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148662 - (let ((__tmp148671 - (let ((__tmp148672 |gx[1]#_g148673_|)) + (let ((__tmp150209 + (let ((__tmp150218 + (let ((__tmp150219 |gx[1]#_g150220_|)) (declare (not safe)) - (cons 'id __tmp148672))) - (__tmp148663 - (let ((__tmp148668 - (let ((__tmp148669 |gx[1]#_g148670_|)) + (cons 'id __tmp150219))) + (__tmp150210 + (let ((__tmp150215 + (let ((__tmp150216 |gx[1]#_g150217_|)) (declare (not safe)) - (cons 'key __tmp148669))) - (__tmp148664 - (let ((__tmp148665 - (let ((__tmp148666 |gx[1]#_g148667_|)) + (cons 'key __tmp150216))) + (__tmp150211 + (let ((__tmp150212 + (let ((__tmp150213 |gx[1]#_g150214_|)) (declare (not safe)) - (cons 'phi __tmp148666)))) + (cons 'phi __tmp150213)))) (declare (not safe)) - (cons __tmp148665 '())))) + (cons __tmp150212 '())))) (declare (not safe)) - (cons __tmp148668 __tmp148664)))) + (cons __tmp150215 __tmp150211)))) (declare (not safe)) - (cons __tmp148671 __tmp148663)))) + (cons __tmp150218 __tmp150210)))) (declare (not safe)) (##unchecked-structure-set! - __obj147836 - __tmp148662 + __obj149383 + __tmp150209 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148674 - (let ((__tmp148683 - (let ((__tmp148684 |gx[1]#_g148685_|)) + (let ((__tmp150221 + (let ((__tmp150230 + (let ((__tmp150231 |gx[1]#_g150232_|)) (declare (not safe)) - (cons 'id __tmp148684))) - (__tmp148675 - (let ((__tmp148680 - (let ((__tmp148681 |gx[1]#_g148682_|)) + (cons 'id __tmp150231))) + (__tmp150222 + (let ((__tmp150227 + (let ((__tmp150228 |gx[1]#_g150229_|)) (declare (not safe)) - (cons 'key __tmp148681))) - (__tmp148676 - (let ((__tmp148677 - (let ((__tmp148678 |gx[1]#_g148679_|)) + (cons 'key __tmp150228))) + (__tmp150223 + (let ((__tmp150224 + (let ((__tmp150225 |gx[1]#_g150226_|)) (declare (not safe)) - (cons 'phi __tmp148678)))) + (cons 'phi __tmp150225)))) (declare (not safe)) - (cons __tmp148677 '())))) + (cons __tmp150224 '())))) (declare (not safe)) - (cons __tmp148680 __tmp148676)))) + (cons __tmp150227 __tmp150223)))) (declare (not safe)) - (cons __tmp148683 __tmp148675)))) + (cons __tmp150230 __tmp150222)))) (declare (not safe)) (##unchecked-structure-set! - __obj147836 - __tmp148674 + __obj149383 + __tmp150221 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147836)) + __obj149383)) (define |gx[:0:]#local-binding| - (let ((__obj147837 + (let ((__obj149384 (let () (declare (not safe)) (##structure @@ -6112,7 +6112,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147837 + __obj149384 'gx#local-binding::t '1 gerbil/core$$#class-type-info::t @@ -6120,7 +6120,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147837 + __obj149384 'local-binding '2 gerbil/core$$#class-type-info::t @@ -6128,26 +6128,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147837 + __obj149384 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148686 - (let ((__tmp148687 |gx[1]#_g148688_|)) + (let ((__tmp150233 + (let ((__tmp150234 |gx[1]#_g150235_|)) (declare (not safe)) - (cons __tmp148687 '())))) + (cons __tmp150234 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147837 - __tmp148686 + __obj149384 + __tmp150233 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147837 + __obj149384 '#t '5 gerbil/core$$#class-type-info::t @@ -6155,7 +6155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147837 + __obj149384 '#f '6 gerbil/core$$#class-type-info::t @@ -6163,150 +6163,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147837 + __obj149384 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148689 |gx[1]#_g148690_|)) + (let ((__tmp150236 |gx[1]#_g150237_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147837 - __tmp148689 + __obj149384 + __tmp150236 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148691 |gx[1]#_g148692_|)) + (let ((__tmp150238 |gx[1]#_g150239_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147837 - __tmp148691 + __obj149384 + __tmp150238 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148693 |gx[1]#_g148694_|)) + (let ((__tmp150240 |gx[1]#_g150241_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147837 - __tmp148693 + __obj149384 + __tmp150240 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148695 - (let ((__tmp148704 - (let ((__tmp148705 |gx[1]#_g148706_|)) + (let ((__tmp150242 + (let ((__tmp150251 + (let ((__tmp150252 |gx[1]#_g150253_|)) (declare (not safe)) - (cons 'id __tmp148705))) - (__tmp148696 - (let ((__tmp148701 - (let ((__tmp148702 |gx[1]#_g148703_|)) + (cons 'id __tmp150252))) + (__tmp150243 + (let ((__tmp150248 + (let ((__tmp150249 |gx[1]#_g150250_|)) (declare (not safe)) - (cons 'key __tmp148702))) - (__tmp148697 - (let ((__tmp148698 - (let ((__tmp148699 |gx[1]#_g148700_|)) + (cons 'key __tmp150249))) + (__tmp150244 + (let ((__tmp150245 + (let ((__tmp150246 |gx[1]#_g150247_|)) (declare (not safe)) - (cons 'phi __tmp148699)))) + (cons 'phi __tmp150246)))) (declare (not safe)) - (cons __tmp148698 '())))) + (cons __tmp150245 '())))) (declare (not safe)) - (cons __tmp148701 __tmp148697)))) + (cons __tmp150248 __tmp150244)))) (declare (not safe)) - (cons __tmp148704 __tmp148696)))) + (cons __tmp150251 __tmp150243)))) (declare (not safe)) (##unchecked-structure-set! - __obj147837 - __tmp148695 + __obj149384 + __tmp150242 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148707 - (let ((__tmp148716 - (let ((__tmp148717 |gx[1]#_g148718_|)) + (let ((__tmp150254 + (let ((__tmp150263 + (let ((__tmp150264 |gx[1]#_g150265_|)) (declare (not safe)) - (cons 'id __tmp148717))) - (__tmp148708 - (let ((__tmp148713 - (let ((__tmp148714 |gx[1]#_g148715_|)) + (cons 'id __tmp150264))) + (__tmp150255 + (let ((__tmp150260 + (let ((__tmp150261 |gx[1]#_g150262_|)) (declare (not safe)) - (cons 'key __tmp148714))) - (__tmp148709 - (let ((__tmp148710 - (let ((__tmp148711 |gx[1]#_g148712_|)) + (cons 'key __tmp150261))) + (__tmp150256 + (let ((__tmp150257 + (let ((__tmp150258 |gx[1]#_g150259_|)) (declare (not safe)) - (cons 'phi __tmp148711)))) + (cons 'phi __tmp150258)))) (declare (not safe)) - (cons __tmp148710 '())))) + (cons __tmp150257 '())))) (declare (not safe)) - (cons __tmp148713 __tmp148709)))) + (cons __tmp150260 __tmp150256)))) (declare (not safe)) - (cons __tmp148716 __tmp148708)))) + (cons __tmp150263 __tmp150255)))) (declare (not safe)) (##unchecked-structure-set! - __obj147837 - __tmp148707 + __obj149384 + __tmp150254 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148719 - (let ((__tmp148728 - (let ((__tmp148729 |gx[1]#_g148730_|)) + (let ((__tmp150266 + (let ((__tmp150275 + (let ((__tmp150276 |gx[1]#_g150277_|)) (declare (not safe)) - (cons 'id __tmp148729))) - (__tmp148720 - (let ((__tmp148725 - (let ((__tmp148726 |gx[1]#_g148727_|)) + (cons 'id __tmp150276))) + (__tmp150267 + (let ((__tmp150272 + (let ((__tmp150273 |gx[1]#_g150274_|)) (declare (not safe)) - (cons 'key __tmp148726))) - (__tmp148721 - (let ((__tmp148722 - (let ((__tmp148723 |gx[1]#_g148724_|)) + (cons 'key __tmp150273))) + (__tmp150268 + (let ((__tmp150269 + (let ((__tmp150270 |gx[1]#_g150271_|)) (declare (not safe)) - (cons 'phi __tmp148723)))) + (cons 'phi __tmp150270)))) (declare (not safe)) - (cons __tmp148722 '())))) + (cons __tmp150269 '())))) (declare (not safe)) - (cons __tmp148725 __tmp148721)))) + (cons __tmp150272 __tmp150268)))) (declare (not safe)) - (cons __tmp148728 __tmp148720)))) + (cons __tmp150275 __tmp150267)))) (declare (not safe)) (##unchecked-structure-set! - __obj147837 - __tmp148719 + __obj149384 + __tmp150266 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148731 - (let ((__tmp148740 - (let ((__tmp148741 |gx[1]#_g148742_|)) + (let ((__tmp150278 + (let ((__tmp150287 + (let ((__tmp150288 |gx[1]#_g150289_|)) (declare (not safe)) - (cons 'id __tmp148741))) - (__tmp148732 - (let ((__tmp148737 - (let ((__tmp148738 |gx[1]#_g148739_|)) + (cons 'id __tmp150288))) + (__tmp150279 + (let ((__tmp150284 + (let ((__tmp150285 |gx[1]#_g150286_|)) (declare (not safe)) - (cons 'key __tmp148738))) - (__tmp148733 - (let ((__tmp148734 - (let ((__tmp148735 |gx[1]#_g148736_|)) + (cons 'key __tmp150285))) + (__tmp150280 + (let ((__tmp150281 + (let ((__tmp150282 |gx[1]#_g150283_|)) (declare (not safe)) - (cons 'phi __tmp148735)))) + (cons 'phi __tmp150282)))) (declare (not safe)) - (cons __tmp148734 '())))) + (cons __tmp150281 '())))) (declare (not safe)) - (cons __tmp148737 __tmp148733)))) + (cons __tmp150284 __tmp150280)))) (declare (not safe)) - (cons __tmp148740 __tmp148732)))) + (cons __tmp150287 __tmp150279)))) (declare (not safe)) (##unchecked-structure-set! - __obj147837 - __tmp148731 + __obj149384 + __tmp150278 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147837)) + __obj149384)) (define |gx[:0:]#top-binding| - (let ((__obj147838 + (let ((__obj149385 (let () (declare (not safe)) (##structure @@ -6328,7 +6328,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147838 + __obj149385 'gx#top-binding::t '1 gerbil/core$$#class-type-info::t @@ -6336,7 +6336,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147838 + __obj149385 'top-binding '2 gerbil/core$$#class-type-info::t @@ -6344,26 +6344,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147838 + __obj149385 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148743 - (let ((__tmp148744 |gx[1]#_g148688_|)) + (let ((__tmp150290 + (let ((__tmp150291 |gx[1]#_g150235_|)) (declare (not safe)) - (cons __tmp148744 '())))) + (cons __tmp150291 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147838 - __tmp148743 + __obj149385 + __tmp150290 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147838 + __obj149385 '#t '5 gerbil/core$$#class-type-info::t @@ -6371,7 +6371,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147838 + __obj149385 '#f '6 gerbil/core$$#class-type-info::t @@ -6379,150 +6379,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147838 + __obj149385 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148745 |gx[1]#_g148746_|)) + (let ((__tmp150292 |gx[1]#_g150293_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147838 - __tmp148745 + __obj149385 + __tmp150292 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148747 |gx[1]#_g148748_|)) + (let ((__tmp150294 |gx[1]#_g150295_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147838 - __tmp148747 + __obj149385 + __tmp150294 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148749 |gx[1]#_g148750_|)) + (let ((__tmp150296 |gx[1]#_g150297_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147838 - __tmp148749 + __obj149385 + __tmp150296 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148751 - (let ((__tmp148760 - (let ((__tmp148761 |gx[1]#_g148762_|)) + (let ((__tmp150298 + (let ((__tmp150307 + (let ((__tmp150308 |gx[1]#_g150309_|)) (declare (not safe)) - (cons 'id __tmp148761))) - (__tmp148752 - (let ((__tmp148757 - (let ((__tmp148758 |gx[1]#_g148759_|)) + (cons 'id __tmp150308))) + (__tmp150299 + (let ((__tmp150304 + (let ((__tmp150305 |gx[1]#_g150306_|)) (declare (not safe)) - (cons 'key __tmp148758))) - (__tmp148753 - (let ((__tmp148754 - (let ((__tmp148755 |gx[1]#_g148756_|)) + (cons 'key __tmp150305))) + (__tmp150300 + (let ((__tmp150301 + (let ((__tmp150302 |gx[1]#_g150303_|)) (declare (not safe)) - (cons 'phi __tmp148755)))) + (cons 'phi __tmp150302)))) (declare (not safe)) - (cons __tmp148754 '())))) + (cons __tmp150301 '())))) (declare (not safe)) - (cons __tmp148757 __tmp148753)))) + (cons __tmp150304 __tmp150300)))) (declare (not safe)) - (cons __tmp148760 __tmp148752)))) + (cons __tmp150307 __tmp150299)))) (declare (not safe)) (##unchecked-structure-set! - __obj147838 - __tmp148751 + __obj149385 + __tmp150298 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148763 - (let ((__tmp148772 - (let ((__tmp148773 |gx[1]#_g148774_|)) + (let ((__tmp150310 + (let ((__tmp150319 + (let ((__tmp150320 |gx[1]#_g150321_|)) (declare (not safe)) - (cons 'id __tmp148773))) - (__tmp148764 - (let ((__tmp148769 - (let ((__tmp148770 |gx[1]#_g148771_|)) + (cons 'id __tmp150320))) + (__tmp150311 + (let ((__tmp150316 + (let ((__tmp150317 |gx[1]#_g150318_|)) (declare (not safe)) - (cons 'key __tmp148770))) - (__tmp148765 - (let ((__tmp148766 - (let ((__tmp148767 |gx[1]#_g148768_|)) + (cons 'key __tmp150317))) + (__tmp150312 + (let ((__tmp150313 + (let ((__tmp150314 |gx[1]#_g150315_|)) (declare (not safe)) - (cons 'phi __tmp148767)))) + (cons 'phi __tmp150314)))) (declare (not safe)) - (cons __tmp148766 '())))) + (cons __tmp150313 '())))) (declare (not safe)) - (cons __tmp148769 __tmp148765)))) + (cons __tmp150316 __tmp150312)))) (declare (not safe)) - (cons __tmp148772 __tmp148764)))) + (cons __tmp150319 __tmp150311)))) (declare (not safe)) (##unchecked-structure-set! - __obj147838 - __tmp148763 + __obj149385 + __tmp150310 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148775 - (let ((__tmp148784 - (let ((__tmp148785 |gx[1]#_g148786_|)) + (let ((__tmp150322 + (let ((__tmp150331 + (let ((__tmp150332 |gx[1]#_g150333_|)) (declare (not safe)) - (cons 'id __tmp148785))) - (__tmp148776 - (let ((__tmp148781 - (let ((__tmp148782 |gx[1]#_g148783_|)) + (cons 'id __tmp150332))) + (__tmp150323 + (let ((__tmp150328 + (let ((__tmp150329 |gx[1]#_g150330_|)) (declare (not safe)) - (cons 'key __tmp148782))) - (__tmp148777 - (let ((__tmp148778 - (let ((__tmp148779 |gx[1]#_g148780_|)) + (cons 'key __tmp150329))) + (__tmp150324 + (let ((__tmp150325 + (let ((__tmp150326 |gx[1]#_g150327_|)) (declare (not safe)) - (cons 'phi __tmp148779)))) + (cons 'phi __tmp150326)))) (declare (not safe)) - (cons __tmp148778 '())))) + (cons __tmp150325 '())))) (declare (not safe)) - (cons __tmp148781 __tmp148777)))) + (cons __tmp150328 __tmp150324)))) (declare (not safe)) - (cons __tmp148784 __tmp148776)))) + (cons __tmp150331 __tmp150323)))) (declare (not safe)) (##unchecked-structure-set! - __obj147838 - __tmp148775 + __obj149385 + __tmp150322 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148787 - (let ((__tmp148796 - (let ((__tmp148797 |gx[1]#_g148798_|)) + (let ((__tmp150334 + (let ((__tmp150343 + (let ((__tmp150344 |gx[1]#_g150345_|)) (declare (not safe)) - (cons 'id __tmp148797))) - (__tmp148788 - (let ((__tmp148793 - (let ((__tmp148794 |gx[1]#_g148795_|)) + (cons 'id __tmp150344))) + (__tmp150335 + (let ((__tmp150340 + (let ((__tmp150341 |gx[1]#_g150342_|)) (declare (not safe)) - (cons 'key __tmp148794))) - (__tmp148789 - (let ((__tmp148790 - (let ((__tmp148791 |gx[1]#_g148792_|)) + (cons 'key __tmp150341))) + (__tmp150336 + (let ((__tmp150337 + (let ((__tmp150338 |gx[1]#_g150339_|)) (declare (not safe)) - (cons 'phi __tmp148791)))) + (cons 'phi __tmp150338)))) (declare (not safe)) - (cons __tmp148790 '())))) + (cons __tmp150337 '())))) (declare (not safe)) - (cons __tmp148793 __tmp148789)))) + (cons __tmp150340 __tmp150336)))) (declare (not safe)) - (cons __tmp148796 __tmp148788)))) + (cons __tmp150343 __tmp150335)))) (declare (not safe)) (##unchecked-structure-set! - __obj147838 - __tmp148787 + __obj149385 + __tmp150334 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147838)) + __obj149385)) (define |gx[:0:]#module-binding| - (let ((__obj147839 + (let ((__obj149386 (let () (declare (not safe)) (##structure @@ -6544,7 +6544,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147839 + __obj149386 'gx#module-binding::t '1 gerbil/core$$#class-type-info::t @@ -6552,7 +6552,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147839 + __obj149386 'module-binding '2 gerbil/core$$#class-type-info::t @@ -6560,26 +6560,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147839 + __obj149386 '(context) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148799 - (let ((__tmp148800 |gx[1]#_g148801_|)) + (let ((__tmp150346 + (let ((__tmp150347 |gx[1]#_g150348_|)) (declare (not safe)) - (cons __tmp148800 '())))) + (cons __tmp150347 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147839 - __tmp148799 + __obj149386 + __tmp150346 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147839 + __obj149386 '#t '5 gerbil/core$$#class-type-info::t @@ -6587,7 +6587,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147839 + __obj149386 '#f '6 gerbil/core$$#class-type-info::t @@ -6595,182 +6595,182 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147839 + __obj149386 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148802 |gx[1]#_g148803_|)) + (let ((__tmp150349 |gx[1]#_g150350_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147839 - __tmp148802 + __obj149386 + __tmp150349 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148804 |gx[1]#_g148805_|)) + (let ((__tmp150351 |gx[1]#_g150352_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147839 - __tmp148804 + __obj149386 + __tmp150351 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148806 |gx[1]#_g148807_|)) + (let ((__tmp150353 |gx[1]#_g150354_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147839 - __tmp148806 + __obj149386 + __tmp150353 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148808 - (let ((__tmp148821 - (let ((__tmp148822 |gx[1]#_g148823_|)) + (let ((__tmp150355 + (let ((__tmp150368 + (let ((__tmp150369 |gx[1]#_g150370_|)) (declare (not safe)) - (cons 'context __tmp148822))) - (__tmp148809 - (let ((__tmp148818 - (let ((__tmp148819 |gx[1]#_g148820_|)) + (cons 'context __tmp150369))) + (__tmp150356 + (let ((__tmp150365 + (let ((__tmp150366 |gx[1]#_g150367_|)) (declare (not safe)) - (cons 'id __tmp148819))) - (__tmp148810 - (let ((__tmp148815 - (let ((__tmp148816 |gx[1]#_g148817_|)) + (cons 'id __tmp150366))) + (__tmp150357 + (let ((__tmp150362 + (let ((__tmp150363 |gx[1]#_g150364_|)) (declare (not safe)) - (cons 'key __tmp148816))) - (__tmp148811 - (let ((__tmp148812 - (let ((__tmp148813 - |gx[1]#_g148814_|)) + (cons 'key __tmp150363))) + (__tmp150358 + (let ((__tmp150359 + (let ((__tmp150360 + |gx[1]#_g150361_|)) (declare (not safe)) - (cons 'phi __tmp148813)))) + (cons 'phi __tmp150360)))) (declare (not safe)) - (cons __tmp148812 '())))) + (cons __tmp150359 '())))) (declare (not safe)) - (cons __tmp148815 __tmp148811)))) + (cons __tmp150362 __tmp150358)))) (declare (not safe)) - (cons __tmp148818 __tmp148810)))) + (cons __tmp150365 __tmp150357)))) (declare (not safe)) - (cons __tmp148821 __tmp148809)))) + (cons __tmp150368 __tmp150356)))) (declare (not safe)) (##unchecked-structure-set! - __obj147839 - __tmp148808 + __obj149386 + __tmp150355 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148824 - (let ((__tmp148837 - (let ((__tmp148838 |gx[1]#_g148839_|)) + (let ((__tmp150371 + (let ((__tmp150384 + (let ((__tmp150385 |gx[1]#_g150386_|)) (declare (not safe)) - (cons 'context __tmp148838))) - (__tmp148825 - (let ((__tmp148834 - (let ((__tmp148835 |gx[1]#_g148836_|)) + (cons 'context __tmp150385))) + (__tmp150372 + (let ((__tmp150381 + (let ((__tmp150382 |gx[1]#_g150383_|)) (declare (not safe)) - (cons 'id __tmp148835))) - (__tmp148826 - (let ((__tmp148831 - (let ((__tmp148832 |gx[1]#_g148833_|)) + (cons 'id __tmp150382))) + (__tmp150373 + (let ((__tmp150378 + (let ((__tmp150379 |gx[1]#_g150380_|)) (declare (not safe)) - (cons 'key __tmp148832))) - (__tmp148827 - (let ((__tmp148828 - (let ((__tmp148829 - |gx[1]#_g148830_|)) + (cons 'key __tmp150379))) + (__tmp150374 + (let ((__tmp150375 + (let ((__tmp150376 + |gx[1]#_g150377_|)) (declare (not safe)) - (cons 'phi __tmp148829)))) + (cons 'phi __tmp150376)))) (declare (not safe)) - (cons __tmp148828 '())))) + (cons __tmp150375 '())))) (declare (not safe)) - (cons __tmp148831 __tmp148827)))) + (cons __tmp150378 __tmp150374)))) (declare (not safe)) - (cons __tmp148834 __tmp148826)))) + (cons __tmp150381 __tmp150373)))) (declare (not safe)) - (cons __tmp148837 __tmp148825)))) + (cons __tmp150384 __tmp150372)))) (declare (not safe)) (##unchecked-structure-set! - __obj147839 - __tmp148824 + __obj149386 + __tmp150371 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148840 - (let ((__tmp148853 - (let ((__tmp148854 |gx[1]#_g148855_|)) + (let ((__tmp150387 + (let ((__tmp150400 + (let ((__tmp150401 |gx[1]#_g150402_|)) (declare (not safe)) - (cons 'context __tmp148854))) - (__tmp148841 - (let ((__tmp148850 - (let ((__tmp148851 |gx[1]#_g148852_|)) + (cons 'context __tmp150401))) + (__tmp150388 + (let ((__tmp150397 + (let ((__tmp150398 |gx[1]#_g150399_|)) (declare (not safe)) - (cons 'id __tmp148851))) - (__tmp148842 - (let ((__tmp148847 - (let ((__tmp148848 |gx[1]#_g148849_|)) + (cons 'id __tmp150398))) + (__tmp150389 + (let ((__tmp150394 + (let ((__tmp150395 |gx[1]#_g150396_|)) (declare (not safe)) - (cons 'key __tmp148848))) - (__tmp148843 - (let ((__tmp148844 - (let ((__tmp148845 - |gx[1]#_g148846_|)) + (cons 'key __tmp150395))) + (__tmp150390 + (let ((__tmp150391 + (let ((__tmp150392 + |gx[1]#_g150393_|)) (declare (not safe)) - (cons 'phi __tmp148845)))) + (cons 'phi __tmp150392)))) (declare (not safe)) - (cons __tmp148844 '())))) + (cons __tmp150391 '())))) (declare (not safe)) - (cons __tmp148847 __tmp148843)))) + (cons __tmp150394 __tmp150390)))) (declare (not safe)) - (cons __tmp148850 __tmp148842)))) + (cons __tmp150397 __tmp150389)))) (declare (not safe)) - (cons __tmp148853 __tmp148841)))) + (cons __tmp150400 __tmp150388)))) (declare (not safe)) (##unchecked-structure-set! - __obj147839 - __tmp148840 + __obj149386 + __tmp150387 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148856 - (let ((__tmp148869 - (let ((__tmp148870 |gx[1]#_g148871_|)) + (let ((__tmp150403 + (let ((__tmp150416 + (let ((__tmp150417 |gx[1]#_g150418_|)) (declare (not safe)) - (cons 'context __tmp148870))) - (__tmp148857 - (let ((__tmp148866 - (let ((__tmp148867 |gx[1]#_g148868_|)) + (cons 'context __tmp150417))) + (__tmp150404 + (let ((__tmp150413 + (let ((__tmp150414 |gx[1]#_g150415_|)) (declare (not safe)) - (cons 'id __tmp148867))) - (__tmp148858 - (let ((__tmp148863 - (let ((__tmp148864 |gx[1]#_g148865_|)) + (cons 'id __tmp150414))) + (__tmp150405 + (let ((__tmp150410 + (let ((__tmp150411 |gx[1]#_g150412_|)) (declare (not safe)) - (cons 'key __tmp148864))) - (__tmp148859 - (let ((__tmp148860 - (let ((__tmp148861 - |gx[1]#_g148862_|)) + (cons 'key __tmp150411))) + (__tmp150406 + (let ((__tmp150407 + (let ((__tmp150408 + |gx[1]#_g150409_|)) (declare (not safe)) - (cons 'phi __tmp148861)))) + (cons 'phi __tmp150408)))) (declare (not safe)) - (cons __tmp148860 '())))) + (cons __tmp150407 '())))) (declare (not safe)) - (cons __tmp148863 __tmp148859)))) + (cons __tmp150410 __tmp150406)))) (declare (not safe)) - (cons __tmp148866 __tmp148858)))) + (cons __tmp150413 __tmp150405)))) (declare (not safe)) - (cons __tmp148869 __tmp148857)))) + (cons __tmp150416 __tmp150404)))) (declare (not safe)) (##unchecked-structure-set! - __obj147839 - __tmp148856 + __obj149386 + __tmp150403 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147839)) + __obj149386)) (define |gx[:0:]#extern-binding| - (let ((__obj147840 + (let ((__obj149387 (let () (declare (not safe)) (##structure @@ -6792,7 +6792,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147840 + __obj149387 'gx#extern-binding::t '1 gerbil/core$$#class-type-info::t @@ -6800,7 +6800,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147840 + __obj149387 'extern-binding '2 gerbil/core$$#class-type-info::t @@ -6808,26 +6808,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147840 + __obj149387 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148872 - (let ((__tmp148873 |gx[1]#_g148801_|)) + (let ((__tmp150419 + (let ((__tmp150420 |gx[1]#_g150348_|)) (declare (not safe)) - (cons __tmp148873 '())))) + (cons __tmp150420 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147840 - __tmp148872 + __obj149387 + __tmp150419 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147840 + __obj149387 '#t '5 gerbil/core$$#class-type-info::t @@ -6835,7 +6835,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147840 + __obj149387 '#f '6 gerbil/core$$#class-type-info::t @@ -6843,150 +6843,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147840 + __obj149387 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148874 |gx[1]#_g148875_|)) + (let ((__tmp150421 |gx[1]#_g150422_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147840 - __tmp148874 + __obj149387 + __tmp150421 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148876 |gx[1]#_g148877_|)) + (let ((__tmp150423 |gx[1]#_g150424_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147840 - __tmp148876 + __obj149387 + __tmp150423 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148878 |gx[1]#_g148879_|)) + (let ((__tmp150425 |gx[1]#_g150426_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147840 - __tmp148878 + __obj149387 + __tmp150425 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148880 - (let ((__tmp148889 - (let ((__tmp148890 |gx[1]#_g148891_|)) + (let ((__tmp150427 + (let ((__tmp150436 + (let ((__tmp150437 |gx[1]#_g150438_|)) (declare (not safe)) - (cons 'id __tmp148890))) - (__tmp148881 - (let ((__tmp148886 - (let ((__tmp148887 |gx[1]#_g148888_|)) + (cons 'id __tmp150437))) + (__tmp150428 + (let ((__tmp150433 + (let ((__tmp150434 |gx[1]#_g150435_|)) (declare (not safe)) - (cons 'key __tmp148887))) - (__tmp148882 - (let ((__tmp148883 - (let ((__tmp148884 |gx[1]#_g148885_|)) + (cons 'key __tmp150434))) + (__tmp150429 + (let ((__tmp150430 + (let ((__tmp150431 |gx[1]#_g150432_|)) (declare (not safe)) - (cons 'phi __tmp148884)))) + (cons 'phi __tmp150431)))) (declare (not safe)) - (cons __tmp148883 '())))) + (cons __tmp150430 '())))) (declare (not safe)) - (cons __tmp148886 __tmp148882)))) + (cons __tmp150433 __tmp150429)))) (declare (not safe)) - (cons __tmp148889 __tmp148881)))) + (cons __tmp150436 __tmp150428)))) (declare (not safe)) (##unchecked-structure-set! - __obj147840 - __tmp148880 + __obj149387 + __tmp150427 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148892 - (let ((__tmp148901 - (let ((__tmp148902 |gx[1]#_g148903_|)) + (let ((__tmp150439 + (let ((__tmp150448 + (let ((__tmp150449 |gx[1]#_g150450_|)) (declare (not safe)) - (cons 'id __tmp148902))) - (__tmp148893 - (let ((__tmp148898 - (let ((__tmp148899 |gx[1]#_g148900_|)) + (cons 'id __tmp150449))) + (__tmp150440 + (let ((__tmp150445 + (let ((__tmp150446 |gx[1]#_g150447_|)) (declare (not safe)) - (cons 'key __tmp148899))) - (__tmp148894 - (let ((__tmp148895 - (let ((__tmp148896 |gx[1]#_g148897_|)) + (cons 'key __tmp150446))) + (__tmp150441 + (let ((__tmp150442 + (let ((__tmp150443 |gx[1]#_g150444_|)) (declare (not safe)) - (cons 'phi __tmp148896)))) + (cons 'phi __tmp150443)))) (declare (not safe)) - (cons __tmp148895 '())))) + (cons __tmp150442 '())))) (declare (not safe)) - (cons __tmp148898 __tmp148894)))) + (cons __tmp150445 __tmp150441)))) (declare (not safe)) - (cons __tmp148901 __tmp148893)))) + (cons __tmp150448 __tmp150440)))) (declare (not safe)) (##unchecked-structure-set! - __obj147840 - __tmp148892 + __obj149387 + __tmp150439 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148904 - (let ((__tmp148913 - (let ((__tmp148914 |gx[1]#_g148915_|)) + (let ((__tmp150451 + (let ((__tmp150460 + (let ((__tmp150461 |gx[1]#_g150462_|)) (declare (not safe)) - (cons 'id __tmp148914))) - (__tmp148905 - (let ((__tmp148910 - (let ((__tmp148911 |gx[1]#_g148912_|)) + (cons 'id __tmp150461))) + (__tmp150452 + (let ((__tmp150457 + (let ((__tmp150458 |gx[1]#_g150459_|)) (declare (not safe)) - (cons 'key __tmp148911))) - (__tmp148906 - (let ((__tmp148907 - (let ((__tmp148908 |gx[1]#_g148909_|)) + (cons 'key __tmp150458))) + (__tmp150453 + (let ((__tmp150454 + (let ((__tmp150455 |gx[1]#_g150456_|)) (declare (not safe)) - (cons 'phi __tmp148908)))) + (cons 'phi __tmp150455)))) (declare (not safe)) - (cons __tmp148907 '())))) + (cons __tmp150454 '())))) (declare (not safe)) - (cons __tmp148910 __tmp148906)))) + (cons __tmp150457 __tmp150453)))) (declare (not safe)) - (cons __tmp148913 __tmp148905)))) + (cons __tmp150460 __tmp150452)))) (declare (not safe)) (##unchecked-structure-set! - __obj147840 - __tmp148904 + __obj149387 + __tmp150451 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148916 - (let ((__tmp148925 - (let ((__tmp148926 |gx[1]#_g148927_|)) + (let ((__tmp150463 + (let ((__tmp150472 + (let ((__tmp150473 |gx[1]#_g150474_|)) (declare (not safe)) - (cons 'id __tmp148926))) - (__tmp148917 - (let ((__tmp148922 - (let ((__tmp148923 |gx[1]#_g148924_|)) + (cons 'id __tmp150473))) + (__tmp150464 + (let ((__tmp150469 + (let ((__tmp150470 |gx[1]#_g150471_|)) (declare (not safe)) - (cons 'key __tmp148923))) - (__tmp148918 - (let ((__tmp148919 - (let ((__tmp148920 |gx[1]#_g148921_|)) + (cons 'key __tmp150470))) + (__tmp150465 + (let ((__tmp150466 + (let ((__tmp150467 |gx[1]#_g150468_|)) (declare (not safe)) - (cons 'phi __tmp148920)))) + (cons 'phi __tmp150467)))) (declare (not safe)) - (cons __tmp148919 '())))) + (cons __tmp150466 '())))) (declare (not safe)) - (cons __tmp148922 __tmp148918)))) + (cons __tmp150469 __tmp150465)))) (declare (not safe)) - (cons __tmp148925 __tmp148917)))) + (cons __tmp150472 __tmp150464)))) (declare (not safe)) (##unchecked-structure-set! - __obj147840 - __tmp148916 + __obj149387 + __tmp150463 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147840)) + __obj149387)) (define |gx[:0:]#syntax-binding| - (let ((__obj147841 + (let ((__obj149388 (let () (declare (not safe)) (##structure @@ -7008,7 +7008,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147841 + __obj149388 'gx#syntax-binding::t '1 gerbil/core$$#class-type-info::t @@ -7016,7 +7016,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147841 + __obj149388 'syntax-binding '2 gerbil/core$$#class-type-info::t @@ -7024,26 +7024,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147841 + __obj149388 '(e) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148928 - (let ((__tmp148929 |gx[1]#_g148631_|)) + (let ((__tmp150475 + (let ((__tmp150476 |gx[1]#_g150178_|)) (declare (not safe)) - (cons __tmp148929 '())))) + (cons __tmp150476 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147841 - __tmp148928 + __obj149388 + __tmp150475 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147841 + __obj149388 '#t '5 gerbil/core$$#class-type-info::t @@ -7051,7 +7051,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147841 + __obj149388 '#t '6 gerbil/core$$#class-type-info::t @@ -7059,182 +7059,182 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147841 + __obj149388 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148930 |gx[1]#_g148931_|)) + (let ((__tmp150477 |gx[1]#_g150478_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147841 - __tmp148930 + __obj149388 + __tmp150477 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148932 |gx[1]#_g148933_|)) + (let ((__tmp150479 |gx[1]#_g150480_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147841 - __tmp148932 + __obj149388 + __tmp150479 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148934 |gx[1]#_g148935_|)) + (let ((__tmp150481 |gx[1]#_g150482_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147841 - __tmp148934 + __obj149388 + __tmp150481 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148936 - (let ((__tmp148949 - (let ((__tmp148950 |gx[1]#_g148951_|)) + (let ((__tmp150483 + (let ((__tmp150496 + (let ((__tmp150497 |gx[1]#_g150498_|)) (declare (not safe)) - (cons 'e __tmp148950))) - (__tmp148937 - (let ((__tmp148946 - (let ((__tmp148947 |gx[1]#_g148948_|)) + (cons 'e __tmp150497))) + (__tmp150484 + (let ((__tmp150493 + (let ((__tmp150494 |gx[1]#_g150495_|)) (declare (not safe)) - (cons 'id __tmp148947))) - (__tmp148938 - (let ((__tmp148943 - (let ((__tmp148944 |gx[1]#_g148945_|)) + (cons 'id __tmp150494))) + (__tmp150485 + (let ((__tmp150490 + (let ((__tmp150491 |gx[1]#_g150492_|)) (declare (not safe)) - (cons 'key __tmp148944))) - (__tmp148939 - (let ((__tmp148940 - (let ((__tmp148941 - |gx[1]#_g148942_|)) + (cons 'key __tmp150491))) + (__tmp150486 + (let ((__tmp150487 + (let ((__tmp150488 + |gx[1]#_g150489_|)) (declare (not safe)) - (cons 'phi __tmp148941)))) + (cons 'phi __tmp150488)))) (declare (not safe)) - (cons __tmp148940 '())))) + (cons __tmp150487 '())))) (declare (not safe)) - (cons __tmp148943 __tmp148939)))) + (cons __tmp150490 __tmp150486)))) (declare (not safe)) - (cons __tmp148946 __tmp148938)))) + (cons __tmp150493 __tmp150485)))) (declare (not safe)) - (cons __tmp148949 __tmp148937)))) + (cons __tmp150496 __tmp150484)))) (declare (not safe)) (##unchecked-structure-set! - __obj147841 - __tmp148936 + __obj149388 + __tmp150483 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148952 - (let ((__tmp148965 - (let ((__tmp148966 |gx[1]#_g148967_|)) + (let ((__tmp150499 + (let ((__tmp150512 + (let ((__tmp150513 |gx[1]#_g150514_|)) (declare (not safe)) - (cons 'e __tmp148966))) - (__tmp148953 - (let ((__tmp148962 - (let ((__tmp148963 |gx[1]#_g148964_|)) + (cons 'e __tmp150513))) + (__tmp150500 + (let ((__tmp150509 + (let ((__tmp150510 |gx[1]#_g150511_|)) (declare (not safe)) - (cons 'id __tmp148963))) - (__tmp148954 - (let ((__tmp148959 - (let ((__tmp148960 |gx[1]#_g148961_|)) + (cons 'id __tmp150510))) + (__tmp150501 + (let ((__tmp150506 + (let ((__tmp150507 |gx[1]#_g150508_|)) (declare (not safe)) - (cons 'key __tmp148960))) - (__tmp148955 - (let ((__tmp148956 - (let ((__tmp148957 - |gx[1]#_g148958_|)) + (cons 'key __tmp150507))) + (__tmp150502 + (let ((__tmp150503 + (let ((__tmp150504 + |gx[1]#_g150505_|)) (declare (not safe)) - (cons 'phi __tmp148957)))) + (cons 'phi __tmp150504)))) (declare (not safe)) - (cons __tmp148956 '())))) + (cons __tmp150503 '())))) (declare (not safe)) - (cons __tmp148959 __tmp148955)))) + (cons __tmp150506 __tmp150502)))) (declare (not safe)) - (cons __tmp148962 __tmp148954)))) + (cons __tmp150509 __tmp150501)))) (declare (not safe)) - (cons __tmp148965 __tmp148953)))) + (cons __tmp150512 __tmp150500)))) (declare (not safe)) (##unchecked-structure-set! - __obj147841 - __tmp148952 + __obj149388 + __tmp150499 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148968 - (let ((__tmp148981 - (let ((__tmp148982 |gx[1]#_g148983_|)) + (let ((__tmp150515 + (let ((__tmp150528 + (let ((__tmp150529 |gx[1]#_g150530_|)) (declare (not safe)) - (cons 'e __tmp148982))) - (__tmp148969 - (let ((__tmp148978 - (let ((__tmp148979 |gx[1]#_g148980_|)) + (cons 'e __tmp150529))) + (__tmp150516 + (let ((__tmp150525 + (let ((__tmp150526 |gx[1]#_g150527_|)) (declare (not safe)) - (cons 'id __tmp148979))) - (__tmp148970 - (let ((__tmp148975 - (let ((__tmp148976 |gx[1]#_g148977_|)) + (cons 'id __tmp150526))) + (__tmp150517 + (let ((__tmp150522 + (let ((__tmp150523 |gx[1]#_g150524_|)) (declare (not safe)) - (cons 'key __tmp148976))) - (__tmp148971 - (let ((__tmp148972 - (let ((__tmp148973 - |gx[1]#_g148974_|)) + (cons 'key __tmp150523))) + (__tmp150518 + (let ((__tmp150519 + (let ((__tmp150520 + |gx[1]#_g150521_|)) (declare (not safe)) - (cons 'phi __tmp148973)))) + (cons 'phi __tmp150520)))) (declare (not safe)) - (cons __tmp148972 '())))) + (cons __tmp150519 '())))) (declare (not safe)) - (cons __tmp148975 __tmp148971)))) + (cons __tmp150522 __tmp150518)))) (declare (not safe)) - (cons __tmp148978 __tmp148970)))) + (cons __tmp150525 __tmp150517)))) (declare (not safe)) - (cons __tmp148981 __tmp148969)))) + (cons __tmp150528 __tmp150516)))) (declare (not safe)) (##unchecked-structure-set! - __obj147841 - __tmp148968 + __obj149388 + __tmp150515 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp148984 - (let ((__tmp148997 - (let ((__tmp148998 |gx[1]#_g148999_|)) + (let ((__tmp150531 + (let ((__tmp150544 + (let ((__tmp150545 |gx[1]#_g150546_|)) (declare (not safe)) - (cons 'e __tmp148998))) - (__tmp148985 - (let ((__tmp148994 - (let ((__tmp148995 |gx[1]#_g148996_|)) + (cons 'e __tmp150545))) + (__tmp150532 + (let ((__tmp150541 + (let ((__tmp150542 |gx[1]#_g150543_|)) (declare (not safe)) - (cons 'id __tmp148995))) - (__tmp148986 - (let ((__tmp148991 - (let ((__tmp148992 |gx[1]#_g148993_|)) + (cons 'id __tmp150542))) + (__tmp150533 + (let ((__tmp150538 + (let ((__tmp150539 |gx[1]#_g150540_|)) (declare (not safe)) - (cons 'key __tmp148992))) - (__tmp148987 - (let ((__tmp148988 - (let ((__tmp148989 - |gx[1]#_g148990_|)) + (cons 'key __tmp150539))) + (__tmp150534 + (let ((__tmp150535 + (let ((__tmp150536 + |gx[1]#_g150537_|)) (declare (not safe)) - (cons 'phi __tmp148989)))) + (cons 'phi __tmp150536)))) (declare (not safe)) - (cons __tmp148988 '())))) + (cons __tmp150535 '())))) (declare (not safe)) - (cons __tmp148991 __tmp148987)))) + (cons __tmp150538 __tmp150534)))) (declare (not safe)) - (cons __tmp148994 __tmp148986)))) + (cons __tmp150541 __tmp150533)))) (declare (not safe)) - (cons __tmp148997 __tmp148985)))) + (cons __tmp150544 __tmp150532)))) (declare (not safe)) (##unchecked-structure-set! - __obj147841 - __tmp148984 + __obj149388 + __tmp150531 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147841)) + __obj149388)) (define |gx[:0:]#import-binding| - (let ((__obj147842 + (let ((__obj149389 (let () (declare (not safe)) (##structure @@ -7256,7 +7256,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147842 + __obj149389 'gx#import-binding::t '1 gerbil/core$$#class-type-info::t @@ -7264,7 +7264,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147842 + __obj149389 'import-binding '2 gerbil/core$$#class-type-info::t @@ -7272,26 +7272,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147842 + __obj149389 '(e context weak?) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149000 - (let ((__tmp149001 |gx[1]#_g148631_|)) + (let ((__tmp150547 + (let ((__tmp150548 |gx[1]#_g150178_|)) (declare (not safe)) - (cons __tmp149001 '())))) + (cons __tmp150548 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147842 - __tmp149000 + __obj149389 + __tmp150547 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147842 + __obj149389 '#t '5 gerbil/core$$#class-type-info::t @@ -7299,7 +7299,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147842 + __obj149389 '#t '6 gerbil/core$$#class-type-info::t @@ -7307,258 +7307,258 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147842 + __obj149389 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149002 |gx[1]#_g149003_|)) + (let ((__tmp150549 |gx[1]#_g150550_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147842 - __tmp149002 + __obj149389 + __tmp150549 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149004 |gx[1]#_g149005_|)) + (let ((__tmp150551 |gx[1]#_g150552_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147842 - __tmp149004 + __obj149389 + __tmp150551 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149006 |gx[1]#_g149007_|)) + (let ((__tmp150553 |gx[1]#_g150554_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147842 - __tmp149006 + __obj149389 + __tmp150553 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149008 - (let ((__tmp149029 - (let ((__tmp149030 |gx[1]#_g149031_|)) + (let ((__tmp150555 + (let ((__tmp150576 + (let ((__tmp150577 |gx[1]#_g150578_|)) (declare (not safe)) - (cons 'e __tmp149030))) - (__tmp149009 - (let ((__tmp149026 - (let ((__tmp149027 |gx[1]#_g149028_|)) + (cons 'e __tmp150577))) + (__tmp150556 + (let ((__tmp150573 + (let ((__tmp150574 |gx[1]#_g150575_|)) (declare (not safe)) - (cons 'context __tmp149027))) - (__tmp149010 - (let ((__tmp149023 - (let ((__tmp149024 |gx[1]#_g149025_|)) + (cons 'context __tmp150574))) + (__tmp150557 + (let ((__tmp150570 + (let ((__tmp150571 |gx[1]#_g150572_|)) (declare (not safe)) - (cons 'weak? __tmp149024))) - (__tmp149011 - (let ((__tmp149020 - (let ((__tmp149021 - |gx[1]#_g149022_|)) + (cons 'weak? __tmp150571))) + (__tmp150558 + (let ((__tmp150567 + (let ((__tmp150568 + |gx[1]#_g150569_|)) (declare (not safe)) - (cons 'id __tmp149021))) - (__tmp149012 - (let ((__tmp149017 - (let ((__tmp149018 - |gx[1]#_g149019_|)) + (cons 'id __tmp150568))) + (__tmp150559 + (let ((__tmp150564 + (let ((__tmp150565 + |gx[1]#_g150566_|)) (declare (not safe)) - (cons 'key __tmp149018))) - (__tmp149013 - (let ((__tmp149014 - (let ((__tmp149015 - |gx[1]#_g149016_|)) + (cons 'key __tmp150565))) + (__tmp150560 + (let ((__tmp150561 + (let ((__tmp150562 + |gx[1]#_g150563_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp149015)))) + __tmp150562)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp149014 '())))) + (cons __tmp150561 '())))) (declare (not safe)) - (cons __tmp149017 __tmp149013)))) + (cons __tmp150564 __tmp150560)))) (declare (not safe)) - (cons __tmp149020 __tmp149012)))) + (cons __tmp150567 __tmp150559)))) (declare (not safe)) - (cons __tmp149023 __tmp149011)))) + (cons __tmp150570 __tmp150558)))) (declare (not safe)) - (cons __tmp149026 __tmp149010)))) + (cons __tmp150573 __tmp150557)))) (declare (not safe)) - (cons __tmp149029 __tmp149009)))) + (cons __tmp150576 __tmp150556)))) (declare (not safe)) (##unchecked-structure-set! - __obj147842 - __tmp149008 + __obj149389 + __tmp150555 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149032 - (let ((__tmp149053 - (let ((__tmp149054 |gx[1]#_g149055_|)) + (let ((__tmp150579 + (let ((__tmp150600 + (let ((__tmp150601 |gx[1]#_g150602_|)) (declare (not safe)) - (cons 'e __tmp149054))) - (__tmp149033 - (let ((__tmp149050 - (let ((__tmp149051 |gx[1]#_g149052_|)) + (cons 'e __tmp150601))) + (__tmp150580 + (let ((__tmp150597 + (let ((__tmp150598 |gx[1]#_g150599_|)) (declare (not safe)) - (cons 'context __tmp149051))) - (__tmp149034 - (let ((__tmp149047 - (let ((__tmp149048 |gx[1]#_g149049_|)) + (cons 'context __tmp150598))) + (__tmp150581 + (let ((__tmp150594 + (let ((__tmp150595 |gx[1]#_g150596_|)) (declare (not safe)) - (cons 'weak? __tmp149048))) - (__tmp149035 - (let ((__tmp149044 - (let ((__tmp149045 - |gx[1]#_g149046_|)) + (cons 'weak? __tmp150595))) + (__tmp150582 + (let ((__tmp150591 + (let ((__tmp150592 + |gx[1]#_g150593_|)) (declare (not safe)) - (cons 'id __tmp149045))) - (__tmp149036 - (let ((__tmp149041 - (let ((__tmp149042 - |gx[1]#_g149043_|)) + (cons 'id __tmp150592))) + (__tmp150583 + (let ((__tmp150588 + (let ((__tmp150589 + |gx[1]#_g150590_|)) (declare (not safe)) - (cons 'key __tmp149042))) - (__tmp149037 - (let ((__tmp149038 - (let ((__tmp149039 - |gx[1]#_g149040_|)) + (cons 'key __tmp150589))) + (__tmp150584 + (let ((__tmp150585 + (let ((__tmp150586 + |gx[1]#_g150587_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp149039)))) + __tmp150586)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp149038 '())))) + (cons __tmp150585 '())))) (declare (not safe)) - (cons __tmp149041 __tmp149037)))) + (cons __tmp150588 __tmp150584)))) (declare (not safe)) - (cons __tmp149044 __tmp149036)))) + (cons __tmp150591 __tmp150583)))) (declare (not safe)) - (cons __tmp149047 __tmp149035)))) + (cons __tmp150594 __tmp150582)))) (declare (not safe)) - (cons __tmp149050 __tmp149034)))) + (cons __tmp150597 __tmp150581)))) (declare (not safe)) - (cons __tmp149053 __tmp149033)))) + (cons __tmp150600 __tmp150580)))) (declare (not safe)) (##unchecked-structure-set! - __obj147842 - __tmp149032 + __obj149389 + __tmp150579 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149056 - (let ((__tmp149077 - (let ((__tmp149078 |gx[1]#_g149079_|)) + (let ((__tmp150603 + (let ((__tmp150624 + (let ((__tmp150625 |gx[1]#_g150626_|)) (declare (not safe)) - (cons 'e __tmp149078))) - (__tmp149057 - (let ((__tmp149074 - (let ((__tmp149075 |gx[1]#_g149076_|)) + (cons 'e __tmp150625))) + (__tmp150604 + (let ((__tmp150621 + (let ((__tmp150622 |gx[1]#_g150623_|)) (declare (not safe)) - (cons 'context __tmp149075))) - (__tmp149058 - (let ((__tmp149071 - (let ((__tmp149072 |gx[1]#_g149073_|)) + (cons 'context __tmp150622))) + (__tmp150605 + (let ((__tmp150618 + (let ((__tmp150619 |gx[1]#_g150620_|)) (declare (not safe)) - (cons 'weak? __tmp149072))) - (__tmp149059 - (let ((__tmp149068 - (let ((__tmp149069 - |gx[1]#_g149070_|)) + (cons 'weak? __tmp150619))) + (__tmp150606 + (let ((__tmp150615 + (let ((__tmp150616 + |gx[1]#_g150617_|)) (declare (not safe)) - (cons 'id __tmp149069))) - (__tmp149060 - (let ((__tmp149065 - (let ((__tmp149066 - |gx[1]#_g149067_|)) + (cons 'id __tmp150616))) + (__tmp150607 + (let ((__tmp150612 + (let ((__tmp150613 + |gx[1]#_g150614_|)) (declare (not safe)) - (cons 'key __tmp149066))) - (__tmp149061 - (let ((__tmp149062 - (let ((__tmp149063 - |gx[1]#_g149064_|)) + (cons 'key __tmp150613))) + (__tmp150608 + (let ((__tmp150609 + (let ((__tmp150610 + |gx[1]#_g150611_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp149063)))) + __tmp150610)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp149062 '())))) + (cons __tmp150609 '())))) (declare (not safe)) - (cons __tmp149065 __tmp149061)))) + (cons __tmp150612 __tmp150608)))) (declare (not safe)) - (cons __tmp149068 __tmp149060)))) + (cons __tmp150615 __tmp150607)))) (declare (not safe)) - (cons __tmp149071 __tmp149059)))) + (cons __tmp150618 __tmp150606)))) (declare (not safe)) - (cons __tmp149074 __tmp149058)))) + (cons __tmp150621 __tmp150605)))) (declare (not safe)) - (cons __tmp149077 __tmp149057)))) + (cons __tmp150624 __tmp150604)))) (declare (not safe)) (##unchecked-structure-set! - __obj147842 - __tmp149056 + __obj149389 + __tmp150603 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149080 - (let ((__tmp149101 - (let ((__tmp149102 |gx[1]#_g149103_|)) + (let ((__tmp150627 + (let ((__tmp150648 + (let ((__tmp150649 |gx[1]#_g150650_|)) (declare (not safe)) - (cons 'e __tmp149102))) - (__tmp149081 - (let ((__tmp149098 - (let ((__tmp149099 |gx[1]#_g149100_|)) + (cons 'e __tmp150649))) + (__tmp150628 + (let ((__tmp150645 + (let ((__tmp150646 |gx[1]#_g150647_|)) (declare (not safe)) - (cons 'context __tmp149099))) - (__tmp149082 - (let ((__tmp149095 - (let ((__tmp149096 |gx[1]#_g149097_|)) + (cons 'context __tmp150646))) + (__tmp150629 + (let ((__tmp150642 + (let ((__tmp150643 |gx[1]#_g150644_|)) (declare (not safe)) - (cons 'weak? __tmp149096))) - (__tmp149083 - (let ((__tmp149092 - (let ((__tmp149093 - |gx[1]#_g149094_|)) + (cons 'weak? __tmp150643))) + (__tmp150630 + (let ((__tmp150639 + (let ((__tmp150640 + |gx[1]#_g150641_|)) (declare (not safe)) - (cons 'id __tmp149093))) - (__tmp149084 - (let ((__tmp149089 - (let ((__tmp149090 - |gx[1]#_g149091_|)) + (cons 'id __tmp150640))) + (__tmp150631 + (let ((__tmp150636 + (let ((__tmp150637 + |gx[1]#_g150638_|)) (declare (not safe)) - (cons 'key __tmp149090))) - (__tmp149085 - (let ((__tmp149086 - (let ((__tmp149087 - |gx[1]#_g149088_|)) + (cons 'key __tmp150637))) + (__tmp150632 + (let ((__tmp150633 + (let ((__tmp150634 + |gx[1]#_g150635_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp149087)))) + __tmp150634)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp149086 '())))) + (cons __tmp150633 '())))) (declare (not safe)) - (cons __tmp149089 __tmp149085)))) + (cons __tmp150636 __tmp150632)))) (declare (not safe)) - (cons __tmp149092 __tmp149084)))) + (cons __tmp150639 __tmp150631)))) (declare (not safe)) - (cons __tmp149095 __tmp149083)))) + (cons __tmp150642 __tmp150630)))) (declare (not safe)) - (cons __tmp149098 __tmp149082)))) + (cons __tmp150645 __tmp150629)))) (declare (not safe)) - (cons __tmp149101 __tmp149081)))) + (cons __tmp150648 __tmp150628)))) (declare (not safe)) (##unchecked-structure-set! - __obj147842 - __tmp149080 + __obj149389 + __tmp150627 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147842)) + __obj149389)) (define |gx[:0:]#alias-binding| - (let ((__obj147843 + (let ((__obj149390 (let () (declare (not safe)) (##structure @@ -7580,7 +7580,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147843 + __obj149390 'gx#alias-binding::t '1 gerbil/core$$#class-type-info::t @@ -7588,7 +7588,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147843 + __obj149390 'alias-binding '2 gerbil/core$$#class-type-info::t @@ -7596,26 +7596,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147843 + __obj149390 '(e) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149104 - (let ((__tmp149105 |gx[1]#_g148631_|)) + (let ((__tmp150651 + (let ((__tmp150652 |gx[1]#_g150178_|)) (declare (not safe)) - (cons __tmp149105 '())))) + (cons __tmp150652 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147843 - __tmp149104 + __obj149390 + __tmp150651 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147843 + __obj149390 '#t '5 gerbil/core$$#class-type-info::t @@ -7623,7 +7623,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147843 + __obj149390 '#t '6 gerbil/core$$#class-type-info::t @@ -7631,182 +7631,182 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147843 + __obj149390 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149106 |gx[1]#_g149107_|)) + (let ((__tmp150653 |gx[1]#_g150654_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147843 - __tmp149106 + __obj149390 + __tmp150653 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149108 |gx[1]#_g149109_|)) + (let ((__tmp150655 |gx[1]#_g150656_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147843 - __tmp149108 + __obj149390 + __tmp150655 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149110 |gx[1]#_g149111_|)) + (let ((__tmp150657 |gx[1]#_g150658_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147843 - __tmp149110 + __obj149390 + __tmp150657 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149112 - (let ((__tmp149125 - (let ((__tmp149126 |gx[1]#_g149127_|)) + (let ((__tmp150659 + (let ((__tmp150672 + (let ((__tmp150673 |gx[1]#_g150674_|)) (declare (not safe)) - (cons 'e __tmp149126))) - (__tmp149113 - (let ((__tmp149122 - (let ((__tmp149123 |gx[1]#_g149124_|)) + (cons 'e __tmp150673))) + (__tmp150660 + (let ((__tmp150669 + (let ((__tmp150670 |gx[1]#_g150671_|)) (declare (not safe)) - (cons 'id __tmp149123))) - (__tmp149114 - (let ((__tmp149119 - (let ((__tmp149120 |gx[1]#_g149121_|)) + (cons 'id __tmp150670))) + (__tmp150661 + (let ((__tmp150666 + (let ((__tmp150667 |gx[1]#_g150668_|)) (declare (not safe)) - (cons 'key __tmp149120))) - (__tmp149115 - (let ((__tmp149116 - (let ((__tmp149117 - |gx[1]#_g149118_|)) + (cons 'key __tmp150667))) + (__tmp150662 + (let ((__tmp150663 + (let ((__tmp150664 + |gx[1]#_g150665_|)) (declare (not safe)) - (cons 'phi __tmp149117)))) + (cons 'phi __tmp150664)))) (declare (not safe)) - (cons __tmp149116 '())))) + (cons __tmp150663 '())))) (declare (not safe)) - (cons __tmp149119 __tmp149115)))) + (cons __tmp150666 __tmp150662)))) (declare (not safe)) - (cons __tmp149122 __tmp149114)))) + (cons __tmp150669 __tmp150661)))) (declare (not safe)) - (cons __tmp149125 __tmp149113)))) + (cons __tmp150672 __tmp150660)))) (declare (not safe)) (##unchecked-structure-set! - __obj147843 - __tmp149112 + __obj149390 + __tmp150659 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149128 - (let ((__tmp149141 - (let ((__tmp149142 |gx[1]#_g149143_|)) + (let ((__tmp150675 + (let ((__tmp150688 + (let ((__tmp150689 |gx[1]#_g150690_|)) (declare (not safe)) - (cons 'e __tmp149142))) - (__tmp149129 - (let ((__tmp149138 - (let ((__tmp149139 |gx[1]#_g149140_|)) + (cons 'e __tmp150689))) + (__tmp150676 + (let ((__tmp150685 + (let ((__tmp150686 |gx[1]#_g150687_|)) (declare (not safe)) - (cons 'id __tmp149139))) - (__tmp149130 - (let ((__tmp149135 - (let ((__tmp149136 |gx[1]#_g149137_|)) + (cons 'id __tmp150686))) + (__tmp150677 + (let ((__tmp150682 + (let ((__tmp150683 |gx[1]#_g150684_|)) (declare (not safe)) - (cons 'key __tmp149136))) - (__tmp149131 - (let ((__tmp149132 - (let ((__tmp149133 - |gx[1]#_g149134_|)) + (cons 'key __tmp150683))) + (__tmp150678 + (let ((__tmp150679 + (let ((__tmp150680 + |gx[1]#_g150681_|)) (declare (not safe)) - (cons 'phi __tmp149133)))) + (cons 'phi __tmp150680)))) (declare (not safe)) - (cons __tmp149132 '())))) + (cons __tmp150679 '())))) (declare (not safe)) - (cons __tmp149135 __tmp149131)))) + (cons __tmp150682 __tmp150678)))) (declare (not safe)) - (cons __tmp149138 __tmp149130)))) + (cons __tmp150685 __tmp150677)))) (declare (not safe)) - (cons __tmp149141 __tmp149129)))) + (cons __tmp150688 __tmp150676)))) (declare (not safe)) (##unchecked-structure-set! - __obj147843 - __tmp149128 + __obj149390 + __tmp150675 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149144 - (let ((__tmp149157 - (let ((__tmp149158 |gx[1]#_g149159_|)) + (let ((__tmp150691 + (let ((__tmp150704 + (let ((__tmp150705 |gx[1]#_g150706_|)) (declare (not safe)) - (cons 'e __tmp149158))) - (__tmp149145 - (let ((__tmp149154 - (let ((__tmp149155 |gx[1]#_g149156_|)) + (cons 'e __tmp150705))) + (__tmp150692 + (let ((__tmp150701 + (let ((__tmp150702 |gx[1]#_g150703_|)) (declare (not safe)) - (cons 'id __tmp149155))) - (__tmp149146 - (let ((__tmp149151 - (let ((__tmp149152 |gx[1]#_g149153_|)) + (cons 'id __tmp150702))) + (__tmp150693 + (let ((__tmp150698 + (let ((__tmp150699 |gx[1]#_g150700_|)) (declare (not safe)) - (cons 'key __tmp149152))) - (__tmp149147 - (let ((__tmp149148 - (let ((__tmp149149 - |gx[1]#_g149150_|)) + (cons 'key __tmp150699))) + (__tmp150694 + (let ((__tmp150695 + (let ((__tmp150696 + |gx[1]#_g150697_|)) (declare (not safe)) - (cons 'phi __tmp149149)))) + (cons 'phi __tmp150696)))) (declare (not safe)) - (cons __tmp149148 '())))) + (cons __tmp150695 '())))) (declare (not safe)) - (cons __tmp149151 __tmp149147)))) + (cons __tmp150698 __tmp150694)))) (declare (not safe)) - (cons __tmp149154 __tmp149146)))) + (cons __tmp150701 __tmp150693)))) (declare (not safe)) - (cons __tmp149157 __tmp149145)))) + (cons __tmp150704 __tmp150692)))) (declare (not safe)) (##unchecked-structure-set! - __obj147843 - __tmp149144 + __obj149390 + __tmp150691 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149160 - (let ((__tmp149173 - (let ((__tmp149174 |gx[1]#_g149175_|)) + (let ((__tmp150707 + (let ((__tmp150720 + (let ((__tmp150721 |gx[1]#_g150722_|)) (declare (not safe)) - (cons 'e __tmp149174))) - (__tmp149161 - (let ((__tmp149170 - (let ((__tmp149171 |gx[1]#_g149172_|)) + (cons 'e __tmp150721))) + (__tmp150708 + (let ((__tmp150717 + (let ((__tmp150718 |gx[1]#_g150719_|)) (declare (not safe)) - (cons 'id __tmp149171))) - (__tmp149162 - (let ((__tmp149167 - (let ((__tmp149168 |gx[1]#_g149169_|)) + (cons 'id __tmp150718))) + (__tmp150709 + (let ((__tmp150714 + (let ((__tmp150715 |gx[1]#_g150716_|)) (declare (not safe)) - (cons 'key __tmp149168))) - (__tmp149163 - (let ((__tmp149164 - (let ((__tmp149165 - |gx[1]#_g149166_|)) + (cons 'key __tmp150715))) + (__tmp150710 + (let ((__tmp150711 + (let ((__tmp150712 + |gx[1]#_g150713_|)) (declare (not safe)) - (cons 'phi __tmp149165)))) + (cons 'phi __tmp150712)))) (declare (not safe)) - (cons __tmp149164 '())))) + (cons __tmp150711 '())))) (declare (not safe)) - (cons __tmp149167 __tmp149163)))) + (cons __tmp150714 __tmp150710)))) (declare (not safe)) - (cons __tmp149170 __tmp149162)))) + (cons __tmp150717 __tmp150709)))) (declare (not safe)) - (cons __tmp149173 __tmp149161)))) + (cons __tmp150720 __tmp150708)))) (declare (not safe)) (##unchecked-structure-set! - __obj147843 - __tmp149160 + __obj149390 + __tmp150707 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147843)) + __obj149390)) (define |gx[:0:]#expander| - (let ((__obj147844 + (let ((__obj149391 (let () (declare (not safe)) (##structure @@ -7828,7 +7828,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147844 + __obj149391 'gx#expander::t '1 gerbil/core$$#class-type-info::t @@ -7836,7 +7836,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147844 + __obj149391 'expander '2 gerbil/core$$#class-type-info::t @@ -7844,7 +7844,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147844 + __obj149391 '(e) '4 gerbil/core$$#class-type-info::t @@ -7852,7 +7852,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147844 + __obj149391 '() '3 gerbil/core$$#class-type-info::t @@ -7860,7 +7860,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147844 + __obj149391 '#t '5 gerbil/core$$#class-type-info::t @@ -7868,7 +7868,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147844 + __obj149391 '#f '6 gerbil/core$$#class-type-info::t @@ -7876,94 +7876,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147844 + __obj149391 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149176 |gx[1]#_g149177_|)) + (let ((__tmp150723 |gx[1]#_g150724_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147844 - __tmp149176 + __obj149391 + __tmp150723 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149178 |gx[1]#_g149179_|)) + (let ((__tmp150725 |gx[1]#_g150726_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147844 - __tmp149178 + __obj149391 + __tmp150725 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149180 |gx[1]#_g149181_|)) + (let ((__tmp150727 |gx[1]#_g150728_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147844 - __tmp149180 + __obj149391 + __tmp150727 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149182 - (let ((__tmp149183 - (let ((__tmp149184 |gx[1]#_g149185_|)) + (let ((__tmp150729 + (let ((__tmp150730 + (let ((__tmp150731 |gx[1]#_g150732_|)) (declare (not safe)) - (cons 'e __tmp149184)))) + (cons 'e __tmp150731)))) (declare (not safe)) - (cons __tmp149183 '())))) + (cons __tmp150730 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147844 - __tmp149182 + __obj149391 + __tmp150729 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149186 - (let ((__tmp149187 - (let ((__tmp149188 |gx[1]#_g149189_|)) + (let ((__tmp150733 + (let ((__tmp150734 + (let ((__tmp150735 |gx[1]#_g150736_|)) (declare (not safe)) - (cons 'e __tmp149188)))) + (cons 'e __tmp150735)))) (declare (not safe)) - (cons __tmp149187 '())))) + (cons __tmp150734 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147844 - __tmp149186 + __obj149391 + __tmp150733 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149190 - (let ((__tmp149191 - (let ((__tmp149192 |gx[1]#_g149193_|)) + (let ((__tmp150737 + (let ((__tmp150738 + (let ((__tmp150739 |gx[1]#_g150740_|)) (declare (not safe)) - (cons 'e __tmp149192)))) + (cons 'e __tmp150739)))) (declare (not safe)) - (cons __tmp149191 '())))) + (cons __tmp150738 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147844 - __tmp149190 + __obj149391 + __tmp150737 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149194 - (let ((__tmp149195 - (let ((__tmp149196 |gx[1]#_g149197_|)) + (let ((__tmp150741 + (let ((__tmp150742 + (let ((__tmp150743 |gx[1]#_g150744_|)) (declare (not safe)) - (cons 'e __tmp149196)))) + (cons 'e __tmp150743)))) (declare (not safe)) - (cons __tmp149195 '())))) + (cons __tmp150742 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147844 - __tmp149194 + __obj149391 + __tmp150741 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147844)) + __obj149391)) (define |gx[:0:]#core-expander| - (let ((__obj147845 + (let ((__obj149392 (let () (declare (not safe)) (##structure @@ -7985,7 +7985,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147845 + __obj149392 'gx#core-expander::t '1 gerbil/core$$#class-type-info::t @@ -7993,7 +7993,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147845 + __obj149392 'core-expander '2 gerbil/core$$#class-type-info::t @@ -8001,26 +8001,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147845 + __obj149392 '(id compile-top) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149198 - (let ((__tmp149199 |gx[1]#_g149200_|)) + (let ((__tmp150745 + (let ((__tmp150746 |gx[1]#_g150747_|)) (declare (not safe)) - (cons __tmp149199 '())))) + (cons __tmp150746 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147845 - __tmp149198 + __obj149392 + __tmp150745 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147845 + __obj149392 '#t '5 gerbil/core$$#class-type-info::t @@ -8028,7 +8028,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147845 + __obj149392 '#f '6 gerbil/core$$#class-type-info::t @@ -8036,150 +8036,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147845 + __obj149392 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149201 |gx[1]#_g149202_|)) + (let ((__tmp150748 |gx[1]#_g150749_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147845 - __tmp149201 + __obj149392 + __tmp150748 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149203 |gx[1]#_g149204_|)) + (let ((__tmp150750 |gx[1]#_g150751_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147845 - __tmp149203 + __obj149392 + __tmp150750 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149205 |gx[1]#_g149206_|)) + (let ((__tmp150752 |gx[1]#_g150753_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147845 - __tmp149205 + __obj149392 + __tmp150752 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149207 - (let ((__tmp149216 - (let ((__tmp149217 |gx[1]#_g149218_|)) + (let ((__tmp150754 + (let ((__tmp150763 + (let ((__tmp150764 |gx[1]#_g150765_|)) (declare (not safe)) - (cons 'id __tmp149217))) - (__tmp149208 - (let ((__tmp149213 - (let ((__tmp149214 |gx[1]#_g149215_|)) + (cons 'id __tmp150764))) + (__tmp150755 + (let ((__tmp150760 + (let ((__tmp150761 |gx[1]#_g150762_|)) (declare (not safe)) - (cons 'compile-top __tmp149214))) - (__tmp149209 - (let ((__tmp149210 - (let ((__tmp149211 |gx[1]#_g149212_|)) + (cons 'compile-top __tmp150761))) + (__tmp150756 + (let ((__tmp150757 + (let ((__tmp150758 |gx[1]#_g150759_|)) (declare (not safe)) - (cons 'e __tmp149211)))) + (cons 'e __tmp150758)))) (declare (not safe)) - (cons __tmp149210 '())))) + (cons __tmp150757 '())))) (declare (not safe)) - (cons __tmp149213 __tmp149209)))) + (cons __tmp150760 __tmp150756)))) (declare (not safe)) - (cons __tmp149216 __tmp149208)))) + (cons __tmp150763 __tmp150755)))) (declare (not safe)) (##unchecked-structure-set! - __obj147845 - __tmp149207 + __obj149392 + __tmp150754 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149219 - (let ((__tmp149228 - (let ((__tmp149229 |gx[1]#_g149230_|)) + (let ((__tmp150766 + (let ((__tmp150775 + (let ((__tmp150776 |gx[1]#_g150777_|)) (declare (not safe)) - (cons 'id __tmp149229))) - (__tmp149220 - (let ((__tmp149225 - (let ((__tmp149226 |gx[1]#_g149227_|)) + (cons 'id __tmp150776))) + (__tmp150767 + (let ((__tmp150772 + (let ((__tmp150773 |gx[1]#_g150774_|)) (declare (not safe)) - (cons 'compile-top __tmp149226))) - (__tmp149221 - (let ((__tmp149222 - (let ((__tmp149223 |gx[1]#_g149224_|)) + (cons 'compile-top __tmp150773))) + (__tmp150768 + (let ((__tmp150769 + (let ((__tmp150770 |gx[1]#_g150771_|)) (declare (not safe)) - (cons 'e __tmp149223)))) + (cons 'e __tmp150770)))) (declare (not safe)) - (cons __tmp149222 '())))) + (cons __tmp150769 '())))) (declare (not safe)) - (cons __tmp149225 __tmp149221)))) + (cons __tmp150772 __tmp150768)))) (declare (not safe)) - (cons __tmp149228 __tmp149220)))) + (cons __tmp150775 __tmp150767)))) (declare (not safe)) (##unchecked-structure-set! - __obj147845 - __tmp149219 + __obj149392 + __tmp150766 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149231 - (let ((__tmp149240 - (let ((__tmp149241 |gx[1]#_g149242_|)) + (let ((__tmp150778 + (let ((__tmp150787 + (let ((__tmp150788 |gx[1]#_g150789_|)) (declare (not safe)) - (cons 'id __tmp149241))) - (__tmp149232 - (let ((__tmp149237 - (let ((__tmp149238 |gx[1]#_g149239_|)) + (cons 'id __tmp150788))) + (__tmp150779 + (let ((__tmp150784 + (let ((__tmp150785 |gx[1]#_g150786_|)) (declare (not safe)) - (cons 'compile-top __tmp149238))) - (__tmp149233 - (let ((__tmp149234 - (let ((__tmp149235 |gx[1]#_g149236_|)) + (cons 'compile-top __tmp150785))) + (__tmp150780 + (let ((__tmp150781 + (let ((__tmp150782 |gx[1]#_g150783_|)) (declare (not safe)) - (cons 'e __tmp149235)))) + (cons 'e __tmp150782)))) (declare (not safe)) - (cons __tmp149234 '())))) + (cons __tmp150781 '())))) (declare (not safe)) - (cons __tmp149237 __tmp149233)))) + (cons __tmp150784 __tmp150780)))) (declare (not safe)) - (cons __tmp149240 __tmp149232)))) + (cons __tmp150787 __tmp150779)))) (declare (not safe)) (##unchecked-structure-set! - __obj147845 - __tmp149231 + __obj149392 + __tmp150778 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149243 - (let ((__tmp149252 - (let ((__tmp149253 |gx[1]#_g149254_|)) + (let ((__tmp150790 + (let ((__tmp150799 + (let ((__tmp150800 |gx[1]#_g150801_|)) (declare (not safe)) - (cons 'id __tmp149253))) - (__tmp149244 - (let ((__tmp149249 - (let ((__tmp149250 |gx[1]#_g149251_|)) + (cons 'id __tmp150800))) + (__tmp150791 + (let ((__tmp150796 + (let ((__tmp150797 |gx[1]#_g150798_|)) (declare (not safe)) - (cons 'compile-top __tmp149250))) - (__tmp149245 - (let ((__tmp149246 - (let ((__tmp149247 |gx[1]#_g149248_|)) + (cons 'compile-top __tmp150797))) + (__tmp150792 + (let ((__tmp150793 + (let ((__tmp150794 |gx[1]#_g150795_|)) (declare (not safe)) - (cons 'e __tmp149247)))) + (cons 'e __tmp150794)))) (declare (not safe)) - (cons __tmp149246 '())))) + (cons __tmp150793 '())))) (declare (not safe)) - (cons __tmp149249 __tmp149245)))) + (cons __tmp150796 __tmp150792)))) (declare (not safe)) - (cons __tmp149252 __tmp149244)))) + (cons __tmp150799 __tmp150791)))) (declare (not safe)) (##unchecked-structure-set! - __obj147845 - __tmp149243 + __obj149392 + __tmp150790 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147845)) + __obj149392)) (define |gx[:0:]#expression-form| - (let ((__obj147846 + (let ((__obj149393 (let () (declare (not safe)) (##structure @@ -8201,7 +8201,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147846 + __obj149393 'gx#expression-form::t '1 gerbil/core$$#class-type-info::t @@ -8209,7 +8209,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147846 + __obj149393 'expression-form '2 gerbil/core$$#class-type-info::t @@ -8217,26 +8217,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147846 + __obj149393 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149255 - (let ((__tmp149256 |gx[1]#_g149257_|)) + (let ((__tmp150802 + (let ((__tmp150803 |gx[1]#_g150804_|)) (declare (not safe)) - (cons __tmp149256 '())))) + (cons __tmp150803 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147846 - __tmp149255 + __obj149393 + __tmp150802 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147846 + __obj149393 '#t '5 gerbil/core$$#class-type-info::t @@ -8244,7 +8244,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147846 + __obj149393 '#f '6 gerbil/core$$#class-type-info::t @@ -8252,150 +8252,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147846 + __obj149393 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149258 |gx[1]#_g149259_|)) + (let ((__tmp150805 |gx[1]#_g150806_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147846 - __tmp149258 + __obj149393 + __tmp150805 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149260 |gx[1]#_g149261_|)) + (let ((__tmp150807 |gx[1]#_g150808_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147846 - __tmp149260 + __obj149393 + __tmp150807 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149262 |gx[1]#_g149263_|)) + (let ((__tmp150809 |gx[1]#_g150810_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147846 - __tmp149262 + __obj149393 + __tmp150809 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149264 - (let ((__tmp149273 - (let ((__tmp149274 |gx[1]#_g149275_|)) + (let ((__tmp150811 + (let ((__tmp150820 + (let ((__tmp150821 |gx[1]#_g150822_|)) (declare (not safe)) - (cons 'id __tmp149274))) - (__tmp149265 - (let ((__tmp149270 - (let ((__tmp149271 |gx[1]#_g149272_|)) + (cons 'id __tmp150821))) + (__tmp150812 + (let ((__tmp150817 + (let ((__tmp150818 |gx[1]#_g150819_|)) (declare (not safe)) - (cons 'compile-top __tmp149271))) - (__tmp149266 - (let ((__tmp149267 - (let ((__tmp149268 |gx[1]#_g149269_|)) + (cons 'compile-top __tmp150818))) + (__tmp150813 + (let ((__tmp150814 + (let ((__tmp150815 |gx[1]#_g150816_|)) (declare (not safe)) - (cons 'e __tmp149268)))) + (cons 'e __tmp150815)))) (declare (not safe)) - (cons __tmp149267 '())))) + (cons __tmp150814 '())))) (declare (not safe)) - (cons __tmp149270 __tmp149266)))) + (cons __tmp150817 __tmp150813)))) (declare (not safe)) - (cons __tmp149273 __tmp149265)))) + (cons __tmp150820 __tmp150812)))) (declare (not safe)) (##unchecked-structure-set! - __obj147846 - __tmp149264 + __obj149393 + __tmp150811 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149276 - (let ((__tmp149285 - (let ((__tmp149286 |gx[1]#_g149287_|)) + (let ((__tmp150823 + (let ((__tmp150832 + (let ((__tmp150833 |gx[1]#_g150834_|)) (declare (not safe)) - (cons 'id __tmp149286))) - (__tmp149277 - (let ((__tmp149282 - (let ((__tmp149283 |gx[1]#_g149284_|)) + (cons 'id __tmp150833))) + (__tmp150824 + (let ((__tmp150829 + (let ((__tmp150830 |gx[1]#_g150831_|)) (declare (not safe)) - (cons 'compile-top __tmp149283))) - (__tmp149278 - (let ((__tmp149279 - (let ((__tmp149280 |gx[1]#_g149281_|)) + (cons 'compile-top __tmp150830))) + (__tmp150825 + (let ((__tmp150826 + (let ((__tmp150827 |gx[1]#_g150828_|)) (declare (not safe)) - (cons 'e __tmp149280)))) + (cons 'e __tmp150827)))) (declare (not safe)) - (cons __tmp149279 '())))) + (cons __tmp150826 '())))) (declare (not safe)) - (cons __tmp149282 __tmp149278)))) + (cons __tmp150829 __tmp150825)))) (declare (not safe)) - (cons __tmp149285 __tmp149277)))) + (cons __tmp150832 __tmp150824)))) (declare (not safe)) (##unchecked-structure-set! - __obj147846 - __tmp149276 + __obj149393 + __tmp150823 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149288 - (let ((__tmp149297 - (let ((__tmp149298 |gx[1]#_g149299_|)) + (let ((__tmp150835 + (let ((__tmp150844 + (let ((__tmp150845 |gx[1]#_g150846_|)) (declare (not safe)) - (cons 'id __tmp149298))) - (__tmp149289 - (let ((__tmp149294 - (let ((__tmp149295 |gx[1]#_g149296_|)) + (cons 'id __tmp150845))) + (__tmp150836 + (let ((__tmp150841 + (let ((__tmp150842 |gx[1]#_g150843_|)) (declare (not safe)) - (cons 'compile-top __tmp149295))) - (__tmp149290 - (let ((__tmp149291 - (let ((__tmp149292 |gx[1]#_g149293_|)) + (cons 'compile-top __tmp150842))) + (__tmp150837 + (let ((__tmp150838 + (let ((__tmp150839 |gx[1]#_g150840_|)) (declare (not safe)) - (cons 'e __tmp149292)))) + (cons 'e __tmp150839)))) (declare (not safe)) - (cons __tmp149291 '())))) + (cons __tmp150838 '())))) (declare (not safe)) - (cons __tmp149294 __tmp149290)))) + (cons __tmp150841 __tmp150837)))) (declare (not safe)) - (cons __tmp149297 __tmp149289)))) + (cons __tmp150844 __tmp150836)))) (declare (not safe)) (##unchecked-structure-set! - __obj147846 - __tmp149288 + __obj149393 + __tmp150835 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149300 - (let ((__tmp149309 - (let ((__tmp149310 |gx[1]#_g149311_|)) + (let ((__tmp150847 + (let ((__tmp150856 + (let ((__tmp150857 |gx[1]#_g150858_|)) (declare (not safe)) - (cons 'id __tmp149310))) - (__tmp149301 - (let ((__tmp149306 - (let ((__tmp149307 |gx[1]#_g149308_|)) + (cons 'id __tmp150857))) + (__tmp150848 + (let ((__tmp150853 + (let ((__tmp150854 |gx[1]#_g150855_|)) (declare (not safe)) - (cons 'compile-top __tmp149307))) - (__tmp149302 - (let ((__tmp149303 - (let ((__tmp149304 |gx[1]#_g149305_|)) + (cons 'compile-top __tmp150854))) + (__tmp150849 + (let ((__tmp150850 + (let ((__tmp150851 |gx[1]#_g150852_|)) (declare (not safe)) - (cons 'e __tmp149304)))) + (cons 'e __tmp150851)))) (declare (not safe)) - (cons __tmp149303 '())))) + (cons __tmp150850 '())))) (declare (not safe)) - (cons __tmp149306 __tmp149302)))) + (cons __tmp150853 __tmp150849)))) (declare (not safe)) - (cons __tmp149309 __tmp149301)))) + (cons __tmp150856 __tmp150848)))) (declare (not safe)) (##unchecked-structure-set! - __obj147846 - __tmp149300 + __obj149393 + __tmp150847 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147846)) + __obj149393)) (define |gx[:0:]#special-form| - (let ((__obj147847 + (let ((__obj149394 (let () (declare (not safe)) (##structure @@ -8417,7 +8417,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147847 + __obj149394 'gx#special-form::t '1 gerbil/core$$#class-type-info::t @@ -8425,7 +8425,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147847 + __obj149394 'special-form '2 gerbil/core$$#class-type-info::t @@ -8433,26 +8433,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147847 + __obj149394 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149312 - (let ((__tmp149313 |gx[1]#_g149257_|)) + (let ((__tmp150859 + (let ((__tmp150860 |gx[1]#_g150804_|)) (declare (not safe)) - (cons __tmp149313 '())))) + (cons __tmp150860 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147847 - __tmp149312 + __obj149394 + __tmp150859 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147847 + __obj149394 '#t '5 gerbil/core$$#class-type-info::t @@ -8460,7 +8460,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147847 + __obj149394 '#f '6 gerbil/core$$#class-type-info::t @@ -8468,150 +8468,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147847 + __obj149394 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149314 |gx[1]#_g149315_|)) + (let ((__tmp150861 |gx[1]#_g150862_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147847 - __tmp149314 + __obj149394 + __tmp150861 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149316 |gx[1]#_g149317_|)) + (let ((__tmp150863 |gx[1]#_g150864_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147847 - __tmp149316 + __obj149394 + __tmp150863 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149318 |gx[1]#_g149319_|)) + (let ((__tmp150865 |gx[1]#_g150866_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147847 - __tmp149318 + __obj149394 + __tmp150865 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149320 - (let ((__tmp149329 - (let ((__tmp149330 |gx[1]#_g149331_|)) + (let ((__tmp150867 + (let ((__tmp150876 + (let ((__tmp150877 |gx[1]#_g150878_|)) (declare (not safe)) - (cons 'id __tmp149330))) - (__tmp149321 - (let ((__tmp149326 - (let ((__tmp149327 |gx[1]#_g149328_|)) + (cons 'id __tmp150877))) + (__tmp150868 + (let ((__tmp150873 + (let ((__tmp150874 |gx[1]#_g150875_|)) (declare (not safe)) - (cons 'compile-top __tmp149327))) - (__tmp149322 - (let ((__tmp149323 - (let ((__tmp149324 |gx[1]#_g149325_|)) + (cons 'compile-top __tmp150874))) + (__tmp150869 + (let ((__tmp150870 + (let ((__tmp150871 |gx[1]#_g150872_|)) (declare (not safe)) - (cons 'e __tmp149324)))) + (cons 'e __tmp150871)))) (declare (not safe)) - (cons __tmp149323 '())))) + (cons __tmp150870 '())))) (declare (not safe)) - (cons __tmp149326 __tmp149322)))) + (cons __tmp150873 __tmp150869)))) (declare (not safe)) - (cons __tmp149329 __tmp149321)))) + (cons __tmp150876 __tmp150868)))) (declare (not safe)) (##unchecked-structure-set! - __obj147847 - __tmp149320 + __obj149394 + __tmp150867 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149332 - (let ((__tmp149341 - (let ((__tmp149342 |gx[1]#_g149343_|)) + (let ((__tmp150879 + (let ((__tmp150888 + (let ((__tmp150889 |gx[1]#_g150890_|)) (declare (not safe)) - (cons 'id __tmp149342))) - (__tmp149333 - (let ((__tmp149338 - (let ((__tmp149339 |gx[1]#_g149340_|)) + (cons 'id __tmp150889))) + (__tmp150880 + (let ((__tmp150885 + (let ((__tmp150886 |gx[1]#_g150887_|)) (declare (not safe)) - (cons 'compile-top __tmp149339))) - (__tmp149334 - (let ((__tmp149335 - (let ((__tmp149336 |gx[1]#_g149337_|)) + (cons 'compile-top __tmp150886))) + (__tmp150881 + (let ((__tmp150882 + (let ((__tmp150883 |gx[1]#_g150884_|)) (declare (not safe)) - (cons 'e __tmp149336)))) + (cons 'e __tmp150883)))) (declare (not safe)) - (cons __tmp149335 '())))) + (cons __tmp150882 '())))) (declare (not safe)) - (cons __tmp149338 __tmp149334)))) + (cons __tmp150885 __tmp150881)))) (declare (not safe)) - (cons __tmp149341 __tmp149333)))) + (cons __tmp150888 __tmp150880)))) (declare (not safe)) (##unchecked-structure-set! - __obj147847 - __tmp149332 + __obj149394 + __tmp150879 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149344 - (let ((__tmp149353 - (let ((__tmp149354 |gx[1]#_g149355_|)) + (let ((__tmp150891 + (let ((__tmp150900 + (let ((__tmp150901 |gx[1]#_g150902_|)) (declare (not safe)) - (cons 'id __tmp149354))) - (__tmp149345 - (let ((__tmp149350 - (let ((__tmp149351 |gx[1]#_g149352_|)) + (cons 'id __tmp150901))) + (__tmp150892 + (let ((__tmp150897 + (let ((__tmp150898 |gx[1]#_g150899_|)) (declare (not safe)) - (cons 'compile-top __tmp149351))) - (__tmp149346 - (let ((__tmp149347 - (let ((__tmp149348 |gx[1]#_g149349_|)) + (cons 'compile-top __tmp150898))) + (__tmp150893 + (let ((__tmp150894 + (let ((__tmp150895 |gx[1]#_g150896_|)) (declare (not safe)) - (cons 'e __tmp149348)))) + (cons 'e __tmp150895)))) (declare (not safe)) - (cons __tmp149347 '())))) + (cons __tmp150894 '())))) (declare (not safe)) - (cons __tmp149350 __tmp149346)))) + (cons __tmp150897 __tmp150893)))) (declare (not safe)) - (cons __tmp149353 __tmp149345)))) + (cons __tmp150900 __tmp150892)))) (declare (not safe)) (##unchecked-structure-set! - __obj147847 - __tmp149344 + __obj149394 + __tmp150891 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149356 - (let ((__tmp149365 - (let ((__tmp149366 |gx[1]#_g149367_|)) + (let ((__tmp150903 + (let ((__tmp150912 + (let ((__tmp150913 |gx[1]#_g150914_|)) (declare (not safe)) - (cons 'id __tmp149366))) - (__tmp149357 - (let ((__tmp149362 - (let ((__tmp149363 |gx[1]#_g149364_|)) + (cons 'id __tmp150913))) + (__tmp150904 + (let ((__tmp150909 + (let ((__tmp150910 |gx[1]#_g150911_|)) (declare (not safe)) - (cons 'compile-top __tmp149363))) - (__tmp149358 - (let ((__tmp149359 - (let ((__tmp149360 |gx[1]#_g149361_|)) + (cons 'compile-top __tmp150910))) + (__tmp150905 + (let ((__tmp150906 + (let ((__tmp150907 |gx[1]#_g150908_|)) (declare (not safe)) - (cons 'e __tmp149360)))) + (cons 'e __tmp150907)))) (declare (not safe)) - (cons __tmp149359 '())))) + (cons __tmp150906 '())))) (declare (not safe)) - (cons __tmp149362 __tmp149358)))) + (cons __tmp150909 __tmp150905)))) (declare (not safe)) - (cons __tmp149365 __tmp149357)))) + (cons __tmp150912 __tmp150904)))) (declare (not safe)) (##unchecked-structure-set! - __obj147847 - __tmp149356 + __obj149394 + __tmp150903 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147847)) + __obj149394)) (define |gx[:0:]#definition-form| - (let ((__obj147848 + (let ((__obj149395 (let () (declare (not safe)) (##structure @@ -8633,7 +8633,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147848 + __obj149395 'gx#definition-form::t '1 gerbil/core$$#class-type-info::t @@ -8641,7 +8641,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147848 + __obj149395 'definition-form '2 gerbil/core$$#class-type-info::t @@ -8649,26 +8649,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147848 + __obj149395 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149368 - (let ((__tmp149369 |gx[1]#_g149370_|)) + (let ((__tmp150915 + (let ((__tmp150916 |gx[1]#_g150917_|)) (declare (not safe)) - (cons __tmp149369 '())))) + (cons __tmp150916 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147848 - __tmp149368 + __obj149395 + __tmp150915 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147848 + __obj149395 '#t '5 gerbil/core$$#class-type-info::t @@ -8676,7 +8676,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147848 + __obj149395 '#f '6 gerbil/core$$#class-type-info::t @@ -8684,150 +8684,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147848 + __obj149395 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149371 |gx[1]#_g149372_|)) + (let ((__tmp150918 |gx[1]#_g150919_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147848 - __tmp149371 + __obj149395 + __tmp150918 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149373 |gx[1]#_g149374_|)) + (let ((__tmp150920 |gx[1]#_g150921_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147848 - __tmp149373 + __obj149395 + __tmp150920 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149375 |gx[1]#_g149376_|)) + (let ((__tmp150922 |gx[1]#_g150923_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147848 - __tmp149375 + __obj149395 + __tmp150922 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149377 - (let ((__tmp149386 - (let ((__tmp149387 |gx[1]#_g149388_|)) + (let ((__tmp150924 + (let ((__tmp150933 + (let ((__tmp150934 |gx[1]#_g150935_|)) (declare (not safe)) - (cons 'id __tmp149387))) - (__tmp149378 - (let ((__tmp149383 - (let ((__tmp149384 |gx[1]#_g149385_|)) + (cons 'id __tmp150934))) + (__tmp150925 + (let ((__tmp150930 + (let ((__tmp150931 |gx[1]#_g150932_|)) (declare (not safe)) - (cons 'compile-top __tmp149384))) - (__tmp149379 - (let ((__tmp149380 - (let ((__tmp149381 |gx[1]#_g149382_|)) + (cons 'compile-top __tmp150931))) + (__tmp150926 + (let ((__tmp150927 + (let ((__tmp150928 |gx[1]#_g150929_|)) (declare (not safe)) - (cons 'e __tmp149381)))) + (cons 'e __tmp150928)))) (declare (not safe)) - (cons __tmp149380 '())))) + (cons __tmp150927 '())))) (declare (not safe)) - (cons __tmp149383 __tmp149379)))) + (cons __tmp150930 __tmp150926)))) (declare (not safe)) - (cons __tmp149386 __tmp149378)))) + (cons __tmp150933 __tmp150925)))) (declare (not safe)) (##unchecked-structure-set! - __obj147848 - __tmp149377 + __obj149395 + __tmp150924 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149389 - (let ((__tmp149398 - (let ((__tmp149399 |gx[1]#_g149400_|)) + (let ((__tmp150936 + (let ((__tmp150945 + (let ((__tmp150946 |gx[1]#_g150947_|)) (declare (not safe)) - (cons 'id __tmp149399))) - (__tmp149390 - (let ((__tmp149395 - (let ((__tmp149396 |gx[1]#_g149397_|)) + (cons 'id __tmp150946))) + (__tmp150937 + (let ((__tmp150942 + (let ((__tmp150943 |gx[1]#_g150944_|)) (declare (not safe)) - (cons 'compile-top __tmp149396))) - (__tmp149391 - (let ((__tmp149392 - (let ((__tmp149393 |gx[1]#_g149394_|)) + (cons 'compile-top __tmp150943))) + (__tmp150938 + (let ((__tmp150939 + (let ((__tmp150940 |gx[1]#_g150941_|)) (declare (not safe)) - (cons 'e __tmp149393)))) + (cons 'e __tmp150940)))) (declare (not safe)) - (cons __tmp149392 '())))) + (cons __tmp150939 '())))) (declare (not safe)) - (cons __tmp149395 __tmp149391)))) + (cons __tmp150942 __tmp150938)))) (declare (not safe)) - (cons __tmp149398 __tmp149390)))) + (cons __tmp150945 __tmp150937)))) (declare (not safe)) (##unchecked-structure-set! - __obj147848 - __tmp149389 + __obj149395 + __tmp150936 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149401 - (let ((__tmp149410 - (let ((__tmp149411 |gx[1]#_g149412_|)) + (let ((__tmp150948 + (let ((__tmp150957 + (let ((__tmp150958 |gx[1]#_g150959_|)) (declare (not safe)) - (cons 'id __tmp149411))) - (__tmp149402 - (let ((__tmp149407 - (let ((__tmp149408 |gx[1]#_g149409_|)) + (cons 'id __tmp150958))) + (__tmp150949 + (let ((__tmp150954 + (let ((__tmp150955 |gx[1]#_g150956_|)) (declare (not safe)) - (cons 'compile-top __tmp149408))) - (__tmp149403 - (let ((__tmp149404 - (let ((__tmp149405 |gx[1]#_g149406_|)) + (cons 'compile-top __tmp150955))) + (__tmp150950 + (let ((__tmp150951 + (let ((__tmp150952 |gx[1]#_g150953_|)) (declare (not safe)) - (cons 'e __tmp149405)))) + (cons 'e __tmp150952)))) (declare (not safe)) - (cons __tmp149404 '())))) + (cons __tmp150951 '())))) (declare (not safe)) - (cons __tmp149407 __tmp149403)))) + (cons __tmp150954 __tmp150950)))) (declare (not safe)) - (cons __tmp149410 __tmp149402)))) + (cons __tmp150957 __tmp150949)))) (declare (not safe)) (##unchecked-structure-set! - __obj147848 - __tmp149401 + __obj149395 + __tmp150948 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149413 - (let ((__tmp149422 - (let ((__tmp149423 |gx[1]#_g149424_|)) + (let ((__tmp150960 + (let ((__tmp150969 + (let ((__tmp150970 |gx[1]#_g150971_|)) (declare (not safe)) - (cons 'id __tmp149423))) - (__tmp149414 - (let ((__tmp149419 - (let ((__tmp149420 |gx[1]#_g149421_|)) + (cons 'id __tmp150970))) + (__tmp150961 + (let ((__tmp150966 + (let ((__tmp150967 |gx[1]#_g150968_|)) (declare (not safe)) - (cons 'compile-top __tmp149420))) - (__tmp149415 - (let ((__tmp149416 - (let ((__tmp149417 |gx[1]#_g149418_|)) + (cons 'compile-top __tmp150967))) + (__tmp150962 + (let ((__tmp150963 + (let ((__tmp150964 |gx[1]#_g150965_|)) (declare (not safe)) - (cons 'e __tmp149417)))) + (cons 'e __tmp150964)))) (declare (not safe)) - (cons __tmp149416 '())))) + (cons __tmp150963 '())))) (declare (not safe)) - (cons __tmp149419 __tmp149415)))) + (cons __tmp150966 __tmp150962)))) (declare (not safe)) - (cons __tmp149422 __tmp149414)))) + (cons __tmp150969 __tmp150961)))) (declare (not safe)) (##unchecked-structure-set! - __obj147848 - __tmp149413 + __obj149395 + __tmp150960 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147848)) + __obj149395)) (define |gx[:0:]#top-special-form| - (let ((__obj147849 + (let ((__obj149396 (let () (declare (not safe)) (##structure @@ -8849,7 +8849,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147849 + __obj149396 'gx#top-special-form::t '1 gerbil/core$$#class-type-info::t @@ -8857,7 +8857,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147849 + __obj149396 'top-special-form '2 gerbil/core$$#class-type-info::t @@ -8865,26 +8865,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147849 + __obj149396 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149425 - (let ((__tmp149426 |gx[1]#_g149370_|)) + (let ((__tmp150972 + (let ((__tmp150973 |gx[1]#_g150917_|)) (declare (not safe)) - (cons __tmp149426 '())))) + (cons __tmp150973 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147849 - __tmp149425 + __obj149396 + __tmp150972 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147849 + __obj149396 '#t '5 gerbil/core$$#class-type-info::t @@ -8892,7 +8892,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147849 + __obj149396 '#f '6 gerbil/core$$#class-type-info::t @@ -8900,150 +8900,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147849 + __obj149396 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149427 |gx[1]#_g149428_|)) + (let ((__tmp150974 |gx[1]#_g150975_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147849 - __tmp149427 + __obj149396 + __tmp150974 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149429 |gx[1]#_g149430_|)) + (let ((__tmp150976 |gx[1]#_g150977_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147849 - __tmp149429 + __obj149396 + __tmp150976 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149431 |gx[1]#_g149432_|)) + (let ((__tmp150978 |gx[1]#_g150979_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147849 - __tmp149431 + __obj149396 + __tmp150978 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149433 - (let ((__tmp149442 - (let ((__tmp149443 |gx[1]#_g149444_|)) + (let ((__tmp150980 + (let ((__tmp150989 + (let ((__tmp150990 |gx[1]#_g150991_|)) (declare (not safe)) - (cons 'id __tmp149443))) - (__tmp149434 - (let ((__tmp149439 - (let ((__tmp149440 |gx[1]#_g149441_|)) + (cons 'id __tmp150990))) + (__tmp150981 + (let ((__tmp150986 + (let ((__tmp150987 |gx[1]#_g150988_|)) (declare (not safe)) - (cons 'compile-top __tmp149440))) - (__tmp149435 - (let ((__tmp149436 - (let ((__tmp149437 |gx[1]#_g149438_|)) + (cons 'compile-top __tmp150987))) + (__tmp150982 + (let ((__tmp150983 + (let ((__tmp150984 |gx[1]#_g150985_|)) (declare (not safe)) - (cons 'e __tmp149437)))) + (cons 'e __tmp150984)))) (declare (not safe)) - (cons __tmp149436 '())))) + (cons __tmp150983 '())))) (declare (not safe)) - (cons __tmp149439 __tmp149435)))) + (cons __tmp150986 __tmp150982)))) (declare (not safe)) - (cons __tmp149442 __tmp149434)))) + (cons __tmp150989 __tmp150981)))) (declare (not safe)) (##unchecked-structure-set! - __obj147849 - __tmp149433 + __obj149396 + __tmp150980 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149445 - (let ((__tmp149454 - (let ((__tmp149455 |gx[1]#_g149456_|)) + (let ((__tmp150992 + (let ((__tmp151001 + (let ((__tmp151002 |gx[1]#_g151003_|)) (declare (not safe)) - (cons 'id __tmp149455))) - (__tmp149446 - (let ((__tmp149451 - (let ((__tmp149452 |gx[1]#_g149453_|)) + (cons 'id __tmp151002))) + (__tmp150993 + (let ((__tmp150998 + (let ((__tmp150999 |gx[1]#_g151000_|)) (declare (not safe)) - (cons 'compile-top __tmp149452))) - (__tmp149447 - (let ((__tmp149448 - (let ((__tmp149449 |gx[1]#_g149450_|)) + (cons 'compile-top __tmp150999))) + (__tmp150994 + (let ((__tmp150995 + (let ((__tmp150996 |gx[1]#_g150997_|)) (declare (not safe)) - (cons 'e __tmp149449)))) + (cons 'e __tmp150996)))) (declare (not safe)) - (cons __tmp149448 '())))) + (cons __tmp150995 '())))) (declare (not safe)) - (cons __tmp149451 __tmp149447)))) + (cons __tmp150998 __tmp150994)))) (declare (not safe)) - (cons __tmp149454 __tmp149446)))) + (cons __tmp151001 __tmp150993)))) (declare (not safe)) (##unchecked-structure-set! - __obj147849 - __tmp149445 + __obj149396 + __tmp150992 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149457 - (let ((__tmp149466 - (let ((__tmp149467 |gx[1]#_g149468_|)) + (let ((__tmp151004 + (let ((__tmp151013 + (let ((__tmp151014 |gx[1]#_g151015_|)) (declare (not safe)) - (cons 'id __tmp149467))) - (__tmp149458 - (let ((__tmp149463 - (let ((__tmp149464 |gx[1]#_g149465_|)) + (cons 'id __tmp151014))) + (__tmp151005 + (let ((__tmp151010 + (let ((__tmp151011 |gx[1]#_g151012_|)) (declare (not safe)) - (cons 'compile-top __tmp149464))) - (__tmp149459 - (let ((__tmp149460 - (let ((__tmp149461 |gx[1]#_g149462_|)) + (cons 'compile-top __tmp151011))) + (__tmp151006 + (let ((__tmp151007 + (let ((__tmp151008 |gx[1]#_g151009_|)) (declare (not safe)) - (cons 'e __tmp149461)))) + (cons 'e __tmp151008)))) (declare (not safe)) - (cons __tmp149460 '())))) + (cons __tmp151007 '())))) (declare (not safe)) - (cons __tmp149463 __tmp149459)))) + (cons __tmp151010 __tmp151006)))) (declare (not safe)) - (cons __tmp149466 __tmp149458)))) + (cons __tmp151013 __tmp151005)))) (declare (not safe)) (##unchecked-structure-set! - __obj147849 - __tmp149457 + __obj149396 + __tmp151004 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149469 - (let ((__tmp149478 - (let ((__tmp149479 |gx[1]#_g149480_|)) + (let ((__tmp151016 + (let ((__tmp151025 + (let ((__tmp151026 |gx[1]#_g151027_|)) (declare (not safe)) - (cons 'id __tmp149479))) - (__tmp149470 - (let ((__tmp149475 - (let ((__tmp149476 |gx[1]#_g149477_|)) + (cons 'id __tmp151026))) + (__tmp151017 + (let ((__tmp151022 + (let ((__tmp151023 |gx[1]#_g151024_|)) (declare (not safe)) - (cons 'compile-top __tmp149476))) - (__tmp149471 - (let ((__tmp149472 - (let ((__tmp149473 |gx[1]#_g149474_|)) + (cons 'compile-top __tmp151023))) + (__tmp151018 + (let ((__tmp151019 + (let ((__tmp151020 |gx[1]#_g151021_|)) (declare (not safe)) - (cons 'e __tmp149473)))) + (cons 'e __tmp151020)))) (declare (not safe)) - (cons __tmp149472 '())))) + (cons __tmp151019 '())))) (declare (not safe)) - (cons __tmp149475 __tmp149471)))) + (cons __tmp151022 __tmp151018)))) (declare (not safe)) - (cons __tmp149478 __tmp149470)))) + (cons __tmp151025 __tmp151017)))) (declare (not safe)) (##unchecked-structure-set! - __obj147849 - __tmp149469 + __obj149396 + __tmp151016 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147849)) + __obj149396)) (define |gx[:0:]#module-special-form| - (let ((__obj147850 + (let ((__obj149397 (let () (declare (not safe)) (##structure @@ -9065,7 +9065,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147850 + __obj149397 'gx#module-special-form::t '1 gerbil/core$$#class-type-info::t @@ -9073,7 +9073,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147850 + __obj149397 'module-special-form '2 gerbil/core$$#class-type-info::t @@ -9081,26 +9081,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147850 + __obj149397 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149481 - (let ((__tmp149482 |gx[1]#_g149483_|)) + (let ((__tmp151028 + (let ((__tmp151029 |gx[1]#_g151030_|)) (declare (not safe)) - (cons __tmp149482 '())))) + (cons __tmp151029 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147850 - __tmp149481 + __obj149397 + __tmp151028 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147850 + __obj149397 '#t '5 gerbil/core$$#class-type-info::t @@ -9108,7 +9108,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147850 + __obj149397 '#f '6 gerbil/core$$#class-type-info::t @@ -9116,150 +9116,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147850 + __obj149397 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149484 |gx[1]#_g149485_|)) + (let ((__tmp151031 |gx[1]#_g151032_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147850 - __tmp149484 + __obj149397 + __tmp151031 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149486 |gx[1]#_g149487_|)) + (let ((__tmp151033 |gx[1]#_g151034_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147850 - __tmp149486 + __obj149397 + __tmp151033 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149488 |gx[1]#_g149489_|)) + (let ((__tmp151035 |gx[1]#_g151036_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147850 - __tmp149488 + __obj149397 + __tmp151035 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149490 - (let ((__tmp149499 - (let ((__tmp149500 |gx[1]#_g149501_|)) + (let ((__tmp151037 + (let ((__tmp151046 + (let ((__tmp151047 |gx[1]#_g151048_|)) (declare (not safe)) - (cons 'id __tmp149500))) - (__tmp149491 - (let ((__tmp149496 - (let ((__tmp149497 |gx[1]#_g149498_|)) + (cons 'id __tmp151047))) + (__tmp151038 + (let ((__tmp151043 + (let ((__tmp151044 |gx[1]#_g151045_|)) (declare (not safe)) - (cons 'compile-top __tmp149497))) - (__tmp149492 - (let ((__tmp149493 - (let ((__tmp149494 |gx[1]#_g149495_|)) + (cons 'compile-top __tmp151044))) + (__tmp151039 + (let ((__tmp151040 + (let ((__tmp151041 |gx[1]#_g151042_|)) (declare (not safe)) - (cons 'e __tmp149494)))) + (cons 'e __tmp151041)))) (declare (not safe)) - (cons __tmp149493 '())))) + (cons __tmp151040 '())))) (declare (not safe)) - (cons __tmp149496 __tmp149492)))) + (cons __tmp151043 __tmp151039)))) (declare (not safe)) - (cons __tmp149499 __tmp149491)))) + (cons __tmp151046 __tmp151038)))) (declare (not safe)) (##unchecked-structure-set! - __obj147850 - __tmp149490 + __obj149397 + __tmp151037 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149502 - (let ((__tmp149511 - (let ((__tmp149512 |gx[1]#_g149513_|)) + (let ((__tmp151049 + (let ((__tmp151058 + (let ((__tmp151059 |gx[1]#_g151060_|)) (declare (not safe)) - (cons 'id __tmp149512))) - (__tmp149503 - (let ((__tmp149508 - (let ((__tmp149509 |gx[1]#_g149510_|)) + (cons 'id __tmp151059))) + (__tmp151050 + (let ((__tmp151055 + (let ((__tmp151056 |gx[1]#_g151057_|)) (declare (not safe)) - (cons 'compile-top __tmp149509))) - (__tmp149504 - (let ((__tmp149505 - (let ((__tmp149506 |gx[1]#_g149507_|)) + (cons 'compile-top __tmp151056))) + (__tmp151051 + (let ((__tmp151052 + (let ((__tmp151053 |gx[1]#_g151054_|)) (declare (not safe)) - (cons 'e __tmp149506)))) + (cons 'e __tmp151053)))) (declare (not safe)) - (cons __tmp149505 '())))) + (cons __tmp151052 '())))) (declare (not safe)) - (cons __tmp149508 __tmp149504)))) + (cons __tmp151055 __tmp151051)))) (declare (not safe)) - (cons __tmp149511 __tmp149503)))) + (cons __tmp151058 __tmp151050)))) (declare (not safe)) (##unchecked-structure-set! - __obj147850 - __tmp149502 + __obj149397 + __tmp151049 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149514 - (let ((__tmp149523 - (let ((__tmp149524 |gx[1]#_g149525_|)) + (let ((__tmp151061 + (let ((__tmp151070 + (let ((__tmp151071 |gx[1]#_g151072_|)) (declare (not safe)) - (cons 'id __tmp149524))) - (__tmp149515 - (let ((__tmp149520 - (let ((__tmp149521 |gx[1]#_g149522_|)) + (cons 'id __tmp151071))) + (__tmp151062 + (let ((__tmp151067 + (let ((__tmp151068 |gx[1]#_g151069_|)) (declare (not safe)) - (cons 'compile-top __tmp149521))) - (__tmp149516 - (let ((__tmp149517 - (let ((__tmp149518 |gx[1]#_g149519_|)) + (cons 'compile-top __tmp151068))) + (__tmp151063 + (let ((__tmp151064 + (let ((__tmp151065 |gx[1]#_g151066_|)) (declare (not safe)) - (cons 'e __tmp149518)))) + (cons 'e __tmp151065)))) (declare (not safe)) - (cons __tmp149517 '())))) + (cons __tmp151064 '())))) (declare (not safe)) - (cons __tmp149520 __tmp149516)))) + (cons __tmp151067 __tmp151063)))) (declare (not safe)) - (cons __tmp149523 __tmp149515)))) + (cons __tmp151070 __tmp151062)))) (declare (not safe)) (##unchecked-structure-set! - __obj147850 - __tmp149514 + __obj149397 + __tmp151061 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149526 - (let ((__tmp149535 - (let ((__tmp149536 |gx[1]#_g149537_|)) + (let ((__tmp151073 + (let ((__tmp151082 + (let ((__tmp151083 |gx[1]#_g151084_|)) (declare (not safe)) - (cons 'id __tmp149536))) - (__tmp149527 - (let ((__tmp149532 - (let ((__tmp149533 |gx[1]#_g149534_|)) + (cons 'id __tmp151083))) + (__tmp151074 + (let ((__tmp151079 + (let ((__tmp151080 |gx[1]#_g151081_|)) (declare (not safe)) - (cons 'compile-top __tmp149533))) - (__tmp149528 - (let ((__tmp149529 - (let ((__tmp149530 |gx[1]#_g149531_|)) + (cons 'compile-top __tmp151080))) + (__tmp151075 + (let ((__tmp151076 + (let ((__tmp151077 |gx[1]#_g151078_|)) (declare (not safe)) - (cons 'e __tmp149530)))) + (cons 'e __tmp151077)))) (declare (not safe)) - (cons __tmp149529 '())))) + (cons __tmp151076 '())))) (declare (not safe)) - (cons __tmp149532 __tmp149528)))) + (cons __tmp151079 __tmp151075)))) (declare (not safe)) - (cons __tmp149535 __tmp149527)))) + (cons __tmp151082 __tmp151074)))) (declare (not safe)) (##unchecked-structure-set! - __obj147850 - __tmp149526 + __obj149397 + __tmp151073 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147850)) + __obj149397)) (define |gx[:0:]#feature-expander| - (let ((__obj147851 + (let ((__obj149398 (let () (declare (not safe)) (##structure @@ -9281,7 +9281,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147851 + __obj149398 'gx#feature-expander::t '1 gerbil/core$$#class-type-info::t @@ -9289,7 +9289,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147851 + __obj149398 'feature-expander '2 gerbil/core$$#class-type-info::t @@ -9297,26 +9297,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147851 + __obj149398 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149538 - (let ((__tmp149539 |gx[1]#_g149200_|)) + (let ((__tmp151085 + (let ((__tmp151086 |gx[1]#_g150747_|)) (declare (not safe)) - (cons __tmp149539 '())))) + (cons __tmp151086 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147851 - __tmp149538 + __obj149398 + __tmp151085 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147851 + __obj149398 '#t '5 gerbil/core$$#class-type-info::t @@ -9324,7 +9324,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147851 + __obj149398 '#f '6 gerbil/core$$#class-type-info::t @@ -9332,94 +9332,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147851 + __obj149398 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149540 |gx[1]#_g149541_|)) + (let ((__tmp151087 |gx[1]#_g151088_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147851 - __tmp149540 + __obj149398 + __tmp151087 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149542 |gx[1]#_g149543_|)) + (let ((__tmp151089 |gx[1]#_g151090_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147851 - __tmp149542 + __obj149398 + __tmp151089 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149544 |gx[1]#_g149545_|)) + (let ((__tmp151091 |gx[1]#_g151092_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147851 - __tmp149544 + __obj149398 + __tmp151091 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149546 - (let ((__tmp149547 - (let ((__tmp149548 |gx[1]#_g149549_|)) + (let ((__tmp151093 + (let ((__tmp151094 + (let ((__tmp151095 |gx[1]#_g151096_|)) (declare (not safe)) - (cons 'e __tmp149548)))) + (cons 'e __tmp151095)))) (declare (not safe)) - (cons __tmp149547 '())))) + (cons __tmp151094 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147851 - __tmp149546 + __obj149398 + __tmp151093 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149550 - (let ((__tmp149551 - (let ((__tmp149552 |gx[1]#_g149553_|)) + (let ((__tmp151097 + (let ((__tmp151098 + (let ((__tmp151099 |gx[1]#_g151100_|)) (declare (not safe)) - (cons 'e __tmp149552)))) + (cons 'e __tmp151099)))) (declare (not safe)) - (cons __tmp149551 '())))) + (cons __tmp151098 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147851 - __tmp149550 + __obj149398 + __tmp151097 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149554 - (let ((__tmp149555 - (let ((__tmp149556 |gx[1]#_g149557_|)) + (let ((__tmp151101 + (let ((__tmp151102 + (let ((__tmp151103 |gx[1]#_g151104_|)) (declare (not safe)) - (cons 'e __tmp149556)))) + (cons 'e __tmp151103)))) (declare (not safe)) - (cons __tmp149555 '())))) + (cons __tmp151102 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147851 - __tmp149554 + __obj149398 + __tmp151101 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149558 - (let ((__tmp149559 - (let ((__tmp149560 |gx[1]#_g149561_|)) + (let ((__tmp151105 + (let ((__tmp151106 + (let ((__tmp151107 |gx[1]#_g151108_|)) (declare (not safe)) - (cons 'e __tmp149560)))) + (cons 'e __tmp151107)))) (declare (not safe)) - (cons __tmp149559 '())))) + (cons __tmp151106 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147851 - __tmp149558 + __obj149398 + __tmp151105 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147851)) + __obj149398)) (define |gx[:0:]#private-feature-expander| - (let ((__obj147852 + (let ((__obj149399 (let () (declare (not safe)) (##structure @@ -9441,7 +9441,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147852 + __obj149399 'gx#private-feature-expander::t '1 gerbil/core$$#class-type-info::t @@ -9449,7 +9449,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147852 + __obj149399 'private-feature-expander '2 gerbil/core$$#class-type-info::t @@ -9457,26 +9457,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147852 + __obj149399 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149562 - (let ((__tmp149563 |gx[1]#_g149564_|)) + (let ((__tmp151109 + (let ((__tmp151110 |gx[1]#_g151111_|)) (declare (not safe)) - (cons __tmp149563 '())))) + (cons __tmp151110 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147852 - __tmp149562 + __obj149399 + __tmp151109 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147852 + __obj149399 '#t '5 gerbil/core$$#class-type-info::t @@ -9484,7 +9484,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147852 + __obj149399 '#f '6 gerbil/core$$#class-type-info::t @@ -9492,94 +9492,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147852 + __obj149399 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149565 |gx[1]#_g149566_|)) + (let ((__tmp151112 |gx[1]#_g151113_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147852 - __tmp149565 + __obj149399 + __tmp151112 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149567 |gx[1]#_g149568_|)) + (let ((__tmp151114 |gx[1]#_g151115_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147852 - __tmp149567 + __obj149399 + __tmp151114 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149569 |gx[1]#_g149570_|)) + (let ((__tmp151116 |gx[1]#_g151117_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147852 - __tmp149569 + __obj149399 + __tmp151116 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149571 - (let ((__tmp149572 - (let ((__tmp149573 |gx[1]#_g149574_|)) + (let ((__tmp151118 + (let ((__tmp151119 + (let ((__tmp151120 |gx[1]#_g151121_|)) (declare (not safe)) - (cons 'e __tmp149573)))) + (cons 'e __tmp151120)))) (declare (not safe)) - (cons __tmp149572 '())))) + (cons __tmp151119 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147852 - __tmp149571 + __obj149399 + __tmp151118 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149575 - (let ((__tmp149576 - (let ((__tmp149577 |gx[1]#_g149578_|)) + (let ((__tmp151122 + (let ((__tmp151123 + (let ((__tmp151124 |gx[1]#_g151125_|)) (declare (not safe)) - (cons 'e __tmp149577)))) + (cons 'e __tmp151124)))) (declare (not safe)) - (cons __tmp149576 '())))) + (cons __tmp151123 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147852 - __tmp149575 + __obj149399 + __tmp151122 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149579 - (let ((__tmp149580 - (let ((__tmp149581 |gx[1]#_g149582_|)) + (let ((__tmp151126 + (let ((__tmp151127 + (let ((__tmp151128 |gx[1]#_g151129_|)) (declare (not safe)) - (cons 'e __tmp149581)))) + (cons 'e __tmp151128)))) (declare (not safe)) - (cons __tmp149580 '())))) + (cons __tmp151127 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147852 - __tmp149579 + __obj149399 + __tmp151126 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149583 - (let ((__tmp149584 - (let ((__tmp149585 |gx[1]#_g149586_|)) + (let ((__tmp151130 + (let ((__tmp151131 + (let ((__tmp151132 |gx[1]#_g151133_|)) (declare (not safe)) - (cons 'e __tmp149585)))) + (cons 'e __tmp151132)))) (declare (not safe)) - (cons __tmp149584 '())))) + (cons __tmp151131 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147852 - __tmp149583 + __obj149399 + __tmp151130 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147852)) + __obj149399)) (define |gx[:0:]#reserved-expander| - (let ((__obj147853 + (let ((__obj149400 (let () (declare (not safe)) (##structure @@ -9601,7 +9601,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147853 + __obj149400 'gx#reserved-expander::t '1 gerbil/core$$#class-type-info::t @@ -9609,7 +9609,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147853 + __obj149400 'reserved-expander '2 gerbil/core$$#class-type-info::t @@ -9617,26 +9617,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147853 + __obj149400 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149587 - (let ((__tmp149588 |gx[1]#_g149200_|)) + (let ((__tmp151134 + (let ((__tmp151135 |gx[1]#_g150747_|)) (declare (not safe)) - (cons __tmp149588 '())))) + (cons __tmp151135 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147853 - __tmp149587 + __obj149400 + __tmp151134 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147853 + __obj149400 '#t '5 gerbil/core$$#class-type-info::t @@ -9644,7 +9644,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147853 + __obj149400 '#f '6 gerbil/core$$#class-type-info::t @@ -9652,94 +9652,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147853 + __obj149400 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149589 |gx[1]#_g149590_|)) + (let ((__tmp151136 |gx[1]#_g151137_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147853 - __tmp149589 + __obj149400 + __tmp151136 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149591 |gx[1]#_g149592_|)) + (let ((__tmp151138 |gx[1]#_g151139_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147853 - __tmp149591 + __obj149400 + __tmp151138 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149593 |gx[1]#_g149594_|)) + (let ((__tmp151140 |gx[1]#_g151141_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147853 - __tmp149593 + __obj149400 + __tmp151140 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149595 - (let ((__tmp149596 - (let ((__tmp149597 |gx[1]#_g149598_|)) + (let ((__tmp151142 + (let ((__tmp151143 + (let ((__tmp151144 |gx[1]#_g151145_|)) (declare (not safe)) - (cons 'e __tmp149597)))) + (cons 'e __tmp151144)))) (declare (not safe)) - (cons __tmp149596 '())))) + (cons __tmp151143 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147853 - __tmp149595 + __obj149400 + __tmp151142 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149599 - (let ((__tmp149600 - (let ((__tmp149601 |gx[1]#_g149602_|)) + (let ((__tmp151146 + (let ((__tmp151147 + (let ((__tmp151148 |gx[1]#_g151149_|)) (declare (not safe)) - (cons 'e __tmp149601)))) + (cons 'e __tmp151148)))) (declare (not safe)) - (cons __tmp149600 '())))) + (cons __tmp151147 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147853 - __tmp149599 + __obj149400 + __tmp151146 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149603 - (let ((__tmp149604 - (let ((__tmp149605 |gx[1]#_g149606_|)) + (let ((__tmp151150 + (let ((__tmp151151 + (let ((__tmp151152 |gx[1]#_g151153_|)) (declare (not safe)) - (cons 'e __tmp149605)))) + (cons 'e __tmp151152)))) (declare (not safe)) - (cons __tmp149604 '())))) + (cons __tmp151151 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147853 - __tmp149603 + __obj149400 + __tmp151150 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149607 - (let ((__tmp149608 - (let ((__tmp149609 |gx[1]#_g149610_|)) + (let ((__tmp151154 + (let ((__tmp151155 + (let ((__tmp151156 |gx[1]#_g151157_|)) (declare (not safe)) - (cons 'e __tmp149609)))) + (cons 'e __tmp151156)))) (declare (not safe)) - (cons __tmp149608 '())))) + (cons __tmp151155 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147853 - __tmp149607 + __obj149400 + __tmp151154 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147853)) + __obj149400)) (define |gx[:0:]#macro-expander| - (let ((__obj147854 + (let ((__obj149401 (let () (declare (not safe)) (##structure @@ -9761,7 +9761,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147854 + __obj149401 'gx#core-macro::t '1 gerbil/core$$#class-type-info::t @@ -9769,7 +9769,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147854 + __obj149401 'macro-expander '2 gerbil/core$$#class-type-info::t @@ -9777,26 +9777,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147854 + __obj149401 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149611 - (let ((__tmp149612 |gx[1]#_g149200_|)) + (let ((__tmp151158 + (let ((__tmp151159 |gx[1]#_g150747_|)) (declare (not safe)) - (cons __tmp149612 '())))) + (cons __tmp151159 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147854 - __tmp149611 + __obj149401 + __tmp151158 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147854 + __obj149401 '#t '5 gerbil/core$$#class-type-info::t @@ -9804,7 +9804,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147854 + __obj149401 '#f '6 gerbil/core$$#class-type-info::t @@ -9812,94 +9812,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147854 + __obj149401 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149613 |gx[1]#_g149614_|)) + (let ((__tmp151160 |gx[1]#_g151161_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147854 - __tmp149613 + __obj149401 + __tmp151160 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149615 |gx[1]#_g149616_|)) + (let ((__tmp151162 |gx[1]#_g151163_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147854 - __tmp149615 + __obj149401 + __tmp151162 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149617 |gx[1]#_g149618_|)) + (let ((__tmp151164 |gx[1]#_g151165_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147854 - __tmp149617 + __obj149401 + __tmp151164 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149619 - (let ((__tmp149620 - (let ((__tmp149621 |gx[1]#_g149622_|)) + (let ((__tmp151166 + (let ((__tmp151167 + (let ((__tmp151168 |gx[1]#_g151169_|)) (declare (not safe)) - (cons 'e __tmp149621)))) + (cons 'e __tmp151168)))) (declare (not safe)) - (cons __tmp149620 '())))) + (cons __tmp151167 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147854 - __tmp149619 + __obj149401 + __tmp151166 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149623 - (let ((__tmp149624 - (let ((__tmp149625 |gx[1]#_g149626_|)) + (let ((__tmp151170 + (let ((__tmp151171 + (let ((__tmp151172 |gx[1]#_g151173_|)) (declare (not safe)) - (cons 'e __tmp149625)))) + (cons 'e __tmp151172)))) (declare (not safe)) - (cons __tmp149624 '())))) + (cons __tmp151171 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147854 - __tmp149623 + __obj149401 + __tmp151170 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149627 - (let ((__tmp149628 - (let ((__tmp149629 |gx[1]#_g149630_|)) + (let ((__tmp151174 + (let ((__tmp151175 + (let ((__tmp151176 |gx[1]#_g151177_|)) (declare (not safe)) - (cons 'e __tmp149629)))) + (cons 'e __tmp151176)))) (declare (not safe)) - (cons __tmp149628 '())))) + (cons __tmp151175 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147854 - __tmp149627 + __obj149401 + __tmp151174 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149631 - (let ((__tmp149632 - (let ((__tmp149633 |gx[1]#_g149634_|)) + (let ((__tmp151178 + (let ((__tmp151179 + (let ((__tmp151180 |gx[1]#_g151181_|)) (declare (not safe)) - (cons 'e __tmp149633)))) + (cons 'e __tmp151180)))) (declare (not safe)) - (cons __tmp149632 '())))) + (cons __tmp151179 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147854 - __tmp149631 + __obj149401 + __tmp151178 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147854)) + __obj149401)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj147855 + (let ((__obj149402 (let () (declare (not safe)) (##structure @@ -9921,7 +9921,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147855 + __obj149402 'gx#rename-macro-expander::t '1 gerbil/core$$#class-type-info::t @@ -9929,7 +9929,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147855 + __obj149402 'rename-macro-expander '2 gerbil/core$$#class-type-info::t @@ -9937,26 +9937,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147855 + __obj149402 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149635 - (let ((__tmp149636 |gx[1]#_g149637_|)) + (let ((__tmp151182 + (let ((__tmp151183 |gx[1]#_g151184_|)) (declare (not safe)) - (cons __tmp149636 '())))) + (cons __tmp151183 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147855 - __tmp149635 + __obj149402 + __tmp151182 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147855 + __obj149402 '#t '5 gerbil/core$$#class-type-info::t @@ -9964,7 +9964,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147855 + __obj149402 '#f '6 gerbil/core$$#class-type-info::t @@ -9972,94 +9972,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147855 + __obj149402 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149638 |gx[1]#_g149639_|)) + (let ((__tmp151185 |gx[1]#_g151186_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147855 - __tmp149638 + __obj149402 + __tmp151185 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149640 |gx[1]#_g149641_|)) + (let ((__tmp151187 |gx[1]#_g151188_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147855 - __tmp149640 + __obj149402 + __tmp151187 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149642 |gx[1]#_g149643_|)) + (let ((__tmp151189 |gx[1]#_g151190_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147855 - __tmp149642 + __obj149402 + __tmp151189 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149644 - (let ((__tmp149645 - (let ((__tmp149646 |gx[1]#_g149647_|)) + (let ((__tmp151191 + (let ((__tmp151192 + (let ((__tmp151193 |gx[1]#_g151194_|)) (declare (not safe)) - (cons 'e __tmp149646)))) + (cons 'e __tmp151193)))) (declare (not safe)) - (cons __tmp149645 '())))) + (cons __tmp151192 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147855 - __tmp149644 + __obj149402 + __tmp151191 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149648 - (let ((__tmp149649 - (let ((__tmp149650 |gx[1]#_g149651_|)) + (let ((__tmp151195 + (let ((__tmp151196 + (let ((__tmp151197 |gx[1]#_g151198_|)) (declare (not safe)) - (cons 'e __tmp149650)))) + (cons 'e __tmp151197)))) (declare (not safe)) - (cons __tmp149649 '())))) + (cons __tmp151196 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147855 - __tmp149648 + __obj149402 + __tmp151195 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149652 - (let ((__tmp149653 - (let ((__tmp149654 |gx[1]#_g149655_|)) + (let ((__tmp151199 + (let ((__tmp151200 + (let ((__tmp151201 |gx[1]#_g151202_|)) (declare (not safe)) - (cons 'e __tmp149654)))) + (cons 'e __tmp151201)))) (declare (not safe)) - (cons __tmp149653 '())))) + (cons __tmp151200 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147855 - __tmp149652 + __obj149402 + __tmp151199 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149656 - (let ((__tmp149657 - (let ((__tmp149658 |gx[1]#_g149659_|)) + (let ((__tmp151203 + (let ((__tmp151204 + (let ((__tmp151205 |gx[1]#_g151206_|)) (declare (not safe)) - (cons 'e __tmp149658)))) + (cons 'e __tmp151205)))) (declare (not safe)) - (cons __tmp149657 '())))) + (cons __tmp151204 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147855 - __tmp149656 + __obj149402 + __tmp151203 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147855)) + __obj149402)) (define |gx[:0:]#user-expander| - (let ((__obj147856 + (let ((__obj149403 (let () (declare (not safe)) (##structure @@ -10081,7 +10081,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147856 + __obj149403 'gx#macro-expander::t '1 gerbil/core$$#class-type-info::t @@ -10089,7 +10089,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147856 + __obj149403 'user-expander '2 gerbil/core$$#class-type-info::t @@ -10097,26 +10097,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147856 + __obj149403 '(context phi) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149660 - (let ((__tmp149661 |gx[1]#_g149637_|)) + (let ((__tmp151207 + (let ((__tmp151208 |gx[1]#_g151184_|)) (declare (not safe)) - (cons __tmp149661 '())))) + (cons __tmp151208 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj147856 - __tmp149660 + __obj149403 + __tmp151207 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj147856 + __obj149403 '#t '5 gerbil/core$$#class-type-info::t @@ -10124,7 +10124,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147856 + __obj149403 '#f '6 gerbil/core$$#class-type-info::t @@ -10132,150 +10132,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147856 + __obj149403 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149662 |gx[1]#_g149663_|)) + (let ((__tmp151209 |gx[1]#_g151210_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147856 - __tmp149662 + __obj149403 + __tmp151209 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149664 |gx[1]#_g149665_|)) + (let ((__tmp151211 |gx[1]#_g151212_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147856 - __tmp149664 + __obj149403 + __tmp151211 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149666 |gx[1]#_g149667_|)) + (let ((__tmp151213 |gx[1]#_g151214_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147856 - __tmp149666 + __obj149403 + __tmp151213 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149668 - (let ((__tmp149677 - (let ((__tmp149678 |gx[1]#_g149679_|)) + (let ((__tmp151215 + (let ((__tmp151224 + (let ((__tmp151225 |gx[1]#_g151226_|)) (declare (not safe)) - (cons 'context __tmp149678))) - (__tmp149669 - (let ((__tmp149674 - (let ((__tmp149675 |gx[1]#_g149676_|)) + (cons 'context __tmp151225))) + (__tmp151216 + (let ((__tmp151221 + (let ((__tmp151222 |gx[1]#_g151223_|)) (declare (not safe)) - (cons 'phi __tmp149675))) - (__tmp149670 - (let ((__tmp149671 - (let ((__tmp149672 |gx[1]#_g149673_|)) + (cons 'phi __tmp151222))) + (__tmp151217 + (let ((__tmp151218 + (let ((__tmp151219 |gx[1]#_g151220_|)) (declare (not safe)) - (cons 'e __tmp149672)))) + (cons 'e __tmp151219)))) (declare (not safe)) - (cons __tmp149671 '())))) + (cons __tmp151218 '())))) (declare (not safe)) - (cons __tmp149674 __tmp149670)))) + (cons __tmp151221 __tmp151217)))) (declare (not safe)) - (cons __tmp149677 __tmp149669)))) + (cons __tmp151224 __tmp151216)))) (declare (not safe)) (##unchecked-structure-set! - __obj147856 - __tmp149668 + __obj149403 + __tmp151215 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149680 - (let ((__tmp149689 - (let ((__tmp149690 |gx[1]#_g149691_|)) + (let ((__tmp151227 + (let ((__tmp151236 + (let ((__tmp151237 |gx[1]#_g151238_|)) (declare (not safe)) - (cons 'context __tmp149690))) - (__tmp149681 - (let ((__tmp149686 - (let ((__tmp149687 |gx[1]#_g149688_|)) + (cons 'context __tmp151237))) + (__tmp151228 + (let ((__tmp151233 + (let ((__tmp151234 |gx[1]#_g151235_|)) (declare (not safe)) - (cons 'phi __tmp149687))) - (__tmp149682 - (let ((__tmp149683 - (let ((__tmp149684 |gx[1]#_g149685_|)) + (cons 'phi __tmp151234))) + (__tmp151229 + (let ((__tmp151230 + (let ((__tmp151231 |gx[1]#_g151232_|)) (declare (not safe)) - (cons 'e __tmp149684)))) + (cons 'e __tmp151231)))) (declare (not safe)) - (cons __tmp149683 '())))) + (cons __tmp151230 '())))) (declare (not safe)) - (cons __tmp149686 __tmp149682)))) + (cons __tmp151233 __tmp151229)))) (declare (not safe)) - (cons __tmp149689 __tmp149681)))) + (cons __tmp151236 __tmp151228)))) (declare (not safe)) (##unchecked-structure-set! - __obj147856 - __tmp149680 + __obj149403 + __tmp151227 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149692 - (let ((__tmp149701 - (let ((__tmp149702 |gx[1]#_g149703_|)) + (let ((__tmp151239 + (let ((__tmp151248 + (let ((__tmp151249 |gx[1]#_g151250_|)) (declare (not safe)) - (cons 'context __tmp149702))) - (__tmp149693 - (let ((__tmp149698 - (let ((__tmp149699 |gx[1]#_g149700_|)) + (cons 'context __tmp151249))) + (__tmp151240 + (let ((__tmp151245 + (let ((__tmp151246 |gx[1]#_g151247_|)) (declare (not safe)) - (cons 'phi __tmp149699))) - (__tmp149694 - (let ((__tmp149695 - (let ((__tmp149696 |gx[1]#_g149697_|)) + (cons 'phi __tmp151246))) + (__tmp151241 + (let ((__tmp151242 + (let ((__tmp151243 |gx[1]#_g151244_|)) (declare (not safe)) - (cons 'e __tmp149696)))) + (cons 'e __tmp151243)))) (declare (not safe)) - (cons __tmp149695 '())))) + (cons __tmp151242 '())))) (declare (not safe)) - (cons __tmp149698 __tmp149694)))) + (cons __tmp151245 __tmp151241)))) (declare (not safe)) - (cons __tmp149701 __tmp149693)))) + (cons __tmp151248 __tmp151240)))) (declare (not safe)) (##unchecked-structure-set! - __obj147856 - __tmp149692 + __obj149403 + __tmp151239 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149704 - (let ((__tmp149713 - (let ((__tmp149714 |gx[1]#_g149715_|)) + (let ((__tmp151251 + (let ((__tmp151260 + (let ((__tmp151261 |gx[1]#_g151262_|)) (declare (not safe)) - (cons 'context __tmp149714))) - (__tmp149705 - (let ((__tmp149710 - (let ((__tmp149711 |gx[1]#_g149712_|)) + (cons 'context __tmp151261))) + (__tmp151252 + (let ((__tmp151257 + (let ((__tmp151258 |gx[1]#_g151259_|)) (declare (not safe)) - (cons 'phi __tmp149711))) - (__tmp149706 - (let ((__tmp149707 - (let ((__tmp149708 |gx[1]#_g149709_|)) + (cons 'phi __tmp151258))) + (__tmp151253 + (let ((__tmp151254 + (let ((__tmp151255 |gx[1]#_g151256_|)) (declare (not safe)) - (cons 'e __tmp149708)))) + (cons 'e __tmp151255)))) (declare (not safe)) - (cons __tmp149707 '())))) + (cons __tmp151254 '())))) (declare (not safe)) - (cons __tmp149710 __tmp149706)))) + (cons __tmp151257 __tmp151253)))) (declare (not safe)) - (cons __tmp149713 __tmp149705)))) + (cons __tmp151260 __tmp151252)))) (declare (not safe)) (##unchecked-structure-set! - __obj147856 - __tmp149704 + __obj149403 + __tmp151251 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147856)) + __obj149403)) (define |gx[:0:]#expander-mark| - (let ((__obj147857 + (let ((__obj149404 (let () (declare (not safe)) (##structure @@ -10297,7 +10297,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147857 + __obj149404 'gx#expander-mark::t '1 gerbil/core$$#class-type-info::t @@ -10305,7 +10305,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147857 + __obj149404 'expander-mark '2 gerbil/core$$#class-type-info::t @@ -10313,7 +10313,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147857 + __obj149404 '(subst context phi trace) '4 gerbil/core$$#class-type-info::t @@ -10321,7 +10321,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147857 + __obj149404 '() '3 gerbil/core$$#class-type-info::t @@ -10329,7 +10329,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147857 + __obj149404 '#t '5 gerbil/core$$#class-type-info::t @@ -10337,7 +10337,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147857 + __obj149404 '#f '6 gerbil/core$$#class-type-info::t @@ -10345,253 +10345,253 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj147857 + __obj149404 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149716 |gx[1]#_g149717_|)) + (let ((__tmp151263 |gx[1]#_g151264_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147857 - __tmp149716 + __obj149404 + __tmp151263 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149718 |gx[1]#_g149719_|)) + (let ((__tmp151265 |gx[1]#_g151266_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147857 - __tmp149718 + __obj149404 + __tmp151265 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149720 |gx[1]#_g149721_|)) + (let ((__tmp151267 |gx[1]#_g151268_|)) (declare (not safe)) (##unchecked-structure-set! - __obj147857 - __tmp149720 + __obj149404 + __tmp151267 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149722 - (let ((__tmp149735 - (let ((__tmp149736 |gx[1]#_g149737_|)) + (let ((__tmp151269 + (let ((__tmp151282 + (let ((__tmp151283 |gx[1]#_g151284_|)) (declare (not safe)) - (cons 'subst __tmp149736))) - (__tmp149723 - (let ((__tmp149732 - (let ((__tmp149733 |gx[1]#_g149734_|)) + (cons 'subst __tmp151283))) + (__tmp151270 + (let ((__tmp151279 + (let ((__tmp151280 |gx[1]#_g151281_|)) (declare (not safe)) - (cons 'context __tmp149733))) - (__tmp149724 - (let ((__tmp149729 - (let ((__tmp149730 |gx[1]#_g149731_|)) + (cons 'context __tmp151280))) + (__tmp151271 + (let ((__tmp151276 + (let ((__tmp151277 |gx[1]#_g151278_|)) (declare (not safe)) - (cons 'phi __tmp149730))) - (__tmp149725 - (let ((__tmp149726 - (let ((__tmp149727 - |gx[1]#_g149728_|)) + (cons 'phi __tmp151277))) + (__tmp151272 + (let ((__tmp151273 + (let ((__tmp151274 + |gx[1]#_g151275_|)) (declare (not safe)) - (cons 'trace __tmp149727)))) + (cons 'trace __tmp151274)))) (declare (not safe)) - (cons __tmp149726 '())))) + (cons __tmp151273 '())))) (declare (not safe)) - (cons __tmp149729 __tmp149725)))) + (cons __tmp151276 __tmp151272)))) (declare (not safe)) - (cons __tmp149732 __tmp149724)))) + (cons __tmp151279 __tmp151271)))) (declare (not safe)) - (cons __tmp149735 __tmp149723)))) + (cons __tmp151282 __tmp151270)))) (declare (not safe)) (##unchecked-structure-set! - __obj147857 - __tmp149722 + __obj149404 + __tmp151269 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149738 - (let ((__tmp149751 - (let ((__tmp149752 |gx[1]#_g149753_|)) + (let ((__tmp151285 + (let ((__tmp151298 + (let ((__tmp151299 |gx[1]#_g151300_|)) (declare (not safe)) - (cons 'subst __tmp149752))) - (__tmp149739 - (let ((__tmp149748 - (let ((__tmp149749 |gx[1]#_g149750_|)) + (cons 'subst __tmp151299))) + (__tmp151286 + (let ((__tmp151295 + (let ((__tmp151296 |gx[1]#_g151297_|)) (declare (not safe)) - (cons 'context __tmp149749))) - (__tmp149740 - (let ((__tmp149745 - (let ((__tmp149746 |gx[1]#_g149747_|)) + (cons 'context __tmp151296))) + (__tmp151287 + (let ((__tmp151292 + (let ((__tmp151293 |gx[1]#_g151294_|)) (declare (not safe)) - (cons 'phi __tmp149746))) - (__tmp149741 - (let ((__tmp149742 - (let ((__tmp149743 - |gx[1]#_g149744_|)) + (cons 'phi __tmp151293))) + (__tmp151288 + (let ((__tmp151289 + (let ((__tmp151290 + |gx[1]#_g151291_|)) (declare (not safe)) - (cons 'trace __tmp149743)))) + (cons 'trace __tmp151290)))) (declare (not safe)) - (cons __tmp149742 '())))) + (cons __tmp151289 '())))) (declare (not safe)) - (cons __tmp149745 __tmp149741)))) + (cons __tmp151292 __tmp151288)))) (declare (not safe)) - (cons __tmp149748 __tmp149740)))) + (cons __tmp151295 __tmp151287)))) (declare (not safe)) - (cons __tmp149751 __tmp149739)))) + (cons __tmp151298 __tmp151286)))) (declare (not safe)) (##unchecked-structure-set! - __obj147857 - __tmp149738 + __obj149404 + __tmp151285 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149754 - (let ((__tmp149767 - (let ((__tmp149768 |gx[1]#_g149769_|)) + (let ((__tmp151301 + (let ((__tmp151314 + (let ((__tmp151315 |gx[1]#_g151316_|)) (declare (not safe)) - (cons 'subst __tmp149768))) - (__tmp149755 - (let ((__tmp149764 - (let ((__tmp149765 |gx[1]#_g149766_|)) + (cons 'subst __tmp151315))) + (__tmp151302 + (let ((__tmp151311 + (let ((__tmp151312 |gx[1]#_g151313_|)) (declare (not safe)) - (cons 'context __tmp149765))) - (__tmp149756 - (let ((__tmp149761 - (let ((__tmp149762 |gx[1]#_g149763_|)) + (cons 'context __tmp151312))) + (__tmp151303 + (let ((__tmp151308 + (let ((__tmp151309 |gx[1]#_g151310_|)) (declare (not safe)) - (cons 'phi __tmp149762))) - (__tmp149757 - (let ((__tmp149758 - (let ((__tmp149759 - |gx[1]#_g149760_|)) + (cons 'phi __tmp151309))) + (__tmp151304 + (let ((__tmp151305 + (let ((__tmp151306 + |gx[1]#_g151307_|)) (declare (not safe)) - (cons 'trace __tmp149759)))) + (cons 'trace __tmp151306)))) (declare (not safe)) - (cons __tmp149758 '())))) + (cons __tmp151305 '())))) (declare (not safe)) - (cons __tmp149761 __tmp149757)))) + (cons __tmp151308 __tmp151304)))) (declare (not safe)) - (cons __tmp149764 __tmp149756)))) + (cons __tmp151311 __tmp151303)))) (declare (not safe)) - (cons __tmp149767 __tmp149755)))) + (cons __tmp151314 __tmp151302)))) (declare (not safe)) (##unchecked-structure-set! - __obj147857 - __tmp149754 + __obj149404 + __tmp151301 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149770 - (let ((__tmp149783 - (let ((__tmp149784 |gx[1]#_g149785_|)) + (let ((__tmp151317 + (let ((__tmp151330 + (let ((__tmp151331 |gx[1]#_g151332_|)) (declare (not safe)) - (cons 'subst __tmp149784))) - (__tmp149771 - (let ((__tmp149780 - (let ((__tmp149781 |gx[1]#_g149782_|)) + (cons 'subst __tmp151331))) + (__tmp151318 + (let ((__tmp151327 + (let ((__tmp151328 |gx[1]#_g151329_|)) (declare (not safe)) - (cons 'context __tmp149781))) - (__tmp149772 - (let ((__tmp149777 - (let ((__tmp149778 |gx[1]#_g149779_|)) + (cons 'context __tmp151328))) + (__tmp151319 + (let ((__tmp151324 + (let ((__tmp151325 |gx[1]#_g151326_|)) (declare (not safe)) - (cons 'phi __tmp149778))) - (__tmp149773 - (let ((__tmp149774 - (let ((__tmp149775 - |gx[1]#_g149776_|)) + (cons 'phi __tmp151325))) + (__tmp151320 + (let ((__tmp151321 + (let ((__tmp151322 + |gx[1]#_g151323_|)) (declare (not safe)) - (cons 'trace __tmp149775)))) + (cons 'trace __tmp151322)))) (declare (not safe)) - (cons __tmp149774 '())))) + (cons __tmp151321 '())))) (declare (not safe)) - (cons __tmp149777 __tmp149773)))) + (cons __tmp151324 __tmp151320)))) (declare (not safe)) - (cons __tmp149780 __tmp149772)))) + (cons __tmp151327 __tmp151319)))) (declare (not safe)) - (cons __tmp149783 __tmp149771)))) + (cons __tmp151330 __tmp151318)))) (declare (not safe)) (##unchecked-structure-set! - __obj147857 - __tmp149770 + __obj149404 + __tmp151317 '14 gerbil/core$$#class-type-info::t '#f)) - __obj147857)) + __obj149404)) (define |gx[:0:]#&phi-context?| - (lambda (_$stx140354_) - (let* ((_g140358140372_ - (lambda (_g140359140368_) + (lambda (_$stx141801_) + (let* ((_g141805141819_ + (lambda (_g141806141815_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g140359140368_)))) - (_g140357140414_ - (lambda (_g140359140376_) + _g141806141815_)))) + (_g141804141861_ + (lambda (_g141806141823_) (if (let () (declare (not safe)) - (gx#stx-pair? _g140359140376_)) - (let ((_e140363140379_ + (gx#stx-pair? _g141806141823_)) + (let ((_e141810141826_ (let () (declare (not safe)) - (gx#syntax-e _g140359140376_)))) - (let ((_hd140362140383_ + (gx#syntax-e _g141806141823_)))) + (let ((_hd141809141830_ (let () (declare (not safe)) - (##car _e140363140379_))) - (_tl140361140386_ + (##car _e141810141826_))) + (_tl141808141833_ (let () (declare (not safe)) - (##cdr _e140363140379_)))) + (##cdr _e141810141826_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140361140386_)) - (let ((_e140366140389_ + (gx#stx-pair? _tl141808141833_)) + (let ((_e141813141836_ (let () (declare (not safe)) - (gx#syntax-e _tl140361140386_)))) - (let ((_hd140365140393_ + (gx#syntax-e _tl141808141833_)))) + (let ((_hd141812141840_ (let () (declare (not safe)) - (##car _e140366140389_))) - (_tl140364140396_ + (##car _e141813141836_))) + (_tl141811141843_ (let () (declare (not safe)) - (##cdr _e140366140389_)))) + (##cdr _e141813141836_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140364140396_)) - ((lambda (_L140399_) - (let ((__tmp149791 + (gx#stx-null? _tl141811141843_)) + ((lambda (_L141846_) + (let ((__tmp151338 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'fx>))) - (__tmp149786 - (let ((__tmp149788 - (let ((__tmp149790 + (__tmp151333 + (let ((__tmp151335 + (let ((__tmp151337 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '##vector-length))) - (__tmp149789 - (let () (declare (not safe)) (cons _L140399_ '())))) + (__tmp151336 + (let () (declare (not safe)) (cons _L141846_ '())))) (declare (not safe)) - (cons __tmp149790 __tmp149789))) - (__tmp149787 (let () (declare (not safe)) (cons '3 '())))) + (cons __tmp151337 __tmp151336))) + (__tmp151334 (let () (declare (not safe)) (cons '3 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp149788 - __tmp149787)))) + (cons __tmp151335 + __tmp151334)))) (declare (not safe)) - (cons __tmp149791 __tmp149786))) - _hd140365140393_) - (_g140358140372_ _g140359140376_)))) - (_g140358140372_ _g140359140376_)))) - (_g140358140372_ _g140359140376_))))) - (_g140357140414_ _$stx140354_)))))) + (cons __tmp151338 __tmp151333))) + _hd141812141840_) + (_g141805141819_ _g141806141823_)))) + (_g141805141819_ _g141806141823_)))) + (_g141805141819_ _g141806141823_))))) + (_g141804141861_ _$stx141801_)))))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index f0e213671..84b6f1be8 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -192,8 +192,10 @@ package: gerbil/expander :init! #f #f - ((apply-import-expander . gx#import-expander::apply-import-expander) - (:init! . gx#import-expander:::init!)))) + ((:init! . gx#import-expander:::init!) + (apply-import-expander + . + gx#import-expander::apply-import-expander)))) (declare-type gx#import-expander? (@predicate gx#import-expander::t)) (declare-type gx#make-import-expander (@constructor gx#import-expander::t)) (declare-type @@ -238,8 +240,10 @@ package: gerbil/expander :init! #f #f - ((apply-export-expander . gx#export-expander::apply-export-expander) - (:init! . gx#export-expander:::init!)))) + ((:init! . gx#export-expander:::init!) + (apply-export-expander + . + gx#export-expander::apply-export-expander)))) (declare-type gx#export-expander? (@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 f5b8a2adf..14eb62fb5 100644 --- a/src/bootstrap/gerbil/expander/module__0.scm +++ b/src/bootstrap/gerbil/expander/module__0.scm @@ -1,176 +1,174 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/module::timestamp 1707573212) + (define gerbil/expander/module::timestamp 1707674931) (begin (declare (not safe)) (define gx#module-import::t - (make-struct-type + (make-class-type 'gx#module-import::t 'module-import - '#f + (list) '(source name phi weak?) (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) - (define gx#module-import? (make-struct-predicate gx#module-import::t)) + (define gx#module-import? (make-class-predicate gx#module-import::t)) (define gx#make-module-import - (lambda _$args160741_ - (apply make-struct-instance gx#module-import::t _$args160741_))) + (lambda _$args162388_ + (apply make-instance gx#module-import::t _$args162388_))) (define gx#module-import-source - (make-struct-slot-accessor gx#module-import::t 'source)) + (make-class-slot-accessor gx#module-import::t 'source)) (define gx#module-import-name - (make-struct-slot-accessor gx#module-import::t 'name)) + (make-class-slot-accessor gx#module-import::t 'name)) (define gx#module-import-phi - (make-struct-slot-accessor gx#module-import::t 'phi)) + (make-class-slot-accessor gx#module-import::t 'phi)) (define gx#module-import-weak? - (make-struct-slot-accessor gx#module-import::t 'weak?)) + (make-class-slot-accessor gx#module-import::t 'weak?)) (define gx#module-import-source-set! - (make-struct-slot-mutator gx#module-import::t 'source)) + (make-class-slot-mutator gx#module-import::t 'source)) (define gx#module-import-name-set! - (make-struct-slot-mutator gx#module-import::t 'name)) + (make-class-slot-mutator gx#module-import::t 'name)) (define gx#module-import-phi-set! - (make-struct-slot-mutator gx#module-import::t 'phi)) + (make-class-slot-mutator gx#module-import::t 'phi)) (define gx#module-import-weak?-set! - (make-struct-slot-mutator gx#module-import::t 'weak?)) + (make-class-slot-mutator gx#module-import::t 'weak?)) (define gx#&module-import-source - (make-struct-slot-unchecked-accessor gx#module-import::t 'source)) + (make-class-slot-unchecked-accessor gx#module-import::t 'source)) (define gx#&module-import-name - (make-struct-slot-unchecked-accessor gx#module-import::t 'name)) + (make-class-slot-unchecked-accessor gx#module-import::t 'name)) (define gx#&module-import-phi - (make-struct-slot-unchecked-accessor gx#module-import::t 'phi)) + (make-class-slot-unchecked-accessor gx#module-import::t 'phi)) (define gx#&module-import-weak? - (make-struct-slot-unchecked-accessor gx#module-import::t 'weak?)) + (make-class-slot-unchecked-accessor gx#module-import::t 'weak?)) (define gx#&module-import-source-set! - (make-struct-slot-unchecked-mutator gx#module-import::t 'source)) + (make-class-slot-unchecked-mutator gx#module-import::t 'source)) (define gx#&module-import-name-set! - (make-struct-slot-unchecked-mutator gx#module-import::t 'name)) + (make-class-slot-unchecked-mutator gx#module-import::t 'name)) (define gx#&module-import-phi-set! - (make-struct-slot-unchecked-mutator gx#module-import::t 'phi)) + (make-class-slot-unchecked-mutator gx#module-import::t 'phi)) (define gx#&module-import-weak?-set! - (make-struct-slot-unchecked-mutator gx#module-import::t 'weak?)) + (make-class-slot-unchecked-mutator gx#module-import::t 'weak?)) (define gx#module-export::t - (make-struct-type + (make-class-type 'gx#module-export::t 'module-export - '#f + (list) '(context key phi name weak?) (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) - (define gx#module-export? (make-struct-predicate gx#module-export::t)) + (define gx#module-export? (make-class-predicate gx#module-export::t)) (define gx#make-module-export - (lambda _$args160738_ - (apply make-struct-instance gx#module-export::t _$args160738_))) + (lambda _$args162385_ + (apply make-instance gx#module-export::t _$args162385_))) (define gx#module-export-context - (make-struct-slot-accessor gx#module-export::t 'context)) + (make-class-slot-accessor gx#module-export::t 'context)) (define gx#module-export-key - (make-struct-slot-accessor gx#module-export::t 'key)) + (make-class-slot-accessor gx#module-export::t 'key)) (define gx#module-export-phi - (make-struct-slot-accessor gx#module-export::t 'phi)) + (make-class-slot-accessor gx#module-export::t 'phi)) (define gx#module-export-name - (make-struct-slot-accessor gx#module-export::t 'name)) + (make-class-slot-accessor gx#module-export::t 'name)) (define gx#module-export-weak? - (make-struct-slot-accessor gx#module-export::t 'weak?)) + (make-class-slot-accessor gx#module-export::t 'weak?)) (define gx#module-export-context-set! - (make-struct-slot-mutator gx#module-export::t 'context)) + (make-class-slot-mutator gx#module-export::t 'context)) (define gx#module-export-key-set! - (make-struct-slot-mutator gx#module-export::t 'key)) + (make-class-slot-mutator gx#module-export::t 'key)) (define gx#module-export-phi-set! - (make-struct-slot-mutator gx#module-export::t 'phi)) + (make-class-slot-mutator gx#module-export::t 'phi)) (define gx#module-export-name-set! - (make-struct-slot-mutator gx#module-export::t 'name)) + (make-class-slot-mutator gx#module-export::t 'name)) (define gx#module-export-weak?-set! - (make-struct-slot-mutator gx#module-export::t 'weak?)) + (make-class-slot-mutator gx#module-export::t 'weak?)) (define gx#&module-export-context - (make-struct-slot-unchecked-accessor gx#module-export::t 'context)) + (make-class-slot-unchecked-accessor gx#module-export::t 'context)) (define gx#&module-export-key - (make-struct-slot-unchecked-accessor gx#module-export::t 'key)) + (make-class-slot-unchecked-accessor gx#module-export::t 'key)) (define gx#&module-export-phi - (make-struct-slot-unchecked-accessor gx#module-export::t 'phi)) + (make-class-slot-unchecked-accessor gx#module-export::t 'phi)) (define gx#&module-export-name - (make-struct-slot-unchecked-accessor gx#module-export::t 'name)) + (make-class-slot-unchecked-accessor gx#module-export::t 'name)) (define gx#&module-export-weak? - (make-struct-slot-unchecked-accessor gx#module-export::t 'weak?)) + (make-class-slot-unchecked-accessor gx#module-export::t 'weak?)) (define gx#&module-export-context-set! - (make-struct-slot-unchecked-mutator gx#module-export::t 'context)) + (make-class-slot-unchecked-mutator gx#module-export::t 'context)) (define gx#&module-export-key-set! - (make-struct-slot-unchecked-mutator gx#module-export::t 'key)) + (make-class-slot-unchecked-mutator gx#module-export::t 'key)) (define gx#&module-export-phi-set! - (make-struct-slot-unchecked-mutator gx#module-export::t 'phi)) + (make-class-slot-unchecked-mutator gx#module-export::t 'phi)) (define gx#&module-export-name-set! - (make-struct-slot-unchecked-mutator gx#module-export::t 'name)) + (make-class-slot-unchecked-mutator gx#module-export::t 'name)) (define gx#&module-export-weak?-set! - (make-struct-slot-unchecked-mutator gx#module-export::t 'weak?)) + (make-class-slot-unchecked-mutator gx#module-export::t 'weak?)) (define gx#import-set::t - (make-struct-type + (make-class-type 'gx#import-set::t 'import-set - '#f + (list) '(source phi imports) (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) - (define gx#import-set? (make-struct-predicate gx#import-set::t)) + (define gx#import-set? (make-class-predicate gx#import-set::t)) (define gx#make-import-set - (lambda _$args160735_ - (apply make-struct-instance gx#import-set::t _$args160735_))) + (lambda _$args162382_ + (apply make-instance gx#import-set::t _$args162382_))) (define gx#import-set-source - (make-struct-slot-accessor gx#import-set::t 'source)) - (define gx#import-set-phi - (make-struct-slot-accessor gx#import-set::t 'phi)) + (make-class-slot-accessor gx#import-set::t 'source)) + (define gx#import-set-phi (make-class-slot-accessor gx#import-set::t 'phi)) (define gx#import-set-imports - (make-struct-slot-accessor gx#import-set::t 'imports)) + (make-class-slot-accessor gx#import-set::t 'imports)) (define gx#import-set-source-set! - (make-struct-slot-mutator gx#import-set::t 'source)) + (make-class-slot-mutator gx#import-set::t 'source)) (define gx#import-set-phi-set! - (make-struct-slot-mutator gx#import-set::t 'phi)) + (make-class-slot-mutator gx#import-set::t 'phi)) (define gx#import-set-imports-set! - (make-struct-slot-mutator gx#import-set::t 'imports)) + (make-class-slot-mutator gx#import-set::t 'imports)) (define gx#&import-set-source - (make-struct-slot-unchecked-accessor gx#import-set::t 'source)) + (make-class-slot-unchecked-accessor gx#import-set::t 'source)) (define gx#&import-set-phi - (make-struct-slot-unchecked-accessor gx#import-set::t 'phi)) + (make-class-slot-unchecked-accessor gx#import-set::t 'phi)) (define gx#&import-set-imports - (make-struct-slot-unchecked-accessor gx#import-set::t 'imports)) + (make-class-slot-unchecked-accessor gx#import-set::t 'imports)) (define gx#&import-set-source-set! - (make-struct-slot-unchecked-mutator gx#import-set::t 'source)) + (make-class-slot-unchecked-mutator gx#import-set::t 'source)) (define gx#&import-set-phi-set! - (make-struct-slot-unchecked-mutator gx#import-set::t 'phi)) + (make-class-slot-unchecked-mutator gx#import-set::t 'phi)) (define gx#&import-set-imports-set! - (make-struct-slot-unchecked-mutator gx#import-set::t 'imports)) + (make-class-slot-unchecked-mutator gx#import-set::t 'imports)) (define gx#export-set::t - (make-struct-type + (make-class-type 'gx#export-set::t 'export-set - '#f + (list) '(source phi exports) (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) - (define gx#export-set? (make-struct-predicate gx#export-set::t)) + (define gx#export-set? (make-class-predicate gx#export-set::t)) (define gx#make-export-set - (lambda _$args160732_ - (apply make-struct-instance gx#export-set::t _$args160732_))) + (lambda _$args162379_ + (apply make-instance gx#export-set::t _$args162379_))) (define gx#export-set-source - (make-struct-slot-accessor gx#export-set::t 'source)) - (define gx#export-set-phi - (make-struct-slot-accessor gx#export-set::t 'phi)) + (make-class-slot-accessor gx#export-set::t 'source)) + (define gx#export-set-phi (make-class-slot-accessor gx#export-set::t 'phi)) (define gx#export-set-exports - (make-struct-slot-accessor gx#export-set::t 'exports)) + (make-class-slot-accessor gx#export-set::t 'exports)) (define gx#export-set-source-set! - (make-struct-slot-mutator gx#export-set::t 'source)) + (make-class-slot-mutator gx#export-set::t 'source)) (define gx#export-set-phi-set! - (make-struct-slot-mutator gx#export-set::t 'phi)) + (make-class-slot-mutator gx#export-set::t 'phi)) (define gx#export-set-exports-set! - (make-struct-slot-mutator gx#export-set::t 'exports)) + (make-class-slot-mutator gx#export-set::t 'exports)) (define gx#&export-set-source - (make-struct-slot-unchecked-accessor gx#export-set::t 'source)) + (make-class-slot-unchecked-accessor gx#export-set::t 'source)) (define gx#&export-set-phi - (make-struct-slot-unchecked-accessor gx#export-set::t 'phi)) + (make-class-slot-unchecked-accessor gx#export-set::t 'phi)) (define gx#&export-set-exports - (make-struct-slot-unchecked-accessor gx#export-set::t 'exports)) + (make-class-slot-unchecked-accessor gx#export-set::t 'exports)) (define gx#&export-set-source-set! - (make-struct-slot-unchecked-mutator gx#export-set::t 'source)) + (make-class-slot-unchecked-mutator gx#export-set::t 'source)) (define gx#&export-set-phi-set! - (make-struct-slot-unchecked-mutator gx#export-set::t 'phi)) + (make-class-slot-unchecked-mutator gx#export-set::t 'phi)) (define gx#&export-set-exports-set! - (make-struct-slot-unchecked-mutator gx#export-set::t 'exports)) + (make-class-slot-unchecked-mutator gx#export-set::t 'exports)) (define gx#import-expander::t (make-class-type 'gx#import-expander::t @@ -181,8 +179,8 @@ ':init!)) (define gx#import-expander? (make-class-predicate gx#import-expander::t)) (define gx#make-import-expander - (lambda _$args160729_ - (apply make-class-instance gx#import-expander::t _$args160729_))) + (lambda _$args162376_ + (apply make-instance gx#import-expander::t _$args162376_))) (define gx#import-expander-context (make-class-slot-accessor gx#import-expander::t 'context)) (define gx#import-expander-phi @@ -217,8 +215,8 @@ ':init!)) (define gx#export-expander? (make-class-predicate gx#export-expander::t)) (define gx#make-export-expander - (lambda _$args160726_ - (apply make-class-instance gx#export-expander::t _$args160726_))) + (lambda _$args162373_ + (apply make-instance gx#export-expander::t _$args162373_))) (define gx#export-expander-context (make-class-slot-accessor gx#export-expander::t 'context)) (define gx#export-expander-phi @@ -254,10 +252,8 @@ (define gx#import-export-expander? (make-class-predicate gx#import-export-expander::t)) (define gx#make-import-export-expander - (lambda _$args160723_ - (apply make-class-instance - gx#import-export-expander::t - _$args160723_))) + (lambda _$args162370_ + (apply make-instance gx#import-export-expander::t _$args162370_))) (define gx#import-export-expander-context (make-class-slot-accessor gx#import-export-expander::t 'context)) (define gx#import-export-expander-phi @@ -292,292 +288,292 @@ (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 (_path160720_ _fun160721_) + (lambda (_path162367_ _fun162368_) (call-with-input-file - (cons 'path: (cons _path160720_ gx#source-file-settings)) - _fun160721_))) + (cons 'path: (cons _path162367_ gx#source-file-settings)) + _fun162368_))) (define gx#module-context:::init! - (lambda (_self160714_ _id160715_ _super160716_ _ns160717_ _path160718_) - (if (##fx< '11 (##structure-length _self160714_)) + (lambda (_self162361_ _id162362_ _super162363_ _ns162364_ _path162365_) + (if (##fx< '11 (##structure-length _self162361_)) (begin (##unchecked-structure-set! - _self160714_ - _id160715_ + _self162361_ + _id162362_ '1 - (##structure-type _self160714_) + (##structure-type _self162361_) '#f) (##unchecked-structure-set! - _self160714_ + _self162361_ (make-table 'test: eq?) '2 - (##structure-type _self160714_) + (##structure-type _self162361_) '#f) (##unchecked-structure-set! - _self160714_ - _super160716_ + _self162361_ + _super162363_ '3 - (##structure-type _self160714_) + (##structure-type _self162361_) '#f) (##unchecked-structure-set! - _self160714_ + _self162361_ '#f '4 - (##structure-type _self160714_) + (##structure-type _self162361_) '#f) (##unchecked-structure-set! - _self160714_ + _self162361_ '#f '5 - (##structure-type _self160714_) + (##structure-type _self162361_) '#f) (##unchecked-structure-set! - _self160714_ - _ns160717_ + _self162361_ + _ns162364_ '6 - (##structure-type _self160714_) + (##structure-type _self162361_) '#f) (##unchecked-structure-set! - _self160714_ - _path160718_ + _self162361_ + _path162365_ '7 - (##structure-type _self160714_) + (##structure-type _self162361_) '#f) (##unchecked-structure-set! - _self160714_ + _self162361_ '() '8 - (##structure-type _self160714_) + (##structure-type _self162361_) '#f) (##unchecked-structure-set! - _self160714_ + _self162361_ '() '9 - (##structure-type _self160714_) + (##structure-type _self162361_) '#f) (##unchecked-structure-set! - _self160714_ + _self162361_ '#f '10 - (##structure-type _self160714_) + (##structure-type _self162361_) '#f) (##unchecked-structure-set! - _self160714_ + _self162361_ '#f '11 - (##structure-type _self160714_) + (##structure-type _self162361_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self160714_ + _self162361_ '11 - (##vector-length _self160714_))))) + (##vector-length _self162361_))))) (bind-method! gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_self160558_ _ctx160559_ _root160560_) - (let ((_super160568_ - (let ((_$e160562_ _root160560_)) - (if _$e160562_ - _$e160562_ - (let ((_$e160565_ (gx#core-context-root__0))) - (if _$e160565_ - _$e160565_ - (let ((__obj165251 + (lambda (_self162205_ _ctx162206_ _root162207_) + (let ((_super162215_ + (let ((_$e162209_ _root162207_)) + (if _$e162209_ + _$e162209_ + (let ((_$e162212_ (gx#core-context-root__0))) + (if _$e162212_ + _$e162212_ + (let ((__obj166998 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor165252 + (let ((__constructor166999 (direct-method-ref gx#root-context::t ':init!))) - (if __constructor165252 - (__constructor165252 __obj165251) + (if __constructor166999 + (__constructor166999 __obj166998) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj165251))))))) - (if _ctx160559_ - (let ((_id160571_ + __obj166998))))))) + (if _ctx162206_ + (let ((_id162218_ (##structure-ref - _ctx160559_ + _ctx162206_ '1 gx#expander-context::t '#f)) - (_path160572_ - (##structure-ref _ctx160559_ '7 gx#module-context::t '#f)) - (_in160573_ + (_path162219_ + (##structure-ref _ctx162206_ '7 gx#module-context::t '#f)) + (_in162220_ (map gx#core-module-export->import (##structure-ref - _ctx160559_ + _ctx162206_ '9 gx#module-context::t '#f))) - (_e160574_ - (make-promise (lambda () (gx#eval-module _ctx160559_))))) - (if (##fx< '8 (##structure-length _self160558_)) + (_e162221_ + (make-promise (lambda () (gx#eval-module _ctx162206_))))) + (if (##fx< '8 (##structure-length _self162205_)) (begin (##unchecked-structure-set! - _self160558_ - _id160571_ + _self162205_ + _id162218_ '1 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ - (make-table 'test: eq? 'size: (length _in160573_)) + _self162205_ + (make-table 'test: eq? 'size: (length _in162220_)) '2 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ - _super160568_ + _self162205_ + _super162215_ '3 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ + _self162205_ '#f '4 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ + _self162205_ '#f '5 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ - _path160572_ + _self162205_ + _path162219_ '6 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ - _in160573_ + _self162205_ + _in162220_ '7 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ - _e160574_ + _self162205_ + _e162221_ '8 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self160558_ + _self162205_ '8 - (##vector-length _self160558_))) + (##vector-length _self162205_))) (for-each - (lambda (_g160575160577_) - (gx#core-bind-weak-import!__% _g160575160577_ _self160558_)) - _in160573_)) - (if (##fx< '8 (##structure-length _self160558_)) + (lambda (_g162222162224_) + (gx#core-bind-weak-import!__% _g162222162224_ _self162205_)) + _in162220_)) + (if (##fx< '8 (##structure-length _self162205_)) (begin (##unchecked-structure-set! - _self160558_ + _self162205_ '#f '1 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ + _self162205_ (make-table 'test: eq?) '2 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ - _super160568_ + _self162205_ + _super162215_ '3 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ + _self162205_ '#f '4 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ + _self162205_ '#f '5 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ + _self162205_ '#f '6 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ + _self162205_ '() '7 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f) (##unchecked-structure-set! - _self160558_ + _self162205_ '#f '8 - (##structure-type _self160558_) + (##structure-type _self162205_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self160558_ + _self162205_ '8 - (##vector-length _self160558_))))))) + (##vector-length _self162205_))))))) (define gx#prelude-context:::init!__0 - (lambda (_self160583_ _ctx160584_) - (let ((_root160586_ '#f)) + (lambda (_self162230_ _ctx162231_) + (let ((_root162233_ '#f)) (gx#prelude-context:::init!__% - _self160583_ - _ctx160584_ - _root160586_)))) + _self162230_ + _ctx162231_ + _root162233_)))) (define gx#prelude-context:::init! - (lambda _g165258_ - (let ((_g165257_ (##length _g165258_))) - (cond ((##fx= _g165257_ 2) - (apply (lambda (_self160583_ _ctx160584_) + (lambda _g167005_ + (let ((_g167004_ (##length _g167005_))) + (cond ((##fx= _g167004_ 2) + (apply (lambda (_self162230_ _ctx162231_) (gx#prelude-context:::init!__0 - _self160583_ - _ctx160584_)) - _g165258_)) - ((##fx= _g165257_ 3) - (apply (lambda (_self160588_ _ctx160589_ _root160590_) + _self162230_ + _ctx162231_)) + _g167005_)) + ((##fx= _g167004_ 3) + (apply (lambda (_self162235_ _ctx162236_ _root162237_) (gx#prelude-context:::init!__% - _self160588_ - _ctx160589_ - _root160590_)) - _g165258_)) + _self162235_ + _ctx162236_ + _root162237_)) + _g167005_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g165258_)))))) + _g167005_)))))) (bind-method! gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_self160432_ _e160433_) - (if (##fx< '3 (##structure-length _self160432_)) + (lambda (_self162079_ _e162080_) + (if (##fx< '3 (##structure-length _self162079_)) (begin (##unchecked-structure-set! - _self160432_ - _e160433_ + _self162079_ + _e162080_ '1 - (##structure-type _self160432_) + (##structure-type _self162079_) '#f) (##unchecked-structure-set! - _self160432_ + _self162079_ (gx#current-expander-context) '2 - (##structure-type _self160432_) + (##structure-type _self162079_) '#f) (##unchecked-structure-set! - _self160432_ + _self162079_ (fx- (gx#current-expander-phi) '1) '3 - (##structure-type _self160432_) + (##structure-type _self162079_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self160432_ + _self162079_ '3 - (##vector-length _self160432_))))) + (##vector-length _self162079_))))) (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!) @@ -589,10 +585,10 @@ gx#import-export-expander:::init! '#f) (define gx#import-expander::apply-import-expander - (lambda (_g160058160061_ _g160059160063_) + (lambda (_g161705161708_ _g161706161710_) (gx#core-apply-user-expander__% - _g160058160061_ - _g160059160063_ + _g161705161708_ + _g161706161710_ 'apply-import-expander))) (bind-method! gx#import-expander::t @@ -600,10 +596,10 @@ gx#import-expander::apply-import-expander '#f) (define gx#export-expander::apply-export-expander - (lambda (_g159929159932_ _g159930159934_) + (lambda (_g161576161579_ _g161577161581_) (gx#core-apply-user-expander__% - _g159929159932_ - _g159930159934_ + _g161576161579_ + _g161577161581_ 'apply-export-expander))) (bind-method! gx#export-expander::t @@ -611,116 +607,116 @@ gx#export-expander::apply-export-expander '#f) (define gx#module-source-path - (lambda (_ctx159800_) - (let* ((_path159802_ - (##structure-ref _ctx159800_ '7 gx#module-context::t '#f)) - (_path159804_ - (if (pair? _path159802_) (last _path159802_) _path159802_))) - (if (string? _path159804_) _path159804_ '#f)))) + (lambda (_ctx161447_) + (let* ((_path161449_ + (##structure-ref _ctx161447_ '7 gx#module-context::t '#f)) + (_path161451_ + (if (pair? _path161449_) (last _path161449_) _path161449_))) + (if (string? _path161451_) _path161451_ '#f)))) (define gx#import-module__% - (lambda (_path159776_ _reload?159777_ _eval?159778_) - (let ((_ctx159780_ + (lambda (_path161423_ _reload?161424_ _eval?161425_) + (let ((_ctx161427_ ((gx#current-expander-module-import) - _path159776_ - _reload?159777_))) - (if (and _ctx159780_ _eval?159778_) - (gx#eval-module _ctx159780_) + _path161423_ + _reload?161424_))) + (if (and _ctx161427_ _eval?161425_) + (gx#eval-module _ctx161427_) '#!void) - _ctx159780_))) + _ctx161427_))) (define gx#import-module__0 - (lambda (_path159785_) - (let* ((_reload?159787_ '#f) (_eval?159789_ '#f)) - (gx#import-module__% _path159785_ _reload?159787_ _eval?159789_)))) + (lambda (_path161432_) + (let* ((_reload?161434_ '#f) (_eval?161436_ '#f)) + (gx#import-module__% _path161432_ _reload?161434_ _eval?161436_)))) (define gx#import-module__1 - (lambda (_path159791_ _reload?159792_) - (let ((_eval?159794_ '#f)) - (gx#import-module__% _path159791_ _reload?159792_ _eval?159794_)))) + (lambda (_path161438_ _reload?161439_) + (let ((_eval?161441_ '#f)) + (gx#import-module__% _path161438_ _reload?161439_ _eval?161441_)))) (define gx#import-module - (lambda _g165260_ - (let ((_g165259_ (##length _g165260_))) - (cond ((##fx= _g165259_ 1) - (apply (lambda (_path159785_) - (gx#import-module__0 _path159785_)) - _g165260_)) - ((##fx= _g165259_ 2) - (apply (lambda (_path159791_ _reload?159792_) - (gx#import-module__1 _path159791_ _reload?159792_)) - _g165260_)) - ((##fx= _g165259_ 3) - (apply (lambda (_path159796_ _reload?159797_ _eval?159798_) + (lambda _g167007_ + (let ((_g167006_ (##length _g167007_))) + (cond ((##fx= _g167006_ 1) + (apply (lambda (_path161432_) + (gx#import-module__0 _path161432_)) + _g167007_)) + ((##fx= _g167006_ 2) + (apply (lambda (_path161438_ _reload?161439_) + (gx#import-module__1 _path161438_ _reload?161439_)) + _g167007_)) + ((##fx= _g167006_ 3) + (apply (lambda (_path161443_ _reload?161444_ _eval?161445_) (gx#import-module__% - _path159796_ - _reload?159797_ - _eval?159798_)) - _g165260_)) + _path161443_ + _reload?161444_ + _eval?161445_)) + _g167007_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g165260_)))))) + _g167007_)))))) (define gx#eval-module - (lambda (_mod159773_) ((gx#current-expander-module-eval) _mod159773_))) + (lambda (_mod161420_) ((gx#current-expander-module-eval) _mod161420_))) (define gx#core-eval-module - (lambda (_obj159758_) - (letrec ((_force-e159760_ - (lambda (_getf159769_ _e159770_) + (lambda (_obj161405_) + (letrec ((_force-e161407_ + (lambda (_getf161416_ _e161417_) (call-with-parameters - (lambda () (force (_getf159769_ _e159770_))) + (lambda () (force (_getf161416_ _e161417_))) gx#current-expander-context - _e159770_ + _e161417_ gx#current-expander-phi '0)))) - (let _recur159762_ ((_e159764_ _obj159758_)) - (if (##structure-instance-of? _e159764_ 'gx#module-context::t) + (let _recur161409_ ((_e161411_ _obj161405_)) + (if (##structure-instance-of? _e161411_ 'gx#module-context::t) (begin - (let ((_$e159766_ (gx#core-context-prelude__% _e159764_))) - (if _$e159766_ (_recur159762_ _$e159766_) '#!void)) - (_force-e159760_ gx#module-context-e _e159764_)) - (if (##structure-instance-of? _e159764_ 'gx#prelude-context::t) - (_force-e159760_ gx#prelude-context-e _e159764_) - (if (gx#stx-string? _e159764_) - (_recur159762_ + (let ((_$e161413_ (gx#core-context-prelude__% _e161411_))) + (if _$e161413_ (_recur161409_ _$e161413_) '#!void)) + (_force-e161407_ gx#module-context-e _e161411_)) + (if (##structure-instance-of? _e161411_ 'gx#prelude-context::t) + (_force-e161407_ gx#prelude-context-e _e161411_) + (if (gx#stx-string? _e161411_) + (_recur161409_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _e159764_))) - (if (gx#core-library-module-path? _e159764_) - (_recur159762_ + (gx#core-resolve-module-path__0 _e161411_))) + (if (gx#core-library-module-path? _e161411_) + (_recur161409_ (gx#import-module__0 - (gx#core-resolve-library-module-path _e159764_))) - (error '"Cannot eval module" _obj159758_))))))))) + (gx#core-resolve-library-module-path _e161411_))) + (error '"Cannot eval module" _obj161405_))))))))) (define gx#core-context-prelude__% - (lambda (_ctx159741_) - (let _lp159743_ ((_e159745_ _ctx159741_)) - (if (or (##structure-instance-of? _e159745_ 'gx#module-context::t) - (##structure-instance-of? _e159745_ 'gx#local-context::t)) - (_lp159743_ - (##unchecked-structure-ref _e159745_ '3 gx#phi-context::t '#f)) - (if (##structure-instance-of? _e159745_ 'gx#prelude-context::t) - _e159745_ + (lambda (_ctx161388_) + (let _lp161390_ ((_e161392_ _ctx161388_)) + (if (or (##structure-instance-of? _e161392_ 'gx#module-context::t) + (##structure-instance-of? _e161392_ 'gx#local-context::t)) + (_lp161390_ + (##unchecked-structure-ref _e161392_ '3 gx#phi-context::t '#f)) + (if (##structure-instance-of? _e161392_ 'gx#prelude-context::t) + _e161392_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_ctx159754_ (gx#current-expander-context))) - (gx#core-context-prelude__% _ctx159754_)))) + (let ((_ctx161401_ (gx#current-expander-context))) + (gx#core-context-prelude__% _ctx161401_)))) (define gx#core-context-prelude - (lambda _g165262_ - (let ((_g165261_ (##length _g165262_))) - (cond ((##fx= _g165261_ 0) - (apply (lambda () (gx#core-context-prelude__0)) _g165262_)) - ((##fx= _g165261_ 1) - (apply (lambda (_ctx159756_) - (gx#core-context-prelude__% _ctx159756_)) - _g165262_)) + (lambda _g167009_ + (let ((_g167008_ (##length _g167009_))) + (cond ((##fx= _g167008_ 0) + (apply (lambda () (gx#core-context-prelude__0)) _g167009_)) + ((##fx= _g167008_ 1) + (apply (lambda (_ctx161403_) + (gx#core-context-prelude__% _ctx161403_)) + _g167009_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g165262_)))))) + _g167009_)))))) (define gx#core-module->prelude-context - (lambda (_ctx159731_) - (let* ((_ht159733_ (gx#current-expander-module-registry)) - (_$e159735_ (table-ref _ht159733_ _ctx159731_ '#f))) - (if _$e159735_ - (values _$e159735_) - (let ((_pre159738_ - (let ((__obj165253 + (lambda (_ctx161378_) + (let* ((_ht161380_ (gx#current-expander-module-registry)) + (_$e161382_ (table-ref _ht161380_ _ctx161378_ '#f))) + (if _$e161382_ + (values _$e161382_) + (let ((_pre161385_ + (let ((__obj167000 (##structure gx#prelude-context::t '#f @@ -731,51 +727,51 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj165253 _ctx159731_) - __obj165253))) - (table-set! _ht159733_ _ctx159731_ _pre159738_) - _pre159738_))))) + (gx#prelude-context:::init! __obj167000 _ctx161378_) + __obj167000))) + (table-set! _ht161380_ _ctx161378_ _pre161385_) + _pre161385_))))) (define gx#core-import-module__% - (lambda (_rpath159612_ _reload?159613_) - (letrec ((_import-source159615_ - (lambda (_path159700_) - (if (member _path159700_ (gx#current-expander-path)) - (error '"Cyclic expansion" _path159700_) + (lambda (_rpath161259_ _reload?161260_) + (letrec ((_import-source161262_ + (lambda (_path161347_) + (if (member _path161347_ (gx#current-expander-path)) + (error '"Cyclic expansion" _path161347_) '#!void) (call-with-parameters (lambda () - (let ((_g165263_ (gx#core-read-module _path159700_))) + (let ((_g167010_ (gx#core-read-module _path161347_))) (begin - (let ((_g165264_ - (if (##values? _g165263_) - (##vector-length _g165263_) + (let ((_g167011_ + (if (##values? _g167010_) + (##vector-length _g167010_) 1))) - (if (not (##fx= _g165264_ 4)) - (error "Context expects 4 values" _g165264_))) - (let ((_pre159703_ (##vector-ref _g165263_ 0)) - (_id159704_ (##vector-ref _g165263_ 1)) - (_ns159705_ (##vector-ref _g165263_ 2)) - (_body159706_ (##vector-ref _g165263_ 3))) - (let* ((_prelude159711_ + (if (not (##fx= _g167011_ 4)) + (error "Context expects 4 values" _g167011_))) + (let ((_pre161350_ (##vector-ref _g167010_ 0)) + (_id161351_ (##vector-ref _g167010_ 1)) + (_ns161352_ (##vector-ref _g167010_ 2)) + (_body161353_ (##vector-ref _g167010_ 3))) + (let* ((_prelude161358_ (if (##structure-instance-of? - _pre159703_ + _pre161350_ 'gx#prelude-context::t) - _pre159703_ + _pre161350_ (if (##structure-instance-of? - _pre159703_ + _pre161350_ 'gx#module-context::t) (gx#core-module->prelude-context - _pre159703_) - (if (string? _pre159703_) + _pre161350_) + (if (string? _pre161350_) (gx#core-module->prelude-context (gx#core-import-module__0 - _pre159703_)) - (if (not _pre159703_) - (let ((_$e159708_ + _pre161350_)) + (if (not _pre161350_) + (let ((_$e161355_ (gx#current-expander-module-prelude))) - (if _$e159708_ - _$e159708_ - (let ((__obj165254 + (if _$e161355_ + _$e161355_ + (let ((__obj167001 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -787,14 +783,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj165254 '#f) - __obj165254))) + (gx#prelude-context:::init! __obj167001 '#f) + __obj167001))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Cannot import module; unknown prelude" - _rpath159612_ - _pre159703_)))))) - (_ctx159713_ - (let ((__obj165255 + _rpath161259_ + _pre161350_)))))) + (_ctx161360_ + (let ((__obj167002 (##structure gx#module-context::t '#f @@ -809,44 +805,44 @@ '#f '#f))) (gx#module-context:::init! - __obj165255 - _id159704_ - _prelude159711_ - _ns159705_ - _path159700_) - __obj165255)) - (_body159715_ + __obj167002 + _id161351_ + _prelude161358_ + _ns161352_ + _path161347_) + __obj167002)) + (_body161362_ (gx#core-expand-module-begin - _body159706_ - _ctx159713_)) - (_body159717_ + _body161353_ + _ctx161360_)) + (_body161364_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _body159715_) - _path159700_ - _ctx159713_ + (gx#core-cons '%#begin _body161362_) + _path161347_ + _ctx161360_ '()))) (##unchecked-structure-set! - _ctx159713_ + _ctx161360_ (make-promise - (lambda () (gx#eval-syntax* _body159717_))) + (lambda () (gx#eval-syntax* _body161364_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx159713_ - _body159717_ + _ctx161360_ + _body161364_ '11 gx#module-context::t '#f) (table-set! (gx#current-expander-module-registry) - _path159700_ - _ctx159713_) + _path161347_ + _ctx161360_) (table-set! (gx#current-expander-module-registry) - _id159704_ - _ctx159713_) - _ctx159713_))))) + _id161351_ + _ctx161360_) + _ctx161360_))))) gx#current-expander-context (gx#core-context-root__0) gx#current-expander-marks @@ -854,1322 +850,1322 @@ gx#current-expander-phi '0 gx#current-expander-path - (cons _path159700_ (gx#current-expander-path)) + (cons _path161347_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_import-submodule159616_ - (lambda (_rpath159628_) - (let* ((_rpath159629159636_ _rpath159628_) - (_E159631159640_ + (_import-submodule161263_ + (lambda (_rpath161275_) + (let* ((_rpath161276161283_ _rpath161275_) + (_E161278161287_ (lambda () (error '"No clause matching" - _rpath159629159636_))) - (_K159632159688_ - (lambda (_refs159643_ _origin159644_) - (let ((_ctx159646_ - (if _origin159644_ + _rpath161276161283_))) + (_K161279161335_ + (lambda (_refs161290_ _origin161291_) + (let ((_ctx161293_ + (if _origin161291_ (gx#core-import-module__% - _origin159644_ - _reload?159613_) + _origin161291_ + _reload?161260_) (gx#current-expander-context)))) - (let _lp159648_ ((_rest159650_ _refs159643_) - (_ctx159651_ _ctx159646_)) - (let* ((_rest159652159660_ _rest159650_) - (_else159654159668_ - (lambda () _ctx159651_)) - (_K159656159676_ - (lambda (_rest159671_ _id159672_) - (let ((_bind159674_ + (let _lp161295_ ((_rest161297_ _refs161290_) + (_ctx161298_ _ctx161293_)) + (let* ((_rest161299161307_ _rest161297_) + (_else161301161315_ + (lambda () _ctx161298_)) + (_K161303161323_ + (lambda (_rest161318_ _id161319_) + (let ((_bind161321_ (gx#resolve-identifier__% - _id159672_ + _id161319_ '0 - _ctx159651_))) + _ctx161298_))) (if (and (##structure-direct-instance-of? - _bind159674_ + _bind161321_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind159674_ + _bind161321_ '4 gx#syntax-binding::t '#f) 'gx#module-context::t)) - (_lp159648_ - _rest159671_ + (_lp161295_ + _rest161318_ (##unchecked-structure-ref - _bind159674_ + _bind161321_ '4 gx#syntax-binding::t '#f)) (error '"Cannot import submodule; not bound as a module" - _rpath159628_ - _id159672_ - _bind159674_)))))) - (if (##pair? _rest159652159660_) - (let ((_hd159657159679_ - (##car _rest159652159660_)) - (_tl159658159681_ - (##cdr _rest159652159660_))) - (let* ((_id159684_ _hd159657159679_) - (_rest159686_ - _tl159658159681_)) - (_K159656159676_ - _rest159686_ - _id159684_))) - (_else159654159668_)))))))) - (if (##pair? _rpath159629159636_) - (let ((_hd159633159691_ (##car _rpath159629159636_)) - (_tl159634159693_ (##cdr _rpath159629159636_))) - (let* ((_origin159696_ _hd159633159691_) - (_refs159698_ _tl159634159693_)) - (_K159632159688_ _refs159698_ _origin159696_))) - (_E159631159640_)))))) - (let ((_$e159618_ - (if (not _reload?159613_) + _rpath161275_ + _id161319_ + _bind161321_)))))) + (if (##pair? _rest161299161307_) + (let ((_hd161304161326_ + (##car _rest161299161307_)) + (_tl161305161328_ + (##cdr _rest161299161307_))) + (let* ((_id161331_ _hd161304161326_) + (_rest161333_ + _tl161305161328_)) + (_K161303161323_ + _rest161333_ + _id161331_))) + (_else161301161315_)))))))) + (if (##pair? _rpath161276161283_) + (let ((_hd161280161338_ (##car _rpath161276161283_)) + (_tl161281161340_ (##cdr _rpath161276161283_))) + (let* ((_origin161343_ _hd161280161338_) + (_refs161345_ _tl161281161340_)) + (_K161279161335_ _refs161345_ _origin161343_))) + (_E161278161287_)))))) + (let ((_$e161265_ + (if (not _reload?161260_) (table-ref (gx#current-expander-module-registry) - _rpath159612_ + _rpath161259_ '#f) '#f))) - (if _$e159618_ - (values _$e159618_) - (if (list? _rpath159612_) - (_import-submodule159616_ _rpath159612_) - (if (gx#core-library-module-path? _rpath159612_) - (let ((_ctx159621_ + (if _$e161265_ + (values _$e161265_) + (if (list? _rpath161259_) + (_import-submodule161263_ _rpath161259_) + (if (gx#core-library-module-path? _rpath161259_) + (let ((_ctx161268_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _rpath159612_) - _reload?159613_))) + _rpath161259_) + _reload?161260_))) (table-set! (gx#current-expander-module-registry) - _rpath159612_ - _ctx159621_) - _ctx159621_) - (let* ((_npath159623_ (path-normalize _rpath159612_)) - (_$e159625_ - (if (not _reload?159613_) + _rpath161259_ + _ctx161268_) + _ctx161268_) + (let* ((_npath161270_ (path-normalize _rpath161259_)) + (_$e161272_ + (if (not _reload?161260_) (table-ref (gx#current-expander-module-registry) - _npath159623_ + _npath161270_ '#f) '#f))) - (if _$e159625_ - (values _$e159625_) - (_import-source159615_ _npath159623_)))))))))) + (if _$e161272_ + (values _$e161272_) + (_import-source161262_ _npath161270_)))))))))) (define gx#core-import-module__0 - (lambda (_rpath159724_) - (let ((_reload?159726_ '#f)) - (gx#core-import-module__% _rpath159724_ _reload?159726_)))) + (lambda (_rpath161371_) + (let ((_reload?161373_ '#f)) + (gx#core-import-module__% _rpath161371_ _reload?161373_)))) (define gx#core-import-module - (lambda _g165266_ - (let ((_g165265_ (##length _g165266_))) - (cond ((##fx= _g165265_ 1) - (apply (lambda (_rpath159724_) - (gx#core-import-module__0 _rpath159724_)) - _g165266_)) - ((##fx= _g165265_ 2) - (apply (lambda (_rpath159728_ _reload?159729_) + (lambda _g167013_ + (let ((_g167012_ (##length _g167013_))) + (cond ((##fx= _g167012_ 1) + (apply (lambda (_rpath161371_) + (gx#core-import-module__0 _rpath161371_)) + _g167013_)) + ((##fx= _g167012_ 2) + (apply (lambda (_rpath161375_ _reload?161376_) (gx#core-import-module__% - _rpath159728_ - _reload?159729_)) - _g165266_)) + _rpath161375_ + _reload?161376_)) + _g167013_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g165266_)))))) + _g167013_)))))) (define gx#core-read-module - (lambda (_path159601_) + (lambda (_path161248_) (with-catch - (lambda (_exn159603_) - (if (and (datum-parsing-exception? _exn159603_) - (eq? (datum-parsing-exception-filepos _exn159603_) '0)) - (gx#core-read-module/lang _path159601_) + (lambda (_exn161250_) + (if (and (datum-parsing-exception? _exn161250_) + (eq? (datum-parsing-exception-filepos _exn161250_) '0)) + (gx#core-read-module/lang _path161248_) (gx#raise-syntax-error 'read-module '"error reading module" - _path159601_ + _path161248_ (call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_g159605159607_) - (display-exception _exn159603_ _g159605159607_)))) + (lambda (_g161252161254_) + (display-exception _exn161250_ _g161252161254_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _path159601_))))) + (lambda () (gx#core-read-module/sexp _path161248_))))) (define gx#core-read-module/sexp - (lambda (_path159464_) - (let _lp159466_ ((_body159468_ (read-syntax-from-file _path159464_)) - (_pre159469_ '#f) - (_ns159470_ '#f) - (_pkg159471_ '#f)) - (let* ((_e159472159496_ _body159468_) - (_E159488159518_ + (lambda (_path161111_) + (let _lp161113_ ((_body161115_ (read-syntax-from-file _path161111_)) + (_pre161116_ '#f) + (_ns161117_ '#f) + (_pkg161118_ '#f)) + (let* ((_e161119161143_ _body161115_) + (_E161135161165_ (lambda () - (let ((_g165267_ - (if _pkg159471_ - (values _pre159469_ _ns159470_ _pkg159471_) + (let ((_g167014_ + (if _pkg161118_ + (values _pre161116_ _ns161117_ _pkg161118_) (gx#core-read-module-package - _path159464_ - _pre159469_ - _ns159470_)))) + _path161111_ + _pre161116_ + _ns161117_)))) (begin - (let ((_g165268_ - (if (##values? _g165267_) - (##vector-length _g165267_) + (let ((_g167015_ + (if (##values? _g167014_) + (##vector-length _g167014_) 1))) - (if (not (##fx= _g165268_ 3)) - (error "Context expects 3 values" _g165268_))) - (let ((_pre159500_ (##vector-ref _g165267_ 0)) - (_ns159501_ (##vector-ref _g165267_ 1)) - (_pkg159502_ (##vector-ref _g165267_ 2))) - (let* ((_prelude159504_ + (if (not (##fx= _g167015_ 3)) + (error "Context expects 3 values" _g167015_))) + (let ((_pre161147_ (##vector-ref _g167014_ 0)) + (_ns161148_ (##vector-ref _g167014_ 1)) + (_pkg161149_ (##vector-ref _g167014_ 2))) + (let* ((_prelude161151_ (if (gx#core-bound-module-prelude? - _pre159500_) - (gx#syntax-local-e__0 _pre159500_) + _pre161147_) + (gx#syntax-local-e__0 _pre161147_) (if (gx#core-library-module-path? - _pre159500_) + _pre161147_) (gx#core-resolve-library-module-path - _pre159500_) - (if (gx#stx-string? _pre159500_) + _pre161147_) + (if (gx#stx-string? _pre161147_) (gx#core-resolve-module-path__% - _pre159500_ - _path159464_) - (gx#stx-e _pre159500_))))) - (_path-id159506_ + _pre161147_ + _path161111_) + (gx#stx-e _pre161147_))))) + (_path-id161153_ (gx#core-module-path->namespace - _path159464_)) - (_pkg-id159508_ - (if _pkg159502_ + _path161111_)) + (_pkg-id161155_ + (if _pkg161149_ (string-append - _pkg159502_ + _pkg161149_ '"/" - _path-id159506_) - _path-id159506_)) - (_module-id159510_ - (string->symbol _pkg-id159508_)) - (_module-ns159515_ - (if (eq? _ns159501_ '#!void) + _path-id161153_) + _path-id161153_)) + (_module-id161157_ + (string->symbol _pkg-id161155_)) + (_module-ns161162_ + (if (eq? _ns161148_ '#!void) '#f - (let ((_$e159512_ _ns159501_)) - (if _$e159512_ - _$e159512_ - _pkg-id159508_))))) - (values _prelude159504_ - _module-id159510_ - _module-ns159515_ - _body159468_))))))) - (_E159481159547_ + (let ((_$e161159_ _ns161148_)) + (if _$e161159_ + _$e161159_ + _pkg-id161155_))))) + (values _prelude161151_ + _module-id161157_ + _module-ns161162_ + _body161115_))))))) + (_E161128161194_ (lambda () - (if (gx#stx-pair? _e159472159496_) - (let ((_e159489159522_ (gx#syntax-e _e159472159496_))) - (let ((_hd159490159525_ (##car _e159489159522_)) - (_tl159491159527_ (##cdr _e159489159522_))) - (if (eq? (gx#stx-e _hd159490159525_) 'package:) - (if (gx#stx-pair? _tl159491159527_) - (let ((_e159492159530_ - (gx#syntax-e _tl159491159527_))) - (let ((_hd159493159533_ - (##car _e159492159530_)) - (_tl159494159535_ - (##cdr _e159492159530_))) - (let* ((_pkg159538_ _hd159493159533_) - (_rest159540_ _tl159494159535_)) + (if (gx#stx-pair? _e161119161143_) + (let ((_e161136161169_ (gx#syntax-e _e161119161143_))) + (let ((_hd161137161172_ (##car _e161136161169_)) + (_tl161138161174_ (##cdr _e161136161169_))) + (if (eq? (gx#stx-e _hd161137161172_) 'package:) + (if (gx#stx-pair? _tl161138161174_) + (let ((_e161139161177_ + (gx#syntax-e _tl161138161174_))) + (let ((_hd161140161180_ + (##car _e161139161177_)) + (_tl161141161182_ + (##cdr _e161139161177_))) + (let* ((_pkg161185_ _hd161140161180_) + (_rest161187_ _tl161141161182_)) (if '#t - (let ((_pkg159545_ + (let ((_pkg161192_ (if (gx#identifier? - _pkg159538_) + _pkg161185_) (symbol->string (gx#stx-e - _pkg159538_)) + _pkg161185_)) (if (or (gx#stx-string? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pkg159538_) - (gx#stx-false? _pkg159538_)) - (gx#stx-e _pkg159538_) + _pkg161185_) + (gx#stx-false? _pkg161185_)) + (gx#stx-e _pkg161185_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _pkg159538_))))) + _pkg161185_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp159466_ - _rest159540_ - _pre159469_ - _ns159470_ - _pkg159545_)) - (_E159488159518_))))) - (_E159488159518_)) - (_E159488159518_)))) - (_E159488159518_)))) - (_E159474159573_ + (_lp161113_ + _rest161187_ + _pre161116_ + _ns161117_ + _pkg161192_)) + (_E161135161165_))))) + (_E161135161165_)) + (_E161135161165_)))) + (_E161135161165_)))) + (_E161121161220_ (lambda () - (if (gx#stx-pair? _e159472159496_) - (let ((_e159482159551_ (gx#syntax-e _e159472159496_))) - (let ((_hd159483159554_ (##car _e159482159551_)) - (_tl159484159556_ (##cdr _e159482159551_))) - (if (eq? (gx#stx-e _hd159483159554_) 'namespace:) - (if (gx#stx-pair? _tl159484159556_) - (let ((_e159485159559_ - (gx#syntax-e _tl159484159556_))) - (let ((_hd159486159562_ - (##car _e159485159559_)) - (_tl159487159564_ - (##cdr _e159485159559_))) - (let* ((_ns159567_ _hd159486159562_) - (_rest159569_ _tl159487159564_)) + (if (gx#stx-pair? _e161119161143_) + (let ((_e161129161198_ (gx#syntax-e _e161119161143_))) + (let ((_hd161130161201_ (##car _e161129161198_)) + (_tl161131161203_ (##cdr _e161129161198_))) + (if (eq? (gx#stx-e _hd161130161201_) 'namespace:) + (if (gx#stx-pair? _tl161131161203_) + (let ((_e161132161206_ + (gx#syntax-e _tl161131161203_))) + (let ((_hd161133161209_ + (##car _e161132161206_)) + (_tl161134161211_ + (##cdr _e161132161206_))) + (let* ((_ns161214_ _hd161133161209_) + (_rest161216_ _tl161134161211_)) (if '#t - (let ((_ns159571_ + (let ((_ns161218_ (if (gx#identifier? - _ns159567_) + _ns161214_) (symbol->string (gx#stx-e - _ns159567_)) + _ns161214_)) (if (gx#stx-string? - _ns159567_) + _ns161214_) (gx#stx-e - _ns159567_) + _ns161214_) (if (gx#stx-false? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ns159567_) + _ns161214_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _ns159567_)))))) + _ns161214_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp159466_ - _rest159569_ - _pre159469_ - _ns159571_ - _pkg159471_)) - (_E159481159547_))))) - (_E159481159547_)) - (_E159481159547_)))) - (_E159481159547_)))) - (_E159473159597_ + (_lp161113_ + _rest161216_ + _pre161116_ + _ns161218_ + _pkg161118_)) + (_E161128161194_))))) + (_E161128161194_)) + (_E161128161194_)))) + (_E161128161194_)))) + (_E161120161244_ (lambda () - (if (gx#stx-pair? _e159472159496_) - (let ((_e159475159577_ (gx#syntax-e _e159472159496_))) - (let ((_hd159476159580_ (##car _e159475159577_)) - (_tl159477159582_ (##cdr _e159475159577_))) - (if (eq? (gx#stx-e _hd159476159580_) 'prelude:) - (if (gx#stx-pair? _tl159477159582_) - (let ((_e159478159585_ - (gx#syntax-e _tl159477159582_))) - (let ((_hd159479159588_ - (##car _e159478159585_)) - (_tl159480159590_ - (##cdr _e159478159585_))) - (let* ((_prelude159593_ - _hd159479159588_) - (_rest159595_ _tl159480159590_)) + (if (gx#stx-pair? _e161119161143_) + (let ((_e161122161224_ (gx#syntax-e _e161119161143_))) + (let ((_hd161123161227_ (##car _e161122161224_)) + (_tl161124161229_ (##cdr _e161122161224_))) + (if (eq? (gx#stx-e _hd161123161227_) 'prelude:) + (if (gx#stx-pair? _tl161124161229_) + (let ((_e161125161232_ + (gx#syntax-e _tl161124161229_))) + (let ((_hd161126161235_ + (##car _e161125161232_)) + (_tl161127161237_ + (##cdr _e161125161232_))) + (let* ((_prelude161240_ + _hd161126161235_) + (_rest161242_ _tl161127161237_)) (if '#t - (_lp159466_ - _rest159595_ - _prelude159593_ - _ns159470_ - _pkg159471_) - (_E159474159573_))))) - (_E159474159573_)) - (_E159474159573_)))) - (_E159474159573_))))) - (_E159473159597_))))) + (_lp161113_ + _rest161242_ + _prelude161240_ + _ns161117_ + _pkg161118_) + (_E161121161220_))))) + (_E161121161220_)) + (_E161121161220_)))) + (_E161121161220_))))) + (_E161120161244_))))) (define gx#core-read-module/lang - (lambda (_path159291_) - (letrec ((_default-read-module-body159293_ - (lambda (_inp159456_) - (let _lp159458_ ((_body159460_ '())) - (let ((_next159462_ (read-syntax _inp159456_))) - (if (eof-object? _next159462_) - (reverse _body159460_) - (_lp159458_ (cons _next159462_ _body159460_))))))) - (_read-body159294_ - (lambda (_inp159375_ - _pre159376_ - _ns159377_ - _pkg159378_ - _args159379_) - (let ((_g165269_ - (if _pkg159378_ - (values _pre159376_ _ns159377_ _pkg159378_) + (lambda (_path160938_) + (letrec ((_default-read-module-body160940_ + (lambda (_inp161103_) + (let _lp161105_ ((_body161107_ '())) + (let ((_next161109_ (read-syntax _inp161103_))) + (if (eof-object? _next161109_) + (reverse _body161107_) + (_lp161105_ (cons _next161109_ _body161107_))))))) + (_read-body160941_ + (lambda (_inp161022_ + _pre161023_ + _ns161024_ + _pkg161025_ + _args161026_) + (let ((_g167016_ + (if _pkg161025_ + (values _pre161023_ _ns161024_ _pkg161025_) (gx#core-read-module-package - _path159291_ - _pre159376_ - _ns159377_)))) + _path160938_ + _pre161023_ + _ns161024_)))) (begin - (let ((_g165270_ - (if (##values? _g165269_) - (##vector-length _g165269_) + (let ((_g167017_ + (if (##values? _g167016_) + (##vector-length _g167016_) 1))) - (if (not (##fx= _g165270_ 3)) - (error "Context expects 3 values" _g165270_))) - (let ((_pre159381_ (##vector-ref _g165269_ 0)) - (_ns159382_ (##vector-ref _g165269_ 1)) - (_pkg159383_ (##vector-ref _g165269_ 2))) - (let* ((_prelude159385_ - (gx#import-module__0 _pre159381_)) - (_read-module-body159439_ - (let ((_$e159431_ - (find (lambda (_e159386159388_) - (let* ((_g159390159400_ - _e159386159388_) - (_else159392159408_ + (if (not (##fx= _g167017_ 3)) + (error "Context expects 3 values" _g167017_))) + (let ((_pre161028_ (##vector-ref _g167016_ 0)) + (_ns161029_ (##vector-ref _g167016_ 1)) + (_pkg161030_ (##vector-ref _g167016_ 2))) + (let* ((_prelude161032_ + (gx#import-module__0 _pre161028_)) + (_read-module-body161086_ + (let ((_$e161078_ + (find (lambda (_e161033161035_) + (let* ((_g161037161047_ + _e161033161035_) + (_else161039161055_ (lambda () '#f)) - (_K159394159412_ + (_K161041161059_ (lambda () '#t))) (if (##structure-direct-instance-of? - _g159390159400_ + _g161037161047_ 'gx#module-export::t) - (let* ((_e159395159415_ + (let* ((_e161042161062_ (##unchecked-structure-ref - _g159390159400_ + _g161037161047_ '1 gx#module-export::t '#f)) - (_e159396159418_ + (_e161043161065_ (##unchecked-structure-ref - _g159390159400_ + _g161037161047_ '2 gx#module-export::t '#f)) - (_e159397159421_ + (_e161044161068_ (##unchecked-structure-ref - _g159390159400_ + _g161037161047_ '3 gx#module-export::t '#f))) - (if (##eq? _e159397159421_ + (if (##eq? _e161044161068_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1) - (let ((_e159398159424_ + (let ((_e161045161071_ (##unchecked-structure-ref - _g159390159400_ + _g161037161047_ '4 gx#module-export::t '#f))) - (if ((lambda (_g159426159428_) - (eq? _g159426159428_ 'read-module-body)) - _e159398159424_) - (_K159394159412_) - (_else159392159408_))) - (_else159392159408_))) - (_else159392159408_)))) + (if ((lambda (_g161073161075_) + (eq? _g161073161075_ 'read-module-body)) + _e161045161071_) + (_K161041161059_) + (_else161039161055_))) + (_else161039161055_))) + (_else161039161055_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _prelude159385_ + _prelude161032_ '9 gx#module-context::t '#f)))) - (if _$e159431_ - ((lambda (_xport159434_) - (let ((_proc159437_ + (if _$e161078_ + ((lambda (_xport161081_) + (let ((_proc161084_ (with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _xport159434_) + _xport161081_) '1 gx#binding::t '#f)))))) - (if (procedure? _proc159437_) - _proc159437_ + (if (procedure? _proc161084_) + _proc161084_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _path159291_ - _pre159381_ - _proc159437_)))) - _$e159431_) - _default-read-module-body159293_))) - (_path-id159441_ + _path160938_ + _pre161028_ + _proc161084_)))) + _$e161078_) + _default-read-module-body160940_))) + (_path-id161088_ (gx#core-module-path->namespace - _path159291_)) - (_pkg-id159443_ - (if _pkg159383_ + _path160938_)) + (_pkg-id161090_ + (if _pkg161030_ (string-append - _pkg159383_ + _pkg161030_ '"/" - _path-id159441_) - _path-id159441_)) - (_module-id159445_ - (string->symbol _pkg-id159443_)) - (_module-ns159450_ - (let ((_$e159447_ _ns159382_)) - (if _$e159447_ _$e159447_ _pkg-id159443_))) - (_body159453_ + _path-id161088_) + _path-id161088_)) + (_module-id161092_ + (string->symbol _pkg-id161090_)) + (_module-ns161097_ + (let ((_$e161094_ _ns161029_)) + (if _$e161094_ _$e161094_ _pkg-id161090_))) + (_body161100_ (call-with-parameters (lambda () - (_read-module-body159439_ _inp159375_)) + (_read-module-body161086_ _inp161022_)) gx#current-module-reader-path - _path159291_ + _path160938_ gx#current-module-reader-args - _args159379_))) - (values _prelude159385_ - _module-id159445_ - _module-ns159450_ - _body159453_))))))) - (_string-e159295_ - (lambda (_obj159372_ _what159373_) - (if (string? _obj159372_) - _obj159372_ - (if (symbol? _obj159372_) - (symbol->string _obj159372_) + _args161026_))) + (values _prelude161032_ + _module-id161092_ + _module-ns161097_ + _body161100_))))))) + (_string-e160942_ + (lambda (_obj161019_ _what161020_) + (if (string? _obj161019_) + _obj161019_ + (if (symbol? _obj161019_) + (symbol->string _obj161019_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _what159373_) - _path159291_ - _obj159372_))))) - (_read-lang-args159296_ - (lambda (_inp159327_ _args159328_) - (let* ((_args159329159337_ _args159328_) - (_else159331159345_ + (string-append '"Illegal module " _what161020_) + _path160938_ + _obj161019_))))) + (_read-lang-args160943_ + (lambda (_inp160974_ _args160975_) + (let* ((_args160976160984_ _args160975_) + (_else160978160992_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _path159291_))) - (_K159333159360_ - (lambda (_args159348_ _prelude159349_) - (let* ((_pkg159351_ - (pgetq 'package: _args159348_)) - (_pkg159353_ - (if _pkg159351_ - (_string-e159295_ - _pkg159351_ + _path160938_))) + (_K160980161007_ + (lambda (_args160995_ _prelude160996_) + (let* ((_pkg160998_ + (pgetq 'package: _args160995_)) + (_pkg161000_ + (if _pkg160998_ + (_string-e160942_ + _pkg160998_ '"package") '#f)) - (_ns159355_ - (pgetq 'namespace: _args159348_)) - (_ns159357_ - (if _ns159355_ - (_string-e159295_ - _ns159355_ + (_ns161002_ + (pgetq 'namespace: _args160995_)) + (_ns161004_ + (if _ns161002_ + (_string-e160942_ + _ns161002_ '"namespace") '#f))) - (_read-body159294_ - _inp159327_ - _prelude159349_ - _ns159357_ - _pkg159353_ - _args159348_))))) - (if (##pair? _args159329159337_) - (let ((_hd159334159363_ (##car _args159329159337_)) - (_tl159335159365_ (##cdr _args159329159337_))) - (let* ((_prelude159368_ _hd159334159363_) - (_args159370_ _tl159335159365_)) - (_K159333159360_ _args159370_ _prelude159368_))) - (_else159331159345_))))) - (_read-lang159297_ - (lambda (_inp159302_) - (let* ((_head159304_ (read-line _inp159302_)) - (_$e159306_ (string-index _head159304_ '#\space))) - (if _$e159306_ - ((lambda (_ix159309_) - (let ((_lang159311_ - (substring _head159304_ '0 _ix159309_))) - (if (equal? _lang159311_ '"#lang") - (let* ((_rest159313_ + (_read-body160941_ + _inp160974_ + _prelude160996_ + _ns161004_ + _pkg161000_ + _args160995_))))) + (if (##pair? _args160976160984_) + (let ((_hd160981161010_ (##car _args160976160984_)) + (_tl160982161012_ (##cdr _args160976160984_))) + (let* ((_prelude161015_ _hd160981161010_) + (_args161017_ _tl160982161012_)) + (_K160980161007_ _args161017_ _prelude161015_))) + (_else160978160992_))))) + (_read-lang160944_ + (lambda (_inp160949_) + (let* ((_head160951_ (read-line _inp160949_)) + (_$e160953_ (string-index _head160951_ '#\space))) + (if _$e160953_ + ((lambda (_ix160956_) + (let ((_lang160958_ + (substring _head160951_ '0 _ix160956_))) + (if (equal? _lang160958_ '"#lang") + (let* ((_rest160960_ (substring - _head159304_ - (fx+ _ix159309_ '1) - (string-length _head159304_))) - (_args159324_ + _head160951_ + (fx+ _ix160956_ '1) + (string-length _head160951_))) + (_args160971_ (with-catch - (lambda (_g159314159316_) + (lambda (_g160961160963_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _path159291_ - _g159314159316_)) + _path160938_ + _g160961160963_)) (lambda () (call-with-input-string - _rest159313_ - (lambda (_g159319159321_) + _rest160960_ + (lambda (_g160966160968_) (read-all - _g159319159321_ + _g160966160968_ read))))))) - (_read-lang-args159296_ - _inp159302_ - _args159324_)) + (_read-lang-args160943_ + _inp160949_ + _args160971_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path159291_)))) - _$e159306_) + _path160938_)))) + _$e160953_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path159291_))))) - (_read-e159298_ - (lambda (_inp159300_) - (if (eq? (peek-char _inp159300_) '#\#) - (_read-lang159297_ _inp159300_) + _path160938_))))) + (_read-e160945_ + (lambda (_inp160947_) + (if (eq? (peek-char _inp160947_) '#\#) + (_read-lang160944_ _inp160947_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path159291_))))) - (gx#call-with-input-source-file _path159291_ _read-e159298_)))) + _path160938_))))) + (gx#call-with-input-source-file _path160938_ _read-e160945_)))) (define gx#core-read-module-package - (lambda (_path159245_ _pre159246_ _ns159247_) - (letrec ((_string-e159249_ - (lambda (_e159289_) - (if (symbol? _e159289_) - (symbol->string _e159289_) - (if (string? _e159289_) - _e159289_ + (lambda (_path160892_ _pre160893_ _ns160894_) + (letrec ((_string-e160896_ + (lambda (_e160936_) + (if (symbol? _e160936_) + (symbol->string _e160936_) + (if (string? _e160936_) + _e160936_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _e159289_)))))) - (let _lp159251_ ((_dir159253_ (path-directory _path159245_)) - (_pkg-path159254_ '())) - (let ((_gerbil.pkg159256_ (path-expand '"gerbil.pkg" _dir159253_))) - (if (file-exists? _gerbil.pkg159256_) - (let ((_plist159258_ - (gx#core-library-package-plist__% _dir159253_ '#t))) - (if (null? _plist159258_) - (let ((_pkg159260_ - (if (not (null? _pkg-path159254_)) - (string-join _pkg-path159254_ '"/") + _e160936_)))))) + (let _lp160898_ ((_dir160900_ (path-directory _path160892_)) + (_pkg-path160901_ '())) + (let ((_gerbil.pkg160903_ (path-expand '"gerbil.pkg" _dir160900_))) + (if (file-exists? _gerbil.pkg160903_) + (let ((_plist160905_ + (gx#core-library-package-plist__% _dir160900_ '#t))) + (if (null? _plist160905_) + (let ((_pkg160907_ + (if (not (null? _pkg-path160901_)) + (string-join _pkg-path160901_ '"/") '#f))) - (values _pre159246_ _ns159247_ _pkg159260_)) - (if (list? _plist159258_) - (let* ((_root159262_ - (pgetq 'package: _plist159258_)) - (_pkg159266_ - (let ((_pkg-path159264_ - (if _root159262_ - (cons (_string-e159249_ - _root159262_) - _pkg-path159254_) - _pkg-path159254_))) - (if (not (null? _pkg-path159264_)) - (string-join _pkg-path159264_ '"/") + (values _pre160893_ _ns160894_ _pkg160907_)) + (if (list? _plist160905_) + (let* ((_root160909_ + (pgetq 'package: _plist160905_)) + (_pkg160913_ + (let ((_pkg-path160911_ + (if _root160909_ + (cons (_string-e160896_ + _root160909_) + _pkg-path160901_) + _pkg-path160901_))) + (if (not (null? _pkg-path160911_)) + (string-join _pkg-path160911_ '"/") '#f))) - (_ns159273_ - (let ((_ns159271_ - (let ((_$e159268_ _ns159247_)) - (if _$e159268_ - _$e159268_ + (_ns160920_ + (let ((_ns160918_ + (let ((_$e160915_ _ns160894_)) + (if _$e160915_ + _$e160915_ (pgetq 'namespace: - _plist159258_))))) - (if _ns159271_ - (_string-e159249_ _ns159271_) + _plist160905_))))) + (if _ns160918_ + (_string-e160896_ _ns160918_) '#f))) - (_pre159278_ - (let ((_$e159275_ _pre159246_)) - (if _$e159275_ - _$e159275_ - (pgetq 'prelude: _plist159258_))))) - (values _pre159278_ _ns159273_ _pkg159266_)) + (_pre160925_ + (let ((_$e160922_ _pre160893_)) + (if _$e160922_ + _$e160922_ + (pgetq 'prelude: _plist160905_))))) + (values _pre160925_ _ns160920_ _pkg160913_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _plist159258_)))) - (let ((_dir*159281_ + _plist160905_)))) + (let ((_dir*160928_ (path-strip-trailing-directory-separator - _dir159253_))) - (if (or (string-empty? _dir*159281_) - (equal? _dir159253_ _dir*159281_)) - (values _pre159246_ _ns159247_ '#f) - (let ((_xpath159286_ - (path-strip-directory _dir*159281_)) - (_xdir159287_ (path-directory _dir*159281_))) - (_lp159251_ - _xdir159287_ - (cons _xpath159286_ _pkg-path159254_))))))))))) + _dir160900_))) + (if (or (string-empty? _dir*160928_) + (equal? _dir160900_ _dir*160928_)) + (values _pre160893_ _ns160894_ '#f) + (let ((_xpath160933_ + (path-strip-directory _dir*160928_)) + (_xdir160934_ (path-directory _dir*160928_))) + (_lp160898_ + _xdir160934_ + (cons _xpath160933_ _pkg-path160901_))))))))))) (define gx#core-module-path->namespace - (lambda (_path159243_) - (path-strip-extension (path-strip-directory _path159243_)))) + (lambda (_path160890_) + (path-strip-extension (path-strip-directory _path160890_)))) (define gx#core-module-path->id - (lambda (_path159241_) - (string->symbol (gx#core-module-path->namespace _path159241_)))) + (lambda (_path160888_) + (string->symbol (gx#core-module-path->namespace _path160888_)))) (define gx#core-resolve-module-path__% - (lambda (_stx-path159220_ _rel159221_) - (let* ((_path159223_ (gx#stx-e _stx-path159220_)) - (_path159225_ - (if (string-empty? (path-extension _path159223_)) - (string-append _path159223_ '".ss") - _path159223_))) + (lambda (_stx-path160867_ _rel160868_) + (let* ((_path160870_ (gx#stx-e _stx-path160867_)) + (_path160872_ + (if (string-empty? (path-extension _path160870_)) + (string-append _path160870_ '".ss") + _path160870_))) (gx#core-resolve-path__% - _path159225_ - (let ((_$e159228_ (gx#stx-source _stx-path159220_))) - (if _$e159228_ _$e159228_ _rel159221_)))))) + _path160872_ + (let ((_$e160875_ (gx#stx-source _stx-path160867_))) + (if _$e160875_ _$e160875_ _rel160868_)))))) (define gx#core-resolve-module-path__0 - (lambda (_stx-path159234_) - (let ((_rel159236_ '#f)) - (gx#core-resolve-module-path__% _stx-path159234_ _rel159236_)))) + (lambda (_stx-path160881_) + (let ((_rel160883_ '#f)) + (gx#core-resolve-module-path__% _stx-path160881_ _rel160883_)))) (define gx#core-resolve-module-path - (lambda _g165272_ - (let ((_g165271_ (##length _g165272_))) - (cond ((##fx= _g165271_ 1) - (apply (lambda (_stx-path159234_) - (gx#core-resolve-module-path__0 _stx-path159234_)) - _g165272_)) - ((##fx= _g165271_ 2) - (apply (lambda (_stx-path159238_ _rel159239_) + (lambda _g167019_ + (let ((_g167018_ (##length _g167019_))) + (cond ((##fx= _g167018_ 1) + (apply (lambda (_stx-path160881_) + (gx#core-resolve-module-path__0 _stx-path160881_)) + _g167019_)) + ((##fx= _g167018_ 2) + (apply (lambda (_stx-path160885_ _rel160886_) (gx#core-resolve-module-path__% - _stx-path159238_ - _rel159239_)) - _g165272_)) + _stx-path160885_ + _rel160886_)) + _g167019_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g165272_)))))) + _g167019_)))))) (define gx#core-resolve-library-module-path - (lambda (_libpath159106_) - (let* ((_spath159108_ (symbol->string (gx#stx-e _libpath159106_))) - (_spath159110_ - (substring _spath159108_ '1 (string-length _spath159108_))) - (_ext159112_ (path-extension _spath159110_)) - (_ssi159114_ - (if (string-empty? _ext159112_) - (string-append _spath159110_ '".ssi") + (lambda (_libpath160753_) + (let* ((_spath160755_ (symbol->string (gx#stx-e _libpath160753_))) + (_spath160757_ + (substring _spath160755_ '1 (string-length _spath160755_))) + (_ext160759_ (path-extension _spath160757_)) + (_ssi160761_ + (if (string-empty? _ext160759_) + (string-append _spath160757_ '".ssi") (string-append - (path-strip-extension _spath159110_) + (path-strip-extension _spath160757_) '".ssi"))) - (_srcs159118_ - (if (string-empty? _ext159112_) - (map (lambda (_ext159116_) - (string-append _spath159110_ _ext159116_)) + (_srcs160765_ + (if (string-empty? _ext160759_) + (map (lambda (_ext160763_) + (string-append _spath160757_ _ext160763_)) '(".ss" ".sld" ".scm")) - (cons _spath159110_ '())))) - (let _lp159121_ ((_rest159123_ + (cons _spath160757_ '())))) + (let _lp160768_ ((_rest160770_ (gx#current-expander-module-library-path))) - (let* ((_rest159124159133_ _rest159123_) - (_E159127159137_ + (let* ((_rest160771160780_ _rest160770_) + (_E160774160784_ (lambda () - (error '"No clause matching" _rest159124159133_)))) - (let ((_K159129159207_ - (lambda (_rest159148_ _dir159149_) - (letrec ((_resolve159151_ - (lambda (_ssi159163_ _srcs159164_) - (let ((_compiled-path159166_ + (error '"No clause matching" _rest160771160780_)))) + (let ((_K160776160854_ + (lambda (_rest160795_ _dir160796_) + (letrec ((_resolve160798_ + (lambda (_ssi160810_ _srcs160811_) + (let ((_compiled-path160813_ (path-expand - _ssi159163_ - _dir159149_))) - (if (file-exists? _compiled-path159166_) - (path-normalize _compiled-path159166_) - (let _lpr159168_ ((_rest-src159170_ - _srcs159164_)) - (let* ((_rest-src159171159179_ - _rest-src159170_) - (_else159173159187_ + _ssi160810_ + _dir160796_))) + (if (file-exists? _compiled-path160813_) + (path-normalize _compiled-path160813_) + (let _lpr160815_ ((_rest-src160817_ + _srcs160811_)) + (let* ((_rest-src160818160826_ + _rest-src160817_) + (_else160820160834_ (lambda () - (_lp159121_ - _rest159148_))) - (_K159175159195_ - (lambda (_rest-src159190_ - _src159191_) - (let ((_src-path159193_ + (_lp160768_ + _rest160795_))) + (_K160822160842_ + (lambda (_rest-src160837_ + _src160838_) + (let ((_src-path160840_ (path-expand - _src159191_ - _dir159149_))) + _src160838_ + _dir160796_))) (if (file-exists? - _src-path159193_) + _src-path160840_) (path-normalize - _src-path159193_) - (_lpr159168_ - _rest-src159190_)))))) - (if (##pair? _rest-src159171159179_) - (let ((_hd159176159198_ - (##car _rest-src159171159179_)) - (_tl159177159200_ - (##cdr _rest-src159171159179_))) - (let* ((_src159203_ - _hd159176159198_) - (_rest-src159205_ - _tl159177159200_)) - (_K159175159195_ - _rest-src159205_ - _src159203_))) - (_else159173159187_))))))))) - (let ((_$e159153_ + _src-path160840_) + (_lpr160815_ + _rest-src160837_)))))) + (if (##pair? _rest-src160818160826_) + (let ((_hd160823160845_ + (##car _rest-src160818160826_)) + (_tl160824160847_ + (##cdr _rest-src160818160826_))) + (let* ((_src160850_ + _hd160823160845_) + (_rest-src160852_ + _tl160824160847_)) + (_K160822160842_ + _rest-src160852_ + _src160850_))) + (_else160820160834_))))))))) + (let ((_$e160800_ (gx#core-library-package-path-prefix - _dir159149_))) - (if _$e159153_ - ((lambda (_prefix159156_) + _dir160796_))) + (if _$e160800_ + ((lambda (_prefix160803_) (if (string-prefix? - _prefix159156_ - _spath159110_) - (let ((_ssi159160_ + _prefix160803_ + _spath160757_) + (let ((_ssi160807_ (substring - _ssi159114_ - (string-length _prefix159156_) - (string-length _ssi159114_))) - (_srcs159161_ - (map (lambda (_src159158_) + _ssi160761_ + (string-length _prefix160803_) + (string-length _ssi160761_))) + (_srcs160808_ + (map (lambda (_src160805_) (substring - _src159158_ + _src160805_ (string-length - _prefix159156_) + _prefix160803_) (string-length - _src159158_))) - _srcs159118_))) - (_resolve159151_ - _ssi159160_ - _srcs159161_)) - (_lp159121_ _rest159148_))) - _$e159153_) - (_resolve159151_ _ssi159114_ _srcs159118_)))))) - (_K159128159142_ + _src160805_))) + _srcs160765_))) + (_resolve160798_ + _ssi160807_ + _srcs160808_)) + (_lp160768_ _rest160795_))) + _$e160800_) + (_resolve160798_ _ssi160761_ _srcs160765_)))))) + (_K160775160789_ (lambda () (gx#raise-syntax-error '#f '"Cannot find library module" - _libpath159106_)))) - (let ((_try-match159126159145_ + _libpath160753_)))) + (let ((_try-match160773160792_ (lambda () - (if (##null? _rest159124159133_) - (_K159128159142_) - (_E159127159137_))))) - (if (##pair? _rest159124159133_) - (let ((_tl159131159212_ (##cdr _rest159124159133_)) - (_hd159130159210_ (##car _rest159124159133_))) - (let ((_dir159215_ _hd159130159210_) - (_rest159217_ _tl159131159212_)) - (_K159129159207_ _rest159217_ _dir159215_))) - (_try-match159126159145_))))))))) + (if (##null? _rest160771160780_) + (_K160775160789_) + (_E160774160784_))))) + (if (##pair? _rest160771160780_) + (let ((_tl160778160859_ (##cdr _rest160771160780_)) + (_hd160777160857_ (##car _rest160771160780_))) + (let ((_dir160862_ _hd160777160857_) + (_rest160864_ _tl160778160859_)) + (_K160776160854_ _rest160864_ _dir160862_))) + (_try-match160773160792_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_modpath159079_) - (letrec ((_resolve159081_ - (lambda (_path159098_ _base159099_) - (let ((_$e159101_ (string-rindex _base159099_ '#\/))) - (if _$e159101_ - ((lambda (_idx159104_) + (lambda (_modpath160726_) + (letrec ((_resolve160728_ + (lambda (_path160745_ _base160746_) + (let ((_$e160748_ (string-rindex _base160746_ '#\/))) + (if _$e160748_ + ((lambda (_idx160751_) (gx#core-resolve-library-module-path (string->symbol (string-append '":" - (substring _base159099_ '0 _idx159104_) + (substring _base160746_ '0 _idx160751_) '"/" - _path159098_)))) - _$e159101_) + _path160745_)))) + _$e160748_) (gx#core-resolve-library-module-path (string->symbol - (string-append '":" _path159098_)))))))) - (let ((_spath159083_ (symbol->string (gx#stx-e _modpath159079_))) - (_mod159084_ + (string-append '":" _path160745_)))))))) + (let ((_spath160730_ (symbol->string (gx#stx-e _modpath160726_))) + (_mod160731_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _mod159084_ + (if _mod160731_ '#!void (gx#raise-syntax-error '#f '"Cannot resolve relative module path; not in module context" - _modpath159079_)) - (let ((_mpath159086_ + _modpath160726_)) + (let ((_mpath160733_ (symbol->string (##structure-ref - _mod159084_ + _mod160731_ '1 gx#expander-context::t '#f)))) - (let _lp159088_ ((_spath159090_ _spath159083_) - (_mpath159091_ _mpath159086_)) - (if (string-prefix? '"../" _spath159090_) - (let ((_$e159093_ (string-rindex _mpath159091_ '#\/))) - (if _$e159093_ - ((lambda (_idx159096_) - (_lp159088_ + (let _lp160735_ ((_spath160737_ _spath160730_) + (_mpath160738_ _mpath160733_)) + (if (string-prefix? '"../" _spath160737_) + (let ((_$e160740_ (string-rindex _mpath160738_ '#\/))) + (if _$e160740_ + ((lambda (_idx160743_) + (_lp160735_ (substring - _spath159090_ + _spath160737_ '3 - (string-length _spath159090_)) - (substring _mpath159091_ '0 _idx159096_))) - _$e159093_) + (string-length _spath160737_)) + (substring _mpath160738_ '0 _idx160743_))) + _$e160740_) (gx#raise-syntax-error '#f '"Cannot resolve relative module path; illegal traversal" - _modpath159079_))) - (if (string-prefix? '"./" _spath159090_) - (_lp159088_ + _modpath160726_))) + (if (string-prefix? '"./" _spath160737_) + (_lp160735_ (substring - _spath159090_ + _spath160737_ '2 - (string-length _spath159090_)) - _mpath159091_) - (_resolve159081_ _spath159090_ _mpath159091_))))))))) + (string-length _spath160737_)) + _mpath160738_) + (_resolve160728_ _spath160737_ _mpath160738_))))))))) (define gx#core-library-package-path-prefix - (lambda (_dir159072_) - (let ((_$e159074_ + (lambda (_dir160719_) + (let ((_$e160721_ (pgetq 'package: - (gx#core-library-package-plist__0 _dir159072_)))) - (if _$e159074_ - ((lambda (_pkg159077_) - (string-append (symbol->string _pkg159077_) '"/")) - _$e159074_) + (gx#core-library-package-plist__0 _dir160719_)))) + (if _$e160721_ + ((lambda (_pkg160724_) + (string-append (symbol->string _pkg160724_) '"/")) + _$e160721_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_dir159044_ _exists?159045_) - (let* ((_cache159047_ (gx#core-library-package-cache)) - (_$e159049_ (table-ref _cache159047_ _dir159044_ '#f))) - (if _$e159049_ - (values _$e159049_) - (let* ((_gerbil.pkg159052_ - (path-expand '"gerbil.pkg" _dir159044_)) - (_plist159059_ - (if (or _exists?159045_ - (file-exists? _gerbil.pkg159052_)) - (let ((_e159057_ + (lambda (_dir160691_ _exists?160692_) + (let* ((_cache160694_ (gx#core-library-package-cache)) + (_$e160696_ (table-ref _cache160694_ _dir160691_ '#f))) + (if _$e160696_ + (values _$e160696_) + (let* ((_gerbil.pkg160699_ + (path-expand '"gerbil.pkg" _dir160691_)) + (_plist160706_ + (if (or _exists?160692_ + (file-exists? _gerbil.pkg160699_)) + (let ((_e160704_ (gx#call-with-input-source-file - _gerbil.pkg159052_ + _gerbil.pkg160699_ read))) - (if (eof-object? _e159057_) + (if (eof-object? _e160704_) '() - (if (list? _e159057_) - _e159057_ + (if (list? _e160704_) + _e160704_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _gerbil.pkg159052_ - _e159057_)))) + _gerbil.pkg160699_ + _e160704_)))) '()))) - (table-set! _cache159047_ _dir159044_ _plist159059_) - _plist159059_))))) + (table-set! _cache160694_ _dir160691_ _plist160706_) + _plist160706_))))) (define gx#core-library-package-plist__0 - (lambda (_dir159065_) - (let ((_exists?159067_ '#f)) - (gx#core-library-package-plist__% _dir159065_ _exists?159067_)))) + (lambda (_dir160712_) + (let ((_exists?160714_ '#f)) + (gx#core-library-package-plist__% _dir160712_ _exists?160714_)))) (define gx#core-library-package-plist - (lambda _g165274_ - (let ((_g165273_ (##length _g165274_))) - (cond ((##fx= _g165273_ 1) - (apply (lambda (_dir159065_) - (gx#core-library-package-plist__0 _dir159065_)) - _g165274_)) - ((##fx= _g165273_ 2) - (apply (lambda (_dir159069_ _exists?159070_) + (lambda _g167021_ + (let ((_g167020_ (##length _g167021_))) + (cond ((##fx= _g167020_ 1) + (apply (lambda (_dir160712_) + (gx#core-library-package-plist__0 _dir160712_)) + _g167021_)) + ((##fx= _g167020_ 2) + (apply (lambda (_dir160716_ _exists?160717_) (gx#core-library-package-plist__% - _dir159069_ - _exists?159070_)) - _g165274_)) + _dir160716_ + _exists?160717_)) + _g167021_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g165274_)))))) + _g167021_)))))) (define gx#core-library-package-cache (lambda () - (let ((_$e159038_ (gx#current-expander-module-library-package-cache))) - (if _$e159038_ - (values _$e159038_) - (let ((_cache159041_ (make-table))) + (let ((_$e160685_ (gx#current-expander-module-library-package-cache))) + (if _$e160685_ + (values _$e160685_) + (let ((_cache160688_ (make-table))) (gx#current-expander-module-library-package-cache - _cache159041_) - _cache159041_))))) + _cache160688_) + _cache160688_))))) (define gx#core-library-module-path? - (lambda (_stx159035_) (gx#core-special-module-path? _stx159035_ '#\:))) + (lambda (_stx160682_) (gx#core-special-module-path? _stx160682_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_stx159033_) (gx#core-special-module-path? _stx159033_ '#\.))) + (lambda (_stx160680_) (gx#core-special-module-path? _stx160680_ '#\.))) (define gx#core-special-module-path? - (lambda (_stx159028_ _char159029_) - (if (gx#identifier? _stx159028_) - (if (interned-symbol? (gx#stx-e _stx159028_)) - (let ((_str159031_ (symbol->string (gx#stx-e _stx159028_)))) - (if (fx> (string-length _str159031_) '1) - (eq? (string-ref _str159031_ '0) _char159029_) + (lambda (_stx160675_ _char160676_) + (if (gx#identifier? _stx160675_) + (if (interned-symbol? (gx#stx-e _stx160675_)) + (let ((_str160678_ (symbol->string (gx#stx-e _stx160675_)))) + (if (fx> (string-length _str160678_) '1) + (eq? (string-ref _str160678_ '0) _char160676_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_stx159022_) + (lambda (_stx160669_) (gx#core-bound-identifier?__% - _stx159022_ - (lambda (_g159023159025_) - (gx#expander-binding?__% _g159023159025_ gx#prelude-context?))))) + _stx160669_ + (lambda (_g160670160672_) + (gx#expander-binding?__% _g160670160672_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_stx159016_) + (lambda (_stx160663_) (gx#core-bound-identifier?__% - _stx159016_ - (lambda (_g159017159019_) - (gx#expander-binding?__% _g159017159019_ gx#module-context?))))) + _stx160663_ + (lambda (_g160664160666_) + (gx#expander-binding?__% _g160664160666_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_stx159003_) - (letrec ((_module-prelude?159005_ - (lambda (_e159011_) - (let ((_$e159013_ + (lambda (_stx160650_) + (letrec ((_module-prelude?160652_ + (lambda (_e160658_) + (let ((_$e160660_ (##structure-instance-of? - _e159011_ + _e160658_ 'gx#module-context::t))) - (if _$e159013_ - _$e159013_ + (if _$e160660_ + _$e160660_ (##structure-instance-of? - _e159011_ + _e160658_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _stx159003_ - (lambda (_g159006159008_) + _stx160650_ + (lambda (_g160653160655_) (gx#expander-binding?__% - _g159006159008_ - _module-prelude?159005_)))))) + _g160653160655_ + _module-prelude?160652_)))))) (define gx#core-bind-import!__% - (lambda (_in158933_ _ctx158934_ _force-weak?158935_) - (let* ((_in158936158945_ _in158933_) - (_E158938158949_ - (lambda () (error '"No clause matching" _in158936158945_))) - (_K158939158962_ - (lambda (_weak?158952_ _phi158953_ _key158954_ _source158955_) + (lambda (_in160580_ _ctx160581_ _force-weak?160582_) + (let* ((_in160583160592_ _in160580_) + (_E160585160596_ + (lambda () (error '"No clause matching" _in160583160592_))) + (_K160586160609_ + (lambda (_weak?160599_ _phi160600_ _key160601_ _source160602_) (gx#core-bind!__% - _key158954_ - (let ((_e158957_ - (gx#core-resolve-module-export _source158955_))) + _key160601_ + (let ((_e160604_ + (gx#core-resolve-module-export _source160602_))) (##structure gx#import-binding::t (##unchecked-structure-ref - _e158957_ + _e160604_ '1 gx#binding::t '#f) - _key158954_ - _phi158953_ - _e158957_ + _key160601_ + _phi160600_ + _e160604_ (##unchecked-structure-ref - _source158955_ + _source160602_ '1 gx#module-export::t '#f) - (let ((_$e158959_ _force-weak?158935_)) - (if _$e158959_ _$e158959_ _weak?158952_)))) + (let ((_$e160606_ _force-weak?160582_)) + (if _$e160606_ _$e160606_ _weak?160599_)))) gx#core-context-rebind? - _phi158953_ - _ctx158934_)))) + _phi160600_ + _ctx160581_)))) (if (##structure-direct-instance-of? - _in158936158945_ + _in160583160592_ 'gx#module-import::t) - (let* ((_e158940158965_ + (let* ((_e160587160612_ (##unchecked-structure-ref - _in158936158945_ + _in160583160592_ '1 gx#module-import::t '#f)) - (_source158968_ _e158940158965_) - (_e158941158970_ + (_source160615_ _e160587160612_) + (_e160588160617_ (##unchecked-structure-ref - _in158936158945_ + _in160583160592_ '2 gx#module-import::t '#f)) - (_key158973_ _e158941158970_) - (_e158942158975_ + (_key160620_ _e160588160617_) + (_e160589160622_ (##unchecked-structure-ref - _in158936158945_ + _in160583160592_ '3 gx#module-import::t '#f)) - (_phi158978_ _e158942158975_) - (_e158943158980_ + (_phi160625_ _e160589160622_) + (_e160590160627_ (##unchecked-structure-ref - _in158936158945_ + _in160583160592_ '4 gx#module-import::t '#f)) - (_weak?158983_ _e158943158980_)) - (_K158939158962_ - _weak?158983_ - _phi158978_ - _key158973_ - _source158968_)) - (_E158938158949_))))) + (_weak?160630_ _e160590160627_)) + (_K160586160609_ + _weak?160630_ + _phi160625_ + _key160620_ + _source160615_)) + (_E160585160596_))))) (define gx#core-bind-import!__0 - (lambda (_in158988_) - (let* ((_ctx158990_ (gx#current-expander-context)) - (_force-weak?158992_ '#f)) + (lambda (_in160635_) + (let* ((_ctx160637_ (gx#current-expander-context)) + (_force-weak?160639_ '#f)) (gx#core-bind-import!__% - _in158988_ - _ctx158990_ - _force-weak?158992_)))) + _in160635_ + _ctx160637_ + _force-weak?160639_)))) (define gx#core-bind-import!__1 - (lambda (_in158994_ _ctx158995_) - (let ((_force-weak?158997_ '#f)) + (lambda (_in160641_ _ctx160642_) + (let ((_force-weak?160644_ '#f)) (gx#core-bind-import!__% - _in158994_ - _ctx158995_ - _force-weak?158997_)))) + _in160641_ + _ctx160642_ + _force-weak?160644_)))) (define gx#core-bind-import! - (lambda _g165276_ - (let ((_g165275_ (##length _g165276_))) - (cond ((##fx= _g165275_ 1) - (apply (lambda (_in158988_) - (gx#core-bind-import!__0 _in158988_)) - _g165276_)) - ((##fx= _g165275_ 2) - (apply (lambda (_in158994_ _ctx158995_) - (gx#core-bind-import!__1 _in158994_ _ctx158995_)) - _g165276_)) - ((##fx= _g165275_ 3) - (apply (lambda (_in158999_ _ctx159000_ _force-weak?159001_) + (lambda _g167023_ + (let ((_g167022_ (##length _g167023_))) + (cond ((##fx= _g167022_ 1) + (apply (lambda (_in160635_) + (gx#core-bind-import!__0 _in160635_)) + _g167023_)) + ((##fx= _g167022_ 2) + (apply (lambda (_in160641_ _ctx160642_) + (gx#core-bind-import!__1 _in160641_ _ctx160642_)) + _g167023_)) + ((##fx= _g167022_ 3) + (apply (lambda (_in160646_ _ctx160647_ _force-weak?160648_) (gx#core-bind-import!__% - _in158999_ - _ctx159000_ - _force-weak?159001_)) - _g165276_)) + _in160646_ + _ctx160647_ + _force-weak?160648_)) + _g167023_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g165276_)))))) + _g167023_)))))) (define gx#core-bind-weak-import!__% - (lambda (_in158919_ _ctx158920_) - (gx#core-bind-import!__% _in158919_ _ctx158920_ '#t))) + (lambda (_in160566_ _ctx160567_) + (gx#core-bind-import!__% _in160566_ _ctx160567_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_in158925_) - (let ((_ctx158927_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _in158925_ _ctx158927_)))) + (lambda (_in160572_) + (let ((_ctx160574_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _in160572_ _ctx160574_)))) (define gx#core-bind-weak-import! - (lambda _g165278_ - (let ((_g165277_ (##length _g165278_))) - (cond ((##fx= _g165277_ 1) - (apply (lambda (_in158925_) - (gx#core-bind-weak-import!__0 _in158925_)) - _g165278_)) - ((##fx= _g165277_ 2) - (apply (lambda (_in158929_ _ctx158930_) + (lambda _g167025_ + (let ((_g167024_ (##length _g167025_))) + (cond ((##fx= _g167024_ 1) + (apply (lambda (_in160572_) + (gx#core-bind-weak-import!__0 _in160572_)) + _g167025_)) + ((##fx= _g167024_ 2) + (apply (lambda (_in160576_ _ctx160577_) (gx#core-bind-weak-import!__% - _in158929_ - _ctx158930_)) - _g165278_)) + _in160576_ + _ctx160577_)) + _g167025_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g165278_)))))) + _g167025_)))))) (define gx#core-resolve-module-export - (lambda (_out158810_) - (letrec ((_subst158812_ - (lambda (_key158858_) - (let* ((_key158859158867_ _key158858_) - (_else158861158875_ (lambda () _key158858_)) - (_K158863158906_ - (lambda (_mark158878_ _id158879_) - (let* ((_mark158880158886_ _mark158878_) - (_E158882158890_ + (lambda (_out160457_) + (letrec ((_subst160459_ + (lambda (_key160505_) + (let* ((_key160506160514_ _key160505_) + (_else160508160522_ (lambda () _key160505_)) + (_K160510160553_ + (lambda (_mark160525_ _id160526_) + (let* ((_mark160527160533_ _mark160525_) + (_E160529160537_ (lambda () (error '"No clause matching" - _mark158880158886_))) - (_K158883158898_ - (lambda (_subst158893_) - (let ((_$e158895_ - (if _subst158893_ + _mark160527160533_))) + (_K160530160545_ + (lambda (_subst160540_) + (let ((_$e160542_ + (if _subst160540_ (table-ref - _subst158893_ - _id158879_ + _subst160540_ + _id160526_ '#f) '#f))) - (if _$e158895_ - _$e158895_ + (if _$e160542_ + _$e160542_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _key158858_)))))) + _key160505_)))))) (if (##structure-instance-of? - _mark158880158886_ + _mark160527160533_ 'gx#expander-mark::t) - (let* ((_e158884158901_ + (let* ((_e160531160548_ (##unchecked-structure-ref - _mark158880158886_ + _mark160527160533_ '1 gx#expander-mark::t '#f)) - (_subst158904_ _e158884158901_)) - (_K158883158898_ _subst158904_)) - (_E158882158890_)))))) - (if (##pair? _key158859158867_) - (let ((_hd158864158909_ (##car _key158859158867_)) - (_tl158865158911_ (##cdr _key158859158867_))) - (let* ((_id158914_ _hd158864158909_) - (_mark158916_ _tl158865158911_)) - (_K158863158906_ _mark158916_ _id158914_))) - (_else158861158875_)))))) - (let* ((_out158813158823_ _out158810_) - (_E158815158827_ - (lambda () (error '"No clause matching" _out158813158823_))) - (_K158816158834_ - (lambda (_phi158830_ _key158831_ _ctx158832_) + (_subst160551_ _e160531160548_)) + (_K160530160545_ _subst160551_)) + (_E160529160537_)))))) + (if (##pair? _key160506160514_) + (let ((_hd160511160556_ (##car _key160506160514_)) + (_tl160512160558_ (##cdr _key160506160514_))) + (let* ((_id160561_ _hd160511160556_) + (_mark160563_ _tl160512160558_)) + (_K160510160553_ _mark160563_ _id160561_))) + (_else160508160522_)))))) + (let* ((_out160460160470_ _out160457_) + (_E160462160474_ + (lambda () (error '"No clause matching" _out160460160470_))) + (_K160463160481_ + (lambda (_phi160477_ _key160478_ _ctx160479_) (gx#core-context-resolve - (gx#core-context-shift _ctx158832_ _phi158830_) - (_subst158812_ _key158831_))))) + (gx#core-context-shift _ctx160479_ _phi160477_) + (_subst160459_ _key160478_))))) (if (##structure-direct-instance-of? - _out158813158823_ + _out160460160470_ 'gx#module-export::t) - (let* ((_e158817158837_ + (let* ((_e160464160484_ (##unchecked-structure-ref - _out158813158823_ + _out160460160470_ '1 gx#module-export::t '#f)) - (_ctx158840_ _e158817158837_) - (_e158818158842_ + (_ctx160487_ _e160464160484_) + (_e160465160489_ (##unchecked-structure-ref - _out158813158823_ + _out160460160470_ '2 gx#module-export::t '#f)) - (_key158845_ _e158818158842_) - (_e158819158847_ + (_key160492_ _e160465160489_) + (_e160466160494_ (##unchecked-structure-ref - _out158813158823_ + _out160460160470_ '3 gx#module-export::t '#f)) - (_phi158850_ _e158819158847_) - (_e158820158852_ + (_phi160497_ _e160466160494_) + (_e160467160499_ (##unchecked-structure-ref - _out158813158823_ + _out160460160470_ '4 gx#module-export::t '#f)) - (_e158821158855_ + (_e160468160502_ (##unchecked-structure-ref - _out158813158823_ + _out160460160470_ '5 gx#module-export::t '#f))) - (_K158816158834_ _phi158850_ _key158845_ _ctx158840_)) - (_E158815158827_)))))) + (_K160463160481_ _phi160497_ _key160492_ _ctx160487_)) + (_E160462160474_)))))) (define gx#core-module-export->import__% - (lambda (_out158735_ _rename158736_ _dphi158737_) - (let* ((_out158738158748_ _out158735_) - (_E158740158752_ - (lambda () (error '"No clause matching" _out158738158748_))) - (_K158741158764_ - (lambda (_weak?158755_ - _name158756_ - _phi158757_ - _key158758_ - _ctx158759_) + (lambda (_out160382_ _rename160383_ _dphi160384_) + (let* ((_out160385160395_ _out160382_) + (_E160387160399_ + (lambda () (error '"No clause matching" _out160385160395_))) + (_K160388160411_ + (lambda (_weak?160402_ + _name160403_ + _phi160404_ + _key160405_ + _ctx160406_) (##structure gx#module-import::t - _out158735_ - (let ((_$e158761_ _rename158736_)) - (if _$e158761_ _$e158761_ _name158756_)) - (fx+ _phi158757_ _dphi158737_) - _weak?158755_)))) + _out160382_ + (let ((_$e160408_ _rename160383_)) + (if _$e160408_ _$e160408_ _name160403_)) + (fx+ _phi160404_ _dphi160384_) + _weak?160402_)))) (if (##structure-direct-instance-of? - _out158738158748_ + _out160385160395_ 'gx#module-export::t) - (let* ((_e158742158767_ + (let* ((_e160389160414_ (##unchecked-structure-ref - _out158738158748_ + _out160385160395_ '1 gx#module-export::t '#f)) - (_ctx158770_ _e158742158767_) - (_e158743158772_ + (_ctx160417_ _e160389160414_) + (_e160390160419_ (##unchecked-structure-ref - _out158738158748_ + _out160385160395_ '2 gx#module-export::t '#f)) - (_key158775_ _e158743158772_) - (_e158744158777_ + (_key160422_ _e160390160419_) + (_e160391160424_ (##unchecked-structure-ref - _out158738158748_ + _out160385160395_ '3 gx#module-export::t '#f)) - (_phi158780_ _e158744158777_) - (_e158745158782_ + (_phi160427_ _e160391160424_) + (_e160392160429_ (##unchecked-structure-ref - _out158738158748_ + _out160385160395_ '4 gx#module-export::t '#f)) - (_name158785_ _e158745158782_) - (_e158746158787_ + (_name160432_ _e160392160429_) + (_e160393160434_ (##unchecked-structure-ref - _out158738158748_ + _out160385160395_ '5 gx#module-export::t '#f)) - (_weak?158790_ _e158746158787_)) - (_K158741158764_ - _weak?158790_ - _name158785_ - _phi158780_ - _key158775_ - _ctx158770_)) - (_E158740158752_))))) + (_weak?160437_ _e160393160434_)) + (_K160388160411_ + _weak?160437_ + _name160432_ + _phi160427_ + _key160422_ + _ctx160417_)) + (_E160387160399_))))) (define gx#core-module-export->import__0 - (lambda (_out158795_) - (let* ((_rename158797_ '#f) (_dphi158799_ '0)) + (lambda (_out160442_) + (let* ((_rename160444_ '#f) (_dphi160446_ '0)) (gx#core-module-export->import__% - _out158795_ - _rename158797_ - _dphi158799_)))) + _out160442_ + _rename160444_ + _dphi160446_)))) (define gx#core-module-export->import__1 - (lambda (_out158801_ _rename158802_) - (let ((_dphi158804_ '0)) + (lambda (_out160448_ _rename160449_) + (let ((_dphi160451_ '0)) (gx#core-module-export->import__% - _out158801_ - _rename158802_ - _dphi158804_)))) + _out160448_ + _rename160449_ + _dphi160451_)))) (define gx#core-module-export->import - (lambda _g165280_ - (let ((_g165279_ (##length _g165280_))) - (cond ((##fx= _g165279_ 1) - (apply (lambda (_out158795_) - (gx#core-module-export->import__0 _out158795_)) - _g165280_)) - ((##fx= _g165279_ 2) - (apply (lambda (_out158801_ _rename158802_) + (lambda _g167027_ + (let ((_g167026_ (##length _g167027_))) + (cond ((##fx= _g167026_ 1) + (apply (lambda (_out160442_) + (gx#core-module-export->import__0 _out160442_)) + _g167027_)) + ((##fx= _g167026_ 2) + (apply (lambda (_out160448_ _rename160449_) (gx#core-module-export->import__1 - _out158801_ - _rename158802_)) - _g165280_)) - ((##fx= _g165279_ 3) - (apply (lambda (_out158806_ _rename158807_ _dphi158808_) + _out160448_ + _rename160449_)) + _g167027_)) + ((##fx= _g167026_ 3) + (apply (lambda (_out160453_ _rename160454_ _dphi160455_) (gx#core-module-export->import__% - _out158806_ - _rename158807_ - _dphi158808_)) - _g165280_)) + _out160453_ + _rename160454_ + _dphi160455_)) + _g167027_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g165280_)))))) + _g167027_)))))) (define gx#core-expand-module% - (lambda (_stx158663_) - (letrec ((_make-context158665_ - (lambda (_id158716_) - (let* ((_super158718_ (gx#current-expander-context)) - (_bind-id158720_ (gx#stx-e _id158716_)) - (_mod-id158722_ + (lambda (_stx160310_) + (letrec ((_make-context160312_ + (lambda (_id160363_) + (let* ((_super160365_ (gx#current-expander-context)) + (_bind-id160367_ (gx#stx-e _id160363_)) + (_mod-id160369_ (if (##structure-instance-of? - _super158718_ + _super160365_ 'gx#module-context::t) (make-symbol__1 (##structure-ref - _super158718_ + _super160365_ '1 gx#expander-context::t '#f) '"$" - _bind-id158720_) - _bind-id158720_)) - (_ns158724_ (symbol->string _mod-id158722_)) - (_path158731_ + _bind-id160367_) + _bind-id160367_)) + (_ns160371_ (symbol->string _mod-id160369_)) + (_path160378_ (if (##structure-instance-of? - _super158718_ + _super160365_ 'gx#module-context::t) - (let ((_path158726_ + (let ((_path160373_ (##unchecked-structure-ref - _super158718_ + _super160365_ '7 gx#module-context::t '#f))) - (if (or (pair? _path158726_) - (null? _path158726_)) - (cons _bind-id158720_ _path158726_) - (if (not _path158726_) - _bind-id158720_ - (cons _bind-id158720_ - (cons _path158726_ '()))))) - _bind-id158720_))) - (let ((__obj165256 + (if (or (pair? _path160373_) + (null? _path160373_)) + (cons _bind-id160367_ _path160373_) + (if (not _path160373_) + _bind-id160367_ + (cons _bind-id160367_ + (cons _path160373_ '()))))) + _bind-id160367_))) + (let ((__obj167003 (##structure gx#module-context::t '#f @@ -2184,879 +2180,879 @@ '#f '#f))) (gx#module-context:::init! - __obj165256 - _mod-id158722_ - _super158718_ - _ns158724_ - _path158731_) - __obj165256))))) - (let* ((_e158666158676_ _stx158663_) - (_E158668158680_ + __obj167003 + _mod-id160369_ + _super160365_ + _ns160371_ + _path160378_) + __obj167003))))) + (let* ((_e160313160323_ _stx160310_) + (_E160315160327_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e158666158676_))) - (_E158667158712_ + _e160313160323_))) + (_E160314160359_ (lambda () - (if (gx#stx-pair? _e158666158676_) - (let ((_e158669158684_ (gx#syntax-e _e158666158676_))) - (let ((_hd158670158687_ (##car _e158669158684_)) - (_tl158671158689_ (##cdr _e158669158684_))) - (if (gx#stx-pair? _tl158671158689_) - (let ((_e158672158692_ - (gx#syntax-e _tl158671158689_))) - (let ((_hd158673158695_ - (##car _e158672158692_)) - (_tl158674158697_ - (##cdr _e158672158692_))) - (let* ((_id158700_ _hd158673158695_) - (_body158702_ _tl158674158697_)) - (if (and (gx#identifier? _id158700_) - (gx#stx-list? _body158702_)) - (let* ((_ctx158704_ - (_make-context158665_ - _id158700_)) - (_body158706_ + (if (gx#stx-pair? _e160313160323_) + (let ((_e160316160331_ (gx#syntax-e _e160313160323_))) + (let ((_hd160317160334_ (##car _e160316160331_)) + (_tl160318160336_ (##cdr _e160316160331_))) + (if (gx#stx-pair? _tl160318160336_) + (let ((_e160319160339_ + (gx#syntax-e _tl160318160336_))) + (let ((_hd160320160342_ + (##car _e160319160339_)) + (_tl160321160344_ + (##cdr _e160319160339_))) + (let* ((_id160347_ _hd160320160342_) + (_body160349_ _tl160321160344_)) + (if (and (gx#identifier? _id160347_) + (gx#stx-list? _body160349_)) + (let* ((_ctx160351_ + (_make-context160312_ + _id160347_)) + (_body160353_ (gx#core-expand-module-begin - _body158702_ - _ctx158704_)) - (_body158708_ + _body160349_ + _ctx160351_)) + (_body160355_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body158706_) + _body160353_) (gx#stx-source - _stx158663_)))) + _stx160310_)))) (##unchecked-structure-set! - _ctx158704_ + _ctx160351_ (make-promise (lambda () (gx#eval-syntax* - _body158708_))) + _body160355_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx158704_ - _body158708_ + _ctx160351_ + _body160355_ '11 gx#module-context::t '#f) (gx#core-bind-syntax!__0 - _id158700_ - _ctx158704_) + _id160347_ + _ctx160351_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _id158700_) - _body158708_) - (gx#stx-source _stx158663_))) - (_E158668158680_))))) - (_E158668158680_)))) - (_E158668158680_))))) - (_E158667158712_))))) + _id160347_) + _body160355_) + (gx#stx-source _stx160310_))) + (_E160315160327_))))) + (_E160315160327_)))) + (_E160315160327_))))) + (_E160314160359_))))) (define gx#core-expand-module-begin - (lambda (_body158629_ _ctx158630_) + (lambda (_body160276_ _ctx160277_) (call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_stx158633_ - (gx#core-expand-head (cons '%%begin-module _body158629_))) - (_e158634158641_ _stx158633_) - (_E158636158645_ + (let* ((_stx160280_ + (gx#core-expand-head (cons '%%begin-module _body160276_))) + (_e160281160288_ _stx160280_) + (_E160283160292_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _stx158633_))) - (_E158635158659_ + _stx160280_))) + (_E160282160306_ (lambda () - (if (gx#stx-pair? _e158634158641_) - (let ((_e158637158649_ (gx#syntax-e _e158634158641_))) - (let ((_hd158638158652_ (##car _e158637158649_)) - (_tl158639158654_ (##cdr _e158637158649_))) - (if (and (gx#identifier? _hd158638158652_) + (if (gx#stx-pair? _e160281160288_) + (let ((_e160284160296_ (gx#syntax-e _e160281160288_))) + (let ((_hd160285160299_ (##car _e160284160296_)) + (_tl160286160301_ (##cdr _e160284160296_))) + (if (and (gx#identifier? _hd160285160299_) (gx#core-identifier=? - _hd158638158652_ + _hd160285160299_ '%#begin-module)) - (let ((_body158657_ _tl158639158654_)) + (let ((_body160304_ _tl160286160301_)) (if '#t - (if (gx#sealed-syntax? _stx158633_) - _body158657_ + (if (gx#sealed-syntax? _stx160280_) + _body160304_ (gx#core-expand-module-body - _body158657_)) - (_E158636158645_))) - (_E158636158645_)))) - (_E158636158645_))))) - (_E158635158659_))) + _body160304_)) + (_E160283160292_))) + (_E160283160292_)))) + (_E160283160292_))))) + (_E160282160306_))) gx#current-expander-context - _ctx158630_ + _ctx160277_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_body158425_) - (letrec ((_expand-special158427_ - (lambda (_hd158556_ _K158557_ _rest158558_ _r158559_) - (let* ((_e158560158577_ _hd158556_) - (_E158572158581_ + (lambda (_body160072_) + (letrec ((_expand-special160074_ + (lambda (_hd160203_ _K160204_ _rest160205_ _r160206_) + (let* ((_e160207160224_ _hd160203_) + (_E160219160228_ (lambda () - (_K158557_ - _rest158558_ - (cons (gx#core-expand-top _hd158556_) - _r158559_)))) - (_E158562158593_ + (_K160204_ + _rest160205_ + (cons (gx#core-expand-top _hd160203_) + _r160206_)))) + (_E160209160240_ (lambda () - (if (gx#stx-pair? _e158560158577_) - (let ((_e158573158585_ - (gx#syntax-e _e158560158577_))) - (let ((_hd158574158588_ - (##car _e158573158585_)) - (_tl158575158590_ - (##cdr _e158573158585_))) + (if (gx#stx-pair? _e160207160224_) + (let ((_e160220160232_ + (gx#syntax-e _e160207160224_))) + (let ((_hd160221160235_ + (##car _e160220160232_)) + (_tl160222160237_ + (##cdr _e160220160232_))) (if (and (gx#identifier? - _hd158574158588_) + _hd160221160235_) (gx#core-identifier=? - _hd158574158588_ + _hd160221160235_ '%#export)) (if '#t - (_K158557_ - _rest158558_ - (cons _hd158556_ _r158559_)) - (_E158572158581_)) - (_E158572158581_)))) - (_E158572158581_)))) - (_E158561158625_ + (_K160204_ + _rest160205_ + (cons _hd160203_ _r160206_)) + (_E160219160228_)) + (_E160219160228_)))) + (_E160219160228_)))) + (_E160208160272_ (lambda () - (if (gx#stx-pair? _e158560158577_) - (let ((_e158563158597_ - (gx#syntax-e _e158560158577_))) - (let ((_hd158564158600_ - (##car _e158563158597_)) - (_tl158565158602_ - (##cdr _e158563158597_))) + (if (gx#stx-pair? _e160207160224_) + (let ((_e160210160244_ + (gx#syntax-e _e160207160224_))) + (let ((_hd160211160247_ + (##car _e160210160244_)) + (_tl160212160249_ + (##cdr _e160210160244_))) (if (and (gx#identifier? - _hd158564158600_) + _hd160211160247_) (gx#core-identifier=? - _hd158564158600_ + _hd160211160247_ '%#define-values)) - (if (gx#stx-pair? _tl158565158602_) - (let ((_e158566158605_ + (if (gx#stx-pair? _tl160212160249_) + (let ((_e160213160252_ (gx#syntax-e - _tl158565158602_))) - (let ((_hd158567158608_ - (##car _e158566158605_)) - (_tl158568158610_ - (##cdr _e158566158605_))) - (let ((_hd-bind158613_ - _hd158567158608_)) + _tl160212160249_))) + (let ((_hd160214160255_ + (##car _e160213160252_)) + (_tl160215160257_ + (##cdr _e160213160252_))) + (let ((_hd-bind160260_ + _hd160214160255_)) (if (gx#stx-pair? - _tl158568158610_) - (let ((_e158569158615_ + _tl160215160257_) + (let ((_e160216160262_ (gx#syntax-e - _tl158568158610_))) - (let ((_hd158570158618_ + _tl160215160257_))) + (let ((_hd160217160265_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e158569158615_)) - (_tl158571158620_ (##cdr _e158569158615_))) - (let ((_expr158623_ _hd158570158618_)) - (if (gx#stx-null? _tl158571158620_) - (if (gx#core-bind-values? _hd-bind158613_) + (##car _e160216160262_)) + (_tl160218160267_ (##cdr _e160216160262_))) + (let ((_expr160270_ _hd160217160265_)) + (if (gx#stx-null? _tl160218160267_) + (if (gx#core-bind-values? _hd-bind160260_) (begin - (gx#core-bind-values!__0 _hd-bind158613_) - (_K158557_ - _rest158558_ - (cons _hd158556_ _r158559_))) - (_E158562158593_)) - (_E158562158593_))))) - (_E158562158593_))))) + (gx#core-bind-values!__0 _hd-bind160260_) + (_K160204_ + _rest160205_ + (cons _hd160203_ _r160206_))) + (_E160209160240_)) + (_E160209160240_))))) + (_E160209160240_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E158562158593_)) - (_E158562158593_)))) - (_E158562158593_))))) - (_E158561158625_)))) - (_expand-body158428_ - (lambda (_rbody158430_) - (let _lp158432_ ((_rest158434_ _rbody158430_) - (_body158435_ '())) - (let* ((_rest158436158444_ _rest158434_) - (_else158438158452_ (lambda () _body158435_)) - (_K158440158544_ - (lambda (_rest158455_ _hd158456_) - (let* ((_e158457158478_ _hd158456_) - (_E158473158482_ + (_E160209160240_)) + (_E160209160240_)))) + (_E160209160240_))))) + (_E160208160272_)))) + (_expand-body160075_ + (lambda (_rbody160077_) + (let _lp160079_ ((_rest160081_ _rbody160077_) + (_body160082_ '())) + (let* ((_rest160083160091_ _rest160081_) + (_else160085160099_ (lambda () _body160082_)) + (_K160087160191_ + (lambda (_rest160102_ _hd160103_) + (let* ((_e160104160125_ _hd160103_) + (_E160120160129_ (lambda () - (_lp158432_ - _rest158455_ + (_lp160079_ + _rest160102_ (cons (gx#core-expand-expression - _hd158456_) - _body158435_)))) - (_E158469158496_ + _hd160103_) + _body160082_)))) + (_E160116160143_ (lambda () - (if (gx#stx-pair? _e158457158478_) - (let ((_e158474158486_ + (if (gx#stx-pair? _e160104160125_) + (let ((_e160121160133_ (gx#syntax-e - _e158457158478_))) - (let ((_hd158475158489_ - (##car _e158474158486_)) - (_tl158476158491_ - (##cdr _e158474158486_))) - (let ((_form158494_ - _hd158475158489_)) + _e160104160125_))) + (let ((_hd160122160136_ + (##car _e160121160133_)) + (_tl160123160138_ + (##cdr _e160121160133_))) + (let ((_form160141_ + _hd160122160136_)) (if (gx#core-bound-identifier?__% - _form158494_ + _form160141_ gx#special-form-binding?) - (_lp158432_ - _rest158455_ - (cons _hd158456_ - _body158435_)) - (_E158473158482_))))) - (_E158473158482_)))) - (_E158459158508_ + (_lp160079_ + _rest160102_ + (cons _hd160103_ + _body160082_)) + (_E160120160129_))))) + (_E160120160129_)))) + (_E160106160155_ (lambda () - (if (gx#stx-pair? _e158457158478_) - (let ((_e158470158500_ + (if (gx#stx-pair? _e160104160125_) + (let ((_e160117160147_ (gx#syntax-e - _e158457158478_))) - (let ((_hd158471158503_ - (##car _e158470158500_)) - (_tl158472158505_ - (##cdr _e158470158500_))) + _e160104160125_))) + (let ((_hd160118160150_ + (##car _e160117160147_)) + (_tl160119160152_ + (##cdr _e160117160147_))) (if (and (gx#identifier? - _hd158471158503_) + _hd160118160150_) (gx#core-identifier=? - _hd158471158503_ + _hd160118160150_ '%#export)) (if '#t - (_lp158432_ - _rest158455_ + (_lp160079_ + _rest160102_ (cons (gx#core-expand-export%__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd158456_) - _body158435_)) - (_E158469158496_)) - (_E158469158496_)))) + _hd160103_) + _body160082_)) + (_E160116160143_)) + (_E160116160143_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E158469158496_)))) - (_E158458158540_ + (_E160116160143_)))) + (_E160105160187_ (lambda () - (if (gx#stx-pair? _e158457158478_) - (let ((_e158460158512_ + (if (gx#stx-pair? _e160104160125_) + (let ((_e160107160159_ (gx#syntax-e - _e158457158478_))) - (let ((_hd158461158515_ - (##car _e158460158512_)) - (_tl158462158517_ - (##cdr _e158460158512_))) + _e160104160125_))) + (let ((_hd160108160162_ + (##car _e160107160159_)) + (_tl160109160164_ + (##cdr _e160107160159_))) (if (and (gx#identifier? - _hd158461158515_) + _hd160108160162_) (gx#core-identifier=? - _hd158461158515_ + _hd160108160162_ '%#define-values)) (if (gx#stx-pair? - _tl158462158517_) - (let ((_e158463158520_ + _tl160109160164_) + (let ((_e160110160167_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl158462158517_))) - (let ((_hd158464158523_ (##car _e158463158520_)) - (_tl158465158525_ (##cdr _e158463158520_))) - (let ((_hd-bind158528_ _hd158464158523_)) - (if (gx#stx-pair? _tl158465158525_) - (let ((_e158466158530_ - (gx#syntax-e _tl158465158525_))) - (let ((_hd158467158533_ (##car _e158466158530_)) - (_tl158468158535_ (##cdr _e158466158530_))) - (let ((_expr158538_ _hd158467158533_)) - (if (gx#stx-null? _tl158468158535_) + (gx#syntax-e _tl160109160164_))) + (let ((_hd160111160170_ (##car _e160110160167_)) + (_tl160112160172_ (##cdr _e160110160167_))) + (let ((_hd-bind160175_ _hd160111160170_)) + (if (gx#stx-pair? _tl160112160172_) + (let ((_e160113160177_ + (gx#syntax-e _tl160112160172_))) + (let ((_hd160114160180_ (##car _e160113160177_)) + (_tl160115160182_ (##cdr _e160113160177_))) + (let ((_expr160185_ _hd160114160180_)) + (if (gx#stx-null? _tl160115160182_) (if '#t - (_lp158432_ - _rest158455_ + (_lp160079_ + _rest160102_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _hd-bind158528_) + _hd-bind160175_) (gx#core-expand-expression - _expr158538_)) - (gx#stx-source _hd158456_)) - _body158435_)) - (_E158459158508_)) - (_E158459158508_))))) - (_E158459158508_))))) - (_E158459158508_)) - (_E158459158508_)))) + _expr160185_)) + (gx#stx-source _hd160103_)) + _body160082_)) + (_E160106160155_)) + (_E160106160155_))))) + (_E160106160155_))))) + (_E160106160155_)) + (_E160106160155_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E158459158508_))))) - (_E158458158540_))))) - (if (##pair? _rest158436158444_) - (let ((_hd158441158547_ (##car _rest158436158444_)) - (_tl158442158549_ - (##cdr _rest158436158444_))) - (let* ((_hd158552_ _hd158441158547_) - (_rest158554_ _tl158442158549_)) - (_K158440158544_ _rest158554_ _hd158552_))) - (_else158438158452_))))))) - (_expand-body158428_ + (_E160106160155_))))) + (_E160105160187_))))) + (if (##pair? _rest160083160091_) + (let ((_hd160088160194_ (##car _rest160083160091_)) + (_tl160089160196_ + (##cdr _rest160083160091_))) + (let* ((_hd160199_ _hd160088160194_) + (_rest160201_ _tl160089160196_)) + (_K160087160191_ _rest160201_ _hd160199_))) + (_else160085160099_))))))) + (_expand-body160075_ (gx#core-expand-block__% - (cons '%#begin-module _body158425_) - _expand-special158427_ + (cons '%#begin-module _body160072_) + _expand-special160074_ '#f values))))) (define gx#core-expand-import/export - (lambda (_stx158268_ - _expanded?158269_ - _method158270_ - _current-phi158271_ - _expand1158272_) - (letrec ((_K158274_ - (lambda (_rest158392_ _r158393_) - (let* ((_e158394158401_ _rest158392_) - (_E158396158405_ (lambda () _r158393_)) - (_E158395158421_ + (lambda (_stx159915_ + _expanded?159916_ + _method159917_ + _current-phi159918_ + _expand1159919_) + (letrec ((_K159921_ + (lambda (_rest160039_ _r160040_) + (let* ((_e160041160048_ _rest160039_) + (_E160043160052_ (lambda () _r160040_)) + (_E160042160068_ (lambda () - (if (gx#stx-pair? _e158394158401_) - (let ((_e158397158409_ - (gx#syntax-e _e158394158401_))) - (let ((_hd158398158412_ - (##car _e158397158409_)) - (_tl158399158414_ - (##cdr _e158397158409_))) - (let* ((_hd158417_ _hd158398158412_) - (_rest158419_ _tl158399158414_)) + (if (gx#stx-pair? _e160041160048_) + (let ((_e160044160056_ + (gx#syntax-e _e160041160048_))) + (let ((_hd160045160059_ + (##car _e160044160056_)) + (_tl160046160061_ + (##cdr _e160044160056_))) + (let* ((_hd160064_ _hd160045160059_) + (_rest160066_ _tl160046160061_)) (if '#t - (_step158275_ - _hd158417_ - _rest158419_ - _r158393_) - (_E158396158405_))))) - (_E158396158405_))))) - (_E158395158421_)))) - (_step158275_ - (lambda (_hd158306_ _rest158307_ _r158308_) - (let* ((_e158309158327_ _hd158306_) - (_E158322158331_ + (_step159922_ + _hd160064_ + _rest160066_ + _r160040_) + (_E160043160052_))))) + (_E160043160052_))))) + (_E160042160068_)))) + (_step159922_ + (lambda (_hd159953_ _rest159954_ _r159955_) + (let* ((_e159956159974_ _hd159953_) + (_E159969159978_ (lambda () - (if (_expanded?158269_ (gx#stx-e _hd158306_)) - (_K158274_ - _rest158307_ - (cons (gx#stx-e _hd158306_) _r158308_)) - (_expand1158272_ - _hd158306_ - _K158274_ - _rest158307_ - _r158308_)))) - (_E158318158347_ + (if (_expanded?159916_ (gx#stx-e _hd159953_)) + (_K159921_ + _rest159954_ + (cons (gx#stx-e _hd159953_) _r159955_)) + (_expand1159919_ + _hd159953_ + _K159921_ + _rest159954_ + _r159955_)))) + (_E159965159994_ (lambda () - (if (gx#stx-pair? _e158309158327_) - (let ((_e158323158335_ - (gx#syntax-e _e158309158327_))) - (let ((_hd158324158338_ - (##car _e158323158335_)) - (_tl158325158340_ - (##cdr _e158323158335_))) - (let* ((_macro158343_ _hd158324158338_) - (_body158345_ _tl158325158340_)) + (if (gx#stx-pair? _e159956159974_) + (let ((_e159970159982_ + (gx#syntax-e _e159956159974_))) + (let ((_hd159971159985_ + (##car _e159970159982_)) + (_tl159972159987_ + (##cdr _e159970159982_))) + (let* ((_macro159990_ _hd159971159985_) + (_body159992_ _tl159972159987_)) (if (gx#core-bound-identifier?__% - _macro158343_ + _macro159990_ gx#syntax-binding?) - (_K158274_ + (_K159921_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _macro158343_) - _hd158306_ - _method158270_) - _rest158307_) - _r158308_) - (_E158322158331_))))) - (_E158322158331_)))) - (_E158311158361_ + _macro159990_) + _hd159953_ + _method159917_) + _rest159954_) + _r159955_) + (_E159969159978_))))) + (_E159969159978_)))) + (_E159958160008_ (lambda () - (if (gx#stx-pair? _e158309158327_) - (let ((_e158319158351_ - (gx#syntax-e _e158309158327_))) - (let ((_hd158320158354_ - (##car _e158319158351_)) - (_tl158321158356_ - (##cdr _e158319158351_))) - (if (eq? (gx#stx-e _hd158320158354_) + (if (gx#stx-pair? _e159956159974_) + (let ((_e159966159998_ + (gx#syntax-e _e159956159974_))) + (let ((_hd159967160001_ + (##car _e159966159998_)) + (_tl159968160003_ + (##cdr _e159966159998_))) + (if (eq? (gx#stx-e _hd159967160001_) 'begin:) - (let ((_body158359_ - _tl158321158356_)) + (let ((_body160006_ + _tl159968160003_)) (if '#t - (_K158274_ + (_K159921_ (gx#stx-foldr cons - _rest158307_ - _body158359_) - _r158308_) - (_E158318158347_))) - (_E158318158347_)))) - (_E158318158347_)))) - (_E158310158388_ + _rest159954_ + _body160006_) + _r159955_) + (_E159965159994_))) + (_E159965159994_)))) + (_E159965159994_)))) + (_E159957160035_ (lambda () - (if (gx#stx-pair? _e158309158327_) - (let ((_e158312158365_ - (gx#syntax-e _e158309158327_))) - (let ((_hd158313158368_ - (##car _e158312158365_)) - (_tl158314158370_ - (##cdr _e158312158365_))) - (if (eq? (gx#stx-e _hd158313158368_) + (if (gx#stx-pair? _e159956159974_) + (let ((_e159959160012_ + (gx#syntax-e _e159956159974_))) + (let ((_hd159960160015_ + (##car _e159959160012_)) + (_tl159961160017_ + (##cdr _e159959160012_))) + (if (eq? (gx#stx-e _hd159960160015_) 'phi:) - (if (gx#stx-pair? _tl158314158370_) - (let ((_e158315158373_ + (if (gx#stx-pair? _tl159961160017_) + (let ((_e159962160020_ (gx#syntax-e - _tl158314158370_))) - (let ((_hd158316158376_ - (##car _e158315158373_)) - (_tl158317158378_ - (##cdr _e158315158373_))) - (let* ((_dphi158381_ - _hd158316158376_) - (_body158383_ - _tl158317158378_)) + _tl159961160017_))) + (let ((_hd159963160023_ + (##car _e159962160020_)) + (_tl159964160025_ + (##cdr _e159962160020_))) + (let* ((_dphi160028_ + _hd159963160023_) + (_body160030_ + _tl159964160025_)) (if (gx#stx-fixnum? - _dphi158381_) - (let ((_rbody158386_ + _dphi160028_) + (let ((_rbody160033_ (call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_K158274_ _body158383_ '())) - _current-phi158271_ - (fx+ (gx#stx-e _dphi158381_) (_current-phi158271_))))) - (_K158274_ - _rest158307_ - (foldr1 cons _r158308_ _rbody158386_))) - (_E158311158361_))))) + (_K159921_ _body160030_ '())) + _current-phi159918_ + (fx+ (gx#stx-e _dphi160028_) (_current-phi159918_))))) + (_K159921_ + _rest159954_ + (foldr1 cons _r159955_ _rbody160033_))) + (_E159958160008_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E158311158361_)) - (_E158311158361_)))) - (_E158311158361_))))) - (_E158310158388_))))) - (let* ((_e158276158283_ _stx158268_) - (_E158278158287_ + (_E159958160008_)) + (_E159958160008_)))) + (_E159958160008_))))) + (_E159957160035_))))) + (let* ((_e159923159930_ _stx159915_) + (_E159925159934_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e158276158283_))) - (_E158277158302_ + _e159923159930_))) + (_E159924159949_ (lambda () - (if (gx#stx-pair? _e158276158283_) - (let ((_e158279158291_ (gx#syntax-e _e158276158283_))) - (let ((_hd158280158294_ (##car _e158279158291_)) - (_tl158281158296_ (##cdr _e158279158291_))) - (let ((_body158299_ _tl158281158296_)) + (if (gx#stx-pair? _e159923159930_) + (let ((_e159926159938_ (gx#syntax-e _e159923159930_))) + (let ((_hd159927159941_ (##car _e159926159938_)) + (_tl159928159943_ (##cdr _e159926159938_))) + (let ((_body159946_ _tl159928159943_)) (if '#t - (if (_current-phi158271_) - (_K158274_ _body158299_ '()) + (if (_current-phi159918_) + (_K159921_ _body159946_ '()) (call-with-parameters - (lambda () (_K158274_ _body158299_ '())) - _current-phi158271_ + (lambda () (_K159921_ _body159946_ '())) + _current-phi159918_ (gx#current-expander-phi))) - (_E158278158287_))))) - (_E158278158287_))))) - (_E158277158302_))))) + (_E159925159934_))))) + (_E159925159934_))))) + (_E159924159949_))))) (define gx#core-expand-import%__% - (lambda (_stx157935_ _internal-expand?157936_) - (letrec ((_expand1157938_ - (lambda (_hd158248_ _K158249_ _rest158250_ _r158251_) - (if (gx#core-bound-module? _hd158248_) - (_import1157939_ - (gx#syntax-local-e__0 _hd158248_) - _K158249_ - _rest158250_ - _r158251_) - (if (gx#core-library-module-path? _hd158248_) - (_import1157939_ + (lambda (_stx159582_ _internal-expand?159583_) + (letrec ((_expand1159585_ + (lambda (_hd159895_ _K159896_ _rest159897_ _r159898_) + (if (gx#core-bound-module? _hd159895_) + (_import1159586_ + (gx#syntax-local-e__0 _hd159895_) + _K159896_ + _rest159897_ + _r159898_) + (if (gx#core-library-module-path? _hd159895_) + (_import1159586_ (gx#import-module__0 - (gx#core-resolve-library-module-path _hd158248_)) - _K158249_ - _rest158250_ - _r158251_) + (gx#core-resolve-library-module-path _hd159895_)) + _K159896_ + _rest159897_ + _r159898_) (if (gx#core-library-relative-module-path? - _hd158248_) - (_import1157939_ + _hd159895_) + (_import1159586_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd158248_)) - _K158249_ - _rest158250_ - _r158251_) - (let ((_e158253_ (gx#stx-e _hd158248_))) - (if (pair? _e158253_) - (let ((_$e158255_ - (gx#stx-e (car _e158253_)))) - (if (eq? 'spec: _$e158255_) - (_import-spec157942_ - _hd158248_ - _K158249_ - _rest158250_ - _r158251_) - (if (eq? 'in: _$e158255_) - (_import-submodule157940_ - _hd158248_ - _K158249_ - _rest158250_ - _r158251_) - (if (eq? 'runtime: _$e158255_) - (_import-runtime157941_ - _hd158248_ - _K158249_ - _rest158250_ - _r158251_) + _hd159895_)) + _K159896_ + _rest159897_ + _r159898_) + (let ((_e159900_ (gx#stx-e _hd159895_))) + (if (pair? _e159900_) + (let ((_$e159902_ + (gx#stx-e (car _e159900_)))) + (if (eq? 'spec: _$e159902_) + (_import-spec159589_ + _hd159895_ + _K159896_ + _rest159897_ + _r159898_) + (if (eq? 'in: _$e159902_) + (_import-submodule159587_ + _hd159895_ + _K159896_ + _rest159897_ + _r159898_) + (if (eq? 'runtime: _$e159902_) + (_import-runtime159588_ + _hd159895_ + _K159896_ + _rest159897_ + _r159898_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx157935_ - _hd158248_))))) - (if (string? _e158253_) - (_import1157939_ + _stx159582_ + _hd159895_))))) + (if (string? _e159900_) + (_import1159586_ (gx#import-module__0 (gx#core-resolve-module-path__% - _hd158248_ - (gx#stx-source _stx157935_))) - _K158249_ - _rest158250_ - _r158251_) + _hd159895_ + (gx#stx-source _stx159582_))) + _K159896_ + _rest159897_ + _r159898_) (if (##structure-instance-of? - _e158253_ + _e159900_ 'gx#module-context::t) - (_K158249_ - _rest158250_ - (cons _e158253_ _r158251_)) + (_K159896_ + _rest159897_ + (cons _e159900_ _r159898_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx157935_ - _hd158248_)))))))))) - (_import1157939_ - (lambda (_ctx158237_ _K158238_ _rest158239_ _r158240_) - (let ((_dphi158242_ + _stx159582_ + _hd159895_)))))))))) + (_import1159586_ + (lambda (_ctx159884_ _K159885_ _rest159886_ _r159887_) + (let ((_dphi159889_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_K158238_ - _rest158239_ + (_K159885_ + _rest159886_ (cons (##structure gx#import-set::t - _ctx158237_ - _dphi158242_ - (map (lambda (_g158243158245_) + _ctx159884_ + _dphi159889_ + (map (lambda (_g159890159892_) (gx#core-module-export->import__% - _g158243158245_ + _g159890159892_ '#f - _dphi158242_)) + _dphi159889_)) (##unchecked-structure-ref - _ctx158237_ + _ctx159884_ '9 gx#module-context::t '#f))) - _r158240_))))) - (_import-submodule157940_ - (lambda (_hd158204_ _K158205_ _rest158206_ _r158207_) - (let* ((_e158208158215_ _hd158204_) - (_E158210158219_ + _r159887_))))) + (_import-submodule159587_ + (lambda (_hd159851_ _K159852_ _rest159853_ _r159854_) + (let* ((_e159855159862_ _hd159851_) + (_E159857159866_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e158208158215_))) - (_E158209158233_ + _e159855159862_))) + (_E159856159880_ (lambda () - (if (gx#stx-pair? _e158208158215_) - (let ((_e158211158223_ - (gx#syntax-e _e158208158215_))) - (let ((_hd158212158226_ - (##car _e158211158223_)) - (_tl158213158228_ - (##cdr _e158211158223_))) - (let ((_spath158231_ _tl158213158228_)) + (if (gx#stx-pair? _e159855159862_) + (let ((_e159858159870_ + (gx#syntax-e _e159855159862_))) + (let ((_hd159859159873_ + (##car _e159858159870_)) + (_tl159860159875_ + (##cdr _e159858159870_))) + (let ((_spath159878_ _tl159860159875_)) (if '#t - (_import1157939_ - (_import-spec-source157943_ - _spath158231_) - _K158205_ - _rest158206_ - _r158207_) - (_E158210158219_))))) - (_E158210158219_))))) - (_E158209158233_)))) - (_import-runtime157941_ - (lambda (_hd158171_ _K158172_ _rest158173_ _r158174_) - (let* ((_e158175158182_ _hd158171_) - (_E158177158186_ + (_import1159586_ + (_import-spec-source159590_ + _spath159878_) + _K159852_ + _rest159853_ + _r159854_) + (_E159857159866_))))) + (_E159857159866_))))) + (_E159856159880_)))) + (_import-runtime159588_ + (lambda (_hd159818_ _K159819_ _rest159820_ _r159821_) + (let* ((_e159822159829_ _hd159818_) + (_E159824159833_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e158175158182_))) - (_E158176158200_ + _e159822159829_))) + (_E159823159847_ (lambda () - (if (gx#stx-pair? _e158175158182_) - (let ((_e158178158190_ - (gx#syntax-e _e158175158182_))) - (let ((_hd158179158193_ - (##car _e158178158190_)) - (_tl158180158195_ - (##cdr _e158178158190_))) - (let ((_spath158198_ _tl158180158195_)) + (if (gx#stx-pair? _e159822159829_) + (let ((_e159825159837_ + (gx#syntax-e _e159822159829_))) + (let ((_hd159826159840_ + (##car _e159825159837_)) + (_tl159827159842_ + (##cdr _e159825159837_))) + (let ((_spath159845_ _tl159827159842_)) (if '#t - (_K158172_ - _rest158173_ - (cons (_import-spec-source157943_ - _spath158198_) - _r158174_)) - (_E158177158186_))))) - (_E158177158186_))))) - (_E158176158200_)))) - (_import-spec157942_ - (lambda (_hd158010_ _K158011_ _rest158012_ _r158013_) - (let* ((_e158014158031_ _hd158010_) - (_E158023158035_ + (_K159819_ + _rest159820_ + (cons (_import-spec-source159590_ + _spath159845_) + _r159821_)) + (_E159824159833_))))) + (_E159824159833_))))) + (_E159823159847_)))) + (_import-spec159589_ + (lambda (_hd159657_ _K159658_ _rest159659_ _r159660_) + (let* ((_e159661159678_ _hd159657_) + (_E159670159682_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e158014158031_))) - (_E158016158145_ + _e159661159678_))) + (_E159663159792_ (lambda () - (if (gx#stx-pair? _e158014158031_) - (let ((_e158024158039_ - (gx#syntax-e _e158014158031_))) - (let ((_hd158025158042_ - (##car _e158024158039_)) - (_tl158026158044_ - (##cdr _e158024158039_))) - (if (gx#stx-pair? _tl158026158044_) - (let ((_e158027158047_ + (if (gx#stx-pair? _e159661159678_) + (let ((_e159671159686_ + (gx#syntax-e _e159661159678_))) + (let ((_hd159672159689_ + (##car _e159671159686_)) + (_tl159673159691_ + (##cdr _e159671159686_))) + (if (gx#stx-pair? _tl159673159691_) + (let ((_e159674159694_ (gx#syntax-e - _tl158026158044_))) - (let ((_hd158028158050_ - (##car _e158027158047_)) - (_tl158029158052_ - (##cdr _e158027158047_))) - (let* ((_path158055_ - _hd158028158050_) - (_specs158057_ - _tl158029158052_)) + _tl159673159691_))) + (let ((_hd159675159697_ + (##car _e159674159694_)) + (_tl159676159699_ + (##cdr _e159674159694_))) + (let* ((_path159702_ + _hd159675159697_) + (_specs159704_ + _tl159676159699_)) (if '#t - (let ((_src-ctx158059_ - (_import-spec-source157943_ - _path158055_)) - (_exports158060_ + (let ((_src-ctx159706_ + (_import-spec-source159590_ + _path159702_)) + (_exports159707_ (make-table)) - (_specs158061_ + (_specs159708_ (gx#syntax->list - _specs158057_))) + _specs159704_))) (for-each - (lambda (_out158063_) + (lambda (_out159710_) (table-set! - _exports158060_ + _exports159707_ (cons (##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out158063_ + _out159710_ '3 gx#module-export::t '#f) (##unchecked-structure-ref - _out158063_ + _out159710_ '4 gx#module-export::t '#f)) - _out158063_)) + _out159710_)) (##unchecked-structure-ref - _src-ctx158059_ + _src-ctx159706_ '9 gx#module-context::t '#f)) - (_K158011_ - _rest158012_ - (foldl1 (lambda (_spec158065_ _r158066_) - (let* ((_e158067158083_ _spec158065_) - (_E158069158087_ + (_K159658_ + _rest159659_ + (foldl1 (lambda (_spec159712_ _r159713_) + (let* ((_e159714159730_ _spec159712_) + (_E159716159734_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e158067158083_))) - (_E158068158141_ + _e159714159730_))) + (_E159715159788_ (lambda () - (if (gx#stx-pair? _e158067158083_) - (let ((_e158070158091_ - (gx#syntax-e _e158067158083_))) - (let ((_hd158071158094_ - (##car _e158070158091_)) - (_tl158072158096_ - (##cdr _e158070158091_))) - (let ((_phi158099_ - _hd158071158094_)) + (if (gx#stx-pair? _e159714159730_) + (let ((_e159717159738_ + (gx#syntax-e _e159714159730_))) + (let ((_hd159718159741_ + (##car _e159717159738_)) + (_tl159719159743_ + (##cdr _e159717159738_))) + (let ((_phi159746_ + _hd159718159741_)) (if (gx#stx-pair? - _tl158072158096_) - (let ((_e158073158101_ + _tl159719159743_) + (let ((_e159720159748_ (gx#syntax-e - _tl158072158096_))) - (let ((_hd158074158104_ - (##car _e158073158101_)) - (_tl158075158106_ - (##cdr _e158073158101_))) - (let ((_name158109_ - _hd158074158104_)) + _tl159719159743_))) + (let ((_hd159721159751_ + (##car _e159720159748_)) + (_tl159722159753_ + (##cdr _e159720159748_))) + (let ((_name159756_ + _hd159721159751_)) (if (gx#stx-pair? - _tl158075158106_) - (let ((_e158076158111_ + _tl159722159753_) + (let ((_e159723159758_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl158075158106_))) - (let ((_hd158077158114_ (##car _e158076158111_)) - (_tl158078158116_ (##cdr _e158076158111_))) - (let ((_src-phi158119_ _hd158077158114_)) - (if (gx#stx-pair? _tl158078158116_) - (let ((_e158079158121_ - (gx#syntax-e _tl158078158116_))) - (let ((_hd158080158124_ (##car _e158079158121_)) - (_tl158081158126_ - (##cdr _e158079158121_))) - (let ((_src-name158129_ _hd158080158124_)) - (if (gx#stx-null? _tl158081158126_) + (gx#syntax-e _tl159722159753_))) + (let ((_hd159724159761_ (##car _e159723159758_)) + (_tl159725159763_ (##cdr _e159723159758_))) + (let ((_src-phi159766_ _hd159724159761_)) + (if (gx#stx-pair? _tl159725159763_) + (let ((_e159726159768_ + (gx#syntax-e _tl159725159763_))) + (let ((_hd159727159771_ (##car _e159726159768_)) + (_tl159728159773_ + (##cdr _e159726159768_))) + (let ((_src-name159776_ _hd159727159771_)) + (if (gx#stx-null? _tl159728159773_) (if (and (gx#stx-fixnum? - _src-phi158119_) + _src-phi159766_) (gx#identifier? - _src-name158129_) - (gx#stx-fixnum? _phi158099_) - (gx#identifier? _name158109_)) - (let ((_src-phi158131_ - (gx#stx-e _src-phi158119_)) - (_src-name158132_ + _src-name159776_) + (gx#stx-fixnum? _phi159746_) + (gx#identifier? _name159756_)) + (let ((_src-phi159778_ + (gx#stx-e _src-phi159766_)) + (_src-name159779_ (gx#core-identifier-key - _src-name158129_)) - (_phi158133_ - (gx#stx-e _phi158099_)) - (_name158134_ + _src-name159776_)) + (_phi159780_ + (gx#stx-e _phi159746_)) + (_name159781_ (gx#core-identifier-key - _name158109_))) - (let ((_$e158136_ + _name159756_))) + (let ((_$e159783_ (table-ref - _exports158060_ - (cons _src-phi158131_ - _src-name158132_) + _exports159707_ + (cons _src-phi159778_ + _src-name159779_) '#f))) - (if _$e158136_ - ((lambda (_out158139_) + (if _$e159783_ + ((lambda (_out159786_) (cons (gx#core-module-export->import__% - _out158139_ - _name158134_ - (fx- _phi158133_ + _out159786_ + _name159781_ + (fx- _phi159780_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _src-phi158131_)) - _r158066_)) + _src-phi159778_)) + _r159713_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e158136_) + _$e159783_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _stx157935_ - _hd158010_)))) - (_E158069158087_)) - (_E158069158087_))))) - (_E158069158087_))))) - (_E158069158087_))))) + _stx159582_ + _hd159657_)))) + (_E159716159734_)) + (_E159716159734_))))) + (_E159716159734_))))) + (_E159716159734_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E158069158087_))))) - (_E158069158087_))))) - (_E158068158141_))) - _r158013_ - _specs158061_))) + (_E159716159734_))))) + (_E159716159734_))))) + (_E159715159788_))) + _r159660_ + _specs159708_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E158023158035_))))) - (_E158023158035_)))) - (_E158023158035_)))) - (_E158015158167_ + (_E159670159682_))))) + (_E159670159682_)))) + (_E159670159682_)))) + (_E159662159814_ (lambda () - (if (gx#stx-pair? _e158014158031_) - (let ((_e158017158149_ - (gx#syntax-e _e158014158031_))) - (let ((_hd158018158152_ - (##car _e158017158149_)) - (_tl158019158154_ - (##cdr _e158017158149_))) - (if (gx#stx-pair? _tl158019158154_) - (let ((_e158020158157_ + (if (gx#stx-pair? _e159661159678_) + (let ((_e159664159796_ + (gx#syntax-e _e159661159678_))) + (let ((_hd159665159799_ + (##car _e159664159796_)) + (_tl159666159801_ + (##cdr _e159664159796_))) + (if (gx#stx-pair? _tl159666159801_) + (let ((_e159667159804_ (gx#syntax-e - _tl158019158154_))) - (let ((_hd158021158160_ - (##car _e158020158157_)) - (_tl158022158162_ - (##cdr _e158020158157_))) - (let ((_path158165_ - _hd158021158160_)) + _tl159666159801_))) + (let ((_hd159668159807_ + (##car _e159667159804_)) + (_tl159669159809_ + (##cdr _e159667159804_))) + (let ((_path159812_ + _hd159668159807_)) (if (gx#stx-null? - _tl158022158162_) + _tl159669159809_) (if '#t - (_K158011_ - _rest158012_ - (cons (_import-spec-source157943_ - _path158165_) - _r158013_)) - (_E158016158145_)) - (_E158016158145_))))) - (_E158016158145_)))) - (_E158016158145_))))) - (_E158015158167_)))) - (_import-spec-source157943_ - (lambda (_spath158008_) - (gx#core-import-nested-module _spath158008_ _stx157935_))) - (_import!157944_ - (lambda (_rbody157957_) - (letrec* ((_current-ctx157959_ + (_K159658_ + _rest159659_ + (cons (_import-spec-source159590_ + _path159812_) + _r159660_)) + (_E159663159792_)) + (_E159663159792_))))) + (_E159663159792_)))) + (_E159663159792_))))) + (_E159662159814_)))) + (_import-spec-source159590_ + (lambda (_spath159655_) + (gx#core-import-nested-module _spath159655_ _stx159582_))) + (_import!159591_ + (lambda (_rbody159604_) + (letrec* ((_current-ctx159606_ (gx#current-expander-context)) - (_deps157960_ (make-table 'test: eq?)) - (_bind!157961_ - (lambda (_hd158006_) + (_deps159607_ (make-table 'test: eq?)) + (_bind!159608_ + (lambda (_hd159653_) (gx#core-bind-import!__1 - _hd158006_ - _current-ctx157959_)))) - (let _lp157963_ ((_rest157965_ _rbody157957_) - (_body157966_ '())) - (let* ((_rest157967157975_ _rest157965_) - (_else157969157985_ + _hd159653_ + _current-ctx159606_)))) + (let _lp159610_ ((_rest159612_ _rbody159604_) + (_body159613_ '())) + (let* ((_rest159614159622_ _rest159612_) + (_else159616159632_ (lambda () (if (##structure-instance-of? - _current-ctx157959_ + _current-ctx159606_ 'gx#module-context::t) (##unchecked-structure-set! - _current-ctx157959_ + _current-ctx159606_ (foldl1 cons (##unchecked-structure-ref - _current-ctx157959_ + _current-ctx159606_ '8 gx#module-context::t '#f) - _body157966_) + _body159613_) '8 gx#module-context::t '#f) '#!void) (table-for-each - (lambda (_ctx157983_ _g165281_) - (gx#eval-module _ctx157983_)) - _deps157960_) - _body157966_)) - (_K157971157994_ - (lambda (_rest157988_ _hd157989_) + (lambda (_ctx159630_ _g167028_) + (gx#eval-module _ctx159630_)) + _deps159607_) + _body159613_)) + (_K159618159641_ + (lambda (_rest159635_ _hd159636_) (if (##structure-direct-instance-of? - _hd157989_ + _hd159636_ 'gx#module-import::t) (begin - (_bind!157961_ _hd157989_) + (_bind!159608_ _hd159636_) (if (and (fxpositive? (##unchecked-structure-ref - _hd157989_ + _hd159636_ '3 gx#module-import::t '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _hd157989_ + _hd159636_ '1 gx#module-import::t '#f) @@ -3064,10 +3060,10 @@ gx#module-export::t '#f))) (table-set! - _deps157960_ + _deps159607_ (##unchecked-structure-ref (##unchecked-structure-ref - _hd157989_ + _hd159636_ '1 gx#module-import::t '#f) @@ -3077,161 +3073,161 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _hd157989_ + _hd159636_ 'gx#import-set::t) (begin (for-each - _bind!157961_ + _bind!159608_ (##unchecked-structure-ref - _hd157989_ + _hd159636_ '3 gx#import-set::t '#f)) (if (fxpositive? (##unchecked-structure-ref - _hd157989_ + _hd159636_ '2 gx#import-set::t '#f)) (table-set! - _deps157960_ + _deps159607_ (##unchecked-structure-ref - _hd157989_ + _hd159636_ '1 gx#import-set::t '#f) '#t) '#!void)) - (let ((_$e157991_ + (let ((_$e159638_ (##structure-instance-of? - _hd157989_ + _hd159636_ 'gx#module-context::t))) - (if _$e157991_ - _$e157991_ + (if _$e159638_ + _$e159638_ (gx#raise-syntax-error '#f '"Unexpected import" - _stx157935_ - _hd157989_))))) - (_lp157963_ - _rest157988_ - (cons _hd157989_ _body157966_))))) - (if (##pair? _rest157967157975_) - (let ((_hd157972157997_ - (##car _rest157967157975_)) - (_tl157973157999_ - (##cdr _rest157967157975_))) - (let* ((_hd158002_ _hd157972157997_) - (_rest158004_ _tl157973157999_)) - (_K157971157994_ _rest158004_ _hd158002_))) - (_else157969157985_))))))) - (_expanded-import?157945_ - (lambda (_e157949_) - (let ((_$e157951_ + _stx159582_ + _hd159636_))))) + (_lp159610_ + _rest159635_ + (cons _hd159636_ _body159613_))))) + (if (##pair? _rest159614159622_) + (let ((_hd159619159644_ + (##car _rest159614159622_)) + (_tl159620159646_ + (##cdr _rest159614159622_))) + (let* ((_hd159649_ _hd159619159644_) + (_rest159651_ _tl159620159646_)) + (_K159618159641_ _rest159651_ _hd159649_))) + (_else159616159632_))))))) + (_expanded-import?159592_ + (lambda (_e159596_) + (let ((_$e159598_ (##structure-direct-instance-of? - _e157949_ + _e159596_ 'gx#import-set::t))) - (if _$e157951_ - _$e157951_ - (let ((_$e157954_ + (if _$e159598_ + _$e159598_ + (let ((_$e159601_ (##structure-direct-instance-of? - _e157949_ + _e159596_ 'gx#module-import::t))) - (if _$e157954_ - _$e157954_ + (if _$e159601_ + _$e159601_ (##structure-instance-of? - _e157949_ + _e159596_ 'gx#module-context::t)))))))) - (let ((_rbody157947_ + (let ((_rbody159594_ (gx#core-expand-import/export - _stx157935_ - _expanded-import?157945_ + _stx159582_ + _expanded-import?159592_ 'apply-import-expander gx#current-import-expander-phi - _expand1157938_))) - (if _internal-expand?157936_ - (reverse _rbody157947_) + _expand1159585_))) + (if _internal-expand?159583_ + (reverse _rbody159594_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_import!157944_ _rbody157947_)) - (gx#stx-source _stx157935_))))))) + (gx#core-cons '%#import (_import!159591_ _rbody159594_)) + (gx#stx-source _stx159582_))))))) (define gx#core-expand-import%__0 - (lambda (_stx158261_) - (let ((_internal-expand?158263_ '#f)) - (gx#core-expand-import%__% _stx158261_ _internal-expand?158263_)))) + (lambda (_stx159908_) + (let ((_internal-expand?159910_ '#f)) + (gx#core-expand-import%__% _stx159908_ _internal-expand?159910_)))) (define gx#core-expand-import% - (lambda _g165283_ - (let ((_g165282_ (##length _g165283_))) - (cond ((##fx= _g165282_ 1) - (apply (lambda (_stx158261_) - (gx#core-expand-import%__0 _stx158261_)) - _g165283_)) - ((##fx= _g165282_ 2) - (apply (lambda (_stx158265_ _internal-expand?158266_) + (lambda _g167030_ + (let ((_g167029_ (##length _g167030_))) + (cond ((##fx= _g167029_ 1) + (apply (lambda (_stx159908_) + (gx#core-expand-import%__0 _stx159908_)) + _g167030_)) + ((##fx= _g167029_ 2) + (apply (lambda (_stx159912_ _internal-expand?159913_) (gx#core-expand-import%__% - _stx158265_ - _internal-expand?158266_)) - _g165283_)) + _stx159912_ + _internal-expand?159913_)) + _g167030_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g165283_)))))) + _g167030_)))))) (define gx#core-import-nested-module - (lambda (_spath157862_ _where157863_) - (let* ((_e157864157871_ _spath157862_) - (_E157866157875_ + (lambda (_spath159509_ _where159510_) + (let* ((_e159511159518_ _spath159509_) + (_E159513159522_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e157864157871_))) - (_E157865157930_ + _e159511159518_))) + (_E159512159577_ (lambda () - (if (gx#stx-pair? _e157864157871_) - (let ((_e157867157879_ (gx#syntax-e _e157864157871_))) - (let ((_hd157868157882_ (##car _e157867157879_)) - (_tl157869157884_ (##cdr _e157867157879_))) - (let* ((_origin157887_ _hd157868157882_) - (_sub157889_ _tl157869157884_)) + (if (gx#stx-pair? _e159511159518_) + (let ((_e159514159526_ (gx#syntax-e _e159511159518_))) + (let ((_hd159515159529_ (##car _e159514159526_)) + (_tl159516159531_ (##cdr _e159514159526_))) + (let* ((_origin159534_ _hd159515159529_) + (_sub159536_ _tl159516159531_)) (if '#t - (let ((_origin-ctx157891_ - (if (gx#stx-false? _origin157887_) + (let ((_origin-ctx159538_ + (if (gx#stx-false? _origin159534_) (gx#current-expander-context) (gx#import-module__0 - _origin157887_)))) - (let _lp157893_ ((_rest157895_ _sub157889_) - (_ctx157896_ - _origin-ctx157891_)) - (let* ((_e157897157904_ _rest157895_) - (_E157899157908_ - (lambda () _ctx157896_)) - (_E157898157926_ + _origin159534_)))) + (let _lp159540_ ((_rest159542_ _sub159536_) + (_ctx159543_ + _origin-ctx159538_)) + (let* ((_e159544159551_ _rest159542_) + (_E159546159555_ + (lambda () _ctx159543_)) + (_E159545159573_ (lambda () (if (gx#stx-pair? - _e157897157904_) - (let ((_e157900157912_ + _e159544159551_) + (let ((_e159547159559_ (gx#syntax-e - _e157897157904_))) - (let ((_hd157901157915_ - (##car _e157900157912_)) - (_tl157902157917_ - (##cdr _e157900157912_))) - (let* ((_id157920_ - _hd157901157915_) - (_rest157922_ - _tl157902157917_)) + _e159544159551_))) + (let ((_hd159548159562_ + (##car _e159547159559_)) + (_tl159549159564_ + (##cdr _e159547159559_))) + (let* ((_id159567_ + _hd159548159562_) + (_rest159569_ + _tl159549159564_)) (if '#t - (let ((_bind157924_ + (let ((_bind159571_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#resolve-identifier__% - _id157920_ + _id159567_ '0 - _ctx157896_))) + _ctx159543_))) (if (and (##structure-direct-instance-of? - _bind157924_ + _bind159571_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind157924_ + _bind159571_ '4 gx#syntax-binding::t '#f) @@ -3240,833 +3236,833 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _where157863_ - _spath157862_ - _id157920_)) - (_lp157893_ - _rest157922_ + _where159510_ + _spath159509_ + _id159567_)) + (_lp159540_ + _rest159569_ (##unchecked-structure-ref - _bind157924_ + _bind159571_ '4 gx#syntax-binding::t '#f))) - (_E157899157908_))))) + (_E159546159555_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E157899157908_))))) - (_E157898157926_)))) - (_E157866157875_))))) - (_E157866157875_))))) - (_E157865157930_)))) + (_E159546159555_))))) + (_E159545159573_)))) + (_E159513159522_))))) + (_E159513159522_))))) + (_E159512159577_)))) (define gx#core-expand-import-source - (lambda (_hd157860_) + (lambda (_hd159507_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _hd157860_ '())) + (cons 'import-internal% (cons _hd159507_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_stx157368_ _internal-expand?157369_) - (letrec* ((_make-export__165212165213_ - (lambda (_bind157808_ _phi157809_ _ctx157810_ _name157811_) - (let* ((_key157813_ + (lambda (_stx159015_ _internal-expand?159016_) + (letrec* ((_make-export__166959166960_ + (lambda (_bind159455_ _phi159456_ _ctx159457_ _name159458_) + (let* ((_key159460_ (##unchecked-structure-ref - _bind157808_ + _bind159455_ '2 gx#binding::t '#f)) - (_export-key157815_ - (if _name157811_ - (gx#core-identifier-key _name157811_) - _key157813_))) + (_export-key159462_ + (if _name159458_ + (gx#core-identifier-key _name159458_) + _key159460_))) (##structure gx#module-export::t - _ctx157810_ - _key157813_ - _phi157809_ - _export-key157815_ - (let ((_$e157818_ + _ctx159457_ + _key159460_ + _phi159456_ + _export-key159462_ + (let ((_$e159465_ (##structure-instance-of? - _bind157808_ + _bind159455_ 'gx#extern-binding::t))) - (if _$e157818_ - _$e157818_ + (if _$e159465_ + _$e159465_ (##structure-direct-instance-of? - _bind157808_ + _bind159455_ 'gx#import-binding::t))))))) - (_make-export__0__165214165217_ - (lambda (_bind157824_) - (let* ((_phi157826_ (gx#current-export-expander-phi)) - (_ctx157828_ (gx#current-expander-context)) - (_name157830_ '#f)) - (_make-export__165212165213_ - _bind157824_ - _phi157826_ - _ctx157828_ - _name157830_)))) - (_make-export__1__165215165218_ - (lambda (_bind157832_ _phi157833_) - (let* ((_ctx157835_ (gx#current-expander-context)) - (_name157837_ '#f)) - (_make-export__165212165213_ - _bind157832_ - _phi157833_ - _ctx157835_ - _name157837_)))) - (_make-export__2__165216165219_ - (lambda (_bind157839_ _phi157840_ _ctx157841_) - (let ((_name157843_ '#f)) - (_make-export__165212165213_ - _bind157839_ - _phi157840_ - _ctx157841_ - _name157843_)))) - (_make-export157371_ - (lambda _g165285_ - (let ((_g165284_ (##length _g165285_))) - (cond ((##fx= _g165284_ 1) - (apply (lambda (_bind157824_) - (_make-export__0__165214165217_ - _bind157824_)) - _g165285_)) - ((##fx= _g165284_ 2) - (apply (lambda (_bind157832_ _phi157833_) - (_make-export__1__165215165218_ - _bind157832_ - _phi157833_)) - _g165285_)) - ((##fx= _g165284_ 3) - (apply (lambda (_bind157839_ - _phi157840_ - _ctx157841_) - (_make-export__2__165216165219_ - _bind157839_ - _phi157840_ - _ctx157841_)) - _g165285_)) - ((##fx= _g165284_ 4) - (apply (lambda (_bind157845_ - _phi157846_ - _ctx157847_ - _name157848_) - (_make-export__165212165213_ - _bind157845_ - _phi157846_ - _ctx157847_ - _name157848_)) - _g165285_)) + (_make-export__0__166961166964_ + (lambda (_bind159471_) + (let* ((_phi159473_ (gx#current-export-expander-phi)) + (_ctx159475_ (gx#current-expander-context)) + (_name159477_ '#f)) + (_make-export__166959166960_ + _bind159471_ + _phi159473_ + _ctx159475_ + _name159477_)))) + (_make-export__1__166962166965_ + (lambda (_bind159479_ _phi159480_) + (let* ((_ctx159482_ (gx#current-expander-context)) + (_name159484_ '#f)) + (_make-export__166959166960_ + _bind159479_ + _phi159480_ + _ctx159482_ + _name159484_)))) + (_make-export__2__166963166966_ + (lambda (_bind159486_ _phi159487_ _ctx159488_) + (let ((_name159490_ '#f)) + (_make-export__166959166960_ + _bind159486_ + _phi159487_ + _ctx159488_ + _name159490_)))) + (_make-export159018_ + (lambda _g167032_ + (let ((_g167031_ (##length _g167032_))) + (cond ((##fx= _g167031_ 1) + (apply (lambda (_bind159471_) + (_make-export__0__166961166964_ + _bind159471_)) + _g167032_)) + ((##fx= _g167031_ 2) + (apply (lambda (_bind159479_ _phi159480_) + (_make-export__1__166962166965_ + _bind159479_ + _phi159480_)) + _g167032_)) + ((##fx= _g167031_ 3) + (apply (lambda (_bind159486_ + _phi159487_ + _ctx159488_) + (_make-export__2__166963166966_ + _bind159486_ + _phi159487_ + _ctx159488_)) + _g167032_)) + ((##fx= _g167031_ 4) + (apply (lambda (_bind159492_ + _phi159493_ + _ctx159494_ + _name159495_) + (_make-export__166959166960_ + _bind159492_ + _phi159493_ + _ctx159494_ + _name159495_)) + _g167032_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g165285_)))))) - (_expand1157372_ - (lambda (_hd157521_ _K157522_ _rest157523_ _r157524_) - (let* ((_e157525157557_ _hd157521_) - (_E157552157561_ + _g167032_)))))) + (_expand1159019_ + (lambda (_hd159168_ _K159169_ _rest159170_ _r159171_) + (let* ((_e159172159204_ _hd159168_) + (_E159199159208_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _stx157368_ - _hd157521_))) - (_E157542157640_ + _stx159015_ + _hd159168_))) + (_E159189159287_ (lambda () - (if (gx#stx-pair? _e157525157557_) - (let ((_e157553157565_ - (gx#syntax-e _e157525157557_))) - (let ((_hd157554157568_ - (##car _e157553157565_)) - (_tl157555157570_ - (##cdr _e157553157565_))) - (if (eq? (gx#stx-e _hd157554157568_) + (if (gx#stx-pair? _e159172159204_) + (let ((_e159200159212_ + (gx#syntax-e _e159172159204_))) + (let ((_hd159201159215_ + (##car _e159200159212_)) + (_tl159202159217_ + (##cdr _e159200159212_))) + (if (eq? (gx#stx-e _hd159201159215_) 'import:) - (let ((_in157573_ _tl157555157570_)) - (if (gx#stx-list? _in157573_) - (let _lp157575_ ((_in-rest157577_ + (let ((_in159220_ _tl159202159217_)) + (if (gx#stx-list? _in159220_) + (let _lp159222_ ((_in-rest159224_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in157573_) - (_r157578_ _r157524_)) + _in159220_) + (_r159225_ _r159171_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e157579157586_ - _in-rest157577_) - (_E157581157590_ + (let* ((_e159226159233_ + _in-rest159224_) + (_E159228159237_ (lambda () - (_K157522_ - _rest157523_ - _r157578_))) - (_E157580157636_ + (_K159169_ + _rest159170_ + _r159225_))) + (_E159227159283_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e157579157586_) - (let ((_e157582157594_ (gx#syntax-e _e157579157586_))) - (let ((_hd157583157597_ (##car _e157582157594_)) - (_tl157584157599_ (##cdr _e157582157594_))) - (let* ((_hd157602_ _hd157583157597_) - (_in-rest157604_ _tl157584157599_)) + _e159226159233_) + (let ((_e159229159241_ (gx#syntax-e _e159226159233_))) + (let ((_hd159230159244_ (##car _e159229159241_)) + (_tl159231159246_ (##cdr _e159229159241_))) + (let* ((_hd159249_ _hd159230159244_) + (_in-rest159251_ _tl159231159246_)) (if '#t - (let ((_src157634_ + (let ((_src159281_ (if (gx#core-bound-module? - _hd157602_) - (gx#syntax-local-e__0 _hd157602_) + _hd159249_) + (gx#syntax-local-e__0 _hd159249_) (if (gx#core-library-module-path? - _hd157602_) + _hd159249_) (gx#import-module__0 (gx#core-resolve-library-module-path - _hd157602_)) + _hd159249_)) (if (gx#core-library-relative-module-path? - _hd157602_) + _hd159249_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd157602_)) + _hd159249_)) (if (gx#stx-string? - _hd157602_) + _hd159249_) (gx#import-module__0 (gx#core-resolve-module-path__% - _hd157602_ + _hd159249_ (gx#stx-source - _stx157368_))) - (let* ((_e157605157612_ + _stx159015_))) + (let* ((_e159252159259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd157602_) - (_E157607157616_ + _hd159249_) + (_E159254159263_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _stx157368_ - _hd157602_))) - (_E157606157630_ + _stx159015_ + _hd159249_))) + (_E159253159277_ (lambda () - (if (gx#stx-pair? _e157605157612_) - (let ((_e157608157620_ - (gx#syntax-e _e157605157612_))) - (let ((_hd157609157623_ - (##car _e157608157620_)) - (_tl157610157625_ - (##cdr _e157608157620_))) - (if (eq? (gx#stx-e _hd157609157623_) 'in:) - (let ((_spath157628_ _tl157610157625_)) + (if (gx#stx-pair? _e159252159259_) + (let ((_e159255159267_ + (gx#syntax-e _e159252159259_))) + (let ((_hd159256159270_ + (##car _e159255159267_)) + (_tl159257159272_ + (##cdr _e159255159267_))) + (if (eq? (gx#stx-e _hd159256159270_) 'in:) + (let ((_spath159275_ _tl159257159272_)) (if '#t (gx#core-import-nested-module - _spath157628_ - _stx157368_) - (_E157607157616_))) - (_E157607157616_)))) - (_E157607157616_))))) - (_E157606157630_)))))))) + _spath159275_ + _stx159015_) + (_E159254159263_))) + (_E159254159263_)))) + (_E159254159263_))))) + (_E159253159277_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp157575_ - _in-rest157604_ - (_export-imports157373_ - _src157634_ - _r157578_))) - (_E157581157590_))))) - (_E157581157590_))))) + (_lp159222_ + _in-rest159251_ + (_export-imports159020_ + _src159281_ + _r159225_))) + (_E159228159237_))))) + (_E159228159237_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E157580157636_))) - (_E157552157561_))) - (_E157552157561_)))) - (_E157552157561_)))) - (_E157529157679_ + (_E159227159283_))) + (_E159199159208_))) + (_E159199159208_)))) + (_E159199159208_)))) + (_E159176159326_ (lambda () - (if (gx#stx-pair? _e157525157557_) - (let ((_e157543157644_ - (gx#syntax-e _e157525157557_))) - (let ((_hd157544157647_ - (##car _e157543157644_)) - (_tl157545157649_ - (##cdr _e157543157644_))) - (if (eq? (gx#stx-e _hd157544157647_) + (if (gx#stx-pair? _e159172159204_) + (let ((_e159190159291_ + (gx#syntax-e _e159172159204_))) + (let ((_hd159191159294_ + (##car _e159190159291_)) + (_tl159192159296_ + (##cdr _e159190159291_))) + (if (eq? (gx#stx-e _hd159191159294_) 'rename:) - (if (gx#stx-pair? _tl157545157649_) - (let ((_e157546157652_ + (if (gx#stx-pair? _tl159192159296_) + (let ((_e159193159299_ (gx#syntax-e - _tl157545157649_))) - (let ((_hd157547157655_ - (##car _e157546157652_)) - (_tl157548157657_ - (##cdr _e157546157652_))) - (let ((_id157660_ - _hd157547157655_)) + _tl159192159296_))) + (let ((_hd159194159302_ + (##car _e159193159299_)) + (_tl159195159304_ + (##cdr _e159193159299_))) + (let ((_id159307_ + _hd159194159302_)) (if (gx#stx-pair? - _tl157548157657_) - (let ((_e157549157662_ + _tl159195159304_) + (let ((_e159196159309_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl157548157657_))) - (let ((_hd157550157665_ (##car _e157549157662_)) - (_tl157551157667_ (##cdr _e157549157662_))) - (let ((_name157670_ _hd157550157665_)) - (if (gx#stx-null? _tl157551157667_) + _tl159195159304_))) + (let ((_hd159197159312_ (##car _e159196159309_)) + (_tl159198159314_ (##cdr _e159196159309_))) + (let ((_name159317_ _hd159197159312_)) + (if (gx#stx-null? _tl159198159314_) (if '#t - (let* ((_phi157672_ + (let* ((_phi159319_ (gx#current-export-expander-phi)) - (_$e157674_ + (_$e159321_ (gx#core-resolve-identifier__1 - _id157660_ - _phi157672_))) - (if _$e157674_ - ((lambda (_bind157677_) - (_K157522_ - _rest157523_ - (cons (_make-export__165212165213_ - _bind157677_ - _phi157672_ + _id159307_ + _phi159319_))) + (if _$e159321_ + ((lambda (_bind159324_) + (_K159169_ + _rest159170_ + (cons (_make-export__166959166960_ + _bind159324_ + _phi159319_ (gx#current-expander-context) - _name157670_) - _r157524_))) - _$e157674_) + _name159317_) + _r159171_))) + _$e159321_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx157368_ - _hd157521_ - _id157660_))) - (_E157542157640_)) - (_E157542157640_))))) - (_E157542157640_))))) + _stx159015_ + _hd159168_ + _id159307_))) + (_E159189159287_)) + (_E159189159287_))))) + (_E159189159287_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E157542157640_)) - (_E157542157640_)))) - (_E157542157640_)))) - (_E157528157728_ + (_E159189159287_)) + (_E159189159287_)))) + (_E159189159287_)))) + (_E159175159375_ (lambda () - (if (gx#stx-pair? _e157525157557_) - (let ((_e157530157683_ - (gx#syntax-e _e157525157557_))) - (let ((_hd157531157686_ - (##car _e157530157683_)) - (_tl157532157688_ - (##cdr _e157530157683_))) - (if (eq? (gx#stx-e _hd157531157686_) + (if (gx#stx-pair? _e159172159204_) + (let ((_e159177159330_ + (gx#syntax-e _e159172159204_))) + (let ((_hd159178159333_ + (##car _e159177159330_)) + (_tl159179159335_ + (##cdr _e159177159330_))) + (if (eq? (gx#stx-e _hd159178159333_) 'spec:) - (if (gx#stx-pair? _tl157532157688_) - (let ((_e157533157691_ + (if (gx#stx-pair? _tl159179159335_) + (let ((_e159180159338_ (gx#syntax-e - _tl157532157688_))) - (let ((_hd157534157694_ - (##car _e157533157691_)) - (_tl157535157696_ - (##cdr _e157533157691_))) - (let ((_phi157699_ - _hd157534157694_)) + _tl159179159335_))) + (let ((_hd159181159341_ + (##car _e159180159338_)) + (_tl159182159343_ + (##cdr _e159180159338_))) + (let ((_phi159346_ + _hd159181159341_)) (if (gx#stx-pair? - _tl157535157696_) - (let ((_e157536157701_ + _tl159182159343_) + (let ((_e159183159348_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl157535157696_))) - (let ((_hd157537157704_ (##car _e157536157701_)) - (_tl157538157706_ (##cdr _e157536157701_))) - (let ((_id157709_ _hd157537157704_)) - (if (gx#stx-pair? _tl157538157706_) - (let ((_e157539157711_ - (gx#syntax-e _tl157538157706_))) - (let ((_hd157540157714_ (##car _e157539157711_)) - (_tl157541157716_ (##cdr _e157539157711_))) - (let ((_name157719_ _hd157540157714_)) - (if (gx#stx-null? _tl157541157716_) - (if (and (gx#stx-fixnum? _phi157699_) - (gx#identifier? _id157709_) - (gx#identifier? _name157719_)) - (let* ((_phi157721_ - (gx#stx-e _phi157699_)) - (_$e157723_ + _tl159182159343_))) + (let ((_hd159184159351_ (##car _e159183159348_)) + (_tl159185159353_ (##cdr _e159183159348_))) + (let ((_id159356_ _hd159184159351_)) + (if (gx#stx-pair? _tl159185159353_) + (let ((_e159186159358_ + (gx#syntax-e _tl159185159353_))) + (let ((_hd159187159361_ (##car _e159186159358_)) + (_tl159188159363_ (##cdr _e159186159358_))) + (let ((_name159366_ _hd159187159361_)) + (if (gx#stx-null? _tl159188159363_) + (if (and (gx#stx-fixnum? _phi159346_) + (gx#identifier? _id159356_) + (gx#identifier? _name159366_)) + (let* ((_phi159368_ + (gx#stx-e _phi159346_)) + (_$e159370_ (gx#core-resolve-identifier__1 - _id157709_ - _phi157721_))) - (if _$e157723_ - ((lambda (_bind157726_) - (_K157522_ - _rest157523_ - (cons (_make-export__165212165213_ - _bind157726_ - _phi157721_ + _id159356_ + _phi159368_))) + (if _$e159370_ + ((lambda (_bind159373_) + (_K159169_ + _rest159170_ + (cons (_make-export__166959166960_ + _bind159373_ + _phi159368_ (gx#current-expander-context) - _name157719_) - _r157524_))) - _$e157723_) + _name159366_) + _r159171_))) + _$e159370_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx157368_ - _hd157521_ - _id157709_))) - (_E157529157679_)) - (_E157529157679_))))) - (_E157529157679_))))) - (_E157529157679_))))) + _stx159015_ + _hd159168_ + _id159356_))) + (_E159176159326_)) + (_E159176159326_))))) + (_E159176159326_))))) + (_E159176159326_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E157529157679_)) - (_E157529157679_)))) - (_E157529157679_)))) - (_E157527157739_ + (_E159176159326_)) + (_E159176159326_)))) + (_E159176159326_)))) + (_E159174159386_ (lambda () - (let ((_id157732_ _e157525157557_)) - (if (gx#identifier? _id157732_) - (let ((_$e157734_ + (let ((_id159379_ _e159172159204_)) + (if (gx#identifier? _id159379_) + (let ((_$e159381_ (gx#core-resolve-identifier__1 - _id157732_ + _id159379_ (gx#current-export-expander-phi)))) - (if _$e157734_ - ((lambda (_bind157737_) - (_K157522_ - _rest157523_ - (cons (_make-export__0__165214165217_ - _bind157737_) - _r157524_))) - _$e157734_) + (if _$e159381_ + ((lambda (_bind159384_) + (_K159169_ + _rest159170_ + (cons (_make-export__0__166961166964_ + _bind159384_) + _r159171_))) + _$e159381_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx157368_ - _hd157521_))) - (_E157528157728_))))) - (_E157526157803_ + _stx159015_ + _hd159168_))) + (_E159175159375_))))) + (_E159173159450_ (lambda () - (if (eq? (gx#stx-e _e157525157557_) '#t) + (if (eq? (gx#stx-e _e159172159204_) '#t) (if '#t - (let* ((_current-ctx157743_ + (let* ((_current-ctx159390_ (gx#current-expander-context)) - (_current-phi157745_ + (_current-phi159392_ (gx#current-export-expander-phi)) - (_phi-ctx157747_ + (_phi-ctx159394_ (gx#core-context-shift - _current-ctx157743_ - _current-phi157745_)) - (_phi-bind157749_ + _current-ctx159390_ + _current-phi159392_)) + (_phi-bind159396_ (table->list (##unchecked-structure-ref - _phi-ctx157747_ + _phi-ctx159394_ '2 gx#expander-context::t '#f)))) - (let _lp157752_ ((_bind-rest157754_ - _phi-bind157749_) - (_set157755_ '())) - (let* ((_bind-rest157756157766_ - _bind-rest157754_) - (_else157758157774_ + (let _lp159399_ ((_bind-rest159401_ + _phi-bind159396_) + (_set159402_ '())) + (let* ((_bind-rest159403159413_ + _bind-rest159401_) + (_else159405159421_ (lambda () - (_K157522_ - _rest157523_ + (_K159169_ + _rest159170_ (cons (##structure gx#export-set::t '#f - _current-phi157745_ - _set157755_) - _r157524_)))) - (_K157760157784_ - (lambda (_bind-rest157777_ - _bind157778_ - _key157779_) + _current-phi159392_ + _set159402_) + _r159171_)))) + (_K159407159431_ + (lambda (_bind-rest159424_ + _bind159425_ + _key159426_) (if (or (##structure-direct-instance-of? - _bind157778_ + _bind159425_ 'gx#import-binding::t) (gx#private-feature-binding? - _bind157778_)) - (_lp157752_ - _bind-rest157777_ - _set157755_) - (_lp157752_ - _bind-rest157777_ - (cons (_make-export__2__165216165219_ + _bind159425_)) + (_lp159399_ + _bind-rest159424_ + _set159402_) + (_lp159399_ + _bind-rest159424_ + (cons (_make-export__2__166963166966_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind157778_ - _current-phi157745_ - _current-ctx157743_) - _set157755_)))))) + _bind159425_ + _current-phi159392_ + _current-ctx159390_) + _set159402_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _bind-rest157756157766_) - (let ((_hd157761157787_ - (##car _bind-rest157756157766_)) - (_tl157762157789_ - (##cdr _bind-rest157756157766_))) - (if (##pair? _hd157761157787_) - (let ((_hd157763157792_ - (##car _hd157761157787_)) - (_tl157764157794_ - (##cdr _hd157761157787_))) - (let* ((_key157797_ + (if (##pair? _bind-rest159403159413_) + (let ((_hd159408159434_ + (##car _bind-rest159403159413_)) + (_tl159409159436_ + (##cdr _bind-rest159403159413_))) + (if (##pair? _hd159408159434_) + (let ((_hd159410159439_ + (##car _hd159408159434_)) + (_tl159411159441_ + (##cdr _hd159408159434_))) + (let* ((_key159444_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd157763157792_) - (_bind157799_ _tl157764157794_) - (_bind-rest157801_ _tl157762157789_)) - (_K157760157784_ - _bind-rest157801_ - _bind157799_ - _key157797_))) - (_else157758157774_))) + _hd159410159439_) + (_bind159446_ _tl159411159441_) + (_bind-rest159448_ _tl159409159436_)) + (_K159407159431_ + _bind-rest159448_ + _bind159446_ + _key159444_))) + (_else159405159421_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else157758157774_))))) - (_E157527157739_)) - (_E157527157739_))))) - (_E157526157803_)))) - (_export-imports157373_ - (lambda (_src157397_ _r157398_) - (letrec* ((_current-ctx157400_ + (_else159405159421_))))) + (_E159174159386_)) + (_E159174159386_))))) + (_E159173159450_)))) + (_export-imports159020_ + (lambda (_src159044_ _r159045_) + (letrec* ((_current-ctx159047_ (gx#current-expander-context)) - (_current-phi157401_ + (_current-phi159048_ (gx#current-export-expander-phi)) - (_import->export157402_ - (lambda (_in157483_) - (let* ((_in157484157492_ _in157483_) - (_E157486157496_ + (_import->export159049_ + (lambda (_in159130_) + (let* ((_in159131159139_ _in159130_) + (_E159133159143_ (lambda () (error '"No clause matching" - _in157484157492_))) - (_K157487157503_ - (lambda (_phi157499_ - _key157500_ - _out157501_) + _in159131159139_))) + (_K159134159150_ + (lambda (_phi159146_ + _key159147_ + _out159148_) (##structure gx#module-export::t - _current-ctx157400_ - _key157500_ - _phi157499_ - _key157500_ + _current-ctx159047_ + _key159147_ + _phi159146_ + _key159147_ '#t)))) (if (##structure-direct-instance-of? - _in157484157492_ + _in159131159139_ 'gx#module-import::t) - (let* ((_e157488157506_ + (let* ((_e159135159153_ (##unchecked-structure-ref - _in157484157492_ + _in159131159139_ '1 gx#module-import::t '#f)) - (_out157509_ _e157488157506_) - (_e157489157511_ + (_out159156_ _e159135159153_) + (_e159136159158_ (##unchecked-structure-ref - _in157484157492_ + _in159131159139_ '2 gx#module-import::t '#f)) - (_key157514_ _e157489157511_) - (_e157490157516_ + (_key159161_ _e159136159158_) + (_e159137159163_ (##unchecked-structure-ref - _in157484157492_ + _in159131159139_ '3 gx#module-import::t '#f)) - (_phi157519_ _e157490157516_)) - (_K157487157503_ - _phi157519_ - _key157514_ - _out157509_)) - (_E157486157496_))))) - (_fold-e157403_ - (lambda (_in157405_ _r157406_) - (let* ((_in157407157421_ _in157405_) - (_else157410157429_ - (lambda () _r157406_))) - (let ((_K157416157465_ - (lambda (_phi157461_ - _key157462_ - _out157463_) - (if (and (fx= _phi157461_ - _current-phi157401_) - (eq? _src157397_ + (_phi159166_ _e159137159163_)) + (_K159134159150_ + _phi159166_ + _key159161_ + _out159156_)) + (_E159133159143_))))) + (_fold-e159050_ + (lambda (_in159052_ _r159053_) + (let* ((_in159054159068_ _in159052_) + (_else159057159076_ + (lambda () _r159053_))) + (let ((_K159063159112_ + (lambda (_phi159108_ + _key159109_ + _out159110_) + (if (and (fx= _phi159108_ + _current-phi159048_) + (eq? _src159044_ (##unchecked-structure-ref - _out157463_ + _out159110_ '1 gx#module-export::t '#f))) - (cons (_import->export157402_ - _in157405_) - _r157406_) - _r157406_))) - (_K157412157440_ - (lambda (_imports157433_ - _phi157434_ - _ctx157435_) - (if (and (fx= _phi157434_ - _current-phi157401_) - (eq? _src157397_ - _ctx157435_)) - (foldl1 (lambda (_in157437_ + (cons (_import->export159049_ + _in159052_) + _r159053_) + _r159053_))) + (_K159059159087_ + (lambda (_imports159080_ + _phi159081_ + _ctx159082_) + (if (and (fx= _phi159081_ + _current-phi159048_) + (eq? _src159044_ + _ctx159082_)) + (foldl1 (lambda (_in159084_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r157438_) - (cons (_import->export157402_ _in157437_) _r157438_)) - _r157406_ - _imports157433_) + _r159085_) + (cons (_import->export159049_ _in159084_) _r159085_)) + _r159053_ + _imports159080_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r157406_)))) - (let ((_try-match157409157458_ + _r159053_)))) + (let ((_try-match159056159105_ (lambda () (if (##structure-direct-instance-of? - _in157407157421_ + _in159054159068_ 'gx#import-set::t) - (let* ((_e157413157443_ + (let* ((_e159060159090_ (##unchecked-structure-ref - _in157407157421_ + _in159054159068_ '1 gx#import-set::t '#f)) - (_e157414157448_ + (_e159061159095_ (##unchecked-structure-ref - _in157407157421_ + _in159054159068_ '2 gx#import-set::t '#f)) - (_e157415157453_ + (_e159062159100_ (##unchecked-structure-ref - _in157407157421_ + _in159054159068_ '3 gx#import-set::t '#f))) - (let ((_ctx157446_ - _e157413157443_) - (_phi157451_ - _e157414157448_) - (_imports157456_ - _e157415157453_)) - (_K157412157440_ - _imports157456_ - _phi157451_ - _ctx157446_))) - (_else157410157429_))))) + (let ((_ctx159093_ + _e159060159090_) + (_phi159098_ + _e159061159095_) + (_imports159103_ + _e159062159100_)) + (_K159059159087_ + _imports159103_ + _phi159098_ + _ctx159093_))) + (_else159057159076_))))) (if (##structure-direct-instance-of? - _in157407157421_ + _in159054159068_ 'gx#module-import::t) - (let* ((_e157417157468_ + (let* ((_e159064159115_ (##unchecked-structure-ref - _in157407157421_ + _in159054159068_ '1 gx#module-import::t '#f)) - (_e157418157473_ + (_e159065159120_ (##unchecked-structure-ref - _in157407157421_ + _in159054159068_ '2 gx#module-import::t '#f)) - (_e157419157478_ + (_e159066159125_ (##unchecked-structure-ref - _in157407157421_ + _in159054159068_ '3 gx#module-import::t '#f))) - (let ((_out157471_ - _e157417157468_) - (_key157476_ - _e157418157473_) - (_phi157481_ - _e157419157478_)) - (_K157416157465_ - _phi157481_ - _key157476_ - _out157471_))) - (_try-match157409157458_)))))))) + (let ((_out159118_ + _e159064159115_) + (_key159123_ + _e159065159120_) + (_phi159128_ + _e159066159125_)) + (_K159063159112_ + _phi159128_ + _key159123_ + _out159118_))) + (_try-match159056159105_)))))))) (cons (##structure gx#export-set::t - _src157397_ - _current-phi157401_ - (foldl1 _fold-e157403_ + _src159044_ + _current-phi159048_ + (foldl1 _fold-e159050_ '() (##unchecked-structure-ref - _current-ctx157400_ + _current-ctx159047_ '8 gx#module-context::t '#f))) - _r157398_)))) - (_export!157374_ - (lambda (_rbody157387_) - (letrec* ((_current-ctx157389_ + _r159045_)))) + (_export!159021_ + (lambda (_rbody159034_) + (letrec* ((_current-ctx159036_ (gx#current-expander-context)) - (_fold-e157390_ - (lambda (_out157394_ _r157395_) + (_fold-e159037_ + (lambda (_out159041_ _r159042_) (if (##structure-direct-instance-of? - _out157394_ + _out159041_ 'gx#module-export::t) - (cons _out157394_ _r157395_) + (cons _out159041_ _r159042_) (if (##structure-direct-instance-of? - _out157394_ + _out159041_ 'gx#export-set::t) (foldl1 cons - _r157395_ + _r159042_ (##unchecked-structure-ref - _out157394_ + _out159041_ '3 gx#export-set::t '#f)) - _r157395_))))) - (let ((_body157392_ (reverse _rbody157387_))) + _r159042_))))) + (let ((_body159039_ (reverse _rbody159034_))) (##unchecked-structure-set! - _current-ctx157389_ - (foldl1 _fold-e157390_ + _current-ctx159036_ + (foldl1 _fold-e159037_ (##unchecked-structure-ref - _current-ctx157389_ + _current-ctx159036_ '9 gx#module-context::t '#f) - _body157392_) + _body159039_) '9 gx#module-context::t '#f) - _body157392_)))) - (_expanded-export?157375_ - (lambda (_e157382_) - (let ((_$e157384_ + _body159039_)))) + (_expanded-export?159022_ + (lambda (_e159029_) + (let ((_$e159031_ (##structure-direct-instance-of? - _e157382_ + _e159029_ 'gx#module-export::t))) - (if _$e157384_ - _$e157384_ + (if _$e159031_ + _$e159031_ (##structure-direct-instance-of? - _e157382_ + _e159029_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _internal-expand?157369_) - (let ((_rbody157380_ + _internal-expand?159016_) + (let ((_rbody159027_ (gx#core-expand-import/export - _stx157368_ - _expanded-export?157375_ + _stx159015_ + _expanded-export?159022_ 'apply-export-expander gx#current-export-expander-phi - _expand1157372_))) - (if _internal-expand?157369_ - (reverse _rbody157380_) + _expand1159019_))) + (if _internal-expand?159016_ + (reverse _rbody159027_) (gx#core-quote-syntax__1 - (gx#core-cons '%#export (_export!157374_ _rbody157380_)) - (gx#stx-source _stx157368_)))) + (gx#core-cons '%#export (_export!159021_ _rbody159027_)) + (gx#stx-source _stx159015_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _stx157368_)) + (gx#stx-source _stx159015_)) (gx#raise-syntax-error '#f '"Illegal context" - _stx157368_)))))) + _stx159015_)))))) (define gx#core-expand-export%__0 - (lambda (_stx157853_) - (let ((_internal-expand?157855_ '#f)) - (gx#core-expand-export%__% _stx157853_ _internal-expand?157855_)))) + (lambda (_stx159500_) + (let ((_internal-expand?159502_ '#f)) + (gx#core-expand-export%__% _stx159500_ _internal-expand?159502_)))) (define gx#core-expand-export% - (lambda _g165287_ - (let ((_g165286_ (##length _g165287_))) - (cond ((##fx= _g165286_ 1) - (apply (lambda (_stx157853_) - (gx#core-expand-export%__0 _stx157853_)) - _g165287_)) - ((##fx= _g165286_ 2) - (apply (lambda (_stx157857_ _internal-expand?157858_) + (lambda _g167034_ + (let ((_g167033_ (##length _g167034_))) + (cond ((##fx= _g167033_ 1) + (apply (lambda (_stx159500_) + (gx#core-expand-export%__0 _stx159500_)) + _g167034_)) + ((##fx= _g167033_ 2) + (apply (lambda (_stx159504_ _internal-expand?159505_) (gx#core-expand-export%__% - _stx157857_ - _internal-expand?157858_)) - _g165287_)) + _stx159504_ + _internal-expand?159505_)) + _g167034_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g165287_)))))) + _g167034_)))))) (define gx#core-expand-export-source - (lambda (_hd157365_) + (lambda (_hd159012_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _hd157365_ '())) + (cons 'export-macro% (cons _hd159012_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_stx157335_) - (let* ((_e157336157343_ _stx157335_) - (_E157338157347_ + (lambda (_stx158982_) + (let* ((_e158983158990_ _stx158982_) + (_E158985158994_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e157336157343_))) - (_E157337157361_ + _e158983158990_))) + (_E158984159008_ (lambda () - (if (gx#stx-pair? _e157336157343_) - (let ((_e157339157351_ (gx#syntax-e _e157336157343_))) - (let ((_hd157340157354_ (##car _e157339157351_)) - (_tl157341157356_ (##cdr _e157339157351_))) - (let ((_body157359_ _tl157341157356_)) - (if (gx#identifier-list? _body157359_) + (if (gx#stx-pair? _e158983158990_) + (let ((_e158986158998_ (gx#syntax-e _e158983158990_))) + (let ((_hd158987159001_ (##car _e158986158998_)) + (_tl158988159003_ (##cdr _e158986158998_))) + (let ((_body159006_ _tl158988159003_)) + (if (gx#identifier-list? _body159006_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _body157359_) + _body159006_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _body157359_)) - (gx#stx-source _stx157335_))) - (_E157338157347_))))) - (_E157338157347_))))) - (_E157337157361_)))) + _body159006_)) + (gx#stx-source _stx158982_))) + (_E158985158994_))))) + (_E158985158994_))))) + (_E158984159008_)))) (define gx#core-bind-feature!__% - (lambda (_id157301_ _private?157302_ _phi157303_ _ctx157304_) + (lambda (_id158948_ _private?158949_ _phi158950_ _ctx158951_) (gx#core-bind-syntax!__% - _id157301_ - ((if _private?157302_ + _id158948_ + ((if _private?158949_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _id157301_)) - _private?157302_ - _phi157303_ - _ctx157304_))) + (gx#stx-e _id158948_)) + _private?158949_ + _phi158950_ + _ctx158951_))) (define gx#core-bind-feature!__0 - (lambda (_id157309_) - (let* ((_private?157311_ '#f) - (_phi157313_ (gx#current-expander-phi)) - (_ctx157315_ (gx#current-expander-context))) + (lambda (_id158956_) + (let* ((_private?158958_ '#f) + (_phi158960_ (gx#current-expander-phi)) + (_ctx158962_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id157309_ - _private?157311_ - _phi157313_ - _ctx157315_)))) + _id158956_ + _private?158958_ + _phi158960_ + _ctx158962_)))) (define gx#core-bind-feature!__1 - (lambda (_id157317_ _private?157318_) - (let* ((_phi157320_ (gx#current-expander-phi)) - (_ctx157322_ (gx#current-expander-context))) + (lambda (_id158964_ _private?158965_) + (let* ((_phi158967_ (gx#current-expander-phi)) + (_ctx158969_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id157317_ - _private?157318_ - _phi157320_ - _ctx157322_)))) + _id158964_ + _private?158965_ + _phi158967_ + _ctx158969_)))) (define gx#core-bind-feature!__2 - (lambda (_id157324_ _private?157325_ _phi157326_) - (let ((_ctx157328_ (gx#current-expander-context))) + (lambda (_id158971_ _private?158972_ _phi158973_) + (let ((_ctx158975_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id157324_ - _private?157325_ - _phi157326_ - _ctx157328_)))) + _id158971_ + _private?158972_ + _phi158973_ + _ctx158975_)))) (define gx#core-bind-feature! - (lambda _g165289_ - (let ((_g165288_ (##length _g165289_))) - (cond ((##fx= _g165288_ 1) - (apply (lambda (_id157309_) - (gx#core-bind-feature!__0 _id157309_)) - _g165289_)) - ((##fx= _g165288_ 2) - (apply (lambda (_id157317_ _private?157318_) + (lambda _g167036_ + (let ((_g167035_ (##length _g167036_))) + (cond ((##fx= _g167035_ 1) + (apply (lambda (_id158956_) + (gx#core-bind-feature!__0 _id158956_)) + _g167036_)) + ((##fx= _g167035_ 2) + (apply (lambda (_id158964_ _private?158965_) (gx#core-bind-feature!__1 - _id157317_ - _private?157318_)) - _g165289_)) - ((##fx= _g165288_ 3) - (apply (lambda (_id157324_ _private?157325_ _phi157326_) + _id158964_ + _private?158965_)) + _g167036_)) + ((##fx= _g167035_ 3) + (apply (lambda (_id158971_ _private?158972_ _phi158973_) (gx#core-bind-feature!__2 - _id157324_ - _private?157325_ - _phi157326_)) - _g165289_)) - ((##fx= _g165288_ 4) - (apply (lambda (_id157330_ - _private?157331_ - _phi157332_ - _ctx157333_) + _id158971_ + _private?158972_ + _phi158973_)) + _g167036_)) + ((##fx= _g167035_ 4) + (apply (lambda (_id158977_ + _private?158978_ + _phi158979_ + _ctx158980_) (gx#core-bind-feature!__% - _id157330_ - _private?157331_ - _phi157332_ - _ctx157333_)) - _g165289_)) + _id158977_ + _private?158978_ + _phi158979_ + _ctx158980_)) + _g167036_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g165289_)))))))) + _g167036_)))))))) diff --git a/src/bootstrap/gerbil/expander/module__1.scm b/src/bootstrap/gerbil/expander/module__1.scm index 09423bf0f..76114accf 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]#_g165291_| + (define |gx[1]#_g167038_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g165293_| + (define |gx[1]#_g167040_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g165295_| + (define |gx[1]#_g167042_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g165302_| + (define |gx[1]#_g167049_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g165305_| + (define |gx[1]#_g167052_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165308_| + (define |gx[1]#_g167055_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g165311_| + (define |gx[1]#_g167058_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g165318_| + (define |gx[1]#_g167065_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165321_| + (define |gx[1]#_g167068_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165324_| + (define |gx[1]#_g167071_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165327_| + (define |gx[1]#_g167074_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165334_| + (define |gx[1]#_g167081_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g165337_| + (define |gx[1]#_g167084_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165340_| + (define |gx[1]#_g167087_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g165343_| + (define |gx[1]#_g167090_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g165350_| + (define |gx[1]#_g167097_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165353_| + (define |gx[1]#_g167100_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165356_| + (define |gx[1]#_g167103_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165359_| + (define |gx[1]#_g167106_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165361_| + (define |gx[1]#_g167108_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g165363_| + (define |gx[1]#_g167110_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g165365_| + (define |gx[1]#_g167112_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g165373_| + (define |gx[1]#_g167120_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g165376_| + (define |gx[1]#_g167123_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g165379_| + (define |gx[1]#_g167126_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165382_| + (define |gx[1]#_g167129_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g165385_| + (define |gx[1]#_g167132_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g165393_| + (define |gx[1]#_g167140_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165396_| + (define |gx[1]#_g167143_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165399_| + (define |gx[1]#_g167146_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165402_| + (define |gx[1]#_g167149_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165405_| + (define |gx[1]#_g167152_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165413_| + (define |gx[1]#_g167160_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g165416_| + (define |gx[1]#_g167163_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g165419_| + (define |gx[1]#_g167166_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165422_| + (define |gx[1]#_g167169_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g165425_| + (define |gx[1]#_g167172_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g165433_| + (define |gx[1]#_g167180_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165436_| + (define |gx[1]#_g167183_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165439_| + (define |gx[1]#_g167186_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165442_| + (define |gx[1]#_g167189_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165445_| + (define |gx[1]#_g167192_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165447_| + (define |gx[1]#_g167194_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g165449_| + (define |gx[1]#_g167196_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g165451_| + (define |gx[1]#_g167198_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g165457_| + (define |gx[1]#_g167204_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g165460_| + (define |gx[1]#_g167207_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165463_| + (define |gx[1]#_g167210_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g165469_| + (define |gx[1]#_g167216_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165472_| + (define |gx[1]#_g167219_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165475_| + (define |gx[1]#_g167222_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165481_| + (define |gx[1]#_g167228_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g165484_| + (define |gx[1]#_g167231_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165487_| + (define |gx[1]#_g167234_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g165493_| + (define |gx[1]#_g167240_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165496_| + (define |gx[1]#_g167243_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165499_| + (define |gx[1]#_g167246_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165501_| + (define |gx[1]#_g167248_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g165503_| + (define |gx[1]#_g167250_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g165505_| + (define |gx[1]#_g167252_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g165511_| + (define |gx[1]#_g167258_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g165514_| + (define |gx[1]#_g167261_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165517_| + (define |gx[1]#_g167264_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g165523_| + (define |gx[1]#_g167270_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165526_| + (define |gx[1]#_g167273_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165529_| + (define |gx[1]#_g167276_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165535_| + (define |gx[1]#_g167282_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g165538_| + (define |gx[1]#_g167285_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165541_| + (define |gx[1]#_g167288_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g165547_| + (define |gx[1]#_g167294_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165550_| + (define |gx[1]#_g167297_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165553_| + (define |gx[1]#_g167300_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165556_| + (define |gx[1]#_g167303_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g165558_| + (define |gx[1]#_g167305_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g165560_| + (define |gx[1]#_g167307_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g165562_| + (define |gx[1]#_g167309_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g165568_| + (define |gx[1]#_g167315_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g165571_| + (define |gx[1]#_g167318_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165574_| + (define |gx[1]#_g167321_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g165580_| + (define |gx[1]#_g167327_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165583_| + (define |gx[1]#_g167330_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165586_| + (define |gx[1]#_g167333_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165592_| + (define |gx[1]#_g167339_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g165595_| + (define |gx[1]#_g167342_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165598_| + (define |gx[1]#_g167345_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g165604_| + (define |gx[1]#_g167351_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165607_| + (define |gx[1]#_g167354_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165610_| + (define |gx[1]#_g167357_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165614_| + (define |gx[1]#_g167361_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g165616_| + (define |gx[1]#_g167363_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g165618_| + (define |gx[1]#_g167365_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g165624_| + (define |gx[1]#_g167371_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g165627_| + (define |gx[1]#_g167374_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165630_| + (define |gx[1]#_g167377_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g165636_| + (define |gx[1]#_g167383_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165639_| + (define |gx[1]#_g167386_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165642_| + (define |gx[1]#_g167389_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165648_| + (define |gx[1]#_g167395_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g165651_| + (define |gx[1]#_g167398_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165654_| + (define |gx[1]#_g167401_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g165660_| + (define |gx[1]#_g167407_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165663_| + (define |gx[1]#_g167410_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165666_| + (define |gx[1]#_g167413_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165670_| + (define |gx[1]#_g167417_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g165672_| + (define |gx[1]#_g167419_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g165674_| + (define |gx[1]#_g167421_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g165676_| + (define |gx[1]#_g167423_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g165678_| + (define |gx[1]#_g167425_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g165684_| + (define |gx[1]#_g167431_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g165687_| + (define |gx[1]#_g167434_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165690_| + (define |gx[1]#_g167437_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g165696_| + (define |gx[1]#_g167443_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165699_| + (define |gx[1]#_g167446_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165702_| + (define |gx[1]#_g167449_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165708_| + (define |gx[1]#_g167455_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g165711_| + (define |gx[1]#_g167458_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g165714_| + (define |gx[1]#_g167461_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g165720_| + (define |gx[1]#_g167467_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165723_| + (define |gx[1]#_g167470_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g165726_| + (define |gx[1]#_g167473_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj165244 + (let ((__obj166991 (let () (declare (not safe)) (##structure @@ -864,7 +864,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165244 + __obj166991 'gx#module-import::t '1 gerbil/core$$#class-type-info::t @@ -872,7 +872,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165244 + __obj166991 'module-import '2 gerbil/core$$#class-type-info::t @@ -880,7 +880,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165244 + __obj166991 '(source name phi weak?) '4 gerbil/core$$#class-type-info::t @@ -888,7 +888,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165244 + __obj166991 '() '3 gerbil/core$$#class-type-info::t @@ -896,7 +896,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165244 + __obj166991 '#t '5 gerbil/core$$#class-type-info::t @@ -904,7 +904,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165244 + __obj166991 '#t '6 gerbil/core$$#class-type-info::t @@ -912,182 +912,182 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165244 + __obj166991 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165290 |gx[1]#_g165291_|)) + (let ((__tmp167037 |gx[1]#_g167038_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165244 - __tmp165290 + __obj166991 + __tmp167037 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165292 |gx[1]#_g165293_|)) + (let ((__tmp167039 |gx[1]#_g167040_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165244 - __tmp165292 + __obj166991 + __tmp167039 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165294 |gx[1]#_g165295_|)) + (let ((__tmp167041 |gx[1]#_g167042_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165244 - __tmp165294 + __obj166991 + __tmp167041 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165296 - (let ((__tmp165309 - (let ((__tmp165310 |gx[1]#_g165311_|)) + (let ((__tmp167043 + (let ((__tmp167056 + (let ((__tmp167057 |gx[1]#_g167058_|)) (declare (not safe)) - (cons 'source __tmp165310))) - (__tmp165297 - (let ((__tmp165306 - (let ((__tmp165307 |gx[1]#_g165308_|)) + (cons 'source __tmp167057))) + (__tmp167044 + (let ((__tmp167053 + (let ((__tmp167054 |gx[1]#_g167055_|)) (declare (not safe)) - (cons 'name __tmp165307))) - (__tmp165298 - (let ((__tmp165303 - (let ((__tmp165304 |gx[1]#_g165305_|)) + (cons 'name __tmp167054))) + (__tmp167045 + (let ((__tmp167050 + (let ((__tmp167051 |gx[1]#_g167052_|)) (declare (not safe)) - (cons 'phi __tmp165304))) - (__tmp165299 - (let ((__tmp165300 - (let ((__tmp165301 - |gx[1]#_g165302_|)) + (cons 'phi __tmp167051))) + (__tmp167046 + (let ((__tmp167047 + (let ((__tmp167048 + |gx[1]#_g167049_|)) (declare (not safe)) - (cons 'weak? __tmp165301)))) + (cons 'weak? __tmp167048)))) (declare (not safe)) - (cons __tmp165300 '())))) + (cons __tmp167047 '())))) (declare (not safe)) - (cons __tmp165303 __tmp165299)))) + (cons __tmp167050 __tmp167046)))) (declare (not safe)) - (cons __tmp165306 __tmp165298)))) + (cons __tmp167053 __tmp167045)))) (declare (not safe)) - (cons __tmp165309 __tmp165297)))) + (cons __tmp167056 __tmp167044)))) (declare (not safe)) (##unchecked-structure-set! - __obj165244 - __tmp165296 + __obj166991 + __tmp167043 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165312 - (let ((__tmp165325 - (let ((__tmp165326 |gx[1]#_g165327_|)) + (let ((__tmp167059 + (let ((__tmp167072 + (let ((__tmp167073 |gx[1]#_g167074_|)) (declare (not safe)) - (cons 'source __tmp165326))) - (__tmp165313 - (let ((__tmp165322 - (let ((__tmp165323 |gx[1]#_g165324_|)) + (cons 'source __tmp167073))) + (__tmp167060 + (let ((__tmp167069 + (let ((__tmp167070 |gx[1]#_g167071_|)) (declare (not safe)) - (cons 'name __tmp165323))) - (__tmp165314 - (let ((__tmp165319 - (let ((__tmp165320 |gx[1]#_g165321_|)) + (cons 'name __tmp167070))) + (__tmp167061 + (let ((__tmp167066 + (let ((__tmp167067 |gx[1]#_g167068_|)) (declare (not safe)) - (cons 'phi __tmp165320))) - (__tmp165315 - (let ((__tmp165316 - (let ((__tmp165317 - |gx[1]#_g165318_|)) + (cons 'phi __tmp167067))) + (__tmp167062 + (let ((__tmp167063 + (let ((__tmp167064 + |gx[1]#_g167065_|)) (declare (not safe)) - (cons 'weak? __tmp165317)))) + (cons 'weak? __tmp167064)))) (declare (not safe)) - (cons __tmp165316 '())))) + (cons __tmp167063 '())))) (declare (not safe)) - (cons __tmp165319 __tmp165315)))) + (cons __tmp167066 __tmp167062)))) (declare (not safe)) - (cons __tmp165322 __tmp165314)))) + (cons __tmp167069 __tmp167061)))) (declare (not safe)) - (cons __tmp165325 __tmp165313)))) + (cons __tmp167072 __tmp167060)))) (declare (not safe)) (##unchecked-structure-set! - __obj165244 - __tmp165312 + __obj166991 + __tmp167059 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165328 - (let ((__tmp165341 - (let ((__tmp165342 |gx[1]#_g165343_|)) + (let ((__tmp167075 + (let ((__tmp167088 + (let ((__tmp167089 |gx[1]#_g167090_|)) (declare (not safe)) - (cons 'source __tmp165342))) - (__tmp165329 - (let ((__tmp165338 - (let ((__tmp165339 |gx[1]#_g165340_|)) + (cons 'source __tmp167089))) + (__tmp167076 + (let ((__tmp167085 + (let ((__tmp167086 |gx[1]#_g167087_|)) (declare (not safe)) - (cons 'name __tmp165339))) - (__tmp165330 - (let ((__tmp165335 - (let ((__tmp165336 |gx[1]#_g165337_|)) + (cons 'name __tmp167086))) + (__tmp167077 + (let ((__tmp167082 + (let ((__tmp167083 |gx[1]#_g167084_|)) (declare (not safe)) - (cons 'phi __tmp165336))) - (__tmp165331 - (let ((__tmp165332 - (let ((__tmp165333 - |gx[1]#_g165334_|)) + (cons 'phi __tmp167083))) + (__tmp167078 + (let ((__tmp167079 + (let ((__tmp167080 + |gx[1]#_g167081_|)) (declare (not safe)) - (cons 'weak? __tmp165333)))) + (cons 'weak? __tmp167080)))) (declare (not safe)) - (cons __tmp165332 '())))) + (cons __tmp167079 '())))) (declare (not safe)) - (cons __tmp165335 __tmp165331)))) + (cons __tmp167082 __tmp167078)))) (declare (not safe)) - (cons __tmp165338 __tmp165330)))) + (cons __tmp167085 __tmp167077)))) (declare (not safe)) - (cons __tmp165341 __tmp165329)))) + (cons __tmp167088 __tmp167076)))) (declare (not safe)) (##unchecked-structure-set! - __obj165244 - __tmp165328 + __obj166991 + __tmp167075 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165344 - (let ((__tmp165357 - (let ((__tmp165358 |gx[1]#_g165359_|)) + (let ((__tmp167091 + (let ((__tmp167104 + (let ((__tmp167105 |gx[1]#_g167106_|)) (declare (not safe)) - (cons 'source __tmp165358))) - (__tmp165345 - (let ((__tmp165354 - (let ((__tmp165355 |gx[1]#_g165356_|)) + (cons 'source __tmp167105))) + (__tmp167092 + (let ((__tmp167101 + (let ((__tmp167102 |gx[1]#_g167103_|)) (declare (not safe)) - (cons 'name __tmp165355))) - (__tmp165346 - (let ((__tmp165351 - (let ((__tmp165352 |gx[1]#_g165353_|)) + (cons 'name __tmp167102))) + (__tmp167093 + (let ((__tmp167098 + (let ((__tmp167099 |gx[1]#_g167100_|)) (declare (not safe)) - (cons 'phi __tmp165352))) - (__tmp165347 - (let ((__tmp165348 - (let ((__tmp165349 - |gx[1]#_g165350_|)) + (cons 'phi __tmp167099))) + (__tmp167094 + (let ((__tmp167095 + (let ((__tmp167096 + |gx[1]#_g167097_|)) (declare (not safe)) - (cons 'weak? __tmp165349)))) + (cons 'weak? __tmp167096)))) (declare (not safe)) - (cons __tmp165348 '())))) + (cons __tmp167095 '())))) (declare (not safe)) - (cons __tmp165351 __tmp165347)))) + (cons __tmp167098 __tmp167094)))) (declare (not safe)) - (cons __tmp165354 __tmp165346)))) + (cons __tmp167101 __tmp167093)))) (declare (not safe)) - (cons __tmp165357 __tmp165345)))) + (cons __tmp167104 __tmp167092)))) (declare (not safe)) (##unchecked-structure-set! - __obj165244 - __tmp165344 + __obj166991 + __tmp167091 '14 gerbil/core$$#class-type-info::t '#f)) - __obj165244)) + __obj166991)) (define |gx[:0:]#module-export| - (let ((__obj165245 + (let ((__obj166992 (let () (declare (not safe)) (##structure @@ -1109,7 +1109,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165245 + __obj166992 'gx#module-export::t '1 gerbil/core$$#class-type-info::t @@ -1117,7 +1117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165245 + __obj166992 'module-export '2 gerbil/core$$#class-type-info::t @@ -1125,7 +1125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165245 + __obj166992 '(context key phi name weak?) '4 gerbil/core$$#class-type-info::t @@ -1133,7 +1133,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165245 + __obj166992 '() '3 gerbil/core$$#class-type-info::t @@ -1141,7 +1141,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165245 + __obj166992 '#t '5 gerbil/core$$#class-type-info::t @@ -1149,7 +1149,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165245 + __obj166992 '#t '6 gerbil/core$$#class-type-info::t @@ -1157,218 +1157,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165245 + __obj166992 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165360 |gx[1]#_g165361_|)) + (let ((__tmp167107 |gx[1]#_g167108_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165245 - __tmp165360 + __obj166992 + __tmp167107 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165362 |gx[1]#_g165363_|)) + (let ((__tmp167109 |gx[1]#_g167110_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165245 - __tmp165362 + __obj166992 + __tmp167109 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165364 |gx[1]#_g165365_|)) + (let ((__tmp167111 |gx[1]#_g167112_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165245 - __tmp165364 + __obj166992 + __tmp167111 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165366 - (let ((__tmp165383 - (let ((__tmp165384 |gx[1]#_g165385_|)) + (let ((__tmp167113 + (let ((__tmp167130 + (let ((__tmp167131 |gx[1]#_g167132_|)) (declare (not safe)) - (cons 'context __tmp165384))) - (__tmp165367 - (let ((__tmp165380 - (let ((__tmp165381 |gx[1]#_g165382_|)) + (cons 'context __tmp167131))) + (__tmp167114 + (let ((__tmp167127 + (let ((__tmp167128 |gx[1]#_g167129_|)) (declare (not safe)) - (cons 'key __tmp165381))) - (__tmp165368 - (let ((__tmp165377 - (let ((__tmp165378 |gx[1]#_g165379_|)) + (cons 'key __tmp167128))) + (__tmp167115 + (let ((__tmp167124 + (let ((__tmp167125 |gx[1]#_g167126_|)) (declare (not safe)) - (cons 'phi __tmp165378))) - (__tmp165369 - (let ((__tmp165374 - (let ((__tmp165375 - |gx[1]#_g165376_|)) + (cons 'phi __tmp167125))) + (__tmp167116 + (let ((__tmp167121 + (let ((__tmp167122 + |gx[1]#_g167123_|)) (declare (not safe)) - (cons 'name __tmp165375))) - (__tmp165370 - (let ((__tmp165371 - (let ((__tmp165372 - |gx[1]#_g165373_|)) + (cons 'name __tmp167122))) + (__tmp167117 + (let ((__tmp167118 + (let ((__tmp167119 + |gx[1]#_g167120_|)) (declare (not safe)) (cons 'weak? - __tmp165372)))) + __tmp167119)))) (declare (not safe)) - (cons __tmp165371 '())))) + (cons __tmp167118 '())))) (declare (not safe)) - (cons __tmp165374 __tmp165370)))) + (cons __tmp167121 __tmp167117)))) (declare (not safe)) - (cons __tmp165377 __tmp165369)))) + (cons __tmp167124 __tmp167116)))) (declare (not safe)) - (cons __tmp165380 __tmp165368)))) + (cons __tmp167127 __tmp167115)))) (declare (not safe)) - (cons __tmp165383 __tmp165367)))) + (cons __tmp167130 __tmp167114)))) (declare (not safe)) (##unchecked-structure-set! - __obj165245 - __tmp165366 + __obj166992 + __tmp167113 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165386 - (let ((__tmp165403 - (let ((__tmp165404 |gx[1]#_g165405_|)) + (let ((__tmp167133 + (let ((__tmp167150 + (let ((__tmp167151 |gx[1]#_g167152_|)) (declare (not safe)) - (cons 'context __tmp165404))) - (__tmp165387 - (let ((__tmp165400 - (let ((__tmp165401 |gx[1]#_g165402_|)) + (cons 'context __tmp167151))) + (__tmp167134 + (let ((__tmp167147 + (let ((__tmp167148 |gx[1]#_g167149_|)) (declare (not safe)) - (cons 'key __tmp165401))) - (__tmp165388 - (let ((__tmp165397 - (let ((__tmp165398 |gx[1]#_g165399_|)) + (cons 'key __tmp167148))) + (__tmp167135 + (let ((__tmp167144 + (let ((__tmp167145 |gx[1]#_g167146_|)) (declare (not safe)) - (cons 'phi __tmp165398))) - (__tmp165389 - (let ((__tmp165394 - (let ((__tmp165395 - |gx[1]#_g165396_|)) + (cons 'phi __tmp167145))) + (__tmp167136 + (let ((__tmp167141 + (let ((__tmp167142 + |gx[1]#_g167143_|)) (declare (not safe)) - (cons 'name __tmp165395))) - (__tmp165390 - (let ((__tmp165391 - (let ((__tmp165392 - |gx[1]#_g165393_|)) + (cons 'name __tmp167142))) + (__tmp167137 + (let ((__tmp167138 + (let ((__tmp167139 + |gx[1]#_g167140_|)) (declare (not safe)) (cons 'weak? - __tmp165392)))) + __tmp167139)))) (declare (not safe)) - (cons __tmp165391 '())))) + (cons __tmp167138 '())))) (declare (not safe)) - (cons __tmp165394 __tmp165390)))) + (cons __tmp167141 __tmp167137)))) (declare (not safe)) - (cons __tmp165397 __tmp165389)))) + (cons __tmp167144 __tmp167136)))) (declare (not safe)) - (cons __tmp165400 __tmp165388)))) + (cons __tmp167147 __tmp167135)))) (declare (not safe)) - (cons __tmp165403 __tmp165387)))) + (cons __tmp167150 __tmp167134)))) (declare (not safe)) (##unchecked-structure-set! - __obj165245 - __tmp165386 + __obj166992 + __tmp167133 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165406 - (let ((__tmp165423 - (let ((__tmp165424 |gx[1]#_g165425_|)) + (let ((__tmp167153 + (let ((__tmp167170 + (let ((__tmp167171 |gx[1]#_g167172_|)) (declare (not safe)) - (cons 'context __tmp165424))) - (__tmp165407 - (let ((__tmp165420 - (let ((__tmp165421 |gx[1]#_g165422_|)) + (cons 'context __tmp167171))) + (__tmp167154 + (let ((__tmp167167 + (let ((__tmp167168 |gx[1]#_g167169_|)) (declare (not safe)) - (cons 'key __tmp165421))) - (__tmp165408 - (let ((__tmp165417 - (let ((__tmp165418 |gx[1]#_g165419_|)) + (cons 'key __tmp167168))) + (__tmp167155 + (let ((__tmp167164 + (let ((__tmp167165 |gx[1]#_g167166_|)) (declare (not safe)) - (cons 'phi __tmp165418))) - (__tmp165409 - (let ((__tmp165414 - (let ((__tmp165415 - |gx[1]#_g165416_|)) + (cons 'phi __tmp167165))) + (__tmp167156 + (let ((__tmp167161 + (let ((__tmp167162 + |gx[1]#_g167163_|)) (declare (not safe)) - (cons 'name __tmp165415))) - (__tmp165410 - (let ((__tmp165411 - (let ((__tmp165412 - |gx[1]#_g165413_|)) + (cons 'name __tmp167162))) + (__tmp167157 + (let ((__tmp167158 + (let ((__tmp167159 + |gx[1]#_g167160_|)) (declare (not safe)) (cons 'weak? - __tmp165412)))) + __tmp167159)))) (declare (not safe)) - (cons __tmp165411 '())))) + (cons __tmp167158 '())))) (declare (not safe)) - (cons __tmp165414 __tmp165410)))) + (cons __tmp167161 __tmp167157)))) (declare (not safe)) - (cons __tmp165417 __tmp165409)))) + (cons __tmp167164 __tmp167156)))) (declare (not safe)) - (cons __tmp165420 __tmp165408)))) + (cons __tmp167167 __tmp167155)))) (declare (not safe)) - (cons __tmp165423 __tmp165407)))) + (cons __tmp167170 __tmp167154)))) (declare (not safe)) (##unchecked-structure-set! - __obj165245 - __tmp165406 + __obj166992 + __tmp167153 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165426 - (let ((__tmp165443 - (let ((__tmp165444 |gx[1]#_g165445_|)) + (let ((__tmp167173 + (let ((__tmp167190 + (let ((__tmp167191 |gx[1]#_g167192_|)) (declare (not safe)) - (cons 'context __tmp165444))) - (__tmp165427 - (let ((__tmp165440 - (let ((__tmp165441 |gx[1]#_g165442_|)) + (cons 'context __tmp167191))) + (__tmp167174 + (let ((__tmp167187 + (let ((__tmp167188 |gx[1]#_g167189_|)) (declare (not safe)) - (cons 'key __tmp165441))) - (__tmp165428 - (let ((__tmp165437 - (let ((__tmp165438 |gx[1]#_g165439_|)) + (cons 'key __tmp167188))) + (__tmp167175 + (let ((__tmp167184 + (let ((__tmp167185 |gx[1]#_g167186_|)) (declare (not safe)) - (cons 'phi __tmp165438))) - (__tmp165429 - (let ((__tmp165434 - (let ((__tmp165435 - |gx[1]#_g165436_|)) + (cons 'phi __tmp167185))) + (__tmp167176 + (let ((__tmp167181 + (let ((__tmp167182 + |gx[1]#_g167183_|)) (declare (not safe)) - (cons 'name __tmp165435))) - (__tmp165430 - (let ((__tmp165431 - (let ((__tmp165432 - |gx[1]#_g165433_|)) + (cons 'name __tmp167182))) + (__tmp167177 + (let ((__tmp167178 + (let ((__tmp167179 + |gx[1]#_g167180_|)) (declare (not safe)) (cons 'weak? - __tmp165432)))) + __tmp167179)))) (declare (not safe)) - (cons __tmp165431 '())))) + (cons __tmp167178 '())))) (declare (not safe)) - (cons __tmp165434 __tmp165430)))) + (cons __tmp167181 __tmp167177)))) (declare (not safe)) - (cons __tmp165437 __tmp165429)))) + (cons __tmp167184 __tmp167176)))) (declare (not safe)) - (cons __tmp165440 __tmp165428)))) + (cons __tmp167187 __tmp167175)))) (declare (not safe)) - (cons __tmp165443 __tmp165427)))) + (cons __tmp167190 __tmp167174)))) (declare (not safe)) (##unchecked-structure-set! - __obj165245 - __tmp165426 + __obj166992 + __tmp167173 '14 gerbil/core$$#class-type-info::t '#f)) - __obj165245)) + __obj166992)) (define |gx[:0:]#import-set| - (let ((__obj165246 + (let ((__obj166993 (let () (declare (not safe)) (##structure @@ -1390,7 +1390,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165246 + __obj166993 'gx#import-set::t '1 gerbil/core$$#class-type-info::t @@ -1398,7 +1398,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165246 + __obj166993 'import-set '2 gerbil/core$$#class-type-info::t @@ -1406,7 +1406,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165246 + __obj166993 '(source phi imports) '4 gerbil/core$$#class-type-info::t @@ -1414,7 +1414,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165246 + __obj166993 '() '3 gerbil/core$$#class-type-info::t @@ -1422,7 +1422,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165246 + __obj166993 '#t '5 gerbil/core$$#class-type-info::t @@ -1430,7 +1430,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165246 + __obj166993 '#t '6 gerbil/core$$#class-type-info::t @@ -1438,150 +1438,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165246 + __obj166993 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165446 |gx[1]#_g165447_|)) + (let ((__tmp167193 |gx[1]#_g167194_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165246 - __tmp165446 + __obj166993 + __tmp167193 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165448 |gx[1]#_g165449_|)) + (let ((__tmp167195 |gx[1]#_g167196_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165246 - __tmp165448 + __obj166993 + __tmp167195 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165450 |gx[1]#_g165451_|)) + (let ((__tmp167197 |gx[1]#_g167198_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165246 - __tmp165450 + __obj166993 + __tmp167197 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165452 - (let ((__tmp165461 - (let ((__tmp165462 |gx[1]#_g165463_|)) + (let ((__tmp167199 + (let ((__tmp167208 + (let ((__tmp167209 |gx[1]#_g167210_|)) (declare (not safe)) - (cons 'source __tmp165462))) - (__tmp165453 - (let ((__tmp165458 - (let ((__tmp165459 |gx[1]#_g165460_|)) + (cons 'source __tmp167209))) + (__tmp167200 + (let ((__tmp167205 + (let ((__tmp167206 |gx[1]#_g167207_|)) (declare (not safe)) - (cons 'phi __tmp165459))) - (__tmp165454 - (let ((__tmp165455 - (let ((__tmp165456 |gx[1]#_g165457_|)) + (cons 'phi __tmp167206))) + (__tmp167201 + (let ((__tmp167202 + (let ((__tmp167203 |gx[1]#_g167204_|)) (declare (not safe)) - (cons 'imports __tmp165456)))) + (cons 'imports __tmp167203)))) (declare (not safe)) - (cons __tmp165455 '())))) + (cons __tmp167202 '())))) (declare (not safe)) - (cons __tmp165458 __tmp165454)))) + (cons __tmp167205 __tmp167201)))) (declare (not safe)) - (cons __tmp165461 __tmp165453)))) + (cons __tmp167208 __tmp167200)))) (declare (not safe)) (##unchecked-structure-set! - __obj165246 - __tmp165452 + __obj166993 + __tmp167199 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165464 - (let ((__tmp165473 - (let ((__tmp165474 |gx[1]#_g165475_|)) + (let ((__tmp167211 + (let ((__tmp167220 + (let ((__tmp167221 |gx[1]#_g167222_|)) (declare (not safe)) - (cons 'source __tmp165474))) - (__tmp165465 - (let ((__tmp165470 - (let ((__tmp165471 |gx[1]#_g165472_|)) + (cons 'source __tmp167221))) + (__tmp167212 + (let ((__tmp167217 + (let ((__tmp167218 |gx[1]#_g167219_|)) (declare (not safe)) - (cons 'phi __tmp165471))) - (__tmp165466 - (let ((__tmp165467 - (let ((__tmp165468 |gx[1]#_g165469_|)) + (cons 'phi __tmp167218))) + (__tmp167213 + (let ((__tmp167214 + (let ((__tmp167215 |gx[1]#_g167216_|)) (declare (not safe)) - (cons 'imports __tmp165468)))) + (cons 'imports __tmp167215)))) (declare (not safe)) - (cons __tmp165467 '())))) + (cons __tmp167214 '())))) (declare (not safe)) - (cons __tmp165470 __tmp165466)))) + (cons __tmp167217 __tmp167213)))) (declare (not safe)) - (cons __tmp165473 __tmp165465)))) + (cons __tmp167220 __tmp167212)))) (declare (not safe)) (##unchecked-structure-set! - __obj165246 - __tmp165464 + __obj166993 + __tmp167211 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165476 - (let ((__tmp165485 - (let ((__tmp165486 |gx[1]#_g165487_|)) + (let ((__tmp167223 + (let ((__tmp167232 + (let ((__tmp167233 |gx[1]#_g167234_|)) (declare (not safe)) - (cons 'source __tmp165486))) - (__tmp165477 - (let ((__tmp165482 - (let ((__tmp165483 |gx[1]#_g165484_|)) + (cons 'source __tmp167233))) + (__tmp167224 + (let ((__tmp167229 + (let ((__tmp167230 |gx[1]#_g167231_|)) (declare (not safe)) - (cons 'phi __tmp165483))) - (__tmp165478 - (let ((__tmp165479 - (let ((__tmp165480 |gx[1]#_g165481_|)) + (cons 'phi __tmp167230))) + (__tmp167225 + (let ((__tmp167226 + (let ((__tmp167227 |gx[1]#_g167228_|)) (declare (not safe)) - (cons 'imports __tmp165480)))) + (cons 'imports __tmp167227)))) (declare (not safe)) - (cons __tmp165479 '())))) + (cons __tmp167226 '())))) (declare (not safe)) - (cons __tmp165482 __tmp165478)))) + (cons __tmp167229 __tmp167225)))) (declare (not safe)) - (cons __tmp165485 __tmp165477)))) + (cons __tmp167232 __tmp167224)))) (declare (not safe)) (##unchecked-structure-set! - __obj165246 - __tmp165476 + __obj166993 + __tmp167223 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165488 - (let ((__tmp165497 - (let ((__tmp165498 |gx[1]#_g165499_|)) + (let ((__tmp167235 + (let ((__tmp167244 + (let ((__tmp167245 |gx[1]#_g167246_|)) (declare (not safe)) - (cons 'source __tmp165498))) - (__tmp165489 - (let ((__tmp165494 - (let ((__tmp165495 |gx[1]#_g165496_|)) + (cons 'source __tmp167245))) + (__tmp167236 + (let ((__tmp167241 + (let ((__tmp167242 |gx[1]#_g167243_|)) (declare (not safe)) - (cons 'phi __tmp165495))) - (__tmp165490 - (let ((__tmp165491 - (let ((__tmp165492 |gx[1]#_g165493_|)) + (cons 'phi __tmp167242))) + (__tmp167237 + (let ((__tmp167238 + (let ((__tmp167239 |gx[1]#_g167240_|)) (declare (not safe)) - (cons 'imports __tmp165492)))) + (cons 'imports __tmp167239)))) (declare (not safe)) - (cons __tmp165491 '())))) + (cons __tmp167238 '())))) (declare (not safe)) - (cons __tmp165494 __tmp165490)))) + (cons __tmp167241 __tmp167237)))) (declare (not safe)) - (cons __tmp165497 __tmp165489)))) + (cons __tmp167244 __tmp167236)))) (declare (not safe)) (##unchecked-structure-set! - __obj165246 - __tmp165488 + __obj166993 + __tmp167235 '14 gerbil/core$$#class-type-info::t '#f)) - __obj165246)) + __obj166993)) (define |gx[:0:]#export-set| - (let ((__obj165247 + (let ((__obj166994 (let () (declare (not safe)) (##structure @@ -1603,7 +1603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165247 + __obj166994 'gx#export-set::t '1 gerbil/core$$#class-type-info::t @@ -1611,7 +1611,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165247 + __obj166994 'export-set '2 gerbil/core$$#class-type-info::t @@ -1619,7 +1619,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165247 + __obj166994 '(source phi exports) '4 gerbil/core$$#class-type-info::t @@ -1627,7 +1627,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165247 + __obj166994 '() '3 gerbil/core$$#class-type-info::t @@ -1635,7 +1635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165247 + __obj166994 '#t '5 gerbil/core$$#class-type-info::t @@ -1643,7 +1643,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165247 + __obj166994 '#t '6 gerbil/core$$#class-type-info::t @@ -1651,150 +1651,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165247 + __obj166994 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165500 |gx[1]#_g165501_|)) + (let ((__tmp167247 |gx[1]#_g167248_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165247 - __tmp165500 + __obj166994 + __tmp167247 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165502 |gx[1]#_g165503_|)) + (let ((__tmp167249 |gx[1]#_g167250_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165247 - __tmp165502 + __obj166994 + __tmp167249 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165504 |gx[1]#_g165505_|)) + (let ((__tmp167251 |gx[1]#_g167252_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165247 - __tmp165504 + __obj166994 + __tmp167251 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165506 - (let ((__tmp165515 - (let ((__tmp165516 |gx[1]#_g165517_|)) + (let ((__tmp167253 + (let ((__tmp167262 + (let ((__tmp167263 |gx[1]#_g167264_|)) (declare (not safe)) - (cons 'source __tmp165516))) - (__tmp165507 - (let ((__tmp165512 - (let ((__tmp165513 |gx[1]#_g165514_|)) + (cons 'source __tmp167263))) + (__tmp167254 + (let ((__tmp167259 + (let ((__tmp167260 |gx[1]#_g167261_|)) (declare (not safe)) - (cons 'phi __tmp165513))) - (__tmp165508 - (let ((__tmp165509 - (let ((__tmp165510 |gx[1]#_g165511_|)) + (cons 'phi __tmp167260))) + (__tmp167255 + (let ((__tmp167256 + (let ((__tmp167257 |gx[1]#_g167258_|)) (declare (not safe)) - (cons 'exports __tmp165510)))) + (cons 'exports __tmp167257)))) (declare (not safe)) - (cons __tmp165509 '())))) + (cons __tmp167256 '())))) (declare (not safe)) - (cons __tmp165512 __tmp165508)))) + (cons __tmp167259 __tmp167255)))) (declare (not safe)) - (cons __tmp165515 __tmp165507)))) + (cons __tmp167262 __tmp167254)))) (declare (not safe)) (##unchecked-structure-set! - __obj165247 - __tmp165506 + __obj166994 + __tmp167253 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165518 - (let ((__tmp165527 - (let ((__tmp165528 |gx[1]#_g165529_|)) + (let ((__tmp167265 + (let ((__tmp167274 + (let ((__tmp167275 |gx[1]#_g167276_|)) (declare (not safe)) - (cons 'source __tmp165528))) - (__tmp165519 - (let ((__tmp165524 - (let ((__tmp165525 |gx[1]#_g165526_|)) + (cons 'source __tmp167275))) + (__tmp167266 + (let ((__tmp167271 + (let ((__tmp167272 |gx[1]#_g167273_|)) (declare (not safe)) - (cons 'phi __tmp165525))) - (__tmp165520 - (let ((__tmp165521 - (let ((__tmp165522 |gx[1]#_g165523_|)) + (cons 'phi __tmp167272))) + (__tmp167267 + (let ((__tmp167268 + (let ((__tmp167269 |gx[1]#_g167270_|)) (declare (not safe)) - (cons 'exports __tmp165522)))) + (cons 'exports __tmp167269)))) (declare (not safe)) - (cons __tmp165521 '())))) + (cons __tmp167268 '())))) (declare (not safe)) - (cons __tmp165524 __tmp165520)))) + (cons __tmp167271 __tmp167267)))) (declare (not safe)) - (cons __tmp165527 __tmp165519)))) + (cons __tmp167274 __tmp167266)))) (declare (not safe)) (##unchecked-structure-set! - __obj165247 - __tmp165518 + __obj166994 + __tmp167265 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165530 - (let ((__tmp165539 - (let ((__tmp165540 |gx[1]#_g165541_|)) + (let ((__tmp167277 + (let ((__tmp167286 + (let ((__tmp167287 |gx[1]#_g167288_|)) (declare (not safe)) - (cons 'source __tmp165540))) - (__tmp165531 - (let ((__tmp165536 - (let ((__tmp165537 |gx[1]#_g165538_|)) + (cons 'source __tmp167287))) + (__tmp167278 + (let ((__tmp167283 + (let ((__tmp167284 |gx[1]#_g167285_|)) (declare (not safe)) - (cons 'phi __tmp165537))) - (__tmp165532 - (let ((__tmp165533 - (let ((__tmp165534 |gx[1]#_g165535_|)) + (cons 'phi __tmp167284))) + (__tmp167279 + (let ((__tmp167280 + (let ((__tmp167281 |gx[1]#_g167282_|)) (declare (not safe)) - (cons 'exports __tmp165534)))) + (cons 'exports __tmp167281)))) (declare (not safe)) - (cons __tmp165533 '())))) + (cons __tmp167280 '())))) (declare (not safe)) - (cons __tmp165536 __tmp165532)))) + (cons __tmp167283 __tmp167279)))) (declare (not safe)) - (cons __tmp165539 __tmp165531)))) + (cons __tmp167286 __tmp167278)))) (declare (not safe)) (##unchecked-structure-set! - __obj165247 - __tmp165530 + __obj166994 + __tmp167277 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165542 - (let ((__tmp165551 - (let ((__tmp165552 |gx[1]#_g165553_|)) + (let ((__tmp167289 + (let ((__tmp167298 + (let ((__tmp167299 |gx[1]#_g167300_|)) (declare (not safe)) - (cons 'source __tmp165552))) - (__tmp165543 - (let ((__tmp165548 - (let ((__tmp165549 |gx[1]#_g165550_|)) + (cons 'source __tmp167299))) + (__tmp167290 + (let ((__tmp167295 + (let ((__tmp167296 |gx[1]#_g167297_|)) (declare (not safe)) - (cons 'phi __tmp165549))) - (__tmp165544 - (let ((__tmp165545 - (let ((__tmp165546 |gx[1]#_g165547_|)) + (cons 'phi __tmp167296))) + (__tmp167291 + (let ((__tmp167292 + (let ((__tmp167293 |gx[1]#_g167294_|)) (declare (not safe)) - (cons 'exports __tmp165546)))) + (cons 'exports __tmp167293)))) (declare (not safe)) - (cons __tmp165545 '())))) + (cons __tmp167292 '())))) (declare (not safe)) - (cons __tmp165548 __tmp165544)))) + (cons __tmp167295 __tmp167291)))) (declare (not safe)) - (cons __tmp165551 __tmp165543)))) + (cons __tmp167298 __tmp167290)))) (declare (not safe)) (##unchecked-structure-set! - __obj165247 - __tmp165542 + __obj166994 + __tmp167289 '14 gerbil/core$$#class-type-info::t '#f)) - __obj165247)) + __obj166994)) (define |gx[:0:]#import-expander| - (let ((__obj165248 + (let ((__obj166995 (let () (declare (not safe)) (##structure @@ -1816,7 +1816,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165248 + __obj166995 'gx#import-expander::t '1 gerbil/core$$#class-type-info::t @@ -1824,7 +1824,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165248 + __obj166995 'import-expander '2 gerbil/core$$#class-type-info::t @@ -1832,26 +1832,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165248 + __obj166995 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165554 - (let ((__tmp165555 |gx[1]#_g165556_|)) + (let ((__tmp167301 + (let ((__tmp167302 |gx[1]#_g167303_|)) (declare (not safe)) - (cons __tmp165555 '())))) + (cons __tmp167302 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj165248 - __tmp165554 + __obj166995 + __tmp167301 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj165248 + __obj166995 '#f '5 gerbil/core$$#class-type-info::t @@ -1859,7 +1859,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165248 + __obj166995 '#f '6 gerbil/core$$#class-type-info::t @@ -1867,150 +1867,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165248 + __obj166995 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165557 |gx[1]#_g165558_|)) + (let ((__tmp167304 |gx[1]#_g167305_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165248 - __tmp165557 + __obj166995 + __tmp167304 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165559 |gx[1]#_g165560_|)) + (let ((__tmp167306 |gx[1]#_g167307_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165248 - __tmp165559 + __obj166995 + __tmp167306 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165561 |gx[1]#_g165562_|)) + (let ((__tmp167308 |gx[1]#_g167309_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165248 - __tmp165561 + __obj166995 + __tmp167308 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165563 - (let ((__tmp165572 - (let ((__tmp165573 |gx[1]#_g165574_|)) + (let ((__tmp167310 + (let ((__tmp167319 + (let ((__tmp167320 |gx[1]#_g167321_|)) (declare (not safe)) - (cons 'context __tmp165573))) - (__tmp165564 - (let ((__tmp165569 - (let ((__tmp165570 |gx[1]#_g165571_|)) + (cons 'context __tmp167320))) + (__tmp167311 + (let ((__tmp167316 + (let ((__tmp167317 |gx[1]#_g167318_|)) (declare (not safe)) - (cons 'phi __tmp165570))) - (__tmp165565 - (let ((__tmp165566 - (let ((__tmp165567 |gx[1]#_g165568_|)) + (cons 'phi __tmp167317))) + (__tmp167312 + (let ((__tmp167313 + (let ((__tmp167314 |gx[1]#_g167315_|)) (declare (not safe)) - (cons 'e __tmp165567)))) + (cons 'e __tmp167314)))) (declare (not safe)) - (cons __tmp165566 '())))) + (cons __tmp167313 '())))) (declare (not safe)) - (cons __tmp165569 __tmp165565)))) + (cons __tmp167316 __tmp167312)))) (declare (not safe)) - (cons __tmp165572 __tmp165564)))) + (cons __tmp167319 __tmp167311)))) (declare (not safe)) (##unchecked-structure-set! - __obj165248 - __tmp165563 + __obj166995 + __tmp167310 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165575 - (let ((__tmp165584 - (let ((__tmp165585 |gx[1]#_g165586_|)) + (let ((__tmp167322 + (let ((__tmp167331 + (let ((__tmp167332 |gx[1]#_g167333_|)) (declare (not safe)) - (cons 'context __tmp165585))) - (__tmp165576 - (let ((__tmp165581 - (let ((__tmp165582 |gx[1]#_g165583_|)) + (cons 'context __tmp167332))) + (__tmp167323 + (let ((__tmp167328 + (let ((__tmp167329 |gx[1]#_g167330_|)) (declare (not safe)) - (cons 'phi __tmp165582))) - (__tmp165577 - (let ((__tmp165578 - (let ((__tmp165579 |gx[1]#_g165580_|)) + (cons 'phi __tmp167329))) + (__tmp167324 + (let ((__tmp167325 + (let ((__tmp167326 |gx[1]#_g167327_|)) (declare (not safe)) - (cons 'e __tmp165579)))) + (cons 'e __tmp167326)))) (declare (not safe)) - (cons __tmp165578 '())))) + (cons __tmp167325 '())))) (declare (not safe)) - (cons __tmp165581 __tmp165577)))) + (cons __tmp167328 __tmp167324)))) (declare (not safe)) - (cons __tmp165584 __tmp165576)))) + (cons __tmp167331 __tmp167323)))) (declare (not safe)) (##unchecked-structure-set! - __obj165248 - __tmp165575 + __obj166995 + __tmp167322 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165587 - (let ((__tmp165596 - (let ((__tmp165597 |gx[1]#_g165598_|)) + (let ((__tmp167334 + (let ((__tmp167343 + (let ((__tmp167344 |gx[1]#_g167345_|)) (declare (not safe)) - (cons 'context __tmp165597))) - (__tmp165588 - (let ((__tmp165593 - (let ((__tmp165594 |gx[1]#_g165595_|)) + (cons 'context __tmp167344))) + (__tmp167335 + (let ((__tmp167340 + (let ((__tmp167341 |gx[1]#_g167342_|)) (declare (not safe)) - (cons 'phi __tmp165594))) - (__tmp165589 - (let ((__tmp165590 - (let ((__tmp165591 |gx[1]#_g165592_|)) + (cons 'phi __tmp167341))) + (__tmp167336 + (let ((__tmp167337 + (let ((__tmp167338 |gx[1]#_g167339_|)) (declare (not safe)) - (cons 'e __tmp165591)))) + (cons 'e __tmp167338)))) (declare (not safe)) - (cons __tmp165590 '())))) + (cons __tmp167337 '())))) (declare (not safe)) - (cons __tmp165593 __tmp165589)))) + (cons __tmp167340 __tmp167336)))) (declare (not safe)) - (cons __tmp165596 __tmp165588)))) + (cons __tmp167343 __tmp167335)))) (declare (not safe)) (##unchecked-structure-set! - __obj165248 - __tmp165587 + __obj166995 + __tmp167334 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165599 - (let ((__tmp165608 - (let ((__tmp165609 |gx[1]#_g165610_|)) + (let ((__tmp167346 + (let ((__tmp167355 + (let ((__tmp167356 |gx[1]#_g167357_|)) (declare (not safe)) - (cons 'context __tmp165609))) - (__tmp165600 - (let ((__tmp165605 - (let ((__tmp165606 |gx[1]#_g165607_|)) + (cons 'context __tmp167356))) + (__tmp167347 + (let ((__tmp167352 + (let ((__tmp167353 |gx[1]#_g167354_|)) (declare (not safe)) - (cons 'phi __tmp165606))) - (__tmp165601 - (let ((__tmp165602 - (let ((__tmp165603 |gx[1]#_g165604_|)) + (cons 'phi __tmp167353))) + (__tmp167348 + (let ((__tmp167349 + (let ((__tmp167350 |gx[1]#_g167351_|)) (declare (not safe)) - (cons 'e __tmp165603)))) + (cons 'e __tmp167350)))) (declare (not safe)) - (cons __tmp165602 '())))) + (cons __tmp167349 '())))) (declare (not safe)) - (cons __tmp165605 __tmp165601)))) + (cons __tmp167352 __tmp167348)))) (declare (not safe)) - (cons __tmp165608 __tmp165600)))) + (cons __tmp167355 __tmp167347)))) (declare (not safe)) (##unchecked-structure-set! - __obj165248 - __tmp165599 + __obj166995 + __tmp167346 '14 gerbil/core$$#class-type-info::t '#f)) - __obj165248)) + __obj166995)) (define |gx[:0:]#export-expander| - (let ((__obj165249 + (let ((__obj166996 (let () (declare (not safe)) (##structure @@ -2032,7 +2032,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165249 + __obj166996 'gx#export-expander::t '1 gerbil/core$$#class-type-info::t @@ -2040,7 +2040,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165249 + __obj166996 'export-expander '2 gerbil/core$$#class-type-info::t @@ -2048,26 +2048,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165249 + __obj166996 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165611 - (let ((__tmp165612 |gx[1]#_g165556_|)) + (let ((__tmp167358 + (let ((__tmp167359 |gx[1]#_g167303_|)) (declare (not safe)) - (cons __tmp165612 '())))) + (cons __tmp167359 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj165249 - __tmp165611 + __obj166996 + __tmp167358 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj165249 + __obj166996 '#f '5 gerbil/core$$#class-type-info::t @@ -2075,7 +2075,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165249 + __obj166996 '#f '6 gerbil/core$$#class-type-info::t @@ -2083,150 +2083,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165249 + __obj166996 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165613 |gx[1]#_g165614_|)) + (let ((__tmp167360 |gx[1]#_g167361_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165249 - __tmp165613 + __obj166996 + __tmp167360 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165615 |gx[1]#_g165616_|)) + (let ((__tmp167362 |gx[1]#_g167363_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165249 - __tmp165615 + __obj166996 + __tmp167362 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165617 |gx[1]#_g165618_|)) + (let ((__tmp167364 |gx[1]#_g167365_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165249 - __tmp165617 + __obj166996 + __tmp167364 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165619 - (let ((__tmp165628 - (let ((__tmp165629 |gx[1]#_g165630_|)) + (let ((__tmp167366 + (let ((__tmp167375 + (let ((__tmp167376 |gx[1]#_g167377_|)) (declare (not safe)) - (cons 'context __tmp165629))) - (__tmp165620 - (let ((__tmp165625 - (let ((__tmp165626 |gx[1]#_g165627_|)) + (cons 'context __tmp167376))) + (__tmp167367 + (let ((__tmp167372 + (let ((__tmp167373 |gx[1]#_g167374_|)) (declare (not safe)) - (cons 'phi __tmp165626))) - (__tmp165621 - (let ((__tmp165622 - (let ((__tmp165623 |gx[1]#_g165624_|)) + (cons 'phi __tmp167373))) + (__tmp167368 + (let ((__tmp167369 + (let ((__tmp167370 |gx[1]#_g167371_|)) (declare (not safe)) - (cons 'e __tmp165623)))) + (cons 'e __tmp167370)))) (declare (not safe)) - (cons __tmp165622 '())))) + (cons __tmp167369 '())))) (declare (not safe)) - (cons __tmp165625 __tmp165621)))) + (cons __tmp167372 __tmp167368)))) (declare (not safe)) - (cons __tmp165628 __tmp165620)))) + (cons __tmp167375 __tmp167367)))) (declare (not safe)) (##unchecked-structure-set! - __obj165249 - __tmp165619 + __obj166996 + __tmp167366 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165631 - (let ((__tmp165640 - (let ((__tmp165641 |gx[1]#_g165642_|)) + (let ((__tmp167378 + (let ((__tmp167387 + (let ((__tmp167388 |gx[1]#_g167389_|)) (declare (not safe)) - (cons 'context __tmp165641))) - (__tmp165632 - (let ((__tmp165637 - (let ((__tmp165638 |gx[1]#_g165639_|)) + (cons 'context __tmp167388))) + (__tmp167379 + (let ((__tmp167384 + (let ((__tmp167385 |gx[1]#_g167386_|)) (declare (not safe)) - (cons 'phi __tmp165638))) - (__tmp165633 - (let ((__tmp165634 - (let ((__tmp165635 |gx[1]#_g165636_|)) + (cons 'phi __tmp167385))) + (__tmp167380 + (let ((__tmp167381 + (let ((__tmp167382 |gx[1]#_g167383_|)) (declare (not safe)) - (cons 'e __tmp165635)))) + (cons 'e __tmp167382)))) (declare (not safe)) - (cons __tmp165634 '())))) + (cons __tmp167381 '())))) (declare (not safe)) - (cons __tmp165637 __tmp165633)))) + (cons __tmp167384 __tmp167380)))) (declare (not safe)) - (cons __tmp165640 __tmp165632)))) + (cons __tmp167387 __tmp167379)))) (declare (not safe)) (##unchecked-structure-set! - __obj165249 - __tmp165631 + __obj166996 + __tmp167378 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165643 - (let ((__tmp165652 - (let ((__tmp165653 |gx[1]#_g165654_|)) + (let ((__tmp167390 + (let ((__tmp167399 + (let ((__tmp167400 |gx[1]#_g167401_|)) (declare (not safe)) - (cons 'context __tmp165653))) - (__tmp165644 - (let ((__tmp165649 - (let ((__tmp165650 |gx[1]#_g165651_|)) + (cons 'context __tmp167400))) + (__tmp167391 + (let ((__tmp167396 + (let ((__tmp167397 |gx[1]#_g167398_|)) (declare (not safe)) - (cons 'phi __tmp165650))) - (__tmp165645 - (let ((__tmp165646 - (let ((__tmp165647 |gx[1]#_g165648_|)) + (cons 'phi __tmp167397))) + (__tmp167392 + (let ((__tmp167393 + (let ((__tmp167394 |gx[1]#_g167395_|)) (declare (not safe)) - (cons 'e __tmp165647)))) + (cons 'e __tmp167394)))) (declare (not safe)) - (cons __tmp165646 '())))) + (cons __tmp167393 '())))) (declare (not safe)) - (cons __tmp165649 __tmp165645)))) + (cons __tmp167396 __tmp167392)))) (declare (not safe)) - (cons __tmp165652 __tmp165644)))) + (cons __tmp167399 __tmp167391)))) (declare (not safe)) (##unchecked-structure-set! - __obj165249 - __tmp165643 + __obj166996 + __tmp167390 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165655 - (let ((__tmp165664 - (let ((__tmp165665 |gx[1]#_g165666_|)) + (let ((__tmp167402 + (let ((__tmp167411 + (let ((__tmp167412 |gx[1]#_g167413_|)) (declare (not safe)) - (cons 'context __tmp165665))) - (__tmp165656 - (let ((__tmp165661 - (let ((__tmp165662 |gx[1]#_g165663_|)) + (cons 'context __tmp167412))) + (__tmp167403 + (let ((__tmp167408 + (let ((__tmp167409 |gx[1]#_g167410_|)) (declare (not safe)) - (cons 'phi __tmp165662))) - (__tmp165657 - (let ((__tmp165658 - (let ((__tmp165659 |gx[1]#_g165660_|)) + (cons 'phi __tmp167409))) + (__tmp167404 + (let ((__tmp167405 + (let ((__tmp167406 |gx[1]#_g167407_|)) (declare (not safe)) - (cons 'e __tmp165659)))) + (cons 'e __tmp167406)))) (declare (not safe)) - (cons __tmp165658 '())))) + (cons __tmp167405 '())))) (declare (not safe)) - (cons __tmp165661 __tmp165657)))) + (cons __tmp167408 __tmp167404)))) (declare (not safe)) - (cons __tmp165664 __tmp165656)))) + (cons __tmp167411 __tmp167403)))) (declare (not safe)) (##unchecked-structure-set! - __obj165249 - __tmp165655 + __obj166996 + __tmp167402 '14 gerbil/core$$#class-type-info::t '#f)) - __obj165249)) + __obj166996)) (define |gx[:0:]#import-export-expander| - (let ((__obj165250 + (let ((__obj166997 (let () (declare (not safe)) (##structure @@ -2248,7 +2248,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165250 + __obj166997 'gx#import-export-expander::t '1 gerbil/core$$#class-type-info::t @@ -2256,7 +2256,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165250 + __obj166997 'import-export-expander '2 gerbil/core$$#class-type-info::t @@ -2264,30 +2264,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165250 + __obj166997 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165667 - (let ((__tmp165671 |gx[1]#_g165672_|) - (__tmp165668 - (let ((__tmp165669 |gx[1]#_g165670_|)) + (let ((__tmp167414 + (let ((__tmp167418 |gx[1]#_g167419_|) + (__tmp167415 + (let ((__tmp167416 |gx[1]#_g167417_|)) (declare (not safe)) - (cons __tmp165669 '())))) + (cons __tmp167416 '())))) (declare (not safe)) - (cons __tmp165671 __tmp165668)))) + (cons __tmp167418 __tmp167415)))) (declare (not safe)) (##unchecked-structure-set! - __obj165250 - __tmp165667 + __obj166997 + __tmp167414 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj165250 + __obj166997 '#f '5 gerbil/core$$#class-type-info::t @@ -2295,7 +2295,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165250 + __obj166997 '#f '6 gerbil/core$$#class-type-info::t @@ -2303,145 +2303,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj165250 + __obj166997 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165673 |gx[1]#_g165674_|)) + (let ((__tmp167420 |gx[1]#_g167421_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165250 - __tmp165673 + __obj166997 + __tmp167420 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165675 |gx[1]#_g165676_|)) + (let ((__tmp167422 |gx[1]#_g167423_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165250 - __tmp165675 + __obj166997 + __tmp167422 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165677 |gx[1]#_g165678_|)) + (let ((__tmp167424 |gx[1]#_g167425_|)) (declare (not safe)) (##unchecked-structure-set! - __obj165250 - __tmp165677 + __obj166997 + __tmp167424 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165679 - (let ((__tmp165688 - (let ((__tmp165689 |gx[1]#_g165690_|)) + (let ((__tmp167426 + (let ((__tmp167435 + (let ((__tmp167436 |gx[1]#_g167437_|)) (declare (not safe)) - (cons 'context __tmp165689))) - (__tmp165680 - (let ((__tmp165685 - (let ((__tmp165686 |gx[1]#_g165687_|)) + (cons 'context __tmp167436))) + (__tmp167427 + (let ((__tmp167432 + (let ((__tmp167433 |gx[1]#_g167434_|)) (declare (not safe)) - (cons 'phi __tmp165686))) - (__tmp165681 - (let ((__tmp165682 - (let ((__tmp165683 |gx[1]#_g165684_|)) + (cons 'phi __tmp167433))) + (__tmp167428 + (let ((__tmp167429 + (let ((__tmp167430 |gx[1]#_g167431_|)) (declare (not safe)) - (cons 'e __tmp165683)))) + (cons 'e __tmp167430)))) (declare (not safe)) - (cons __tmp165682 '())))) + (cons __tmp167429 '())))) (declare (not safe)) - (cons __tmp165685 __tmp165681)))) + (cons __tmp167432 __tmp167428)))) (declare (not safe)) - (cons __tmp165688 __tmp165680)))) + (cons __tmp167435 __tmp167427)))) (declare (not safe)) (##unchecked-structure-set! - __obj165250 - __tmp165679 + __obj166997 + __tmp167426 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165691 - (let ((__tmp165700 - (let ((__tmp165701 |gx[1]#_g165702_|)) + (let ((__tmp167438 + (let ((__tmp167447 + (let ((__tmp167448 |gx[1]#_g167449_|)) (declare (not safe)) - (cons 'context __tmp165701))) - (__tmp165692 - (let ((__tmp165697 - (let ((__tmp165698 |gx[1]#_g165699_|)) + (cons 'context __tmp167448))) + (__tmp167439 + (let ((__tmp167444 + (let ((__tmp167445 |gx[1]#_g167446_|)) (declare (not safe)) - (cons 'phi __tmp165698))) - (__tmp165693 - (let ((__tmp165694 - (let ((__tmp165695 |gx[1]#_g165696_|)) + (cons 'phi __tmp167445))) + (__tmp167440 + (let ((__tmp167441 + (let ((__tmp167442 |gx[1]#_g167443_|)) (declare (not safe)) - (cons 'e __tmp165695)))) + (cons 'e __tmp167442)))) (declare (not safe)) - (cons __tmp165694 '())))) + (cons __tmp167441 '())))) (declare (not safe)) - (cons __tmp165697 __tmp165693)))) + (cons __tmp167444 __tmp167440)))) (declare (not safe)) - (cons __tmp165700 __tmp165692)))) + (cons __tmp167447 __tmp167439)))) (declare (not safe)) (##unchecked-structure-set! - __obj165250 - __tmp165691 + __obj166997 + __tmp167438 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165703 - (let ((__tmp165712 - (let ((__tmp165713 |gx[1]#_g165714_|)) + (let ((__tmp167450 + (let ((__tmp167459 + (let ((__tmp167460 |gx[1]#_g167461_|)) (declare (not safe)) - (cons 'context __tmp165713))) - (__tmp165704 - (let ((__tmp165709 - (let ((__tmp165710 |gx[1]#_g165711_|)) + (cons 'context __tmp167460))) + (__tmp167451 + (let ((__tmp167456 + (let ((__tmp167457 |gx[1]#_g167458_|)) (declare (not safe)) - (cons 'phi __tmp165710))) - (__tmp165705 - (let ((__tmp165706 - (let ((__tmp165707 |gx[1]#_g165708_|)) + (cons 'phi __tmp167457))) + (__tmp167452 + (let ((__tmp167453 + (let ((__tmp167454 |gx[1]#_g167455_|)) (declare (not safe)) - (cons 'e __tmp165707)))) + (cons 'e __tmp167454)))) (declare (not safe)) - (cons __tmp165706 '())))) + (cons __tmp167453 '())))) (declare (not safe)) - (cons __tmp165709 __tmp165705)))) + (cons __tmp167456 __tmp167452)))) (declare (not safe)) - (cons __tmp165712 __tmp165704)))) + (cons __tmp167459 __tmp167451)))) (declare (not safe)) (##unchecked-structure-set! - __obj165250 - __tmp165703 + __obj166997 + __tmp167450 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp165715 - (let ((__tmp165724 - (let ((__tmp165725 |gx[1]#_g165726_|)) + (let ((__tmp167462 + (let ((__tmp167471 + (let ((__tmp167472 |gx[1]#_g167473_|)) (declare (not safe)) - (cons 'context __tmp165725))) - (__tmp165716 - (let ((__tmp165721 - (let ((__tmp165722 |gx[1]#_g165723_|)) + (cons 'context __tmp167472))) + (__tmp167463 + (let ((__tmp167468 + (let ((__tmp167469 |gx[1]#_g167470_|)) (declare (not safe)) - (cons 'phi __tmp165722))) - (__tmp165717 - (let ((__tmp165718 - (let ((__tmp165719 |gx[1]#_g165720_|)) + (cons 'phi __tmp167469))) + (__tmp167464 + (let ((__tmp167465 + (let ((__tmp167466 |gx[1]#_g167467_|)) (declare (not safe)) - (cons 'e __tmp165719)))) + (cons 'e __tmp167466)))) (declare (not safe)) - (cons __tmp165718 '())))) + (cons __tmp167465 '())))) (declare (not safe)) - (cons __tmp165721 __tmp165717)))) + (cons __tmp167468 __tmp167464)))) (declare (not safe)) - (cons __tmp165724 __tmp165716)))) + (cons __tmp167471 __tmp167463)))) (declare (not safe)) (##unchecked-structure-set! - __obj165250 - __tmp165715 + __obj166997 + __tmp167462 '14 gerbil/core$$#class-type-info::t '#f)) - __obj165250)))) + __obj166997)))) diff --git a/src/bootstrap/gerbil/expander/root__0.scm b/src/bootstrap/gerbil/expander/root__0.scm index 10b86932c..8c8bd055a 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 1707573212) + (define gerbil/expander/root::timestamp 1707674932) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,591 +262,591 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_self172391_ _bind?172392_) - (if (##fx< '2 (##structure-length _self172391_)) + (lambda (_self174238_ _bind?174239_) + (if (##fx< '2 (##structure-length _self174238_)) (begin (##unchecked-structure-set! - _self172391_ + _self174238_ 'root '1 - (##structure-type _self172391_) + (##structure-type _self174238_) '#f) (##unchecked-structure-set! - _self172391_ + _self174238_ (make-table 'test: eq?) '2 - (##structure-type _self172391_) + (##structure-type _self174238_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self172391_ + _self174238_ '2 - (##vector-length _self172391_))) - (if _bind?172392_ + (##vector-length _self174238_))) + (if _bind?174239_ (begin - (let ((__method176910 - (method-ref _self172391_ 'bind-core-syntax-expanders!))) - (if __method176910 - (__method176910 _self172391_) + (let ((__method178857 + (method-ref _self174238_ 'bind-core-syntax-expanders!))) + (if __method178857 + (__method178857 _self174238_) (error '"Missing method" - _self172391_ + _self174238_ 'bind-core-syntax-expanders!))) - (let ((__method176911 - (method-ref _self172391_ 'bind-core-macro-expanders!))) - (if __method176911 - (__method176911 _self172391_) + (let ((__method178858 + (method-ref _self174238_ 'bind-core-macro-expanders!))) + (if __method178858 + (__method178858 _self174238_) (error '"Missing method" - _self172391_ + _self174238_ 'bind-core-macro-expanders!))) - (let ((__method176912 - (method-ref _self172391_ 'bind-core-features!))) - (if __method176912 - (__method176912 _self172391_) + (let ((__method178859 + (method-ref _self174238_ 'bind-core-features!))) + (if __method178859 + (__method178859 _self174238_) (error '"Missing method" - _self172391_ + _self174238_ 'bind-core-features!)))) '#!void))) (define gx#root-context:::init!__0 - (lambda (_self172397_) - (let ((_bind?172399_ '#t)) - (gx#root-context:::init!__% _self172397_ _bind?172399_)))) + (lambda (_self174244_) + (let ((_bind?174246_ '#t)) + (gx#root-context:::init!__% _self174244_ _bind?174246_)))) (define gx#root-context:::init! - (lambda _g176915_ - (let ((_g176914_ (##length _g176915_))) - (cond ((##fx= _g176914_ 1) - (apply (lambda (_self172397_) - (gx#root-context:::init!__0 _self172397_)) - _g176915_)) - ((##fx= _g176914_ 2) - (apply (lambda (_self172401_ _bind?172402_) + (lambda _g178862_ + (let ((_g178861_ (##length _g178862_))) + (cond ((##fx= _g178861_ 1) + (apply (lambda (_self174244_) + (gx#root-context:::init!__0 _self174244_)) + _g178862_)) + ((##fx= _g178861_ 2) + (apply (lambda (_self174248_ _bind?174249_) (gx#root-context:::init!__% - _self172401_ - _bind?172402_)) - _g176915_)) + _self174248_ + _bind?174249_)) + _g178862_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g176915_)))))) + _g178862_)))))) (define gx#root-context:::init!::specialize - (lambda (__t176871) - (let ((__bind-core-features!176872 + (lambda (__t178818) + (let ((__bind-core-features!178819 (make-promise (lambda () - (let ((__tmp176875 - (direct-method-ref __t176871 'bind-core-features!))) - (if __tmp176875 - __tmp176875 + (let ((__tmp178822 + (direct-method-ref __t178818 'bind-core-features!))) + (if __tmp178822 + __tmp178822 (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-syntax-expanders!176873 + (__bind-core-syntax-expanders!178820 (make-promise (lambda () - (let ((__tmp176876 + (let ((__tmp178823 (direct-method-ref - __t176871 + __t178818 'bind-core-syntax-expanders!))) - (if __tmp176876 - __tmp176876 + (if __tmp178823 + __tmp178823 (error '"Missing method" 'bind-core-syntax-expanders!)))))) - (__bind-core-macro-expanders!176874 + (__bind-core-macro-expanders!178821 (make-promise (lambda () - (let ((__tmp176877 + (let ((__tmp178824 (direct-method-ref - __t176871 + __t178818 'bind-core-macro-expanders!))) - (if __tmp176877 - __tmp176877 + (if __tmp178824 + __tmp178824 (error '"Missing method" 'bind-core-macro-expanders!))))))) - (let ((_opt-lambda172389172394_ - (lambda (_self172391_ _bind?172392_) - (if (##fx< '2 (##structure-length _self172391_)) + (let ((_opt-lambda174236174241_ + (lambda (_self174238_ _bind?174239_) + (if (##fx< '2 (##structure-length _self174238_)) (begin (##unchecked-structure-set! - _self172391_ + _self174238_ 'root '1 - (##structure-type _self172391_) + (##structure-type _self174238_) '#f) (##unchecked-structure-set! - _self172391_ + _self174238_ (make-table 'test: eq?) '2 - (##structure-type _self172391_) + (##structure-type _self174238_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self172391_ + _self174238_ '2 - (##vector-length _self172391_))) - (if _bind?172392_ + (##vector-length _self174238_))) + (if _bind?174239_ (begin - ((force __bind-core-syntax-expanders!176873) - _self172391_) - ((force __bind-core-macro-expanders!176874) - _self172391_) - ((force __bind-core-features!176872) _self172391_)) + ((force __bind-core-syntax-expanders!178820) + _self174238_) + ((force __bind-core-macro-expanders!178821) + _self174238_) + ((force __bind-core-features!178819) _self174238_)) '#!void)))) - (lambda _g176917_ - (let ((_g176916_ (##length _g176917_))) - (cond ((##fx= _g176916_ 1) - (apply (lambda (_self172397_) - (let ((_bind?172399_ '#t)) - (_opt-lambda172389172394_ - _self172397_ - _bind?172399_))) - _g176917_)) - ((##fx= _g176916_ 2) - (apply (lambda (_self172401_ _bind?172402_) - (_opt-lambda172389172394_ - _self172401_ - _bind?172402_)) - _g176917_)) + (lambda _g178864_ + (let ((_g178863_ (##length _g178864_))) + (cond ((##fx= _g178863_ 1) + (apply (lambda (_self174244_) + (let ((_bind?174246_ '#t)) + (_opt-lambda174236174241_ + _self174244_ + _bind?174246_))) + _g178864_)) + ((##fx= _g178863_ 2) + (apply (lambda (_self174248_ _bind?174249_) + (_opt-lambda174236174241_ + _self174248_ + _bind?174249_)) + _g178864_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g176917_))))))))) + _g178864_))))))))) (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 (_self172247_ _super172248_) - (let ((_super172256_ - (let ((_$e172250_ _super172248_)) - (if _$e172250_ - _$e172250_ - (let ((_$e172253_ (gx#core-context-root__0))) - (if _$e172253_ - _$e172253_ - (let ((__obj176913 + (lambda (_self174094_ _super174095_) + (let ((_super174103_ + (let ((_$e174097_ _super174095_)) + (if _$e174097_ + _$e174097_ + (let ((_$e174100_ (gx#core-context-root__0))) + (if _$e174100_ + _$e174100_ + (let ((__obj178860 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init! __obj176913) - __obj176913))))))) - (if (##fx< '5 (##structure-length _self172247_)) + (gx#root-context:::init! __obj178860) + __obj178860))))))) + (if (##fx< '5 (##structure-length _self174094_)) (begin (##unchecked-structure-set! - _self172247_ + _self174094_ 'top '1 - (##structure-type _self172247_) + (##structure-type _self174094_) '#f) (##unchecked-structure-set! - _self172247_ + _self174094_ (make-table 'test: eq?) '2 - (##structure-type _self172247_) + (##structure-type _self174094_) '#f) (##unchecked-structure-set! - _self172247_ - _super172256_ + _self174094_ + _super174103_ '3 - (##structure-type _self172247_) + (##structure-type _self174094_) '#f) (##unchecked-structure-set! - _self172247_ + _self174094_ '#f '4 - (##structure-type _self172247_) + (##structure-type _self174094_) '#f) (##unchecked-structure-set! - _self172247_ + _self174094_ '#f '5 - (##structure-type _self172247_) + (##structure-type _self174094_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self172247_ + _self174094_ '5 - (##vector-length _self172247_)))))) + (##vector-length _self174094_)))))) (define gx#top-context:::init!__0 - (lambda (_self172261_) - (let ((_super172263_ '#f)) - (gx#top-context:::init!__% _self172261_ _super172263_)))) + (lambda (_self174108_) + (let ((_super174110_ '#f)) + (gx#top-context:::init!__% _self174108_ _super174110_)))) (define gx#top-context:::init! - (lambda _g176919_ - (let ((_g176918_ (##length _g176919_))) - (cond ((##fx= _g176918_ 1) - (apply (lambda (_self172261_) - (gx#top-context:::init!__0 _self172261_)) - _g176919_)) - ((##fx= _g176918_ 2) - (apply (lambda (_self172265_ _super172266_) + (lambda _g178866_ + (let ((_g178865_ (##length _g178866_))) + (cond ((##fx= _g178865_ 1) + (apply (lambda (_self174108_) + (gx#top-context:::init!__0 _self174108_)) + _g178866_)) + ((##fx= _g178865_ 2) + (apply (lambda (_self174112_ _super174113_) (gx#top-context:::init!__% - _self172265_ - _super172266_)) - _g176919_)) + _self174112_ + _super174113_)) + _g178866_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g176919_)))))) + _g178866_)))))) (bind-method! gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_self171978_ _bindings171979_) + (lambda (_self173825_ _bindings173826_) (for-each - (lambda (_bind171981_) - (let* ((_bind171982171989_ _bind171981_) - (_E171984171993_ + (lambda (_bind173828_) + (let* ((_bind173829173836_ _bind173828_) + (_E173831173840_ (lambda () - (error '"No clause matching" _bind171982171989_))) - (_K171985172102_ - (lambda (_rest171996_ _id171997_) + (error '"No clause matching" _bind173829173836_))) + (_K173832173949_ + (lambda (_rest173843_ _id173844_) (gx#core-context-put! - _self171978_ - _id171997_ + _self173825_ + _id173844_ (##structure gx#syntax-binding::t - _id171997_ - _id171997_ + _id173844_ + _id173844_ '#f - (let* ((_rest171998172009_ _rest171996_) - (_E172000172013_ + (let* ((_rest173845173856_ _rest173843_) + (_E173847173860_ (lambda () (error '"No clause matching" - _rest171998172009_))) - (_K172001172078_ - (lambda (_compiler172016_ - _expander172017_ - _key172018_) - ((let* ((_key172019172032_ _key172018_) - (_E172025172036_ + _rest173845173856_))) + (_K173848173925_ + (lambda (_compiler173863_ + _expander173864_ + _key173865_) + ((let* ((_key173866173879_ _key173865_) + (_E173872173883_ (lambda () (error '"No clause matching" - _key172019172032_)))) - (let ((_K172030172072_ + _key173866173879_)))) + (let ((_K173877173919_ (lambda () gx#make-top-special-form)) - (_K172029172065_ + (_K173876173912_ (lambda () gx#make-module-special-form)) - (_K172028172057_ + (_K173875173904_ (lambda () gx#make-definition-form)) - (_K172027172049_ + (_K173874173896_ (lambda () gx#make-special-form)) - (_K172026172041_ + (_K173873173888_ (lambda () gx#make-expression-form))) - (let* ((_try-match172024172044_ + (let* ((_try-match173871173891_ (lambda () - (if (##eq? _key172019172032_ + (if (##eq? _key173866173879_ 'expr:) - (_K172026172041_) - (_E172025172036_)))) - (_try-match172023172052_ + (_K173873173888_) + (_E173872173883_)))) + (_try-match173870173899_ (lambda () - (if (##eq? _key172019172032_ + (if (##eq? _key173866173879_ 'special:) - (_K172027172049_) - (_try-match172024172044_)))) - (_try-match172022172060_ + (_K173874173896_) + (_try-match173871173891_)))) + (_try-match173869173907_ (lambda () - (if (##eq? _key172019172032_ + (if (##eq? _key173866173879_ 'define:) - (_K172028172057_) - (_try-match172023172052_)))) - (_try-match172021172068_ + (_K173875173904_) + (_try-match173870173899_)))) + (_try-match173868173915_ (lambda () - (if (##eq? _key172019172032_ + (if (##eq? _key173866173879_ 'module:) - (_K172029172065_) - (_try-match172022172060_))))) - (if (##eq? _key172019172032_ 'top:) - (_K172030172072_) - (_try-match172021172068_))))) - _expander172017_ - _id171997_ - (let ((_$e172075_ _compiler172016_)) - (if _$e172075_ - _$e172075_ + (_K173876173912_) + (_try-match173869173907_))))) + (if (##eq? _key173866173879_ 'top:) + (_K173877173919_) + (_try-match173868173915_))))) + _expander173864_ + _id173844_ + (let ((_$e173922_ _compiler173863_)) + (if _$e173922_ + _$e173922_ gx#core-compile-top-error)))))) - (if (##pair? _rest171998172009_) - (let ((_hd172002172081_ - (##car _rest171998172009_)) - (_tl172003172083_ - (##cdr _rest171998172009_))) - (let ((_key172086_ _hd172002172081_)) - (if (##pair? _tl172003172083_) - (let ((_hd172004172088_ - (##car _tl172003172083_)) - (_tl172005172090_ - (##cdr _tl172003172083_))) - (let ((_expander172093_ - _hd172004172088_)) - (if (##pair? _tl172005172090_) - (let ((_hd172006172095_ - (##car _tl172005172090_)) - (_tl172007172097_ - (##cdr _tl172005172090_))) - (let ((_compiler172100_ - _hd172006172095_)) - (if (##null? _tl172007172097_) - (_K172001172078_ - _compiler172100_ - _expander172093_ - _key172086_) - (_E172000172013_)))) - (_E172000172013_)))) - (_E172000172013_)))) - (_E172000172013_)))))))) - (if (##pair? _bind171982171989_) - (let ((_hd171986172105_ (##car _bind171982171989_)) - (_tl171987172107_ (##cdr _bind171982171989_))) - (let* ((_id172110_ _hd171986172105_) - (_rest172112_ _tl171987172107_)) - (_K171985172102_ _rest172112_ _id172110_))) - (_E171984171993_)))) - _bindings171979_))) + (if (##pair? _rest173845173856_) + (let ((_hd173849173928_ + (##car _rest173845173856_)) + (_tl173850173930_ + (##cdr _rest173845173856_))) + (let ((_key173933_ _hd173849173928_)) + (if (##pair? _tl173850173930_) + (let ((_hd173851173935_ + (##car _tl173850173930_)) + (_tl173852173937_ + (##cdr _tl173850173930_))) + (let ((_expander173940_ + _hd173851173935_)) + (if (##pair? _tl173852173937_) + (let ((_hd173853173942_ + (##car _tl173852173937_)) + (_tl173854173944_ + (##cdr _tl173852173937_))) + (let ((_compiler173947_ + _hd173853173942_)) + (if (##null? _tl173854173944_) + (_K173848173925_ + _compiler173947_ + _expander173940_ + _key173933_) + (_E173847173860_)))) + (_E173847173860_)))) + (_E173847173860_)))) + (_E173847173860_)))))))) + (if (##pair? _bind173829173836_) + (let ((_hd173833173952_ (##car _bind173829173836_)) + (_tl173834173954_ (##cdr _bind173829173836_))) + (let* ((_id173957_ _hd173833173952_) + (_rest173959_ _tl173834173954_)) + (_K173832173949_ _rest173959_ _id173957_))) + (_E173831173840_)))) + _bindings173826_))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_self172117_) - (let ((_bindings172119_ gx#*core-syntax-expanders*)) + (lambda (_self173964_) + (let ((_bindings173966_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _self172117_ - _bindings172119_)))) + _self173964_ + _bindings173966_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g176921_ - (let ((_g176920_ (##length _g176921_))) - (cond ((##fx= _g176920_ 1) - (apply (lambda (_self172117_) + (lambda _g178868_ + (let ((_g178867_ (##length _g178868_))) + (cond ((##fx= _g178867_ 1) + (apply (lambda (_self173964_) (gx#expander-context::bind-core-syntax-expanders!__0 - _self172117_)) - _g176921_)) - ((##fx= _g176920_ 2) - (apply (lambda (_self172121_ _bindings172122_) + _self173964_)) + _g178868_)) + ((##fx= _g178867_ 2) + (apply (lambda (_self173968_ _bindings173969_) (gx#expander-context::bind-core-syntax-expanders!__% - _self172121_ - _bindings172122_)) - _g176921_)) + _self173968_ + _bindings173969_)) + _g178868_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g176921_)))))) + _g178868_)))))) (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 (_self171750_ _bindings171751_) + (lambda (_self173597_ _bindings173598_) (for-each - (lambda (_bind171753_) - (let* ((_bind171754171761_ _bind171753_) - (_E171756171765_ + (lambda (_bind173600_) + (let* ((_bind173601173608_ _bind173600_) + (_E173603173612_ (lambda () - (error '"No clause matching" _bind171754171761_))) - (_K171757171833_ - (lambda (_rest171768_ _id171769_) + (error '"No clause matching" _bind173601173608_))) + (_K173604173680_ + (lambda (_rest173615_ _id173616_) (gx#core-context-put! - _self171750_ - _id171769_ + _self173597_ + _id173616_ (##structure gx#syntax-binding::t - _id171769_ - _id171769_ + _id173616_ + _id173616_ '#f - (let* ((_rest171770171785_ _rest171768_) - (_E171774171789_ + (let* ((_rest173617173632_ _rest173615_) + (_E173621173636_ (lambda () (error '"No clause matching" - _rest171770171785_)))) - (let ((_K171779171818_ - (lambda (_core-id171816_) + _rest173617173632_)))) + (let ((_K173626173665_ + (lambda (_core-id173663_) (##structure gx#rename-macro-expander::t - _core-id171816_))) - (_K171776171803_ - (lambda (_proc171801_) + _core-id173663_))) + (_K173623173650_ + (lambda (_proc173648_) (##structure gx#macro-expander::t - _proc171801_))) - (_K171775171794_ + _proc173648_))) + (_K173622173641_ (lambda () (##structure gx#reserved-expander::t - _id171769_)))) - (let ((_try-match171773171797_ + _id173616_)))) + (let ((_try-match173620173644_ (lambda () - (if (##null? _rest171770171785_) - (_K171775171794_) - (_E171774171789_))))) - (if (##pair? _rest171770171785_) - (let ((_tl171781171823_ - (##cdr _rest171770171785_)) - (_hd171780171821_ - (##car _rest171770171785_))) - (if (##eq? _hd171780171821_ '=>) - (if (##pair? _tl171781171823_) - (let ((_tl171783171828_ - (##cdr _tl171781171823_)) - (_hd171782171826_ - (##car _tl171781171823_))) - (if (##null? _tl171783171828_) - (let ((_core-id171831_ - _hd171782171826_)) + (if (##null? _rest173617173632_) + (_K173622173641_) + (_E173621173636_))))) + (if (##pair? _rest173617173632_) + (let ((_tl173628173670_ + (##cdr _rest173617173632_)) + (_hd173627173668_ + (##car _rest173617173632_))) + (if (##eq? _hd173627173668_ '=>) + (if (##pair? _tl173628173670_) + (let ((_tl173630173675_ + (##cdr _tl173628173670_)) + (_hd173629173673_ + (##car _tl173628173670_))) + (if (##null? _tl173630173675_) + (let ((_core-id173678_ + _hd173629173673_)) (##structure gx#rename-macro-expander::t - _core-id171831_)) - (_E171774171789_))) - (if (##null? _tl171781171823_) - (let ((_proc171811_ - _hd171780171821_)) + _core-id173678_)) + (_E173621173636_))) + (if (##null? _tl173628173670_) + (let ((_proc173658_ + _hd173627173668_)) (##structure gx#macro-expander::t - _proc171811_)) - (_E171774171789_))) - (if (##null? _tl171781171823_) - (let ((_proc171811_ - _hd171780171821_)) + _proc173658_)) + (_E173621173636_))) + (if (##null? _tl173628173670_) + (let ((_proc173658_ + _hd173627173668_)) (##structure gx#macro-expander::t - _proc171811_)) - (_E171774171789_)))) - (_try-match171773171797_)))))))))) - (if (##pair? _bind171754171761_) - (let ((_hd171758171836_ (##car _bind171754171761_)) - (_tl171759171838_ (##cdr _bind171754171761_))) - (let* ((_id171841_ _hd171758171836_) - (_rest171843_ _tl171759171838_)) - (_K171757171833_ _rest171843_ _id171841_))) - (_E171756171765_)))) - _bindings171751_))) + _proc173658_)) + (_E173621173636_)))) + (_try-match173620173644_)))))))))) + (if (##pair? _bind173601173608_) + (let ((_hd173605173683_ (##car _bind173601173608_)) + (_tl173606173685_ (##cdr _bind173601173608_))) + (let* ((_id173688_ _hd173605173683_) + (_rest173690_ _tl173606173685_)) + (_K173604173680_ _rest173690_ _id173688_))) + (_E173603173612_)))) + _bindings173598_))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_self171848_) - (let ((_bindings171850_ gx#*core-macro-expanders*)) + (lambda (_self173695_) + (let ((_bindings173697_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _self171848_ - _bindings171850_)))) + _self173695_ + _bindings173697_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g176923_ - (let ((_g176922_ (##length _g176923_))) - (cond ((##fx= _g176922_ 1) - (apply (lambda (_self171848_) + (lambda _g178870_ + (let ((_g178869_ (##length _g178870_))) + (cond ((##fx= _g178869_ 1) + (apply (lambda (_self173695_) (gx#expander-context::bind-core-macro-expanders!__0 - _self171848_)) - _g176923_)) - ((##fx= _g176922_ 2) - (apply (lambda (_self171852_ _bindings171853_) + _self173695_)) + _g178870_)) + ((##fx= _g178869_ 2) + (apply (lambda (_self173699_ _bindings173700_) (gx#expander-context::bind-core-macro-expanders!__% - _self171852_ - _bindings171853_)) - _g176923_)) + _self173699_ + _bindings173700_)) + _g178870_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g176923_)))))) + _g178870_)))))) (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 (_self171494_) - (letrec ((_linux-variant?171496_ - (lambda (_sys-type171595_) - (let* ((_g171596171604_ + (lambda (_self173341_) + (letrec ((_linux-variant?173343_ + (lambda (_sys-type173442_) + (let* ((_g173443173451_ (string-split - (symbol->string _sys-type171595_) + (symbol->string _sys-type173442_) '#\-)) - (_else171598171612_ (lambda () '#f)) - (_K171600171617_ - (lambda (_rest171615_) - (not (null? _rest171615_))))) - (if (##pair? _g171596171604_) - (let ((_hd171601171620_ (##car _g171596171604_)) - (_tl171602171622_ (##cdr _g171596171604_))) - (if (equal? _hd171601171620_ '"linux") - (let ((_rest171625_ _tl171602171622_)) - (_K171600171617_ _rest171625_)) - (_else171598171612_))) - (_else171598171612_))))) - (_bsd-variant171497_ - (lambda (_sys-type171554_) - (let ((_sys-type-str171556_ - (symbol->string _sys-type171554_))) - (let _lp171558_ ((_rest171560_ + (_else173445173459_ (lambda () '#f)) + (_K173447173464_ + (lambda (_rest173462_) + (not (null? _rest173462_))))) + (if (##pair? _g173443173451_) + (let ((_hd173448173467_ (##car _g173443173451_)) + (_tl173449173469_ (##cdr _g173443173451_))) + (if (equal? _hd173448173467_ '"linux") + (let ((_rest173472_ _tl173449173469_)) + (_K173447173464_ _rest173472_)) + (_else173445173459_))) + (_else173445173459_))))) + (_bsd-variant173344_ + (lambda (_sys-type173401_) + (let ((_sys-type-str173403_ + (symbol->string _sys-type173401_))) + (let _lp173405_ ((_rest173407_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_rest171561171569_ _rest171560_) - (_else171563171577_ (lambda () '#f)) - (_K171565171583_ - (lambda (_rest171580_ _sys171581_) + (let* ((_rest173408173416_ _rest173407_) + (_else173410173424_ (lambda () '#f)) + (_K173412173430_ + (lambda (_rest173427_ _sys173428_) (if (string-prefix? - _sys171581_ - _sys-type-str171556_) - _sys171581_ - (_lp171558_ _rest171580_))))) - (if (##pair? _rest171561171569_) - (let ((_hd171566171586_ - (##car _rest171561171569_)) - (_tl171567171588_ - (##cdr _rest171561171569_))) - (let* ((_sys171591_ _hd171566171586_) - (_rest171593_ _tl171567171588_)) - (_K171565171583_ _rest171593_ _sys171591_))) - (_else171563171577_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _self171494_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self171494_) - (let* ((_g171498171510_ (system-type)) - (_else171500171518_ (lambda () '#!void)) - (_K171502171530_ - (lambda (_sys-type171521_ _sys-vendor171522_ _sys-cpu171523_) + _sys173428_ + _sys-type-str173403_) + _sys173428_ + (_lp173405_ _rest173427_))))) + (if (##pair? _rest173408173416_) + (let ((_hd173413173433_ + (##car _rest173408173416_)) + (_tl173414173435_ + (##cdr _rest173408173416_))) + (let* ((_sys173438_ _hd173413173433_) + (_rest173440_ _tl173414173435_)) + (_K173412173430_ _rest173440_ _sys173438_))) + (_else173410173424_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _self173341_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self173341_) + (let* ((_g173345173357_ (system-type)) + (_else173347173365_ (lambda () '#!void)) + (_K173349173377_ + (lambda (_sys-type173368_ _sys-vendor173369_ _sys-cpu173370_) (gx#core-bind-feature!__% - _sys-cpu171523_ + _sys-cpu173370_ '#f '0 - _self171494_) + _self173341_) (gx#core-bind-feature!__% - _sys-type171521_ + _sys-type173368_ '#f '0 - _self171494_) - (if (_linux-variant?171496_ _sys-type171521_) + _self173341_) + (if (_linux-variant?173343_ _sys-type173368_) (gx#core-bind-feature!__% (string->symbol '"linux") '#f '0 - _self171494_) - (let ((_$e171525_ - (_bsd-variant171497_ _sys-type171521_))) - (if _$e171525_ - ((lambda (_sys-prefix171528_) + _self173341_) + (let ((_$e173372_ + (_bsd-variant173344_ _sys-type173368_))) + (if _$e173372_ + ((lambda (_sys-prefix173375_) (gx#core-bind-feature!__% (string->symbol '"bsd") '#f '0 - _self171494_) + _self173341_) (gx#core-bind-feature!__% - (string->symbol _sys-prefix171528_) + (string->symbol _sys-prefix173375_) '#f '0 - _self171494_)) - _$e171525_) + _self173341_)) + _$e173372_) '#!void)))))) - (if (##pair? _g171498171510_) - (let ((_hd171503171533_ (##car _g171498171510_)) - (_tl171504171535_ (##cdr _g171498171510_))) - (let ((_sys-cpu171538_ _hd171503171533_)) - (if (##pair? _tl171504171535_) - (let ((_hd171505171540_ (##car _tl171504171535_)) - (_tl171506171542_ (##cdr _tl171504171535_))) - (let ((_sys-vendor171545_ _hd171505171540_)) - (if (##pair? _tl171506171542_) - (let ((_hd171507171547_ - (##car _tl171506171542_)) - (_tl171508171549_ - (##cdr _tl171506171542_))) - (let ((_sys-type171552_ _hd171507171547_)) - (if (##null? _tl171508171549_) - (_K171502171530_ - _sys-type171552_ - _sys-vendor171545_ - _sys-cpu171538_) + (if (##pair? _g173345173357_) + (let ((_hd173350173380_ (##car _g173345173357_)) + (_tl173351173382_ (##cdr _g173345173357_))) + (let ((_sys-cpu173385_ _hd173350173380_)) + (if (##pair? _tl173351173382_) + (let ((_hd173352173387_ (##car _tl173351173382_)) + (_tl173353173389_ (##cdr _tl173351173382_))) + (let ((_sys-vendor173392_ _hd173352173387_)) + (if (##pair? _tl173353173389_) + (let ((_hd173354173394_ + (##car _tl173353173389_)) + (_tl173355173396_ + (##cdr _tl173353173389_))) + (let ((_sys-type173399_ _hd173354173394_)) + (if (##null? _tl173355173396_) + (_K173349173377_ + _sys-type173399_ + _sys-vendor173392_ + _sys-cpu173385_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self171494_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self173341_) '#!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 75a8283b1..b004c7973 100644 --- a/src/bootstrap/gerbil/expander/stx__0.scm +++ b/src/bootstrap/gerbil/expander/stx__0.scm @@ -1,1129 +1,1128 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stx::timestamp 1707573211) + (define gerbil/expander/stx::timestamp 1707674930) (begin (declare (not safe)) (define gx#identifier-wrap::t - (make-struct-type + (make-class-type 'gx#identifier-wrap::t 'syntax - gx#AST::t + (list gx#AST::t) '(marks) (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) - (define gx#identifier-wrap? (make-struct-predicate gx#identifier-wrap::t)) + (define gx#identifier-wrap? (make-class-predicate gx#identifier-wrap::t)) (define gx#make-identifier-wrap - (lambda _$args135605_ - (apply make-struct-instance gx#identifier-wrap::t _$args135605_))) + (lambda _$args136952_ + (apply make-instance gx#identifier-wrap::t _$args136952_))) (define gx#identifier-wrap-marks - (make-struct-slot-accessor gx#identifier-wrap::t 'marks)) + (make-class-slot-accessor gx#identifier-wrap::t 'marks)) (define gx#identifier-wrap-e - (make-struct-slot-accessor gx#identifier-wrap::t 'e)) + (make-class-slot-accessor gx#identifier-wrap::t 'e)) (define gx#identifier-wrap-source - (make-struct-slot-accessor gx#identifier-wrap::t 'source)) + (make-class-slot-accessor gx#identifier-wrap::t 'source)) (define gx#identifier-wrap-marks-set! - (make-struct-slot-mutator gx#identifier-wrap::t 'marks)) + (make-class-slot-mutator gx#identifier-wrap::t 'marks)) (define gx#identifier-wrap-e-set! - (make-struct-slot-mutator gx#identifier-wrap::t 'e)) + (make-class-slot-mutator gx#identifier-wrap::t 'e)) (define gx#identifier-wrap-source-set! - (make-struct-slot-mutator gx#identifier-wrap::t 'source)) + (make-class-slot-mutator gx#identifier-wrap::t 'source)) (define gx#&identifier-wrap-marks - (make-struct-slot-unchecked-accessor gx#identifier-wrap::t 'marks)) + (make-class-slot-unchecked-accessor gx#identifier-wrap::t 'marks)) (define gx#&identifier-wrap-e - (make-struct-slot-unchecked-accessor gx#identifier-wrap::t 'e)) + (make-class-slot-unchecked-accessor gx#identifier-wrap::t 'e)) (define gx#&identifier-wrap-source - (make-struct-slot-unchecked-accessor gx#identifier-wrap::t 'source)) + (make-class-slot-unchecked-accessor gx#identifier-wrap::t 'source)) (define gx#&identifier-wrap-marks-set! - (make-struct-slot-unchecked-mutator gx#identifier-wrap::t 'marks)) + (make-class-slot-unchecked-mutator gx#identifier-wrap::t 'marks)) (define gx#&identifier-wrap-e-set! - (make-struct-slot-unchecked-mutator gx#identifier-wrap::t 'e)) + (make-class-slot-unchecked-mutator gx#identifier-wrap::t 'e)) (define gx#&identifier-wrap-source-set! - (make-struct-slot-unchecked-mutator gx#identifier-wrap::t 'source)) + (make-class-slot-unchecked-mutator gx#identifier-wrap::t 'source)) (define gx#syntax-wrap::t - (make-struct-type + (make-class-type 'gx#syntax-wrap::t 'syntax - gx#AST::t + (list gx#AST::t) '(mark) (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) - (define gx#syntax-wrap? (make-struct-predicate gx#syntax-wrap::t)) + (define gx#syntax-wrap? (make-class-predicate gx#syntax-wrap::t)) (define gx#make-syntax-wrap - (lambda _$args135602_ - (apply make-struct-instance gx#syntax-wrap::t _$args135602_))) + (lambda _$args136949_ + (apply make-instance gx#syntax-wrap::t _$args136949_))) (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)) + (make-class-slot-accessor gx#syntax-wrap::t 'mark)) + (define gx#syntax-wrap-e (make-class-slot-accessor gx#syntax-wrap::t 'e)) (define gx#syntax-wrap-source - (make-struct-slot-accessor gx#syntax-wrap::t 'source)) + (make-class-slot-accessor gx#syntax-wrap::t 'source)) (define gx#syntax-wrap-mark-set! - (make-struct-slot-mutator gx#syntax-wrap::t 'mark)) + (make-class-slot-mutator gx#syntax-wrap::t 'mark)) (define gx#syntax-wrap-e-set! - (make-struct-slot-mutator gx#syntax-wrap::t 'e)) + (make-class-slot-mutator gx#syntax-wrap::t 'e)) (define gx#syntax-wrap-source-set! - (make-struct-slot-mutator gx#syntax-wrap::t 'source)) + (make-class-slot-mutator gx#syntax-wrap::t 'source)) (define gx#&syntax-wrap-mark - (make-struct-slot-unchecked-accessor gx#syntax-wrap::t 'mark)) + (make-class-slot-unchecked-accessor gx#syntax-wrap::t 'mark)) (define gx#&syntax-wrap-e - (make-struct-slot-unchecked-accessor gx#syntax-wrap::t 'e)) + (make-class-slot-unchecked-accessor gx#syntax-wrap::t 'e)) (define gx#&syntax-wrap-source - (make-struct-slot-unchecked-accessor gx#syntax-wrap::t 'source)) + (make-class-slot-unchecked-accessor gx#syntax-wrap::t 'source)) (define gx#&syntax-wrap-mark-set! - (make-struct-slot-unchecked-mutator gx#syntax-wrap::t 'mark)) + (make-class-slot-unchecked-mutator gx#syntax-wrap::t 'mark)) (define gx#&syntax-wrap-e-set! - (make-struct-slot-unchecked-mutator gx#syntax-wrap::t 'e)) + (make-class-slot-unchecked-mutator gx#syntax-wrap::t 'e)) (define gx#&syntax-wrap-source-set! - (make-struct-slot-unchecked-mutator gx#syntax-wrap::t 'source)) + (make-class-slot-unchecked-mutator gx#syntax-wrap::t 'source)) (define gx#syntax-quote::t - (make-struct-type + (make-class-type 'gx#syntax-quote::t 'syntax - gx#AST::t + (list gx#AST::t) '(context marks) (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) - (define gx#syntax-quote? (make-struct-predicate gx#syntax-quote::t)) + (define gx#syntax-quote? (make-class-predicate gx#syntax-quote::t)) (define gx#make-syntax-quote - (lambda _$args135599_ - (apply make-struct-instance gx#syntax-quote::t _$args135599_))) + (lambda _$args136946_ + (apply make-instance gx#syntax-quote::t _$args136946_))) (define gx#syntax-quote-context - (make-struct-slot-accessor gx#syntax-quote::t 'context)) + (make-class-slot-accessor gx#syntax-quote::t 'context)) (define gx#syntax-quote-marks - (make-struct-slot-accessor gx#syntax-quote::t 'marks)) - (define gx#syntax-quote-e - (make-struct-slot-accessor gx#syntax-quote::t 'e)) + (make-class-slot-accessor gx#syntax-quote::t 'marks)) + (define gx#syntax-quote-e (make-class-slot-accessor gx#syntax-quote::t 'e)) (define gx#syntax-quote-source - (make-struct-slot-accessor gx#syntax-quote::t 'source)) + (make-class-slot-accessor gx#syntax-quote::t 'source)) (define gx#syntax-quote-context-set! - (make-struct-slot-mutator gx#syntax-quote::t 'context)) + (make-class-slot-mutator gx#syntax-quote::t 'context)) (define gx#syntax-quote-marks-set! - (make-struct-slot-mutator gx#syntax-quote::t 'marks)) + (make-class-slot-mutator gx#syntax-quote::t 'marks)) (define gx#syntax-quote-e-set! - (make-struct-slot-mutator gx#syntax-quote::t 'e)) + (make-class-slot-mutator gx#syntax-quote::t 'e)) (define gx#syntax-quote-source-set! - (make-struct-slot-mutator gx#syntax-quote::t 'source)) + (make-class-slot-mutator gx#syntax-quote::t 'source)) (define gx#&syntax-quote-context - (make-struct-slot-unchecked-accessor gx#syntax-quote::t 'context)) + (make-class-slot-unchecked-accessor gx#syntax-quote::t 'context)) (define gx#&syntax-quote-marks - (make-struct-slot-unchecked-accessor gx#syntax-quote::t 'marks)) + (make-class-slot-unchecked-accessor gx#syntax-quote::t 'marks)) (define gx#&syntax-quote-e - (make-struct-slot-unchecked-accessor gx#syntax-quote::t 'e)) + (make-class-slot-unchecked-accessor gx#syntax-quote::t 'e)) (define gx#&syntax-quote-source - (make-struct-slot-unchecked-accessor gx#syntax-quote::t 'source)) + (make-class-slot-unchecked-accessor gx#syntax-quote::t 'source)) (define gx#&syntax-quote-context-set! - (make-struct-slot-unchecked-mutator gx#syntax-quote::t 'context)) + (make-class-slot-unchecked-mutator gx#syntax-quote::t 'context)) (define gx#&syntax-quote-marks-set! - (make-struct-slot-unchecked-mutator gx#syntax-quote::t 'marks)) + (make-class-slot-unchecked-mutator gx#syntax-quote::t 'marks)) (define gx#&syntax-quote-e-set! - (make-struct-slot-unchecked-mutator gx#syntax-quote::t 'e)) + (make-class-slot-unchecked-mutator gx#syntax-quote::t 'e)) (define gx#&syntax-quote-source-set! - (make-struct-slot-unchecked-mutator gx#syntax-quote::t 'source)) + (make-class-slot-unchecked-mutator gx#syntax-quote::t 'source)) (define gx#identifier? - (lambda (_stx135597_) (symbol? (gx#stx-e _stx135597_)))) + (lambda (_stx136944_) (symbol? (gx#stx-e _stx136944_)))) (define gx#identifier-quote? - (lambda (_stx135595_) - (if (##structure-direct-instance-of? _stx135595_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _stx135595_ '1 gx#AST::t '#f)) + (lambda (_stx136942_) + (if (##structure-direct-instance-of? _stx136942_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _stx136942_ '1 gx#AST::t '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_stx135593_) - (if (##structure-direct-instance-of? _stx135593_ 'gx#syntax-quote::t) + (lambda (_stx136940_) + (if (##structure-direct-instance-of? _stx136940_ 'gx#syntax-quote::t) '#t (if (##structure-direct-instance-of? - _stx135593_ + _stx136940_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _stx135593_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx136940_ '1 gx#AST::t '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_stx135591_) - (if (##structure-direct-instance-of? _stx135591_ 'gx#syntax-quote::t) - _stx135591_ + (lambda (_stx136938_) + (if (##structure-direct-instance-of? _stx136938_ 'gx#syntax-quote::t) + _stx136938_ (if (##structure-direct-instance-of? - _stx135591_ + _stx136938_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _stx135591_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx136938_ '1 gx#AST::t '#f)) '#f)))) (define gx#syntax-e - (lambda (_stx135574_) - (if (##structure-direct-instance-of? _stx135574_ 'gx#syntax-wrap::t) - (let _lp135576_ ((_e135578_ + (lambda (_stx136921_) + (if (##structure-direct-instance-of? _stx136921_ 'gx#syntax-wrap::t) + (let _lp136923_ ((_e136925_ (##unchecked-structure-ref - _stx135574_ + _stx136921_ '1 gx#AST::t '#f)) - (_marks135579_ + (_marks136926_ (cons (##unchecked-structure-ref - _stx135574_ + _stx136921_ '3 gx#syntax-wrap::t '#f) '()))) - (if (##structure? _e135578_) - (let ((_$e135581_ (##type-id (##structure-type _e135578_)))) - (if (eq? 'gx#syntax-wrap::t _$e135581_) - (_lp135576_ - (##unchecked-structure-ref _e135578_ '1 gx#AST::t '#f) + (if (##structure? _e136925_) + (let ((_$e136928_ (##type-id (##structure-type _e136925_)))) + (if (eq? 'gx#syntax-wrap::t _$e136928_) + (_lp136923_ + (##unchecked-structure-ref _e136925_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e135578_ + _e136925_ '3 gx#syntax-wrap::t '#f) - _marks135579_)) - (if (or (eq? 'gx#syntax-quote::t _$e135581_) - (eq? 'gx#identifier-wrap::t _$e135581_)) + _marks136926_)) + (if (or (eq? 'gx#syntax-quote::t _$e136928_) + (eq? 'gx#identifier-wrap::t _$e136928_)) (##unchecked-structure-ref - _e135578_ + _e136925_ '1 gx#AST::t '#f) - (if (eq? 'gerbil#AST::t _$e135581_) - (_lp135576_ + (if (eq? 'gerbil#AST::t _$e136928_) + (_lp136923_ (##unchecked-structure-ref - _e135578_ + _e136925_ '1 gx#AST::t '#f) - _marks135579_) - _e135578_)))) - (if (null? _marks135579_) - _e135578_ - (if (pair? _e135578_) - (cons (gx#stx-wrap (car _e135578_) _marks135579_) - (gx#stx-wrap (cdr _e135578_) _marks135579_)) - (if (vector? _e135578_) + _marks136926_) + _e136925_)))) + (if (null? _marks136926_) + _e136925_ + (if (pair? _e136925_) + (cons (gx#stx-wrap (car _e136925_) _marks136926_) + (gx#stx-wrap (cdr _e136925_) _marks136926_)) + (if (vector? _e136925_) (vector-map - (lambda (_g135586135588_) - (gx#stx-wrap _g135586135588_ _marks135579_)) - _e135578_) - (if (box? _e135578_) + (lambda (_g136933136935_) + (gx#stx-wrap _g136933136935_ _marks136926_)) + _e136925_) + (if (box? _e136925_) (box (gx#stx-wrap - (unbox _e135578_) - _marks135579_)) - _e135578_)))))) - (if (##structure-instance-of? _stx135574_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx135574_ '1 gx#AST::t '#f) - _stx135574_)))) + (unbox _e136925_) + _marks136926_)) + _e136925_)))))) + (if (##structure-instance-of? _stx136921_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx136921_ '1 gx#AST::t '#f) + _stx136921_)))) (define gx#syntax->datum - (lambda (_stx135572_) - (if (##structure-instance-of? _stx135572_ 'gerbil#AST::t) + (lambda (_stx136919_) + (if (##structure-instance-of? _stx136919_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _stx135572_ '1 gx#AST::t '#f)) - (if (pair? _stx135572_) - (cons (gx#syntax->datum (car _stx135572_)) - (gx#syntax->datum (cdr _stx135572_))) - (if (vector? _stx135572_) - (vector-map gx#syntax->datum _stx135572_) - (if (box? _stx135572_) - (box (gx#syntax->datum (unbox _stx135572_))) - _stx135572_)))))) + (##unchecked-structure-ref _stx136919_ '1 gx#AST::t '#f)) + (if (pair? _stx136919_) + (cons (gx#syntax->datum (car _stx136919_)) + (gx#syntax->datum (cdr _stx136919_))) + (if (vector? _stx136919_) + (vector-map gx#syntax->datum _stx136919_) + (if (box? _stx136919_) + (box (gx#syntax->datum (unbox _stx136919_))) + _stx136919_)))))) (define gx#datum->syntax__% - (lambda (_stx135515_ _datum135516_ _src135517_ _quote?135518_) - (letrec ((_wrap-datum135520_ - (lambda (_e135544_ _marks135545_) - (_wrap-inner135522_ - _e135544_ - (lambda (_g135546135548_) + (lambda (_stx136862_ _datum136863_ _src136864_ _quote?136865_) + (letrec ((_wrap-datum136867_ + (lambda (_e136891_ _marks136892_) + (_wrap-inner136869_ + _e136891_ + (lambda (_g136893136895_) (##structure gx#identifier-wrap::t - _g135546135548_ - _src135517_ - _marks135545_))))) - (_wrap-quote135521_ - (lambda (_e135536_ _ctx135537_ _marks135538_) - (_wrap-inner135522_ - _e135536_ - (lambda (_g135539135541_) + _g136893136895_ + _src136864_ + _marks136892_))))) + (_wrap-quote136868_ + (lambda (_e136883_ _ctx136884_ _marks136885_) + (_wrap-inner136869_ + _e136883_ + (lambda (_g136886136888_) (##structure gx#syntax-quote::t - _g135539135541_ - _src135517_ - _ctx135537_ - _marks135538_))))) - (_wrap-inner135522_ - (lambda (_e135529_ _wrap-e135530_) - (let _recur135532_ ((_e135534_ _e135529_)) - (if (symbol? _e135534_) - (_wrap-e135530_ _e135534_) - (if (pair? _e135534_) - (cons (_recur135532_ (car _e135534_)) - (_recur135532_ (cdr _e135534_))) - (if (vector? _e135534_) - (vector-map _recur135532_ _e135534_) - (if (box? _e135534_) - (box (_recur135532_ (unbox _e135534_))) - _e135534_))))))) - (_wrap-outer135523_ - (lambda (_e135527_) - (if (##structure-instance-of? _e135527_ 'gerbil#AST::t) - _e135527_ - (##structure gx#AST::t _e135527_ _src135517_))))) - (if (##structure-instance-of? _datum135516_ 'gerbil#AST::t) - _datum135516_ - (if (not _stx135515_) - (##structure gx#AST::t _datum135516_ _src135517_) - (if (gx#identifier? _stx135515_) - (let ((_stx135525_ (gx#stx-unwrap__0 _stx135515_))) - (_wrap-outer135523_ + _g136886136888_ + _src136864_ + _ctx136884_ + _marks136885_))))) + (_wrap-inner136869_ + (lambda (_e136876_ _wrap-e136877_) + (let _recur136879_ ((_e136881_ _e136876_)) + (if (symbol? _e136881_) + (_wrap-e136877_ _e136881_) + (if (pair? _e136881_) + (cons (_recur136879_ (car _e136881_)) + (_recur136879_ (cdr _e136881_))) + (if (vector? _e136881_) + (vector-map _recur136879_ _e136881_) + (if (box? _e136881_) + (box (_recur136879_ (unbox _e136881_))) + _e136881_))))))) + (_wrap-outer136870_ + (lambda (_e136874_) + (if (##structure-instance-of? _e136874_ 'gerbil#AST::t) + _e136874_ + (##structure gx#AST::t _e136874_ _src136864_))))) + (if (##structure-instance-of? _datum136863_ 'gerbil#AST::t) + _datum136863_ + (if (not _stx136862_) + (##structure gx#AST::t _datum136863_ _src136864_) + (if (gx#identifier? _stx136862_) + (let ((_stx136872_ (gx#stx-unwrap__0 _stx136862_))) + (_wrap-outer136870_ (if (##structure-direct-instance-of? - _stx135525_ + _stx136872_ 'gx#syntax-quote::t) - (if _quote?135518_ - (_wrap-quote135521_ - _datum135516_ + (if _quote?136865_ + (_wrap-quote136868_ + _datum136863_ (##unchecked-structure-ref - _stx135525_ + _stx136872_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _stx135525_ + _stx136872_ '4 gx#syntax-quote::t '#f)) - (_wrap-datum135520_ - _datum135516_ + (_wrap-datum136867_ + _datum136863_ (##unchecked-structure-ref - _stx135525_ + _stx136872_ '4 gx#syntax-quote::t '#f))) - (_wrap-datum135520_ - _datum135516_ + (_wrap-datum136867_ + _datum136863_ (##unchecked-structure-ref - _stx135525_ + _stx136872_ '3 gx#identifier-wrap::t '#f))))) (error '"Bad template syntax; expected identifier" - _stx135515_))))))) + _stx136862_))))))) (define gx#datum->syntax__0 - (lambda (_stx135554_ _datum135555_) - (let* ((_src135557_ '#f) (_quote?135559_ '#t)) + (lambda (_stx136901_ _datum136902_) + (let* ((_src136904_ '#f) (_quote?136906_ '#t)) (gx#datum->syntax__% - _stx135554_ - _datum135555_ - _src135557_ - _quote?135559_)))) + _stx136901_ + _datum136902_ + _src136904_ + _quote?136906_)))) (define gx#datum->syntax__1 - (lambda (_stx135561_ _datum135562_ _src135563_) - (let ((_quote?135565_ '#t)) + (lambda (_stx136908_ _datum136909_ _src136910_) + (let ((_quote?136912_ '#t)) (gx#datum->syntax__% - _stx135561_ - _datum135562_ - _src135563_ - _quote?135565_)))) + _stx136908_ + _datum136909_ + _src136910_ + _quote?136912_)))) (define gx#datum->syntax - (lambda _g140154_ - (let ((_g140153_ (##length _g140154_))) - (cond ((##fx= _g140153_ 2) - (apply (lambda (_stx135554_ _datum135555_) - (gx#datum->syntax__0 _stx135554_ _datum135555_)) - _g140154_)) - ((##fx= _g140153_ 3) - (apply (lambda (_stx135561_ _datum135562_ _src135563_) + (lambda _g141601_ + (let ((_g141600_ (##length _g141601_))) + (cond ((##fx= _g141600_ 2) + (apply (lambda (_stx136901_ _datum136902_) + (gx#datum->syntax__0 _stx136901_ _datum136902_)) + _g141601_)) + ((##fx= _g141600_ 3) + (apply (lambda (_stx136908_ _datum136909_ _src136910_) (gx#datum->syntax__1 - _stx135561_ - _datum135562_ - _src135563_)) - _g140154_)) - ((##fx= _g140153_ 4) - (apply (lambda (_stx135567_ - _datum135568_ - _src135569_ - _quote?135570_) + _stx136908_ + _datum136909_ + _src136910_)) + _g141601_)) + ((##fx= _g141600_ 4) + (apply (lambda (_stx136914_ + _datum136915_ + _src136916_ + _quote?136917_) (gx#datum->syntax__% - _stx135567_ - _datum135568_ - _src135569_ - _quote?135570_)) - _g140154_)) + _stx136914_ + _datum136915_ + _src136916_ + _quote?136917_)) + _g141601_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g140154_)))))) + _g141601_)))))) (define gx#stx-unwrap__% - (lambda (_stx135491_ _marks135492_) - (let _lp135494_ ((_e135496_ _stx135491_) - (_marks135497_ _marks135492_) - (_src135498_ (gx#stx-source _stx135491_))) - (if (##structure-direct-instance-of? _e135496_ 'gx#syntax-wrap::t) - (_lp135494_ - (##unchecked-structure-ref _e135496_ '1 gx#AST::t '#f) + (lambda (_stx136838_ _marks136839_) + (let _lp136841_ ((_e136843_ _stx136838_) + (_marks136844_ _marks136839_) + (_src136845_ (gx#stx-source _stx136838_))) + (if (##structure-direct-instance-of? _e136843_ 'gx#syntax-wrap::t) + (_lp136841_ + (##unchecked-structure-ref _e136843_ '1 gx#AST::t '#f) (gx#apply-mark - (##unchecked-structure-ref _e135496_ '3 gx#syntax-wrap::t '#f) - _marks135497_) - (##unchecked-structure-ref _e135496_ '2 gx#AST::t '#f)) + (##unchecked-structure-ref _e136843_ '3 gx#syntax-wrap::t '#f) + _marks136844_) + (##unchecked-structure-ref _e136843_ '2 gx#AST::t '#f)) (if (##structure-direct-instance-of? - _e135496_ + _e136843_ 'gx#identifier-wrap::t) - (if (null? _marks135497_) - _e135496_ + (if (null? _marks136844_) + _e136843_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _e135496_ '1 gx#AST::t '#f) - (##unchecked-structure-ref _e135496_ '2 gx#AST::t '#f) + (##unchecked-structure-ref _e136843_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _e136843_ '2 gx#AST::t '#f) (foldl1 gx#apply-mark (##unchecked-structure-ref - _e135496_ + _e136843_ '3 gx#identifier-wrap::t '#f) - _marks135497_))) + _marks136844_))) (if (##structure-direct-instance-of? - _e135496_ + _e136843_ 'gx#syntax-quote::t) - _e135496_ - (if (##structure-instance-of? _e135496_ 'gerbil#AST::t) - (_lp135494_ + _e136843_ + (if (##structure-instance-of? _e136843_ 'gerbil#AST::t) + (_lp136841_ (##unchecked-structure-ref - _e135496_ + _e136843_ '1 gx#AST::t '#f) - _marks135497_ + _marks136844_ (##unchecked-structure-ref - _e135496_ + _e136843_ '2 gx#AST::t '#f)) - (if (symbol? _e135496_) + (if (symbol? _e136843_) (##structure gx#identifier-wrap::t - _e135496_ - _src135498_ - (reverse _marks135497_)) - (if (null? _marks135497_) - _e135496_ - (if (pair? _e135496_) + _e136843_ + _src136845_ + (reverse _marks136844_)) + (if (null? _marks136844_) + _e136843_ + (if (pair? _e136843_) (cons (gx#stx-wrap - (car _e135496_) - _marks135497_) + (car _e136843_) + _marks136844_) (gx#stx-wrap - (cdr _e135496_) - _marks135497_)) - (if (vector? _e135496_) + (cdr _e136843_) + _marks136844_)) + (if (vector? _e136843_) (vector-map - (lambda (_g135499135501_) + (lambda (_g136846136848_) (gx#stx-wrap - _g135499135501_ - _marks135497_)) - _e135496_) - (if (box? _e135496_) + _g136846136848_ + _marks136844_)) + _e136843_) + (if (box? _e136843_) (box (gx#stx-wrap - (unbox _e135496_) - _marks135497_)) - _e135496_)))))))))))) + (unbox _e136843_) + _marks136844_)) + _e136843_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_stx135507_) - (let ((_marks135509_ '())) - (gx#stx-unwrap__% _stx135507_ _marks135509_)))) + (lambda (_stx136854_) + (let ((_marks136856_ '())) + (gx#stx-unwrap__% _stx136854_ _marks136856_)))) (define gx#stx-unwrap - (lambda _g140156_ - (let ((_g140155_ (##length _g140156_))) - (cond ((##fx= _g140155_ 1) - (apply (lambda (_stx135507_) (gx#stx-unwrap__0 _stx135507_)) - _g140156_)) - ((##fx= _g140155_ 2) - (apply (lambda (_stx135511_ _marks135512_) - (gx#stx-unwrap__% _stx135511_ _marks135512_)) - _g140156_)) + (lambda _g141603_ + (let ((_g141602_ (##length _g141603_))) + (cond ((##fx= _g141602_ 1) + (apply (lambda (_stx136854_) (gx#stx-unwrap__0 _stx136854_)) + _g141603_)) + ((##fx= _g141602_ 2) + (apply (lambda (_stx136858_ _marks136859_) + (gx#stx-unwrap__% _stx136858_ _marks136859_)) + _g141603_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g140156_)))))) + _g141603_)))))) (define gx#stx-wrap - (lambda (_stx135484_ _marks135485_) - (foldl1 (lambda (_mark135487_ _stx135488_) - (gx#stx-apply-mark _stx135488_ _mark135487_)) - _stx135484_ - _marks135485_))) + (lambda (_stx136831_ _marks136832_) + (foldl1 (lambda (_mark136834_ _stx136835_) + (gx#stx-apply-mark _stx136835_ _mark136834_)) + _stx136831_ + _marks136832_))) (define gx#stx-rewrap - (lambda (_stx135478_ _marks135479_) - (foldr1 (lambda (_mark135481_ _stx135482_) - (gx#stx-apply-mark _stx135482_ _mark135481_)) - _stx135478_ - _marks135479_))) + (lambda (_stx136825_ _marks136826_) + (foldr1 (lambda (_mark136828_ _stx136829_) + (gx#stx-apply-mark _stx136829_ _mark136828_)) + _stx136825_ + _marks136826_))) (define gx#stx-apply-mark - (lambda (_stx135475_ _mark135476_) - (if (##structure-direct-instance-of? _stx135475_ 'gx#syntax-quote::t) - _stx135475_ + (lambda (_stx136822_ _mark136823_) + (if (##structure-direct-instance-of? _stx136822_ 'gx#syntax-quote::t) + _stx136822_ (if (and (##structure-direct-instance-of? - _stx135475_ + _stx136822_ 'gx#syntax-wrap::t) - (eq? _mark135476_ + (eq? _mark136823_ (##unchecked-structure-ref - _stx135475_ + _stx136822_ '3 gx#syntax-wrap::t '#f))) - (##unchecked-structure-ref _stx135475_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _stx136822_ '1 gx#AST::t '#f) (##structure gx#syntax-wrap::t - _stx135475_ - (gx#stx-source _stx135475_) - _mark135476_))))) + _stx136822_ + (gx#stx-source _stx136822_) + _mark136823_))))) (define gx#apply-mark - (lambda (_mark135439_ _marks135440_) - (let* ((_marks135441135449_ _marks135440_) - (_else135443135457_ - (lambda () (cons _mark135439_ _marks135440_))) - (_K135445135463_ - (lambda (_rest135460_ _hd135461_) - (if (eq? _mark135439_ _hd135461_) - _rest135460_ - (cons _mark135439_ _marks135440_))))) - (if (##pair? _marks135441135449_) - (let ((_hd135446135466_ (##car _marks135441135449_)) - (_tl135447135468_ (##cdr _marks135441135449_))) - (let* ((_hd135471_ _hd135446135466_) - (_rest135473_ _tl135447135468_)) - (_K135445135463_ _rest135473_ _hd135471_))) - (_else135443135457_))))) + (lambda (_mark136786_ _marks136787_) + (let* ((_marks136788136796_ _marks136787_) + (_else136790136804_ + (lambda () (cons _mark136786_ _marks136787_))) + (_K136792136810_ + (lambda (_rest136807_ _hd136808_) + (if (eq? _mark136786_ _hd136808_) + _rest136807_ + (cons _mark136786_ _marks136787_))))) + (if (##pair? _marks136788136796_) + (let ((_hd136793136813_ (##car _marks136788136796_)) + (_tl136794136815_ (##cdr _marks136788136796_))) + (let* ((_hd136818_ _hd136793136813_) + (_rest136820_ _tl136794136815_)) + (_K136792136810_ _rest136820_ _hd136818_))) + (_else136790136804_))))) (define gx#stx-e - (lambda (_stx135437_) - (if (##structure-direct-instance-of? _stx135437_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _stx135437_ '1 gx#AST::t '#f)) - (if (##structure-instance-of? _stx135437_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx135437_ '1 gx#AST::t '#f) - _stx135437_)))) + (lambda (_stx136784_) + (if (##structure-direct-instance-of? _stx136784_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _stx136784_ '1 gx#AST::t '#f)) + (if (##structure-instance-of? _stx136784_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx136784_ '1 gx#AST::t '#f) + _stx136784_)))) (define gx#stx-source - (lambda (_stx135435_) - (if (##structure-instance-of? _stx135435_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx135435_ '2 gx#AST::t '#f) + (lambda (_stx136782_) + (if (##structure-instance-of? _stx136782_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx136782_ '2 gx#AST::t '#f) '#f))) (define gx#stx-wrap-source - (lambda (_stx135429_ _src135430_) - (if (or (##structure-instance-of? _stx135429_ 'gerbil#AST::t) - (not _src135430_)) - _stx135429_ - (##structure gx#AST::t _stx135429_ _src135430_)))) + (lambda (_stx136776_ _src136777_) + (if (or (##structure-instance-of? _stx136776_ 'gerbil#AST::t) + (not _src136777_)) + _stx136776_ + (##structure gx#AST::t _stx136776_ _src136777_)))) (define gx#stx-datum? - (lambda (_stx135427_) (gx#self-quoting? (gx#stx-e _stx135427_)))) + (lambda (_stx136774_) (gx#self-quoting? (gx#stx-e _stx136774_)))) (define gx#self-quoting? - (lambda (_x135410_) - (let ((_$e135412_ (immediate? _x135410_))) - (if _$e135412_ - _$e135412_ - (let ((_$e135415_ (number? _x135410_))) - (if _$e135415_ - _$e135415_ - (let ((_$e135418_ (keyword? _x135410_))) - (if _$e135418_ - _$e135418_ - (let ((_$e135421_ (string? _x135410_))) - (if _$e135421_ - _$e135421_ - (let ((_$e135424_ (vector? _x135410_))) - (if _$e135424_ - _$e135424_ - (u8vector? _x135410_))))))))))))) + (lambda (_x136757_) + (let ((_$e136759_ (immediate? _x136757_))) + (if _$e136759_ + _$e136759_ + (let ((_$e136762_ (number? _x136757_))) + (if _$e136762_ + _$e136762_ + (let ((_$e136765_ (keyword? _x136757_))) + (if _$e136765_ + _$e136765_ + (let ((_$e136768_ (string? _x136757_))) + (if _$e136768_ + _$e136768_ + (let ((_$e136771_ (vector? _x136757_))) + (if _$e136771_ + _$e136771_ + (u8vector? _x136757_))))))))))))) (define gx#stx-boolean? - (lambda (_e135408_) (boolean? (gx#stx-e _e135408_)))) + (lambda (_e136755_) (boolean? (gx#stx-e _e136755_)))) (define gx#stx-keyword? - (lambda (_e135406_) (keyword? (gx#stx-e _e135406_)))) - (define gx#stx-char? (lambda (_e135404_) (char? (gx#stx-e _e135404_)))) - (define gx#stx-number? (lambda (_e135402_) (number? (gx#stx-e _e135402_)))) - (define gx#stx-fixnum? (lambda (_e135400_) (fixnum? (gx#stx-e _e135400_)))) - (define gx#stx-string? (lambda (_e135398_) (string? (gx#stx-e _e135398_)))) - (define gx#stx-null? (lambda (_e135396_) (null? (gx#stx-e _e135396_)))) - (define gx#stx-pair? (lambda (_e135394_) (pair? (gx#stx-e _e135394_)))) + (lambda (_e136753_) (keyword? (gx#stx-e _e136753_)))) + (define gx#stx-char? (lambda (_e136751_) (char? (gx#stx-e _e136751_)))) + (define gx#stx-number? (lambda (_e136749_) (number? (gx#stx-e _e136749_)))) + (define gx#stx-fixnum? (lambda (_e136747_) (fixnum? (gx#stx-e _e136747_)))) + (define gx#stx-string? (lambda (_e136745_) (string? (gx#stx-e _e136745_)))) + (define gx#stx-null? (lambda (_e136743_) (null? (gx#stx-e _e136743_)))) + (define gx#stx-pair? (lambda (_e136741_) (pair? (gx#stx-e _e136741_)))) (define gx#stx-list? - (lambda (_e135356_) - (let* ((_g135357135366_ (gx#stx-e _e135356_)) - (_E135360135370_ - (lambda () (error '"No clause matching" _g135357135366_)))) - (let ((_K135362135386_ - (lambda (_rest135384_) (gx#stx-list? _rest135384_))) - (_K135361135376_ (lambda (_tail135374_) (null? _tail135374_)))) - (if (##pair? _g135357135366_) - (let* ((_tl135364135389_ (##cdr _g135357135366_)) - (_rest135392_ _tl135364135389_)) - (gx#stx-list? _rest135392_)) - (let ((_tail135379_ _g135357135366_)) - (null? _tail135379_))))))) + (lambda (_e136703_) + (let* ((_g136704136713_ (gx#stx-e _e136703_)) + (_E136707136717_ + (lambda () (error '"No clause matching" _g136704136713_)))) + (let ((_K136709136733_ + (lambda (_rest136731_) (gx#stx-list? _rest136731_))) + (_K136708136723_ (lambda (_tail136721_) (null? _tail136721_)))) + (if (##pair? _g136704136713_) + (let* ((_tl136711136736_ (##cdr _g136704136713_)) + (_rest136739_ _tl136711136736_)) + (gx#stx-list? _rest136739_)) + (let ((_tail136726_ _g136704136713_)) + (null? _tail136726_))))))) (define gx#stx-pair/null? - (lambda (_e135349_) - (let* ((_e135351_ (gx#stx-e _e135349_)) (_$e135353_ (pair? _e135351_))) - (if _$e135353_ _$e135353_ (null? _e135351_))))) - (define gx#stx-vector? (lambda (_e135347_) (vector? (gx#stx-e _e135347_)))) - (define gx#stx-box? (lambda (_e135345_) (box? (gx#stx-e _e135345_)))) + (lambda (_e136696_) + (let* ((_e136698_ (gx#stx-e _e136696_)) (_$e136700_ (pair? _e136698_))) + (if _$e136700_ _$e136700_ (null? _e136698_))))) + (define gx#stx-vector? (lambda (_e136694_) (vector? (gx#stx-e _e136694_)))) + (define gx#stx-box? (lambda (_e136692_) (box? (gx#stx-e _e136692_)))) (define gx#stx-eq? - (lambda (_x135342_ _y135343_) - (eq? (gx#stx-e _x135342_) (gx#stx-e _y135343_)))) + (lambda (_x136689_ _y136690_) + (eq? (gx#stx-e _x136689_) (gx#stx-e _y136690_)))) (define gx#stx-eqv? - (lambda (_x135339_ _y135340_) - (eqv? (gx#stx-e _x135339_) (gx#stx-e _y135340_)))) + (lambda (_x136686_ _y136687_) + (eqv? (gx#stx-e _x136686_) (gx#stx-e _y136687_)))) (define gx#stx-equal? - (lambda (_x135336_ _y135337_) - (equal? (gx#stx-e _x135336_) (gx#stx-e _y135337_)))) - (define gx#stx-false? (lambda (_x135334_) (not (gx#stx-e _x135334_)))) + (lambda (_x136683_ _y136684_) + (equal? (gx#stx-e _x136683_) (gx#stx-e _y136684_)))) + (define gx#stx-false? (lambda (_x136681_) (not (gx#stx-e _x136681_)))) (define gx#stx-identifier - (lambda (_template135331_ . _args135332_) + (lambda (_template136678_ . _args136679_) (gx#datum->syntax__1 - _template135331_ - (apply make-symbol (gx#syntax->datum _args135332_)) - (gx#stx-source _template135331_)))) + _template136678_ + (apply make-symbol (gx#syntax->datum _args136679_)) + (gx#stx-source _template136678_)))) (define gx#stx-identifier-marks - (lambda (_stx135329_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx135329_)))) + (lambda (_stx136676_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx136676_)))) (define gx#stx-identifier-marks* - (lambda (_stx135327_) + (lambda (_stx136674_) (if (##structure-direct-instance-of? - _stx135327_ + _stx136674_ 'gx#identifier-wrap::t) (##unchecked-structure-ref - _stx135327_ + _stx136674_ '3 gx#identifier-wrap::t '#f) (if (##structure-direct-instance-of? - _stx135327_ + _stx136674_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _stx135327_ + _stx136674_ '4 gx#syntax-quote::t '#f) (error '"Bad wrap; expected unwrapped identifier" - _stx135327_))))) + _stx136674_))))) (define gx#stx-identifier-context - (lambda (_stx135323_) - (let ((_stx135325_ (gx#stx-unwrap__0 _stx135323_))) - (if (gx#identifier-quote? _stx135325_) - (##unchecked-structure-ref _stx135325_ '3 gx#syntax-quote::t '#f) + (lambda (_stx136670_) + (let ((_stx136672_ (gx#stx-unwrap__0 _stx136670_))) + (if (gx#identifier-quote? _stx136672_) + (##unchecked-structure-ref _stx136672_ '3 gx#syntax-quote::t '#f) '#f)))) (define gx#identifier-list? - (lambda (_stx135278_) - (let* ((_g135279135289_ (gx#stx-e _stx135278_)) - (_else135282135297_ (lambda () '#f))) - (let ((_K135285135311_ - (lambda (_rest135308_ _hd135309_) - (if (gx#identifier? _hd135309_) - (gx#identifier-list? _rest135308_) + (lambda (_stx136625_) + (let* ((_g136626136636_ (gx#stx-e _stx136625_)) + (_else136629136644_ (lambda () '#f))) + (let ((_K136632136658_ + (lambda (_rest136655_ _hd136656_) + (if (gx#identifier? _hd136656_) + (gx#identifier-list? _rest136655_) '#f))) - (_K135284135302_ (lambda () '#t))) - (let ((_try-match135281135305_ + (_K136631136649_ (lambda () '#t))) + (let ((_try-match136628136652_ (lambda () - (if (##null? _g135279135289_) - (_K135284135302_) - (_else135282135297_))))) - (if (##pair? _g135279135289_) - (let ((_tl135287135316_ (##cdr _g135279135289_)) - (_hd135286135314_ (##car _g135279135289_))) - (let ((_hd135319_ _hd135286135314_) - (_rest135321_ _tl135287135316_)) - (_K135285135311_ _rest135321_ _hd135319_))) - (_try-match135281135305_))))))) + (if (##null? _g136626136636_) + (_K136631136649_) + (_else136629136644_))))) + (if (##pair? _g136626136636_) + (let ((_tl136634136663_ (##cdr _g136626136636_)) + (_hd136633136661_ (##car _g136626136636_))) + (let ((_hd136666_ _hd136633136661_) + (_rest136668_ _tl136634136663_)) + (_K136632136658_ _rest136668_ _hd136666_))) + (_try-match136628136652_))))))) (define gx#genident__% - (lambda (_e135255_ _src135256_) + (lambda (_e136602_ _src136603_) (gx#stx-wrap-source - (gensym (let ((_e135258_ (gx#stx-e _e135255_))) - (if (interned-symbol? _e135258_) _e135258_ 'g))) - (let ((_$e135260_ (gx#stx-source _e135255_))) - (if _$e135260_ _$e135260_ _src135256_))))) + (gensym (let ((_e136605_ (gx#stx-e _e136602_))) + (if (interned-symbol? _e136605_) _e136605_ 'g))) + (let ((_$e136607_ (gx#stx-source _e136602_))) + (if _$e136607_ _$e136607_ _src136603_))))) (define gx#genident__0 (lambda () - (let* ((_e135267_ 'g) (_src135269_ '#f)) - (gx#genident__% _e135267_ _src135269_)))) + (let* ((_e136614_ 'g) (_src136616_ '#f)) + (gx#genident__% _e136614_ _src136616_)))) (define gx#genident__1 - (lambda (_e135271_) - (let ((_src135273_ '#f)) (gx#genident__% _e135271_ _src135273_)))) + (lambda (_e136618_) + (let ((_src136620_ '#f)) (gx#genident__% _e136618_ _src136620_)))) (define gx#genident - (lambda _g140158_ - (let ((_g140157_ (##length _g140158_))) - (cond ((##fx= _g140157_ 0) - (apply (lambda () (gx#genident__0)) _g140158_)) - ((##fx= _g140157_ 1) - (apply (lambda (_e135271_) (gx#genident__1 _e135271_)) - _g140158_)) - ((##fx= _g140157_ 2) - (apply (lambda (_e135275_ _src135276_) - (gx#genident__% _e135275_ _src135276_)) - _g140158_)) + (lambda _g141605_ + (let ((_g141604_ (##length _g141605_))) + (cond ((##fx= _g141604_ 0) + (apply (lambda () (gx#genident__0)) _g141605_)) + ((##fx= _g141604_ 1) + (apply (lambda (_e136618_) (gx#genident__1 _e136618_)) + _g141605_)) + ((##fx= _g141604_ 2) + (apply (lambda (_e136622_ _src136623_) + (gx#genident__% _e136622_ _src136623_)) + _g141605_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g140158_)))))) + _g141605_)))))) (define gx#gentemps - (lambda (_stx-lst135252_) (gx#stx-map1 gx#genident _stx-lst135252_))) + (lambda (_stx-lst136599_) (gx#stx-map1 gx#genident _stx-lst136599_))) (define gx#syntax->list - (lambda (_stx135250_) (gx#stx-map1 values _stx135250_))) + (lambda (_stx136597_) (gx#stx-map1 values _stx136597_))) (define gx#stx-car - (lambda (_stx135247_) + (lambda (_stx136594_) (declare (safe)) - (car (let () (declare (not safe)) (gx#syntax-e _stx135247_))))) + (car (let () (declare (not safe)) (gx#syntax-e _stx136594_))))) (define gx#stx-cdr - (lambda (_stx135244_) + (lambda (_stx136591_) (declare (safe)) - (cdr (let () (declare (not safe)) (gx#syntax-e _stx135244_))))) + (cdr (let () (declare (not safe)) (gx#syntax-e _stx136591_))))) (define gx#stx-length - (lambda (_stx135209_) - (let _lp135211_ ((_rest135213_ _stx135209_) (_n135214_ '0)) - (let* ((_g135215135223_ (gx#stx-e _rest135213_)) - (_else135217135231_ (lambda () _n135214_)) - (_K135219135236_ - (lambda (_rest135234_) - (_lp135211_ _rest135234_ (fx+ _n135214_ '1))))) - (if (##pair? _g135215135223_) - (let* ((_tl135221135239_ (##cdr _g135215135223_)) - (_rest135242_ _tl135221135239_)) - (_K135219135236_ _rest135242_)) - (_else135217135231_)))))) + (lambda (_stx136556_) + (let _lp136558_ ((_rest136560_ _stx136556_) (_n136561_ '0)) + (let* ((_g136562136570_ (gx#stx-e _rest136560_)) + (_else136564136578_ (lambda () _n136561_)) + (_K136566136583_ + (lambda (_rest136581_) + (_lp136558_ _rest136581_ (fx+ _n136561_ '1))))) + (if (##pair? _g136562136570_) + (let* ((_tl136568136586_ (##cdr _g136562136570_)) + (_rest136589_ _tl136568136586_)) + (_K136566136583_ _rest136589_)) + (_else136564136578_)))))) (define gx#stx-for-each - (lambda _g140160_ - (let ((_g140159_ (##length _g140160_))) - (cond ((##fx= _g140159_ 2) - (apply (lambda (_f135202_ _stx135203_) - (gx#stx-for-each1 _f135202_ _stx135203_)) - _g140160_)) - ((##fx= _g140159_ 3) - (apply (lambda (_f135205_ _xstx135206_ _ystx135207_) + (lambda _g141607_ + (let ((_g141606_ (##length _g141607_))) + (cond ((##fx= _g141606_ 2) + (apply (lambda (_f136549_ _stx136550_) + (gx#stx-for-each1 _f136549_ _stx136550_)) + _g141607_)) + ((##fx= _g141606_ 3) + (apply (lambda (_f136552_ _xstx136553_ _ystx136554_) (gx#stx-for-each2 - _f135205_ - _xstx135206_ - _ystx135207_)) - _g140160_)) + _f136552_ + _xstx136553_ + _ystx136554_)) + _g141607_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g140160_)))))) + _g141607_)))))) (define gx#stx-for-each1 - (lambda (_f135152_ _stx135153_) - (if (procedure? _f135152_) + (lambda (_f136499_ _stx136500_) + (if (procedure? _f136499_) '#!void - (error '"expected procedure" _f135152_)) - (let _lp135155_ ((_rest135157_ _stx135153_)) - (let* ((_g135158135168_ (gx#syntax-e _rest135157_)) - (_else135161135176_ (lambda () (_f135152_ _rest135157_)))) - (let ((_K135164135190_ - (lambda (_rest135187_ _hd135188_) - (_f135152_ _hd135188_) - (_lp135155_ _rest135187_))) - (_K135163135181_ (lambda () '#!void))) - (let ((_try-match135160135184_ + (error '"expected procedure" _f136499_)) + (let _lp136502_ ((_rest136504_ _stx136500_)) + (let* ((_g136505136515_ (gx#syntax-e _rest136504_)) + (_else136508136523_ (lambda () (_f136499_ _rest136504_)))) + (let ((_K136511136537_ + (lambda (_rest136534_ _hd136535_) + (_f136499_ _hd136535_) + (_lp136502_ _rest136534_))) + (_K136510136528_ (lambda () '#!void))) + (let ((_try-match136507136531_ (lambda () - (if (##null? _g135158135168_) - (_K135163135181_) - (_else135161135176_))))) - (if (##pair? _g135158135168_) - (let ((_tl135166135195_ (##cdr _g135158135168_)) - (_hd135165135193_ (##car _g135158135168_))) - (let ((_hd135198_ _hd135165135193_) - (_rest135200_ _tl135166135195_)) - (_K135164135190_ _rest135200_ _hd135198_))) - (_try-match135160135184_)))))))) + (if (##null? _g136505136515_) + (_K136510136528_) + (_else136508136523_))))) + (if (##pair? _g136505136515_) + (let ((_tl136513136542_ (##cdr _g136505136515_)) + (_hd136512136540_ (##car _g136505136515_))) + (let ((_hd136545_ _hd136512136540_) + (_rest136547_ _tl136513136542_)) + (_K136511136537_ _rest136547_ _hd136545_))) + (_try-match136507136531_)))))))) (define gx#stx-for-each2 - (lambda (_f135057_ _xstx135058_ _ystx135059_) - (if (procedure? _f135057_) + (lambda (_f136404_ _xstx136405_ _ystx136406_) + (if (procedure? _f136404_) '#!void - (error '"expected procedure" _f135057_)) - (let _lp135061_ ((_xrest135063_ _xstx135058_) - (_yrest135064_ _ystx135059_)) - (let* ((_g135065135075_ (gx#syntax-e _xrest135063_)) - (_else135068135083_ (lambda () '#!void))) - (let ((_K135071135140_ - (lambda (_xrest135109_ _xhd135110_) - (let* ((_g135111135118_ (gx#syntax-e _yrest135064_)) - (_E135113135122_ + (error '"expected procedure" _f136404_)) + (let _lp136408_ ((_xrest136410_ _xstx136405_) + (_yrest136411_ _ystx136406_)) + (let* ((_g136412136422_ (gx#syntax-e _xrest136410_)) + (_else136415136430_ (lambda () '#!void))) + (let ((_K136418136487_ + (lambda (_xrest136456_ _xhd136457_) + (let* ((_g136458136465_ (gx#syntax-e _yrest136411_)) + (_E136460136469_ (lambda () - (error '"No clause matching" _g135111135118_))) - (_K135114135128_ - (lambda (_yrest135125_ _yhd135126_) - (_f135057_ _xhd135110_ _yhd135126_) - (_lp135061_ _xrest135109_ _yrest135125_)))) - (if (##pair? _g135111135118_) - (let ((_hd135115135131_ (##car _g135111135118_)) - (_tl135116135133_ (##cdr _g135111135118_))) - (let* ((_yhd135136_ _hd135115135131_) - (_yrest135138_ _tl135116135133_)) - (_K135114135128_ _yrest135138_ _yhd135136_))) - (_E135113135122_))))) - (_K135070135103_ + (error '"No clause matching" _g136458136465_))) + (_K136461136475_ + (lambda (_yrest136472_ _yhd136473_) + (_f136404_ _xhd136457_ _yhd136473_) + (_lp136408_ _xrest136456_ _yrest136472_)))) + (if (##pair? _g136458136465_) + (let ((_hd136462136478_ (##car _g136458136465_)) + (_tl136463136480_ (##cdr _g136458136465_))) + (let* ((_yhd136483_ _hd136462136478_) + (_yrest136485_ _tl136463136480_)) + (_K136461136475_ _yrest136485_ _yhd136483_))) + (_E136460136469_))))) + (_K136417136450_ (lambda () - (let* ((_yrest135087135092_ _yrest135064_) - (_E135089135096_ + (let* ((_yrest136434136439_ _yrest136411_) + (_E136436136443_ (lambda () (error '"No clause matching" - _yrest135087135092_))) - (_K135090135100_ + _yrest136434136439_))) + (_K136437136447_ (lambda () - (_f135057_ _xrest135063_ _yrest135064_)))) - (if (not (gx#stx-null? _yrest135087135092_)) - (_K135090135100_) - (_E135089135096_)))))) - (let ((_try-match135067135106_ + (_f136404_ _xrest136410_ _yrest136411_)))) + (if (not (gx#stx-null? _yrest136434136439_)) + (_K136437136447_) + (_E136436136443_)))))) + (let ((_try-match136414136453_ (lambda () - (if (not (null? _g135065135075_)) - (_K135070135103_) - (_else135068135083_))))) - (if (##pair? _g135065135075_) - (let ((_tl135073135145_ (##cdr _g135065135075_)) - (_hd135072135143_ (##car _g135065135075_))) - (let ((_xhd135148_ _hd135072135143_) - (_xrest135150_ _tl135073135145_)) - (_K135071135140_ _xrest135150_ _xhd135148_))) - (_try-match135067135106_)))))))) + (if (not (null? _g136412136422_)) + (_K136417136450_) + (_else136415136430_))))) + (if (##pair? _g136412136422_) + (let ((_tl136420136492_ (##cdr _g136412136422_)) + (_hd136419136490_ (##car _g136412136422_))) + (let ((_xhd136495_ _hd136419136490_) + (_xrest136497_ _tl136420136492_)) + (_K136418136487_ _xrest136497_ _xhd136495_))) + (_try-match136414136453_)))))))) (define gx#stx-map - (lambda _g140162_ - (let ((_g140161_ (##length _g140162_))) - (cond ((##fx= _g140161_ 2) - (apply (lambda (_f135050_ _stx135051_) - (gx#stx-map1 _f135050_ _stx135051_)) - _g140162_)) - ((##fx= _g140161_ 3) - (apply (lambda (_f135053_ _xstx135054_ _ystx135055_) - (gx#stx-map2 _f135053_ _xstx135054_ _ystx135055_)) - _g140162_)) + (lambda _g141609_ + (let ((_g141608_ (##length _g141609_))) + (cond ((##fx= _g141608_ 2) + (apply (lambda (_f136397_ _stx136398_) + (gx#stx-map1 _f136397_ _stx136398_)) + _g141609_)) + ((##fx= _g141608_ 3) + (apply (lambda (_f136400_ _xstx136401_ _ystx136402_) + (gx#stx-map2 _f136400_ _xstx136401_ _ystx136402_)) + _g141609_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g140162_)))))) + _g141609_)))))) (define gx#stx-map1 - (lambda (_f135000_ _stx135001_) - (if (procedure? _f135000_) + (lambda (_f136347_ _stx136348_) + (if (procedure? _f136347_) '#!void - (error '"expected procedure" _f135000_)) - (let _recur135003_ ((_rest135005_ _stx135001_)) - (let* ((_g135006135016_ (gx#syntax-e _rest135005_)) - (_else135009135024_ (lambda () (_f135000_ _rest135005_)))) - (let ((_K135012135038_ - (lambda (_rest135035_ _hd135036_) - (cons (_f135000_ _hd135036_) - (_recur135003_ _rest135035_)))) - (_K135011135029_ (lambda () '()))) - (let ((_try-match135008135032_ + (error '"expected procedure" _f136347_)) + (let _recur136350_ ((_rest136352_ _stx136348_)) + (let* ((_g136353136363_ (gx#syntax-e _rest136352_)) + (_else136356136371_ (lambda () (_f136347_ _rest136352_)))) + (let ((_K136359136385_ + (lambda (_rest136382_ _hd136383_) + (cons (_f136347_ _hd136383_) + (_recur136350_ _rest136382_)))) + (_K136358136376_ (lambda () '()))) + (let ((_try-match136355136379_ (lambda () - (if (##null? _g135006135016_) - (_K135011135029_) - (_else135009135024_))))) - (if (##pair? _g135006135016_) - (let ((_tl135014135043_ (##cdr _g135006135016_)) - (_hd135013135041_ (##car _g135006135016_))) - (let ((_hd135046_ _hd135013135041_) - (_rest135048_ _tl135014135043_)) - (_K135012135038_ _rest135048_ _hd135046_))) - (_try-match135008135032_)))))))) + (if (##null? _g136353136363_) + (_K136358136376_) + (_else136356136371_))))) + (if (##pair? _g136353136363_) + (let ((_tl136361136390_ (##cdr _g136353136363_)) + (_hd136360136388_ (##car _g136353136363_))) + (let ((_hd136393_ _hd136360136388_) + (_rest136395_ _tl136361136390_)) + (_K136359136385_ _rest136395_ _hd136393_))) + (_try-match136355136379_)))))))) (define gx#stx-map2 - (lambda (_f134905_ _xstx134906_ _ystx134907_) - (if (procedure? _f134905_) + (lambda (_f136252_ _xstx136253_ _ystx136254_) + (if (procedure? _f136252_) '#!void - (error '"expected procedure" _f134905_)) - (let _recur134909_ ((_xrest134911_ _xstx134906_) - (_yrest134912_ _ystx134907_)) - (let* ((_g134913134923_ (gx#syntax-e _xrest134911_)) - (_else134916134931_ (lambda () '()))) - (let ((_K134919134988_ - (lambda (_xrest134957_ _xhd134958_) - (let* ((_g134959134966_ (gx#syntax-e _yrest134912_)) - (_E134961134970_ + (error '"expected procedure" _f136252_)) + (let _recur136256_ ((_xrest136258_ _xstx136253_) + (_yrest136259_ _ystx136254_)) + (let* ((_g136260136270_ (gx#syntax-e _xrest136258_)) + (_else136263136278_ (lambda () '()))) + (let ((_K136266136335_ + (lambda (_xrest136304_ _xhd136305_) + (let* ((_g136306136313_ (gx#syntax-e _yrest136259_)) + (_E136308136317_ (lambda () - (error '"No clause matching" _g134959134966_))) - (_K134962134976_ - (lambda (_yrest134973_ _yhd134974_) - (cons (_f134905_ _xhd134958_ _yhd134974_) - (_recur134909_ - _xrest134957_ - _yrest134973_))))) - (if (##pair? _g134959134966_) - (let ((_hd134963134979_ (##car _g134959134966_)) - (_tl134964134981_ (##cdr _g134959134966_))) - (let* ((_yhd134984_ _hd134963134979_) - (_yrest134986_ _tl134964134981_)) - (_K134962134976_ _yrest134986_ _yhd134984_))) - (_E134961134970_))))) - (_K134918134951_ + (error '"No clause matching" _g136306136313_))) + (_K136309136323_ + (lambda (_yrest136320_ _yhd136321_) + (cons (_f136252_ _xhd136305_ _yhd136321_) + (_recur136256_ + _xrest136304_ + _yrest136320_))))) + (if (##pair? _g136306136313_) + (let ((_hd136310136326_ (##car _g136306136313_)) + (_tl136311136328_ (##cdr _g136306136313_))) + (let* ((_yhd136331_ _hd136310136326_) + (_yrest136333_ _tl136311136328_)) + (_K136309136323_ _yrest136333_ _yhd136331_))) + (_E136308136317_))))) + (_K136265136298_ (lambda () - (let* ((_yrest134935134940_ _yrest134912_) - (_E134937134944_ + (let* ((_yrest136282136287_ _yrest136259_) + (_E136284136291_ (lambda () (error '"No clause matching" - _yrest134935134940_))) - (_K134938134948_ + _yrest136282136287_))) + (_K136285136295_ (lambda () - (_f134905_ _xrest134911_ _yrest134912_)))) - (if (not (gx#stx-null? _yrest134935134940_)) - (_K134938134948_) - (_E134937134944_)))))) - (let ((_try-match134915134954_ + (_f136252_ _xrest136258_ _yrest136259_)))) + (if (not (gx#stx-null? _yrest136282136287_)) + (_K136285136295_) + (_E136284136291_)))))) + (let ((_try-match136262136301_ (lambda () - (if (not (null? _g134913134923_)) - (_K134918134951_) - (_else134916134931_))))) - (if (##pair? _g134913134923_) - (let ((_tl134921134993_ (##cdr _g134913134923_)) - (_hd134920134991_ (##car _g134913134923_))) - (let ((_xhd134996_ _hd134920134991_) - (_xrest134998_ _tl134921134993_)) - (_K134919134988_ _xrest134998_ _xhd134996_))) - (_try-match134915134954_)))))))) + (if (not (null? _g136260136270_)) + (_K136265136298_) + (_else136263136278_))))) + (if (##pair? _g136260136270_) + (let ((_tl136268136340_ (##cdr _g136260136270_)) + (_hd136267136338_ (##car _g136260136270_))) + (let ((_xhd136343_ _hd136267136338_) + (_xrest136345_ _tl136268136340_)) + (_K136266136335_ _xrest136345_ _xhd136343_))) + (_try-match136262136301_)))))))) (define gx#stx-andmap - (lambda (_f134855_ _stx134856_) - (if (procedure? _f134855_) + (lambda (_f136202_ _stx136203_) + (if (procedure? _f136202_) '#!void - (error '"expected procedure" _f134855_)) - (let _lp134858_ ((_rest134860_ _stx134856_)) - (let* ((_g134861134871_ (gx#syntax-e _rest134860_)) - (_else134864134879_ (lambda () (_f134855_ _rest134860_)))) - (let ((_K134867134893_ - (lambda (_rest134890_ _hd134891_) - (if (_f134855_ _hd134891_) - (_lp134858_ _rest134890_) + (error '"expected procedure" _f136202_)) + (let _lp136205_ ((_rest136207_ _stx136203_)) + (let* ((_g136208136218_ (gx#syntax-e _rest136207_)) + (_else136211136226_ (lambda () (_f136202_ _rest136207_)))) + (let ((_K136214136240_ + (lambda (_rest136237_ _hd136238_) + (if (_f136202_ _hd136238_) + (_lp136205_ _rest136237_) '#f))) - (_K134866134884_ (lambda () '#t))) - (let ((_try-match134863134887_ + (_K136213136231_ (lambda () '#t))) + (let ((_try-match136210136234_ (lambda () - (if (##null? _g134861134871_) - (_K134866134884_) - (_else134864134879_))))) - (if (##pair? _g134861134871_) - (let ((_tl134869134898_ (##cdr _g134861134871_)) - (_hd134868134896_ (##car _g134861134871_))) - (let ((_hd134901_ _hd134868134896_) - (_rest134903_ _tl134869134898_)) - (_K134867134893_ _rest134903_ _hd134901_))) - (_try-match134863134887_)))))))) + (if (##null? _g136208136218_) + (_K136213136231_) + (_else136211136226_))))) + (if (##pair? _g136208136218_) + (let ((_tl136216136245_ (##cdr _g136208136218_)) + (_hd136215136243_ (##car _g136208136218_))) + (let ((_hd136248_ _hd136215136243_) + (_rest136250_ _tl136216136245_)) + (_K136214136240_ _rest136250_ _hd136248_))) + (_try-match136210136234_)))))))) (define gx#stx-ormap - (lambda (_f134802_ _stx134803_) - (if (procedure? _f134802_) + (lambda (_f136149_ _stx136150_) + (if (procedure? _f136149_) '#!void - (error '"expected procedure" _f134802_)) - (let _lp134805_ ((_rest134807_ _stx134803_)) - (let* ((_g134808134818_ (gx#syntax-e _rest134807_)) - (_else134811134826_ (lambda () (_f134802_ _rest134807_)))) - (let ((_K134814134843_ - (lambda (_rest134837_ _hd134838_) - (let ((_$e134840_ (_f134802_ _hd134838_))) - (if _$e134840_ _$e134840_ (_lp134805_ _rest134837_))))) - (_K134813134831_ (lambda () '#f))) - (let ((_try-match134810134834_ + (error '"expected procedure" _f136149_)) + (let _lp136152_ ((_rest136154_ _stx136150_)) + (let* ((_g136155136165_ (gx#syntax-e _rest136154_)) + (_else136158136173_ (lambda () (_f136149_ _rest136154_)))) + (let ((_K136161136190_ + (lambda (_rest136184_ _hd136185_) + (let ((_$e136187_ (_f136149_ _hd136185_))) + (if _$e136187_ _$e136187_ (_lp136152_ _rest136184_))))) + (_K136160136178_ (lambda () '#f))) + (let ((_try-match136157136181_ (lambda () - (if (##null? _g134808134818_) - (_K134813134831_) - (_else134811134826_))))) - (if (##pair? _g134808134818_) - (let ((_tl134816134848_ (##cdr _g134808134818_)) - (_hd134815134846_ (##car _g134808134818_))) - (let ((_hd134851_ _hd134815134846_) - (_rest134853_ _tl134816134848_)) - (_K134814134843_ _rest134853_ _hd134851_))) - (_try-match134810134834_)))))))) + (if (##null? _g136155136165_) + (_K136160136178_) + (_else136158136173_))))) + (if (##pair? _g136155136165_) + (let ((_tl136163136195_ (##cdr _g136155136165_)) + (_hd136162136193_ (##car _g136155136165_))) + (let ((_hd136198_ _hd136162136193_) + (_rest136200_ _tl136163136195_)) + (_K136161136190_ _rest136200_ _hd136198_))) + (_try-match136157136181_)))))))) (define gx#stx-foldl - (lambda (_f134750_ _iv134751_ _stx134752_) - (if (procedure? _f134750_) + (lambda (_f136097_ _iv136098_ _stx136099_) + (if (procedure? _f136097_) '#!void - (error '"expected procedure" _f134750_)) - (let _lp134754_ ((_r134756_ _iv134751_) (_rest134757_ _stx134752_)) - (let* ((_g134758134768_ (gx#syntax-e _rest134757_)) - (_else134761134776_ - (lambda () (_f134750_ _rest134757_ _r134756_)))) - (let ((_K134764134790_ - (lambda (_rest134787_ _hd134788_) - (_lp134754_ - (_f134750_ _hd134788_ _r134756_) - _rest134787_))) - (_K134763134781_ (lambda () _r134756_))) - (let ((_try-match134760134784_ + (error '"expected procedure" _f136097_)) + (let _lp136101_ ((_r136103_ _iv136098_) (_rest136104_ _stx136099_)) + (let* ((_g136105136115_ (gx#syntax-e _rest136104_)) + (_else136108136123_ + (lambda () (_f136097_ _rest136104_ _r136103_)))) + (let ((_K136111136137_ + (lambda (_rest136134_ _hd136135_) + (_lp136101_ + (_f136097_ _hd136135_ _r136103_) + _rest136134_))) + (_K136110136128_ (lambda () _r136103_))) + (let ((_try-match136107136131_ (lambda () - (if (##null? _g134758134768_) - (_K134763134781_) - (_else134761134776_))))) - (if (##pair? _g134758134768_) - (let ((_tl134766134795_ (##cdr _g134758134768_)) - (_hd134765134793_ (##car _g134758134768_))) - (let ((_hd134798_ _hd134765134793_) - (_rest134800_ _tl134766134795_)) - (_K134764134790_ _rest134800_ _hd134798_))) - (_try-match134760134784_)))))))) + (if (##null? _g136105136115_) + (_K136110136128_) + (_else136108136123_))))) + (if (##pair? _g136105136115_) + (let ((_tl136113136142_ (##cdr _g136105136115_)) + (_hd136112136140_ (##car _g136105136115_))) + (let ((_hd136145_ _hd136112136140_) + (_rest136147_ _tl136113136142_)) + (_K136111136137_ _rest136147_ _hd136145_))) + (_try-match136107136131_)))))))) (define gx#stx-foldr - (lambda (_f134699_ _iv134700_ _stx134701_) - (if (procedure? _f134699_) + (lambda (_f136046_ _iv136047_ _stx136048_) + (if (procedure? _f136046_) '#!void - (error '"expected procedure" _f134699_)) - (let _recur134703_ ((_rest134705_ _stx134701_)) - (let* ((_g134706134716_ (gx#syntax-e _rest134705_)) - (_else134709134724_ - (lambda () (_f134699_ _rest134705_ _iv134700_)))) - (let ((_K134712134738_ - (lambda (_rest134735_ _hd134736_) - (_f134699_ _hd134736_ (_recur134703_ _rest134735_)))) - (_K134711134729_ (lambda () _iv134700_))) - (let ((_try-match134708134732_ + (error '"expected procedure" _f136046_)) + (let _recur136050_ ((_rest136052_ _stx136048_)) + (let* ((_g136053136063_ (gx#syntax-e _rest136052_)) + (_else136056136071_ + (lambda () (_f136046_ _rest136052_ _iv136047_)))) + (let ((_K136059136085_ + (lambda (_rest136082_ _hd136083_) + (_f136046_ _hd136083_ (_recur136050_ _rest136082_)))) + (_K136058136076_ (lambda () _iv136047_))) + (let ((_try-match136055136079_ (lambda () - (if (##null? _g134706134716_) - (_K134711134729_) - (_else134709134724_))))) - (if (##pair? _g134706134716_) - (let ((_tl134714134743_ (##cdr _g134706134716_)) - (_hd134713134741_ (##car _g134706134716_))) - (let ((_hd134746_ _hd134713134741_) - (_rest134748_ _tl134714134743_)) - (_K134712134738_ _rest134748_ _hd134746_))) - (_try-match134708134732_)))))))) + (if (##null? _g136053136063_) + (_K136058136076_) + (_else136056136071_))))) + (if (##pair? _g136053136063_) + (let ((_tl136061136090_ (##cdr _g136053136063_)) + (_hd136060136088_ (##car _g136053136063_))) + (let ((_hd136093_ _hd136060136088_) + (_rest136095_ _tl136061136090_)) + (_K136059136085_ _rest136095_ _hd136093_))) + (_try-match136055136079_)))))))) (define gx#stx-reverse - (lambda (_stx134697_) (gx#stx-foldl cons '() _stx134697_))) + (lambda (_stx136044_) (gx#stx-foldl cons '() _stx136044_))) (define gx#stx-last - (lambda (_stx134658_) - (let _lp134660_ ((_rest134662_ _stx134658_)) - (let* ((_g134663134671_ (gx#syntax-e _rest134662_)) - (_else134665134679_ (lambda () _rest134662_)) - (_K134667134685_ - (lambda (_rest134682_ _hd134683_) - (if (gx#stx-null? _rest134682_) - _hd134683_ - (_lp134660_ _rest134682_))))) - (if (##pair? _g134663134671_) - (let ((_hd134668134688_ (##car _g134663134671_)) - (_tl134669134690_ (##cdr _g134663134671_))) - (let* ((_hd134693_ _hd134668134688_) - (_rest134695_ _tl134669134690_)) - (_K134667134685_ _rest134695_ _hd134693_))) - (_else134665134679_)))))) + (lambda (_stx136005_) + (let _lp136007_ ((_rest136009_ _stx136005_)) + (let* ((_g136010136018_ (gx#syntax-e _rest136009_)) + (_else136012136026_ (lambda () _rest136009_)) + (_K136014136032_ + (lambda (_rest136029_ _hd136030_) + (if (gx#stx-null? _rest136029_) + _hd136030_ + (_lp136007_ _rest136029_))))) + (if (##pair? _g136010136018_) + (let ((_hd136015136035_ (##car _g136010136018_)) + (_tl136016136037_ (##cdr _g136010136018_))) + (let* ((_hd136040_ _hd136015136035_) + (_rest136042_ _tl136016136037_)) + (_K136014136032_ _rest136042_ _hd136040_))) + (_else136012136026_)))))) (define gx#stx-last-pair - (lambda (_stx134629_) - (let _lp134631_ ((_hd134633_ _stx134629_)) - (let* ((_g134634134641_ (gx#syntax-e _hd134633_)) - (_E134636134645_ - (lambda () (error '"No clause matching" _g134634134641_))) - (_K134637134650_ - (lambda (_rest134648_) - (if (gx#stx-pair? _rest134648_) - (_lp134631_ _rest134648_) - _hd134633_)))) - (if (##pair? _g134634134641_) - (let* ((_tl134639134653_ (##cdr _g134634134641_)) - (_rest134656_ _tl134639134653_)) - (_K134637134650_ _rest134656_)) - (_E134636134645_)))))) + (lambda (_stx135976_) + (let _lp135978_ ((_hd135980_ _stx135976_)) + (let* ((_g135981135988_ (gx#syntax-e _hd135980_)) + (_E135983135992_ + (lambda () (error '"No clause matching" _g135981135988_))) + (_K135984135997_ + (lambda (_rest135995_) + (if (gx#stx-pair? _rest135995_) + (_lp135978_ _rest135995_) + _hd135980_)))) + (if (##pair? _g135981135988_) + (let* ((_tl135986136000_ (##cdr _g135981135988_)) + (_rest136003_ _tl135986136000_)) + (_K135984135997_ _rest136003_)) + (_E135983135992_)))))) (define gx#stx-list-tail - (lambda (_stx134598_ _k134599_) - (let _lp134601_ ((_rest134603_ _stx134598_) (_k134604_ _k134599_)) - (if (fxpositive? _k134604_) - (let* ((_g134605134612_ (gx#syntax-e _rest134603_)) - (_E134607134616_ + (lambda (_stx135945_ _k135946_) + (let _lp135948_ ((_rest135950_ _stx135945_) (_k135951_ _k135946_)) + (if (fxpositive? _k135951_) + (let* ((_g135952135959_ (gx#syntax-e _rest135950_)) + (_E135954135963_ (lambda () - (error '"No clause matching" _g134605134612_))) - (_K134608134621_ - (lambda (_rest134619_) - (_lp134601_ _rest134619_ (fx- _k134604_ '1))))) - (if (##pair? _g134605134612_) - (let* ((_tl134610134624_ (##cdr _g134605134612_)) - (_rest134627_ _tl134610134624_)) - (_K134608134621_ _rest134627_)) - (_E134607134616_))) - _rest134603_)))) + (error '"No clause matching" _g135952135959_))) + (_K135955135968_ + (lambda (_rest135966_) + (_lp135948_ _rest135966_ (fx- _k135951_ '1))))) + (if (##pair? _g135952135959_) + (let* ((_tl135957135971_ (##cdr _g135952135959_)) + (_rest135974_ _tl135957135971_)) + (_K135955135968_ _rest135974_)) + (_E135954135963_))) + _rest135950_)))) (define gx#stx-list-ref - (lambda (_stx134595_ _k134596_) - (gx#stx-car (gx#stx-list-tail _stx134595_ _k134596_)))) + (lambda (_stx135942_ _k135943_) + (gx#stx-car (gx#stx-list-tail _stx135942_ _k135943_)))) (define gx#stx-plist?__% - (lambda (_stx134507_ _key?134508_) - (if (procedure? _key?134508_) + (lambda (_stx135854_ _key?135855_) + (if (procedure? _key?135855_) '#!void - (error '"expected procedure" _key?134508_)) - (let _lp134510_ ((_rest134512_ _stx134507_)) - (let* ((_g134513134523_ (gx#stx-e _rest134512_)) - (_else134516134531_ (lambda () '#f))) - (let ((_K134519134573_ - (lambda (_rest134542_ _hd134543_) - (if (_key?134508_ _hd134543_) - (let* ((_g134544134552_ (gx#stx-e _rest134542_)) - (_else134546134560_ (lambda () '#f)) - (_K134548134565_ - (lambda (_rest134563_) - (_lp134510_ _rest134563_)))) - (if (##pair? _g134544134552_) - (let* ((_tl134550134568_ - (##cdr _g134544134552_)) - (_rest134571_ _tl134550134568_)) - (_lp134510_ _rest134571_)) - (_else134546134560_))) + (error '"expected procedure" _key?135855_)) + (let _lp135857_ ((_rest135859_ _stx135854_)) + (let* ((_g135860135870_ (gx#stx-e _rest135859_)) + (_else135863135878_ (lambda () '#f))) + (let ((_K135866135920_ + (lambda (_rest135889_ _hd135890_) + (if (_key?135855_ _hd135890_) + (let* ((_g135891135899_ (gx#stx-e _rest135889_)) + (_else135893135907_ (lambda () '#f)) + (_K135895135912_ + (lambda (_rest135910_) + (_lp135857_ _rest135910_)))) + (if (##pair? _g135891135899_) + (let* ((_tl135897135915_ + (##cdr _g135891135899_)) + (_rest135918_ _tl135897135915_)) + (_lp135857_ _rest135918_)) + (_else135893135907_))) '#f))) - (_K134518134536_ (lambda () '#t))) - (let ((_try-match134515134539_ + (_K135865135883_ (lambda () '#t))) + (let ((_try-match135862135886_ (lambda () - (if (##null? _g134513134523_) - (_K134518134536_) - (_else134516134531_))))) - (if (##pair? _g134513134523_) - (let ((_tl134521134578_ (##cdr _g134513134523_)) - (_hd134520134576_ (##car _g134513134523_))) - (let ((_hd134581_ _hd134520134576_) - (_rest134583_ _tl134521134578_)) - (_K134519134573_ _rest134583_ _hd134581_))) - (_try-match134515134539_)))))))) + (if (##null? _g135860135870_) + (_K135865135883_) + (_else135863135878_))))) + (if (##pair? _g135860135870_) + (let ((_tl135868135925_ (##cdr _g135860135870_)) + (_hd135867135923_ (##car _g135860135870_))) + (let ((_hd135928_ _hd135867135923_) + (_rest135930_ _tl135868135925_)) + (_K135866135920_ _rest135930_ _hd135928_))) + (_try-match135862135886_)))))))) (define gx#stx-plist?__0 - (lambda (_stx134588_) - (let ((_key?134590_ gx#stx-keyword?)) - (gx#stx-plist?__% _stx134588_ _key?134590_)))) + (lambda (_stx135935_) + (let ((_key?135937_ gx#stx-keyword?)) + (gx#stx-plist?__% _stx135935_ _key?135937_)))) (define gx#stx-plist? - (lambda _g140164_ - (let ((_g140163_ (##length _g140164_))) - (cond ((##fx= _g140163_ 1) - (apply (lambda (_stx134588_) (gx#stx-plist?__0 _stx134588_)) - _g140164_)) - ((##fx= _g140163_ 2) - (apply (lambda (_stx134592_ _key?134593_) - (gx#stx-plist?__% _stx134592_ _key?134593_)) - _g140164_)) + (lambda _g141611_ + (let ((_g141610_ (##length _g141611_))) + (cond ((##fx= _g141610_ 1) + (apply (lambda (_stx135935_) (gx#stx-plist?__0 _stx135935_)) + _g141611_)) + ((##fx= _g141610_ 2) + (apply (lambda (_stx135939_ _key?135940_) + (gx#stx-plist?__% _stx135939_ _key?135940_)) + _g141611_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g140164_)))))) + _g141611_)))))) (define gx#stx-getq__% - (lambda (_key134425_ _stx134426_ _key=?134427_) - (if (procedure? _key=?134427_) + (lambda (_key135772_ _stx135773_ _key=?135774_) + (if (procedure? _key=?135774_) '#!void - (error '"expected procedure" _key=?134427_)) - (let _lp134429_ ((_rest134431_ _stx134426_)) - (let* ((_g134432134440_ (gx#syntax-e _rest134431_)) - (_else134434134448_ (lambda () '#f)) - (_K134436134482_ - (lambda (_rest134451_ _hd134452_) - (let* ((_g134453134460_ (gx#syntax-e _rest134451_)) - (_E134455134464_ + (error '"expected procedure" _key=?135774_)) + (let _lp135776_ ((_rest135778_ _stx135773_)) + (let* ((_g135779135787_ (gx#syntax-e _rest135778_)) + (_else135781135795_ (lambda () '#f)) + (_K135783135829_ + (lambda (_rest135798_ _hd135799_) + (let* ((_g135800135807_ (gx#syntax-e _rest135798_)) + (_E135802135811_ (lambda () - (error '"No clause matching" _g134453134460_))) - (_K134456134470_ - (lambda (_rest134467_ _val134468_) - (if (_key=?134427_ _hd134452_ _key134425_) - _val134468_ - (_lp134429_ _rest134467_))))) - (if (##pair? _g134453134460_) - (let ((_hd134457134473_ (##car _g134453134460_)) - (_tl134458134475_ (##cdr _g134453134460_))) - (let* ((_val134478_ _hd134457134473_) - (_rest134480_ _tl134458134475_)) - (_K134456134470_ _rest134480_ _val134478_))) - (_E134455134464_)))))) - (if (##pair? _g134432134440_) - (let ((_hd134437134485_ (##car _g134432134440_)) - (_tl134438134487_ (##cdr _g134432134440_))) - (let* ((_hd134490_ _hd134437134485_) - (_rest134492_ _tl134438134487_)) - (_K134436134482_ _rest134492_ _hd134490_))) - (_else134434134448_)))))) + (error '"No clause matching" _g135800135807_))) + (_K135803135817_ + (lambda (_rest135814_ _val135815_) + (if (_key=?135774_ _hd135799_ _key135772_) + _val135815_ + (_lp135776_ _rest135814_))))) + (if (##pair? _g135800135807_) + (let ((_hd135804135820_ (##car _g135800135807_)) + (_tl135805135822_ (##cdr _g135800135807_))) + (let* ((_val135825_ _hd135804135820_) + (_rest135827_ _tl135805135822_)) + (_K135803135817_ _rest135827_ _val135825_))) + (_E135802135811_)))))) + (if (##pair? _g135779135787_) + (let ((_hd135784135832_ (##car _g135779135787_)) + (_tl135785135834_ (##cdr _g135779135787_))) + (let* ((_hd135837_ _hd135784135832_) + (_rest135839_ _tl135785135834_)) + (_K135783135829_ _rest135839_ _hd135837_))) + (_else135781135795_)))))) (define gx#stx-getq__0 - (lambda (_key134497_ _stx134498_) - (let ((_key=?134500_ gx#stx-eq?)) - (gx#stx-getq__% _key134497_ _stx134498_ _key=?134500_)))) + (lambda (_key135844_ _stx135845_) + (let ((_key=?135847_ gx#stx-eq?)) + (gx#stx-getq__% _key135844_ _stx135845_ _key=?135847_)))) (define gx#stx-getq - (lambda _g140166_ - (let ((_g140165_ (##length _g140166_))) - (cond ((##fx= _g140165_ 2) - (apply (lambda (_key134497_ _stx134498_) - (gx#stx-getq__0 _key134497_ _stx134498_)) - _g140166_)) - ((##fx= _g140165_ 3) - (apply (lambda (_key134502_ _stx134503_ _key=?134504_) + (lambda _g141613_ + (let ((_g141612_ (##length _g141613_))) + (cond ((##fx= _g141612_ 2) + (apply (lambda (_key135844_ _stx135845_) + (gx#stx-getq__0 _key135844_ _stx135845_)) + _g141613_)) + ((##fx= _g141612_ 3) + (apply (lambda (_key135849_ _stx135850_ _key=?135851_) (gx#stx-getq__% - _key134502_ - _stx134503_ - _key=?134504_)) - _g140166_)) + _key135849_ + _stx135850_ + _key=?135851_)) + _g141613_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g140166_)))))))) + _g141613_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx__1.scm b/src/bootstrap/gerbil/expander/stx__1.scm index e290f675d..718c41c71 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]#_g140169_| + (define |gx[1]#_g141616_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g140171_| + (define |gx[1]#_g141618_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g140173_| + (define |gx[1]#_g141620_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g140175_| + (define |gx[1]#_g141622_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g140181_| + (define |gx[1]#_g141628_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g140184_| + (define |gx[1]#_g141631_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g140187_| + (define |gx[1]#_g141634_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g140193_| + (define |gx[1]#_g141640_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140196_| + (define |gx[1]#_g141643_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140199_| + (define |gx[1]#_g141646_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140205_| + (define |gx[1]#_g141652_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g140208_| + (define |gx[1]#_g141655_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g140211_| + (define |gx[1]#_g141658_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g140217_| + (define |gx[1]#_g141664_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140220_| + (define |gx[1]#_g141667_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140223_| + (define |gx[1]#_g141670_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140227_| + (define |gx[1]#_g141674_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g140229_| + (define |gx[1]#_g141676_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g140231_| + (define |gx[1]#_g141678_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g140237_| + (define |gx[1]#_g141684_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g140240_| + (define |gx[1]#_g141687_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g140243_| + (define |gx[1]#_g141690_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g140249_| + (define |gx[1]#_g141696_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140252_| + (define |gx[1]#_g141699_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140255_| + (define |gx[1]#_g141702_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140261_| + (define |gx[1]#_g141708_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g140264_| + (define |gx[1]#_g141711_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g140267_| + (define |gx[1]#_g141714_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g140273_| + (define |gx[1]#_g141720_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140276_| + (define |gx[1]#_g141723_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140279_| + (define |gx[1]#_g141726_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140283_| + (define |gx[1]#_g141730_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g140285_| + (define |gx[1]#_g141732_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g140287_| + (define |gx[1]#_g141734_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g140294_| + (define |gx[1]#_g141741_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g140297_| + (define |gx[1]#_g141744_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g140300_| + (define |gx[1]#_g141747_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g140303_| + (define |gx[1]#_g141750_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g140310_| + (define |gx[1]#_g141757_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140313_| + (define |gx[1]#_g141760_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140316_| + (define |gx[1]#_g141763_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140319_| + (define |gx[1]#_g141766_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140326_| + (define |gx[1]#_g141773_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g140329_| + (define |gx[1]#_g141776_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g140332_| + (define |gx[1]#_g141779_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g140335_| + (define |gx[1]#_g141782_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g140342_| + (define |gx[1]#_g141789_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140345_| + (define |gx[1]#_g141792_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140348_| + (define |gx[1]#_g141795_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g140351_| + (define |gx[1]#_g141798_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj140150 + (let ((__obj141597 (let () (declare (not safe)) (##structure @@ -369,7 +369,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140150 + __obj141597 'gx#identifier-wrap::t '1 gerbil/core$$#class-type-info::t @@ -377,7 +377,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140150 + __obj141597 'syntax '2 gerbil/core$$#class-type-info::t @@ -385,26 +385,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140150 + __obj141597 '(marks) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140167 - (let ((__tmp140168 |gx[1]#_g140169_|)) + (let ((__tmp141614 + (let ((__tmp141615 |gx[1]#_g141616_|)) (declare (not safe)) - (cons __tmp140168 '())))) + (cons __tmp141615 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj140150 - __tmp140167 + __obj141597 + __tmp141614 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj140150 + __obj141597 '#t '5 gerbil/core$$#class-type-info::t @@ -412,7 +412,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140150 + __obj141597 '#t '6 gerbil/core$$#class-type-info::t @@ -420,150 +420,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140150 + __obj141597 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140170 |gx[1]#_g140171_|)) + (let ((__tmp141617 |gx[1]#_g141618_|)) (declare (not safe)) (##unchecked-structure-set! - __obj140150 - __tmp140170 + __obj141597 + __tmp141617 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140172 |gx[1]#_g140173_|)) + (let ((__tmp141619 |gx[1]#_g141620_|)) (declare (not safe)) (##unchecked-structure-set! - __obj140150 - __tmp140172 + __obj141597 + __tmp141619 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140174 |gx[1]#_g140175_|)) + (let ((__tmp141621 |gx[1]#_g141622_|)) (declare (not safe)) (##unchecked-structure-set! - __obj140150 - __tmp140174 + __obj141597 + __tmp141621 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140176 - (let ((__tmp140185 - (let ((__tmp140186 |gx[1]#_g140187_|)) + (let ((__tmp141623 + (let ((__tmp141632 + (let ((__tmp141633 |gx[1]#_g141634_|)) (declare (not safe)) - (cons 'marks __tmp140186))) - (__tmp140177 - (let ((__tmp140182 - (let ((__tmp140183 |gx[1]#_g140184_|)) + (cons 'marks __tmp141633))) + (__tmp141624 + (let ((__tmp141629 + (let ((__tmp141630 |gx[1]#_g141631_|)) (declare (not safe)) - (cons 'e __tmp140183))) - (__tmp140178 - (let ((__tmp140179 - (let ((__tmp140180 |gx[1]#_g140181_|)) + (cons 'e __tmp141630))) + (__tmp141625 + (let ((__tmp141626 + (let ((__tmp141627 |gx[1]#_g141628_|)) (declare (not safe)) - (cons 'source __tmp140180)))) + (cons 'source __tmp141627)))) (declare (not safe)) - (cons __tmp140179 '())))) + (cons __tmp141626 '())))) (declare (not safe)) - (cons __tmp140182 __tmp140178)))) + (cons __tmp141629 __tmp141625)))) (declare (not safe)) - (cons __tmp140185 __tmp140177)))) + (cons __tmp141632 __tmp141624)))) (declare (not safe)) (##unchecked-structure-set! - __obj140150 - __tmp140176 + __obj141597 + __tmp141623 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140188 - (let ((__tmp140197 - (let ((__tmp140198 |gx[1]#_g140199_|)) + (let ((__tmp141635 + (let ((__tmp141644 + (let ((__tmp141645 |gx[1]#_g141646_|)) (declare (not safe)) - (cons 'marks __tmp140198))) - (__tmp140189 - (let ((__tmp140194 - (let ((__tmp140195 |gx[1]#_g140196_|)) + (cons 'marks __tmp141645))) + (__tmp141636 + (let ((__tmp141641 + (let ((__tmp141642 |gx[1]#_g141643_|)) (declare (not safe)) - (cons 'e __tmp140195))) - (__tmp140190 - (let ((__tmp140191 - (let ((__tmp140192 |gx[1]#_g140193_|)) + (cons 'e __tmp141642))) + (__tmp141637 + (let ((__tmp141638 + (let ((__tmp141639 |gx[1]#_g141640_|)) (declare (not safe)) - (cons 'source __tmp140192)))) + (cons 'source __tmp141639)))) (declare (not safe)) - (cons __tmp140191 '())))) + (cons __tmp141638 '())))) (declare (not safe)) - (cons __tmp140194 __tmp140190)))) + (cons __tmp141641 __tmp141637)))) (declare (not safe)) - (cons __tmp140197 __tmp140189)))) + (cons __tmp141644 __tmp141636)))) (declare (not safe)) (##unchecked-structure-set! - __obj140150 - __tmp140188 + __obj141597 + __tmp141635 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140200 - (let ((__tmp140209 - (let ((__tmp140210 |gx[1]#_g140211_|)) + (let ((__tmp141647 + (let ((__tmp141656 + (let ((__tmp141657 |gx[1]#_g141658_|)) (declare (not safe)) - (cons 'marks __tmp140210))) - (__tmp140201 - (let ((__tmp140206 - (let ((__tmp140207 |gx[1]#_g140208_|)) + (cons 'marks __tmp141657))) + (__tmp141648 + (let ((__tmp141653 + (let ((__tmp141654 |gx[1]#_g141655_|)) (declare (not safe)) - (cons 'e __tmp140207))) - (__tmp140202 - (let ((__tmp140203 - (let ((__tmp140204 |gx[1]#_g140205_|)) + (cons 'e __tmp141654))) + (__tmp141649 + (let ((__tmp141650 + (let ((__tmp141651 |gx[1]#_g141652_|)) (declare (not safe)) - (cons 'source __tmp140204)))) + (cons 'source __tmp141651)))) (declare (not safe)) - (cons __tmp140203 '())))) + (cons __tmp141650 '())))) (declare (not safe)) - (cons __tmp140206 __tmp140202)))) + (cons __tmp141653 __tmp141649)))) (declare (not safe)) - (cons __tmp140209 __tmp140201)))) + (cons __tmp141656 __tmp141648)))) (declare (not safe)) (##unchecked-structure-set! - __obj140150 - __tmp140200 + __obj141597 + __tmp141647 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140212 - (let ((__tmp140221 - (let ((__tmp140222 |gx[1]#_g140223_|)) + (let ((__tmp141659 + (let ((__tmp141668 + (let ((__tmp141669 |gx[1]#_g141670_|)) (declare (not safe)) - (cons 'marks __tmp140222))) - (__tmp140213 - (let ((__tmp140218 - (let ((__tmp140219 |gx[1]#_g140220_|)) + (cons 'marks __tmp141669))) + (__tmp141660 + (let ((__tmp141665 + (let ((__tmp141666 |gx[1]#_g141667_|)) (declare (not safe)) - (cons 'e __tmp140219))) - (__tmp140214 - (let ((__tmp140215 - (let ((__tmp140216 |gx[1]#_g140217_|)) + (cons 'e __tmp141666))) + (__tmp141661 + (let ((__tmp141662 + (let ((__tmp141663 |gx[1]#_g141664_|)) (declare (not safe)) - (cons 'source __tmp140216)))) + (cons 'source __tmp141663)))) (declare (not safe)) - (cons __tmp140215 '())))) + (cons __tmp141662 '())))) (declare (not safe)) - (cons __tmp140218 __tmp140214)))) + (cons __tmp141665 __tmp141661)))) (declare (not safe)) - (cons __tmp140221 __tmp140213)))) + (cons __tmp141668 __tmp141660)))) (declare (not safe)) (##unchecked-structure-set! - __obj140150 - __tmp140212 + __obj141597 + __tmp141659 '14 gerbil/core$$#class-type-info::t '#f)) - __obj140150)) + __obj141597)) (define |gx[:0:]#syntax-wrap| - (let ((__obj140151 + (let ((__obj141598 (let () (declare (not safe)) (##structure @@ -585,7 +585,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140151 + __obj141598 'gx#syntax-wrap::t '1 gerbil/core$$#class-type-info::t @@ -593,7 +593,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140151 + __obj141598 'syntax '2 gerbil/core$$#class-type-info::t @@ -601,26 +601,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140151 + __obj141598 '(mark) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140224 - (let ((__tmp140225 |gx[1]#_g140169_|)) + (let ((__tmp141671 + (let ((__tmp141672 |gx[1]#_g141616_|)) (declare (not safe)) - (cons __tmp140225 '())))) + (cons __tmp141672 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj140151 - __tmp140224 + __obj141598 + __tmp141671 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj140151 + __obj141598 '#t '5 gerbil/core$$#class-type-info::t @@ -628,7 +628,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140151 + __obj141598 '#t '6 gerbil/core$$#class-type-info::t @@ -636,150 +636,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140151 + __obj141598 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140226 |gx[1]#_g140227_|)) + (let ((__tmp141673 |gx[1]#_g141674_|)) (declare (not safe)) (##unchecked-structure-set! - __obj140151 - __tmp140226 + __obj141598 + __tmp141673 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140228 |gx[1]#_g140229_|)) + (let ((__tmp141675 |gx[1]#_g141676_|)) (declare (not safe)) (##unchecked-structure-set! - __obj140151 - __tmp140228 + __obj141598 + __tmp141675 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140230 |gx[1]#_g140231_|)) + (let ((__tmp141677 |gx[1]#_g141678_|)) (declare (not safe)) (##unchecked-structure-set! - __obj140151 - __tmp140230 + __obj141598 + __tmp141677 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140232 - (let ((__tmp140241 - (let ((__tmp140242 |gx[1]#_g140243_|)) + (let ((__tmp141679 + (let ((__tmp141688 + (let ((__tmp141689 |gx[1]#_g141690_|)) (declare (not safe)) - (cons 'mark __tmp140242))) - (__tmp140233 - (let ((__tmp140238 - (let ((__tmp140239 |gx[1]#_g140240_|)) + (cons 'mark __tmp141689))) + (__tmp141680 + (let ((__tmp141685 + (let ((__tmp141686 |gx[1]#_g141687_|)) (declare (not safe)) - (cons 'e __tmp140239))) - (__tmp140234 - (let ((__tmp140235 - (let ((__tmp140236 |gx[1]#_g140237_|)) + (cons 'e __tmp141686))) + (__tmp141681 + (let ((__tmp141682 + (let ((__tmp141683 |gx[1]#_g141684_|)) (declare (not safe)) - (cons 'source __tmp140236)))) + (cons 'source __tmp141683)))) (declare (not safe)) - (cons __tmp140235 '())))) + (cons __tmp141682 '())))) (declare (not safe)) - (cons __tmp140238 __tmp140234)))) + (cons __tmp141685 __tmp141681)))) (declare (not safe)) - (cons __tmp140241 __tmp140233)))) + (cons __tmp141688 __tmp141680)))) (declare (not safe)) (##unchecked-structure-set! - __obj140151 - __tmp140232 + __obj141598 + __tmp141679 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140244 - (let ((__tmp140253 - (let ((__tmp140254 |gx[1]#_g140255_|)) + (let ((__tmp141691 + (let ((__tmp141700 + (let ((__tmp141701 |gx[1]#_g141702_|)) (declare (not safe)) - (cons 'mark __tmp140254))) - (__tmp140245 - (let ((__tmp140250 - (let ((__tmp140251 |gx[1]#_g140252_|)) + (cons 'mark __tmp141701))) + (__tmp141692 + (let ((__tmp141697 + (let ((__tmp141698 |gx[1]#_g141699_|)) (declare (not safe)) - (cons 'e __tmp140251))) - (__tmp140246 - (let ((__tmp140247 - (let ((__tmp140248 |gx[1]#_g140249_|)) + (cons 'e __tmp141698))) + (__tmp141693 + (let ((__tmp141694 + (let ((__tmp141695 |gx[1]#_g141696_|)) (declare (not safe)) - (cons 'source __tmp140248)))) + (cons 'source __tmp141695)))) (declare (not safe)) - (cons __tmp140247 '())))) + (cons __tmp141694 '())))) (declare (not safe)) - (cons __tmp140250 __tmp140246)))) + (cons __tmp141697 __tmp141693)))) (declare (not safe)) - (cons __tmp140253 __tmp140245)))) + (cons __tmp141700 __tmp141692)))) (declare (not safe)) (##unchecked-structure-set! - __obj140151 - __tmp140244 + __obj141598 + __tmp141691 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140256 - (let ((__tmp140265 - (let ((__tmp140266 |gx[1]#_g140267_|)) + (let ((__tmp141703 + (let ((__tmp141712 + (let ((__tmp141713 |gx[1]#_g141714_|)) (declare (not safe)) - (cons 'mark __tmp140266))) - (__tmp140257 - (let ((__tmp140262 - (let ((__tmp140263 |gx[1]#_g140264_|)) + (cons 'mark __tmp141713))) + (__tmp141704 + (let ((__tmp141709 + (let ((__tmp141710 |gx[1]#_g141711_|)) (declare (not safe)) - (cons 'e __tmp140263))) - (__tmp140258 - (let ((__tmp140259 - (let ((__tmp140260 |gx[1]#_g140261_|)) + (cons 'e __tmp141710))) + (__tmp141705 + (let ((__tmp141706 + (let ((__tmp141707 |gx[1]#_g141708_|)) (declare (not safe)) - (cons 'source __tmp140260)))) + (cons 'source __tmp141707)))) (declare (not safe)) - (cons __tmp140259 '())))) + (cons __tmp141706 '())))) (declare (not safe)) - (cons __tmp140262 __tmp140258)))) + (cons __tmp141709 __tmp141705)))) (declare (not safe)) - (cons __tmp140265 __tmp140257)))) + (cons __tmp141712 __tmp141704)))) (declare (not safe)) (##unchecked-structure-set! - __obj140151 - __tmp140256 + __obj141598 + __tmp141703 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140268 - (let ((__tmp140277 - (let ((__tmp140278 |gx[1]#_g140279_|)) + (let ((__tmp141715 + (let ((__tmp141724 + (let ((__tmp141725 |gx[1]#_g141726_|)) (declare (not safe)) - (cons 'mark __tmp140278))) - (__tmp140269 - (let ((__tmp140274 - (let ((__tmp140275 |gx[1]#_g140276_|)) + (cons 'mark __tmp141725))) + (__tmp141716 + (let ((__tmp141721 + (let ((__tmp141722 |gx[1]#_g141723_|)) (declare (not safe)) - (cons 'e __tmp140275))) - (__tmp140270 - (let ((__tmp140271 - (let ((__tmp140272 |gx[1]#_g140273_|)) + (cons 'e __tmp141722))) + (__tmp141717 + (let ((__tmp141718 + (let ((__tmp141719 |gx[1]#_g141720_|)) (declare (not safe)) - (cons 'source __tmp140272)))) + (cons 'source __tmp141719)))) (declare (not safe)) - (cons __tmp140271 '())))) + (cons __tmp141718 '())))) (declare (not safe)) - (cons __tmp140274 __tmp140270)))) + (cons __tmp141721 __tmp141717)))) (declare (not safe)) - (cons __tmp140277 __tmp140269)))) + (cons __tmp141724 __tmp141716)))) (declare (not safe)) (##unchecked-structure-set! - __obj140151 - __tmp140268 + __obj141598 + __tmp141715 '14 gerbil/core$$#class-type-info::t '#f)) - __obj140151)) + __obj141598)) (define |gx[:0:]#syntax-quote| - (let ((__obj140152 + (let ((__obj141599 (let () (declare (not safe)) (##structure @@ -801,7 +801,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140152 + __obj141599 'gx#syntax-quote::t '1 gerbil/core$$#class-type-info::t @@ -809,7 +809,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140152 + __obj141599 'syntax '2 gerbil/core$$#class-type-info::t @@ -817,26 +817,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140152 + __obj141599 '(context marks) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140280 - (let ((__tmp140281 |gx[1]#_g140169_|)) + (let ((__tmp141727 + (let ((__tmp141728 |gx[1]#_g141616_|)) (declare (not safe)) - (cons __tmp140281 '())))) + (cons __tmp141728 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj140152 - __tmp140280 + __obj141599 + __tmp141727 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj140152 + __obj141599 '#t '5 gerbil/core$$#class-type-info::t @@ -844,7 +844,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140152 + __obj141599 '#t '6 gerbil/core$$#class-type-info::t @@ -852,177 +852,177 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj140152 + __obj141599 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140282 |gx[1]#_g140283_|)) + (let ((__tmp141729 |gx[1]#_g141730_|)) (declare (not safe)) (##unchecked-structure-set! - __obj140152 - __tmp140282 + __obj141599 + __tmp141729 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140284 |gx[1]#_g140285_|)) + (let ((__tmp141731 |gx[1]#_g141732_|)) (declare (not safe)) (##unchecked-structure-set! - __obj140152 - __tmp140284 + __obj141599 + __tmp141731 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140286 |gx[1]#_g140287_|)) + (let ((__tmp141733 |gx[1]#_g141734_|)) (declare (not safe)) (##unchecked-structure-set! - __obj140152 - __tmp140286 + __obj141599 + __tmp141733 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140288 - (let ((__tmp140301 - (let ((__tmp140302 |gx[1]#_g140303_|)) + (let ((__tmp141735 + (let ((__tmp141748 + (let ((__tmp141749 |gx[1]#_g141750_|)) (declare (not safe)) - (cons 'context __tmp140302))) - (__tmp140289 - (let ((__tmp140298 - (let ((__tmp140299 |gx[1]#_g140300_|)) + (cons 'context __tmp141749))) + (__tmp141736 + (let ((__tmp141745 + (let ((__tmp141746 |gx[1]#_g141747_|)) (declare (not safe)) - (cons 'marks __tmp140299))) - (__tmp140290 - (let ((__tmp140295 - (let ((__tmp140296 |gx[1]#_g140297_|)) + (cons 'marks __tmp141746))) + (__tmp141737 + (let ((__tmp141742 + (let ((__tmp141743 |gx[1]#_g141744_|)) (declare (not safe)) - (cons 'e __tmp140296))) - (__tmp140291 - (let ((__tmp140292 - (let ((__tmp140293 - |gx[1]#_g140294_|)) + (cons 'e __tmp141743))) + (__tmp141738 + (let ((__tmp141739 + (let ((__tmp141740 + |gx[1]#_g141741_|)) (declare (not safe)) - (cons 'source __tmp140293)))) + (cons 'source __tmp141740)))) (declare (not safe)) - (cons __tmp140292 '())))) + (cons __tmp141739 '())))) (declare (not safe)) - (cons __tmp140295 __tmp140291)))) + (cons __tmp141742 __tmp141738)))) (declare (not safe)) - (cons __tmp140298 __tmp140290)))) + (cons __tmp141745 __tmp141737)))) (declare (not safe)) - (cons __tmp140301 __tmp140289)))) + (cons __tmp141748 __tmp141736)))) (declare (not safe)) (##unchecked-structure-set! - __obj140152 - __tmp140288 + __obj141599 + __tmp141735 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140304 - (let ((__tmp140317 - (let ((__tmp140318 |gx[1]#_g140319_|)) + (let ((__tmp141751 + (let ((__tmp141764 + (let ((__tmp141765 |gx[1]#_g141766_|)) (declare (not safe)) - (cons 'context __tmp140318))) - (__tmp140305 - (let ((__tmp140314 - (let ((__tmp140315 |gx[1]#_g140316_|)) + (cons 'context __tmp141765))) + (__tmp141752 + (let ((__tmp141761 + (let ((__tmp141762 |gx[1]#_g141763_|)) (declare (not safe)) - (cons 'marks __tmp140315))) - (__tmp140306 - (let ((__tmp140311 - (let ((__tmp140312 |gx[1]#_g140313_|)) + (cons 'marks __tmp141762))) + (__tmp141753 + (let ((__tmp141758 + (let ((__tmp141759 |gx[1]#_g141760_|)) (declare (not safe)) - (cons 'e __tmp140312))) - (__tmp140307 - (let ((__tmp140308 - (let ((__tmp140309 - |gx[1]#_g140310_|)) + (cons 'e __tmp141759))) + (__tmp141754 + (let ((__tmp141755 + (let ((__tmp141756 + |gx[1]#_g141757_|)) (declare (not safe)) - (cons 'source __tmp140309)))) + (cons 'source __tmp141756)))) (declare (not safe)) - (cons __tmp140308 '())))) + (cons __tmp141755 '())))) (declare (not safe)) - (cons __tmp140311 __tmp140307)))) + (cons __tmp141758 __tmp141754)))) (declare (not safe)) - (cons __tmp140314 __tmp140306)))) + (cons __tmp141761 __tmp141753)))) (declare (not safe)) - (cons __tmp140317 __tmp140305)))) + (cons __tmp141764 __tmp141752)))) (declare (not safe)) (##unchecked-structure-set! - __obj140152 - __tmp140304 + __obj141599 + __tmp141751 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140320 - (let ((__tmp140333 - (let ((__tmp140334 |gx[1]#_g140335_|)) + (let ((__tmp141767 + (let ((__tmp141780 + (let ((__tmp141781 |gx[1]#_g141782_|)) (declare (not safe)) - (cons 'context __tmp140334))) - (__tmp140321 - (let ((__tmp140330 - (let ((__tmp140331 |gx[1]#_g140332_|)) + (cons 'context __tmp141781))) + (__tmp141768 + (let ((__tmp141777 + (let ((__tmp141778 |gx[1]#_g141779_|)) (declare (not safe)) - (cons 'marks __tmp140331))) - (__tmp140322 - (let ((__tmp140327 - (let ((__tmp140328 |gx[1]#_g140329_|)) + (cons 'marks __tmp141778))) + (__tmp141769 + (let ((__tmp141774 + (let ((__tmp141775 |gx[1]#_g141776_|)) (declare (not safe)) - (cons 'e __tmp140328))) - (__tmp140323 - (let ((__tmp140324 - (let ((__tmp140325 - |gx[1]#_g140326_|)) + (cons 'e __tmp141775))) + (__tmp141770 + (let ((__tmp141771 + (let ((__tmp141772 + |gx[1]#_g141773_|)) (declare (not safe)) - (cons 'source __tmp140325)))) + (cons 'source __tmp141772)))) (declare (not safe)) - (cons __tmp140324 '())))) + (cons __tmp141771 '())))) (declare (not safe)) - (cons __tmp140327 __tmp140323)))) + (cons __tmp141774 __tmp141770)))) (declare (not safe)) - (cons __tmp140330 __tmp140322)))) + (cons __tmp141777 __tmp141769)))) (declare (not safe)) - (cons __tmp140333 __tmp140321)))) + (cons __tmp141780 __tmp141768)))) (declare (not safe)) (##unchecked-structure-set! - __obj140152 - __tmp140320 + __obj141599 + __tmp141767 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp140336 - (let ((__tmp140349 - (let ((__tmp140350 |gx[1]#_g140351_|)) + (let ((__tmp141783 + (let ((__tmp141796 + (let ((__tmp141797 |gx[1]#_g141798_|)) (declare (not safe)) - (cons 'context __tmp140350))) - (__tmp140337 - (let ((__tmp140346 - (let ((__tmp140347 |gx[1]#_g140348_|)) + (cons 'context __tmp141797))) + (__tmp141784 + (let ((__tmp141793 + (let ((__tmp141794 |gx[1]#_g141795_|)) (declare (not safe)) - (cons 'marks __tmp140347))) - (__tmp140338 - (let ((__tmp140343 - (let ((__tmp140344 |gx[1]#_g140345_|)) + (cons 'marks __tmp141794))) + (__tmp141785 + (let ((__tmp141790 + (let ((__tmp141791 |gx[1]#_g141792_|)) (declare (not safe)) - (cons 'e __tmp140344))) - (__tmp140339 - (let ((__tmp140340 - (let ((__tmp140341 - |gx[1]#_g140342_|)) + (cons 'e __tmp141791))) + (__tmp141786 + (let ((__tmp141787 + (let ((__tmp141788 + |gx[1]#_g141789_|)) (declare (not safe)) - (cons 'source __tmp140341)))) + (cons 'source __tmp141788)))) (declare (not safe)) - (cons __tmp140340 '())))) + (cons __tmp141787 '())))) (declare (not safe)) - (cons __tmp140343 __tmp140339)))) + (cons __tmp141790 __tmp141786)))) (declare (not safe)) - (cons __tmp140346 __tmp140338)))) + (cons __tmp141793 __tmp141785)))) (declare (not safe)) - (cons __tmp140349 __tmp140337)))) + (cons __tmp141796 __tmp141784)))) (declare (not safe)) (##unchecked-structure-set! - __obj140152 - __tmp140336 + __obj141599 + __tmp141783 '14 gerbil/core$$#class-type-info::t '#f)) - __obj140152)))) + __obj141599)))) diff --git a/src/bootstrap/gerbil/expander/stxcase__0.scm b/src/bootstrap/gerbil/expander/stxcase__0.scm index 0a91e2f8d..e1855e22e 100644 --- a/src/bootstrap/gerbil/expander/stxcase__0.scm +++ b/src/bootstrap/gerbil/expander/stxcase__0.scm @@ -1,84 +1,85 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stxcase::timestamp 1707573213) + (define gerbil/expander/stxcase::timestamp 1707674932) (begin (define gx#syntax-pattern::t - (let ((__tmp182741 - (let ((__tmp182742 + (let ((__tmp184790 (list gx#expander::t)) + (__tmp184788 + (let ((__tmp184789 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp182742 '())))) + (cons __tmp184789 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gx#syntax-pattern::t 'syntax-pattern - gx#expander::t + __tmp184790 '(id depth) - __tmp182741 + __tmp184788 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) - (make-struct-predicate gx#syntax-pattern::t))) + (make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _$args178270_ - (apply make-struct-instance gx#syntax-pattern::t _$args178270_))) + (lambda _$args180217_ + (apply make-instance gx#syntax-pattern::t _$args180217_))) (define gx#syntax-pattern-id (let () (declare (not safe)) - (make-struct-slot-accessor gx#syntax-pattern::t 'id))) + (make-class-slot-accessor gx#syntax-pattern::t 'id))) (define gx#syntax-pattern-depth (let () (declare (not safe)) - (make-struct-slot-accessor gx#syntax-pattern::t 'depth))) + (make-class-slot-accessor gx#syntax-pattern::t 'depth))) (define gx#syntax-pattern-e (let () (declare (not safe)) - (make-struct-slot-accessor gx#syntax-pattern::t 'e))) + (make-class-slot-accessor gx#syntax-pattern::t 'e))) (define gx#syntax-pattern-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator gx#syntax-pattern::t 'id))) + (make-class-slot-mutator gx#syntax-pattern::t 'id))) (define gx#syntax-pattern-depth-set! (let () (declare (not safe)) - (make-struct-slot-mutator gx#syntax-pattern::t 'depth))) + (make-class-slot-mutator gx#syntax-pattern::t 'depth))) (define gx#syntax-pattern-e-set! (let () (declare (not safe)) - (make-struct-slot-mutator gx#syntax-pattern::t 'e))) + (make-class-slot-mutator gx#syntax-pattern::t 'e))) (define gx#&syntax-pattern-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gx#syntax-pattern::t 'id))) + (make-class-slot-unchecked-accessor gx#syntax-pattern::t 'id))) (define gx#&syntax-pattern-depth (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gx#syntax-pattern::t 'depth))) + (make-class-slot-unchecked-accessor gx#syntax-pattern::t 'depth))) (define gx#&syntax-pattern-e (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor gx#syntax-pattern::t 'e))) + (make-class-slot-unchecked-accessor gx#syntax-pattern::t 'e))) (define gx#&syntax-pattern-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gx#syntax-pattern::t 'id))) + (make-class-slot-unchecked-mutator gx#syntax-pattern::t 'id))) (define gx#&syntax-pattern-depth-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gx#syntax-pattern::t 'depth))) + (make-class-slot-unchecked-mutator gx#syntax-pattern::t 'depth))) (define gx#&syntax-pattern-e-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator gx#syntax-pattern::t 'e))) + (make-class-slot-unchecked-mutator gx#syntax-pattern::t 'e))) (define gx#syntax-pattern::apply-macro-expander - (lambda (_self178267_ _stx178268_) + (lambda (_self180214_ _stx180215_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _stx178268_)))) + _stx180215_)))) (let () (declare (not safe)) (bind-method! @@ -87,702 +88,702 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_stx177749_) - (letrec ((_generate177751_ - (lambda (_e177978_) - (letrec ((_BUG177980_ - (lambda (_q178142_) + (lambda (_stx179696_) + (letrec ((_generate179698_ + (lambda (_e179925_) + (letrec ((_BUG179927_ + (lambda (_q180089_) (error '"BUG: syntax; generate" - _stx177749_ - _e177978_ - _q178142_))) - (_local-pattern-e177981_ - (lambda (_pat178140_) - (let ((__tmp182743 + _stx179696_ + _e179925_ + _q180089_))) + (_local-pattern-e179928_ + (lambda (_pat180087_) + (let ((__tmp184791 (##structure-ref - _pat178140_ + _pat180087_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp182743)))) - (_getvar177982_ - (lambda (_q178137_ _vars178138_) + (gx#syntax-local-rewrap __tmp184791)))) + (_getvar179929_ + (lambda (_q180084_ _vars180085_) (let () (declare (not safe)) - (assgetq _q178137_ - _vars178138_ - _BUG177980_)))) - (_getarg177983_ - (lambda (_arg178103_ _vars178104_) - (let* ((_arg178105178112_ _arg178103_) - (_E178107178116_ + (assgetq _q180084_ + _vars180085_ + _BUG179927_)))) + (_getarg179930_ + (lambda (_arg180050_ _vars180051_) + (let* ((_arg180052180059_ _arg180050_) + (_E180054180063_ (lambda () (error '"No clause matching" - _arg178105178112_))) - (_K178108178125_ - (lambda (_e178119_ _tag178120_) - (let ((_$e178122_ _tag178120_)) + _arg180052180059_))) + (_K180055180072_ + (lambda (_e180066_ _tag180067_) + (let ((_$e180069_ _tag180067_)) (if (let () (declare (not safe)) - (eq? 'ref _$e178122_)) + (eq? 'ref _$e180069_)) (let () (declare (not safe)) - (_getvar177982_ - _e178119_ - _vars178104_)) + (_getvar179929_ + _e180066_ + _vars180051_)) (if (let () (declare (not safe)) (eq? 'pattern - _$e178122_)) + _$e180069_)) (let () (declare (not safe)) - (_local-pattern-e177981_ - _e178119_)) + (_local-pattern-e179928_ + _e180066_)) (let () (declare (not safe)) - (_BUG177980_ - _arg178103_)))))))) + (_BUG179927_ + _arg180050_)))))))) (if (let () (declare (not safe)) - (##pair? _arg178105178112_)) - (let ((_hd178109178128_ + (##pair? _arg180052180059_)) + (let ((_hd180056180075_ (let () (declare (not safe)) - (##car _arg178105178112_))) - (_tl178110178130_ + (##car _arg180052180059_))) + (_tl180057180077_ (let () (declare (not safe)) - (##cdr _arg178105178112_)))) - (let* ((_tag178133_ _hd178109178128_) - (_e178135_ _tl178110178130_)) + (##cdr _arg180052180059_)))) + (let* ((_tag180080_ _hd180056180075_) + (_e180082_ _tl180057180077_)) (declare (not safe)) - (_K178108178125_ - _e178135_ - _tag178133_))) + (_K180055180072_ + _e180082_ + _tag180080_))) (let () (declare (not safe)) - (_E178107178116_))))))) - (let _recur177985_ ((_e177987_ _e177978_) - (_vars177988_ '())) - (let* ((_e177989177996_ _e177987_) - (_E177991178000_ + (_E180054180063_))))))) + (let _recur179932_ ((_e179934_ _e179925_) + (_vars179935_ '())) + (let* ((_e179936179943_ _e179934_) + (_E179938179947_ (lambda () (error '"No clause matching" - _e177989177996_))) - (_K177992178091_ - (lambda (_body178003_ _tag178004_) - (let ((_$e178006_ _tag178004_)) + _e179936179943_))) + (_K179939180038_ + (lambda (_body179950_ _tag179951_) + (let ((_$e179953_ _tag179951_)) (if (let () (declare (not safe)) - (eq? 'datum _$e178006_)) + (eq? 'datum _$e179953_)) (let () (declare (not safe)) - (gx#core-list 'quote _body178003_)) + (gx#core-list 'quote _body179950_)) (if (let () (declare (not safe)) - (eq? 'term _$e178006_)) - (let ((_id178009_ + (eq? 'term _$e179953_)) + (let ((_id179956_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _body178003_)))) + _body179950_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id178009_ + _id179956_ 'gx#identifier-wrap::t)) - (let ((_marks178011_ + (let ((_marks179958_ (let () (declare (not safe)) (##unchecked-structure-ref - _id178009_ + _id179956_ '3 gx#identifier-wrap::t '#f)))) (if (let () (declare (not safe)) - (null? _marks178011_)) - (let ((__tmp182771 + (null? _marks179958_)) + (let ((__tmp184819 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _body178003_)))) + (gx#core-list 'quote _body179950_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp182771)) - (let ((__tmp182770 + (gx#core-list 'datum->syntax '#f __tmp184819)) + (let ((__tmp184818 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _body178003_))) - (__tmp182769 + (gx#core-list 'quote-syntax _body179950_))) + (__tmp184817 (let () (declare (not safe)) - (gx#core-list 'quote _body178003_)))) + (gx#core-list 'quote _body179950_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp182770 - __tmp182769 + __tmp184818 + __tmp184817 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id178009_ + _id179956_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _body178003_)) + _body179950_)) (let () (declare (not safe)) - (_BUG177980_ - _e177987_))))) + (_BUG179927_ + _e179934_))))) (if (let () (declare (not safe)) - (eq? 'pattern _$e178006_)) + (eq? 'pattern _$e179953_)) (let () (declare (not safe)) - (_local-pattern-e177981_ - _body178003_)) + (_local-pattern-e179928_ + _body179950_)) (if (let () (declare (not safe)) - (eq? 'ref _$e178006_)) + (eq? 'ref _$e179953_)) (let () (declare (not safe)) - (_getvar177982_ - _body178003_ - _vars177988_)) + (_getvar179929_ + _body179950_ + _vars179935_)) (if (let () (declare (not safe)) (eq? 'cons - _$e178006_)) - (let ((__tmp182767 - (let ((__tmp182768 + _$e179953_)) + (let ((__tmp184815 + (let ((__tmp184816 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _body178003_))) + (car _body179950_))) (declare (not safe)) - (_recur177985_ __tmp182768 _vars177988_))) - (__tmp182765 - (let ((__tmp182766 (cdr _body178003_))) + (_recur179932_ __tmp184816 _vars179935_))) + (__tmp184813 + (let ((__tmp184814 (cdr _body179950_))) (declare (not safe)) - (_recur177985_ __tmp182766 _vars177988_)))) + (_recur179932_ __tmp184814 _vars179935_)))) (declare (not safe)) - (gx#core-list 'cons __tmp182767 __tmp182765)) - (if (let () (declare (not safe)) (eq? 'vector _$e178006_)) - (let ((__tmp182764 + (gx#core-list 'cons __tmp184815 __tmp184813)) + (if (let () (declare (not safe)) (eq? 'vector _$e179953_)) + (let ((__tmp184812 (let () (declare (not safe)) - (_recur177985_ _body178003_ _vars177988_)))) + (_recur179932_ _body179950_ _vars179935_)))) (declare (not safe)) - (gx#core-list 'list->vector __tmp182764)) - (if (let () (declare (not safe)) (eq? 'box _$e178006_)) - (let ((__tmp182763 + (gx#core-list 'list->vector __tmp184812)) + (if (let () (declare (not safe)) (eq? 'box _$e179953_)) + (let ((__tmp184811 (let () (declare (not safe)) - (_recur177985_ _body178003_ _vars177988_)))) + (_recur179932_ _body179950_ _vars179935_)))) (declare (not safe)) - (gx#core-list 'box __tmp182763)) + (gx#core-list 'box __tmp184811)) (if (let () (declare (not safe)) - (eq? 'splice _$e178006_)) - (let* ((_body178012178023_ _body178003_) - (_E178014178027_ + (eq? 'splice _$e179953_)) + (let* ((_body179959179970_ _body179950_) + (_E179961179974_ (lambda () (error '"No clause matching" - _body178012178023_))) - (_K178015178065_ - (lambda (_args178030_ - _iv178031_ - _hd178032_ - _depth178033_) - (let* ((_targets178039_ - (map (lambda (_g178034178036_) + _body179959179970_))) + (_K179962180012_ + (lambda (_args179977_ + _iv179978_ + _hd179979_ + _depth179980_) + (let* ((_targets179986_ + (map (lambda (_g179981179983_) (let () (declare (not safe)) - (_getarg177983_ - _g178034178036_ - _vars177988_))) - _args178030_)) - (_fold-in178041_ + (_getarg179930_ + _g179981179983_ + _vars179935_))) + _args179977_)) + (_fold-in179988_ (let () (declare (not safe)) - (gx#gentemps _args178030_))) - (_fold-out178043_ + (gx#gentemps _args179977_))) + (_fold-out179990_ (let () (declare (not safe)) (gx#genident__0))) - (_lambda-args178045_ - (let ((__tmp182744 + (_lambda-args179992_ + (let ((__tmp184792 (let () (declare (not safe)) - (cons _fold-out178043_ + (cons _fold-out179990_ '())))) (declare (not safe)) (foldr1 cons - __tmp182744 - _fold-in178041_))) - (_lambda-body178062_ - (if (fx> _depth178033_ '1) - (let ((_r-args178053_ - (map (lambda (_arg178047_) - (let ((__tmp182749 + __tmp184792 + _fold-in179988_))) + (_lambda-body180009_ + (if (fx> _depth179980_ '1) + (let ((_r-args180000_ + (map (lambda (_arg179994_) + (let ((__tmp184797 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _arg178047_))) + (cdr _arg179994_))) (declare (not safe)) - (cons 'ref __tmp182749))) - _args178030_)) - (_r-vars178054_ - (let ((__tmp182750 - (lambda (_arg178049_ _var178050_ _r178051_) - (let ((__tmp182751 - (let ((__tmp182752 (cdr _arg178049_))) + (cons 'ref __tmp184797))) + _args179977_)) + (_r-vars180001_ + (let ((__tmp184798 + (lambda (_arg179996_ _var179997_ _r179998_) + (let ((__tmp184799 + (let ((__tmp184800 (cdr _arg179996_))) (declare (not safe)) - (cons __tmp182752 _var178050_)))) + (cons __tmp184800 _var179997_)))) (declare (not safe)) - (cons __tmp182751 _r178051_))))) + (cons __tmp184799 _r179998_))))) (declare (not safe)) - (foldr2 __tmp182750 - _vars177988_ - _args178030_ - _fold-in178041_)))) + (foldr2 __tmp184798 + _vars179935_ + _args179977_ + _fold-in179988_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp182753 - (let ((__tmp182754 + (let ((__tmp184801 + (let ((__tmp184802 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp182758 + (let ((__tmp184806 (let () (declare (not safe)) - (fx- _depth178033_ '1))) - (__tmp182755 - (let ((__tmp182756 - (let ((__tmp182757 + (fx- _depth179980_ '1))) + (__tmp184803 + (let ((__tmp184804 + (let ((__tmp184805 (let () (declare (not safe)) (cons 'var - _fold-out178043_)))) + _fold-out179990_)))) (declare (not safe)) - (cons __tmp182757 _r-args178053_)))) + (cons __tmp184805 _r-args180000_)))) (declare (not safe)) - (cons _hd178032_ __tmp182756)))) + (cons _hd179979_ __tmp184804)))) (declare (not safe)) - (cons __tmp182758 __tmp182755)))) + (cons __tmp184806 __tmp184803)))) (declare (not safe)) - (cons 'splice __tmp182754)))) + (cons 'splice __tmp184802)))) (declare (not safe)) - (_recur177985_ __tmp182753 _r-vars178054_))) + (_recur179932_ __tmp184801 _r-vars180001_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_hd-vars178060_ - (let ((__tmp182745 + (let* ((_hd-vars180007_ + (let ((__tmp184793 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_arg178056_ _var178057_ _r178058_) - (let ((__tmp182746 - (let ((__tmp182747 (cdr _arg178056_))) + (lambda (_arg180003_ _var180004_ _r180005_) + (let ((__tmp184794 + (let ((__tmp184795 (cdr _arg180003_))) (declare (not safe)) - (cons __tmp182747 _var178057_)))) + (cons __tmp184795 _var180004_)))) (declare (not safe)) - (cons __tmp182746 _r178058_))))) + (cons __tmp184794 _r180005_))))) (declare (not safe)) - (foldr2 __tmp182745 - _vars177988_ - _args178030_ - _fold-in178041_))) - (__tmp182748 + (foldr2 __tmp184793 + _vars179935_ + _args179977_ + _fold-in179988_))) + (__tmp184796 (let () (declare (not safe)) - (_recur177985_ _hd178032_ _hd-vars178060_)))) + (_recur179932_ _hd179979_ _hd-vars180007_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp182748 - _fold-out178043_))))) - (let ((__tmp182762 - (if (fx> (length _targets178039_) + __tmp184796 + _fold-out179990_))))) + (let ((__tmp184810 + (if (fx> (length _targets179986_) '1) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _targets178039_)) + _targets179986_)) '#!void)) - (__tmp182759 - (let ((__tmp182761 + (__tmp184807 + (let ((__tmp184809 (let () (declare (not safe)) (gx#core-list 'lambda% - _lambda-args178045_ - _lambda-body178062_))) - (__tmp182760 + _lambda-args179992_ + _lambda-body180009_))) + (__tmp184808 (let () (declare (not safe)) - (_recur177985_ - _iv178031_ - _vars177988_)))) + (_recur179932_ + _iv179978_ + _vars179935_)))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp182761 - __tmp182760 - _targets178039_)))) + __tmp184809 + __tmp184808 + _targets179986_)))) (declare (not safe)) (gx#core-list 'begin - __tmp182762 - __tmp182759)))))) + __tmp184810 + __tmp184807)))))) (if (let () (declare (not safe)) - (##pair? _body178012178023_)) - (let ((_hd178016178068_ + (##pair? _body179959179970_)) + (let ((_hd179963180015_ (let () (declare (not safe)) - (##car _body178012178023_))) - (_tl178017178070_ + (##car _body179959179970_))) + (_tl179964180017_ (let () (declare (not safe)) - (##cdr _body178012178023_)))) - (let ((_depth178073_ _hd178016178068_)) + (##cdr _body179959179970_)))) + (let ((_depth180020_ _hd179963180015_)) (if (let () (declare (not safe)) - (##pair? _tl178017178070_)) - (let ((_hd178018178075_ + (##pair? _tl179964180017_)) + (let ((_hd179965180022_ (let () (declare (not safe)) - (##car _tl178017178070_))) - (_tl178019178077_ + (##car _tl179964180017_))) + (_tl179966180024_ (let () (declare (not safe)) - (##cdr _tl178017178070_)))) - (let ((_hd178080_ - _hd178018178075_)) + (##cdr _tl179964180017_)))) + (let ((_hd180027_ + _hd179965180022_)) (if (let () (declare (not safe)) - (##pair? _tl178019178077_)) - (let ((_hd178020178082_ + (##pair? _tl179966180024_)) + (let ((_hd179967180029_ (let () (declare (not safe)) - (##car _tl178019178077_))) - (_tl178021178084_ + (##car _tl179966180024_))) + (_tl179968180031_ (let () (declare (not safe)) - (##cdr _tl178019178077_)))) - (let* ((_iv178087_ - _hd178020178082_) - (_args178089_ - _tl178021178084_)) + (##cdr _tl179966180024_)))) + (let* ((_iv180034_ + _hd179967180029_) + (_args180036_ + _tl179968180031_)) (declare (not safe)) - (_K178015178065_ - _args178089_ - _iv178087_ - _hd178080_ - _depth178073_))) + (_K179962180012_ + _args180036_ + _iv180034_ + _hd180027_ + _depth180020_))) (let () (declare (not safe)) - (_E178014178027_))))) + (_E179961179974_))))) (let () (declare (not safe)) - (_E178014178027_))))) + (_E179961179974_))))) (let () (declare (not safe)) - (_E178014178027_)))) + (_E179961179974_)))) (if (let () (declare (not safe)) - (eq? 'var _$e178006_)) - _body178003_ + (eq? 'var _$e179953_)) + _body179950_ (let () (declare (not safe)) - (_BUG177980_ _e177987_))))))))))))))) + (_BUG179927_ _e179934_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e177989177996_)) - (let ((_hd177993178094_ + (##pair? _e179936179943_)) + (let ((_hd179940180041_ (let () (declare (not safe)) - (##car _e177989177996_))) - (_tl177994178096_ + (##car _e179936179943_))) + (_tl179941180043_ (let () (declare (not safe)) - (##cdr _e177989177996_)))) - (let* ((_tag178099_ _hd177993178094_) - (_body178101_ _tl177994178096_)) + (##cdr _e179936179943_)))) + (let* ((_tag180046_ _hd179940180041_) + (_body180048_ _tl179941180043_)) (declare (not safe)) - (_K177992178091_ _body178101_ _tag178099_))) + (_K179939180038_ _body180048_ _tag180046_))) (let () (declare (not safe)) - (_E177991178000_)))))))) - (_parse177752_ - (lambda (_e177793_) - (letrec ((_make-cons177795_ - (lambda (_hd177970_ _tl177971_) - (let ((_g182772_ _hd177970_) - (_g182774_ _tl177971_)) + (_E179938179947_)))))))) + (_parse179699_ + (lambda (_e179740_) + (letrec ((_make-cons179742_ + (lambda (_hd179917_ _tl179918_) + (let ((_g184820_ _hd179917_) + (_g184822_ _tl179918_)) (begin - (let ((_g182773_ + (let ((_g184821_ (let () (declare (not safe)) - (if (##values? _g182772_) - (##vector-length _g182772_) + (if (##values? _g184820_) + (##vector-length _g184820_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g182773_ 2))) + (##fx= _g184821_ 2))) (error "Context expects 2 values" - _g182773_))) - (let ((_g182775_ + _g184821_))) + (let ((_g184823_ (let () (declare (not safe)) - (if (##values? _g182774_) - (##vector-length _g182774_) + (if (##values? _g184822_) + (##vector-length _g184822_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g182775_ 2))) + (##fx= _g184823_ 2))) (error "Context expects 2 values" - _g182775_))) - (let ((_hd-e177973_ + _g184823_))) + (let ((_hd-e179920_ (let () (declare (not safe)) - (##vector-ref _g182772_ 0))) - (_hd-vars177974_ + (##vector-ref _g184820_ 0))) + (_hd-vars179921_ (let () (declare (not safe)) - (##vector-ref _g182772_ 1)))) - (let ((_tl-e177975_ + (##vector-ref _g184820_ 1)))) + (let ((_tl-e179922_ (let () (declare (not safe)) - (##vector-ref _g182774_ 0))) - (_tl-vars177976_ + (##vector-ref _g184822_ 0))) + (_tl-vars179923_ (let () (declare (not safe)) - (##vector-ref _g182774_ 1)))) - (values (let ((__tmp182776 + (##vector-ref _g184822_ 1)))) + (values (let ((__tmp184824 (let () (declare (not safe)) - (cons _hd-e177973_ - _tl-e177975_)))) + (cons _hd-e179920_ + _tl-e179922_)))) (declare (not safe)) - (cons 'cons __tmp182776)) - (append _hd-vars177974_ - _tl-vars177976_)))))))) - (_make-splice177796_ - (lambda (_where177909_ - _depth177910_ - _hd177911_ - _tl177912_) - (let ((_g182777_ _hd177911_) - (_g182779_ _tl177912_)) + (cons 'cons __tmp184824)) + (append _hd-vars179921_ + _tl-vars179923_)))))))) + (_make-splice179743_ + (lambda (_where179856_ + _depth179857_ + _hd179858_ + _tl179859_) + (let ((_g184825_ _hd179858_) + (_g184827_ _tl179859_)) (begin - (let ((_g182778_ + (let ((_g184826_ (let () (declare (not safe)) - (if (##values? _g182777_) - (##vector-length _g182777_) + (if (##values? _g184825_) + (##vector-length _g184825_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g182778_ 2))) + (##fx= _g184826_ 2))) (error "Context expects 2 values" - _g182778_))) - (let ((_g182780_ + _g184826_))) + (let ((_g184828_ (let () (declare (not safe)) - (if (##values? _g182779_) - (##vector-length _g182779_) + (if (##values? _g184827_) + (##vector-length _g184827_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g182780_ 2))) + (##fx= _g184828_ 2))) (error "Context expects 2 values" - _g182780_))) - (let ((_hd-e177914_ + _g184828_))) + (let ((_hd-e179861_ (let () (declare (not safe)) - (##vector-ref _g182777_ 0))) - (_hd-vars177915_ + (##vector-ref _g184825_ 0))) + (_hd-vars179862_ (let () (declare (not safe)) - (##vector-ref _g182777_ 1)))) - (let ((_tl-e177916_ + (##vector-ref _g184825_ 1)))) + (let ((_tl-e179863_ (let () (declare (not safe)) - (##vector-ref _g182779_ 0))) - (_tl-vars177917_ + (##vector-ref _g184827_ 0))) + (_tl-vars179864_ (let () (declare (not safe)) - (##vector-ref _g182779_ 1)))) - (let _lp177919_ ((_rest177921_ - _hd-vars177915_) - (_targets177922_ '()) - (_vars177923_ - _tl-vars177917_)) - (let* ((_rest177924177934_ - _rest177921_) - (_else177926177942_ + (##vector-ref _g184827_ 1)))) + (let _lp179866_ ((_rest179868_ + _hd-vars179862_) + (_targets179869_ '()) + (_vars179870_ + _tl-vars179864_)) + (let* ((_rest179871179881_ + _rest179868_) + (_else179873179889_ (lambda () (if (let () (declare (not safe)) - (null? _targets177922_)) + (null? _targets179869_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx177749_ - _where177909_)) - (values (let ((__tmp182781 + _stx179696_ + _where179856_)) + (values (let ((__tmp184829 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp182782 - (let ((__tmp182783 + (let ((__tmp184830 + (let ((__tmp184831 (let () (declare (not safe)) - (cons _tl-e177916_ - _targets177922_)))) + (cons _tl-e179863_ + _targets179869_)))) (declare (not safe)) - (cons _hd-e177914_ __tmp182783)))) + (cons _hd-e179861_ __tmp184831)))) (declare (not safe)) - (cons _depth177910_ __tmp182782)))) + (cons _depth179857_ __tmp184830)))) (declare (not safe)) - (cons 'splice __tmp182781)) - _vars177923_)))) + (cons 'splice __tmp184829)) + _vars179870_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K177928177951_ - (lambda (_rest177945_ - _hd-pat177946_ - _hd-depth*177947_) - (let ((_hd-depth177949_ - (fx- _hd-depth*177947_ - _depth177910_))) + (_K179875179898_ + (lambda (_rest179892_ + _hd-pat179893_ + _hd-depth*179894_) + (let ((_hd-depth179896_ + (fx- _hd-depth*179894_ + _depth179857_))) (if (fxpositive? - _hd-depth177949_) - (let ((__tmp182788 + _hd-depth179896_) + (let ((__tmp184836 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp182789 + (let ((__tmp184837 (let () (declare (not safe)) - (cons 'ref _hd-pat177946_)))) + (cons 'ref _hd-pat179893_)))) (declare (not safe)) - (cons __tmp182789 _targets177922_))) - (__tmp182786 - (let ((__tmp182787 + (cons __tmp184837 _targets179869_))) + (__tmp184834 + (let ((__tmp184835 (let () (declare (not safe)) - (cons _hd-depth177949_ _hd-pat177946_)))) + (cons _hd-depth179896_ _hd-pat179893_)))) (declare (not safe)) - (cons __tmp182787 _vars177923_)))) + (cons __tmp184835 _vars179870_)))) (declare (not safe)) - (_lp177919_ _rest177945_ __tmp182788 __tmp182786)) - (if (let () (declare (not safe)) (fxzero? _hd-depth177949_)) - (let ((__tmp182784 - (let ((__tmp182785 + (_lp179866_ _rest179892_ __tmp184836 __tmp184834)) + (if (let () (declare (not safe)) (fxzero? _hd-depth179896_)) + (let ((__tmp184832 + (let ((__tmp184833 (let () (declare (not safe)) - (cons 'pattern _hd-pat177946_)))) + (cons 'pattern _hd-pat179893_)))) (declare (not safe)) - (cons __tmp182785 _targets177922_)))) + (cons __tmp184833 _targets179869_)))) (declare (not safe)) - (_lp177919_ _rest177945_ __tmp182784 _vars177923_)) + (_lp179866_ _rest179892_ __tmp184832 _vars179870_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _stx177749_ - _where177909_)))))))) + _stx179696_ + _where179856_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest177924177934_)) - (let ((_hd177929177954_ + (##pair? _rest179871179881_)) + (let ((_hd179876179901_ (let () (declare (not safe)) - (##car _rest177924177934_))) - (_tl177930177956_ + (##car _rest179871179881_))) + (_tl179877179903_ (let () (declare (not safe)) - (##cdr _rest177924177934_)))) + (##cdr _rest179871179881_)))) (if (let () (declare (not safe)) - (##pair? _hd177929177954_)) - (let ((_hd177931177959_ + (##pair? _hd179876179901_)) + (let ((_hd179878179906_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd177929177954_))) - (_tl177932177961_ - (let () (declare (not safe)) (##cdr _hd177929177954_)))) - (let* ((_hd-depth*177964_ _hd177931177959_) - (_hd-pat177966_ _tl177932177961_) - (_rest177968_ _tl177930177956_)) + (##car _hd179876179901_))) + (_tl179879179908_ + (let () (declare (not safe)) (##cdr _hd179876179901_)))) + (let* ((_hd-depth*179911_ _hd179878179906_) + (_hd-pat179913_ _tl179879179908_) + (_rest179915_ _tl179877179903_)) (declare (not safe)) - (_K177928177951_ - _rest177968_ - _hd-pat177966_ - _hd-depth*177964_))) - (let () (declare (not safe)) (_else177926177942_)))) + (_K179875179898_ + _rest179915_ + _hd-pat179913_ + _hd-depth*179911_))) + (let () (declare (not safe)) (_else179873179889_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else177926177942_))))))))))) - (_recur177797_ - (lambda (_e177802_ _is-e?177803_) - (if (_is-e?177803_ _e177802_) + (_else179873179889_))))))))))) + (_recur179744_ + (lambda (_e179749_ _is-e?179750_) + (if (_is-e?179750_ _e179749_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _stx177749_)) + _stx179696_)) (if (let () (declare (not safe)) - (gx#syntax-local-pattern? _e177802_)) - (let* ((_pat177805_ + (gx#syntax-local-pattern? _e179749_)) + (let* ((_pat179752_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _e177802_))) - (_depth177807_ + _e179749_))) + (_depth179754_ (##structure-ref - _pat177805_ + _pat179752_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _depth177807_) + (if (fxpositive? _depth179754_) (values (let () (declare (not safe)) (cons 'ref - _pat177805_)) - (let ((__tmp182805 + _pat179752_)) + (let ((__tmp184853 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _depth177807_ _pat177805_)))) + (cons _depth179754_ _pat179752_)))) (declare (not safe)) - (cons __tmp182805 '()))) + (cons __tmp184853 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (let () (declare (not safe)) (cons 'pattern - _pat177805_)) + _pat179752_)) '()))) (if (let () (declare (not safe)) - (gx#identifier? _e177802_)) + (gx#identifier? _e179749_)) (values (let () (declare (not safe)) - (cons 'term _e177802_)) + (cons 'term _e179749_)) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _e177802_)) - (let* ((_e177809177816_ - _e177802_) - (_E177811177820_ + (gx#stx-pair? _e179749_)) + (let* ((_e179756179763_ + _e179749_) + (_E179758179767_ (lambda () (let () (declare @@ -790,2457 +791,2457 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e177809177816_)))) - (_E177810177899_ + _e179756179763_)))) + (_E179757179846_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _e177809177816_)) - (let ((_e177812177824_ + (gx#stx-pair? _e179756179763_)) + (let ((_e179759179771_ (let () (declare (not safe)) - (gx#syntax-e _e177809177816_)))) - (let ((_hd177813177827_ + (gx#syntax-e _e179756179763_)))) + (let ((_hd179760179774_ (let () (declare (not safe)) - (##car _e177812177824_))) - (_tl177814177829_ + (##car _e179759179771_))) + (_tl179761179776_ (let () (declare (not safe)) - (##cdr _e177812177824_)))) - (let* ((_hd177832_ _hd177813177827_) - (_rest177834_ _tl177814177829_)) + (##cdr _e179759179771_)))) + (let* ((_hd179779_ _hd179760179774_) + (_rest179781_ _tl179761179776_)) (if '#t - (if (_is-e?177803_ _hd177832_) - (let* ((_e177835177842_ _rest177834_) - (_E177837177846_ + (if (_is-e?179750_ _hd179779_) + (let* ((_e179782179789_ _rest179781_) + (_E179784179793_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _stx177749_ - _e177802_)))) - (_E177836177860_ + _stx179696_ + _e179749_)))) + (_E179783179807_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e177835177842_)) - (let ((_e177838177850_ + _e179782179789_)) + (let ((_e179785179797_ (let () (declare (not safe)) (gx#syntax-e - _e177835177842_)))) - (let ((_hd177839177853_ + _e179782179789_)))) + (let ((_hd179786179800_ (let () (declare (not safe)) - (##car _e177838177850_))) - (_tl177840177855_ + (##car _e179785179797_))) + (_tl179787179802_ (let () (declare (not safe)) - (##cdr _e177838177850_)))) - (let ((_rest177858_ - _hd177839177853_)) + (##cdr _e179785179797_)))) + (let ((_rest179805_ + _hd179786179800_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl177840177855_)) + _tl179787179802_)) (if '#t (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_recur177797_ _rest177858_ false)) - (let () (declare (not safe)) (_E177837177846_))) - (let () (declare (not safe)) (_E177837177846_)))))) + (_recur179744_ _rest179805_ false)) + (let () (declare (not safe)) (_E179784179793_))) + (let () (declare (not safe)) (_E179784179793_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E177837177846_)))))) + (_E179784179793_)))))) (let () (declare (not safe)) - (_E177836177860_))) - (let _lp177864_ ((_rest177866_ - _rest177834_) - (_depth177867_ '0)) - (let* ((_e177868177875_ _rest177866_) - (_E177870177879_ + (_E179783179807_))) + (let _lp179811_ ((_rest179813_ + _rest179781_) + (_depth179814_ '0)) + (let* ((_e179815179822_ _rest179813_) + (_E179817179826_ (lambda () - (if (fxpositive? _depth177867_) - (let ((__tmp182799 + (if (fxpositive? _depth179814_) + (let ((__tmp184847 (let () (declare (not safe)) - (_recur177797_ - _hd177832_ - _is-e?177803_))) - (__tmp182798 + (_recur179744_ + _hd179779_ + _is-e?179750_))) + (__tmp184846 (let () (declare (not safe)) - (_recur177797_ - _rest177866_ - _is-e?177803_)))) + (_recur179744_ + _rest179813_ + _is-e?179750_)))) (declare (not safe)) - (_make-splice177796_ - _e177802_ - _depth177867_ - __tmp182799 - __tmp182798)) - (let ((__tmp182797 + (_make-splice179743_ + _e179749_ + _depth179814_ + __tmp184847 + __tmp184846)) + (let ((__tmp184845 (let () (declare (not safe)) - (_recur177797_ - _hd177832_ - _is-e?177803_))) - (__tmp182796 + (_recur179744_ + _hd179779_ + _is-e?179750_))) + (__tmp184844 (let () (declare (not safe)) - (_recur177797_ - _rest177866_ - _is-e?177803_)))) + (_recur179744_ + _rest179813_ + _is-e?179750_)))) (declare (not safe)) - (_make-cons177795_ - __tmp182797 - __tmp182796))))) - (_E177869177895_ + (_make-cons179742_ + __tmp184845 + __tmp184844))))) + (_E179816179842_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e177868177875_)) - (let ((_e177871177883_ + _e179815179822_)) + (let ((_e179818179830_ (let () (declare (not safe)) (gx#syntax-e - _e177868177875_)))) - (let ((_hd177872177886_ + _e179815179822_)))) + (let ((_hd179819179833_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e177871177883_))) - (_tl177873177888_ - (let () (declare (not safe)) (##cdr _e177871177883_)))) - (let* ((_rest-hd177891_ _hd177872177886_) - (_rest-tl177893_ _tl177873177888_)) + (##car _e179818179830_))) + (_tl179820179835_ + (let () (declare (not safe)) (##cdr _e179818179830_)))) + (let* ((_rest-hd179838_ _hd179819179833_) + (_rest-tl179840_ _tl179820179835_)) (if '#t - (if (_is-e?177803_ _rest-hd177891_) - (let ((__tmp182804 + (if (_is-e?179750_ _rest-hd179838_) + (let ((__tmp184852 (let () (declare (not safe)) - (fx+ _depth177867_ '1)))) + (fx+ _depth179814_ '1)))) (declare (not safe)) - (_lp177864_ _rest-tl177893_ __tmp182804)) - (if (fxpositive? _depth177867_) - (let ((__tmp182803 + (_lp179811_ _rest-tl179840_ __tmp184852)) + (if (fxpositive? _depth179814_) + (let ((__tmp184851 (let () (declare (not safe)) - (_recur177797_ - _hd177832_ - _is-e?177803_))) - (__tmp182802 + (_recur179744_ + _hd179779_ + _is-e?179750_))) + (__tmp184850 (let () (declare (not safe)) - (_recur177797_ - _rest177866_ - _is-e?177803_)))) + (_recur179744_ + _rest179813_ + _is-e?179750_)))) (declare (not safe)) - (_make-splice177796_ - _e177802_ - _depth177867_ - __tmp182803 - __tmp182802)) - (let ((__tmp182801 + (_make-splice179743_ + _e179749_ + _depth179814_ + __tmp184851 + __tmp184850)) + (let ((__tmp184849 (let () (declare (not safe)) - (_recur177797_ - _hd177832_ - _is-e?177803_))) - (__tmp182800 + (_recur179744_ + _hd179779_ + _is-e?179750_))) + (__tmp184848 (let () (declare (not safe)) - (_recur177797_ - _rest177866_ - _is-e?177803_)))) + (_recur179744_ + _rest179813_ + _is-e?179750_)))) (declare (not safe)) - (_make-cons177795_ __tmp182801 __tmp182800)))) - (let () (declare (not safe)) (_E177870177879_)))))) + (_make-cons179742_ __tmp184849 __tmp184848)))) + (let () (declare (not safe)) (_E179817179826_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E177870177879_)))))) + (_E179817179826_)))))) (let () (declare (not safe)) - (_E177869177895_))))) + (_E179816179842_))))) (let () (declare (not safe)) - (_E177811177820_)))))) - (let () (declare (not safe)) (_E177811177820_)))))) + (_E179758179767_)))))) + (let () (declare (not safe)) (_E179758179767_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E177810177899_))) + (_E179757179846_))) (if (let () (declare (not safe)) (gx#stx-vector? - _e177802_)) - (let ((_g182793_ - (let ((__tmp182795 + _e179749_)) + (let ((_g184841_ + (let ((__tmp184843 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (vector->list (let () (declare (not safe)) - (gx#stx-unwrap__0 _e177802_))))) + (gx#stx-unwrap__0 _e179749_))))) (declare (not safe)) - (_recur177797_ __tmp182795 _is-e?177803_)))) + (_recur179744_ __tmp184843 _is-e?179750_)))) (begin - (let ((_g182794_ + (let ((_g184842_ (let () (declare (not safe)) - (if (##values? _g182793_) - (##vector-length _g182793_) + (if (##values? _g184841_) + (##vector-length _g184841_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g182794_ 2))) - (error "Context expects 2 values" _g182794_))) - (let ((_e177903_ + (if (not (let () (declare (not safe)) (##fx= _g184842_ 2))) + (error "Context expects 2 values" _g184842_))) + (let ((_e179850_ (let () (declare (not safe)) - (##vector-ref _g182793_ 0))) - (_vars177904_ + (##vector-ref _g184841_ 0))) + (_vars179851_ (let () (declare (not safe)) - (##vector-ref _g182793_ 1)))) + (##vector-ref _g184841_ 1)))) (values (let () (declare (not safe)) - (cons 'vector _e177903_)) - _vars177904_)))) + (cons 'vector _e179850_)) + _vars179851_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _e177802_)) - (let ((_g182790_ - (let ((__tmp182792 + _e179749_)) + (let ((_g184838_ + (let ((__tmp184840 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (unbox (let () (declare (not safe)) - (gx#stx-unwrap__0 _e177802_))))) + (gx#stx-unwrap__0 _e179749_))))) (declare (not safe)) - (_recur177797_ __tmp182792 _is-e?177803_)))) + (_recur179744_ __tmp184840 _is-e?179750_)))) (begin - (let ((_g182791_ + (let ((_g184839_ (let () (declare (not safe)) - (if (##values? _g182790_) - (##vector-length _g182790_) + (if (##values? _g184838_) + (##vector-length _g184838_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g182791_ 2))) - (error "Context expects 2 values" _g182791_))) - (let ((_e177906_ + (##fx= _g184839_ 2))) + (error "Context expects 2 values" _g184839_))) + (let ((_e179853_ (let () (declare (not safe)) - (##vector-ref _g182790_ 0))) - (_vars177907_ + (##vector-ref _g184838_ 0))) + (_vars179854_ (let () (declare (not safe)) - (##vector-ref _g182790_ 1)))) + (##vector-ref _g184838_ 1)))) (values (let () (declare (not safe)) - (cons 'box _e177906_)) - _vars177907_)))) - (values (let () (declare (not safe)) (cons 'datum _e177802_)) + (cons 'box _e179853_)) + _vars179854_)))) + (values (let () (declare (not safe)) (cons 'datum _e179749_)) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g182806_ + (let ((_g184854_ (let () (declare (not safe)) - (_recur177797_ _e177793_ gx#ellipsis?)))) + (_recur179744_ _e179740_ gx#ellipsis?)))) (begin - (let ((_g182807_ + (let ((_g184855_ (let () (declare (not safe)) - (if (##values? _g182806_) - (##vector-length _g182806_) + (if (##values? _g184854_) + (##vector-length _g184854_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g182807_ 2))) - (error "Context expects 2 values" _g182807_))) - (let ((_tree177799_ + (##fx= _g184855_ 2))) + (error "Context expects 2 values" _g184855_))) + (let ((_tree179746_ (let () (declare (not safe)) - (##vector-ref _g182806_ 0))) - (_vars177800_ + (##vector-ref _g184854_ 0))) + (_vars179747_ (let () (declare (not safe)) - (##vector-ref _g182806_ 1)))) + (##vector-ref _g184854_ 1)))) (if (let () (declare (not safe)) - (null? _vars177800_)) - _tree177799_ + (null? _vars179747_)) + _tree179746_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _stx177749_ - _vars177800_)))))))))) - (let* ((_e177753177763_ _stx177749_) - (_E177755177767_ + _stx179696_ + _vars179747_)))))))))) + (let* ((_e179700179710_ _stx179696_) + (_E179702179714_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _stx177749_)))) - (_E177754177789_ + _stx179696_)))) + (_E179701179736_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e177753177763_)) - (let ((_e177756177771_ + (gx#stx-pair? _e179700179710_)) + (let ((_e179703179718_ (let () (declare (not safe)) - (gx#syntax-e _e177753177763_)))) - (let ((_hd177757177774_ + (gx#syntax-e _e179700179710_)))) + (let ((_hd179704179721_ (let () (declare (not safe)) - (##car _e177756177771_))) - (_tl177758177776_ + (##car _e179703179718_))) + (_tl179705179723_ (let () (declare (not safe)) - (##cdr _e177756177771_)))) + (##cdr _e179703179718_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl177758177776_)) - (let ((_e177759177779_ + (gx#stx-pair? _tl179705179723_)) + (let ((_e179706179726_ (let () (declare (not safe)) - (gx#syntax-e _tl177758177776_)))) - (let ((_hd177760177782_ + (gx#syntax-e _tl179705179723_)))) + (let ((_hd179707179729_ (let () (declare (not safe)) - (##car _e177759177779_))) - (_tl177761177784_ + (##car _e179706179726_))) + (_tl179708179731_ (let () (declare (not safe)) - (##cdr _e177759177779_)))) - (let ((_form177787_ _hd177760177782_)) + (##cdr _e179706179726_)))) + (let ((_form179734_ _hd179707179729_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl177761177784_)) + (gx#stx-null? _tl179708179731_)) (if '#t - (let ((__tmp182809 - (let ((__tmp182810 + (let ((__tmp184857 + (let ((__tmp184858 (let () (declare (not safe)) - (_parse177752_ - _form177787_)))) + (_parse179699_ + _form179734_)))) (declare (not safe)) - (_generate177751_ - __tmp182810))) - (__tmp182808 + (_generate179698_ + __tmp184858))) + (__tmp184856 (let () (declare (not safe)) (gx#stx-source - _stx177749_)))) + _stx179696_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp182809 - __tmp182808)) + __tmp184857 + __tmp184856)) (let () (declare (not safe)) - (_E177755177767_))) + (_E179702179714_))) (let () (declare (not safe)) - (_E177755177767_)))))) + (_E179702179714_)))))) (let () (declare (not safe)) - (_E177755177767_))))) - (let () (declare (not safe)) (_E177755177767_)))))) - (let () (declare (not safe)) (_E177754177789_)))))) + (_E179702179714_))))) + (let () (declare (not safe)) (_E179702179714_)))))) + (let () (declare (not safe)) (_E179701179736_)))))) (define gx#macro-expand-syntax-case__% - (lambda (_stx177013_ - _identifier=?177014_ - _unwrap-e177015_ - _wrap-e177016_) - (letrec ((_generate-bindings177018_ - (lambda (_target177613_ - _ids177614_ - _clauses177615_ - _clause-ids177616_ - _E177617_) - (letrec ((_generate1177619_ - (lambda (_clause177716_ - _clause-id177717_ - _E177718_) - (let ((__tmp182815 + (lambda (_stx178960_ + _identifier=?178961_ + _unwrap-e178962_ + _wrap-e178963_) + (letrec ((_generate-bindings178965_ + (lambda (_target179560_ + _ids179561_ + _clauses179562_ + _clause-ids179563_ + _E179564_) + (letrec ((_generate1179566_ + (lambda (_clause179663_ + _clause-id179664_ + _E179665_) + (let ((__tmp184863 (let () (declare (not safe)) - (cons _clause-id177717_ '()))) - (__tmp182811 - (let ((__tmp182812 - (let ((__tmp182814 + (cons _clause-id179664_ '()))) + (__tmp184859 + (let ((__tmp184860 + (let ((__tmp184862 (let () (declare (not safe)) - (cons _target177613_ + (cons _target179560_ '()))) - (__tmp182813 + (__tmp184861 (let () (declare (not safe)) - (_generate-clause177020_ - _target177613_ - _ids177614_ - _clause177716_ - _E177718_)))) + (_generate-clause178967_ + _target179560_ + _ids179561_ + _clause179663_ + _E179665_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp182814 - __tmp182813)))) + __tmp184862 + __tmp184861)))) (declare (not safe)) - (cons __tmp182812 '())))) + (cons __tmp184860 '())))) (declare (not safe)) - (cons __tmp182815 __tmp182811))))) - (let _lp177621_ ((_rest177623_ _clauses177615_) - (_rest-ids177624_ _clause-ids177616_) - (_bindings177625_ '())) - (let* ((_rest177626177634_ _rest177623_) - (_else177628177642_ - (lambda () _bindings177625_)) - (_K177630177704_ - (lambda (_rest177645_ _clause177646_) - (let* ((_rest-ids177647177654_ - _rest-ids177624_) - (_E177649177658_ + (cons __tmp184863 __tmp184859))))) + (let _lp179568_ ((_rest179570_ _clauses179562_) + (_rest-ids179571_ _clause-ids179563_) + (_bindings179572_ '())) + (let* ((_rest179573179581_ _rest179570_) + (_else179575179589_ + (lambda () _bindings179572_)) + (_K179577179651_ + (lambda (_rest179592_ _clause179593_) + (let* ((_rest-ids179594179601_ + _rest-ids179571_) + (_E179596179605_ (lambda () (error '"No clause matching" - _rest-ids177647177654_))) - (_K177650177692_ - (lambda (_rest-ids177661_ - _clause-id177662_) - (let* ((_rest-ids177663177671_ - _rest-ids177661_) - (_else177665177679_ + _rest-ids179594179601_))) + (_K179597179639_ + (lambda (_rest-ids179608_ + _clause-id179609_) + (let* ((_rest-ids179610179618_ + _rest-ids179608_) + (_else179612179626_ (lambda () - (let ((__tmp182816 + (let ((__tmp184864 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate1177619_ - _clause177646_ - _clause-id177662_ - _E177617_)))) + (_generate1179566_ + _clause179593_ + _clause-id179609_ + _E179564_)))) (declare (not safe)) - (cons __tmp182816 _bindings177625_)))) + (cons __tmp184864 _bindings179572_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K177667177684_ - (lambda (_next-clause-id177682_) - (let ((__tmp182817 - (let ((__tmp182818 + (_K179614179631_ + (lambda (_next-clause-id179629_) + (let ((__tmp184865 + (let ((__tmp184866 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_generate1177619_ - _clause177646_ - _clause-id177662_ - _next-clause-id177682_)))) + (_generate1179566_ + _clause179593_ + _clause-id179609_ + _next-clause-id179629_)))) (declare (not safe)) - (cons __tmp182818 _bindings177625_)))) + (cons __tmp184866 _bindings179572_)))) (declare (not safe)) - (_lp177621_ _rest177645_ _rest-ids177661_ __tmp182817))))) + (_lp179568_ _rest179592_ _rest-ids179608_ __tmp184865))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest-ids177663177671_)) - (let* ((_hd177668177687_ + (##pair? _rest-ids179610179618_)) + (let* ((_hd179615179634_ (let () (declare (not safe)) - (##car _rest-ids177663177671_))) - (_next-clause-id177690_ - _hd177668177687_)) + (##car _rest-ids179610179618_))) + (_next-clause-id179637_ + _hd179615179634_)) (declare (not safe)) - (_K177667177684_ - _next-clause-id177690_)) + (_K179614179631_ + _next-clause-id179637_)) (let () (declare (not safe)) - (_else177665177679_))))))) + (_else179612179626_))))))) (if (let () (declare (not safe)) - (##pair? _rest-ids177647177654_)) - (let ((_hd177651177695_ + (##pair? _rest-ids179594179601_)) + (let ((_hd179598179642_ (let () (declare (not safe)) - (##car _rest-ids177647177654_))) - (_tl177652177697_ + (##car _rest-ids179594179601_))) + (_tl179599179644_ (let () (declare (not safe)) - (##cdr _rest-ids177647177654_)))) - (let* ((_clause-id177700_ - _hd177651177695_) - (_rest-ids177702_ - _tl177652177697_)) + (##cdr _rest-ids179594179601_)))) + (let* ((_clause-id179647_ + _hd179598179642_) + (_rest-ids179649_ + _tl179599179644_)) (declare (not safe)) - (_K177650177692_ - _rest-ids177702_ - _clause-id177700_))) + (_K179597179639_ + _rest-ids179649_ + _clause-id179647_))) (let () (declare (not safe)) - (_E177649177658_))))))) + (_E179596179605_))))))) (if (let () (declare (not safe)) - (##pair? _rest177626177634_)) - (let ((_hd177631177707_ + (##pair? _rest179573179581_)) + (let ((_hd179578179654_ (let () (declare (not safe)) - (##car _rest177626177634_))) - (_tl177632177709_ + (##car _rest179573179581_))) + (_tl179579179656_ (let () (declare (not safe)) - (##cdr _rest177626177634_)))) - (let* ((_clause177712_ _hd177631177707_) - (_rest177714_ _tl177632177709_)) + (##cdr _rest179573179581_)))) + (let* ((_clause179659_ _hd179578179654_) + (_rest179661_ _tl179579179656_)) (declare (not safe)) - (_K177630177704_ - _rest177714_ - _clause177712_))) + (_K179577179651_ + _rest179661_ + _clause179659_))) (let () (declare (not safe)) - (_else177628177642_)))))))) - (_generate-body177019_ - (lambda (_bindings177573_ _body177574_) - (let _recur177576_ ((_rest177578_ _bindings177573_)) - (let* ((_rest177579177587_ _rest177578_) - (_else177581177595_ (lambda () _body177574_)) - (_K177583177601_ - (lambda (_rest177598_ _hd177599_) - (let ((__tmp182820 + (_else179575179589_)))))))) + (_generate-body178966_ + (lambda (_bindings179520_ _body179521_) + (let _recur179523_ ((_rest179525_ _bindings179520_)) + (let* ((_rest179526179534_ _rest179525_) + (_else179528179542_ (lambda () _body179521_)) + (_K179530179548_ + (lambda (_rest179545_ _hd179546_) + (let ((__tmp184868 (let () (declare (not safe)) - (cons _hd177599_ '()))) - (__tmp182819 + (cons _hd179546_ '()))) + (__tmp184867 (let () (declare (not safe)) - (_recur177576_ _rest177598_)))) + (_recur179523_ _rest179545_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp182820 - __tmp182819))))) + __tmp184868 + __tmp184867))))) (if (let () (declare (not safe)) - (##pair? _rest177579177587_)) - (let ((_hd177584177604_ + (##pair? _rest179526179534_)) + (let ((_hd179531179551_ (let () (declare (not safe)) - (##car _rest177579177587_))) - (_tl177585177606_ + (##car _rest179526179534_))) + (_tl179532179553_ (let () (declare (not safe)) - (##cdr _rest177579177587_)))) - (let* ((_hd177609_ _hd177584177604_) - (_rest177611_ _tl177585177606_)) + (##cdr _rest179526179534_)))) + (let* ((_hd179556_ _hd179531179551_) + (_rest179558_ _tl179532179553_)) (declare (not safe)) - (_K177583177601_ _rest177611_ _hd177609_))) + (_K179530179548_ _rest179558_ _hd179556_))) (let () (declare (not safe)) - (_else177581177595_))))))) - (_generate-clause177020_ - (lambda (_target177436_ _ids177437_ _clause177438_ _E177439_) - (letrec ((_generate1177441_ - (lambda (_hd177528_ _fender177529_ _body177530_) - (let ((_g182821_ + (_else179528179542_))))))) + (_generate-clause178967_ + (lambda (_target179383_ _ids179384_ _clause179385_ _E179386_) + (letrec ((_generate1179388_ + (lambda (_hd179475_ _fender179476_ _body179477_) + (let ((_g184869_ (let () (declare (not safe)) - (_parse-clause177022_ - _hd177528_ - _ids177437_)))) + (_parse-clause178969_ + _hd179475_ + _ids179384_)))) (begin - (let ((_g182822_ + (let ((_g184870_ (let () (declare (not safe)) - (if (##values? _g182821_) - (##vector-length _g182821_) + (if (##values? _g184869_) + (##vector-length _g184869_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g182822_ 2))) + (##fx= _g184870_ 2))) (error "Context expects 2 values" - _g182822_))) - (let ((_e177532_ + _g184870_))) + (let ((_e179479_ (let () (declare (not safe)) - (##vector-ref _g182821_ 0))) - (_mvars177533_ + (##vector-ref _g184869_ 0))) + (_mvars179480_ (let () (declare (not safe)) - (##vector-ref _g182821_ 1)))) - (let* ((_pvars177535_ + (##vector-ref _g184869_ 1)))) + (let* ((_pvars179482_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _mvars177533_)))) - (_E177537_ - (let ((__tmp182823 + _mvars179480_)))) + (_E179484_ + (let ((__tmp184871 (let () (declare (not safe)) - (cons _target177436_ + (cons _target179383_ '())))) (declare (not safe)) - (cons _E177439_ __tmp182823))) - (_K177570_ - (let ((__tmp182824 - (let ((__tmp182826 - (map (lambda (_mvar177539_ + (cons _E179386_ __tmp184871))) + (_K179517_ + (let ((__tmp184872 + (let ((__tmp184874 + (map (lambda (_mvar179486_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pvar177540_) - (let* ((_mvar177541177548_ _mvar177539_) - (_E177543177552_ + _pvar179487_) + (let* ((_mvar179488179495_ _mvar179486_) + (_E179490179499_ (lambda () (error '"No clause matching" - _mvar177541177548_))) - (_K177544177558_ - (lambda (_depth177555_ _id177556_) - (let ((__tmp182827 - (let ((__tmp182828 - (let ((__tmp182830 + _mvar179488179495_))) + (_K179491179505_ + (lambda (_depth179502_ _id179503_) + (let ((__tmp184875 + (let ((__tmp184876 + (let ((__tmp184878 (let () (declare (not safe)) (gx#core-list 'quote - _id177556_))) - (__tmp182829 + _id179503_))) + (__tmp184877 (let () (declare (not safe)) (gx#core-list 'quote - _pvar177540_)))) + _pvar179487_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp182830 - __tmp182829 - _depth177555_)))) + __tmp184878 + __tmp184877 + _depth179502_)))) (declare (not safe)) - (cons __tmp182828 '())))) + (cons __tmp184876 '())))) (declare (not safe)) - (cons _id177556_ __tmp182827))))) + (cons _id179503_ __tmp184875))))) (if (let () (declare (not safe)) - (##pair? _mvar177541177548_)) - (let ((_hd177545177561_ + (##pair? _mvar179488179495_)) + (let ((_hd179492179508_ (let () (declare (not safe)) - (##car _mvar177541177548_))) - (_tl177546177563_ + (##car _mvar179488179495_))) + (_tl179493179510_ (let () (declare (not safe)) - (##cdr _mvar177541177548_)))) - (let* ((_id177566_ _hd177545177561_) - (_depth177568_ _tl177546177563_)) + (##cdr _mvar179488179495_)))) + (let* ((_id179513_ _hd179492179508_) + (_depth179515_ _tl179493179510_)) (declare (not safe)) - (_K177544177558_ - _depth177568_ - _id177566_))) + (_K179491179505_ + _depth179515_ + _id179513_))) (let () (declare (not safe)) - (_E177543177552_))))) - _mvars177533_ - _pvars177535_)) - (__tmp182825 - (if (let () (declare (not safe)) (eq? _fender177529_ '#t)) - _body177530_ + (_E179490179499_))))) + _mvars179480_ + _pvars179482_)) + (__tmp184873 + (if (let () (declare (not safe)) (eq? _fender179476_ '#t)) + _body179477_ (let () (declare (not safe)) (gx#core-list 'if - _fender177529_ - _body177530_ - _E177537_))))) + _fender179476_ + _body179477_ + _E179484_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp182826 __tmp182825)))) + (gx#core-list 'let-syntax __tmp184874 __tmp184873)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _pvars177535_ - __tmp182824)))) + _pvars179482_ + __tmp184872)))) (let () (declare (not safe)) - (_generate-match177021_ - _hd177528_ - _target177436_ - _e177532_ - _mvars177533_ - _K177570_ - _E177537_))))))))) - (let* ((_e177442177462_ _clause177438_) - (_E177451177466_ + (_generate-match178968_ + _hd179475_ + _target179383_ + _e179479_ + _mvars179480_ + _K179517_ + _E179484_))))))))) + (let* ((_e179389179409_ _clause179385_) + (_E179398179413_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e177442177462_)))) - (_E177444177500_ + _e179389179409_)))) + (_E179391179447_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e177442177462_)) - (let ((_e177452177470_ + (gx#stx-pair? _e179389179409_)) + (let ((_e179399179417_ (let () (declare (not safe)) - (gx#syntax-e _e177442177462_)))) - (let ((_hd177453177473_ + (gx#syntax-e _e179389179409_)))) + (let ((_hd179400179420_ (let () (declare (not safe)) - (##car _e177452177470_))) - (_tl177454177475_ + (##car _e179399179417_))) + (_tl179401179422_ (let () (declare (not safe)) - (##cdr _e177452177470_)))) - (let ((_hd177478_ _hd177453177473_)) + (##cdr _e179399179417_)))) + (let ((_hd179425_ _hd179400179420_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl177454177475_)) - (let ((_e177455177480_ + _tl179401179422_)) + (let ((_e179402179427_ (let () (declare (not safe)) (gx#syntax-e - _tl177454177475_)))) - (let ((_hd177456177483_ + _tl179401179422_)))) + (let ((_hd179403179430_ (let () (declare (not safe)) - (##car _e177455177480_))) - (_tl177457177485_ + (##car _e179402179427_))) + (_tl179404179432_ (let () (declare (not safe)) - (##cdr _e177455177480_)))) - (let ((_fender177488_ - _hd177456177483_)) + (##cdr _e179402179427_)))) + (let ((_fender179435_ + _hd179403179430_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl177457177485_)) - (let ((_e177458177490_ + _tl179404179432_)) + (let ((_e179405179437_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl177457177485_)))) - (let ((_hd177459177493_ - (let () (declare (not safe)) (##car _e177458177490_))) - (_tl177460177495_ + (gx#syntax-e _tl179404179432_)))) + (let ((_hd179406179440_ + (let () (declare (not safe)) (##car _e179405179437_))) + (_tl179407179442_ (let () (declare (not safe)) - (##cdr _e177458177490_)))) - (let ((_body177498_ _hd177459177493_)) + (##cdr _e179405179437_)))) + (let ((_body179445_ _hd179406179440_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl177460177495_)) + (gx#stx-null? _tl179407179442_)) (if '#t (let () (declare (not safe)) - (_generate1177441_ - _hd177478_ - _fender177488_ - _body177498_)) - (let () (declare (not safe)) (_E177451177466_))) - (let () (declare (not safe)) (_E177451177466_)))))) - (let () (declare (not safe)) (_E177451177466_)))))) + (_generate1179388_ + _hd179425_ + _fender179435_ + _body179445_)) + (let () (declare (not safe)) (_E179398179413_))) + (let () (declare (not safe)) (_E179398179413_)))))) + (let () (declare (not safe)) (_E179398179413_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E177451177466_)))))) + (_E179398179413_)))))) (let () (declare (not safe)) - (_E177451177466_))))) - (_E177443177524_ + (_E179398179413_))))) + (_E179390179471_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e177442177462_)) - (let ((_e177445177504_ + (gx#stx-pair? _e179389179409_)) + (let ((_e179392179451_ (let () (declare (not safe)) - (gx#syntax-e _e177442177462_)))) - (let ((_hd177446177507_ + (gx#syntax-e _e179389179409_)))) + (let ((_hd179393179454_ (let () (declare (not safe)) - (##car _e177445177504_))) - (_tl177447177509_ + (##car _e179392179451_))) + (_tl179394179456_ (let () (declare (not safe)) - (##cdr _e177445177504_)))) - (let ((_hd177512_ _hd177446177507_)) + (##cdr _e179392179451_)))) + (let ((_hd179459_ _hd179393179454_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl177447177509_)) - (let ((_e177448177514_ + _tl179394179456_)) + (let ((_e179395179461_ (let () (declare (not safe)) (gx#syntax-e - _tl177447177509_)))) - (let ((_hd177449177517_ + _tl179394179456_)))) + (let ((_hd179396179464_ (let () (declare (not safe)) - (##car _e177448177514_))) - (_tl177450177519_ + (##car _e179395179461_))) + (_tl179397179466_ (let () (declare (not safe)) - (##cdr _e177448177514_)))) - (let ((_body177522_ - _hd177449177517_)) + (##cdr _e179395179461_)))) + (let ((_body179469_ + _hd179396179464_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl177450177519_)) + _tl179397179466_)) (if '#t (let () (declare (not safe)) - (_generate1177441_ - _hd177512_ + (_generate1179388_ + _hd179459_ '#t - _body177522_)) + _body179469_)) (let () (declare (not safe)) - (_E177444177500_))) + (_E179391179447_))) (let () (declare (not safe)) - (_E177444177500_)))))) + (_E179391179447_)))))) (let () (declare (not safe)) - (_E177444177500_)))))) + (_E179391179447_)))))) (let () (declare (not safe)) - (_E177444177500_)))))) - (let () (declare (not safe)) (_E177443177524_)))))) - (_generate-match177021_ - (lambda (_where177185_ - _target177186_ - _hd177187_ - _mvars177188_ - _K177189_ - _E177190_) - (letrec ((_BUG177192_ - (lambda (_q177434_) + (_E179391179447_)))))) + (let () (declare (not safe)) (_E179390179471_)))))) + (_generate-match178968_ + (lambda (_where179132_ + _target179133_ + _hd179134_ + _mvars179135_ + _K179136_ + _E179137_) + (letrec ((_BUG179139_ + (lambda (_q179381_) (error '"BUG: syntax-case; generate" - _stx177013_ - _hd177187_ - _q177434_))) - (_recur177193_ - (lambda (_e177284_ - _vars177285_ - _target177286_ - _E177287_ - _k177288_) - (let* ((_e177289177296_ _e177284_) - (_E177291177300_ + _stx178960_ + _hd179134_ + _q179381_))) + (_recur179140_ + (lambda (_e179231_ + _vars179232_ + _target179233_ + _E179234_ + _k179235_) + (let* ((_e179236179243_ _e179231_) + (_E179238179247_ (lambda () (error '"No clause matching" - _e177289177296_))) - (_K177292177422_ - (lambda (_body177303_ _tag177304_) - (let ((_$e177306_ _tag177304_)) + _e179236179243_))) + (_K179239179369_ + (lambda (_body179250_ _tag179251_) + (let ((_$e179253_ _tag179251_)) (if (let () (declare (not safe)) - (eq? 'any _$e177306_)) - (_k177288_ _vars177285_) + (eq? 'any _$e179253_)) + (_k179235_ _vars179232_) (if (let () (declare (not safe)) - (eq? 'id _$e177306_)) - (let ((__tmp182937 + (eq? 'id _$e179253_)) + (let ((__tmp184985 (let () (declare (not safe)) (gx#core-list 'identifier? - _target177286_))) - (__tmp182933 - (let ((__tmp182935 + _target179233_))) + (__tmp184981 + (let ((__tmp184983 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp182936 + (let ((__tmp184984 (let () (declare (not safe)) (gx#core-list - _wrap-e177016_ - _body177303_)))) + _wrap-e178963_ + _body179250_)))) (declare (not safe)) (gx#core-list - _identifier=?177014_ - __tmp182936 - _target177286_))) - (__tmp182934 (_k177288_ _vars177285_))) + _identifier=?178961_ + __tmp184984 + _target179233_))) + (__tmp184982 (_k179235_ _vars179232_))) (declare (not safe)) - (gx#core-list 'if __tmp182935 __tmp182934 _E177287_)))) + (gx#core-list 'if __tmp184983 __tmp184982 _E179234_)))) (declare (not safe)) - (gx#core-list 'if __tmp182937 __tmp182933 _E177287_)) + (gx#core-list 'if __tmp184985 __tmp184981 _E179234_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (eq? 'var - _$e177306_)) - (_k177288_ - (let ((__tmp182932 + _$e179253_)) + (_k179235_ + (let ((__tmp184980 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body177303_ _target177286_)))) + (cons _body179250_ _target179233_)))) (declare (not safe)) - (cons __tmp182932 _vars177285_))) - (if (let () (declare (not safe)) (eq? 'cons _$e177306_)) - (let ((_$e177309_ + (cons __tmp184980 _vars179232_))) + (if (let () (declare (not safe)) (eq? 'cons _$e179253_)) + (let ((_$e179256_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$hd177310_ + (_$hd179257_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl177311_ + (_$tl179258_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp182931 + (let ((__tmp184979 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _target177286_))) - (__tmp182912 - (let ((__tmp182926 - (let ((__tmp182927 - (let ((__tmp182930 + (gx#core-list 'stx-pair? _target179233_))) + (__tmp184960 + (let ((__tmp184974 + (let ((__tmp184975 + (let ((__tmp184978 (let () (declare (not safe)) - (cons _$e177309_ '()))) - (__tmp182928 - (let ((__tmp182929 + (cons _$e179256_ '()))) + (__tmp184976 + (let ((__tmp184977 (let () (declare (not safe)) (gx#core-list - _unwrap-e177015_ - _target177286_)))) + _unwrap-e178962_ + _target179233_)))) (declare (not safe)) - (cons __tmp182929 '())))) + (cons __tmp184977 '())))) (declare (not safe)) - (cons __tmp182930 __tmp182928)))) + (cons __tmp184978 __tmp184976)))) (declare (not safe)) - (cons __tmp182927 '()))) - (__tmp182913 - (let ((__tmp182916 - (let ((__tmp182922 - (let ((__tmp182925 + (cons __tmp184975 '()))) + (__tmp184961 + (let ((__tmp184964 + (let ((__tmp184970 + (let ((__tmp184973 (let () (declare (not safe)) - (cons _$hd177310_ + (cons _$hd179257_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp182923 - (let ((__tmp182924 + (__tmp184971 + (let ((__tmp184972 (let () (declare (not safe)) - (gx#core-list '##car _$e177309_)))) + (gx#core-list '##car _$e179256_)))) (declare (not safe)) - (cons __tmp182924 '())))) + (cons __tmp184972 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp182925 - __tmp182923))) - (__tmp182917 - (let ((__tmp182918 - (let ((__tmp182921 + (cons __tmp184973 + __tmp184971))) + (__tmp184965 + (let ((__tmp184966 + (let ((__tmp184969 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tl177311_ '()))) - (__tmp182919 - (let ((__tmp182920 + (cons _$tl179258_ '()))) + (__tmp184967 + (let ((__tmp184968 (let () (declare (not safe)) - (gx#core-list '##cdr _$e177309_)))) + (gx#core-list '##cdr _$e179256_)))) (declare (not safe)) - (cons __tmp182920 '())))) + (cons __tmp184968 '())))) (declare (not safe)) - (cons __tmp182921 __tmp182919)))) + (cons __tmp184969 __tmp184967)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp182918 '())))) + (cons __tmp184966 '())))) (declare (not safe)) - (cons __tmp182922 __tmp182917))) - (__tmp182914 - (let* ((_body177312177319_ - _body177303_) - (_E177314177323_ + (cons __tmp184970 __tmp184965))) + (__tmp184962 + (let* ((_body179259179266_ + _body179250_) + (_E179261179270_ (lambda () (error '"No clause matching" - _body177312177319_))) - (_K177315177331_ - (lambda (_tl177326_ - _hd177327_) - (let ((__tmp182915 - (lambda (_vars177329_) + _body179259179266_))) + (_K179262179278_ + (lambda (_tl179273_ + _hd179274_) + (let ((__tmp184963 + (lambda (_vars179276_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_recur177193_ - _tl177326_ - _vars177329_ - _$tl177311_ - _E177287_ - _k177288_))))) + (_recur179140_ + _tl179273_ + _vars179276_ + _$tl179258_ + _E179234_ + _k179235_))))) (declare (not safe)) - (_recur177193_ - _hd177327_ - _vars177285_ - _$hd177310_ - _E177287_ - __tmp182915))))) + (_recur179140_ + _hd179274_ + _vars179232_ + _$hd179257_ + _E179234_ + __tmp184963))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _body177312177319_)) - (let ((_hd177316177334_ + (##pair? _body179259179266_)) + (let ((_hd179263179281_ (let () (declare (not safe)) - (##car _body177312177319_))) - (_tl177317177336_ + (##car _body179259179266_))) + (_tl179264179283_ (let () (declare (not safe)) - (##cdr _body177312177319_)))) - (let* ((_hd177339_ - _hd177316177334_) - (_tl177341_ - _tl177317177336_)) + (##cdr _body179259179266_)))) + (let* ((_hd179286_ + _hd179263179281_) + (_tl179288_ + _tl179264179283_)) (declare (not safe)) - (_K177315177331_ - _tl177341_ - _hd177339_))) + (_K179262179278_ + _tl179288_ + _hd179286_))) (let () (declare (not safe)) - (_E177314177323_)))))) + (_E179261179270_)))))) (declare (not safe)) (gx#core-list 'let-values - __tmp182916 - __tmp182914)))) + __tmp184964 + __tmp184962)))) (declare (not safe)) (gx#core-list 'let-values - __tmp182926 - __tmp182913)))) + __tmp184974 + __tmp184961)))) (declare (not safe)) - (gx#core-list 'if __tmp182931 __tmp182912 _E177287_))) - (if (let () (declare (not safe)) (eq? 'splice _$e177306_)) - (let* ((_body177342177349_ _body177303_) - (_E177344177353_ + (gx#core-list 'if __tmp184979 __tmp184960 _E179234_))) + (if (let () (declare (not safe)) (eq? 'splice _$e179253_)) + (let* ((_body179289179296_ _body179250_) + (_E179291179300_ (lambda () (error '"No clause matching" - _body177342177349_))) - (_K177345177404_ - (lambda (_tl177356_ _hd177357_) - (let* ((_rlen177359_ + _body179289179296_))) + (_K179292179351_ + (lambda (_tl179303_ _hd179304_) + (let* ((_rlen179306_ (let () (declare (not safe)) - (_splice-rlen177194_ _tl177356_))) - (_$target177361_ + (_splice-rlen179141_ _tl179303_))) + (_$target179308_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_$hd177363_ + (_$hd179310_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl177365_ + (_$tl179312_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_$lp177367_ + (_$lp179314_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_$lp-e177369_ + (_$lp-e179316_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$lp-hd177371_ + (_$lp-hd179318_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_$lp-tl177373_ + (_$lp-tl179320_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_svars177375_ + (_svars179322_ (let () (declare (not safe)) - (_splice-vars177195_ _hd177357_))) - (_lvars177377_ + (_splice-vars179142_ _hd179304_))) + (_lvars179324_ (let () (declare (not safe)) - (gx#gentemps _svars177375_))) - (_tlvars177379_ + (gx#gentemps _svars179322_))) + (_tlvars179326_ (let () (declare (not safe)) - (gx#gentemps _svars177375_))) - (_linit177383_ - (map (lambda (_var177381_) + (gx#gentemps _svars179322_))) + (_linit179330_ + (map (lambda (_var179328_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _lvars177377_))) - (letrec ((_make-loop177386_ - (lambda (_vars177390_) - (let ((__tmp182863 - (let ((__tmp182864 - (let ((__tmp182900 + _lvars179324_))) + (letrec ((_make-loop179333_ + (lambda (_vars179337_) + (let ((__tmp184911 + (let ((__tmp184912 + (let ((__tmp184948 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp177367_ '()))) - (__tmp182865 - (let ((__tmp182866 - (let ((__tmp182899 + (cons _$lp179314_ '()))) + (__tmp184913 + (let ((__tmp184914 + (let ((__tmp184947 (let () (declare (not safe)) - (cons _$hd177363_ _lvars177377_))) - (__tmp182867 - (let ((__tmp182898 + (cons _$hd179310_ _lvars179324_))) + (__tmp184915 + (let ((__tmp184946 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _$hd177363_))) - (__tmp182876 - (let ((__tmp182893 - (let ((__tmp182894 - (let ((__tmp182897 + _$hd179310_))) + (__tmp184924 + (let ((__tmp184941 + (let ((__tmp184942 + (let ((__tmp184945 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp-e177369_ '()))) - (__tmp182895 - (let ((__tmp182896 + (cons _$lp-e179316_ '()))) + (__tmp184943 + (let ((__tmp184944 (let () (declare (not safe)) (gx#core-list - _unwrap-e177015_ - _$hd177363_)))) + _unwrap-e178962_ + _$hd179310_)))) (declare (not safe)) - (cons __tmp182896 '())))) + (cons __tmp184944 '())))) (declare (not safe)) - (cons __tmp182897 __tmp182895)))) + (cons __tmp184945 __tmp184943)))) (declare (not safe)) - (cons __tmp182894 '()))) - (__tmp182877 - (let ((__tmp182883 - (let ((__tmp182889 - (let ((__tmp182892 + (cons __tmp184942 '()))) + (__tmp184925 + (let ((__tmp184931 + (let ((__tmp184937 + (let ((__tmp184940 (let () (declare (not safe)) - (cons _$lp-hd177371_ '()))) - (__tmp182890 - (let ((__tmp182891 + (cons _$lp-hd179318_ '()))) + (__tmp184938 + (let ((__tmp184939 (let () (declare (not safe)) (gx#core-list '##car - _$lp-e177369_)))) + _$lp-e179316_)))) (declare (not safe)) - (cons __tmp182891 '())))) + (cons __tmp184939 '())))) (declare (not safe)) - (cons __tmp182892 __tmp182890))) - (__tmp182884 - (let ((__tmp182885 - (let ((__tmp182888 + (cons __tmp184940 __tmp184938))) + (__tmp184932 + (let ((__tmp184933 + (let ((__tmp184936 (let () (declare (not safe)) - (cons _$lp-tl177373_ '()))) - (__tmp182886 - (let ((__tmp182887 + (cons _$lp-tl179320_ '()))) + (__tmp184934 + (let ((__tmp184935 (let () (declare (not safe)) (gx#core-list '##cdr - _$lp-e177369_)))) + _$lp-e179316_)))) (declare (not safe)) - (cons __tmp182887 '())))) + (cons __tmp184935 '())))) (declare (not safe)) - (cons __tmp182888 __tmp182886)))) + (cons __tmp184936 __tmp184934)))) (declare (not safe)) - (cons __tmp182885 '())))) + (cons __tmp184933 '())))) (declare (not safe)) - (cons __tmp182889 __tmp182884))) - (__tmp182878 - (let ((__tmp182879 - (lambda (_hdvars177392_) - (let ((__tmp182880 - (let ((__tmp182881 - (map (lambda (_svar177394_ - _lvar177395_) - (let ((__tmp182882 + (cons __tmp184937 __tmp184932))) + (__tmp184926 + (let ((__tmp184927 + (lambda (_hdvars179339_) + (let ((__tmp184928 + (let ((__tmp184929 + (map (lambda (_svar179341_ + _lvar179342_) + (let ((__tmp184930 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq _svar177394_ _hdvars177392_ _BUG177192_)))) + (assgetq _svar179341_ _hdvars179339_ _BUG179139_)))) (declare (not safe)) - (gx#core-list 'cons __tmp182882 _lvar177395_))) + (gx#core-list 'cons __tmp184930 _lvar179342_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _svars177375_ - _lvars177377_))) + _svars179322_ + _lvars179324_))) (declare (not safe)) - (cons _$lp-tl177373_ __tmp182881)))) + (cons _$lp-tl179320_ __tmp184929)))) (declare (not safe)) - (cons _$lp177367_ __tmp182880))))) + (cons _$lp179314_ __tmp184928))))) (declare (not safe)) - (_recur177193_ - _hd177357_ + (_recur179140_ + _hd179304_ '() - _$lp-hd177371_ - _E177287_ - __tmp182879)))) + _$lp-hd179318_ + _E179234_ + __tmp184927)))) (declare (not safe)) - (gx#core-list 'let-values __tmp182883 __tmp182878)))) + (gx#core-list 'let-values __tmp184931 __tmp184926)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp182893 - __tmp182877))) - (__tmp182868 - (let ((__tmp182872 - (map (lambda (_lvar177397_ + __tmp184941 + __tmp184925))) + (__tmp184916 + (let ((__tmp184920 + (map (lambda (_lvar179344_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tlvar177398_) - (let ((__tmp182875 + _tlvar179345_) + (let ((__tmp184923 (let () (declare (not safe)) - (cons _tlvar177398_ '()))) - (__tmp182873 - (let ((__tmp182874 + (cons _tlvar179345_ '()))) + (__tmp184921 + (let ((__tmp184922 (let () (declare (not safe)) - (gx#core-list 'reverse _lvar177397_)))) + (gx#core-list 'reverse _lvar179344_)))) (declare (not safe)) - (cons __tmp182874 '())))) + (cons __tmp184922 '())))) (declare (not safe)) - (cons __tmp182875 __tmp182873))) - _lvars177377_ - _tlvars177379_)) - (__tmp182869 - (_k177288_ - (let ((__tmp182870 - (lambda (_svar177400_ _tlvar177401_ _r177402_) - (let ((__tmp182871 + (cons __tmp184923 __tmp184921))) + _lvars179324_ + _tlvars179326_)) + (__tmp184917 + (_k179235_ + (let ((__tmp184918 + (lambda (_svar179347_ _tlvar179348_ _r179349_) + (let ((__tmp184919 (let () (declare (not safe)) - (cons _svar177400_ _tlvar177401_)))) + (cons _svar179347_ _tlvar179348_)))) (declare (not safe)) - (cons __tmp182871 _r177402_))))) + (cons __tmp184919 _r179349_))))) (declare (not safe)) - (foldl2 __tmp182870 - _vars177390_ - _svars177375_ - _tlvars177379_))))) + (foldl2 __tmp184918 + _vars179337_ + _svars179322_ + _tlvars179326_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp182872 - __tmp182869)))) + __tmp184920 + __tmp184917)))) (declare (not safe)) (gx#core-list 'if - __tmp182898 - __tmp182876 - __tmp182868)))) + __tmp184946 + __tmp184924 + __tmp184916)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp182899 - __tmp182867)))) + __tmp184947 + __tmp184915)))) (declare (not safe)) - (cons __tmp182866 '())))) + (cons __tmp184914 '())))) (declare (not safe)) - (cons __tmp182900 __tmp182865)))) + (cons __tmp184948 __tmp184913)))) (declare (not safe)) - (cons __tmp182864 '()))) - (__tmp182861 - (let ((__tmp182862 + (cons __tmp184912 '()))) + (__tmp184909 + (let ((__tmp184910 (let () (declare (not safe)) - (cons _$target177361_ _linit177383_)))) + (cons _$target179308_ _linit179330_)))) (declare (not safe)) - (cons _$lp177367_ __tmp182862)))) + (cons _$lp179314_ __tmp184910)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp182863 - __tmp182861))))) - (let ((_body177388_ - (let ((__tmp182902 - (let ((__tmp182903 - (let ((__tmp182906 + __tmp184911 + __tmp184909))))) + (let ((_body179335_ + (let ((__tmp184950 + (let ((__tmp184951 + (let ((__tmp184954 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp182907 + (let ((__tmp184955 (let () (declare (not safe)) - (cons _$tl177365_ '())))) + (cons _$tl179312_ '())))) (declare (not safe)) - (cons _$target177361_ __tmp182907))) - (__tmp182904 - (let ((__tmp182905 + (cons _$target179308_ __tmp184955))) + (__tmp184952 + (let ((__tmp184953 (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _target177286_ - _rlen177359_)))) + _target179233_ + _rlen179306_)))) (declare (not safe)) - (cons __tmp182905 '())))) + (cons __tmp184953 '())))) (declare (not safe)) - (cons __tmp182906 __tmp182904)))) + (cons __tmp184954 __tmp184952)))) (declare (not safe)) - (cons __tmp182903 '()))) + (cons __tmp184951 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp182901 + (__tmp184949 (let () (declare (not safe)) - (_recur177193_ - _tl177356_ - _vars177285_ - _$tl177365_ - _E177287_ - _make-loop177386_)))) + (_recur179140_ + _tl179303_ + _vars179232_ + _$tl179312_ + _E179234_ + _make-loop179333_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp182902 - __tmp182901)))) - (let ((__tmp182911 + __tmp184950 + __tmp184949)))) + (let ((__tmp184959 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _target177286_))) - (__tmp182908 + _target179233_))) + (__tmp184956 (if (let () (declare (not safe)) - (zero? _rlen177359_)) - _body177388_ - (let ((__tmp182909 - (let ((__tmp182910 + (zero? _rlen179306_)) + _body179335_ + (let ((__tmp184957 + (let ((__tmp184958 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _target177286_)))) + (gx#core-list 'stx-length _target179233_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp182910 _rlen177359_)))) + (gx#core-list 'fx>= __tmp184958 _rlen179306_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp182909 - _body177388_ - _E177287_))))) + __tmp184957 + _body179335_ + _E179234_))))) (declare (not safe)) (gx#core-list 'if - __tmp182911 - __tmp182908 - _E177287_)))))))) + __tmp184959 + __tmp184956 + _E179234_)))))))) (if (let () (declare (not safe)) - (##pair? _body177342177349_)) - (let ((_hd177346177407_ + (##pair? _body179289179296_)) + (let ((_hd179293179354_ (let () (declare (not safe)) - (##car _body177342177349_))) - (_tl177347177409_ + (##car _body179289179296_))) + (_tl179294179356_ (let () (declare (not safe)) - (##cdr _body177342177349_)))) - (let* ((_hd177412_ _hd177346177407_) - (_tl177414_ _tl177347177409_)) + (##cdr _body179289179296_)))) + (let* ((_hd179359_ _hd179293179354_) + (_tl179361_ _tl179294179356_)) (declare (not safe)) - (_K177345177404_ _tl177414_ _hd177412_))) - (let () (declare (not safe)) (_E177344177353_)))) + (_K179292179351_ _tl179361_ _hd179359_))) + (let () (declare (not safe)) (_E179291179300_)))) (if (let () (declare (not safe)) - (eq? 'null _$e177306_)) - (let ((__tmp182860 + (eq? 'null _$e179253_)) + (let ((__tmp184908 (let () (declare (not safe)) - (gx#core-list 'stx-null? _target177286_))) - (__tmp182859 (_k177288_ _vars177285_))) + (gx#core-list 'stx-null? _target179233_))) + (__tmp184907 (_k179235_ _vars179232_))) (declare (not safe)) (gx#core-list 'if - __tmp182860 - __tmp182859 - _E177287_)) + __tmp184908 + __tmp184907 + _E179234_)) (if (let () (declare (not safe)) - (eq? 'vector _$e177306_)) - (let ((_$e177416_ + (eq? 'vector _$e179253_)) + (let ((_$e179363_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp182858 + (let ((__tmp184906 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _target177286_))) - (__tmp182850 - (let ((__tmp182852 - (let ((__tmp182853 - (let ((__tmp182857 + _target179233_))) + (__tmp184898 + (let ((__tmp184900 + (let ((__tmp184901 + (let ((__tmp184905 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$e177416_ '()))) - (__tmp182854 - (let ((__tmp182855 - (let ((__tmp182856 + (cons _$e179363_ '()))) + (__tmp184902 + (let ((__tmp184903 + (let ((__tmp184904 (let () (declare (not safe)) (gx#core-list - _unwrap-e177015_ - _target177286_)))) + _unwrap-e178962_ + _target179233_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp182856)))) + (gx#core-list 'vector->list __tmp184904)))) (declare (not safe)) - (cons __tmp182855 '())))) + (cons __tmp184903 '())))) (declare (not safe)) - (cons __tmp182857 __tmp182854)))) + (cons __tmp184905 __tmp184902)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp182853 '()))) - (__tmp182851 + (cons __tmp184901 '()))) + (__tmp184899 (let () (declare (not safe)) - (_recur177193_ - _body177303_ - _vars177285_ - _$e177416_ - _E177287_ - _k177288_)))) + (_recur179140_ + _body179250_ + _vars179232_ + _$e179363_ + _E179234_ + _k179235_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp182852 - __tmp182851)))) + __tmp184900 + __tmp184899)))) (declare (not safe)) (gx#core-list 'if - __tmp182858 - __tmp182850 - _E177287_))) + __tmp184906 + __tmp184898 + _E179234_))) (if (let () (declare (not safe)) - (eq? 'box _$e177306_)) - (let ((_$e177418_ + (eq? 'box _$e179253_)) + (let ((_$e179365_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp182849 + (let ((__tmp184897 (let () (declare (not safe)) (gx#core-list 'stx-box? - _target177286_))) - (__tmp182841 - (let ((__tmp182843 - (let ((__tmp182844 - (let ((__tmp182848 + _target179233_))) + (__tmp184889 + (let ((__tmp184891 + (let ((__tmp184892 + (let ((__tmp184896 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _$e177418_ '()))) - (__tmp182845 - (let ((__tmp182846 - (let ((__tmp182847 + (let () (declare (not safe)) (cons _$e179365_ '()))) + (__tmp184893 + (let ((__tmp184894 + (let ((__tmp184895 (let () (declare (not safe)) (gx#core-list - _unwrap-e177015_ - _target177286_)))) + _unwrap-e178962_ + _target179233_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp182847)))) + (gx#core-list 'unbox __tmp184895)))) (declare (not safe)) - (cons __tmp182846 '())))) + (cons __tmp184894 '())))) (declare (not safe)) - (cons __tmp182848 __tmp182845)))) + (cons __tmp184896 __tmp184893)))) (declare (not safe)) - (cons __tmp182844 '()))) + (cons __tmp184892 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp182842 + (__tmp184890 (let () (declare (not safe)) - (_recur177193_ - _body177303_ - _vars177285_ - _$e177418_ - _E177287_ - _k177288_)))) + (_recur179140_ + _body179250_ + _vars179232_ + _$e179365_ + _E179234_ + _k179235_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp182843 - __tmp182842)))) + __tmp184891 + __tmp184890)))) (declare (not safe)) (gx#core-list 'if - __tmp182849 - __tmp182841 - _E177287_))) + __tmp184897 + __tmp184889 + _E179234_))) (if (let () (declare (not safe)) - (eq? 'datum _$e177306_)) - (let ((_$e177420_ + (eq? 'datum _$e179253_)) + (let ((_$e179367_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp182840 + (let ((__tmp184888 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _target177286_))) - (__tmp182831 - (let ((__tmp182835 - (let ((__tmp182836 - (let ((__tmp182839 + _target179233_))) + (__tmp184879 + (let ((__tmp184883 + (let ((__tmp184884 + (let ((__tmp184887 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$e177420_ '()))) - (__tmp182837 - (let ((__tmp182838 + (cons _$e179367_ '()))) + (__tmp184885 + (let ((__tmp184886 (let () (declare (not safe)) - (gx#core-list 'stx-e _target177286_)))) + (gx#core-list 'stx-e _target179233_)))) (declare (not safe)) - (cons __tmp182838 '())))) + (cons __tmp184886 '())))) (declare (not safe)) - (cons __tmp182839 __tmp182837)))) + (cons __tmp184887 __tmp184885)))) (declare (not safe)) - (cons __tmp182836 '()))) - (__tmp182832 - (let ((__tmp182834 + (cons __tmp184884 '()))) + (__tmp184880 + (let ((__tmp184882 (let () (declare (not safe)) - (gx#core-list 'equal? _$e177420_ _body177303_))) - (__tmp182833 (_k177288_ _vars177285_))) + (gx#core-list 'equal? _$e179367_ _body179250_))) + (__tmp184881 (_k179235_ _vars179232_))) (declare (not safe)) - (gx#core-list 'if __tmp182834 __tmp182833 _E177287_)))) + (gx#core-list 'if __tmp184882 __tmp184881 _E179234_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp182835 - __tmp182832)))) + __tmp184883 + __tmp184880)))) (declare (not safe)) (gx#core-list 'if - __tmp182840 - __tmp182831 - _E177287_))) + __tmp184888 + __tmp184879 + _E179234_))) (let () (declare (not safe)) - (_BUG177192_ _e177284_))))))))))))))) + (_BUG179139_ _e179231_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e177289177296_)) - (let ((_hd177293177425_ + (##pair? _e179236179243_)) + (let ((_hd179240179372_ (let () (declare (not safe)) - (##car _e177289177296_))) - (_tl177294177427_ + (##car _e179236179243_))) + (_tl179241179374_ (let () (declare (not safe)) - (##cdr _e177289177296_)))) - (let* ((_tag177430_ _hd177293177425_) - (_body177432_ _tl177294177427_)) + (##cdr _e179236179243_)))) + (let* ((_tag179377_ _hd179240179372_) + (_body179379_ _tl179241179374_)) (declare (not safe)) - (_K177292177422_ - _body177432_ - _tag177430_))) + (_K179239179369_ + _body179379_ + _tag179377_))) (let () (declare (not safe)) - (_E177291177300_)))))) - (_splice-rlen177194_ - (lambda (_e177246_) - (let _lp177248_ ((_e177250_ _e177246_) - (_n177251_ '0)) - (let* ((_e177252177259_ _e177250_) - (_E177254177263_ + (_E179238179247_)))))) + (_splice-rlen179141_ + (lambda (_e179193_) + (let _lp179195_ ((_e179197_ _e179193_) + (_n179198_ '0)) + (let* ((_e179199179206_ _e179197_) + (_E179201179210_ (lambda () (error '"No clause matching" - _e177252177259_))) - (_K177255177272_ - (lambda (_body177266_ _tag177267_) - (let ((_$e177269_ _tag177267_)) + _e179199179206_))) + (_K179202179219_ + (lambda (_body179213_ _tag179214_) + (let ((_$e179216_ _tag179214_)) (if (let () (declare (not safe)) - (eq? 'splice _$e177269_)) + (eq? 'splice _$e179216_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _stx177013_ - _where177185_)) + _stx178960_ + _where179132_)) (if (let () (declare (not safe)) - (eq? 'cons _$e177269_)) - (let ((__tmp182939 - (cdr _body177266_)) - (__tmp182938 + (eq? 'cons _$e179216_)) + (let ((__tmp184987 + (cdr _body179213_)) + (__tmp184986 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (fx+ _n177251_ '1)))) + (fx+ _n179198_ '1)))) (declare (not safe)) - (_lp177248_ __tmp182939 __tmp182938)) - _n177251_)))))) + (_lp179195_ __tmp184987 __tmp184986)) + _n179198_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e177252177259_)) - (let ((_hd177256177275_ + (##pair? _e179199179206_)) + (let ((_hd179203179222_ (let () (declare (not safe)) - (##car _e177252177259_))) - (_tl177257177277_ + (##car _e179199179206_))) + (_tl179204179224_ (let () (declare (not safe)) - (##cdr _e177252177259_)))) - (let* ((_tag177280_ _hd177256177275_) - (_body177282_ - _tl177257177277_)) + (##cdr _e179199179206_)))) + (let* ((_tag179227_ _hd179203179222_) + (_body179229_ + _tl179204179224_)) (declare (not safe)) - (_K177255177272_ - _body177282_ - _tag177280_))) + (_K179202179219_ + _body179229_ + _tag179227_))) (let () (declare (not safe)) - (_E177254177263_))))))) - (_splice-vars177195_ - (lambda (_e177202_) - (let _recur177204_ ((_e177206_ _e177202_) - (_vars177207_ '())) - (let* ((_e177208177215_ _e177206_) - (_E177210177219_ + (_E179201179210_))))))) + (_splice-vars179142_ + (lambda (_e179149_) + (let _recur179151_ ((_e179153_ _e179149_) + (_vars179154_ '())) + (let* ((_e179155179162_ _e179153_) + (_E179157179166_ (lambda () (error '"No clause matching" - _e177208177215_))) - (_K177211177234_ - (lambda (_body177222_ _tag177223_) - (let ((_$e177225_ _tag177223_)) + _e179155179162_))) + (_K179158179181_ + (lambda (_body179169_ _tag179170_) + (let ((_$e179172_ _tag179170_)) (if (let () (declare (not safe)) - (eq? 'var _$e177225_)) + (eq? 'var _$e179172_)) (let () (declare (not safe)) - (cons _body177222_ - _vars177207_)) + (cons _body179169_ + _vars179154_)) (if (or (let () (declare (not safe)) (eq? 'cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e177225_)) - (let () (declare (not safe)) (eq? 'splice _$e177225_))) - (let ((__tmp182942 (cdr _body177222_)) - (__tmp182940 - (let ((__tmp182941 (car _body177222_))) + _$e179172_)) + (let () (declare (not safe)) (eq? 'splice _$e179172_))) + (let ((__tmp184990 (cdr _body179169_)) + (__tmp184988 + (let ((__tmp184989 (car _body179169_))) (declare (not safe)) - (_recur177204_ __tmp182941 _vars177207_)))) + (_recur179151_ __tmp184989 _vars179154_)))) (declare (not safe)) - (_recur177204_ __tmp182942 __tmp182940)) - (if (or (let () (declare (not safe)) (eq? 'vector _$e177225_)) - (let () (declare (not safe)) (eq? 'box _$e177225_))) + (_recur179151_ __tmp184990 __tmp184988)) + (if (or (let () (declare (not safe)) (eq? 'vector _$e179172_)) + (let () (declare (not safe)) (eq? 'box _$e179172_))) (let () (declare (not safe)) - (_recur177204_ _body177222_ _vars177207_)) - _vars177207_))))))) + (_recur179151_ _body179169_ _vars179154_)) + _vars179154_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e177208177215_)) - (let ((_hd177212177237_ + (##pair? _e179155179162_)) + (let ((_hd179159179184_ (let () (declare (not safe)) - (##car _e177208177215_))) - (_tl177213177239_ + (##car _e179155179162_))) + (_tl179160179186_ (let () (declare (not safe)) - (##cdr _e177208177215_)))) - (let* ((_tag177242_ _hd177212177237_) - (_body177244_ - _tl177213177239_)) + (##cdr _e179155179162_)))) + (let* ((_tag179189_ _hd179159179184_) + (_body179191_ + _tl179160179186_)) (declare (not safe)) - (_K177211177234_ - _body177244_ - _tag177242_))) + (_K179158179181_ + _body179191_ + _tag179189_))) (let () (declare (not safe)) - (_E177210177219_))))))) - (_make-body177196_ - (lambda (_vars177198_) - (let ((__tmp182943 - (map (lambda (_mvar177200_) - (let ((__tmp182944 - (car _mvar177200_))) + (_E179157179166_))))))) + (_make-body179143_ + (lambda (_vars179145_) + (let ((__tmp184991 + (map (lambda (_mvar179147_) + (let ((__tmp184992 + (car _mvar179147_))) (declare (not safe)) - (assgetq __tmp182944 - _vars177198_ - _BUG177192_))) - _mvars177188_))) + (assgetq __tmp184992 + _vars179145_ + _BUG179139_))) + _mvars179135_))) (declare (not safe)) - (cons _K177189_ __tmp182943))))) + (cons _K179136_ __tmp184991))))) (let () (declare (not safe)) - (_recur177193_ - _hd177187_ + (_recur179140_ + _hd179134_ '() - _target177186_ - _E177190_ - _make-body177196_))))) - (_parse-clause177022_ - (lambda (_hd177091_ _ids177092_) - (let _recur177094_ ((_e177096_ _hd177091_) - (_vars177097_ '()) - (_depth177098_ '0)) + _target179133_ + _E179137_ + _make-body179143_))))) + (_parse-clause178969_ + (lambda (_hd179038_ _ids179039_) + (let _recur179041_ ((_e179043_ _hd179038_) + (_vars179044_ '()) + (_depth179045_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _e177096_)) + (gx#identifier? _e179043_)) (if (let () (declare (not safe)) - (gx#underscore? _e177096_)) - (values '(any) _vars177097_) + (gx#underscore? _e179043_)) + (values '(any) _vars179044_) (if (let () (declare (not safe)) - (gx#ellipsis? _e177096_)) + (gx#ellipsis? _e179043_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx177013_ - _hd177091_)) - (if (let ((__tmp182960 - (lambda (_id177100_) + _stx178960_ + _hd179038_)) + (if (let ((__tmp185008 + (lambda (_id179047_) (let () (declare (not safe)) (gx#bound-identifier=? - _e177096_ - _id177100_))))) + _e179043_ + _id179047_))))) (declare (not safe)) - (find __tmp182960 _ids177092_)) + (find __tmp185008 _ids179039_)) (values (let () (declare (not safe)) - (cons 'id _e177096_)) - _vars177097_) - (if (let ((__tmp182958 - (lambda (_var177102_) - (let ((__tmp182959 - (car _var177102_))) + (cons 'id _e179043_)) + _vars179044_) + (if (let ((__tmp185006 + (lambda (_var179049_) + (let ((__tmp185007 + (car _var179049_))) (declare (not safe)) (gx#bound-identifier=? - _e177096_ - __tmp182959))))) + _e179043_ + __tmp185007))))) (declare (not safe)) - (find __tmp182958 _vars177097_)) + (find __tmp185006 _vars179044_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _stx177013_ - _e177096_)) + _stx178960_ + _e179043_)) (values (let () (declare (not safe)) - (cons 'var _e177096_)) - (let ((__tmp182957 + (cons 'var _e179043_)) + (let ((__tmp185005 (let () (declare (not safe)) - (cons _e177096_ + (cons _e179043_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _depth177098_)))) + _depth179045_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp182957 - _vars177097_))))))) + (cons __tmp185005 + _vars179044_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _e177096_)) - (let* ((_e177103177110_ _e177096_) - (_E177105177114_ + (gx#stx-pair? _e179043_)) + (let* ((_e179050179057_ _e179043_) + (_E179052179061_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e177103177110_)))) - (_E177104177175_ + _e179050179057_)))) + (_E179051179122_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e177103177110_)) - (let ((_e177106177118_ + (gx#stx-pair? _e179050179057_)) + (let ((_e179053179065_ (let () (declare (not safe)) (gx#syntax-e - _e177103177110_)))) - (let ((_hd177107177121_ + _e179050179057_)))) + (let ((_hd179054179068_ (let () (declare (not safe)) - (##car _e177106177118_))) - (_tl177108177123_ + (##car _e179053179065_))) + (_tl179055179070_ (let () (declare (not safe)) - (##cdr _e177106177118_)))) - (let* ((_hd177126_ - _hd177107177121_) - (_rest177128_ - _tl177108177123_)) + (##cdr _e179053179065_)))) + (let* ((_hd179073_ + _hd179054179068_) + (_rest179075_ + _tl179055179070_)) (if '#t - (let* ((_make-pair177143_ - (lambda (_tag177130_ + (let* ((_make-pair179090_ + (lambda (_tag179077_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd177131_ - _tl177132_) - (let* ((_hd-depth177134_ + _hd179078_ + _tl179079_) + (let* ((_hd-depth179081_ (if (let () (declare (not safe)) - (eq? _tag177130_ 'splice)) + (eq? _tag179077_ 'splice)) (let () (declare (not safe)) - (fx+ _depth177098_ '1)) - _depth177098_)) - (_g182952_ + (fx+ _depth179045_ '1)) + _depth179045_)) + (_g185000_ (let () (declare (not safe)) - (_recur177094_ - _hd177131_ - _vars177097_ - _hd-depth177134_)))) + (_recur179041_ + _hd179078_ + _vars179044_ + _hd-depth179081_)))) (begin - (let ((_g182953_ + (let ((_g185001_ (let () (declare (not safe)) - (if (##values? _g182952_) - (##vector-length _g182952_) + (if (##values? _g185000_) + (##vector-length _g185000_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g182953_ 2))) + (##fx= _g185001_ 2))) (error "Context expects 2 values" - _g182953_))) - (let ((_hd177136_ + _g185001_))) + (let ((_hd179083_ (let () (declare (not safe)) - (##vector-ref _g182952_ 0))) - (_vars177137_ + (##vector-ref _g185000_ 0))) + (_vars179084_ (let () (declare (not safe)) - (##vector-ref _g182952_ 1)))) - (let ((_g182954_ + (##vector-ref _g185000_ 1)))) + (let ((_g185002_ (let () (declare (not safe)) - (_recur177094_ - _tl177132_ - _vars177137_ - _depth177098_)))) + (_recur179041_ + _tl179079_ + _vars179084_ + _depth179045_)))) (begin - (let ((_g182955_ + (let ((_g185003_ (let () (declare (not safe)) - (if (##values? _g182954_) - (##vector-length _g182954_) + (if (##values? _g185002_) + (##vector-length _g185002_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g182955_ 2))) + (##fx= _g185003_ 2))) (error "Context expects 2 values" - _g182955_))) - (let ((_tl177139_ + _g185003_))) + (let ((_tl179086_ (let () (declare (not safe)) - (##vector-ref _g182954_ 0))) - (_vars177140_ + (##vector-ref _g185002_ 0))) + (_vars179087_ (let () (declare (not safe)) - (##vector-ref _g182954_ 1)))) + (##vector-ref _g185002_ 1)))) (let () - (values (let ((__tmp182956 + (values (let ((__tmp185004 (let () (declare (not safe)) - (cons _hd177136_ - _tl177139_)))) + (cons _hd179083_ + _tl179086_)))) (declare (not safe)) - (cons _tag177130_ __tmp182956)) - _vars177140_)))))))))) - (_e177144177151_ _rest177128_) - (_E177146177155_ + (cons _tag179077_ __tmp185004)) + _vars179087_)))))))))) + (_e179091179098_ _rest179075_) + (_E179093179102_ (lambda () (let () (declare (not safe)) - (_make-pair177143_ 'cons _hd177126_ _rest177128_)))) - (_E177145177171_ + (_make-pair179090_ 'cons _hd179073_ _rest179075_)))) + (_E179092179118_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e177144177151_)) - (let ((_e177147177159_ + (gx#stx-pair? _e179091179098_)) + (let ((_e179094179106_ (let () (declare (not safe)) - (gx#syntax-e _e177144177151_)))) - (let ((_hd177148177162_ + (gx#syntax-e _e179091179098_)))) + (let ((_hd179095179109_ (let () (declare (not safe)) - (##car _e177147177159_))) - (_tl177149177164_ + (##car _e179094179106_))) + (_tl179096179111_ (let () (declare (not safe)) - (##cdr _e177147177159_)))) - (let* ((_rest-hd177167_ _hd177148177162_) - (_rest-tl177169_ _tl177149177164_)) + (##cdr _e179094179106_)))) + (let* ((_rest-hd179114_ _hd179095179109_) + (_rest-tl179116_ _tl179096179111_)) (if '#t (if (let () (declare (not safe)) - (gx#ellipsis? _rest-hd177167_)) + (gx#ellipsis? _rest-hd179114_)) (let () (declare (not safe)) - (_make-pair177143_ + (_make-pair179090_ 'splice - _hd177126_ - _rest-tl177169_)) + _hd179073_ + _rest-tl179116_)) (let () (declare (not safe)) - (_make-pair177143_ + (_make-pair179090_ 'cons - _hd177126_ - _rest177128_))) + _hd179073_ + _rest179075_))) (let () (declare (not safe)) - (_E177146177155_)))))) - (let () (declare (not safe)) (_E177146177155_)))))) - (let () (declare (not safe)) (_E177145177171_))) - (let () (declare (not safe)) (_E177105177114_)))))) + (_E179093179102_)))))) + (let () (declare (not safe)) (_E179093179102_)))))) + (let () (declare (not safe)) (_E179092179118_))) + (let () (declare (not safe)) (_E179052179061_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E177105177114_)))))) + (_E179052179061_)))))) (let () (declare (not safe)) - (_E177104177175_))) + (_E179051179122_))) (if (let () (declare (not safe)) - (gx#stx-null? _e177096_)) - (values '(null) _vars177097_) + (gx#stx-null? _e179043_)) + (values '(null) _vars179044_) (if (let () (declare (not safe)) - (gx#stx-vector? _e177096_)) - (let ((_g182949_ - (let ((__tmp182951 + (gx#stx-vector? _e179043_)) + (let ((_g184997_ + (let ((__tmp184999 (vector->list (let () (declare (not safe)) (gx#syntax-e - _e177096_))))) + _e179043_))))) (declare (not safe)) - (_recur177094_ - __tmp182951 - _vars177097_ - _depth177098_)))) + (_recur179041_ + __tmp184999 + _vars179044_ + _depth179045_)))) (begin - (let ((_g182950_ + (let ((_g184998_ (let () (declare (not safe)) - (if (##values? _g182949_) + (if (##values? _g184997_) (##vector-length - _g182949_) + _g184997_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g182950_ 2))) + (##fx= _g184998_ 2))) (error "Context expects 2 values" - _g182950_))) - (let ((_e177179_ + _g184998_))) + (let ((_e179126_ (let () (declare (not safe)) - (##vector-ref _g182949_ 0))) - (_vars177180_ + (##vector-ref _g184997_ 0))) + (_vars179127_ (let () (declare (not safe)) (##vector-ref - _g182949_ + _g184997_ 1)))) (values (let () (declare (not safe)) - (cons 'vector _e177179_)) - _vars177180_)))) + (cons 'vector _e179126_)) + _vars179127_)))) (if (let () (declare (not safe)) - (gx#stx-box? _e177096_)) - (let ((_g182946_ - (let ((__tmp182948 + (gx#stx-box? _e179043_)) + (let ((_g184994_ + (let ((__tmp184996 (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _e177096_))))) + (gx#syntax-e _e179043_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_recur177094_ - __tmp182948 - _vars177097_ - _depth177098_)))) + (_recur179041_ + __tmp184996 + _vars179044_ + _depth179045_)))) (begin - (let ((_g182947_ + (let ((_g184995_ (let () (declare (not safe)) (if (##values? - _g182946_) + _g184994_) (##vector-length - _g182946_) + _g184994_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g182947_ + (##fx= _g184995_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g182947_))) - (let ((_e177182_ + _g184995_))) + (let ((_e179129_ (let () (declare (not safe)) (##vector-ref - _g182946_ + _g184994_ 0))) - (_vars177183_ + (_vars179130_ (let () (declare (not safe)) (##vector-ref - _g182946_ + _g184994_ 1)))) (values (let () (declare (not safe)) (cons 'box - _e177182_)) - _vars177183_)))) + _e179129_)) + _vars179130_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _e177096_)) - (values (let ((__tmp182945 + (gx#stx-datum? _e179043_)) + (values (let ((__tmp184993 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _e177096_)))) + (gx#stx-e _e179043_)))) (declare (not safe)) - (cons 'datum __tmp182945)) - _vars177097_) + (cons 'datum __tmp184993)) + _vars179044_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _stx177013_ - _e177096_)))))))))))) - (let* ((_e177023177036_ _stx177013_) - (_E177025177040_ + _stx178960_ + _e179043_)))))))))))) + (let* ((_e178970178983_ _stx178960_) + (_E178972178987_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e177023177036_)))) - (_E177024177087_ + _e178970178983_)))) + (_E178971179034_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e177023177036_)) - (let ((_e177026177044_ + (gx#stx-pair? _e178970178983_)) + (let ((_e178973178991_ (let () (declare (not safe)) - (gx#syntax-e _e177023177036_)))) - (let ((_hd177027177047_ + (gx#syntax-e _e178970178983_)))) + (let ((_hd178974178994_ (let () (declare (not safe)) - (##car _e177026177044_))) - (_tl177028177049_ + (##car _e178973178991_))) + (_tl178975178996_ (let () (declare (not safe)) - (##cdr _e177026177044_)))) + (##cdr _e178973178991_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl177028177049_)) - (let ((_e177029177052_ + (gx#stx-pair? _tl178975178996_)) + (let ((_e178976178999_ (let () (declare (not safe)) - (gx#syntax-e _tl177028177049_)))) - (let ((_hd177030177055_ + (gx#syntax-e _tl178975178996_)))) + (let ((_hd178977179002_ (let () (declare (not safe)) - (##car _e177029177052_))) - (_tl177031177057_ + (##car _e178976178999_))) + (_tl178978179004_ (let () (declare (not safe)) - (##cdr _e177029177052_)))) - (let ((_expr177060_ _hd177030177055_)) + (##cdr _e178976178999_)))) + (let ((_expr179007_ _hd178977179002_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl177031177057_)) - (let ((_e177032177062_ + (gx#stx-pair? _tl178978179004_)) + (let ((_e178979179009_ (let () (declare (not safe)) (gx#syntax-e - _tl177031177057_)))) - (let ((_hd177033177065_ + _tl178978179004_)))) + (let ((_hd178980179012_ (let () (declare (not safe)) - (##car _e177032177062_))) - (_tl177034177067_ + (##car _e178979179009_))) + (_tl178981179014_ (let () (declare (not safe)) - (##cdr _e177032177062_)))) - (let* ((_ids177070_ - _hd177033177065_) - (_clauses177072_ - _tl177034177067_)) + (##cdr _e178979179009_)))) + (let* ((_ids179017_ + _hd178980179012_) + (_clauses179019_ + _tl178981179014_)) (if '#t - (if (let ((__tmp182978 + (if (let ((__tmp185026 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier-list? _ids177070_)))) + (gx#identifier-list? _ids179017_)))) (declare (not safe)) - (not __tmp182978)) + (not __tmp185026)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _stx177013_ - _ids177070_)) - (if (let ((__tmp182977 + _stx178960_ + _ids179017_)) + (if (let ((__tmp185025 (let () (declare (not safe)) - (gx#stx-list? _clauses177072_)))) + (gx#stx-list? _clauses179019_)))) (declare (not safe)) - (not __tmp182977)) + (not __tmp185025)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _stx177013_)) - (let* ((_ids177074_ + _stx178960_)) + (let* ((_ids179021_ (let () (declare (not safe)) - (gx#syntax->list _ids177070_))) - (_clauses177076_ + (gx#syntax->list _ids179017_))) + (_clauses179023_ (let () (declare (not safe)) - (gx#syntax->list _clauses177072_))) - (_clause-ids177078_ + (gx#syntax->list _clauses179019_))) + (_clause-ids179025_ (let () (declare (not safe)) - (gx#gentemps _clauses177076_))) - (_E177080_ + (gx#gentemps _clauses179023_))) + (_E179027_ (let () (declare (not safe)) (gx#genident__0))) - (_target177082_ + (_target179029_ (let () (declare (not safe)) (gx#genident__0))) - (_first177084_ + (_first179031_ (if (let () (declare (not safe)) - (null? _clauses177076_)) - _E177080_ - (car _clause-ids177078_)))) - (let ((__tmp182962 - (let ((__tmp182963 - (let ((__tmp182965 - (let ((__tmp182970 - (let ((__tmp182971 - (let ((__tmp182976 + (null? _clauses179023_)) + _E179027_ + (car _clause-ids179025_)))) + (let ((__tmp185010 + (let ((__tmp185011 + (let ((__tmp185013 + (let ((__tmp185018 + (let ((__tmp185019 + (let ((__tmp185024 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _E177080_ '()))) - (__tmp182972 - (let ((__tmp182973 - (let ((__tmp182975 + (cons _E179027_ '()))) + (__tmp185020 + (let ((__tmp185021 + (let ((__tmp185023 (let () (declare (not safe)) - (cons _target177082_ '()))) - (__tmp182974 + (cons _target179029_ '()))) + (__tmp185022 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _target177082_)))) + _target179029_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp182975 - __tmp182974)))) + __tmp185023 + __tmp185022)))) (declare (not safe)) - (cons __tmp182973 '())))) + (cons __tmp185021 '())))) (declare (not safe)) - (cons __tmp182976 __tmp182972)))) + (cons __tmp185024 __tmp185020)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp182971 '()))) - (__tmp182966 - (let ((__tmp182969 + (cons __tmp185019 '()))) + (__tmp185014 + (let ((__tmp185017 (let () (declare (not safe)) - (_generate-bindings177018_ - _target177082_ - _ids177074_ - _clauses177076_ - _clause-ids177078_ - _E177080_))) - (__tmp182967 - (let ((__tmp182968 + (_generate-bindings178965_ + _target179029_ + _ids179021_ + _clauses179023_ + _clause-ids179025_ + _E179027_))) + (__tmp185015 + (let ((__tmp185016 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr177060_ '())))) + (cons _expr179007_ '())))) (declare (not safe)) - (cons _first177084_ __tmp182968)))) + (cons _first179031_ __tmp185016)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_generate-body177019_ - __tmp182969 - __tmp182967)))) + (_generate-body178966_ + __tmp185017 + __tmp185015)))) (declare (not safe)) (gx#core-list 'let-values - __tmp182970 - __tmp182966))) - (__tmp182964 + __tmp185018 + __tmp185014))) + (__tmp185012 (let () (declare (not safe)) - (gx#stx-source _stx177013_)))) + (gx#stx-source _stx178960_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp182965 - __tmp182964)))) + __tmp185013 + __tmp185012)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp182963))) - (__tmp182961 + __tmp185011))) + (__tmp185009 (let () (declare (not safe)) - (gx#stx-source _stx177013_)))) + (gx#stx-source _stx178960_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp182962 __tmp182961))))) + (gx#stx-wrap-source __tmp185010 __tmp185009))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E177025177040_)))))) + (_E178972178987_)))))) (let () (declare (not safe)) - (_E177025177040_)))))) + (_E178972178987_)))))) (let () (declare (not safe)) - (_E177025177040_))))) - (let () (declare (not safe)) (_E177025177040_)))))) - (let () (declare (not safe)) (_E177024177087_)))))) + (_E178972178987_))))) + (let () (declare (not safe)) (_E178972178987_)))))) + (let () (declare (not safe)) (_E178971179034_)))))) (define gx#macro-expand-syntax-case__0 - (lambda (_stx177723_) - (let* ((_identifier=?177725_ 'free-identifier=?) - (_unwrap-e177727_ 'syntax-e) - (_wrap-e177729_ 'quote-syntax)) + (lambda (_stx179670_) + (let* ((_identifier=?179672_ 'free-identifier=?) + (_unwrap-e179674_ 'syntax-e) + (_wrap-e179676_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx177723_ - _identifier=?177725_ - _unwrap-e177727_ - _wrap-e177729_)))) + _stx179670_ + _identifier=?179672_ + _unwrap-e179674_ + _wrap-e179676_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_stx177731_ _identifier=?177732_) - (let* ((_unwrap-e177734_ 'syntax-e) (_wrap-e177736_ 'quote-syntax)) + (lambda (_stx179678_ _identifier=?179679_) + (let* ((_unwrap-e179681_ 'syntax-e) (_wrap-e179683_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx177731_ - _identifier=?177732_ - _unwrap-e177734_ - _wrap-e177736_)))) + _stx179678_ + _identifier=?179679_ + _unwrap-e179681_ + _wrap-e179683_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_stx177738_ _identifier=?177739_ _unwrap-e177740_) - (let ((_wrap-e177742_ 'quote-syntax)) + (lambda (_stx179685_ _identifier=?179686_ _unwrap-e179687_) + (let ((_wrap-e179689_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx177738_ - _identifier=?177739_ - _unwrap-e177740_ - _wrap-e177742_)))) + _stx179685_ + _identifier=?179686_ + _unwrap-e179687_ + _wrap-e179689_)))) (define gx#macro-expand-syntax-case - (lambda _g182980_ - (let ((_g182979_ (let () (declare (not safe)) (##length _g182980_)))) - (cond ((let () (declare (not safe)) (##fx= _g182979_ 1)) - (apply (lambda (_stx177723_) + (lambda _g185028_ + (let ((_g185027_ (let () (declare (not safe)) (##length _g185028_)))) + (cond ((let () (declare (not safe)) (##fx= _g185027_ 1)) + (apply (lambda (_stx179670_) (let () (declare (not safe)) - (gx#macro-expand-syntax-case__0 _stx177723_))) - _g182980_)) - ((let () (declare (not safe)) (##fx= _g182979_ 2)) - (apply (lambda (_stx177731_ _identifier=?177732_) + (gx#macro-expand-syntax-case__0 _stx179670_))) + _g185028_)) + ((let () (declare (not safe)) (##fx= _g185027_ 2)) + (apply (lambda (_stx179678_ _identifier=?179679_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__1 - _stx177731_ - _identifier=?177732_))) - _g182980_)) - ((let () (declare (not safe)) (##fx= _g182979_ 3)) - (apply (lambda (_stx177738_ - _identifier=?177739_ - _unwrap-e177740_) + _stx179678_ + _identifier=?179679_))) + _g185028_)) + ((let () (declare (not safe)) (##fx= _g185027_ 3)) + (apply (lambda (_stx179685_ + _identifier=?179686_ + _unwrap-e179687_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__2 - _stx177738_ - _identifier=?177739_ - _unwrap-e177740_))) - _g182980_)) - ((let () (declare (not safe)) (##fx= _g182979_ 4)) - (apply (lambda (_stx177744_ - _identifier=?177745_ - _unwrap-e177746_ - _wrap-e177747_) + _stx179685_ + _identifier=?179686_ + _unwrap-e179687_))) + _g185028_)) + ((let () (declare (not safe)) (##fx= _g185027_ 4)) + (apply (lambda (_stx179691_ + _identifier=?179692_ + _unwrap-e179693_ + _wrap-e179694_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx177744_ - _identifier=?177745_ - _unwrap-e177746_ - _wrap-e177747_))) - _g182980_)) + _stx179691_ + _identifier=?179692_ + _unwrap-e179693_ + _wrap-e179694_))) + _g185028_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g182980_)))))) + _g185028_)))))) (define gx#syntax-local-pattern? - (lambda (_stx177010_) - (if (let () (declare (not safe)) (gx#identifier? _stx177010_)) - (let ((__tmp182981 + (lambda (_stx178957_) + (if (let () (declare (not safe)) (gx#identifier? _stx178957_)) + (let ((__tmp185029 (let () (declare (not safe)) - (gx#syntax-local-e__% _stx177010_ false)))) + (gx#syntax-local-e__% _stx178957_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp182981 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp185029 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_hd176968_ . _rest176969_) - (let ((_len176971_ (length _hd176968_))) - (let _lp176973_ ((_rest176975_ _rest176969_)) - (let* ((_rest176976176984_ _rest176975_) - (_else176978176992_ (lambda () '#!void)) - (_K176980176998_ - (lambda (_rest176995_ _hd176996_) - (if (fx= _len176971_ (length _hd176996_)) + (lambda (_hd178915_ . _rest178916_) + (let ((_len178918_ (length _hd178915_))) + (let _lp178920_ ((_rest178922_ _rest178916_)) + (let* ((_rest178923178931_ _rest178922_) + (_else178925178939_ (lambda () '#!void)) + (_K178927178945_ + (lambda (_rest178942_ _hd178943_) + (if (fx= _len178918_ (length _hd178943_)) (let () (declare (not safe)) - (_lp176973_ _rest176995_)) + (_lp178920_ _rest178942_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _hd176996_)))))) - (if (let () (declare (not safe)) (##pair? _rest176976176984_)) - (let ((_hd176981177001_ + _hd178943_)))))) + (if (let () (declare (not safe)) (##pair? _rest178923178931_)) + (let ((_hd178928178948_ (let () (declare (not safe)) - (##car _rest176976176984_))) - (_tl176982177003_ + (##car _rest178923178931_))) + (_tl178929178950_ (let () (declare (not safe)) - (##cdr _rest176976176984_)))) - (let* ((_hd177006_ _hd176981177001_) - (_rest177008_ _tl176982177003_)) + (##cdr _rest178923178931_)))) + (let* ((_hd178953_ _hd178928178948_) + (_rest178955_ _tl178929178950_)) (declare (not safe)) - (_K176980176998_ _rest177008_ _hd177006_))) + (_K178927178945_ _rest178955_ _hd178953_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_stx176926_ _n176927_) - (let _lp176929_ ((_rest176931_ _stx176926_) (_r176932_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _rest176931_)) - (let* ((_g176933176940_ - (let () (declare (not safe)) (gx#syntax-e _rest176931_))) - (_E176935176944_ + (lambda (_stx178873_ _n178874_) + (let _lp178876_ ((_rest178878_ _stx178873_) (_r178879_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _rest178878_)) + (let* ((_g178880178887_ + (let () (declare (not safe)) (gx#syntax-e _rest178878_))) + (_E178882178891_ (lambda () - (error '"No clause matching" _g176933176940_))) - (_K176936176950_ - (lambda (_rest176947_ _hd176948_) - (let ((__tmp182986 + (error '"No clause matching" _g178880178887_))) + (_K178883178897_ + (lambda (_rest178894_ _hd178895_) + (let ((__tmp185034 (let () (declare (not safe)) - (cons _hd176948_ _r176932_)))) + (cons _hd178895_ _r178879_)))) (declare (not safe)) - (_lp176929_ _rest176947_ __tmp182986))))) - (if (let () (declare (not safe)) (##pair? _g176933176940_)) - (let ((_hd176937176953_ + (_lp178876_ _rest178894_ __tmp185034))))) + (if (let () (declare (not safe)) (##pair? _g178880178887_)) + (let ((_hd178884178900_ (let () (declare (not safe)) - (##car _g176933176940_))) - (_tl176938176955_ + (##car _g178880178887_))) + (_tl178885178902_ (let () (declare (not safe)) - (##cdr _g176933176940_)))) - (let* ((_hd176958_ _hd176937176953_) - (_rest176960_ _tl176938176955_)) + (##cdr _g178880178887_)))) + (let* ((_hd178905_ _hd178884178900_) + (_rest178907_ _tl178885178902_)) (declare (not safe)) - (_K176936176950_ _rest176960_ _hd176958_))) - (let () (declare (not safe)) (_E176935176944_)))) - (let _lp176962_ ((_n176964_ _n176927_) - (_l176965_ _r176932_) - (_r176966_ _rest176931_)) - (if (let () (declare (not safe)) (null? _l176965_)) - (values _l176965_ _r176966_) - (if (fxpositive? _n176964_) - (let ((__tmp182985 + (_K178883178897_ _rest178907_ _hd178905_))) + (let () (declare (not safe)) (_E178882178891_)))) + (let _lp178909_ ((_n178911_ _n178874_) + (_l178912_ _r178879_) + (_r178913_ _rest178878_)) + (if (let () (declare (not safe)) (null? _l178912_)) + (values _l178912_ _r178913_) + (if (fxpositive? _n178911_) + (let ((__tmp185033 (let () (declare (not safe)) - (fx- _n176964_ '1))) - (__tmp182984 (cdr _l176965_)) - (__tmp182982 - (let ((__tmp182983 (car _l176965_))) + (fx- _n178911_ '1))) + (__tmp185032 (cdr _l178912_)) + (__tmp185030 + (let ((__tmp185031 (car _l178912_))) (declare (not safe)) - (cons __tmp182983 _r176966_)))) + (cons __tmp185031 _r178913_)))) (declare (not safe)) - (_lp176962_ __tmp182985 __tmp182984 __tmp182982)) - (values (reverse _l176965_) _r176966_)))))))))) + (_lp178909_ __tmp185033 __tmp185032 __tmp185030)) + (values (reverse _l178912_) _r178913_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase__1.scm b/src/bootstrap/gerbil/expander/stxcase__1.scm index d7b246966..2d6ab3a8e 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]#_g182989_| + (define |gx[1]#_g185037_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g182991_| + (define |gx[1]#_g185039_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g182993_| + (define |gx[1]#_g185041_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g182995_| + (define |gx[1]#_g185043_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g183001_| + (define |gx[1]#_g185049_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g183004_| + (define |gx[1]#_g185052_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g183007_| + (define |gx[1]#_g185055_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g183013_| + (define |gx[1]#_g185061_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g183016_| + (define |gx[1]#_g185064_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g183019_| + (define |gx[1]#_g185067_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g183025_| + (define |gx[1]#_g185073_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g183028_| + (define |gx[1]#_g185076_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g183031_| + (define |gx[1]#_g185079_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g183037_| + (define |gx[1]#_g185085_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g183040_| + (define |gx[1]#_g185088_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g183043_| + (define |gx[1]#_g185091_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj182740 + (let ((__obj184787 (let () (declare (not safe)) (##structure @@ -135,7 +135,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj182740 + __obj184787 'gx#syntax-pattern::t '1 gerbil/core$$#class-type-info::t @@ -143,7 +143,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj182740 + __obj184787 'syntax-pattern '2 gerbil/core$$#class-type-info::t @@ -151,26 +151,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj182740 + __obj184787 '(id depth) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp182987 - (let ((__tmp182988 |gx[1]#_g182989_|)) + (let ((__tmp185035 + (let ((__tmp185036 |gx[1]#_g185037_|)) (declare (not safe)) - (cons __tmp182988 '())))) + (cons __tmp185036 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj182740 - __tmp182987 + __obj184787 + __tmp185035 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj182740 + __obj184787 '#t '5 gerbil/core$$#class-type-info::t @@ -178,7 +178,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj182740 + __obj184787 '#f '6 gerbil/core$$#class-type-info::t @@ -186,145 +186,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj182740 + __obj184787 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp182990 |gx[1]#_g182991_|)) + (let ((__tmp185038 |gx[1]#_g185039_|)) (declare (not safe)) (##unchecked-structure-set! - __obj182740 - __tmp182990 + __obj184787 + __tmp185038 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp182992 |gx[1]#_g182993_|)) + (let ((__tmp185040 |gx[1]#_g185041_|)) (declare (not safe)) (##unchecked-structure-set! - __obj182740 - __tmp182992 + __obj184787 + __tmp185040 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp182994 |gx[1]#_g182995_|)) + (let ((__tmp185042 |gx[1]#_g185043_|)) (declare (not safe)) (##unchecked-structure-set! - __obj182740 - __tmp182994 + __obj184787 + __tmp185042 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp182996 - (let ((__tmp183005 - (let ((__tmp183006 |gx[1]#_g183007_|)) + (let ((__tmp185044 + (let ((__tmp185053 + (let ((__tmp185054 |gx[1]#_g185055_|)) (declare (not safe)) - (cons 'id __tmp183006))) - (__tmp182997 - (let ((__tmp183002 - (let ((__tmp183003 |gx[1]#_g183004_|)) + (cons 'id __tmp185054))) + (__tmp185045 + (let ((__tmp185050 + (let ((__tmp185051 |gx[1]#_g185052_|)) (declare (not safe)) - (cons 'depth __tmp183003))) - (__tmp182998 - (let ((__tmp182999 - (let ((__tmp183000 |gx[1]#_g183001_|)) + (cons 'depth __tmp185051))) + (__tmp185046 + (let ((__tmp185047 + (let ((__tmp185048 |gx[1]#_g185049_|)) (declare (not safe)) - (cons 'e __tmp183000)))) + (cons 'e __tmp185048)))) (declare (not safe)) - (cons __tmp182999 '())))) + (cons __tmp185047 '())))) (declare (not safe)) - (cons __tmp183002 __tmp182998)))) + (cons __tmp185050 __tmp185046)))) (declare (not safe)) - (cons __tmp183005 __tmp182997)))) + (cons __tmp185053 __tmp185045)))) (declare (not safe)) (##unchecked-structure-set! - __obj182740 - __tmp182996 + __obj184787 + __tmp185044 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp183008 - (let ((__tmp183017 - (let ((__tmp183018 |gx[1]#_g183019_|)) + (let ((__tmp185056 + (let ((__tmp185065 + (let ((__tmp185066 |gx[1]#_g185067_|)) (declare (not safe)) - (cons 'id __tmp183018))) - (__tmp183009 - (let ((__tmp183014 - (let ((__tmp183015 |gx[1]#_g183016_|)) + (cons 'id __tmp185066))) + (__tmp185057 + (let ((__tmp185062 + (let ((__tmp185063 |gx[1]#_g185064_|)) (declare (not safe)) - (cons 'depth __tmp183015))) - (__tmp183010 - (let ((__tmp183011 - (let ((__tmp183012 |gx[1]#_g183013_|)) + (cons 'depth __tmp185063))) + (__tmp185058 + (let ((__tmp185059 + (let ((__tmp185060 |gx[1]#_g185061_|)) (declare (not safe)) - (cons 'e __tmp183012)))) + (cons 'e __tmp185060)))) (declare (not safe)) - (cons __tmp183011 '())))) + (cons __tmp185059 '())))) (declare (not safe)) - (cons __tmp183014 __tmp183010)))) + (cons __tmp185062 __tmp185058)))) (declare (not safe)) - (cons __tmp183017 __tmp183009)))) + (cons __tmp185065 __tmp185057)))) (declare (not safe)) (##unchecked-structure-set! - __obj182740 - __tmp183008 + __obj184787 + __tmp185056 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp183020 - (let ((__tmp183029 - (let ((__tmp183030 |gx[1]#_g183031_|)) + (let ((__tmp185068 + (let ((__tmp185077 + (let ((__tmp185078 |gx[1]#_g185079_|)) (declare (not safe)) - (cons 'id __tmp183030))) - (__tmp183021 - (let ((__tmp183026 - (let ((__tmp183027 |gx[1]#_g183028_|)) + (cons 'id __tmp185078))) + (__tmp185069 + (let ((__tmp185074 + (let ((__tmp185075 |gx[1]#_g185076_|)) (declare (not safe)) - (cons 'depth __tmp183027))) - (__tmp183022 - (let ((__tmp183023 - (let ((__tmp183024 |gx[1]#_g183025_|)) + (cons 'depth __tmp185075))) + (__tmp185070 + (let ((__tmp185071 + (let ((__tmp185072 |gx[1]#_g185073_|)) (declare (not safe)) - (cons 'e __tmp183024)))) + (cons 'e __tmp185072)))) (declare (not safe)) - (cons __tmp183023 '())))) + (cons __tmp185071 '())))) (declare (not safe)) - (cons __tmp183026 __tmp183022)))) + (cons __tmp185074 __tmp185070)))) (declare (not safe)) - (cons __tmp183029 __tmp183021)))) + (cons __tmp185077 __tmp185069)))) (declare (not safe)) (##unchecked-structure-set! - __obj182740 - __tmp183020 + __obj184787 + __tmp185068 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp183032 - (let ((__tmp183041 - (let ((__tmp183042 |gx[1]#_g183043_|)) + (let ((__tmp185080 + (let ((__tmp185089 + (let ((__tmp185090 |gx[1]#_g185091_|)) (declare (not safe)) - (cons 'id __tmp183042))) - (__tmp183033 - (let ((__tmp183038 - (let ((__tmp183039 |gx[1]#_g183040_|)) + (cons 'id __tmp185090))) + (__tmp185081 + (let ((__tmp185086 + (let ((__tmp185087 |gx[1]#_g185088_|)) (declare (not safe)) - (cons 'depth __tmp183039))) - (__tmp183034 - (let ((__tmp183035 - (let ((__tmp183036 |gx[1]#_g183037_|)) + (cons 'depth __tmp185087))) + (__tmp185082 + (let ((__tmp185083 + (let ((__tmp185084 |gx[1]#_g185085_|)) (declare (not safe)) - (cons 'e __tmp183036)))) + (cons 'e __tmp185084)))) (declare (not safe)) - (cons __tmp183035 '())))) + (cons __tmp185083 '())))) (declare (not safe)) - (cons __tmp183038 __tmp183034)))) + (cons __tmp185086 __tmp185082)))) (declare (not safe)) - (cons __tmp183041 __tmp183033)))) + (cons __tmp185089 __tmp185081)))) (declare (not safe)) (##unchecked-structure-set! - __obj182740 - __tmp183032 + __obj184787 + __tmp185080 '14 gerbil/core$$#class-type-info::t '#f)) - __obj182740))) + __obj184787))) diff --git a/src/bootstrap/gerbil/expander/top__0.scm b/src/bootstrap/gerbil/expander/top__0.scm index 558a82f25..a4f70a1f5 100644 --- a/src/bootstrap/gerbil/expander/top__0.scm +++ b/src/bootstrap/gerbil/expander/top__0.scm @@ -1,398 +1,398 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1707573212) + (define gerbil/expander/top::timestamp 1707674931) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_stx152775_) - (letrec ((_expand-special152777_ - (lambda (_hd152779_ _K152780_ _rest152781_ _r152782_) - (_K152780_ - _rest152781_ - (cons (gx#core-expand-top _hd152779_) _r152782_))))) - (gx#core-expand-block__0 _stx152775_ _expand-special152777_)))) + (lambda (_stx154322_) + (letrec ((_expand-special154324_ + (lambda (_hd154326_ _K154327_ _rest154328_ _r154329_) + (_K154327_ + _rest154328_ + (cons (gx#core-expand-top _hd154326_) _r154329_))))) + (gx#core-expand-block__0 _stx154322_ _expand-special154324_)))) (define gx#core-expand-begin-syntax% - (lambda (_stx152528_) - (letrec ((_expand-special152530_ - (lambda (_hd152650_ _K152651_ _rest152652_ _r152653_) - (let* ((_K152657_ - (lambda (_e152655_) - (_K152651_ - _rest152652_ - (cons _e152655_ _r152653_)))) - (_e152658152687_ _hd152650_) - (_E152682152691_ + (lambda (_stx154075_) + (letrec ((_expand-special154077_ + (lambda (_hd154197_ _K154198_ _rest154199_ _r154200_) + (let* ((_K154204_ + (lambda (_e154202_) + (_K154198_ + _rest154199_ + (cons _e154202_ _r154200_)))) + (_e154205154234_ _hd154197_) + (_E154229154238_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152658152687_))) - (_E152678152703_ + _e154205154234_))) + (_E154225154250_ (lambda () - (if (gx#stx-pair? _e152658152687_) - (let ((_e152683152695_ - (gx#syntax-e _e152658152687_))) - (let ((_hd152684152698_ - (##car _e152683152695_)) - (_tl152685152700_ - (##cdr _e152683152695_))) + (if (gx#stx-pair? _e154205154234_) + (let ((_e154230154242_ + (gx#syntax-e _e154205154234_))) + (let ((_hd154231154245_ + (##car _e154230154242_)) + (_tl154232154247_ + (##cdr _e154230154242_))) (if (and (gx#identifier? - _hd152684152698_) + _hd154231154245_) (gx#core-identifier=? - _hd152684152698_ + _hd154231154245_ '%#define-runtime)) (if '#t - (_K152657_ + (_K154204_ (gx#core-expand-define-runtime% - _hd152650_)) - (_E152682152691_)) - (_E152682152691_)))) - (_E152682152691_)))) - (_E152674152715_ + _hd154197_)) + (_E154229154238_)) + (_E154229154238_)))) + (_E154229154238_)))) + (_E154221154262_ (lambda () - (if (gx#stx-pair? _e152658152687_) - (let ((_e152679152707_ - (gx#syntax-e _e152658152687_))) - (let ((_hd152680152710_ - (##car _e152679152707_)) - (_tl152681152712_ - (##cdr _e152679152707_))) + (if (gx#stx-pair? _e154205154234_) + (let ((_e154226154254_ + (gx#syntax-e _e154205154234_))) + (let ((_hd154227154257_ + (##car _e154226154254_)) + (_tl154228154259_ + (##cdr _e154226154254_))) (if (and (gx#identifier? - _hd152680152710_) + _hd154227154257_) (gx#core-identifier=? - _hd152680152710_ + _hd154227154257_ '%#define-alias)) (if '#t - (_K152657_ + (_K154204_ (gx#core-expand-define-alias% - _hd152650_)) - (_E152678152703_)) - (_E152678152703_)))) - (_E152678152703_)))) - (_E152664152727_ + _hd154197_)) + (_E154225154250_)) + (_E154225154250_)))) + (_E154225154250_)))) + (_E154211154274_ (lambda () - (if (gx#stx-pair? _e152658152687_) - (let ((_e152675152719_ - (gx#syntax-e _e152658152687_))) - (let ((_hd152676152722_ - (##car _e152675152719_)) - (_tl152677152724_ - (##cdr _e152675152719_))) + (if (gx#stx-pair? _e154205154234_) + (let ((_e154222154266_ + (gx#syntax-e _e154205154234_))) + (let ((_hd154223154269_ + (##car _e154222154266_)) + (_tl154224154271_ + (##cdr _e154222154266_))) (if (and (gx#identifier? - _hd152676152722_) + _hd154223154269_) (gx#core-identifier=? - _hd152676152722_ + _hd154223154269_ '%#define-syntax)) (if '#t - (_K152657_ + (_K154204_ (gx#core-expand-define-syntax% - _hd152650_)) - (_E152674152715_)) - (_E152674152715_)))) - (_E152674152715_)))) - (_E152660152759_ + _hd154197_)) + (_E154221154262_)) + (_E154221154262_)))) + (_E154221154262_)))) + (_E154207154306_ (lambda () - (if (gx#stx-pair? _e152658152687_) - (let ((_e152665152731_ - (gx#syntax-e _e152658152687_))) - (let ((_hd152666152734_ - (##car _e152665152731_)) - (_tl152667152736_ - (##cdr _e152665152731_))) + (if (gx#stx-pair? _e154205154234_) + (let ((_e154212154278_ + (gx#syntax-e _e154205154234_))) + (let ((_hd154213154281_ + (##car _e154212154278_)) + (_tl154214154283_ + (##cdr _e154212154278_))) (if (and (gx#identifier? - _hd152666152734_) + _hd154213154281_) (gx#core-identifier=? - _hd152666152734_ + _hd154213154281_ '%#define-values)) - (if (gx#stx-pair? _tl152667152736_) - (let ((_e152668152739_ + (if (gx#stx-pair? _tl154214154283_) + (let ((_e154215154286_ (gx#syntax-e - _tl152667152736_))) - (let ((_hd152669152742_ - (##car _e152668152739_)) - (_tl152670152744_ - (##cdr _e152668152739_))) - (let ((_hd-bind152747_ - _hd152669152742_)) + _tl154214154283_))) + (let ((_hd154216154289_ + (##car _e154215154286_)) + (_tl154217154291_ + (##cdr _e154215154286_))) + (let ((_hd-bind154294_ + _hd154216154289_)) (if (gx#stx-pair? - _tl152670152744_) - (let ((_e152671152749_ + _tl154217154291_) + (let ((_e154218154296_ (gx#syntax-e - _tl152670152744_))) - (let ((_hd152672152752_ + _tl154217154291_))) + (let ((_hd154219154299_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e152671152749_)) - (_tl152673152754_ (##cdr _e152671152749_))) - (let ((_expr152757_ _hd152672152752_)) - (if (gx#stx-null? _tl152673152754_) - (if (gx#core-bind-values? _hd-bind152747_) + (##car _e154218154296_)) + (_tl154220154301_ (##cdr _e154218154296_))) + (let ((_expr154304_ _hd154219154299_)) + (if (gx#stx-null? _tl154220154301_) + (if (gx#core-bind-values? _hd-bind154294_) (begin - (gx#core-bind-values!__0 _hd-bind152747_) - (_K152657_ _hd152650_)) - (_E152664152727_)) - (_E152664152727_))))) - (_E152664152727_))))) + (gx#core-bind-values!__0 _hd-bind154294_) + (_K154204_ _hd154197_)) + (_E154211154274_)) + (_E154211154274_))))) + (_E154211154274_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152664152727_)) - (_E152664152727_)))) - (_E152664152727_)))) - (_E152659152771_ + (_E154211154274_)) + (_E154211154274_)))) + (_E154211154274_)))) + (_E154206154318_ (lambda () - (if (gx#stx-pair? _e152658152687_) - (let ((_e152661152763_ - (gx#syntax-e _e152658152687_))) - (let ((_hd152662152766_ - (##car _e152661152763_)) - (_tl152663152768_ - (##cdr _e152661152763_))) + (if (gx#stx-pair? _e154205154234_) + (let ((_e154208154310_ + (gx#syntax-e _e154205154234_))) + (let ((_hd154209154313_ + (##car _e154208154310_)) + (_tl154210154315_ + (##cdr _e154208154310_))) (if (and (gx#identifier? - _hd152662152766_) + _hd154209154313_) (gx#core-identifier=? - _hd152662152766_ + _hd154209154313_ '%#begin-syntax)) (if '#t - (_K152657_ + (_K154204_ (gx#core-expand-begin-syntax% - _hd152650_)) - (_E152660152759_)) - (_E152660152759_)))) - (_E152660152759_))))) - (_E152659152771_)))) - (_eval-body152531_ - (lambda (_rbody152539_) - (let _lp152541_ ((_rest152543_ _rbody152539_) - (_body152544_ '()) - (_ebody152545_ '())) - (let* ((_rest152546152554_ _rest152543_) - (_else152548152562_ + _hd154197_)) + (_E154207154306_)) + (_E154207154306_)))) + (_E154207154306_))))) + (_E154206154318_)))) + (_eval-body154078_ + (lambda (_rbody154086_) + (let _lp154088_ ((_rest154090_ _rbody154086_) + (_body154091_ '()) + (_ebody154092_ '())) + (let* ((_rest154093154101_ _rest154090_) + (_else154095154109_ (lambda () - (values _body152544_ + (values _body154091_ (gx#eval-syntax* (gx#core-quote-syntax__1 - (gx#core-cons '%#begin _ebody152545_) - (gx#stx-source _stx152528_)))))) - (_K152550152638_ - (lambda (_rest152565_ _hd152566_) - (let* ((_e152567152584_ _hd152566_) - (_E152579152588_ + (gx#core-cons '%#begin _ebody154092_) + (gx#stx-source _stx154075_)))))) + (_K154097154185_ + (lambda (_rest154112_ _hd154113_) + (let* ((_e154114154131_ _hd154113_) + (_E154126154135_ (lambda () - (_lp152541_ - _rest152565_ - (cons _hd152566_ _body152544_) - (cons _hd152566_ _ebody152545_)))) - (_E152569152600_ + (_lp154088_ + _rest154112_ + (cons _hd154113_ _body154091_) + (cons _hd154113_ _ebody154092_)))) + (_E154116154147_ (lambda () - (if (gx#stx-pair? _e152567152584_) - (let ((_e152580152592_ + (if (gx#stx-pair? _e154114154131_) + (let ((_e154127154139_ (gx#syntax-e - _e152567152584_))) - (let ((_hd152581152595_ - (##car _e152580152592_)) - (_tl152582152597_ - (##cdr _e152580152592_))) + _e154114154131_))) + (let ((_hd154128154142_ + (##car _e154127154139_)) + (_tl154129154144_ + (##cdr _e154127154139_))) (if (and (gx#identifier? - _hd152581152595_) + _hd154128154142_) (gx#core-identifier=? - _hd152581152595_ + _hd154128154142_ '%#begin-syntax)) (if '#t - (_lp152541_ - _rest152565_ - (cons _hd152566_ + (_lp154088_ + _rest154112_ + (cons _hd154113_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body152544_) - _ebody152545_) - (_E152579152588_)) - (_E152579152588_)))) + _body154091_) + _ebody154092_) + (_E154126154135_)) + (_E154126154135_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152579152588_)))) - (_E152568152634_ + (_E154126154135_)))) + (_E154115154181_ (lambda () - (if (gx#stx-pair? _e152567152584_) - (let ((_e152570152604_ + (if (gx#stx-pair? _e154114154131_) + (let ((_e154117154151_ (gx#syntax-e - _e152567152584_))) - (let ((_hd152571152607_ - (##car _e152570152604_)) - (_tl152572152609_ - (##cdr _e152570152604_))) + _e154114154131_))) + (let ((_hd154118154154_ + (##car _e154117154151_)) + (_tl154119154156_ + (##cdr _e154117154151_))) (if (and (gx#identifier? - _hd152571152607_) + _hd154118154154_) (gx#core-identifier=? - _hd152571152607_ + _hd154118154154_ '%#define-values)) (if (gx#stx-pair? - _tl152572152609_) - (let ((_e152573152612_ + _tl154119154156_) + (let ((_e154120154159_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl152572152609_))) - (let ((_hd152574152615_ (##car _e152573152612_)) - (_tl152575152617_ (##cdr _e152573152612_))) - (let ((_hd-bind152620_ _hd152574152615_)) - (if (gx#stx-pair? _tl152575152617_) - (let ((_e152576152622_ - (gx#syntax-e _tl152575152617_))) - (let ((_hd152577152625_ (##car _e152576152622_)) - (_tl152578152627_ (##cdr _e152576152622_))) - (let ((_expr152630_ _hd152577152625_)) - (if (gx#stx-null? _tl152578152627_) + (gx#syntax-e _tl154119154156_))) + (let ((_hd154121154162_ (##car _e154120154159_)) + (_tl154122154164_ (##cdr _e154120154159_))) + (let ((_hd-bind154167_ _hd154121154162_)) + (if (gx#stx-pair? _tl154122154164_) + (let ((_e154123154169_ + (gx#syntax-e _tl154122154164_))) + (let ((_hd154124154172_ (##car _e154123154169_)) + (_tl154125154174_ (##cdr _e154123154169_))) + (let ((_expr154177_ _hd154124154172_)) + (if (gx#stx-null? _tl154125154174_) (if '#t - (let ((_ehd152632_ + (let ((_ehd154179_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _hd-bind152620_) + _hd-bind154167_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr152630_) + _expr154177_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _hd152566_)))) - (_lp152541_ - _rest152565_ - (cons _ehd152632_ _body152544_) - (cons _ehd152632_ _ebody152545_))) - (_E152569152600_)) - (_E152569152600_))))) - (_E152569152600_))))) - (_E152569152600_)) - (_E152569152600_)))) + (gx#stx-source _hd154113_)))) + (_lp154088_ + _rest154112_ + (cons _ehd154179_ _body154091_) + (cons _ehd154179_ _ebody154092_))) + (_E154116154147_)) + (_E154116154147_))))) + (_E154116154147_))))) + (_E154116154147_)) + (_E154116154147_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152569152600_))))) - (_E152568152634_))))) - (if (##pair? _rest152546152554_) - (let ((_hd152551152641_ (##car _rest152546152554_)) - (_tl152552152643_ - (##cdr _rest152546152554_))) - (let* ((_hd152646_ _hd152551152641_) - (_rest152648_ _tl152552152643_)) - (_K152550152638_ _rest152648_ _hd152646_))) - (_else152548152562_))))))) + (_E154116154147_))))) + (_E154115154181_))))) + (if (##pair? _rest154093154101_) + (let ((_hd154098154188_ (##car _rest154093154101_)) + (_tl154099154190_ + (##cdr _rest154093154101_))) + (let* ((_hd154193_ _hd154098154188_) + (_rest154195_ _tl154099154190_)) + (_K154097154185_ _rest154195_ _hd154193_))) + (_else154095154109_))))))) (call-with-parameters (lambda () - (let* ((_rbody152534_ + (let* ((_rbody154081_ (gx#core-expand-block__1 - _stx152528_ - _expand-special152530_ + _stx154075_ + _expand-special154077_ '#f)) - (_g157266_ (_eval-body152531_ _rbody152534_))) + (_g158913_ (_eval-body154078_ _rbody154081_))) (begin - (let ((_g157267_ - (if (##values? _g157266_) - (##vector-length _g157266_) + (let ((_g158914_ + (if (##values? _g158913_) + (##vector-length _g158913_) 1))) - (if (not (##fx= _g157267_ 2)) - (error "Context expects 2 values" _g157267_))) - (let ((_expanded-body152536_ (##vector-ref _g157266_ 0)) - (_value152537_ (##vector-ref _g157266_ 1))) + (if (not (##fx= _g158914_ 2)) + (error "Context expects 2 values" _g158914_))) + (let ((_expanded-body154083_ (##vector-ref _g158913_ 0)) + (_value154084_ (##vector-ref _g158913_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _expanded-body152536_) + (gx#core-cons '%#begin-syntax _expanded-body154083_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _value152537_ '()))) - (gx#stx-source _stx152528_)))))) + (cons _value154084_ '()))) + (gx#stx-source _stx154075_)))))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_stx152498_) - (let* ((_e152499152506_ _stx152498_) - (_E152501152510_ + (lambda (_stx154045_) + (let* ((_e154046154053_ _stx154045_) + (_E154048154057_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152499152506_))) - (_E152500152524_ + _e154046154053_))) + (_E154047154071_ (lambda () - (if (gx#stx-pair? _e152499152506_) - (let ((_e152502152514_ (gx#syntax-e _e152499152506_))) - (let ((_hd152503152517_ (##car _e152502152514_)) - (_tl152504152519_ (##cdr _e152502152514_))) - (let ((_body152522_ _tl152504152519_)) - (if (gx#stx-list? _body152522_) + (if (gx#stx-pair? _e154046154053_) + (let ((_e154049154061_ (gx#syntax-e _e154046154053_))) + (let ((_hd154050154064_ (##car _e154049154061_)) + (_tl154051154066_ (##cdr _e154049154061_))) + (let ((_body154069_ _tl154051154066_)) + (if (gx#stx-list? _body154069_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _body152522_) - (gx#stx-source _stx152498_)) - (_E152501152510_))))) - (_E152501152510_))))) - (_E152500152524_)))) + (gx#core-cons '%#begin-foreign _body154069_) + (gx#stx-source _stx154045_)) + (_E154048154057_))))) + (_E154048154057_))))) + (_E154047154071_)))) (define gx#core-expand-begin-module% - (lambda (_stx152496_) - (gx#raise-syntax-error '#f '"Illegal expansion" _stx152496_))) + (lambda (_stx154043_) + (gx#raise-syntax-error '#f '"Illegal expansion" _stx154043_))) (define gx#core-expand-begin-annotation% - (lambda (_stx152442_) - (let* ((_e152443152456_ _stx152442_) - (_E152445152460_ + (lambda (_stx153989_) + (let* ((_e153990154003_ _stx153989_) + (_E153992154007_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152443152456_))) - (_E152444152492_ + _e153990154003_))) + (_E153991154039_ (lambda () - (if (gx#stx-pair? _e152443152456_) - (let ((_e152446152464_ (gx#syntax-e _e152443152456_))) - (let ((_hd152447152467_ (##car _e152446152464_)) - (_tl152448152469_ (##cdr _e152446152464_))) - (if (gx#stx-pair? _tl152448152469_) - (let ((_e152449152472_ - (gx#syntax-e _tl152448152469_))) - (let ((_hd152450152475_ - (##car _e152449152472_)) - (_tl152451152477_ - (##cdr _e152449152472_))) - (let ((_ann152480_ _hd152450152475_)) - (if (gx#stx-pair? _tl152451152477_) - (let ((_e152452152482_ - (gx#syntax-e _tl152451152477_))) - (let ((_hd152453152485_ - (##car _e152452152482_)) - (_tl152454152487_ - (##cdr _e152452152482_))) - (let ((_expr152490_ - _hd152453152485_)) + (if (gx#stx-pair? _e153990154003_) + (let ((_e153993154011_ (gx#syntax-e _e153990154003_))) + (let ((_hd153994154014_ (##car _e153993154011_)) + (_tl153995154016_ (##cdr _e153993154011_))) + (if (gx#stx-pair? _tl153995154016_) + (let ((_e153996154019_ + (gx#syntax-e _tl153995154016_))) + (let ((_hd153997154022_ + (##car _e153996154019_)) + (_tl153998154024_ + (##cdr _e153996154019_))) + (let ((_ann154027_ _hd153997154022_)) + (if (gx#stx-pair? _tl153998154024_) + (let ((_e153999154029_ + (gx#syntax-e _tl153998154024_))) + (let ((_hd154000154032_ + (##car _e153999154029_)) + (_tl154001154034_ + (##cdr _e153999154029_))) + (let ((_expr154037_ + _hd154000154032_)) (if (gx#stx-null? - _tl152454152487_) + _tl154001154034_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _ann152480_ + (cons _ann154027_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-expand-expression _expr152490_) + (cons (gx#core-expand-expression _expr154037_) '()))) - (gx#stx-source _stx152442_)) - (_E152445152460_)) + (gx#stx-source _stx153989_)) + (_E153992154007_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152445152460_))))) - (_E152445152460_))))) - (_E152445152460_)))) - (_E152445152460_))))) - (_E152444152492_)))) + (_E153992154007_))))) + (_E153992154007_))))) + (_E153992154007_)))) + (_E153992154007_))))) + (_E153991154039_)))) (define gx#core-expand-local-block - (lambda (_stx152166_ _body152167_) - (letrec ((_expand-special152169_ - (lambda (_hd152437_ _K152438_ _rest152439_ _r152440_) - (_K152438_ + (lambda (_stx153713_ _body153714_) + (letrec ((_expand-special153716_ + (lambda (_hd153984_ _K153985_ _rest153986_ _r153987_) + (_K153985_ '() - (cons (_expand-internal152170_ _hd152437_ _rest152439_) - _r152440_)))) - (_expand-internal152170_ - (lambda (_hd152433_ _rest152434_) + (cons (_expand-internal153717_ _hd153984_ _rest153986_) + _r153987_)))) + (_expand-internal153717_ + (lambda (_hd153980_ _rest153981_) (call-with-parameters (lambda () - (_wrap-internal152172_ + (_wrap-internal153719_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _hd152433_ _rest152434_)) - (gx#stx-source _stx152166_)) - _expand-internal-special152171_ + (cons '%#begin (cons _hd153980_ _rest153981_)) + (gx#stx-source _stx153713_)) + _expand-internal-special153718_ '#f))) gx#current-expander-context - (let ((__obj157260 + (let ((__obj158907 (##structure gx#local-context::t '#f @@ -400,745 +400,745 @@ '#f '#f '#f))) - (gx#local-context:::init! __obj157260) - __obj157260)))) - (_expand-internal-special152171_ - (lambda (_hd152328_ _K152329_ _rest152330_ _r152331_) - (let* ((_e152332152357_ _hd152328_) - (_E152352152361_ + (gx#local-context:::init! __obj158907) + __obj158907)))) + (_expand-internal-special153718_ + (lambda (_hd153875_ _K153876_ _rest153877_ _r153878_) + (let* ((_e153879153904_ _hd153875_) + (_E153899153908_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152332152357_))) - (_E152348152373_ + _e153879153904_))) + (_E153895153920_ (lambda () - (if (gx#stx-pair? _e152332152357_) - (let ((_e152353152365_ - (gx#syntax-e _e152332152357_))) - (let ((_hd152354152368_ - (##car _e152353152365_)) - (_tl152355152370_ - (##cdr _e152353152365_))) + (if (gx#stx-pair? _e153879153904_) + (let ((_e153900153912_ + (gx#syntax-e _e153879153904_))) + (let ((_hd153901153915_ + (##car _e153900153912_)) + (_tl153902153917_ + (##cdr _e153900153912_))) (if (and (gx#identifier? - _hd152354152368_) + _hd153901153915_) (gx#core-identifier=? - _hd152354152368_ + _hd153901153915_ '%#declare)) (if '#t - (_K152329_ - _rest152330_ + (_K153876_ + _rest153877_ (cons (gx#core-expand-declare% - _hd152328_) - _r152331_)) - (_E152352152361_)) - (_E152352152361_)))) - (_E152352152361_)))) - (_E152344152385_ + _hd153875_) + _r153878_)) + (_E153899153908_)) + (_E153899153908_)))) + (_E153899153908_)))) + (_E153891153932_ (lambda () - (if (gx#stx-pair? _e152332152357_) - (let ((_e152349152377_ - (gx#syntax-e _e152332152357_))) - (let ((_hd152350152380_ - (##car _e152349152377_)) - (_tl152351152382_ - (##cdr _e152349152377_))) + (if (gx#stx-pair? _e153879153904_) + (let ((_e153896153924_ + (gx#syntax-e _e153879153904_))) + (let ((_hd153897153927_ + (##car _e153896153924_)) + (_tl153898153929_ + (##cdr _e153896153924_))) (if (and (gx#identifier? - _hd152350152380_) + _hd153897153927_) (gx#core-identifier=? - _hd152350152380_ + _hd153897153927_ '%#define-alias)) (if '#t (begin (gx#core-expand-define-alias% - _hd152328_) - (_K152329_ - _rest152330_ - _r152331_)) - (_E152348152373_)) - (_E152348152373_)))) - (_E152348152373_)))) - (_E152334152397_ + _hd153875_) + (_K153876_ + _rest153877_ + _r153878_)) + (_E153895153920_)) + (_E153895153920_)))) + (_E153895153920_)))) + (_E153881153944_ (lambda () - (if (gx#stx-pair? _e152332152357_) - (let ((_e152345152389_ - (gx#syntax-e _e152332152357_))) - (let ((_hd152346152392_ - (##car _e152345152389_)) - (_tl152347152394_ - (##cdr _e152345152389_))) + (if (gx#stx-pair? _e153879153904_) + (let ((_e153892153936_ + (gx#syntax-e _e153879153904_))) + (let ((_hd153893153939_ + (##car _e153892153936_)) + (_tl153894153941_ + (##cdr _e153892153936_))) (if (and (gx#identifier? - _hd152346152392_) + _hd153893153939_) (gx#core-identifier=? - _hd152346152392_ + _hd153893153939_ '%#define-syntax)) (if '#t (begin (gx#core-expand-define-syntax% - _hd152328_) - (_K152329_ - _rest152330_ - _r152331_)) - (_E152344152385_)) - (_E152344152385_)))) - (_E152344152385_)))) - (_E152333152429_ + _hd153875_) + (_K153876_ + _rest153877_ + _r153878_)) + (_E153891153932_)) + (_E153891153932_)))) + (_E153891153932_)))) + (_E153880153976_ (lambda () - (if (gx#stx-pair? _e152332152357_) - (let ((_e152335152401_ - (gx#syntax-e _e152332152357_))) - (let ((_hd152336152404_ - (##car _e152335152401_)) - (_tl152337152406_ - (##cdr _e152335152401_))) + (if (gx#stx-pair? _e153879153904_) + (let ((_e153882153948_ + (gx#syntax-e _e153879153904_))) + (let ((_hd153883153951_ + (##car _e153882153948_)) + (_tl153884153953_ + (##cdr _e153882153948_))) (if (and (gx#identifier? - _hd152336152404_) + _hd153883153951_) (gx#core-identifier=? - _hd152336152404_ + _hd153883153951_ '%#define-values)) - (if (gx#stx-pair? _tl152337152406_) - (let ((_e152338152409_ + (if (gx#stx-pair? _tl153884153953_) + (let ((_e153885153956_ (gx#syntax-e - _tl152337152406_))) - (let ((_hd152339152412_ - (##car _e152338152409_)) - (_tl152340152414_ - (##cdr _e152338152409_))) - (let ((_hd-bind152417_ - _hd152339152412_)) + _tl153884153953_))) + (let ((_hd153886153959_ + (##car _e153885153956_)) + (_tl153887153961_ + (##cdr _e153885153956_))) + (let ((_hd-bind153964_ + _hd153886153959_)) (if (gx#stx-pair? - _tl152340152414_) - (let ((_e152341152419_ + _tl153887153961_) + (let ((_e153888153966_ (gx#syntax-e - _tl152340152414_))) - (let ((_hd152342152422_ + _tl153887153961_))) + (let ((_hd153889153969_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e152341152419_)) - (_tl152343152424_ (##cdr _e152341152419_))) - (let ((_expr152427_ _hd152342152422_)) - (if (gx#stx-null? _tl152343152424_) - (if (gx#core-bind-values? _hd-bind152417_) + (##car _e153888153966_)) + (_tl153890153971_ (##cdr _e153888153966_))) + (let ((_expr153974_ _hd153889153969_)) + (if (gx#stx-null? _tl153890153971_) + (if (gx#core-bind-values? _hd-bind153964_) (begin - (gx#core-bind-values!__0 _hd-bind152417_) - (_K152329_ - _rest152330_ - (cons _hd152328_ _r152331_))) - (_E152334152397_)) - (_E152334152397_))))) - (_E152334152397_))))) + (gx#core-bind-values!__0 _hd-bind153964_) + (_K153876_ + _rest153877_ + (cons _hd153875_ _r153878_))) + (_E153881153944_)) + (_E153881153944_))))) + (_E153881153944_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152334152397_)) - (_E152334152397_)))) - (_E152334152397_))))) - (_E152333152429_)))) - (_wrap-internal152172_ - (lambda (_rbody152174_) - (let _lp152176_ ((_rest152178_ _rbody152174_) - (_decls152179_ '()) - (_bind152180_ '()) - (_body152181_ '())) - (let* ((_e152182152189_ _rest152178_) - (_E152184152238_ + (_E153881153944_)) + (_E153881153944_)))) + (_E153881153944_))))) + (_E153880153976_)))) + (_wrap-internal153719_ + (lambda (_rbody153721_) + (let _lp153723_ ((_rest153725_ _rbody153721_) + (_decls153726_ '()) + (_bind153727_ '()) + (_body153728_ '())) + (let* ((_e153729153736_ _rest153725_) + (_E153731153785_ (lambda () - (let* ((_body152233_ - (let* ((_body152192152202_ - _body152181_) - (_else152195152210_ + (let* ((_body153780_ + (let* ((_body153739153749_ + _body153728_) + (_else153742153757_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body152181_) + _body153728_) (gx#stx-source - _stx152166_))))) - (let ((_K152200152230_ + _stx153713_))))) + (let ((_K153747153777_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _stx152166_))) - (_K152197152216_ - (lambda (_expr152214_) - _expr152214_))) - (let ((_try-match152194152226_ + _stx153713_))) + (_K153744153763_ + (lambda (_expr153761_) + _expr153761_))) + (let ((_try-match153741153773_ (lambda () - (if (##pair? _body152192152202_) - (let ((_tl152199152221_ - (##cdr _body152192152202_)) - (_hd152198152219_ - (##car _body152192152202_))) - (if (##null? _tl152199152221_) - (let ((_expr152224_ + (if (##pair? _body153739153749_) + (let ((_tl153746153768_ + (##cdr _body153739153749_)) + (_hd153745153766_ + (##car _body153739153749_))) + (if (##null? _tl153746153768_) + (let ((_expr153771_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd152198152219_)) - (_K152197152216_ _expr152224_)) - (_else152195152210_))) - (_else152195152210_))))) + _hd153745153766_)) + (_K153744153763_ _expr153771_)) + (_else153742153757_))) + (_else153742153757_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##null? _body152192152202_) - (_K152200152230_) - (_try-match152194152226_)))))) - (_body152235_ - (if (null? _bind152180_) - _body152233_ + (if (##null? _body153739153749_) + (_K153747153777_) + (_try-match153741153773_)))))) + (_body153782_ + (if (null? _bind153727_) + _body153780_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _bind152180_ - (cons _body152233_ + (cons _bind153727_ + (cons _body153780_ '()))) - (gx#stx-source _stx152166_))))) - (if (null? _decls152179_) - _body152235_ + (gx#stx-source _stx153713_))))) + (if (null? _decls153726_) + _body153782_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _decls152179_ - (cons _body152235_ '()))) - (gx#stx-source _stx152166_)))))) - (_E152183152324_ + (cons _decls153726_ + (cons _body153782_ '()))) + (gx#stx-source _stx153713_)))))) + (_E153730153871_ (lambda () - (if (gx#stx-pair? _e152182152189_) - (let ((_e152185152242_ - (gx#syntax-e _e152182152189_))) - (let ((_hd152186152245_ - (##car _e152185152242_)) - (_tl152187152247_ - (##cdr _e152185152242_))) - (let* ((_hd152250_ _hd152186152245_) - (_rest152252_ _tl152187152247_)) + (if (gx#stx-pair? _e153729153736_) + (let ((_e153732153789_ + (gx#syntax-e _e153729153736_))) + (let ((_hd153733153792_ + (##car _e153732153789_)) + (_tl153734153794_ + (##cdr _e153732153789_))) + (let* ((_hd153797_ _hd153733153792_) + (_rest153799_ _tl153734153794_)) (if '#t - (let* ((_e152253152270_ - _hd152250_) - (_E152265152274_ + (let* ((_e153800153817_ + _hd153797_) + (_E153812153821_ (lambda () - (if (null? _bind152180_) - (_lp152176_ - _rest152252_ - _decls152179_ - _bind152180_ - (cons _hd152250_ + (if (null? _bind153727_) + (_lp153723_ + _rest153799_ + _decls153726_ + _bind153727_ + (cons _hd153797_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body152181_)) - (_lp152176_ - _rest152252_ - _decls152179_ - (cons (cons '#f (cons _hd152250_ '())) _bind152180_) - _body152181_)))) + _body153728_)) + (_lp153723_ + _rest153799_ + _decls153726_ + (cons (cons '#f (cons _hd153797_ '())) _bind153727_) + _body153728_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152255152288_ + (_E153802153835_ (lambda () (if (gx#stx-pair? - _e152253152270_) - (let ((_e152266152278_ + _e153800153817_) + (let ((_e153813153825_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e152253152270_))) - (let ((_hd152267152281_ (##car _e152266152278_)) - (_tl152268152283_ (##cdr _e152266152278_))) - (if (and (gx#identifier? _hd152267152281_) + (gx#syntax-e _e153800153817_))) + (let ((_hd153814153828_ (##car _e153813153825_)) + (_tl153815153830_ (##cdr _e153813153825_))) + (if (and (gx#identifier? _hd153814153828_) (gx#core-identifier=? - _hd152267152281_ + _hd153814153828_ '%#declare)) - (let ((_xdecls152286_ _tl152268152283_)) + (let ((_xdecls153833_ _tl153815153830_)) (if '#t - (_lp152176_ - _rest152252_ + (_lp153723_ + _rest153799_ (gx#stx-foldr cons - _decls152179_ - _xdecls152286_) - _bind152180_ - _body152181_) - (_E152265152274_))) - (_E152265152274_)))) - (_E152265152274_)))) + _decls153726_ + _xdecls153833_) + _bind153727_ + _body153728_) + (_E153812153821_))) + (_E153812153821_)))) + (_E153812153821_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152254152320_ + (_E153801153867_ (lambda () (if (gx#stx-pair? - _e152253152270_) - (let ((_e152256152292_ + _e153800153817_) + (let ((_e153803153839_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e152253152270_))) - (let ((_hd152257152295_ (##car _e152256152292_)) - (_tl152258152297_ (##cdr _e152256152292_))) - (if (and (gx#identifier? _hd152257152295_) + (gx#syntax-e _e153800153817_))) + (let ((_hd153804153842_ (##car _e153803153839_)) + (_tl153805153844_ (##cdr _e153803153839_))) + (if (and (gx#identifier? _hd153804153842_) (gx#core-identifier=? - _hd152257152295_ + _hd153804153842_ '%#define-values)) - (if (gx#stx-pair? _tl152258152297_) - (let ((_e152259152300_ - (gx#syntax-e _tl152258152297_))) - (let ((_hd152260152303_ - (##car _e152259152300_)) - (_tl152261152305_ - (##cdr _e152259152300_))) - (let ((_hd-bind152308_ _hd152260152303_)) - (if (gx#stx-pair? _tl152261152305_) - (let ((_e152262152310_ + (if (gx#stx-pair? _tl153805153844_) + (let ((_e153806153847_ + (gx#syntax-e _tl153805153844_))) + (let ((_hd153807153850_ + (##car _e153806153847_)) + (_tl153808153852_ + (##cdr _e153806153847_))) + (let ((_hd-bind153855_ _hd153807153850_)) + (if (gx#stx-pair? _tl153808153852_) + (let ((_e153809153857_ (gx#syntax-e - _tl152261152305_))) - (let ((_hd152263152313_ - (##car _e152262152310_)) - (_tl152264152315_ - (##cdr _e152262152310_))) - (let ((_expr152318_ - _hd152263152313_)) + _tl153808153852_))) + (let ((_hd153810153860_ + (##car _e153809153857_)) + (_tl153811153862_ + (##cdr _e153809153857_))) + (let ((_expr153865_ + _hd153810153860_)) (if (gx#stx-null? - _tl152264152315_) + _tl153811153862_) (if '#t - (_lp152176_ - _rest152252_ - _decls152179_ + (_lp153723_ + _rest153799_ + _decls153726_ (cons (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-bind152308_) - (cons (gx#core-expand-expression _expr152318_) + _hd-bind153855_) + (cons (gx#core-expand-expression _expr153865_) '())) - _bind152180_) - _body152181_) - (_E152255152288_)) + _bind153727_) + _body153728_) + (_E153802153835_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152255152288_))))) - (_E152255152288_))))) - (_E152255152288_)) - (_E152255152288_)))) - (_E152255152288_))))) + (_E153802153835_))))) + (_E153802153835_))))) + (_E153802153835_)) + (_E153802153835_)))) + (_E153802153835_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152254152320_)) - (_E152184152238_))))) - (_E152184152238_))))) - (_E152183152324_)))))) + (_E153801153867_)) + (_E153731153785_))))) + (_E153731153785_))))) + (_E153730153871_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _body152167_) - (gx#stx-source _stx152166_)) - _expand-special152169_)))) + (cons '%#begin _body153714_) + (gx#stx-source _stx153713_)) + _expand-special153716_)))) (define gx#core-expand-declare% - (lambda (_stx152104_) - (let* ((_e152105152112_ _stx152104_) - (_E152107152116_ + (lambda (_stx153651_) + (let* ((_e153652153659_ _stx153651_) + (_E153654153663_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152105152112_))) - (_E152106152162_ + _e153652153659_))) + (_E153653153709_ (lambda () - (if (gx#stx-pair? _e152105152112_) - (let ((_e152108152120_ (gx#syntax-e _e152105152112_))) - (let ((_hd152109152123_ (##car _e152108152120_)) - (_tl152110152125_ (##cdr _e152108152120_))) - (let ((_body152128_ _tl152110152125_)) - (if (gx#stx-list? _body152128_) + (if (gx#stx-pair? _e153652153659_) + (let ((_e153655153667_ (gx#syntax-e _e153652153659_))) + (let ((_hd153656153670_ (##car _e153655153667_)) + (_tl153657153672_ (##cdr _e153655153667_))) + (let ((_body153675_ _tl153657153672_)) + (if (gx#stx-list? _body153675_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_decl152130_) - (let* ((_e152131152138_ _decl152130_) - (_E152133152142_ + (lambda (_decl153677_) + (let* ((_e153678153685_ _decl153677_) + (_E153680153689_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152131152138_))) - (_E152132152158_ + _e153678153685_))) + (_E153679153705_ (lambda () (if (gx#stx-pair? - _e152131152138_) - (let ((_e152134152146_ + _e153678153685_) + (let ((_e153681153693_ (gx#syntax-e - _e152131152138_))) - (let ((_hd152135152149_ - (##car _e152134152146_)) - (_tl152136152151_ - (##cdr _e152134152146_))) - (let* ((_head152154_ - _hd152135152149_) - (_args152156_ - _tl152136152151_)) + _e153678153685_))) + (let ((_hd153682153696_ + (##car _e153681153693_)) + (_tl153683153698_ + (##cdr _e153681153693_))) + (let* ((_head153701_ + _hd153682153696_) + (_args153703_ + _tl153683153698_)) (if (gx#stx-list? - _args152156_) + _args153703_) (gx#stx-map1 gx#core-quote-syntax - _decl152130_) - (_E152133152142_))))) - (_E152133152142_))))) - (_E152132152158_))) - _body152128_)) - (gx#stx-source _stx152104_)) - (_E152107152116_))))) - (_E152107152116_))))) - (_E152106152162_)))) + _decl153677_) + (_E153680153689_))))) + (_E153680153689_))))) + (_E153679153705_))) + _body153675_)) + (gx#stx-source _stx153651_)) + (_E153654153663_))))) + (_E153654153663_))))) + (_E153653153709_)))) (define gx#core-expand-extern% - (lambda (_stx152008_) - (let* ((_e152009152016_ _stx152008_) - (_E152011152020_ + (lambda (_stx153555_) + (let* ((_e153556153563_ _stx153555_) + (_E153558153567_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152009152016_))) - (_E152010152100_ + _e153556153563_))) + (_E153557153647_ (lambda () - (if (gx#stx-pair? _e152009152016_) - (let ((_e152012152024_ (gx#syntax-e _e152009152016_))) - (let ((_hd152013152027_ (##car _e152012152024_)) - (_tl152014152029_ (##cdr _e152012152024_))) - (let ((_body152032_ _tl152014152029_)) + (if (gx#stx-pair? _e153556153563_) + (let ((_e153559153571_ (gx#syntax-e _e153556153563_))) + (let ((_hd153560153574_ (##car _e153559153571_)) + (_tl153561153576_ (##cdr _e153559153571_))) + (let ((_body153579_ _tl153561153576_)) (if '#t - (let _lp152034_ ((_rest152036_ _body152032_) - (_r152037_ '())) - (let* ((_e152038152052_ _rest152036_) - (_E152050152056_ + (let _lp153581_ ((_rest153583_ _body153579_) + (_r153584_ '())) + (let* ((_e153585153599_ _rest153583_) + (_E153597153603_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _stx152008_))) - (_E152040152060_ + _stx153555_))) + (_E153587153607_ (lambda () - (if (gx#stx-null? _e152038152052_) + (if (gx#stx-null? _e153585153599_) (if '#t (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _r152037_)) + (reverse _r153584_)) (gx#stx-source - _stx152008_)) - (_E152050152056_)) - (_E152050152056_)))) - (_E152039152096_ + _stx153555_)) + (_E153597153603_)) + (_E153597153603_)))) + (_E153586153643_ (lambda () - (if (gx#stx-pair? _e152038152052_) - (let ((_e152041152064_ + (if (gx#stx-pair? _e153585153599_) + (let ((_e153588153611_ (gx#syntax-e - _e152038152052_))) - (let ((_hd152042152067_ - (##car _e152041152064_)) - (_tl152043152069_ - (##cdr _e152041152064_))) + _e153585153599_))) + (let ((_hd153589153614_ + (##car _e153588153611_)) + (_tl153590153616_ + (##cdr _e153588153611_))) (if (gx#stx-pair? - _hd152042152067_) - (let ((_e152044152072_ + _hd153589153614_) + (let ((_e153591153619_ (gx#syntax-e - _hd152042152067_))) - (let ((_hd152045152075_ + _hd153589153614_))) + (let ((_hd153592153622_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e152044152072_)) - (_tl152046152077_ (##cdr _e152044152072_))) - (let ((_id152080_ _hd152045152075_)) - (if (gx#stx-pair? _tl152046152077_) - (let ((_e152047152082_ - (gx#syntax-e _tl152046152077_))) - (let ((_hd152048152085_ (##car _e152047152082_)) - (_tl152049152087_ (##cdr _e152047152082_))) - (let ((_eid152090_ _hd152048152085_)) - (if (gx#stx-null? _tl152049152087_) - (let ((_rest152092_ _tl152043152069_)) - (if (and (gx#identifier? _id152080_) - (gx#identifier? _eid152090_)) - (let ((_eid152094_ - (gx#stx-e _eid152090_))) + (##car _e153591153619_)) + (_tl153593153624_ (##cdr _e153591153619_))) + (let ((_id153627_ _hd153592153622_)) + (if (gx#stx-pair? _tl153593153624_) + (let ((_e153594153629_ + (gx#syntax-e _tl153593153624_))) + (let ((_hd153595153632_ (##car _e153594153629_)) + (_tl153596153634_ (##cdr _e153594153629_))) + (let ((_eid153637_ _hd153595153632_)) + (if (gx#stx-null? _tl153596153634_) + (let ((_rest153639_ _tl153590153616_)) + (if (and (gx#identifier? _id153627_) + (gx#identifier? _eid153637_)) + (let ((_eid153641_ + (gx#stx-e _eid153637_))) (gx#core-bind-extern!__0 - _id152080_ - _eid152094_) - (_lp152034_ - _rest152092_ + _id153627_ + _eid153641_) + (_lp153581_ + _rest153639_ (cons (cons (gx#core-quote-syntax__0 - _id152080_) - (cons _eid152094_ + _id153627_) + (cons _eid153641_ '())) - _r152037_))) - (_E152040152060_))) - (_E152040152060_))))) - (_E152040152060_))))) - (_E152040152060_)))) + _r153584_))) + (_E153587153607_))) + (_E153587153607_))))) + (_E153587153607_))))) + (_E153587153607_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152040152060_))))) - (_E152039152096_))) - (_E152011152020_))))) - (_E152011152020_))))) - (_E152010152100_)))) + (_E153587153607_))))) + (_E153586153643_))) + (_E153558153567_))))) + (_E153558153567_))))) + (_E153557153647_)))) (define gx#core-expand-define-values% - (lambda (_stx151954_) - (let* ((_e151955151968_ _stx151954_) - (_E151957151972_ + (lambda (_stx153501_) + (let* ((_e153502153515_ _stx153501_) + (_E153504153519_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151955151968_))) - (_E151956152004_ + _e153502153515_))) + (_E153503153551_ (lambda () - (if (gx#stx-pair? _e151955151968_) - (let ((_e151958151976_ (gx#syntax-e _e151955151968_))) - (let ((_hd151959151979_ (##car _e151958151976_)) - (_tl151960151981_ (##cdr _e151958151976_))) - (if (gx#stx-pair? _tl151960151981_) - (let ((_e151961151984_ - (gx#syntax-e _tl151960151981_))) - (let ((_hd151962151987_ - (##car _e151961151984_)) - (_tl151963151989_ - (##cdr _e151961151984_))) - (let ((_hd151992_ _hd151962151987_)) - (if (gx#stx-pair? _tl151963151989_) - (let ((_e151964151994_ - (gx#syntax-e _tl151963151989_))) - (let ((_hd151965151997_ - (##car _e151964151994_)) - (_tl151966151999_ - (##cdr _e151964151994_))) - (let ((_expr152002_ - _hd151965151997_)) + (if (gx#stx-pair? _e153502153515_) + (let ((_e153505153523_ (gx#syntax-e _e153502153515_))) + (let ((_hd153506153526_ (##car _e153505153523_)) + (_tl153507153528_ (##cdr _e153505153523_))) + (if (gx#stx-pair? _tl153507153528_) + (let ((_e153508153531_ + (gx#syntax-e _tl153507153528_))) + (let ((_hd153509153534_ + (##car _e153508153531_)) + (_tl153510153536_ + (##cdr _e153508153531_))) + (let ((_hd153539_ _hd153509153534_)) + (if (gx#stx-pair? _tl153510153536_) + (let ((_e153511153541_ + (gx#syntax-e _tl153510153536_))) + (let ((_hd153512153544_ + (##car _e153511153541_)) + (_tl153513153546_ + (##cdr _e153511153541_))) + (let ((_expr153549_ + _hd153512153544_)) (if (gx#stx-null? - _tl151966151999_) + _tl153513153546_) (if (gx#core-bind-values? - _hd151992_) + _hd153539_) (begin (gx#core-bind-values!__0 - _hd151992_) + _hd153539_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd151992_) - (cons (gx#core-expand-expression _expr152002_) + _hd153539_) + (cons (gx#core-expand-expression _expr153549_) '()))) - (gx#stx-source _stx151954_))) - (_E151957151972_)) + (gx#stx-source _stx153501_))) + (_E153504153519_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E151957151972_))))) - (_E151957151972_))))) - (_E151957151972_)))) - (_E151957151972_))))) - (_E151956152004_)))) + (_E153504153519_))))) + (_E153504153519_))))) + (_E153504153519_)))) + (_E153504153519_))))) + (_E153503153551_)))) (define gx#core-expand-define-runtime% - (lambda (_stx151898_) - (let* ((_e151899151912_ _stx151898_) - (_E151901151916_ + (lambda (_stx153445_) + (let* ((_e153446153459_ _stx153445_) + (_E153448153463_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151899151912_))) - (_E151900151950_ + _e153446153459_))) + (_E153447153497_ (lambda () - (if (gx#stx-pair? _e151899151912_) - (let ((_e151902151920_ (gx#syntax-e _e151899151912_))) - (let ((_hd151903151923_ (##car _e151902151920_)) - (_tl151904151925_ (##cdr _e151902151920_))) - (if (gx#stx-pair? _tl151904151925_) - (let ((_e151905151928_ - (gx#syntax-e _tl151904151925_))) - (let ((_hd151906151931_ - (##car _e151905151928_)) - (_tl151907151933_ - (##cdr _e151905151928_))) - (let ((_id151936_ _hd151906151931_)) - (if (gx#stx-pair? _tl151907151933_) - (let ((_e151908151938_ - (gx#syntax-e _tl151907151933_))) - (let ((_hd151909151941_ - (##car _e151908151938_)) - (_tl151910151943_ - (##cdr _e151908151938_))) - (let ((_binding-id151946_ - _hd151909151941_)) + (if (gx#stx-pair? _e153446153459_) + (let ((_e153449153467_ (gx#syntax-e _e153446153459_))) + (let ((_hd153450153470_ (##car _e153449153467_)) + (_tl153451153472_ (##cdr _e153449153467_))) + (if (gx#stx-pair? _tl153451153472_) + (let ((_e153452153475_ + (gx#syntax-e _tl153451153472_))) + (let ((_hd153453153478_ + (##car _e153452153475_)) + (_tl153454153480_ + (##cdr _e153452153475_))) + (let ((_id153483_ _hd153453153478_)) + (if (gx#stx-pair? _tl153454153480_) + (let ((_e153455153485_ + (gx#syntax-e _tl153454153480_))) + (let ((_hd153456153488_ + (##car _e153455153485_)) + (_tl153457153490_ + (##cdr _e153455153485_))) + (let ((_binding-id153493_ + _hd153456153488_)) (if (gx#stx-null? - _tl151910151943_) + _tl153457153490_) (if (and (gx#identifier? - _id151936_) + _id153483_) (gx#identifier? - _binding-id151946_)) - (let ((_eid151948_ + _binding-id153493_)) + (let ((_eid153495_ (gx#stx-e - _binding-id151946_))) + _binding-id153493_))) (gx#core-bind-runtime-reference!__0 - _id151936_ - _eid151948_) + _id153483_ + _eid153495_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id151936_) - (cons _eid151948_ '()))))) - (_E151901151916_)) + _id153483_) + (cons _eid153495_ '()))))) + (_E153448153463_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E151901151916_))))) - (_E151901151916_))))) - (_E151901151916_)))) - (_E151901151916_))))) - (_E151900151950_)))) + (_E153448153463_))))) + (_E153448153463_))))) + (_E153448153463_)))) + (_E153448153463_))))) + (_E153447153497_)))) (define gx#core-expand-define-syntax% - (lambda (_stx151841_) - (let* ((_e151842151855_ _stx151841_) - (_E151844151859_ + (lambda (_stx153388_) + (let* ((_e153389153402_ _stx153388_) + (_E153391153406_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151842151855_))) - (_E151843151894_ + _e153389153402_))) + (_E153390153441_ (lambda () - (if (gx#stx-pair? _e151842151855_) - (let ((_e151845151863_ (gx#syntax-e _e151842151855_))) - (let ((_hd151846151866_ (##car _e151845151863_)) - (_tl151847151868_ (##cdr _e151845151863_))) - (if (gx#stx-pair? _tl151847151868_) - (let ((_e151848151871_ - (gx#syntax-e _tl151847151868_))) - (let ((_hd151849151874_ - (##car _e151848151871_)) - (_tl151850151876_ - (##cdr _e151848151871_))) - (let ((_id151879_ _hd151849151874_)) - (if (gx#stx-pair? _tl151850151876_) - (let ((_e151851151881_ - (gx#syntax-e _tl151850151876_))) - (let ((_hd151852151884_ - (##car _e151851151881_)) - (_tl151853151886_ - (##cdr _e151851151881_))) - (let ((_expr151889_ - _hd151852151884_)) + (if (gx#stx-pair? _e153389153402_) + (let ((_e153392153410_ (gx#syntax-e _e153389153402_))) + (let ((_hd153393153413_ (##car _e153392153410_)) + (_tl153394153415_ (##cdr _e153392153410_))) + (if (gx#stx-pair? _tl153394153415_) + (let ((_e153395153418_ + (gx#syntax-e _tl153394153415_))) + (let ((_hd153396153421_ + (##car _e153395153418_)) + (_tl153397153423_ + (##cdr _e153395153418_))) + (let ((_id153426_ _hd153396153421_)) + (if (gx#stx-pair? _tl153397153423_) + (let ((_e153398153428_ + (gx#syntax-e _tl153397153423_))) + (let ((_hd153399153431_ + (##car _e153398153428_)) + (_tl153400153433_ + (##cdr _e153398153428_))) + (let ((_expr153436_ + _hd153399153431_)) (if (gx#stx-null? - _tl151853151886_) + _tl153400153433_) (if (gx#identifier? - _id151879_) - (let ((_g157268_ + _id153426_) + (let ((_g158915_ (gx#core-expand-expression+1 - _expr151889_))) + _expr153436_))) (begin - (let ((_g157269_ + (let ((_g158916_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g157268_) - (##vector-length _g157268_) + (if (##values? _g158915_) + (##vector-length _g158915_) 1))) - (if (not (##fx= _g157269_ 2)) - (error "Context expects 2 values" _g157269_))) - (let ((_e-stx151891_ (##vector-ref _g157268_ 0)) - (_e151892_ (##vector-ref _g157268_ 1))) + (if (not (##fx= _g158916_ 2)) + (error "Context expects 2 values" _g158916_))) + (let ((_e-stx153438_ (##vector-ref _g158915_ 0)) + (_e153439_ (##vector-ref _g158915_ 1))) (begin - (gx#core-bind-syntax!__0 _id151879_ _e151892_) + (gx#core-bind-syntax!__0 _id153426_ _e153439_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _id151879_) - (cons _e-stx151891_ '()))) - (gx#stx-source _stx151841_)))))) - (_E151844151859_)) + (cons (gx#core-quote-syntax__0 _id153426_) + (cons _e-stx153438_ '()))) + (gx#stx-source _stx153388_)))))) + (_E153391153406_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E151844151859_))))) - (_E151844151859_))))) - (_E151844151859_)))) - (_E151844151859_))))) - (_E151843151894_)))) + (_E153391153406_))))) + (_E153391153406_))))) + (_E153391153406_)))) + (_E153391153406_))))) + (_E153390153441_)))) (define gx#core-expand-define-alias% - (lambda (_stx151785_) - (let* ((_e151786151799_ _stx151785_) - (_E151788151803_ + (lambda (_stx153332_) + (let* ((_e153333153346_ _stx153332_) + (_E153335153350_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151786151799_))) - (_E151787151837_ + _e153333153346_))) + (_E153334153384_ (lambda () - (if (gx#stx-pair? _e151786151799_) - (let ((_e151789151807_ (gx#syntax-e _e151786151799_))) - (let ((_hd151790151810_ (##car _e151789151807_)) - (_tl151791151812_ (##cdr _e151789151807_))) - (if (gx#stx-pair? _tl151791151812_) - (let ((_e151792151815_ - (gx#syntax-e _tl151791151812_))) - (let ((_hd151793151818_ - (##car _e151792151815_)) - (_tl151794151820_ - (##cdr _e151792151815_))) - (let ((_id151823_ _hd151793151818_)) - (if (gx#stx-pair? _tl151794151820_) - (let ((_e151795151825_ - (gx#syntax-e _tl151794151820_))) - (let ((_hd151796151828_ - (##car _e151795151825_)) - (_tl151797151830_ - (##cdr _e151795151825_))) - (let ((_alias-id151833_ - _hd151796151828_)) + (if (gx#stx-pair? _e153333153346_) + (let ((_e153336153354_ (gx#syntax-e _e153333153346_))) + (let ((_hd153337153357_ (##car _e153336153354_)) + (_tl153338153359_ (##cdr _e153336153354_))) + (if (gx#stx-pair? _tl153338153359_) + (let ((_e153339153362_ + (gx#syntax-e _tl153338153359_))) + (let ((_hd153340153365_ + (##car _e153339153362_)) + (_tl153341153367_ + (##cdr _e153339153362_))) + (let ((_id153370_ _hd153340153365_)) + (if (gx#stx-pair? _tl153341153367_) + (let ((_e153342153372_ + (gx#syntax-e _tl153341153367_))) + (let ((_hd153343153375_ + (##car _e153342153372_)) + (_tl153344153377_ + (##cdr _e153342153372_))) + (let ((_alias-id153380_ + _hd153343153375_)) (if (gx#stx-null? - _tl151797151830_) + _tl153344153377_) (if (and (gx#identifier? - _id151823_) + _id153370_) (gx#identifier? - _alias-id151833_)) - (let ((_alias-id151835_ + _alias-id153380_)) + (let ((_alias-id153382_ (gx#core-quote-syntax__0 - _alias-id151833_))) + _alias-id153380_))) (gx#core-bind-alias!__0 - _id151823_ - _alias-id151835_) + _id153370_ + _alias-id153382_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id151823_) - (cons _alias-id151835_ '()))))) - (_E151788151803_)) + _id153370_) + (cons _alias-id153382_ '()))))) + (_E153335153350_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E151788151803_))))) - (_E151788151803_))))) - (_E151788151803_)))) - (_E151788151803_))))) - (_E151787151837_)))) + (_E153335153350_))))) + (_E153335153350_))))) + (_E153335153350_)))) + (_E153335153350_))))) + (_E153334153384_)))) (define gx#core-expand-lambda%__% - (lambda (_stx151728_ _wrap?151729_) - (let* ((_e151730151740_ _stx151728_) - (_E151732151744_ + (lambda (_stx153275_ _wrap?153276_) + (let* ((_e153277153287_ _stx153275_) + (_E153279153291_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151730151740_))) - (_E151731151771_ + _e153277153287_))) + (_E153278153318_ (lambda () - (if (gx#stx-pair? _e151730151740_) - (let ((_e151733151748_ (gx#syntax-e _e151730151740_))) - (let ((_hd151734151751_ (##car _e151733151748_)) - (_tl151735151753_ (##cdr _e151733151748_))) - (if (gx#stx-pair? _tl151735151753_) - (let ((_e151736151756_ - (gx#syntax-e _tl151735151753_))) - (let ((_hd151737151759_ - (##car _e151736151756_)) - (_tl151738151761_ - (##cdr _e151736151756_))) - (let* ((_hd151764_ _hd151737151759_) - (_body151766_ _tl151738151761_)) - (if (gx#core-bind-values? _hd151764_) + (if (gx#stx-pair? _e153277153287_) + (let ((_e153280153295_ (gx#syntax-e _e153277153287_))) + (let ((_hd153281153298_ (##car _e153280153295_)) + (_tl153282153300_ (##cdr _e153280153295_))) + (if (gx#stx-pair? _tl153282153300_) + (let ((_e153283153303_ + (gx#syntax-e _tl153282153300_))) + (let ((_hd153284153306_ + (##car _e153283153303_)) + (_tl153285153308_ + (##cdr _e153283153303_))) + (let* ((_hd153311_ _hd153284153306_) + (_body153313_ _tl153285153308_)) + (if (gx#core-bind-values? _hd153311_) (call-with-parameters (lambda () - (gx#core-bind-values!__0 _hd151764_) - (let ((_body151769_ + (gx#core-bind-values!__0 _hd153311_) + (let ((_body153316_ (cons (gx#core-quote-bind-values - _hd151764_) + _hd153311_) (cons (gx#core-expand-local-block - _stx151728_ - _body151766_) + _stx153275_ + _body153313_) '())))) - (if _wrap?151729_ + (if _wrap?153276_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _body151769_) - (gx#stx-source _stx151728_)) - _body151769_))) + _body153316_) + (gx#stx-source _stx153275_)) + _body153316_))) gx#current-expander-context - (let ((__obj157261 + (let ((__obj158908 (##structure gx#local-context::t '#f @@ -1147,120 +1147,120 @@ '#f '#f))) (gx#local-context:::init! - __obj157261) - __obj157261)) - (_E151732151744_))))) - (_E151732151744_)))) - (_E151732151744_))))) - (_E151731151771_)))) + __obj158908) + __obj158908)) + (_E153279153291_))))) + (_E153279153291_)))) + (_E153279153291_))))) + (_E153278153318_)))) (define gx#core-expand-lambda%__0 - (lambda (_stx151778_) - (let ((_wrap?151780_ '#t)) - (gx#core-expand-lambda%__% _stx151778_ _wrap?151780_)))) + (lambda (_stx153325_) + (let ((_wrap?153327_ '#t)) + (gx#core-expand-lambda%__% _stx153325_ _wrap?153327_)))) (define gx#core-expand-lambda% - (lambda _g157271_ - (let ((_g157270_ (##length _g157271_))) - (cond ((##fx= _g157270_ 1) - (apply (lambda (_stx151778_) - (gx#core-expand-lambda%__0 _stx151778_)) - _g157271_)) - ((##fx= _g157270_ 2) - (apply (lambda (_stx151782_ _wrap?151783_) + (lambda _g158918_ + (let ((_g158917_ (##length _g158918_))) + (cond ((##fx= _g158917_ 1) + (apply (lambda (_stx153325_) + (gx#core-expand-lambda%__0 _stx153325_)) + _g158918_)) + ((##fx= _g158917_ 2) + (apply (lambda (_stx153329_ _wrap?153330_) (gx#core-expand-lambda%__% - _stx151782_ - _wrap?151783_)) - _g157271_)) + _stx153329_ + _wrap?153330_)) + _g158918_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g157271_)))))) + _g158918_)))))) (define gx#core-expand-case-lambda% - (lambda (_stx151692_) - (let* ((_e151693151700_ _stx151692_) - (_E151695151704_ + (lambda (_stx153239_) + (let* ((_e153240153247_ _stx153239_) + (_E153242153251_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151693151700_))) - (_E151694151723_ + _e153240153247_))) + (_E153241153270_ (lambda () - (if (gx#stx-pair? _e151693151700_) - (let ((_e151696151708_ (gx#syntax-e _e151693151700_))) - (let ((_hd151697151711_ (##car _e151696151708_)) - (_tl151698151713_ (##cdr _e151696151708_))) - (let ((_clauses151716_ _tl151698151713_)) - (if (gx#stx-list? _clauses151716_) + (if (gx#stx-pair? _e153240153247_) + (let ((_e153243153255_ (gx#syntax-e _e153240153247_))) + (let ((_hd153244153258_ (##car _e153243153255_)) + (_tl153245153260_ (##cdr _e153243153255_))) + (let ((_clauses153263_ _tl153245153260_)) + (if (gx#stx-list? _clauses153263_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_clause151718_) + (lambda (_clause153265_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _clause151718_) - (let ((_$e151720_ - (gx#stx-source _clause151718_))) - (if _$e151720_ - _$e151720_ - (gx#stx-source _stx151692_)))) + _clause153265_) + (let ((_$e153267_ + (gx#stx-source _clause153265_))) + (if _$e153267_ + _$e153267_ + (gx#stx-source _stx153239_)))) '#f)) - _clauses151716_)) - (gx#stx-source _stx151692_)) - (_E151695151704_))))) - (_E151695151704_))))) - (_E151694151723_)))) + _clauses153263_)) + (gx#stx-source _stx153239_)) + (_E153242153251_))))) + (_E153242153251_))))) + (_E153241153270_)))) (define gx#core-expand-let-values% - (lambda (_stx151646_) - (let* ((_e151647151657_ _stx151646_) - (_E151649151661_ + (lambda (_stx153193_) + (let* ((_e153194153204_ _stx153193_) + (_E153196153208_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151647151657_))) - (_E151648151688_ + _e153194153204_))) + (_E153195153235_ (lambda () - (if (gx#stx-pair? _e151647151657_) - (let ((_e151650151665_ (gx#syntax-e _e151647151657_))) - (let ((_hd151651151668_ (##car _e151650151665_)) - (_tl151652151670_ (##cdr _e151650151665_))) - (if (gx#stx-pair? _tl151652151670_) - (let ((_e151653151673_ - (gx#syntax-e _tl151652151670_))) - (let ((_hd151654151676_ - (##car _e151653151673_)) - (_tl151655151678_ - (##cdr _e151653151673_))) - (let* ((_hd151681_ _hd151654151676_) - (_body151683_ _tl151655151678_)) - (if (gx#core-expand-let-bind? _hd151681_) - (let ((_expressions151685_ + (if (gx#stx-pair? _e153194153204_) + (let ((_e153197153212_ (gx#syntax-e _e153194153204_))) + (let ((_hd153198153215_ (##car _e153197153212_)) + (_tl153199153217_ (##cdr _e153197153212_))) + (if (gx#stx-pair? _tl153199153217_) + (let ((_e153200153220_ + (gx#syntax-e _tl153199153217_))) + (let ((_hd153201153223_ + (##car _e153200153220_)) + (_tl153202153225_ + (##cdr _e153200153220_))) + (let* ((_hd153228_ _hd153201153223_) + (_body153230_ _tl153202153225_)) + (if (gx#core-expand-let-bind? _hd153228_) + (let ((_expressions153232_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd151681_))) + _hd153228_))) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd151681_) + _hd153228_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd151681_ - _expressions151685_) + _hd153228_ + _expressions153232_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _stx151646_ - _body151683_) + _stx153193_ + _body153230_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx151646_))) + (gx#stx-source _stx153193_))) gx#current-expander-context - (let ((__obj157262 + (let ((__obj158909 (##structure gx#local-context::t '#f @@ -1269,58 +1269,58 @@ '#f '#f))) (gx#local-context:::init! - __obj157262) - __obj157262))) - (_E151649151661_))))) - (_E151649151661_)))) - (_E151649151661_))))) - (_E151648151688_)))) + __obj158909) + __obj158909))) + (_E153196153208_))))) + (_E153196153208_)))) + (_E153196153208_))))) + (_E153195153235_)))) (define gx#core-expand-letrec-values%__% - (lambda (_stx151591_ _form151592_) - (let* ((_e151593151603_ _stx151591_) - (_E151595151607_ + (lambda (_stx153138_ _form153139_) + (let* ((_e153140153150_ _stx153138_) + (_E153142153154_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151593151603_))) - (_E151594151632_ + _e153140153150_))) + (_E153141153179_ (lambda () - (if (gx#stx-pair? _e151593151603_) - (let ((_e151596151611_ (gx#syntax-e _e151593151603_))) - (let ((_hd151597151614_ (##car _e151596151611_)) - (_tl151598151616_ (##cdr _e151596151611_))) - (if (gx#stx-pair? _tl151598151616_) - (let ((_e151599151619_ - (gx#syntax-e _tl151598151616_))) - (let ((_hd151600151622_ - (##car _e151599151619_)) - (_tl151601151624_ - (##cdr _e151599151619_))) - (let* ((_hd151627_ _hd151600151622_) - (_body151629_ _tl151601151624_)) - (if (gx#core-expand-let-bind? _hd151627_) + (if (gx#stx-pair? _e153140153150_) + (let ((_e153143153158_ (gx#syntax-e _e153140153150_))) + (let ((_hd153144153161_ (##car _e153143153158_)) + (_tl153145153163_ (##cdr _e153143153158_))) + (if (gx#stx-pair? _tl153145153163_) + (let ((_e153146153166_ + (gx#syntax-e _tl153145153163_))) + (let ((_hd153147153169_ + (##car _e153146153166_)) + (_tl153148153171_ + (##cdr _e153146153166_))) + (let* ((_hd153174_ _hd153147153169_) + (_body153176_ _tl153148153171_)) + (if (gx#core-expand-let-bind? _hd153174_) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd151627_) + _hd153174_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _form151592_) + _form153139_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd151627_ + _hd153174_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd151627_)) + _hd153174_)) (cons (gx#core-expand-local-block - _stx151591_ - _body151629_) + _stx153138_ + _body153176_) '()))) - (gx#stx-source _stx151591_))) + (gx#stx-source _stx153138_))) gx#current-expander-context - (let ((__obj157263 + (let ((__obj158910 (##structure gx#local-context::t '#f @@ -1329,208 +1329,208 @@ '#f '#f))) (gx#local-context:::init! - __obj157263) - __obj157263)) - (_E151595151607_))))) - (_E151595151607_)))) - (_E151595151607_))))) - (_E151594151632_)))) + __obj158910) + __obj158910)) + (_E153142153154_))))) + (_E153142153154_)))) + (_E153142153154_))))) + (_E153141153179_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_stx151639_) - (let ((_form151641_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _stx151639_ _form151641_)))) + (lambda (_stx153186_) + (let ((_form153188_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _stx153186_ _form153188_)))) (define gx#core-expand-letrec-values% - (lambda _g157273_ - (let ((_g157272_ (##length _g157273_))) - (cond ((##fx= _g157272_ 1) - (apply (lambda (_stx151639_) - (gx#core-expand-letrec-values%__0 _stx151639_)) - _g157273_)) - ((##fx= _g157272_ 2) - (apply (lambda (_stx151643_ _form151644_) + (lambda _g158920_ + (let ((_g158919_ (##length _g158920_))) + (cond ((##fx= _g158919_ 1) + (apply (lambda (_stx153186_) + (gx#core-expand-letrec-values%__0 _stx153186_)) + _g158920_)) + ((##fx= _g158919_ 2) + (apply (lambda (_stx153190_ _form153191_) (gx#core-expand-letrec-values%__% - _stx151643_ - _form151644_)) - _g157273_)) + _stx153190_ + _form153191_)) + _g158920_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g157273_)))))) + _g158920_)))))) (define gx#core-expand-letrec*-values% - (lambda (_stx151588_) - (gx#core-expand-letrec-values%__% _stx151588_ '%#letrec*-values))) + (lambda (_stx153135_) + (gx#core-expand-letrec-values%__% _stx153135_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_stx151545_) - (if (gx#stx-list? _stx151545_) + (lambda (_stx153092_) + (if (gx#stx-list? _stx153092_) (gx#stx-andmap - (lambda (_bind151547_) - (let* ((_e151548151558_ _bind151547_) - (_E151550151562_ (lambda () '#f)) - (_E151549151584_ + (lambda (_bind153094_) + (let* ((_e153095153105_ _bind153094_) + (_E153097153109_ (lambda () '#f)) + (_E153096153131_ (lambda () - (if (gx#stx-pair? _e151548151558_) - (let ((_e151551151566_ - (gx#syntax-e _e151548151558_))) - (let ((_hd151552151569_ (##car _e151551151566_)) - (_tl151553151571_ - (##cdr _e151551151566_))) - (let ((_hd151574_ _hd151552151569_)) - (if (gx#stx-pair? _tl151553151571_) - (let ((_e151554151576_ - (gx#syntax-e _tl151553151571_))) - (let ((_hd151555151579_ - (##car _e151554151576_)) - (_tl151556151581_ - (##cdr _e151554151576_))) - (if (gx#stx-null? _tl151556151581_) + (if (gx#stx-pair? _e153095153105_) + (let ((_e153098153113_ + (gx#syntax-e _e153095153105_))) + (let ((_hd153099153116_ (##car _e153098153113_)) + (_tl153100153118_ + (##cdr _e153098153113_))) + (let ((_hd153121_ _hd153099153116_)) + (if (gx#stx-pair? _tl153100153118_) + (let ((_e153101153123_ + (gx#syntax-e _tl153100153118_))) + (let ((_hd153102153126_ + (##car _e153101153123_)) + (_tl153103153128_ + (##cdr _e153101153123_))) + (if (gx#stx-null? _tl153103153128_) (if '#t (gx#core-bind-values? - _hd151574_) - (_E151550151562_)) - (_E151550151562_)))) - (_E151550151562_))))) - (_E151550151562_))))) - (_E151549151584_))) - _stx151545_) + _hd153121_) + (_E153097153109_)) + (_E153097153109_)))) + (_E153097153109_))))) + (_E153097153109_))))) + (_E153096153131_))) + _stx153092_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_bind151504_) - (let* ((_e151505151515_ _bind151504_) - (_E151507151519_ + (lambda (_bind153051_) + (let* ((_e153052153062_ _bind153051_) + (_E153054153066_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151505151515_))) - (_E151506151541_ + _e153052153062_))) + (_E153053153088_ (lambda () - (if (gx#stx-pair? _e151505151515_) - (let ((_e151508151523_ (gx#syntax-e _e151505151515_))) - (let ((_hd151509151526_ (##car _e151508151523_)) - (_tl151510151528_ (##cdr _e151508151523_))) - (if (gx#stx-pair? _tl151510151528_) - (let ((_e151511151531_ - (gx#syntax-e _tl151510151528_))) - (let ((_hd151512151534_ - (##car _e151511151531_)) - (_tl151513151536_ - (##cdr _e151511151531_))) - (let ((_expr151539_ _hd151512151534_)) - (if (gx#stx-null? _tl151513151536_) + (if (gx#stx-pair? _e153052153062_) + (let ((_e153055153070_ (gx#syntax-e _e153052153062_))) + (let ((_hd153056153073_ (##car _e153055153070_)) + (_tl153057153075_ (##cdr _e153055153070_))) + (if (gx#stx-pair? _tl153057153075_) + (let ((_e153058153078_ + (gx#syntax-e _tl153057153075_))) + (let ((_hd153059153081_ + (##car _e153058153078_)) + (_tl153060153083_ + (##cdr _e153058153078_))) + (let ((_expr153086_ _hd153059153081_)) + (if (gx#stx-null? _tl153060153083_) (if '#t (gx#core-expand-expression - _expr151539_) - (_E151507151519_)) - (_E151507151519_))))) - (_E151507151519_)))) - (_E151507151519_))))) - (_E151506151541_)))) + _expr153086_) + (_E153054153066_)) + (_E153054153066_))))) + (_E153054153066_)))) + (_E153054153066_))))) + (_E153053153088_)))) (define gx#core-expand-let-bind-values! - (lambda (_bind151463_) - (let* ((_e151464151474_ _bind151463_) - (_E151466151478_ + (lambda (_bind153010_) + (let* ((_e153011153021_ _bind153010_) + (_E153013153025_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151464151474_))) - (_E151465151500_ + _e153011153021_))) + (_E153012153047_ (lambda () - (if (gx#stx-pair? _e151464151474_) - (let ((_e151467151482_ (gx#syntax-e _e151464151474_))) - (let ((_hd151468151485_ (##car _e151467151482_)) - (_tl151469151487_ (##cdr _e151467151482_))) - (let ((_hd151490_ _hd151468151485_)) - (if (gx#stx-pair? _tl151469151487_) - (let ((_e151470151492_ - (gx#syntax-e _tl151469151487_))) - (let ((_hd151471151495_ - (##car _e151470151492_)) - (_tl151472151497_ - (##cdr _e151470151492_))) - (if (gx#stx-null? _tl151472151497_) + (if (gx#stx-pair? _e153011153021_) + (let ((_e153014153029_ (gx#syntax-e _e153011153021_))) + (let ((_hd153015153032_ (##car _e153014153029_)) + (_tl153016153034_ (##cdr _e153014153029_))) + (let ((_hd153037_ _hd153015153032_)) + (if (gx#stx-pair? _tl153016153034_) + (let ((_e153017153039_ + (gx#syntax-e _tl153016153034_))) + (let ((_hd153018153042_ + (##car _e153017153039_)) + (_tl153019153044_ + (##cdr _e153017153039_))) + (if (gx#stx-null? _tl153019153044_) (if '#t (gx#core-bind-values!__0 - _hd151490_) - (_E151466151478_)) - (_E151466151478_)))) - (_E151466151478_))))) - (_E151466151478_))))) - (_E151465151500_)))) + _hd153037_) + (_E153013153025_)) + (_E153013153025_)))) + (_E153013153025_))))) + (_E153013153025_))))) + (_E153012153047_)))) (define gx#core-expand-let-bind-quote - (lambda (_bind151421_ _expr151422_) - (let* ((_e151423151433_ _bind151421_) - (_E151425151437_ + (lambda (_bind152968_ _expr152969_) + (let* ((_e152970152980_ _bind152968_) + (_E152972152984_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151423151433_))) - (_E151424151459_ + _e152970152980_))) + (_E152971153006_ (lambda () - (if (gx#stx-pair? _e151423151433_) - (let ((_e151426151441_ (gx#syntax-e _e151423151433_))) - (let ((_hd151427151444_ (##car _e151426151441_)) - (_tl151428151446_ (##cdr _e151426151441_))) - (let ((_hd151449_ _hd151427151444_)) - (if (gx#stx-pair? _tl151428151446_) - (let ((_e151429151451_ - (gx#syntax-e _tl151428151446_))) - (let ((_hd151430151454_ - (##car _e151429151451_)) - (_tl151431151456_ - (##cdr _e151429151451_))) - (if (gx#stx-null? _tl151431151456_) + (if (gx#stx-pair? _e152970152980_) + (let ((_e152973152988_ (gx#syntax-e _e152970152980_))) + (let ((_hd152974152991_ (##car _e152973152988_)) + (_tl152975152993_ (##cdr _e152973152988_))) + (let ((_hd152996_ _hd152974152991_)) + (if (gx#stx-pair? _tl152975152993_) + (let ((_e152976152998_ + (gx#syntax-e _tl152975152993_))) + (let ((_hd152977153001_ + (##car _e152976152998_)) + (_tl152978153003_ + (##cdr _e152976152998_))) + (if (gx#stx-null? _tl152978153003_) (if '#t (cons (gx#core-quote-bind-values - _hd151449_) - (cons _expr151422_ '())) - (_E151425151437_)) - (_E151425151437_)))) - (_E151425151437_))))) - (_E151425151437_))))) - (_E151424151459_)))) + _hd152996_) + (cons _expr152969_ '())) + (_E152972152984_)) + (_E152972152984_)))) + (_E152972152984_))))) + (_E152972152984_))))) + (_E152971153006_)))) (define gx#core-expand-let-syntax% - (lambda (_stx151375_) - (let* ((_e151376151386_ _stx151375_) - (_E151378151390_ + (lambda (_stx152922_) + (let* ((_e152923152933_ _stx152922_) + (_E152925152937_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151376151386_))) - (_E151377151417_ + _e152923152933_))) + (_E152924152964_ (lambda () - (if (gx#stx-pair? _e151376151386_) - (let ((_e151379151394_ (gx#syntax-e _e151376151386_))) - (let ((_hd151380151397_ (##car _e151379151394_)) - (_tl151381151399_ (##cdr _e151379151394_))) - (if (gx#stx-pair? _tl151381151399_) - (let ((_e151382151402_ - (gx#syntax-e _tl151381151399_))) - (let ((_hd151383151405_ - (##car _e151382151402_)) - (_tl151384151407_ - (##cdr _e151382151402_))) - (let* ((_hd151410_ _hd151383151405_) - (_body151412_ _tl151384151407_)) + (if (gx#stx-pair? _e152923152933_) + (let ((_e152926152941_ (gx#syntax-e _e152923152933_))) + (let ((_hd152927152944_ (##car _e152926152941_)) + (_tl152928152946_ (##cdr _e152926152941_))) + (if (gx#stx-pair? _tl152928152946_) + (let ((_e152929152949_ + (gx#syntax-e _tl152928152946_))) + (let ((_hd152930152952_ + (##car _e152929152949_)) + (_tl152931152954_ + (##cdr _e152929152949_))) + (let* ((_hd152957_ _hd152930152952_) + (_body152959_ _tl152931152954_)) (if (gx#core-expand-let-bind-syntax? - _hd151410_) - (let ((_expanders151414_ + _hd152957_) + (let ((_expanders152961_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd151410_))) + _hd152957_))) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd151410_ - _expanders151414_) + _hd152957_ + _expanders152961_) (gx#core-expand-local-block - _stx151375_ - _body151412_)) + _stx152922_ + _body152959_)) gx#current-expander-context - (let ((__obj157264 + (let ((__obj158911 (##structure gx#local-context::t '#f @@ -1539,62 +1539,62 @@ '#f '#f))) (gx#local-context:::init! - __obj157264) - __obj157264))) - (_E151378151390_))))) - (_E151378151390_)))) - (_E151378151390_))))) - (_E151377151417_)))) + __obj158911) + __obj158911))) + (_E152925152937_))))) + (_E152925152937_)))) + (_E152925152937_))))) + (_E152924152964_)))) (define gx#core-expand-letrec-syntax% - (lambda (_stx151324_) - (let* ((_e151325151335_ _stx151324_) - (_E151327151339_ + (lambda (_stx152871_) + (let* ((_e152872152882_ _stx152871_) + (_E152874152886_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151325151335_))) - (_E151326151371_ + _e152872152882_))) + (_E152873152918_ (lambda () - (if (gx#stx-pair? _e151325151335_) - (let ((_e151328151343_ (gx#syntax-e _e151325151335_))) - (let ((_hd151329151346_ (##car _e151328151343_)) - (_tl151330151348_ (##cdr _e151328151343_))) - (if (gx#stx-pair? _tl151330151348_) - (let ((_e151331151351_ - (gx#syntax-e _tl151330151348_))) - (let ((_hd151332151354_ - (##car _e151331151351_)) - (_tl151333151356_ - (##cdr _e151331151351_))) - (let* ((_hd151359_ _hd151332151354_) - (_body151361_ _tl151333151356_)) + (if (gx#stx-pair? _e152872152882_) + (let ((_e152875152890_ (gx#syntax-e _e152872152882_))) + (let ((_hd152876152893_ (##car _e152875152890_)) + (_tl152877152895_ (##cdr _e152875152890_))) + (if (gx#stx-pair? _tl152877152895_) + (let ((_e152878152898_ + (gx#syntax-e _tl152877152895_))) + (let ((_hd152879152901_ + (##car _e152878152898_)) + (_tl152880152903_ + (##cdr _e152878152898_))) + (let* ((_hd152906_ _hd152879152901_) + (_body152908_ _tl152880152903_)) (if (gx#core-expand-let-bind-syntax? - _hd151359_) + _hd152906_) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd151359_ + _hd152906_ (make-list - (gx#stx-length _hd151359_) + (gx#stx-length _hd152906_) '#!void)) (gx#stx-for-each2 - (lambda (_g151363151366_ - _g151364151368_) + (lambda (_g152910152913_ + _g152911152915_) (gx#core-expand-let-bind-syntax!__% - _g151363151366_ - _g151364151368_ + _g152910152913_ + _g152911152915_ '#t)) - _hd151359_ + _hd152906_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd151359_)) + _hd152906_)) (gx#core-expand-local-block - _stx151324_ - _body151361_)) + _stx152871_ + _body152908_)) gx#current-expander-context - (let ((__obj157265 + (let ((__obj158912 (##structure gx#local-context::t '#f @@ -1603,1928 +1603,1928 @@ '#f '#f))) (gx#local-context:::init! - __obj157265) - __obj157265)) - (_E151327151339_))))) - (_E151327151339_)))) - (_E151327151339_))))) - (_E151326151371_)))) + __obj158912) + __obj158912)) + (_E152874152886_))))) + (_E152874152886_)))) + (_E152874152886_))))) + (_E152873152918_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_stx151281_) - (if (gx#stx-list? _stx151281_) + (lambda (_stx152828_) + (if (gx#stx-list? _stx152828_) (gx#stx-andmap - (lambda (_bind151283_) - (let* ((_e151284151294_ _bind151283_) - (_E151286151298_ (lambda () '#f)) - (_E151285151320_ + (lambda (_bind152830_) + (let* ((_e152831152841_ _bind152830_) + (_E152833152845_ (lambda () '#f)) + (_E152832152867_ (lambda () - (if (gx#stx-pair? _e151284151294_) - (let ((_e151287151302_ - (gx#syntax-e _e151284151294_))) - (let ((_hd151288151305_ (##car _e151287151302_)) - (_tl151289151307_ - (##cdr _e151287151302_))) - (let ((_hd151310_ _hd151288151305_)) - (if (gx#stx-pair? _tl151289151307_) - (let ((_e151290151312_ - (gx#syntax-e _tl151289151307_))) - (let ((_hd151291151315_ - (##car _e151290151312_)) - (_tl151292151317_ - (##cdr _e151290151312_))) - (if (gx#stx-null? _tl151292151317_) + (if (gx#stx-pair? _e152831152841_) + (let ((_e152834152849_ + (gx#syntax-e _e152831152841_))) + (let ((_hd152835152852_ (##car _e152834152849_)) + (_tl152836152854_ + (##cdr _e152834152849_))) + (let ((_hd152857_ _hd152835152852_)) + (if (gx#stx-pair? _tl152836152854_) + (let ((_e152837152859_ + (gx#syntax-e _tl152836152854_))) + (let ((_hd152838152862_ + (##car _e152837152859_)) + (_tl152839152864_ + (##cdr _e152837152859_))) + (if (gx#stx-null? _tl152839152864_) (if '#t - (gx#identifier? _hd151310_) - (_E151286151298_)) - (_E151286151298_)))) - (_E151286151298_))))) - (_E151286151298_))))) - (_E151285151320_))) - _stx151281_) + (gx#identifier? _hd152857_) + (_E152833152845_)) + (_E152833152845_)))) + (_E152833152845_))))) + (_E152833152845_))))) + (_E152832152867_))) + _stx152828_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_bind151238_) - (let* ((_e151239151249_ _bind151238_) - (_E151241151253_ + (lambda (_bind152785_) + (let* ((_e152786152796_ _bind152785_) + (_E152788152800_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151239151249_))) - (_E151240151277_ + _e152786152796_))) + (_E152787152824_ (lambda () - (if (gx#stx-pair? _e151239151249_) - (let ((_e151242151257_ (gx#syntax-e _e151239151249_))) - (let ((_hd151243151260_ (##car _e151242151257_)) - (_tl151244151262_ (##cdr _e151242151257_))) - (if (gx#stx-pair? _tl151244151262_) - (let ((_e151245151265_ - (gx#syntax-e _tl151244151262_))) - (let ((_hd151246151268_ - (##car _e151245151265_)) - (_tl151247151270_ - (##cdr _e151245151265_))) - (let ((_expr151273_ _hd151246151268_)) - (if (gx#stx-null? _tl151247151270_) + (if (gx#stx-pair? _e152786152796_) + (let ((_e152789152804_ (gx#syntax-e _e152786152796_))) + (let ((_hd152790152807_ (##car _e152789152804_)) + (_tl152791152809_ (##cdr _e152789152804_))) + (if (gx#stx-pair? _tl152791152809_) + (let ((_e152792152812_ + (gx#syntax-e _tl152791152809_))) + (let ((_hd152793152815_ + (##car _e152792152812_)) + (_tl152794152817_ + (##cdr _e152792152812_))) + (let ((_expr152820_ _hd152793152815_)) + (if (gx#stx-null? _tl152794152817_) (if '#t - (let ((_g157274_ + (let ((_g158921_ (gx#core-expand-expression+1 - _expr151273_))) + _expr152820_))) (begin - (let ((_g157275_ + (let ((_g158922_ (if (##values? - _g157274_) + _g158921_) (##vector-length - _g157274_) + _g158921_) 1))) - (if (not (##fx= _g157275_ 2)) + (if (not (##fx= _g158922_ 2)) (error "Context expects 2 values" - _g157275_))) - (let ((_e151275_ + _g158922_))) + (let ((_e152822_ (##vector-ref - _g157274_ + _g158921_ 1))) - _e151275_))) - (_E151241151253_)) - (_E151241151253_))))) - (_E151241151253_)))) - (_E151241151253_))))) - (_E151240151277_)))) + _e152822_))) + (_E152788152800_)) + (_E152788152800_))))) + (_E152788152800_)))) + (_E152788152800_))))) + (_E152787152824_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_bind151183_ _e151184_ _rebind?151185_) - (let* ((_e151186151196_ _bind151183_) - (_E151188151200_ + (lambda (_bind152730_ _e152731_ _rebind?152732_) + (let* ((_e152733152743_ _bind152730_) + (_E152735152747_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151186151196_))) - (_E151187151222_ + _e152733152743_))) + (_E152734152769_ (lambda () - (if (gx#stx-pair? _e151186151196_) - (let ((_e151189151204_ (gx#syntax-e _e151186151196_))) - (let ((_hd151190151207_ (##car _e151189151204_)) - (_tl151191151209_ (##cdr _e151189151204_))) - (let ((_id151212_ _hd151190151207_)) - (if (gx#stx-pair? _tl151191151209_) - (let ((_e151192151214_ - (gx#syntax-e _tl151191151209_))) - (let ((_hd151193151217_ - (##car _e151192151214_)) - (_tl151194151219_ - (##cdr _e151192151214_))) - (if (gx#stx-null? _tl151194151219_) + (if (gx#stx-pair? _e152733152743_) + (let ((_e152736152751_ (gx#syntax-e _e152733152743_))) + (let ((_hd152737152754_ (##car _e152736152751_)) + (_tl152738152756_ (##cdr _e152736152751_))) + (let ((_id152759_ _hd152737152754_)) + (if (gx#stx-pair? _tl152738152756_) + (let ((_e152739152761_ + (gx#syntax-e _tl152738152756_))) + (let ((_hd152740152764_ + (##car _e152739152761_)) + (_tl152741152766_ + (##cdr _e152739152761_))) + (if (gx#stx-null? _tl152741152766_) (if '#t (gx#core-bind-syntax!__1 - _id151212_ - _e151184_ - _rebind?151185_) - (_E151188151200_)) - (_E151188151200_)))) - (_E151188151200_))))) - (_E151188151200_))))) - (_E151187151222_)))) + _id152759_ + _e152731_ + _rebind?152732_) + (_E152735152747_)) + (_E152735152747_)))) + (_E152735152747_))))) + (_E152735152747_))))) + (_E152734152769_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_bind151229_ _e151230_) - (let ((_rebind?151232_ '#f)) + (lambda (_bind152776_ _e152777_) + (let ((_rebind?152779_ '#f)) (gx#core-expand-let-bind-syntax!__% - _bind151229_ - _e151230_ - _rebind?151232_)))) + _bind152776_ + _e152777_ + _rebind?152779_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g157277_ - (let ((_g157276_ (##length _g157277_))) - (cond ((##fx= _g157276_ 2) - (apply (lambda (_bind151229_ _e151230_) + (lambda _g158924_ + (let ((_g158923_ (##length _g158924_))) + (cond ((##fx= _g158923_ 2) + (apply (lambda (_bind152776_ _e152777_) (gx#core-expand-let-bind-syntax!__0 - _bind151229_ - _e151230_)) - _g157277_)) - ((##fx= _g157276_ 3) - (apply (lambda (_bind151234_ _e151235_ _rebind?151236_) + _bind152776_ + _e152777_)) + _g158924_)) + ((##fx= _g158923_ 3) + (apply (lambda (_bind152781_ _e152782_ _rebind?152783_) (gx#core-expand-let-bind-syntax!__% - _bind151234_ - _e151235_ - _rebind?151236_)) - _g157277_)) + _bind152781_ + _e152782_ + _rebind?152783_)) + _g158924_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g157277_)))))) + _g158924_)))))) (define gx#core-expand-expression% - (lambda (_stx151141_) - (let* ((_e151142151152_ _stx151141_) - (_E151144151156_ + (lambda (_stx152688_) + (let* ((_e152689152699_ _stx152688_) + (_E152691152703_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151142151152_))) - (_E151143151178_ + _e152689152699_))) + (_E152690152725_ (lambda () - (if (gx#stx-pair? _e151142151152_) - (let ((_e151145151160_ (gx#syntax-e _e151142151152_))) - (let ((_hd151146151163_ (##car _e151145151160_)) - (_tl151147151165_ (##cdr _e151145151160_))) - (if (gx#stx-pair? _tl151147151165_) - (let ((_e151148151168_ - (gx#syntax-e _tl151147151165_))) - (let ((_hd151149151171_ - (##car _e151148151168_)) - (_tl151150151173_ - (##cdr _e151148151168_))) - (let ((_expr151176_ _hd151149151171_)) - (if (gx#stx-null? _tl151150151173_) + (if (gx#stx-pair? _e152689152699_) + (let ((_e152692152707_ (gx#syntax-e _e152689152699_))) + (let ((_hd152693152710_ (##car _e152692152707_)) + (_tl152694152712_ (##cdr _e152692152707_))) + (if (gx#stx-pair? _tl152694152712_) + (let ((_e152695152715_ + (gx#syntax-e _tl152694152712_))) + (let ((_hd152696152718_ + (##car _e152695152715_)) + (_tl152697152720_ + (##cdr _e152695152715_))) + (let ((_expr152723_ _hd152696152718_)) + (if (gx#stx-null? _tl152697152720_) (if '#t (gx#core-expand-expression - _expr151176_) - (_E151144151156_)) - (_E151144151156_))))) - (_E151144151156_)))) - (_E151144151156_))))) - (_E151143151178_)))) + _expr152723_) + (_E152691152703_)) + (_E152691152703_))))) + (_E152691152703_)))) + (_E152691152703_))))) + (_E152690152725_)))) (define gx#core-expand-quote% - (lambda (_stx151100_) - (let* ((_e151101151111_ _stx151100_) - (_E151103151115_ + (lambda (_stx152647_) + (let* ((_e152648152658_ _stx152647_) + (_E152650152662_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151101151111_))) - (_E151102151137_ + _e152648152658_))) + (_E152649152684_ (lambda () - (if (gx#stx-pair? _e151101151111_) - (let ((_e151104151119_ (gx#syntax-e _e151101151111_))) - (let ((_hd151105151122_ (##car _e151104151119_)) - (_tl151106151124_ (##cdr _e151104151119_))) - (if (gx#stx-pair? _tl151106151124_) - (let ((_e151107151127_ - (gx#syntax-e _tl151106151124_))) - (let ((_hd151108151130_ - (##car _e151107151127_)) - (_tl151109151132_ - (##cdr _e151107151127_))) - (let ((_e151135_ _hd151108151130_)) - (if (gx#stx-null? _tl151109151132_) + (if (gx#stx-pair? _e152648152658_) + (let ((_e152651152666_ (gx#syntax-e _e152648152658_))) + (let ((_hd152652152669_ (##car _e152651152666_)) + (_tl152653152671_ (##cdr _e152651152666_))) + (if (gx#stx-pair? _tl152653152671_) + (let ((_e152654152674_ + (gx#syntax-e _tl152653152671_))) + (let ((_hd152655152677_ + (##car _e152654152674_)) + (_tl152656152679_ + (##cdr _e152654152674_))) + (let ((_e152682_ _hd152655152677_)) + (if (gx#stx-null? _tl152656152679_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _e151135_) + _e152682_) '())) - (gx#stx-source _stx151100_)) - (_E151103151115_)) - (_E151103151115_))))) - (_E151103151115_)))) - (_E151103151115_))))) - (_E151102151137_)))) + (gx#stx-source _stx152647_)) + (_E152650152662_)) + (_E152650152662_))))) + (_E152650152662_)))) + (_E152650152662_))))) + (_E152649152684_)))) (define gx#core-expand-quote-syntax% - (lambda (_stx151059_) - (let* ((_e151060151070_ _stx151059_) - (_E151062151074_ + (lambda (_stx152606_) + (let* ((_e152607152617_ _stx152606_) + (_E152609152621_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151060151070_))) - (_E151061151096_ + _e152607152617_))) + (_E152608152643_ (lambda () - (if (gx#stx-pair? _e151060151070_) - (let ((_e151063151078_ (gx#syntax-e _e151060151070_))) - (let ((_hd151064151081_ (##car _e151063151078_)) - (_tl151065151083_ (##cdr _e151063151078_))) - (if (gx#stx-pair? _tl151065151083_) - (let ((_e151066151086_ - (gx#syntax-e _tl151065151083_))) - (let ((_hd151067151089_ - (##car _e151066151086_)) - (_tl151068151091_ - (##cdr _e151066151086_))) - (let ((_e151094_ _hd151067151089_)) - (if (gx#stx-null? _tl151068151091_) + (if (gx#stx-pair? _e152607152617_) + (let ((_e152610152625_ (gx#syntax-e _e152607152617_))) + (let ((_hd152611152628_ (##car _e152610152625_)) + (_tl152612152630_ (##cdr _e152610152625_))) + (if (gx#stx-pair? _tl152612152630_) + (let ((_e152613152633_ + (gx#syntax-e _tl152612152630_))) + (let ((_hd152614152636_ + (##car _e152613152633_)) + (_tl152615152638_ + (##cdr _e152613152633_))) + (let ((_e152641_ _hd152614152636_)) + (if (gx#stx-null? _tl152615152638_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _e151094_) + _e152641_) '())) - (gx#stx-source _stx151059_)) - (_E151062151074_)) - (_E151062151074_))))) - (_E151062151074_)))) - (_E151062151074_))))) - (_E151061151096_)))) + (gx#stx-source _stx152606_)) + (_E152609152621_)) + (_E152609152621_))))) + (_E152609152621_)))) + (_E152609152621_))))) + (_E152608152643_)))) (define gx#core-expand-call% - (lambda (_stx151016_) - (let* ((_e151017151027_ _stx151016_) - (_E151019151031_ + (lambda (_stx152563_) + (let* ((_e152564152574_ _stx152563_) + (_E152566152578_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e151017151027_))) - (_E151018151055_ + _e152564152574_))) + (_E152565152602_ (lambda () - (if (gx#stx-pair? _e151017151027_) - (let ((_e151020151035_ (gx#syntax-e _e151017151027_))) - (let ((_hd151021151038_ (##car _e151020151035_)) - (_tl151022151040_ (##cdr _e151020151035_))) - (if (gx#stx-pair? _tl151022151040_) - (let ((_e151023151043_ - (gx#syntax-e _tl151022151040_))) - (let ((_hd151024151046_ - (##car _e151023151043_)) - (_tl151025151048_ - (##cdr _e151023151043_))) - (let* ((_rator151051_ _hd151024151046_) - (_args151053_ _tl151025151048_)) - (if (gx#stx-list? _args151053_) + (if (gx#stx-pair? _e152564152574_) + (let ((_e152567152582_ (gx#syntax-e _e152564152574_))) + (let ((_hd152568152585_ (##car _e152567152582_)) + (_tl152569152587_ (##cdr _e152567152582_))) + (if (gx#stx-pair? _tl152569152587_) + (let ((_e152570152590_ + (gx#syntax-e _tl152569152587_))) + (let ((_hd152571152593_ + (##car _e152570152590_)) + (_tl152572152595_ + (##cdr _e152570152590_))) + (let* ((_rator152598_ _hd152571152593_) + (_args152600_ _tl152572152595_)) + (if (gx#stx-list? _args152600_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _rator151051_) + _rator152598_) (gx#stx-map1 gx#core-expand-expression - _args151053_)) - (gx#stx-source _stx151016_)) - (_E151019151031_))))) - (_E151019151031_)))) - (_E151019151031_))))) - (_E151018151055_)))) + _args152600_)) + (gx#stx-source _stx152563_)) + (_E152566152578_))))) + (_E152566152578_)))) + (_E152566152578_))))) + (_E152565152602_)))) (define gx#core-expand-if% - (lambda (_stx150949_) - (let* ((_e150950150966_ _stx150949_) - (_E150952150970_ + (lambda (_stx152496_) + (let* ((_e152497152513_ _stx152496_) + (_E152499152517_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e150950150966_))) - (_E150951151012_ + _e152497152513_))) + (_E152498152559_ (lambda () - (if (gx#stx-pair? _e150950150966_) - (let ((_e150953150974_ (gx#syntax-e _e150950150966_))) - (let ((_hd150954150977_ (##car _e150953150974_)) - (_tl150955150979_ (##cdr _e150953150974_))) - (if (gx#stx-pair? _tl150955150979_) - (let ((_e150956150982_ - (gx#syntax-e _tl150955150979_))) - (let ((_hd150957150985_ - (##car _e150956150982_)) - (_tl150958150987_ - (##cdr _e150956150982_))) - (let ((_test150990_ _hd150957150985_)) - (if (gx#stx-pair? _tl150958150987_) - (let ((_e150959150992_ - (gx#syntax-e _tl150958150987_))) - (let ((_hd150960150995_ - (##car _e150959150992_)) - (_tl150961150997_ - (##cdr _e150959150992_))) - (let ((_K151000_ _hd150960150995_)) + (if (gx#stx-pair? _e152497152513_) + (let ((_e152500152521_ (gx#syntax-e _e152497152513_))) + (let ((_hd152501152524_ (##car _e152500152521_)) + (_tl152502152526_ (##cdr _e152500152521_))) + (if (gx#stx-pair? _tl152502152526_) + (let ((_e152503152529_ + (gx#syntax-e _tl152502152526_))) + (let ((_hd152504152532_ + (##car _e152503152529_)) + (_tl152505152534_ + (##cdr _e152503152529_))) + (let ((_test152537_ _hd152504152532_)) + (if (gx#stx-pair? _tl152505152534_) + (let ((_e152506152539_ + (gx#syntax-e _tl152505152534_))) + (let ((_hd152507152542_ + (##car _e152506152539_)) + (_tl152508152544_ + (##cdr _e152506152539_))) + (let ((_K152547_ _hd152507152542_)) (if (gx#stx-pair? - _tl150961150997_) - (let ((_e150962151002_ + _tl152508152544_) + (let ((_e152509152549_ (gx#syntax-e - _tl150961150997_))) - (let ((_hd150963151005_ - (##car _e150962151002_)) - (_tl150964151007_ - (##cdr _e150962151002_))) - (let ((_E151010_ - _hd150963151005_)) + _tl152508152544_))) + (let ((_hd152510152552_ + (##car _e152509152549_)) + (_tl152511152554_ + (##cdr _e152509152549_))) + (let ((_E152557_ + _hd152510152552_)) (if (gx#stx-null? - _tl150964151007_) + _tl152511152554_) (if '#t (gx#core-quote-syntax__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#core-quote-syntax__0 '%#if) - (cons (gx#core-expand-expression _test150990_) + (cons (gx#core-expand-expression _test152537_) (cons (gx#core-expand-expression - _K151000_) + _K152547_) (cons (gx#core-expand-expression - _E151010_) + _E152557_) '())))) - (gx#stx-source _stx150949_)) - (_E150952150970_)) - (_E150952150970_))))) + (gx#stx-source _stx152496_)) + (_E152499152517_)) + (_E152499152517_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E150952150970_))))) - (_E150952150970_))))) - (_E150952150970_)))) - (_E150952150970_))))) - (_E150951151012_)))) + (_E152499152517_))))) + (_E152499152517_))))) + (_E152499152517_)))) + (_E152499152517_))))) + (_E152498152559_)))) (define gx#core-expand-ref% - (lambda (_stx150908_) - (let* ((_e150909150919_ _stx150908_) - (_E150911150923_ + (lambda (_stx152455_) + (let* ((_e152456152466_ _stx152455_) + (_E152458152470_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e150909150919_))) - (_E150910150945_ + _e152456152466_))) + (_E152457152492_ (lambda () - (if (gx#stx-pair? _e150909150919_) - (let ((_e150912150927_ (gx#syntax-e _e150909150919_))) - (let ((_hd150913150930_ (##car _e150912150927_)) - (_tl150914150932_ (##cdr _e150912150927_))) - (if (gx#stx-pair? _tl150914150932_) - (let ((_e150915150935_ - (gx#syntax-e _tl150914150932_))) - (let ((_hd150916150938_ - (##car _e150915150935_)) - (_tl150917150940_ - (##cdr _e150915150935_))) - (let ((_id150943_ _hd150916150938_)) - (if (gx#stx-null? _tl150917150940_) - (if (gx#identifier? _id150943_) + (if (gx#stx-pair? _e152456152466_) + (let ((_e152459152474_ (gx#syntax-e _e152456152466_))) + (let ((_hd152460152477_ (##car _e152459152474_)) + (_tl152461152479_ (##cdr _e152459152474_))) + (if (gx#stx-pair? _tl152461152479_) + (let ((_e152462152482_ + (gx#syntax-e _tl152461152479_))) + (let ((_hd152463152485_ + (##car _e152462152482_)) + (_tl152464152487_ + (##cdr _e152462152482_))) + (let ((_id152490_ _hd152463152485_)) + (if (gx#stx-null? _tl152464152487_) + (if (gx#identifier? _id152490_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _id150943_ - _stx150908_) + _id152490_ + _stx152455_) '())) - (gx#stx-source _stx150908_)) - (_E150911150923_)) - (_E150911150923_))))) - (_E150911150923_)))) - (_E150911150923_))))) - (_E150910150945_)))) + (gx#stx-source _stx152455_)) + (_E152458152470_)) + (_E152458152470_))))) + (_E152458152470_)))) + (_E152458152470_))))) + (_E152457152492_)))) (define gx#core-expand-setq% - (lambda (_stx150854_) - (let* ((_e150855150868_ _stx150854_) - (_E150857150872_ + (lambda (_stx152401_) + (let* ((_e152402152415_ _stx152401_) + (_E152404152419_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e150855150868_))) - (_E150856150904_ + _e152402152415_))) + (_E152403152451_ (lambda () - (if (gx#stx-pair? _e150855150868_) - (let ((_e150858150876_ (gx#syntax-e _e150855150868_))) - (let ((_hd150859150879_ (##car _e150858150876_)) - (_tl150860150881_ (##cdr _e150858150876_))) - (if (gx#stx-pair? _tl150860150881_) - (let ((_e150861150884_ - (gx#syntax-e _tl150860150881_))) - (let ((_hd150862150887_ - (##car _e150861150884_)) - (_tl150863150889_ - (##cdr _e150861150884_))) - (let ((_id150892_ _hd150862150887_)) - (if (gx#stx-pair? _tl150863150889_) - (let ((_e150864150894_ - (gx#syntax-e _tl150863150889_))) - (let ((_hd150865150897_ - (##car _e150864150894_)) - (_tl150866150899_ - (##cdr _e150864150894_))) - (let ((_expr150902_ - _hd150865150897_)) + (if (gx#stx-pair? _e152402152415_) + (let ((_e152405152423_ (gx#syntax-e _e152402152415_))) + (let ((_hd152406152426_ (##car _e152405152423_)) + (_tl152407152428_ (##cdr _e152405152423_))) + (if (gx#stx-pair? _tl152407152428_) + (let ((_e152408152431_ + (gx#syntax-e _tl152407152428_))) + (let ((_hd152409152434_ + (##car _e152408152431_)) + (_tl152410152436_ + (##cdr _e152408152431_))) + (let ((_id152439_ _hd152409152434_)) + (if (gx#stx-pair? _tl152410152436_) + (let ((_e152411152441_ + (gx#syntax-e _tl152410152436_))) + (let ((_hd152412152444_ + (##car _e152411152441_)) + (_tl152413152446_ + (##cdr _e152411152441_))) + (let ((_expr152449_ + _hd152412152444_)) (if (gx#stx-null? - _tl150866150899_) + _tl152413152446_) (if (gx#identifier? - _id150892_) + _id152439_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id150892_ - _stx150854_) - (cons (gx#core-expand-expression _expr150902_) + _id152439_ + _stx152401_) + (cons (gx#core-expand-expression _expr152449_) '()))) - (gx#stx-source _stx150854_)) - (_E150857150872_)) + (gx#stx-source _stx152401_)) + (_E152404152419_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E150857150872_))))) - (_E150857150872_))))) - (_E150857150872_)))) - (_E150857150872_))))) - (_E150856150904_)))) + (_E152404152419_))))) + (_E152404152419_))))) + (_E152404152419_)))) + (_E152404152419_))))) + (_E152403152451_)))) (define gx#macro-expand-extern - (lambda (_stx150702_) - (letrec ((_generate150704_ - (lambda (_body150734_) - (let _lp150736_ ((_rest150738_ _body150734_) - (_ns150739_ + (lambda (_stx152249_) + (letrec ((_generate152251_ + (lambda (_body152281_) + (let _lp152283_ ((_rest152285_ _body152281_) + (_ns152286_ (gx#core-context-namespace__0)) - (_r150740_ '())) - (let* ((_e150741150756_ _rest150738_) - (_E150754150760_ + (_r152287_ '())) + (let* ((_e152288152303_ _rest152285_) + (_E152301152307_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e150741150756_))) - (_E150750150764_ + _e152288152303_))) + (_E152297152311_ (lambda () - (if (gx#stx-null? _e150741150756_) + (if (gx#stx-null? _e152288152303_) (if '#t - (reverse _r150740_) - (_E150754150760_)) - (_E150754150760_)))) - (_E150743150821_ + (reverse _r152287_) + (_E152301152307_)) + (_E152301152307_)))) + (_E152290152368_ (lambda () - (if (gx#stx-pair? _e150741150756_) - (let ((_e150751150768_ - (gx#syntax-e _e150741150756_))) - (let ((_hd150752150771_ - (##car _e150751150768_)) - (_tl150753150773_ - (##cdr _e150751150768_))) - (let* ((_hd150776_ _hd150752150771_) - (_rest150778_ _tl150753150773_)) + (if (gx#stx-pair? _e152288152303_) + (let ((_e152298152315_ + (gx#syntax-e _e152288152303_))) + (let ((_hd152299152318_ + (##car _e152298152315_)) + (_tl152300152320_ + (##cdr _e152298152315_))) + (let* ((_hd152323_ _hd152299152318_) + (_rest152325_ _tl152300152320_)) (if '#t - (if (gx#identifier? _hd150776_) - (_lp150736_ - _rest150778_ - _ns150739_ - (cons (cons _hd150776_ - (cons (if _ns150739_ + (if (gx#identifier? _hd152323_) + (_lp152283_ + _rest152325_ + _ns152286_ + (cons (cons _hd152323_ + (cons (if _ns152286_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _hd150776_ - _ns150739_ + _hd152323_ + _ns152286_ '"#" - _hd150776_) - _hd150776_) + _hd152323_) + _hd152323_) '())) - _r150740_)) + _r152287_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e150779150789_ - _hd150776_) - (_E150781150793_ + (let* ((_e152326152336_ + _hd152323_) + (_E152328152340_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e150779150789_))) - (_E150780150817_ + _e152326152336_))) + (_E152327152364_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e150779150789_) - (let ((_e150782150797_ (gx#syntax-e _e150779150789_))) - (let ((_hd150783150800_ (##car _e150782150797_)) - (_tl150784150802_ (##cdr _e150782150797_))) - (let ((_id150805_ _hd150783150800_)) - (if (gx#stx-pair? _tl150784150802_) - (let ((_e150785150807_ - (gx#syntax-e _tl150784150802_))) - (let ((_hd150786150810_ - (##car _e150785150807_)) - (_tl150787150812_ - (##cdr _e150785150807_))) - (let ((_eid150815_ _hd150786150810_)) - (if (gx#stx-null? _tl150787150812_) + _e152326152336_) + (let ((_e152329152344_ (gx#syntax-e _e152326152336_))) + (let ((_hd152330152347_ (##car _e152329152344_)) + (_tl152331152349_ (##cdr _e152329152344_))) + (let ((_id152352_ _hd152330152347_)) + (if (gx#stx-pair? _tl152331152349_) + (let ((_e152332152354_ + (gx#syntax-e _tl152331152349_))) + (let ((_hd152333152357_ + (##car _e152332152354_)) + (_tl152334152359_ + (##cdr _e152332152354_))) + (let ((_eid152362_ _hd152333152357_)) + (if (gx#stx-null? _tl152334152359_) (if (and (gx#identifier? - _id150805_) + _id152352_) (gx#identifier? - _eid150815_)) - (_lp150736_ - _rest150778_ - _ns150739_ - (cons (cons _id150805_ - (cons _eid150815_ + _eid152362_)) + (_lp152283_ + _rest152325_ + _ns152286_ + (cons (cons _id152352_ + (cons _eid152362_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _r150740_)) + _r152287_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E150781150793_)) - (_E150781150793_))))) - (_E150781150793_))))) - (_E150781150793_))))) + (_E152328152340_)) + (_E152328152340_))))) + (_E152328152340_))))) + (_E152328152340_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E150780150817_))) - (_E150750150764_))))) - (_E150750150764_)))) - (_E150742150850_ + (_E152327152364_))) + (_E152297152311_))))) + (_E152297152311_)))) + (_E152289152397_ (lambda () - (if (gx#stx-pair? _e150741150756_) - (let ((_e150744150825_ - (gx#syntax-e _e150741150756_))) - (let ((_hd150745150828_ - (##car _e150744150825_)) - (_tl150746150830_ - (##cdr _e150744150825_))) - (if (eq? (gx#stx-e _hd150745150828_) + (if (gx#stx-pair? _e152288152303_) + (let ((_e152291152372_ + (gx#syntax-e _e152288152303_))) + (let ((_hd152292152375_ + (##car _e152291152372_)) + (_tl152293152377_ + (##cdr _e152291152372_))) + (if (eq? (gx#stx-e _hd152292152375_) 'namespace:) - (if (gx#stx-pair? _tl150746150830_) - (let ((_e150747150833_ + (if (gx#stx-pair? _tl152293152377_) + (let ((_e152294152380_ (gx#syntax-e - _tl150746150830_))) - (let ((_hd150748150836_ - (##car _e150747150833_)) - (_tl150749150838_ - (##cdr _e150747150833_))) - (let* ((_ns150841_ - _hd150748150836_) - (_rest150843_ - _tl150749150838_)) + _tl152293152377_))) + (let ((_hd152295152383_ + (##car _e152294152380_)) + (_tl152296152385_ + (##cdr _e152294152380_))) + (let* ((_ns152388_ + _hd152295152383_) + (_rest152390_ + _tl152296152385_)) (if '#t - (let ((_ns150848_ + (let ((_ns152395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (gx#identifier? _ns150841_) - (symbol->string (gx#stx-e _ns150841_)) - (if (or (gx#stx-string? _ns150841_) - (gx#stx-false? _ns150841_)) - (gx#stx-e _ns150841_) + (if (gx#identifier? _ns152388_) + (symbol->string (gx#stx-e _ns152388_)) + (if (or (gx#stx-string? _ns152388_) + (gx#stx-false? _ns152388_)) + (gx#stx-e _ns152388_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _stx150702_ - _ns150841_))))) - (_lp150736_ _rest150843_ _ns150848_ _r150740_)) - (_E150743150821_))))) + _stx152249_ + _ns152388_))))) + (_lp152283_ _rest152390_ _ns152395_ _r152287_)) + (_E152290152368_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E150743150821_)) - (_E150743150821_)))) - (_E150743150821_))))) - (_E150742150850_)))))) - (let* ((_e150705150712_ _stx150702_) - (_E150707150716_ + (_E152290152368_)) + (_E152290152368_)))) + (_E152290152368_))))) + (_E152289152397_)))))) + (let* ((_e152252152259_ _stx152249_) + (_E152254152263_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e150705150712_))) - (_E150706150730_ + _e152252152259_))) + (_E152253152277_ (lambda () - (if (gx#stx-pair? _e150705150712_) - (let ((_e150708150720_ (gx#syntax-e _e150705150712_))) - (let ((_hd150709150723_ (##car _e150708150720_)) - (_tl150710150725_ (##cdr _e150708150720_))) - (let ((_body150728_ _tl150710150725_)) - (if (gx#stx-list? _body150728_) + (if (gx#stx-pair? _e152252152259_) + (let ((_e152255152267_ (gx#syntax-e _e152252152259_))) + (let ((_hd152256152270_ (##car _e152255152267_)) + (_tl152257152272_ (##cdr _e152255152267_))) + (let ((_body152275_ _tl152257152272_)) + (if (gx#stx-list? _body152275_) (gx#core-cons '%#extern - (_generate150704_ _body150728_)) - (_E150707150716_))))) - (_E150707150716_))))) - (_E150706150730_))))) + (_generate152251_ _body152275_)) + (_E152254152263_))))) + (_E152254152263_))))) + (_E152253152277_))))) (define gx#macro-expand-define-values - (lambda (_stx150648_) - (let* ((_e150649150662_ _stx150648_) - (_E150651150666_ + (lambda (_stx152195_) + (let* ((_e152196152209_ _stx152195_) + (_E152198152213_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e150649150662_))) - (_E150650150698_ + _e152196152209_))) + (_E152197152245_ (lambda () - (if (gx#stx-pair? _e150649150662_) - (let ((_e150652150670_ (gx#syntax-e _e150649150662_))) - (let ((_hd150653150673_ (##car _e150652150670_)) - (_tl150654150675_ (##cdr _e150652150670_))) - (if (gx#stx-pair? _tl150654150675_) - (let ((_e150655150678_ - (gx#syntax-e _tl150654150675_))) - (let ((_hd150656150681_ - (##car _e150655150678_)) - (_tl150657150683_ - (##cdr _e150655150678_))) - (let ((_hd150686_ _hd150656150681_)) - (if (gx#stx-pair? _tl150657150683_) - (let ((_e150658150688_ - (gx#syntax-e _tl150657150683_))) - (let ((_hd150659150691_ - (##car _e150658150688_)) - (_tl150660150693_ - (##cdr _e150658150688_))) - (let ((_expr150696_ - _hd150659150691_)) + (if (gx#stx-pair? _e152196152209_) + (let ((_e152199152217_ (gx#syntax-e _e152196152209_))) + (let ((_hd152200152220_ (##car _e152199152217_)) + (_tl152201152222_ (##cdr _e152199152217_))) + (if (gx#stx-pair? _tl152201152222_) + (let ((_e152202152225_ + (gx#syntax-e _tl152201152222_))) + (let ((_hd152203152228_ + (##car _e152202152225_)) + (_tl152204152230_ + (##cdr _e152202152225_))) + (let ((_hd152233_ _hd152203152228_)) + (if (gx#stx-pair? _tl152204152230_) + (let ((_e152205152235_ + (gx#syntax-e _tl152204152230_))) + (let ((_hd152206152238_ + (##car _e152205152235_)) + (_tl152207152240_ + (##cdr _e152205152235_))) + (let ((_expr152243_ + _hd152206152238_)) (if (gx#stx-null? - _tl150660150693_) + _tl152207152240_) (if (gx#stx-andmap gx#identifier? - _hd150686_) + _hd152233_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _hd150686_) - (cons _expr150696_ '()))) - (_E150651150666_)) + _hd152233_) + (cons _expr152243_ '()))) + (_E152198152213_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E150651150666_))))) - (_E150651150666_))))) - (_E150651150666_)))) - (_E150651150666_))))) - (_E150650150698_)))) + (_E152198152213_))))) + (_E152198152213_))))) + (_E152198152213_)))) + (_E152198152213_))))) + (_E152197152245_)))) (define gx#macro-expand-define-syntax - (lambda (_stx150594_) - (let* ((_e150595150608_ _stx150594_) - (_E150597150612_ + (lambda (_stx152141_) + (let* ((_e152142152155_ _stx152141_) + (_E152144152159_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e150595150608_))) - (_E150596150644_ + _e152142152155_))) + (_E152143152191_ (lambda () - (if (gx#stx-pair? _e150595150608_) - (let ((_e150598150616_ (gx#syntax-e _e150595150608_))) - (let ((_hd150599150619_ (##car _e150598150616_)) - (_tl150600150621_ (##cdr _e150598150616_))) - (if (gx#stx-pair? _tl150600150621_) - (let ((_e150601150624_ - (gx#syntax-e _tl150600150621_))) - (let ((_hd150602150627_ - (##car _e150601150624_)) - (_tl150603150629_ - (##cdr _e150601150624_))) - (let ((_hd150632_ _hd150602150627_)) - (if (gx#stx-pair? _tl150603150629_) - (let ((_e150604150634_ - (gx#syntax-e _tl150603150629_))) - (let ((_hd150605150637_ - (##car _e150604150634_)) - (_tl150606150639_ - (##cdr _e150604150634_))) - (let ((_expr150642_ - _hd150605150637_)) + (if (gx#stx-pair? _e152142152155_) + (let ((_e152145152163_ (gx#syntax-e _e152142152155_))) + (let ((_hd152146152166_ (##car _e152145152163_)) + (_tl152147152168_ (##cdr _e152145152163_))) + (if (gx#stx-pair? _tl152147152168_) + (let ((_e152148152171_ + (gx#syntax-e _tl152147152168_))) + (let ((_hd152149152174_ + (##car _e152148152171_)) + (_tl152150152176_ + (##cdr _e152148152171_))) + (let ((_hd152179_ _hd152149152174_)) + (if (gx#stx-pair? _tl152150152176_) + (let ((_e152151152181_ + (gx#syntax-e _tl152150152176_))) + (let ((_hd152152152184_ + (##car _e152151152181_)) + (_tl152153152186_ + (##cdr _e152151152181_))) + (let ((_expr152189_ + _hd152152152184_)) (if (gx#stx-null? - _tl150606150639_) + _tl152153152186_) (if (gx#identifier? - _hd150632_) + _hd152179_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _hd150632_ + (cons _hd152179_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _expr150642_ '()))) - (_E150597150612_)) + (cons _expr152189_ '()))) + (_E152144152159_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E150597150612_))))) - (_E150597150612_))))) - (_E150597150612_)))) - (_E150597150612_))))) - (_E150596150644_)))) + (_E152144152159_))))) + (_E152144152159_))))) + (_E152144152159_)))) + (_E152144152159_))))) + (_E152143152191_)))) (define gx#macro-expand-define-alias - (lambda (_stx150540_) - (let* ((_e150541150554_ _stx150540_) - (_E150543150558_ + (lambda (_stx152087_) + (let* ((_e152088152101_ _stx152087_) + (_E152090152105_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e150541150554_))) - (_E150542150590_ + _e152088152101_))) + (_E152089152137_ (lambda () - (if (gx#stx-pair? _e150541150554_) - (let ((_e150544150562_ (gx#syntax-e _e150541150554_))) - (let ((_hd150545150565_ (##car _e150544150562_)) - (_tl150546150567_ (##cdr _e150544150562_))) - (if (gx#stx-pair? _tl150546150567_) - (let ((_e150547150570_ - (gx#syntax-e _tl150546150567_))) - (let ((_hd150548150573_ - (##car _e150547150570_)) - (_tl150549150575_ - (##cdr _e150547150570_))) - (let ((_id150578_ _hd150548150573_)) - (if (gx#stx-pair? _tl150549150575_) - (let ((_e150550150580_ - (gx#syntax-e _tl150549150575_))) - (let ((_hd150551150583_ - (##car _e150550150580_)) - (_tl150552150585_ - (##cdr _e150550150580_))) - (let ((_alias-id150588_ - _hd150551150583_)) + (if (gx#stx-pair? _e152088152101_) + (let ((_e152091152109_ (gx#syntax-e _e152088152101_))) + (let ((_hd152092152112_ (##car _e152091152109_)) + (_tl152093152114_ (##cdr _e152091152109_))) + (if (gx#stx-pair? _tl152093152114_) + (let ((_e152094152117_ + (gx#syntax-e _tl152093152114_))) + (let ((_hd152095152120_ + (##car _e152094152117_)) + (_tl152096152122_ + (##cdr _e152094152117_))) + (let ((_id152125_ _hd152095152120_)) + (if (gx#stx-pair? _tl152096152122_) + (let ((_e152097152127_ + (gx#syntax-e _tl152096152122_))) + (let ((_hd152098152130_ + (##car _e152097152127_)) + (_tl152099152132_ + (##cdr _e152097152127_))) + (let ((_alias-id152135_ + _hd152098152130_)) (if (gx#stx-null? - _tl150552150585_) + _tl152099152132_) (if (and (gx#identifier? - _id150578_) + _id152125_) (gx#identifier? - _alias-id150588_)) + _alias-id152135_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _id150578_ + (cons _id152125_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _alias-id150588_ '()))) - (_E150543150558_)) + (cons _alias-id152135_ '()))) + (_E152090152105_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E150543150558_))))) - (_E150543150558_))))) - (_E150543150558_)))) - (_E150543150558_))))) - (_E150542150590_)))) + (_E152090152105_))))) + (_E152090152105_))))) + (_E152090152105_)))) + (_E152090152105_))))) + (_E152089152137_)))) (define gx#macro-expand-lambda% - (lambda (_stx150497_) - (let* ((_e150498150508_ _stx150497_) - (_E150500150512_ + (lambda (_stx152044_) + (let* ((_e152045152055_ _stx152044_) + (_E152047152059_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e150498150508_))) - (_E150499150536_ + _e152045152055_))) + (_E152046152083_ (lambda () - (if (gx#stx-pair? _e150498150508_) - (let ((_e150501150516_ (gx#syntax-e _e150498150508_))) - (let ((_hd150502150519_ (##car _e150501150516_)) - (_tl150503150521_ (##cdr _e150501150516_))) - (if (gx#stx-pair? _tl150503150521_) - (let ((_e150504150524_ - (gx#syntax-e _tl150503150521_))) - (let ((_hd150505150527_ - (##car _e150504150524_)) - (_tl150506150529_ - (##cdr _e150504150524_))) - (let* ((_hd150532_ _hd150505150527_) - (_body150534_ _tl150506150529_)) + (if (gx#stx-pair? _e152045152055_) + (let ((_e152048152063_ (gx#syntax-e _e152045152055_))) + (let ((_hd152049152066_ (##car _e152048152063_)) + (_tl152050152068_ (##cdr _e152048152063_))) + (if (gx#stx-pair? _tl152050152068_) + (let ((_e152051152071_ + (gx#syntax-e _tl152050152068_))) + (let ((_hd152052152074_ + (##car _e152051152071_)) + (_tl152053152076_ + (##cdr _e152051152071_))) + (let* ((_hd152079_ _hd152052152074_) + (_body152081_ _tl152053152076_)) (if (and (gx#stx-andmap gx#identifier? - _hd150532_) - (gx#stx-list? _body150534_) - (not (gx#stx-null? _body150534_))) + _hd152079_) + (gx#stx-list? _body152081_) + (not (gx#stx-null? _body152081_))) (gx#core-cons* '%#lambda (gx#stx-map1 gx#user-binding-identifier - _hd150532_) - _body150534_) - (_E150500150512_))))) - (_E150500150512_)))) - (_E150500150512_))))) - (_E150499150536_)))) + _hd152079_) + _body152081_) + (_E152047152059_))))) + (_E152047152059_)))) + (_E152047152059_))))) + (_E152046152083_)))) (define gx#macro-expand-case-lambda - (lambda (_stx150433_) - (letrec ((_generate150435_ - (lambda (_clause150465_) - (let* ((_e150466150473_ _clause150465_) - (_E150468150477_ + (lambda (_stx151980_) + (letrec ((_generate151982_ + (lambda (_clause152012_) + (let* ((_e152013152020_ _clause152012_) + (_E152015152024_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _stx150433_ - _clause150465_))) - (_E150467150493_ + _stx151980_ + _clause152012_))) + (_E152014152040_ (lambda () - (if (gx#stx-pair? _e150466150473_) - (let ((_e150469150481_ - (gx#syntax-e _e150466150473_))) - (let ((_hd150470150484_ - (##car _e150469150481_)) - (_tl150471150486_ - (##cdr _e150469150481_))) - (let* ((_hd150489_ _hd150470150484_) - (_body150491_ _tl150471150486_)) + (if (gx#stx-pair? _e152013152020_) + (let ((_e152016152028_ + (gx#syntax-e _e152013152020_))) + (let ((_hd152017152031_ + (##car _e152016152028_)) + (_tl152018152033_ + (##cdr _e152016152028_))) + (let* ((_hd152036_ _hd152017152031_) + (_body152038_ _tl152018152033_)) (if (and (gx#stx-andmap gx#identifier? - _hd150489_) - (gx#stx-list? _body150491_) + _hd152036_) + (gx#stx-list? _body152038_) (not (gx#stx-null? - _body150491_))) + _body152038_))) (gx#stx-wrap-source (cons (gx#stx-map1 gx#user-binding-identifier - _hd150489_) - _body150491_) - (gx#stx-source _clause150465_)) - (_E150468150477_))))) - (_E150468150477_))))) - (_E150467150493_))))) - (let* ((_e150436150443_ _stx150433_) - (_E150438150447_ + _hd152036_) + _body152038_) + (gx#stx-source _clause152012_)) + (_E152015152024_))))) + (_E152015152024_))))) + (_E152014152040_))))) + (let* ((_e151983151990_ _stx151980_) + (_E151985151994_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e150436150443_))) - (_E150437150461_ + _e151983151990_))) + (_E151984152008_ (lambda () - (if (gx#stx-pair? _e150436150443_) - (let ((_e150439150451_ (gx#syntax-e _e150436150443_))) - (let ((_hd150440150454_ (##car _e150439150451_)) - (_tl150441150456_ (##cdr _e150439150451_))) - (let ((_clauses150459_ _tl150441150456_)) - (if (gx#stx-list? _clauses150459_) + (if (gx#stx-pair? _e151983151990_) + (let ((_e151986151998_ (gx#syntax-e _e151983151990_))) + (let ((_hd151987152001_ (##car _e151986151998_)) + (_tl151988152003_ (##cdr _e151986151998_))) + (let ((_clauses152006_ _tl151988152003_)) + (if (gx#stx-list? _clauses152006_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _generate150435_ - _clauses150459_)) - (_E150438150447_))))) - (_E150438150447_))))) - (_E150437150461_))))) + _generate151982_ + _clauses152006_)) + (_E151985151994_))))) + (_E151985151994_))))) + (_E151984152008_))))) (define gx#macro-expand-let-values__% - (lambda (_stx150334_ _form150335_) - (letrec ((_generate150337_ - (lambda (_bind150380_) - (let* ((_e150381150391_ _bind150380_) - (_E150383150395_ + (lambda (_stx151881_ _form151882_) + (letrec ((_generate151884_ + (lambda (_bind151927_) + (let* ((_e151928151938_ _bind151927_) + (_E151930151942_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _stx150334_ - _bind150380_))) - (_E150382150419_ + _stx151881_ + _bind151927_))) + (_E151929151966_ (lambda () - (if (gx#stx-pair? _e150381150391_) - (let ((_e150384150399_ - (gx#syntax-e _e150381150391_))) - (let ((_hd150385150402_ - (##car _e150384150399_)) - (_tl150386150404_ - (##cdr _e150384150399_))) - (let ((_ids150407_ _hd150385150402_)) - (if (gx#stx-pair? _tl150386150404_) - (let ((_e150387150409_ + (if (gx#stx-pair? _e151928151938_) + (let ((_e151931151946_ + (gx#syntax-e _e151928151938_))) + (let ((_hd151932151949_ + (##car _e151931151946_)) + (_tl151933151951_ + (##cdr _e151931151946_))) + (let ((_ids151954_ _hd151932151949_)) + (if (gx#stx-pair? _tl151933151951_) + (let ((_e151934151956_ (gx#syntax-e - _tl150386150404_))) - (let ((_hd150388150412_ - (##car _e150387150409_)) - (_tl150389150414_ - (##cdr _e150387150409_))) - (let ((_expr150417_ - _hd150388150412_)) + _tl151933151951_))) + (let ((_hd151935151959_ + (##car _e151934151956_)) + (_tl151936151961_ + (##cdr _e151934151956_))) + (let ((_expr151964_ + _hd151935151959_)) (if (gx#stx-null? - _tl150389150414_) + _tl151936151961_) (if (gx#stx-andmap gx#identifier? - _ids150407_) + _ids151954_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _ids150407_) - (cons _expr150417_ '())) - (_E150383150395_)) - (_E150383150395_))))) + _ids151954_) + (cons _expr151964_ '())) + (_E151930151942_)) + (_E151930151942_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E150383150395_))))) - (_E150383150395_))))) - (_E150382150419_))))) - (let* ((_e150338150348_ _stx150334_) - (_E150340150352_ + (_E151930151942_))))) + (_E151930151942_))))) + (_E151929151966_))))) + (let* ((_e151885151895_ _stx151881_) + (_E151887151899_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e150338150348_))) - (_E150339150376_ + _e151885151895_))) + (_E151886151923_ (lambda () - (if (gx#stx-pair? _e150338150348_) - (let ((_e150341150356_ (gx#syntax-e _e150338150348_))) - (let ((_hd150342150359_ (##car _e150341150356_)) - (_tl150343150361_ (##cdr _e150341150356_))) - (if (gx#stx-pair? _tl150343150361_) - (let ((_e150344150364_ - (gx#syntax-e _tl150343150361_))) - (let ((_hd150345150367_ - (##car _e150344150364_)) - (_tl150346150369_ - (##cdr _e150344150364_))) - (let* ((_hd150372_ _hd150345150367_) - (_body150374_ _tl150346150369_)) - (if (and (gx#stx-list? _hd150372_) - (gx#stx-list? _body150374_) + (if (gx#stx-pair? _e151885151895_) + (let ((_e151888151903_ (gx#syntax-e _e151885151895_))) + (let ((_hd151889151906_ (##car _e151888151903_)) + (_tl151890151908_ (##cdr _e151888151903_))) + (if (gx#stx-pair? _tl151890151908_) + (let ((_e151891151911_ + (gx#syntax-e _tl151890151908_))) + (let ((_hd151892151914_ + (##car _e151891151911_)) + (_tl151893151916_ + (##cdr _e151891151911_))) + (let* ((_hd151919_ _hd151892151914_) + (_body151921_ _tl151893151916_)) + (if (and (gx#stx-list? _hd151919_) + (gx#stx-list? _body151921_) (not (gx#stx-null? - _body150374_))) + _body151921_))) (gx#core-cons* - _form150335_ + _form151882_ (gx#stx-map1 - _generate150337_ - _hd150372_) - _body150374_) - (_E150340150352_))))) - (_E150340150352_)))) - (_E150340150352_))))) - (_E150339150376_))))) + _generate151884_ + _hd151919_) + _body151921_) + (_E151887151899_))))) + (_E151887151899_)))) + (_E151887151899_))))) + (_E151886151923_))))) (define gx#macro-expand-let-values__0 - (lambda (_stx150426_) - (let ((_form150428_ '%#let-values)) - (gx#macro-expand-let-values__% _stx150426_ _form150428_)))) + (lambda (_stx151973_) + (let ((_form151975_ '%#let-values)) + (gx#macro-expand-let-values__% _stx151973_ _form151975_)))) (define gx#macro-expand-let-values - (lambda _g157279_ - (let ((_g157278_ (##length _g157279_))) - (cond ((##fx= _g157278_ 1) - (apply (lambda (_stx150426_) - (gx#macro-expand-let-values__0 _stx150426_)) - _g157279_)) - ((##fx= _g157278_ 2) - (apply (lambda (_stx150430_ _form150431_) + (lambda _g158926_ + (let ((_g158925_ (##length _g158926_))) + (cond ((##fx= _g158925_ 1) + (apply (lambda (_stx151973_) + (gx#macro-expand-let-values__0 _stx151973_)) + _g158926_)) + ((##fx= _g158925_ 2) + (apply (lambda (_stx151977_ _form151978_) (gx#macro-expand-let-values__% - _stx150430_ - _form150431_)) - _g157279_)) + _stx151977_ + _form151978_)) + _g158926_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g157279_)))))) + _g158926_)))))) (define gx#macro-expand-letrec-values - (lambda (_stx150331_) - (gx#macro-expand-let-values__% _stx150331_ '%#letrec-values))) + (lambda (_stx151878_) + (gx#macro-expand-let-values__% _stx151878_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_stx150329_) - (gx#macro-expand-let-values__% _stx150329_ '%#letrec*-values))) + (lambda (_stx151876_) + (gx#macro-expand-let-values__% _stx151876_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_stx150220_) - (let* ((_e150221150247_ _stx150220_) - (_E150233150251_ + (lambda (_stx151767_) + (let* ((_e151768151794_ _stx151767_) + (_E151780151798_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e150221150247_))) - (_E150223150293_ + _e151768151794_))) + (_E151770151840_ (lambda () - (if (gx#stx-pair? _e150221150247_) - (let ((_e150234150255_ (gx#syntax-e _e150221150247_))) - (let ((_hd150235150258_ (##car _e150234150255_)) - (_tl150236150260_ (##cdr _e150234150255_))) - (if (gx#stx-pair? _tl150236150260_) - (let ((_e150237150263_ - (gx#syntax-e _tl150236150260_))) - (let ((_hd150238150266_ - (##car _e150237150263_)) - (_tl150239150268_ - (##cdr _e150237150263_))) - (let ((_test150271_ _hd150238150266_)) - (if (gx#stx-pair? _tl150239150268_) - (let ((_e150240150273_ - (gx#syntax-e _tl150239150268_))) - (let ((_hd150241150276_ - (##car _e150240150273_)) - (_tl150242150278_ - (##cdr _e150240150273_))) - (let ((_K150281_ _hd150241150276_)) + (if (gx#stx-pair? _e151768151794_) + (let ((_e151781151802_ (gx#syntax-e _e151768151794_))) + (let ((_hd151782151805_ (##car _e151781151802_)) + (_tl151783151807_ (##cdr _e151781151802_))) + (if (gx#stx-pair? _tl151783151807_) + (let ((_e151784151810_ + (gx#syntax-e _tl151783151807_))) + (let ((_hd151785151813_ + (##car _e151784151810_)) + (_tl151786151815_ + (##cdr _e151784151810_))) + (let ((_test151818_ _hd151785151813_)) + (if (gx#stx-pair? _tl151786151815_) + (let ((_e151787151820_ + (gx#syntax-e _tl151786151815_))) + (let ((_hd151788151823_ + (##car _e151787151820_)) + (_tl151789151825_ + (##cdr _e151787151820_))) + (let ((_K151828_ _hd151788151823_)) (if (gx#stx-pair? - _tl150242150278_) - (let ((_e150243150283_ + _tl151789151825_) + (let ((_e151790151830_ (gx#syntax-e - _tl150242150278_))) - (let ((_hd150244150286_ - (##car _e150243150283_)) - (_tl150245150288_ - (##cdr _e150243150283_))) - (let ((_E150291_ - _hd150244150286_)) + _tl151789151825_))) + (let ((_hd151791151833_ + (##car _e151790151830_)) + (_tl151792151835_ + (##cdr _e151790151830_))) + (let ((_E151838_ + _hd151791151833_)) (if (gx#stx-null? - _tl150245150288_) + _tl151792151835_) (if '#t (gx#core-list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if - _test150271_ - _K150281_ - _E150291_) - (_E150233150251_)) - (_E150233150251_))))) + _test151818_ + _K151828_ + _E151838_) + (_E151780151798_)) + (_E151780151798_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E150233150251_))))) - (_E150233150251_))))) - (_E150233150251_)))) - (_E150233150251_)))) - (_E150222150325_ + (_E151780151798_))))) + (_E151780151798_))))) + (_E151780151798_)))) + (_E151780151798_)))) + (_E151769151872_ (lambda () - (if (gx#stx-pair? _e150221150247_) - (let ((_e150224150297_ (gx#syntax-e _e150221150247_))) - (let ((_hd150225150300_ (##car _e150224150297_)) - (_tl150226150302_ (##cdr _e150224150297_))) - (if (gx#stx-pair? _tl150226150302_) - (let ((_e150227150305_ - (gx#syntax-e _tl150226150302_))) - (let ((_hd150228150308_ - (##car _e150227150305_)) - (_tl150229150310_ - (##cdr _e150227150305_))) - (let ((_test150313_ _hd150228150308_)) - (if (gx#stx-pair? _tl150229150310_) - (let ((_e150230150315_ - (gx#syntax-e _tl150229150310_))) - (let ((_hd150231150318_ - (##car _e150230150315_)) - (_tl150232150320_ - (##cdr _e150230150315_))) - (let ((_K150323_ _hd150231150318_)) + (if (gx#stx-pair? _e151768151794_) + (let ((_e151771151844_ (gx#syntax-e _e151768151794_))) + (let ((_hd151772151847_ (##car _e151771151844_)) + (_tl151773151849_ (##cdr _e151771151844_))) + (if (gx#stx-pair? _tl151773151849_) + (let ((_e151774151852_ + (gx#syntax-e _tl151773151849_))) + (let ((_hd151775151855_ + (##car _e151774151852_)) + (_tl151776151857_ + (##cdr _e151774151852_))) + (let ((_test151860_ _hd151775151855_)) + (if (gx#stx-pair? _tl151776151857_) + (let ((_e151777151862_ + (gx#syntax-e _tl151776151857_))) + (let ((_hd151778151865_ + (##car _e151777151862_)) + (_tl151779151867_ + (##cdr _e151777151862_))) + (let ((_K151870_ _hd151778151865_)) (if (gx#stx-null? - _tl150232150320_) + _tl151779151867_) (if '#t (gx#core-list '%#if - _test150313_ - _K150323_ + _test151860_ + _K151870_ '#!void) - (_E150223150293_)) - (_E150223150293_))))) - (_E150223150293_))))) - (_E150223150293_)))) - (_E150223150293_))))) - (_E150222150325_)))) + (_E151770151840_)) + (_E151770151840_))))) + (_E151770151840_))))) + (_E151770151840_)))) + (_E151770151840_))))) + (_E151769151872_)))) (define gx#free-identifier=? - (lambda (_xid150208_ _yid150209_) - (let ((_xe150211_ (gx#resolve-identifier__0 _xid150208_)) - (_ye150212_ (gx#resolve-identifier__0 _yid150209_))) - (if (and _xe150211_ _ye150212_) - (let ((_$e150214_ (eq? _xe150211_ _ye150212_))) - (if _$e150214_ - _$e150214_ - (if (##structure-instance-of? _xe150211_ 'gx#binding::t) + (lambda (_xid151755_ _yid151756_) + (let ((_xe151758_ (gx#resolve-identifier__0 _xid151755_)) + (_ye151759_ (gx#resolve-identifier__0 _yid151756_))) + (if (and _xe151758_ _ye151759_) + (let ((_$e151761_ (eq? _xe151758_ _ye151759_))) + (if _$e151761_ + _$e151761_ + (if (##structure-instance-of? _xe151758_ 'gx#binding::t) (if (##structure-instance-of? - _ye150212_ + _ye151759_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _xe150211_ + _xe151758_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _ye150212_ + _ye151759_ '1 gx#binding::t '#f)) '#f) '#f))) - (if (or _xe150211_ _ye150212_) + (if (or _xe151758_ _ye151759_) '#f - (gx#stx-eq? _xid150208_ _yid150209_)))))) + (gx#stx-eq? _xid151755_ _yid151756_)))))) (define gx#bound-identifier=? - (lambda (_xid150192_ _yid150193_) - (letrec ((_context150195_ - (lambda (_e150206_) + (lambda (_xid151739_ _yid151740_) + (letrec ((_context151742_ + (lambda (_e151753_) (if (##structure-direct-instance-of? - _e150206_ + _e151753_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _e150206_ + _e151753_ '3 gx#syntax-quote::t '#f) (gx#current-expander-context)))) - (_marks150196_ - (lambda (_e150204_) - (if (symbol? _e150204_) + (_marks151743_ + (lambda (_e151751_) + (if (symbol? _e151751_) '() (if (##structure-direct-instance-of? - _e150204_ + _e151751_ 'gx#identifier-wrap::t) (##unchecked-structure-ref - _e150204_ + _e151751_ '3 gx#identifier-wrap::t '#f) (##unchecked-structure-ref - _e150204_ + _e151751_ '4 gx#syntax-quote::t '#f))))) - (_unwrap150197_ - (lambda (_e150202_) - (if (symbol? _e150202_) - _e150202_ - (gx#syntax-local-unwrap _e150202_))))) - (let ((_x150199_ (_unwrap150197_ _xid150192_)) - (_y150200_ (_unwrap150197_ _yid150193_))) - (if (gx#stx-eq? _x150199_ _y150200_) - (if (eq? (_context150195_ _x150199_) - (_context150195_ _y150200_)) - (equal? (_marks150196_ _x150199_) - (_marks150196_ _y150200_)) + (_unwrap151744_ + (lambda (_e151749_) + (if (symbol? _e151749_) + _e151749_ + (gx#syntax-local-unwrap _e151749_))))) + (let ((_x151746_ (_unwrap151744_ _xid151739_)) + (_y151747_ (_unwrap151744_ _yid151740_))) + (if (gx#stx-eq? _x151746_ _y151747_) + (if (eq? (_context151742_ _x151746_) + (_context151742_ _y151747_)) + (equal? (_marks151743_ _x151746_) + (_marks151743_ _y151747_)) '#f) '#f))))) (define gx#underscore? - (lambda (_stx150190_) - (if (gx#identifier? _stx150190_) - (gx#core-identifier=? _stx150190_ '_) + (lambda (_stx151737_) + (if (gx#identifier? _stx151737_) + (gx#core-identifier=? _stx151737_ '_) '#f))) (define gx#ellipsis? - (lambda (_stx150188_) - (if (gx#identifier? _stx150188_) - (gx#core-identifier=? _stx150188_ '...) + (lambda (_stx151735_) + (if (gx#identifier? _stx151735_) + (gx#core-identifier=? _stx151735_ '...) '#f))) (define gx#user-binding-identifier - (lambda (_x150186_) - (if (gx#identifier? _x150186_) - (if (not (gx#underscore? _x150186_)) _x150186_ '#f) + (lambda (_x151733_) + (if (gx#identifier? _x151733_) + (if (not (gx#underscore? _x151733_)) _x151733_ '#f) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_stx150132_ _where150133_) - (let _lp150135_ ((_rest150137_ (gx#syntax->list _stx150132_))) - (let* ((_rest150138150146_ _rest150137_) - (_else150140150154_ (lambda () '#t)) - (_K150142150164_ - (lambda (_rest150157_ _hd150158_) - (if (not (gx#identifier? _hd150158_)) + (lambda (_stx151679_ _where151680_) + (let _lp151682_ ((_rest151684_ (gx#syntax->list _stx151679_))) + (let* ((_rest151685151693_ _rest151684_) + (_else151687151701_ (lambda () '#t)) + (_K151689151711_ + (lambda (_rest151704_ _hd151705_) + (if (not (gx#identifier? _hd151705_)) (gx#raise-syntax-error '#f '"Bad identifier" - _where150133_ - _hd150158_) - (if (find (lambda (_g150159150161_) + _where151680_ + _hd151705_) + (if (find (lambda (_g151706151708_) (gx#bound-identifier=? - _g150159150161_ - _hd150158_)) - _rest150157_) + _g151706151708_ + _hd151705_)) + _rest151704_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _where150133_ - _hd150158_) - (_lp150135_ _rest150157_)))))) - (if (##pair? _rest150138150146_) - (let ((_hd150143150167_ (##car _rest150138150146_)) - (_tl150144150169_ (##cdr _rest150138150146_))) - (let* ((_hd150172_ _hd150143150167_) - (_rest150174_ _tl150144150169_)) - (_K150142150164_ _rest150174_ _hd150172_))) - (_else150140150154_)))))) + _where151680_ + _hd151705_) + (_lp151682_ _rest151704_)))))) + (if (##pair? _rest151685151693_) + (let ((_hd151690151714_ (##car _rest151685151693_)) + (_tl151691151716_ (##cdr _rest151685151693_))) + (let* ((_hd151719_ _hd151690151714_) + (_rest151721_ _tl151691151716_)) + (_K151689151711_ _rest151721_ _hd151719_))) + (_else151687151701_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_stx150179_) - (let ((_where150181_ _stx150179_)) - (gx#check-duplicate-identifiers__% _stx150179_ _where150181_)))) + (lambda (_stx151726_) + (let ((_where151728_ _stx151726_)) + (gx#check-duplicate-identifiers__% _stx151726_ _where151728_)))) (define gx#check-duplicate-identifiers - (lambda _g157281_ - (let ((_g157280_ (##length _g157281_))) - (cond ((##fx= _g157280_ 1) - (apply (lambda (_stx150179_) - (gx#check-duplicate-identifiers__0 _stx150179_)) - _g157281_)) - ((##fx= _g157280_ 2) - (apply (lambda (_stx150183_ _where150184_) + (lambda _g158928_ + (let ((_g158927_ (##length _g158928_))) + (cond ((##fx= _g158927_ 1) + (apply (lambda (_stx151726_) + (gx#check-duplicate-identifiers__0 _stx151726_)) + _g158928_)) + ((##fx= _g158927_ 2) + (apply (lambda (_stx151730_ _where151731_) (gx#check-duplicate-identifiers__% - _stx150183_ - _where150184_)) - _g157281_)) + _stx151730_ + _where151731_)) + _g158928_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g157281_)))))) + _g158928_)))))) (define gx#core-bind-values? - (lambda (_stx150124_) + (lambda (_stx151671_) (gx#stx-andmap - (lambda (_x150126_) - (let ((_$e150128_ (gx#identifier? _x150126_))) - (if _$e150128_ _$e150128_ (gx#stx-false? _x150126_)))) - _stx150124_))) + (lambda (_x151673_) + (let ((_$e151675_ (gx#identifier? _x151673_))) + (if _$e151675_ _$e151675_ (gx#stx-false? _x151673_)))) + _stx151671_))) (define gx#core-bind-values!__% - (lambda (_stx150088_ _rebind?150089_ _phi150090_ _ctx150091_) + (lambda (_stx151635_ _rebind?151636_ _phi151637_ _ctx151638_) (gx#stx-for-each1 - (lambda (_id150093_) - (if (gx#identifier? _id150093_) + (lambda (_id151640_) + (if (gx#identifier? _id151640_) (gx#core-bind-runtime!__% - _id150093_ - _rebind?150089_ - _phi150090_ - _ctx150091_) + _id151640_ + _rebind?151636_ + _phi151637_ + _ctx151638_) '#!void)) - _stx150088_))) + _stx151635_))) (define gx#core-bind-values!__0 - (lambda (_stx150098_) - (let* ((_rebind?150100_ '#f) - (_phi150102_ (gx#current-expander-phi)) - (_ctx150104_ (gx#current-expander-context))) + (lambda (_stx151645_) + (let* ((_rebind?151647_ '#f) + (_phi151649_ (gx#current-expander-phi)) + (_ctx151651_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx150098_ - _rebind?150100_ - _phi150102_ - _ctx150104_)))) + _stx151645_ + _rebind?151647_ + _phi151649_ + _ctx151651_)))) (define gx#core-bind-values!__1 - (lambda (_stx150106_ _rebind?150107_) - (let* ((_phi150109_ (gx#current-expander-phi)) - (_ctx150111_ (gx#current-expander-context))) + (lambda (_stx151653_ _rebind?151654_) + (let* ((_phi151656_ (gx#current-expander-phi)) + (_ctx151658_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx150106_ - _rebind?150107_ - _phi150109_ - _ctx150111_)))) + _stx151653_ + _rebind?151654_ + _phi151656_ + _ctx151658_)))) (define gx#core-bind-values!__2 - (lambda (_stx150113_ _rebind?150114_ _phi150115_) - (let ((_ctx150117_ (gx#current-expander-context))) + (lambda (_stx151660_ _rebind?151661_ _phi151662_) + (let ((_ctx151664_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx150113_ - _rebind?150114_ - _phi150115_ - _ctx150117_)))) + _stx151660_ + _rebind?151661_ + _phi151662_ + _ctx151664_)))) (define gx#core-bind-values! - (lambda _g157283_ - (let ((_g157282_ (##length _g157283_))) - (cond ((##fx= _g157282_ 1) - (apply (lambda (_stx150098_) - (gx#core-bind-values!__0 _stx150098_)) - _g157283_)) - ((##fx= _g157282_ 2) - (apply (lambda (_stx150106_ _rebind?150107_) + (lambda _g158930_ + (let ((_g158929_ (##length _g158930_))) + (cond ((##fx= _g158929_ 1) + (apply (lambda (_stx151645_) + (gx#core-bind-values!__0 _stx151645_)) + _g158930_)) + ((##fx= _g158929_ 2) + (apply (lambda (_stx151653_ _rebind?151654_) (gx#core-bind-values!__1 - _stx150106_ - _rebind?150107_)) - _g157283_)) - ((##fx= _g157282_ 3) - (apply (lambda (_stx150113_ _rebind?150114_ _phi150115_) + _stx151653_ + _rebind?151654_)) + _g158930_)) + ((##fx= _g158929_ 3) + (apply (lambda (_stx151660_ _rebind?151661_ _phi151662_) (gx#core-bind-values!__2 - _stx150113_ - _rebind?150114_ - _phi150115_)) - _g157283_)) - ((##fx= _g157282_ 4) - (apply (lambda (_stx150119_ - _rebind?150120_ - _phi150121_ - _ctx150122_) + _stx151660_ + _rebind?151661_ + _phi151662_)) + _g158930_)) + ((##fx= _g158929_ 4) + (apply (lambda (_stx151666_ + _rebind?151667_ + _phi151668_ + _ctx151669_) (gx#core-bind-values!__% - _stx150119_ - _rebind?150120_ - _phi150121_ - _ctx150122_)) - _g157283_)) + _stx151666_ + _rebind?151667_ + _phi151668_ + _ctx151669_)) + _g158930_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g157283_)))))) + _g158930_)))))) (define gx#core-quote-bind-values - (lambda (_stx150083_) + (lambda (_stx151630_) (gx#stx-map1 - (lambda (_x150085_) - (if (gx#identifier? _x150085_) - (gx#core-quote-syntax__0 _x150085_) + (lambda (_x151632_) + (if (gx#identifier? _x151632_) + (gx#core-quote-syntax__0 _x151632_) '#f)) - _stx150083_))) + _stx151630_))) (define gx#core-runtime-ref? - (lambda (_stx150076_) - (if (gx#identifier? _stx150076_) - (let* ((_bind150078_ (gx#resolve-identifier__0 _stx150076_)) - (_$e150080_ (not _bind150078_))) - (if _$e150080_ - _$e150080_ + (lambda (_stx151623_) + (if (gx#identifier? _stx151623_) + (let* ((_bind151625_ (gx#resolve-identifier__0 _stx151623_)) + (_$e151627_ (not _bind151625_))) + (if _$e151627_ + _$e151627_ (##structure-instance-of? - _bind150078_ + _bind151625_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_id150068_ _form150069_) - (let ((_bind150071_ (gx#resolve-identifier__0 _id150068_))) - (if (##structure-instance-of? _bind150071_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _id150068_) - (if (not _bind150071_) + (lambda (_id151615_ _form151616_) + (let ((_bind151618_ (gx#resolve-identifier__0 _id151615_))) + (if (##structure-instance-of? _bind151618_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _id151615_) + (if (not _bind151618_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _id150068_))) - (gx#core-quote-syntax__0 _id150068_) + (gx#core-extern-symbol? (gx#stx-e _id151615_))) + (gx#core-quote-syntax__0 _id151615_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _form150069_ - _id150068_)) + _form151616_ + _id151615_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _form150069_ - _id150068_)))))) + _form151616_ + _id151615_)))))) (define gx#core-bind-runtime!__% - (lambda (_id150027_ _rebind?150028_ _phi150029_ _ctx150030_) - (let* ((_key150032_ (gx#core-identifier-key _id150027_)) - (_eid150034_ + (lambda (_id151574_ _rebind?151575_ _phi151576_ _ctx151577_) + (let* ((_key151579_ (gx#core-identifier-key _id151574_)) + (_eid151581_ (gx#make-binding-id__% - _key150032_ + _key151579_ '#f - _phi150029_ - _ctx150030_)) - (_bind150036_ + _phi151576_ + _ctx151577_)) + (_bind151583_ (if (##structure-instance-of? - _ctx150030_ + _ctx151577_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid150034_ - _key150032_ - _phi150029_ - _ctx150030_) + _eid151581_ + _key151579_ + _phi151576_ + _ctx151577_) (if (##structure-instance-of? - _ctx150030_ + _ctx151577_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid150034_ - _key150032_ - _phi150029_) + _eid151581_ + _key151579_ + _phi151576_) (if (##structure-instance-of? - _ctx150030_ + _ctx151577_ 'gx#local-context::t) (##structure gx#local-binding::t - _eid150034_ - _key150032_ - _phi150029_) + _eid151581_ + _key151579_ + _phi151576_) (##structure gx#runtime-binding::t - _eid150034_ - _key150032_ - _phi150029_)))))) + _eid151581_ + _key151579_ + _phi151576_)))))) (gx#bind-identifier!__% - _id150027_ - _bind150036_ - _rebind?150028_ - _phi150029_ - _ctx150030_)))) + _id151574_ + _bind151583_ + _rebind?151575_ + _phi151576_ + _ctx151577_)))) (define gx#core-bind-runtime!__0 - (lambda (_id150042_) - (let* ((_rebind?150044_ '#f) - (_phi150046_ (gx#current-expander-phi)) - (_ctx150048_ (gx#current-expander-context))) + (lambda (_id151589_) + (let* ((_rebind?151591_ '#f) + (_phi151593_ (gx#current-expander-phi)) + (_ctx151595_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id150042_ - _rebind?150044_ - _phi150046_ - _ctx150048_)))) + _id151589_ + _rebind?151591_ + _phi151593_ + _ctx151595_)))) (define gx#core-bind-runtime!__1 - (lambda (_id150050_ _rebind?150051_) - (let* ((_phi150053_ (gx#current-expander-phi)) - (_ctx150055_ (gx#current-expander-context))) + (lambda (_id151597_ _rebind?151598_) + (let* ((_phi151600_ (gx#current-expander-phi)) + (_ctx151602_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id150050_ - _rebind?150051_ - _phi150053_ - _ctx150055_)))) + _id151597_ + _rebind?151598_ + _phi151600_ + _ctx151602_)))) (define gx#core-bind-runtime!__2 - (lambda (_id150057_ _rebind?150058_ _phi150059_) - (let ((_ctx150061_ (gx#current-expander-context))) + (lambda (_id151604_ _rebind?151605_ _phi151606_) + (let ((_ctx151608_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id150057_ - _rebind?150058_ - _phi150059_ - _ctx150061_)))) + _id151604_ + _rebind?151605_ + _phi151606_ + _ctx151608_)))) (define gx#core-bind-runtime! - (lambda _g157285_ - (let ((_g157284_ (##length _g157285_))) - (cond ((##fx= _g157284_ 1) - (apply (lambda (_id150042_) - (gx#core-bind-runtime!__0 _id150042_)) - _g157285_)) - ((##fx= _g157284_ 2) - (apply (lambda (_id150050_ _rebind?150051_) + (lambda _g158932_ + (let ((_g158931_ (##length _g158932_))) + (cond ((##fx= _g158931_ 1) + (apply (lambda (_id151589_) + (gx#core-bind-runtime!__0 _id151589_)) + _g158932_)) + ((##fx= _g158931_ 2) + (apply (lambda (_id151597_ _rebind?151598_) (gx#core-bind-runtime!__1 - _id150050_ - _rebind?150051_)) - _g157285_)) - ((##fx= _g157284_ 3) - (apply (lambda (_id150057_ _rebind?150058_ _phi150059_) + _id151597_ + _rebind?151598_)) + _g158932_)) + ((##fx= _g158931_ 3) + (apply (lambda (_id151604_ _rebind?151605_ _phi151606_) (gx#core-bind-runtime!__2 - _id150057_ - _rebind?150058_ - _phi150059_)) - _g157285_)) - ((##fx= _g157284_ 4) - (apply (lambda (_id150063_ - _rebind?150064_ - _phi150065_ - _ctx150066_) + _id151604_ + _rebind?151605_ + _phi151606_)) + _g158932_)) + ((##fx= _g158931_ 4) + (apply (lambda (_id151610_ + _rebind?151611_ + _phi151612_ + _ctx151613_) (gx#core-bind-runtime!__% - _id150063_ - _rebind?150064_ - _phi150065_ - _ctx150066_)) - _g157285_)) + _id151610_ + _rebind?151611_ + _phi151612_ + _ctx151613_)) + _g158932_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g157285_)))))) + _g158932_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_id149982_ _eid149983_ _rebind?149984_ _phi149985_ _ctx149986_) - (let* ((_key149988_ (gx#core-identifier-key _id149982_)) - (_bind149990_ + (lambda (_id151529_ _eid151530_ _rebind?151531_ _phi151532_ _ctx151533_) + (let* ((_key151535_ (gx#core-identifier-key _id151529_)) + (_bind151537_ (if (##structure-instance-of? - _ctx149986_ + _ctx151533_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid149983_ - _key149988_ - _phi149985_ - _ctx149986_) + _eid151530_ + _key151535_ + _phi151532_ + _ctx151533_) (if (##structure-instance-of? - _ctx149986_ + _ctx151533_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid149983_ - _key149988_ - _phi149985_) + _eid151530_ + _key151535_ + _phi151532_) (##structure gx#runtime-binding::t - _eid149983_ - _key149988_ - _phi149985_))))) + _eid151530_ + _key151535_ + _phi151532_))))) (gx#bind-identifier!__% - _id149982_ - _bind149990_ - _rebind?149984_ - _phi149985_ - _ctx149986_)))) + _id151529_ + _bind151537_ + _rebind?151531_ + _phi151532_ + _ctx151533_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_id149996_ _eid149997_) - (let* ((_rebind?149999_ '#f) - (_phi150001_ (gx#current-expander-phi)) - (_ctx150003_ (gx#current-expander-context))) + (lambda (_id151543_ _eid151544_) + (let* ((_rebind?151546_ '#f) + (_phi151548_ (gx#current-expander-phi)) + (_ctx151550_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id149996_ - _eid149997_ - _rebind?149999_ - _phi150001_ - _ctx150003_)))) + _id151543_ + _eid151544_ + _rebind?151546_ + _phi151548_ + _ctx151550_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_id150005_ _eid150006_ _rebind?150007_) - (let* ((_phi150009_ (gx#current-expander-phi)) - (_ctx150011_ (gx#current-expander-context))) + (lambda (_id151552_ _eid151553_ _rebind?151554_) + (let* ((_phi151556_ (gx#current-expander-phi)) + (_ctx151558_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id150005_ - _eid150006_ - _rebind?150007_ - _phi150009_ - _ctx150011_)))) + _id151552_ + _eid151553_ + _rebind?151554_ + _phi151556_ + _ctx151558_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_id150013_ _eid150014_ _rebind?150015_ _phi150016_) - (let ((_ctx150018_ (gx#current-expander-context))) + (lambda (_id151560_ _eid151561_ _rebind?151562_ _phi151563_) + (let ((_ctx151565_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id150013_ - _eid150014_ - _rebind?150015_ - _phi150016_ - _ctx150018_)))) + _id151560_ + _eid151561_ + _rebind?151562_ + _phi151563_ + _ctx151565_)))) (define gx#core-bind-runtime-reference! - (lambda _g157287_ - (let ((_g157286_ (##length _g157287_))) - (cond ((##fx= _g157286_ 2) - (apply (lambda (_id149996_ _eid149997_) + (lambda _g158934_ + (let ((_g158933_ (##length _g158934_))) + (cond ((##fx= _g158933_ 2) + (apply (lambda (_id151543_ _eid151544_) (gx#core-bind-runtime-reference!__0 - _id149996_ - _eid149997_)) - _g157287_)) - ((##fx= _g157286_ 3) - (apply (lambda (_id150005_ _eid150006_ _rebind?150007_) + _id151543_ + _eid151544_)) + _g158934_)) + ((##fx= _g158933_ 3) + (apply (lambda (_id151552_ _eid151553_ _rebind?151554_) (gx#core-bind-runtime-reference!__1 - _id150005_ - _eid150006_ - _rebind?150007_)) - _g157287_)) - ((##fx= _g157286_ 4) - (apply (lambda (_id150013_ - _eid150014_ - _rebind?150015_ - _phi150016_) + _id151552_ + _eid151553_ + _rebind?151554_)) + _g158934_)) + ((##fx= _g158933_ 4) + (apply (lambda (_id151560_ + _eid151561_ + _rebind?151562_ + _phi151563_) (gx#core-bind-runtime-reference!__2 - _id150013_ - _eid150014_ - _rebind?150015_ - _phi150016_)) - _g157287_)) - ((##fx= _g157286_ 5) - (apply (lambda (_id150020_ - _eid150021_ - _rebind?150022_ - _phi150023_ - _ctx150024_) + _id151560_ + _eid151561_ + _rebind?151562_ + _phi151563_)) + _g158934_)) + ((##fx= _g158933_ 5) + (apply (lambda (_id151567_ + _eid151568_ + _rebind?151569_ + _phi151570_ + _ctx151571_) (gx#core-bind-runtime-reference!__% - _id150020_ - _eid150021_ - _rebind?150022_ - _phi150023_ - _ctx150024_)) - _g157287_)) + _id151567_ + _eid151568_ + _rebind?151569_ + _phi151570_ + _ctx151571_)) + _g158934_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g157287_)))))) + _g158934_)))))) (define gx#core-bind-extern!__% - (lambda (_id149942_ _eid149943_ _rebind?149944_ _phi149945_ _ctx149946_) + (lambda (_id151489_ _eid151490_ _rebind?151491_ _phi151492_ _ctx151493_) (gx#bind-identifier!__% - _id149942_ + _id151489_ (##structure gx#extern-binding::t - _eid149943_ - (gx#core-identifier-key _id149942_) - _phi149945_) - _rebind?149944_ - _phi149945_ - _ctx149946_))) + _eid151490_ + (gx#core-identifier-key _id151489_) + _phi151492_) + _rebind?151491_ + _phi151492_ + _ctx151493_))) (define gx#core-bind-extern!__0 - (lambda (_id149951_ _eid149952_) - (let* ((_rebind?149954_ '#f) - (_phi149956_ (gx#current-expander-phi)) - (_ctx149958_ (gx#current-expander-context))) + (lambda (_id151498_ _eid151499_) + (let* ((_rebind?151501_ '#f) + (_phi151503_ (gx#current-expander-phi)) + (_ctx151505_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id149951_ - _eid149952_ - _rebind?149954_ - _phi149956_ - _ctx149958_)))) + _id151498_ + _eid151499_ + _rebind?151501_ + _phi151503_ + _ctx151505_)))) (define gx#core-bind-extern!__1 - (lambda (_id149960_ _eid149961_ _rebind?149962_) - (let* ((_phi149964_ (gx#current-expander-phi)) - (_ctx149966_ (gx#current-expander-context))) + (lambda (_id151507_ _eid151508_ _rebind?151509_) + (let* ((_phi151511_ (gx#current-expander-phi)) + (_ctx151513_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id149960_ - _eid149961_ - _rebind?149962_ - _phi149964_ - _ctx149966_)))) + _id151507_ + _eid151508_ + _rebind?151509_ + _phi151511_ + _ctx151513_)))) (define gx#core-bind-extern!__2 - (lambda (_id149968_ _eid149969_ _rebind?149970_ _phi149971_) - (let ((_ctx149973_ (gx#current-expander-context))) + (lambda (_id151515_ _eid151516_ _rebind?151517_ _phi151518_) + (let ((_ctx151520_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id149968_ - _eid149969_ - _rebind?149970_ - _phi149971_ - _ctx149973_)))) + _id151515_ + _eid151516_ + _rebind?151517_ + _phi151518_ + _ctx151520_)))) (define gx#core-bind-extern! - (lambda _g157289_ - (let ((_g157288_ (##length _g157289_))) - (cond ((##fx= _g157288_ 2) - (apply (lambda (_id149951_ _eid149952_) - (gx#core-bind-extern!__0 _id149951_ _eid149952_)) - _g157289_)) - ((##fx= _g157288_ 3) - (apply (lambda (_id149960_ _eid149961_ _rebind?149962_) + (lambda _g158936_ + (let ((_g158935_ (##length _g158936_))) + (cond ((##fx= _g158935_ 2) + (apply (lambda (_id151498_ _eid151499_) + (gx#core-bind-extern!__0 _id151498_ _eid151499_)) + _g158936_)) + ((##fx= _g158935_ 3) + (apply (lambda (_id151507_ _eid151508_ _rebind?151509_) (gx#core-bind-extern!__1 - _id149960_ - _eid149961_ - _rebind?149962_)) - _g157289_)) - ((##fx= _g157288_ 4) - (apply (lambda (_id149968_ - _eid149969_ - _rebind?149970_ - _phi149971_) + _id151507_ + _eid151508_ + _rebind?151509_)) + _g158936_)) + ((##fx= _g158935_ 4) + (apply (lambda (_id151515_ + _eid151516_ + _rebind?151517_ + _phi151518_) (gx#core-bind-extern!__2 - _id149968_ - _eid149969_ - _rebind?149970_ - _phi149971_)) - _g157289_)) - ((##fx= _g157288_ 5) - (apply (lambda (_id149975_ - _eid149976_ - _rebind?149977_ - _phi149978_ - _ctx149979_) + _id151515_ + _eid151516_ + _rebind?151517_ + _phi151518_)) + _g158936_)) + ((##fx= _g158935_ 5) + (apply (lambda (_id151522_ + _eid151523_ + _rebind?151524_ + _phi151525_ + _ctx151526_) (gx#core-bind-extern!__% - _id149975_ - _eid149976_ - _rebind?149977_ - _phi149978_ - _ctx149979_)) - _g157289_)) + _id151522_ + _eid151523_ + _rebind?151524_ + _phi151525_ + _ctx151526_)) + _g158936_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g157289_)))))) + _g158936_)))))) (define gx#core-bind-syntax!__% - (lambda (_id149896_ _e149897_ _rebind?149898_ _phi149899_ _ctx149900_) + (lambda (_id151443_ _e151444_ _rebind?151445_ _phi151446_ _ctx151447_) (gx#bind-identifier!__% - _id149896_ - (let ((_key149905_ (gx#core-identifier-key _id149896_)) - (_e149906_ - (if (or (##structure-instance-of? _e149897_ 'gx#expander::t) + _id151443_ + (let ((_key151452_ (gx#core-identifier-key _id151443_)) + (_e151453_ + (if (or (##structure-instance-of? _e151444_ 'gx#expander::t) (##structure-instance-of? - _e149897_ + _e151444_ 'gx#expander-context::t)) - _e149897_ + _e151444_ (##structure gx#user-expander::t - _e149897_ - _ctx149900_ - _phi149899_)))) + _e151444_ + _ctx151447_ + _phi151446_)))) (##structure gx#syntax-binding::t - (gx#make-binding-id__% _key149905_ '#t _phi149899_ _ctx149900_) - _key149905_ - _phi149899_ - _e149906_)) - _rebind?149898_ - _phi149899_ - _ctx149900_))) + (gx#make-binding-id__% _key151452_ '#t _phi151446_ _ctx151447_) + _key151452_ + _phi151446_ + _e151453_)) + _rebind?151445_ + _phi151446_ + _ctx151447_))) (define gx#core-bind-syntax!__0 - (lambda (_id149911_ _e149912_) - (let* ((_rebind?149914_ '#f) - (_phi149916_ (gx#current-expander-phi)) - (_ctx149918_ (gx#current-expander-context))) + (lambda (_id151458_ _e151459_) + (let* ((_rebind?151461_ '#f) + (_phi151463_ (gx#current-expander-phi)) + (_ctx151465_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id149911_ - _e149912_ - _rebind?149914_ - _phi149916_ - _ctx149918_)))) + _id151458_ + _e151459_ + _rebind?151461_ + _phi151463_ + _ctx151465_)))) (define gx#core-bind-syntax!__1 - (lambda (_id149920_ _e149921_ _rebind?149922_) - (let* ((_phi149924_ (gx#current-expander-phi)) - (_ctx149926_ (gx#current-expander-context))) + (lambda (_id151467_ _e151468_ _rebind?151469_) + (let* ((_phi151471_ (gx#current-expander-phi)) + (_ctx151473_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id149920_ - _e149921_ - _rebind?149922_ - _phi149924_ - _ctx149926_)))) + _id151467_ + _e151468_ + _rebind?151469_ + _phi151471_ + _ctx151473_)))) (define gx#core-bind-syntax!__2 - (lambda (_id149928_ _e149929_ _rebind?149930_ _phi149931_) - (let ((_ctx149933_ (gx#current-expander-context))) + (lambda (_id151475_ _e151476_ _rebind?151477_ _phi151478_) + (let ((_ctx151480_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id149928_ - _e149929_ - _rebind?149930_ - _phi149931_ - _ctx149933_)))) + _id151475_ + _e151476_ + _rebind?151477_ + _phi151478_ + _ctx151480_)))) (define gx#core-bind-syntax! - (lambda _g157291_ - (let ((_g157290_ (##length _g157291_))) - (cond ((##fx= _g157290_ 2) - (apply (lambda (_id149911_ _e149912_) - (gx#core-bind-syntax!__0 _id149911_ _e149912_)) - _g157291_)) - ((##fx= _g157290_ 3) - (apply (lambda (_id149920_ _e149921_ _rebind?149922_) + (lambda _g158938_ + (let ((_g158937_ (##length _g158938_))) + (cond ((##fx= _g158937_ 2) + (apply (lambda (_id151458_ _e151459_) + (gx#core-bind-syntax!__0 _id151458_ _e151459_)) + _g158938_)) + ((##fx= _g158937_ 3) + (apply (lambda (_id151467_ _e151468_ _rebind?151469_) (gx#core-bind-syntax!__1 - _id149920_ - _e149921_ - _rebind?149922_)) - _g157291_)) - ((##fx= _g157290_ 4) - (apply (lambda (_id149928_ - _e149929_ - _rebind?149930_ - _phi149931_) + _id151467_ + _e151468_ + _rebind?151469_)) + _g158938_)) + ((##fx= _g158937_ 4) + (apply (lambda (_id151475_ + _e151476_ + _rebind?151477_ + _phi151478_) (gx#core-bind-syntax!__2 - _id149928_ - _e149929_ - _rebind?149930_ - _phi149931_)) - _g157291_)) - ((##fx= _g157290_ 5) - (apply (lambda (_id149935_ - _e149936_ - _rebind?149937_ - _phi149938_ - _ctx149939_) + _id151475_ + _e151476_ + _rebind?151477_ + _phi151478_)) + _g158938_)) + ((##fx= _g158937_ 5) + (apply (lambda (_id151482_ + _e151483_ + _rebind?151484_ + _phi151485_ + _ctx151486_) (gx#core-bind-syntax!__% - _id149935_ - _e149936_ - _rebind?149937_ - _phi149938_ - _ctx149939_)) - _g157291_)) + _id151482_ + _e151483_ + _rebind?151484_ + _phi151485_ + _ctx151486_)) + _g158938_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g157291_)))))) + _g158938_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_id149879_ _e149880_ _rebind?149881_) + (lambda (_id151426_ _e151427_ _rebind?151428_) (gx#core-bind-syntax!__% - _id149879_ - _e149880_ - _rebind?149881_ + _id151426_ + _e151427_ + _rebind?151428_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_id149886_ _e149887_) - (let ((_rebind?149889_ '#f)) + (lambda (_id151433_ _e151434_) + (let ((_rebind?151436_ '#f)) (gx#core-bind-root-syntax!__% - _id149886_ - _e149887_ - _rebind?149889_)))) + _id151433_ + _e151434_ + _rebind?151436_)))) (define gx#core-bind-root-syntax! - (lambda _g157293_ - (let ((_g157292_ (##length _g157293_))) - (cond ((##fx= _g157292_ 2) - (apply (lambda (_id149886_ _e149887_) - (gx#core-bind-root-syntax!__0 _id149886_ _e149887_)) - _g157293_)) - ((##fx= _g157292_ 3) - (apply (lambda (_id149891_ _e149892_ _rebind?149893_) + (lambda _g158940_ + (let ((_g158939_ (##length _g158940_))) + (cond ((##fx= _g158939_ 2) + (apply (lambda (_id151433_ _e151434_) + (gx#core-bind-root-syntax!__0 _id151433_ _e151434_)) + _g158940_)) + ((##fx= _g158939_ 3) + (apply (lambda (_id151438_ _e151439_ _rebind?151440_) (gx#core-bind-root-syntax!__% - _id149891_ - _e149892_ - _rebind?149893_)) - _g157293_)) + _id151438_ + _e151439_ + _rebind?151440_)) + _g158940_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g157293_)))))) + _g158940_)))))) (define gx#core-bind-alias!__% - (lambda (_id149837_ - _alias-id149838_ - _rebind?149839_ - _phi149840_ - _ctx149841_) + (lambda (_id151384_ + _alias-id151385_ + _rebind?151386_ + _phi151387_ + _ctx151388_) (gx#bind-identifier!__% - _id149837_ - (let ((_key149843_ (gx#core-identifier-key _id149837_))) + _id151384_ + (let ((_key151390_ (gx#core-identifier-key _id151384_))) (##structure gx#alias-binding::t - (gx#make-binding-id__% _key149843_ '#t _phi149840_ _ctx149841_) - _key149843_ - _phi149840_ - _alias-id149838_)) - _rebind?149839_ - _phi149840_ - _ctx149841_))) + (gx#make-binding-id__% _key151390_ '#t _phi151387_ _ctx151388_) + _key151390_ + _phi151387_ + _alias-id151385_)) + _rebind?151386_ + _phi151387_ + _ctx151388_))) (define gx#core-bind-alias!__0 - (lambda (_id149848_ _alias-id149849_) - (let* ((_rebind?149851_ '#f) - (_phi149853_ (gx#current-expander-phi)) - (_ctx149855_ (gx#current-expander-context))) + (lambda (_id151395_ _alias-id151396_) + (let* ((_rebind?151398_ '#f) + (_phi151400_ (gx#current-expander-phi)) + (_ctx151402_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id149848_ - _alias-id149849_ - _rebind?149851_ - _phi149853_ - _ctx149855_)))) + _id151395_ + _alias-id151396_ + _rebind?151398_ + _phi151400_ + _ctx151402_)))) (define gx#core-bind-alias!__1 - (lambda (_id149857_ _alias-id149858_ _rebind?149859_) - (let* ((_phi149861_ (gx#current-expander-phi)) - (_ctx149863_ (gx#current-expander-context))) + (lambda (_id151404_ _alias-id151405_ _rebind?151406_) + (let* ((_phi151408_ (gx#current-expander-phi)) + (_ctx151410_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id149857_ - _alias-id149858_ - _rebind?149859_ - _phi149861_ - _ctx149863_)))) + _id151404_ + _alias-id151405_ + _rebind?151406_ + _phi151408_ + _ctx151410_)))) (define gx#core-bind-alias!__2 - (lambda (_id149865_ _alias-id149866_ _rebind?149867_ _phi149868_) - (let ((_ctx149870_ (gx#current-expander-context))) + (lambda (_id151412_ _alias-id151413_ _rebind?151414_ _phi151415_) + (let ((_ctx151417_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id149865_ - _alias-id149866_ - _rebind?149867_ - _phi149868_ - _ctx149870_)))) + _id151412_ + _alias-id151413_ + _rebind?151414_ + _phi151415_ + _ctx151417_)))) (define gx#core-bind-alias! - (lambda _g157295_ - (let ((_g157294_ (##length _g157295_))) - (cond ((##fx= _g157294_ 2) - (apply (lambda (_id149848_ _alias-id149849_) - (gx#core-bind-alias!__0 _id149848_ _alias-id149849_)) - _g157295_)) - ((##fx= _g157294_ 3) - (apply (lambda (_id149857_ _alias-id149858_ _rebind?149859_) + (lambda _g158942_ + (let ((_g158941_ (##length _g158942_))) + (cond ((##fx= _g158941_ 2) + (apply (lambda (_id151395_ _alias-id151396_) + (gx#core-bind-alias!__0 _id151395_ _alias-id151396_)) + _g158942_)) + ((##fx= _g158941_ 3) + (apply (lambda (_id151404_ _alias-id151405_ _rebind?151406_) (gx#core-bind-alias!__1 - _id149857_ - _alias-id149858_ - _rebind?149859_)) - _g157295_)) - ((##fx= _g157294_ 4) - (apply (lambda (_id149865_ - _alias-id149866_ - _rebind?149867_ - _phi149868_) + _id151404_ + _alias-id151405_ + _rebind?151406_)) + _g158942_)) + ((##fx= _g158941_ 4) + (apply (lambda (_id151412_ + _alias-id151413_ + _rebind?151414_ + _phi151415_) (gx#core-bind-alias!__2 - _id149865_ - _alias-id149866_ - _rebind?149867_ - _phi149868_)) - _g157295_)) - ((##fx= _g157294_ 5) - (apply (lambda (_id149872_ - _alias-id149873_ - _rebind?149874_ - _phi149875_ - _ctx149876_) + _id151412_ + _alias-id151413_ + _rebind?151414_ + _phi151415_)) + _g158942_)) + ((##fx= _g158941_ 5) + (apply (lambda (_id151419_ + _alias-id151420_ + _rebind?151421_ + _phi151422_ + _ctx151423_) (gx#core-bind-alias!__% - _id149872_ - _alias-id149873_ - _rebind?149874_ - _phi149875_ - _ctx149876_)) - _g157295_)) + _id151419_ + _alias-id151420_ + _rebind?151421_ + _phi151422_ + _ctx151423_)) + _g158942_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g157295_)))))) + _g158942_)))))) (define gx#make-binding-id__% - (lambda (_key149794_ _syntax?149795_ _phi149796_ _ctx149797_) - (if (uninterned-symbol? _key149794_) + (lambda (_key151341_ _syntax?151342_ _phi151343_ _ctx151344_) + (if (uninterned-symbol? _key151341_) (gensym 'L) - (if (pair? _key149794_) - (gensym (car _key149794_)) - (if (##structure-instance-of? _ctx149797_ 'gx#top-context::t) - (let ((_ns149799_ - (gx#core-context-namespace__% _ctx149797_))) - (if (and (fxzero? _phi149796_) (not _syntax?149795_)) - (if _ns149799_ - (make-symbol__1 _ns149799_ '"#" _key149794_) - _key149794_) - (if _syntax?149795_ + (if (pair? _key151341_) + (gensym (car _key151341_)) + (if (##structure-instance-of? _ctx151344_ 'gx#top-context::t) + (let ((_ns151346_ + (gx#core-context-namespace__% _ctx151344_))) + (if (and (fxzero? _phi151343_) (not _syntax?151342_)) + (if _ns151346_ + (make-symbol__1 _ns151346_ '"#" _key151341_) + _key151341_) + (if _syntax?151342_ (make-symbol__1 - (let ((_$e149801_ _ns149799_)) - (if _$e149801_ _$e149801_ '"")) + (let ((_$e151348_ _ns151346_)) + (if _$e151348_ _$e151348_ '"")) '"[:" - (number->string _phi149796_) + (number->string _phi151343_) '":]#" - _key149794_) + _key151341_) (make-symbol__1 - (let ((_$e149804_ _ns149799_)) - (if _$e149804_ _$e149804_ '"")) + (let ((_$e151351_ _ns151346_)) + (if _$e151351_ _$e151351_ '"")) '"[" - (number->string _phi149796_) + (number->string _phi151343_) '"]#" - _key149794_)))) - (gensym _key149794_)))))) + _key151341_)))) + (gensym _key151341_)))))) (define gx#make-binding-id__0 - (lambda (_key149810_) - (let* ((_syntax?149812_ '#f) - (_phi149814_ (gx#current-expander-phi)) - (_ctx149816_ (gx#current-expander-context))) + (lambda (_key151357_) + (let* ((_syntax?151359_ '#f) + (_phi151361_ (gx#current-expander-phi)) + (_ctx151363_ (gx#current-expander-context))) (gx#make-binding-id__% - _key149810_ - _syntax?149812_ - _phi149814_ - _ctx149816_)))) + _key151357_ + _syntax?151359_ + _phi151361_ + _ctx151363_)))) (define gx#make-binding-id__1 - (lambda (_key149818_ _syntax?149819_) - (let* ((_phi149821_ (gx#current-expander-phi)) - (_ctx149823_ (gx#current-expander-context))) + (lambda (_key151365_ _syntax?151366_) + (let* ((_phi151368_ (gx#current-expander-phi)) + (_ctx151370_ (gx#current-expander-context))) (gx#make-binding-id__% - _key149818_ - _syntax?149819_ - _phi149821_ - _ctx149823_)))) + _key151365_ + _syntax?151366_ + _phi151368_ + _ctx151370_)))) (define gx#make-binding-id__2 - (lambda (_key149825_ _syntax?149826_ _phi149827_) - (let ((_ctx149829_ (gx#current-expander-context))) + (lambda (_key151372_ _syntax?151373_ _phi151374_) + (let ((_ctx151376_ (gx#current-expander-context))) (gx#make-binding-id__% - _key149825_ - _syntax?149826_ - _phi149827_ - _ctx149829_)))) + _key151372_ + _syntax?151373_ + _phi151374_ + _ctx151376_)))) (define gx#make-binding-id - (lambda _g157297_ - (let ((_g157296_ (##length _g157297_))) - (cond ((##fx= _g157296_ 1) - (apply (lambda (_key149810_) - (gx#make-binding-id__0 _key149810_)) - _g157297_)) - ((##fx= _g157296_ 2) - (apply (lambda (_key149818_ _syntax?149819_) - (gx#make-binding-id__1 _key149818_ _syntax?149819_)) - _g157297_)) - ((##fx= _g157296_ 3) - (apply (lambda (_key149825_ _syntax?149826_ _phi149827_) + (lambda _g158944_ + (let ((_g158943_ (##length _g158944_))) + (cond ((##fx= _g158943_ 1) + (apply (lambda (_key151357_) + (gx#make-binding-id__0 _key151357_)) + _g158944_)) + ((##fx= _g158943_ 2) + (apply (lambda (_key151365_ _syntax?151366_) + (gx#make-binding-id__1 _key151365_ _syntax?151366_)) + _g158944_)) + ((##fx= _g158943_ 3) + (apply (lambda (_key151372_ _syntax?151373_ _phi151374_) (gx#make-binding-id__2 - _key149825_ - _syntax?149826_ - _phi149827_)) - _g157297_)) - ((##fx= _g157296_ 4) - (apply (lambda (_key149831_ - _syntax?149832_ - _phi149833_ - _ctx149834_) + _key151372_ + _syntax?151373_ + _phi151374_)) + _g158944_)) + ((##fx= _g158943_ 4) + (apply (lambda (_key151378_ + _syntax?151379_ + _phi151380_ + _ctx151381_) (gx#make-binding-id__% - _key149831_ - _syntax?149832_ - _phi149833_ - _ctx149834_)) - _g157297_)) + _key151378_ + _syntax?151379_ + _phi151380_ + _ctx151381_)) + _g158944_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g157297_)))))))) + _g158944_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3.ssi b/src/bootstrap/gerbil/runtime/c3.ssi index a8f372f08..c01532d5a 100644 --- a/src/bootstrap/gerbil/runtime/c3.ssi +++ b/src/bootstrap/gerbil/runtime/c3.ssi @@ -2,24 +2,9 @@ prelude: :gerbil/core package: gerbil/runtime namespace: #f -(%#begin (%#export (spec: 0 c3-linearize c3-linearize)) +(%#begin (%#export (spec: 0 c4-linearize c4-linearize)) (%#import :gerbil/runtime/util) - (%#begin (%#define-runtime c3-linearize__% c3-linearize__%) - (%#begin (%#define-runtime c3-linearize__0 c3-linearize__0) - (%#define-runtime c3-linearize__1 c3-linearize__1) - (%#define-runtime c3-linearize c3-linearize))) - (%#begin (%#define-runtime c3-linearize-loop__% c3-linearize-loop__%) - (%#begin (%#define-runtime - c3-linearize-loop__0 - c3-linearize-loop__0) - (%#define-runtime - c3-linearize-loop__1 - c3-linearize-loop__1) - (%#define-runtime - c3-linearize-loop - c3-linearize-loop))) - (%#define-runtime c3-select-next c3-select-next) - (%#begin (%#define-runtime remove-next!__% remove-next!__%) - (%#begin (%#define-runtime remove-next!__0 remove-next!__0) - (%#define-runtime remove-next! remove-next!)))) + (%#begin (%#define-runtime c4-linearize__% c4-linearize__%) + (%#define-runtime c4-linearize__@ c4-linearize__@) + (%#define-runtime c4-linearize c4-linearize))) (%#call (%#ref load-module) (%#quote "gerbil/runtime/c3__0")) diff --git a/src/bootstrap/gerbil/runtime/c3.ssxi.ss b/src/bootstrap/gerbil/runtime/c3.ssxi.ss index 144f0a94c..c7663f868 100644 --- a/src/bootstrap/gerbil/runtime/c3.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/c3.ssxi.ss @@ -2,24 +2,12 @@ prelude: :gerbil/compiler/ssxi package: gerbil/runtime (begin - (declare-type c3-linearize__% (@lambda 5 #f)) - (declare-type c3-linearize__0 (@lambda 3 #f)) - (declare-type c3-linearize__1 (@lambda 4 #f)) + (declare-type c4-linearize__% (@lambda 7 #f)) (declare-type - c3-linearize - (@case-lambda (3 c3-linearize__0) (4 c3-linearize__1) (5 c3-linearize__%))) - (declare-type c3-linearize-loop__% (@lambda 4 #f)) - (declare-type c3-linearize-loop__0 (@lambda 2 #f)) - (declare-type c3-linearize-loop__1 (@lambda 3 #f)) + c4-linearize__@ + (@kw-lambda-dispatch + (get-precedence-list: struct: eq: get-name:) + c4-linearize__%)) (declare-type - c3-linearize-loop - (@case-lambda - (2 c3-linearize-loop__0) - (3 c3-linearize-loop__1) - (4 c3-linearize-loop__%))) - (declare-type c3-select-next (@lambda 3 #f)) - (declare-type remove-next!__% (@lambda 3 #f)) - (declare-type remove-next!__0 (@lambda 2 #f)) - (declare-type - remove-next! - (@case-lambda (2 remove-next!__0) (3 remove-next!__%)))) + c4-linearize + (@kw-lambda (get-name: struct: get-precedence-list: eq:) c4-linearize__@))) diff --git a/src/bootstrap/gerbil/runtime/c3__0.scm b/src/bootstrap/gerbil/runtime/c3__0.scm index 36f04a8c3..4874f8795 100644 --- a/src/bootstrap/gerbil/runtime/c3__0.scm +++ b/src/bootstrap/gerbil/runtime/c3__0.scm @@ -1,339 +1,541 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1707573210) + (define gerbil/runtime/c3::timestamp 1707674929) (begin - (define c3-linearize__% - (lambda (_rhead78600_ - _supers78601_ - _get-precedence-list78602_ - _eqpred78603_ - _get-name78604_) - (let ((_tails78606_ (map _get-precedence-list78602_ _supers78601_))) - (let () (declare (not safe)) (append1! _tails78606_ _supers78601_)) - (let () - (declare (not safe)) - (c3-linearize-loop__% - _rhead78600_ - _tails78606_ - _eqpred78603_ - _get-name78604_))))) - (define c3-linearize__0 - (lambda (_rhead78611_ _supers78612_ _get-precedence-list78613_) - (let* ((_eqpred78615_ eq?) (_get-name78617_ identity)) - (declare (not safe)) - (c3-linearize__% - _rhead78611_ - _supers78612_ - _get-precedence-list78613_ - _eqpred78615_ - _get-name78617_)))) - (define c3-linearize__1 - (lambda (_rhead78619_ - _supers78620_ - _get-precedence-list78621_ - _eqpred78622_) - (let ((_get-name78624_ identity)) - (declare (not safe)) - (c3-linearize__% - _rhead78619_ - _supers78620_ - _get-precedence-list78621_ - _eqpred78622_ - _get-name78624_)))) - (define c3-linearize - (lambda _g83120_ - (let ((_g83119_ (let () (declare (not safe)) (##length _g83120_)))) - (cond ((let () (declare (not safe)) (##fx= _g83119_ 3)) - (apply (lambda (_rhead78611_ - _supers78612_ - _get-precedence-list78613_) - (let () - (declare (not safe)) - (c3-linearize__0 - _rhead78611_ - _supers78612_ - _get-precedence-list78613_))) - _g83120_)) - ((let () (declare (not safe)) (##fx= _g83119_ 4)) - (apply (lambda (_rhead78619_ - _supers78620_ - _get-precedence-list78621_ - _eqpred78622_) - (let () - (declare (not safe)) - (c3-linearize__1 - _rhead78619_ - _supers78620_ - _get-precedence-list78621_ - _eqpred78622_))) - _g83120_)) - ((let () (declare (not safe)) (##fx= _g83119_ 5)) - (apply (lambda (_rhead78626_ - _supers78627_ - _get-precedence-list78628_ - _eqpred78629_ - _get-name78630_) + (define c4-linearize__% + (lambda (_g83625_ + _get-precedence-list7872478730_ + _struct?7872578732_ + _eq7872678734_ + _get-name7872778736_ + _rhead78738_ + _supers78739_) + (let* ((_get-precedence-list78741_ + (if (let () + (declare (not safe)) + (eq? _get-precedence-list7872478730_ absent-value)) + (error '"Missing required keyword argument" + 'get-precedence-list:) + _get-precedence-list7872478730_)) + (_struct?78743_ + (if (let () + (declare (not safe)) + (eq? _struct?7872578732_ absent-value)) + (error '"Missing required keyword argument" 'struct:) + _struct?7872578732_)) + (_eq78745_ + (if (let () + (declare (not safe)) + (eq? _eq7872678734_ absent-value)) + eq? + _eq7872678734_)) + (_get-name78747_ + (if (let () + (declare (not safe)) + (eq? _get-name7872778736_ absent-value)) + identity + _get-name7872778736_))) + (letrec* ((_pls78749_ (map _get-precedence-list78741_ _supers78739_)) + (_sit78750_ '()) + (_get-names78751_ + (lambda (_lst79015_) (map _get-name78747_ _lst79015_))) + (_err78752_ + (lambda _a79013_ + (apply error + '"Inconsistent precedence graph" + 'head: + (let ((__tmp83626 (reverse _rhead78738_))) + (declare (not safe)) + (_get-names78751_ __tmp83626)) + 'precedence-lists: + (map _get-names78751_ _pls78749_) + 'single-inheritance-tail: + (let () + (declare (not safe)) + (_get-names78751_ _sit78750_)) + _a79013_))) + (_merge-sit!78753_ + (lambda (_sit279003_) + (if (let () (declare (not safe)) (null? _sit279003_)) + '#!void + (if (let () (declare (not safe)) (null? _sit78750_)) + (set! _sit78750_ _sit279003_) + (let _loop79005_ ((_t179007_ _sit78750_) + (_t279008_ _sit279003_)) + (if (let () + (declare (not safe)) + (equal? _t179007_ _sit279003_)) + '#!void + (if (let () + (declare (not safe)) + (equal? _t279008_ _sit78750_)) + (set! _sit78750_ _sit279003_) + (if (or (let () + (declare (not safe)) + (null? _t179007_)) + (let () + (declare (not safe)) + (null? _t279008_))) + (let ((__tmp83629 + (let ((__tmp83632 + (let () + (declare + (not safe)) + (_get-names78751_ + _sit78750_))) + (__tmp83630 + (let ((__tmp83631 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (c3-linearize__% - _rhead78626_ - _supers78627_ - _get-precedence-list78628_ - _eqpred78629_ - _get-name78630_))) - _g83120_)) - (else - (##raise-wrong-number-of-arguments-exception - c3-linearize - _g83120_)))))) - (define c3-linearize-loop__% - (lambda (_rhead78516_ _tails78517_ _eqpred78518_ _get-name78519_) - (let _loop78521_ ((_rhead78523_ _rhead78516_) - (_tails78524_ _tails78517_)) - (let* ((_tails78526_ - (let () (declare (not safe)) (remove-nulls! _tails78524_))) - (_tails7852778537_ _tails78526_) - (_else7853078555_ - (lambda () - (let* ((_err78550_ - (lambda () - (error '"Inconsistent precedence graph" - 'head: - (map _get-name78519_ - (reverse _rhead78523_)) - 'tails: - (map (lambda (_g7854578547_) - (map _get-name78519_ - _g7854578547_)) - _tails78526_)))) - (_next78552_ - (let () + (_get-names78751_ _sit279003_)))) + (declare (not safe)) + (cons __tmp83631 '())))) + (declare (not safe)) + (cons __tmp83632 __tmp83630)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_err78752_ + 'single-inheritance-incompatibility: + __tmp83629)) + (let ((__tmp83628 (cdr _t179007_)) + (__tmp83627 + (cdr _t279008_))) + (declare (not safe)) + (_loop79005_ + __tmp83628 + __tmp83627)))))))))) + (_rpls78754_ + (map (lambda (_pl78998_) + (let ((_g83633_ + (let () + (declare (not safe)) + (append-reverse-until + _struct?78743_ + _pl78998_ + '())))) + (begin + (let ((_g83634_ + (let () + (declare (not safe)) + (if (##values? _g83633_) + (##vector-length _g83633_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g83634_ 2))) + (error "Context expects 2 values" + _g83634_))) + (let ((_tl79000_ + (let () + (declare (not safe)) + (##vector-ref _g83633_ 0))) + (_rh79001_ + (let () + (declare (not safe)) + (##vector-ref _g83633_ 1)))) + (begin + (let () + (declare (not safe)) + (_merge-sit!78753_ _tl79000_)) + _rh79001_))))) + _pls78749_)) + (_unsitr-rpl78755_ + (lambda (_rpl78944_) + (let _u78946_ ((_pl-rhead78948_ _rpl78944_) + (_pl-tail78949_ '()) + (_sit-rhead78950_ (reverse _sit78750_)) + (_sit-tail78951_ '())) + (let* ((_pl-rhead7895278961_ _pl-rhead78948_) + (_E7895578965_ + (lambda () + (error '"No clause matching" + _pl-rhead7895278961_)))) + (let ((_K7895978995_ (lambda () _pl-tail78949_)) + (_K7895678979_ + (lambda (_plrh78969_ _c78970_) + (if (member _c78970_ + _sit-tail78951_ + _eq78745_) + (let ((__tmp83645 + (let ((__tmp83646 + (reverse _pl-rhead78948_))) + (declare (not safe)) + (_get-names78751_ + __tmp83646))) + (__tmp83644 + (let () + (declare (not safe)) + (_get-names78751_ + _pl-tail78949_))) + (__tmp83642 + (let ((__tmp83643 + (reverse _sit-rhead78950_))) + (declare (not safe)) + (_get-names78751_ + __tmp83643))) + (__tmp83641 + (let () + (declare (not safe)) + (_get-names78751_ + _sit-tail78951_))) + (__tmp83640 + (_get-name78747_ _c78970_))) + (declare (not safe)) + (_err78752_ + 'precedence-list-head: + __tmp83645 + 'precedence-list-tail: + __tmp83644 + 'single-inheritance-head: + __tmp83642 + 'single-inheritance-tail: + __tmp83641 + 'super-out-of-order-vs-single-inheritance-tail: + __tmp83640)) + (let ((_g83635_ + (let ((__tmp83637 + (lambda (_g7897178973_) + (_eq78745_ + _c78970_ + _g7897178973_)))) + (declare (not safe)) + (append-reverse-until + __tmp83637 + _sit-rhead78950_ + _sit-tail78951_)))) + (begin + (let ((_g83636_ + (let () + (declare (not safe)) + (if (##values? _g83635_) + (##vector-length + _g83635_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g83636_ 2))) + (error "Context expects 2 values" + _g83636_))) + (let ((_sit-rh278976_ + (let () + (declare (not safe)) + (##vector-ref + _g83635_ + 0))) + (_sit-tl278977_ + (let () + (declare (not safe)) + (##vector-ref + _g83635_ + 1)))) + (if (let () + (declare (not safe)) + (null? _sit-rh278976_)) + (let ((__tmp83639 + (let () + (declare (not safe)) + (cons _c78970_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _pl-tail78949_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_u78946_ + _plrh78969_ + __tmp83639 + '() + _sit-tl278977_)) + (let ((__tmp83638 + (cdr _sit-rh278976_))) + (declare (not safe)) + (_u78946_ + _plrh78969_ + _pl-tail78949_ + __tmp83638 + _sit-tl278977_)))))))))) + (let ((_try-match7895478991_ + (lambda () + (if (let () + (declare (not safe)) + (##pair? _pl-rhead7895278961_)) + (let ((_tl7895878984_ + (let () + (declare (not safe)) + (##cdr _pl-rhead7895278961_))) + (_hd7895778982_ + (let () + (declare (not safe)) + (##car _pl-rhead7895278961_)))) + (let ((_c78987_ _hd7895778982_) + (_plrh78989_ _tl7895878984_)) + (let () + (declare (not safe)) + (_K7895678979_ + _plrh78989_ + _c78987_)))) + (let () + (declare (not safe)) + (_E7895578965_)))))) + (if (let () + (declare (not safe)) + (##null? _pl-rhead7895278961_)) + (let () + (declare (not safe)) + (_K7895978995_)) + (let () + (declare (not safe)) + (_try-match7895478991_))))))))) + (_g83647_ + (let ((_g83648_ + (let ((__tmp83650 (reverse _supers78739_))) (declare (not safe)) - (c3-select-next - _tails78526_ - _eqpred78518_ - _err78550_)))) - (let ((__tmp83122 - (let () - (declare (not safe)) - (cons _next78552_ _rhead78523_))) - (__tmp83121 - (let () - (declare (not safe)) - (remove-next!__% - _next78552_ - _tails78526_ - _eqpred78518_)))) - (declare (not safe)) - (_loop78521_ __tmp83122 __tmp83121)))))) - (let ((_K7853578575_ (lambda () (reverse _rhead78523_))) - (_K7853278561_ - (lambda (_tail78559_) - (let () - (declare (not safe)) - (append-reverse _rhead78523_ _tail78559_))))) - (let ((_try-match7852978571_ - (lambda () - (if (let () - (declare (not safe)) - (##pair? _tails7852778537_)) - (let ((_tl7853478566_ - (let () - (declare (not safe)) - (##cdr _tails7852778537_))) - (_hd7853378564_ - (let () - (declare (not safe)) - (##car _tails7852778537_)))) + (append1! _rpls78754_ __tmp83650)))) + #!void + _g83648_)) + (_g83651_ + (let ((_g83652_ + (set! _pls78749_ + (map _unsitr-rpl78755_ _rpls78754_)))) + #!void + _g83652_)) + (_c3-select-next78756_ + (lambda (_tails78894_) + (let ((_candidate?78900_ + (lambda (_c78896_) + (let ((__tmp83654 + (lambda (_tail78898_) + (let ((__tmp83655 + (member _c78896_ + (cdr _tail78898_) + _eq78745_))) + (declare (not safe)) + (not __tmp83655))))) + (declare (not safe)) + (andmap1 __tmp83654 _tails78894_))))) + (let _loop78902_ ((_ts78904_ _tails78894_)) + (let* ((_ts7890578915_ _ts78904_) + (_else7890778923_ + (lambda () + (let () + (declare (not safe)) + (_err78752_)))) + (_K7890978929_ + (lambda (_rts78926_ _c78927_) + (if (let () + (declare (not safe)) + (_candidate?78900_ _c78927_)) + _c78927_ + (let () + (declare (not safe)) + (_loop78902_ _rts78926_)))))) (if (let () (declare (not safe)) - (##null? _tl7853478566_)) - (let ((_tail78569_ _hd7853378564_)) - (declare (not safe)) - (_K7853278561_ _tail78569_)) + (##pair? _ts7890578915_)) + (let ((_hd7891078932_ + (let () + (declare (not safe)) + (##car _ts7890578915_))) + (_tl7891178934_ + (let () + (declare (not safe)) + (##cdr _ts7890578915_)))) + (if (let () + (declare (not safe)) + (##pair? _hd7891078932_)) + (let* ((_hd7891278937_ + (let () + (declare (not safe)) + (##car _hd7891078932_))) + (_c78940_ _hd7891278937_) + (_rts78942_ _tl7891178934_)) + (declare (not safe)) + (_K7890978929_ _rts78942_ _c78940_)) + (let () + (declare (not safe)) + (_err78752_)))) (let () (declare (not safe)) - (_else7853078555_)))) - (let () (declare (not safe)) (_else7853078555_)))))) - (if (let () (declare (not safe)) (##null? _tails7852778537_)) - (let () (declare (not safe)) (_K7853578575_)) - (let () - (declare (not safe)) - (_try-match7852978571_))))))))) - (define c3-linearize-loop__0 - (lambda (_rhead78581_ _tails78582_) - (let* ((_eqpred78584_ eq?) (_get-name78586_ identity)) - (declare (not safe)) - (c3-linearize-loop__% - _rhead78581_ - _tails78582_ - _eqpred78584_ - _get-name78586_)))) - (define c3-linearize-loop__1 - (lambda (_rhead78588_ _tails78589_ _eqpred78590_) - (let ((_get-name78592_ identity)) - (declare (not safe)) - (c3-linearize-loop__% - _rhead78588_ - _tails78589_ - _eqpred78590_ - _get-name78592_)))) - (define c3-linearize-loop - (lambda _g83124_ - (let ((_g83123_ (let () (declare (not safe)) (##length _g83124_)))) - (cond ((let () (declare (not safe)) (##fx= _g83123_ 2)) - (apply (lambda (_rhead78581_ _tails78582_) - (let () - (declare (not safe)) - (c3-linearize-loop__0 _rhead78581_ _tails78582_))) - _g83124_)) - ((let () (declare (not safe)) (##fx= _g83123_ 3)) - (apply (lambda (_rhead78588_ _tails78589_ _eqpred78590_) - (let () - (declare (not safe)) - (c3-linearize-loop__1 - _rhead78588_ - _tails78589_ - _eqpred78590_))) - _g83124_)) - ((let () (declare (not safe)) (##fx= _g83123_ 4)) - (apply (lambda (_rhead78594_ - _tails78595_ - _eqpred78596_ - _get-name78597_) - (let () - (declare (not safe)) - (c3-linearize-loop__% - _rhead78594_ - _tails78595_ - _eqpred78596_ - _get-name78597_))) - _g83124_)) - (else - (##raise-wrong-number-of-arguments-exception - c3-linearize-loop - _g83124_)))))) - (define c3-select-next - (lambda (_tails78463_ _eqpred78464_ _err78465_) - (let ((_candidate?78471_ - (lambda (_c78467_) - (let ((__tmp83125 - (lambda (_tail78469_) - (let ((__tmp83126 - (member _c78467_ - (cdr _tail78469_) - _eqpred78464_))) - (declare (not safe)) - (not __tmp83126))))) - (declare (not safe)) - (andmap1 __tmp83125 _tails78463_))))) - (let _loop78473_ ((_ts78475_ _tails78463_)) - (let* ((_ts7847678486_ _ts78475_) - (_else7847878494_ (lambda () (_err78465_))) - (_K7848078500_ - (lambda (_rts78497_ _c78498_) - (if (let () - (declare (not safe)) - (_candidate?78471_ _c78498_)) - _c78498_ - (let () - (declare (not safe)) - (_loop78473_ _rts78497_)))))) - (if (let () (declare (not safe)) (##pair? _ts7847678486_)) - (let ((_hd7848178503_ - (let () (declare (not safe)) (##car _ts7847678486_))) - (_tl7848278505_ - (let () (declare (not safe)) (##cdr _ts7847678486_)))) - (if (let () (declare (not safe)) (##pair? _hd7848178503_)) - (let* ((_hd7848378508_ - (let () - (declare (not safe)) - (##car _hd7848178503_))) - (_c78511_ _hd7848378508_) - (_rts78513_ _tl7848278505_)) - (declare (not safe)) - (_K7848078500_ _rts78513_ _c78511_)) - (let () (declare (not safe)) (_err78465_)))) - (let () (declare (not safe)) (_err78465_)))))))) - (define remove-next!__% - (lambda (_next78395_ _tails78396_ _eqpred78397_) - (let _loop78399_ ((_t78401_ _tails78396_)) - (let* ((_t7840278413_ _t78401_) - (_E7840578417_ - (lambda () (error '"No clause matching" _t7840278413_)))) - (let ((_K7841178448_ (lambda () _tails78396_)) - (_K7840678425_ - (lambda (_more78421_ _tail78422_ _head78423_) - (if (_eqpred78397_ _head78423_ _next78395_) - (set-car! _t78401_ _tail78422_) - '#!void) - (let () (declare (not safe)) (_loop78399_ _more78421_))))) - (let ((_try-match7840478444_ - (lambda () - (if (let () - (declare (not safe)) - (##pair? _t7840278413_)) - (let ((_tl7840878430_ + (_err78752_)))))))) + (_remove-next!78757_ + (lambda (_next78839_ _tails78840_) + (let _loop78842_ ((_t78844_ _tails78840_)) + (let* ((_t7884578856_ _t78844_) + (_E7884878860_ + (lambda () + (error '"No clause matching" + _t7884578856_)))) + (let ((_K7885478891_ (lambda () _tails78840_)) + (_K7884978868_ + (lambda (_more78864_ _tail78865_ _head78866_) + (if (_eq78745_ _head78866_ _next78839_) + (set-car! _t78844_ _tail78865_) + '#!void) + (let () + (declare (not safe)) + (_loop78842_ _more78864_))))) + (let ((_try-match7884778887_ + (lambda () + (if (let () + (declare (not safe)) + (##pair? _t7884578856_)) + (let ((_tl7885178873_ + (let () + (declare (not safe)) + (##cdr _t7884578856_))) + (_hd7885078871_ + (let () + (declare (not safe)) + (##car _t7884578856_)))) + (if (let () + (declare (not safe)) + (##pair? _hd7885078871_)) + (let ((_tl7885378878_ + (let () + (declare (not safe)) + (##cdr _hd7885078871_))) + (_hd7885278876_ + (let () + (declare (not safe)) + (##car _hd7885078871_)))) + (let ((_head78881_ + _hd7885278876_) + (_tail78883_ + _tl7885378878_) + (_more78885_ + _tl7885178873_)) + (let () + (declare (not safe)) + (_K7884978868_ + _more78885_ + _tail78883_ + _head78881_)))) + (let () + (declare (not safe)) + (_E7884878860_)))) + (let () + (declare (not safe)) + (_E7884878860_)))))) + (if (let () + (declare (not safe)) + (##null? _t7884578856_)) + (let () + (declare (not safe)) + (_K7885478891_)) + (let () + (declare (not safe)) + (_try-match7884778887_))))))))) + (_precedence-list78758_ + (let _c3loop78789_ ((_rhead78791_ _rhead78738_) + (_tails78792_ _pls78749_)) + (let* ((_tails78794_ + (let () + (declare (not safe)) + (remove-nulls! _tails78792_))) + (_tails7879578805_ _tails78794_) + (_else7879878816_ + (lambda () + (let ((_next78813_ + (let () + (declare (not safe)) + (_c3-select-next78756_ + _tails78794_)))) + (let ((__tmp83657 + (let () + (declare (not safe)) + (cons _next78813_ _rhead78791_))) + (__tmp83656 + (let () + (declare (not safe)) + (_remove-next!78757_ + _next78813_ + _tails78794_)))) + (declare (not safe)) + (_c3loop78789_ __tmp83657 __tmp83656)))))) + (let ((_K7880378836_ + (lambda () (let () (declare (not safe)) - (##cdr _t7840278413_))) - (_hd7840778428_ - (let () + (append-reverse _rhead78791_ _sit78750_)))) + (_K7880078822_ + (lambda (_tail78820_) + (let ((__tmp83658 + (append _tail78820_ _sit78750_))) (declare (not safe)) - (##car _t7840278413_)))) - (if (let () - (declare (not safe)) - (##pair? _hd7840778428_)) - (let ((_tl7841078435_ - (let () + (append-reverse + _rhead78791_ + __tmp83658))))) + (let ((_try-match7879778832_ + (lambda () + (if (let () (declare (not safe)) - (##cdr _hd7840778428_))) - (_hd7840978433_ + (##pair? _tails7879578805_)) + (let ((_tl7880278827_ + (let () + (declare (not safe)) + (##cdr _tails7879578805_))) + (_hd7880178825_ + (let () + (declare (not safe)) + (##car _tails7879578805_)))) + (if (let () + (declare (not safe)) + (##null? _tl7880278827_)) + (let ((_tail78830_ + _hd7880178825_)) + (declare (not safe)) + (_K7880078822_ _tail78830_)) + (let () + (declare (not safe)) + (_else7879878816_)))) (let () (declare (not safe)) - (##car _hd7840778428_)))) - (let ((_head78438_ _hd7840978433_) - (_tail78440_ _tl7841078435_) - (_more78442_ _tl7840878430_)) - (let () - (declare (not safe)) - (_K7840678425_ - _more78442_ - _tail78440_ - _head78438_)))) + (_else7879878816_)))))) + (if (let () + (declare (not safe)) + (##null? _tails7879578805_)) + (let () (declare (not safe)) (_K7880378836_)) (let () (declare (not safe)) - (_E7840578417_)))) - (let () (declare (not safe)) (_E7840578417_)))))) - (if (let () (declare (not safe)) (##null? _t7840278413_)) - (let () (declare (not safe)) (_K7841178448_)) - (let () - (declare (not safe)) - (_try-match7840478444_))))))))) - (define remove-next!__0 - (lambda (_next78454_ _tails78455_) - (let ((_eqpred78457_ eq?)) - (declare (not safe)) - (remove-next!__% _next78454_ _tails78455_ _eqpred78457_)))) - (define remove-next! - (lambda _g83128_ - (let ((_g83127_ (let () (declare (not safe)) (##length _g83128_)))) - (cond ((let () (declare (not safe)) (##fx= _g83127_ 2)) - (apply (lambda (_next78454_ _tails78455_) - (let () - (declare (not safe)) - (remove-next!__0 _next78454_ _tails78455_))) - _g83128_)) - ((let () (declare (not safe)) (##fx= _g83127_ 3)) - (apply (lambda (_next78459_ _tails78460_ _eqpred78461_) - (let () - (declare (not safe)) - (remove-next!__% - _next78459_ - _tails78460_ - _eqpred78461_))) - _g83128_)) - (else - (##raise-wrong-number-of-arguments-exception - remove-next! - _g83128_)))))))) + (_try-match7879778832_)))))))) + (_super-struct78759_ + (let* ((_sit7876078768_ _sit78750_) + (_else7876278776_ (lambda () '#f)) + (_K7876478781_ (lambda (_s78779_) _s78779_))) + (if (let () + (declare (not safe)) + (##pair? _sit7876078768_)) + (let* ((_hd7876578784_ + (let () + (declare (not safe)) + (##car _sit7876078768_))) + (_s78787_ _hd7876578784_)) + (declare (not safe)) + (_K7876478781_ _s78787_)) + (let () (declare (not safe)) (_else7876278776_)))))) + (values _precedence-list78758_ _super-struct78759_))))) + (define c4-linearize__@ + (lambda (_keys7872379020_ . _args79022_) + (apply c4-linearize__% + _keys7872379020_ + (let () + (declare (not safe)) + (table-ref + _keys7872379020_ + 'get-precedence-list: + absent-value)) + (let () + (declare (not safe)) + (table-ref _keys7872379020_ 'struct: absent-value)) + (let () + (declare (not safe)) + (table-ref _keys7872379020_ 'eq: absent-value)) + (let () + (declare (not safe)) + (table-ref _keys7872379020_ 'get-name: absent-value)) + _args79022_))) + (define c4-linearize + (lambda _args7872879028_ + (apply keyword-dispatch + '#(#f get-name: struct: get-precedence-list: #f eq:) + c4-linearize__@ + _args7872879028_))))) diff --git a/src/bootstrap/gerbil/runtime/control__0.scm b/src/bootstrap/gerbil/runtime/control__0.scm index a2aac863b..5ea0c6ac7 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 1707573210) + (define gerbil/runtime/control::timestamp 1707674929) (begin (define make-promise - (lambda (_thunk64678_) - (let () (declare (not safe)) (##make-delay-promise _thunk64678_)))) + (lambda (_thunk64706_) + (let () (declare (not safe)) (##make-delay-promise _thunk64706_)))) (define call-with-parameters - (lambda (_thunk64626_ . _rest64627_) - (let* ((_rest6462864639_ _rest64627_) - (_E6463164643_ - (lambda () (error '"No clause matching" _rest6462864639_)))) - (let ((_K6463364659_ - (lambda (_rest64654_ _val64655_ _param64656_) - (let ((__tmp78384 - (if (let () (declare (not safe)) (null? _rest64654_)) - _thunk64626_ + (lambda (_thunk64654_ . _rest64655_) + (let* ((_rest6465664667_ _rest64655_) + (_E6465964671_ + (lambda () (error '"No clause matching" _rest6465664667_)))) + (let ((_K6466164687_ + (lambda (_rest64682_ _val64683_ _param64684_) + (let ((__tmp78712 + (if (let () (declare (not safe)) (null? _rest64682_)) + _thunk64654_ (lambda () (apply call-with-parameters - _thunk64626_ - _rest64654_))))) + _thunk64654_ + _rest64682_))))) (declare (not safe)) - (##parameterize1 _param64656_ _val64655_ __tmp78384)))) - (_K6463264648_ (lambda () (_thunk64626_)))) - (let ((_try-match6463064651_ + (##parameterize1 _param64684_ _val64683_ __tmp78712)))) + (_K6466064676_ (lambda () (_thunk64654_)))) + (let ((_try-match6465864679_ (lambda () (if (let () (declare (not safe)) - (##null? _rest6462864639_)) - (let () (declare (not safe)) (_thunk64626_)) - (let () (declare (not safe)) (_E6463164643_)))))) - (if (let () (declare (not safe)) (##pair? _rest6462864639_)) - (let ((_tl6463564664_ + (##null? _rest6465664667_)) + (let () (declare (not safe)) (_thunk64654_)) + (let () (declare (not safe)) (_E6465964671_)))))) + (if (let () (declare (not safe)) (##pair? _rest6465664667_)) + (let ((_tl6466364692_ (let () (declare (not safe)) - (##cdr _rest6462864639_))) - (_hd6463464662_ + (##cdr _rest6465664667_))) + (_hd6466264690_ (let () (declare (not safe)) - (##car _rest6462864639_)))) - (if (let () (declare (not safe)) (##pair? _tl6463564664_)) - (let ((_tl6463764671_ + (##car _rest6465664667_)))) + (if (let () (declare (not safe)) (##pair? _tl6466364692_)) + (let ((_tl6466564699_ (let () (declare (not safe)) - (##cdr _tl6463564664_))) - (_hd6463664669_ + (##cdr _tl6466364692_))) + (_hd6466464697_ (let () (declare (not safe)) - (##car _tl6463564664_)))) - (let ((_param64667_ _hd6463464662_) - (_val64674_ _hd6463664669_) - (_rest64676_ _tl6463764671_)) + (##car _tl6466364692_)))) + (let ((_param64695_ _hd6466264690_) + (_val64702_ _hd6466464697_) + (_rest64704_ _tl6466564699_)) (let () (declare (not safe)) - (_K6463364659_ - _rest64676_ - _val64674_ - _param64667_)))) - (let () (declare (not safe)) (_E6463164643_)))) - (let () (declare (not safe)) (_try-match6463064651_)))))))) + (_K6466164687_ + _rest64704_ + _val64702_ + _param64695_)))) + (let () (declare (not safe)) (_E6465964671_)))) + (let () (declare (not safe)) (_try-match6465864679_)))))))) (define with-unwind-protect - (lambda (_K64619_ _fini64620_) - (let ((_once64622_ '#f)) + (lambda (_K64647_ _fini64648_) + (let ((_once64650_ '#f)) (dynamic-wind (lambda () (declare (not interrupts-enabled)) - (if _once64622_ + (if _once64650_ (error '"Cannot re-enter unwind protected block") - (set! _once64622_ '#t))) - _K64619_ - _fini64620_)))) + (set! _once64650_ '#t))) + _K64647_ + _fini64648_)))) (define keyword-dispatch - (lambda (_kwt64516_ _K64517_ . _all-args64518_) - (if _kwt64516_ - (if (let () (declare (not safe)) (vector? _kwt64516_)) + (lambda (_kwt64544_ _K64545_ . _all-args64546_) + (if _kwt64544_ + (if (let () (declare (not safe)) (vector? _kwt64544_)) '#!void - (error '"expected vector" _kwt64516_)) + (error '"expected vector" _kwt64544_)) '#!void) - (if (let () (declare (not safe)) (procedure? _K64517_)) + (if (let () (declare (not safe)) (procedure? _K64545_)) '#!void - (error '"expected procedure" _K64517_)) - (let ((_keys64520_ + (error '"expected procedure" _K64545_)) + (let ((_keys64548_ (let () (declare (not safe)) (make-table 'test: eq? 'hash: keyword-hash)))) - (let _lp64522_ ((_rest64524_ _all-args64518_) - (_args64525_ '#f) - (_tail64526_ '#f)) - (let* ((_rest6452764535_ _rest64524_) - (_else6452964543_ + (let _lp64550_ ((_rest64552_ _all-args64546_) + (_args64553_ '#f) + (_tail64554_ '#f)) + (let* ((_rest6455564563_ _rest64552_) + (_else6455764571_ (lambda () - (if _args64525_ + (if _args64553_ (begin (let () (declare (not safe)) - (##set-cdr! _tail64526_ '())) - (let ((__tmp78385 + (##set-cdr! _tail64554_ '())) + (let ((__tmp78713 (let () (declare (not safe)) - (cons _keys64520_ _args64525_)))) + (cons _keys64548_ _args64553_)))) (declare (not safe)) - (##apply _K64517_ __tmp78385))) - (_K64517_ _keys64520_)))) - (_K6453164607_ - (lambda (_hd-rest64546_ _hd64547_) - (if (keyword? _hd64547_) - (let* ((_hd-rest6454864555_ _hd-rest64546_) - (_E6455064559_ + (##apply _K64545_ __tmp78713))) + (_K64545_ _keys64548_)))) + (_K6455964635_ + (lambda (_hd-rest64574_ _hd64575_) + (if (keyword? _hd64575_) + (let* ((_hd-rest6457664583_ _hd-rest64574_) + (_E6457864587_ (lambda () (error '"No clause matching" - _hd-rest6454864555_))) - (_K6455164567_ - (lambda (_rest64562_ _val64563_) - (if _kwt64516_ - (let ((_pos64565_ - (let ((__tmp78389 - (keyword-hash _hd64547_)) - (__tmp78388 + _hd-rest6457664583_))) + (_K6457964595_ + (lambda (_rest64590_ _val64591_) + (if _kwt64544_ + (let ((_pos64593_ + (let ((__tmp78717 + (keyword-hash _hd64575_)) + (__tmp78716 (let () (declare (not safe)) (##vector-length - _kwt64516_)))) + _kwt64544_)))) (declare (not safe)) (##fxmodulo - __tmp78389 - __tmp78388)))) - (if (let ((__tmp78390 + __tmp78717 + __tmp78716)))) + (if (let ((__tmp78718 (let () (declare (not safe)) (##vector-ref - _kwt64516_ - _pos64565_)))) + _kwt64544_ + _pos64593_)))) (declare (not safe)) - (eq? _hd64547_ __tmp78390)) + (eq? _hd64575_ __tmp78718)) '#!void (error '"Unexpected keyword argument" - _K64517_ - _hd64547_))) + _K64545_ + _hd64575_))) '#!void) (if (let () (declare (not safe)) - (hash-key? _keys64520_ _hd64547_)) + (hash-key? _keys64548_ _hd64575_)) (error '"Duplicate keyword argument" - _K64517_ - _hd64547_) + _K64545_ + _hd64575_) '#!void) (let () (declare (not safe)) (table-set! - _keys64520_ - _hd64547_ - _val64563_)) + _keys64548_ + _hd64575_ + _val64591_)) (let () (declare (not safe)) - (_lp64522_ - _rest64562_ - _args64525_ - _tail64526_))))) + (_lp64550_ + _rest64590_ + _args64553_ + _tail64554_))))) (if (let () (declare (not safe)) - (##pair? _hd-rest6454864555_)) - (let ((_hd6455264570_ + (##pair? _hd-rest6457664583_)) + (let ((_hd6458064598_ (let () (declare (not safe)) - (##car _hd-rest6454864555_))) - (_tl6455364572_ + (##car _hd-rest6457664583_))) + (_tl6458164600_ (let () (declare (not safe)) - (##cdr _hd-rest6454864555_)))) - (let* ((_val64575_ _hd6455264570_) - (_rest64577_ _tl6455364572_)) + (##cdr _hd-rest6457664583_)))) + (let* ((_val64603_ _hd6458064598_) + (_rest64605_ _tl6458164600_)) (declare (not safe)) - (_K6455164567_ _rest64577_ _val64575_))) - (let () (declare (not safe)) (_E6455064559_)))) + (_K6457964595_ _rest64605_ _val64603_))) + (let () (declare (not safe)) (_E6457864587_)))) (if (let () (declare (not safe)) - (eq? _hd64547_ '#!key)) - (let* ((_hd-rest6457864585_ _hd-rest64546_) - (_E6458064589_ + (eq? _hd64575_ '#!key)) + (let* ((_hd-rest6460664613_ _hd-rest64574_) + (_E6460864617_ (lambda () (error '"No clause matching" - _hd-rest6457864585_))) - (_K6458164595_ - (lambda (_rest64592_ _val64593_) - (if _args64525_ + _hd-rest6460664613_))) + (_K6460964623_ + (lambda (_rest64620_ _val64621_) + (if _args64553_ (begin (let () (declare (not safe)) (##set-cdr! - _tail64526_ - _hd-rest64546_)) + _tail64554_ + _hd-rest64574_)) (let () (declare (not safe)) - (_lp64522_ - _rest64592_ - _args64525_ - _hd-rest64546_))) + (_lp64550_ + _rest64620_ + _args64553_ + _hd-rest64574_))) (let () (declare (not safe)) - (_lp64522_ - _rest64592_ - _hd-rest64546_ - _hd-rest64546_)))))) + (_lp64550_ + _rest64620_ + _hd-rest64574_ + _hd-rest64574_)))))) (if (let () (declare (not safe)) - (##pair? _hd-rest6457864585_)) - (let ((_hd6458264598_ + (##pair? _hd-rest6460664613_)) + (let ((_hd6461064626_ (let () (declare (not safe)) - (##car _hd-rest6457864585_))) - (_tl6458364600_ + (##car _hd-rest6460664613_))) + (_tl6461164628_ (let () (declare (not safe)) - (##cdr _hd-rest6457864585_)))) - (let* ((_val64603_ _hd6458264598_) - (_rest64605_ _tl6458364600_)) + (##cdr _hd-rest6460664613_)))) + (let* ((_val64631_ _hd6461064626_) + (_rest64633_ _tl6461164628_)) (declare (not safe)) - (_K6458164595_ - _rest64605_ - _val64603_))) + (_K6460964623_ + _rest64633_ + _val64631_))) (let () (declare (not safe)) - (_E6458064589_)))) + (_E6460864617_)))) (if (let () (declare (not safe)) - (eq? _hd64547_ '#!rest)) - (if _args64525_ + (eq? _hd64575_ '#!rest)) + (if _args64553_ (begin (let () (declare (not safe)) (##set-cdr! - _tail64526_ - _hd-rest64546_)) - (let ((__tmp78387 + _tail64554_ + _hd-rest64574_)) + (let ((__tmp78715 (let () (declare (not safe)) - (cons _keys64520_ - _args64525_)))) + (cons _keys64548_ + _args64553_)))) (declare (not safe)) - (##apply _K64517_ __tmp78387))) - (let ((__tmp78386 + (##apply _K64545_ __tmp78715))) + (let ((__tmp78714 (let () (declare (not safe)) - (cons _keys64520_ - _hd-rest64546_)))) + (cons _keys64548_ + _hd-rest64574_)))) (declare (not safe)) - (##apply _K64517_ __tmp78386))) - (if _args64525_ + (##apply _K64545_ __tmp78714))) + (if _args64553_ (begin (let () (declare (not safe)) - (##set-cdr! _tail64526_ _rest64524_)) + (##set-cdr! _tail64554_ _rest64552_)) (let () (declare (not safe)) - (_lp64522_ - _hd-rest64546_ - _args64525_ - _rest64524_))) + (_lp64550_ + _hd-rest64574_ + _args64553_ + _rest64552_))) (let () (declare (not safe)) - (_lp64522_ - _hd-rest64546_ - _rest64524_ - _rest64524_))))))))) - (if (let () (declare (not safe)) (##pair? _rest6452764535_)) - (let ((_hd6453264610_ + (_lp64550_ + _hd-rest64574_ + _rest64552_ + _rest64552_))))))))) + (if (let () (declare (not safe)) (##pair? _rest6455564563_)) + (let ((_hd6456064638_ (let () (declare (not safe)) - (##car _rest6452764535_))) - (_tl6453364612_ + (##car _rest6455564563_))) + (_tl6456164640_ (let () (declare (not safe)) - (##cdr _rest6452764535_)))) - (let* ((_hd64615_ _hd6453264610_) - (_hd-rest64617_ _tl6453364612_)) + (##cdr _rest6455564563_)))) + (let* ((_hd64643_ _hd6456064638_) + (_hd-rest64645_ _tl6456164640_)) (declare (not safe)) - (_K6453164607_ _hd-rest64617_ _hd64615_))) - (let () (declare (not safe)) (_else6452964543_)))))))) + (_K6455964635_ _hd-rest64645_ _hd64643_))) + (let () (declare (not safe)) (_else6455764571_)))))))) (define keyword-rest - (lambda (_kwt64507_ . _drop64508_) + (lambda (_kwt64535_ . _drop64536_) (for-each - (lambda (_kw64510_) - (let () (declare (not safe)) (table-set! _kwt64507_ _kw64510_))) - _drop64508_) - (let ((__tmp78391 - (lambda (_k64512_ _v64513_ _r64514_) - (let ((__tmp78392 + (lambda (_kw64538_) + (let () (declare (not safe)) (table-set! _kwt64535_ _kw64538_))) + _drop64536_) + (let ((__tmp78719 + (lambda (_k64540_ _v64541_ _r64542_) + (let ((__tmp78720 (let () (declare (not safe)) - (cons _v64513_ _r64514_)))) + (cons _v64541_ _r64542_)))) (declare (not safe)) - (cons _k64512_ __tmp78392))))) + (cons _k64540_ __tmp78720))))) (declare (not safe)) - (hash-fold __tmp78391 '() _kwt64507_)))))) + (hash-fold __tmp78719 '() _kwt64535_)))))) diff --git a/src/bootstrap/gerbil/runtime/error__0.scm b/src/bootstrap/gerbil/runtime/error__0.scm index fa7023861..6fef843d5 100644 --- a/src/bootstrap/gerbil/runtime/error__0.scm +++ b/src/bootstrap/gerbil/runtime/error__0.scm @@ -1,37 +1,35 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1707573210) + (define gerbil/runtime/error::timestamp 1707674929) (begin (define Exception::t - (let ((__tmp95151 (list))) + (let ((__tmp95786 (list))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp95151 + __tmp95786 '() '() '#f))) (define Exception? (let () (declare (not safe)) (make-class-predicate Exception::t))) (define make-Exception - (lambda _$args90654_ - (apply make-class-instance Exception::t _$args90654_))) + (lambda _$args91189_ (apply make-instance Exception::t _$args91189_))) (define StackTrace::t - (let ((__tmp95152 (list))) + (let ((__tmp95787 (list))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp95152 + __tmp95787 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _$args90651_ - (apply make-class-instance StackTrace::t _$args90651_))) + (lambda _$args91186_ (apply make-instance StackTrace::t _$args91186_))) (define StackTrace-continuation (let () (declare (not safe)) @@ -49,19 +47,19 @@ (declare (not safe)) (make-class-slot-unchecked-mutator StackTrace::t 'continuation))) (define Error::t - (let ((__tmp95153 (list StackTrace::t Exception::t))) + (let ((__tmp95788 (list StackTrace::t Exception::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp95153 + __tmp95788 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (make-class-predicate Error::t))) (define make-Error - (lambda _$args90648_ (apply make-class-instance Error::t _$args90648_))) + (lambda _$args91183_ (apply make-instance Error::t _$args91183_))) (define Error-message (let () (declare (not safe)) @@ -123,20 +121,20 @@ (declare (not safe)) (make-class-slot-unchecked-mutator Error::t 'continuation))) (define RuntimeException::t - (let ((__tmp95154 (list StackTrace::t Exception::t))) + (let ((__tmp95789 (list StackTrace::t Exception::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp95154 + __tmp95789 '(exception) '((transparent: . #t)) '#f))) (define RuntimeException? (let () (declare (not safe)) (make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _$args90645_ - (apply make-class-instance RuntimeException::t _$args90645_))) + (lambda _$args91180_ + (apply make-instance RuntimeException::t _$args91180_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -172,144 +170,144 @@ (declare (not safe)) (make-class-slot-unchecked-mutator RuntimeException::t 'continuation))) (define gerbil-exception-handler-hook - (lambda (_exn90640_ _continue90641_) - (let ((_exn90643_ + (lambda (_exn91175_ _continue91176_) + (let ((_exn91178_ (let () (declare (not safe)) - (wrap-runtime-exception _exn90640_)))) + (wrap-runtime-exception _exn91175_)))) (declare (not safe)) - (##repl-exception-handler-hook _exn90643_ _continue90641_)))) + (##repl-exception-handler-hook _exn91178_ _continue91176_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_exn90636_) + (lambda (_exn91171_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn90636_)) + (class-instance? StackTrace::t _exn91171_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _exn90636_ 'continuation)) + (unchecked-slot-ref _exn91171_ 'continuation)) '#!void - (let ((__tmp95155 - (lambda (_cont90638_) + (let ((__tmp95790 + (lambda (_cont91173_) (let () (declare (not safe)) (unchecked-slot-set! - _exn90636_ + _exn91171_ 'continuation - _cont90638_))))) + _cont91173_))))) (declare (not safe)) - (##continuation-capture __tmp95155))) + (##continuation-capture __tmp95790))) '#!void) - (let () (declare (not safe)) (##raise _exn90636_)))) + (let () (declare (not safe)) (##raise _exn91171_)))) (define error - (lambda (_message90633_ . _irritants90634_) - (raise (let ((__obj95145 + (lambda (_message91168_ . _irritants91169_) + (raise (let ((__obj95780 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj95145 - _message90633_ + __obj95780 + _message91168_ 'irritants: - _irritants90634_) - __obj95145)))) + _irritants91169_) + __obj95780)))) (define with-exception-handler - (lambda (_handler90626_ _thunk90627_) - (if (let () (declare (not safe)) (procedure? _handler90626_)) + (lambda (_handler91161_ _thunk91162_) + (if (let () (declare (not safe)) (procedure? _handler91161_)) '#!void - (raise (let ((__obj95146 + (raise (let ((__obj95781 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj95146 + __obj95781 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler90626_ '()))) - __obj95146))) - (if (let () (declare (not safe)) (procedure? _thunk90627_)) + (let () (declare (not safe)) (cons _handler91161_ '()))) + __obj95781))) + (if (let () (declare (not safe)) (procedure? _thunk91162_)) '#!void - (raise (let ((__obj95147 + (raise (let ((__obj95782 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj95147 + __obj95782 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk90627_ '()))) - __obj95147))) - (let ((__tmp95156 - (lambda (_exn90629_) - (let ((_exn90631_ + (let () (declare (not safe)) (cons _thunk91162_ '()))) + __obj95782))) + (let ((__tmp95791 + (lambda (_exn91164_) + (let ((_exn91166_ (let () (declare (not safe)) - (wrap-runtime-exception _exn90629_)))) - (_handler90626_ _exn90631_))))) + (wrap-runtime-exception _exn91164_)))) + (_handler91161_ _exn91166_))))) (declare (not safe)) - (##with-exception-handler __tmp95156 _thunk90627_)))) + (##with-exception-handler __tmp95791 _thunk91162_)))) (define with-catch - (lambda (_handler90619_ _thunk90620_) - (if (let () (declare (not safe)) (procedure? _handler90619_)) + (lambda (_handler91154_ _thunk91155_) + (if (let () (declare (not safe)) (procedure? _handler91154_)) '#!void - (raise (let ((__obj95148 + (raise (let ((__obj95783 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj95148 + __obj95783 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler90619_ '()))) - __obj95148))) - (if (let () (declare (not safe)) (procedure? _thunk90620_)) + (let () (declare (not safe)) (cons _handler91154_ '()))) + __obj95783))) + (if (let () (declare (not safe)) (procedure? _thunk91155_)) '#!void - (raise (let ((__obj95149 + (raise (let ((__obj95784 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj95149 + __obj95784 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk90620_ '()))) - __obj95149))) - (let ((__tmp95157 - (lambda (_cont90622_) + (let () (declare (not safe)) (cons _thunk91155_ '()))) + __obj95784))) + (let ((__tmp95792 + (lambda (_cont91157_) (with-exception-handler - (lambda (_exn90624_) + (lambda (_exn91159_) (let () (declare (not safe)) (##continuation-graft - _cont90622_ - _handler90619_ - _exn90624_))) - _thunk90620_)))) + _cont91157_ + _handler91154_ + _exn91159_))) + _thunk91155_)))) (declare (not safe)) - (##continuation-capture __tmp95157)))) + (##continuation-capture __tmp95792)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_exn90610_) - (if (or (heap-overflow-exception? _exn90610_) - (stack-overflow-exception? _exn90610_)) - _exn90610_ + (lambda (_exn91145_) + (if (or (heap-overflow-exception? _exn91145_) + (stack-overflow-exception? _exn91145_)) + _exn91145_ (if (let () (declare (not safe)) - (class-instance? Exception::t _exn90610_)) - _exn90610_ - (if (macro-exception? _exn90610_) - (let ((_rte90615_ - (let ((__obj95150 + (class-instance? Exception::t _exn91145_)) + _exn91145_ + (if (macro-exception? _exn91145_) + (let ((_rte91150_ + (let ((__obj95785 (let () (declare (not safe)) (##structure @@ -319,137 +317,137 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95150 - _exn90610_ + __obj95785 + _exn91145_ '2 RuntimeException::t '#f)) - __obj95150))) - (let ((__tmp95158 - (lambda (_cont90617_) - (let ((__tmp95159 + __obj95785))) + (let ((__tmp95793 + (lambda (_cont91152_) + (let ((__tmp95794 (let () (declare (not safe)) - (##continuation-next _cont90617_)))) + (##continuation-next _cont91152_)))) (declare (not safe)) (unchecked-slot-set! - _rte90615_ + _rte91150_ 'continuation - __tmp95159))))) + __tmp95794))))) (declare (not safe)) - (##continuation-capture __tmp95158)) - _rte90615_) - _exn90610_))))) + (##continuation-capture __tmp95793)) + _rte91150_) + _exn91145_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_obj90605_) - (let ((_$e90607_ + (lambda (_obj91140_) + (let ((_$e91142_ (let () (declare (not safe)) - (class-instance? Error::t _obj90605_)))) - (if _$e90607_ _$e90607_ (error-exception? _obj90605_))))) + (class-instance? Error::t _obj91140_)))) + (if _$e91142_ _$e91142_ (error-exception? _obj91140_))))) (define error-message - (lambda (_obj90603_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj90603_)) + (lambda (_obj91138_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj91138_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj90603_ 'message)) - (if (error-exception? _obj90603_) - (error-exception-message _obj90603_) + (unchecked-slot-ref _obj91138_ 'message)) + (if (error-exception? _obj91138_) + (error-exception-message _obj91138_) '#f)))) (define error-irritants - (lambda (_obj90601_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj90601_)) + (lambda (_obj91136_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj91136_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj90601_ 'irritants)) - (if (error-exception? _obj90601_) - (error-exception-parameters _obj90601_) + (unchecked-slot-ref _obj91136_ 'irritants)) + (if (error-exception? _obj91136_) + (error-exception-parameters _obj91136_) '#f)))) (define error-trace - (lambda (_obj90599_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj90599_)) + (lambda (_obj91134_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj91134_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj90599_ 'where)) + (unchecked-slot-ref _obj91134_ 'where)) '#f))) (define display-exception__% - (lambda (_e90581_ _port90582_) - (let ((_$e90584_ + (lambda (_e91116_ _port91117_) + (let ((_$e91119_ (let () (declare (not safe)) - (method-ref _e90581_ 'display-exception)))) - (if _$e90584_ - ((lambda (_f90587_) (_f90587_ _e90581_ _port90582_)) _$e90584_) + (method-ref _e91116_ 'display-exception)))) + (if _$e91119_ + ((lambda (_f91122_) (_f91122_ _e91116_ _port91117_)) _$e91119_) (let () (declare (not safe)) - (##default-display-exception _e90581_ _port90582_)))))) + (##default-display-exception _e91116_ _port91117_)))))) (define display-exception__0 - (lambda (_e90592_) - (let ((_port90594_ (current-error-port))) + (lambda (_e91127_) + (let ((_port91129_ (current-error-port))) (declare (not safe)) - (display-exception__% _e90592_ _port90594_)))) + (display-exception__% _e91127_ _port91129_)))) (define display-exception - (lambda _g95161_ - (let ((_g95160_ (let () (declare (not safe)) (##length _g95161_)))) - (cond ((let () (declare (not safe)) (##fx= _g95160_ 1)) - (apply (lambda (_e90592_) + (lambda _g95796_ + (let ((_g95795_ (let () (declare (not safe)) (##length _g95796_)))) + (cond ((let () (declare (not safe)) (##fx= _g95795_ 1)) + (apply (lambda (_e91127_) (let () (declare (not safe)) - (display-exception__0 _e90592_))) - _g95161_)) - ((let () (declare (not safe)) (##fx= _g95160_ 2)) - (apply (lambda (_e90596_ _port90597_) + (display-exception__0 _e91127_))) + _g95796_)) + ((let () (declare (not safe)) (##fx= _g95795_ 2)) + (apply (lambda (_e91131_ _port91132_) (let () (declare (not safe)) - (display-exception__% _e90596_ _port90597_))) - _g95161_)) + (display-exception__% _e91131_ _port91132_))) + _g95796_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g95161_)))))) + _g95796_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_self90570_ _message90571_ . _rest90572_) - (let ((_message90578_ - (if (let () (declare (not safe)) (string? _message90571_)) - _message90571_ + (lambda (_self91105_ _message91106_ . _rest91107_) + (let ((_message91113_ + (if (let () (declare (not safe)) (string? _message91106_)) + _message91106_ (call-with-output-string '"" - (lambda (_g9057390575_) - (display _message90571_ _g9057390575_)))))) + (lambda (_g9110891110_) + (display _message91106_ _g9110891110_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _self90570_ 'message _message90578_)) - (apply class-instance-init! _self90570_ _rest90572_)))) + (unchecked-slot-set! _self91105_ 'message _message91113_)) + (apply class-instance-init! _self91105_ _rest91107_)))) (define Error:::init!::specialize - (lambda (__t95124) - (let ((__message95125 - (let ((__tmp95126 + (lambda (__t95759) + (let ((__message95760 + (let ((__tmp95761 (let () (declare (not safe)) - (class-slot-offset __t95124 'message)))) - (if __tmp95126 __tmp95126 (error '"Unknown slot" 'message))))) - (lambda (_self90570_ _message90571_ . _rest90572_) - (let ((_message90578_ - (if (let () (declare (not safe)) (string? _message90571_)) - _message90571_ + (class-slot-offset __t95759 'message)))) + (if __tmp95761 __tmp95761 (error '"Unknown slot" 'message))))) + (lambda (_self91105_ _message91106_ . _rest91107_) + (let ((_message91113_ + (if (let () (declare (not safe)) (string? _message91106_)) + _message91106_ (call-with-output-string '"" - (lambda (_g9057390575_) - (display _message90571_ _g9057390575_)))))) + (lambda (_g9110891110_) + (display _message91106_ _g9110891110_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _self90570_ - _message90578_ - __message95125 - __t95124 + _self91105_ + _message91113_ + __message95760 + __t95759 '#f)) - (apply class-instance-init! _self90570_ _rest90572_)))))) + (apply class-instance-init! _self91105_ _rest91107_)))))) (let () (declare (not safe)) (bind-specializer! Error:::init! Error:::init!::specialize)) @@ -458,192 +456,192 @@ (bind-method! Error::t ':init! Error:::init! '#f)) (define dump-stack-trace? (make-parameter '#t)) (define Error::display-exception - (lambda (_self90428_ _port90429_) - (let ((_tmp-port90431_ (open-output-string)) - (_display-error-newline90432_ - (> (output-port-column _port90429_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port90431_)) - (let ((__tmp95162 + (lambda (_self90963_ _port90964_) + (let ((_tmp-port90966_ (open-output-string)) + (_display-error-newline90967_ + (> (output-port-column _port90964_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port90966_)) + (let ((__tmp95797 (lambda () - (if _display-error-newline90432_ (newline) '#!void) + (if _display-error-newline90967_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e90435_ + (let ((_$e90970_ (let () (declare (not safe)) - (unchecked-slot-ref _self90428_ 'where)))) - (if _$e90435_ (display _$e90435_) (display '"?"))) - (let ((__tmp95163 - (let ((__tmp95164 + (unchecked-slot-ref _self90963_ 'where)))) + (if _$e90970_ (display _$e90970_) (display '"?"))) + (let ((__tmp95798 + (let ((__tmp95799 (let () (declare (not safe)) - (object-type _self90428_)))) + (object-type _self90963_)))) (declare (not safe)) - (##type-name __tmp95164)))) + (##type-name __tmp95799)))) (declare (not safe)) - (display* '" [" __tmp95163 '"]: ")) - (let ((__tmp95165 + (display* '" [" __tmp95798 '"]: ")) + (let ((__tmp95800 (let () (declare (not safe)) - (unchecked-slot-ref _self90428_ 'message)))) + (unchecked-slot-ref _self90963_ 'message)))) (declare (not safe)) - (displayln __tmp95165)) - (let ((_irritants90438_ + (displayln __tmp95800)) + (let ((_irritants90973_ (let () (declare (not safe)) - (unchecked-slot-ref _self90428_ 'irritants)))) - (if (let () (declare (not safe)) (null? _irritants90438_)) + (unchecked-slot-ref _self90963_ 'irritants)))) + (if (let () (declare (not safe)) (null? _irritants90973_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj90440_) - (write _obj90440_) + (lambda (_obj90975_) + (write _obj90975_) (write-char '#\space)) - _irritants90438_) + _irritants90973_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self90428_)) + (class-instance? StackTrace::t _self90963_)) (dump-stack-trace?)) - (let ((_cont9044190443_ + (let ((_cont9097690978_ (let () (declare (not safe)) (unchecked-slot-ref - _self90428_ + _self90963_ 'continuation)))) - (if _cont9044190443_ - (let ((_cont90446_ _cont9044190443_)) + (if _cont9097690978_ + (let ((_cont90981_ _cont9097690978_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) - (display-continuation-backtrace _cont90446_)) + (display-continuation-backtrace _cont90981_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp95162 + __tmp95797 current-output-port - _tmp-port90431_)) - (let ((__tmp95166 (get-output-string _tmp-port90431_))) + _tmp-port90966_)) + (let ((__tmp95801 (get-output-string _tmp-port90966_))) (declare (not safe)) - (##write-string __tmp95166 _port90429_))))) + (##write-string __tmp95801 _port90964_))))) (define Error::display-exception::specialize - (lambda (__t95127) - (let ((__continuation95128 - (let ((__tmp95132 + (lambda (__t95762) + (let ((__where95763 + (let ((__tmp95767 (let () (declare (not safe)) - (class-slot-offset __t95127 'continuation)))) - (if __tmp95132 - __tmp95132 - (error '"Unknown slot" 'continuation)))) - (__message95129 - (let ((__tmp95133 + (class-slot-offset __t95762 'where)))) + (if __tmp95767 __tmp95767 (error '"Unknown slot" 'where)))) + (__message95764 + (let ((__tmp95768 (let () (declare (not safe)) - (class-slot-offset __t95127 'message)))) - (if __tmp95133 __tmp95133 (error '"Unknown slot" 'message)))) - (__irritants95130 - (let ((__tmp95134 + (class-slot-offset __t95762 'message)))) + (if __tmp95768 __tmp95768 (error '"Unknown slot" 'message)))) + (__irritants95765 + (let ((__tmp95769 (let () (declare (not safe)) - (class-slot-offset __t95127 'irritants)))) - (if __tmp95134 - __tmp95134 + (class-slot-offset __t95762 'irritants)))) + (if __tmp95769 + __tmp95769 (error '"Unknown slot" 'irritants)))) - (__where95131 - (let ((__tmp95135 + (__continuation95766 + (let ((__tmp95770 (let () (declare (not safe)) - (class-slot-offset __t95127 'where)))) - (if __tmp95135 __tmp95135 (error '"Unknown slot" 'where))))) - (lambda (_self90428_ _port90429_) - (let ((_tmp-port90431_ (open-output-string)) - (_display-error-newline90432_ - (> (output-port-column _port90429_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port90431_)) - (let ((__tmp95167 + (class-slot-offset __t95762 'continuation)))) + (if __tmp95770 + __tmp95770 + (error '"Unknown slot" 'continuation))))) + (lambda (_self90963_ _port90964_) + (let ((_tmp-port90966_ (open-output-string)) + (_display-error-newline90967_ + (> (output-port-column _port90964_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port90966_)) + (let ((__tmp95802 (lambda () - (if _display-error-newline90432_ (newline) '#!void) + (if _display-error-newline90967_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e90435_ + (let ((_$e90970_ (let () (declare (not safe)) (##unchecked-structure-ref - _self90428_ - __where95131 - __t95127 + _self90963_ + __where95763 + __t95762 '#f)))) - (if _$e90435_ (display _$e90435_) (display '"?"))) - (let ((__tmp95168 - (let ((__tmp95169 + (if _$e90970_ (display _$e90970_) (display '"?"))) + (let ((__tmp95803 + (let ((__tmp95804 (let () (declare (not safe)) - (object-type _self90428_)))) + (object-type _self90963_)))) (declare (not safe)) - (##type-name __tmp95169)))) + (##type-name __tmp95804)))) (declare (not safe)) - (display* '" [" __tmp95168 '"]: ")) - (let ((__tmp95170 + (display* '" [" __tmp95803 '"]: ")) + (let ((__tmp95805 (let () (declare (not safe)) (##unchecked-structure-ref - _self90428_ - __message95129 - __t95127 + _self90963_ + __message95764 + __t95762 '#f)))) (declare (not safe)) - (displayln __tmp95170)) - (let ((_irritants90438_ + (displayln __tmp95805)) + (let ((_irritants90973_ (let () (declare (not safe)) (##unchecked-structure-ref - _self90428_ - __irritants95130 - __t95127 + _self90963_ + __irritants95765 + __t95762 '#f)))) (if (let () (declare (not safe)) - (null? _irritants90438_)) + (null? _irritants90973_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj90440_) - (write _obj90440_) + (lambda (_obj90975_) + (write _obj90975_) (write-char '#\space)) - _irritants90438_) + _irritants90973_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self90428_)) + (class-instance? StackTrace::t _self90963_)) (dump-stack-trace?)) - (let ((_cont9044190443_ + (let ((_cont9097690978_ (let () (declare (not safe)) (##unchecked-structure-ref - _self90428_ - __continuation95128 - __t95127 + _self90963_ + __continuation95766 + __t95762 '#f)))) - (if _cont9044190443_ - (let ((_cont90446_ _cont9044190443_)) + (if _cont9097690978_ + (let ((_cont90981_ _cont9097690978_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _cont90446_)) + _cont90981_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp95167 + __tmp95802 current-output-port - _tmp-port90431_)) - (let ((__tmp95171 (get-output-string _tmp-port90431_))) + _tmp-port90966_)) + (let ((__tmp95806 (get-output-string _tmp-port90966_))) (declare (not safe)) - (##write-string __tmp95171 _port90429_))))))) + (##write-string __tmp95806 _port90964_))))))) (let () (declare (not safe)) (bind-specializer! @@ -653,85 +651,85 @@ (declare (not safe)) (bind-method! Error::t 'display-exception Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_self90295_ _port90296_) - (let ((_tmp-port90298_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port90298_)) - (let ((__tmp95172 + (lambda (_self90830_ _port90831_) + (let ((_tmp-port90833_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port90833_)) + (let ((__tmp95807 (let () (declare (not safe)) - (unchecked-slot-ref _self90295_ 'exception)))) + (unchecked-slot-ref _self90830_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp95172 _tmp-port90298_)) + (##default-display-exception __tmp95807 _tmp-port90833_)) (if (dump-stack-trace?) - (let ((_cont9029990301_ + (let ((_cont9083490836_ (let () (declare (not safe)) - (unchecked-slot-ref _self90295_ 'continuation)))) - (if _cont9029990301_ - (let ((_cont90304_ _cont9029990301_)) - (display '"--- continuation backtrace:" _tmp-port90298_) - (newline _tmp-port90298_) + (unchecked-slot-ref _self90830_ 'continuation)))) + (if _cont9083490836_ + (let ((_cont90839_ _cont9083490836_)) + (display '"--- continuation backtrace:" _tmp-port90833_) + (newline _tmp-port90833_) (display-continuation-backtrace - _cont90304_ - _tmp-port90298_)) + _cont90839_ + _tmp-port90833_)) '#f)) '#!void) - (let ((__tmp95173 (get-output-string _tmp-port90298_))) + (let ((__tmp95808 (get-output-string _tmp-port90833_))) (declare (not safe)) - (##write-string __tmp95173 _port90296_))))) + (##write-string __tmp95808 _port90831_))))) (define RuntimeException::display-exception::specialize - (lambda (__t95136) - (let ((__exception95137 - (let ((__tmp95139 + (lambda (__t95771) + (let ((__continuation95772 + (let ((__tmp95774 (let () (declare (not safe)) - (class-slot-offset __t95136 'exception)))) - (if __tmp95139 - __tmp95139 - (error '"Unknown slot" 'exception)))) - (__continuation95138 - (let ((__tmp95140 + (class-slot-offset __t95771 'continuation)))) + (if __tmp95774 + __tmp95774 + (error '"Unknown slot" 'continuation)))) + (__exception95773 + (let ((__tmp95775 (let () (declare (not safe)) - (class-slot-offset __t95136 'continuation)))) - (if __tmp95140 - __tmp95140 - (error '"Unknown slot" 'continuation))))) - (lambda (_self90295_ _port90296_) - (let ((_tmp-port90298_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port90298_)) - (let ((__tmp95174 + (class-slot-offset __t95771 'exception)))) + (if __tmp95775 + __tmp95775 + (error '"Unknown slot" 'exception))))) + (lambda (_self90830_ _port90831_) + (let ((_tmp-port90833_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port90833_)) + (let ((__tmp95809 (let () (declare (not safe)) (##unchecked-structure-ref - _self90295_ - __exception95137 - __t95136 + _self90830_ + __exception95773 + __t95771 '#f)))) (declare (not safe)) - (##default-display-exception __tmp95174 _tmp-port90298_)) + (##default-display-exception __tmp95809 _tmp-port90833_)) (if (dump-stack-trace?) - (let ((_cont9029990301_ + (let ((_cont9083490836_ (let () (declare (not safe)) (##unchecked-structure-ref - _self90295_ - __continuation95138 - __t95136 + _self90830_ + __continuation95772 + __t95771 '#f)))) - (if _cont9029990301_ - (let ((_cont90304_ _cont9029990301_)) + (if _cont9083490836_ + (let ((_cont90839_ _cont9083490836_)) (display '"--- continuation backtrace:" - _tmp-port90298_) - (newline _tmp-port90298_) + _tmp-port90833_) + (newline _tmp-port90833_) (display-continuation-backtrace - _cont90304_ - _tmp-port90298_)) + _cont90839_ + _tmp-port90833_)) '#f)) '#!void) - (let ((__tmp95175 (get-output-string _tmp-port90298_))) + (let ((__tmp95810 (get-output-string _tmp-port90833_))) (declare (not safe)) - (##write-string __tmp95175 _port90296_))))))) + (##write-string __tmp95810 _port90831_))))))) (let () (declare (not safe)) (bind-specializer! @@ -745,3566 +743,3566 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_port90167_) - (if (macro-character-port? _port90167_) - (let ((_old-width90169_ - (macro-character-port-output-width _port90167_))) + (lambda (_port90702_) + (if (macro-character-port? _port90702_) + (let ((_old-width90704_ + (macro-character-port-output-width _port90702_))) (macro-character-port-output-width-set! - _port90167_ - (lambda (_port90171_) '256)) - _old-width90169_) + _port90702_ + (lambda (_port90706_) '256)) + _old-width90704_) '#!void))) (define reset-port-width! - (lambda (_port90164_ _old-width90165_) - (if (macro-character-port? _port90164_) + (lambda (_port90699_ _old-width90700_) + (if (macro-character-port? _port90699_) (macro-character-port-output-width-set! - _port90164_ - _old-width90165_) + _port90699_ + _old-width90700_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_e90162_) - (macro-readenv-filepos (datum-parsing-exception-readenv _e90162_)))) + (lambda (_e90697_) + (macro-readenv-filepos (datum-parsing-exception-readenv _e90697_)))) (define abandoned-mutex-exception? - (lambda (_exn90156_) + (lambda (_exn90691_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90156_)) - (let ((_e90159_ + (class-instance? RuntimeException::t _exn90691_)) + (let ((_e90694_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90156_ 'exception)))) - (macro-abandoned-mutex-exception? _e90159_)) - (macro-abandoned-mutex-exception? _exn90156_)))) + (unchecked-slot-ref _exn90691_ 'exception)))) + (macro-abandoned-mutex-exception? _e90694_)) + (macro-abandoned-mutex-exception? _exn90691_)))) (define cfun-conversion-exception? - (lambda (_exn90152_) + (lambda (_exn90687_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90152_)) - (let ((_e90154_ + (class-instance? RuntimeException::t _exn90687_)) + (let ((_e90689_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90152_ 'exception)))) - (macro-cfun-conversion-exception? _e90154_)) - (macro-cfun-conversion-exception? _exn90152_)))) + (unchecked-slot-ref _exn90687_ 'exception)))) + (macro-cfun-conversion-exception? _e90689_)) + (macro-cfun-conversion-exception? _exn90687_)))) (define cfun-conversion-exception-arguments - (lambda (_exn90148_) + (lambda (_exn90683_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90148_)) - (let ((_e90150_ + (class-instance? RuntimeException::t _exn90683_)) + (let ((_e90685_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90148_ 'exception)))) - (if (macro-cfun-conversion-exception? _e90150_) - (macro-cfun-conversion-exception-arguments _e90150_) + (unchecked-slot-ref _exn90683_ 'exception)))) + (if (macro-cfun-conversion-exception? _e90685_) + (macro-cfun-conversion-exception-arguments _e90685_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp95177 + (let ((__tmp95812 (let () (declare (not safe)) - (cons _e90150_ '())))) + (cons _e90685_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp95177))))) - (if (macro-cfun-conversion-exception? _exn90148_) - (macro-cfun-conversion-exception-arguments _exn90148_) + __tmp95812))))) + (if (macro-cfun-conversion-exception? _exn90683_) + (macro-cfun-conversion-exception-arguments _exn90683_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp95176 + (let ((__tmp95811 (let () (declare (not safe)) - (cons _exn90148_ '())))) + (cons _exn90683_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp95176))))))) + __tmp95811))))))) (define cfun-conversion-exception-code - (lambda (_exn90144_) + (lambda (_exn90679_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90144_)) - (let ((_e90146_ + (class-instance? RuntimeException::t _exn90679_)) + (let ((_e90681_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90144_ 'exception)))) - (if (macro-cfun-conversion-exception? _e90146_) - (macro-cfun-conversion-exception-code _e90146_) + (unchecked-slot-ref _exn90679_ 'exception)))) + (if (macro-cfun-conversion-exception? _e90681_) + (macro-cfun-conversion-exception-code _e90681_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp95179 + (let ((__tmp95814 (let () (declare (not safe)) - (cons _e90146_ '())))) + (cons _e90681_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp95179))))) - (if (macro-cfun-conversion-exception? _exn90144_) - (macro-cfun-conversion-exception-code _exn90144_) + __tmp95814))))) + (if (macro-cfun-conversion-exception? _exn90679_) + (macro-cfun-conversion-exception-code _exn90679_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp95178 + (let ((__tmp95813 (let () (declare (not safe)) - (cons _exn90144_ '())))) + (cons _exn90679_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp95178))))))) + __tmp95813))))))) (define cfun-conversion-exception-message - (lambda (_exn90140_) + (lambda (_exn90675_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90140_)) - (let ((_e90142_ + (class-instance? RuntimeException::t _exn90675_)) + (let ((_e90677_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90140_ 'exception)))) - (if (macro-cfun-conversion-exception? _e90142_) - (macro-cfun-conversion-exception-message _e90142_) + (unchecked-slot-ref _exn90675_ 'exception)))) + (if (macro-cfun-conversion-exception? _e90677_) + (macro-cfun-conversion-exception-message _e90677_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp95181 + (let ((__tmp95816 (let () (declare (not safe)) - (cons _e90142_ '())))) + (cons _e90677_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp95181))))) - (if (macro-cfun-conversion-exception? _exn90140_) - (macro-cfun-conversion-exception-message _exn90140_) + __tmp95816))))) + (if (macro-cfun-conversion-exception? _exn90675_) + (macro-cfun-conversion-exception-message _exn90675_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp95180 + (let ((__tmp95815 (let () (declare (not safe)) - (cons _exn90140_ '())))) + (cons _exn90675_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp95180))))))) + __tmp95815))))))) (define cfun-conversion-exception-procedure - (lambda (_exn90134_) + (lambda (_exn90669_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90134_)) - (let ((_e90137_ + (class-instance? RuntimeException::t _exn90669_)) + (let ((_e90672_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90134_ 'exception)))) - (if (macro-cfun-conversion-exception? _e90137_) - (macro-cfun-conversion-exception-procedure _e90137_) + (unchecked-slot-ref _exn90669_ 'exception)))) + (if (macro-cfun-conversion-exception? _e90672_) + (macro-cfun-conversion-exception-procedure _e90672_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp95183 + (let ((__tmp95818 (let () (declare (not safe)) - (cons _e90137_ '())))) + (cons _e90672_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp95183))))) - (if (macro-cfun-conversion-exception? _exn90134_) - (macro-cfun-conversion-exception-procedure _exn90134_) + __tmp95818))))) + (if (macro-cfun-conversion-exception? _exn90669_) + (macro-cfun-conversion-exception-procedure _exn90669_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp95182 + (let ((__tmp95817 (let () (declare (not safe)) - (cons _exn90134_ '())))) + (cons _exn90669_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp95182))))))) + __tmp95817))))))) (define datum-parsing-exception? - (lambda (_exn90130_) + (lambda (_exn90665_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90130_)) - (let ((_e90132_ + (class-instance? RuntimeException::t _exn90665_)) + (let ((_e90667_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90130_ 'exception)))) - (macro-datum-parsing-exception? _e90132_)) - (macro-datum-parsing-exception? _exn90130_)))) + (unchecked-slot-ref _exn90665_ 'exception)))) + (macro-datum-parsing-exception? _e90667_)) + (macro-datum-parsing-exception? _exn90665_)))) (define datum-parsing-exception-kind - (lambda (_exn90126_) + (lambda (_exn90661_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90126_)) - (let ((_e90128_ + (class-instance? RuntimeException::t _exn90661_)) + (let ((_e90663_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90126_ 'exception)))) - (if (macro-datum-parsing-exception? _e90128_) - (macro-datum-parsing-exception-kind _e90128_) + (unchecked-slot-ref _exn90661_ 'exception)))) + (if (macro-datum-parsing-exception? _e90663_) + (macro-datum-parsing-exception-kind _e90663_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp95185 + (let ((__tmp95820 (let () (declare (not safe)) - (cons _e90128_ '())))) + (cons _e90663_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp95185))))) - (if (macro-datum-parsing-exception? _exn90126_) - (macro-datum-parsing-exception-kind _exn90126_) + (cons 'datum-parsing-exception-kind __tmp95820))))) + (if (macro-datum-parsing-exception? _exn90661_) + (macro-datum-parsing-exception-kind _exn90661_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp95184 + (let ((__tmp95819 (let () (declare (not safe)) - (cons _exn90126_ '())))) + (cons _exn90661_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp95184))))))) + (cons 'datum-parsing-exception-kind __tmp95819))))))) (define datum-parsing-exception-parameters - (lambda (_exn90122_) + (lambda (_exn90657_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90122_)) - (let ((_e90124_ + (class-instance? RuntimeException::t _exn90657_)) + (let ((_e90659_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90122_ 'exception)))) - (if (macro-datum-parsing-exception? _e90124_) - (macro-datum-parsing-exception-parameters _e90124_) + (unchecked-slot-ref _exn90657_ 'exception)))) + (if (macro-datum-parsing-exception? _e90659_) + (macro-datum-parsing-exception-parameters _e90659_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp95187 + (let ((__tmp95822 (let () (declare (not safe)) - (cons _e90124_ '())))) + (cons _e90659_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp95187))))) - (if (macro-datum-parsing-exception? _exn90122_) - (macro-datum-parsing-exception-parameters _exn90122_) + __tmp95822))))) + (if (macro-datum-parsing-exception? _exn90657_) + (macro-datum-parsing-exception-parameters _exn90657_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp95186 + (let ((__tmp95821 (let () (declare (not safe)) - (cons _exn90122_ '())))) + (cons _exn90657_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp95186))))))) + __tmp95821))))))) (define datum-parsing-exception-readenv - (lambda (_exn90116_) + (lambda (_exn90651_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90116_)) - (let ((_e90119_ + (class-instance? RuntimeException::t _exn90651_)) + (let ((_e90654_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90116_ 'exception)))) - (if (macro-datum-parsing-exception? _e90119_) - (macro-datum-parsing-exception-readenv _e90119_) + (unchecked-slot-ref _exn90651_ 'exception)))) + (if (macro-datum-parsing-exception? _e90654_) + (macro-datum-parsing-exception-readenv _e90654_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp95189 + (let ((__tmp95824 (let () (declare (not safe)) - (cons _e90119_ '())))) + (cons _e90654_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp95189))))) - (if (macro-datum-parsing-exception? _exn90116_) - (macro-datum-parsing-exception-readenv _exn90116_) + __tmp95824))))) + (if (macro-datum-parsing-exception? _exn90651_) + (macro-datum-parsing-exception-readenv _exn90651_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp95188 + (let ((__tmp95823 (let () (declare (not safe)) - (cons _exn90116_ '())))) + (cons _exn90651_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp95188))))))) + __tmp95823))))))) (define deadlock-exception? - (lambda (_exn90110_) + (lambda (_exn90645_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90110_)) - (let ((_e90113_ + (class-instance? RuntimeException::t _exn90645_)) + (let ((_e90648_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90110_ 'exception)))) - (macro-deadlock-exception? _e90113_)) - (macro-deadlock-exception? _exn90110_)))) + (unchecked-slot-ref _exn90645_ 'exception)))) + (macro-deadlock-exception? _e90648_)) + (macro-deadlock-exception? _exn90645_)))) (define divide-by-zero-exception? - (lambda (_exn90106_) + (lambda (_exn90641_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90106_)) - (let ((_e90108_ + (class-instance? RuntimeException::t _exn90641_)) + (let ((_e90643_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90106_ 'exception)))) - (macro-divide-by-zero-exception? _e90108_)) - (macro-divide-by-zero-exception? _exn90106_)))) + (unchecked-slot-ref _exn90641_ 'exception)))) + (macro-divide-by-zero-exception? _e90643_)) + (macro-divide-by-zero-exception? _exn90641_)))) (define divide-by-zero-exception-arguments - (lambda (_exn90102_) + (lambda (_exn90637_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90102_)) - (let ((_e90104_ + (class-instance? RuntimeException::t _exn90637_)) + (let ((_e90639_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90102_ 'exception)))) - (if (macro-divide-by-zero-exception? _e90104_) - (macro-divide-by-zero-exception-arguments _e90104_) + (unchecked-slot-ref _exn90637_ 'exception)))) + (if (macro-divide-by-zero-exception? _e90639_) + (macro-divide-by-zero-exception-arguments _e90639_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp95191 + (let ((__tmp95826 (let () (declare (not safe)) - (cons _e90104_ '())))) + (cons _e90639_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp95191))))) - (if (macro-divide-by-zero-exception? _exn90102_) - (macro-divide-by-zero-exception-arguments _exn90102_) + __tmp95826))))) + (if (macro-divide-by-zero-exception? _exn90637_) + (macro-divide-by-zero-exception-arguments _exn90637_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp95190 + (let ((__tmp95825 (let () (declare (not safe)) - (cons _exn90102_ '())))) + (cons _exn90637_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp95190))))))) + __tmp95825))))))) (define divide-by-zero-exception-procedure - (lambda (_exn90096_) + (lambda (_exn90631_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90096_)) - (let ((_e90099_ + (class-instance? RuntimeException::t _exn90631_)) + (let ((_e90634_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90096_ 'exception)))) - (if (macro-divide-by-zero-exception? _e90099_) - (macro-divide-by-zero-exception-procedure _e90099_) + (unchecked-slot-ref _exn90631_ 'exception)))) + (if (macro-divide-by-zero-exception? _e90634_) + (macro-divide-by-zero-exception-procedure _e90634_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp95193 + (let ((__tmp95828 (let () (declare (not safe)) - (cons _e90099_ '())))) + (cons _e90634_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp95193))))) - (if (macro-divide-by-zero-exception? _exn90096_) - (macro-divide-by-zero-exception-procedure _exn90096_) + __tmp95828))))) + (if (macro-divide-by-zero-exception? _exn90631_) + (macro-divide-by-zero-exception-procedure _exn90631_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp95192 + (let ((__tmp95827 (let () (declare (not safe)) - (cons _exn90096_ '())))) + (cons _exn90631_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp95192))))))) + __tmp95827))))))) (define error-exception? - (lambda (_exn90092_) + (lambda (_exn90627_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90092_)) - (let ((_e90094_ + (class-instance? RuntimeException::t _exn90627_)) + (let ((_e90629_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90092_ 'exception)))) - (macro-error-exception? _e90094_)) - (macro-error-exception? _exn90092_)))) + (unchecked-slot-ref _exn90627_ 'exception)))) + (macro-error-exception? _e90629_)) + (macro-error-exception? _exn90627_)))) (define error-exception-message - (lambda (_exn90088_) + (lambda (_exn90623_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90088_)) - (let ((_e90090_ + (class-instance? RuntimeException::t _exn90623_)) + (let ((_e90625_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90088_ 'exception)))) - (if (macro-error-exception? _e90090_) - (macro-error-exception-message _e90090_) + (unchecked-slot-ref _exn90623_ 'exception)))) + (if (macro-error-exception? _e90625_) + (macro-error-exception-message _e90625_) (error '"not an instance" 'error-exception? - (let ((__tmp95195 + (let ((__tmp95830 (let () (declare (not safe)) - (cons _e90090_ '())))) + (cons _e90625_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp95195))))) - (if (macro-error-exception? _exn90088_) - (macro-error-exception-message _exn90088_) + (cons 'error-exception-message __tmp95830))))) + (if (macro-error-exception? _exn90623_) + (macro-error-exception-message _exn90623_) (error '"not an instance" 'error-exception? - (let ((__tmp95194 + (let ((__tmp95829 (let () (declare (not safe)) - (cons _exn90088_ '())))) + (cons _exn90623_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp95194))))))) + (cons 'error-exception-message __tmp95829))))))) (define error-exception-parameters - (lambda (_exn90082_) + (lambda (_exn90617_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90082_)) - (let ((_e90085_ + (class-instance? RuntimeException::t _exn90617_)) + (let ((_e90620_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90082_ 'exception)))) - (if (macro-error-exception? _e90085_) - (macro-error-exception-parameters _e90085_) + (unchecked-slot-ref _exn90617_ 'exception)))) + (if (macro-error-exception? _e90620_) + (macro-error-exception-parameters _e90620_) (error '"not an instance" 'error-exception? - (let ((__tmp95197 + (let ((__tmp95832 (let () (declare (not safe)) - (cons _e90085_ '())))) + (cons _e90620_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp95197))))) - (if (macro-error-exception? _exn90082_) - (macro-error-exception-parameters _exn90082_) + (cons 'error-exception-parameters __tmp95832))))) + (if (macro-error-exception? _exn90617_) + (macro-error-exception-parameters _exn90617_) (error '"not an instance" 'error-exception? - (let ((__tmp95196 + (let ((__tmp95831 (let () (declare (not safe)) - (cons _exn90082_ '())))) + (cons _exn90617_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp95196))))))) + (cons 'error-exception-parameters __tmp95831))))))) (define expression-parsing-exception? - (lambda (_exn90078_) + (lambda (_exn90613_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90078_)) - (let ((_e90080_ + (class-instance? RuntimeException::t _exn90613_)) + (let ((_e90615_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90078_ 'exception)))) - (macro-expression-parsing-exception? _e90080_)) - (macro-expression-parsing-exception? _exn90078_)))) + (unchecked-slot-ref _exn90613_ 'exception)))) + (macro-expression-parsing-exception? _e90615_)) + (macro-expression-parsing-exception? _exn90613_)))) (define expression-parsing-exception-kind - (lambda (_exn90074_) + (lambda (_exn90609_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90074_)) - (let ((_e90076_ + (class-instance? RuntimeException::t _exn90609_)) + (let ((_e90611_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90074_ 'exception)))) - (if (macro-expression-parsing-exception? _e90076_) - (macro-expression-parsing-exception-kind _e90076_) + (unchecked-slot-ref _exn90609_ 'exception)))) + (if (macro-expression-parsing-exception? _e90611_) + (macro-expression-parsing-exception-kind _e90611_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp95199 + (let ((__tmp95834 (let () (declare (not safe)) - (cons _e90076_ '())))) + (cons _e90611_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp95199))))) - (if (macro-expression-parsing-exception? _exn90074_) - (macro-expression-parsing-exception-kind _exn90074_) + __tmp95834))))) + (if (macro-expression-parsing-exception? _exn90609_) + (macro-expression-parsing-exception-kind _exn90609_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp95198 + (let ((__tmp95833 (let () (declare (not safe)) - (cons _exn90074_ '())))) + (cons _exn90609_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp95198))))))) + __tmp95833))))))) (define expression-parsing-exception-parameters - (lambda (_exn90070_) + (lambda (_exn90605_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90070_)) - (let ((_e90072_ + (class-instance? RuntimeException::t _exn90605_)) + (let ((_e90607_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90070_ 'exception)))) - (if (macro-expression-parsing-exception? _e90072_) - (macro-expression-parsing-exception-parameters _e90072_) + (unchecked-slot-ref _exn90605_ 'exception)))) + (if (macro-expression-parsing-exception? _e90607_) + (macro-expression-parsing-exception-parameters _e90607_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp95201 + (let ((__tmp95836 (let () (declare (not safe)) - (cons _e90072_ '())))) + (cons _e90607_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp95201))))) - (if (macro-expression-parsing-exception? _exn90070_) - (macro-expression-parsing-exception-parameters _exn90070_) + __tmp95836))))) + (if (macro-expression-parsing-exception? _exn90605_) + (macro-expression-parsing-exception-parameters _exn90605_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp95200 + (let ((__tmp95835 (let () (declare (not safe)) - (cons _exn90070_ '())))) + (cons _exn90605_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp95200))))))) + __tmp95835))))))) (define expression-parsing-exception-source - (lambda (_exn90064_) + (lambda (_exn90599_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90064_)) - (let ((_e90067_ + (class-instance? RuntimeException::t _exn90599_)) + (let ((_e90602_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90064_ 'exception)))) - (if (macro-expression-parsing-exception? _e90067_) - (macro-expression-parsing-exception-source _e90067_) + (unchecked-slot-ref _exn90599_ 'exception)))) + (if (macro-expression-parsing-exception? _e90602_) + (macro-expression-parsing-exception-source _e90602_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp95203 + (let ((__tmp95838 (let () (declare (not safe)) - (cons _e90067_ '())))) + (cons _e90602_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp95203))))) - (if (macro-expression-parsing-exception? _exn90064_) - (macro-expression-parsing-exception-source _exn90064_) + __tmp95838))))) + (if (macro-expression-parsing-exception? _exn90599_) + (macro-expression-parsing-exception-source _exn90599_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp95202 + (let ((__tmp95837 (let () (declare (not safe)) - (cons _exn90064_ '())))) + (cons _exn90599_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp95202))))))) + __tmp95837))))))) (define file-exists-exception? - (lambda (_exn90060_) + (lambda (_exn90595_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90060_)) - (let ((_e90062_ + (class-instance? RuntimeException::t _exn90595_)) + (let ((_e90597_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90060_ 'exception)))) - (macro-file-exists-exception? _e90062_)) - (macro-file-exists-exception? _exn90060_)))) + (unchecked-slot-ref _exn90595_ 'exception)))) + (macro-file-exists-exception? _e90597_)) + (macro-file-exists-exception? _exn90595_)))) (define file-exists-exception-arguments - (lambda (_exn90056_) + (lambda (_exn90591_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90056_)) - (let ((_e90058_ + (class-instance? RuntimeException::t _exn90591_)) + (let ((_e90593_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90056_ 'exception)))) - (if (macro-file-exists-exception? _e90058_) - (macro-file-exists-exception-arguments _e90058_) + (unchecked-slot-ref _exn90591_ 'exception)))) + (if (macro-file-exists-exception? _e90593_) + (macro-file-exists-exception-arguments _e90593_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp95205 + (let ((__tmp95840 (let () (declare (not safe)) - (cons _e90058_ '())))) + (cons _e90593_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp95205))))) - (if (macro-file-exists-exception? _exn90056_) - (macro-file-exists-exception-arguments _exn90056_) + __tmp95840))))) + (if (macro-file-exists-exception? _exn90591_) + (macro-file-exists-exception-arguments _exn90591_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp95204 + (let ((__tmp95839 (let () (declare (not safe)) - (cons _exn90056_ '())))) + (cons _exn90591_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp95204))))))) + __tmp95839))))))) (define file-exists-exception-procedure - (lambda (_exn90050_) + (lambda (_exn90585_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90050_)) - (let ((_e90053_ + (class-instance? RuntimeException::t _exn90585_)) + (let ((_e90588_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90050_ 'exception)))) - (if (macro-file-exists-exception? _e90053_) - (macro-file-exists-exception-procedure _e90053_) + (unchecked-slot-ref _exn90585_ 'exception)))) + (if (macro-file-exists-exception? _e90588_) + (macro-file-exists-exception-procedure _e90588_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp95207 + (let ((__tmp95842 (let () (declare (not safe)) - (cons _e90053_ '())))) + (cons _e90588_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp95207))))) - (if (macro-file-exists-exception? _exn90050_) - (macro-file-exists-exception-procedure _exn90050_) + __tmp95842))))) + (if (macro-file-exists-exception? _exn90585_) + (macro-file-exists-exception-procedure _exn90585_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp95206 + (let ((__tmp95841 (let () (declare (not safe)) - (cons _exn90050_ '())))) + (cons _exn90585_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp95206))))))) + __tmp95841))))))) (define fixnum-overflow-exception? - (lambda (_exn90046_) + (lambda (_exn90581_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90046_)) - (let ((_e90048_ + (class-instance? RuntimeException::t _exn90581_)) + (let ((_e90583_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90046_ 'exception)))) - (macro-fixnum-overflow-exception? _e90048_)) - (macro-fixnum-overflow-exception? _exn90046_)))) + (unchecked-slot-ref _exn90581_ 'exception)))) + (macro-fixnum-overflow-exception? _e90583_)) + (macro-fixnum-overflow-exception? _exn90581_)))) (define fixnum-overflow-exception-arguments - (lambda (_exn90042_) + (lambda (_exn90577_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90042_)) - (let ((_e90044_ + (class-instance? RuntimeException::t _exn90577_)) + (let ((_e90579_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90042_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e90044_) - (macro-fixnum-overflow-exception-arguments _e90044_) + (unchecked-slot-ref _exn90577_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e90579_) + (macro-fixnum-overflow-exception-arguments _e90579_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp95209 + (let ((__tmp95844 (let () (declare (not safe)) - (cons _e90044_ '())))) + (cons _e90579_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp95209))))) - (if (macro-fixnum-overflow-exception? _exn90042_) - (macro-fixnum-overflow-exception-arguments _exn90042_) + __tmp95844))))) + (if (macro-fixnum-overflow-exception? _exn90577_) + (macro-fixnum-overflow-exception-arguments _exn90577_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp95208 + (let ((__tmp95843 (let () (declare (not safe)) - (cons _exn90042_ '())))) + (cons _exn90577_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp95208))))))) + __tmp95843))))))) (define fixnum-overflow-exception-procedure - (lambda (_exn90036_) + (lambda (_exn90571_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90036_)) - (let ((_e90039_ + (class-instance? RuntimeException::t _exn90571_)) + (let ((_e90574_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90036_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e90039_) - (macro-fixnum-overflow-exception-procedure _e90039_) + (unchecked-slot-ref _exn90571_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e90574_) + (macro-fixnum-overflow-exception-procedure _e90574_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp95211 + (let ((__tmp95846 (let () (declare (not safe)) - (cons _e90039_ '())))) + (cons _e90574_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp95211))))) - (if (macro-fixnum-overflow-exception? _exn90036_) - (macro-fixnum-overflow-exception-procedure _exn90036_) + __tmp95846))))) + (if (macro-fixnum-overflow-exception? _exn90571_) + (macro-fixnum-overflow-exception-procedure _exn90571_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp95210 + (let ((__tmp95845 (let () (declare (not safe)) - (cons _exn90036_ '())))) + (cons _exn90571_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp95210))))))) + __tmp95845))))))) (define heap-overflow-exception? - (lambda (_exn90030_) + (lambda (_exn90565_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90030_)) - (let ((_e90033_ + (class-instance? RuntimeException::t _exn90565_)) + (let ((_e90568_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90030_ 'exception)))) - (macro-heap-overflow-exception? _e90033_)) - (macro-heap-overflow-exception? _exn90030_)))) + (unchecked-slot-ref _exn90565_ 'exception)))) + (macro-heap-overflow-exception? _e90568_)) + (macro-heap-overflow-exception? _exn90565_)))) (define inactive-thread-exception? - (lambda (_exn90026_) + (lambda (_exn90561_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90026_)) - (let ((_e90028_ + (class-instance? RuntimeException::t _exn90561_)) + (let ((_e90563_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90026_ 'exception)))) - (macro-inactive-thread-exception? _e90028_)) - (macro-inactive-thread-exception? _exn90026_)))) + (unchecked-slot-ref _exn90561_ 'exception)))) + (macro-inactive-thread-exception? _e90563_)) + (macro-inactive-thread-exception? _exn90561_)))) (define inactive-thread-exception-arguments - (lambda (_exn90022_) + (lambda (_exn90557_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90022_)) - (let ((_e90024_ + (class-instance? RuntimeException::t _exn90557_)) + (let ((_e90559_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90022_ 'exception)))) - (if (macro-inactive-thread-exception? _e90024_) - (macro-inactive-thread-exception-arguments _e90024_) + (unchecked-slot-ref _exn90557_ 'exception)))) + (if (macro-inactive-thread-exception? _e90559_) + (macro-inactive-thread-exception-arguments _e90559_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp95213 + (let ((__tmp95848 (let () (declare (not safe)) - (cons _e90024_ '())))) + (cons _e90559_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp95213))))) - (if (macro-inactive-thread-exception? _exn90022_) - (macro-inactive-thread-exception-arguments _exn90022_) + __tmp95848))))) + (if (macro-inactive-thread-exception? _exn90557_) + (macro-inactive-thread-exception-arguments _exn90557_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp95212 + (let ((__tmp95847 (let () (declare (not safe)) - (cons _exn90022_ '())))) + (cons _exn90557_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp95212))))))) + __tmp95847))))))) (define inactive-thread-exception-procedure - (lambda (_exn90016_) + (lambda (_exn90551_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90016_)) - (let ((_e90019_ + (class-instance? RuntimeException::t _exn90551_)) + (let ((_e90554_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90016_ 'exception)))) - (if (macro-inactive-thread-exception? _e90019_) - (macro-inactive-thread-exception-procedure _e90019_) + (unchecked-slot-ref _exn90551_ 'exception)))) + (if (macro-inactive-thread-exception? _e90554_) + (macro-inactive-thread-exception-procedure _e90554_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp95215 + (let ((__tmp95850 (let () (declare (not safe)) - (cons _e90019_ '())))) + (cons _e90554_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp95215))))) - (if (macro-inactive-thread-exception? _exn90016_) - (macro-inactive-thread-exception-procedure _exn90016_) + __tmp95850))))) + (if (macro-inactive-thread-exception? _exn90551_) + (macro-inactive-thread-exception-procedure _exn90551_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp95214 + (let ((__tmp95849 (let () (declare (not safe)) - (cons _exn90016_ '())))) + (cons _exn90551_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp95214))))))) + __tmp95849))))))) (define initialized-thread-exception? - (lambda (_exn90012_) + (lambda (_exn90547_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90012_)) - (let ((_e90014_ + (class-instance? RuntimeException::t _exn90547_)) + (let ((_e90549_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90012_ 'exception)))) - (macro-initialized-thread-exception? _e90014_)) - (macro-initialized-thread-exception? _exn90012_)))) + (unchecked-slot-ref _exn90547_ 'exception)))) + (macro-initialized-thread-exception? _e90549_)) + (macro-initialized-thread-exception? _exn90547_)))) (define initialized-thread-exception-arguments - (lambda (_exn90008_) + (lambda (_exn90543_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90008_)) - (let ((_e90010_ + (class-instance? RuntimeException::t _exn90543_)) + (let ((_e90545_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90008_ 'exception)))) - (if (macro-initialized-thread-exception? _e90010_) - (macro-initialized-thread-exception-arguments _e90010_) + (unchecked-slot-ref _exn90543_ 'exception)))) + (if (macro-initialized-thread-exception? _e90545_) + (macro-initialized-thread-exception-arguments _e90545_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp95217 + (let ((__tmp95852 (let () (declare (not safe)) - (cons _e90010_ '())))) + (cons _e90545_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp95217))))) - (if (macro-initialized-thread-exception? _exn90008_) - (macro-initialized-thread-exception-arguments _exn90008_) + __tmp95852))))) + (if (macro-initialized-thread-exception? _exn90543_) + (macro-initialized-thread-exception-arguments _exn90543_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp95216 + (let ((__tmp95851 (let () (declare (not safe)) - (cons _exn90008_ '())))) + (cons _exn90543_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp95216))))))) + __tmp95851))))))) (define initialized-thread-exception-procedure - (lambda (_exn90002_) + (lambda (_exn90537_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90002_)) - (let ((_e90005_ + (class-instance? RuntimeException::t _exn90537_)) + (let ((_e90540_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90002_ 'exception)))) - (if (macro-initialized-thread-exception? _e90005_) - (macro-initialized-thread-exception-procedure _e90005_) + (unchecked-slot-ref _exn90537_ 'exception)))) + (if (macro-initialized-thread-exception? _e90540_) + (macro-initialized-thread-exception-procedure _e90540_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp95219 + (let ((__tmp95854 (let () (declare (not safe)) - (cons _e90005_ '())))) + (cons _e90540_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp95219))))) - (if (macro-initialized-thread-exception? _exn90002_) - (macro-initialized-thread-exception-procedure _exn90002_) + __tmp95854))))) + (if (macro-initialized-thread-exception? _exn90537_) + (macro-initialized-thread-exception-procedure _exn90537_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp95218 + (let ((__tmp95853 (let () (declare (not safe)) - (cons _exn90002_ '())))) + (cons _exn90537_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp95218))))))) + __tmp95853))))))) (define invalid-hash-number-exception? - (lambda (_exn89998_) + (lambda (_exn90533_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89998_)) - (let ((_e90000_ + (class-instance? RuntimeException::t _exn90533_)) + (let ((_e90535_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89998_ 'exception)))) - (macro-invalid-hash-number-exception? _e90000_)) - (macro-invalid-hash-number-exception? _exn89998_)))) + (unchecked-slot-ref _exn90533_ 'exception)))) + (macro-invalid-hash-number-exception? _e90535_)) + (macro-invalid-hash-number-exception? _exn90533_)))) (define invalid-hash-number-exception-arguments - (lambda (_exn89994_) + (lambda (_exn90529_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89994_)) - (let ((_e89996_ + (class-instance? RuntimeException::t _exn90529_)) + (let ((_e90531_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89994_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e89996_) - (macro-invalid-hash-number-exception-arguments _e89996_) + (unchecked-slot-ref _exn90529_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e90531_) + (macro-invalid-hash-number-exception-arguments _e90531_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp95221 + (let ((__tmp95856 (let () (declare (not safe)) - (cons _e89996_ '())))) + (cons _e90531_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp95221))))) - (if (macro-invalid-hash-number-exception? _exn89994_) - (macro-invalid-hash-number-exception-arguments _exn89994_) + __tmp95856))))) + (if (macro-invalid-hash-number-exception? _exn90529_) + (macro-invalid-hash-number-exception-arguments _exn90529_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp95220 + (let ((__tmp95855 (let () (declare (not safe)) - (cons _exn89994_ '())))) + (cons _exn90529_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp95220))))))) + __tmp95855))))))) (define invalid-hash-number-exception-procedure - (lambda (_exn89988_) + (lambda (_exn90523_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89988_)) - (let ((_e89991_ + (class-instance? RuntimeException::t _exn90523_)) + (let ((_e90526_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89988_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e89991_) - (macro-invalid-hash-number-exception-procedure _e89991_) + (unchecked-slot-ref _exn90523_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e90526_) + (macro-invalid-hash-number-exception-procedure _e90526_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp95223 + (let ((__tmp95858 (let () (declare (not safe)) - (cons _e89991_ '())))) + (cons _e90526_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp95223))))) - (if (macro-invalid-hash-number-exception? _exn89988_) - (macro-invalid-hash-number-exception-procedure _exn89988_) + __tmp95858))))) + (if (macro-invalid-hash-number-exception? _exn90523_) + (macro-invalid-hash-number-exception-procedure _exn90523_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp95222 + (let ((__tmp95857 (let () (declare (not safe)) - (cons _exn89988_ '())))) + (cons _exn90523_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp95222))))))) + __tmp95857))))))) (define invalid-utf8-encoding-exception? - (lambda (_exn89984_) + (lambda (_exn90519_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89984_)) - (let ((_e89986_ + (class-instance? RuntimeException::t _exn90519_)) + (let ((_e90521_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89984_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _e89986_)) - (macro-invalid-utf8-encoding-exception? _exn89984_)))) + (unchecked-slot-ref _exn90519_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _e90521_)) + (macro-invalid-utf8-encoding-exception? _exn90519_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_exn89980_) + (lambda (_exn90515_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89980_)) - (let ((_e89982_ + (class-instance? RuntimeException::t _exn90515_)) + (let ((_e90517_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89980_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e89982_) - (macro-invalid-utf8-encoding-exception-arguments _e89982_) + (unchecked-slot-ref _exn90515_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e90517_) + (macro-invalid-utf8-encoding-exception-arguments _e90517_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp95225 + (let ((__tmp95860 (let () (declare (not safe)) - (cons _e89982_ '())))) + (cons _e90517_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp95225))))) - (if (macro-invalid-utf8-encoding-exception? _exn89980_) - (macro-invalid-utf8-encoding-exception-arguments _exn89980_) + __tmp95860))))) + (if (macro-invalid-utf8-encoding-exception? _exn90515_) + (macro-invalid-utf8-encoding-exception-arguments _exn90515_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp95224 + (let ((__tmp95859 (let () (declare (not safe)) - (cons _exn89980_ '())))) + (cons _exn90515_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp95224))))))) + __tmp95859))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_exn89974_) + (lambda (_exn90509_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89974_)) - (let ((_e89977_ + (class-instance? RuntimeException::t _exn90509_)) + (let ((_e90512_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89974_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e89977_) - (macro-invalid-utf8-encoding-exception-procedure _e89977_) + (unchecked-slot-ref _exn90509_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e90512_) + (macro-invalid-utf8-encoding-exception-procedure _e90512_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp95227 + (let ((__tmp95862 (let () (declare (not safe)) - (cons _e89977_ '())))) + (cons _e90512_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp95227))))) - (if (macro-invalid-utf8-encoding-exception? _exn89974_) - (macro-invalid-utf8-encoding-exception-procedure _exn89974_) + __tmp95862))))) + (if (macro-invalid-utf8-encoding-exception? _exn90509_) + (macro-invalid-utf8-encoding-exception-procedure _exn90509_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp95226 + (let ((__tmp95861 (let () (declare (not safe)) - (cons _exn89974_ '())))) + (cons _exn90509_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp95226))))))) + __tmp95861))))))) (define join-timeout-exception? - (lambda (_exn89970_) + (lambda (_exn90505_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89970_)) - (let ((_e89972_ + (class-instance? RuntimeException::t _exn90505_)) + (let ((_e90507_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89970_ 'exception)))) - (macro-join-timeout-exception? _e89972_)) - (macro-join-timeout-exception? _exn89970_)))) + (unchecked-slot-ref _exn90505_ 'exception)))) + (macro-join-timeout-exception? _e90507_)) + (macro-join-timeout-exception? _exn90505_)))) (define join-timeout-exception-arguments - (lambda (_exn89966_) + (lambda (_exn90501_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89966_)) - (let ((_e89968_ + (class-instance? RuntimeException::t _exn90501_)) + (let ((_e90503_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89966_ 'exception)))) - (if (macro-join-timeout-exception? _e89968_) - (macro-join-timeout-exception-arguments _e89968_) + (unchecked-slot-ref _exn90501_ 'exception)))) + (if (macro-join-timeout-exception? _e90503_) + (macro-join-timeout-exception-arguments _e90503_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp95229 + (let ((__tmp95864 (let () (declare (not safe)) - (cons _e89968_ '())))) + (cons _e90503_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp95229))))) - (if (macro-join-timeout-exception? _exn89966_) - (macro-join-timeout-exception-arguments _exn89966_) + __tmp95864))))) + (if (macro-join-timeout-exception? _exn90501_) + (macro-join-timeout-exception-arguments _exn90501_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp95228 + (let ((__tmp95863 (let () (declare (not safe)) - (cons _exn89966_ '())))) + (cons _exn90501_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp95228))))))) + __tmp95863))))))) (define join-timeout-exception-procedure - (lambda (_exn89960_) + (lambda (_exn90495_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89960_)) - (let ((_e89963_ + (class-instance? RuntimeException::t _exn90495_)) + (let ((_e90498_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89960_ 'exception)))) - (if (macro-join-timeout-exception? _e89963_) - (macro-join-timeout-exception-procedure _e89963_) + (unchecked-slot-ref _exn90495_ 'exception)))) + (if (macro-join-timeout-exception? _e90498_) + (macro-join-timeout-exception-procedure _e90498_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp95231 + (let ((__tmp95866 (let () (declare (not safe)) - (cons _e89963_ '())))) + (cons _e90498_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp95231))))) - (if (macro-join-timeout-exception? _exn89960_) - (macro-join-timeout-exception-procedure _exn89960_) + __tmp95866))))) + (if (macro-join-timeout-exception? _exn90495_) + (macro-join-timeout-exception-procedure _exn90495_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp95230 + (let ((__tmp95865 (let () (declare (not safe)) - (cons _exn89960_ '())))) + (cons _exn90495_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp95230))))))) + __tmp95865))))))) (define keyword-expected-exception? - (lambda (_exn89956_) + (lambda (_exn90491_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89956_)) - (let ((_e89958_ + (class-instance? RuntimeException::t _exn90491_)) + (let ((_e90493_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89956_ 'exception)))) - (macro-keyword-expected-exception? _e89958_)) - (macro-keyword-expected-exception? _exn89956_)))) + (unchecked-slot-ref _exn90491_ 'exception)))) + (macro-keyword-expected-exception? _e90493_)) + (macro-keyword-expected-exception? _exn90491_)))) (define keyword-expected-exception-arguments - (lambda (_exn89952_) + (lambda (_exn90487_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89952_)) - (let ((_e89954_ + (class-instance? RuntimeException::t _exn90487_)) + (let ((_e90489_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89952_ 'exception)))) - (if (macro-keyword-expected-exception? _e89954_) - (macro-keyword-expected-exception-arguments _e89954_) + (unchecked-slot-ref _exn90487_ 'exception)))) + (if (macro-keyword-expected-exception? _e90489_) + (macro-keyword-expected-exception-arguments _e90489_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp95233 + (let ((__tmp95868 (let () (declare (not safe)) - (cons _e89954_ '())))) + (cons _e90489_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp95233))))) - (if (macro-keyword-expected-exception? _exn89952_) - (macro-keyword-expected-exception-arguments _exn89952_) + __tmp95868))))) + (if (macro-keyword-expected-exception? _exn90487_) + (macro-keyword-expected-exception-arguments _exn90487_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp95232 + (let ((__tmp95867 (let () (declare (not safe)) - (cons _exn89952_ '())))) + (cons _exn90487_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp95232))))))) + __tmp95867))))))) (define keyword-expected-exception-procedure - (lambda (_exn89946_) + (lambda (_exn90481_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89946_)) - (let ((_e89949_ + (class-instance? RuntimeException::t _exn90481_)) + (let ((_e90484_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89946_ 'exception)))) - (if (macro-keyword-expected-exception? _e89949_) - (macro-keyword-expected-exception-procedure _e89949_) + (unchecked-slot-ref _exn90481_ 'exception)))) + (if (macro-keyword-expected-exception? _e90484_) + (macro-keyword-expected-exception-procedure _e90484_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp95235 + (let ((__tmp95870 (let () (declare (not safe)) - (cons _e89949_ '())))) + (cons _e90484_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp95235))))) - (if (macro-keyword-expected-exception? _exn89946_) - (macro-keyword-expected-exception-procedure _exn89946_) + __tmp95870))))) + (if (macro-keyword-expected-exception? _exn90481_) + (macro-keyword-expected-exception-procedure _exn90481_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp95234 + (let ((__tmp95869 (let () (declare (not safe)) - (cons _exn89946_ '())))) + (cons _exn90481_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp95234))))))) + __tmp95869))))))) (define length-mismatch-exception? - (lambda (_exn89942_) + (lambda (_exn90477_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89942_)) - (let ((_e89944_ + (class-instance? RuntimeException::t _exn90477_)) + (let ((_e90479_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89942_ 'exception)))) - (macro-length-mismatch-exception? _e89944_)) - (macro-length-mismatch-exception? _exn89942_)))) + (unchecked-slot-ref _exn90477_ 'exception)))) + (macro-length-mismatch-exception? _e90479_)) + (macro-length-mismatch-exception? _exn90477_)))) (define length-mismatch-exception-arg-id - (lambda (_exn89938_) + (lambda (_exn90473_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89938_)) - (let ((_e89940_ + (class-instance? RuntimeException::t _exn90473_)) + (let ((_e90475_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89938_ 'exception)))) - (if (macro-length-mismatch-exception? _e89940_) - (macro-length-mismatch-exception-arg-id _e89940_) + (unchecked-slot-ref _exn90473_ 'exception)))) + (if (macro-length-mismatch-exception? _e90475_) + (macro-length-mismatch-exception-arg-id _e90475_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp95237 + (let ((__tmp95872 (let () (declare (not safe)) - (cons _e89940_ '())))) + (cons _e90475_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp95237))))) - (if (macro-length-mismatch-exception? _exn89938_) - (macro-length-mismatch-exception-arg-id _exn89938_) + __tmp95872))))) + (if (macro-length-mismatch-exception? _exn90473_) + (macro-length-mismatch-exception-arg-id _exn90473_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp95236 + (let ((__tmp95871 (let () (declare (not safe)) - (cons _exn89938_ '())))) + (cons _exn90473_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp95236))))))) + __tmp95871))))))) (define length-mismatch-exception-arguments - (lambda (_exn89934_) + (lambda (_exn90469_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89934_)) - (let ((_e89936_ + (class-instance? RuntimeException::t _exn90469_)) + (let ((_e90471_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89934_ 'exception)))) - (if (macro-length-mismatch-exception? _e89936_) - (macro-length-mismatch-exception-arguments _e89936_) + (unchecked-slot-ref _exn90469_ 'exception)))) + (if (macro-length-mismatch-exception? _e90471_) + (macro-length-mismatch-exception-arguments _e90471_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp95239 + (let ((__tmp95874 (let () (declare (not safe)) - (cons _e89936_ '())))) + (cons _e90471_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp95239))))) - (if (macro-length-mismatch-exception? _exn89934_) - (macro-length-mismatch-exception-arguments _exn89934_) + __tmp95874))))) + (if (macro-length-mismatch-exception? _exn90469_) + (macro-length-mismatch-exception-arguments _exn90469_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp95238 + (let ((__tmp95873 (let () (declare (not safe)) - (cons _exn89934_ '())))) + (cons _exn90469_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp95238))))))) + __tmp95873))))))) (define length-mismatch-exception-procedure - (lambda (_exn89928_) + (lambda (_exn90463_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89928_)) - (let ((_e89931_ + (class-instance? RuntimeException::t _exn90463_)) + (let ((_e90466_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89928_ 'exception)))) - (if (macro-length-mismatch-exception? _e89931_) - (macro-length-mismatch-exception-procedure _e89931_) + (unchecked-slot-ref _exn90463_ 'exception)))) + (if (macro-length-mismatch-exception? _e90466_) + (macro-length-mismatch-exception-procedure _e90466_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp95241 + (let ((__tmp95876 (let () (declare (not safe)) - (cons _e89931_ '())))) + (cons _e90466_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp95241))))) - (if (macro-length-mismatch-exception? _exn89928_) - (macro-length-mismatch-exception-procedure _exn89928_) + __tmp95876))))) + (if (macro-length-mismatch-exception? _exn90463_) + (macro-length-mismatch-exception-procedure _exn90463_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp95240 + (let ((__tmp95875 (let () (declare (not safe)) - (cons _exn89928_ '())))) + (cons _exn90463_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp95240))))))) + __tmp95875))))))) (define mailbox-receive-timeout-exception? - (lambda (_exn89924_) + (lambda (_exn90459_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89924_)) - (let ((_e89926_ + (class-instance? RuntimeException::t _exn90459_)) + (let ((_e90461_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89924_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _e89926_)) - (macro-mailbox-receive-timeout-exception? _exn89924_)))) + (unchecked-slot-ref _exn90459_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _e90461_)) + (macro-mailbox-receive-timeout-exception? _exn90459_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_exn89920_) + (lambda (_exn90455_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89920_)) - (let ((_e89922_ + (class-instance? RuntimeException::t _exn90455_)) + (let ((_e90457_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89920_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e89922_) - (macro-mailbox-receive-timeout-exception-arguments _e89922_) + (unchecked-slot-ref _exn90455_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e90457_) + (macro-mailbox-receive-timeout-exception-arguments _e90457_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp95243 + (let ((__tmp95878 (let () (declare (not safe)) - (cons _e89922_ '())))) + (cons _e90457_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp95243))))) - (if (macro-mailbox-receive-timeout-exception? _exn89920_) - (macro-mailbox-receive-timeout-exception-arguments _exn89920_) + __tmp95878))))) + (if (macro-mailbox-receive-timeout-exception? _exn90455_) + (macro-mailbox-receive-timeout-exception-arguments _exn90455_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp95242 + (let ((__tmp95877 (let () (declare (not safe)) - (cons _exn89920_ '())))) + (cons _exn90455_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp95242))))))) + __tmp95877))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_exn89914_) + (lambda (_exn90449_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89914_)) - (let ((_e89917_ + (class-instance? RuntimeException::t _exn90449_)) + (let ((_e90452_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89914_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e89917_) - (macro-mailbox-receive-timeout-exception-procedure _e89917_) + (unchecked-slot-ref _exn90449_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e90452_) + (macro-mailbox-receive-timeout-exception-procedure _e90452_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp95245 + (let ((__tmp95880 (let () (declare (not safe)) - (cons _e89917_ '())))) + (cons _e90452_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp95245))))) - (if (macro-mailbox-receive-timeout-exception? _exn89914_) - (macro-mailbox-receive-timeout-exception-procedure _exn89914_) + __tmp95880))))) + (if (macro-mailbox-receive-timeout-exception? _exn90449_) + (macro-mailbox-receive-timeout-exception-procedure _exn90449_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp95244 + (let ((__tmp95879 (let () (declare (not safe)) - (cons _exn89914_ '())))) + (cons _exn90449_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp95244))))))) + __tmp95879))))))) (define module-not-found-exception? - (lambda (_exn89910_) + (lambda (_exn90445_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89910_)) - (let ((_e89912_ + (class-instance? RuntimeException::t _exn90445_)) + (let ((_e90447_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89910_ 'exception)))) - (macro-module-not-found-exception? _e89912_)) - (macro-module-not-found-exception? _exn89910_)))) + (unchecked-slot-ref _exn90445_ 'exception)))) + (macro-module-not-found-exception? _e90447_)) + (macro-module-not-found-exception? _exn90445_)))) (define module-not-found-exception-arguments - (lambda (_exn89906_) + (lambda (_exn90441_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89906_)) - (let ((_e89908_ + (class-instance? RuntimeException::t _exn90441_)) + (let ((_e90443_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89906_ 'exception)))) - (if (macro-module-not-found-exception? _e89908_) - (macro-module-not-found-exception-arguments _e89908_) + (unchecked-slot-ref _exn90441_ 'exception)))) + (if (macro-module-not-found-exception? _e90443_) + (macro-module-not-found-exception-arguments _e90443_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp95247 + (let ((__tmp95882 (let () (declare (not safe)) - (cons _e89908_ '())))) + (cons _e90443_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp95247))))) - (if (macro-module-not-found-exception? _exn89906_) - (macro-module-not-found-exception-arguments _exn89906_) + __tmp95882))))) + (if (macro-module-not-found-exception? _exn90441_) + (macro-module-not-found-exception-arguments _exn90441_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp95246 + (let ((__tmp95881 (let () (declare (not safe)) - (cons _exn89906_ '())))) + (cons _exn90441_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp95246))))))) + __tmp95881))))))) (define module-not-found-exception-procedure - (lambda (_exn89900_) + (lambda (_exn90435_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89900_)) - (let ((_e89903_ + (class-instance? RuntimeException::t _exn90435_)) + (let ((_e90438_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89900_ 'exception)))) - (if (macro-module-not-found-exception? _e89903_) - (macro-module-not-found-exception-procedure _e89903_) + (unchecked-slot-ref _exn90435_ 'exception)))) + (if (macro-module-not-found-exception? _e90438_) + (macro-module-not-found-exception-procedure _e90438_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp95249 + (let ((__tmp95884 (let () (declare (not safe)) - (cons _e89903_ '())))) + (cons _e90438_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp95249))))) - (if (macro-module-not-found-exception? _exn89900_) - (macro-module-not-found-exception-procedure _exn89900_) + __tmp95884))))) + (if (macro-module-not-found-exception? _exn90435_) + (macro-module-not-found-exception-procedure _exn90435_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp95248 + (let ((__tmp95883 (let () (declare (not safe)) - (cons _exn89900_ '())))) + (cons _exn90435_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp95248))))))) + __tmp95883))))))) (define multiple-c-return-exception? - (lambda (_exn89894_) + (lambda (_exn90429_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89894_)) - (let ((_e89897_ + (class-instance? RuntimeException::t _exn90429_)) + (let ((_e90432_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89894_ 'exception)))) - (macro-multiple-c-return-exception? _e89897_)) - (macro-multiple-c-return-exception? _exn89894_)))) + (unchecked-slot-ref _exn90429_ 'exception)))) + (macro-multiple-c-return-exception? _e90432_)) + (macro-multiple-c-return-exception? _exn90429_)))) (define no-such-file-or-directory-exception? - (lambda (_exn89890_) + (lambda (_exn90425_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89890_)) - (let ((_e89892_ + (class-instance? RuntimeException::t _exn90425_)) + (let ((_e90427_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89890_ 'exception)))) - (macro-no-such-file-or-directory-exception? _e89892_)) - (macro-no-such-file-or-directory-exception? _exn89890_)))) + (unchecked-slot-ref _exn90425_ 'exception)))) + (macro-no-such-file-or-directory-exception? _e90427_)) + (macro-no-such-file-or-directory-exception? _exn90425_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_exn89886_) + (lambda (_exn90421_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89886_)) - (let ((_e89888_ + (class-instance? RuntimeException::t _exn90421_)) + (let ((_e90423_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89886_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e89888_) + (unchecked-slot-ref _exn90421_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e90423_) (macro-no-such-file-or-directory-exception-arguments - _e89888_) + _e90423_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp95251 + (let ((__tmp95886 (let () (declare (not safe)) - (cons _e89888_ '())))) + (cons _e90423_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp95251))))) - (if (macro-no-such-file-or-directory-exception? _exn89886_) + __tmp95886))))) + (if (macro-no-such-file-or-directory-exception? _exn90421_) (macro-no-such-file-or-directory-exception-arguments - _exn89886_) + _exn90421_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp95250 + (let ((__tmp95885 (let () (declare (not safe)) - (cons _exn89886_ '())))) + (cons _exn90421_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp95250))))))) + __tmp95885))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_exn89880_) + (lambda (_exn90415_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89880_)) - (let ((_e89883_ + (class-instance? RuntimeException::t _exn90415_)) + (let ((_e90418_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89880_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e89883_) + (unchecked-slot-ref _exn90415_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e90418_) (macro-no-such-file-or-directory-exception-procedure - _e89883_) + _e90418_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp95253 + (let ((__tmp95888 (let () (declare (not safe)) - (cons _e89883_ '())))) + (cons _e90418_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp95253))))) - (if (macro-no-such-file-or-directory-exception? _exn89880_) + __tmp95888))))) + (if (macro-no-such-file-or-directory-exception? _exn90415_) (macro-no-such-file-or-directory-exception-procedure - _exn89880_) + _exn90415_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp95252 + (let ((__tmp95887 (let () (declare (not safe)) - (cons _exn89880_ '())))) + (cons _exn90415_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp95252))))))) + __tmp95887))))))) (define noncontinuable-exception? - (lambda (_exn89876_) + (lambda (_exn90411_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89876_)) - (let ((_e89878_ + (class-instance? RuntimeException::t _exn90411_)) + (let ((_e90413_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89876_ 'exception)))) - (macro-noncontinuable-exception? _e89878_)) - (macro-noncontinuable-exception? _exn89876_)))) + (unchecked-slot-ref _exn90411_ 'exception)))) + (macro-noncontinuable-exception? _e90413_)) + (macro-noncontinuable-exception? _exn90411_)))) (define noncontinuable-exception-reason - (lambda (_exn89870_) + (lambda (_exn90405_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89870_)) - (let ((_e89873_ + (class-instance? RuntimeException::t _exn90405_)) + (let ((_e90408_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89870_ 'exception)))) - (if (macro-noncontinuable-exception? _e89873_) - (macro-noncontinuable-exception-reason _e89873_) + (unchecked-slot-ref _exn90405_ 'exception)))) + (if (macro-noncontinuable-exception? _e90408_) + (macro-noncontinuable-exception-reason _e90408_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp95255 + (let ((__tmp95890 (let () (declare (not safe)) - (cons _e89873_ '())))) + (cons _e90408_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp95255))))) - (if (macro-noncontinuable-exception? _exn89870_) - (macro-noncontinuable-exception-reason _exn89870_) + __tmp95890))))) + (if (macro-noncontinuable-exception? _exn90405_) + (macro-noncontinuable-exception-reason _exn90405_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp95254 + (let ((__tmp95889 (let () (declare (not safe)) - (cons _exn89870_ '())))) + (cons _exn90405_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp95254))))))) + __tmp95889))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_exn89866_) + (lambda (_exn90401_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89866_)) - (let ((_e89868_ + (class-instance? RuntimeException::t _exn90401_)) + (let ((_e90403_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89866_ 'exception)))) - (macro-nonempty-input-port-character-buffer-exception? _e89868_)) + (unchecked-slot-ref _exn90401_ 'exception)))) + (macro-nonempty-input-port-character-buffer-exception? _e90403_)) (macro-nonempty-input-port-character-buffer-exception? - _exn89866_)))) + _exn90401_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_exn89862_) + (lambda (_exn90397_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89862_)) - (let ((_e89864_ + (class-instance? RuntimeException::t _exn90397_)) + (let ((_e90399_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89862_ 'exception)))) + (unchecked-slot-ref _exn90397_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e89864_) + _e90399_) (macro-nonempty-input-port-character-buffer-exception-arguments - _e89864_) + _e90399_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp95257 + (let ((__tmp95892 (let () (declare (not safe)) - (cons _e89864_ '())))) + (cons _e90399_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp95257))))) + __tmp95892))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn89862_) + _exn90397_) (macro-nonempty-input-port-character-buffer-exception-arguments - _exn89862_) + _exn90397_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp95256 + (let ((__tmp95891 (let () (declare (not safe)) - (cons _exn89862_ '())))) + (cons _exn90397_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp95256))))))) + __tmp95891))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_exn89856_) + (lambda (_exn90391_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89856_)) - (let ((_e89859_ + (class-instance? RuntimeException::t _exn90391_)) + (let ((_e90394_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89856_ 'exception)))) + (unchecked-slot-ref _exn90391_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e89859_) + _e90394_) (macro-nonempty-input-port-character-buffer-exception-procedure - _e89859_) + _e90394_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp95259 + (let ((__tmp95894 (let () (declare (not safe)) - (cons _e89859_ '())))) + (cons _e90394_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp95259))))) + __tmp95894))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn89856_) + _exn90391_) (macro-nonempty-input-port-character-buffer-exception-procedure - _exn89856_) + _exn90391_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp95258 + (let ((__tmp95893 (let () (declare (not safe)) - (cons _exn89856_ '())))) + (cons _exn90391_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp95258))))))) + __tmp95893))))))) (define nonprocedure-operator-exception? - (lambda (_exn89852_) + (lambda (_exn90387_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89852_)) - (let ((_e89854_ + (class-instance? RuntimeException::t _exn90387_)) + (let ((_e90389_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89852_ 'exception)))) - (macro-nonprocedure-operator-exception? _e89854_)) - (macro-nonprocedure-operator-exception? _exn89852_)))) + (unchecked-slot-ref _exn90387_ 'exception)))) + (macro-nonprocedure-operator-exception? _e90389_)) + (macro-nonprocedure-operator-exception? _exn90387_)))) (define nonprocedure-operator-exception-arguments - (lambda (_exn89848_) + (lambda (_exn90383_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89848_)) - (let ((_e89850_ + (class-instance? RuntimeException::t _exn90383_)) + (let ((_e90385_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89848_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e89850_) - (macro-nonprocedure-operator-exception-arguments _e89850_) + (unchecked-slot-ref _exn90383_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e90385_) + (macro-nonprocedure-operator-exception-arguments _e90385_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp95261 + (let ((__tmp95896 (let () (declare (not safe)) - (cons _e89850_ '())))) + (cons _e90385_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp95261))))) - (if (macro-nonprocedure-operator-exception? _exn89848_) - (macro-nonprocedure-operator-exception-arguments _exn89848_) + __tmp95896))))) + (if (macro-nonprocedure-operator-exception? _exn90383_) + (macro-nonprocedure-operator-exception-arguments _exn90383_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp95260 + (let ((__tmp95895 (let () (declare (not safe)) - (cons _exn89848_ '())))) + (cons _exn90383_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp95260))))))) + __tmp95895))))))) (define nonprocedure-operator-exception-code - (lambda (_exn89844_) + (lambda (_exn90379_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89844_)) - (let ((_e89846_ + (class-instance? RuntimeException::t _exn90379_)) + (let ((_e90381_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89844_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e89846_) - (macro-nonprocedure-operator-exception-code _e89846_) + (unchecked-slot-ref _exn90379_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e90381_) + (macro-nonprocedure-operator-exception-code _e90381_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp95263 + (let ((__tmp95898 (let () (declare (not safe)) - (cons _e89846_ '())))) + (cons _e90381_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp95263))))) - (if (macro-nonprocedure-operator-exception? _exn89844_) - (macro-nonprocedure-operator-exception-code _exn89844_) + __tmp95898))))) + (if (macro-nonprocedure-operator-exception? _exn90379_) + (macro-nonprocedure-operator-exception-code _exn90379_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp95262 + (let ((__tmp95897 (let () (declare (not safe)) - (cons _exn89844_ '())))) + (cons _exn90379_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp95262))))))) + __tmp95897))))))) (define nonprocedure-operator-exception-operator - (lambda (_exn89840_) + (lambda (_exn90375_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89840_)) - (let ((_e89842_ + (class-instance? RuntimeException::t _exn90375_)) + (let ((_e90377_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89840_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e89842_) - (macro-nonprocedure-operator-exception-operator _e89842_) + (unchecked-slot-ref _exn90375_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e90377_) + (macro-nonprocedure-operator-exception-operator _e90377_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp95265 + (let ((__tmp95900 (let () (declare (not safe)) - (cons _e89842_ '())))) + (cons _e90377_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp95265))))) - (if (macro-nonprocedure-operator-exception? _exn89840_) - (macro-nonprocedure-operator-exception-operator _exn89840_) + __tmp95900))))) + (if (macro-nonprocedure-operator-exception? _exn90375_) + (macro-nonprocedure-operator-exception-operator _exn90375_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp95264 + (let ((__tmp95899 (let () (declare (not safe)) - (cons _exn89840_ '())))) + (cons _exn90375_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp95264))))))) + __tmp95899))))))) (define nonprocedure-operator-exception-rte - (lambda (_exn89834_) + (lambda (_exn90369_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89834_)) - (let ((_e89837_ + (class-instance? RuntimeException::t _exn90369_)) + (let ((_e90372_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89834_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e89837_) - (macro-nonprocedure-operator-exception-rte _e89837_) + (unchecked-slot-ref _exn90369_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e90372_) + (macro-nonprocedure-operator-exception-rte _e90372_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp95267 + (let ((__tmp95902 (let () (declare (not safe)) - (cons _e89837_ '())))) + (cons _e90372_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp95267))))) - (if (macro-nonprocedure-operator-exception? _exn89834_) - (macro-nonprocedure-operator-exception-rte _exn89834_) + __tmp95902))))) + (if (macro-nonprocedure-operator-exception? _exn90369_) + (macro-nonprocedure-operator-exception-rte _exn90369_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp95266 + (let ((__tmp95901 (let () (declare (not safe)) - (cons _exn89834_ '())))) + (cons _exn90369_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp95266))))))) + __tmp95901))))))) (define not-in-compilation-context-exception? - (lambda (_exn89830_) + (lambda (_exn90365_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89830_)) - (let ((_e89832_ + (class-instance? RuntimeException::t _exn90365_)) + (let ((_e90367_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89830_ 'exception)))) - (macro-not-in-compilation-context-exception? _e89832_)) - (macro-not-in-compilation-context-exception? _exn89830_)))) + (unchecked-slot-ref _exn90365_ 'exception)))) + (macro-not-in-compilation-context-exception? _e90367_)) + (macro-not-in-compilation-context-exception? _exn90365_)))) (define not-in-compilation-context-exception-arguments - (lambda (_exn89826_) + (lambda (_exn90361_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89826_)) - (let ((_e89828_ + (class-instance? RuntimeException::t _exn90361_)) + (let ((_e90363_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89826_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e89828_) + (unchecked-slot-ref _exn90361_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e90363_) (macro-not-in-compilation-context-exception-arguments - _e89828_) + _e90363_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp95269 + (let ((__tmp95904 (let () (declare (not safe)) - (cons _e89828_ '())))) + (cons _e90363_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp95269))))) - (if (macro-not-in-compilation-context-exception? _exn89826_) + __tmp95904))))) + (if (macro-not-in-compilation-context-exception? _exn90361_) (macro-not-in-compilation-context-exception-arguments - _exn89826_) + _exn90361_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp95268 + (let ((__tmp95903 (let () (declare (not safe)) - (cons _exn89826_ '())))) + (cons _exn90361_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp95268))))))) + __tmp95903))))))) (define not-in-compilation-context-exception-procedure - (lambda (_exn89820_) + (lambda (_exn90355_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89820_)) - (let ((_e89823_ + (class-instance? RuntimeException::t _exn90355_)) + (let ((_e90358_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89820_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e89823_) + (unchecked-slot-ref _exn90355_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e90358_) (macro-not-in-compilation-context-exception-procedure - _e89823_) + _e90358_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp95271 + (let ((__tmp95906 (let () (declare (not safe)) - (cons _e89823_ '())))) + (cons _e90358_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp95271))))) - (if (macro-not-in-compilation-context-exception? _exn89820_) + __tmp95906))))) + (if (macro-not-in-compilation-context-exception? _exn90355_) (macro-not-in-compilation-context-exception-procedure - _exn89820_) + _exn90355_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp95270 + (let ((__tmp95905 (let () (declare (not safe)) - (cons _exn89820_ '())))) + (cons _exn90355_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp95270))))))) + __tmp95905))))))) (define number-of-arguments-limit-exception? - (lambda (_exn89816_) + (lambda (_exn90351_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89816_)) - (let ((_e89818_ + (class-instance? RuntimeException::t _exn90351_)) + (let ((_e90353_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89816_ 'exception)))) - (macro-number-of-arguments-limit-exception? _e89818_)) - (macro-number-of-arguments-limit-exception? _exn89816_)))) + (unchecked-slot-ref _exn90351_ 'exception)))) + (macro-number-of-arguments-limit-exception? _e90353_)) + (macro-number-of-arguments-limit-exception? _exn90351_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_exn89812_) + (lambda (_exn90347_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89812_)) - (let ((_e89814_ + (class-instance? RuntimeException::t _exn90347_)) + (let ((_e90349_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89812_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e89814_) + (unchecked-slot-ref _exn90347_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e90349_) (macro-number-of-arguments-limit-exception-arguments - _e89814_) + _e90349_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp95273 + (let ((__tmp95908 (let () (declare (not safe)) - (cons _e89814_ '())))) + (cons _e90349_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp95273))))) - (if (macro-number-of-arguments-limit-exception? _exn89812_) + __tmp95908))))) + (if (macro-number-of-arguments-limit-exception? _exn90347_) (macro-number-of-arguments-limit-exception-arguments - _exn89812_) + _exn90347_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp95272 + (let ((__tmp95907 (let () (declare (not safe)) - (cons _exn89812_ '())))) + (cons _exn90347_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp95272))))))) + __tmp95907))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_exn89806_) + (lambda (_exn90341_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89806_)) - (let ((_e89809_ + (class-instance? RuntimeException::t _exn90341_)) + (let ((_e90344_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89806_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e89809_) + (unchecked-slot-ref _exn90341_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e90344_) (macro-number-of-arguments-limit-exception-procedure - _e89809_) + _e90344_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp95275 + (let ((__tmp95910 (let () (declare (not safe)) - (cons _e89809_ '())))) + (cons _e90344_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp95275))))) - (if (macro-number-of-arguments-limit-exception? _exn89806_) + __tmp95910))))) + (if (macro-number-of-arguments-limit-exception? _exn90341_) (macro-number-of-arguments-limit-exception-procedure - _exn89806_) + _exn90341_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp95274 + (let ((__tmp95909 (let () (declare (not safe)) - (cons _exn89806_ '())))) + (cons _exn90341_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp95274))))))) + __tmp95909))))))) (define os-exception? - (lambda (_exn89802_) + (lambda (_exn90337_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89802_)) - (let ((_e89804_ + (class-instance? RuntimeException::t _exn90337_)) + (let ((_e90339_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89802_ 'exception)))) - (macro-os-exception? _e89804_)) - (macro-os-exception? _exn89802_)))) + (unchecked-slot-ref _exn90337_ 'exception)))) + (macro-os-exception? _e90339_)) + (macro-os-exception? _exn90337_)))) (define os-exception-arguments - (lambda (_exn89798_) + (lambda (_exn90333_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89798_)) - (let ((_e89800_ + (class-instance? RuntimeException::t _exn90333_)) + (let ((_e90335_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89798_ 'exception)))) - (if (macro-os-exception? _e89800_) - (macro-os-exception-arguments _e89800_) + (unchecked-slot-ref _exn90333_ 'exception)))) + (if (macro-os-exception? _e90335_) + (macro-os-exception-arguments _e90335_) (error '"not an instance" 'os-exception? - (let ((__tmp95277 + (let ((__tmp95912 (let () (declare (not safe)) - (cons _e89800_ '())))) + (cons _e90335_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp95277))))) - (if (macro-os-exception? _exn89798_) - (macro-os-exception-arguments _exn89798_) + (cons 'os-exception-arguments __tmp95912))))) + (if (macro-os-exception? _exn90333_) + (macro-os-exception-arguments _exn90333_) (error '"not an instance" 'os-exception? - (let ((__tmp95276 + (let ((__tmp95911 (let () (declare (not safe)) - (cons _exn89798_ '())))) + (cons _exn90333_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp95276))))))) + (cons 'os-exception-arguments __tmp95911))))))) (define os-exception-code - (lambda (_exn89794_) + (lambda (_exn90329_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89794_)) - (let ((_e89796_ + (class-instance? RuntimeException::t _exn90329_)) + (let ((_e90331_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89794_ 'exception)))) - (if (macro-os-exception? _e89796_) - (macro-os-exception-code _e89796_) + (unchecked-slot-ref _exn90329_ 'exception)))) + (if (macro-os-exception? _e90331_) + (macro-os-exception-code _e90331_) (error '"not an instance" 'os-exception? - (let ((__tmp95279 + (let ((__tmp95914 (let () (declare (not safe)) - (cons _e89796_ '())))) + (cons _e90331_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp95279))))) - (if (macro-os-exception? _exn89794_) - (macro-os-exception-code _exn89794_) + (cons 'os-exception-code __tmp95914))))) + (if (macro-os-exception? _exn90329_) + (macro-os-exception-code _exn90329_) (error '"not an instance" 'os-exception? - (let ((__tmp95278 + (let ((__tmp95913 (let () (declare (not safe)) - (cons _exn89794_ '())))) + (cons _exn90329_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp95278))))))) + (cons 'os-exception-code __tmp95913))))))) (define os-exception-message - (lambda (_exn89790_) + (lambda (_exn90325_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89790_)) - (let ((_e89792_ + (class-instance? RuntimeException::t _exn90325_)) + (let ((_e90327_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89790_ 'exception)))) - (if (macro-os-exception? _e89792_) - (macro-os-exception-message _e89792_) + (unchecked-slot-ref _exn90325_ 'exception)))) + (if (macro-os-exception? _e90327_) + (macro-os-exception-message _e90327_) (error '"not an instance" 'os-exception? - (let ((__tmp95281 + (let ((__tmp95916 (let () (declare (not safe)) - (cons _e89792_ '())))) + (cons _e90327_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp95281))))) - (if (macro-os-exception? _exn89790_) - (macro-os-exception-message _exn89790_) + (cons 'os-exception-message __tmp95916))))) + (if (macro-os-exception? _exn90325_) + (macro-os-exception-message _exn90325_) (error '"not an instance" 'os-exception? - (let ((__tmp95280 + (let ((__tmp95915 (let () (declare (not safe)) - (cons _exn89790_ '())))) + (cons _exn90325_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp95280))))))) + (cons 'os-exception-message __tmp95915))))))) (define os-exception-procedure - (lambda (_exn89784_) + (lambda (_exn90319_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89784_)) - (let ((_e89787_ + (class-instance? RuntimeException::t _exn90319_)) + (let ((_e90322_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89784_ 'exception)))) - (if (macro-os-exception? _e89787_) - (macro-os-exception-procedure _e89787_) + (unchecked-slot-ref _exn90319_ 'exception)))) + (if (macro-os-exception? _e90322_) + (macro-os-exception-procedure _e90322_) (error '"not an instance" 'os-exception? - (let ((__tmp95283 + (let ((__tmp95918 (let () (declare (not safe)) - (cons _e89787_ '())))) + (cons _e90322_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp95283))))) - (if (macro-os-exception? _exn89784_) - (macro-os-exception-procedure _exn89784_) + (cons 'os-exception-procedure __tmp95918))))) + (if (macro-os-exception? _exn90319_) + (macro-os-exception-procedure _exn90319_) (error '"not an instance" 'os-exception? - (let ((__tmp95282 + (let ((__tmp95917 (let () (declare (not safe)) - (cons _exn89784_ '())))) + (cons _exn90319_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp95282))))))) + (cons 'os-exception-procedure __tmp95917))))))) (define permission-denied-exception? - (lambda (_exn89780_) + (lambda (_exn90315_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89780_)) - (let ((_e89782_ + (class-instance? RuntimeException::t _exn90315_)) + (let ((_e90317_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89780_ 'exception)))) - (macro-permission-denied-exception? _e89782_)) - (macro-permission-denied-exception? _exn89780_)))) + (unchecked-slot-ref _exn90315_ 'exception)))) + (macro-permission-denied-exception? _e90317_)) + (macro-permission-denied-exception? _exn90315_)))) (define permission-denied-exception-arguments - (lambda (_exn89776_) + (lambda (_exn90311_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89776_)) - (let ((_e89778_ + (class-instance? RuntimeException::t _exn90311_)) + (let ((_e90313_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89776_ 'exception)))) - (if (macro-permission-denied-exception? _e89778_) - (macro-permission-denied-exception-arguments _e89778_) + (unchecked-slot-ref _exn90311_ 'exception)))) + (if (macro-permission-denied-exception? _e90313_) + (macro-permission-denied-exception-arguments _e90313_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp95285 + (let ((__tmp95920 (let () (declare (not safe)) - (cons _e89778_ '())))) + (cons _e90313_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp95285))))) - (if (macro-permission-denied-exception? _exn89776_) - (macro-permission-denied-exception-arguments _exn89776_) + __tmp95920))))) + (if (macro-permission-denied-exception? _exn90311_) + (macro-permission-denied-exception-arguments _exn90311_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp95284 + (let ((__tmp95919 (let () (declare (not safe)) - (cons _exn89776_ '())))) + (cons _exn90311_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp95284))))))) + __tmp95919))))))) (define permission-denied-exception-procedure - (lambda (_exn89770_) + (lambda (_exn90305_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89770_)) - (let ((_e89773_ + (class-instance? RuntimeException::t _exn90305_)) + (let ((_e90308_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89770_ 'exception)))) - (if (macro-permission-denied-exception? _e89773_) - (macro-permission-denied-exception-procedure _e89773_) + (unchecked-slot-ref _exn90305_ 'exception)))) + (if (macro-permission-denied-exception? _e90308_) + (macro-permission-denied-exception-procedure _e90308_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp95287 + (let ((__tmp95922 (let () (declare (not safe)) - (cons _e89773_ '())))) + (cons _e90308_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp95287))))) - (if (macro-permission-denied-exception? _exn89770_) - (macro-permission-denied-exception-procedure _exn89770_) + __tmp95922))))) + (if (macro-permission-denied-exception? _exn90305_) + (macro-permission-denied-exception-procedure _exn90305_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp95286 + (let ((__tmp95921 (let () (declare (not safe)) - (cons _exn89770_ '())))) + (cons _exn90305_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp95286))))))) + __tmp95921))))))) (define range-exception? - (lambda (_exn89766_) + (lambda (_exn90301_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89766_)) - (let ((_e89768_ + (class-instance? RuntimeException::t _exn90301_)) + (let ((_e90303_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89766_ 'exception)))) - (macro-range-exception? _e89768_)) - (macro-range-exception? _exn89766_)))) + (unchecked-slot-ref _exn90301_ 'exception)))) + (macro-range-exception? _e90303_)) + (macro-range-exception? _exn90301_)))) (define range-exception-arg-id - (lambda (_exn89762_) + (lambda (_exn90297_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89762_)) - (let ((_e89764_ + (class-instance? RuntimeException::t _exn90297_)) + (let ((_e90299_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89762_ 'exception)))) - (if (macro-range-exception? _e89764_) - (macro-range-exception-arg-id _e89764_) + (unchecked-slot-ref _exn90297_ 'exception)))) + (if (macro-range-exception? _e90299_) + (macro-range-exception-arg-id _e90299_) (error '"not an instance" 'range-exception? - (let ((__tmp95289 + (let ((__tmp95924 (let () (declare (not safe)) - (cons _e89764_ '())))) + (cons _e90299_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp95289))))) - (if (macro-range-exception? _exn89762_) - (macro-range-exception-arg-id _exn89762_) + (cons 'range-exception-arg-id __tmp95924))))) + (if (macro-range-exception? _exn90297_) + (macro-range-exception-arg-id _exn90297_) (error '"not an instance" 'range-exception? - (let ((__tmp95288 + (let ((__tmp95923 (let () (declare (not safe)) - (cons _exn89762_ '())))) + (cons _exn90297_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp95288))))))) + (cons 'range-exception-arg-id __tmp95923))))))) (define range-exception-arguments - (lambda (_exn89758_) + (lambda (_exn90293_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89758_)) - (let ((_e89760_ + (class-instance? RuntimeException::t _exn90293_)) + (let ((_e90295_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89758_ 'exception)))) - (if (macro-range-exception? _e89760_) - (macro-range-exception-arguments _e89760_) + (unchecked-slot-ref _exn90293_ 'exception)))) + (if (macro-range-exception? _e90295_) + (macro-range-exception-arguments _e90295_) (error '"not an instance" 'range-exception? - (let ((__tmp95291 + (let ((__tmp95926 (let () (declare (not safe)) - (cons _e89760_ '())))) + (cons _e90295_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp95291))))) - (if (macro-range-exception? _exn89758_) - (macro-range-exception-arguments _exn89758_) + (cons 'range-exception-arguments __tmp95926))))) + (if (macro-range-exception? _exn90293_) + (macro-range-exception-arguments _exn90293_) (error '"not an instance" 'range-exception? - (let ((__tmp95290 + (let ((__tmp95925 (let () (declare (not safe)) - (cons _exn89758_ '())))) + (cons _exn90293_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp95290))))))) + (cons 'range-exception-arguments __tmp95925))))))) (define range-exception-procedure - (lambda (_exn89752_) + (lambda (_exn90287_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89752_)) - (let ((_e89755_ + (class-instance? RuntimeException::t _exn90287_)) + (let ((_e90290_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89752_ 'exception)))) - (if (macro-range-exception? _e89755_) - (macro-range-exception-procedure _e89755_) + (unchecked-slot-ref _exn90287_ 'exception)))) + (if (macro-range-exception? _e90290_) + (macro-range-exception-procedure _e90290_) (error '"not an instance" 'range-exception? - (let ((__tmp95293 + (let ((__tmp95928 (let () (declare (not safe)) - (cons _e89755_ '())))) + (cons _e90290_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp95293))))) - (if (macro-range-exception? _exn89752_) - (macro-range-exception-procedure _exn89752_) + (cons 'range-exception-procedure __tmp95928))))) + (if (macro-range-exception? _exn90287_) + (macro-range-exception-procedure _exn90287_) (error '"not an instance" 'range-exception? - (let ((__tmp95292 + (let ((__tmp95927 (let () (declare (not safe)) - (cons _exn89752_ '())))) + (cons _exn90287_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp95292))))))) + (cons 'range-exception-procedure __tmp95927))))))) (define rpc-remote-error-exception? - (lambda (_exn89748_) + (lambda (_exn90283_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89748_)) - (let ((_e89750_ + (class-instance? RuntimeException::t _exn90283_)) + (let ((_e90285_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89748_ 'exception)))) - (macro-rpc-remote-error-exception? _e89750_)) - (macro-rpc-remote-error-exception? _exn89748_)))) + (unchecked-slot-ref _exn90283_ 'exception)))) + (macro-rpc-remote-error-exception? _e90285_)) + (macro-rpc-remote-error-exception? _exn90283_)))) (define rpc-remote-error-exception-arguments - (lambda (_exn89744_) + (lambda (_exn90279_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89744_)) - (let ((_e89746_ + (class-instance? RuntimeException::t _exn90279_)) + (let ((_e90281_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89744_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e89746_) - (macro-rpc-remote-error-exception-arguments _e89746_) + (unchecked-slot-ref _exn90279_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e90281_) + (macro-rpc-remote-error-exception-arguments _e90281_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp95295 + (let ((__tmp95930 (let () (declare (not safe)) - (cons _e89746_ '())))) + (cons _e90281_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp95295))))) - (if (macro-rpc-remote-error-exception? _exn89744_) - (macro-rpc-remote-error-exception-arguments _exn89744_) + __tmp95930))))) + (if (macro-rpc-remote-error-exception? _exn90279_) + (macro-rpc-remote-error-exception-arguments _exn90279_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp95294 + (let ((__tmp95929 (let () (declare (not safe)) - (cons _exn89744_ '())))) + (cons _exn90279_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp95294))))))) + __tmp95929))))))) (define rpc-remote-error-exception-message - (lambda (_exn89740_) + (lambda (_exn90275_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89740_)) - (let ((_e89742_ + (class-instance? RuntimeException::t _exn90275_)) + (let ((_e90277_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89740_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e89742_) - (macro-rpc-remote-error-exception-message _e89742_) + (unchecked-slot-ref _exn90275_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e90277_) + (macro-rpc-remote-error-exception-message _e90277_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp95297 + (let ((__tmp95932 (let () (declare (not safe)) - (cons _e89742_ '())))) + (cons _e90277_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp95297))))) - (if (macro-rpc-remote-error-exception? _exn89740_) - (macro-rpc-remote-error-exception-message _exn89740_) + __tmp95932))))) + (if (macro-rpc-remote-error-exception? _exn90275_) + (macro-rpc-remote-error-exception-message _exn90275_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp95296 + (let ((__tmp95931 (let () (declare (not safe)) - (cons _exn89740_ '())))) + (cons _exn90275_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp95296))))))) + __tmp95931))))))) (define rpc-remote-error-exception-procedure - (lambda (_exn89734_) + (lambda (_exn90269_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89734_)) - (let ((_e89737_ + (class-instance? RuntimeException::t _exn90269_)) + (let ((_e90272_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89734_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e89737_) - (macro-rpc-remote-error-exception-procedure _e89737_) + (unchecked-slot-ref _exn90269_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e90272_) + (macro-rpc-remote-error-exception-procedure _e90272_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp95299 + (let ((__tmp95934 (let () (declare (not safe)) - (cons _e89737_ '())))) + (cons _e90272_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp95299))))) - (if (macro-rpc-remote-error-exception? _exn89734_) - (macro-rpc-remote-error-exception-procedure _exn89734_) + __tmp95934))))) + (if (macro-rpc-remote-error-exception? _exn90269_) + (macro-rpc-remote-error-exception-procedure _exn90269_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp95298 + (let ((__tmp95933 (let () (declare (not safe)) - (cons _exn89734_ '())))) + (cons _exn90269_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp95298))))))) + __tmp95933))))))) (define scheduler-exception? - (lambda (_exn89730_) + (lambda (_exn90265_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89730_)) - (let ((_e89732_ + (class-instance? RuntimeException::t _exn90265_)) + (let ((_e90267_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89730_ 'exception)))) - (macro-scheduler-exception? _e89732_)) - (macro-scheduler-exception? _exn89730_)))) + (unchecked-slot-ref _exn90265_ 'exception)))) + (macro-scheduler-exception? _e90267_)) + (macro-scheduler-exception? _exn90265_)))) (define scheduler-exception-reason - (lambda (_exn89724_) + (lambda (_exn90259_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89724_)) - (let ((_e89727_ + (class-instance? RuntimeException::t _exn90259_)) + (let ((_e90262_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89724_ 'exception)))) - (if (macro-scheduler-exception? _e89727_) - (macro-scheduler-exception-reason _e89727_) + (unchecked-slot-ref _exn90259_ 'exception)))) + (if (macro-scheduler-exception? _e90262_) + (macro-scheduler-exception-reason _e90262_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp95301 + (let ((__tmp95936 (let () (declare (not safe)) - (cons _e89727_ '())))) + (cons _e90262_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp95301))))) - (if (macro-scheduler-exception? _exn89724_) - (macro-scheduler-exception-reason _exn89724_) + (cons 'scheduler-exception-reason __tmp95936))))) + (if (macro-scheduler-exception? _exn90259_) + (macro-scheduler-exception-reason _exn90259_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp95300 + (let ((__tmp95935 (let () (declare (not safe)) - (cons _exn89724_ '())))) + (cons _exn90259_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp95300))))))) + (cons 'scheduler-exception-reason __tmp95935))))))) (define sfun-conversion-exception? - (lambda (_exn89720_) + (lambda (_exn90255_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89720_)) - (let ((_e89722_ + (class-instance? RuntimeException::t _exn90255_)) + (let ((_e90257_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89720_ 'exception)))) - (macro-sfun-conversion-exception? _e89722_)) - (macro-sfun-conversion-exception? _exn89720_)))) + (unchecked-slot-ref _exn90255_ 'exception)))) + (macro-sfun-conversion-exception? _e90257_)) + (macro-sfun-conversion-exception? _exn90255_)))) (define sfun-conversion-exception-arguments - (lambda (_exn89716_) + (lambda (_exn90251_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89716_)) - (let ((_e89718_ + (class-instance? RuntimeException::t _exn90251_)) + (let ((_e90253_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89716_ 'exception)))) - (if (macro-sfun-conversion-exception? _e89718_) - (macro-sfun-conversion-exception-arguments _e89718_) + (unchecked-slot-ref _exn90251_ 'exception)))) + (if (macro-sfun-conversion-exception? _e90253_) + (macro-sfun-conversion-exception-arguments _e90253_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp95303 + (let ((__tmp95938 (let () (declare (not safe)) - (cons _e89718_ '())))) + (cons _e90253_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp95303))))) - (if (macro-sfun-conversion-exception? _exn89716_) - (macro-sfun-conversion-exception-arguments _exn89716_) + __tmp95938))))) + (if (macro-sfun-conversion-exception? _exn90251_) + (macro-sfun-conversion-exception-arguments _exn90251_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp95302 + (let ((__tmp95937 (let () (declare (not safe)) - (cons _exn89716_ '())))) + (cons _exn90251_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp95302))))))) + __tmp95937))))))) (define sfun-conversion-exception-code - (lambda (_exn89712_) + (lambda (_exn90247_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89712_)) - (let ((_e89714_ + (class-instance? RuntimeException::t _exn90247_)) + (let ((_e90249_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89712_ 'exception)))) - (if (macro-sfun-conversion-exception? _e89714_) - (macro-sfun-conversion-exception-code _e89714_) + (unchecked-slot-ref _exn90247_ 'exception)))) + (if (macro-sfun-conversion-exception? _e90249_) + (macro-sfun-conversion-exception-code _e90249_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp95305 + (let ((__tmp95940 (let () (declare (not safe)) - (cons _e89714_ '())))) + (cons _e90249_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp95305))))) - (if (macro-sfun-conversion-exception? _exn89712_) - (macro-sfun-conversion-exception-code _exn89712_) + __tmp95940))))) + (if (macro-sfun-conversion-exception? _exn90247_) + (macro-sfun-conversion-exception-code _exn90247_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp95304 + (let ((__tmp95939 (let () (declare (not safe)) - (cons _exn89712_ '())))) + (cons _exn90247_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp95304))))))) + __tmp95939))))))) (define sfun-conversion-exception-message - (lambda (_exn89708_) + (lambda (_exn90243_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89708_)) - (let ((_e89710_ + (class-instance? RuntimeException::t _exn90243_)) + (let ((_e90245_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89708_ 'exception)))) - (if (macro-sfun-conversion-exception? _e89710_) - (macro-sfun-conversion-exception-message _e89710_) + (unchecked-slot-ref _exn90243_ 'exception)))) + (if (macro-sfun-conversion-exception? _e90245_) + (macro-sfun-conversion-exception-message _e90245_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp95307 + (let ((__tmp95942 (let () (declare (not safe)) - (cons _e89710_ '())))) + (cons _e90245_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp95307))))) - (if (macro-sfun-conversion-exception? _exn89708_) - (macro-sfun-conversion-exception-message _exn89708_) + __tmp95942))))) + (if (macro-sfun-conversion-exception? _exn90243_) + (macro-sfun-conversion-exception-message _exn90243_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp95306 + (let ((__tmp95941 (let () (declare (not safe)) - (cons _exn89708_ '())))) + (cons _exn90243_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp95306))))))) + __tmp95941))))))) (define sfun-conversion-exception-procedure - (lambda (_exn89702_) + (lambda (_exn90237_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89702_)) - (let ((_e89705_ + (class-instance? RuntimeException::t _exn90237_)) + (let ((_e90240_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89702_ 'exception)))) - (if (macro-sfun-conversion-exception? _e89705_) - (macro-sfun-conversion-exception-procedure _e89705_) + (unchecked-slot-ref _exn90237_ 'exception)))) + (if (macro-sfun-conversion-exception? _e90240_) + (macro-sfun-conversion-exception-procedure _e90240_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp95309 + (let ((__tmp95944 (let () (declare (not safe)) - (cons _e89705_ '())))) + (cons _e90240_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp95309))))) - (if (macro-sfun-conversion-exception? _exn89702_) - (macro-sfun-conversion-exception-procedure _exn89702_) + __tmp95944))))) + (if (macro-sfun-conversion-exception? _exn90237_) + (macro-sfun-conversion-exception-procedure _exn90237_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp95308 + (let ((__tmp95943 (let () (declare (not safe)) - (cons _exn89702_ '())))) + (cons _exn90237_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp95308))))))) + __tmp95943))))))) (define stack-overflow-exception? - (lambda (_exn89696_) + (lambda (_exn90231_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89696_)) - (let ((_e89699_ + (class-instance? RuntimeException::t _exn90231_)) + (let ((_e90234_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89696_ 'exception)))) - (macro-stack-overflow-exception? _e89699_)) - (macro-stack-overflow-exception? _exn89696_)))) + (unchecked-slot-ref _exn90231_ 'exception)))) + (macro-stack-overflow-exception? _e90234_)) + (macro-stack-overflow-exception? _exn90231_)))) (define started-thread-exception? - (lambda (_exn89692_) + (lambda (_exn90227_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89692_)) - (let ((_e89694_ + (class-instance? RuntimeException::t _exn90227_)) + (let ((_e90229_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89692_ 'exception)))) - (macro-started-thread-exception? _e89694_)) - (macro-started-thread-exception? _exn89692_)))) + (unchecked-slot-ref _exn90227_ 'exception)))) + (macro-started-thread-exception? _e90229_)) + (macro-started-thread-exception? _exn90227_)))) (define started-thread-exception-arguments - (lambda (_exn89688_) + (lambda (_exn90223_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89688_)) - (let ((_e89690_ + (class-instance? RuntimeException::t _exn90223_)) + (let ((_e90225_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89688_ 'exception)))) - (if (macro-started-thread-exception? _e89690_) - (macro-started-thread-exception-arguments _e89690_) + (unchecked-slot-ref _exn90223_ 'exception)))) + (if (macro-started-thread-exception? _e90225_) + (macro-started-thread-exception-arguments _e90225_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp95311 + (let ((__tmp95946 (let () (declare (not safe)) - (cons _e89690_ '())))) + (cons _e90225_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp95311))))) - (if (macro-started-thread-exception? _exn89688_) - (macro-started-thread-exception-arguments _exn89688_) + __tmp95946))))) + (if (macro-started-thread-exception? _exn90223_) + (macro-started-thread-exception-arguments _exn90223_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp95310 + (let ((__tmp95945 (let () (declare (not safe)) - (cons _exn89688_ '())))) + (cons _exn90223_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp95310))))))) + __tmp95945))))))) (define started-thread-exception-procedure - (lambda (_exn89682_) + (lambda (_exn90217_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89682_)) - (let ((_e89685_ + (class-instance? RuntimeException::t _exn90217_)) + (let ((_e90220_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89682_ 'exception)))) - (if (macro-started-thread-exception? _e89685_) - (macro-started-thread-exception-procedure _e89685_) + (unchecked-slot-ref _exn90217_ 'exception)))) + (if (macro-started-thread-exception? _e90220_) + (macro-started-thread-exception-procedure _e90220_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp95313 + (let ((__tmp95948 (let () (declare (not safe)) - (cons _e89685_ '())))) + (cons _e90220_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp95313))))) - (if (macro-started-thread-exception? _exn89682_) - (macro-started-thread-exception-procedure _exn89682_) + __tmp95948))))) + (if (macro-started-thread-exception? _exn90217_) + (macro-started-thread-exception-procedure _exn90217_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp95312 + (let ((__tmp95947 (let () (declare (not safe)) - (cons _exn89682_ '())))) + (cons _exn90217_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp95312))))))) + __tmp95947))))))) (define terminated-thread-exception? - (lambda (_exn89678_) + (lambda (_exn90213_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89678_)) - (let ((_e89680_ + (class-instance? RuntimeException::t _exn90213_)) + (let ((_e90215_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89678_ 'exception)))) - (macro-terminated-thread-exception? _e89680_)) - (macro-terminated-thread-exception? _exn89678_)))) + (unchecked-slot-ref _exn90213_ 'exception)))) + (macro-terminated-thread-exception? _e90215_)) + (macro-terminated-thread-exception? _exn90213_)))) (define terminated-thread-exception-arguments - (lambda (_exn89674_) + (lambda (_exn90209_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89674_)) - (let ((_e89676_ + (class-instance? RuntimeException::t _exn90209_)) + (let ((_e90211_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89674_ 'exception)))) - (if (macro-terminated-thread-exception? _e89676_) - (macro-terminated-thread-exception-arguments _e89676_) + (unchecked-slot-ref _exn90209_ 'exception)))) + (if (macro-terminated-thread-exception? _e90211_) + (macro-terminated-thread-exception-arguments _e90211_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp95315 + (let ((__tmp95950 (let () (declare (not safe)) - (cons _e89676_ '())))) + (cons _e90211_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp95315))))) - (if (macro-terminated-thread-exception? _exn89674_) - (macro-terminated-thread-exception-arguments _exn89674_) + __tmp95950))))) + (if (macro-terminated-thread-exception? _exn90209_) + (macro-terminated-thread-exception-arguments _exn90209_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp95314 + (let ((__tmp95949 (let () (declare (not safe)) - (cons _exn89674_ '())))) + (cons _exn90209_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp95314))))))) + __tmp95949))))))) (define terminated-thread-exception-procedure - (lambda (_exn89668_) + (lambda (_exn90203_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89668_)) - (let ((_e89671_ + (class-instance? RuntimeException::t _exn90203_)) + (let ((_e90206_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89668_ 'exception)))) - (if (macro-terminated-thread-exception? _e89671_) - (macro-terminated-thread-exception-procedure _e89671_) + (unchecked-slot-ref _exn90203_ 'exception)))) + (if (macro-terminated-thread-exception? _e90206_) + (macro-terminated-thread-exception-procedure _e90206_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp95317 + (let ((__tmp95952 (let () (declare (not safe)) - (cons _e89671_ '())))) + (cons _e90206_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp95317))))) - (if (macro-terminated-thread-exception? _exn89668_) - (macro-terminated-thread-exception-procedure _exn89668_) + __tmp95952))))) + (if (macro-terminated-thread-exception? _exn90203_) + (macro-terminated-thread-exception-procedure _exn90203_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp95316 + (let ((__tmp95951 (let () (declare (not safe)) - (cons _exn89668_ '())))) + (cons _exn90203_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp95316))))))) + __tmp95951))))))) (define type-exception? - (lambda (_exn89664_) + (lambda (_exn90199_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89664_)) - (let ((_e89666_ + (class-instance? RuntimeException::t _exn90199_)) + (let ((_e90201_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89664_ 'exception)))) - (macro-type-exception? _e89666_)) - (macro-type-exception? _exn89664_)))) + (unchecked-slot-ref _exn90199_ 'exception)))) + (macro-type-exception? _e90201_)) + (macro-type-exception? _exn90199_)))) (define type-exception-arg-id - (lambda (_exn89660_) + (lambda (_exn90195_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89660_)) - (let ((_e89662_ + (class-instance? RuntimeException::t _exn90195_)) + (let ((_e90197_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89660_ 'exception)))) - (if (macro-type-exception? _e89662_) - (macro-type-exception-arg-id _e89662_) + (unchecked-slot-ref _exn90195_ 'exception)))) + (if (macro-type-exception? _e90197_) + (macro-type-exception-arg-id _e90197_) (error '"not an instance" 'type-exception? - (let ((__tmp95319 + (let ((__tmp95954 (let () (declare (not safe)) - (cons _e89662_ '())))) + (cons _e90197_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp95319))))) - (if (macro-type-exception? _exn89660_) - (macro-type-exception-arg-id _exn89660_) + (cons 'type-exception-arg-id __tmp95954))))) + (if (macro-type-exception? _exn90195_) + (macro-type-exception-arg-id _exn90195_) (error '"not an instance" 'type-exception? - (let ((__tmp95318 + (let ((__tmp95953 (let () (declare (not safe)) - (cons _exn89660_ '())))) + (cons _exn90195_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp95318))))))) + (cons 'type-exception-arg-id __tmp95953))))))) (define type-exception-arguments - (lambda (_exn89656_) + (lambda (_exn90191_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89656_)) - (let ((_e89658_ + (class-instance? RuntimeException::t _exn90191_)) + (let ((_e90193_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89656_ 'exception)))) - (if (macro-type-exception? _e89658_) - (macro-type-exception-arguments _e89658_) + (unchecked-slot-ref _exn90191_ 'exception)))) + (if (macro-type-exception? _e90193_) + (macro-type-exception-arguments _e90193_) (error '"not an instance" 'type-exception? - (let ((__tmp95321 + (let ((__tmp95956 (let () (declare (not safe)) - (cons _e89658_ '())))) + (cons _e90193_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp95321))))) - (if (macro-type-exception? _exn89656_) - (macro-type-exception-arguments _exn89656_) + (cons 'type-exception-arguments __tmp95956))))) + (if (macro-type-exception? _exn90191_) + (macro-type-exception-arguments _exn90191_) (error '"not an instance" 'type-exception? - (let ((__tmp95320 + (let ((__tmp95955 (let () (declare (not safe)) - (cons _exn89656_ '())))) + (cons _exn90191_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp95320))))))) + (cons 'type-exception-arguments __tmp95955))))))) (define type-exception-procedure - (lambda (_exn89652_) + (lambda (_exn90187_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89652_)) - (let ((_e89654_ + (class-instance? RuntimeException::t _exn90187_)) + (let ((_e90189_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89652_ 'exception)))) - (if (macro-type-exception? _e89654_) - (macro-type-exception-procedure _e89654_) + (unchecked-slot-ref _exn90187_ 'exception)))) + (if (macro-type-exception? _e90189_) + (macro-type-exception-procedure _e90189_) (error '"not an instance" 'type-exception? - (let ((__tmp95323 + (let ((__tmp95958 (let () (declare (not safe)) - (cons _e89654_ '())))) + (cons _e90189_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp95323))))) - (if (macro-type-exception? _exn89652_) - (macro-type-exception-procedure _exn89652_) + (cons 'type-exception-procedure __tmp95958))))) + (if (macro-type-exception? _exn90187_) + (macro-type-exception-procedure _exn90187_) (error '"not an instance" 'type-exception? - (let ((__tmp95322 + (let ((__tmp95957 (let () (declare (not safe)) - (cons _exn89652_ '())))) + (cons _exn90187_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp95322))))))) + (cons 'type-exception-procedure __tmp95957))))))) (define type-exception-type-id - (lambda (_exn89646_) + (lambda (_exn90181_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89646_)) - (let ((_e89649_ + (class-instance? RuntimeException::t _exn90181_)) + (let ((_e90184_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89646_ 'exception)))) - (if (macro-type-exception? _e89649_) - (macro-type-exception-type-id _e89649_) + (unchecked-slot-ref _exn90181_ 'exception)))) + (if (macro-type-exception? _e90184_) + (macro-type-exception-type-id _e90184_) (error '"not an instance" 'type-exception? - (let ((__tmp95325 + (let ((__tmp95960 (let () (declare (not safe)) - (cons _e89649_ '())))) + (cons _e90184_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp95325))))) - (if (macro-type-exception? _exn89646_) - (macro-type-exception-type-id _exn89646_) + (cons 'type-exception-type-id __tmp95960))))) + (if (macro-type-exception? _exn90181_) + (macro-type-exception-type-id _exn90181_) (error '"not an instance" 'type-exception? - (let ((__tmp95324 + (let ((__tmp95959 (let () (declare (not safe)) - (cons _exn89646_ '())))) + (cons _exn90181_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp95324))))))) + (cons 'type-exception-type-id __tmp95959))))))) (define unbound-global-exception? - (lambda (_exn89642_) + (lambda (_exn90177_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89642_)) - (let ((_e89644_ + (class-instance? RuntimeException::t _exn90177_)) + (let ((_e90179_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89642_ 'exception)))) - (macro-unbound-global-exception? _e89644_)) - (macro-unbound-global-exception? _exn89642_)))) + (unchecked-slot-ref _exn90177_ 'exception)))) + (macro-unbound-global-exception? _e90179_)) + (macro-unbound-global-exception? _exn90177_)))) (define unbound-global-exception-code - (lambda (_exn89638_) + (lambda (_exn90173_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89638_)) - (let ((_e89640_ + (class-instance? RuntimeException::t _exn90173_)) + (let ((_e90175_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89638_ 'exception)))) - (if (macro-unbound-global-exception? _e89640_) - (macro-unbound-global-exception-code _e89640_) + (unchecked-slot-ref _exn90173_ 'exception)))) + (if (macro-unbound-global-exception? _e90175_) + (macro-unbound-global-exception-code _e90175_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp95327 + (let ((__tmp95962 (let () (declare (not safe)) - (cons _e89640_ '())))) + (cons _e90175_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp95327))))) - (if (macro-unbound-global-exception? _exn89638_) - (macro-unbound-global-exception-code _exn89638_) + (cons 'unbound-global-exception-code __tmp95962))))) + (if (macro-unbound-global-exception? _exn90173_) + (macro-unbound-global-exception-code _exn90173_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp95326 + (let ((__tmp95961 (let () (declare (not safe)) - (cons _exn89638_ '())))) + (cons _exn90173_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp95326))))))) + (cons 'unbound-global-exception-code __tmp95961))))))) (define unbound-global-exception-rte - (lambda (_exn89634_) + (lambda (_exn90169_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89634_)) - (let ((_e89636_ + (class-instance? RuntimeException::t _exn90169_)) + (let ((_e90171_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89634_ 'exception)))) - (if (macro-unbound-global-exception? _e89636_) - (macro-unbound-global-exception-rte _e89636_) + (unchecked-slot-ref _exn90169_ 'exception)))) + (if (macro-unbound-global-exception? _e90171_) + (macro-unbound-global-exception-rte _e90171_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp95329 + (let ((__tmp95964 (let () (declare (not safe)) - (cons _e89636_ '())))) + (cons _e90171_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp95329))))) - (if (macro-unbound-global-exception? _exn89634_) - (macro-unbound-global-exception-rte _exn89634_) + (cons 'unbound-global-exception-rte __tmp95964))))) + (if (macro-unbound-global-exception? _exn90169_) + (macro-unbound-global-exception-rte _exn90169_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp95328 + (let ((__tmp95963 (let () (declare (not safe)) - (cons _exn89634_ '())))) + (cons _exn90169_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp95328))))))) + (cons 'unbound-global-exception-rte __tmp95963))))))) (define unbound-global-exception-variable - (lambda (_exn89628_) + (lambda (_exn90163_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89628_)) - (let ((_e89631_ + (class-instance? RuntimeException::t _exn90163_)) + (let ((_e90166_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89628_ 'exception)))) - (if (macro-unbound-global-exception? _e89631_) - (macro-unbound-global-exception-variable _e89631_) + (unchecked-slot-ref _exn90163_ 'exception)))) + (if (macro-unbound-global-exception? _e90166_) + (macro-unbound-global-exception-variable _e90166_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp95331 + (let ((__tmp95966 (let () (declare (not safe)) - (cons _e89631_ '())))) + (cons _e90166_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp95331))))) - (if (macro-unbound-global-exception? _exn89628_) - (macro-unbound-global-exception-variable _exn89628_) + __tmp95966))))) + (if (macro-unbound-global-exception? _exn90163_) + (macro-unbound-global-exception-variable _exn90163_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp95330 + (let ((__tmp95965 (let () (declare (not safe)) - (cons _exn89628_ '())))) + (cons _exn90163_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp95330))))))) + __tmp95965))))))) (define unbound-key-exception? - (lambda (_exn89624_) + (lambda (_exn90159_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89624_)) - (let ((_e89626_ + (class-instance? RuntimeException::t _exn90159_)) + (let ((_e90161_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89624_ 'exception)))) - (macro-unbound-key-exception? _e89626_)) - (macro-unbound-key-exception? _exn89624_)))) + (unchecked-slot-ref _exn90159_ 'exception)))) + (macro-unbound-key-exception? _e90161_)) + (macro-unbound-key-exception? _exn90159_)))) (define unbound-key-exception-arguments - (lambda (_exn89620_) + (lambda (_exn90155_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89620_)) - (let ((_e89622_ + (class-instance? RuntimeException::t _exn90155_)) + (let ((_e90157_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89620_ 'exception)))) - (if (macro-unbound-key-exception? _e89622_) - (macro-unbound-key-exception-arguments _e89622_) + (unchecked-slot-ref _exn90155_ 'exception)))) + (if (macro-unbound-key-exception? _e90157_) + (macro-unbound-key-exception-arguments _e90157_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp95333 + (let ((__tmp95968 (let () (declare (not safe)) - (cons _e89622_ '())))) + (cons _e90157_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp95333))))) - (if (macro-unbound-key-exception? _exn89620_) - (macro-unbound-key-exception-arguments _exn89620_) + __tmp95968))))) + (if (macro-unbound-key-exception? _exn90155_) + (macro-unbound-key-exception-arguments _exn90155_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp95332 + (let ((__tmp95967 (let () (declare (not safe)) - (cons _exn89620_ '())))) + (cons _exn90155_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp95332))))))) + __tmp95967))))))) (define unbound-key-exception-procedure - (lambda (_exn89614_) + (lambda (_exn90149_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89614_)) - (let ((_e89617_ + (class-instance? RuntimeException::t _exn90149_)) + (let ((_e90152_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89614_ 'exception)))) - (if (macro-unbound-key-exception? _e89617_) - (macro-unbound-key-exception-procedure _e89617_) + (unchecked-slot-ref _exn90149_ 'exception)))) + (if (macro-unbound-key-exception? _e90152_) + (macro-unbound-key-exception-procedure _e90152_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp95335 + (let ((__tmp95970 (let () (declare (not safe)) - (cons _e89617_ '())))) + (cons _e90152_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp95335))))) - (if (macro-unbound-key-exception? _exn89614_) - (macro-unbound-key-exception-procedure _exn89614_) + __tmp95970))))) + (if (macro-unbound-key-exception? _exn90149_) + (macro-unbound-key-exception-procedure _exn90149_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp95334 + (let ((__tmp95969 (let () (declare (not safe)) - (cons _exn89614_ '())))) + (cons _exn90149_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp95334))))))) + __tmp95969))))))) (define unbound-os-environment-variable-exception? - (lambda (_exn89610_) + (lambda (_exn90145_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89610_)) - (let ((_e89612_ + (class-instance? RuntimeException::t _exn90145_)) + (let ((_e90147_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89610_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _e89612_)) - (macro-unbound-os-environment-variable-exception? _exn89610_)))) + (unchecked-slot-ref _exn90145_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _e90147_)) + (macro-unbound-os-environment-variable-exception? _exn90145_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_exn89606_) + (lambda (_exn90141_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89606_)) - (let ((_e89608_ + (class-instance? RuntimeException::t _exn90141_)) + (let ((_e90143_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89606_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e89608_) + (unchecked-slot-ref _exn90141_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e90143_) (macro-unbound-os-environment-variable-exception-arguments - _e89608_) + _e90143_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp95337 + (let ((__tmp95972 (let () (declare (not safe)) - (cons _e89608_ '())))) + (cons _e90143_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp95337))))) - (if (macro-unbound-os-environment-variable-exception? _exn89606_) + __tmp95972))))) + (if (macro-unbound-os-environment-variable-exception? _exn90141_) (macro-unbound-os-environment-variable-exception-arguments - _exn89606_) + _exn90141_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp95336 + (let ((__tmp95971 (let () (declare (not safe)) - (cons _exn89606_ '())))) + (cons _exn90141_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp95336))))))) + __tmp95971))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_exn89600_) + (lambda (_exn90135_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89600_)) - (let ((_e89603_ + (class-instance? RuntimeException::t _exn90135_)) + (let ((_e90138_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89600_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e89603_) + (unchecked-slot-ref _exn90135_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e90138_) (macro-unbound-os-environment-variable-exception-procedure - _e89603_) + _e90138_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp95339 + (let ((__tmp95974 (let () (declare (not safe)) - (cons _e89603_ '())))) + (cons _e90138_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp95339))))) - (if (macro-unbound-os-environment-variable-exception? _exn89600_) + __tmp95974))))) + (if (macro-unbound-os-environment-variable-exception? _exn90135_) (macro-unbound-os-environment-variable-exception-procedure - _exn89600_) + _exn90135_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp95338 + (let ((__tmp95973 (let () (declare (not safe)) - (cons _exn89600_ '())))) + (cons _exn90135_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp95338))))))) + __tmp95973))))))) (define unbound-serial-number-exception? - (lambda (_exn89596_) + (lambda (_exn90131_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89596_)) - (let ((_e89598_ + (class-instance? RuntimeException::t _exn90131_)) + (let ((_e90133_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89596_ 'exception)))) - (macro-unbound-serial-number-exception? _e89598_)) - (macro-unbound-serial-number-exception? _exn89596_)))) + (unchecked-slot-ref _exn90131_ 'exception)))) + (macro-unbound-serial-number-exception? _e90133_)) + (macro-unbound-serial-number-exception? _exn90131_)))) (define unbound-serial-number-exception-arguments - (lambda (_exn89592_) + (lambda (_exn90127_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89592_)) - (let ((_e89594_ + (class-instance? RuntimeException::t _exn90127_)) + (let ((_e90129_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89592_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e89594_) - (macro-unbound-serial-number-exception-arguments _e89594_) + (unchecked-slot-ref _exn90127_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e90129_) + (macro-unbound-serial-number-exception-arguments _e90129_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp95341 + (let ((__tmp95976 (let () (declare (not safe)) - (cons _e89594_ '())))) + (cons _e90129_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp95341))))) - (if (macro-unbound-serial-number-exception? _exn89592_) - (macro-unbound-serial-number-exception-arguments _exn89592_) + __tmp95976))))) + (if (macro-unbound-serial-number-exception? _exn90127_) + (macro-unbound-serial-number-exception-arguments _exn90127_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp95340 + (let ((__tmp95975 (let () (declare (not safe)) - (cons _exn89592_ '())))) + (cons _exn90127_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp95340))))))) + __tmp95975))))))) (define unbound-serial-number-exception-procedure - (lambda (_exn89586_) + (lambda (_exn90121_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89586_)) - (let ((_e89589_ + (class-instance? RuntimeException::t _exn90121_)) + (let ((_e90124_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89586_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e89589_) - (macro-unbound-serial-number-exception-procedure _e89589_) + (unchecked-slot-ref _exn90121_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e90124_) + (macro-unbound-serial-number-exception-procedure _e90124_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp95343 + (let ((__tmp95978 (let () (declare (not safe)) - (cons _e89589_ '())))) + (cons _e90124_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp95343))))) - (if (macro-unbound-serial-number-exception? _exn89586_) - (macro-unbound-serial-number-exception-procedure _exn89586_) + __tmp95978))))) + (if (macro-unbound-serial-number-exception? _exn90121_) + (macro-unbound-serial-number-exception-procedure _exn90121_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp95342 + (let ((__tmp95977 (let () (declare (not safe)) - (cons _exn89586_ '())))) + (cons _exn90121_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp95342))))))) + __tmp95977))))))) (define uncaught-exception? - (lambda (_exn89582_) + (lambda (_exn90117_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89582_)) - (let ((_e89584_ + (class-instance? RuntimeException::t _exn90117_)) + (let ((_e90119_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89582_ 'exception)))) - (macro-uncaught-exception? _e89584_)) - (macro-uncaught-exception? _exn89582_)))) + (unchecked-slot-ref _exn90117_ 'exception)))) + (macro-uncaught-exception? _e90119_)) + (macro-uncaught-exception? _exn90117_)))) (define uncaught-exception-arguments - (lambda (_exn89578_) + (lambda (_exn90113_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89578_)) - (let ((_e89580_ + (class-instance? RuntimeException::t _exn90113_)) + (let ((_e90115_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89578_ 'exception)))) - (if (macro-uncaught-exception? _e89580_) - (macro-uncaught-exception-arguments _e89580_) + (unchecked-slot-ref _exn90113_ 'exception)))) + (if (macro-uncaught-exception? _e90115_) + (macro-uncaught-exception-arguments _e90115_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp95345 + (let ((__tmp95980 (let () (declare (not safe)) - (cons _e89580_ '())))) + (cons _e90115_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp95345))))) - (if (macro-uncaught-exception? _exn89578_) - (macro-uncaught-exception-arguments _exn89578_) + (cons 'uncaught-exception-arguments __tmp95980))))) + (if (macro-uncaught-exception? _exn90113_) + (macro-uncaught-exception-arguments _exn90113_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp95344 + (let ((__tmp95979 (let () (declare (not safe)) - (cons _exn89578_ '())))) + (cons _exn90113_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp95344))))))) + (cons 'uncaught-exception-arguments __tmp95979))))))) (define uncaught-exception-procedure - (lambda (_exn89574_) + (lambda (_exn90109_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89574_)) - (let ((_e89576_ + (class-instance? RuntimeException::t _exn90109_)) + (let ((_e90111_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89574_ 'exception)))) - (if (macro-uncaught-exception? _e89576_) - (macro-uncaught-exception-procedure _e89576_) + (unchecked-slot-ref _exn90109_ 'exception)))) + (if (macro-uncaught-exception? _e90111_) + (macro-uncaught-exception-procedure _e90111_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp95347 + (let ((__tmp95982 (let () (declare (not safe)) - (cons _e89576_ '())))) + (cons _e90111_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp95347))))) - (if (macro-uncaught-exception? _exn89574_) - (macro-uncaught-exception-procedure _exn89574_) + (cons 'uncaught-exception-procedure __tmp95982))))) + (if (macro-uncaught-exception? _exn90109_) + (macro-uncaught-exception-procedure _exn90109_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp95346 + (let ((__tmp95981 (let () (declare (not safe)) - (cons _exn89574_ '())))) + (cons _exn90109_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp95346))))))) + (cons 'uncaught-exception-procedure __tmp95981))))))) (define uncaught-exception-reason - (lambda (_exn89568_) + (lambda (_exn90103_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89568_)) - (let ((_e89571_ + (class-instance? RuntimeException::t _exn90103_)) + (let ((_e90106_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89568_ 'exception)))) - (if (macro-uncaught-exception? _e89571_) - (macro-uncaught-exception-reason _e89571_) + (unchecked-slot-ref _exn90103_ 'exception)))) + (if (macro-uncaught-exception? _e90106_) + (macro-uncaught-exception-reason _e90106_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp95349 + (let ((__tmp95984 (let () (declare (not safe)) - (cons _e89571_ '())))) + (cons _e90106_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp95349))))) - (if (macro-uncaught-exception? _exn89568_) - (macro-uncaught-exception-reason _exn89568_) + (cons 'uncaught-exception-reason __tmp95984))))) + (if (macro-uncaught-exception? _exn90103_) + (macro-uncaught-exception-reason _exn90103_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp95348 + (let ((__tmp95983 (let () (declare (not safe)) - (cons _exn89568_ '())))) + (cons _exn90103_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp95348))))))) + (cons 'uncaught-exception-reason __tmp95983))))))) (define uninitialized-thread-exception? - (lambda (_exn89564_) + (lambda (_exn90099_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89564_)) - (let ((_e89566_ + (class-instance? RuntimeException::t _exn90099_)) + (let ((_e90101_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89564_ 'exception)))) - (macro-uninitialized-thread-exception? _e89566_)) - (macro-uninitialized-thread-exception? _exn89564_)))) + (unchecked-slot-ref _exn90099_ 'exception)))) + (macro-uninitialized-thread-exception? _e90101_)) + (macro-uninitialized-thread-exception? _exn90099_)))) (define uninitialized-thread-exception-arguments - (lambda (_exn89560_) + (lambda (_exn90095_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89560_)) - (let ((_e89562_ + (class-instance? RuntimeException::t _exn90095_)) + (let ((_e90097_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89560_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e89562_) - (macro-uninitialized-thread-exception-arguments _e89562_) + (unchecked-slot-ref _exn90095_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e90097_) + (macro-uninitialized-thread-exception-arguments _e90097_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp95351 + (let ((__tmp95986 (let () (declare (not safe)) - (cons _e89562_ '())))) + (cons _e90097_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp95351))))) - (if (macro-uninitialized-thread-exception? _exn89560_) - (macro-uninitialized-thread-exception-arguments _exn89560_) + __tmp95986))))) + (if (macro-uninitialized-thread-exception? _exn90095_) + (macro-uninitialized-thread-exception-arguments _exn90095_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp95350 + (let ((__tmp95985 (let () (declare (not safe)) - (cons _exn89560_ '())))) + (cons _exn90095_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp95350))))))) + __tmp95985))))))) (define uninitialized-thread-exception-procedure - (lambda (_exn89554_) + (lambda (_exn90089_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89554_)) - (let ((_e89557_ + (class-instance? RuntimeException::t _exn90089_)) + (let ((_e90092_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89554_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e89557_) - (macro-uninitialized-thread-exception-procedure _e89557_) + (unchecked-slot-ref _exn90089_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e90092_) + (macro-uninitialized-thread-exception-procedure _e90092_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp95353 + (let ((__tmp95988 (let () (declare (not safe)) - (cons _e89557_ '())))) + (cons _e90092_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp95353))))) - (if (macro-uninitialized-thread-exception? _exn89554_) - (macro-uninitialized-thread-exception-procedure _exn89554_) + __tmp95988))))) + (if (macro-uninitialized-thread-exception? _exn90089_) + (macro-uninitialized-thread-exception-procedure _exn90089_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp95352 + (let ((__tmp95987 (let () (declare (not safe)) - (cons _exn89554_ '())))) + (cons _exn90089_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp95352))))))) + __tmp95987))))))) (define unknown-keyword-argument-exception? - (lambda (_exn89550_) + (lambda (_exn90085_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89550_)) - (let ((_e89552_ + (class-instance? RuntimeException::t _exn90085_)) + (let ((_e90087_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89550_ 'exception)))) - (macro-unknown-keyword-argument-exception? _e89552_)) - (macro-unknown-keyword-argument-exception? _exn89550_)))) + (unchecked-slot-ref _exn90085_ 'exception)))) + (macro-unknown-keyword-argument-exception? _e90087_)) + (macro-unknown-keyword-argument-exception? _exn90085_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_exn89546_) + (lambda (_exn90081_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89546_)) - (let ((_e89548_ + (class-instance? RuntimeException::t _exn90081_)) + (let ((_e90083_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89546_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e89548_) - (macro-unknown-keyword-argument-exception-arguments _e89548_) + (unchecked-slot-ref _exn90081_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e90083_) + (macro-unknown-keyword-argument-exception-arguments _e90083_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp95355 + (let ((__tmp95990 (let () (declare (not safe)) - (cons _e89548_ '())))) + (cons _e90083_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp95355))))) - (if (macro-unknown-keyword-argument-exception? _exn89546_) - (macro-unknown-keyword-argument-exception-arguments _exn89546_) + __tmp95990))))) + (if (macro-unknown-keyword-argument-exception? _exn90081_) + (macro-unknown-keyword-argument-exception-arguments _exn90081_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp95354 + (let ((__tmp95989 (let () (declare (not safe)) - (cons _exn89546_ '())))) + (cons _exn90081_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp95354))))))) + __tmp95989))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_exn89540_) + (lambda (_exn90075_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89540_)) - (let ((_e89543_ + (class-instance? RuntimeException::t _exn90075_)) + (let ((_e90078_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89540_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e89543_) - (macro-unknown-keyword-argument-exception-procedure _e89543_) + (unchecked-slot-ref _exn90075_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e90078_) + (macro-unknown-keyword-argument-exception-procedure _e90078_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp95357 + (let ((__tmp95992 (let () (declare (not safe)) - (cons _e89543_ '())))) + (cons _e90078_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp95357))))) - (if (macro-unknown-keyword-argument-exception? _exn89540_) - (macro-unknown-keyword-argument-exception-procedure _exn89540_) + __tmp95992))))) + (if (macro-unknown-keyword-argument-exception? _exn90075_) + (macro-unknown-keyword-argument-exception-procedure _exn90075_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp95356 + (let ((__tmp95991 (let () (declare (not safe)) - (cons _exn89540_ '())))) + (cons _exn90075_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp95356))))))) + __tmp95991))))))) (define unterminated-process-exception? - (lambda (_exn89536_) + (lambda (_exn90071_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89536_)) - (let ((_e89538_ + (class-instance? RuntimeException::t _exn90071_)) + (let ((_e90073_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89536_ 'exception)))) - (macro-unterminated-process-exception? _e89538_)) - (macro-unterminated-process-exception? _exn89536_)))) + (unchecked-slot-ref _exn90071_ 'exception)))) + (macro-unterminated-process-exception? _e90073_)) + (macro-unterminated-process-exception? _exn90071_)))) (define unterminated-process-exception-arguments - (lambda (_exn89532_) + (lambda (_exn90067_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89532_)) - (let ((_e89534_ + (class-instance? RuntimeException::t _exn90067_)) + (let ((_e90069_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89532_ 'exception)))) - (if (macro-unterminated-process-exception? _e89534_) - (macro-unterminated-process-exception-arguments _e89534_) + (unchecked-slot-ref _exn90067_ 'exception)))) + (if (macro-unterminated-process-exception? _e90069_) + (macro-unterminated-process-exception-arguments _e90069_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp95359 + (let ((__tmp95994 (let () (declare (not safe)) - (cons _e89534_ '())))) + (cons _e90069_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp95359))))) - (if (macro-unterminated-process-exception? _exn89532_) - (macro-unterminated-process-exception-arguments _exn89532_) + __tmp95994))))) + (if (macro-unterminated-process-exception? _exn90067_) + (macro-unterminated-process-exception-arguments _exn90067_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp95358 + (let ((__tmp95993 (let () (declare (not safe)) - (cons _exn89532_ '())))) + (cons _exn90067_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp95358))))))) + __tmp95993))))))) (define unterminated-process-exception-procedure - (lambda (_exn89526_) + (lambda (_exn90061_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89526_)) - (let ((_e89529_ + (class-instance? RuntimeException::t _exn90061_)) + (let ((_e90064_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89526_ 'exception)))) - (if (macro-unterminated-process-exception? _e89529_) - (macro-unterminated-process-exception-procedure _e89529_) + (unchecked-slot-ref _exn90061_ 'exception)))) + (if (macro-unterminated-process-exception? _e90064_) + (macro-unterminated-process-exception-procedure _e90064_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp95361 + (let ((__tmp95996 (let () (declare (not safe)) - (cons _e89529_ '())))) + (cons _e90064_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp95361))))) - (if (macro-unterminated-process-exception? _exn89526_) - (macro-unterminated-process-exception-procedure _exn89526_) + __tmp95996))))) + (if (macro-unterminated-process-exception? _exn90061_) + (macro-unterminated-process-exception-procedure _exn90061_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp95360 + (let ((__tmp95995 (let () (declare (not safe)) - (cons _exn89526_ '())))) + (cons _exn90061_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp95360))))))) + __tmp95995))))))) (define wrong-number-of-arguments-exception? - (lambda (_exn89522_) + (lambda (_exn90057_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89522_)) - (let ((_e89524_ + (class-instance? RuntimeException::t _exn90057_)) + (let ((_e90059_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89522_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _e89524_)) - (macro-wrong-number-of-arguments-exception? _exn89522_)))) + (unchecked-slot-ref _exn90057_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _e90059_)) + (macro-wrong-number-of-arguments-exception? _exn90057_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_exn89518_) + (lambda (_exn90053_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89518_)) - (let ((_e89520_ + (class-instance? RuntimeException::t _exn90053_)) + (let ((_e90055_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89518_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e89520_) + (unchecked-slot-ref _exn90053_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e90055_) (macro-wrong-number-of-arguments-exception-arguments - _e89520_) + _e90055_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp95363 + (let ((__tmp95998 (let () (declare (not safe)) - (cons _e89520_ '())))) + (cons _e90055_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp95363))))) - (if (macro-wrong-number-of-arguments-exception? _exn89518_) + __tmp95998))))) + (if (macro-wrong-number-of-arguments-exception? _exn90053_) (macro-wrong-number-of-arguments-exception-arguments - _exn89518_) + _exn90053_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp95362 + (let ((__tmp95997 (let () (declare (not safe)) - (cons _exn89518_ '())))) + (cons _exn90053_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp95362))))))) + __tmp95997))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_exn89512_) + (lambda (_exn90047_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89512_)) - (let ((_e89515_ + (class-instance? RuntimeException::t _exn90047_)) + (let ((_e90050_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89512_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e89515_) + (unchecked-slot-ref _exn90047_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e90050_) (macro-wrong-number-of-arguments-exception-procedure - _e89515_) + _e90050_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp95365 + (let ((__tmp96000 (let () (declare (not safe)) - (cons _e89515_ '())))) + (cons _e90050_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp95365))))) - (if (macro-wrong-number-of-arguments-exception? _exn89512_) + __tmp96000))))) + (if (macro-wrong-number-of-arguments-exception? _exn90047_) (macro-wrong-number-of-arguments-exception-procedure - _exn89512_) + _exn90047_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp95364 + (let ((__tmp95999 (let () (declare (not safe)) - (cons _exn89512_ '())))) + (cons _exn90047_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp95364))))))) + __tmp95999))))))) (define wrong-number-of-values-exception? - (lambda (_exn89508_) + (lambda (_exn90043_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89508_)) - (let ((_e89510_ + (class-instance? RuntimeException::t _exn90043_)) + (let ((_e90045_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89508_ 'exception)))) - (macro-wrong-number-of-values-exception? _e89510_)) - (macro-wrong-number-of-values-exception? _exn89508_)))) + (unchecked-slot-ref _exn90043_ 'exception)))) + (macro-wrong-number-of-values-exception? _e90045_)) + (macro-wrong-number-of-values-exception? _exn90043_)))) (define wrong-number-of-values-exception-code - (lambda (_exn89504_) + (lambda (_exn90039_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89504_)) - (let ((_e89506_ + (class-instance? RuntimeException::t _exn90039_)) + (let ((_e90041_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89504_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e89506_) - (macro-wrong-number-of-values-exception-code _e89506_) + (unchecked-slot-ref _exn90039_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e90041_) + (macro-wrong-number-of-values-exception-code _e90041_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp95367 + (let ((__tmp96002 (let () (declare (not safe)) - (cons _e89506_ '())))) + (cons _e90041_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp95367))))) - (if (macro-wrong-number-of-values-exception? _exn89504_) - (macro-wrong-number-of-values-exception-code _exn89504_) + __tmp96002))))) + (if (macro-wrong-number-of-values-exception? _exn90039_) + (macro-wrong-number-of-values-exception-code _exn90039_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp95366 + (let ((__tmp96001 (let () (declare (not safe)) - (cons _exn89504_ '())))) + (cons _exn90039_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp95366))))))) + __tmp96001))))))) (define wrong-number-of-values-exception-rte - (lambda (_exn89500_) + (lambda (_exn90035_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89500_)) - (let ((_e89502_ + (class-instance? RuntimeException::t _exn90035_)) + (let ((_e90037_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89500_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e89502_) - (macro-wrong-number-of-values-exception-rte _e89502_) + (unchecked-slot-ref _exn90035_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e90037_) + (macro-wrong-number-of-values-exception-rte _e90037_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp95369 + (let ((__tmp96004 (let () (declare (not safe)) - (cons _e89502_ '())))) + (cons _e90037_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp95369))))) - (if (macro-wrong-number-of-values-exception? _exn89500_) - (macro-wrong-number-of-values-exception-rte _exn89500_) + __tmp96004))))) + (if (macro-wrong-number-of-values-exception? _exn90035_) + (macro-wrong-number-of-values-exception-rte _exn90035_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp95368 + (let ((__tmp96003 (let () (declare (not safe)) - (cons _exn89500_ '())))) + (cons _exn90035_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp95368))))))) + __tmp96003))))))) (define wrong-number-of-values-exception-vals - (lambda (_exn89494_) + (lambda (_exn90029_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89494_)) - (let ((_e89497_ + (class-instance? RuntimeException::t _exn90029_)) + (let ((_e90032_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89494_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e89497_) - (macro-wrong-number-of-values-exception-vals _e89497_) + (unchecked-slot-ref _exn90029_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e90032_) + (macro-wrong-number-of-values-exception-vals _e90032_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp95371 + (let ((__tmp96006 (let () (declare (not safe)) - (cons _e89497_ '())))) + (cons _e90032_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp95371))))) - (if (macro-wrong-number-of-values-exception? _exn89494_) - (macro-wrong-number-of-values-exception-vals _exn89494_) + __tmp96006))))) + (if (macro-wrong-number-of-values-exception? _exn90029_) + (macro-wrong-number-of-values-exception-vals _exn90029_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp95370 + (let ((__tmp96005 (let () (declare (not safe)) - (cons _exn89494_ '())))) + (cons _exn90029_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp95370))))))) + __tmp96005))))))) (define wrong-processor-c-return-exception? - (lambda (_exn89488_) + (lambda (_exn90023_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn89488_)) - (let ((_e89491_ + (class-instance? RuntimeException::t _exn90023_)) + (let ((_e90026_ (let () (declare (not safe)) - (unchecked-slot-ref _exn89488_ 'exception)))) - (macro-wrong-processor-c-return-exception? _e89491_)) - (macro-wrong-processor-c-return-exception? _exn89488_)))))) + (unchecked-slot-ref _exn90023_ 'exception)))) + (macro-wrong-processor-c-return-exception? _e90026_)) + (macro-wrong-processor-c-return-exception? _exn90023_)))))) diff --git a/src/bootstrap/gerbil/runtime/error__1.scm b/src/bootstrap/gerbil/runtime/error__1.scm index 61a605ab0..0a288dd9e 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]#_g95373_| + (define |[1]#_g96008_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g95375_| + (define |[1]#_g96010_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g95377_| + (define |[1]#_g96012_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g95379_| + (define |[1]#_g96014_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g95381_| + (define |[1]#_g96016_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g95383_| + (define |[1]#_g96018_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g95387_| + (define |[1]#_g96022_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g95391_| + (define |[1]#_g96026_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g95395_| + (define |[1]#_g96030_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g95399_| + (define |[1]#_g96034_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g95403_| + (define |[1]#_g96038_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g95405_| + (define |[1]#_g96040_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g95407_| + (define |[1]#_g96042_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g95409_| + (define |[1]#_g96044_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g95411_| + (define |[1]#_g96046_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g95418_| + (define |[1]#_g96053_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g95421_| + (define |[1]#_g96056_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g95424_| + (define |[1]#_g96059_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g95427_| + (define |[1]#_g96062_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g95434_| + (define |[1]#_g96069_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g95437_| + (define |[1]#_g96072_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g95440_| + (define |[1]#_g96075_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g95443_| + (define |[1]#_g96078_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g95450_| + (define |[1]#_g96085_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g95453_| + (define |[1]#_g96088_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g95456_| + (define |[1]#_g96091_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g95459_| + (define |[1]#_g96094_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g95466_| + (define |[1]#_g96101_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g95469_| + (define |[1]#_g96104_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g95472_| + (define |[1]#_g96107_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g95475_| + (define |[1]#_g96110_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g95481_| + (define |[1]#_g96116_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g95483_| + (define |[1]#_g96118_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g95485_| + (define |[1]#_g96120_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g95490_| + (define |[1]#_g96125_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g95493_| + (define |[1]#_g96128_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g95498_| + (define |[1]#_g96133_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g95501_| + (define |[1]#_g96136_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g95506_| + (define |[1]#_g96141_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g95509_| + (define |[1]#_g96144_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g95514_| + (define |[1]#_g96149_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g95517_| + (define |[1]#_g96152_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! @@ -296,7 +296,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj95141 + (let ((__obj95776 (let () (declare (not safe)) (##structure @@ -318,7 +318,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95141 + __obj95776 'gerbil/runtime/error#Exception::t '1 gerbil/core$$#class-type-info::t @@ -326,7 +326,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95141 + __obj95776 'Exception '2 gerbil/core$$#class-type-info::t @@ -334,7 +334,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95141 + __obj95776 '() '4 gerbil/core$$#class-type-info::t @@ -342,7 +342,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95141 + __obj95776 '() '3 gerbil/core$$#class-type-info::t @@ -350,7 +350,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95141 + __obj95776 '#f '5 gerbil/core$$#class-type-info::t @@ -358,7 +358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95141 + __obj95776 '#f '6 gerbil/core$$#class-type-info::t @@ -366,39 +366,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95141 + __obj95776 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95372 |[1]#_g95373_|)) + (let ((__tmp96007 |[1]#_g96008_|)) (declare (not safe)) (##unchecked-structure-set! - __obj95141 - __tmp95372 + __obj95776 + __tmp96007 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95374 |[1]#_g95375_|)) + (let ((__tmp96009 |[1]#_g96010_|)) (declare (not safe)) (##unchecked-structure-set! - __obj95141 - __tmp95374 + __obj95776 + __tmp96009 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95376 |[1]#_g95377_|)) + (let ((__tmp96011 |[1]#_g96012_|)) (declare (not safe)) (##unchecked-structure-set! - __obj95141 - __tmp95376 + __obj95776 + __tmp96011 '10 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj95141 + __obj95776 '() '11 gerbil/core$$#class-type-info::t @@ -406,7 +406,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95141 + __obj95776 '() '12 gerbil/core$$#class-type-info::t @@ -414,7 +414,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95141 + __obj95776 '() '13 gerbil/core$$#class-type-info::t @@ -422,14 +422,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95141 + __obj95776 '() '14 gerbil/core$$#class-type-info::t '#f)) - __obj95141)) + __obj95776)) (define |[:0:]#StackTrace| - (let ((__obj95142 + (let ((__obj95777 (let () (declare (not safe)) (##structure @@ -451,7 +451,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95142 + __obj95777 'gerbil/runtime/error#StackTrace::t '1 gerbil/core$$#class-type-info::t @@ -459,7 +459,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95142 + __obj95777 'StackTrace '2 gerbil/core$$#class-type-info::t @@ -467,7 +467,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95142 + __obj95777 '(continuation) '4 gerbil/core$$#class-type-info::t @@ -475,7 +475,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95142 + __obj95777 '() '3 gerbil/core$$#class-type-info::t @@ -483,7 +483,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95142 + __obj95777 '#f '5 gerbil/core$$#class-type-info::t @@ -491,7 +491,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95142 + __obj95777 '#f '6 gerbil/core$$#class-type-info::t @@ -499,94 +499,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95142 + __obj95777 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95378 |[1]#_g95379_|)) + (let ((__tmp96013 |[1]#_g96014_|)) (declare (not safe)) (##unchecked-structure-set! - __obj95142 - __tmp95378 + __obj95777 + __tmp96013 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95380 |[1]#_g95381_|)) + (let ((__tmp96015 |[1]#_g96016_|)) (declare (not safe)) (##unchecked-structure-set! - __obj95142 - __tmp95380 + __obj95777 + __tmp96015 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95382 |[1]#_g95383_|)) + (let ((__tmp96017 |[1]#_g96018_|)) (declare (not safe)) (##unchecked-structure-set! - __obj95142 - __tmp95382 + __obj95777 + __tmp96017 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95384 - (let ((__tmp95385 - (let ((__tmp95386 |[1]#_g95387_|)) + (let ((__tmp96019 + (let ((__tmp96020 + (let ((__tmp96021 |[1]#_g96022_|)) (declare (not safe)) - (cons 'continuation __tmp95386)))) + (cons 'continuation __tmp96021)))) (declare (not safe)) - (cons __tmp95385 '())))) + (cons __tmp96020 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj95142 - __tmp95384 + __obj95777 + __tmp96019 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95388 - (let ((__tmp95389 - (let ((__tmp95390 |[1]#_g95391_|)) + (let ((__tmp96023 + (let ((__tmp96024 + (let ((__tmp96025 |[1]#_g96026_|)) (declare (not safe)) - (cons 'continuation __tmp95390)))) + (cons 'continuation __tmp96025)))) (declare (not safe)) - (cons __tmp95389 '())))) + (cons __tmp96024 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj95142 - __tmp95388 + __obj95777 + __tmp96023 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95392 - (let ((__tmp95393 - (let ((__tmp95394 |[1]#_g95395_|)) + (let ((__tmp96027 + (let ((__tmp96028 + (let ((__tmp96029 |[1]#_g96030_|)) (declare (not safe)) - (cons 'continuation __tmp95394)))) + (cons 'continuation __tmp96029)))) (declare (not safe)) - (cons __tmp95393 '())))) + (cons __tmp96028 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj95142 - __tmp95392 + __obj95777 + __tmp96027 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95396 - (let ((__tmp95397 - (let ((__tmp95398 |[1]#_g95399_|)) + (let ((__tmp96031 + (let ((__tmp96032 + (let ((__tmp96033 |[1]#_g96034_|)) (declare (not safe)) - (cons 'continuation __tmp95398)))) + (cons 'continuation __tmp96033)))) (declare (not safe)) - (cons __tmp95397 '())))) + (cons __tmp96032 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj95142 - __tmp95396 + __obj95777 + __tmp96031 '14 gerbil/core$$#class-type-info::t '#f)) - __obj95142)) + __obj95777)) (define |[:0:]#Error| - (let ((__obj95143 + (let ((__obj95778 (let () (declare (not safe)) (##structure @@ -608,7 +608,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95143 + __obj95778 'gerbil/runtime/error#Error::t '1 gerbil/core$$#class-type-info::t @@ -616,7 +616,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95143 + __obj95778 'Error '2 gerbil/core$$#class-type-info::t @@ -624,30 +624,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95143 + __obj95778 '(message irritants where) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95400 - (let ((__tmp95404 |[1]#_g95405_|) - (__tmp95401 - (let ((__tmp95402 |[1]#_g95403_|)) + (let ((__tmp96035 + (let ((__tmp96039 |[1]#_g96040_|) + (__tmp96036 + (let ((__tmp96037 |[1]#_g96038_|)) (declare (not safe)) - (cons __tmp95402 '())))) + (cons __tmp96037 '())))) (declare (not safe)) - (cons __tmp95404 __tmp95401)))) + (cons __tmp96039 __tmp96036)))) (declare (not safe)) (##unchecked-structure-set! - __obj95143 - __tmp95400 + __obj95778 + __tmp96035 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj95143 + __obj95778 '#f '5 gerbil/core$$#class-type-info::t @@ -655,7 +655,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95143 + __obj95778 '#f '6 gerbil/core$$#class-type-info::t @@ -663,178 +663,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95143 + __obj95778 ':init! '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95406 |[1]#_g95407_|)) + (let ((__tmp96041 |[1]#_g96042_|)) (declare (not safe)) (##unchecked-structure-set! - __obj95143 - __tmp95406 + __obj95778 + __tmp96041 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95408 |[1]#_g95409_|)) + (let ((__tmp96043 |[1]#_g96044_|)) (declare (not safe)) (##unchecked-structure-set! - __obj95143 - __tmp95408 + __obj95778 + __tmp96043 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95410 |[1]#_g95411_|)) + (let ((__tmp96045 |[1]#_g96046_|)) (declare (not safe)) (##unchecked-structure-set! - __obj95143 - __tmp95410 + __obj95778 + __tmp96045 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95412 - (let ((__tmp95425 - (let ((__tmp95426 |[1]#_g95427_|)) + (let ((__tmp96047 + (let ((__tmp96060 + (let ((__tmp96061 |[1]#_g96062_|)) (declare (not safe)) - (cons 'message __tmp95426))) - (__tmp95413 - (let ((__tmp95422 - (let ((__tmp95423 |[1]#_g95424_|)) + (cons 'message __tmp96061))) + (__tmp96048 + (let ((__tmp96057 + (let ((__tmp96058 |[1]#_g96059_|)) (declare (not safe)) - (cons 'irritants __tmp95423))) - (__tmp95414 - (let ((__tmp95419 - (let ((__tmp95420 |[1]#_g95421_|)) + (cons 'irritants __tmp96058))) + (__tmp96049 + (let ((__tmp96054 + (let ((__tmp96055 |[1]#_g96056_|)) (declare (not safe)) - (cons 'where __tmp95420))) - (__tmp95415 - (let ((__tmp95416 - (let ((__tmp95417 |[1]#_g95418_|)) + (cons 'where __tmp96055))) + (__tmp96050 + (let ((__tmp96051 + (let ((__tmp96052 |[1]#_g96053_|)) (declare (not safe)) - (cons 'continuation __tmp95417)))) + (cons 'continuation __tmp96052)))) (declare (not safe)) - (cons __tmp95416 '())))) + (cons __tmp96051 '())))) (declare (not safe)) - (cons __tmp95419 __tmp95415)))) + (cons __tmp96054 __tmp96050)))) (declare (not safe)) - (cons __tmp95422 __tmp95414)))) + (cons __tmp96057 __tmp96049)))) (declare (not safe)) - (cons __tmp95425 __tmp95413)))) + (cons __tmp96060 __tmp96048)))) (declare (not safe)) (##unchecked-structure-set! - __obj95143 - __tmp95412 + __obj95778 + __tmp96047 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95428 - (let ((__tmp95441 - (let ((__tmp95442 |[1]#_g95443_|)) + (let ((__tmp96063 + (let ((__tmp96076 + (let ((__tmp96077 |[1]#_g96078_|)) (declare (not safe)) - (cons 'message __tmp95442))) - (__tmp95429 - (let ((__tmp95438 - (let ((__tmp95439 |[1]#_g95440_|)) + (cons 'message __tmp96077))) + (__tmp96064 + (let ((__tmp96073 + (let ((__tmp96074 |[1]#_g96075_|)) (declare (not safe)) - (cons 'irritants __tmp95439))) - (__tmp95430 - (let ((__tmp95435 - (let ((__tmp95436 |[1]#_g95437_|)) + (cons 'irritants __tmp96074))) + (__tmp96065 + (let ((__tmp96070 + (let ((__tmp96071 |[1]#_g96072_|)) (declare (not safe)) - (cons 'where __tmp95436))) - (__tmp95431 - (let ((__tmp95432 - (let ((__tmp95433 |[1]#_g95434_|)) + (cons 'where __tmp96071))) + (__tmp96066 + (let ((__tmp96067 + (let ((__tmp96068 |[1]#_g96069_|)) (declare (not safe)) - (cons 'continuation __tmp95433)))) + (cons 'continuation __tmp96068)))) (declare (not safe)) - (cons __tmp95432 '())))) + (cons __tmp96067 '())))) (declare (not safe)) - (cons __tmp95435 __tmp95431)))) + (cons __tmp96070 __tmp96066)))) (declare (not safe)) - (cons __tmp95438 __tmp95430)))) + (cons __tmp96073 __tmp96065)))) (declare (not safe)) - (cons __tmp95441 __tmp95429)))) + (cons __tmp96076 __tmp96064)))) (declare (not safe)) (##unchecked-structure-set! - __obj95143 - __tmp95428 + __obj95778 + __tmp96063 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95444 - (let ((__tmp95457 - (let ((__tmp95458 |[1]#_g95459_|)) + (let ((__tmp96079 + (let ((__tmp96092 + (let ((__tmp96093 |[1]#_g96094_|)) (declare (not safe)) - (cons 'message __tmp95458))) - (__tmp95445 - (let ((__tmp95454 - (let ((__tmp95455 |[1]#_g95456_|)) + (cons 'message __tmp96093))) + (__tmp96080 + (let ((__tmp96089 + (let ((__tmp96090 |[1]#_g96091_|)) (declare (not safe)) - (cons 'irritants __tmp95455))) - (__tmp95446 - (let ((__tmp95451 - (let ((__tmp95452 |[1]#_g95453_|)) + (cons 'irritants __tmp96090))) + (__tmp96081 + (let ((__tmp96086 + (let ((__tmp96087 |[1]#_g96088_|)) (declare (not safe)) - (cons 'where __tmp95452))) - (__tmp95447 - (let ((__tmp95448 - (let ((__tmp95449 |[1]#_g95450_|)) + (cons 'where __tmp96087))) + (__tmp96082 + (let ((__tmp96083 + (let ((__tmp96084 |[1]#_g96085_|)) (declare (not safe)) - (cons 'continuation __tmp95449)))) + (cons 'continuation __tmp96084)))) (declare (not safe)) - (cons __tmp95448 '())))) + (cons __tmp96083 '())))) (declare (not safe)) - (cons __tmp95451 __tmp95447)))) + (cons __tmp96086 __tmp96082)))) (declare (not safe)) - (cons __tmp95454 __tmp95446)))) + (cons __tmp96089 __tmp96081)))) (declare (not safe)) - (cons __tmp95457 __tmp95445)))) + (cons __tmp96092 __tmp96080)))) (declare (not safe)) (##unchecked-structure-set! - __obj95143 - __tmp95444 + __obj95778 + __tmp96079 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95460 - (let ((__tmp95473 - (let ((__tmp95474 |[1]#_g95475_|)) + (let ((__tmp96095 + (let ((__tmp96108 + (let ((__tmp96109 |[1]#_g96110_|)) (declare (not safe)) - (cons 'message __tmp95474))) - (__tmp95461 - (let ((__tmp95470 - (let ((__tmp95471 |[1]#_g95472_|)) + (cons 'message __tmp96109))) + (__tmp96096 + (let ((__tmp96105 + (let ((__tmp96106 |[1]#_g96107_|)) (declare (not safe)) - (cons 'irritants __tmp95471))) - (__tmp95462 - (let ((__tmp95467 - (let ((__tmp95468 |[1]#_g95469_|)) + (cons 'irritants __tmp96106))) + (__tmp96097 + (let ((__tmp96102 + (let ((__tmp96103 |[1]#_g96104_|)) (declare (not safe)) - (cons 'where __tmp95468))) - (__tmp95463 - (let ((__tmp95464 - (let ((__tmp95465 |[1]#_g95466_|)) + (cons 'where __tmp96103))) + (__tmp96098 + (let ((__tmp96099 + (let ((__tmp96100 |[1]#_g96101_|)) (declare (not safe)) - (cons 'continuation __tmp95465)))) + (cons 'continuation __tmp96100)))) (declare (not safe)) - (cons __tmp95464 '())))) + (cons __tmp96099 '())))) (declare (not safe)) - (cons __tmp95467 __tmp95463)))) + (cons __tmp96102 __tmp96098)))) (declare (not safe)) - (cons __tmp95470 __tmp95462)))) + (cons __tmp96105 __tmp96097)))) (declare (not safe)) - (cons __tmp95473 __tmp95461)))) + (cons __tmp96108 __tmp96096)))) (declare (not safe)) (##unchecked-structure-set! - __obj95143 - __tmp95460 + __obj95778 + __tmp96095 '14 gerbil/core$$#class-type-info::t '#f)) - __obj95143)) + __obj95778)) (define |[:0:]#RuntimeException| - (let ((__obj95144 + (let ((__obj95779 (let () (declare (not safe)) (##structure @@ -856,7 +856,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95144 + __obj95779 'gerbil/runtime/error#RuntimeException::t '1 gerbil/core$$#class-type-info::t @@ -864,7 +864,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95144 + __obj95779 'RuntimeException '2 gerbil/core$$#class-type-info::t @@ -872,30 +872,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95144 + __obj95779 '(exception) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95476 - (let ((__tmp95479 |[1]#_g95405_|) - (__tmp95477 - (let ((__tmp95478 |[1]#_g95403_|)) + (let ((__tmp96111 + (let ((__tmp96114 |[1]#_g96040_|) + (__tmp96112 + (let ((__tmp96113 |[1]#_g96038_|)) (declare (not safe)) - (cons __tmp95478 '())))) + (cons __tmp96113 '())))) (declare (not safe)) - (cons __tmp95479 __tmp95477)))) + (cons __tmp96114 __tmp96112)))) (declare (not safe)) (##unchecked-structure-set! - __obj95144 - __tmp95476 + __obj95779 + __tmp96111 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj95144 + __obj95779 '#f '5 gerbil/core$$#class-type-info::t @@ -903,7 +903,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95144 + __obj95779 '#f '6 gerbil/core$$#class-type-info::t @@ -911,971 +911,971 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj95144 + __obj95779 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95480 |[1]#_g95481_|)) + (let ((__tmp96115 |[1]#_g96116_|)) (declare (not safe)) (##unchecked-structure-set! - __obj95144 - __tmp95480 + __obj95779 + __tmp96115 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95482 |[1]#_g95483_|)) + (let ((__tmp96117 |[1]#_g96118_|)) (declare (not safe)) (##unchecked-structure-set! - __obj95144 - __tmp95482 + __obj95779 + __tmp96117 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95484 |[1]#_g95485_|)) + (let ((__tmp96119 |[1]#_g96120_|)) (declare (not safe)) (##unchecked-structure-set! - __obj95144 - __tmp95484 + __obj95779 + __tmp96119 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95486 - (let ((__tmp95491 - (let ((__tmp95492 |[1]#_g95493_|)) + (let ((__tmp96121 + (let ((__tmp96126 + (let ((__tmp96127 |[1]#_g96128_|)) (declare (not safe)) - (cons 'exception __tmp95492))) - (__tmp95487 - (let ((__tmp95488 - (let ((__tmp95489 |[1]#_g95490_|)) + (cons 'exception __tmp96127))) + (__tmp96122 + (let ((__tmp96123 + (let ((__tmp96124 |[1]#_g96125_|)) (declare (not safe)) - (cons 'continuation __tmp95489)))) + (cons 'continuation __tmp96124)))) (declare (not safe)) - (cons __tmp95488 '())))) + (cons __tmp96123 '())))) (declare (not safe)) - (cons __tmp95491 __tmp95487)))) + (cons __tmp96126 __tmp96122)))) (declare (not safe)) (##unchecked-structure-set! - __obj95144 - __tmp95486 + __obj95779 + __tmp96121 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95494 - (let ((__tmp95499 - (let ((__tmp95500 |[1]#_g95501_|)) + (let ((__tmp96129 + (let ((__tmp96134 + (let ((__tmp96135 |[1]#_g96136_|)) (declare (not safe)) - (cons 'exception __tmp95500))) - (__tmp95495 - (let ((__tmp95496 - (let ((__tmp95497 |[1]#_g95498_|)) + (cons 'exception __tmp96135))) + (__tmp96130 + (let ((__tmp96131 + (let ((__tmp96132 |[1]#_g96133_|)) (declare (not safe)) - (cons 'continuation __tmp95497)))) + (cons 'continuation __tmp96132)))) (declare (not safe)) - (cons __tmp95496 '())))) + (cons __tmp96131 '())))) (declare (not safe)) - (cons __tmp95499 __tmp95495)))) + (cons __tmp96134 __tmp96130)))) (declare (not safe)) (##unchecked-structure-set! - __obj95144 - __tmp95494 + __obj95779 + __tmp96129 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95502 - (let ((__tmp95507 - (let ((__tmp95508 |[1]#_g95509_|)) + (let ((__tmp96137 + (let ((__tmp96142 + (let ((__tmp96143 |[1]#_g96144_|)) (declare (not safe)) - (cons 'exception __tmp95508))) - (__tmp95503 - (let ((__tmp95504 - (let ((__tmp95505 |[1]#_g95506_|)) + (cons 'exception __tmp96143))) + (__tmp96138 + (let ((__tmp96139 + (let ((__tmp96140 |[1]#_g96141_|)) (declare (not safe)) - (cons 'continuation __tmp95505)))) + (cons 'continuation __tmp96140)))) (declare (not safe)) - (cons __tmp95504 '())))) + (cons __tmp96139 '())))) (declare (not safe)) - (cons __tmp95507 __tmp95503)))) + (cons __tmp96142 __tmp96138)))) (declare (not safe)) (##unchecked-structure-set! - __obj95144 - __tmp95502 + __obj95779 + __tmp96137 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp95510 - (let ((__tmp95515 - (let ((__tmp95516 |[1]#_g95517_|)) + (let ((__tmp96145 + (let ((__tmp96150 + (let ((__tmp96151 |[1]#_g96152_|)) (declare (not safe)) - (cons 'exception __tmp95516))) - (__tmp95511 - (let ((__tmp95512 - (let ((__tmp95513 |[1]#_g95514_|)) + (cons 'exception __tmp96151))) + (__tmp96146 + (let ((__tmp96147 + (let ((__tmp96148 |[1]#_g96149_|)) (declare (not safe)) - (cons 'continuation __tmp95513)))) + (cons 'continuation __tmp96148)))) (declare (not safe)) - (cons __tmp95512 '())))) + (cons __tmp96147 '())))) (declare (not safe)) - (cons __tmp95515 __tmp95511)))) + (cons __tmp96150 __tmp96146)))) (declare (not safe)) (##unchecked-structure-set! - __obj95144 - __tmp95510 + __obj95779 + __tmp96145 '14 gerbil/core$$#class-type-info::t '#f)) - __obj95144)) + __obj95779)) (define |[:0:]#check-procedure| - (lambda (_$stx89035_) - (let* ((_g8903989057_ - (lambda (_g8904089053_) + (lambda (_$stx89570_) + (let* ((_g8957489592_ + (lambda (_g8957589588_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8904089053_))) - (_g8903889113_ - (lambda (_g8904089061_) - (if (gx#stx-pair? _g8904089061_) - (let ((_e8904589064_ (gx#syntax-e _g8904089061_))) - (let ((_hd8904489068_ + _g8957589588_))) + (_g8957389648_ + (lambda (_g8957589596_) + (if (gx#stx-pair? _g8957589596_) + (let ((_e8958089599_ (gx#syntax-e _g8957589596_))) + (let ((_hd8957989603_ (let () (declare (not safe)) - (##car _e8904589064_))) - (_tl8904389071_ + (##car _e8958089599_))) + (_tl8957889606_ (let () (declare (not safe)) - (##cdr _e8904589064_)))) - (if (gx#stx-pair? _tl8904389071_) - (let ((_e8904889074_ - (gx#syntax-e _tl8904389071_))) - (let ((_hd8904789078_ + (##cdr _e8958089599_)))) + (if (gx#stx-pair? _tl8957889606_) + (let ((_e8958389609_ + (gx#syntax-e _tl8957889606_))) + (let ((_hd8958289613_ (let () (declare (not safe)) - (##car _e8904889074_))) - (_tl8904689081_ + (##car _e8958389609_))) + (_tl8958189616_ (let () (declare (not safe)) - (##cdr _e8904889074_)))) - (if (gx#stx-pair? _tl8904689081_) - (let ((_e8905189084_ - (gx#syntax-e _tl8904689081_))) - (let ((_hd8905089088_ + (##cdr _e8958389609_)))) + (if (gx#stx-pair? _tl8958189616_) + (let ((_e8958689619_ + (gx#syntax-e _tl8958189616_))) + (let ((_hd8958589623_ (let () (declare (not safe)) - (##car _e8905189084_))) - (_tl8904989091_ + (##car _e8958689619_))) + (_tl8958489626_ (let () (declare (not safe)) - (##cdr _e8905189084_)))) - (if (gx#stx-null? _tl8904989091_) - ((lambda (_L89094_ _L89096_) - (let ((__tmp95539 + (##cdr _e8958689619_)))) + (if (gx#stx-null? _tl8958489626_) + ((lambda (_L89629_ _L89631_) + (let ((__tmp96174 (gx#datum->syntax '#f 'unless)) - (__tmp95518 - (let ((__tmp95536 - (let ((__tmp95538 + (__tmp96153 + (let ((__tmp96171 + (let ((__tmp96173 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp95537 + (__tmp96172 (let () (declare (not safe)) - (cons _L89096_ '())))) + (cons _L89631_ '())))) (declare (not safe)) - (cons __tmp95538 __tmp95537))) - (__tmp95519 - (let ((__tmp95520 - (let ((__tmp95535 (gx#datum->syntax '#f 'raise)) - (__tmp95521 - (let ((__tmp95522 - (let ((__tmp95534 + (cons __tmp96173 __tmp96172))) + (__tmp96154 + (let ((__tmp96155 + (let ((__tmp96170 (gx#datum->syntax '#f 'raise)) + (__tmp96156 + (let ((__tmp96157 + (let ((__tmp96169 (gx#datum->syntax '#f 'Error)) - (__tmp95523 - (let ((__tmp95524 - (let ((__tmp95525 + (__tmp96158 + (let ((__tmp96159 + (let ((__tmp96160 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp95531 - (let ((__tmp95533 + (let ((__tmp96166 + (let ((__tmp96168 (gx#datum->syntax '#f 'quote)) - (__tmp95532 + (__tmp96167 (let () (declare (not safe)) - (cons _L89094_ '())))) + (cons _L89629_ '())))) (declare (not safe)) - (cons __tmp95533 __tmp95532))) - (__tmp95526 - (let ((__tmp95527 - (let ((__tmp95528 - (let ((__tmp95530 + (cons __tmp96168 __tmp96167))) + (__tmp96161 + (let ((__tmp96162 + (let ((__tmp96163 + (let ((__tmp96165 (gx#datum->syntax '#f '@list)) - (__tmp95529 + (__tmp96164 (let () (declare (not safe)) - (cons _L89096_ '())))) + (cons _L89631_ '())))) (declare (not safe)) - (cons __tmp95530 __tmp95529)))) + (cons __tmp96165 __tmp96164)))) (declare (not safe)) - (cons __tmp95528 '())))) + (cons __tmp96163 '())))) (declare (not safe)) - (cons 'irritants: __tmp95527)))) + (cons 'irritants: __tmp96162)))) (declare (not safe)) - (cons __tmp95531 __tmp95526)))) + (cons __tmp96166 __tmp96161)))) (declare (not safe)) - (cons 'where: __tmp95525)))) + (cons 'where: __tmp96160)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"expected procedure" - __tmp95524)))) + __tmp96159)))) (declare (not safe)) - (cons __tmp95534 __tmp95523)))) + (cons __tmp96169 __tmp96158)))) (declare (not safe)) - (cons __tmp95522 '())))) + (cons __tmp96157 '())))) (declare (not safe)) - (cons __tmp95535 __tmp95521)))) + (cons __tmp96170 __tmp96156)))) (declare (not safe)) - (cons __tmp95520 '())))) + (cons __tmp96155 '())))) (declare (not safe)) - (cons __tmp95536 __tmp95519)))) + (cons __tmp96171 __tmp96154)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp95539 - __tmp95518))) - _hd8905089088_ - _hd8904789078_) - (_g8903989057_ _g8904089061_)))) - (_g8903989057_ _g8904089061_)))) - (_g8903989057_ _g8904089061_)))) - (_g8903989057_ _g8904089061_))))) - (_g8903889113_ _$stx89035_)))) + (cons __tmp96174 + __tmp96153))) + _hd8958589623_ + _hd8958289613_) + (_g8957489592_ _g8957589596_)))) + (_g8957489592_ _g8957589596_)))) + (_g8957489592_ _g8957589596_)))) + (_g8957489592_ _g8957589596_))))) + (_g8957389648_ _$stx89570_)))) (define |[:0:]#defruntime-exception| - (lambda (_stx89117_) - (let* ((_g8912089147_ - (lambda (_g8912189143_) + (lambda (_stx89652_) + (let* ((_g8965589682_ + (lambda (_g8965689678_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8912189143_))) - (_g8911989382_ - (lambda (_g8912189151_) - (if (gx#stx-pair? _g8912189151_) - (let ((_e8912689154_ (gx#syntax-e _g8912189151_))) - (let ((_hd8912589158_ + _g8965689678_))) + (_g8965489917_ + (lambda (_g8965689686_) + (if (gx#stx-pair? _g8965689686_) + (let ((_e8966189689_ (gx#syntax-e _g8965689686_))) + (let ((_hd8966089693_ (let () (declare (not safe)) - (##car _e8912689154_))) - (_tl8912489161_ + (##car _e8966189689_))) + (_tl8965989696_ (let () (declare (not safe)) - (##cdr _e8912689154_)))) - (if (gx#stx-pair? _tl8912489161_) - (let ((_e8912989164_ - (gx#syntax-e _tl8912489161_))) - (let ((_hd8912889168_ + (##cdr _e8966189689_)))) + (if (gx#stx-pair? _tl8965989696_) + (let ((_e8966489699_ + (gx#syntax-e _tl8965989696_))) + (let ((_hd8966389703_ (let () (declare (not safe)) - (##car _e8912989164_))) - (_tl8912789171_ + (##car _e8966489699_))) + (_tl8966289706_ (let () (declare (not safe)) - (##cdr _e8912989164_)))) - (if (gx#stx-pair? _hd8912889168_) - (let ((_e8913289174_ - (gx#syntax-e _hd8912889168_))) - (let ((_hd8913189178_ + (##cdr _e8966489699_)))) + (if (gx#stx-pair? _hd8966389703_) + (let ((_e8966789709_ + (gx#syntax-e _hd8966389703_))) + (let ((_hd8966689713_ (let () (declare (not safe)) - (##car _e8913289174_))) - (_tl8913089181_ + (##car _e8966789709_))) + (_tl8966589716_ (let () (declare (not safe)) - (##cdr _e8913289174_)))) + (##cdr _e8966789709_)))) (if (gx#stx-pair/null? - _tl8913089181_) - (let ((_g95540_ + _tl8966589716_) + (let ((_g96175_ (gx#syntax-split-splice - _tl8913089181_ + _tl8966589716_ '0))) (begin - (let ((_g95541_ + (let ((_g96176_ (let () (declare (not safe)) (if (##values? - _g95540_) + _g96175_) (##vector-length - _g95540_) + _g96175_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g95541_ 2))) - (error "Context expects 2 values" _g95541_))) + (##fx= _g96176_ 2))) + (error "Context expects 2 values" _g96176_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target8913389184_ + (let ((_target8966889719_ (let () (declare (not safe)) (##vector-ref - _g95540_ + _g96175_ 0))) - (_tl8913589187_ + (_tl8967089722_ (let () (declare (not safe)) (##vector-ref - _g95540_ + _g96175_ 1)))) (if (gx#stx-null? - _tl8913589187_) - (letrec ((_loop8913689190_ + _tl8967089722_) + (letrec ((_loop8967189725_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd8913489194_ _getf8914089197_) - (if (gx#stx-pair? _hd8913489194_) - (let ((_e8913789200_ - (gx#syntax-e _hd8913489194_))) - (let ((_lp-hd8913889204_ + (lambda (_hd8966989729_ _getf8967589732_) + (if (gx#stx-pair? _hd8966989729_) + (let ((_e8967289735_ + (gx#syntax-e _hd8966989729_))) + (let ((_lp-hd8967389739_ (let () (declare (not safe)) - (##car _e8913789200_))) - (_lp-tl8913989207_ + (##car _e8967289735_))) + (_lp-tl8967489742_ (let () (declare (not safe)) - (##cdr _e8913789200_)))) - (_loop8913689190_ - _lp-tl8913989207_ + (##cdr _e8967289735_)))) + (_loop8967189725_ + _lp-tl8967489742_ (let () (declare (not safe)) - (cons _lp-hd8913889204_ - _getf8914089197_))))) - (let ((_getf8914189210_ - (reverse _getf8914089197_))) - (if (gx#stx-null? _tl8912789171_) - ((lambda (_L89214_ _L89216_) - (let* ((_g8923689260_ - (lambda (_g8923789256_) + (cons _lp-hd8967389739_ + _getf8967589732_))))) + (let ((_getf8967689745_ + (reverse _getf8967589732_))) + (if (gx#stx-null? _tl8966289706_) + ((lambda (_L89749_ _L89751_) + (let* ((_g8977189795_ + (lambda (_g8977289791_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8923789256_))) - (_g8923589367_ - (lambda (_g8923789264_) + _g8977289791_))) + (_g8977089902_ + (lambda (_g8977289799_) (if (gx#stx-pair? - _g8923789264_) - (let ((_e8924289267_ + _g8977289799_) + (let ((_e8977789802_ (gx#syntax-e - _g8923789264_))) - (let ((_hd8924189271_ + _g8977289799_))) + (let ((_hd8977689806_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e8924289267_))) - (_tl8924089274_ - (let () (declare (not safe)) (##cdr _e8924289267_)))) - (if (gx#stx-pair? _tl8924089274_) - (let ((_e8924589277_ (gx#syntax-e _tl8924089274_))) - (let ((_hd8924489281_ + (##car _e8977789802_))) + (_tl8977589809_ + (let () (declare (not safe)) (##cdr _e8977789802_)))) + (if (gx#stx-pair? _tl8977589809_) + (let ((_e8978089812_ (gx#syntax-e _tl8977589809_))) + (let ((_hd8977989816_ (let () (declare (not safe)) - (##car _e8924589277_))) - (_tl8924389284_ + (##car _e8978089812_))) + (_tl8977889819_ (let () (declare (not safe)) - (##cdr _e8924589277_)))) - (if (gx#stx-pair/null? _hd8924489281_) - (let ((_g95542_ + (##cdr _e8978089812_)))) + (if (gx#stx-pair/null? _hd8977989816_) + (let ((_g96177_ (gx#syntax-split-splice - _hd8924489281_ + _hd8977989816_ '0))) (begin - (let ((_g95543_ + (let ((_g96178_ (let () (declare (not safe)) - (if (##values? _g95542_) - (##vector-length _g95542_) + (if (##values? _g96177_) + (##vector-length _g96177_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g95543_ 2))) + (##fx= _g96178_ 2))) (error "Context expects 2 values" - _g95543_))) - (let ((_target8924689287_ + _g96178_))) + (let ((_target8978189822_ (let () (declare (not safe)) - (##vector-ref _g95542_ 0))) - (_tl8924889290_ + (##vector-ref _g96177_ 0))) + (_tl8978389825_ (let () (declare (not safe)) - (##vector-ref _g95542_ 1)))) - (if (gx#stx-null? _tl8924889290_) - (letrec ((_loop8924989293_ - (lambda (_hd8924789297_ - _macro-getf8925389300_) + (##vector-ref _g96177_ 1)))) + (if (gx#stx-null? _tl8978389825_) + (letrec ((_loop8978489828_ + (lambda (_hd8978289832_ + _macro-getf8978889835_) (if (gx#stx-pair? - _hd8924789297_) - (let ((_e8925089303_ + _hd8978289832_) + (let ((_e8978589838_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd8924789297_))) - (let ((_lp-hd8925189307_ - (let () (declare (not safe)) (##car _e8925089303_))) - (_lp-tl8925289310_ - (let () (declare (not safe)) (##cdr _e8925089303_)))) - (_loop8924989293_ - _lp-tl8925289310_ + _hd8978289832_))) + (let ((_lp-hd8978689842_ + (let () (declare (not safe)) (##car _e8978589838_))) + (_lp-tl8978789845_ + (let () (declare (not safe)) (##cdr _e8978589838_)))) + (_loop8978489828_ + _lp-tl8978789845_ (let () (declare (not safe)) - (cons _lp-hd8925189307_ _macro-getf8925389300_))))) - (let ((_macro-getf8925489313_ - (reverse _macro-getf8925389300_))) - (if (gx#stx-null? _tl8924389284_) - ((lambda (_L89317_ _L89319_) + (cons _lp-hd8978689842_ _macro-getf8978889835_))))) + (let ((_macro-getf8978989848_ + (reverse _macro-getf8978889835_))) + (if (gx#stx-null? _tl8977889819_) + ((lambda (_L89852_ _L89854_) (let () - (let ((__tmp95667 (gx#datum->syntax '#f 'begin)) - (__tmp95544 - (let ((__tmp95662 - (let ((__tmp95666 + (let ((__tmp96302 (gx#datum->syntax '#f 'begin)) + (__tmp96179 + (let ((__tmp96297 + (let ((__tmp96301 (gx#datum->syntax '#f 'extern)) - (__tmp95663 - (let ((__tmp95664 - (let ((__tmp95665 - (lambda (_g8934489347_ + (__tmp96298 + (let ((__tmp96299 + (let ((__tmp96300 + (lambda (_g8987989882_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g8934589350_) + _g8988089885_) (let () (declare (not safe)) - (cons _g8934489347_ _g8934589350_))))) + (cons _g8987989882_ _g8988089885_))))) (declare (not safe)) - (foldr1 __tmp95665 '() _L89317_)))) + (foldr1 __tmp96300 '() _L89852_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L89319_ - __tmp95664)))) + (cons _L89854_ + __tmp96299)))) (declare (not safe)) - (cons __tmp95666 __tmp95663))) - (__tmp95545 - (let ((__tmp95629 - (let ((__tmp95661 + (cons __tmp96301 __tmp96298))) + (__tmp96180 + (let ((__tmp96264 + (let ((__tmp96296 (gx#datum->syntax '#f 'def)) - (__tmp95630 - (let ((__tmp95658 - (let ((__tmp95659 + (__tmp96265 + (let ((__tmp96293 + (let ((__tmp96294 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp95660 (gx#datum->syntax '#f 'exn))) + (let ((__tmp96295 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp95660 '())))) + (cons __tmp96295 '())))) (declare (not safe)) - (cons _L89216_ __tmp95659))) - (__tmp95631 - (let ((__tmp95632 - (let ((__tmp95657 (gx#datum->syntax '#f 'if)) - (__tmp95633 - (let ((__tmp95653 - (let ((__tmp95656 + (cons _L89751_ __tmp96294))) + (__tmp96266 + (let ((__tmp96267 + (let ((__tmp96292 (gx#datum->syntax '#f 'if)) + (__tmp96268 + (let ((__tmp96288 + (let ((__tmp96291 (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp95654 - (let ((__tmp95655 + (__tmp96289 + (let ((__tmp96290 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp95655 '())))) + (cons __tmp96290 '())))) (declare (not safe)) - (cons __tmp95656 __tmp95654))) - (__tmp95634 - (let ((__tmp95639 - (let ((__tmp95652 + (cons __tmp96291 __tmp96289))) + (__tmp96269 + (let ((__tmp96274 + (let ((__tmp96287 (gx#datum->syntax '#f 'let)) - (__tmp95640 - (let ((__tmp95645 + (__tmp96275 + (let ((__tmp96280 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp95651 (gx#datum->syntax '#f 'e)) - (__tmp95646 - (let ((__tmp95647 - (let ((__tmp95650 + (let ((__tmp96286 (gx#datum->syntax '#f 'e)) + (__tmp96281 + (let ((__tmp96282 + (let ((__tmp96285 (gx#datum->syntax '#f '&RuntimeException-exception)) - (__tmp95648 - (let ((__tmp95649 + (__tmp96283 + (let ((__tmp96284 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp95649 '())))) + (cons __tmp96284 '())))) (declare (not safe)) - (cons __tmp95650 __tmp95648)))) + (cons __tmp96285 __tmp96283)))) (declare (not safe)) - (cons __tmp95647 '())))) + (cons __tmp96282 '())))) (declare (not safe)) - (cons __tmp95651 __tmp95646))) - (__tmp95641 - (let ((__tmp95642 - (let ((__tmp95643 - (let ((__tmp95644 + (cons __tmp96286 __tmp96281))) + (__tmp96276 + (let ((__tmp96277 + (let ((__tmp96278 + (let ((__tmp96279 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp95644 '())))) + (cons __tmp96279 '())))) (declare (not safe)) - (cons _L89319_ __tmp95643)))) + (cons _L89854_ __tmp96278)))) (declare (not safe)) - (cons __tmp95642 '())))) + (cons __tmp96277 '())))) (declare (not safe)) - (cons __tmp95645 __tmp95641)))) + (cons __tmp96280 __tmp96276)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp95652 - __tmp95640))) - (__tmp95635 - (let ((__tmp95636 - (let ((__tmp95637 + (cons __tmp96287 + __tmp96275))) + (__tmp96270 + (let ((__tmp96271 + (let ((__tmp96272 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp95638 (gx#datum->syntax '#f 'exn))) + (let ((__tmp96273 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp95638 '())))) + (cons __tmp96273 '())))) (declare (not safe)) - (cons _L89319_ __tmp95637)))) + (cons _L89854_ __tmp96272)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp95636 '())))) + (cons __tmp96271 '())))) (declare (not safe)) - (cons __tmp95639 __tmp95635)))) + (cons __tmp96274 __tmp96270)))) (declare (not safe)) - (cons __tmp95653 __tmp95634)))) + (cons __tmp96288 __tmp96269)))) (declare (not safe)) - (cons __tmp95657 __tmp95633)))) + (cons __tmp96292 __tmp96268)))) (declare (not safe)) - (cons __tmp95632 '())))) + (cons __tmp96267 '())))) (declare (not safe)) - (cons __tmp95658 __tmp95631)))) + (cons __tmp96293 __tmp96266)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp95661 - __tmp95630))) - (__tmp95546 + (cons __tmp96296 + __tmp96265))) + (__tmp96181 (begin (gx#syntax-check-splice-targets - _L89214_ - _L89317_ - _L89214_ - _L89317_ - _L89214_) - (let ((__tmp95547 - (lambda (_g8933889353_ + _L89749_ + _L89852_ + _L89749_ + _L89852_ + _L89749_) + (let ((__tmp96182 + (lambda (_g8987389888_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g8933989356_ - _g8934089358_ - _g8934189360_ - _g8934289362_ - _g8934389364_) - (let ((__tmp95548 - (let ((__tmp95628 (gx#datum->syntax '#f 'def)) - (__tmp95549 - (let ((__tmp95625 - (let ((__tmp95626 - (let ((__tmp95627 + _g8987489891_ + _g8987589893_ + _g8987689895_ + _g8987789897_ + _g8987889899_) + (let ((__tmp96183 + (let ((__tmp96263 (gx#datum->syntax '#f 'def)) + (__tmp96184 + (let ((__tmp96260 + (let ((__tmp96261 + (let ((__tmp96262 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp95627 '())))) + (cons __tmp96262 '())))) (declare (not safe)) - (cons _g8933889353_ __tmp95626))) - (__tmp95550 - (let ((__tmp95551 - (let ((__tmp95624 + (cons _g8987389888_ __tmp96261))) + (__tmp96185 + (let ((__tmp96186 + (let ((__tmp96259 (gx#datum->syntax '#f 'if)) - (__tmp95552 - (let ((__tmp95620 - (let ((__tmp95623 + (__tmp96187 + (let ((__tmp96255 + (let ((__tmp96258 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp95621 - (let ((__tmp95622 (gx#datum->syntax '#f 'exn))) + (__tmp96256 + (let ((__tmp96257 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp95622 '())))) + (cons __tmp96257 '())))) (declare (not safe)) - (cons __tmp95623 __tmp95621))) - (__tmp95553 - (let ((__tmp95582 - (let ((__tmp95619 (gx#datum->syntax '#f 'let)) - (__tmp95583 - (let ((__tmp95612 - (let ((__tmp95618 + (cons __tmp96258 __tmp96256))) + (__tmp96188 + (let ((__tmp96217 + (let ((__tmp96254 (gx#datum->syntax '#f 'let)) + (__tmp96218 + (let ((__tmp96247 + (let ((__tmp96253 (gx#datum->syntax '#f 'e)) - (__tmp95613 - (let ((__tmp95614 - (let ((__tmp95617 + (__tmp96248 + (let ((__tmp96249 + (let ((__tmp96252 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&RuntimeException-exception)) - (__tmp95615 - (let ((__tmp95616 (gx#datum->syntax '#f 'exn))) + (__tmp96250 + (let ((__tmp96251 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp95616 '())))) + (cons __tmp96251 '())))) (declare (not safe)) - (cons __tmp95617 __tmp95615)))) + (cons __tmp96252 __tmp96250)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp95614 '())))) + (cons __tmp96249 '())))) (declare (not safe)) - (cons __tmp95618 __tmp95613))) - (__tmp95584 - (let ((__tmp95585 - (let ((__tmp95611 + (cons __tmp96253 __tmp96248))) + (__tmp96219 + (let ((__tmp96220 + (let ((__tmp96246 (gx#datum->syntax '#f 'if)) - (__tmp95586 - (let ((__tmp95608 - (let ((__tmp95609 + (__tmp96221 + (let ((__tmp96243 + (let ((__tmp96244 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp95610 (gx#datum->syntax '#f 'e))) + (let ((__tmp96245 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp95610 '())))) + (cons __tmp96245 '())))) (declare (not safe)) - (cons _L89319_ __tmp95609))) - (__tmp95587 - (let ((__tmp95605 - (let ((__tmp95606 - (let ((__tmp95607 + (cons _L89854_ __tmp96244))) + (__tmp96222 + (let ((__tmp96240 + (let ((__tmp96241 + (let ((__tmp96242 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp95607 '())))) + (cons __tmp96242 '())))) (declare (not safe)) - (cons _g8933989356_ __tmp95606))) - (__tmp95588 - (let ((__tmp95589 - (let ((__tmp95604 + (cons _g8987489891_ __tmp96241))) + (__tmp96223 + (let ((__tmp96224 + (let ((__tmp96239 (gx#datum->syntax '#f 'error)) - (__tmp95590 - (let ((__tmp95591 - (let ((__tmp95601 - (let ((__tmp95603 + (__tmp96225 + (let ((__tmp96226 + (let ((__tmp96236 + (let ((__tmp96238 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp95602 - (let () (declare (not safe)) (cons _L89216_ '())))) + (__tmp96237 + (let () (declare (not safe)) (cons _L89751_ '())))) (declare (not safe)) - (cons __tmp95603 __tmp95602))) - (__tmp95592 - (let ((__tmp95593 - (let ((__tmp95600 (gx#datum->syntax '#f '@list)) - (__tmp95594 - (let ((__tmp95597 - (let ((__tmp95599 + (cons __tmp96238 __tmp96237))) + (__tmp96227 + (let ((__tmp96228 + (let ((__tmp96235 (gx#datum->syntax '#f '@list)) + (__tmp96229 + (let ((__tmp96232 + (let ((__tmp96234 (gx#datum->syntax '#f 'quote)) - (__tmp95598 + (__tmp96233 (let () (declare (not safe)) - (cons _g8933889353_ '())))) + (cons _g8987389888_ '())))) (declare (not safe)) - (cons __tmp95599 __tmp95598))) - (__tmp95595 - (let ((__tmp95596 + (cons __tmp96234 __tmp96233))) + (__tmp96230 + (let ((__tmp96231 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp95596 '())))) + (cons __tmp96231 '())))) (declare (not safe)) - (cons __tmp95597 __tmp95595)))) + (cons __tmp96232 __tmp96230)))) (declare (not safe)) - (cons __tmp95600 __tmp95594)))) + (cons __tmp96235 __tmp96229)))) (declare (not safe)) - (cons __tmp95593 '())))) + (cons __tmp96228 '())))) (declare (not safe)) - (cons __tmp95601 __tmp95592)))) + (cons __tmp96236 __tmp96227)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"not an instance" - __tmp95591)))) + __tmp96226)))) (declare (not safe)) - (cons __tmp95604 __tmp95590)))) + (cons __tmp96239 __tmp96225)))) (declare (not safe)) - (cons __tmp95589 '())))) + (cons __tmp96224 '())))) (declare (not safe)) - (cons __tmp95605 __tmp95588)))) + (cons __tmp96240 __tmp96223)))) (declare (not safe)) - (cons __tmp95608 __tmp95587)))) + (cons __tmp96243 __tmp96222)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp95611 - __tmp95586)))) + (cons __tmp96246 + __tmp96221)))) (declare (not safe)) - (cons __tmp95585 '())))) + (cons __tmp96220 '())))) (declare (not safe)) - (cons __tmp95612 __tmp95584)))) + (cons __tmp96247 __tmp96219)))) (declare (not safe)) - (cons __tmp95619 __tmp95583))) - (__tmp95554 - (let ((__tmp95555 - (let ((__tmp95581 + (cons __tmp96254 __tmp96218))) + (__tmp96189 + (let ((__tmp96190 + (let ((__tmp96216 (gx#datum->syntax '#f 'if)) - (__tmp95556 - (let ((__tmp95578 - (let ((__tmp95579 - (let ((__tmp95580 + (__tmp96191 + (let ((__tmp96213 + (let ((__tmp96214 + (let ((__tmp96215 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'exn))) (declare (not safe)) - (cons __tmp95580 '())))) + (cons __tmp96215 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L89319_ - __tmp95579))) - (__tmp95557 - (let ((__tmp95575 - (let ((__tmp95576 - (let ((__tmp95577 + (cons _L89854_ + __tmp96214))) + (__tmp96192 + (let ((__tmp96210 + (let ((__tmp96211 + (let ((__tmp96212 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp95577 '())))) + (cons __tmp96212 '())))) (declare (not safe)) - (cons _g8933989356_ __tmp95576))) - (__tmp95558 - (let ((__tmp95559 - (let ((__tmp95574 (gx#datum->syntax '#f 'error)) - (__tmp95560 - (let ((__tmp95561 - (let ((__tmp95571 - (let ((__tmp95573 + (cons _g8987489891_ __tmp96211))) + (__tmp96193 + (let ((__tmp96194 + (let ((__tmp96209 (gx#datum->syntax '#f 'error)) + (__tmp96195 + (let ((__tmp96196 + (let ((__tmp96206 + (let ((__tmp96208 (gx#datum->syntax '#f 'quote)) - (__tmp95572 + (__tmp96207 (let () (declare (not safe)) - (cons _L89216_ '())))) + (cons _L89751_ '())))) (declare (not safe)) - (cons __tmp95573 __tmp95572))) - (__tmp95562 - (let ((__tmp95563 - (let ((__tmp95570 + (cons __tmp96208 __tmp96207))) + (__tmp96197 + (let ((__tmp96198 + (let ((__tmp96205 (gx#datum->syntax '#f '@list)) - (__tmp95564 - (let ((__tmp95567 + (__tmp96199 + (let ((__tmp96202 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp95569 (gx#datum->syntax '#f 'quote)) - (__tmp95568 + (let ((__tmp96204 (gx#datum->syntax '#f 'quote)) + (__tmp96203 (let () (declare (not safe)) - (cons _g8933889353_ '())))) + (cons _g8987389888_ '())))) (declare (not safe)) - (cons __tmp95569 __tmp95568))) - (__tmp95565 - (let ((__tmp95566 (gx#datum->syntax '#f 'exn))) + (cons __tmp96204 __tmp96203))) + (__tmp96200 + (let ((__tmp96201 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp95566 '())))) + (cons __tmp96201 '())))) (declare (not safe)) - (cons __tmp95567 __tmp95565)))) + (cons __tmp96202 __tmp96200)))) (declare (not safe)) - (cons __tmp95570 __tmp95564)))) + (cons __tmp96205 __tmp96199)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp95563 '())))) + (cons __tmp96198 '())))) (declare (not safe)) - (cons __tmp95571 __tmp95562)))) + (cons __tmp96206 __tmp96197)))) (declare (not safe)) - (cons '"not an instance" __tmp95561)))) + (cons '"not an instance" __tmp96196)))) (declare (not safe)) - (cons __tmp95574 __tmp95560)))) + (cons __tmp96209 __tmp96195)))) (declare (not safe)) - (cons __tmp95559 '())))) + (cons __tmp96194 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp95575 - __tmp95558)))) + (cons __tmp96210 + __tmp96193)))) (declare (not safe)) - (cons __tmp95578 __tmp95557)))) + (cons __tmp96213 __tmp96192)))) (declare (not safe)) - (cons __tmp95581 __tmp95556)))) + (cons __tmp96216 __tmp96191)))) (declare (not safe)) - (cons __tmp95555 '())))) + (cons __tmp96190 '())))) (declare (not safe)) - (cons __tmp95582 __tmp95554)))) + (cons __tmp96217 __tmp96189)))) (declare (not safe)) - (cons __tmp95620 __tmp95553)))) + (cons __tmp96255 __tmp96188)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp95624 - __tmp95552)))) + (cons __tmp96259 + __tmp96187)))) (declare (not safe)) - (cons __tmp95551 '())))) + (cons __tmp96186 '())))) (declare (not safe)) - (cons __tmp95625 __tmp95550)))) + (cons __tmp96260 __tmp96185)))) (declare (not safe)) - (cons __tmp95628 __tmp95549)))) + (cons __tmp96263 __tmp96184)))) (declare (not safe)) - (cons __tmp95548 _g8934389364_))))) + (cons __tmp96183 _g8987889899_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr* __tmp95547 + (foldr* __tmp96182 '() - _L89214_ - _L89317_ - _L89214_ - _L89317_ - _L89214_))))) + _L89749_ + _L89852_ + _L89749_ + _L89852_ + _L89749_))))) (declare (not safe)) - (cons __tmp95629 __tmp95546)))) + (cons __tmp96264 __tmp96181)))) (declare (not safe)) - (cons __tmp95662 __tmp95545)))) + (cons __tmp96297 __tmp96180)))) (declare (not safe)) - (cons __tmp95667 __tmp95544)))) - _macro-getf8925489313_ - _hd8924189271_) - (_g8923689260_ _g8923789264_))))))) + (cons __tmp96302 __tmp96179)))) + _macro-getf8978989848_ + _hd8977689806_) + (_g8977189795_ _g8977289799_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop8924989293_ - _target8924689287_ + (_loop8978489828_ + _target8978189822_ '())) - (_g8923689260_ _g8923789264_))))) - (_g8923689260_ _g8923789264_)))) - (_g8923689260_ _g8923789264_)))) - (_g8923689260_ _g8923789264_))))) + (_g8977189795_ _g8977289799_))))) + (_g8977189795_ _g8977289799_)))) + (_g8977189795_ _g8977289799_)))) + (_g8977189795_ _g8977289799_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8923589367_ + (_g8977089902_ (list (gx#stx-identifier - _L89216_ + _L89751_ '"macro-" - _L89216_) - (map (lambda (_f89371_) + _L89751_) + (map (lambda (_f89906_) (gx#stx-identifier - _f89371_ + _f89906_ '"macro-" - _f89371_)) - (let ((__tmp95668 - (lambda (_g8937389376_ + _f89906_)) + (let ((__tmp96303 + (lambda (_g8990889911_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g8937489379_) + _g8990989914_) (let () (declare (not safe)) - (cons _g8937389376_ _g8937489379_))))) + (cons _g8990889911_ _g8990989914_))))) (declare (not safe)) - (foldr1 __tmp95668 '() _L89214_))))))) + (foldr1 __tmp96303 '() _L89749_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _getf8914189210_ - _hd8913189178_) - (_g8912089147_ _g8912189151_))))))) - (_loop8913689190_ _target8913389184_ '())) - (_g8912089147_ _g8912189151_))))) + _getf8967689745_ + _hd8966689713_) + (_g8965589682_ _g8965689686_))))))) + (_loop8967189725_ _target8966889719_ '())) + (_g8965589682_ _g8965689686_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8912089147_ _g8912189151_)))) - (_g8912089147_ _g8912189151_)))) - (_g8912089147_ _g8912189151_)))) - (_g8912089147_ _g8912189151_))))) - (_g8911989382_ _stx89117_)))) + (_g8965589682_ _g8965689686_)))) + (_g8965589682_ _g8965689686_)))) + (_g8965589682_ _g8965689686_)))) + (_g8965589682_ _g8965689686_))))) + (_g8965489917_ _stx89652_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_$stx89388_) - (let* ((_g8939289412_ - (lambda (_g8939389408_) + (lambda (_$stx89923_) + (let* ((_g8992789947_ + (lambda (_g8992889943_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8939389408_))) - (_g8939189483_ - (lambda (_g8939389416_) - (if (gx#stx-pair? _g8939389416_) - (let ((_e8939789419_ (gx#syntax-e _g8939389416_))) - (let ((_hd8939689423_ + _g8992889943_))) + (_g8992690018_ + (lambda (_g8992889951_) + (if (gx#stx-pair? _g8992889951_) + (let ((_e8993289954_ (gx#syntax-e _g8992889951_))) + (let ((_hd8993189958_ (let () (declare (not safe)) - (##car _e8939789419_))) - (_tl8939589426_ + (##car _e8993289954_))) + (_tl8993089961_ (let () (declare (not safe)) - (##cdr _e8939789419_)))) - (if (gx#stx-pair/null? _tl8939589426_) - (let ((_g95669_ + (##cdr _e8993289954_)))) + (if (gx#stx-pair/null? _tl8993089961_) + (let ((_g96304_ (gx#syntax-split-splice - _tl8939589426_ + _tl8993089961_ '0))) (begin - (let ((_g95670_ + (let ((_g96305_ (let () (declare (not safe)) - (if (##values? _g95669_) - (##vector-length _g95669_) + (if (##values? _g96304_) + (##vector-length _g96304_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g95670_ 2))) + (##fx= _g96305_ 2))) (error "Context expects 2 values" - _g95670_))) - (let ((_target8939889429_ + _g96305_))) + (let ((_target8993389964_ (let () (declare (not safe)) - (##vector-ref _g95669_ 0))) - (_tl8940089432_ + (##vector-ref _g96304_ 0))) + (_tl8993589967_ (let () (declare (not safe)) - (##vector-ref _g95669_ 1)))) - (if (gx#stx-null? _tl8940089432_) - (letrec ((_loop8940189435_ - (lambda (_hd8939989439_ - _defexn8940589442_) + (##vector-ref _g96304_ 1)))) + (if (gx#stx-null? _tl8993589967_) + (letrec ((_loop8993689970_ + (lambda (_hd8993489974_ + _defexn8994089977_) (if (gx#stx-pair? - _hd8939989439_) - (let ((_e8940289445_ + _hd8993489974_) + (let ((_e8993789980_ (gx#syntax-e - _hd8939989439_))) - (let ((_lp-hd8940389449_ + _hd8993489974_))) + (let ((_lp-hd8993889984_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e8940289445_))) - (_lp-tl8940489452_ - (let () (declare (not safe)) (##cdr _e8940289445_)))) - (_loop8940189435_ - _lp-tl8940489452_ + (let () (declare (not safe)) (##car _e8993789980_))) + (_lp-tl8993989987_ + (let () (declare (not safe)) (##cdr _e8993789980_)))) + (_loop8993689970_ + _lp-tl8993989987_ (let () (declare (not safe)) - (cons _lp-hd8940389449_ _defexn8940589442_))))) - (let ((_defexn8940689455_ (reverse _defexn8940589442_))) - ((lambda (_L89459_) - (let ((__tmp95676 (gx#datum->syntax '#f 'begin)) - (__tmp95671 - (let ((__tmp95672 - (lambda (_g8947489477_ _g8947589480_) - (let ((__tmp95673 - (let ((__tmp95675 + (cons _lp-hd8993889984_ _defexn8994089977_))))) + (let ((_defexn8994189990_ (reverse _defexn8994089977_))) + ((lambda (_L89994_) + (let ((__tmp96311 (gx#datum->syntax '#f 'begin)) + (__tmp96306 + (let ((__tmp96307 + (lambda (_g9000990012_ _g9001090015_) + (let ((__tmp96308 + (let ((__tmp96310 (gx#datum->syntax '#f 'defruntime-exception)) - (__tmp95674 + (__tmp96309 (let () (declare (not safe)) - (cons _g8947489477_ + (cons _g9000990012_ '())))) (declare (not safe)) - (cons __tmp95675 __tmp95674)))) + (cons __tmp96310 __tmp96309)))) (declare (not safe)) - (cons __tmp95673 _g8947589480_))))) + (cons __tmp96308 _g9001090015_))))) (declare (not safe)) - (foldr1 __tmp95672 '() _L89459_)))) + (foldr1 __tmp96307 '() _L89994_)))) (declare (not safe)) - (cons __tmp95676 __tmp95671))) - _defexn8940689455_)))))) + (cons __tmp96311 __tmp96306))) + _defexn8994189990_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop8940189435_ - _target8939889429_ + (_loop8993689970_ + _target8993389964_ '())) - (_g8939289412_ _g8939389416_))))) - (_g8939289412_ _g8939389416_)))) - (_g8939289412_ _g8939389416_))))) - (_g8939189483_ _$stx89388_)))))) + (_g8992789947_ _g8992889951_))))) + (_g8992789947_ _g8992889951_)))) + (_g8992789947_ _g8992889951_))))) + (_g8992690018_ _$stx89923_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval__0.scm b/src/bootstrap/gerbil/runtime/eval__0.scm index 91b16ff52..05b76d107 100644 --- a/src/bootstrap/gerbil/runtime/eval__0.scm +++ b/src/bootstrap/gerbil/runtime/eval__0.scm @@ -1,1405 +1,1394 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/eval::timestamp 1707573211) + (define gerbil/runtime/eval::timestamp 1707674930) (begin (define __context::t - (let ((__tmp113780 - (let ((__tmp113781 + (let ((__tmp114717 (list)) + (__tmp114715 + (let ((__tmp114716 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp113781 '())))) + (cons __tmp114716 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gerbil/runtime/eval#__context::t '__context - '#f + __tmp114717 '(t ns super table) - __tmp113780 + __tmp114715 '#f))) (define __context? - (let () (declare (not safe)) (make-struct-predicate __context::t))) + (let () (declare (not safe)) (make-class-predicate __context::t))) (define make-__context - (lambda _$args109116_ - (apply make-struct-instance __context::t _$args109116_))) + (lambda _$args109951_ (apply make-instance __context::t _$args109951_))) (define __context-t - (let () - (declare (not safe)) - (make-struct-slot-accessor __context::t 't))) + (let () (declare (not safe)) (make-class-slot-accessor __context::t 't))) (define __context-ns (let () (declare (not safe)) - (make-struct-slot-accessor __context::t 'ns))) + (make-class-slot-accessor __context::t 'ns))) (define __context-super (let () (declare (not safe)) - (make-struct-slot-accessor __context::t 'super))) + (make-class-slot-accessor __context::t 'super))) (define __context-table (let () (declare (not safe)) - (make-struct-slot-accessor __context::t 'table))) + (make-class-slot-accessor __context::t 'table))) (define __context-t-set! - (let () (declare (not safe)) (make-struct-slot-mutator __context::t 't))) + (let () (declare (not safe)) (make-class-slot-mutator __context::t 't))) (define __context-ns-set! - (let () - (declare (not safe)) - (make-struct-slot-mutator __context::t 'ns))) + (let () (declare (not safe)) (make-class-slot-mutator __context::t 'ns))) (define __context-super-set! (let () (declare (not safe)) - (make-struct-slot-mutator __context::t 'super))) + (make-class-slot-mutator __context::t 'super))) (define __context-table-set! (let () (declare (not safe)) - (make-struct-slot-mutator __context::t 'table))) + (make-class-slot-mutator __context::t 'table))) (define &__context-t (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __context::t 't))) + (make-class-slot-unchecked-accessor __context::t 't))) (define &__context-ns (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __context::t 'ns))) + (make-class-slot-unchecked-accessor __context::t 'ns))) (define &__context-super (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __context::t 'super))) + (make-class-slot-unchecked-accessor __context::t 'super))) (define &__context-table (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __context::t 'table))) + (make-class-slot-unchecked-accessor __context::t 'table))) (define &__context-t-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __context::t 't))) + (make-class-slot-unchecked-mutator __context::t 't))) (define &__context-ns-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __context::t 'ns))) + (make-class-slot-unchecked-mutator __context::t 'ns))) (define &__context-super-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __context::t 'super))) + (make-class-slot-unchecked-mutator __context::t 'super))) (define &__context-table-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __context::t 'table))) + (make-class-slot-unchecked-mutator __context::t 'table))) (define __runtime::t - (let ((__tmp113782 - (let ((__tmp113783 + (let ((__tmp114720 (list)) + (__tmp114718 + (let ((__tmp114719 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp113783 '())))) + (cons __tmp114719 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gerbil/runtime/eval#__runtime::t '__runtime - '#f + __tmp114720 '(id) - __tmp113782 + __tmp114718 '#f))) (define __runtime? - (let () (declare (not safe)) (make-struct-predicate __runtime::t))) + (let () (declare (not safe)) (make-class-predicate __runtime::t))) (define make-__runtime - (lambda _$args109113_ - (apply make-struct-instance __runtime::t _$args109113_))) + (lambda _$args109948_ (apply make-instance __runtime::t _$args109948_))) (define __runtime-id (let () (declare (not safe)) - (make-struct-slot-accessor __runtime::t 'id))) + (make-class-slot-accessor __runtime::t 'id))) (define __runtime-id-set! - (let () - (declare (not safe)) - (make-struct-slot-mutator __runtime::t 'id))) + (let () (declare (not safe)) (make-class-slot-mutator __runtime::t 'id))) (define &__runtime-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __runtime::t 'id))) + (make-class-slot-unchecked-accessor __runtime::t 'id))) (define &__runtime-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __runtime::t 'id))) + (make-class-slot-unchecked-mutator __runtime::t 'id))) (define __syntax::t - (let ((__tmp113784 - (let ((__tmp113785 + (let ((__tmp114723 (list)) + (__tmp114721 + (let ((__tmp114722 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp113785 '())))) + (cons __tmp114722 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - '#f + __tmp114723 '(e id) - __tmp113784 + __tmp114721 '#f))) (define __syntax? - (let () (declare (not safe)) (make-struct-predicate __syntax::t))) + (let () (declare (not safe)) (make-class-predicate __syntax::t))) (define make-__syntax - (lambda _$args109110_ - (apply make-struct-instance __syntax::t _$args109110_))) + (lambda _$args109945_ (apply make-instance __syntax::t _$args109945_))) (define __syntax-e - (let () (declare (not safe)) (make-struct-slot-accessor __syntax::t 'e))) + (let () (declare (not safe)) (make-class-slot-accessor __syntax::t 'e))) (define __syntax-id - (let () - (declare (not safe)) - (make-struct-slot-accessor __syntax::t 'id))) + (let () (declare (not safe)) (make-class-slot-accessor __syntax::t 'id))) (define __syntax-e-set! - (let () (declare (not safe)) (make-struct-slot-mutator __syntax::t 'e))) + (let () (declare (not safe)) (make-class-slot-mutator __syntax::t 'e))) (define __syntax-id-set! - (let () (declare (not safe)) (make-struct-slot-mutator __syntax::t 'id))) + (let () (declare (not safe)) (make-class-slot-mutator __syntax::t 'id))) (define &__syntax-e (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __syntax::t 'e))) + (make-class-slot-unchecked-accessor __syntax::t 'e))) (define &__syntax-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __syntax::t 'id))) + (make-class-slot-unchecked-accessor __syntax::t 'id))) (define &__syntax-e-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __syntax::t 'e))) + (make-class-slot-unchecked-mutator __syntax::t 'e))) (define &__syntax-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __syntax::t 'id))) + (make-class-slot-unchecked-mutator __syntax::t 'id))) (define __macro::t - (let ((__tmp113786 - (let ((__tmp113787 + (let ((__tmp114726 (list __syntax::t)) + (__tmp114724 + (let ((__tmp114725 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp113787 '())))) + (cons __tmp114725 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gerbil/runtime/eval#__macro::t '__macro - __syntax::t + __tmp114726 '() - __tmp113786 + __tmp114724 '#f))) (define __macro? - (let () (declare (not safe)) (make-struct-predicate __macro::t))) + (let () (declare (not safe)) (make-class-predicate __macro::t))) (define make-__macro - (lambda _$args109107_ - (apply make-struct-instance __macro::t _$args109107_))) + (lambda _$args109942_ (apply make-instance __macro::t _$args109942_))) (define __macro-e - (let () (declare (not safe)) (make-struct-slot-accessor __macro::t 'e))) + (let () (declare (not safe)) (make-class-slot-accessor __macro::t 'e))) (define __macro-id - (let () (declare (not safe)) (make-struct-slot-accessor __macro::t 'id))) + (let () (declare (not safe)) (make-class-slot-accessor __macro::t 'id))) (define __macro-e-set! - (let () (declare (not safe)) (make-struct-slot-mutator __macro::t 'e))) + (let () (declare (not safe)) (make-class-slot-mutator __macro::t 'e))) (define __macro-id-set! - (let () (declare (not safe)) (make-struct-slot-mutator __macro::t 'id))) + (let () (declare (not safe)) (make-class-slot-mutator __macro::t 'id))) (define &__macro-e (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __macro::t 'e))) + (make-class-slot-unchecked-accessor __macro::t 'e))) (define &__macro-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __macro::t 'id))) + (make-class-slot-unchecked-accessor __macro::t 'id))) (define &__macro-e-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __macro::t 'e))) + (make-class-slot-unchecked-mutator __macro::t 'e))) (define &__macro-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __macro::t 'id))) + (make-class-slot-unchecked-mutator __macro::t 'id))) (define __special-form::t - (let ((__tmp113788 - (let ((__tmp113789 + (let ((__tmp114729 (list __macro::t)) + (__tmp114727 + (let ((__tmp114728 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp113789 '())))) + (cons __tmp114728 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gerbil/runtime/eval#__special-form::t '__special-form - __macro::t + __tmp114729 '() - __tmp113788 + __tmp114727 '#f))) (define __special-form? - (let () (declare (not safe)) (make-struct-predicate __special-form::t))) + (let () (declare (not safe)) (make-class-predicate __special-form::t))) (define make-__special-form - (lambda _$args109104_ - (apply make-struct-instance __special-form::t _$args109104_))) + (lambda _$args109939_ + (apply make-instance __special-form::t _$args109939_))) (define __special-form-e (let () (declare (not safe)) - (make-struct-slot-accessor __special-form::t 'e))) + (make-class-slot-accessor __special-form::t 'e))) (define __special-form-id (let () (declare (not safe)) - (make-struct-slot-accessor __special-form::t 'id))) + (make-class-slot-accessor __special-form::t 'id))) (define __special-form-e-set! (let () (declare (not safe)) - (make-struct-slot-mutator __special-form::t 'e))) + (make-class-slot-mutator __special-form::t 'e))) (define __special-form-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator __special-form::t 'id))) + (make-class-slot-mutator __special-form::t 'id))) (define &__special-form-e (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __special-form::t 'e))) + (make-class-slot-unchecked-accessor __special-form::t 'e))) (define &__special-form-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __special-form::t 'id))) + (make-class-slot-unchecked-accessor __special-form::t 'id))) (define &__special-form-e-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __special-form::t 'e))) + (make-class-slot-unchecked-mutator __special-form::t 'e))) (define &__special-form-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __special-form::t 'id))) + (make-class-slot-unchecked-mutator __special-form::t 'id))) (define __core-form::t - (let ((__tmp113790 - (let ((__tmp113791 + (let ((__tmp114732 (list __syntax::t)) + (__tmp114730 + (let ((__tmp114731 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp113791 '())))) + (cons __tmp114731 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __syntax::t + __tmp114732 '() - __tmp113790 + __tmp114730 '#f))) (define __core-form? - (let () (declare (not safe)) (make-struct-predicate __core-form::t))) + (let () (declare (not safe)) (make-class-predicate __core-form::t))) (define make-__core-form - (lambda _$args109101_ - (apply make-struct-instance __core-form::t _$args109101_))) + (lambda _$args109936_ + (apply make-instance __core-form::t _$args109936_))) (define __core-form-e (let () (declare (not safe)) - (make-struct-slot-accessor __core-form::t 'e))) + (make-class-slot-accessor __core-form::t 'e))) (define __core-form-id (let () (declare (not safe)) - (make-struct-slot-accessor __core-form::t 'id))) + (make-class-slot-accessor __core-form::t 'id))) (define __core-form-e-set! (let () (declare (not safe)) - (make-struct-slot-mutator __core-form::t 'e))) + (make-class-slot-mutator __core-form::t 'e))) (define __core-form-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator __core-form::t 'id))) + (make-class-slot-mutator __core-form::t 'id))) (define &__core-form-e (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __core-form::t 'e))) + (make-class-slot-unchecked-accessor __core-form::t 'e))) (define &__core-form-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __core-form::t 'id))) + (make-class-slot-unchecked-accessor __core-form::t 'id))) (define &__core-form-e-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __core-form::t 'e))) + (make-class-slot-unchecked-mutator __core-form::t 'e))) (define &__core-form-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __core-form::t 'id))) + (make-class-slot-unchecked-mutator __core-form::t 'id))) (define __core-expression::t - (let ((__tmp113792 - (let ((__tmp113793 + (let ((__tmp114735 (list __core-form::t)) + (__tmp114733 + (let ((__tmp114734 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp113793 '())))) + (cons __tmp114734 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __core-form::t + __tmp114735 '() - __tmp113792 + __tmp114733 '#f))) (define __core-expression? (let () (declare (not safe)) - (make-struct-predicate __core-expression::t))) + (make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _$args109098_ - (apply make-struct-instance __core-expression::t _$args109098_))) + (lambda _$args109933_ + (apply make-instance __core-expression::t _$args109933_))) (define __core-expression-e (let () (declare (not safe)) - (make-struct-slot-accessor __core-expression::t 'e))) + (make-class-slot-accessor __core-expression::t 'e))) (define __core-expression-id (let () (declare (not safe)) - (make-struct-slot-accessor __core-expression::t 'id))) + (make-class-slot-accessor __core-expression::t 'id))) (define __core-expression-e-set! (let () (declare (not safe)) - (make-struct-slot-mutator __core-expression::t 'e))) + (make-class-slot-mutator __core-expression::t 'e))) (define __core-expression-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator __core-expression::t 'id))) + (make-class-slot-mutator __core-expression::t 'id))) (define &__core-expression-e (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __core-expression::t 'e))) + (make-class-slot-unchecked-accessor __core-expression::t 'e))) (define &__core-expression-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __core-expression::t 'id))) + (make-class-slot-unchecked-accessor __core-expression::t 'id))) (define &__core-expression-e-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __core-expression::t 'e))) + (make-class-slot-unchecked-mutator __core-expression::t 'e))) (define &__core-expression-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __core-expression::t 'id))) + (make-class-slot-unchecked-mutator __core-expression::t 'id))) (define __core-special-form::t - (let ((__tmp113794 - (let ((__tmp113795 + (let ((__tmp114738 (list __core-form::t)) + (__tmp114736 + (let ((__tmp114737 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp113795 '())))) + (cons __tmp114737 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __core-form::t + __tmp114738 '() - __tmp113794 + __tmp114736 '#f))) (define __core-special-form? (let () (declare (not safe)) - (make-struct-predicate __core-special-form::t))) + (make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _$args109095_ - (apply make-struct-instance __core-special-form::t _$args109095_))) + (lambda _$args109930_ + (apply make-instance __core-special-form::t _$args109930_))) (define __core-special-form-e (let () (declare (not safe)) - (make-struct-slot-accessor __core-special-form::t 'e))) + (make-class-slot-accessor __core-special-form::t 'e))) (define __core-special-form-id (let () (declare (not safe)) - (make-struct-slot-accessor __core-special-form::t 'id))) + (make-class-slot-accessor __core-special-form::t 'id))) (define __core-special-form-e-set! (let () (declare (not safe)) - (make-struct-slot-mutator __core-special-form::t 'e))) + (make-class-slot-mutator __core-special-form::t 'e))) (define __core-special-form-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator __core-special-form::t 'id))) + (make-class-slot-mutator __core-special-form::t 'id))) (define &__core-special-form-e (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __core-special-form::t 'e))) + (make-class-slot-unchecked-accessor __core-special-form::t 'e))) (define &__core-special-form-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __core-special-form::t 'id))) + (make-class-slot-unchecked-accessor __core-special-form::t 'id))) (define &__core-special-form-e-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __core-special-form::t 'e))) + (make-class-slot-unchecked-mutator __core-special-form::t 'e))) (define &__core-special-form-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __core-special-form::t 'id))) + (make-class-slot-unchecked-mutator __core-special-form::t 'id))) (define __struct-info::t - (let ((__tmp113796 - (let ((__tmp113797 + (let ((__tmp114741 (list __syntax::t)) + (__tmp114739 + (let ((__tmp114740 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp113797 '())))) + (cons __tmp114740 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gerbil/runtime/eval#__struct-info::t '__struct-info - __syntax::t + __tmp114741 '() - __tmp113796 + __tmp114739 '#f))) (define __struct-info? - (let () (declare (not safe)) (make-struct-predicate __struct-info::t))) + (let () (declare (not safe)) (make-class-predicate __struct-info::t))) (define make-__struct-info - (lambda _$args109092_ - (apply make-struct-instance __struct-info::t _$args109092_))) + (lambda _$args109927_ + (apply make-instance __struct-info::t _$args109927_))) (define __struct-info-e (let () (declare (not safe)) - (make-struct-slot-accessor __struct-info::t 'e))) + (make-class-slot-accessor __struct-info::t 'e))) (define __struct-info-id (let () (declare (not safe)) - (make-struct-slot-accessor __struct-info::t 'id))) + (make-class-slot-accessor __struct-info::t 'id))) (define __struct-info-e-set! (let () (declare (not safe)) - (make-struct-slot-mutator __struct-info::t 'e))) + (make-class-slot-mutator __struct-info::t 'e))) (define __struct-info-id-set! (let () (declare (not safe)) - (make-struct-slot-mutator __struct-info::t 'id))) + (make-class-slot-mutator __struct-info::t 'id))) (define &__struct-info-e (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __struct-info::t 'e))) + (make-class-slot-unchecked-accessor __struct-info::t 'e))) (define &__struct-info-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __struct-info::t 'id))) + (make-class-slot-unchecked-accessor __struct-info::t 'id))) (define &__struct-info-e-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __struct-info::t 'e))) + (make-class-slot-unchecked-mutator __struct-info::t 'e))) (define &__struct-info-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __struct-info::t 'id))) + (make-class-slot-unchecked-mutator __struct-info::t 'id))) (define __feature::t - (let ((__tmp113798 - (let ((__tmp113799 + (let ((__tmp114744 (list __syntax::t)) + (__tmp114742 + (let ((__tmp114743 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp113799 '())))) + (cons __tmp114743 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gerbil/runtime/eval#__feature::t '__feature - __syntax::t + __tmp114744 '() - __tmp113798 + __tmp114742 '#f))) (define __feature? - (let () (declare (not safe)) (make-struct-predicate __feature::t))) + (let () (declare (not safe)) (make-class-predicate __feature::t))) (define make-__feature - (lambda _$args109089_ - (apply make-struct-instance __feature::t _$args109089_))) + (lambda _$args109924_ (apply make-instance __feature::t _$args109924_))) (define __feature-e - (let () - (declare (not safe)) - (make-struct-slot-accessor __feature::t 'e))) + (let () (declare (not safe)) (make-class-slot-accessor __feature::t 'e))) (define __feature-id (let () (declare (not safe)) - (make-struct-slot-accessor __feature::t 'id))) + (make-class-slot-accessor __feature::t 'id))) (define __feature-e-set! - (let () (declare (not safe)) (make-struct-slot-mutator __feature::t 'e))) + (let () (declare (not safe)) (make-class-slot-mutator __feature::t 'e))) (define __feature-id-set! - (let () - (declare (not safe)) - (make-struct-slot-mutator __feature::t 'id))) + (let () (declare (not safe)) (make-class-slot-mutator __feature::t 'id))) (define &__feature-e (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __feature::t 'e))) + (make-class-slot-unchecked-accessor __feature::t 'e))) (define &__feature-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __feature::t 'id))) + (make-class-slot-unchecked-accessor __feature::t 'id))) (define &__feature-e-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __feature::t 'e))) + (make-class-slot-unchecked-mutator __feature::t 'e))) (define &__feature-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __feature::t 'id))) + (make-class-slot-unchecked-mutator __feature::t 'id))) (define __module::t - (let ((__tmp113800 - (let ((__tmp113801 + (let ((__tmp114747 (list __context::t)) + (__tmp114745 + (let ((__tmp114746 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp113801 '())))) + (cons __tmp114746 '())))) (declare (not safe)) - (make-struct-type + (make-class-type 'gerbil/runtime/eval#__module::t '__module - __context::t + __tmp114747 '(id path import export) - __tmp113800 + __tmp114745 '#f))) (define __module? - (let () (declare (not safe)) (make-struct-predicate __module::t))) + (let () (declare (not safe)) (make-class-predicate __module::t))) (define make-__module - (lambda _$args109086_ - (apply make-struct-instance __module::t _$args109086_))) + (lambda _$args109921_ (apply make-instance __module::t _$args109921_))) (define __module-id - (let () - (declare (not safe)) - (make-struct-slot-accessor __module::t 'id))) + (let () (declare (not safe)) (make-class-slot-accessor __module::t 'id))) (define __module-path (let () (declare (not safe)) - (make-struct-slot-accessor __module::t 'path))) + (make-class-slot-accessor __module::t 'path))) (define __module-import (let () (declare (not safe)) - (make-struct-slot-accessor __module::t 'import))) + (make-class-slot-accessor __module::t 'import))) (define __module-export (let () (declare (not safe)) - (make-struct-slot-accessor __module::t 'export))) + (make-class-slot-accessor __module::t 'export))) (define __module-t - (let () (declare (not safe)) (make-struct-slot-accessor __module::t 't))) + (let () (declare (not safe)) (make-class-slot-accessor __module::t 't))) (define __module-ns - (let () - (declare (not safe)) - (make-struct-slot-accessor __module::t 'ns))) + (let () (declare (not safe)) (make-class-slot-accessor __module::t 'ns))) (define __module-super (let () (declare (not safe)) - (make-struct-slot-accessor __module::t 'super))) + (make-class-slot-accessor __module::t 'super))) (define __module-table (let () (declare (not safe)) - (make-struct-slot-accessor __module::t 'table))) + (make-class-slot-accessor __module::t 'table))) (define __module-id-set! - (let () (declare (not safe)) (make-struct-slot-mutator __module::t 'id))) + (let () (declare (not safe)) (make-class-slot-mutator __module::t 'id))) (define __module-path-set! (let () (declare (not safe)) - (make-struct-slot-mutator __module::t 'path))) + (make-class-slot-mutator __module::t 'path))) (define __module-import-set! (let () (declare (not safe)) - (make-struct-slot-mutator __module::t 'import))) + (make-class-slot-mutator __module::t 'import))) (define __module-export-set! (let () (declare (not safe)) - (make-struct-slot-mutator __module::t 'export))) + (make-class-slot-mutator __module::t 'export))) (define __module-t-set! - (let () (declare (not safe)) (make-struct-slot-mutator __module::t 't))) + (let () (declare (not safe)) (make-class-slot-mutator __module::t 't))) (define __module-ns-set! - (let () (declare (not safe)) (make-struct-slot-mutator __module::t 'ns))) + (let () (declare (not safe)) (make-class-slot-mutator __module::t 'ns))) (define __module-super-set! (let () (declare (not safe)) - (make-struct-slot-mutator __module::t 'super))) + (make-class-slot-mutator __module::t 'super))) (define __module-table-set! (let () (declare (not safe)) - (make-struct-slot-mutator __module::t 'table))) + (make-class-slot-mutator __module::t 'table))) (define &__module-id (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __module::t 'id))) + (make-class-slot-unchecked-accessor __module::t 'id))) (define &__module-path (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __module::t 'path))) + (make-class-slot-unchecked-accessor __module::t 'path))) (define &__module-import (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __module::t 'import))) + (make-class-slot-unchecked-accessor __module::t 'import))) (define &__module-export (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __module::t 'export))) + (make-class-slot-unchecked-accessor __module::t 'export))) (define &__module-t (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __module::t 't))) + (make-class-slot-unchecked-accessor __module::t 't))) (define &__module-ns (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __module::t 'ns))) + (make-class-slot-unchecked-accessor __module::t 'ns))) (define &__module-super (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __module::t 'super))) + (make-class-slot-unchecked-accessor __module::t 'super))) (define &__module-table (let () (declare (not safe)) - (make-struct-slot-unchecked-accessor __module::t 'table))) + (make-class-slot-unchecked-accessor __module::t 'table))) (define &__module-id-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __module::t 'id))) + (make-class-slot-unchecked-mutator __module::t 'id))) (define &__module-path-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __module::t 'path))) + (make-class-slot-unchecked-mutator __module::t 'path))) (define &__module-import-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __module::t 'import))) + (make-class-slot-unchecked-mutator __module::t 'import))) (define &__module-export-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __module::t 'export))) + (make-class-slot-unchecked-mutator __module::t 'export))) (define &__module-t-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __module::t 't))) + (make-class-slot-unchecked-mutator __module::t 't))) (define &__module-ns-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __module::t 'ns))) + (make-class-slot-unchecked-mutator __module::t 'ns))) (define &__module-super-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __module::t 'super))) + (make-class-slot-unchecked-mutator __module::t 'super))) (define &__module-table-set! (let () (declare (not safe)) - (make-struct-slot-unchecked-mutator __module::t 'table))) + (make-class-slot-unchecked-mutator __module::t 'table))) (define __*modules* (let () (declare (not safe)) (make-table))) (define __*core* (let () (declare (not safe)) (make-table 'test: eq?))) (define __*top* - (let ((__tmp113803 + (let ((__tmp114749 (let () (declare (not safe)) (##structure __context::t 'root '#f '#f __*core*))) - (__tmp113802 + (__tmp114748 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'top '#f __tmp113803 __tmp113802))) + (##structure __context::t 'top '#f __tmp114749 __tmp114748))) (define __current-expander (make-parameter '#f)) (define __current-compiler (make-parameter '#f)) (define __current-path (make-parameter '())) (define __core-resolve__% - (lambda (_id109061_ _ctx109062_) - (if _ctx109062_ - (let ((_id109064_ - (let () (declare (not safe)) (__AST-e _id109061_)))) - (let _lp109066_ ((_ctx109068_ _ctx109062_)) - (let ((_$e109070_ + (lambda (_id109896_ _ctx109897_) + (if _ctx109897_ + (let ((_id109899_ + (let () (declare (not safe)) (__AST-e _id109896_)))) + (let _lp109901_ ((_ctx109903_ _ctx109897_)) + (let ((_$e109905_ (table-ref - (##structure-ref _ctx109068_ '4 __context::t '#f) - _id109064_ + (##structure-ref _ctx109903_ '4 __context::t '#f) + _id109899_ '#f))) - (if _$e109070_ - (values _$e109070_) - (let ((_$e109073_ + (if _$e109905_ + (values _$e109905_) + (let ((_$e109908_ (##structure-ref - _ctx109068_ + _ctx109903_ '3 __context::t '#f))) - (if _$e109073_ + (if _$e109908_ (let () (declare (not safe)) - (_lp109066_ _$e109073_)) + (_lp109901_ _$e109908_)) '#f)))))) '#f))) (define __core-resolve__0 - (lambda (_id109079_) - (let ((_ctx109081_ (__current-context))) + (lambda (_id109914_) + (let ((_ctx109916_ (__current-context))) (declare (not safe)) - (__core-resolve__% _id109079_ _ctx109081_)))) + (__core-resolve__% _id109914_ _ctx109916_)))) (define __core-resolve - (lambda _g113805_ - (let ((_g113804_ (let () (declare (not safe)) (##length _g113805_)))) - (cond ((let () (declare (not safe)) (##fx= _g113804_ 1)) - (apply (lambda (_id109079_) + (lambda _g114751_ + (let ((_g114750_ (let () (declare (not safe)) (##length _g114751_)))) + (cond ((let () (declare (not safe)) (##fx= _g114750_ 1)) + (apply (lambda (_id109914_) (let () (declare (not safe)) - (__core-resolve__0 _id109079_))) - _g113805_)) - ((let () (declare (not safe)) (##fx= _g113804_ 2)) - (apply (lambda (_id109083_ _ctx109084_) + (__core-resolve__0 _id109914_))) + _g114751_)) + ((let () (declare (not safe)) (##fx= _g114750_ 2)) + (apply (lambda (_id109918_ _ctx109919_) (let () (declare (not safe)) - (__core-resolve__% _id109083_ _ctx109084_))) - _g113805_)) + (__core-resolve__% _id109918_ _ctx109919_))) + _g114751_)) (else (##raise-wrong-number-of-arguments-exception __core-resolve - _g113805_)))))) + _g114751_)))))) (define __core-bound-id?__% - (lambda (_id109044_ _is?109045_) - (let ((_$e109047_ - (let () (declare (not safe)) (__core-resolve__0 _id109044_)))) - (if _$e109047_ (_is?109045_ _$e109047_) '#f)))) + (lambda (_id109879_ _is?109880_) + (let ((_$e109882_ + (let () (declare (not safe)) (__core-resolve__0 _id109879_)))) + (if _$e109882_ (_is?109880_ _$e109882_) '#f)))) (define __core-bound-id?__0 - (lambda (_id109053_) - (let ((_is?109055_ true)) + (lambda (_id109888_) + (let ((_is?109890_ true)) (declare (not safe)) - (__core-bound-id?__% _id109053_ _is?109055_)))) + (__core-bound-id?__% _id109888_ _is?109890_)))) (define __core-bound-id? - (lambda _g113807_ - (let ((_g113806_ (let () (declare (not safe)) (##length _g113807_)))) - (cond ((let () (declare (not safe)) (##fx= _g113806_ 1)) - (apply (lambda (_id109053_) + (lambda _g114753_ + (let ((_g114752_ (let () (declare (not safe)) (##length _g114753_)))) + (cond ((let () (declare (not safe)) (##fx= _g114752_ 1)) + (apply (lambda (_id109888_) (let () (declare (not safe)) - (__core-bound-id?__0 _id109053_))) - _g113807_)) - ((let () (declare (not safe)) (##fx= _g113806_ 2)) - (apply (lambda (_id109057_ _is?109058_) + (__core-bound-id?__0 _id109888_))) + _g114753_)) + ((let () (declare (not safe)) (##fx= _g114752_ 2)) + (apply (lambda (_id109892_ _is?109893_) (let () (declare (not safe)) - (__core-bound-id?__% _id109057_ _is?109058_))) - _g113807_)) + (__core-bound-id?__% _id109892_ _is?109893_))) + _g114753_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g113807_)))))) + _g114753_)))))) (define __core-bind-runtime!__% - (lambda (_id109027_ _eid109028_ _ctx109029_) - (if _eid109028_ - (let ((__tmp113810 - (##structure-ref _ctx109029_ '4 __context::t '#f)) - (__tmp113809 - (let () (declare (not safe)) (__AST-e _id109027_))) - (__tmp113808 + (lambda (_id109862_ _eid109863_ _ctx109864_) + (if _eid109863_ + (let ((__tmp114756 + (##structure-ref _ctx109864_ '4 __context::t '#f)) + (__tmp114755 + (let () (declare (not safe)) (__AST-e _id109862_))) + (__tmp114754 (let () (declare (not safe)) - (##structure __runtime::t _eid109028_)))) + (##structure __runtime::t _eid109863_)))) (declare (not safe)) - (table-set! __tmp113810 __tmp113809 __tmp113808)) + (table-set! __tmp114756 __tmp114755 __tmp114754)) '#!void))) (define __core-bind-runtime!__0 - (lambda (_id109034_ _eid109035_) - (let ((_ctx109037_ (__current-context))) + (lambda (_id109869_ _eid109870_) + (let ((_ctx109872_ (__current-context))) (declare (not safe)) - (__core-bind-runtime!__% _id109034_ _eid109035_ _ctx109037_)))) + (__core-bind-runtime!__% _id109869_ _eid109870_ _ctx109872_)))) (define __core-bind-runtime! - (lambda _g113812_ - (let ((_g113811_ (let () (declare (not safe)) (##length _g113812_)))) - (cond ((let () (declare (not safe)) (##fx= _g113811_ 2)) - (apply (lambda (_id109034_ _eid109035_) + (lambda _g114758_ + (let ((_g114757_ (let () (declare (not safe)) (##length _g114758_)))) + (cond ((let () (declare (not safe)) (##fx= _g114757_ 2)) + (apply (lambda (_id109869_ _eid109870_) (let () (declare (not safe)) - (__core-bind-runtime!__0 _id109034_ _eid109035_))) - _g113812_)) - ((let () (declare (not safe)) (##fx= _g113811_ 3)) - (apply (lambda (_id109039_ _eid109040_ _ctx109041_) + (__core-bind-runtime!__0 _id109869_ _eid109870_))) + _g114758_)) + ((let () (declare (not safe)) (##fx= _g114757_ 3)) + (apply (lambda (_id109874_ _eid109875_ _ctx109876_) (let () (declare (not safe)) (__core-bind-runtime!__% - _id109039_ - _eid109040_ - _ctx109041_))) - _g113812_)) + _id109874_ + _eid109875_ + _ctx109876_))) + _g114758_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-runtime! - _g113812_)))))) + _g114758_)))))) (define __core-bind-syntax!__% - (lambda (_id109010_ _e109011_ _make109012_) - (let ((__tmp113813 + (lambda (_id109845_ _e109846_ _make109847_) + (let ((__tmp114759 (if (let () (declare (not safe)) (##structure-instance-of? - _e109011_ + _e109846_ 'gerbil/runtime/eval#__syntax::t)) - _e109011_ - (_make109012_ _e109011_ _id109010_)))) + _e109846_ + (_make109847_ _e109846_ _id109845_)))) (declare (not safe)) - (table-set! __*core* _id109010_ __tmp113813)))) + (table-set! __*core* _id109845_ __tmp114759)))) (define __core-bind-syntax!__0 - (lambda (_id109017_ _e109018_) - (let ((_make109020_ make-__syntax)) + (lambda (_id109852_ _e109853_) + (let ((_make109855_ make-__syntax)) (declare (not safe)) - (__core-bind-syntax!__% _id109017_ _e109018_ _make109020_)))) + (__core-bind-syntax!__% _id109852_ _e109853_ _make109855_)))) (define __core-bind-syntax! - (lambda _g113815_ - (let ((_g113814_ (let () (declare (not safe)) (##length _g113815_)))) - (cond ((let () (declare (not safe)) (##fx= _g113814_ 2)) - (apply (lambda (_id109017_ _e109018_) + (lambda _g114761_ + (let ((_g114760_ (let () (declare (not safe)) (##length _g114761_)))) + (cond ((let () (declare (not safe)) (##fx= _g114760_ 2)) + (apply (lambda (_id109852_ _e109853_) (let () (declare (not safe)) - (__core-bind-syntax!__0 _id109017_ _e109018_))) - _g113815_)) - ((let () (declare (not safe)) (##fx= _g113814_ 3)) - (apply (lambda (_id109022_ _e109023_ _make109024_) + (__core-bind-syntax!__0 _id109852_ _e109853_))) + _g114761_)) + ((let () (declare (not safe)) (##fx= _g114760_ 3)) + (apply (lambda (_id109857_ _e109858_ _make109859_) (let () (declare (not safe)) (__core-bind-syntax!__% - _id109022_ - _e109023_ - _make109024_))) - _g113815_)) + _id109857_ + _e109858_ + _make109859_))) + _g114761_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g113815_)))))) + _g114761_)))))) (define __core-bind-macro! - (lambda (_id109006_ _e109007_) + (lambda (_id109841_ _e109842_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id109006_ _e109007_ make-__macro)))) + (__core-bind-syntax!__% _id109841_ _e109842_ make-__macro)))) (define __core-bind-special-form! - (lambda (_id109003_ _e109004_) + (lambda (_id109838_ _e109839_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id109003_ _e109004_ make-__special-form)))) + (__core-bind-syntax!__% _id109838_ _e109839_ make-__special-form)))) (define __core-bind-user-syntax!__% - (lambda (_id108987_ _e108988_ _ctx108989_) - (let ((__tmp113819 (##structure-ref _ctx108989_ '4 __context::t '#f)) - (__tmp113818 (let () (declare (not safe)) (__AST-e _id108987_))) - (__tmp113816 + (lambda (_id109822_ _e109823_ _ctx109824_) + (let ((__tmp114765 (##structure-ref _ctx109824_ '4 __context::t '#f)) + (__tmp114764 (let () (declare (not safe)) (__AST-e _id109822_))) + (__tmp114762 (if (let () (declare (not safe)) (##structure-instance-of? - _e108988_ + _e109823_ 'gerbil/runtime/eval#__syntax::t)) - _e108988_ - (let ((__tmp113817 - (let () (declare (not safe)) (__AST-e _id108987_)))) + _e109823_ + (let ((__tmp114763 + (let () (declare (not safe)) (__AST-e _id109822_)))) (declare (not safe)) - (##structure __syntax::t _e108988_ __tmp113817))))) + (##structure __syntax::t _e109823_ __tmp114763))))) (declare (not safe)) - (table-set! __tmp113819 __tmp113818 __tmp113816)))) + (table-set! __tmp114765 __tmp114764 __tmp114762)))) (define __core-bind-user-syntax!__0 - (lambda (_id108994_ _e108995_) - (let ((_ctx108997_ (__current-context))) + (lambda (_id109829_ _e109830_) + (let ((_ctx109832_ (__current-context))) (declare (not safe)) - (__core-bind-user-syntax!__% _id108994_ _e108995_ _ctx108997_)))) + (__core-bind-user-syntax!__% _id109829_ _e109830_ _ctx109832_)))) (define __core-bind-user-syntax! - (lambda _g113821_ - (let ((_g113820_ (let () (declare (not safe)) (##length _g113821_)))) - (cond ((let () (declare (not safe)) (##fx= _g113820_ 2)) - (apply (lambda (_id108994_ _e108995_) + (lambda _g114767_ + (let ((_g114766_ (let () (declare (not safe)) (##length _g114767_)))) + (cond ((let () (declare (not safe)) (##fx= _g114766_ 2)) + (apply (lambda (_id109829_ _e109830_) (let () (declare (not safe)) (__core-bind-user-syntax!__0 - _id108994_ - _e108995_))) - _g113821_)) - ((let () (declare (not safe)) (##fx= _g113820_ 3)) - (apply (lambda (_id108999_ _e109000_ _ctx109001_) + _id109829_ + _e109830_))) + _g114767_)) + ((let () (declare (not safe)) (##fx= _g114766_ 3)) + (apply (lambda (_id109834_ _e109835_ _ctx109836_) (let () (declare (not safe)) (__core-bind-user-syntax!__% - _id108999_ - _e109000_ - _ctx109001_))) - _g113821_)) + _id109834_ + _e109835_ + _ctx109836_))) + _g114767_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-user-syntax! - _g113821_)))))) + _g114767_)))))) (define make-__runtime-id__% - (lambda (_id108968_ _ctx108969_) - (let ((_id108971_ (let () (declare (not safe)) (__AST-e _id108968_)))) - (if (let () (declare (not safe)) (eq? _id108971_ '_)) + (lambda (_id109803_ _ctx109804_) + (let ((_id109806_ (let () (declare (not safe)) (__AST-e _id109803_)))) + (if (let () (declare (not safe)) (eq? _id109806_ '_)) '#f - (if (uninterned-symbol? _id108971_) - (gensym _id108971_) - (if (let () (declare (not safe)) (symbol? _id108971_)) - (let ((_$e108973_ + (if (uninterned-symbol? _id109806_) + (gensym _id109806_) + (if (let () (declare (not safe)) (symbol? _id109806_)) + (let ((_$e109808_ (##structure-ref - _ctx108969_ + _ctx109804_ '1 __context::t '#f))) (if (let () (declare (not safe)) - (eq? 'local _$e108973_)) - (gensym _id108971_) + (eq? 'local _$e109808_)) + (gensym _id109806_) (if (let () (declare (not safe)) - (eq? 'module _$e108973_)) - (let ((__tmp113822 + (eq? 'module _$e109808_)) + (let ((__tmp114768 (##structure-ref - _ctx108969_ + _ctx109804_ '2 __context::t '#f))) (declare (not safe)) - (make-symbol__1 __tmp113822 '"#" _id108971_)) - _id108971_))) - (error '"Illegal runtime identifier" _id108971_))))))) + (make-symbol__1 __tmp114768 '"#" _id109806_)) + _id109806_))) + (error '"Illegal runtime identifier" _id109806_))))))) (define make-__runtime-id__0 - (lambda (_id108979_) - (let ((_ctx108981_ (__current-context))) + (lambda (_id109814_) + (let ((_ctx109816_ (__current-context))) (declare (not safe)) - (make-__runtime-id__% _id108979_ _ctx108981_)))) + (make-__runtime-id__% _id109814_ _ctx109816_)))) (define make-__runtime-id - (lambda _g113824_ - (let ((_g113823_ (let () (declare (not safe)) (##length _g113824_)))) - (cond ((let () (declare (not safe)) (##fx= _g113823_ 1)) - (apply (lambda (_id108979_) + (lambda _g114770_ + (let ((_g114769_ (let () (declare (not safe)) (##length _g114770_)))) + (cond ((let () (declare (not safe)) (##fx= _g114769_ 1)) + (apply (lambda (_id109814_) (let () (declare (not safe)) - (make-__runtime-id__0 _id108979_))) - _g113824_)) - ((let () (declare (not safe)) (##fx= _g113823_ 2)) - (apply (lambda (_id108983_ _ctx108984_) + (make-__runtime-id__0 _id109814_))) + _g114770_)) + ((let () (declare (not safe)) (##fx= _g114769_ 2)) + (apply (lambda (_id109818_ _ctx109819_) (let () (declare (not safe)) - (make-__runtime-id__% _id108983_ _ctx108984_))) - _g113824_)) + (make-__runtime-id__% _id109818_ _ctx109819_))) + _g114770_)) (else (##raise-wrong-number-of-arguments-exception make-__runtime-id - _g113824_)))))) + _g114770_)))))) (define make-__context-local__% - (lambda (_super108957_) - (let ((__tmp113825 + (lambda (_super109792_) + (let ((__tmp114771 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'local '#f _super108957_ __tmp113825)))) + (##structure __context::t 'local '#f _super109792_ __tmp114771)))) (define make-__context-local__0 (lambda () - (let ((_super108963_ (__current-context))) + (let ((_super109798_ (__current-context))) (declare (not safe)) - (make-__context-local__% _super108963_)))) + (make-__context-local__% _super109798_)))) (define make-__context-local - (lambda _g113827_ - (let ((_g113826_ (let () (declare (not safe)) (##length _g113827_)))) - (cond ((let () (declare (not safe)) (##fx= _g113826_ 0)) + (lambda _g114773_ + (let ((_g114772_ (let () (declare (not safe)) (##length _g114773_)))) + (cond ((let () (declare (not safe)) (##fx= _g114772_ 0)) (apply (lambda () (let () (declare (not safe)) (make-__context-local__0))) - _g113827_)) - ((let () (declare (not safe)) (##fx= _g113826_ 1)) - (apply (lambda (_super108965_) + _g114773_)) + ((let () (declare (not safe)) (##fx= _g114772_ 1)) + (apply (lambda (_super109800_) (let () (declare (not safe)) - (make-__context-local__% _super108965_))) - _g113827_)) + (make-__context-local__% _super109800_))) + _g114773_)) (else (##raise-wrong-number-of-arguments-exception make-__context-local - _g113827_)))))) + _g114773_)))))) (define make-__context-module__% - (lambda (_id108937_ _ns108938_ _path108939_ _super108940_) - (let ((__tmp113828 + (lambda (_id109772_ _ns109773_ _path109774_ _super109775_) + (let ((__tmp114774 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) (##structure __module::t 'module - _ns108938_ - _super108940_ - __tmp113828 - _id108937_ - _path108939_ + _ns109773_ + _super109775_ + __tmp114774 + _id109772_ + _path109774_ '#f '#f)))) (define make-__context-module__0 - (lambda (_id108945_ _ns108946_ _path108947_) - (let ((_super108949_ (__current-context))) + (lambda (_id109780_ _ns109781_ _path109782_) + (let ((_super109784_ (__current-context))) (declare (not safe)) (make-__context-module__% - _id108945_ - _ns108946_ - _path108947_ - _super108949_)))) + _id109780_ + _ns109781_ + _path109782_ + _super109784_)))) (define make-__context-module - (lambda _g113830_ - (let ((_g113829_ (let () (declare (not safe)) (##length _g113830_)))) - (cond ((let () (declare (not safe)) (##fx= _g113829_ 3)) - (apply (lambda (_id108945_ _ns108946_ _path108947_) + (lambda _g114776_ + (let ((_g114775_ (let () (declare (not safe)) (##length _g114776_)))) + (cond ((let () (declare (not safe)) (##fx= _g114775_ 3)) + (apply (lambda (_id109780_ _ns109781_ _path109782_) (let () (declare (not safe)) (make-__context-module__0 - _id108945_ - _ns108946_ - _path108947_))) - _g113830_)) - ((let () (declare (not safe)) (##fx= _g113829_ 4)) - (apply (lambda (_id108951_ - _ns108952_ - _path108953_ - _super108954_) + _id109780_ + _ns109781_ + _path109782_))) + _g114776_)) + ((let () (declare (not safe)) (##fx= _g114775_ 4)) + (apply (lambda (_id109786_ + _ns109787_ + _path109788_ + _super109789_) (let () (declare (not safe)) (make-__context-module__% - _id108951_ - _ns108952_ - _path108953_ - _super108954_))) - _g113830_)) + _id109786_ + _ns109787_ + _path109788_ + _super109789_))) + _g114776_)) (else (##raise-wrong-number-of-arguments-exception make-__context-module - _g113830_)))))) + _g114776_)))))) (define __SRC__% - (lambda (_e108920_ _src-stx108921_) - (if (or (let () (declare (not safe)) (pair? _e108920_)) - (let () (declare (not safe)) (symbol? _e108920_))) - (let ((__tmp113834 + (lambda (_e109755_ _src-stx109756_) + (if (or (let () (declare (not safe)) (pair? _e109755_)) + (let () (declare (not safe)) (symbol? _e109755_))) + (let ((__tmp114780 (if (let () (declare (not safe)) (##structure-instance-of? - _src-stx108921_ + _src-stx109756_ 'gerbil#AST::t)) - (let ((__tmp113835 + (let ((__tmp114781 (let () (declare (not safe)) - (__AST-source _src-stx108921_)))) + (__AST-source _src-stx109756_)))) (declare (not safe)) - (__locat __tmp113835)) + (__locat __tmp114781)) '#f))) (declare (not safe)) - (##make-source _e108920_ __tmp113834)) + (##make-source _e109755_ __tmp114780)) (if (let () (declare (not safe)) - (##structure-instance-of? _e108920_ 'gerbil#AST::t)) - (let ((__tmp113833 + (##structure-instance-of? _e109755_ 'gerbil#AST::t)) + (let ((__tmp114779 (let () (declare (not safe)) - (##unchecked-structure-ref _e108920_ '1 AST::t '#f))) - (__tmp113831 - (let ((__tmp113832 + (##unchecked-structure-ref _e109755_ '1 AST::t '#f))) + (__tmp114777 + (let ((__tmp114778 (let () (declare (not safe)) - (__AST-source _e108920_)))) + (__AST-source _e109755_)))) (declare (not safe)) - (__locat __tmp113832)))) + (__locat __tmp114778)))) (declare (not safe)) - (##make-source __tmp113833 __tmp113831)) - (error '"BUG! Cannot sourcify object" _e108920_))))) + (##make-source __tmp114779 __tmp114777)) + (error '"BUG! Cannot sourcify object" _e109755_))))) (define __SRC__0 - (lambda (_e108929_) - (let ((_src-stx108931_ '#f)) + (lambda (_e109764_) + (let ((_src-stx109766_ '#f)) (declare (not safe)) - (__SRC__% _e108929_ _src-stx108931_)))) + (__SRC__% _e109764_ _src-stx109766_)))) (define __SRC - (lambda _g113837_ - (let ((_g113836_ (let () (declare (not safe)) (##length _g113837_)))) - (cond ((let () (declare (not safe)) (##fx= _g113836_ 1)) - (apply (lambda (_e108929_) - (let () (declare (not safe)) (__SRC__0 _e108929_))) - _g113837_)) - ((let () (declare (not safe)) (##fx= _g113836_ 2)) - (apply (lambda (_e108933_ _src-stx108934_) + (lambda _g114783_ + (let ((_g114782_ (let () (declare (not safe)) (##length _g114783_)))) + (cond ((let () (declare (not safe)) (##fx= _g114782_ 1)) + (apply (lambda (_e109764_) + (let () (declare (not safe)) (__SRC__0 _e109764_))) + _g114783_)) + ((let () (declare (not safe)) (##fx= _g114782_ 2)) + (apply (lambda (_e109768_ _src-stx109769_) (let () (declare (not safe)) - (__SRC__% _e108933_ _src-stx108934_))) - _g113837_)) + (__SRC__% _e109768_ _src-stx109769_))) + _g114783_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g113837_)))))) + _g114783_)))))) (define __locat - (lambda (_loc108917_) - (if (let () (declare (not safe)) (##locat? _loc108917_)) - _loc108917_ + (lambda (_loc109752_) + (if (let () (declare (not safe)) (##locat? _loc109752_)) + _loc109752_ '#f))) (define __check-values - (lambda (_obj108912_ _k108913_) - (let ((_count108915_ - (if (let () (declare (not safe)) (##values? _obj108912_)) - (let () (declare (not safe)) (##vector-length _obj108912_)) + (lambda (_obj109747_ _k109748_) + (let ((_count109750_ + (if (let () (declare (not safe)) (##values? _obj109747_)) + (let () (declare (not safe)) (##vector-length _obj109747_)) '1))) - (if (fx= _count108915_ _k108913_) + (if (fx= _count109750_ _k109748_) '#!void - (error (if (fx< _count108915_ _k108913_) + (error (if (fx< _count109750_ _k109748_) '"Too few values for context" '"Too many values for context") - (if (let () (declare (not safe)) (##values? _obj108912_)) + (if (let () (declare (not safe)) (##values? _obj109747_)) (let () (declare (not safe)) - (##vector->list _obj108912_)) - _obj108912_) - _k108913_))))) + (##vector->list _obj109747_)) + _obj109747_) + _k109748_))))) (define __compile - (lambda (_stx108882_) - (let* ((_$e108884_ _stx108882_) - (_$E108886108892_ + (lambda (_stx109717_) + (let* ((_$e109719_ _stx109717_) + (_$E109721109727_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108884_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108884_)) - (let* ((_$tgt108887108895_ - (let () (declare (not safe)) (__AST-e _$e108884_))) - (_$hd108888108898_ - (let () (declare (not safe)) (##car _$tgt108887108895_))) - (_$tl108889108901_ + _$e109719_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109719_)) + (let* ((_$tgt109722109730_ + (let () (declare (not safe)) (__AST-e _$e109719_))) + (_$hd109723109733_ + (let () (declare (not safe)) (##car _$tgt109722109730_))) + (_$tl109724109736_ (let () (declare (not safe)) - (##cdr _$tgt108887108895_)))) - (let* ((_form108905_ _$hd108888108898_) - (_$e108907_ + (##cdr _$tgt109722109730_)))) + (let* ((_form109740_ _$hd109723109733_) + (_$e109742_ (let () (declare (not safe)) - (__core-resolve__0 _form108905_)))) - (if _$e108907_ - ((lambda (_bind108910_) - ((##structure-ref _bind108910_ '1 __syntax::t '#f) - _stx108882_)) - _$e108907_) + (__core-resolve__0 _form109740_)))) + (if _$e109742_ + ((lambda (_bind109745_) + ((##structure-ref _bind109745_ '1 __syntax::t '#f) + _stx109717_)) + _$e109742_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _stx108882_ - _form108905_))))) - (let () (declare (not safe)) (_$E108886108892_)))))) + _stx109717_ + _form109740_))))) + (let () (declare (not safe)) (_$E109721109727_)))))) (define __compile-error__% - (lambda (_stx108869_ _detail108870_) + (lambda (_stx109704_ _detail109705_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _stx108869_ - _detail108870_)))) + _stx109704_ + _detail109705_)))) (define __compile-error__0 - (lambda (_stx108875_) - (let ((_detail108877_ '#f)) + (lambda (_stx109710_) + (let ((_detail109712_ '#f)) (declare (not safe)) - (__compile-error__% _stx108875_ _detail108877_)))) + (__compile-error__% _stx109710_ _detail109712_)))) (define __compile-error - (lambda _g113839_ - (let ((_g113838_ (let () (declare (not safe)) (##length _g113839_)))) - (cond ((let () (declare (not safe)) (##fx= _g113838_ 1)) - (apply (lambda (_stx108875_) + (lambda _g114785_ + (let ((_g114784_ (let () (declare (not safe)) (##length _g114785_)))) + (cond ((let () (declare (not safe)) (##fx= _g114784_ 1)) + (apply (lambda (_stx109710_) (let () (declare (not safe)) - (__compile-error__0 _stx108875_))) - _g113839_)) - ((let () (declare (not safe)) (##fx= _g113838_ 2)) - (apply (lambda (_stx108879_ _detail108880_) + (__compile-error__0 _stx109710_))) + _g114785_)) + ((let () (declare (not safe)) (##fx= _g114784_ 2)) + (apply (lambda (_stx109714_ _detail109715_) (let () (declare (not safe)) - (__compile-error__% _stx108879_ _detail108880_))) - _g113839_)) + (__compile-error__% _stx109714_ _detail109715_))) + _g114785_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g113839_)))))) + _g114785_)))))) (define __compile-ignore% - (lambda (_stx108866_) - (let () (declare (not safe)) (__SRC__% ''#!void _stx108866_)))) + (lambda (_stx109701_) + (let () (declare (not safe)) (__SRC__% ''#!void _stx109701_)))) (define __compile-begin% - (lambda (_stx108841_) - (let* ((_$e108843_ _stx108841_) - (_$E108845108851_ + (lambda (_stx109676_) + (let* ((_$e109678_ _stx109676_) + (_$E109680109686_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108843_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108843_)) - (let* ((_$tgt108846108854_ - (let () (declare (not safe)) (__AST-e _$e108843_))) - (_$hd108847108857_ - (let () (declare (not safe)) (##car _$tgt108846108854_))) - (_$tl108848108860_ + _$e109678_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109678_)) + (let* ((_$tgt109681109689_ + (let () (declare (not safe)) (__AST-e _$e109678_))) + (_$hd109682109692_ + (let () (declare (not safe)) (##car _$tgt109681109689_))) + (_$tl109683109695_ (let () (declare (not safe)) - (##cdr _$tgt108846108854_)))) - (let* ((_body108864_ _$tl108848108860_) - (__tmp113840 - (let ((__tmp113841 (map __compile _body108864_))) + (##cdr _$tgt109681109689_)))) + (let* ((_body109699_ _$tl109683109695_) + (__tmp114786 + (let ((__tmp114787 (map __compile _body109699_))) (declare (not safe)) - (cons 'begin __tmp113841)))) + (cons 'begin __tmp114787)))) (declare (not safe)) - (__SRC__% __tmp113840 _stx108841_))) - (let () (declare (not safe)) (_$E108845108851_)))))) + (__SRC__% __tmp114786 _stx109676_))) + (let () (declare (not safe)) (_$E109680109686_)))))) (define __compile-begin-foreign% - (lambda (_stx108816_) - (let* ((_$e108818_ _stx108816_) - (_$E108820108826_ + (lambda (_stx109651_) + (let* ((_$e109653_ _stx109651_) + (_$E109655109661_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108818_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108818_)) - (let* ((_$tgt108821108829_ - (let () (declare (not safe)) (__AST-e _$e108818_))) - (_$hd108822108832_ - (let () (declare (not safe)) (##car _$tgt108821108829_))) - (_$tl108823108835_ + _$e109653_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109653_)) + (let* ((_$tgt109656109664_ + (let () (declare (not safe)) (__AST-e _$e109653_))) + (_$hd109657109667_ + (let () (declare (not safe)) (##car _$tgt109656109664_))) + (_$tl109658109670_ (let () (declare (not safe)) - (##cdr _$tgt108821108829_)))) - (let* ((_body108839_ _$tl108823108835_) - (__tmp113842 - (let ((__tmp113843 + (##cdr _$tgt109656109664_)))) + (let* ((_body109674_ _$tl109658109670_) + (__tmp114788 + (let ((__tmp114789 (let () (declare (not safe)) - (__AST->datum _body108839_)))) + (__AST->datum _body109674_)))) (declare (not safe)) - (cons 'begin __tmp113843)))) + (cons 'begin __tmp114789)))) (declare (not safe)) - (__SRC__% __tmp113842 _stx108816_))) - (let () (declare (not safe)) (_$E108820108826_)))))) + (__SRC__% __tmp114788 _stx109651_))) + (let () (declare (not safe)) (_$E109655109661_)))))) (define __compile-import% - (lambda (_stx108791_) - (let* ((_$e108793_ _stx108791_) - (_$E108795108801_ + (lambda (_stx109626_) + (let* ((_$e109628_ _stx109626_) + (_$E109630109636_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108793_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108793_)) - (let* ((_$tgt108796108804_ - (let () (declare (not safe)) (__AST-e _$e108793_))) - (_$hd108797108807_ - (let () (declare (not safe)) (##car _$tgt108796108804_))) - (_$tl108798108810_ + _$e109628_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109628_)) + (let* ((_$tgt109631109639_ + (let () (declare (not safe)) (__AST-e _$e109628_))) + (_$hd109632109642_ + (let () (declare (not safe)) (##car _$tgt109631109639_))) + (_$tl109633109645_ (let () (declare (not safe)) - (##cdr _$tgt108796108804_)))) - (let* ((_body108814_ _$tl108798108810_) - (__tmp113844 - (let ((__tmp113845 - (let ((__tmp113846 - (let ((__tmp113847 + (##cdr _$tgt109631109639_)))) + (let* ((_body109649_ _$tl109633109645_) + (__tmp114790 + (let ((__tmp114791 + (let ((__tmp114792 + (let ((__tmp114793 (let () (declare (not safe)) - (cons _body108814_ '())))) + (cons _body109649_ '())))) (declare (not safe)) - (cons 'quote __tmp113847)))) + (cons 'quote __tmp114793)))) (declare (not safe)) - (cons __tmp113846 '())))) + (cons __tmp114792 '())))) (declare (not safe)) - (cons '__eval-import __tmp113845)))) + (cons '__eval-import __tmp114791)))) (declare (not safe)) - (__SRC__% __tmp113844 _stx108791_))) - (let () (declare (not safe)) (_$E108795108801_)))))) + (__SRC__% __tmp114790 _stx109626_))) + (let () (declare (not safe)) (_$E109630109636_)))))) (define __compile-begin-annotation% - (lambda (_stx108738_) - (let* ((_$e108740_ _stx108738_) - (_$E108742108754_ + (lambda (_stx109573_) + (let* ((_$e109575_ _stx109573_) + (_$E109577109589_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108740_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108740_)) - (let* ((_$tgt108743108757_ - (let () (declare (not safe)) (__AST-e _$e108740_))) - (_$hd108744108760_ - (let () (declare (not safe)) (##car _$tgt108743108757_))) - (_$tl108745108763_ + _$e109575_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109575_)) + (let* ((_$tgt109578109592_ + (let () (declare (not safe)) (__AST-e _$e109575_))) + (_$hd109579109595_ + (let () (declare (not safe)) (##car _$tgt109578109592_))) + (_$tl109580109598_ (let () (declare (not safe)) - (##cdr _$tgt108743108757_)))) + (##cdr _$tgt109578109592_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl108745108763_)) - (let* ((_$tgt108746108767_ + (__AST-pair? _$tl109580109598_)) + (let* ((_$tgt109581109602_ (let () (declare (not safe)) - (__AST-e _$tl108745108763_))) - (_$hd108747108770_ + (__AST-e _$tl109580109598_))) + (_$hd109582109605_ (let () (declare (not safe)) - (##car _$tgt108746108767_))) - (_$tl108748108773_ + (##car _$tgt109581109602_))) + (_$tl109583109608_ (let () (declare (not safe)) - (##cdr _$tgt108746108767_)))) - (let ((_ann108777_ _$hd108747108770_)) + (##cdr _$tgt109581109602_)))) + (let ((_ann109612_ _$hd109582109605_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl108748108773_)) - (let* ((_$tgt108749108779_ + (__AST-pair? _$tl109583109608_)) + (let* ((_$tgt109584109614_ (let () (declare (not safe)) - (__AST-e _$tl108748108773_))) - (_$hd108750108782_ + (__AST-e _$tl109583109608_))) + (_$hd109585109617_ (let () (declare (not safe)) - (##car _$tgt108749108779_))) - (_$tl108751108785_ + (##car _$tgt109584109614_))) + (_$tl109586109620_ (let () (declare (not safe)) - (##cdr _$tgt108749108779_)))) - (let ((_expr108789_ _$hd108750108782_)) - (if (let ((__tmp113848 + (##cdr _$tgt109584109614_)))) + (let ((_expr109624_ _$hd109585109617_)) + (if (let ((__tmp114794 (let () (declare (not safe)) - (__AST-e _$tl108751108785_)))) + (__AST-e _$tl109586109620_)))) (declare (not safe)) - (equal? __tmp113848 '())) + (equal? __tmp114794 '())) (let () (declare (not safe)) - (__compile _expr108789_)) + (__compile _expr109624_)) (let () (declare (not safe)) - (_$E108742108754_))))) - (let () (declare (not safe)) (_$E108742108754_))))) - (let () (declare (not safe)) (_$E108742108754_)))) - (let () (declare (not safe)) (_$E108742108754_)))))) + (_$E109577109589_))))) + (let () (declare (not safe)) (_$E109577109589_))))) + (let () (declare (not safe)) (_$E109577109589_)))) + (let () (declare (not safe)) (_$E109577109589_)))))) (define __compile-define-values% - (lambda (_stx108629_) - (let* ((_$e108631_ _stx108629_) - (_$E108633108645_ + (lambda (_stx109464_) + (let* ((_$e109466_ _stx109464_) + (_$E109468109480_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108631_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108631_)) - (let* ((_$tgt108634108648_ - (let () (declare (not safe)) (__AST-e _$e108631_))) - (_$hd108635108651_ - (let () (declare (not safe)) (##car _$tgt108634108648_))) - (_$tl108636108654_ + _$e109466_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109466_)) + (let* ((_$tgt109469109483_ + (let () (declare (not safe)) (__AST-e _$e109466_))) + (_$hd109470109486_ + (let () (declare (not safe)) (##car _$tgt109469109483_))) + (_$tl109471109489_ (let () (declare (not safe)) - (##cdr _$tgt108634108648_)))) + (##cdr _$tgt109469109483_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl108636108654_)) - (let* ((_$tgt108637108658_ + (__AST-pair? _$tl109471109489_)) + (let* ((_$tgt109472109493_ (let () (declare (not safe)) - (__AST-e _$tl108636108654_))) - (_$hd108638108661_ + (__AST-e _$tl109471109489_))) + (_$hd109473109496_ (let () (declare (not safe)) - (##car _$tgt108637108658_))) - (_$tl108639108664_ + (##car _$tgt109472109493_))) + (_$tl109474109499_ (let () (declare (not safe)) - (##cdr _$tgt108637108658_)))) - (let ((_hd108668_ _$hd108638108661_)) + (##cdr _$tgt109472109493_)))) + (let ((_hd109503_ _$hd109473109496_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl108639108664_)) - (let* ((_$tgt108640108670_ + (__AST-pair? _$tl109474109499_)) + (let* ((_$tgt109475109505_ (let () (declare (not safe)) - (__AST-e _$tl108639108664_))) - (_$hd108641108673_ + (__AST-e _$tl109474109499_))) + (_$hd109476109508_ (let () (declare (not safe)) - (##car _$tgt108640108670_))) - (_$tl108642108676_ + (##car _$tgt109475109505_))) + (_$tl109477109511_ (let () (declare (not safe)) - (##cdr _$tgt108640108670_)))) - (let ((_expr108680_ _$hd108641108673_)) - (if (let ((__tmp113881 + (##cdr _$tgt109475109505_)))) + (let ((_expr109515_ _$hd109476109508_)) + (if (let ((__tmp114827 (let () (declare (not safe)) - (__AST-e _$tl108642108676_)))) + (__AST-e _$tl109477109511_)))) (declare (not safe)) - (equal? __tmp113881 '())) - (let* ((_$e108682_ _hd108668_) - (_$E108684108725_ + (equal? __tmp114827 '())) + (let* ((_$e109517_ _hd109503_) + (_$E109519109560_ (lambda () - (let ((_$E108685108710_ + (let ((_$E109520109545_ (lambda () - (let* ((_$E108686108697_ + (let* ((_$E109521109532_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () @@ -1407,2987 +1396,2987 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108682_)))) - (_ids108700_ _hd108668_) - (_len108702_ (length _ids108700_)) - (_tmp108704_ - (let ((__tmp113849 (gensym))) + _$e109517_)))) + (_ids109535_ _hd109503_) + (_len109537_ (length _ids109535_)) + (_tmp109539_ + (let ((__tmp114795 (gensym))) (declare (not safe)) - (__SRC__0 __tmp113849)))) - (let ((__tmp113850 - (let ((__tmp113851 - (let ((__tmp113868 - (let ((__tmp113869 - (let ((__tmp113870 - (let ((__tmp113871 - (let ((__tmp113872 + (__SRC__0 __tmp114795)))) + (let ((__tmp114796 + (let ((__tmp114797 + (let ((__tmp114814 + (let ((__tmp114815 + (let ((__tmp114816 + (let ((__tmp114817 + (let ((__tmp114818 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__compile _expr108680_)))) + (__compile _expr109515_)))) (declare (not safe)) - (cons __tmp113872 '())))) + (cons __tmp114818 '())))) (declare (not safe)) - (cons _tmp108704_ __tmp113871)))) + (cons _tmp109539_ __tmp114817)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp113870)))) + (cons 'define __tmp114816)))) (declare (not safe)) - (__SRC__% __tmp113869 _stx108629_))) - (__tmp113852 - (let ((__tmp113864 - (let ((__tmp113865 - (let ((__tmp113866 - (let ((__tmp113867 + (__SRC__% __tmp114815 _stx109464_))) + (__tmp114798 + (let ((__tmp114810 + (let ((__tmp114811 + (let ((__tmp114812 + (let ((__tmp114813 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len108702_ '())))) + (cons _len109537_ '())))) (declare (not safe)) - (cons _tmp108704_ __tmp113867)))) + (cons _tmp109539_ __tmp114813)))) (declare (not safe)) - (cons '__check-values __tmp113866)))) + (cons '__check-values __tmp114812)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp113865 - _stx108629_))) - (__tmp113853 - (let ((__tmp113854 - (let ((__tmp113856 - (lambda (_id108707_ + __tmp114811 + _stx109464_))) + (__tmp114799 + (let ((__tmp114800 + (let ((__tmp114802 + (lambda (_id109542_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k108708_) - (if (let () (declare (not safe)) (__AST-e _id108707_)) - (let ((__tmp113857 - (let ((__tmp113858 - (let ((__tmp113863 + _k109543_) + (if (let () (declare (not safe)) (__AST-e _id109542_)) + (let ((__tmp114803 + (let ((__tmp114804 + (let ((__tmp114809 (let () (declare (not safe)) - (__SRC__0 _id108707_))) - (__tmp113859 - (let ((__tmp113860 - (let ((__tmp113861 - (let ((__tmp113862 + (__SRC__0 _id109542_))) + (__tmp114805 + (let ((__tmp114806 + (let ((__tmp114807 + (let ((__tmp114808 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _k108708_ '())))) + (let () (declare (not safe)) (cons _k109543_ '())))) (declare (not safe)) - (cons _tmp108704_ __tmp113862)))) + (cons _tmp109539_ __tmp114808)))) (declare (not safe)) - (cons '##vector-ref __tmp113861)))) + (cons '##vector-ref __tmp114807)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp113860 '())))) + (cons __tmp114806 '())))) (declare (not safe)) - (cons __tmp113863 __tmp113859)))) + (cons __tmp114809 __tmp114805)))) (declare (not safe)) - (cons 'define __tmp113858)))) + (cons 'define __tmp114804)))) (declare (not safe)) - (__SRC__% __tmp113857 _stx108629_)) + (__SRC__% __tmp114803 _stx109464_)) '#f))) - (__tmp113855 - (let () (declare (not safe)) (iota _len108702_)))) + (__tmp114801 + (let () (declare (not safe)) (iota _len109537_)))) (declare (not safe)) - (filter-map2 __tmp113856 _ids108700_ __tmp113855)))) + (filter-map2 __tmp114802 _ids109535_ __tmp114801)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 cons '() __tmp113854)))) + (foldr1 cons '() __tmp114800)))) (declare (not safe)) - (cons __tmp113864 __tmp113853)))) + (cons __tmp114810 __tmp114799)))) (declare (not safe)) - (cons __tmp113868 __tmp113852)))) + (cons __tmp114814 __tmp114798)))) (declare (not safe)) - (cons 'begin __tmp113851)))) + (cons 'begin __tmp114797)))) (declare (not safe)) - (__SRC__% __tmp113850 _stx108629_)))))) + (__SRC__% __tmp114796 _stx109464_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _$e108682_)) - (let* ((_$tgt108687108713_ + (__AST-pair? _$e109517_)) + (let* ((_$tgt109522109548_ (let () (declare (not safe)) - (__AST-e _$e108682_))) - (_$hd108688108716_ + (__AST-e _$e109517_))) + (_$hd109523109551_ (let () (declare (not safe)) - (##car _$tgt108687108713_))) - (_$tl108689108719_ + (##car _$tgt109522109548_))) + (_$tl109524109554_ (let () (declare (not safe)) - (##cdr _$tgt108687108713_)))) - (let ((_id108723_ - _$hd108688108716_)) - (if (let ((__tmp113878 + (##cdr _$tgt109522109548_)))) + (let ((_id109558_ + _$hd109523109551_)) + (if (let ((__tmp114824 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__AST-e _$tl108689108719_)))) + (__AST-e _$tl109524109554_)))) (declare (not safe)) - (equal? __tmp113878 '())) - (let ((__tmp113873 - (let ((__tmp113874 - (let ((__tmp113877 + (equal? __tmp114824 '())) + (let ((__tmp114819 + (let ((__tmp114820 + (let ((__tmp114823 (let () (declare (not safe)) - (__SRC__0 _id108723_))) - (__tmp113875 - (let ((__tmp113876 + (__SRC__0 _id109558_))) + (__tmp114821 + (let ((__tmp114822 (let () (declare (not safe)) - (__compile _expr108680_)))) + (__compile _expr109515_)))) (declare (not safe)) - (cons __tmp113876 '())))) + (cons __tmp114822 '())))) (declare (not safe)) - (cons __tmp113877 __tmp113875)))) + (cons __tmp114823 __tmp114821)))) (declare (not safe)) - (cons 'define __tmp113874)))) + (cons 'define __tmp114820)))) (declare (not safe)) - (__SRC__% __tmp113873 _stx108629_)) - (let () (declare (not safe)) (_$E108685108710_))))) + (__SRC__% __tmp114819 _stx109464_)) + (let () (declare (not safe)) (_$E109520109545_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E108685108710_))))))) + (_$E109520109545_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e108682_)) - (let* ((_$tgt108690108728_ + (__AST-pair? _$e109517_)) + (let* ((_$tgt109525109563_ (let () (declare (not safe)) - (__AST-e _$e108682_))) - (_$hd108691108731_ + (__AST-e _$e109517_))) + (_$hd109526109566_ (let () (declare (not safe)) - (##car _$tgt108690108728_))) - (_$tl108692108734_ + (##car _$tgt109525109563_))) + (_$tl109527109569_ (let () (declare (not safe)) - (##cdr _$tgt108690108728_)))) - (if (let ((__tmp113880 + (##cdr _$tgt109525109563_)))) + (if (let ((__tmp114826 (let () (declare (not safe)) - (__AST-e _$hd108691108731_)))) + (__AST-e _$hd109526109566_)))) (declare (not safe)) - (equal? __tmp113880 '#f)) - (if (let ((__tmp113879 + (equal? __tmp114826 '#f)) + (if (let ((__tmp114825 (let () (declare (not safe)) - (__AST-e _$tl108692108734_)))) + (__AST-e _$tl109527109569_)))) (declare (not safe)) - (equal? __tmp113879 '())) + (equal? __tmp114825 '())) (let () (declare (not safe)) - (__compile _expr108680_)) + (__compile _expr109515_)) (let () (declare (not safe)) - (_$E108684108725_))) + (_$E109519109560_))) (let () (declare (not safe)) - (_$E108684108725_)))) + (_$E109519109560_)))) (let () (declare (not safe)) - (_$E108684108725_)))) + (_$E109519109560_)))) (let () (declare (not safe)) - (_$E108633108645_))))) - (let () (declare (not safe)) (_$E108633108645_))))) - (let () (declare (not safe)) (_$E108633108645_)))) - (let () (declare (not safe)) (_$E108633108645_)))))) + (_$E109468109480_))))) + (let () (declare (not safe)) (_$E109468109480_))))) + (let () (declare (not safe)) (_$E109468109480_)))) + (let () (declare (not safe)) (_$E109468109480_)))))) (define __compile-head-id - (lambda (_e108627_) - (let ((__tmp113882 - (if (let () (declare (not safe)) (__AST-e _e108627_)) - _e108627_ + (lambda (_e109462_) + (let ((__tmp114828 + (if (let () (declare (not safe)) (__AST-e _e109462_)) + _e109462_ (gensym)))) (declare (not safe)) - (__SRC__0 __tmp113882)))) + (__SRC__0 __tmp114828)))) (define __compile-lambda-head - (lambda (_hd108584_) - (let _recur108586_ ((_rest108588_ _hd108584_)) - (let* ((_$e108590_ _rest108588_) - (_$E108592108610_ + (lambda (_hd109419_) + (let _recur109421_ ((_rest109423_ _hd109419_)) + (let* ((_$e109425_ _rest109423_) + (_$E109427109445_ (lambda () - (let ((_$E108593108607_ + (let ((_$E109428109442_ (lambda () - (let* ((_$E108594108602_ + (let* ((_$E109429109437_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108590_)))) - (_tail108605_ _$e108590_)) + _$e109425_)))) + (_tail109440_ _$e109425_)) (declare (not safe)) - (__compile-head-id _tail108605_))))) - (if (let ((__tmp113883 + (__compile-head-id _tail109440_))))) + (if (let ((__tmp114829 (let () (declare (not safe)) - (__AST-e _$e108590_)))) + (__AST-e _$e109425_)))) (declare (not safe)) - (equal? __tmp113883 '())) + (equal? __tmp114829 '())) '() - (let () (declare (not safe)) (_$E108593108607_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108590_)) - (let* ((_$tgt108595108613_ - (let () (declare (not safe)) (__AST-e _$e108590_))) - (_$hd108596108616_ + (let () (declare (not safe)) (_$E109428109442_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109425_)) + (let* ((_$tgt109430109448_ + (let () (declare (not safe)) (__AST-e _$e109425_))) + (_$hd109431109451_ (let () (declare (not safe)) - (##car _$tgt108595108613_))) - (_$tl108597108619_ + (##car _$tgt109430109448_))) + (_$tl109432109454_ (let () (declare (not safe)) - (##cdr _$tgt108595108613_)))) - (let* ((_hd108623_ _$hd108596108616_) - (_rest108625_ _$tl108597108619_)) - (let ((__tmp113885 + (##cdr _$tgt109430109448_)))) + (let* ((_hd109458_ _$hd109431109451_) + (_rest109460_ _$tl109432109454_)) + (let ((__tmp114831 (let () (declare (not safe)) - (__compile-head-id _hd108623_))) - (__tmp113884 + (__compile-head-id _hd109458_))) + (__tmp114830 (let () (declare (not safe)) - (_recur108586_ _rest108625_)))) + (_recur109421_ _rest109460_)))) (declare (not safe)) - (cons __tmp113885 __tmp113884)))) - (let () (declare (not safe)) (_$E108592108610_))))))) + (cons __tmp114831 __tmp114830)))) + (let () (declare (not safe)) (_$E109427109445_))))))) (define __compile-lambda% - (lambda (_stx108531_) - (let* ((_$e108533_ _stx108531_) - (_$E108535108547_ + (lambda (_stx109366_) + (let* ((_$e109368_ _stx109366_) + (_$E109370109382_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108533_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108533_)) - (let* ((_$tgt108536108550_ - (let () (declare (not safe)) (__AST-e _$e108533_))) - (_$hd108537108553_ - (let () (declare (not safe)) (##car _$tgt108536108550_))) - (_$tl108538108556_ + _$e109368_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109368_)) + (let* ((_$tgt109371109385_ + (let () (declare (not safe)) (__AST-e _$e109368_))) + (_$hd109372109388_ + (let () (declare (not safe)) (##car _$tgt109371109385_))) + (_$tl109373109391_ (let () (declare (not safe)) - (##cdr _$tgt108536108550_)))) + (##cdr _$tgt109371109385_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl108538108556_)) - (let* ((_$tgt108539108560_ + (__AST-pair? _$tl109373109391_)) + (let* ((_$tgt109374109395_ (let () (declare (not safe)) - (__AST-e _$tl108538108556_))) - (_$hd108540108563_ + (__AST-e _$tl109373109391_))) + (_$hd109375109398_ (let () (declare (not safe)) - (##car _$tgt108539108560_))) - (_$tl108541108566_ + (##car _$tgt109374109395_))) + (_$tl109376109401_ (let () (declare (not safe)) - (##cdr _$tgt108539108560_)))) - (let ((_hd108570_ _$hd108540108563_)) + (##cdr _$tgt109374109395_)))) + (let ((_hd109405_ _$hd109375109398_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl108541108566_)) - (let* ((_$tgt108542108572_ + (__AST-pair? _$tl109376109401_)) + (let* ((_$tgt109377109407_ (let () (declare (not safe)) - (__AST-e _$tl108541108566_))) - (_$hd108543108575_ + (__AST-e _$tl109376109401_))) + (_$hd109378109410_ (let () (declare (not safe)) - (##car _$tgt108542108572_))) - (_$tl108544108578_ + (##car _$tgt109377109407_))) + (_$tl109379109413_ (let () (declare (not safe)) - (##cdr _$tgt108542108572_)))) - (let ((_body108582_ _$hd108543108575_)) - (if (let ((__tmp113891 + (##cdr _$tgt109377109407_)))) + (let ((_body109417_ _$hd109378109410_)) + (if (let ((__tmp114837 (let () (declare (not safe)) - (__AST-e _$tl108544108578_)))) + (__AST-e _$tl109379109413_)))) (declare (not safe)) - (equal? __tmp113891 '())) - (let ((__tmp113886 - (let ((__tmp113887 - (let ((__tmp113890 + (equal? __tmp114837 '())) + (let ((__tmp114832 + (let ((__tmp114833 + (let ((__tmp114836 (let () (declare (not safe)) (__compile-lambda-head - _hd108570_))) - (__tmp113888 - (let ((__tmp113889 + _hd109405_))) + (__tmp114834 + (let ((__tmp114835 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _body108582_)))) + (__compile _body109417_)))) (declare (not safe)) - (cons __tmp113889 '())))) + (cons __tmp114835 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp113890 - __tmp113888)))) + (cons __tmp114836 + __tmp114834)))) (declare (not safe)) - (cons 'lambda __tmp113887)))) + (cons 'lambda __tmp114833)))) (declare (not safe)) - (__SRC__% __tmp113886 _stx108531_)) + (__SRC__% __tmp114832 _stx109366_)) (let () (declare (not safe)) - (_$E108535108547_))))) - (let () (declare (not safe)) (_$E108535108547_))))) - (let () (declare (not safe)) (_$E108535108547_)))) - (let () (declare (not safe)) (_$E108535108547_)))))) + (_$E109370109382_))))) + (let () (declare (not safe)) (_$E109370109382_))))) + (let () (declare (not safe)) (_$E109370109382_)))) + (let () (declare (not safe)) (_$E109370109382_)))))) (define __compile-case-lambda% - (lambda (_stx108323_) - (letrec ((_variadic?108325_ - (lambda (_hd108496_) - (let* ((_$e108498_ _hd108496_) - (_$E108500108516_ + (lambda (_stx109158_) + (letrec ((_variadic?109160_ + (lambda (_hd109331_) + (let* ((_$e109333_ _hd109331_) + (_$E109335109351_ (lambda () - (let ((_$E108501108513_ + (let ((_$E109336109348_ (lambda () - (let ((_$E108502108510_ + (let ((_$E109337109345_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108498_))))) + _$e109333_))))) '#t)))) - (if (let ((__tmp113892 + (if (let ((__tmp114838 (let () (declare (not safe)) - (__AST-e _$e108498_)))) + (__AST-e _$e109333_)))) (declare (not safe)) - (equal? __tmp113892 '())) + (equal? __tmp114838 '())) '#f (let () (declare (not safe)) - (_$E108501108513_))))))) + (_$E109336109348_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e108498_)) - (let* ((_$tgt108503108519_ + (__AST-pair? _$e109333_)) + (let* ((_$tgt109338109354_ (let () (declare (not safe)) - (__AST-e _$e108498_))) - (_$hd108504108522_ + (__AST-e _$e109333_))) + (_$hd109339109357_ (let () (declare (not safe)) - (##car _$tgt108503108519_))) - (_$tl108505108525_ + (##car _$tgt109338109354_))) + (_$tl109340109360_ (let () (declare (not safe)) - (##cdr _$tgt108503108519_)))) - (let ((_rest108529_ _$tl108505108525_)) + (##cdr _$tgt109338109354_)))) + (let ((_rest109364_ _$tl109340109360_)) (declare (not safe)) - (_variadic?108325_ _rest108529_))) - (let () (declare (not safe)) (_$E108500108516_)))))) - (_arity108326_ - (lambda (_hd108461_) - (let _lp108463_ ((_rest108465_ _hd108461_) (_k108466_ '0)) - (let* ((_$e108468_ _rest108465_) - (_$E108470108481_ + (_variadic?109160_ _rest109364_))) + (let () (declare (not safe)) (_$E109335109351_)))))) + (_arity109161_ + (lambda (_hd109296_) + (let _lp109298_ ((_rest109300_ _hd109296_) (_k109301_ '0)) + (let* ((_$e109303_ _rest109300_) + (_$E109305109316_ (lambda () - (let ((_$E108471108478_ + (let ((_$E109306109313_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108468_))))) - _k108466_)))) + _$e109303_))))) + _k109301_)))) (if (let () (declare (not safe)) - (__AST-pair? _$e108468_)) - (let* ((_$tgt108472108484_ + (__AST-pair? _$e109303_)) + (let* ((_$tgt109307109319_ (let () (declare (not safe)) - (__AST-e _$e108468_))) - (_$hd108473108487_ + (__AST-e _$e109303_))) + (_$hd109308109322_ (let () (declare (not safe)) - (##car _$tgt108472108484_))) - (_$tl108474108490_ + (##car _$tgt109307109319_))) + (_$tl109309109325_ (let () (declare (not safe)) - (##cdr _$tgt108472108484_)))) - (let* ((_rest108494_ _$tl108474108490_) - (__tmp113893 + (##cdr _$tgt109307109319_)))) + (let* ((_rest109329_ _$tl109309109325_) + (__tmp114839 (let () (declare (not safe)) - (fx+ _k108466_ '1)))) + (fx+ _k109301_ '1)))) (declare (not safe)) - (_lp108463_ _rest108494_ __tmp113893))) + (_lp109298_ _rest109329_ __tmp114839))) (let () (declare (not safe)) - (_$E108470108481_))))))) - (_generate108327_ - (lambda (_rest108388_ _args108389_ _len108390_) - (let* ((_$e108392_ _rest108388_) - (_$E108394108405_ + (_$E109305109316_))))))) + (_generate109162_ + (lambda (_rest109223_ _args109224_ _len109225_) + (let* ((_$e109227_ _rest109223_) + (_$E109229109240_ (lambda () - (let* ((_$E108395108402_ + (let* ((_$E109230109237_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108392_)))) - (__tmp113894 - (let ((__tmp113895 - (let ((__tmp113896 + _$e109227_)))) + (__tmp114840 + (let ((__tmp114841 + (let ((__tmp114842 (let () (declare (not safe)) - (cons _args108389_ + (cons _args109224_ '())))) (declare (not safe)) (cons '"No clause matching arguments" - __tmp113896)))) + __tmp114842)))) (declare (not safe)) - (cons 'error __tmp113895)))) + (cons 'error __tmp114841)))) (declare (not safe)) - (__SRC__% __tmp113894 _stx108323_))))) + (__SRC__% __tmp114840 _stx109158_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e108392_)) - (let* ((_$tgt108396108408_ + (__AST-pair? _$e109227_)) + (let* ((_$tgt109231109243_ (let () (declare (not safe)) - (__AST-e _$e108392_))) - (_$hd108397108411_ + (__AST-e _$e109227_))) + (_$hd109232109246_ (let () (declare (not safe)) - (##car _$tgt108396108408_))) - (_$tl108398108414_ + (##car _$tgt109231109243_))) + (_$tl109233109249_ (let () (declare (not safe)) - (##cdr _$tgt108396108408_)))) - (let* ((_clause108418_ _$hd108397108411_) - (_rest108420_ _$tl108398108414_) - (_$e108422_ _clause108418_) - (_$E108424108433_ + (##cdr _$tgt109231109243_)))) + (let* ((_clause109253_ _$hd109232109246_) + (_rest109255_ _$tl109233109249_) + (_$e109257_ _clause109253_) + (_$E109259109268_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108422_))))) + _$e109257_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e108422_)) - (let* ((_$tgt108425108436_ + (__AST-pair? _$e109257_)) + (let* ((_$tgt109260109271_ (let () (declare (not safe)) - (__AST-e _$e108422_))) - (_$hd108426108439_ + (__AST-e _$e109257_))) + (_$hd109261109274_ (let () (declare (not safe)) - (##car _$tgt108425108436_))) - (_$tl108427108442_ + (##car _$tgt109260109271_))) + (_$tl109262109277_ (let () (declare (not safe)) - (##cdr _$tgt108425108436_)))) - (let ((_hd108446_ _$hd108426108439_)) + (##cdr _$tgt109260109271_)))) + (let ((_hd109281_ _$hd109261109274_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl108427108442_)) - (let* ((_$tgt108428108448_ + (__AST-pair? _$tl109262109277_)) + (let* ((_$tgt109263109283_ (let () (declare (not safe)) - (__AST-e _$tl108427108442_))) - (_$hd108429108451_ + (__AST-e _$tl109262109277_))) + (_$hd109264109286_ (let () (declare (not safe)) - (##car _$tgt108428108448_))) - (_$tl108430108454_ + (##car _$tgt109263109283_))) + (_$tl109265109289_ (let () (declare (not safe)) - (##cdr _$tgt108428108448_)))) - (if (let ((__tmp113911 + (##cdr _$tgt109263109283_)))) + (if (let ((__tmp114857 (let () (declare (not safe)) - (__AST-e _$tl108430108454_)))) + (__AST-e _$tl109265109289_)))) (declare (not safe)) - (equal? __tmp113911 '())) - (let ((_clen108458_ + (equal? __tmp114857 '())) + (let ((_clen109293_ (let () (declare (not safe)) - (_arity108326_ - _hd108446_))) - (_cmp108459_ + (_arity109161_ + _hd109281_))) + (_cmp109294_ (if (let () (declare (not safe)) - (_variadic?108325_ - _hd108446_)) + (_variadic?109160_ + _hd109281_)) 'fx>= 'fx=))) - (let ((__tmp113897 - (let ((__tmp113898 - (let ((__tmp113908 + (let ((__tmp114843 + (let ((__tmp114844 + (let ((__tmp114854 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp113909 - (let ((__tmp113910 + (let ((__tmp114855 + (let ((__tmp114856 (let () (declare (not safe)) - (cons _clen108458_ '())))) + (cons _clen109293_ '())))) (declare (not safe)) - (cons _len108390_ __tmp113910)))) + (cons _len109225_ __tmp114856)))) (declare (not safe)) - (cons _cmp108459_ __tmp113909))) - (__tmp113899 - (let ((__tmp113902 - (let ((__tmp113903 - (let ((__tmp113904 - (let ((__tmp113906 - (let ((__tmp113907 + (cons _cmp109294_ __tmp114855))) + (__tmp114845 + (let ((__tmp114848 + (let ((__tmp114849 + (let ((__tmp114850 + (let ((__tmp114852 + (let ((__tmp114853 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons '%#lambda _clause108418_)))) + (cons '%#lambda _clause109253_)))) (declare (not safe)) - (__compile-lambda% __tmp113907))) - (__tmp113905 - (let () (declare (not safe)) (cons _args108389_ '())))) + (__compile-lambda% __tmp114853))) + (__tmp114851 + (let () (declare (not safe)) (cons _args109224_ '())))) (declare (not safe)) - (cons __tmp113906 __tmp113905)))) + (cons __tmp114852 __tmp114851)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '##apply __tmp113904)))) + (cons '##apply __tmp114850)))) (declare (not safe)) - (__SRC__% __tmp113903 _stx108323_))) - (__tmp113900 - (let ((__tmp113901 + (__SRC__% __tmp114849 _stx109158_))) + (__tmp114846 + (let ((__tmp114847 (let () (declare (not safe)) - (_generate108327_ - _rest108420_ - _args108389_ - _len108390_)))) + (_generate109162_ + _rest109255_ + _args109224_ + _len109225_)))) (declare (not safe)) - (cons __tmp113901 '())))) + (cons __tmp114847 '())))) (declare (not safe)) - (cons __tmp113902 __tmp113900)))) + (cons __tmp114848 __tmp114846)))) (declare (not safe)) - (cons __tmp113908 __tmp113899)))) + (cons __tmp114854 __tmp114845)))) (declare (not safe)) - (cons 'if __tmp113898)))) + (cons 'if __tmp114844)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp113897 - _stx108323_))) + __tmp114843 + _stx109158_))) (let () (declare (not safe)) - (_$E108424108433_)))) + (_$E109259109268_)))) (let () (declare (not safe)) - (_$E108424108433_))))) + (_$E109259109268_))))) (let () (declare (not safe)) - (_$E108424108433_))))) - (let () (declare (not safe)) (_$E108394108405_))))))) - (let* ((_$e108329_ _stx108323_) - (_$E108331108363_ + (_$E109259109268_))))) + (let () (declare (not safe)) (_$E109229109240_))))))) + (let* ((_$e109164_ _stx109158_) + (_$E109166109198_ (lambda () - (let ((_$E108332108345_ + (let ((_$E109167109180_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108329_))))) + _$e109164_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e108329_)) - (let* ((_$tgt108333108348_ + (__AST-pair? _$e109164_)) + (let* ((_$tgt109168109183_ (let () (declare (not safe)) - (__AST-e _$e108329_))) - (_$hd108334108351_ + (__AST-e _$e109164_))) + (_$hd109169109186_ (let () (declare (not safe)) - (##car _$tgt108333108348_))) - (_$tl108335108354_ + (##car _$tgt109168109183_))) + (_$tl109170109189_ (let () (declare (not safe)) - (##cdr _$tgt108333108348_)))) - (let ((_clauses108358_ _$tl108335108354_)) - (let ((_args108360_ - (let ((__tmp113912 (gensym))) + (##cdr _$tgt109168109183_)))) + (let ((_clauses109193_ _$tl109170109189_)) + (let ((_args109195_ + (let ((__tmp114858 (gensym))) (declare (not safe)) - (__SRC__% __tmp113912 _stx108323_))) - (_len108361_ - (let ((__tmp113913 (gensym))) + (__SRC__% __tmp114858 _stx109158_))) + (_len109196_ + (let ((__tmp114859 (gensym))) (declare (not safe)) - (__SRC__% __tmp113913 _stx108323_)))) - (let ((__tmp113914 - (let ((__tmp113915 - (let ((__tmp113916 - (let ((__tmp113917 - (let ((__tmp113918 + (__SRC__% __tmp114859 _stx109158_)))) + (let ((__tmp114860 + (let ((__tmp114861 + (let ((__tmp114862 + (let ((__tmp114863 + (let ((__tmp114864 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp113919 - (let ((__tmp113922 - (let ((__tmp113923 - (let ((__tmp113924 - (let ((__tmp113925 - (let ((__tmp113926 + (let ((__tmp114865 + (let ((__tmp114868 + (let ((__tmp114869 + (let ((__tmp114870 + (let ((__tmp114871 + (let ((__tmp114872 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp113927 + (let ((__tmp114873 (let () (declare (not safe)) - (cons _args108360_ '())))) + (cons _args109195_ '())))) (declare (not safe)) - (cons '##length __tmp113927)))) + (cons '##length __tmp114873)))) (declare (not safe)) - (__SRC__% __tmp113926 _stx108323_)))) + (__SRC__% __tmp114872 _stx109158_)))) (declare (not safe)) - (cons __tmp113925 '())))) + (cons __tmp114871 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _len108361_ - __tmp113924)))) + (cons _len109196_ + __tmp114870)))) (declare (not safe)) - (cons __tmp113923 '()))) - (__tmp113920 - (let ((__tmp113921 + (cons __tmp114869 '()))) + (__tmp114866 + (let ((__tmp114867 (let () (declare (not safe)) - (_generate108327_ - _clauses108358_ - _args108360_ - _len108361_)))) + (_generate109162_ + _clauses109193_ + _args109195_ + _len109196_)))) (declare (not safe)) - (cons __tmp113921 '())))) + (cons __tmp114867 '())))) (declare (not safe)) - (cons __tmp113922 __tmp113920)))) + (cons __tmp114868 __tmp114866)))) (declare (not safe)) - (cons 'let __tmp113919)))) + (cons 'let __tmp114865)))) (declare (not safe)) - (__SRC__% __tmp113918 _stx108323_)))) + (__SRC__% __tmp114864 _stx109158_)))) (declare (not safe)) - (cons __tmp113917 '())))) + (cons __tmp114863 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _args108360_ - __tmp113916)))) + (cons _args109195_ + __tmp114862)))) (declare (not safe)) - (cons 'lambda __tmp113915)))) + (cons 'lambda __tmp114861)))) (declare (not safe)) - (__SRC__% __tmp113914 _stx108323_))))) - (let () (declare (not safe)) (_$E108332108345_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108329_)) - (let* ((_$tgt108336108366_ - (let () (declare (not safe)) (__AST-e _$e108329_))) - (_$hd108337108369_ + (__SRC__% __tmp114860 _stx109158_))))) + (let () (declare (not safe)) (_$E109167109180_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109164_)) + (let* ((_$tgt109171109201_ + (let () (declare (not safe)) (__AST-e _$e109164_))) + (_$hd109172109204_ (let () (declare (not safe)) - (##car _$tgt108336108366_))) - (_$tl108338108372_ + (##car _$tgt109171109201_))) + (_$tl109173109207_ (let () (declare (not safe)) - (##cdr _$tgt108336108366_)))) + (##cdr _$tgt109171109201_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl108338108372_)) - (let* ((_$tgt108339108376_ + (__AST-pair? _$tl109173109207_)) + (let* ((_$tgt109174109211_ (let () (declare (not safe)) - (__AST-e _$tl108338108372_))) - (_$hd108340108379_ + (__AST-e _$tl109173109207_))) + (_$hd109175109214_ (let () (declare (not safe)) - (##car _$tgt108339108376_))) - (_$tl108341108382_ + (##car _$tgt109174109211_))) + (_$tl109176109217_ (let () (declare (not safe)) - (##cdr _$tgt108339108376_)))) - (let ((_clause108386_ _$hd108340108379_)) - (if (let ((__tmp113929 + (##cdr _$tgt109174109211_)))) + (let ((_clause109221_ _$hd109175109214_)) + (if (let ((__tmp114875 (let () (declare (not safe)) - (__AST-e _$tl108341108382_)))) + (__AST-e _$tl109176109217_)))) (declare (not safe)) - (equal? __tmp113929 '())) - (let ((__tmp113928 + (equal? __tmp114875 '())) + (let ((__tmp114874 (let () (declare (not safe)) - (cons '%#lambda _clause108386_)))) + (cons '%#lambda _clause109221_)))) (declare (not safe)) - (__compile-lambda% __tmp113928)) + (__compile-lambda% __tmp114874)) (let () (declare (not safe)) - (_$E108331108363_))))) - (let () (declare (not safe)) (_$E108331108363_)))) - (let () (declare (not safe)) (_$E108331108363_))))))) + (_$E109166109198_))))) + (let () (declare (not safe)) (_$E109166109198_)))) + (let () (declare (not safe)) (_$E109166109198_))))))) (define __compile-let-form - (lambda (_stx108092_ _compile-simple108093_ _compile-values108094_) - (letrec ((_simple-bind?108096_ - (lambda (_hd108281_) - (let* ((_hd108282108292_ _hd108281_) - (_else108285108300_ (lambda () '#f))) - (let ((_K108288108313_ (lambda (_id108311_) '#t)) - (_K108287108305_ (lambda () '#t))) - (let ((_try-match108284108308_ + (lambda (_stx108927_ _compile-simple108928_ _compile-values108929_) + (letrec ((_simple-bind?108931_ + (lambda (_hd109116_) + (let* ((_hd109117109127_ _hd109116_) + (_else109120109135_ (lambda () '#f))) + (let ((_K109123109148_ (lambda (_id109146_) '#t)) + (_K109122109140_ (lambda () '#t))) + (let ((_try-match109119109143_ (lambda () (if (let () (declare (not safe)) - (##eq? _hd108282108292_ '#f)) + (##eq? _hd109117109127_ '#f)) (let () (declare (not safe)) - (_K108287108305_)) + (_K109122109140_)) (let () (declare (not safe)) - (_else108285108300_)))))) + (_else109120109135_)))))) (if (let () (declare (not safe)) - (##pair? _hd108282108292_)) - (let ((_tl108290108318_ + (##pair? _hd109117109127_)) + (let ((_tl109125109153_ (let () (declare (not safe)) - (##cdr _hd108282108292_))) - (_hd108289108316_ + (##cdr _hd109117109127_))) + (_hd109124109151_ (let () (declare (not safe)) - (##car _hd108282108292_)))) + (##car _hd109117109127_)))) (if (let () (declare (not safe)) - (##null? _tl108290108318_)) - (let ((_id108321_ _hd108289108316_)) + (##null? _tl109125109153_)) + (let ((_id109156_ _hd109124109151_)) (declare (not safe)) - (_K108288108313_ _id108321_)) + (_K109123109148_ _id109156_)) (let () (declare (not safe)) - (_try-match108284108308_)))) + (_try-match109119109143_)))) (let () (declare (not safe)) - (_try-match108284108308_)))))))) - (_car-e108097_ - (lambda (_hd108279_) - (if (let () (declare (not safe)) (pair? _hd108279_)) - (car _hd108279_) - _hd108279_)))) - (let* ((_$e108099_ _stx108092_) - (_$E108101108244_ + (_try-match109119109143_)))))))) + (_car-e108932_ + (lambda (_hd109114_) + (if (let () (declare (not safe)) (pair? _hd109114_)) + (car _hd109114_) + _hd109114_)))) + (let* ((_$e108934_ _stx108927_) + (_$E108936109079_ (lambda () - (let ((_$E108102108124_ + (let ((_$E108937108959_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108099_))))) + _$e108934_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e108099_)) - (let* ((_$tgt108103108127_ + (__AST-pair? _$e108934_)) + (let* ((_$tgt108938108962_ (let () (declare (not safe)) - (__AST-e _$e108099_))) - (_$hd108104108130_ + (__AST-e _$e108934_))) + (_$hd108939108965_ (let () (declare (not safe)) - (##car _$tgt108103108127_))) - (_$tl108105108133_ + (##car _$tgt108938108962_))) + (_$tl108940108968_ (let () (declare (not safe)) - (##cdr _$tgt108103108127_)))) + (##cdr _$tgt108938108962_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl108105108133_)) - (let* ((_$tgt108106108137_ + (__AST-pair? _$tl108940108968_)) + (let* ((_$tgt108941108972_ (let () (declare (not safe)) - (__AST-e _$tl108105108133_))) - (_$hd108107108140_ + (__AST-e _$tl108940108968_))) + (_$hd108942108975_ (let () (declare (not safe)) - (##car _$tgt108106108137_))) - (_$tl108108108143_ + (##car _$tgt108941108972_))) + (_$tl108943108978_ (let () (declare (not safe)) - (##cdr _$tgt108106108137_)))) - (let ((_hd108147_ _$hd108107108140_)) + (##cdr _$tgt108941108972_)))) + (let ((_hd108982_ _$hd108942108975_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl108108108143_)) - (let* ((_$tgt108109108149_ + (__AST-pair? _$tl108943108978_)) + (let* ((_$tgt108944108984_ (let () (declare (not safe)) - (__AST-e _$tl108108108143_))) - (_$hd108110108152_ + (__AST-e _$tl108943108978_))) + (_$hd108945108987_ (let () (declare (not safe)) - (##car _$tgt108109108149_))) - (_$tl108111108155_ + (##car _$tgt108944108984_))) + (_$tl108946108990_ (let () (declare (not safe)) - (##cdr _$tgt108109108149_)))) - (let ((_body108159_ - _$hd108110108152_)) - (if (let ((__tmp113932 + (##cdr _$tgt108944108984_)))) + (let ((_body108994_ + _$hd108945108987_)) + (if (let ((__tmp114878 (let () (declare (not safe)) - (__AST-e _$tl108111108155_)))) + (__AST-e _$tl108946108990_)))) (declare (not safe)) - (equal? __tmp113932 '())) - (let* ((_hd-ids108199_ - (map (lambda (_bind108161_) - (let* ((_$e108163_ + (equal? __tmp114878 '())) + (let* ((_hd-ids109034_ + (map (lambda (_bind108996_) + (let* ((_$e108998_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind108161_) - (_$E108165108174_ + _bind108996_) + (_$E109000109009_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108163_))))) + _$e108998_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e108163_)) - (let* ((_$tgt108166108177_ + (__AST-pair? _$e108998_)) + (let* ((_$tgt109001109012_ (let () (declare (not safe)) - (__AST-e _$e108163_))) - (_$hd108167108180_ + (__AST-e _$e108998_))) + (_$hd109002109015_ (let () (declare (not safe)) - (##car _$tgt108166108177_))) - (_$tl108168108183_ + (##car _$tgt109001109012_))) + (_$tl109003109018_ (let () (declare (not safe)) - (##cdr _$tgt108166108177_)))) - (let ((_ids108187_ _$hd108167108180_)) + (##cdr _$tgt109001109012_)))) + (let ((_ids109022_ _$hd109002109015_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl108168108183_)) - (let* ((_$tgt108169108189_ + (__AST-pair? _$tl109003109018_)) + (let* ((_$tgt109004109024_ (let () (declare (not safe)) - (__AST-e _$tl108168108183_))) - (_$hd108170108192_ + (__AST-e _$tl109003109018_))) + (_$hd109005109027_ (let () (declare (not safe)) - (##car _$tgt108169108189_))) - (_$tl108171108195_ + (##car _$tgt109004109024_))) + (_$tl109006109030_ (let () (declare (not safe)) - (##cdr _$tgt108169108189_)))) - (if (let ((__tmp113930 + (##cdr _$tgt109004109024_)))) + (if (let ((__tmp114876 (let () (declare (not safe)) - (__AST-e _$tl108171108195_)))) + (__AST-e _$tl109006109030_)))) (declare (not safe)) - (equal? __tmp113930 '())) - _ids108187_ + (equal? __tmp114876 '())) + _ids109022_ (let () (declare (not safe)) - (_$E108165108174_)))) + (_$E109000109009_)))) (let () (declare (not safe)) - (_$E108165108174_))))) + (_$E109000109009_))))) (let () (declare (not safe)) - (_$E108165108174_))))) - _hd108147_)) - (_exprs108239_ - (map (lambda (_bind108201_) - (let* ((_$e108203_ _bind108201_) - (_$E108205108214_ + (_$E109000109009_))))) + _hd108982_)) + (_exprs109074_ + (map (lambda (_bind109036_) + (let* ((_$e109038_ _bind109036_) + (_$E109040109049_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108203_))))) + _$e109038_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e108203_)) - (let* ((_$tgt108206108217_ + (__AST-pair? _$e109038_)) + (let* ((_$tgt109041109052_ (let () (declare (not safe)) - (__AST-e _$e108203_))) - (_$hd108207108220_ + (__AST-e _$e109038_))) + (_$hd109042109055_ (let () (declare (not safe)) - (##car _$tgt108206108217_))) - (_$tl108208108223_ + (##car _$tgt109041109052_))) + (_$tl109043109058_ (let () (declare (not safe)) - (##cdr _$tgt108206108217_)))) + (##cdr _$tgt109041109052_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl108208108223_)) - (let* ((_$tgt108209108227_ + (__AST-pair? _$tl109043109058_)) + (let* ((_$tgt109044109062_ (let () (declare (not safe)) - (__AST-e _$tl108208108223_))) - (_$hd108210108230_ + (__AST-e _$tl109043109058_))) + (_$hd109045109065_ (let () (declare (not safe)) - (##car _$tgt108209108227_))) - (_$tl108211108233_ + (##car _$tgt109044109062_))) + (_$tl109046109068_ (let () (declare (not safe)) - (##cdr _$tgt108209108227_)))) - (let ((_expr108237_ _$hd108210108230_)) - (if (let ((__tmp113931 + (##cdr _$tgt109044109062_)))) + (let ((_expr109072_ _$hd109045109065_)) + (if (let ((__tmp114877 (let () (declare (not safe)) - (__AST-e _$tl108211108233_)))) + (__AST-e _$tl109046109068_)))) (declare (not safe)) - (equal? __tmp113931 '())) + (equal? __tmp114877 '())) (let () (declare (not safe)) - (__compile _expr108237_)) + (__compile _expr109072_)) (let () (declare (not safe)) - (_$E108205108214_))))) + (_$E109040109049_))))) (let () (declare (not safe)) - (_$E108205108214_)))) + (_$E109040109049_)))) (let () (declare (not safe)) - (_$E108205108214_))))) - _hd108147_)) - (_body108241_ - (let () (declare (not safe)) (__compile _body108159_)))) + (_$E109040109049_))))) + _hd108982_)) + (_body109076_ + (let () (declare (not safe)) (__compile _body108994_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (andmap1 _simple-bind?108096_ + (andmap1 _simple-bind?108931_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-ids108199_)) - (_compile-simple108093_ - (map _car-e108097_ _hd-ids108199_) - _exprs108239_ - _body108241_) - (_compile-values108094_ - _hd-ids108199_ - _exprs108239_ - _body108241_))) + _hd-ids109034_)) + (_compile-simple108928_ + (map _car-e108932_ _hd-ids109034_) + _exprs109074_ + _body109076_) + (_compile-values108929_ + _hd-ids109034_ + _exprs109074_ + _body109076_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E108102108124_))))) + (_$E108937108959_))))) (let () (declare (not safe)) - (_$E108102108124_))))) + (_$E108937108959_))))) (let () (declare (not safe)) - (_$E108102108124_)))) - (let () (declare (not safe)) (_$E108102108124_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108099_)) - (let* ((_$tgt108112108247_ - (let () (declare (not safe)) (__AST-e _$e108099_))) - (_$hd108113108250_ + (_$E108937108959_)))) + (let () (declare (not safe)) (_$E108937108959_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e108934_)) + (let* ((_$tgt108947109082_ + (let () (declare (not safe)) (__AST-e _$e108934_))) + (_$hd108948109085_ (let () (declare (not safe)) - (##car _$tgt108112108247_))) - (_$tl108114108253_ + (##car _$tgt108947109082_))) + (_$tl108949109088_ (let () (declare (not safe)) - (##cdr _$tgt108112108247_)))) + (##cdr _$tgt108947109082_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl108114108253_)) - (let* ((_$tgt108115108257_ + (__AST-pair? _$tl108949109088_)) + (let* ((_$tgt108950109092_ (let () (declare (not safe)) - (__AST-e _$tl108114108253_))) - (_$hd108116108260_ + (__AST-e _$tl108949109088_))) + (_$hd108951109095_ (let () (declare (not safe)) - (##car _$tgt108115108257_))) - (_$tl108117108263_ + (##car _$tgt108950109092_))) + (_$tl108952109098_ (let () (declare (not safe)) - (##cdr _$tgt108115108257_)))) - (if (let ((__tmp113934 + (##cdr _$tgt108950109092_)))) + (if (let ((__tmp114880 (let () (declare (not safe)) - (__AST-e _$hd108116108260_)))) + (__AST-e _$hd108951109095_)))) (declare (not safe)) - (equal? __tmp113934 '())) + (equal? __tmp114880 '())) (if (let () (declare (not safe)) - (__AST-pair? _$tl108117108263_)) - (let* ((_$tgt108118108267_ + (__AST-pair? _$tl108952109098_)) + (let* ((_$tgt108953109102_ (let () (declare (not safe)) - (__AST-e _$tl108117108263_))) - (_$hd108119108270_ + (__AST-e _$tl108952109098_))) + (_$hd108954109105_ (let () (declare (not safe)) - (##car _$tgt108118108267_))) - (_$tl108120108273_ + (##car _$tgt108953109102_))) + (_$tl108955109108_ (let () (declare (not safe)) - (##cdr _$tgt108118108267_)))) - (let ((_body108277_ _$hd108119108270_)) - (if (let ((__tmp113933 + (##cdr _$tgt108953109102_)))) + (let ((_body109112_ _$hd108954109105_)) + (if (let ((__tmp114879 (let () (declare (not safe)) - (__AST-e _$tl108120108273_)))) + (__AST-e _$tl108955109108_)))) (declare (not safe)) - (equal? __tmp113933 '())) + (equal? __tmp114879 '())) (let () (declare (not safe)) - (__compile _body108277_)) + (__compile _body109112_)) (let () (declare (not safe)) - (_$E108101108244_))))) + (_$E108936109079_))))) (let () (declare (not safe)) - (_$E108101108244_))) - (let () (declare (not safe)) (_$E108101108244_)))) - (let () (declare (not safe)) (_$E108101108244_)))) - (let () (declare (not safe)) (_$E108101108244_))))))) + (_$E108936109079_))) + (let () (declare (not safe)) (_$E108936109079_)))) + (let () (declare (not safe)) (_$E108936109079_)))) + (let () (declare (not safe)) (_$E108936109079_))))))) (define __compile-let-values% - (lambda (_stx107907_) - (letrec ((_compile-simple107909_ - (lambda (_hd-ids108088_ _exprs108089_ _body108090_) - (let ((__tmp113935 - (let ((__tmp113936 - (let ((__tmp113938 + (lambda (_stx108742_) + (letrec ((_compile-simple108744_ + (lambda (_hd-ids108923_ _exprs108924_ _body108925_) + (let ((__tmp114881 + (let ((__tmp114882 + (let ((__tmp114884 (map list (map __compile-head-id - _hd-ids108088_) - _exprs108089_)) - (__tmp113937 + _hd-ids108923_) + _exprs108924_)) + (__tmp114883 (let () (declare (not safe)) - (cons _body108090_ '())))) + (cons _body108925_ '())))) (declare (not safe)) - (cons __tmp113938 __tmp113937)))) + (cons __tmp114884 __tmp114883)))) (declare (not safe)) - (cons 'let __tmp113936)))) + (cons 'let __tmp114882)))) (declare (not safe)) - (__SRC__% __tmp113935 _stx107907_)))) - (_compile-values107910_ - (lambda (_hd-ids108006_ _exprs108007_ _body108008_) - (let _lp108010_ ((_rest108012_ _hd-ids108006_) - (_exprs108013_ _exprs108007_) - (_bind108014_ '()) - (_post108015_ '())) - (let* ((_rest108016108030_ _rest108012_) - (_else108019108038_ + (__SRC__% __tmp114881 _stx108742_)))) + (_compile-values108745_ + (lambda (_hd-ids108841_ _exprs108842_ _body108843_) + (let _lp108845_ ((_rest108847_ _hd-ids108841_) + (_exprs108848_ _exprs108842_) + (_bind108849_ '()) + (_post108850_ '())) + (let* ((_rest108851108865_ _rest108847_) + (_else108854108873_ (lambda () - (let ((__tmp113939 - (let ((__tmp113940 - (let ((__tmp113943 - (reverse _bind108014_)) - (__tmp113941 - (let ((__tmp113942 + (let ((__tmp114885 + (let ((__tmp114886 + (let ((__tmp114889 + (reverse _bind108849_)) + (__tmp114887 + (let ((__tmp114888 (let () (declare (not safe)) - (_compile-post107911_ - _post108015_ - _body108008_)))) + (_compile-post108746_ + _post108850_ + _body108843_)))) (declare (not safe)) - (cons __tmp113942 + (cons __tmp114888 '())))) (declare (not safe)) - (cons __tmp113943 - __tmp113941)))) + (cons __tmp114889 + __tmp114887)))) (declare (not safe)) - (cons 'let __tmp113940)))) + (cons 'let __tmp114886)))) (declare (not safe)) - (__SRC__% __tmp113939 _stx107907_))))) - (let ((_K108024108071_ - (lambda (_rest108068_ _id108069_) - (let ((__tmp113949 (cdr _exprs108013_)) - (__tmp113944 - (let ((__tmp113945 - (let ((__tmp113948 + (__SRC__% __tmp114885 _stx108742_))))) + (let ((_K108859108906_ + (lambda (_rest108903_ _id108904_) + (let ((__tmp114895 (cdr _exprs108848_)) + (__tmp114890 + (let ((__tmp114891 + (let ((__tmp114894 (let () (declare (not safe)) (__compile-head-id - _id108069_))) - (__tmp113946 - (let ((__tmp113947 - (car _exprs108013_))) + _id108904_))) + (__tmp114892 + (let ((__tmp114893 + (car _exprs108848_))) (declare (not safe)) - (cons __tmp113947 + (cons __tmp114893 '())))) (declare (not safe)) - (cons __tmp113948 - __tmp113946)))) + (cons __tmp114894 + __tmp114892)))) (declare (not safe)) - (cons __tmp113945 _bind108014_)))) + (cons __tmp114891 _bind108849_)))) (declare (not safe)) - (_lp108010_ - _rest108068_ - __tmp113949 - __tmp113944 - _post108015_)))) - (_K108021108053_ - (lambda (_rest108042_ _hd108043_) + (_lp108845_ + _rest108903_ + __tmp114895 + __tmp114890 + _post108850_)))) + (_K108856108888_ + (lambda (_rest108877_ _hd108878_) (if (let () (declare (not safe)) - (__AST-id? _hd108043_)) - (let ((__tmp113970 (cdr _exprs108013_)) - (__tmp113963 - (let ((__tmp113964 - (let ((__tmp113969 + (__AST-id? _hd108878_)) + (let ((__tmp114916 (cdr _exprs108848_)) + (__tmp114909 + (let ((__tmp114910 + (let ((__tmp114915 (let () (declare (not safe)) (__compile-head-id - _hd108043_))) - (__tmp113965 - (let ((__tmp113966 + _hd108878_))) + (__tmp114911 + (let ((__tmp114912 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp113967 - (let ((__tmp113968 (car _exprs108013_))) + (let ((__tmp114913 + (let ((__tmp114914 (car _exprs108848_))) (declare (not safe)) - (cons __tmp113968 '())))) + (cons __tmp114914 '())))) (declare (not safe)) - (cons 'values->list __tmp113967)))) + (cons 'values->list __tmp114913)))) (declare (not safe)) - (cons __tmp113966 '())))) + (cons __tmp114912 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp113969 - __tmp113965)))) + (cons __tmp114915 + __tmp114911)))) (declare (not safe)) - (cons __tmp113964 - _bind108014_)))) + (cons __tmp114910 + _bind108849_)))) (declare (not safe)) - (_lp108010_ - _rest108042_ - __tmp113970 - __tmp113963 - _post108015_)) + (_lp108845_ + _rest108877_ + __tmp114916 + __tmp114909 + _post108850_)) (if (let () (declare (not safe)) - (list? _hd108043_)) - (let* ((_len108045_ - (length _hd108043_)) - (_tmp108047_ - (let ((__tmp113950 (gensym))) + (list? _hd108878_)) + (let* ((_len108880_ + (length _hd108878_)) + (_tmp108882_ + (let ((__tmp114896 (gensym))) (declare (not safe)) - (__SRC__0 __tmp113950)))) - (let ((__tmp113962 - (cdr _exprs108013_)) - (__tmp113958 - (let ((__tmp113959 - (let ((__tmp113960 - (let ((__tmp113961 + (__SRC__0 __tmp114896)))) + (let ((__tmp114908 + (cdr _exprs108848_)) + (__tmp114904 + (let ((__tmp114905 + (let ((__tmp114906 + (let ((__tmp114907 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs108013_))) + (car _exprs108848_))) (declare (not safe)) - (cons __tmp113961 '())))) + (cons __tmp114907 '())))) (declare (not safe)) - (cons _tmp108047_ __tmp113960)))) + (cons _tmp108882_ __tmp114906)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp113959 - _bind108014_))) - (__tmp113951 - (let ((__tmp113952 - (let ((__tmp113953 - (let ((__tmp113954 + (cons __tmp114905 + _bind108849_))) + (__tmp114897 + (let ((__tmp114898 + (let ((__tmp114899 + (let ((__tmp114900 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp113956 - (lambda (_id108050_ _k108051_) + (let ((__tmp114902 + (lambda (_id108885_ _k108886_) (if (let () (declare (not safe)) - (__AST-e _id108050_)) - (let ((__tmp113957 + (__AST-e _id108885_)) + (let ((__tmp114903 (let () (declare (not safe)) - (__SRC__0 _id108050_)))) + (__SRC__0 _id108885_)))) (declare (not safe)) - (cons __tmp113957 _k108051_)) + (cons __tmp114903 _k108886_)) '#f))) - (__tmp113955 + (__tmp114901 (let () (declare (not safe)) - (iota _len108045_)))) + (iota _len108880_)))) (declare (not safe)) (filter-map2 - __tmp113956 - _hd108043_ - __tmp113955)))) + __tmp114902 + _hd108878_ + __tmp114901)))) (declare (not safe)) - (cons _len108045_ __tmp113954)))) + (cons _len108880_ __tmp114900)))) (declare (not safe)) - (cons _tmp108047_ __tmp113953)))) + (cons _tmp108882_ __tmp114899)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp113952 - _post108015_)))) + (cons __tmp114898 + _post108850_)))) (declare (not safe)) - (_lp108010_ - _rest108042_ - __tmp113962 - __tmp113958 - __tmp113951))) + (_lp108845_ + _rest108877_ + __tmp114908 + __tmp114904 + __tmp114897))) (let () (declare (not safe)) (__compile-error__% - _stx107907_ - _hd108043_))))))) + _stx108742_ + _hd108878_))))))) (if (let () (declare (not safe)) - (##pair? _rest108016108030_)) - (let ((_tl108026108076_ + (##pair? _rest108851108865_)) + (let ((_tl108861108911_ (let () (declare (not safe)) - (##cdr _rest108016108030_))) - (_hd108025108074_ + (##cdr _rest108851108865_))) + (_hd108860108909_ (let () (declare (not safe)) - (##car _rest108016108030_)))) + (##car _rest108851108865_)))) (if (let () (declare (not safe)) - (##pair? _hd108025108074_)) - (let ((_tl108028108081_ + (##pair? _hd108860108909_)) + (let ((_tl108863108916_ (let () (declare (not safe)) - (##cdr _hd108025108074_))) - (_hd108027108079_ + (##cdr _hd108860108909_))) + (_hd108862108914_ (let () (declare (not safe)) - (##car _hd108025108074_)))) + (##car _hd108860108909_)))) (if (let () (declare (not safe)) - (##null? _tl108028108081_)) - (let ((_id108084_ _hd108027108079_) - (_rest108086_ - _tl108026108076_)) + (##null? _tl108863108916_)) + (let ((_id108919_ _hd108862108914_) + (_rest108921_ + _tl108861108911_)) (let () (declare (not safe)) - (_K108024108071_ - _rest108086_ - _id108084_))) - (let ((_hd108061_ _hd108025108074_) - (_rest108063_ - _tl108026108076_)) + (_K108859108906_ + _rest108921_ + _id108919_))) + (let ((_hd108896_ _hd108860108909_) + (_rest108898_ + _tl108861108911_)) (let () (declare (not safe)) - (_K108021108053_ - _rest108063_ - _hd108061_))))) - (let ((_hd108061_ _hd108025108074_) - (_rest108063_ _tl108026108076_)) + (_K108856108888_ + _rest108898_ + _hd108896_))))) + (let ((_hd108896_ _hd108860108909_) + (_rest108898_ _tl108861108911_)) (let () (declare (not safe)) - (_K108021108053_ - _rest108063_ - _hd108061_))))) + (_K108856108888_ + _rest108898_ + _hd108896_))))) (let () (declare (not safe)) - (_else108019108038_)))))))) - (_compile-post107911_ - (lambda (_post107913_ _body107914_) - (let _lp107916_ ((_rest107918_ _post107913_) - (_check107919_ '()) - (_bind107920_ '())) - (let* ((_rest107921107933_ _rest107918_) - (_else107923107941_ + (_else108854108873_)))))))) + (_compile-post108746_ + (lambda (_post108748_ _body108749_) + (let _lp108751_ ((_rest108753_ _post108748_) + (_check108754_ '()) + (_bind108755_ '())) + (let* ((_rest108756108768_ _rest108753_) + (_else108758108776_ (lambda () - (let ((__tmp113971 - (let ((__tmp113972 - (let ((__tmp113973 - (let ((__tmp113974 - (let ((__tmp113975 + (let ((__tmp114917 + (let ((__tmp114918 + (let ((__tmp114919 + (let ((__tmp114920 + (let ((__tmp114921 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp113976 - (let ((__tmp113977 + (let ((__tmp114922 + (let ((__tmp114923 (let () (declare (not safe)) - (cons _body107914_ '())))) + (cons _body108749_ '())))) (declare (not safe)) - (cons _bind107920_ __tmp113977)))) + (cons _bind108755_ __tmp114923)))) (declare (not safe)) - (cons 'let __tmp113976)))) + (cons 'let __tmp114922)))) (declare (not safe)) - (__SRC__% __tmp113975 _stx107907_)))) + (__SRC__% __tmp114921 _stx108742_)))) (declare (not safe)) - (cons __tmp113974 '())))) + (cons __tmp114920 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp113973 - _check107919_)))) + __tmp114919 + _check108754_)))) (declare (not safe)) - (cons 'begin __tmp113972)))) + (cons 'begin __tmp114918)))) (declare (not safe)) - (__SRC__% __tmp113971 _stx107907_)))) - (_K107925107980_ - (lambda (_rest107944_ - _init107945_ - _len107946_ - _tmp107947_) - (let ((__tmp113985 - (let ((__tmp113986 - (let ((__tmp113987 - (let ((__tmp113988 - (let ((__tmp113989 + (__SRC__% __tmp114917 _stx108742_)))) + (_K108760108815_ + (lambda (_rest108779_ + _init108780_ + _len108781_ + _tmp108782_) + (let ((__tmp114931 + (let ((__tmp114932 + (let ((__tmp114933 + (let ((__tmp114934 + (let ((__tmp114935 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len107946_ '())))) + (cons _len108781_ '())))) (declare (not safe)) - (cons _tmp107947_ __tmp113989)))) + (cons _tmp108782_ __tmp114935)))) (declare (not safe)) - (cons '__check-values __tmp113988)))) + (cons '__check-values __tmp114934)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp113987 - _stx107907_)))) + __tmp114933 + _stx108742_)))) (declare (not safe)) - (cons __tmp113986 _check107919_))) - (__tmp113978 - (let ((__tmp113979 - (lambda (_hd107949_ _r107950_) - (let* ((_hd107951107958_ - _hd107949_) - (_E107953107962_ + (cons __tmp114932 _check108754_))) + (__tmp114924 + (let ((__tmp114925 + (lambda (_hd108784_ _r108785_) + (let* ((_hd108786108793_ + _hd108784_) + (_E108788108797_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd107951107958_))) - (_K107954107968_ - (lambda (_k107965_ _id107966_) - (let ((__tmp113980 - (let ((__tmp113981 - (let ((__tmp113982 - (let ((__tmp113983 - (let ((__tmp113984 + _hd108786108793_))) + (_K108789108803_ + (lambda (_k108800_ _id108801_) + (let ((__tmp114926 + (let ((__tmp114927 + (let ((__tmp114928 + (let ((__tmp114929 + (let ((__tmp114930 (let () (declare (not safe)) - (cons _k107965_ '())))) + (cons _k108800_ '())))) (declare (not safe)) - (cons _tmp107947_ - __tmp113984)))) + (cons _tmp108782_ + __tmp114930)))) (declare (not safe)) - (cons '##vector-ref __tmp113983)))) + (cons '##vector-ref __tmp114929)))) (declare (not safe)) - (cons __tmp113982 '())))) + (cons __tmp114928 '())))) (declare (not safe)) - (cons _id107966_ __tmp113981)))) + (cons _id108801_ __tmp114927)))) (declare (not safe)) - (cons __tmp113980 _r107950_))))) + (cons __tmp114926 _r108785_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd107951107958_)) - (let ((_hd107955107971_ + (##pair? _hd108786108793_)) + (let ((_hd108790108806_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd107951107958_))) - (_tl107956107973_ - (let () (declare (not safe)) (##cdr _hd107951107958_)))) - (let* ((_id107976_ _hd107955107971_) - (_k107978_ _tl107956107973_)) + (##car _hd108786108793_))) + (_tl108791108808_ + (let () (declare (not safe)) (##cdr _hd108786108793_)))) + (let* ((_id108811_ _hd108790108806_) + (_k108813_ _tl108791108808_)) (declare (not safe)) - (_K107954107968_ _k107978_ _id107976_))) - (let () (declare (not safe)) (_E107953107962_))))))) + (_K108789108803_ _k108813_ _id108811_))) + (let () (declare (not safe)) (_E108788108797_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp113979 - _bind107920_ - _init107945_)))) + (foldr1 __tmp114925 + _bind108755_ + _init108780_)))) (declare (not safe)) - (_lp107916_ - _rest107944_ - __tmp113985 - __tmp113978))))) + (_lp108751_ + _rest108779_ + __tmp114931 + __tmp114924))))) (if (let () (declare (not safe)) - (##pair? _rest107921107933_)) - (let ((_hd107926107983_ + (##pair? _rest108756108768_)) + (let ((_hd108761108818_ (let () (declare (not safe)) - (##car _rest107921107933_))) - (_tl107927107985_ + (##car _rest108756108768_))) + (_tl108762108820_ (let () (declare (not safe)) - (##cdr _rest107921107933_)))) + (##cdr _rest108756108768_)))) (if (let () (declare (not safe)) - (##pair? _hd107926107983_)) - (let ((_hd107928107988_ + (##pair? _hd108761108818_)) + (let ((_hd108763108823_ (let () (declare (not safe)) - (##car _hd107926107983_))) - (_tl107929107990_ + (##car _hd108761108818_))) + (_tl108764108825_ (let () (declare (not safe)) - (##cdr _hd107926107983_)))) - (let ((_tmp107993_ _hd107928107988_)) + (##cdr _hd108761108818_)))) + (let ((_tmp108828_ _hd108763108823_)) (if (let () (declare (not safe)) - (##pair? _tl107929107990_)) - (let ((_hd107930107995_ + (##pair? _tl108764108825_)) + (let ((_hd108765108830_ (let () (declare (not safe)) - (##car _tl107929107990_))) - (_tl107931107997_ + (##car _tl108764108825_))) + (_tl108766108832_ (let () (declare (not safe)) - (##cdr _tl107929107990_)))) - (let* ((_len108000_ - _hd107930107995_) - (_init108002_ - _tl107931107997_) - (_rest108004_ - _tl107927107985_)) + (##cdr _tl108764108825_)))) + (let* ((_len108835_ + _hd108765108830_) + (_init108837_ + _tl108766108832_) + (_rest108839_ + _tl108762108820_)) (declare (not safe)) - (_K107925107980_ - _rest108004_ - _init108002_ - _len108000_ - _tmp107993_))) + (_K108760108815_ + _rest108839_ + _init108837_ + _len108835_ + _tmp108828_))) (let () (declare (not safe)) - (_else107923107941_))))) + (_else108758108776_))))) (let () (declare (not safe)) - (_else107923107941_)))) + (_else108758108776_)))) (let () (declare (not safe)) - (_else107923107941_)))))))) + (_else108758108776_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx107907_ - _compile-simple107909_ - _compile-values107910_))))) + _stx108742_ + _compile-simple108744_ + _compile-values108745_))))) (define __compile-letrec-values% - (lambda (_stx107707_) - (letrec ((_compile-simple107709_ - (lambda (_hd-ids107903_ _exprs107904_ _body107905_) - (let ((__tmp113990 - (let ((__tmp113991 - (let ((__tmp113993 + (lambda (_stx108542_) + (letrec ((_compile-simple108544_ + (lambda (_hd-ids108738_ _exprs108739_ _body108740_) + (let ((__tmp114936 + (let ((__tmp114937 + (let ((__tmp114939 (map list (map __compile-head-id - _hd-ids107903_) - _exprs107904_)) - (__tmp113992 + _hd-ids108738_) + _exprs108739_)) + (__tmp114938 (let () (declare (not safe)) - (cons _body107905_ '())))) + (cons _body108740_ '())))) (declare (not safe)) - (cons __tmp113993 __tmp113992)))) + (cons __tmp114939 __tmp114938)))) (declare (not safe)) - (cons 'letrec __tmp113991)))) + (cons 'letrec __tmp114937)))) (declare (not safe)) - (__SRC__% __tmp113990 _stx107707_)))) - (_compile-values107710_ - (lambda (_hd-ids107817_ _exprs107818_ _body107819_) - (let _lp107821_ ((_rest107823_ _hd-ids107817_) - (_exprs107824_ _exprs107818_) - (_pre107825_ '()) - (_bind107826_ '()) - (_post107827_ '())) - (let* ((_rest107828107842_ _rest107823_) - (_else107831107850_ + (__SRC__% __tmp114936 _stx108542_)))) + (_compile-values108545_ + (lambda (_hd-ids108652_ _exprs108653_ _body108654_) + (let _lp108656_ ((_rest108658_ _hd-ids108652_) + (_exprs108659_ _exprs108653_) + (_pre108660_ '()) + (_bind108661_ '()) + (_post108662_ '())) + (let* ((_rest108663108677_ _rest108658_) + (_else108666108685_ (lambda () (let () (declare (not safe)) - (_compile-inner107711_ - _pre107825_ - _bind107826_ - _post107827_ - _body107819_))))) - (let ((_K107836107886_ - (lambda (_rest107883_ _id107884_) - (let ((__tmp113999 (cdr _exprs107824_)) - (__tmp113994 - (let ((__tmp113995 - (let ((__tmp113998 + (_compile-inner108546_ + _pre108660_ + _bind108661_ + _post108662_ + _body108654_))))) + (let ((_K108671108721_ + (lambda (_rest108718_ _id108719_) + (let ((__tmp114945 (cdr _exprs108659_)) + (__tmp114940 + (let ((__tmp114941 + (let ((__tmp114944 (let () (declare (not safe)) (__compile-head-id - _id107884_))) - (__tmp113996 - (let ((__tmp113997 - (car _exprs107824_))) + _id108719_))) + (__tmp114942 + (let ((__tmp114943 + (car _exprs108659_))) (declare (not safe)) - (cons __tmp113997 + (cons __tmp114943 '())))) (declare (not safe)) - (cons __tmp113998 - __tmp113996)))) + (cons __tmp114944 + __tmp114942)))) (declare (not safe)) - (cons __tmp113995 _bind107826_)))) + (cons __tmp114941 _bind108661_)))) (declare (not safe)) - (_lp107821_ - _rest107883_ - __tmp113999 - _pre107825_ - __tmp113994 - _post107827_)))) - (_K107833107868_ - (lambda (_rest107854_ _hd107855_) + (_lp108656_ + _rest108718_ + __tmp114945 + _pre108660_ + __tmp114940 + _post108662_)))) + (_K108668108703_ + (lambda (_rest108689_ _hd108690_) (if (let () (declare (not safe)) - (__AST-id? _hd107855_)) - (let ((__tmp114027 (cdr _exprs107824_)) - (__tmp114020 - (let ((__tmp114021 - (let ((__tmp114026 + (__AST-id? _hd108690_)) + (let ((__tmp114973 (cdr _exprs108659_)) + (__tmp114966 + (let ((__tmp114967 + (let ((__tmp114972 (let () (declare (not safe)) (__compile-head-id - _hd107855_))) - (__tmp114022 - (let ((__tmp114023 + _hd108690_))) + (__tmp114968 + (let ((__tmp114969 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114024 - (let ((__tmp114025 (car _exprs107824_))) + (let ((__tmp114970 + (let ((__tmp114971 (car _exprs108659_))) (declare (not safe)) - (cons __tmp114025 '())))) + (cons __tmp114971 '())))) (declare (not safe)) - (cons 'values->list __tmp114024)))) + (cons 'values->list __tmp114970)))) (declare (not safe)) - (cons __tmp114023 '())))) + (cons __tmp114969 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114026 - __tmp114022)))) + (cons __tmp114972 + __tmp114968)))) (declare (not safe)) - (cons __tmp114021 - _bind107826_)))) + (cons __tmp114967 + _bind108661_)))) (declare (not safe)) - (_lp107821_ - _rest107854_ - __tmp114027 - _pre107825_ - __tmp114020 - _post107827_)) + (_lp108656_ + _rest108689_ + __tmp114973 + _pre108660_ + __tmp114966 + _post108662_)) (if (let () (declare (not safe)) - (list? _hd107855_)) - (let* ((_len107857_ - (length _hd107855_)) - (_tmp107859_ - (let ((__tmp114000 (gensym))) + (list? _hd108690_)) + (let* ((_len108692_ + (length _hd108690_)) + (_tmp108694_ + (let ((__tmp114946 (gensym))) (declare (not safe)) - (__SRC__0 __tmp114000)))) - (let ((__tmp114019 - (cdr _exprs107824_)) - (__tmp114012 - (let ((__tmp114013 - (lambda (_id107862_ + (__SRC__0 __tmp114946)))) + (let ((__tmp114965 + (cdr _exprs108659_)) + (__tmp114958 + (let ((__tmp114959 + (lambda (_id108697_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r107863_) - (if (let () (declare (not safe)) (__AST-e _id107862_)) - (let ((__tmp114014 - (let ((__tmp114018 + _r108698_) + (if (let () (declare (not safe)) (__AST-e _id108697_)) + (let ((__tmp114960 + (let ((__tmp114964 (let () (declare (not safe)) - (__SRC__0 _id107862_))) - (__tmp114015 - (let ((__tmp114016 - (let ((__tmp114017 + (__SRC__0 _id108697_))) + (__tmp114961 + (let ((__tmp114962 + (let ((__tmp114963 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp114017)))) + (cons 'quote __tmp114963)))) (declare (not safe)) - (cons __tmp114016 '())))) + (cons __tmp114962 '())))) (declare (not safe)) - (cons __tmp114018 __tmp114015)))) + (cons __tmp114964 __tmp114961)))) (declare (not safe)) - (cons __tmp114014 _r107863_)) - _r107863_)))) + (cons __tmp114960 _r108698_)) + _r108698_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp114013 - _pre107825_ - _hd107855_))) - (__tmp114008 - (let ((__tmp114009 - (let ((__tmp114010 - (let ((__tmp114011 + (foldl1 __tmp114959 + _pre108660_ + _hd108690_))) + (__tmp114954 + (let ((__tmp114955 + (let ((__tmp114956 + (let ((__tmp114957 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs107824_))) + (car _exprs108659_))) (declare (not safe)) - (cons __tmp114011 '())))) + (cons __tmp114957 '())))) (declare (not safe)) - (cons _tmp107859_ __tmp114010)))) + (cons _tmp108694_ __tmp114956)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114009 - _bind107826_))) - (__tmp114001 - (let ((__tmp114002 - (let ((__tmp114003 - (let ((__tmp114004 + (cons __tmp114955 + _bind108661_))) + (__tmp114947 + (let ((__tmp114948 + (let ((__tmp114949 + (let ((__tmp114950 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114006 - (lambda (_id107865_ _k107866_) + (let ((__tmp114952 + (lambda (_id108700_ _k108701_) (if (let () (declare (not safe)) - (__AST-e _id107865_)) - (let ((__tmp114007 + (__AST-e _id108700_)) + (let ((__tmp114953 (let () (declare (not safe)) - (__SRC__0 _id107865_)))) + (__SRC__0 _id108700_)))) (declare (not safe)) - (cons __tmp114007 _k107866_)) + (cons __tmp114953 _k108701_)) '#f))) - (__tmp114005 + (__tmp114951 (let () (declare (not safe)) - (iota _len107857_)))) + (iota _len108692_)))) (declare (not safe)) (filter-map2 - __tmp114006 - _hd107855_ - __tmp114005)))) + __tmp114952 + _hd108690_ + __tmp114951)))) (declare (not safe)) - (cons _len107857_ __tmp114004)))) + (cons _len108692_ __tmp114950)))) (declare (not safe)) - (cons _tmp107859_ __tmp114003)))) + (cons _tmp108694_ __tmp114949)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114002 - _post107827_)))) + (cons __tmp114948 + _post108662_)))) (declare (not safe)) - (_lp107821_ - _rest107854_ - __tmp114019 - __tmp114012 - __tmp114008 - __tmp114001))) + (_lp108656_ + _rest108689_ + __tmp114965 + __tmp114958 + __tmp114954 + __tmp114947))) (let () (declare (not safe)) (__compile-error__% - _stx107707_ - _hd107855_))))))) + _stx108542_ + _hd108690_))))))) (if (let () (declare (not safe)) - (##pair? _rest107828107842_)) - (let ((_tl107838107891_ + (##pair? _rest108663108677_)) + (let ((_tl108673108726_ (let () (declare (not safe)) - (##cdr _rest107828107842_))) - (_hd107837107889_ + (##cdr _rest108663108677_))) + (_hd108672108724_ (let () (declare (not safe)) - (##car _rest107828107842_)))) + (##car _rest108663108677_)))) (if (let () (declare (not safe)) - (##pair? _hd107837107889_)) - (let ((_tl107840107896_ + (##pair? _hd108672108724_)) + (let ((_tl108675108731_ (let () (declare (not safe)) - (##cdr _hd107837107889_))) - (_hd107839107894_ + (##cdr _hd108672108724_))) + (_hd108674108729_ (let () (declare (not safe)) - (##car _hd107837107889_)))) + (##car _hd108672108724_)))) (if (let () (declare (not safe)) - (##null? _tl107840107896_)) - (let ((_id107899_ _hd107839107894_) - (_rest107901_ - _tl107838107891_)) + (##null? _tl108675108731_)) + (let ((_id108734_ _hd108674108729_) + (_rest108736_ + _tl108673108726_)) (let () (declare (not safe)) - (_K107836107886_ - _rest107901_ - _id107899_))) - (let ((_hd107876_ _hd107837107889_) - (_rest107878_ - _tl107838107891_)) + (_K108671108721_ + _rest108736_ + _id108734_))) + (let ((_hd108711_ _hd108672108724_) + (_rest108713_ + _tl108673108726_)) (let () (declare (not safe)) - (_K107833107868_ - _rest107878_ - _hd107876_))))) - (let ((_hd107876_ _hd107837107889_) - (_rest107878_ _tl107838107891_)) + (_K108668108703_ + _rest108713_ + _hd108711_))))) + (let ((_hd108711_ _hd108672108724_) + (_rest108713_ _tl108673108726_)) (let () (declare (not safe)) - (_K107833107868_ - _rest107878_ - _hd107876_))))) + (_K108668108703_ + _rest108713_ + _hd108711_))))) (let () (declare (not safe)) - (_else107831107850_)))))))) - (_compile-inner107711_ - (lambda (_pre107812_ _bind107813_ _post107814_ _body107815_) - (if (let () (declare (not safe)) (null? _pre107812_)) + (_else108666108685_)))))))) + (_compile-inner108546_ + (lambda (_pre108647_ _bind108648_ _post108649_ _body108650_) + (if (let () (declare (not safe)) (null? _pre108647_)) (let () (declare (not safe)) - (_compile-bind107712_ - _bind107813_ - _post107814_ - _body107815_)) - (let ((__tmp114028 - (let ((__tmp114029 - (let ((__tmp114032 (reverse _pre107812_)) - (__tmp114030 - (let ((__tmp114031 + (_compile-bind108547_ + _bind108648_ + _post108649_ + _body108650_)) + (let ((__tmp114974 + (let ((__tmp114975 + (let ((__tmp114978 (reverse _pre108647_)) + (__tmp114976 + (let ((__tmp114977 (let () (declare (not safe)) - (_compile-bind107712_ - _bind107813_ - _post107814_ - _body107815_)))) + (_compile-bind108547_ + _bind108648_ + _post108649_ + _body108650_)))) (declare (not safe)) - (cons __tmp114031 '())))) + (cons __tmp114977 '())))) (declare (not safe)) - (cons __tmp114032 __tmp114030)))) + (cons __tmp114978 __tmp114976)))) (declare (not safe)) - (cons 'let __tmp114029)))) + (cons 'let __tmp114975)))) (declare (not safe)) - (__SRC__% __tmp114028 _stx107707_))))) - (_compile-bind107712_ - (lambda (_bind107808_ _post107809_ _body107810_) - (let ((__tmp114033 - (let ((__tmp114034 - (let ((__tmp114037 (reverse _bind107808_)) - (__tmp114035 - (let ((__tmp114036 + (__SRC__% __tmp114974 _stx108542_))))) + (_compile-bind108547_ + (lambda (_bind108643_ _post108644_ _body108645_) + (let ((__tmp114979 + (let ((__tmp114980 + (let ((__tmp114983 (reverse _bind108643_)) + (__tmp114981 + (let ((__tmp114982 (let () (declare (not safe)) - (_compile-post107713_ - _post107809_ - _body107810_)))) + (_compile-post108548_ + _post108644_ + _body108645_)))) (declare (not safe)) - (cons __tmp114036 '())))) + (cons __tmp114982 '())))) (declare (not safe)) - (cons __tmp114037 __tmp114035)))) + (cons __tmp114983 __tmp114981)))) (declare (not safe)) - (cons 'letrec __tmp114034)))) + (cons 'letrec __tmp114980)))) (declare (not safe)) - (__SRC__% __tmp114033 _stx107707_)))) - (_compile-post107713_ - (lambda (_post107715_ _body107716_) - (let _lp107718_ ((_rest107720_ _post107715_) - (_check107721_ '()) - (_bind107722_ '())) - (let* ((_rest107723107735_ _rest107720_) - (_else107725107743_ + (__SRC__% __tmp114979 _stx108542_)))) + (_compile-post108548_ + (lambda (_post108550_ _body108551_) + (let _lp108553_ ((_rest108555_ _post108550_) + (_check108556_ '()) + (_bind108557_ '())) + (let* ((_rest108558108570_ _rest108555_) + (_else108560108578_ (lambda () - (let ((__tmp114038 - (let ((__tmp114039 - (let ((__tmp114040 - (let ((__tmp114041 + (let ((__tmp114984 + (let ((__tmp114985 + (let ((__tmp114986 + (let ((__tmp114987 (let () (declare (not safe)) - (cons _body107716_ + (cons _body108551_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (foldr1 cons __tmp114041 _bind107722_)))) + (foldr1 cons __tmp114987 _bind108557_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp114040 - _check107721_)))) + __tmp114986 + _check108556_)))) (declare (not safe)) - (cons 'begin __tmp114039)))) + (cons 'begin __tmp114985)))) (declare (not safe)) - (__SRC__% __tmp114038 _stx107707_)))) - (_K107727107782_ - (lambda (_rest107746_ - _init107747_ - _len107748_ - _tmp107749_) - (let ((__tmp114050 - (let ((__tmp114051 - (let ((__tmp114052 - (let ((__tmp114053 - (let ((__tmp114054 + (__SRC__% __tmp114984 _stx108542_)))) + (_K108562108617_ + (lambda (_rest108581_ + _init108582_ + _len108583_ + _tmp108584_) + (let ((__tmp114996 + (let ((__tmp114997 + (let ((__tmp114998 + (let ((__tmp114999 + (let ((__tmp115000 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len107748_ '())))) + (cons _len108583_ '())))) (declare (not safe)) - (cons _tmp107749_ __tmp114054)))) + (cons _tmp108584_ __tmp115000)))) (declare (not safe)) - (cons '__check-values __tmp114053)))) + (cons '__check-values __tmp114999)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp114052 - _stx107707_)))) + __tmp114998 + _stx108542_)))) (declare (not safe)) - (cons __tmp114051 _check107721_))) - (__tmp114042 - (let ((__tmp114043 - (lambda (_hd107751_ _r107752_) - (let* ((_hd107753107760_ - _hd107751_) - (_E107755107764_ + (cons __tmp114997 _check108556_))) + (__tmp114988 + (let ((__tmp114989 + (lambda (_hd108586_ _r108587_) + (let* ((_hd108588108595_ + _hd108586_) + (_E108590108599_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd107753107760_))) - (_K107756107770_ - (lambda (_k107767_ _id107768_) - (let ((__tmp114044 - (let ((__tmp114045 - (let ((__tmp114046 - (let ((__tmp114047 - (let ((__tmp114048 - (let ((__tmp114049 + _hd108588108595_))) + (_K108591108605_ + (lambda (_k108602_ _id108603_) + (let ((__tmp114990 + (let ((__tmp114991 + (let ((__tmp114992 + (let ((__tmp114993 + (let ((__tmp114994 + (let ((__tmp114995 (let () (declare (not safe)) - (cons _k107767_ + (cons _k108602_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _tmp107749_ __tmp114049)))) + (cons _tmp108584_ __tmp114995)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp114048)))) + __tmp114994)))) (declare (not safe)) - (cons __tmp114047 '())))) + (cons __tmp114993 '())))) (declare (not safe)) - (cons _id107768_ __tmp114046)))) + (cons _id108603_ __tmp114992)))) (declare (not safe)) - (cons 'set! __tmp114045)))) + (cons 'set! __tmp114991)))) (declare (not safe)) - (cons __tmp114044 _r107752_))))) + (cons __tmp114990 _r108587_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd107753107760_)) - (let ((_hd107757107773_ + (##pair? _hd108588108595_)) + (let ((_hd108592108608_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd107753107760_))) - (_tl107758107775_ - (let () (declare (not safe)) (##cdr _hd107753107760_)))) - (let* ((_id107778_ _hd107757107773_) - (_k107780_ _tl107758107775_)) + (##car _hd108588108595_))) + (_tl108593108610_ + (let () (declare (not safe)) (##cdr _hd108588108595_)))) + (let* ((_id108613_ _hd108592108608_) + (_k108615_ _tl108593108610_)) (declare (not safe)) - (_K107756107770_ _k107780_ _id107778_))) - (let () (declare (not safe)) (_E107755107764_))))))) + (_K108591108605_ _k108615_ _id108613_))) + (let () (declare (not safe)) (_E108590108599_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp114043 - _bind107722_ - _init107747_)))) + (foldr1 __tmp114989 + _bind108557_ + _init108582_)))) (declare (not safe)) - (_lp107718_ - _rest107746_ - __tmp114050 - __tmp114042))))) + (_lp108553_ + _rest108581_ + __tmp114996 + __tmp114988))))) (if (let () (declare (not safe)) - (##pair? _rest107723107735_)) - (let ((_hd107728107785_ + (##pair? _rest108558108570_)) + (let ((_hd108563108620_ (let () (declare (not safe)) - (##car _rest107723107735_))) - (_tl107729107787_ + (##car _rest108558108570_))) + (_tl108564108622_ (let () (declare (not safe)) - (##cdr _rest107723107735_)))) + (##cdr _rest108558108570_)))) (if (let () (declare (not safe)) - (##pair? _hd107728107785_)) - (let ((_hd107730107790_ + (##pair? _hd108563108620_)) + (let ((_hd108565108625_ (let () (declare (not safe)) - (##car _hd107728107785_))) - (_tl107731107792_ + (##car _hd108563108620_))) + (_tl108566108627_ (let () (declare (not safe)) - (##cdr _hd107728107785_)))) - (let ((_tmp107795_ _hd107730107790_)) + (##cdr _hd108563108620_)))) + (let ((_tmp108630_ _hd108565108625_)) (if (let () (declare (not safe)) - (##pair? _tl107731107792_)) - (let ((_hd107732107797_ + (##pair? _tl108566108627_)) + (let ((_hd108567108632_ (let () (declare (not safe)) - (##car _tl107731107792_))) - (_tl107733107799_ + (##car _tl108566108627_))) + (_tl108568108634_ (let () (declare (not safe)) - (##cdr _tl107731107792_)))) - (let* ((_len107802_ - _hd107732107797_) - (_init107804_ - _tl107733107799_) - (_rest107806_ - _tl107729107787_)) + (##cdr _tl108566108627_)))) + (let* ((_len108637_ + _hd108567108632_) + (_init108639_ + _tl108568108634_) + (_rest108641_ + _tl108564108622_)) (declare (not safe)) - (_K107727107782_ - _rest107806_ - _init107804_ - _len107802_ - _tmp107795_))) + (_K108562108617_ + _rest108641_ + _init108639_ + _len108637_ + _tmp108630_))) (let () (declare (not safe)) - (_else107725107743_))))) + (_else108560108578_))))) (let () (declare (not safe)) - (_else107725107743_)))) + (_else108560108578_)))) (let () (declare (not safe)) - (_else107725107743_)))))))) + (_else108560108578_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx107707_ - _compile-simple107709_ - _compile-values107710_))))) + _stx108542_ + _compile-simple108544_ + _compile-values108545_))))) (define __compile-letrec*-values% - (lambda (_stx107462_) - (letrec ((_compile-simple107464_ - (lambda (_hd-ids107703_ _exprs107704_ _body107705_) - (let ((__tmp114055 - (let ((__tmp114056 - (let ((__tmp114058 + (lambda (_stx108297_) + (letrec ((_compile-simple108299_ + (lambda (_hd-ids108538_ _exprs108539_ _body108540_) + (let ((__tmp115001 + (let ((__tmp115002 + (let ((__tmp115004 (map list (map __compile-head-id - _hd-ids107703_) - _exprs107704_)) - (__tmp114057 + _hd-ids108538_) + _exprs108539_)) + (__tmp115003 (let () (declare (not safe)) - (cons _body107705_ '())))) + (cons _body108540_ '())))) (declare (not safe)) - (cons __tmp114058 __tmp114057)))) + (cons __tmp115004 __tmp115003)))) (declare (not safe)) - (cons 'letrec* __tmp114056)))) + (cons 'letrec* __tmp115002)))) (declare (not safe)) - (__SRC__% __tmp114055 _stx107462_)))) - (_compile-values107465_ - (lambda (_hd-ids107614_ _exprs107615_ _body107616_) - (let _lp107618_ ((_rest107620_ _hd-ids107614_) - (_exprs107621_ _exprs107615_) - (_bind107622_ '()) - (_post107623_ '())) - (let* ((_rest107624107638_ _rest107620_) - (_else107627107646_ + (__SRC__% __tmp115001 _stx108297_)))) + (_compile-values108300_ + (lambda (_hd-ids108449_ _exprs108450_ _body108451_) + (let _lp108453_ ((_rest108455_ _hd-ids108449_) + (_exprs108456_ _exprs108450_) + (_bind108457_ '()) + (_post108458_ '())) + (let* ((_rest108459108473_ _rest108455_) + (_else108462108481_ (lambda () (let () (declare (not safe)) - (_compile-bind107466_ - _bind107622_ - _post107623_ - _body107616_))))) - (let ((_K107632107686_ - (lambda (_rest107681_ _hd107682_) + (_compile-bind108301_ + _bind108457_ + _post108458_ + _body108451_))))) + (let ((_K108467108521_ + (lambda (_rest108516_ _hd108517_) (if (let () (declare (not safe)) - (__AST-id? _hd107682_)) - (let ((_id107684_ + (__AST-id? _hd108517_)) + (let ((_id108519_ (let () (declare (not safe)) - (__SRC__0 _hd107682_)))) - (let ((__tmp114073 (cdr _exprs107621_)) - (__tmp114068 - (let ((__tmp114069 - (let ((__tmp114070 - (let ((__tmp114071 + (__SRC__0 _hd108517_)))) + (let ((__tmp115019 (cdr _exprs108456_)) + (__tmp115014 + (let ((__tmp115015 + (let ((__tmp115016 + (let ((__tmp115017 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114072 + (let ((__tmp115018 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp114072)))) + (cons 'quote __tmp115018)))) (declare (not safe)) - (cons __tmp114071 '())))) + (cons __tmp115017 '())))) (declare (not safe)) - (cons _id107684_ __tmp114070)))) + (cons _id108519_ __tmp115016)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114069 - _bind107622_))) - (__tmp114064 - (let ((__tmp114065 - (let ((__tmp114066 - (let ((__tmp114067 + (cons __tmp115015 + _bind108457_))) + (__tmp115010 + (let ((__tmp115011 + (let ((__tmp115012 + (let ((__tmp115013 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs107621_))) + (car _exprs108456_))) (declare (not safe)) - (cons __tmp114067 '())))) + (cons __tmp115013 '())))) (declare (not safe)) - (cons _id107684_ __tmp114066)))) + (cons _id108519_ __tmp115012)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114065 - _post107623_)))) + (cons __tmp115011 + _post108458_)))) (declare (not safe)) - (_lp107618_ - _rest107681_ - __tmp114073 - __tmp114068 - __tmp114064))) - (let ((__tmp114063 (cdr _exprs107621_)) - (__tmp114059 - (let ((__tmp114060 - (let ((__tmp114061 - (let ((__tmp114062 + (_lp108453_ + _rest108516_ + __tmp115019 + __tmp115014 + __tmp115010))) + (let ((__tmp115009 (cdr _exprs108456_)) + (__tmp115005 + (let ((__tmp115006 + (let ((__tmp115007 + (let ((__tmp115008 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs107621_))) + (car _exprs108456_))) (declare (not safe)) - (cons __tmp114062 '())))) + (cons __tmp115008 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#f __tmp114061)))) + (cons '#f __tmp115007)))) (declare (not safe)) - (cons __tmp114060 - _post107623_)))) + (cons __tmp115006 + _post108458_)))) (declare (not safe)) - (_lp107618_ - _rest107681_ - __tmp114063 - _bind107622_ - __tmp114059))))) - (_K107629107666_ - (lambda (_rest107650_ _hd107651_) + (_lp108453_ + _rest108516_ + __tmp115009 + _bind108457_ + __tmp115005))))) + (_K108464108501_ + (lambda (_rest108485_ _hd108486_) (if (let () (declare (not safe)) - (__AST-id? _hd107651_)) - (let ((_id107653_ + (__AST-id? _hd108486_)) + (let ((_id108488_ (let () (declare (not safe)) - (__SRC__0 _hd107651_)))) - (let ((__tmp114109 (cdr _exprs107621_)) - (__tmp114104 - (let ((__tmp114105 - (let ((__tmp114106 - (let ((__tmp114107 + (__SRC__0 _hd108486_)))) + (let ((__tmp115055 (cdr _exprs108456_)) + (__tmp115050 + (let ((__tmp115051 + (let ((__tmp115052 + (let ((__tmp115053 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114108 + (let ((__tmp115054 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp114108)))) + (cons 'quote __tmp115054)))) (declare (not safe)) - (cons __tmp114107 '())))) + (cons __tmp115053 '())))) (declare (not safe)) - (cons _id107653_ __tmp114106)))) + (cons _id108488_ __tmp115052)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114105 - _bind107622_))) - (__tmp114098 - (let ((__tmp114099 - (let ((__tmp114100 - (let ((__tmp114101 + (cons __tmp115051 + _bind108457_))) + (__tmp115044 + (let ((__tmp115045 + (let ((__tmp115046 + (let ((__tmp115047 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114102 - (let ((__tmp114103 (car _exprs107621_))) + (let ((__tmp115048 + (let ((__tmp115049 (car _exprs108456_))) (declare (not safe)) - (cons __tmp114103 '())))) + (cons __tmp115049 '())))) (declare (not safe)) - (cons 'values->list __tmp114102)))) + (cons 'values->list __tmp115048)))) (declare (not safe)) - (cons __tmp114101 '())))) + (cons __tmp115047 '())))) (declare (not safe)) - (cons _id107653_ __tmp114100)))) + (cons _id108488_ __tmp115046)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114099 - _post107623_)))) + (cons __tmp115045 + _post108458_)))) (declare (not safe)) - (_lp107618_ - _rest107650_ - __tmp114109 - __tmp114104 - __tmp114098))) - (if (let ((__tmp114097 + (_lp108453_ + _rest108485_ + __tmp115055 + __tmp115050 + __tmp115044))) + (if (let ((__tmp115043 (let () (declare (not safe)) - (__AST-e _hd107651_)))) + (__AST-e _hd108486_)))) (declare (not safe)) - (not __tmp114097)) - (let ((__tmp114096 - (cdr _exprs107621_)) - (__tmp114092 - (let ((__tmp114093 - (let ((__tmp114094 - (let ((__tmp114095 + (not __tmp115043)) + (let ((__tmp115042 + (cdr _exprs108456_)) + (__tmp115038 + (let ((__tmp115039 + (let ((__tmp115040 + (let ((__tmp115041 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs107621_))) + (car _exprs108456_))) (declare (not safe)) - (cons __tmp114095 '())))) + (cons __tmp115041 '())))) (declare (not safe)) - (cons '#f __tmp114094)))) + (cons '#f __tmp115040)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114093 - _post107623_)))) + (cons __tmp115039 + _post108458_)))) (declare (not safe)) - (_lp107618_ - _rest107650_ - __tmp114096 - _bind107622_ - __tmp114092)) + (_lp108453_ + _rest108485_ + __tmp115042 + _bind108457_ + __tmp115038)) (if (let () (declare (not safe)) - (list? _hd107651_)) - (let* ((_len107655_ - (length _hd107651_)) - (_tmp107657_ - (let ((__tmp114074 + (list? _hd108486_)) + (let* ((_len108490_ + (length _hd108486_)) + (_tmp108492_ + (let ((__tmp115020 (gensym))) (declare (not safe)) (__SRC__0 - __tmp114074)))) - (let ((__tmp114091 - (cdr _exprs107621_)) - (__tmp114084 - (let ((__tmp114085 - (lambda (_id107660_ + __tmp115020)))) + (let ((__tmp115037 + (cdr _exprs108456_)) + (__tmp115030 + (let ((__tmp115031 + (lambda (_id108495_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r107661_) - (if (let () (declare (not safe)) (__AST-e _id107660_)) - (let ((__tmp114086 - (let ((__tmp114090 + _r108496_) + (if (let () (declare (not safe)) (__AST-e _id108495_)) + (let ((__tmp115032 + (let ((__tmp115036 (let () (declare (not safe)) - (__SRC__0 _id107660_))) - (__tmp114087 - (let ((__tmp114088 - (let ((__tmp114089 + (__SRC__0 _id108495_))) + (__tmp115033 + (let ((__tmp115034 + (let ((__tmp115035 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp114089)))) + (cons 'quote __tmp115035)))) (declare (not safe)) - (cons __tmp114088 '())))) + (cons __tmp115034 '())))) (declare (not safe)) - (cons __tmp114090 __tmp114087)))) + (cons __tmp115036 __tmp115033)))) (declare (not safe)) - (cons __tmp114086 _r107661_)) - _r107661_)))) + (cons __tmp115032 _r108496_)) + _r108496_)))) (declare (not safe)) - (foldl1 __tmp114085 _bind107622_ _hd107651_))) + (foldl1 __tmp115031 _bind108457_ _hd108486_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114075 - (let ((__tmp114076 - (let ((__tmp114077 + (__tmp115021 + (let ((__tmp115022 + (let ((__tmp115023 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114083 (car _exprs107621_)) - (__tmp114078 - (let ((__tmp114079 - (let ((__tmp114081 - (lambda (_id107663_ _k107664_) + (let ((__tmp115029 (car _exprs108456_)) + (__tmp115024 + (let ((__tmp115025 + (let ((__tmp115027 + (lambda (_id108498_ _k108499_) (if (let () (declare (not safe)) - (__AST-e _id107663_)) - (let ((__tmp114082 + (__AST-e _id108498_)) + (let ((__tmp115028 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__SRC__0 _id107663_)))) + (__SRC__0 _id108498_)))) (declare (not safe)) - (cons __tmp114082 _k107664_)) + (cons __tmp115028 _k108499_)) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114080 + (__tmp115026 (let () (declare (not safe)) - (iota _len107655_)))) + (iota _len108490_)))) (declare (not safe)) (filter-map2 - __tmp114081 - _hd107651_ - __tmp114080)))) + __tmp115027 + _hd108486_ + __tmp115026)))) (declare (not safe)) - (cons _len107655_ __tmp114079)))) + (cons _len108490_ __tmp115025)))) (declare (not safe)) - (cons __tmp114083 __tmp114078)))) + (cons __tmp115029 __tmp115024)))) (declare (not safe)) - (cons _tmp107657_ __tmp114077)))) + (cons _tmp108492_ __tmp115023)))) (declare (not safe)) - (cons __tmp114076 _post107623_)))) + (cons __tmp115022 _post108458_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp107618_ - _rest107650_ - __tmp114091 - __tmp114084 - __tmp114075))) + (_lp108453_ + _rest108485_ + __tmp115037 + __tmp115030 + __tmp115021))) (let () (declare (not safe)) (__compile-error__% - _stx107462_ - _hd107651_)))))))) + _stx108297_ + _hd108486_)))))))) (if (let () (declare (not safe)) - (##pair? _rest107624107638_)) - (let ((_tl107634107691_ + (##pair? _rest108459108473_)) + (let ((_tl108469108526_ (let () (declare (not safe)) - (##cdr _rest107624107638_))) - (_hd107633107689_ + (##cdr _rest108459108473_))) + (_hd108468108524_ (let () (declare (not safe)) - (##car _rest107624107638_)))) + (##car _rest108459108473_)))) (if (let () (declare (not safe)) - (##pair? _hd107633107689_)) - (let ((_tl107636107696_ + (##pair? _hd108468108524_)) + (let ((_tl108471108531_ (let () (declare (not safe)) - (##cdr _hd107633107689_))) - (_hd107635107694_ + (##cdr _hd108468108524_))) + (_hd108470108529_ (let () (declare (not safe)) - (##car _hd107633107689_)))) + (##car _hd108468108524_)))) (if (let () (declare (not safe)) - (##null? _tl107636107696_)) - (let ((_hd107699_ _hd107635107694_) - (_rest107701_ - _tl107634107691_)) + (##null? _tl108471108531_)) + (let ((_hd108534_ _hd108470108529_) + (_rest108536_ + _tl108469108526_)) (let () (declare (not safe)) - (_K107632107686_ - _rest107701_ - _hd107699_))) - (let ((_hd107674_ _hd107633107689_) - (_rest107676_ - _tl107634107691_)) + (_K108467108521_ + _rest108536_ + _hd108534_))) + (let ((_hd108509_ _hd108468108524_) + (_rest108511_ + _tl108469108526_)) (let () (declare (not safe)) - (_K107629107666_ - _rest107676_ - _hd107674_))))) - (let ((_hd107674_ _hd107633107689_) - (_rest107676_ _tl107634107691_)) + (_K108464108501_ + _rest108511_ + _hd108509_))))) + (let ((_hd108509_ _hd108468108524_) + (_rest108511_ _tl108469108526_)) (let () (declare (not safe)) - (_K107629107666_ - _rest107676_ - _hd107674_))))) + (_K108464108501_ + _rest108511_ + _hd108509_))))) (let () (declare (not safe)) - (_else107627107646_)))))))) - (_compile-bind107466_ - (lambda (_bind107610_ _post107611_ _body107612_) - (let ((__tmp114110 - (let ((__tmp114111 - (let ((__tmp114114 (reverse _bind107610_)) - (__tmp114112 - (let ((__tmp114113 + (_else108462108481_)))))))) + (_compile-bind108301_ + (lambda (_bind108445_ _post108446_ _body108447_) + (let ((__tmp115056 + (let ((__tmp115057 + (let ((__tmp115060 (reverse _bind108445_)) + (__tmp115058 + (let ((__tmp115059 (let () (declare (not safe)) - (_compile-post107467_ - _post107611_ - _body107612_)))) + (_compile-post108302_ + _post108446_ + _body108447_)))) (declare (not safe)) - (cons __tmp114113 '())))) + (cons __tmp115059 '())))) (declare (not safe)) - (cons __tmp114114 __tmp114112)))) + (cons __tmp115060 __tmp115058)))) (declare (not safe)) - (cons 'let __tmp114111)))) + (cons 'let __tmp115057)))) (declare (not safe)) - (__SRC__% __tmp114110 _stx107462_)))) - (_compile-post107467_ - (lambda (_post107469_ _body107470_) - (let ((__tmp114115 - (let ((__tmp114116 - (let ((__tmp114117 - (let ((__tmp114119 - (lambda (_hd107472_ _r107473_) - (let* ((_hd107474107497_ - _hd107472_) - (_E107478107501_ + (__SRC__% __tmp115056 _stx108297_)))) + (_compile-post108302_ + (lambda (_post108304_ _body108305_) + (let ((__tmp115061 + (let ((__tmp115062 + (let ((__tmp115063 + (let ((__tmp115065 + (lambda (_hd108307_ _r108308_) + (let* ((_hd108309108332_ + _hd108307_) + (_E108313108336_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd107474107497_)))) + _hd108309108332_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K107491107595_ - (lambda (_expr107593_) + (let ((_K108326108430_ + (lambda (_expr108428_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr107593_ _r107473_)))) - (_K107486107573_ - (lambda (_expr107570_ _id107571_) - (let ((__tmp114120 - (let ((__tmp114121 - (let ((__tmp114122 - (let ((__tmp114123 + (cons _expr108428_ _r108308_)))) + (_K108321108408_ + (lambda (_expr108405_ _id108406_) + (let ((__tmp115066 + (let ((__tmp115067 + (let ((__tmp115068 + (let ((__tmp115069 (let () (declare (not safe)) - (cons _expr107570_ '())))) + (cons _expr108405_ '())))) (declare (not safe)) - (cons _id107571_ __tmp114123)))) + (cons _id108406_ __tmp115069)))) (declare (not safe)) - (cons 'set! __tmp114122)))) + (cons 'set! __tmp115068)))) (declare (not safe)) - (__SRC__% __tmp114121 _stx107462_)))) + (__SRC__% __tmp115067 _stx108297_)))) (declare (not safe)) - (cons __tmp114120 _r107473_)))) - (_K107479107540_ - (lambda (_init107505_ _len107506_ _expr107507_ _tmp107508_) - (let ((__tmp114124 - (let ((__tmp114125 - (let ((__tmp114126 - (let ((__tmp114140 - (let ((__tmp114141 - (let ((__tmp114142 + (cons __tmp115066 _r108308_)))) + (_K108314108375_ + (lambda (_init108340_ _len108341_ _expr108342_ _tmp108343_) + (let ((__tmp115070 + (let ((__tmp115071 + (let ((__tmp115072 + (let ((__tmp115086 + (let ((__tmp115087 + (let ((__tmp115088 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr107507_ '())))) + (cons _expr108342_ '())))) (declare (not safe)) - (cons _tmp107508_ __tmp114142)))) + (cons _tmp108343_ __tmp115088)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114141 '()))) - (__tmp114127 - (let ((__tmp114136 - (let ((__tmp114137 - (let ((__tmp114138 + (cons __tmp115087 '()))) + (__tmp115073 + (let ((__tmp115082 + (let ((__tmp115083 + (let ((__tmp115084 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114139 + (let ((__tmp115085 (let () (declare (not safe)) - (cons _len107506_ '())))) + (cons _len108341_ '())))) (declare (not safe)) - (cons _tmp107508_ __tmp114139)))) + (cons _tmp108343_ __tmp115085)))) (declare (not safe)) - (cons '__check-values __tmp114138)))) + (cons '__check-values __tmp115084)))) (declare (not safe)) - (__SRC__% __tmp114137 _stx107462_))) - (__tmp114128 - (let ((__tmp114129 - (map (lambda (_hd107510_) - (let* ((_hd107511107518_ _hd107510_) - (_E107513107522_ + (__SRC__% __tmp115083 _stx108297_))) + (__tmp115074 + (let ((__tmp115075 + (map (lambda (_hd108345_) + (let* ((_hd108346108353_ _hd108345_) + (_E108348108357_ (lambda () (error '"No clause matching" - _hd107511107518_))) - (_K107514107528_ - (lambda (_k107525_ _id107526_) - (let ((__tmp114130 - (let ((__tmp114131 - (let ((__tmp114132 - (let ((__tmp114133 + _hd108346108353_))) + (_K108349108363_ + (lambda (_k108360_ _id108361_) + (let ((__tmp115076 + (let ((__tmp115077 + (let ((__tmp115078 + (let ((__tmp115079 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114134 - (let ((__tmp114135 + (let ((__tmp115080 + (let ((__tmp115081 (let () (declare (not safe)) - (cons _k107525_ '())))) + (cons _k108360_ '())))) (declare (not safe)) - (cons _tmp107508_ __tmp114135)))) + (cons _tmp108343_ __tmp115081)))) (declare (not safe)) - (cons '##vector-ref __tmp114134)))) + (cons '##vector-ref __tmp115080)))) (declare (not safe)) - (cons __tmp114133 '())))) + (cons __tmp115079 '())))) (declare (not safe)) - (cons _id107526_ __tmp114132)))) + (cons _id108361_ __tmp115078)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp114131)))) + (cons 'set! __tmp115077)))) (declare (not safe)) (__SRC__% - __tmp114130 - _stx107462_))))) + __tmp115076 + _stx108297_))))) (if (let () (declare (not safe)) - (##pair? _hd107511107518_)) - (let ((_hd107515107531_ + (##pair? _hd108346108353_)) + (let ((_hd108350108366_ (let () (declare (not safe)) - (##car _hd107511107518_))) - (_tl107516107533_ + (##car _hd108346108353_))) + (_tl108351108368_ (let () (declare (not safe)) - (##cdr _hd107511107518_)))) - (let* ((_id107536_ _hd107515107531_) - (_k107538_ _tl107516107533_)) + (##cdr _hd108346108353_)))) + (let* ((_id108371_ _hd108350108366_) + (_k108373_ _tl108351108368_)) (declare (not safe)) - (_K107514107528_ - _k107538_ - _id107536_))) + (_K108349108363_ + _k108373_ + _id108371_))) (let () (declare (not safe)) - (_E107513107522_))))) - _init107505_))) + (_E108348108357_))))) + _init108340_))) (declare (not safe)) - (foldr1 cons '() __tmp114129)))) + (foldr1 cons '() __tmp115075)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114136 - __tmp114128)))) + (cons __tmp115082 + __tmp115074)))) (declare (not safe)) - (cons __tmp114140 __tmp114127)))) + (cons __tmp115086 __tmp115073)))) (declare (not safe)) - (cons 'let __tmp114126)))) + (cons 'let __tmp115072)))) (declare (not safe)) - (__SRC__% __tmp114125 _stx107462_)))) + (__SRC__% __tmp115071 _stx108297_)))) (declare (not safe)) - (cons __tmp114124 _r107473_))))) - (if (let () (declare (not safe)) (##pair? _hd107474107497_)) - (let ((_tl107493107600_ + (cons __tmp115070 _r108308_))))) + (if (let () (declare (not safe)) (##pair? _hd108309108332_)) + (let ((_tl108328108435_ (let () (declare (not safe)) - (##cdr _hd107474107497_))) - (_hd107492107598_ + (##cdr _hd108309108332_))) + (_hd108327108433_ (let () (declare (not safe)) - (##car _hd107474107497_)))) + (##car _hd108309108332_)))) (if (let () (declare (not safe)) - (##eq? _hd107492107598_ '#f)) + (##eq? _hd108327108433_ '#f)) (if (let () (declare (not safe)) - (##pair? _tl107493107600_)) - (let ((_tl107495107605_ + (##pair? _tl108328108435_)) + (let ((_tl108330108440_ (let () (declare (not safe)) - (##cdr _tl107493107600_))) - (_hd107494107603_ + (##cdr _tl108328108435_))) + (_hd108329108438_ (let () (declare (not safe)) - (##car _tl107493107600_)))) + (##car _tl108328108435_)))) (if (let () (declare (not safe)) - (##null? _tl107495107605_)) - (let ((_expr107608_ _hd107494107603_)) + (##null? _tl108330108440_)) + (let ((_expr108443_ _hd108329108438_)) (declare (not safe)) - (_K107491107595_ _expr107608_)) + (_K108326108430_ _expr108443_)) (if (let () (declare (not safe)) - (##pair? _tl107495107605_)) - (let ((_tl107485107559_ + (##pair? _tl108330108440_)) + (let ((_tl108320108394_ (let () (declare (not safe)) - (##cdr _tl107495107605_))) - (_hd107484107557_ + (##cdr _tl108330108440_))) + (_hd108319108392_ (let () (declare (not safe)) - (##car _tl107495107605_)))) - (let ((_tmp107548_ _hd107492107598_) - (_expr107555_ _hd107494107603_) - (_len107562_ _hd107484107557_) - (_init107564_ _tl107485107559_)) + (##car _tl108330108440_)))) + (let ((_tmp108383_ _hd108327108433_) + (_expr108390_ _hd108329108438_) + (_len108397_ _hd108319108392_) + (_init108399_ _tl108320108394_)) (let () (declare (not safe)) - (_K107479107540_ - _init107564_ - _len107562_ - _expr107555_ - _tmp107548_)))) + (_K108314108375_ + _init108399_ + _len108397_ + _expr108390_ + _tmp108383_)))) (let () (declare (not safe)) - (_E107478107501_))))) - (let () (declare (not safe)) (_E107478107501_))) + (_E108313108336_))))) + (let () (declare (not safe)) (_E108313108336_))) (if (let () (declare (not safe)) - (##pair? _tl107493107600_)) - (let ((_tl107490107585_ + (##pair? _tl108328108435_)) + (let ((_tl108325108420_ (let () (declare (not safe)) - (##cdr _tl107493107600_))) - (_hd107489107583_ + (##cdr _tl108328108435_))) + (_hd108324108418_ (let () (declare (not safe)) - (##car _tl107493107600_)))) + (##car _tl108328108435_)))) (if (let () (declare (not safe)) - (##null? _tl107490107585_)) - (let ((_id107581_ _hd107492107598_) - (_expr107588_ _hd107489107583_)) + (##null? _tl108325108420_)) + (let ((_id108416_ _hd108327108433_) + (_expr108423_ _hd108324108418_)) (let () (declare (not safe)) - (_K107486107573_ - _expr107588_ - _id107581_))) + (_K108321108408_ + _expr108423_ + _id108416_))) (if (let () (declare (not safe)) - (##pair? _tl107490107585_)) - (let ((_tl107485107559_ + (##pair? _tl108325108420_)) + (let ((_tl108320108394_ (let () (declare (not safe)) - (##cdr _tl107490107585_))) - (_hd107484107557_ + (##cdr _tl108325108420_))) + (_hd108319108392_ (let () (declare (not safe)) - (##car _tl107490107585_)))) - (let ((_tmp107548_ _hd107492107598_) - (_expr107555_ _hd107489107583_) - (_len107562_ _hd107484107557_) - (_init107564_ _tl107485107559_)) + (##car _tl108325108420_)))) + (let ((_tmp108383_ _hd108327108433_) + (_expr108390_ _hd108324108418_) + (_len108397_ _hd108319108392_) + (_init108399_ _tl108320108394_)) (let () (declare (not safe)) - (_K107479107540_ - _init107564_ - _len107562_ - _expr107555_ - _tmp107548_)))) + (_K108314108375_ + _init108399_ + _len108397_ + _expr108390_ + _tmp108383_)))) (let () (declare (not safe)) - (_E107478107501_))))) - (let () (declare (not safe)) (_E107478107501_))))) - (let () (declare (not safe)) (_E107478107501_))))))) + (_E108313108336_))))) + (let () (declare (not safe)) (_E108313108336_))))) + (let () (declare (not safe)) (_E108313108336_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114118 - (list _body107470_))) + (__tmp115064 + (list _body108305_))) (declare (not safe)) - (foldl1 __tmp114119 - __tmp114118 - _post107469_)))) + (foldl1 __tmp115065 + __tmp115064 + _post108304_)))) (declare (not safe)) - (foldr1 cons '() __tmp114117)))) + (foldr1 cons '() __tmp115063)))) (declare (not safe)) - (cons 'begin __tmp114116)))) + (cons 'begin __tmp115062)))) (declare (not safe)) - (__SRC__% __tmp114115 _stx107462_))))) + (__SRC__% __tmp115061 _stx108297_))))) (let () (declare (not safe)) (__compile-let-form - _stx107462_ - _compile-simple107464_ - _compile-values107465_))))) + _stx108297_ + _compile-simple108299_ + _compile-values108300_))))) (define __compile-call% - (lambda (_stx107422_) - (let* ((_$e107424_ _stx107422_) - (_$E107426107435_ + (lambda (_stx108257_) + (let* ((_$e108259_ _stx108257_) + (_$E108261108270_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e107424_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e107424_)) - (let* ((_$tgt107427107438_ - (let () (declare (not safe)) (__AST-e _$e107424_))) - (_$hd107428107441_ - (let () (declare (not safe)) (##car _$tgt107427107438_))) - (_$tl107429107444_ + _$e108259_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e108259_)) + (let* ((_$tgt108262108273_ + (let () (declare (not safe)) (__AST-e _$e108259_))) + (_$hd108263108276_ + (let () (declare (not safe)) (##car _$tgt108262108273_))) + (_$tl108264108279_ (let () (declare (not safe)) - (##cdr _$tgt107427107438_)))) + (##cdr _$tgt108262108273_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl107429107444_)) - (let* ((_$tgt107430107448_ + (__AST-pair? _$tl108264108279_)) + (let* ((_$tgt108265108283_ (let () (declare (not safe)) - (__AST-e _$tl107429107444_))) - (_$hd107431107451_ + (__AST-e _$tl108264108279_))) + (_$hd108266108286_ (let () (declare (not safe)) - (##car _$tgt107430107448_))) - (_$tl107432107454_ + (##car _$tgt108265108283_))) + (_$tl108267108289_ (let () (declare (not safe)) - (##cdr _$tgt107430107448_)))) - (let* ((_rator107458_ _$hd107431107451_) - (_rands107460_ _$tl107432107454_) - (__tmp114143 - (let ((__tmp114145 + (##cdr _$tgt108265108283_)))) + (let* ((_rator108293_ _$hd108266108286_) + (_rands108295_ _$tl108267108289_) + (__tmp115089 + (let ((__tmp115091 (let () (declare (not safe)) - (__compile _rator107458_))) - (__tmp114144 - (map __compile _rands107460_))) + (__compile _rator108293_))) + (__tmp115090 + (map __compile _rands108295_))) (declare (not safe)) - (cons __tmp114145 __tmp114144)))) + (cons __tmp115091 __tmp115090)))) (declare (not safe)) - (__SRC__% __tmp114143 _stx107422_))) - (let () (declare (not safe)) (_$E107426107435_)))) - (let () (declare (not safe)) (_$E107426107435_)))))) + (__SRC__% __tmp115089 _stx108257_))) + (let () (declare (not safe)) (_$E108261108270_)))) + (let () (declare (not safe)) (_$E108261108270_)))))) (define __compile-ref% - (lambda (_stx107384_) - (let* ((_$e107386_ _stx107384_) - (_$E107388107397_ + (lambda (_stx108219_) + (let* ((_$e108221_ _stx108219_) + (_$E108223108232_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e107386_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e107386_)) - (let* ((_$tgt107389107400_ - (let () (declare (not safe)) (__AST-e _$e107386_))) - (_$hd107390107403_ - (let () (declare (not safe)) (##car _$tgt107389107400_))) - (_$tl107391107406_ + _$e108221_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e108221_)) + (let* ((_$tgt108224108235_ + (let () (declare (not safe)) (__AST-e _$e108221_))) + (_$hd108225108238_ + (let () (declare (not safe)) (##car _$tgt108224108235_))) + (_$tl108226108241_ (let () (declare (not safe)) - (##cdr _$tgt107389107400_)))) + (##cdr _$tgt108224108235_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl107391107406_)) - (let* ((_$tgt107392107410_ + (__AST-pair? _$tl108226108241_)) + (let* ((_$tgt108227108245_ (let () (declare (not safe)) - (__AST-e _$tl107391107406_))) - (_$hd107393107413_ + (__AST-e _$tl108226108241_))) + (_$hd108228108248_ (let () (declare (not safe)) - (##car _$tgt107392107410_))) - (_$tl107394107416_ + (##car _$tgt108227108245_))) + (_$tl108229108251_ (let () (declare (not safe)) - (##cdr _$tgt107392107410_)))) - (let ((_id107420_ _$hd107393107413_)) - (if (let ((__tmp114146 + (##cdr _$tgt108227108245_)))) + (let ((_id108255_ _$hd108228108248_)) + (if (let ((__tmp115092 (let () (declare (not safe)) - (__AST-e _$tl107394107416_)))) + (__AST-e _$tl108229108251_)))) (declare (not safe)) - (equal? __tmp114146 '())) + (equal? __tmp115092 '())) (let () (declare (not safe)) - (__SRC__% _id107420_ _stx107384_)) - (let () (declare (not safe)) (_$E107388107397_))))) - (let () (declare (not safe)) (_$E107388107397_)))) - (let () (declare (not safe)) (_$E107388107397_)))))) + (__SRC__% _id108255_ _stx108219_)) + (let () (declare (not safe)) (_$E108223108232_))))) + (let () (declare (not safe)) (_$E108223108232_)))) + (let () (declare (not safe)) (_$E108223108232_)))))) (define __compile-setq% - (lambda (_stx107331_) - (let* ((_$e107333_ _stx107331_) - (_$E107335107347_ + (lambda (_stx108166_) + (let* ((_$e108168_ _stx108166_) + (_$E108170108182_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e107333_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e107333_)) - (let* ((_$tgt107336107350_ - (let () (declare (not safe)) (__AST-e _$e107333_))) - (_$hd107337107353_ - (let () (declare (not safe)) (##car _$tgt107336107350_))) - (_$tl107338107356_ + _$e108168_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e108168_)) + (let* ((_$tgt108171108185_ + (let () (declare (not safe)) (__AST-e _$e108168_))) + (_$hd108172108188_ + (let () (declare (not safe)) (##car _$tgt108171108185_))) + (_$tl108173108191_ (let () (declare (not safe)) - (##cdr _$tgt107336107350_)))) + (##cdr _$tgt108171108185_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl107338107356_)) - (let* ((_$tgt107339107360_ + (__AST-pair? _$tl108173108191_)) + (let* ((_$tgt108174108195_ (let () (declare (not safe)) - (__AST-e _$tl107338107356_))) - (_$hd107340107363_ + (__AST-e _$tl108173108191_))) + (_$hd108175108198_ (let () (declare (not safe)) - (##car _$tgt107339107360_))) - (_$tl107341107366_ + (##car _$tgt108174108195_))) + (_$tl108176108201_ (let () (declare (not safe)) - (##cdr _$tgt107339107360_)))) - (let ((_id107370_ _$hd107340107363_)) + (##cdr _$tgt108174108195_)))) + (let ((_id108205_ _$hd108175108198_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl107341107366_)) - (let* ((_$tgt107342107372_ + (__AST-pair? _$tl108176108201_)) + (let* ((_$tgt108177108207_ (let () (declare (not safe)) - (__AST-e _$tl107341107366_))) - (_$hd107343107375_ + (__AST-e _$tl108176108201_))) + (_$hd108178108210_ (let () (declare (not safe)) - (##car _$tgt107342107372_))) - (_$tl107344107378_ + (##car _$tgt108177108207_))) + (_$tl108179108213_ (let () (declare (not safe)) - (##cdr _$tgt107342107372_)))) - (let ((_expr107382_ _$hd107343107375_)) - (if (let ((__tmp114152 + (##cdr _$tgt108177108207_)))) + (let ((_expr108217_ _$hd108178108210_)) + (if (let ((__tmp115098 (let () (declare (not safe)) - (__AST-e _$tl107344107378_)))) + (__AST-e _$tl108179108213_)))) (declare (not safe)) - (equal? __tmp114152 '())) - (let ((__tmp114147 - (let ((__tmp114148 - (let ((__tmp114151 + (equal? __tmp115098 '())) + (let ((__tmp115093 + (let ((__tmp115094 + (let ((__tmp115097 (let () (declare (not safe)) (__SRC__% - _id107370_ - _stx107331_))) - (__tmp114149 - (let ((__tmp114150 + _id108205_ + _stx108166_))) + (__tmp115095 + (let ((__tmp115096 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _expr107382_)))) + (__compile _expr108217_)))) (declare (not safe)) - (cons __tmp114150 '())))) + (cons __tmp115096 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114151 - __tmp114149)))) + (cons __tmp115097 + __tmp115095)))) (declare (not safe)) - (cons 'set! __tmp114148)))) + (cons 'set! __tmp115094)))) (declare (not safe)) - (__SRC__% __tmp114147 _stx107331_)) + (__SRC__% __tmp115093 _stx108166_)) (let () (declare (not safe)) - (_$E107335107347_))))) - (let () (declare (not safe)) (_$E107335107347_))))) - (let () (declare (not safe)) (_$E107335107347_)))) - (let () (declare (not safe)) (_$E107335107347_)))))) + (_$E108170108182_))))) + (let () (declare (not safe)) (_$E108170108182_))))) + (let () (declare (not safe)) (_$E108170108182_)))) + (let () (declare (not safe)) (_$E108170108182_)))))) (define __compile-if% - (lambda (_stx107263_) - (let* ((_$e107265_ _stx107263_) - (_$E107267107282_ + (lambda (_stx108098_) + (let* ((_$e108100_ _stx108098_) + (_$E108102108117_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e107265_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e107265_)) - (let* ((_$tgt107268107285_ - (let () (declare (not safe)) (__AST-e _$e107265_))) - (_$hd107269107288_ - (let () (declare (not safe)) (##car _$tgt107268107285_))) - (_$tl107270107291_ + _$e108100_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e108100_)) + (let* ((_$tgt108103108120_ + (let () (declare (not safe)) (__AST-e _$e108100_))) + (_$hd108104108123_ + (let () (declare (not safe)) (##car _$tgt108103108120_))) + (_$tl108105108126_ (let () (declare (not safe)) - (##cdr _$tgt107268107285_)))) + (##cdr _$tgt108103108120_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl107270107291_)) - (let* ((_$tgt107271107295_ + (__AST-pair? _$tl108105108126_)) + (let* ((_$tgt108106108130_ (let () (declare (not safe)) - (__AST-e _$tl107270107291_))) - (_$hd107272107298_ + (__AST-e _$tl108105108126_))) + (_$hd108107108133_ (let () (declare (not safe)) - (##car _$tgt107271107295_))) - (_$tl107273107301_ + (##car _$tgt108106108130_))) + (_$tl108108108136_ (let () (declare (not safe)) - (##cdr _$tgt107271107295_)))) - (let ((_p107305_ _$hd107272107298_)) + (##cdr _$tgt108106108130_)))) + (let ((_p108140_ _$hd108107108133_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl107273107301_)) - (let* ((_$tgt107274107307_ + (__AST-pair? _$tl108108108136_)) + (let* ((_$tgt108109108142_ (let () (declare (not safe)) - (__AST-e _$tl107273107301_))) - (_$hd107275107310_ + (__AST-e _$tl108108108136_))) + (_$hd108110108145_ (let () (declare (not safe)) - (##car _$tgt107274107307_))) - (_$tl107276107313_ + (##car _$tgt108109108142_))) + (_$tl108111108148_ (let () (declare (not safe)) - (##cdr _$tgt107274107307_)))) - (let ((_t107317_ _$hd107275107310_)) + (##cdr _$tgt108109108142_)))) + (let ((_t108152_ _$hd108110108145_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl107276107313_)) - (let* ((_$tgt107277107319_ + (__AST-pair? _$tl108111108148_)) + (let* ((_$tgt108112108154_ (let () (declare (not safe)) - (__AST-e _$tl107276107313_))) - (_$hd107278107322_ + (__AST-e _$tl108111108148_))) + (_$hd108113108157_ (let () (declare (not safe)) - (##car _$tgt107277107319_))) - (_$tl107279107325_ + (##car _$tgt108112108154_))) + (_$tl108114108160_ (let () (declare (not safe)) - (##cdr _$tgt107277107319_)))) - (let ((_f107329_ _$hd107278107322_)) - (if (let ((__tmp114160 + (##cdr _$tgt108112108154_)))) + (let ((_f108164_ _$hd108113108157_)) + (if (let ((__tmp115106 (let () (declare (not safe)) - (__AST-e _$tl107279107325_)))) + (__AST-e _$tl108114108160_)))) (declare (not safe)) - (equal? __tmp114160 '())) - (let ((__tmp114153 - (let ((__tmp114154 - (let ((__tmp114159 + (equal? __tmp115106 '())) + (let ((__tmp115099 + (let ((__tmp115100 + (let ((__tmp115105 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (__compile _p107305_))) - (__tmp114155 - (let ((__tmp114158 + (let () (declare (not safe)) (__compile _p108140_))) + (__tmp115101 + (let ((__tmp115104 (let () (declare (not safe)) - (__compile _t107317_))) - (__tmp114156 - (let ((__tmp114157 + (__compile _t108152_))) + (__tmp115102 + (let ((__tmp115103 (let () (declare (not safe)) - (__compile _f107329_)))) + (__compile _f108164_)))) (declare (not safe)) - (cons __tmp114157 '())))) + (cons __tmp115103 '())))) (declare (not safe)) - (cons __tmp114158 __tmp114156)))) + (cons __tmp115104 __tmp115102)))) (declare (not safe)) - (cons __tmp114159 __tmp114155)))) + (cons __tmp115105 __tmp115101)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp114154)))) + (cons 'if __tmp115100)))) (declare (not safe)) (__SRC__% - __tmp114153 - _stx107263_)) + __tmp115099 + _stx108098_)) (let () (declare (not safe)) - (_$E107267107282_))))) + (_$E108102108117_))))) (let () (declare (not safe)) - (_$E107267107282_))))) - (let () (declare (not safe)) (_$E107267107282_))))) - (let () (declare (not safe)) (_$E107267107282_)))) - (let () (declare (not safe)) (_$E107267107282_)))))) + (_$E108102108117_))))) + (let () (declare (not safe)) (_$E108102108117_))))) + (let () (declare (not safe)) (_$E108102108117_)))) + (let () (declare (not safe)) (_$E108102108117_)))))) (define __compile-quote% - (lambda (_stx107225_) - (let* ((_$e107227_ _stx107225_) - (_$E107229107238_ + (lambda (_stx108060_) + (let* ((_$e108062_ _stx108060_) + (_$E108064108073_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e107227_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e107227_)) - (let* ((_$tgt107230107241_ - (let () (declare (not safe)) (__AST-e _$e107227_))) - (_$hd107231107244_ - (let () (declare (not safe)) (##car _$tgt107230107241_))) - (_$tl107232107247_ + _$e108062_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e108062_)) + (let* ((_$tgt108065108076_ + (let () (declare (not safe)) (__AST-e _$e108062_))) + (_$hd108066108079_ + (let () (declare (not safe)) (##car _$tgt108065108076_))) + (_$tl108067108082_ (let () (declare (not safe)) - (##cdr _$tgt107230107241_)))) + (##cdr _$tgt108065108076_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl107232107247_)) - (let* ((_$tgt107233107251_ + (__AST-pair? _$tl108067108082_)) + (let* ((_$tgt108068108086_ (let () (declare (not safe)) - (__AST-e _$tl107232107247_))) - (_$hd107234107254_ + (__AST-e _$tl108067108082_))) + (_$hd108069108089_ (let () (declare (not safe)) - (##car _$tgt107233107251_))) - (_$tl107235107257_ + (##car _$tgt108068108086_))) + (_$tl108070108092_ (let () (declare (not safe)) - (##cdr _$tgt107233107251_)))) - (let ((_e107261_ _$hd107234107254_)) - (if (let ((__tmp114164 + (##cdr _$tgt108068108086_)))) + (let ((_e108096_ _$hd108069108089_)) + (if (let ((__tmp115110 (let () (declare (not safe)) - (__AST-e _$tl107235107257_)))) + (__AST-e _$tl108070108092_)))) (declare (not safe)) - (equal? __tmp114164 '())) - (let ((__tmp114161 - (let ((__tmp114162 - (let ((__tmp114163 + (equal? __tmp115110 '())) + (let ((__tmp115107 + (let ((__tmp115108 + (let ((__tmp115109 (let () (declare (not safe)) - (__AST->datum _e107261_)))) + (__AST->datum _e108096_)))) (declare (not safe)) - (cons __tmp114163 '())))) + (cons __tmp115109 '())))) (declare (not safe)) - (cons 'quote __tmp114162)))) + (cons 'quote __tmp115108)))) (declare (not safe)) - (__SRC__% __tmp114161 _stx107225_)) - (let () (declare (not safe)) (_$E107229107238_))))) - (let () (declare (not safe)) (_$E107229107238_)))) - (let () (declare (not safe)) (_$E107229107238_)))))) + (__SRC__% __tmp115107 _stx108060_)) + (let () (declare (not safe)) (_$E108064108073_))))) + (let () (declare (not safe)) (_$E108064108073_)))) + (let () (declare (not safe)) (_$E108064108073_)))))) (define __compile-quote-syntax% - (lambda (_stx107187_) - (let* ((_$e107189_ _stx107187_) - (_$E107191107200_ + (lambda (_stx108022_) + (let* ((_$e108024_ _stx108022_) + (_$E108026108035_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e107189_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e107189_)) - (let* ((_$tgt107192107203_ - (let () (declare (not safe)) (__AST-e _$e107189_))) - (_$hd107193107206_ - (let () (declare (not safe)) (##car _$tgt107192107203_))) - (_$tl107194107209_ + _$e108024_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e108024_)) + (let* ((_$tgt108027108038_ + (let () (declare (not safe)) (__AST-e _$e108024_))) + (_$hd108028108041_ + (let () (declare (not safe)) (##car _$tgt108027108038_))) + (_$tl108029108044_ (let () (declare (not safe)) - (##cdr _$tgt107192107203_)))) + (##cdr _$tgt108027108038_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl107194107209_)) - (let* ((_$tgt107195107213_ + (__AST-pair? _$tl108029108044_)) + (let* ((_$tgt108030108048_ (let () (declare (not safe)) - (__AST-e _$tl107194107209_))) - (_$hd107196107216_ + (__AST-e _$tl108029108044_))) + (_$hd108031108051_ (let () (declare (not safe)) - (##car _$tgt107195107213_))) - (_$tl107197107219_ + (##car _$tgt108030108048_))) + (_$tl108032108054_ (let () (declare (not safe)) - (##cdr _$tgt107195107213_)))) - (let ((_e107223_ _$hd107196107216_)) - (if (let ((__tmp114167 + (##cdr _$tgt108030108048_)))) + (let ((_e108058_ _$hd108031108051_)) + (if (let ((__tmp115113 (let () (declare (not safe)) - (__AST-e _$tl107197107219_)))) + (__AST-e _$tl108032108054_)))) (declare (not safe)) - (equal? __tmp114167 '())) - (let ((__tmp114165 - (let ((__tmp114166 + (equal? __tmp115113 '())) + (let ((__tmp115111 + (let ((__tmp115112 (let () (declare (not safe)) - (cons _e107223_ '())))) + (cons _e108058_ '())))) (declare (not safe)) - (cons 'quote __tmp114166)))) + (cons 'quote __tmp115112)))) (declare (not safe)) - (__SRC__% __tmp114165 _stx107187_)) - (let () (declare (not safe)) (_$E107191107200_))))) - (let () (declare (not safe)) (_$E107191107200_)))) - (let () (declare (not safe)) (_$E107191107200_)))))) + (__SRC__% __tmp115111 _stx108022_)) + (let () (declare (not safe)) (_$E108026108035_))))) + (let () (declare (not safe)) (_$E108026108035_)))) + (let () (declare (not safe)) (_$E108026108035_)))))) (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 9963e288b..0a7db8fd2 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]#_g114169_| + (define |[1]#_g115115_| (##structure gx#syntax-quote::t '__context::t #f (gx#current-expander-context) '())) - (define |[1]#_g114171_| + (define |[1]#_g115117_| (##structure gx#syntax-quote::t 'make-__context #f (gx#current-expander-context) '())) - (define |[1]#_g114173_| + (define |[1]#_g115119_| (##structure gx#syntax-quote::t '__context? #f (gx#current-expander-context) '())) - (define |[1]#_g114180_| + (define |[1]#_g115126_| (##structure gx#syntax-quote::t '__context-table #f (gx#current-expander-context) '())) - (define |[1]#_g114183_| + (define |[1]#_g115129_| (##structure gx#syntax-quote::t '__context-super #f (gx#current-expander-context) '())) - (define |[1]#_g114186_| + (define |[1]#_g115132_| (##structure gx#syntax-quote::t '__context-ns #f (gx#current-expander-context) '())) - (define |[1]#_g114189_| + (define |[1]#_g115135_| (##structure gx#syntax-quote::t '__context-t #f (gx#current-expander-context) '())) - (define |[1]#_g114196_| + (define |[1]#_g115142_| (##structure gx#syntax-quote::t '__context-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114199_| + (define |[1]#_g115145_| (##structure gx#syntax-quote::t '__context-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114202_| + (define |[1]#_g115148_| (##structure gx#syntax-quote::t '__context-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114205_| + (define |[1]#_g115151_| (##structure gx#syntax-quote::t '__context-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114212_| + (define |[1]#_g115158_| (##structure gx#syntax-quote::t '&__context-table #f (gx#current-expander-context) '())) - (define |[1]#_g114215_| + (define |[1]#_g115161_| (##structure gx#syntax-quote::t '&__context-super #f (gx#current-expander-context) '())) - (define |[1]#_g114218_| + (define |[1]#_g115164_| (##structure gx#syntax-quote::t '&__context-ns #f (gx#current-expander-context) '())) - (define |[1]#_g114221_| + (define |[1]#_g115167_| (##structure gx#syntax-quote::t '&__context-t #f (gx#current-expander-context) '())) - (define |[1]#_g114228_| + (define |[1]#_g115174_| (##structure gx#syntax-quote::t '&__context-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114231_| + (define |[1]#_g115177_| (##structure gx#syntax-quote::t '&__context-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114234_| + (define |[1]#_g115180_| (##structure gx#syntax-quote::t '&__context-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114237_| + (define |[1]#_g115183_| (##structure gx#syntax-quote::t '&__context-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114239_| + (define |[1]#_g115185_| (##structure gx#syntax-quote::t '__runtime::t #f (gx#current-expander-context) '())) - (define |[1]#_g114241_| + (define |[1]#_g115187_| (##structure gx#syntax-quote::t 'make-__runtime #f (gx#current-expander-context) '())) - (define |[1]#_g114243_| + (define |[1]#_g115189_| (##structure gx#syntax-quote::t '__runtime? #f (gx#current-expander-context) '())) - (define |[1]#_g114247_| + (define |[1]#_g115193_| (##structure gx#syntax-quote::t '__runtime-id #f (gx#current-expander-context) '())) - (define |[1]#_g114251_| + (define |[1]#_g115197_| (##structure gx#syntax-quote::t '__runtime-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114255_| + (define |[1]#_g115201_| (##structure gx#syntax-quote::t '&__runtime-id #f (gx#current-expander-context) '())) - (define |[1]#_g114259_| + (define |[1]#_g115205_| (##structure gx#syntax-quote::t '&__runtime-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114261_| + (define |[1]#_g115207_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g114263_| + (define |[1]#_g115209_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g114265_| + (define |[1]#_g115211_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g114270_| + (define |[1]#_g115216_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g114273_| + (define |[1]#_g115219_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g114278_| + (define |[1]#_g115224_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114281_| + (define |[1]#_g115227_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114286_| + (define |[1]#_g115232_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g114289_| + (define |[1]#_g115235_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g114294_| + (define |[1]#_g115240_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114297_| + (define |[1]#_g115243_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114300_| + (define |[1]#_g115246_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g114302_| + (define |[1]#_g115248_| (##structure gx#syntax-quote::t '__macro::t #f (gx#current-expander-context) '())) - (define |[1]#_g114304_| + (define |[1]#_g115250_| (##structure gx#syntax-quote::t 'make-__macro #f (gx#current-expander-context) '())) - (define |[1]#_g114306_| + (define |[1]#_g115252_| (##structure gx#syntax-quote::t '__macro? #f (gx#current-expander-context) '())) - (define |[1]#_g114311_| + (define |[1]#_g115257_| (##structure gx#syntax-quote::t '__macro-id #f (gx#current-expander-context) '())) - (define |[1]#_g114314_| + (define |[1]#_g115260_| (##structure gx#syntax-quote::t '__macro-e #f (gx#current-expander-context) '())) - (define |[1]#_g114319_| + (define |[1]#_g115265_| (##structure gx#syntax-quote::t '__macro-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114322_| + (define |[1]#_g115268_| (##structure gx#syntax-quote::t '__macro-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114327_| + (define |[1]#_g115273_| (##structure gx#syntax-quote::t '&__macro-id #f (gx#current-expander-context) '())) - (define |[1]#_g114330_| + (define |[1]#_g115276_| (##structure gx#syntax-quote::t '&__macro-e #f (gx#current-expander-context) '())) - (define |[1]#_g114335_| + (define |[1]#_g115281_| (##structure gx#syntax-quote::t '&__macro-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114338_| + (define |[1]#_g115284_| (##structure gx#syntax-quote::t '&__macro-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114341_| + (define |[1]#_g115287_| (##structure gx#syntax-quote::t '__macro #f (gx#current-expander-context) '())) - (define |[1]#_g114343_| + (define |[1]#_g115289_| (##structure gx#syntax-quote::t '__special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g114345_| + (define |[1]#_g115291_| (##structure gx#syntax-quote::t 'make-__special-form #f (gx#current-expander-context) '())) - (define |[1]#_g114347_| + (define |[1]#_g115293_| (##structure gx#syntax-quote::t '__special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g114352_| + (define |[1]#_g115298_| (##structure gx#syntax-quote::t '__special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114355_| + (define |[1]#_g115301_| (##structure gx#syntax-quote::t '__special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114360_| + (define |[1]#_g115306_| (##structure gx#syntax-quote::t '__special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114363_| + (define |[1]#_g115309_| (##structure gx#syntax-quote::t '__special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114368_| + (define |[1]#_g115314_| (##structure gx#syntax-quote::t '&__special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114371_| + (define |[1]#_g115317_| (##structure gx#syntax-quote::t '&__special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114376_| + (define |[1]#_g115322_| (##structure gx#syntax-quote::t '&__special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114379_| + (define |[1]#_g115325_| (##structure gx#syntax-quote::t '&__special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114383_| + (define |[1]#_g115329_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g114385_| + (define |[1]#_g115331_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g114387_| + (define |[1]#_g115333_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g114392_| + (define |[1]#_g115338_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114395_| + (define |[1]#_g115341_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114400_| + (define |[1]#_g115346_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114403_| + (define |[1]#_g115349_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114408_| + (define |[1]#_g115354_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114411_| + (define |[1]#_g115357_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114416_| + (define |[1]#_g115362_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114419_| + (define |[1]#_g115365_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114422_| + (define |[1]#_g115368_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g114424_| + (define |[1]#_g115370_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g114426_| + (define |[1]#_g115372_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g114428_| + (define |[1]#_g115374_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g114433_| + (define |[1]#_g115379_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g114436_| + (define |[1]#_g115382_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g114441_| + (define |[1]#_g115387_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114444_| + (define |[1]#_g115390_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114449_| + (define |[1]#_g115395_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g114452_| + (define |[1]#_g115398_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g114457_| + (define |[1]#_g115403_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114460_| + (define |[1]#_g115406_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114464_| + (define |[1]#_g115410_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g114466_| + (define |[1]#_g115412_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g114468_| + (define |[1]#_g115414_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g114473_| + (define |[1]#_g115419_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114476_| + (define |[1]#_g115422_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114481_| + (define |[1]#_g115427_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114484_| + (define |[1]#_g115430_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114489_| + (define |[1]#_g115435_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114492_| + (define |[1]#_g115438_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114497_| + (define |[1]#_g115443_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114500_| + (define |[1]#_g115446_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114504_| + (define |[1]#_g115450_| (##structure gx#syntax-quote::t '__struct-info::t #f (gx#current-expander-context) '())) - (define |[1]#_g114506_| + (define |[1]#_g115452_| (##structure gx#syntax-quote::t 'make-__struct-info #f (gx#current-expander-context) '())) - (define |[1]#_g114508_| + (define |[1]#_g115454_| (##structure gx#syntax-quote::t '__struct-info? #f (gx#current-expander-context) '())) - (define |[1]#_g114513_| + (define |[1]#_g115459_| (##structure gx#syntax-quote::t '__struct-info-id #f (gx#current-expander-context) '())) - (define |[1]#_g114516_| + (define |[1]#_g115462_| (##structure gx#syntax-quote::t '__struct-info-e #f (gx#current-expander-context) '())) - (define |[1]#_g114521_| + (define |[1]#_g115467_| (##structure gx#syntax-quote::t '__struct-info-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114524_| + (define |[1]#_g115470_| (##structure gx#syntax-quote::t '__struct-info-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114529_| + (define |[1]#_g115475_| (##structure gx#syntax-quote::t '&__struct-info-id #f (gx#current-expander-context) '())) - (define |[1]#_g114532_| + (define |[1]#_g115478_| (##structure gx#syntax-quote::t '&__struct-info-e #f (gx#current-expander-context) '())) - (define |[1]#_g114537_| + (define |[1]#_g115483_| (##structure gx#syntax-quote::t '&__struct-info-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114540_| + (define |[1]#_g115486_| (##structure gx#syntax-quote::t '&__struct-info-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114544_| + (define |[1]#_g115490_| (##structure gx#syntax-quote::t '__feature::t #f (gx#current-expander-context) '())) - (define |[1]#_g114546_| + (define |[1]#_g115492_| (##structure gx#syntax-quote::t 'make-__feature #f (gx#current-expander-context) '())) - (define |[1]#_g114548_| + (define |[1]#_g115494_| (##structure gx#syntax-quote::t '__feature? #f (gx#current-expander-context) '())) - (define |[1]#_g114553_| + (define |[1]#_g115499_| (##structure gx#syntax-quote::t '__feature-id #f (gx#current-expander-context) '())) - (define |[1]#_g114556_| + (define |[1]#_g115502_| (##structure gx#syntax-quote::t '__feature-e #f (gx#current-expander-context) '())) - (define |[1]#_g114561_| + (define |[1]#_g115507_| (##structure gx#syntax-quote::t '__feature-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114564_| + (define |[1]#_g115510_| (##structure gx#syntax-quote::t '__feature-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114569_| + (define |[1]#_g115515_| (##structure gx#syntax-quote::t '&__feature-id #f (gx#current-expander-context) '())) - (define |[1]#_g114572_| + (define |[1]#_g115518_| (##structure gx#syntax-quote::t '&__feature-e #f (gx#current-expander-context) '())) - (define |[1]#_g114577_| + (define |[1]#_g115523_| (##structure gx#syntax-quote::t '&__feature-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114580_| + (define |[1]#_g115526_| (##structure gx#syntax-quote::t '&__feature-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114583_| + (define |[1]#_g115529_| (##structure gx#syntax-quote::t '__context #f (gx#current-expander-context) '())) - (define |[1]#_g114585_| + (define |[1]#_g115531_| (##structure gx#syntax-quote::t '__module::t #f (gx#current-expander-context) '())) - (define |[1]#_g114587_| + (define |[1]#_g115533_| (##structure gx#syntax-quote::t 'make-__module #f (gx#current-expander-context) '())) - (define |[1]#_g114589_| + (define |[1]#_g115535_| (##structure gx#syntax-quote::t '__module? #f (gx#current-expander-context) '())) - (define |[1]#_g114600_| + (define |[1]#_g115546_| (##structure gx#syntax-quote::t '__module-table #f (gx#current-expander-context) '())) - (define |[1]#_g114603_| + (define |[1]#_g115549_| (##structure gx#syntax-quote::t '__module-super #f (gx#current-expander-context) '())) - (define |[1]#_g114606_| + (define |[1]#_g115552_| (##structure gx#syntax-quote::t '__module-ns #f (gx#current-expander-context) '())) - (define |[1]#_g114609_| + (define |[1]#_g115555_| (##structure gx#syntax-quote::t '__module-t #f (gx#current-expander-context) '())) - (define |[1]#_g114612_| + (define |[1]#_g115558_| (##structure gx#syntax-quote::t '__module-export #f (gx#current-expander-context) '())) - (define |[1]#_g114615_| + (define |[1]#_g115561_| (##structure gx#syntax-quote::t '__module-import #f (gx#current-expander-context) '())) - (define |[1]#_g114618_| + (define |[1]#_g115564_| (##structure gx#syntax-quote::t '__module-path #f (gx#current-expander-context) '())) - (define |[1]#_g114621_| + (define |[1]#_g115567_| (##structure gx#syntax-quote::t '__module-id #f (gx#current-expander-context) '())) - (define |[1]#_g114632_| + (define |[1]#_g115578_| (##structure gx#syntax-quote::t '__module-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114635_| + (define |[1]#_g115581_| (##structure gx#syntax-quote::t '__module-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114638_| + (define |[1]#_g115584_| (##structure gx#syntax-quote::t '__module-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114641_| + (define |[1]#_g115587_| (##structure gx#syntax-quote::t '__module-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114644_| + (define |[1]#_g115590_| (##structure gx#syntax-quote::t '__module-export-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114647_| + (define |[1]#_g115593_| (##structure gx#syntax-quote::t '__module-import-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114650_| + (define |[1]#_g115596_| (##structure gx#syntax-quote::t '__module-path-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114653_| + (define |[1]#_g115599_| (##structure gx#syntax-quote::t '__module-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114664_| + (define |[1]#_g115610_| (##structure gx#syntax-quote::t '&__module-table #f (gx#current-expander-context) '())) - (define |[1]#_g114667_| + (define |[1]#_g115613_| (##structure gx#syntax-quote::t '&__module-super #f (gx#current-expander-context) '())) - (define |[1]#_g114670_| + (define |[1]#_g115616_| (##structure gx#syntax-quote::t '&__module-ns #f (gx#current-expander-context) '())) - (define |[1]#_g114673_| + (define |[1]#_g115619_| (##structure gx#syntax-quote::t '&__module-t #f (gx#current-expander-context) '())) - (define |[1]#_g114676_| + (define |[1]#_g115622_| (##structure gx#syntax-quote::t '&__module-export #f (gx#current-expander-context) '())) - (define |[1]#_g114679_| + (define |[1]#_g115625_| (##structure gx#syntax-quote::t '&__module-import #f (gx#current-expander-context) '())) - (define |[1]#_g114682_| + (define |[1]#_g115628_| (##structure gx#syntax-quote::t '&__module-path #f (gx#current-expander-context) '())) - (define |[1]#_g114685_| + (define |[1]#_g115631_| (##structure gx#syntax-quote::t '&__module-id #f (gx#current-expander-context) '())) - (define |[1]#_g114696_| + (define |[1]#_g115642_| (##structure gx#syntax-quote::t '&__module-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114699_| + (define |[1]#_g115645_| (##structure gx#syntax-quote::t '&__module-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114702_| + (define |[1]#_g115648_| (##structure gx#syntax-quote::t '&__module-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114705_| + (define |[1]#_g115651_| (##structure gx#syntax-quote::t '&__module-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114708_| + (define |[1]#_g115654_| (##structure gx#syntax-quote::t '&__module-export-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114711_| + (define |[1]#_g115657_| (##structure gx#syntax-quote::t '&__module-import-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114714_| + (define |[1]#_g115660_| (##structure gx#syntax-quote::t '&__module-path-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114717_| + (define |[1]#_g115663_| (##structure gx#syntax-quote::t '&__module-id-set! @@ -1073,7 +1073,7 @@ '())) (begin (define |[:0:]#__context| - (let ((__obj113769 + (let ((__obj114704 (let () (declare (not safe)) (##structure @@ -1095,7 +1095,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113769 + __obj114704 'gerbil/runtime/eval#__context::t '1 gerbil/core$$#class-type-info::t @@ -1103,7 +1103,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113769 + __obj114704 '__context '2 gerbil/core$$#class-type-info::t @@ -1111,7 +1111,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113769 + __obj114704 '(t ns super table) '4 gerbil/core$$#class-type-info::t @@ -1119,7 +1119,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113769 + __obj114704 '() '3 gerbil/core$$#class-type-info::t @@ -1127,7 +1127,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113769 + __obj114704 '#t '5 gerbil/core$$#class-type-info::t @@ -1135,7 +1135,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113769 + __obj114704 '#f '6 gerbil/core$$#class-type-info::t @@ -1143,178 +1143,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113769 + __obj114704 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114168 |[1]#_g114169_|)) + (let ((__tmp115114 |[1]#_g115115_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113769 - __tmp114168 + __obj114704 + __tmp115114 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114170 |[1]#_g114171_|)) + (let ((__tmp115116 |[1]#_g115117_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113769 - __tmp114170 + __obj114704 + __tmp115116 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114172 |[1]#_g114173_|)) + (let ((__tmp115118 |[1]#_g115119_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113769 - __tmp114172 + __obj114704 + __tmp115118 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114174 - (let ((__tmp114187 - (let ((__tmp114188 |[1]#_g114189_|)) + (let ((__tmp115120 + (let ((__tmp115133 + (let ((__tmp115134 |[1]#_g115135_|)) (declare (not safe)) - (cons 't __tmp114188))) - (__tmp114175 - (let ((__tmp114184 - (let ((__tmp114185 |[1]#_g114186_|)) + (cons 't __tmp115134))) + (__tmp115121 + (let ((__tmp115130 + (let ((__tmp115131 |[1]#_g115132_|)) (declare (not safe)) - (cons 'ns __tmp114185))) - (__tmp114176 - (let ((__tmp114181 - (let ((__tmp114182 |[1]#_g114183_|)) + (cons 'ns __tmp115131))) + (__tmp115122 + (let ((__tmp115127 + (let ((__tmp115128 |[1]#_g115129_|)) (declare (not safe)) - (cons 'super __tmp114182))) - (__tmp114177 - (let ((__tmp114178 - (let ((__tmp114179 |[1]#_g114180_|)) + (cons 'super __tmp115128))) + (__tmp115123 + (let ((__tmp115124 + (let ((__tmp115125 |[1]#_g115126_|)) (declare (not safe)) - (cons 'table __tmp114179)))) + (cons 'table __tmp115125)))) (declare (not safe)) - (cons __tmp114178 '())))) + (cons __tmp115124 '())))) (declare (not safe)) - (cons __tmp114181 __tmp114177)))) + (cons __tmp115127 __tmp115123)))) (declare (not safe)) - (cons __tmp114184 __tmp114176)))) + (cons __tmp115130 __tmp115122)))) (declare (not safe)) - (cons __tmp114187 __tmp114175)))) + (cons __tmp115133 __tmp115121)))) (declare (not safe)) (##unchecked-structure-set! - __obj113769 - __tmp114174 + __obj114704 + __tmp115120 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114190 - (let ((__tmp114203 - (let ((__tmp114204 |[1]#_g114205_|)) + (let ((__tmp115136 + (let ((__tmp115149 + (let ((__tmp115150 |[1]#_g115151_|)) (declare (not safe)) - (cons 't __tmp114204))) - (__tmp114191 - (let ((__tmp114200 - (let ((__tmp114201 |[1]#_g114202_|)) + (cons 't __tmp115150))) + (__tmp115137 + (let ((__tmp115146 + (let ((__tmp115147 |[1]#_g115148_|)) (declare (not safe)) - (cons 'ns __tmp114201))) - (__tmp114192 - (let ((__tmp114197 - (let ((__tmp114198 |[1]#_g114199_|)) + (cons 'ns __tmp115147))) + (__tmp115138 + (let ((__tmp115143 + (let ((__tmp115144 |[1]#_g115145_|)) (declare (not safe)) - (cons 'super __tmp114198))) - (__tmp114193 - (let ((__tmp114194 - (let ((__tmp114195 |[1]#_g114196_|)) + (cons 'super __tmp115144))) + (__tmp115139 + (let ((__tmp115140 + (let ((__tmp115141 |[1]#_g115142_|)) (declare (not safe)) - (cons 'table __tmp114195)))) + (cons 'table __tmp115141)))) (declare (not safe)) - (cons __tmp114194 '())))) + (cons __tmp115140 '())))) (declare (not safe)) - (cons __tmp114197 __tmp114193)))) + (cons __tmp115143 __tmp115139)))) (declare (not safe)) - (cons __tmp114200 __tmp114192)))) + (cons __tmp115146 __tmp115138)))) (declare (not safe)) - (cons __tmp114203 __tmp114191)))) + (cons __tmp115149 __tmp115137)))) (declare (not safe)) (##unchecked-structure-set! - __obj113769 - __tmp114190 + __obj114704 + __tmp115136 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114206 - (let ((__tmp114219 - (let ((__tmp114220 |[1]#_g114221_|)) + (let ((__tmp115152 + (let ((__tmp115165 + (let ((__tmp115166 |[1]#_g115167_|)) (declare (not safe)) - (cons 't __tmp114220))) - (__tmp114207 - (let ((__tmp114216 - (let ((__tmp114217 |[1]#_g114218_|)) + (cons 't __tmp115166))) + (__tmp115153 + (let ((__tmp115162 + (let ((__tmp115163 |[1]#_g115164_|)) (declare (not safe)) - (cons 'ns __tmp114217))) - (__tmp114208 - (let ((__tmp114213 - (let ((__tmp114214 |[1]#_g114215_|)) + (cons 'ns __tmp115163))) + (__tmp115154 + (let ((__tmp115159 + (let ((__tmp115160 |[1]#_g115161_|)) (declare (not safe)) - (cons 'super __tmp114214))) - (__tmp114209 - (let ((__tmp114210 - (let ((__tmp114211 |[1]#_g114212_|)) + (cons 'super __tmp115160))) + (__tmp115155 + (let ((__tmp115156 + (let ((__tmp115157 |[1]#_g115158_|)) (declare (not safe)) - (cons 'table __tmp114211)))) + (cons 'table __tmp115157)))) (declare (not safe)) - (cons __tmp114210 '())))) + (cons __tmp115156 '())))) (declare (not safe)) - (cons __tmp114213 __tmp114209)))) + (cons __tmp115159 __tmp115155)))) (declare (not safe)) - (cons __tmp114216 __tmp114208)))) + (cons __tmp115162 __tmp115154)))) (declare (not safe)) - (cons __tmp114219 __tmp114207)))) + (cons __tmp115165 __tmp115153)))) (declare (not safe)) (##unchecked-structure-set! - __obj113769 - __tmp114206 + __obj114704 + __tmp115152 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114222 - (let ((__tmp114235 - (let ((__tmp114236 |[1]#_g114237_|)) + (let ((__tmp115168 + (let ((__tmp115181 + (let ((__tmp115182 |[1]#_g115183_|)) (declare (not safe)) - (cons 't __tmp114236))) - (__tmp114223 - (let ((__tmp114232 - (let ((__tmp114233 |[1]#_g114234_|)) + (cons 't __tmp115182))) + (__tmp115169 + (let ((__tmp115178 + (let ((__tmp115179 |[1]#_g115180_|)) (declare (not safe)) - (cons 'ns __tmp114233))) - (__tmp114224 - (let ((__tmp114229 - (let ((__tmp114230 |[1]#_g114231_|)) + (cons 'ns __tmp115179))) + (__tmp115170 + (let ((__tmp115175 + (let ((__tmp115176 |[1]#_g115177_|)) (declare (not safe)) - (cons 'super __tmp114230))) - (__tmp114225 - (let ((__tmp114226 - (let ((__tmp114227 |[1]#_g114228_|)) + (cons 'super __tmp115176))) + (__tmp115171 + (let ((__tmp115172 + (let ((__tmp115173 |[1]#_g115174_|)) (declare (not safe)) - (cons 'table __tmp114227)))) + (cons 'table __tmp115173)))) (declare (not safe)) - (cons __tmp114226 '())))) + (cons __tmp115172 '())))) (declare (not safe)) - (cons __tmp114229 __tmp114225)))) + (cons __tmp115175 __tmp115171)))) (declare (not safe)) - (cons __tmp114232 __tmp114224)))) + (cons __tmp115178 __tmp115170)))) (declare (not safe)) - (cons __tmp114235 __tmp114223)))) + (cons __tmp115181 __tmp115169)))) (declare (not safe)) (##unchecked-structure-set! - __obj113769 - __tmp114222 + __obj114704 + __tmp115168 '14 gerbil/core$$#class-type-info::t '#f)) - __obj113769)) + __obj114704)) (define |[:0:]#__runtime| - (let ((__obj113770 + (let ((__obj114705 (let () (declare (not safe)) (##structure @@ -1336,7 +1336,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113770 + __obj114705 'gerbil/runtime/eval#__runtime::t '1 gerbil/core$$#class-type-info::t @@ -1344,7 +1344,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113770 + __obj114705 '__runtime '2 gerbil/core$$#class-type-info::t @@ -1352,7 +1352,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113770 + __obj114705 '(id) '4 gerbil/core$$#class-type-info::t @@ -1360,7 +1360,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113770 + __obj114705 '() '3 gerbil/core$$#class-type-info::t @@ -1368,7 +1368,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113770 + __obj114705 '#t '5 gerbil/core$$#class-type-info::t @@ -1376,7 +1376,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113770 + __obj114705 '#f '6 gerbil/core$$#class-type-info::t @@ -1384,94 +1384,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113770 + __obj114705 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114238 |[1]#_g114239_|)) + (let ((__tmp115184 |[1]#_g115185_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113770 - __tmp114238 + __obj114705 + __tmp115184 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114240 |[1]#_g114241_|)) + (let ((__tmp115186 |[1]#_g115187_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113770 - __tmp114240 + __obj114705 + __tmp115186 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114242 |[1]#_g114243_|)) + (let ((__tmp115188 |[1]#_g115189_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113770 - __tmp114242 + __obj114705 + __tmp115188 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114244 - (let ((__tmp114245 - (let ((__tmp114246 |[1]#_g114247_|)) + (let ((__tmp115190 + (let ((__tmp115191 + (let ((__tmp115192 |[1]#_g115193_|)) (declare (not safe)) - (cons 'id __tmp114246)))) + (cons 'id __tmp115192)))) (declare (not safe)) - (cons __tmp114245 '())))) + (cons __tmp115191 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj113770 - __tmp114244 + __obj114705 + __tmp115190 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114248 - (let ((__tmp114249 - (let ((__tmp114250 |[1]#_g114251_|)) + (let ((__tmp115194 + (let ((__tmp115195 + (let ((__tmp115196 |[1]#_g115197_|)) (declare (not safe)) - (cons 'id __tmp114250)))) + (cons 'id __tmp115196)))) (declare (not safe)) - (cons __tmp114249 '())))) + (cons __tmp115195 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj113770 - __tmp114248 + __obj114705 + __tmp115194 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114252 - (let ((__tmp114253 - (let ((__tmp114254 |[1]#_g114255_|)) + (let ((__tmp115198 + (let ((__tmp115199 + (let ((__tmp115200 |[1]#_g115201_|)) (declare (not safe)) - (cons 'id __tmp114254)))) + (cons 'id __tmp115200)))) (declare (not safe)) - (cons __tmp114253 '())))) + (cons __tmp115199 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj113770 - __tmp114252 + __obj114705 + __tmp115198 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114256 - (let ((__tmp114257 - (let ((__tmp114258 |[1]#_g114259_|)) + (let ((__tmp115202 + (let ((__tmp115203 + (let ((__tmp115204 |[1]#_g115205_|)) (declare (not safe)) - (cons 'id __tmp114258)))) + (cons 'id __tmp115204)))) (declare (not safe)) - (cons __tmp114257 '())))) + (cons __tmp115203 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj113770 - __tmp114256 + __obj114705 + __tmp115202 '14 gerbil/core$$#class-type-info::t '#f)) - __obj113770)) + __obj114705)) (define |[:0:]#__syntax| - (let ((__obj113771 + (let ((__obj114706 (let () (declare (not safe)) (##structure @@ -1493,7 +1493,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113771 + __obj114706 'gerbil/runtime/eval#__syntax::t '1 gerbil/core$$#class-type-info::t @@ -1501,7 +1501,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113771 + __obj114706 '__syntax '2 gerbil/core$$#class-type-info::t @@ -1509,7 +1509,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113771 + __obj114706 '(e id) '4 gerbil/core$$#class-type-info::t @@ -1517,7 +1517,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113771 + __obj114706 '() '3 gerbil/core$$#class-type-info::t @@ -1525,7 +1525,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113771 + __obj114706 '#t '5 gerbil/core$$#class-type-info::t @@ -1533,7 +1533,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113771 + __obj114706 '#f '6 gerbil/core$$#class-type-info::t @@ -1541,122 +1541,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113771 + __obj114706 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114260 |[1]#_g114261_|)) + (let ((__tmp115206 |[1]#_g115207_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113771 - __tmp114260 + __obj114706 + __tmp115206 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114262 |[1]#_g114263_|)) + (let ((__tmp115208 |[1]#_g115209_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113771 - __tmp114262 + __obj114706 + __tmp115208 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114264 |[1]#_g114265_|)) + (let ((__tmp115210 |[1]#_g115211_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113771 - __tmp114264 + __obj114706 + __tmp115210 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114266 - (let ((__tmp114271 - (let ((__tmp114272 |[1]#_g114273_|)) + (let ((__tmp115212 + (let ((__tmp115217 + (let ((__tmp115218 |[1]#_g115219_|)) (declare (not safe)) - (cons 'e __tmp114272))) - (__tmp114267 - (let ((__tmp114268 - (let ((__tmp114269 |[1]#_g114270_|)) + (cons 'e __tmp115218))) + (__tmp115213 + (let ((__tmp115214 + (let ((__tmp115215 |[1]#_g115216_|)) (declare (not safe)) - (cons 'id __tmp114269)))) + (cons 'id __tmp115215)))) (declare (not safe)) - (cons __tmp114268 '())))) + (cons __tmp115214 '())))) (declare (not safe)) - (cons __tmp114271 __tmp114267)))) + (cons __tmp115217 __tmp115213)))) (declare (not safe)) (##unchecked-structure-set! - __obj113771 - __tmp114266 + __obj114706 + __tmp115212 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114274 - (let ((__tmp114279 - (let ((__tmp114280 |[1]#_g114281_|)) + (let ((__tmp115220 + (let ((__tmp115225 + (let ((__tmp115226 |[1]#_g115227_|)) (declare (not safe)) - (cons 'e __tmp114280))) - (__tmp114275 - (let ((__tmp114276 - (let ((__tmp114277 |[1]#_g114278_|)) + (cons 'e __tmp115226))) + (__tmp115221 + (let ((__tmp115222 + (let ((__tmp115223 |[1]#_g115224_|)) (declare (not safe)) - (cons 'id __tmp114277)))) + (cons 'id __tmp115223)))) (declare (not safe)) - (cons __tmp114276 '())))) + (cons __tmp115222 '())))) (declare (not safe)) - (cons __tmp114279 __tmp114275)))) + (cons __tmp115225 __tmp115221)))) (declare (not safe)) (##unchecked-structure-set! - __obj113771 - __tmp114274 + __obj114706 + __tmp115220 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114282 - (let ((__tmp114287 - (let ((__tmp114288 |[1]#_g114289_|)) + (let ((__tmp115228 + (let ((__tmp115233 + (let ((__tmp115234 |[1]#_g115235_|)) (declare (not safe)) - (cons 'e __tmp114288))) - (__tmp114283 - (let ((__tmp114284 - (let ((__tmp114285 |[1]#_g114286_|)) + (cons 'e __tmp115234))) + (__tmp115229 + (let ((__tmp115230 + (let ((__tmp115231 |[1]#_g115232_|)) (declare (not safe)) - (cons 'id __tmp114285)))) + (cons 'id __tmp115231)))) (declare (not safe)) - (cons __tmp114284 '())))) + (cons __tmp115230 '())))) (declare (not safe)) - (cons __tmp114287 __tmp114283)))) + (cons __tmp115233 __tmp115229)))) (declare (not safe)) (##unchecked-structure-set! - __obj113771 - __tmp114282 + __obj114706 + __tmp115228 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114290 - (let ((__tmp114295 - (let ((__tmp114296 |[1]#_g114297_|)) + (let ((__tmp115236 + (let ((__tmp115241 + (let ((__tmp115242 |[1]#_g115243_|)) (declare (not safe)) - (cons 'e __tmp114296))) - (__tmp114291 - (let ((__tmp114292 - (let ((__tmp114293 |[1]#_g114294_|)) + (cons 'e __tmp115242))) + (__tmp115237 + (let ((__tmp115238 + (let ((__tmp115239 |[1]#_g115240_|)) (declare (not safe)) - (cons 'id __tmp114293)))) + (cons 'id __tmp115239)))) (declare (not safe)) - (cons __tmp114292 '())))) + (cons __tmp115238 '())))) (declare (not safe)) - (cons __tmp114295 __tmp114291)))) + (cons __tmp115241 __tmp115237)))) (declare (not safe)) (##unchecked-structure-set! - __obj113771 - __tmp114290 + __obj114706 + __tmp115236 '14 gerbil/core$$#class-type-info::t '#f)) - __obj113771)) + __obj114706)) (define |[:0:]#__macro| - (let ((__obj113772 + (let ((__obj114707 (let () (declare (not safe)) (##structure @@ -1678,7 +1678,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113772 + __obj114707 'gerbil/runtime/eval#__macro::t '1 gerbil/core$$#class-type-info::t @@ -1686,7 +1686,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113772 + __obj114707 '__macro '2 gerbil/core$$#class-type-info::t @@ -1694,26 +1694,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113772 + __obj114707 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114298 - (let ((__tmp114299 |[1]#_g114300_|)) + (let ((__tmp115244 + (let ((__tmp115245 |[1]#_g115246_|)) (declare (not safe)) - (cons __tmp114299 '())))) + (cons __tmp115245 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj113772 - __tmp114298 + __obj114707 + __tmp115244 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj113772 + __obj114707 '#t '5 gerbil/core$$#class-type-info::t @@ -1721,7 +1721,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113772 + __obj114707 '#f '6 gerbil/core$$#class-type-info::t @@ -1729,122 +1729,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113772 + __obj114707 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114301 |[1]#_g114302_|)) + (let ((__tmp115247 |[1]#_g115248_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113772 - __tmp114301 + __obj114707 + __tmp115247 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114303 |[1]#_g114304_|)) + (let ((__tmp115249 |[1]#_g115250_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113772 - __tmp114303 + __obj114707 + __tmp115249 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114305 |[1]#_g114306_|)) + (let ((__tmp115251 |[1]#_g115252_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113772 - __tmp114305 + __obj114707 + __tmp115251 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114307 - (let ((__tmp114312 - (let ((__tmp114313 |[1]#_g114314_|)) + (let ((__tmp115253 + (let ((__tmp115258 + (let ((__tmp115259 |[1]#_g115260_|)) (declare (not safe)) - (cons 'e __tmp114313))) - (__tmp114308 - (let ((__tmp114309 - (let ((__tmp114310 |[1]#_g114311_|)) + (cons 'e __tmp115259))) + (__tmp115254 + (let ((__tmp115255 + (let ((__tmp115256 |[1]#_g115257_|)) (declare (not safe)) - (cons 'id __tmp114310)))) + (cons 'id __tmp115256)))) (declare (not safe)) - (cons __tmp114309 '())))) + (cons __tmp115255 '())))) (declare (not safe)) - (cons __tmp114312 __tmp114308)))) + (cons __tmp115258 __tmp115254)))) (declare (not safe)) (##unchecked-structure-set! - __obj113772 - __tmp114307 + __obj114707 + __tmp115253 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114315 - (let ((__tmp114320 - (let ((__tmp114321 |[1]#_g114322_|)) + (let ((__tmp115261 + (let ((__tmp115266 + (let ((__tmp115267 |[1]#_g115268_|)) (declare (not safe)) - (cons 'e __tmp114321))) - (__tmp114316 - (let ((__tmp114317 - (let ((__tmp114318 |[1]#_g114319_|)) + (cons 'e __tmp115267))) + (__tmp115262 + (let ((__tmp115263 + (let ((__tmp115264 |[1]#_g115265_|)) (declare (not safe)) - (cons 'id __tmp114318)))) + (cons 'id __tmp115264)))) (declare (not safe)) - (cons __tmp114317 '())))) + (cons __tmp115263 '())))) (declare (not safe)) - (cons __tmp114320 __tmp114316)))) + (cons __tmp115266 __tmp115262)))) (declare (not safe)) (##unchecked-structure-set! - __obj113772 - __tmp114315 + __obj114707 + __tmp115261 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114323 - (let ((__tmp114328 - (let ((__tmp114329 |[1]#_g114330_|)) + (let ((__tmp115269 + (let ((__tmp115274 + (let ((__tmp115275 |[1]#_g115276_|)) (declare (not safe)) - (cons 'e __tmp114329))) - (__tmp114324 - (let ((__tmp114325 - (let ((__tmp114326 |[1]#_g114327_|)) + (cons 'e __tmp115275))) + (__tmp115270 + (let ((__tmp115271 + (let ((__tmp115272 |[1]#_g115273_|)) (declare (not safe)) - (cons 'id __tmp114326)))) + (cons 'id __tmp115272)))) (declare (not safe)) - (cons __tmp114325 '())))) + (cons __tmp115271 '())))) (declare (not safe)) - (cons __tmp114328 __tmp114324)))) + (cons __tmp115274 __tmp115270)))) (declare (not safe)) (##unchecked-structure-set! - __obj113772 - __tmp114323 + __obj114707 + __tmp115269 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114331 - (let ((__tmp114336 - (let ((__tmp114337 |[1]#_g114338_|)) + (let ((__tmp115277 + (let ((__tmp115282 + (let ((__tmp115283 |[1]#_g115284_|)) (declare (not safe)) - (cons 'e __tmp114337))) - (__tmp114332 - (let ((__tmp114333 - (let ((__tmp114334 |[1]#_g114335_|)) + (cons 'e __tmp115283))) + (__tmp115278 + (let ((__tmp115279 + (let ((__tmp115280 |[1]#_g115281_|)) (declare (not safe)) - (cons 'id __tmp114334)))) + (cons 'id __tmp115280)))) (declare (not safe)) - (cons __tmp114333 '())))) + (cons __tmp115279 '())))) (declare (not safe)) - (cons __tmp114336 __tmp114332)))) + (cons __tmp115282 __tmp115278)))) (declare (not safe)) (##unchecked-structure-set! - __obj113772 - __tmp114331 + __obj114707 + __tmp115277 '14 gerbil/core$$#class-type-info::t '#f)) - __obj113772)) + __obj114707)) (define |[:0:]#__special-form| - (let ((__obj113773 + (let ((__obj114708 (let () (declare (not safe)) (##structure @@ -1866,7 +1866,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113773 + __obj114708 'gerbil/runtime/eval#__special-form::t '1 gerbil/core$$#class-type-info::t @@ -1874,7 +1874,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113773 + __obj114708 '__special-form '2 gerbil/core$$#class-type-info::t @@ -1882,26 +1882,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113773 + __obj114708 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114339 - (let ((__tmp114340 |[1]#_g114341_|)) + (let ((__tmp115285 + (let ((__tmp115286 |[1]#_g115287_|)) (declare (not safe)) - (cons __tmp114340 '())))) + (cons __tmp115286 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj113773 - __tmp114339 + __obj114708 + __tmp115285 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj113773 + __obj114708 '#t '5 gerbil/core$$#class-type-info::t @@ -1909,7 +1909,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113773 + __obj114708 '#f '6 gerbil/core$$#class-type-info::t @@ -1917,122 +1917,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113773 + __obj114708 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114342 |[1]#_g114343_|)) + (let ((__tmp115288 |[1]#_g115289_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113773 - __tmp114342 + __obj114708 + __tmp115288 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114344 |[1]#_g114345_|)) + (let ((__tmp115290 |[1]#_g115291_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113773 - __tmp114344 + __obj114708 + __tmp115290 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114346 |[1]#_g114347_|)) + (let ((__tmp115292 |[1]#_g115293_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113773 - __tmp114346 + __obj114708 + __tmp115292 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114348 - (let ((__tmp114353 - (let ((__tmp114354 |[1]#_g114355_|)) + (let ((__tmp115294 + (let ((__tmp115299 + (let ((__tmp115300 |[1]#_g115301_|)) (declare (not safe)) - (cons 'e __tmp114354))) - (__tmp114349 - (let ((__tmp114350 - (let ((__tmp114351 |[1]#_g114352_|)) + (cons 'e __tmp115300))) + (__tmp115295 + (let ((__tmp115296 + (let ((__tmp115297 |[1]#_g115298_|)) (declare (not safe)) - (cons 'id __tmp114351)))) + (cons 'id __tmp115297)))) (declare (not safe)) - (cons __tmp114350 '())))) + (cons __tmp115296 '())))) (declare (not safe)) - (cons __tmp114353 __tmp114349)))) + (cons __tmp115299 __tmp115295)))) (declare (not safe)) (##unchecked-structure-set! - __obj113773 - __tmp114348 + __obj114708 + __tmp115294 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114356 - (let ((__tmp114361 - (let ((__tmp114362 |[1]#_g114363_|)) + (let ((__tmp115302 + (let ((__tmp115307 + (let ((__tmp115308 |[1]#_g115309_|)) (declare (not safe)) - (cons 'e __tmp114362))) - (__tmp114357 - (let ((__tmp114358 - (let ((__tmp114359 |[1]#_g114360_|)) + (cons 'e __tmp115308))) + (__tmp115303 + (let ((__tmp115304 + (let ((__tmp115305 |[1]#_g115306_|)) (declare (not safe)) - (cons 'id __tmp114359)))) + (cons 'id __tmp115305)))) (declare (not safe)) - (cons __tmp114358 '())))) + (cons __tmp115304 '())))) (declare (not safe)) - (cons __tmp114361 __tmp114357)))) + (cons __tmp115307 __tmp115303)))) (declare (not safe)) (##unchecked-structure-set! - __obj113773 - __tmp114356 + __obj114708 + __tmp115302 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114364 - (let ((__tmp114369 - (let ((__tmp114370 |[1]#_g114371_|)) + (let ((__tmp115310 + (let ((__tmp115315 + (let ((__tmp115316 |[1]#_g115317_|)) (declare (not safe)) - (cons 'e __tmp114370))) - (__tmp114365 - (let ((__tmp114366 - (let ((__tmp114367 |[1]#_g114368_|)) + (cons 'e __tmp115316))) + (__tmp115311 + (let ((__tmp115312 + (let ((__tmp115313 |[1]#_g115314_|)) (declare (not safe)) - (cons 'id __tmp114367)))) + (cons 'id __tmp115313)))) (declare (not safe)) - (cons __tmp114366 '())))) + (cons __tmp115312 '())))) (declare (not safe)) - (cons __tmp114369 __tmp114365)))) + (cons __tmp115315 __tmp115311)))) (declare (not safe)) (##unchecked-structure-set! - __obj113773 - __tmp114364 + __obj114708 + __tmp115310 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114372 - (let ((__tmp114377 - (let ((__tmp114378 |[1]#_g114379_|)) + (let ((__tmp115318 + (let ((__tmp115323 + (let ((__tmp115324 |[1]#_g115325_|)) (declare (not safe)) - (cons 'e __tmp114378))) - (__tmp114373 - (let ((__tmp114374 - (let ((__tmp114375 |[1]#_g114376_|)) + (cons 'e __tmp115324))) + (__tmp115319 + (let ((__tmp115320 + (let ((__tmp115321 |[1]#_g115322_|)) (declare (not safe)) - (cons 'id __tmp114375)))) + (cons 'id __tmp115321)))) (declare (not safe)) - (cons __tmp114374 '())))) + (cons __tmp115320 '())))) (declare (not safe)) - (cons __tmp114377 __tmp114373)))) + (cons __tmp115323 __tmp115319)))) (declare (not safe)) (##unchecked-structure-set! - __obj113773 - __tmp114372 + __obj114708 + __tmp115318 '14 gerbil/core$$#class-type-info::t '#f)) - __obj113773)) + __obj114708)) (define |[:0:]#__core-form| - (let ((__obj113774 + (let ((__obj114709 (let () (declare (not safe)) (##structure @@ -2054,7 +2054,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113774 + __obj114709 'gerbil/runtime/eval#__core-form::t '1 gerbil/core$$#class-type-info::t @@ -2062,7 +2062,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113774 + __obj114709 '__core-form '2 gerbil/core$$#class-type-info::t @@ -2070,26 +2070,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113774 + __obj114709 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114380 - (let ((__tmp114381 |[1]#_g114300_|)) + (let ((__tmp115326 + (let ((__tmp115327 |[1]#_g115246_|)) (declare (not safe)) - (cons __tmp114381 '())))) + (cons __tmp115327 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj113774 - __tmp114380 + __obj114709 + __tmp115326 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj113774 + __obj114709 '#t '5 gerbil/core$$#class-type-info::t @@ -2097,7 +2097,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113774 + __obj114709 '#f '6 gerbil/core$$#class-type-info::t @@ -2105,122 +2105,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113774 + __obj114709 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114382 |[1]#_g114383_|)) + (let ((__tmp115328 |[1]#_g115329_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113774 - __tmp114382 + __obj114709 + __tmp115328 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114384 |[1]#_g114385_|)) + (let ((__tmp115330 |[1]#_g115331_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113774 - __tmp114384 + __obj114709 + __tmp115330 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114386 |[1]#_g114387_|)) + (let ((__tmp115332 |[1]#_g115333_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113774 - __tmp114386 + __obj114709 + __tmp115332 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114388 - (let ((__tmp114393 - (let ((__tmp114394 |[1]#_g114395_|)) + (let ((__tmp115334 + (let ((__tmp115339 + (let ((__tmp115340 |[1]#_g115341_|)) (declare (not safe)) - (cons 'e __tmp114394))) - (__tmp114389 - (let ((__tmp114390 - (let ((__tmp114391 |[1]#_g114392_|)) + (cons 'e __tmp115340))) + (__tmp115335 + (let ((__tmp115336 + (let ((__tmp115337 |[1]#_g115338_|)) (declare (not safe)) - (cons 'id __tmp114391)))) + (cons 'id __tmp115337)))) (declare (not safe)) - (cons __tmp114390 '())))) + (cons __tmp115336 '())))) (declare (not safe)) - (cons __tmp114393 __tmp114389)))) + (cons __tmp115339 __tmp115335)))) (declare (not safe)) (##unchecked-structure-set! - __obj113774 - __tmp114388 + __obj114709 + __tmp115334 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114396 - (let ((__tmp114401 - (let ((__tmp114402 |[1]#_g114403_|)) + (let ((__tmp115342 + (let ((__tmp115347 + (let ((__tmp115348 |[1]#_g115349_|)) (declare (not safe)) - (cons 'e __tmp114402))) - (__tmp114397 - (let ((__tmp114398 - (let ((__tmp114399 |[1]#_g114400_|)) + (cons 'e __tmp115348))) + (__tmp115343 + (let ((__tmp115344 + (let ((__tmp115345 |[1]#_g115346_|)) (declare (not safe)) - (cons 'id __tmp114399)))) + (cons 'id __tmp115345)))) (declare (not safe)) - (cons __tmp114398 '())))) + (cons __tmp115344 '())))) (declare (not safe)) - (cons __tmp114401 __tmp114397)))) + (cons __tmp115347 __tmp115343)))) (declare (not safe)) (##unchecked-structure-set! - __obj113774 - __tmp114396 + __obj114709 + __tmp115342 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114404 - (let ((__tmp114409 - (let ((__tmp114410 |[1]#_g114411_|)) + (let ((__tmp115350 + (let ((__tmp115355 + (let ((__tmp115356 |[1]#_g115357_|)) (declare (not safe)) - (cons 'e __tmp114410))) - (__tmp114405 - (let ((__tmp114406 - (let ((__tmp114407 |[1]#_g114408_|)) + (cons 'e __tmp115356))) + (__tmp115351 + (let ((__tmp115352 + (let ((__tmp115353 |[1]#_g115354_|)) (declare (not safe)) - (cons 'id __tmp114407)))) + (cons 'id __tmp115353)))) (declare (not safe)) - (cons __tmp114406 '())))) + (cons __tmp115352 '())))) (declare (not safe)) - (cons __tmp114409 __tmp114405)))) + (cons __tmp115355 __tmp115351)))) (declare (not safe)) (##unchecked-structure-set! - __obj113774 - __tmp114404 + __obj114709 + __tmp115350 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114412 - (let ((__tmp114417 - (let ((__tmp114418 |[1]#_g114419_|)) + (let ((__tmp115358 + (let ((__tmp115363 + (let ((__tmp115364 |[1]#_g115365_|)) (declare (not safe)) - (cons 'e __tmp114418))) - (__tmp114413 - (let ((__tmp114414 - (let ((__tmp114415 |[1]#_g114416_|)) + (cons 'e __tmp115364))) + (__tmp115359 + (let ((__tmp115360 + (let ((__tmp115361 |[1]#_g115362_|)) (declare (not safe)) - (cons 'id __tmp114415)))) + (cons 'id __tmp115361)))) (declare (not safe)) - (cons __tmp114414 '())))) + (cons __tmp115360 '())))) (declare (not safe)) - (cons __tmp114417 __tmp114413)))) + (cons __tmp115363 __tmp115359)))) (declare (not safe)) (##unchecked-structure-set! - __obj113774 - __tmp114412 + __obj114709 + __tmp115358 '14 gerbil/core$$#class-type-info::t '#f)) - __obj113774)) + __obj114709)) (define |[:0:]#__core-expression| - (let ((__obj113775 + (let ((__obj114710 (let () (declare (not safe)) (##structure @@ -2242,7 +2242,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113775 + __obj114710 'gerbil/runtime/eval#__core-expression::t '1 gerbil/core$$#class-type-info::t @@ -2250,7 +2250,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113775 + __obj114710 '__core-expression '2 gerbil/core$$#class-type-info::t @@ -2258,26 +2258,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113775 + __obj114710 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114420 - (let ((__tmp114421 |[1]#_g114422_|)) + (let ((__tmp115366 + (let ((__tmp115367 |[1]#_g115368_|)) (declare (not safe)) - (cons __tmp114421 '())))) + (cons __tmp115367 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj113775 - __tmp114420 + __obj114710 + __tmp115366 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj113775 + __obj114710 '#t '5 gerbil/core$$#class-type-info::t @@ -2285,7 +2285,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113775 + __obj114710 '#f '6 gerbil/core$$#class-type-info::t @@ -2293,122 +2293,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113775 + __obj114710 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114423 |[1]#_g114424_|)) + (let ((__tmp115369 |[1]#_g115370_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113775 - __tmp114423 + __obj114710 + __tmp115369 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114425 |[1]#_g114426_|)) + (let ((__tmp115371 |[1]#_g115372_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113775 - __tmp114425 + __obj114710 + __tmp115371 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114427 |[1]#_g114428_|)) + (let ((__tmp115373 |[1]#_g115374_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113775 - __tmp114427 + __obj114710 + __tmp115373 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114429 - (let ((__tmp114434 - (let ((__tmp114435 |[1]#_g114436_|)) + (let ((__tmp115375 + (let ((__tmp115380 + (let ((__tmp115381 |[1]#_g115382_|)) (declare (not safe)) - (cons 'e __tmp114435))) - (__tmp114430 - (let ((__tmp114431 - (let ((__tmp114432 |[1]#_g114433_|)) + (cons 'e __tmp115381))) + (__tmp115376 + (let ((__tmp115377 + (let ((__tmp115378 |[1]#_g115379_|)) (declare (not safe)) - (cons 'id __tmp114432)))) + (cons 'id __tmp115378)))) (declare (not safe)) - (cons __tmp114431 '())))) + (cons __tmp115377 '())))) (declare (not safe)) - (cons __tmp114434 __tmp114430)))) + (cons __tmp115380 __tmp115376)))) (declare (not safe)) (##unchecked-structure-set! - __obj113775 - __tmp114429 + __obj114710 + __tmp115375 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114437 - (let ((__tmp114442 - (let ((__tmp114443 |[1]#_g114444_|)) + (let ((__tmp115383 + (let ((__tmp115388 + (let ((__tmp115389 |[1]#_g115390_|)) (declare (not safe)) - (cons 'e __tmp114443))) - (__tmp114438 - (let ((__tmp114439 - (let ((__tmp114440 |[1]#_g114441_|)) + (cons 'e __tmp115389))) + (__tmp115384 + (let ((__tmp115385 + (let ((__tmp115386 |[1]#_g115387_|)) (declare (not safe)) - (cons 'id __tmp114440)))) + (cons 'id __tmp115386)))) (declare (not safe)) - (cons __tmp114439 '())))) + (cons __tmp115385 '())))) (declare (not safe)) - (cons __tmp114442 __tmp114438)))) + (cons __tmp115388 __tmp115384)))) (declare (not safe)) (##unchecked-structure-set! - __obj113775 - __tmp114437 + __obj114710 + __tmp115383 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114445 - (let ((__tmp114450 - (let ((__tmp114451 |[1]#_g114452_|)) + (let ((__tmp115391 + (let ((__tmp115396 + (let ((__tmp115397 |[1]#_g115398_|)) (declare (not safe)) - (cons 'e __tmp114451))) - (__tmp114446 - (let ((__tmp114447 - (let ((__tmp114448 |[1]#_g114449_|)) + (cons 'e __tmp115397))) + (__tmp115392 + (let ((__tmp115393 + (let ((__tmp115394 |[1]#_g115395_|)) (declare (not safe)) - (cons 'id __tmp114448)))) + (cons 'id __tmp115394)))) (declare (not safe)) - (cons __tmp114447 '())))) + (cons __tmp115393 '())))) (declare (not safe)) - (cons __tmp114450 __tmp114446)))) + (cons __tmp115396 __tmp115392)))) (declare (not safe)) (##unchecked-structure-set! - __obj113775 - __tmp114445 + __obj114710 + __tmp115391 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114453 - (let ((__tmp114458 - (let ((__tmp114459 |[1]#_g114460_|)) + (let ((__tmp115399 + (let ((__tmp115404 + (let ((__tmp115405 |[1]#_g115406_|)) (declare (not safe)) - (cons 'e __tmp114459))) - (__tmp114454 - (let ((__tmp114455 - (let ((__tmp114456 |[1]#_g114457_|)) + (cons 'e __tmp115405))) + (__tmp115400 + (let ((__tmp115401 + (let ((__tmp115402 |[1]#_g115403_|)) (declare (not safe)) - (cons 'id __tmp114456)))) + (cons 'id __tmp115402)))) (declare (not safe)) - (cons __tmp114455 '())))) + (cons __tmp115401 '())))) (declare (not safe)) - (cons __tmp114458 __tmp114454)))) + (cons __tmp115404 __tmp115400)))) (declare (not safe)) (##unchecked-structure-set! - __obj113775 - __tmp114453 + __obj114710 + __tmp115399 '14 gerbil/core$$#class-type-info::t '#f)) - __obj113775)) + __obj114710)) (define |[:0:]#__core-special-form| - (let ((__obj113776 + (let ((__obj114711 (let () (declare (not safe)) (##structure @@ -2430,7 +2430,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113776 + __obj114711 'gerbil/runtime/eval#__core-special-form::t '1 gerbil/core$$#class-type-info::t @@ -2438,7 +2438,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113776 + __obj114711 '__core-special-form '2 gerbil/core$$#class-type-info::t @@ -2446,26 +2446,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113776 + __obj114711 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114461 - (let ((__tmp114462 |[1]#_g114422_|)) + (let ((__tmp115407 + (let ((__tmp115408 |[1]#_g115368_|)) (declare (not safe)) - (cons __tmp114462 '())))) + (cons __tmp115408 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj113776 - __tmp114461 + __obj114711 + __tmp115407 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj113776 + __obj114711 '#t '5 gerbil/core$$#class-type-info::t @@ -2473,7 +2473,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113776 + __obj114711 '#f '6 gerbil/core$$#class-type-info::t @@ -2481,122 +2481,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113776 + __obj114711 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114463 |[1]#_g114464_|)) + (let ((__tmp115409 |[1]#_g115410_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113776 - __tmp114463 + __obj114711 + __tmp115409 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114465 |[1]#_g114466_|)) + (let ((__tmp115411 |[1]#_g115412_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113776 - __tmp114465 + __obj114711 + __tmp115411 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114467 |[1]#_g114468_|)) + (let ((__tmp115413 |[1]#_g115414_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113776 - __tmp114467 + __obj114711 + __tmp115413 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114469 - (let ((__tmp114474 - (let ((__tmp114475 |[1]#_g114476_|)) + (let ((__tmp115415 + (let ((__tmp115420 + (let ((__tmp115421 |[1]#_g115422_|)) (declare (not safe)) - (cons 'e __tmp114475))) - (__tmp114470 - (let ((__tmp114471 - (let ((__tmp114472 |[1]#_g114473_|)) + (cons 'e __tmp115421))) + (__tmp115416 + (let ((__tmp115417 + (let ((__tmp115418 |[1]#_g115419_|)) (declare (not safe)) - (cons 'id __tmp114472)))) + (cons 'id __tmp115418)))) (declare (not safe)) - (cons __tmp114471 '())))) + (cons __tmp115417 '())))) (declare (not safe)) - (cons __tmp114474 __tmp114470)))) + (cons __tmp115420 __tmp115416)))) (declare (not safe)) (##unchecked-structure-set! - __obj113776 - __tmp114469 + __obj114711 + __tmp115415 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114477 - (let ((__tmp114482 - (let ((__tmp114483 |[1]#_g114484_|)) + (let ((__tmp115423 + (let ((__tmp115428 + (let ((__tmp115429 |[1]#_g115430_|)) (declare (not safe)) - (cons 'e __tmp114483))) - (__tmp114478 - (let ((__tmp114479 - (let ((__tmp114480 |[1]#_g114481_|)) + (cons 'e __tmp115429))) + (__tmp115424 + (let ((__tmp115425 + (let ((__tmp115426 |[1]#_g115427_|)) (declare (not safe)) - (cons 'id __tmp114480)))) + (cons 'id __tmp115426)))) (declare (not safe)) - (cons __tmp114479 '())))) + (cons __tmp115425 '())))) (declare (not safe)) - (cons __tmp114482 __tmp114478)))) + (cons __tmp115428 __tmp115424)))) (declare (not safe)) (##unchecked-structure-set! - __obj113776 - __tmp114477 + __obj114711 + __tmp115423 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114485 - (let ((__tmp114490 - (let ((__tmp114491 |[1]#_g114492_|)) + (let ((__tmp115431 + (let ((__tmp115436 + (let ((__tmp115437 |[1]#_g115438_|)) (declare (not safe)) - (cons 'e __tmp114491))) - (__tmp114486 - (let ((__tmp114487 - (let ((__tmp114488 |[1]#_g114489_|)) + (cons 'e __tmp115437))) + (__tmp115432 + (let ((__tmp115433 + (let ((__tmp115434 |[1]#_g115435_|)) (declare (not safe)) - (cons 'id __tmp114488)))) + (cons 'id __tmp115434)))) (declare (not safe)) - (cons __tmp114487 '())))) + (cons __tmp115433 '())))) (declare (not safe)) - (cons __tmp114490 __tmp114486)))) + (cons __tmp115436 __tmp115432)))) (declare (not safe)) (##unchecked-structure-set! - __obj113776 - __tmp114485 + __obj114711 + __tmp115431 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114493 - (let ((__tmp114498 - (let ((__tmp114499 |[1]#_g114500_|)) + (let ((__tmp115439 + (let ((__tmp115444 + (let ((__tmp115445 |[1]#_g115446_|)) (declare (not safe)) - (cons 'e __tmp114499))) - (__tmp114494 - (let ((__tmp114495 - (let ((__tmp114496 |[1]#_g114497_|)) + (cons 'e __tmp115445))) + (__tmp115440 + (let ((__tmp115441 + (let ((__tmp115442 |[1]#_g115443_|)) (declare (not safe)) - (cons 'id __tmp114496)))) + (cons 'id __tmp115442)))) (declare (not safe)) - (cons __tmp114495 '())))) + (cons __tmp115441 '())))) (declare (not safe)) - (cons __tmp114498 __tmp114494)))) + (cons __tmp115444 __tmp115440)))) (declare (not safe)) (##unchecked-structure-set! - __obj113776 - __tmp114493 + __obj114711 + __tmp115439 '14 gerbil/core$$#class-type-info::t '#f)) - __obj113776)) + __obj114711)) (define |[:0:]#__struct-info| - (let ((__obj113777 + (let ((__obj114712 (let () (declare (not safe)) (##structure @@ -2618,7 +2618,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113777 + __obj114712 'gerbil/runtime/eval#__struct-info::t '1 gerbil/core$$#class-type-info::t @@ -2626,7 +2626,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113777 + __obj114712 '__struct-info '2 gerbil/core$$#class-type-info::t @@ -2634,26 +2634,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113777 + __obj114712 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114501 - (let ((__tmp114502 |[1]#_g114300_|)) + (let ((__tmp115447 + (let ((__tmp115448 |[1]#_g115246_|)) (declare (not safe)) - (cons __tmp114502 '())))) + (cons __tmp115448 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj113777 - __tmp114501 + __obj114712 + __tmp115447 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj113777 + __obj114712 '#t '5 gerbil/core$$#class-type-info::t @@ -2661,7 +2661,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113777 + __obj114712 '#f '6 gerbil/core$$#class-type-info::t @@ -2669,122 +2669,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113777 + __obj114712 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114503 |[1]#_g114504_|)) + (let ((__tmp115449 |[1]#_g115450_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113777 - __tmp114503 + __obj114712 + __tmp115449 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114505 |[1]#_g114506_|)) + (let ((__tmp115451 |[1]#_g115452_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113777 - __tmp114505 + __obj114712 + __tmp115451 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114507 |[1]#_g114508_|)) + (let ((__tmp115453 |[1]#_g115454_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113777 - __tmp114507 + __obj114712 + __tmp115453 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114509 - (let ((__tmp114514 - (let ((__tmp114515 |[1]#_g114516_|)) + (let ((__tmp115455 + (let ((__tmp115460 + (let ((__tmp115461 |[1]#_g115462_|)) (declare (not safe)) - (cons 'e __tmp114515))) - (__tmp114510 - (let ((__tmp114511 - (let ((__tmp114512 |[1]#_g114513_|)) + (cons 'e __tmp115461))) + (__tmp115456 + (let ((__tmp115457 + (let ((__tmp115458 |[1]#_g115459_|)) (declare (not safe)) - (cons 'id __tmp114512)))) + (cons 'id __tmp115458)))) (declare (not safe)) - (cons __tmp114511 '())))) + (cons __tmp115457 '())))) (declare (not safe)) - (cons __tmp114514 __tmp114510)))) + (cons __tmp115460 __tmp115456)))) (declare (not safe)) (##unchecked-structure-set! - __obj113777 - __tmp114509 + __obj114712 + __tmp115455 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114517 - (let ((__tmp114522 - (let ((__tmp114523 |[1]#_g114524_|)) + (let ((__tmp115463 + (let ((__tmp115468 + (let ((__tmp115469 |[1]#_g115470_|)) (declare (not safe)) - (cons 'e __tmp114523))) - (__tmp114518 - (let ((__tmp114519 - (let ((__tmp114520 |[1]#_g114521_|)) + (cons 'e __tmp115469))) + (__tmp115464 + (let ((__tmp115465 + (let ((__tmp115466 |[1]#_g115467_|)) (declare (not safe)) - (cons 'id __tmp114520)))) + (cons 'id __tmp115466)))) (declare (not safe)) - (cons __tmp114519 '())))) + (cons __tmp115465 '())))) (declare (not safe)) - (cons __tmp114522 __tmp114518)))) + (cons __tmp115468 __tmp115464)))) (declare (not safe)) (##unchecked-structure-set! - __obj113777 - __tmp114517 + __obj114712 + __tmp115463 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114525 - (let ((__tmp114530 - (let ((__tmp114531 |[1]#_g114532_|)) + (let ((__tmp115471 + (let ((__tmp115476 + (let ((__tmp115477 |[1]#_g115478_|)) (declare (not safe)) - (cons 'e __tmp114531))) - (__tmp114526 - (let ((__tmp114527 - (let ((__tmp114528 |[1]#_g114529_|)) + (cons 'e __tmp115477))) + (__tmp115472 + (let ((__tmp115473 + (let ((__tmp115474 |[1]#_g115475_|)) (declare (not safe)) - (cons 'id __tmp114528)))) + (cons 'id __tmp115474)))) (declare (not safe)) - (cons __tmp114527 '())))) + (cons __tmp115473 '())))) (declare (not safe)) - (cons __tmp114530 __tmp114526)))) + (cons __tmp115476 __tmp115472)))) (declare (not safe)) (##unchecked-structure-set! - __obj113777 - __tmp114525 + __obj114712 + __tmp115471 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114533 - (let ((__tmp114538 - (let ((__tmp114539 |[1]#_g114540_|)) + (let ((__tmp115479 + (let ((__tmp115484 + (let ((__tmp115485 |[1]#_g115486_|)) (declare (not safe)) - (cons 'e __tmp114539))) - (__tmp114534 - (let ((__tmp114535 - (let ((__tmp114536 |[1]#_g114537_|)) + (cons 'e __tmp115485))) + (__tmp115480 + (let ((__tmp115481 + (let ((__tmp115482 |[1]#_g115483_|)) (declare (not safe)) - (cons 'id __tmp114536)))) + (cons 'id __tmp115482)))) (declare (not safe)) - (cons __tmp114535 '())))) + (cons __tmp115481 '())))) (declare (not safe)) - (cons __tmp114538 __tmp114534)))) + (cons __tmp115484 __tmp115480)))) (declare (not safe)) (##unchecked-structure-set! - __obj113777 - __tmp114533 + __obj114712 + __tmp115479 '14 gerbil/core$$#class-type-info::t '#f)) - __obj113777)) + __obj114712)) (define |[:0:]#__feature| - (let ((__obj113778 + (let ((__obj114713 (let () (declare (not safe)) (##structure @@ -2806,7 +2806,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113778 + __obj114713 'gerbil/runtime/eval#__feature::t '1 gerbil/core$$#class-type-info::t @@ -2814,7 +2814,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113778 + __obj114713 '__feature '2 gerbil/core$$#class-type-info::t @@ -2822,26 +2822,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113778 + __obj114713 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114541 - (let ((__tmp114542 |[1]#_g114300_|)) + (let ((__tmp115487 + (let ((__tmp115488 |[1]#_g115246_|)) (declare (not safe)) - (cons __tmp114542 '())))) + (cons __tmp115488 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj113778 - __tmp114541 + __obj114713 + __tmp115487 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj113778 + __obj114713 '#t '5 gerbil/core$$#class-type-info::t @@ -2849,7 +2849,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113778 + __obj114713 '#f '6 gerbil/core$$#class-type-info::t @@ -2857,122 +2857,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113778 + __obj114713 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114543 |[1]#_g114544_|)) + (let ((__tmp115489 |[1]#_g115490_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113778 - __tmp114543 + __obj114713 + __tmp115489 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114545 |[1]#_g114546_|)) + (let ((__tmp115491 |[1]#_g115492_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113778 - __tmp114545 + __obj114713 + __tmp115491 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114547 |[1]#_g114548_|)) + (let ((__tmp115493 |[1]#_g115494_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113778 - __tmp114547 + __obj114713 + __tmp115493 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114549 - (let ((__tmp114554 - (let ((__tmp114555 |[1]#_g114556_|)) + (let ((__tmp115495 + (let ((__tmp115500 + (let ((__tmp115501 |[1]#_g115502_|)) (declare (not safe)) - (cons 'e __tmp114555))) - (__tmp114550 - (let ((__tmp114551 - (let ((__tmp114552 |[1]#_g114553_|)) + (cons 'e __tmp115501))) + (__tmp115496 + (let ((__tmp115497 + (let ((__tmp115498 |[1]#_g115499_|)) (declare (not safe)) - (cons 'id __tmp114552)))) + (cons 'id __tmp115498)))) (declare (not safe)) - (cons __tmp114551 '())))) + (cons __tmp115497 '())))) (declare (not safe)) - (cons __tmp114554 __tmp114550)))) + (cons __tmp115500 __tmp115496)))) (declare (not safe)) (##unchecked-structure-set! - __obj113778 - __tmp114549 + __obj114713 + __tmp115495 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114557 - (let ((__tmp114562 - (let ((__tmp114563 |[1]#_g114564_|)) + (let ((__tmp115503 + (let ((__tmp115508 + (let ((__tmp115509 |[1]#_g115510_|)) (declare (not safe)) - (cons 'e __tmp114563))) - (__tmp114558 - (let ((__tmp114559 - (let ((__tmp114560 |[1]#_g114561_|)) + (cons 'e __tmp115509))) + (__tmp115504 + (let ((__tmp115505 + (let ((__tmp115506 |[1]#_g115507_|)) (declare (not safe)) - (cons 'id __tmp114560)))) + (cons 'id __tmp115506)))) (declare (not safe)) - (cons __tmp114559 '())))) + (cons __tmp115505 '())))) (declare (not safe)) - (cons __tmp114562 __tmp114558)))) + (cons __tmp115508 __tmp115504)))) (declare (not safe)) (##unchecked-structure-set! - __obj113778 - __tmp114557 + __obj114713 + __tmp115503 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114565 - (let ((__tmp114570 - (let ((__tmp114571 |[1]#_g114572_|)) + (let ((__tmp115511 + (let ((__tmp115516 + (let ((__tmp115517 |[1]#_g115518_|)) (declare (not safe)) - (cons 'e __tmp114571))) - (__tmp114566 - (let ((__tmp114567 - (let ((__tmp114568 |[1]#_g114569_|)) + (cons 'e __tmp115517))) + (__tmp115512 + (let ((__tmp115513 + (let ((__tmp115514 |[1]#_g115515_|)) (declare (not safe)) - (cons 'id __tmp114568)))) + (cons 'id __tmp115514)))) (declare (not safe)) - (cons __tmp114567 '())))) + (cons __tmp115513 '())))) (declare (not safe)) - (cons __tmp114570 __tmp114566)))) + (cons __tmp115516 __tmp115512)))) (declare (not safe)) (##unchecked-structure-set! - __obj113778 - __tmp114565 + __obj114713 + __tmp115511 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114573 - (let ((__tmp114578 - (let ((__tmp114579 |[1]#_g114580_|)) + (let ((__tmp115519 + (let ((__tmp115524 + (let ((__tmp115525 |[1]#_g115526_|)) (declare (not safe)) - (cons 'e __tmp114579))) - (__tmp114574 - (let ((__tmp114575 - (let ((__tmp114576 |[1]#_g114577_|)) + (cons 'e __tmp115525))) + (__tmp115520 + (let ((__tmp115521 + (let ((__tmp115522 |[1]#_g115523_|)) (declare (not safe)) - (cons 'id __tmp114576)))) + (cons 'id __tmp115522)))) (declare (not safe)) - (cons __tmp114575 '())))) + (cons __tmp115521 '())))) (declare (not safe)) - (cons __tmp114578 __tmp114574)))) + (cons __tmp115524 __tmp115520)))) (declare (not safe)) (##unchecked-structure-set! - __obj113778 - __tmp114573 + __obj114713 + __tmp115519 '14 gerbil/core$$#class-type-info::t '#f)) - __obj113778)) + __obj114713)) (define |[:0:]#__module| - (let ((__obj113779 + (let ((__obj114714 (let () (declare (not safe)) (##structure @@ -2994,7 +2994,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113779 + __obj114714 'gerbil/runtime/eval#__module::t '1 gerbil/core$$#class-type-info::t @@ -3002,7 +3002,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113779 + __obj114714 '__module '2 gerbil/core$$#class-type-info::t @@ -3010,26 +3010,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113779 + __obj114714 '(id path import export) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114581 - (let ((__tmp114582 |[1]#_g114583_|)) + (let ((__tmp115527 + (let ((__tmp115528 |[1]#_g115529_|)) (declare (not safe)) - (cons __tmp114582 '())))) + (cons __tmp115528 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj113779 - __tmp114581 + __obj114714 + __tmp115527 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj113779 + __obj114714 '#t '5 gerbil/core$$#class-type-info::t @@ -3037,7 +3037,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113779 + __obj114714 '#f '6 gerbil/core$$#class-type-info::t @@ -3045,526 +3045,526 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj113779 + __obj114714 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114584 |[1]#_g114585_|)) + (let ((__tmp115530 |[1]#_g115531_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113779 - __tmp114584 + __obj114714 + __tmp115530 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114586 |[1]#_g114587_|)) + (let ((__tmp115532 |[1]#_g115533_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113779 - __tmp114586 + __obj114714 + __tmp115532 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114588 |[1]#_g114589_|)) + (let ((__tmp115534 |[1]#_g115535_|)) (declare (not safe)) (##unchecked-structure-set! - __obj113779 - __tmp114588 + __obj114714 + __tmp115534 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114590 - (let ((__tmp114619 - (let ((__tmp114620 |[1]#_g114621_|)) + (let ((__tmp115536 + (let ((__tmp115565 + (let ((__tmp115566 |[1]#_g115567_|)) (declare (not safe)) - (cons 'id __tmp114620))) - (__tmp114591 - (let ((__tmp114616 - (let ((__tmp114617 |[1]#_g114618_|)) + (cons 'id __tmp115566))) + (__tmp115537 + (let ((__tmp115562 + (let ((__tmp115563 |[1]#_g115564_|)) (declare (not safe)) - (cons 'path __tmp114617))) - (__tmp114592 - (let ((__tmp114613 - (let ((__tmp114614 |[1]#_g114615_|)) + (cons 'path __tmp115563))) + (__tmp115538 + (let ((__tmp115559 + (let ((__tmp115560 |[1]#_g115561_|)) (declare (not safe)) - (cons 'import __tmp114614))) - (__tmp114593 - (let ((__tmp114610 - (let ((__tmp114611 |[1]#_g114612_|)) + (cons 'import __tmp115560))) + (__tmp115539 + (let ((__tmp115556 + (let ((__tmp115557 |[1]#_g115558_|)) (declare (not safe)) - (cons 'export __tmp114611))) - (__tmp114594 - (let ((__tmp114607 - (let ((__tmp114608 - |[1]#_g114609_|)) + (cons 'export __tmp115557))) + (__tmp115540 + (let ((__tmp115553 + (let ((__tmp115554 + |[1]#_g115555_|)) (declare (not safe)) - (cons 't __tmp114608))) - (__tmp114595 - (let ((__tmp114604 - (let ((__tmp114605 - |[1]#_g114606_|)) + (cons 't __tmp115554))) + (__tmp115541 + (let ((__tmp115550 + (let ((__tmp115551 + |[1]#_g115552_|)) (declare (not safe)) (cons 'ns ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114605))) - (__tmp114596 - (let ((__tmp114601 - (let ((__tmp114602 |[1]#_g114603_|)) + __tmp115551))) + (__tmp115542 + (let ((__tmp115547 + (let ((__tmp115548 |[1]#_g115549_|)) (declare (not safe)) - (cons 'super __tmp114602))) - (__tmp114597 - (let ((__tmp114598 - (let ((__tmp114599 |[1]#_g114600_|)) + (cons 'super __tmp115548))) + (__tmp115543 + (let ((__tmp115544 + (let ((__tmp115545 |[1]#_g115546_|)) (declare (not safe)) - (cons 'table __tmp114599)))) + (cons 'table __tmp115545)))) (declare (not safe)) - (cons __tmp114598 '())))) + (cons __tmp115544 '())))) (declare (not safe)) - (cons __tmp114601 __tmp114597)))) + (cons __tmp115547 __tmp115543)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114604 - __tmp114596)))) + (cons __tmp115550 + __tmp115542)))) (declare (not safe)) - (cons __tmp114607 __tmp114595)))) + (cons __tmp115553 __tmp115541)))) (declare (not safe)) - (cons __tmp114610 __tmp114594)))) + (cons __tmp115556 __tmp115540)))) (declare (not safe)) - (cons __tmp114613 __tmp114593)))) + (cons __tmp115559 __tmp115539)))) (declare (not safe)) - (cons __tmp114616 __tmp114592)))) + (cons __tmp115562 __tmp115538)))) (declare (not safe)) - (cons __tmp114619 __tmp114591)))) + (cons __tmp115565 __tmp115537)))) (declare (not safe)) (##unchecked-structure-set! - __obj113779 - __tmp114590 + __obj114714 + __tmp115536 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114622 - (let ((__tmp114651 - (let ((__tmp114652 |[1]#_g114653_|)) + (let ((__tmp115568 + (let ((__tmp115597 + (let ((__tmp115598 |[1]#_g115599_|)) (declare (not safe)) - (cons 'id __tmp114652))) - (__tmp114623 - (let ((__tmp114648 - (let ((__tmp114649 |[1]#_g114650_|)) + (cons 'id __tmp115598))) + (__tmp115569 + (let ((__tmp115594 + (let ((__tmp115595 |[1]#_g115596_|)) (declare (not safe)) - (cons 'path __tmp114649))) - (__tmp114624 - (let ((__tmp114645 - (let ((__tmp114646 |[1]#_g114647_|)) + (cons 'path __tmp115595))) + (__tmp115570 + (let ((__tmp115591 + (let ((__tmp115592 |[1]#_g115593_|)) (declare (not safe)) - (cons 'import __tmp114646))) - (__tmp114625 - (let ((__tmp114642 - (let ((__tmp114643 |[1]#_g114644_|)) + (cons 'import __tmp115592))) + (__tmp115571 + (let ((__tmp115588 + (let ((__tmp115589 |[1]#_g115590_|)) (declare (not safe)) - (cons 'export __tmp114643))) - (__tmp114626 - (let ((__tmp114639 - (let ((__tmp114640 - |[1]#_g114641_|)) + (cons 'export __tmp115589))) + (__tmp115572 + (let ((__tmp115585 + (let ((__tmp115586 + |[1]#_g115587_|)) (declare (not safe)) - (cons 't __tmp114640))) - (__tmp114627 - (let ((__tmp114636 - (let ((__tmp114637 - |[1]#_g114638_|)) + (cons 't __tmp115586))) + (__tmp115573 + (let ((__tmp115582 + (let ((__tmp115583 + |[1]#_g115584_|)) (declare (not safe)) (cons 'ns ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114637))) - (__tmp114628 - (let ((__tmp114633 - (let ((__tmp114634 |[1]#_g114635_|)) + __tmp115583))) + (__tmp115574 + (let ((__tmp115579 + (let ((__tmp115580 |[1]#_g115581_|)) (declare (not safe)) - (cons 'super __tmp114634))) - (__tmp114629 - (let ((__tmp114630 - (let ((__tmp114631 |[1]#_g114632_|)) + (cons 'super __tmp115580))) + (__tmp115575 + (let ((__tmp115576 + (let ((__tmp115577 |[1]#_g115578_|)) (declare (not safe)) - (cons 'table __tmp114631)))) + (cons 'table __tmp115577)))) (declare (not safe)) - (cons __tmp114630 '())))) + (cons __tmp115576 '())))) (declare (not safe)) - (cons __tmp114633 __tmp114629)))) + (cons __tmp115579 __tmp115575)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114636 - __tmp114628)))) + (cons __tmp115582 + __tmp115574)))) (declare (not safe)) - (cons __tmp114639 __tmp114627)))) + (cons __tmp115585 __tmp115573)))) (declare (not safe)) - (cons __tmp114642 __tmp114626)))) + (cons __tmp115588 __tmp115572)))) (declare (not safe)) - (cons __tmp114645 __tmp114625)))) + (cons __tmp115591 __tmp115571)))) (declare (not safe)) - (cons __tmp114648 __tmp114624)))) + (cons __tmp115594 __tmp115570)))) (declare (not safe)) - (cons __tmp114651 __tmp114623)))) + (cons __tmp115597 __tmp115569)))) (declare (not safe)) (##unchecked-structure-set! - __obj113779 - __tmp114622 + __obj114714 + __tmp115568 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114654 - (let ((__tmp114683 - (let ((__tmp114684 |[1]#_g114685_|)) + (let ((__tmp115600 + (let ((__tmp115629 + (let ((__tmp115630 |[1]#_g115631_|)) (declare (not safe)) - (cons 'id __tmp114684))) - (__tmp114655 - (let ((__tmp114680 - (let ((__tmp114681 |[1]#_g114682_|)) + (cons 'id __tmp115630))) + (__tmp115601 + (let ((__tmp115626 + (let ((__tmp115627 |[1]#_g115628_|)) (declare (not safe)) - (cons 'path __tmp114681))) - (__tmp114656 - (let ((__tmp114677 - (let ((__tmp114678 |[1]#_g114679_|)) + (cons 'path __tmp115627))) + (__tmp115602 + (let ((__tmp115623 + (let ((__tmp115624 |[1]#_g115625_|)) (declare (not safe)) - (cons 'import __tmp114678))) - (__tmp114657 - (let ((__tmp114674 - (let ((__tmp114675 |[1]#_g114676_|)) + (cons 'import __tmp115624))) + (__tmp115603 + (let ((__tmp115620 + (let ((__tmp115621 |[1]#_g115622_|)) (declare (not safe)) - (cons 'export __tmp114675))) - (__tmp114658 - (let ((__tmp114671 - (let ((__tmp114672 - |[1]#_g114673_|)) + (cons 'export __tmp115621))) + (__tmp115604 + (let ((__tmp115617 + (let ((__tmp115618 + |[1]#_g115619_|)) (declare (not safe)) - (cons 't __tmp114672))) - (__tmp114659 - (let ((__tmp114668 - (let ((__tmp114669 - |[1]#_g114670_|)) + (cons 't __tmp115618))) + (__tmp115605 + (let ((__tmp115614 + (let ((__tmp115615 + |[1]#_g115616_|)) (declare (not safe)) (cons 'ns ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114669))) - (__tmp114660 - (let ((__tmp114665 - (let ((__tmp114666 |[1]#_g114667_|)) + __tmp115615))) + (__tmp115606 + (let ((__tmp115611 + (let ((__tmp115612 |[1]#_g115613_|)) (declare (not safe)) - (cons 'super __tmp114666))) - (__tmp114661 - (let ((__tmp114662 - (let ((__tmp114663 |[1]#_g114664_|)) + (cons 'super __tmp115612))) + (__tmp115607 + (let ((__tmp115608 + (let ((__tmp115609 |[1]#_g115610_|)) (declare (not safe)) - (cons 'table __tmp114663)))) + (cons 'table __tmp115609)))) (declare (not safe)) - (cons __tmp114662 '())))) + (cons __tmp115608 '())))) (declare (not safe)) - (cons __tmp114665 __tmp114661)))) + (cons __tmp115611 __tmp115607)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114668 - __tmp114660)))) + (cons __tmp115614 + __tmp115606)))) (declare (not safe)) - (cons __tmp114671 __tmp114659)))) + (cons __tmp115617 __tmp115605)))) (declare (not safe)) - (cons __tmp114674 __tmp114658)))) + (cons __tmp115620 __tmp115604)))) (declare (not safe)) - (cons __tmp114677 __tmp114657)))) + (cons __tmp115623 __tmp115603)))) (declare (not safe)) - (cons __tmp114680 __tmp114656)))) + (cons __tmp115626 __tmp115602)))) (declare (not safe)) - (cons __tmp114683 __tmp114655)))) + (cons __tmp115629 __tmp115601)))) (declare (not safe)) (##unchecked-structure-set! - __obj113779 - __tmp114654 + __obj114714 + __tmp115600 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp114686 - (let ((__tmp114715 - (let ((__tmp114716 |[1]#_g114717_|)) + (let ((__tmp115632 + (let ((__tmp115661 + (let ((__tmp115662 |[1]#_g115663_|)) (declare (not safe)) - (cons 'id __tmp114716))) - (__tmp114687 - (let ((__tmp114712 - (let ((__tmp114713 |[1]#_g114714_|)) + (cons 'id __tmp115662))) + (__tmp115633 + (let ((__tmp115658 + (let ((__tmp115659 |[1]#_g115660_|)) (declare (not safe)) - (cons 'path __tmp114713))) - (__tmp114688 - (let ((__tmp114709 - (let ((__tmp114710 |[1]#_g114711_|)) + (cons 'path __tmp115659))) + (__tmp115634 + (let ((__tmp115655 + (let ((__tmp115656 |[1]#_g115657_|)) (declare (not safe)) - (cons 'import __tmp114710))) - (__tmp114689 - (let ((__tmp114706 - (let ((__tmp114707 |[1]#_g114708_|)) + (cons 'import __tmp115656))) + (__tmp115635 + (let ((__tmp115652 + (let ((__tmp115653 |[1]#_g115654_|)) (declare (not safe)) - (cons 'export __tmp114707))) - (__tmp114690 - (let ((__tmp114703 - (let ((__tmp114704 - |[1]#_g114705_|)) + (cons 'export __tmp115653))) + (__tmp115636 + (let ((__tmp115649 + (let ((__tmp115650 + |[1]#_g115651_|)) (declare (not safe)) - (cons 't __tmp114704))) - (__tmp114691 - (let ((__tmp114700 - (let ((__tmp114701 - |[1]#_g114702_|)) + (cons 't __tmp115650))) + (__tmp115637 + (let ((__tmp115646 + (let ((__tmp115647 + |[1]#_g115648_|)) (declare (not safe)) (cons 'ns ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114701))) - (__tmp114692 - (let ((__tmp114697 - (let ((__tmp114698 |[1]#_g114699_|)) + __tmp115647))) + (__tmp115638 + (let ((__tmp115643 + (let ((__tmp115644 |[1]#_g115645_|)) (declare (not safe)) - (cons 'super __tmp114698))) - (__tmp114693 - (let ((__tmp114694 - (let ((__tmp114695 |[1]#_g114696_|)) + (cons 'super __tmp115644))) + (__tmp115639 + (let ((__tmp115640 + (let ((__tmp115641 |[1]#_g115642_|)) (declare (not safe)) - (cons 'table __tmp114695)))) + (cons 'table __tmp115641)))) (declare (not safe)) - (cons __tmp114694 '())))) + (cons __tmp115640 '())))) (declare (not safe)) - (cons __tmp114697 __tmp114693)))) + (cons __tmp115643 __tmp115639)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114700 - __tmp114692)))) + (cons __tmp115646 + __tmp115638)))) (declare (not safe)) - (cons __tmp114703 __tmp114691)))) + (cons __tmp115649 __tmp115637)))) (declare (not safe)) - (cons __tmp114706 __tmp114690)))) + (cons __tmp115652 __tmp115636)))) (declare (not safe)) - (cons __tmp114709 __tmp114689)))) + (cons __tmp115655 __tmp115635)))) (declare (not safe)) - (cons __tmp114712 __tmp114688)))) + (cons __tmp115658 __tmp115634)))) (declare (not safe)) - (cons __tmp114715 __tmp114687)))) + (cons __tmp115661 __tmp115633)))) (declare (not safe)) (##unchecked-structure-set! - __obj113779 - __tmp114686 + __obj114714 + __tmp115632 '14 gerbil/core$$#class-type-info::t '#f)) - __obj113779)) + __obj114714)) (define |[:0:]#defcore-forms| - (lambda (_stx106732_) - (letrec ((_generate106735_ - (lambda (_id107099_ _compile107101_ _make107102_) - (let* ((_g107104107123_ - (lambda (_g107105107119_) + (lambda (_stx107567_) + (letrec ((_generate107570_ + (lambda (_id107934_ _compile107936_ _make107937_) + (let* ((_g107939107958_ + (lambda (_g107940107954_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107105107119_))) - (_g107103107182_ - (lambda (_g107105107127_) - (if (gx#stx-pair? _g107105107127_) - (let ((_e107111107130_ - (gx#syntax-e _g107105107127_))) - (let ((_hd107110107134_ + _g107940107954_))) + (_g107938108017_ + (lambda (_g107940107962_) + (if (gx#stx-pair? _g107940107962_) + (let ((_e107946107965_ + (gx#syntax-e _g107940107962_))) + (let ((_hd107945107969_ (let () (declare (not safe)) - (##car _e107111107130_))) - (_tl107109107137_ + (##car _e107946107965_))) + (_tl107944107972_ (let () (declare (not safe)) - (##cdr _e107111107130_)))) - (if (gx#stx-pair? _tl107109107137_) - (let ((_e107114107140_ + (##cdr _e107946107965_)))) + (if (gx#stx-pair? _tl107944107972_) + (let ((_e107949107975_ (gx#syntax-e - _tl107109107137_))) - (let ((_hd107113107144_ + _tl107944107972_))) + (let ((_hd107948107979_ (let () (declare (not safe)) - (##car _e107114107140_))) - (_tl107112107147_ + (##car _e107949107975_))) + (_tl107947107982_ (let () (declare (not safe)) - (##cdr _e107114107140_)))) + (##cdr _e107949107975_)))) (if (gx#stx-pair? - _tl107112107147_) - (let ((_e107117107150_ + _tl107947107982_) + (let ((_e107952107985_ (gx#syntax-e - _tl107112107147_))) - (let ((_hd107116107154_ + _tl107947107982_))) + (let ((_hd107951107989_ (let () (declare (not safe)) - (##car _e107117107150_))) - (_tl107115107157_ + (##car _e107952107985_))) + (_tl107950107992_ (let () (declare (not safe)) - (##cdr _e107117107150_)))) + (##cdr _e107952107985_)))) (if (gx#stx-null? - _tl107115107157_) - ((lambda (_L107160_ + _tl107950107992_) + ((lambda (_L107995_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L107162_ - _L107163_) + _L107997_ + _L107998_) (let () - (let ((__tmp114724 + (let ((__tmp115670 (gx#datum->syntax '#f '__core-bind-syntax!)) - (__tmp114718 - (let ((__tmp114721 - (let ((__tmp114723 + (__tmp115664 + (let ((__tmp115667 + (let ((__tmp115669 (gx#datum->syntax '#f 'quote)) - (__tmp114722 + (__tmp115668 (let () (declare (not safe)) - (cons _L107163_ '())))) + (cons _L107998_ '())))) (declare (not safe)) - (cons __tmp114723 __tmp114722))) - (__tmp114719 - (let ((__tmp114720 + (cons __tmp115669 __tmp115668))) + (__tmp115665 + (let ((__tmp115666 (let () (declare (not safe)) - (cons _L107160_ '())))) + (cons _L107995_ '())))) (declare (not safe)) - (cons _L107162_ __tmp114720)))) + (cons _L107997_ __tmp115666)))) (declare (not safe)) - (cons __tmp114721 __tmp114719)))) + (cons __tmp115667 __tmp115665)))) (declare (not safe)) - (cons __tmp114724 __tmp114718)))) - _hd107116107154_ - _hd107113107144_ - _hd107110107134_) - (_g107104107123_ _g107105107127_)))) + (cons __tmp115670 __tmp115664)))) + _hd107951107989_ + _hd107948107979_ + _hd107945107969_) + (_g107939107958_ _g107940107962_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g107104107123_ - _g107105107127_)))) - (_g107104107123_ _g107105107127_)))) - (_g107104107123_ _g107105107127_))))) - (_g107103107182_ - (list _id107099_ + (_g107939107958_ + _g107940107962_)))) + (_g107939107958_ _g107940107962_)))) + (_g107939107958_ _g107940107962_))))) + (_g107938108017_ + (list _id107934_ (gx#stx-identifier - _id107099_ + _id107934_ '"__" - _compile107101_) - _make107102_)))))) - (let* ((_g106738106758_ - (lambda (_g106739106754_) + _compile107936_) + _make107937_)))))) + (let* ((_g107573107593_ + (lambda (_g107574107589_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106739106754_))) - (_g106737107095_ - (lambda (_g106739106762_) - (if (gx#stx-pair? _g106739106762_) - (let ((_e106743106765_ (gx#syntax-e _g106739106762_))) - (let ((_hd106742106769_ + _g107574107589_))) + (_g107572107930_ + (lambda (_g107574107597_) + (if (gx#stx-pair? _g107574107597_) + (let ((_e107578107600_ (gx#syntax-e _g107574107597_))) + (let ((_hd107577107604_ (let () (declare (not safe)) - (##car _e106743106765_))) - (_tl106741106772_ + (##car _e107578107600_))) + (_tl107576107607_ (let () (declare (not safe)) - (##cdr _e106743106765_)))) - (if (gx#stx-pair/null? _tl106741106772_) - (let ((_g114725_ + (##cdr _e107578107600_)))) + (if (gx#stx-pair/null? _tl107576107607_) + (let ((_g115671_ (gx#syntax-split-splice - _tl106741106772_ + _tl107576107607_ '0))) (begin - (let ((_g114726_ + (let ((_g115672_ (let () (declare (not safe)) - (if (##values? _g114725_) - (##vector-length _g114725_) + (if (##values? _g115671_) + (##vector-length _g115671_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g114726_ 2))) + (##fx= _g115672_ 2))) (error "Context expects 2 values" - _g114726_))) - (let ((_target106744106775_ + _g115672_))) + (let ((_target107579107610_ (let () (declare (not safe)) - (##vector-ref _g114725_ 0))) - (_tl106746106778_ + (##vector-ref _g115671_ 0))) + (_tl107581107613_ (let () (declare (not safe)) - (##vector-ref _g114725_ 1)))) - (if (gx#stx-null? _tl106746106778_) - (letrec ((_loop106747106781_ - (lambda (_hd106745106785_ - _form106751106788_) + (##vector-ref _g115671_ 1)))) + (if (gx#stx-null? _tl107581107613_) + (letrec ((_loop107582107616_ + (lambda (_hd107580107620_ + _form107586107623_) (if (gx#stx-pair? - _hd106745106785_) - (let ((_e106748106791_ + _hd107580107620_) + (let ((_e107583107626_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd106745106785_))) - (let ((_lp-hd106749106795_ + (gx#syntax-e _hd107580107620_))) + (let ((_lp-hd107584107630_ (let () (declare (not safe)) - (##car _e106748106791_))) - (_lp-tl106750106798_ + (##car _e107583107626_))) + (_lp-tl107585107633_ (let () (declare (not safe)) - (##cdr _e106748106791_)))) - (_loop106747106781_ - _lp-tl106750106798_ + (##cdr _e107583107626_)))) + (_loop107582107616_ + _lp-tl107585107633_ (let () (declare (not safe)) - (cons _lp-hd106749106795_ _form106751106788_))))) - (let ((_form106752106801_ (reverse _form106751106788_))) - ((lambda (_L106805_) - (let _lp106823_ ((_rest106826_ - (let ((__tmp114731 - (lambda (_g107086107089_ - _g107087107092_) + (cons _lp-hd107584107630_ _form107586107623_))))) + (let ((_form107587107636_ (reverse _form107586107623_))) + ((lambda (_L107640_) + (let _lp107658_ ((_rest107661_ + (let ((__tmp115677 + (lambda (_g107921107924_ + _g107922107927_) (let () (declare (not safe)) - (cons _g107086107089_ - _g107087107092_))))) + (cons _g107921107924_ + _g107922107927_))))) (declare (not safe)) - (foldr1 __tmp114731 '() _L106805_))) - (_body106828_ '())) - (let* ((___stx113676113677_ _rest106826_) - (_g106833106880_ + (foldr1 __tmp115677 '() _L107640_))) + (_body107663_ '())) + (let* ((___stx114611114612_ _rest107661_) + (_g107668107715_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113676113677_)))) - (let ((___kont113679113680_ - (lambda (_L107061_ _L107063_ _L107064_) - (_lp106823_ - _L107061_ - (let ((__tmp114727 - (_generate106735_ - _L107064_ - _L107063_ + ___stx114611114612_)))) + (let ((___kont114614114615_ + (lambda (_L107896_ _L107898_ _L107899_) + (_lp107658_ + _L107896_ + (let ((__tmp115673 + (_generate107570_ + _L107899_ + _L107898_ (gx#datum->syntax '#f 'make-__core-expression)))) (declare (not safe)) - (cons __tmp114727 _body106828_))))) - (___kont113681113682_ - (lambda (_L106988_ _L106990_ _L106991_) - (_lp106823_ - _L106988_ - (let ((__tmp114728 - (_generate106735_ - _L106991_ - _L106990_ + (cons __tmp115673 _body107663_))))) + (___kont114616114617_ + (lambda (_L107823_ _L107825_ _L107826_) + (_lp107658_ + _L107823_ + (let ((__tmp115674 + (_generate107570_ + _L107826_ + _L107825_ (gx#datum->syntax '#f 'make-__core-special-form)))) (declare (not safe)) - (cons __tmp114728 _body106828_))))) - (___kont113683113684_ - (lambda (_L106918_ _L106920_) - (_lp106823_ - _L106918_ - (let ((__tmp114729 - (_generate106735_ - _L106920_ + (cons __tmp115674 _body107663_))))) + (___kont114618114619_ + (lambda (_L107753_ _L107755_) + (_lp107658_ + _L107753_ + (let ((__tmp115675 + (_generate107570_ + _L107755_ (gx#datum->syntax '#f 'compile-error) @@ -3572,133 +3572,133 @@ '#f 'make-__core-form)))) (declare (not safe)) - (cons __tmp114729 _body106828_))))) - (___kont113685113686_ + (cons __tmp115675 _body107663_))))) + (___kont114620114621_ (lambda () - (let ((__tmp114730 (reverse _body106828_))) + (let ((__tmp115676 (reverse _body107663_))) (declare (not safe)) - (cons 'begin __tmp114730))))) - (let ((_g106832106891_ + (cons 'begin __tmp115676))))) + (let ((_g107667107726_ (lambda () - (if (gx#stx-null? ___stx113676113677_) - (___kont113685113686_) + (if (gx#stx-null? ___stx114611114612_) + (___kont114620114621_) (let () (declare (not safe)) - (_g106833106880_)))))) - (if (gx#stx-pair? ___stx113676113677_) - (let ((_e106840107017_ - (gx#syntax-e ___stx113676113677_))) - (let ((_tl106838107024_ + (_g107668107715_)))))) + (if (gx#stx-pair? ___stx114611114612_) + (let ((_e107675107852_ + (gx#syntax-e ___stx114611114612_))) + (let ((_tl107673107859_ (let () (declare (not safe)) - (##cdr _e106840107017_))) - (_hd106839107021_ + (##cdr _e107675107852_))) + (_hd107674107856_ (let () (declare (not safe)) - (##car _e106840107017_)))) - (if (gx#stx-pair? _hd106839107021_) - (let ((_e106843107027_ + (##car _e107675107852_)))) + (if (gx#stx-pair? _hd107674107856_) + (let ((_e107678107862_ (gx#syntax-e - _hd106839107021_))) - (let ((_tl106841107034_ + _hd107674107856_))) + (let ((_tl107676107869_ (let () (declare (not safe)) - (##cdr _e106843107027_))) - (_hd106842107031_ + (##cdr _e107678107862_))) + (_hd107677107866_ (let () (declare (not safe)) - (##car _e106843107027_)))) + (##car _e107678107862_)))) (if (gx#stx-pair? - _tl106841107034_) - (let ((_e106846107037_ + _tl107676107869_) + (let ((_e107681107872_ (gx#syntax-e - _tl106841107034_))) - (let ((_tl106844107044_ + _tl107676107869_))) + (let ((_tl107679107879_ (let () (declare (not safe)) - (##cdr _e106846107037_))) - (_hd106845107041_ + (##cdr _e107681107872_))) + (_hd107680107876_ (let () (declare (not safe)) - (##car _e106846107037_)))) + (##car _e107681107872_)))) (if (gx#stx-datum? - _hd106845107041_) - (let ((_e106847107047_ + _hd107680107876_) + (let ((_e107682107882_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd106845107041_))) + (gx#stx-e _hd107680107876_))) (if (let () (declare (not safe)) - (equal? _e106847107047_ 'expr:)) - (if (gx#stx-pair? _tl106844107044_) - (let ((_e106850107051_ - (gx#syntax-e _tl106844107044_))) - (let ((_tl106848107058_ + (equal? _e107682107882_ 'expr:)) + (if (gx#stx-pair? _tl107679107879_) + (let ((_e107685107886_ + (gx#syntax-e _tl107679107879_))) + (let ((_tl107683107893_ (let () (declare (not safe)) - (##cdr _e106850107051_))) - (_hd106849107055_ + (##cdr _e107685107886_))) + (_hd107684107890_ (let () (declare (not safe)) - (##car _e106850107051_)))) - (if (gx#stx-null? _tl106848107058_) - (___kont113679113680_ - _tl106838107024_ - _hd106849107055_ - _hd106842107031_) + (##car _e107685107886_)))) + (if (gx#stx-null? _tl107683107893_) + (___kont114614114615_ + _tl107673107859_ + _hd107684107890_ + _hd107677107866_) (let () (declare (not safe)) - (_g106833106880_))))) - (let () (declare (not safe)) (_g106833106880_))) + (_g107668107715_))))) + (let () (declare (not safe)) (_g107668107715_))) (if (let () (declare (not safe)) - (equal? _e106847107047_ 'special:)) - (if (gx#stx-pair? _tl106844107044_) - (let ((_e106866106978_ - (gx#syntax-e _tl106844107044_))) - (let ((_tl106864106985_ + (equal? _e107682107882_ 'special:)) + (if (gx#stx-pair? _tl107679107879_) + (let ((_e107701107813_ + (gx#syntax-e _tl107679107879_))) + (let ((_tl107699107820_ (let () (declare (not safe)) - (##cdr _e106866106978_))) - (_hd106865106982_ + (##cdr _e107701107813_))) + (_hd107700107817_ (let () (declare (not safe)) - (##car _e106866106978_)))) - (if (gx#stx-null? _tl106864106985_) - (___kont113681113682_ - _tl106838107024_ - _hd106865106982_ - _hd106842107031_) + (##car _e107701107813_)))) + (if (gx#stx-null? _tl107699107820_) + (___kont114616114617_ + _tl107673107859_ + _hd107700107817_ + _hd107677107866_) (let () (declare (not safe)) - (_g106833106880_))))) + (_g107668107715_))))) (let () (declare (not safe)) - (_g106833106880_))) - (let () (declare (not safe)) (_g106833106880_))))) - (let () (declare (not safe)) (_g106833106880_))))) + (_g107668107715_))) + (let () (declare (not safe)) (_g107668107715_))))) + (let () (declare (not safe)) (_g107668107715_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl106841107034_) - (___kont113683113684_ - _tl106838107024_ - _hd106842107031_) + _tl107676107869_) + (___kont114618114619_ + _tl107673107859_ + _hd107677107866_) (let () (declare (not safe)) - (_g106833106880_)))))) + (_g107668107715_)))))) (let () (declare (not safe)) - (_g106833106880_))))) + (_g107668107715_))))) (let () (declare (not safe)) - (_g106832106891_)))))))) - _form106752106801_)))))) + (_g107667107726_)))))))) + _form107587107636_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop106747106781_ - _target106744106775_ + (_loop107582107616_ + _target107579107610_ '())) - (_g106738106758_ _g106739106762_))))) - (_g106738106758_ _g106739106762_)))) - (_g106738106758_ _g106739106762_))))) - (_g106737107095_ _stx106732_))))))) + (_g107573107593_ _g107574107597_))))) + (_g107573107593_ _g107574107597_)))) + (_g107573107593_ _g107574107597_))))) + (_g107572107930_ _stx107567_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit__0.scm b/src/bootstrap/gerbil/runtime/gambit__0.scm index f69a0ee81..e19daea15 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 1707573209) '#!void) +(begin (define gerbil/runtime/gambit::timestamp 1707674928) '#!void) diff --git a/src/bootstrap/gerbil/runtime/init__0.scm b/src/bootstrap/gerbil/runtime/init__0.scm index 7966d355d..9a307de4d 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 1707573211) + (define gerbil/runtime/init::timestamp 1707674930) (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+119410_ __*readtable*)) + (letrec* ((_+readtable+120456_ __*readtable*)) (let () (declare (not safe)) (__init-gx!)) - (let* ((_core119412_ (gx#import-module ':gerbil/core)) - (_pre119414_ (gx#make-prelude-context _core119412_))) - (gx#current-expander-module-prelude _pre119414_) - (gx#core-bind-root-syntax! ': _pre119414_ '#t) + (let* ((_core120458_ (gx#import-module ':gerbil/core)) + (_pre120460_ (gx#make-prelude-context _core120458_))) + (gx#current-expander-module-prelude _pre120460_) + (gx#core-bind-root-syntax! ': _pre120460_ '#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 (_port119417_) - (input-port-readtable-set! _port119417_ _+readtable+119410_)) + (lambda (_port120463_) + (input-port-readtable-set! _port120463_ _+readtable+120456_)) (list ##stdin-port ##console-port)) (for-each - (lambda (_port119419_) + (lambda (_port120465_) (output-port-readtable-set! - _port119419_ + _port120465_ (readtable-sharing-allowed?-set - (output-port-readtable _port119419_) + (output-port-readtable _port120465_) '#t))) (list ##stdout-port ##console-port))))) - (define __gxi-init-interactive! (lambda (_cmdline119407_) '#!void)) + (define __gxi-init-interactive! (lambda (_cmdline120453_) '#!void)) (define load-scheme - (lambda (_path119402_) - (let ((__tmp123889 + (lambda (_path120448_) + (let ((__tmp125035 (lambda () - (let ((__tmp123890 (lambda _args119405_ '#f))) + (let ((__tmp125036 (lambda _args120451_ '#f))) (declare (not safe)) - (##load _path119402_ __tmp123890 '#t '#t '#f))))) + (##load _path120448_ __tmp125036 '#t '#t '#f))))) (declare (not safe)) (call-with-parameters - __tmp123889 + __tmp125035 __loading-scheme-source - _path119402_)))) + _path120448_)))) (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 _paths119397_ - (apply add-library-load-path _paths119397_) - (apply add-expander-load-path _paths119397_))) + (lambda _paths120443_ + (apply add-library-load-path _paths120443_) + (apply add-expander-load-path _paths120443_))) (define add-library-load-path - (lambda _paths119386_ - (let* ((_current119388_ (current-module-library-path)) - (_paths119390_ (map path-expand _paths119386_)) - (_paths119394_ - (let ((__tmp123891 - (lambda (_x119392_) - (let ((__tmp123892 - (member _x119392_ _current119388_))) + (lambda _paths120432_ + (let* ((_current120434_ (current-module-library-path)) + (_paths120436_ (map path-expand _paths120432_)) + (_paths120440_ + (let ((__tmp125037 + (lambda (_x120438_) + (let ((__tmp125038 + (member _x120438_ _current120434_))) (declare (not safe)) - (not __tmp123892))))) + (not __tmp125038))))) (declare (not safe)) - (filter __tmp123891 _paths119390_)))) + (filter __tmp125037 _paths120436_)))) (current-module-library-path - (append _current119388_ _paths119394_))))) + (append _current120434_ _paths120440_))))) (define add-expander-load-path - (lambda _paths119375_ - (let* ((_current119377_ (gx#current-expander-module-library-path)) - (_paths119379_ (map path-expand _paths119375_)) - (_paths119383_ - (let ((__tmp123893 - (lambda (_x119381_) - (let ((__tmp123894 - (member _x119381_ _current119377_))) + (lambda _paths120421_ + (let* ((_current120423_ (gx#current-expander-module-library-path)) + (_paths120425_ (map path-expand _paths120421_)) + (_paths120429_ + (let ((__tmp125039 + (lambda (_x120427_) + (let ((__tmp125040 + (member _x120427_ _current120423_))) (declare (not safe)) - (not __tmp123894))))) + (not __tmp125040))))) (declare (not safe)) - (filter __tmp123893 _paths119379_)))) + (filter __tmp125039 _paths120425_)))) (gx#current-expander-module-library-path - (append _current119377_ _paths119383_))))) + (append _current120423_ _paths120429_))))) (define cons-load-path - (lambda _paths119373_ - (apply cons-library-load-path _paths119373_) - (apply cons-expander-load-path _paths119373_))) + (lambda _paths120419_ + (apply cons-library-load-path _paths120419_) + (apply cons-expander-load-path _paths120419_))) (define cons-library-load-path - (lambda _paths119368_ - (let ((_current119370_ (current-module-library-path)) - (_paths119371_ (map path-expand _paths119368_))) + (lambda _paths120414_ + (let ((_current120416_ (current-module-library-path)) + (_paths120417_ (map path-expand _paths120414_))) (current-module-library-path - (append _paths119371_ _current119370_))))) + (append _paths120417_ _current120416_))))) (define cons-expander-load-path - (lambda _paths119363_ - (let ((_current119365_ (gx#current-expander-module-library-path)) - (_paths119366_ (map path-expand _paths119363_))) + (lambda _paths120409_ + (let ((_current120411_ (gx#current-expander-module-library-path)) + (_paths120412_ (map path-expand _paths120409_))) (gx#current-expander-module-library-path - (append _paths119366_ _current119365_))))) + (append _paths120412_ _current120411_))))) (define with-cons-load-path - (lambda (_thunk119359_ . _paths119360_) + (lambda (_thunk120405_ . _paths120406_) (apply with-cons-library-load-path (lambda () (apply with-cons-expander-load-path - _thunk119359_ - _paths119360_)) - _paths119360_))) + _thunk120405_ + _paths120406_)) + _paths120406_))) (define with-cons-library-load-path - (lambda (_thunk119352_ . _paths119353_) - (let ((_current119355_ (current-module-library-path)) - (_paths119356_ (map path-expand _paths119353_))) - (let ((__tmp123896 (lambda () (_thunk119352_))) - (__tmp123895 (append _paths119356_ _current119355_))) + (lambda (_thunk120398_ . _paths120399_) + (let ((_current120401_ (current-module-library-path)) + (_paths120402_ (map path-expand _paths120399_))) + (let ((__tmp125042 (lambda () (_thunk120398_))) + (__tmp125041 (append _paths120402_ _current120401_))) (declare (not safe)) (call-with-parameters - __tmp123896 + __tmp125042 current-module-library-path - __tmp123895))))) + __tmp125041))))) (define with-cons-expander-load-path - (lambda (_thunk119345_ . _paths119346_) - (let ((_current119348_ (gx#current-expander-module-library-path)) - (_paths119349_ (map path-expand _paths119346_))) - (let ((__tmp123898 (lambda () (_thunk119345_))) - (__tmp123897 (append _paths119349_ _current119348_))) + (lambda (_thunk120391_ . _paths120392_) + (let ((_current120394_ (gx#current-expander-module-library-path)) + (_paths120395_ (map path-expand _paths120392_))) + (let ((__tmp125044 (lambda () (_thunk120391_))) + (__tmp125043 (append _paths120395_ _current120394_))) (declare (not safe)) (call-with-parameters - __tmp123898 + __tmp125044 gx#current-expander-module-library-path - __tmp123897))))) + __tmp125043))))) (define __expand-source - (lambda (_src119331_) - (letrec ((_expand119333_ - (lambda (_src119343_) - (let ((__tmp123899 + (lambda (_src120377_) + (letrec ((_expand120379_ + (lambda (_src120389_) + (let ((__tmp125045 (gx#core-expand (let () (declare (not safe)) - (__source->syntax _src119343_))))) + (__source->syntax _src120389_))))) (declare (not safe)) - (__compile-top __tmp123899)))) - (_no-expand119334_ - (lambda (_src119339_) + (__compile-top __tmp125045)))) + (_no-expand120380_ + (lambda (_src120385_) (if (__loading-scheme-source) - _src119339_ + _src120385_ (if (let () (declare (not safe)) - (##source? _src119339_)) - (let ((_code119341_ + (##source? _src120385_)) + (let ((_code120387_ (let () (declare (not safe)) - (##source-code _src119339_)))) + (##source-code _src120385_)))) (if (let () (declare (not safe)) - (pair? _code119341_)) - (if (let ((__tmp123900 + (pair? _code120387_)) + (if (let ((__tmp125046 (let () (declare (not safe)) - (##car _code119341_)))) + (##car _code120387_)))) (declare (not safe)) - (eq? '__noexpand: __tmp123900)) + (eq? '__noexpand: __tmp125046)) (let () (declare (not safe)) - (##cdr _code119341_)) + (##cdr _code120387_)) '#f) '#f)) '#f))))) - (let ((_$e119336_ + (let ((_$e120382_ (let () (declare (not safe)) - (_no-expand119334_ _src119331_)))) - (if _$e119336_ - _$e119336_ - (let () (declare (not safe)) (_expand119333_ _src119331_))))))) + (_no-expand120380_ _src120377_)))) + (if _$e120382_ + _$e120382_ + (let () (declare (not safe)) (_expand120379_ _src120377_))))))) (define __macro-descr - (lambda (_src119317_ _def-syntax?119318_) - (letrec ((_fail!119320_ + (lambda (_src120363_ _def-syntax?120364_) + (letrec ((_fail!120366_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _src119317_)))) - (_make-descr119321_ - (lambda (_size119325_) - (let ((_expander119328_ - (let ((__tmp123901 + _src120363_)))) + (_make-descr120367_ + (lambda (_size120371_) + (let ((_expander120374_ + (let ((__tmp125047 (lambda () (let () (declare (not safe)) (##eval-top - _src119317_ + _src120363_ ##interaction-cte))))) (declare (not safe)) (call-with-parameters - __tmp123901 + __tmp125047 __loading-scheme-source 'macro)))) (if (let () (declare (not safe)) - (procedure? _expander119328_)) + (procedure? _expander120374_)) (let () (declare (not safe)) (##make-macro-descr - _def-syntax?119318_ - _size119325_ - _expander119328_ - _src119317_)) - (let () (declare (not safe)) (_fail!119320_))))))) - (if _def-syntax?119318_ - (let () (declare (not safe)) (_make-descr119321_ '-1)) - (let ((_code119323_ + _def-syntax?120364_ + _size120371_ + _expander120374_ + _src120363_)) + (let () (declare (not safe)) (_fail!120366_))))))) + (if _def-syntax?120364_ + (let () (declare (not safe)) (_make-descr120367_ '-1)) + (let ((_code120369_ (let () (declare (not safe)) - (##source-code _src119317_)))) - (if (and (let () (declare (not safe)) (##pair? _code119323_)) - (let ((__tmp123905 - (let ((__tmp123906 - (let ((__tmp123907 + (##source-code _src120363_)))) + (if (and (let () (declare (not safe)) (##pair? _code120369_)) + (let ((__tmp125051 + (let ((__tmp125052 + (let ((__tmp125053 (let () (declare (not safe)) - (##car _code119323_)))) + (##car _code120369_)))) (declare (not safe)) (##sourcify - __tmp123907 - _src119317_)))) + __tmp125053 + _src120363_)))) (declare (not safe)) - (##source-code __tmp123906)))) + (##source-code __tmp125052)))) (declare (not safe)) - (##memq __tmp123905 '(##lambda lambda)))) + (##memq __tmp125051 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _src119317_ _src119317_ '-3)) - (let ((__tmp123902 - (let ((__tmp123903 - (let ((__tmp123904 + (##shape _src120363_ _src120363_ '-3)) + (let ((__tmp125048 + (let ((__tmp125049 + (let ((__tmp125050 (let () (declare (not safe)) - (##cadr _code119323_)))) + (##cadr _code120369_)))) (declare (not safe)) - (##sourcify __tmp123904 _src119317_)))) + (##sourcify __tmp125050 _src120363_)))) (declare (not safe)) - (##form-size __tmp123903)))) + (##form-size __tmp125049)))) (declare (not safe)) - (_make-descr119321_ __tmp123902))) - (let () (declare (not safe)) (_fail!119320_)))))))) + (_make-descr120367_ __tmp125048))) + (let () (declare (not safe)) (_fail!120366_)))))))) (define __source->syntax - (lambda (_src119311_) - (let _recur119313_ ((_e119315_ _src119311_)) - (if (let () (declare (not safe)) (##source? _e119315_)) - (let ((__tmp123915 - (let ((__tmp123916 + (lambda (_src120357_) + (let _recur120359_ ((_e120361_ _src120357_)) + (if (let () (declare (not safe)) (##source? _e120361_)) + (let ((__tmp125061 + (let ((__tmp125062 (let () (declare (not safe)) - (##source-code _e119315_)))) + (##source-code _e120361_)))) (declare (not safe)) - (_recur119313_ __tmp123916))) - (__tmp123914 - (let () (declare (not safe)) (##source-locat _e119315_)))) + (_recur120359_ __tmp125062))) + (__tmp125060 + (let () (declare (not safe)) (##source-locat _e120361_)))) (declare (not safe)) - (##structure AST::t __tmp123915 __tmp123914)) - (if (let () (declare (not safe)) (pair? _e119315_)) - (let ((__tmp123912 - (let ((__tmp123913 + (##structure AST::t __tmp125061 __tmp125060)) + (if (let () (declare (not safe)) (pair? _e120361_)) + (let ((__tmp125058 + (let ((__tmp125059 (let () (declare (not safe)) - (##car _e119315_)))) + (##car _e120361_)))) (declare (not safe)) - (_recur119313_ __tmp123913))) - (__tmp123910 - (let ((__tmp123911 + (_recur120359_ __tmp125059))) + (__tmp125056 + (let ((__tmp125057 (let () (declare (not safe)) - (##cdr _e119315_)))) + (##cdr _e120361_)))) (declare (not safe)) - (_recur119313_ __tmp123911)))) + (_recur120359_ __tmp125057)))) (declare (not safe)) - (cons __tmp123912 __tmp123910)) - (if (let () (declare (not safe)) (vector? _e119315_)) - (vector-map _recur119313_ _e119315_) - (if (let () (declare (not safe)) (box? _e119315_)) - (let ((__tmp123908 - (let ((__tmp123909 (unbox _e119315_))) + (cons __tmp125058 __tmp125056)) + (if (let () (declare (not safe)) (vector? _e120361_)) + (vector-map _recur120359_ _e120361_) + (if (let () (declare (not safe)) (box? _e120361_)) + (let ((__tmp125054 + (let ((__tmp125055 (unbox _e120361_))) (declare (not safe)) - (_recur119313_ __tmp123909)))) + (_recur120359_ __tmp125055)))) (declare (not safe)) - (box __tmp123908)) - _e119315_))))))) + (box __tmp125054)) + _e120361_))))))) (define __compile-top-source - (lambda (_stx119309_) - (let ((__tmp123917 - (let () (declare (not safe)) (__compile-top _stx119309_)))) + (lambda (_stx120355_) + (let ((__tmp125063 + (let () (declare (not safe)) (__compile-top _stx120355_)))) (declare (not safe)) - (cons '__noexpand: __tmp123917)))) + (cons '__noexpand: __tmp125063)))) (define __compile-top - (lambda (_stx119307_) - (let ((__tmp123918 (gx#core-compile-top-syntax _stx119307_))) + (lambda (_stx120353_) + (let ((__tmp125064 (gx#core-compile-top-syntax _stx120353_))) (declare (not safe)) - (__compile __tmp123918)))) + (__compile __tmp125064)))) (define __eval-import - (lambda (_in119288_) - (letrec* ((_mods119290_ + (lambda (_in120334_) + (letrec* ((_mods120336_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_import1119291_ - (lambda (_in119298_ _phi119299_) - (if (gx#module-import? _in119298_) - (let ((_iphi119301_ - (fx+ _phi119299_ - (gx#module-import-phi _in119298_)))) + (_import1120337_ + (lambda (_in120344_ _phi120345_) + (if (gx#module-import? _in120344_) + (let ((_iphi120347_ + (fx+ _phi120345_ + (gx#module-import-phi _in120344_)))) (if (let () (declare (not safe)) - (fxzero? _iphi119301_)) - (let ((__tmp123920 + (fxzero? _iphi120347_)) + (let ((__tmp125066 (gx#module-export-context - (gx#module-import-source _in119298_)))) + (gx#module-import-source _in120344_)))) (declare (not safe)) - (_eval1119292_ __tmp123920)) + (_eval1120338_ __tmp125066)) '#!void)) - (if (gx#module-context? _in119298_) + (if (gx#module-context? _in120344_) (if (let () (declare (not safe)) - (fxzero? _phi119299_)) + (fxzero? _phi120345_)) (let () (declare (not safe)) - (_eval1119292_ _in119298_)) + (_eval1120338_ _in120344_)) '#!void) - (if (gx#import-set? _in119298_) - (let ((_iphi119303_ - (fx+ _phi119299_ - (gx#import-set-phi _in119298_)))) + (if (gx#import-set? _in120344_) + (let ((_iphi120349_ + (fx+ _phi120345_ + (gx#import-set-phi _in120344_)))) (if (let () (declare (not safe)) - (fxzero? _iphi119303_)) - (let ((__tmp123919 + (fxzero? _iphi120349_)) + (let ((__tmp125065 (gx#import-set-source - _in119298_))) + _in120344_))) (declare (not safe)) - (_eval1119292_ __tmp123919)) - (if (fxpositive? _iphi119303_) + (_eval1120338_ __tmp125065)) + (if (fxpositive? _iphi120349_) (for-each - (lambda (_in119305_) + (lambda (_in120351_) (let () (declare (not safe)) - (_import1119291_ - _in119305_ - _iphi119303_))) + (_import1120337_ + _in120351_ + _iphi120349_))) (gx#module-context-import (gx#import-set-source - _in119298_))) + _in120344_))) '#!void))) - (error '"Unexpected import" _in119298_)))))) - (_eval1119292_ - (lambda (_ctx119296_) + (error '"Unexpected import" _in120344_)))))) + (_eval1120338_ + (lambda (_ctx120342_) (if (let () (declare (not safe)) - (table-ref _mods119290_ _ctx119296_ '#f)) + (table-ref _mods120336_ _ctx120342_ '#f)) '#!void (begin (let () (declare (not safe)) - (table-set! _mods119290_ _ctx119296_ '#t)) - (__eval-module _ctx119296_)))))) - (if (let () (declare (not safe)) (pair? _in119288_)) + (table-set! _mods120336_ _ctx120342_ '#t)) + (__eval-module _ctx120342_)))))) + (if (let () (declare (not safe)) (pair? _in120334_)) (for-each - (lambda (_in119294_) - (let () (declare (not safe)) (_import1119291_ _in119294_ '0))) - _in119288_) - (let () (declare (not safe)) (_import1119291_ _in119288_ '0)))))) + (lambda (_in120340_) + (let () (declare (not safe)) (_import1120337_ _in120340_ '0))) + _in120334_) + (let () (declare (not safe)) (_import1120337_ _in120334_ '0)))))) (define __eval-module - (lambda (_obj119281_) - (let* ((_key119283_ - (if (gx#module-context? _obj119281_) - (gx#module-context-path _obj119281_) - _obj119281_)) - (_$e119285_ + (lambda (_obj120327_) + (let* ((_key120329_ + (if (gx#module-context? _obj120327_) + (gx#module-context-path _obj120327_) + _obj120327_)) + (_$e120331_ (let () (declare (not safe)) - (table-ref __*modules* _key119283_ '#f)))) - (if _$e119285_ - (values _$e119285_) - (gx#core-eval-module _obj119281_))))) + (table-ref __*modules* _key120329_ '#f)))) + (if _$e120331_ + (values _$e120331_) + (gx#core-eval-module _obj120327_))))) (define gerbil-runtime-init! - (lambda (_builtin-modules119216_) + (lambda (_builtin-modules120262_) (if __runtime-initialized '#!void (begin - (let* ((_home119218_ (let () (declare (not safe)) (gerbil-home))) - (_libdir119220_ (path-expand '"lib" _home119218_)) - (_userpath119222_ + (let* ((_home120264_ (let () (declare (not safe)) (gerbil-home))) + (_libdir120266_ (path-expand '"lib" _home120264_)) + (_userpath120268_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_loadpath119224_ + (_loadpath120270_ (if (getenv '"GERBIL_BUILD_PREFIX" '#f) (let () (declare (not safe)) - (cons _libdir119220_ '())) - (let ((__tmp123921 + (cons _libdir120266_ '())) + (let ((__tmp125067 (let () (declare (not safe)) - (cons _libdir119220_ '())))) + (cons _libdir120266_ '())))) (declare (not safe)) - (cons _userpath119222_ __tmp123921)))) - (_loadpath119233_ - (let ((_$e119226_ (getenv '"GERBIL_LOADPATH" '#f))) - (if _$e119226_ - ((lambda (_envvar119229_) - (append (let ((__tmp123923 - (lambda (_x119231_) - (let ((__tmp123924 + (cons _userpath120268_ __tmp125067)))) + (_loadpath120279_ + (let ((_$e120272_ (getenv '"GERBIL_LOADPATH" '#f))) + (if _$e120272_ + ((lambda (_envvar120275_) + (append (let ((__tmp125069 + (lambda (_x120277_) + (let ((__tmp125070 (let () (declare (not safe)) (string-empty? - _x119231_)))) + _x120277_)))) (declare (not safe)) - (not __tmp123924)))) - (__tmp123922 + (not __tmp125070)))) + (__tmp125068 (let () (declare (not safe)) (string-split - _envvar119229_ + _envvar120275_ '#\:)))) (declare (not safe)) - (filter __tmp123923 __tmp123922)) - _loadpath119224_)) - _$e119226_) - _loadpath119224_)))) - (current-module-library-path _loadpath119233_)) - (let* ((_registry-entry119238_ - (lambda (_m119236_) + (filter __tmp125069 __tmp125068)) + _loadpath120270_)) + _$e120272_) + _loadpath120270_)))) + (current-module-library-path _loadpath120279_)) + (let* ((_registry-entry120284_ + (lambda (_m120282_) (let () (declare (not safe)) - (cons _m119236_ 'builtin)))) - (_module-registry119278_ - (let _lp119240_ ((_rest119242_ _builtin-modules119216_) - (_registry119243_ '())) - (let* ((_rest119244119252_ _rest119242_) - (_else119246119260_ + (cons _m120282_ 'builtin)))) + (_module-registry120324_ + (let _lp120286_ ((_rest120288_ _builtin-modules120262_) + (_registry120289_ '())) + (let* ((_rest120290120298_ _rest120288_) + (_else120292120306_ (lambda () (let () (declare (not safe)) - (list->table _registry119243_)))) - (_K119248119266_ - (lambda (_rest119263_ _mod119264_) - (let ((__tmp123925 - (let ((__tmp123929 - (let ((__tmp123930 + (list->table _registry120289_)))) + (_K120294120312_ + (lambda (_rest120309_ _mod120310_) + (let ((__tmp125071 + (let ((__tmp125075 + (let ((__tmp125076 (string-append - _mod119264_ + _mod120310_ '"__0"))) (declare (not safe)) - (_registry-entry119238_ - __tmp123930))) - (__tmp123926 - (let ((__tmp123927 - (let ((__tmp123928 + (_registry-entry120284_ + __tmp125076))) + (__tmp125072 + (let ((__tmp125073 + (let ((__tmp125074 (string-append - _mod119264_ + _mod120310_ '"__rt"))) (declare (not safe)) - (_registry-entry119238_ - __tmp123928)))) + (_registry-entry120284_ + __tmp125074)))) (declare (not safe)) - (cons __tmp123927 - _registry119243_)))) + (cons __tmp125073 + _registry120289_)))) (declare (not safe)) - (cons __tmp123929 __tmp123926)))) + (cons __tmp125075 __tmp125072)))) (declare (not safe)) - (_lp119240_ _rest119263_ __tmp123925))))) + (_lp120286_ _rest120309_ __tmp125071))))) (if (let () (declare (not safe)) - (##pair? _rest119244119252_)) - (let ((_hd119249119269_ + (##pair? _rest120290120298_)) + (let ((_hd120295120315_ (let () (declare (not safe)) - (##car _rest119244119252_))) - (_tl119250119271_ + (##car _rest120290120298_))) + (_tl120296120317_ (let () (declare (not safe)) - (##cdr _rest119244119252_)))) - (let* ((_mod119274_ _hd119249119269_) - (_rest119276_ _tl119250119271_)) + (##cdr _rest120290120298_)))) + (let* ((_mod120320_ _hd120295120315_) + (_rest120322_ _tl120296120317_)) (declare (not safe)) - (_K119248119266_ _rest119276_ _mod119274_))) + (_K120294120312_ _rest120322_ _mod120320_))) (let () (declare (not safe)) - (_else119246119260_))))))) - (current-module-registry _module-registry119278_)) + (_else120292120306_))))))) + (current-module-registry _module-registry120324_)) (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 081a43799..7f4a44459 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 1707573210) + (define gerbil/runtime/loader::timestamp 1707674929) (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 (_modpath69409_ _reload?69410_) - (let ((_$e69412_ - (if (let () (declare (not safe)) (not _reload?69410_)) - (let ((__tmp73899 (current-module-registry))) + (lambda (_modpath69537_ _reload?69538_) + (let ((_$e69540_ + (if (let () (declare (not safe)) (not _reload?69538_)) + (let ((__tmp74127 (current-module-registry))) (declare (not safe)) - (table-ref __tmp73899 _modpath69409_ '#f)) + (table-ref __tmp74127 _modpath69537_ '#f)) '#f))) - (if _$e69412_ - _$e69412_ - (let ((_$e69415_ + (if _$e69540_ + _$e69540_ + (let ((_$e69543_ (let () (declare (not safe)) - (find-library-module _modpath69409_)))) - (if _$e69415_ - ((lambda (_path69418_) - (let ((_lpath69420_ (load _path69418_))) - (let ((__tmp73900 (current-module-registry))) + (find-library-module _modpath69537_)))) + (if _$e69543_ + ((lambda (_path69546_) + (let ((_lpath69548_ (load _path69546_))) + (let ((__tmp74128 (current-module-registry))) (declare (not safe)) - (table-set! __tmp73900 _modpath69409_ _lpath69420_)) - _lpath69420_)) - _$e69415_) - (error '"module not found" _modpath69409_))))))) + (table-set! __tmp74128 _modpath69537_ _lpath69548_)) + _lpath69548_)) + _$e69543_) + (error '"module not found" _modpath69537_))))))) (define load-module__0 - (lambda (_modpath69425_) - (let ((_reload?69427_ (__reload-module))) + (lambda (_modpath69553_) + (let ((_reload?69555_ (__reload-module))) (declare (not safe)) - (load-module__% _modpath69425_ _reload?69427_)))) + (load-module__% _modpath69553_ _reload?69555_)))) (define load-module - (lambda _g73902_ - (let ((_g73901_ (let () (declare (not safe)) (##length _g73902_)))) - (cond ((let () (declare (not safe)) (##fx= _g73901_ 1)) - (apply (lambda (_modpath69425_) + (lambda _g74130_ + (let ((_g74129_ (let () (declare (not safe)) (##length _g74130_)))) + (cond ((let () (declare (not safe)) (##fx= _g74129_ 1)) + (apply (lambda (_modpath69553_) (let () (declare (not safe)) - (load-module__0 _modpath69425_))) - _g73902_)) - ((let () (declare (not safe)) (##fx= _g73901_ 2)) - (apply (lambda (_modpath69429_ _reload?69430_) + (load-module__0 _modpath69553_))) + _g74130_)) + ((let () (declare (not safe)) (##fx= _g74129_ 2)) + (apply (lambda (_modpath69557_ _reload?69558_) (let () (declare (not safe)) - (load-module__% _modpath69429_ _reload?69430_))) - _g73902_)) + (load-module__% _modpath69557_ _reload?69558_))) + _g74130_)) (else (##raise-wrong-number-of-arguments-exception load-module - _g73902_)))))) + _g74130_)))))) (define find-library-module - (lambda (_modpath69343_) - (letrec ((_find-compiled-file69345_ - (lambda (_npath69397_) - (let ((_basepath69399_ + (lambda (_modpath69471_) + (letrec ((_find-compiled-file69473_ + (lambda (_npath69525_) + (let ((_basepath69527_ (let () (declare (not safe)) - (##string-append _npath69397_ '".o")))) - (let _lp69401_ ((_current69403_ '#f) (_n69404_ '1)) - (let ((_next69406_ - (let ((__tmp73903 (number->string _n69404_))) + (##string-append _npath69525_ '".o")))) + (let _lp69529_ ((_current69531_ '#f) (_n69532_ '1)) + (let ((_next69534_ + (let ((__tmp74131 (number->string _n69532_))) (declare (not safe)) (##string-append - _basepath69399_ - __tmp73903)))) + _basepath69527_ + __tmp74131)))) (if (let () (declare (not safe)) - (##file-exists? _next69406_)) - (let ((__tmp73904 + (##file-exists? _next69534_)) + (let ((__tmp74132 (let () (declare (not safe)) - (##fx+ _n69404_ '1)))) + (##fx+ _n69532_ '1)))) (declare (not safe)) - (_lp69401_ _next69406_ __tmp73904)) - _current69403_)))))) - (_find-source-file69346_ - (lambda (_npath69393_) - (let ((_spath69395_ (string-append _npath69393_ '".scm"))) + (_lp69529_ _next69534_ __tmp74132)) + _current69531_)))))) + (_find-source-file69474_ + (lambda (_npath69521_) + (let ((_spath69523_ (string-append _npath69521_ '".scm"))) (if (let () (declare (not safe)) - (##file-exists? _spath69395_)) - _spath69395_ + (##file-exists? _spath69523_)) + _spath69523_ '#f))))) - (let _lp69348_ ((_rest69350_ (current-module-library-path))) - (let* ((_rest6935169359_ _rest69350_) - (_else6935369367_ (lambda () '#f)) - (_K6935569381_ - (lambda (_rest69370_ _dir69371_) - (let* ((_npath69373_ + (let _lp69476_ ((_rest69478_ (current-module-library-path))) + (let* ((_rest6947969487_ _rest69478_) + (_else6948169495_ (lambda () '#f)) + (_K6948369509_ + (lambda (_rest69498_ _dir69499_) + (let* ((_npath69501_ (path-expand - _modpath69343_ - (path-expand _dir69371_))) - (_$e69375_ + _modpath69471_ + (path-expand _dir69499_))) + (_$e69503_ (let () (declare (not safe)) - (_find-compiled-file69345_ _npath69373_)))) - (if _$e69375_ - (path-normalize _$e69375_) - (let ((_$e69378_ + (_find-compiled-file69473_ _npath69501_)))) + (if _$e69503_ + (path-normalize _$e69503_) + (let ((_$e69506_ (let () (declare (not safe)) - (_find-source-file69346_ _npath69373_)))) - (if _$e69378_ - (path-normalize _$e69378_) + (_find-source-file69474_ _npath69501_)))) + (if _$e69506_ + (path-normalize _$e69506_) (let () (declare (not safe)) - (_lp69348_ _rest69370_))))))))) - (if (let () (declare (not safe)) (##pair? _rest6935169359_)) - (let ((_hd6935669384_ + (_lp69476_ _rest69498_))))))))) + (if (let () (declare (not safe)) (##pair? _rest6947969487_)) + (let ((_hd6948469512_ (let () (declare (not safe)) - (##car _rest6935169359_))) - (_tl6935769386_ + (##car _rest6947969487_))) + (_tl6948569514_ (let () (declare (not safe)) - (##cdr _rest6935169359_)))) - (let* ((_dir69389_ _hd6935669384_) - (_rest69391_ _tl6935769386_)) + (##cdr _rest6947969487_)))) + (let* ((_dir69517_ _hd6948469512_) + (_rest69519_ _tl6948569514_)) (declare (not safe)) - (_K6935569381_ _rest69391_ _dir69389_))) - (let () (declare (not safe)) (_else6935369367_)))))))))) + (_K6948369509_ _rest69519_ _dir69517_))) + (let () (declare (not safe)) (_else6948169495_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop.ssi b/src/bootstrap/gerbil/runtime/mop.ssi index 1b577e7b6..8dd3ca6e2 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssi +++ b/src/bootstrap/gerbil/runtime/mop.ssi @@ -12,7 +12,6 @@ namespace: #f (%#define-runtime type-descriptor? type-descriptor?) (%#define-runtime type-struct? type-struct?) (%#define-runtime type-final? type-final?) - (%#define-runtime struct-type? struct-type?) (%#define-runtime class-type? class-type?) (%#define-runtime properties-form properties-form) (%#define-runtime make-type-descriptor make-type-descriptor) @@ -33,73 +32,60 @@ namespace: #f (%#define-runtime type-descriptor-methods-set! type-descriptor-methods-set!) + (%#define-runtime type-descriptor-slot-list type-descriptor-slot-list) (%#define-runtime type-descriptor-fields type-descriptor-fields) (%#define-runtime type-descriptor-sealed? type-descriptor-sealed?) (%#define-runtime type-descriptor-seal! type-descriptor-seal!) - (%#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) - (%#define-runtime - make-struct-slot-unchecked-accessor - make-struct-slot-unchecked-accessor) - (%#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-final-field-mutator make-final-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-mutator - make-struct-field-unchecked-mutator) (%#define-runtime substruct? substruct?) (%#define-runtime base-struct/1 base-struct/1) (%#define-runtime base-struct/2 base-struct/2) (%#define-runtime base-struct/list base-struct/list) (%#define-runtime base-struct base-struct) - (%#define-runtime find-super-ctor find-super-ctor) (%#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 class-precedence-list class-precedence-list) - (%#define-runtime struct-precedence-list struct-precedence-list) - (%#define-runtime class-linearize-mixins class-linearize-mixins) + (%#define-runtime compute-precedence-list compute-precedence-list) (%#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) + (%#define-runtime make-class-slot-mutator make-class-slot-mutator) + (%#define-runtime + make-class-slot-unchecked-accessor + make-class-slot-unchecked-accessor) + (%#define-runtime + make-class-slot-unchecked-mutator + make-class-slot-unchecked-mutator) (%#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-final-slot-accessor make-final-slot-accessor) + (%#define-runtime make-final-slot-mutator make-final-slot-mutator) + (%#define-runtime make-struct-slot-accessor make-struct-slot-accessor) + (%#define-runtime make-struct-slot-mutator make-struct-slot-mutator) + (%#define-runtime + make-struct-slot-unchecked-accessor + make-struct-slot-unchecked-accessor) + (%#define-runtime + make-struct-slot-unchecked-mutator + make-struct-slot-unchecked-mutator) + (%#define-runtime + make-struct-subclass-slot-accessor + make-struct-subclass-slot-accessor) (%#define-runtime - make-struct-subclass-field-accessor - make-struct-subclass-field-accessor) + make-struct-subclass-slot-mutator + make-struct-subclass-slot-mutator) (%#define-runtime make-class-cached-slot-accessor make-class-cached-slot-accessor) - (%#define-runtime make-class-slot-mutator make-class-slot-mutator) - (%#define-runtime - make-struct-subclass-field-mutator - make-struct-subclass-field-mutator) (%#define-runtime make-class-cached-slot-mutator make-class-cached-slot-mutator) - (%#define-runtime - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) (%#define-runtime make-class-cached-slot-unchecked-accessor make-class-cached-slot-unchecked-accessor) - (%#define-runtime - make-class-slot-unchecked-mutator - make-class-slot-unchecked-mutator) (%#define-runtime make-class-cached-slot-unchecked-mutator make-class-cached-slot-unchecked-mutator) @@ -129,8 +115,8 @@ namespace: #f (%#define-runtime class-instance? class-instance?) (%#define-runtime make-object make-object) (%#define-runtime object-fill! object-fill!) + (%#define-runtime make-new-instance make-new-instance) (%#define-runtime make-instance make-instance) - (%#define-runtime make-struct-instance make-struct-instance) (%#define-runtime make-class-instance make-class-instance) (%#define-runtime struct-instance-init! struct-instance-init!) (%#define-runtime __struct-instance-init! __struct-instance-init!) diff --git a/src/bootstrap/gerbil/runtime/mop.ssxi.ss b/src/bootstrap/gerbil/runtime/mop.ssxi.ss index b2fd6f55b..88495f777 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop.ssxi.ss @@ -7,7 +7,6 @@ package: gerbil/runtime (declare-type type-descriptor? (@lambda 1 #f)) (declare-type type-struct? (@lambda 1 #f)) (declare-type type-final? (@lambda 1 #f)) - (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 #f)) @@ -18,49 +17,42 @@ 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-slot-list (@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 (@case-lambda (6 #f) (7 #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-final-field-mutator (@lambda 3 #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-mutator (@lambda 2 #f)) (declare-type substruct? (@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)) (declare-type base-struct (@lambda (0) #f)) - (declare-type find-super-ctor (@lambda 1 find-super-constructor)) (declare-type find-super-constructor (@lambda 1 #f)) - (declare-type compute-class-slots (@lambda 3 #f)) + (declare-type compute-class-slots (@lambda 2 #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 compute-precedence-list (@lambda 1 #f)) (declare-type make-class-predicate (@lambda 1 #f)) (declare-type if-class-slot-field (@lambda 6 #f)) (declare-type make-class-slot-accessor (@lambda 2 #f)) + (declare-type make-class-slot-mutator (@lambda 2 #f)) + (declare-type make-class-slot-unchecked-accessor (@lambda 2 #f)) + (declare-type make-class-slot-unchecked-mutator (@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-final-slot-accessor (@lambda 3 #f)) + (declare-type make-final-slot-mutator (@lambda 3 #f)) + (declare-type make-struct-slot-accessor (@lambda 3 #f)) + (declare-type make-struct-slot-mutator (@lambda 3 #f)) + (declare-type make-struct-slot-unchecked-accessor (@lambda 3 #f)) + (declare-type make-struct-slot-unchecked-mutator (@lambda 3 #f)) + (declare-type make-struct-subclass-slot-accessor (@lambda 3 #f)) + (declare-type make-struct-subclass-slot-mutator (@lambda 3 #f)) (declare-type make-class-cached-slot-accessor (@lambda 3 #f)) - (declare-type make-class-slot-mutator (@lambda 2 #f)) - (declare-type make-struct-subclass-field-mutator (@lambda 3 #f)) (declare-type make-class-cached-slot-mutator (@lambda 3 #f)) - (declare-type make-class-slot-unchecked-accessor (@lambda 2 #f)) (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 class-slot-offset (@lambda 2 #f)) (declare-type class-slot-ref (@lambda 3 #f)) @@ -107,8 +99,8 @@ package: gerbil/runtime (%#begin (%#call (%#ref object-fill!) (%#ref $obj) (%#quote #f)) (%#ref $obj)))))))) (declare-type object-fill! (@lambda 2 #f)) - (declare-type make-instance (@lambda 1 #f)) - (declare-type make-struct-instance (@lambda (1) #f)) + (declare-type make-new-instance (@lambda 1 #f)) + (declare-type make-instance (@lambda (1) #f)) (declare-type make-class-instance (@lambda (1) #f)) (declare-type struct-instance-init! diff --git a/src/bootstrap/gerbil/runtime/mop__0.scm b/src/bootstrap/gerbil/runtime/mop__0.scm index 42af77fd6..2857d2206 100644 --- a/src/bootstrap/gerbil/runtime/mop__0.scm +++ b/src/bootstrap/gerbil/runtime/mop__0.scm @@ -1,2361 +1,2140 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop::timestamp 1707573210) + (define gerbil/runtime/mop::timestamp 1707674929) (begin (define type-id - (lambda (_klass84373_) - (if (let () (declare (not safe)) (type-descriptor? _klass84373_)) - (let () (declare (not safe)) (##type-id _klass84373_)) - (if (let () (declare (not safe)) (not _klass84373_)) + (lambda (_klass84815_) + (if (let () (declare (not safe)) (type-descriptor? _klass84815_)) + (let () (declare (not safe)) (##type-id _klass84815_)) + (if (let () (declare (not safe)) (not _klass84815_)) '#f - (error '"not a type descriptor" _klass84373_))))) + (error '"not a type descriptor" _klass84815_))))) (define type=? - (lambda (_x84370_ _y84371_) - (let ((__tmp88868 (let () (declare (not safe)) (type-id _x84370_))) - (__tmp88867 (let () (declare (not safe)) (type-id _y84371_)))) + (lambda (_x84812_ _y84813_) + (let ((__tmp89409 (let () (declare (not safe)) (type-id _x84812_))) + (__tmp89408 (let () (declare (not safe)) (type-id _y84813_)))) (declare (not safe)) - (eq? __tmp88868 __tmp88867)))) + (eq? __tmp89409 __tmp89408)))) (define type-descriptor? - (lambda (_klass84368_) - (if (let () (declare (not safe)) (##type? _klass84368_)) - (let ((__tmp88869 + (lambda (_klass84810_) + (if (let () (declare (not safe)) (##type? _klass84810_)) + (let ((__tmp89410 (let () (declare (not safe)) - (##structure-length _klass84368_)))) + (##structure-length _klass84810_)))) (declare (not safe)) - (eq? __tmp88869 '12)) + (eq? __tmp89410 '12)) '#f))) (define type-struct? - (lambda (_klass84366_) - (let ((__tmp88870 - (let () - (declare (not safe)) - (type-descriptor-properties _klass84366_)))) + (lambda (_klass84808_) + (let ((__tmp89411 + (let () (declare (not safe)) (##type-flags _klass84808_)))) (declare (not safe)) - (assgetq 'struct: __tmp88870)))) + (##fxbit-set? '21 __tmp89411)))) (define type-final? - (lambda (_klass84364_) - (let ((__tmp88871 - (let () - (declare (not safe)) - (type-descriptor-properties _klass84364_)))) + (lambda (_klass84806_) + (let ((__tmp89412 + (let () (declare (not safe)) (##type-flags _klass84806_)))) (declare (not safe)) - (assgetq 'final: __tmp88871)))) - (define struct-type? - (lambda (_klass84362_) - (if (let () (declare (not safe)) (type-descriptor? _klass84362_)) - (let () (declare (not safe)) (type-struct? _klass84362_)) - '#f))) + (##fxbit-set? '22 __tmp89412)))) (define class-type? - (lambda (_klass84360_) - (let () (declare (not safe)) (type-descriptor? _klass84360_)))) + (lambda (_klass84804_) + (let () (declare (not safe)) (type-descriptor? _klass84804_)))) (define properties-form - (lambda (_properties84326_) - (map (lambda (_e8432784329_) - (let* ((_g8433184338_ _e8432784329_) - (_E8433384342_ - (lambda () (error '"No clause matching" _g8433184338_))) - (_K8433484348_ - (lambda (_val84345_ _key84346_) + (lambda (_properties84770_) + (map (lambda (_e8477184773_) + (let* ((_g8477584782_ _e8477184773_) + (_E8477784786_ + (lambda () (error '"No clause matching" _g8477584782_))) + (_K8477884792_ + (lambda (_val84789_ _key84790_) (if (let () (declare (not safe)) - (eq? _key84346_ 'direct-supers:)) - (let ((__tmp88872 (map type-id _val84345_))) + (eq? _key84790_ 'direct-supers:)) + (let ((__tmp89413 (map type-id _val84789_))) (declare (not safe)) - (cons _key84346_ __tmp88872)) + (cons _key84790_ __tmp89413)) (let () (declare (not safe)) - (cons _key84346_ _val84345_)))))) - (if (let () (declare (not safe)) (##pair? _g8433184338_)) - (let ((_hd8433584351_ + (cons _key84790_ _val84789_)))))) + (if (let () (declare (not safe)) (##pair? _g8477584782_)) + (let ((_hd8477984795_ (let () (declare (not safe)) - (##car _g8433184338_))) - (_tl8433684353_ + (##car _g8477584782_))) + (_tl8478084797_ (let () (declare (not safe)) - (##cdr _g8433184338_)))) - (let* ((_key84356_ _hd8433584351_) - (_val84358_ _tl8433684353_)) + (##cdr _g8477584782_)))) + (let* ((_key84800_ _hd8477984795_) + (_val84802_ _tl8478084797_)) (declare (not safe)) - (_K8433484348_ _val84358_ _key84356_))) - (let () (declare (not safe)) (_E8433384342_))))) - _properties84326_))) + (_K8477884792_ _val84802_ _key84800_))) + (let () (declare (not safe)) (_E8477784786_))))) + _properties84770_))) (define make-type-descriptor - (lambda (_type-id84239_ - _type-name84240_ - _type-super84241_ - _precedence-list84242_ - _all-slots84243_ - _properties84244_ - _constructor84245_ - _slot-table84246_ - _methods84247_) - (letrec ((_make-props!84249_ - (lambda (_key84295_) - (letrec* ((_ht84297_ + (lambda (_type-id84677_ + _type-name84678_ + _type-super84679_ + _precedence-list84680_ + _all-slots84681_ + _properties84682_ + _constructor84683_ + _slot-table84684_ + _methods84685_) + (letrec ((_make-props!84687_ + (lambda (_key84739_) + (letrec* ((_ht84741_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_put-slots!84298_ - (lambda (_ht84319_ _slots84320_) + (_put-slots!84742_ + (lambda (_ht84763_ _slots84764_) (for-each - (lambda (_g8432184323_) + (lambda (_g8476584767_) (let () (declare (not safe)) (table-set! - _ht84319_ - _g8432184323_ + _ht84763_ + _g8476584767_ '#t))) - _slots84320_))) - (_put-alist!84299_ - (lambda (_ht84308_ _key84309_ _alist84310_) - (let ((_$e84312_ + _slots84764_))) + (_put-alist!84743_ + (lambda (_ht84752_ _key84753_ _alist84754_) + (let ((_$e84756_ (let () (declare (not safe)) - (assgetq _key84309_ _alist84310_)))) - (if _$e84312_ - ((lambda (_g8431484316_) + (assgetq _key84753_ _alist84754_)))) + (if _$e84756_ + ((lambda (_g8475884760_) (let () (declare (not safe)) - (_put-slots!84298_ - _ht84308_ - _g8431484316_))) - _$e84312_) + (_put-slots!84742_ + _ht84752_ + _g8475884760_))) + _$e84756_) '#!void))))) (let () (declare (not safe)) - (_put-alist!84299_ - _ht84297_ - _key84295_ - _properties84244_)) + (_put-alist!84743_ + _ht84741_ + _key84739_ + _properties84682_)) (for-each - (lambda (_mixin84301_) - (let ((_alist84303_ + (lambda (_mixin84745_) + (let ((_alist84747_ (let () (declare (not safe)) - (type-descriptor-properties _mixin84301_)))) + (type-descriptor-properties _mixin84745_)))) (if (or (let () (declare (not safe)) - (assgetq 'transparent: _alist84303_)) - (let ((__tmp88874 + (assgetq 'transparent: _alist84747_)) + (let ((__tmp89415 (let () (declare (not safe)) - (assgetq _key84295_ - _alist84303_)))) + (assgetq _key84739_ + _alist84747_)))) (declare (not safe)) - (eq? '#t __tmp88874))) - (let ((__tmp88873 - (cdr (vector->list - (let () - (declare (not safe)) - (type-descriptor-all-slots - _mixin84301_)))))) + (eq? '#t __tmp89415))) + (let ((__tmp89414 + (let () + (declare (not safe)) + (type-descriptor-slot-list + _mixin84745_)))) (declare (not safe)) - (_put-slots!84298_ _ht84297_ __tmp88873)) + (_put-slots!84742_ _ht84741_ __tmp89414)) (let () (declare (not safe)) - (_put-alist!84299_ - _ht84297_ - _key84295_ - _alist84303_))))) - _precedence-list84242_) - _ht84297_)))) - (let* ((_transparent?84251_ + (_put-alist!84743_ + _ht84741_ + _key84739_ + _alist84747_))))) + _precedence-list84680_) + _ht84741_)))) + (let* ((_transparent?84689_ (let () (declare (not safe)) - (assgetq 'transparent: _properties84244_))) - (_all-slots-printable?84256_ - (let ((_$e84253_ _transparent?84251_)) - (if _$e84253_ - _$e84253_ - (let ((__tmp88875 + (assgetq 'transparent: _properties84682_))) + (_all-slots-printable?84694_ + (let ((_$e84691_ _transparent?84689_)) + (if _$e84691_ + _$e84691_ + (let ((__tmp89416 (let () (declare (not safe)) - (assgetq 'print: _properties84244_)))) + (assgetq 'print: _properties84682_)))) (declare (not safe)) - (eq? '#t __tmp88875))))) - (_printable84258_ + (eq? '#t __tmp89416))))) + (_printable84696_ (if (let () (declare (not safe)) - (not _all-slots-printable?84256_)) + (not _all-slots-printable?84694_)) (let () (declare (not safe)) - (_make-props!84249_ 'print:)) + (_make-props!84687_ 'print:)) '#f)) - (_all-slots-equalable?84263_ - (let ((_$e84260_ _transparent?84251_)) - (if _$e84260_ - _$e84260_ - (let ((__tmp88876 + (_all-slots-equalable?84701_ + (let ((_$e84698_ _transparent?84689_)) + (if _$e84698_ + _$e84698_ + (let ((__tmp89417 (let () (declare (not safe)) - (assgetq 'equal: _properties84244_)))) + (assgetq 'equal: _properties84682_)))) (declare (not safe)) - (eq? '#t __tmp88876))))) - (_equalable84265_ + (eq? '#t __tmp89417))))) + (_equalable84703_ (if (let () (declare (not safe)) - (not _all-slots-equalable?84263_)) + (not _all-slots-equalable?84701_)) (let () (declare (not safe)) - (_make-props!84249_ 'equal:)) + (_make-props!84687_ 'equal:)) '#f)) - (_first-new-field84267_ - (if _type-super84241_ - (let ((__tmp88877 + (_first-new-field84705_ + (if _type-super84679_ + (let ((__tmp89418 (let () (declare (not safe)) - (type-descriptor-all-slots _type-super84241_)))) + (type-descriptor-all-slots _type-super84679_)))) (declare (not safe)) - (##vector-length __tmp88877)) + (##vector-length __tmp89418)) '1)) - (_field-info-length84269_ - (let ((__tmp88878 - (let ((__tmp88879 + (_field-info-length84707_ + (let ((__tmp89419 + (let ((__tmp89420 (let () (declare (not safe)) - (##vector-length _all-slots84243_)))) + (##vector-length _all-slots84681_)))) (declare (not safe)) - (##fx- __tmp88879 _first-new-field84267_)))) + (##fx- __tmp89420 _first-new-field84705_)))) + (declare (not safe)) + (##fx* '3 __tmp89419))) + (_field-info84709_ (make-vector _field-info-length84707_ '#f)) + (_struct?84711_ + (let () + (declare (not safe)) + (assgetq 'struct: _properties84682_))) + (_final?84713_ + (let () (declare (not safe)) - (##fx* '3 __tmp88878))) - (_field-info84271_ (make-vector _field-info-length84269_ '#f)) - (_opaque?84276_ - (let ((_$e84273_ + (assgetq 'final: _properties84682_))) + (_opaque?84718_ + (let ((_$e84715_ (let () (declare (not safe)) - (not _all-slots-equalable?84263_)))) - (if _$e84273_ - _$e84273_ - (if _type-super84241_ - (let ((__tmp88880 - (let ((__tmp88881 + (not _all-slots-equalable?84701_)))) + (if _$e84715_ + _$e84715_ + (if _type-super84679_ + (let ((__tmp89421 + (let ((__tmp89422 (let () (declare (not safe)) - (##type-flags _type-super84241_)))) + (##type-flags _type-super84679_)))) (declare (not safe)) - (##fxand __tmp88881 '1)))) + (##fxand __tmp89422 '1)))) (declare (not safe)) - (##fx= __tmp88880 '1)) - '#f))))) - (let _loop84279_ ((_i84281_ _first-new-field84267_) (_j84282_ '0)) + (##fx= __tmp89421 '1)) + '#f)))) + (_type-flags84720_ + (let ((__tmp89425 (if _opaque?84718_ '1 '0)) + (__tmp89424 + (if _struct?84711_ + (let () + (declare (not safe)) + (##fxarithmetic-shift '1 '21)) + '0)) + (__tmp89423 + (if _final?84713_ + (let () + (declare (not safe)) + (##fxarithmetic-shift '1 '22)) + '0))) + (declare (not safe)) + (##fxior '24 __tmp89425 __tmp89424 __tmp89423)))) + (let _loop84723_ ((_i84725_ _first-new-field84705_) (_j84726_ '0)) (if (let () (declare (not safe)) - (##fx< _j84282_ _field-info-length84269_)) - (let* ((_slot84284_ + (##fx< _j84726_ _field-info-length84707_)) + (let* ((_slot84728_ (let () (declare (not safe)) - (##vector-ref _all-slots84243_ _i84281_))) - (_flags84292_ - (if _transparent?84251_ + (##vector-ref _all-slots84681_ _i84725_))) + (_flags84736_ + (if _transparent?84689_ '0 - (let ((__tmp88883 - (if (or _all-slots-printable?84256_ + (let ((__tmp89427 + (if (or _all-slots-printable?84694_ (let () (declare (not safe)) (table-ref - _printable84258_ - _slot84284_ + _printable84696_ + _slot84728_ '#f))) '0 '1)) - (__tmp88882 - (if (or _all-slots-equalable?84263_ + (__tmp89426 + (if (or _all-slots-equalable?84701_ (let () (declare (not safe)) (table-ref - _equalable84265_ - _slot84284_ + _equalable84703_ + _slot84728_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp88883 __tmp88882))))) - (vector-set! _field-info84271_ _j84282_ _slot84284_) + (##fxior __tmp89427 __tmp89426))))) + (vector-set! _field-info84709_ _j84726_ _slot84728_) (vector-set! - _field-info84271_ - (let () (declare (not safe)) (##fx+ _j84282_ '1)) - _flags84292_) - (let ((__tmp88885 - (let () (declare (not safe)) (##fx+ _i84281_ '1))) - (__tmp88884 - (let () (declare (not safe)) (##fx+ _j84282_ '3)))) + _field-info84709_ + (let () (declare (not safe)) (##fx+ _j84726_ '1)) + _flags84736_) + (let ((__tmp89429 + (let () (declare (not safe)) (##fx+ _i84725_ '1))) + (__tmp89428 + (let () (declare (not safe)) (##fx+ _j84726_ '3)))) (declare (not safe)) - (_loop84279_ __tmp88885 __tmp88884))) + (_loop84723_ __tmp89429 __tmp89428))) '#!void)) - (let ((__tmp88886 (if _opaque?84276_ '25 '24))) + (let () (declare (not safe)) (##structure ##type-type - _type-id84239_ - _type-name84240_ - __tmp88886 - _type-super84241_ - _field-info84271_ - _precedence-list84242_ - _all-slots84243_ - _slot-table84246_ - _properties84244_ - _constructor84245_ - _methods84247_)))))) + _type-id84677_ + _type-name84678_ + _type-flags84720_ + _type-super84679_ + _field-info84709_ + _precedence-list84680_ + _all-slots84681_ + _slot-table84684_ + _properties84682_ + _constructor84683_ + _methods84685_)))))) (define type-descriptor-precedence-list - (lambda (_klass84237_) + (lambda (_klass84675_) (let () (declare (not safe)) (##structure-ref - _klass84237_ + _klass84675_ '6 ##type-type type-descriptor-precedence-list)))) (define type-descriptor-all-slots - (lambda (_klass84235_) + (lambda (_klass84673_) (let () (declare (not safe)) (##structure-ref - _klass84235_ + _klass84673_ '7 ##type-type type-descriptor-all-slots)))) (define type-descriptor-slot-table - (lambda (_klass84233_) + (lambda (_klass84671_) (let () (declare (not safe)) (##structure-ref - _klass84233_ + _klass84671_ '8 ##type-type type-descriptor-slot-table)))) (define type-descriptor-properties - (lambda (_klass84231_) + (lambda (_klass84669_) (let () (declare (not safe)) (##structure-ref - _klass84231_ + _klass84669_ '9 ##type-type type-descriptor-properties)))) (define type-descriptor-constructor - (lambda (_klass84229_) + (lambda (_klass84667_) (let () (declare (not safe)) (##structure-ref - _klass84229_ + _klass84667_ '10 ##type-type type-descriptor-constructor)))) (define type-descriptor-methods - (lambda (_klass84227_) + (lambda (_klass84665_) (let () (declare (not safe)) (##structure-ref - _klass84227_ + _klass84665_ '11 ##type-type type-descriptor-methods)))) (define type-descriptor-methods-set! - (lambda (_klass84224_ _ht84225_) + (lambda (_klass84662_ _ht84663_) (let () (declare (not safe)) (##structure-set! - _klass84224_ - _ht84225_ + _klass84662_ + _ht84663_ '11 ##type-type type-descriptor-methods-set!)))) + (define type-descriptor-slot-list + (lambda (_klass84660_) + (cdr (vector->list + (let () + (declare (not safe)) + (type-descriptor-all-slots _klass84660_)))))) (define type-descriptor-fields - (lambda (_klass84222_) - (let ((__tmp88887 - (let ((__tmp88888 + (lambda (_klass84658_) + (let ((__tmp89430 + (let ((__tmp89431 (let () (declare (not safe)) - (type-descriptor-all-slots _klass84222_)))) + (type-descriptor-all-slots _klass84658_)))) (declare (not safe)) - (##vector-length __tmp88888)))) + (##vector-length __tmp89431)))) (declare (not safe)) - (##fx- __tmp88887 '1)))) + (##fx- __tmp89430 '1)))) (define type-descriptor-sealed? - (lambda (_klass84220_) - (let ((__tmp88889 - (let () (declare (not safe)) (##type-flags _klass84220_)))) + (lambda (_klass84656_) + (let ((__tmp89432 + (let () (declare (not safe)) (##type-flags _klass84656_)))) (declare (not safe)) - (##fxbit-set? '20 __tmp88889)))) + (##fxbit-set? '20 __tmp89432)))) (define type-descriptor-seal! - (lambda (_klass84218_) - (let ((__tmp88890 - (let ((__tmp88892 + (lambda (_klass84654_) + (let ((__tmp89433 + (let ((__tmp89435 (let () (declare (not safe)) (##fxarithmetic-shift '1 '20))) - (__tmp88891 + (__tmp89434 (let () (declare (not safe)) - (##type-flags _klass84218_)))) + (##type-flags _klass84654_)))) (declare (not safe)) - (##fxior __tmp88892 __tmp88891)))) + (##fxior __tmp89435 __tmp89434)))) (declare (not safe)) (##structure-set! - _klass84218_ - __tmp88890 + _klass84654_ + __tmp89433 '3 ##type-type type-descriptor-seal!)))) - (define make-struct-type - (lambda (_id84199_ - _name84200_ - _super84201_ - _direct-slots84202_ - _properties84203_ - _constructor84204_) - (if (and _super84201_ - (let ((__tmp88893 - (let () - (declare (not safe)) - (struct-type? _super84201_)))) - (declare (not safe)) - (not __tmp88893))) - (error '"illegal super type; not a struct-type" _super84201_) - '#!void) - (let* ((_type84206_ - (let ((__tmp88896 - (if _super84201_ - (let () - (declare (not safe)) - (cons _super84201_ '())) - '())) - (__tmp88894 - (if (let () - (declare (not safe)) - (assgetq 'struct: _properties84203_)) - _properties84203_ - (let ((__tmp88895 - (let () - (declare (not safe)) - (cons 'struct: '#t)))) - (declare (not safe)) - (cons __tmp88895 _properties84203_))))) - (declare (not safe)) - (make-class-type - _id84199_ - _name84200_ - __tmp88896 - _direct-slots84202_ - __tmp88894 - _constructor84204_))) - (_all-slots84208_ - (let () - (declare (not safe)) - (type-descriptor-all-slots _type84206_))) - (_len84210_ (length _direct-slots84202_)) - (_start84212_ - (let ((__tmp88897 - (let () - (declare (not safe)) - (##vector-length _all-slots84208_)))) - (declare (not safe)) - (##fx- __tmp88897 _len84210_)))) - (if (let ((__tmp88899 - (lambda (_slot84215_ _i84216_) - (let ((__tmp88900 - (let () - (declare (not safe)) - (##vector-ref _all-slots84208_ _i84216_)))) - (declare (not safe)) - (eq? _slot84215_ __tmp88900)))) - (__tmp88898 - (let () - (declare (not safe)) - (iota _len84210_ _start84212_)))) - (declare (not safe)) - (andmap2 __tmp88899 _direct-slots84202_ __tmp88898)) - '#!void - (error '"non-unique slots in struct" - _name84200_ - _direct-slots84202_)) - _type84206_))) - (define make-struct-predicate - (lambda (_klass84191_) - (let ((_tid84193_ - (let () (declare (not safe)) (##type-id _klass84191_)))) - (if (let () (declare (not safe)) (type-final? _klass84191_)) - (lambda (_obj84195_) - (let () - (declare (not safe)) - (##structure-direct-instance-of? _obj84195_ _tid84193_))) - (lambda (_obj84197_) - (let () - (declare (not safe)) - (##structure-instance-of? _obj84197_ _tid84193_))))))) - (define make-struct-slot-accessor - (lambda (_klass84179_ _slot84180_) - (let ((_$e84182_ - (let () - (declare (not safe)) - (class-slot-offset _klass84179_ _slot84180_)))) - (if _$e84182_ - ((lambda (_off84185_) - (if (let () (declare (not safe)) (type-final? _klass84179_)) - (lambda (_obj84187_) - (let () - (declare (not safe)) - (##direct-structure-ref - _obj84187_ - _off84185_ - _klass84179_ - '#f))) - (lambda (_obj84189_) - (let () - (declare (not safe)) - (##structure-ref - _obj84189_ - _off84185_ - _klass84179_ - '#f))))) - _$e84182_) - (error '"unknown slot" - 'class: - _klass84179_ - 'slot: - _slot84180_))))) - (define make-struct-slot-mutator - (lambda (_klass84165_ _slot84166_) - (let ((_$e84168_ - (let () - (declare (not safe)) - (class-slot-offset _klass84165_ _slot84166_)))) - (if _$e84168_ - ((lambda (_off84171_) - (if (let () (declare (not safe)) (type-final? _klass84165_)) - (lambda (_obj84173_ _val84174_) - (let () - (declare (not safe)) - (##direct-structure-set! - _obj84173_ - _val84174_ - _off84171_ - _klass84165_ - '#f))) - (lambda (_obj84176_ _val84177_) - (let () - (declare (not safe)) - (##structure-set! - _obj84176_ - _val84177_ - _off84171_ - _klass84165_ - '#f))))) - _$e84168_) - (error '"unknown slot" - 'class: - _klass84165_ - 'slot: - _slot84166_))))) - (define make-struct-slot-unchecked-accessor - (lambda (_klass84155_ _slot84156_) - (let ((_$e84158_ - (let () - (declare (not safe)) - (class-slot-offset _klass84155_ _slot84156_)))) - (if _$e84158_ - ((lambda (_off84161_) - (lambda (_obj84163_) - (let () - (declare (not safe)) - (##unchecked-structure-ref - _obj84163_ - _off84161_ - _klass84155_ - '#f)))) - _$e84158_) - (error '"unknown slot" - 'class: - _klass84155_ - 'slot: - _slot84156_))))) - (define make-struct-slot-unchecked-mutator - (lambda (_klass84144_ _slot84145_) - (let ((_$e84147_ - (let () - (declare (not safe)) - (class-slot-offset _klass84144_ _slot84145_)))) - (if _$e84147_ - ((lambda (_off84150_) - (lambda (_obj84152_ _val84153_) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _obj84152_ - _val84153_ - _off84150_ - _klass84144_ - '#f)))) - _$e84147_) - (error '"unknown slot" - 'class: - _klass84144_ - 'slot: - _slot84145_))))) - (define make-final-field-accessor - (lambda (_klass84138_ _slot84139_ _field84140_) - (lambda (_obj84142_) - (let () - (declare (not safe)) - (##direct-structure-ref - _obj84142_ - _field84140_ - _klass84138_ - _slot84139_))))) - (define make-struct-field-accessor - (lambda (_klass84132_ _slot84133_ _field84134_) - (lambda (_obj84136_) - (let () - (declare (not safe)) - (##structure-ref - _obj84136_ - _field84134_ - _klass84132_ - _slot84133_))))) - (define make-final-field-mutator - (lambda (_klass84125_ _slot84126_ _field84127_) - (lambda (_obj84129_ _val84130_) - (let () - (declare (not safe)) - (##direct-structure-set! - _obj84129_ - _val84130_ - _field84127_ - _klass84125_ - _slot84126_))))) - (define make-struct-field-mutator - (lambda (_klass84118_ _slot84119_ _field84120_) - (lambda (_obj84122_ _val84123_) - (let () - (declare (not safe)) - (##structure-set! - _obj84122_ - _val84123_ - _field84120_ - _klass84118_ - _slot84119_))))) - (define make-struct-field-unchecked-accessor - (lambda (_klass84112_ _slot84113_ _field84114_) - (lambda (_obj84116_) - (let () - (declare (not safe)) - (##unchecked-structure-ref - _obj84116_ - _field84114_ - _klass84112_ - _slot84113_))))) - (define make-struct-field-unchecked-mutator - (lambda (_klass84105_ _slot84106_ _field84107_) - (lambda (_obj84109_ _val84110_) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _obj84109_ - _val84110_ - _field84107_ - _klass84105_ - _slot84106_))))) (define substruct? - (lambda (_maybe-sub-struct84096_ _maybe-super-struct84097_) - (let ((_maybe-super-struct-id84099_ + (lambda (_maybe-sub-struct84645_ _maybe-super-struct84646_) + (let ((_maybe-super-struct-id84648_ (let () (declare (not safe)) - (##type-id _maybe-super-struct84097_)))) - (let _lp84101_ ((_super-struct84103_ _maybe-sub-struct84096_)) - (if (let () (declare (not safe)) (not _super-struct84103_)) + (##type-id _maybe-super-struct84646_)))) + (let _lp84650_ ((_super-struct84652_ _maybe-sub-struct84645_)) + (if (let () (declare (not safe)) (not _super-struct84652_)) '#f - (if (let ((__tmp88902 + (if (let ((__tmp89437 (let () (declare (not safe)) - (type-id _super-struct84103_)))) + (type-id _super-struct84652_)))) (declare (not safe)) - (eq? _maybe-super-struct-id84099_ __tmp88902)) + (eq? _maybe-super-struct-id84648_ __tmp89437)) '#t - (let ((__tmp88901 + (let ((__tmp89436 (let () (declare (not safe)) - (##type-super _super-struct84103_)))) + (##type-super _super-struct84652_)))) (declare (not safe)) - (_lp84101_ __tmp88901)))))))) + (_lp84650_ __tmp89436)))))))) (define base-struct/1 - (lambda (_klass84094_) - (if (let () (declare (not safe)) (struct-type? _klass84094_)) - _klass84094_ - (if (let () (declare (not safe)) (class-type? _klass84094_)) - (let () (declare (not safe)) (##type-super _klass84094_)) - (if (let () (declare (not safe)) (not _klass84094_)) - '#f - (error '"not a class or false" _klass84094_)))))) + (lambda (_klass84643_) + (if (let () (declare (not safe)) (class-type? _klass84643_)) + (if (let () (declare (not safe)) (type-struct? _klass84643_)) + _klass84643_ + (let () (declare (not safe)) (##type-super _klass84643_))) + (if (let () (declare (not safe)) (not _klass84643_)) + '#f + (error '"not a class or false" _klass84643_))))) (define base-struct/2 - (lambda (_klass184082_ _klass284083_) - (let ((_s184085_ - (let () (declare (not safe)) (base-struct/1 _klass184082_))) - (_s284086_ - (let () (declare (not safe)) (base-struct/1 _klass284083_)))) - (if (or (let () (declare (not safe)) (not _s184085_)) - (and _s284086_ + (lambda (_klass184631_ _klass284632_) + (let ((_s184634_ + (let () (declare (not safe)) (base-struct/1 _klass184631_))) + (_s284635_ + (let () (declare (not safe)) (base-struct/1 _klass284632_)))) + (if (or (let () (declare (not safe)) (not _s184634_)) + (and _s284635_ (let () (declare (not safe)) - (substruct? _s184085_ _s284086_)))) - _s284086_ - (if (or (let () (declare (not safe)) (not _s284086_)) - (and _s184085_ + (substruct? _s184634_ _s284635_)))) + _s284635_ + (if (or (let () (declare (not safe)) (not _s284635_)) + (and _s184634_ (let () (declare (not safe)) - (substruct? _s284086_ _s184085_)))) - _s184085_ + (substruct? _s284635_ _s184634_)))) + _s184634_ (error '"bad mixin: incompatible struct bases" - _klass184082_ - _klass284083_ - _s184085_ - _s284086_)))))) + _klass184631_ + _klass284632_ + _s184634_ + _s284635_)))))) (define base-struct/list - (lambda (_all-supers83966_) - (let* ((_all-supers8396783992_ _all-supers83966_) - (_E8397283996_ + (lambda (_all-supers84515_) + (let* ((_all-supers8451684541_ _all-supers84515_) + (_E8452184545_ (lambda () - (error '"No clause matching" _all-supers8396783992_)))) - (let ((_K8399084079_ (lambda () '#f)) - (_K8398784065_ - (lambda (_x84063_) - (let () (declare (not safe)) (base-struct/1 _x84063_)))) - (_K8398284042_ - (lambda (_y84039_ _x84040_) + (error '"No clause matching" _all-supers8451684541_)))) + (let ((_K8453984628_ (lambda () '#f)) + (_K8453684614_ + (lambda (_x84612_) + (let () (declare (not safe)) (base-struct/1 _x84612_)))) + (_K8453184591_ + (lambda (_y84588_ _x84589_) (let () (declare (not safe)) - (base-struct/2 _x84040_ _y84039_)))) - (_K8397384003_ - (lambda (_y84000_ _x84001_) + (base-struct/2 _x84589_ _y84588_)))) + (_K8452284552_ + (lambda (_y84549_ _x84550_) (let () (declare (not safe)) - (foldr1 base-struct/2 _x84001_ _y84000_))))) - (let* ((___match8886388864_ - (lambda (_hd8397484006_ _tl8397584008_) - (let ((_x84011_ _hd8397484006_)) - (letrec ((_splice-rest8397784013_ - (lambda (_rest8398184020_ _y84022_) + (foldr1 base-struct/2 _x84550_ _y84549_))))) + (let* ((___match8940589406_ + (lambda (_hd8452384555_ _tl8452484557_) + (let ((_x84560_ _hd8452384555_)) + (letrec ((_splice-rest8452684562_ + (lambda (_rest8453084569_ _y84571_) (if (let () (declare (not safe)) - (##null? _rest8398184020_)) + (##null? _rest8453084569_)) (let () (declare (not safe)) - (_K8397384003_ _y84022_ _x84011_)) + (_K8452284552_ _y84571_ _x84560_)) (let () (declare (not safe)) - (_E8397283996_))))) - (_splice-try8397984015_ - (lambda (_hd8398084024_ - _rest8398184026_ - _y8397684027_) - (let ((_y84030_ _hd8398084024_)) - (let ((__tmp88904 + (_E8452184545_))))) + (_splice-try8452884564_ + (lambda (_hd8452984573_ + _rest8453084575_ + _y8452584576_) + (let ((_y84579_ _hd8452984573_)) + (let ((__tmp89439 (let () (declare (not safe)) - (##cdr _rest8398184026_))) - (__tmp88903 + (##cdr _rest8453084575_))) + (__tmp89438 (let () (declare (not safe)) - (cons _y84030_ _y8397684027_)))) + (cons _y84579_ _y8452584576_)))) (declare (not safe)) - (_splice-loop8397884017_ - __tmp88904 - __tmp88903))))) - (_splice-loop8397884017_ - (lambda (_rest8398184032_ _y8397684033_) + (_splice-loop8452784566_ + __tmp89439 + __tmp89438))))) + (_splice-loop8452784566_ + (lambda (_rest8453084581_ _y8452584582_) (if (let () (declare (not safe)) - (pair? _rest8398184032_)) - (let ((__tmp88906 + (pair? _rest8453084581_)) + (let ((__tmp89441 (let () (declare (not safe)) - (##car _rest8398184032_)))) + (##car _rest8453084581_)))) (declare (not safe)) - (_splice-try8397984015_ - __tmp88906 - _rest8398184032_ - _y8397684033_)) - (let ((__tmp88905 - (reverse _y8397684033_))) + (_splice-try8452884564_ + __tmp89441 + _rest8453084581_ + _y8452584582_)) + (let ((__tmp89440 + (reverse _y8452584582_))) (declare (not safe)) - (_splice-rest8397784013_ - _rest8398184032_ - __tmp88905)))))) + (_splice-rest8452684562_ + _rest8453084581_ + __tmp89440)))))) (let () (declare (not safe)) - (_splice-loop8397884017_ _tl8397584008_ '())))))) - (_try-match8396984075_ + (_splice-loop8452784566_ _tl8452484557_ '())))))) + (_try-match8451884624_ (lambda () (if (let () (declare (not safe)) - (##pair? _all-supers8396783992_)) - (let ((_tl8398984070_ + (##pair? _all-supers8451684541_)) + (let ((_tl8453884619_ (let () (declare (not safe)) - (##cdr _all-supers8396783992_))) - (_hd8398884068_ + (##cdr _all-supers8451684541_))) + (_hd8453784617_ (let () (declare (not safe)) - (##car _all-supers8396783992_)))) + (##car _all-supers8451684541_)))) (if (let () (declare (not safe)) - (##null? _tl8398984070_)) - (let ((_x84073_ _hd8398884068_)) + (##null? _tl8453884619_)) + (let ((_x84622_ _hd8453784617_)) (declare (not safe)) - (base-struct/1 _x84073_)) + (base-struct/1 _x84622_)) (if (let () (declare (not safe)) - (##pair? _tl8398984070_)) - (let ((_tl8398684054_ + (##pair? _tl8453884619_)) + (let ((_tl8453584603_ (let () (declare (not safe)) - (##cdr _tl8398984070_))) - (_hd8398584052_ + (##cdr _tl8453884619_))) + (_hd8453484601_ (let () (declare (not safe)) - (##car _tl8398984070_)))) + (##car _tl8453884619_)))) (if (let () (declare (not safe)) - (##null? _tl8398684054_)) - (let ((_x84050_ _hd8398884068_) - (_y84057_ _hd8398584052_)) + (##null? _tl8453584603_)) + (let ((_x84599_ _hd8453784617_) + (_y84606_ _hd8453484601_)) (let () (declare (not safe)) - (_K8398284042_ - _y84057_ - _x84050_))) - (___match8886388864_ - _hd8398884068_ - _tl8398984070_))) - (___match8886388864_ - _hd8398884068_ - _tl8398984070_)))) - (let () (declare (not safe)) (_E8397283996_)))))) + (_K8453184591_ + _y84606_ + _x84599_))) + (___match8940589406_ + _hd8453784617_ + _tl8453884619_))) + (___match8940589406_ + _hd8453784617_ + _tl8453884619_)))) + (let () (declare (not safe)) (_E8452184545_)))))) (if (let () (declare (not safe)) - (##null? _all-supers8396783992_)) - (let () (declare (not safe)) (_K8399084079_)) - (let () (declare (not safe)) (_try-match8396984075_)))))))) + (##null? _all-supers8451684541_)) + (let () (declare (not safe)) (_K8453984628_)) + (let () (declare (not safe)) (_try-match8451884624_)))))))) (define base-struct - (lambda _all-supers83964_ - (let () (declare (not safe)) (base-struct/list _all-supers83964_)))) - (define find-super-ctor - (lambda (_super83962_) - (let () (declare (not safe)) (find-super-constructor _super83962_)))) + (lambda _all-supers84513_ + (let () (declare (not safe)) (base-struct/list _all-supers84513_)))) (define find-super-constructor - (lambda (_super83914_) - (let _lp83916_ ((_rest83918_ _super83914_) (_constructor83919_ '#f)) - (let* ((_rest8392083928_ _rest83918_) - (_else8392283936_ (lambda () _constructor83919_)) - (_K8392483950_ - (lambda (_rest83939_ _hd83940_) - (let ((_$e83942_ + (lambda (_super84465_) + (let _lp84467_ ((_rest84469_ _super84465_) (_constructor84470_ '#f)) + (let* ((_rest8447184479_ _rest84469_) + (_else8447384487_ (lambda () _constructor84470_)) + (_K8447584501_ + (lambda (_rest84490_ _hd84491_) + (let ((_$e84493_ (let () (declare (not safe)) - (type-descriptor-constructor _hd83940_)))) - (if _$e83942_ - ((lambda (_xconstructor83945_) + (type-descriptor-constructor _hd84491_)))) + (if _$e84493_ + ((lambda (_xconstructor84496_) (if (or (let () (declare (not safe)) - (not _constructor83919_)) + (not _constructor84470_)) (let () (declare (not safe)) - (eq? _constructor83919_ - _xconstructor83945_))) + (eq? _constructor84470_ + _xconstructor84496_))) (let () (declare (not safe)) - (_lp83916_ _rest83939_ _xconstructor83945_)) + (_lp84467_ _rest84490_ _xconstructor84496_)) (error '"conflicting implicit constructors" - _constructor83919_ - _xconstructor83945_))) - _$e83942_) + _constructor84470_ + _xconstructor84496_))) + _$e84493_) (let () (declare (not safe)) - (_lp83916_ _rest83939_ _constructor83919_))))))) - (if (let () (declare (not safe)) (##pair? _rest8392083928_)) - (let ((_hd8392583953_ - (let () (declare (not safe)) (##car _rest8392083928_))) - (_tl8392683955_ - (let () (declare (not safe)) (##cdr _rest8392083928_)))) - (let* ((_hd83958_ _hd8392583953_) - (_rest83960_ _tl8392683955_)) + (_lp84467_ _rest84490_ _constructor84470_))))))) + (if (let () (declare (not safe)) (##pair? _rest8447184479_)) + (let ((_hd8447684504_ + (let () (declare (not safe)) (##car _rest8447184479_))) + (_tl8447784506_ + (let () (declare (not safe)) (##cdr _rest8447184479_)))) + (let* ((_hd84509_ _hd8447684504_) + (_rest84511_ _tl8447784506_)) (declare (not safe)) - (_K8392483950_ _rest83960_ _hd83958_))) - (let () (declare (not safe)) (_else8392283936_))))))) + (_K8447584501_ _rest84511_ _hd84509_))) + (let () (declare (not safe)) (_else8447384487_))))))) (define compute-class-slots - (lambda (_super-struct83885_ - _class-precedence-list83886_ - _direct-slots83887_) - (let* ((_previous-slots83889_ - (if _super-struct83885_ - (let () - (declare (not safe)) - (type-descriptor-all-slots _super-struct83885_)) - '#(#f))) - (_next-slot83891_ - (let () - (declare (not safe)) - (##vector-length _previous-slots83889_))) - (_slot-table83893_ - (if _super-struct83885_ - (let ((__tmp88907 - (let () - (declare (not safe)) - (type-descriptor-slot-table - _super-struct83885_)))) - (declare (not safe)) - (hash-copy __tmp88907)) - (let () (declare (not safe)) (make-table 'test: eq?)))) - (_r-slots83895_ '()) - (_process-slot83899_ - (lambda (_slot83897_) - (if (let () (declare (not safe)) (symbol? _slot83897_)) + (lambda (_class-precedence-list84441_ _direct-slots84442_) + (let* ((_next-slot84444_ '1) + (_slot-table84446_ + (let () (declare (not safe)) (make-table 'test: eq?))) + (_r-slots84448_ (let () (declare (not safe)) (cons '#f '()))) + (_process-slot84452_ + (lambda (_slot84450_) + (if (let () (declare (not safe)) (symbol? _slot84450_)) '#!void - (error '"invalid slot name" _slot83897_)) + (error '"invalid slot name" _slot84450_)) (if (let () (declare (not safe)) - (hash-key? _slot-table83893_ _slot83897_)) + (hash-key? _slot-table84446_ _slot84450_)) '#!void (begin (let () (declare (not safe)) (table-set! - _slot-table83893_ - _slot83897_ - _next-slot83891_)) - (let ((__tmp88908 (symbol->keyword _slot83897_))) + _slot-table84446_ + _slot84450_ + _next-slot84444_)) + (let ((__tmp89442 (symbol->keyword _slot84450_))) (declare (not safe)) (table-set! - _slot-table83893_ - __tmp88908 - _next-slot83891_)) - (set! _r-slots83895_ + _slot-table84446_ + __tmp89442 + _next-slot84444_)) + (set! _r-slots84448_ (let () (declare (not safe)) - (cons _slot83897_ _r-slots83895_))) - (set! _next-slot83891_ + (cons _slot84450_ _r-slots84448_))) + (set! _next-slot84444_ (let () (declare (not safe)) - (##fx+ _next-slot83891_ '1))))))) - (_process-slots83905_ - (lambda (_g8390083902_) - (for-each _process-slot83899_ _g8390083902_)))) + (##fx+ _next-slot84444_ '1))))))) + (_process-slots84458_ + (lambda (_g8445384455_) + (for-each _process-slot84452_ _g8445384455_)))) (for-each - (lambda (_mixin83908_) - (if (let () (declare (not safe)) (type-struct? _mixin83908_)) - '#!void - (let ((__tmp88909 - (let ((__tmp88910 - (let () - (declare (not safe)) - (type-descriptor-properties _mixin83908_)))) - (declare (not safe)) - (assgetq 'direct-slots: __tmp88910 '())))) - (declare (not safe)) - (_process-slots83905_ __tmp88909)))) - (reverse _class-precedence-list83886_)) + (lambda (_mixin84461_) + (let ((__tmp89443 + (let ((__tmp89444 + (let () + (declare (not safe)) + (type-descriptor-properties _mixin84461_)))) + (declare (not safe)) + (assgetq 'direct-slots: __tmp89444 '())))) + (declare (not safe)) + (_process-slots84458_ __tmp89443))) + (reverse _class-precedence-list84441_)) (let () (declare (not safe)) - (_process-slots83905_ _direct-slots83887_)) - (let ((_all-slots83910_ (make-vector _next-slot83891_ '#f))) - (vector-copy! _all-slots83910_ '0 _previous-slots83889_) - (for-each - (lambda (_slot83912_) - (set! _next-slot83891_ - (let () (declare (not safe)) (##fx- _next-slot83891_ '1))) - (vector-set! _all-slots83910_ _next-slot83891_ _slot83912_)) - _r-slots83895_) - (values _all-slots83910_ _slot-table83893_))))) + (_process-slots84458_ _direct-slots84442_)) + (let ((_all-slots84463_ (list->vector (reverse _r-slots84448_)))) + (values _all-slots84463_ _slot-table84446_))))) (define make-class-type - (lambda (_id83847_ - _name83848_ - _direct-supers83849_ - _direct-slots83850_ - _properties83851_ - _constructor83852_) - (let ((_$e83856_ - (let ((__tmp88911 - (lambda (_klass83854_) - (let ((__tmp88912 + (lambda (_id84404_ + _name84405_ + _direct-supers84406_ + _direct-slots84407_ + _properties84408_ + _constructor84409_) + (let ((_$e84413_ + (let ((__tmp89445 + (lambda (_klass84411_) + (let ((__tmp89446 (let () (declare (not safe)) - (type-descriptor? _klass83854_)))) + (type-descriptor? _klass84411_)))) (declare (not safe)) - (not __tmp88912))))) + (not __tmp89446))))) (declare (not safe)) - (find __tmp88911 _direct-supers83849_)))) - (if _$e83856_ - ((lambda (_g8385883860_) + (find __tmp89445 _direct-supers84406_)))) + (if _$e84413_ + ((lambda (_g8441584417_) (error '"Illegal super class; not a type descriptor" - _g8385883860_)) - _$e83856_) - (let ((_$e83863_ + _g8441584417_)) + _$e84413_) + (let ((_$e84420_ (let () (declare (not safe)) - (find type-final? _direct-supers83849_)))) - (if _$e83863_ - ((lambda (_g8386583867_) - (error '"Cannot extend final class" _g8386583867_)) - _$e83863_) + (find type-final? _direct-supers84406_)))) + (if _$e84420_ + ((lambda (_g8442284424_) + (error '"Cannot extend final class" _g8442284424_)) + _$e84420_) '#!void)))) - (let* ((_struct-super83870_ - (let () - (declare (not safe)) - (base-struct/list _direct-supers83849_))) - (_precedence-list83872_ - (let () - (declare (not safe)) - (class-linearize-mixins _direct-supers83849_))) - (_g88913_ - (let () - (declare (not safe)) - (compute-class-slots - _struct-super83870_ - _precedence-list83872_ - _direct-slots83850_)))) + (let ((_g89447_ + (let () + (declare (not safe)) + (compute-precedence-list _direct-supers84406_)))) (begin - (let ((_g88914_ + (let ((_g89448_ (let () (declare (not safe)) - (if (##values? _g88913_) (##vector-length _g88913_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g88914_ 2))) - (error "Context expects 2 values" _g88914_))) - (let ((_all-slots83874_ - (let () (declare (not safe)) (##vector-ref _g88913_ 0))) - (_slot-table83875_ - (let () (declare (not safe)) (##vector-ref _g88913_ 1)))) - (let* ((_properties83877_ - (let ((__tmp88917 - (let () - (declare (not safe)) - (cons 'direct-slots: _direct-slots83850_))) - (__tmp88915 - (let ((__tmp88916 - (let () - (declare (not safe)) - (cons 'direct-supers: - _direct-supers83849_)))) - (declare (not safe)) - (cons __tmp88916 _properties83851_)))) - (declare (not safe)) - (cons __tmp88917 __tmp88915))) - (_constructor*83882_ - (let ((_$e83879_ _constructor83852_)) - (if _$e83879_ - _$e83879_ - (let () + (if (##values? _g89447_) (##vector-length _g89447_) 1)))) + (if (not (let () (declare (not safe)) (##fx= _g89448_ 2))) + (error "Context expects 2 values" _g89448_))) + (let ((_precedence-list84427_ + (let () (declare (not safe)) (##vector-ref _g89447_ 0))) + (_struct-super84428_ + (let () (declare (not safe)) (##vector-ref _g89447_ 1)))) + (let ((_g89449_ + (let () + (declare (not safe)) + (compute-class-slots + _precedence-list84427_ + _direct-slots84407_)))) + (begin + (let ((_g89450_ + (let () + (declare (not safe)) + (if (##values? _g89449_) + (##vector-length _g89449_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g89450_ 2))) + (error "Context expects 2 values" _g89450_))) + (let ((_all-slots84430_ + (let () + (declare (not safe)) + (##vector-ref _g89449_ 0))) + (_slot-table84431_ + (let () + (declare (not safe)) + (##vector-ref _g89449_ 1)))) + (let* ((_properties84433_ + (let ((__tmp89453 + (let () + (declare (not safe)) + (cons 'direct-slots: + _direct-slots84407_))) + (__tmp89451 + (let ((__tmp89452 + (let () + (declare (not safe)) + (cons 'direct-supers: + _direct-supers84406_)))) + (declare (not safe)) + (cons __tmp89452 _properties84408_)))) (declare (not safe)) - (find-super-constructor - _direct-supers83849_)))))) - (let () - (declare (not safe)) - (make-type-descriptor - _id83847_ - _name83848_ - _struct-super83870_ - _precedence-list83872_ - _all-slots83874_ - _properties83877_ - _constructor*83882_ - _slot-table83875_ - '#f)))))))) + (cons __tmp89453 __tmp89451))) + (_constructor*84438_ + (let ((_$e84435_ _constructor84409_)) + (if _$e84435_ + _$e84435_ + (let () + (declare (not safe)) + (find-super-constructor + _direct-supers84406_)))))) + (let () + (declare (not safe)) + (make-type-descriptor + _id84404_ + _name84405_ + _struct-super84428_ + _precedence-list84427_ + _all-slots84430_ + _properties84433_ + _constructor*84438_ + _slot-table84431_ + '#f))))))))))) (define class-precedence-list - (lambda (_klass83845_) - (let ((__tmp88918 + (lambda (_klass84402_) + (let ((__tmp89454 (let () (declare (not safe)) - (type-descriptor-precedence-list _klass83845_)))) + (type-descriptor-precedence-list _klass84402_)))) (declare (not safe)) - (cons _klass83845_ __tmp88918)))) - (define struct-precedence-list - (lambda (_strukt83840_) - (let ((__tmp88919 - (let ((_$e83842_ - (let () - (declare (not safe)) - (##type-super _strukt83840_)))) - (if _$e83842_ - (let () - (declare (not safe)) - (struct-precedence-list _$e83842_)) - '())))) - (declare (not safe)) - (cons _strukt83840_ __tmp88919)))) - (define class-linearize-mixins - (lambda (_klass-lst83838_) + (cons _klass84402_ __tmp89454)))) + (define compute-precedence-list + (lambda (_direct-supers84400_) (let () (declare (not safe)) - (c3-linearize__% - '() - _klass-lst83838_ + (c4-linearize__% + '#f class-precedence-list + type-struct? eq? - ##type-name)))) + ##type-name + '() + _direct-supers84400_)))) (define make-class-predicate - (lambda (_klass83828_) - (if (let () (declare (not safe)) (type-final? _klass83828_)) - (lambda (_g8382983831_) - (let ((__tmp88920 - (let () (declare (not safe)) (##type-id _klass83828_)))) - (declare (not safe)) - (##structure-direct-instance-of? _g8382983831_ __tmp88920))) - (lambda (_g8383383835_) - (let () - (declare (not safe)) - (class-instance? _klass83828_ _g8383383835_)))))) + (lambda (_klass84384_) + (let ((_tid84386_ + (let () (declare (not safe)) (##type-id _klass84384_)))) + (if (let () (declare (not safe)) (type-final? _klass84384_)) + (lambda (_g8438784389_) + (let () + (declare (not safe)) + (##structure-direct-instance-of? _g8438784389_ _tid84386_))) + (if (let () (declare (not safe)) (type-struct? _klass84384_)) + (lambda (_g8439184393_) + (let () + (declare (not safe)) + (##structure-instance-of? _g8439184393_ _tid84386_))) + (lambda (_g8439584397_) + (let () + (declare (not safe)) + (class-instance? _klass84384_ _g8439584397_)))))))) (define if-class-slot-field - (lambda (_klass83817_ - _slot83818_ - _if-final83819_ - _if-struct83820_ - _if-struct-field83821_ - _if-class-slot83822_) - (let ((_field83824_ - (let ((__tmp88921 + (lambda (_klass84373_ + _slot84374_ + _if-final84375_ + _if-struct84376_ + _if-struct-field84377_ + _if-class-slot84378_) + (let ((_field84380_ + (let ((__tmp89455 (let () (declare (not safe)) - (type-descriptor-slot-table _klass83817_)))) + (type-descriptor-slot-table _klass84373_)))) (declare (not safe)) - (table-ref __tmp88921 _slot83818_ '#f)))) - (if (let () (declare (not safe)) (not _field83824_)) - (error '"unknown slot" 'class: _klass83817_ 'slot: _slot83818_) - (if (let () (declare (not safe)) (type-final? _klass83817_)) - (_if-final83819_ _klass83817_ _slot83818_ _field83824_) - (if (let () (declare (not safe)) (type-struct? _klass83817_)) - (_if-struct83820_ _klass83817_ _slot83818_ _field83824_) - (if (let ((_strukt83826_ + (table-ref __tmp89455 _slot84374_ '#f)))) + (if (let () (declare (not safe)) (not _field84380_)) + (error '"unknown slot" 'class: _klass84373_ 'slot: _slot84374_) + (if (let () (declare (not safe)) (type-final? _klass84373_)) + (_if-final84375_ _klass84373_ _slot84374_ _field84380_) + (if (let () (declare (not safe)) (type-struct? _klass84373_)) + (_if-struct84376_ _klass84373_ _slot84374_ _field84380_) + (if (let ((_strukt84382_ (let () (declare (not safe)) - (base-struct/1 _klass83817_)))) - (and _strukt83826_ - (let ((__tmp88922 - (let ((__tmp88923 + (base-struct/1 _klass84373_)))) + (and _strukt84382_ + (let ((__tmp89456 + (let ((__tmp89457 (let () (declare (not safe)) (type-descriptor-all-slots - _strukt83826_)))) + _strukt84382_)))) (declare (not safe)) - (##vector-length __tmp88923)))) + (##vector-length __tmp89457)))) (declare (not safe)) - (##fx< _field83824_ __tmp88922)))) - (_if-struct-field83821_ - _klass83817_ - _slot83818_ - _field83824_) - (_if-class-slot83822_ - _klass83817_ - _slot83818_ - _field83824_)))))))) + (##fx< _field84380_ __tmp89456)))) + (_if-struct-field84377_ + _klass84373_ + _slot84374_ + _field84380_) + (_if-class-slot84378_ + _klass84373_ + _slot84374_ + _field84380_)))))))) (define make-class-slot-accessor - (lambda (_klass83814_ _slot83815_) + (lambda (_klass84370_ _slot84371_) (let () (declare (not safe)) (if-class-slot-field - _klass83814_ - _slot83815_ - make-final-field-accessor - make-struct-field-accessor - make-struct-subclass-field-accessor + _klass84370_ + _slot84371_ + make-final-slot-accessor + make-struct-slot-accessor + make-struct-subclass-slot-accessor make-class-cached-slot-accessor)))) + (define make-class-slot-mutator + (lambda (_klass84367_ _slot84368_) + (let () + (declare (not safe)) + (if-class-slot-field + _klass84367_ + _slot84368_ + make-final-slot-mutator + make-struct-slot-mutator + make-struct-subclass-slot-mutator + make-class-cached-slot-mutator)))) + (define make-class-slot-unchecked-accessor + (lambda (_klass84364_ _slot84365_) + (let () + (declare (not safe)) + (if-class-slot-field + _klass84364_ + _slot84365_ + make-struct-slot-unchecked-accessor + make-struct-slot-unchecked-accessor + make-struct-slot-unchecked-accessor + make-class-cached-slot-unchecked-accessor)))) + (define make-class-slot-unchecked-mutator + (lambda (_klass84361_ _slot84362_) + (let () + (declare (not safe)) + (if-class-slot-field + _klass84361_ + _slot84362_ + make-struct-slot-unchecked-mutator + make-struct-slot-unchecked-mutator + make-struct-slot-unchecked-mutator + make-class-cached-slot-unchecked-mutator)))) (define not-an-instance__% - (lambda (_object83798_ _class83799_ _slot83800_) + (lambda (_object84345_ _class84346_ _slot84347_) (apply error '"not an instance" 'object: - _object83798_ + _object84345_ 'class: - _class83799_ - (if _slot83800_ - (let ((__tmp88924 + _class84346_ + (if _slot84347_ + (let ((__tmp89458 (let () (declare (not safe)) - (cons _slot83800_ '())))) + (cons _slot84347_ '())))) (declare (not safe)) - (cons 'slot: __tmp88924)) + (cons 'slot: __tmp89458)) '())))) (define not-an-instance__0 - (lambda (_object83805_ _class83806_) - (let ((_slot83808_ '#f)) + (lambda (_object84352_ _class84353_) + (let ((_slot84355_ '#f)) (declare (not safe)) - (not-an-instance__% _object83805_ _class83806_ _slot83808_)))) + (not-an-instance__% _object84352_ _class84353_ _slot84355_)))) (define not-an-instance - (lambda _g88926_ - (let ((_g88925_ (let () (declare (not safe)) (##length _g88926_)))) - (cond ((let () (declare (not safe)) (##fx= _g88925_ 2)) - (apply (lambda (_object83805_ _class83806_) + (lambda _g89460_ + (let ((_g89459_ (let () (declare (not safe)) (##length _g89460_)))) + (cond ((let () (declare (not safe)) (##fx= _g89459_ 2)) + (apply (lambda (_object84352_ _class84353_) (let () (declare (not safe)) - (not-an-instance__0 _object83805_ _class83806_))) - _g88926_)) - ((let () (declare (not safe)) (##fx= _g88925_ 3)) - (apply (lambda (_object83810_ _class83811_ _slot83812_) + (not-an-instance__0 _object84352_ _class84353_))) + _g89460_)) + ((let () (declare (not safe)) (##fx= _g89459_ 3)) + (apply (lambda (_object84357_ _class84358_ _slot84359_) (let () (declare (not safe)) (not-an-instance__% - _object83810_ - _class83811_ - _slot83812_))) - _g88926_)) + _object84357_ + _class84358_ + _slot84359_))) + _g89460_)) (else (##raise-wrong-number-of-arguments-exception not-an-instance - _g88926_)))))) - (define make-struct-subclass-field-accessor - (lambda (_klass83791_ _slot83792_ _field83793_) - (lambda (_obj83795_) + _g89460_)))))) + (define make-final-slot-accessor + (lambda (_klass84338_ _slot84339_ _field84340_) + (lambda (_obj84342_) + (let () + (declare (not safe)) + (##direct-structure-ref + _obj84342_ + _field84340_ + _klass84338_ + _slot84339_))))) + (define make-final-slot-mutator + (lambda (_klass84331_ _slot84332_ _field84333_) + (lambda (_obj84335_ _val84336_) + (let () + (declare (not safe)) + (##direct-structure-set! + _obj84335_ + _val84336_ + _field84333_ + _klass84331_ + _slot84332_))))) + (define make-struct-slot-accessor + (lambda (_klass84325_ _slot84326_ _field84327_) + (lambda (_obj84329_) + (let () + (declare (not safe)) + (##structure-ref + _obj84329_ + _field84327_ + _klass84325_ + _slot84326_))))) + (define make-struct-slot-mutator + (lambda (_klass84318_ _slot84319_ _field84320_) + (lambda (_obj84322_ _val84323_) + (let () + (declare (not safe)) + (##structure-set! + _obj84322_ + _val84323_ + _field84320_ + _klass84318_ + _slot84319_))))) + (define make-struct-slot-unchecked-accessor + (lambda (_klass84312_ _slot84313_ _field84314_) + (lambda (_obj84316_) + (let () + (declare (not safe)) + (##unchecked-structure-ref + _obj84316_ + _field84314_ + _klass84312_ + _slot84313_))))) + (define make-struct-slot-unchecked-mutator + (lambda (_klass84305_ _slot84306_ _field84307_) + (lambda (_obj84309_ _val84310_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _obj84309_ + _val84310_ + _field84307_ + _klass84305_ + _slot84306_))))) + (define make-struct-subclass-slot-accessor + (lambda (_klass84299_ _slot84300_ _field84301_) + (lambda (_obj84303_) + (if (let () + (declare (not safe)) + (class-instance? _klass84299_ _obj84303_)) + (let () + (declare (not safe)) + (unchecked-slot-ref _obj84303_ _field84301_)) + (let () + (declare (not safe)) + (not-an-instance__% _obj84303_ _klass84299_ _slot84300_)))))) + (define make-struct-subclass-slot-mutator + (lambda (_klass84292_ _slot84293_ _field84294_) + (lambda (_obj84296_ _val84297_) (if (let () (declare (not safe)) - (class-instance? _klass83791_ _obj83795_)) + (class-instance? _klass84292_ _obj84296_)) (let () (declare (not safe)) - (unchecked-field-ref _obj83795_ _field83793_)) + (unchecked-field-set! _obj84296_ _field84294_ _val84297_)) (let () (declare (not safe)) - (not-an-instance__% _obj83795_ _klass83791_ _slot83792_)))))) + (not-an-instance__% _obj84296_ _klass84292_ _slot84293_)))))) (define make-class-cached-slot-accessor - (lambda (_klass83785_ _slot83786_ _field83787_) - (lambda (_obj83789_) - (if (let ((__tmp88927 - (let () (declare (not safe)) (##type-id _klass83785_)))) + (lambda (_klass84286_ _slot84287_ _field84288_) + (lambda (_obj84290_) + (if (let ((__tmp89461 + (let () (declare (not safe)) (##type-id _klass84286_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj83789_ __tmp88927)) + (##structure-direct-instance-of? _obj84290_ __tmp89461)) (let () (declare (not safe)) - (unchecked-field-ref _obj83789_ _field83787_)) + (unchecked-field-ref _obj84290_ _field84288_)) (if (let () (declare (not safe)) - (class-instance? _klass83785_ _obj83789_)) + (class-instance? _klass84286_ _obj84290_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj83789_ _slot83786_)) + (unchecked-slot-ref _obj84290_ _slot84287_)) (let () (declare (not safe)) (not-an-instance__% - _obj83789_ - _klass83785_ - _slot83786_))))))) - (define make-class-slot-mutator - (lambda (_klass83782_ _slot83783_) - (let () - (declare (not safe)) - (if-class-slot-field - _klass83782_ - _slot83783_ - 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 (_klass83775_ _slot83776_ _field83777_) - (lambda (_obj83779_ _val83780_) - (if (let () - (declare (not safe)) - (class-instance? _klass83775_ _obj83779_)) - (let () - (declare (not safe)) - (unchecked-field-set! _obj83779_ _field83777_ _val83780_)) - (let () - (declare (not safe)) - (not-an-instance__% _obj83779_ _klass83775_ _slot83776_)))))) + _obj84290_ + _klass84286_ + _slot84287_))))))) (define make-class-cached-slot-mutator - (lambda (_klass83768_ _slot83769_ _field83770_) - (lambda (_obj83772_ _val83773_) - (if (let ((__tmp88928 - (let () (declare (not safe)) (##type-id _klass83768_)))) + (lambda (_klass84279_ _slot84280_ _field84281_) + (lambda (_obj84283_ _val84284_) + (if (let ((__tmp89462 + (let () (declare (not safe)) (##type-id _klass84279_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj83772_ __tmp88928)) + (##structure-direct-instance-of? _obj84283_ __tmp89462)) (let () (declare (not safe)) - (unchecked-field-set! _obj83772_ _field83770_ _val83773_)) + (unchecked-field-set! _obj84283_ _field84281_ _val84284_)) (if (let () (declare (not safe)) - (class-instance? _klass83768_ _obj83772_)) + (class-instance? _klass84279_ _obj84283_)) (let () (declare (not safe)) - (unchecked-slot-set! _obj83772_ _slot83769_ _val83773_)) + (unchecked-slot-set! _obj84283_ _slot84280_ _val84284_)) (let () (declare (not safe)) (not-an-instance__% - _obj83772_ - _klass83768_ - _slot83769_))))))) - (define make-class-slot-unchecked-accessor - (lambda (_klass83765_ _slot83766_) - (let () - (declare (not safe)) - (if-class-slot-field - _klass83765_ - _slot83766_ - make-struct-field-unchecked-accessor - make-struct-field-unchecked-accessor - make-struct-field-unchecked-accessor - make-class-cached-slot-unchecked-accessor)))) + _obj84283_ + _klass84279_ + _slot84280_))))))) (define make-class-cached-slot-unchecked-accessor - (lambda (_klass83759_ _slot83760_ _field83761_) - (lambda (_obj83763_) - (if (let ((__tmp88929 - (let () (declare (not safe)) (##type-id _klass83759_)))) + (lambda (_klass84273_ _slot84274_ _field84275_) + (lambda (_obj84277_) + (if (let ((__tmp89463 + (let () (declare (not safe)) (##type-id _klass84273_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj83763_ __tmp88929)) + (##structure-direct-instance-of? _obj84277_ __tmp89463)) (let () (declare (not safe)) - (unchecked-field-ref _obj83763_ _field83761_)) + (unchecked-field-ref _obj84277_ _field84275_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj83763_ _slot83760_)))))) - (define make-class-slot-unchecked-mutator - (lambda (_klass83756_ _slot83757_) - (let () - (declare (not safe)) - (if-class-slot-field - _klass83756_ - _slot83757_ - make-struct-field-unchecked-mutator - make-struct-field-unchecked-mutator - make-struct-field-unchecked-mutator - make-class-cached-slot-unchecked-mutator)))) + (unchecked-slot-ref _obj84277_ _slot84274_)))))) (define make-class-cached-slot-unchecked-mutator - (lambda (_klass83749_ _slot83750_ _field83751_) - (lambda (_obj83753_ _val83754_) - (if (let ((__tmp88930 - (let () (declare (not safe)) (##type-id _klass83749_)))) + (lambda (_klass84266_ _slot84267_ _field84268_) + (lambda (_obj84270_ _val84271_) + (if (let ((__tmp89464 + (let () (declare (not safe)) (##type-id _klass84266_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj83753_ __tmp88930)) + (##structure-direct-instance-of? _obj84270_ __tmp89464)) (let () (declare (not safe)) - (unchecked-field-set! _obj83753_ _field83751_ _val83754_)) + (unchecked-field-set! _obj84270_ _field84268_ _val84271_)) (let () (declare (not safe)) - (unchecked-slot-set! _obj83753_ _slot83750_ _val83754_)))))) + (unchecked-slot-set! _obj84270_ _slot84267_ _val84271_)))))) (define class-slot-offset - (lambda (_klass83746_ _slot83747_) - (let ((__tmp88931 + (lambda (_klass84263_ _slot84264_) + (let ((__tmp89465 (let () (declare (not safe)) - (type-descriptor-slot-table _klass83746_)))) + (type-descriptor-slot-table _klass84263_)))) (declare (not safe)) - (table-ref __tmp88931 _slot83747_ '#f)))) + (table-ref __tmp89465 _slot84264_ '#f)))) (define class-slot-ref - (lambda (_klass83740_ _obj83741_ _slot83742_) + (lambda (_klass84257_ _obj84258_ _slot84259_) (if (let () (declare (not safe)) - (class-instance? _klass83740_ _obj83741_)) - (let ((_off83744_ - (let ((__tmp88932 + (class-instance? _klass84257_ _obj84258_)) + (let ((_off84261_ + (let ((__tmp89466 (let () (declare (not safe)) - (object-type _obj83741_)))) + (object-type _obj84258_)))) (declare (not safe)) - (class-slot-offset __tmp88932 _slot83742_)))) + (class-slot-offset __tmp89466 _slot84259_)))) (declare (not safe)) (##unchecked-structure-ref - _obj83741_ - _off83744_ - _klass83740_ - '#f)) + _obj84258_ + _off84261_ + _klass84257_ + _slot84259_)) (let () (declare (not safe)) - (not-an-instance__0 _obj83741_ _klass83740_))))) + (not-an-instance__0 _obj84258_ _klass84257_))))) (define class-slot-set! - (lambda (_klass83733_ _obj83734_ _slot83735_ _val83736_) + (lambda (_klass84250_ _obj84251_ _slot84252_ _val84253_) (if (let () (declare (not safe)) - (class-instance? _klass83733_ _obj83734_)) - (let ((_off83738_ - (let ((__tmp88933 + (class-instance? _klass84250_ _obj84251_)) + (let ((_off84255_ + (let ((__tmp89467 (let () (declare (not safe)) - (object-type _obj83734_)))) + (object-type _obj84251_)))) (declare (not safe)) - (class-slot-offset __tmp88933 _slot83735_)))) + (class-slot-offset __tmp89467 _slot84252_)))) (declare (not safe)) (##unchecked-structure-set! - _obj83734_ - _val83736_ - _off83738_ - _klass83733_ - '#f)) + _obj84251_ + _val84253_ + _off84255_ + _klass84250_ + _slot84252_)) (let () (declare (not safe)) - (not-an-instance__0 _obj83734_ _klass83733_))))) + (not-an-instance__0 _obj84251_ _klass84250_))))) (define unchecked-field-ref - (lambda (_obj83730_ _off83731_) - (let ((__tmp88934 - (let () (declare (not safe)) (##structure-type _obj83730_)))) + (lambda (_obj84247_ _off84248_) + (let ((__tmp89468 + (let () (declare (not safe)) (##structure-type _obj84247_)))) (declare (not safe)) - (##unchecked-structure-ref _obj83730_ _off83731_ __tmp88934 '#f)))) + (##unchecked-structure-ref _obj84247_ _off84248_ __tmp89468 '#f)))) (define unchecked-field-set! - (lambda (_obj83726_ _off83727_ _val83728_) - (let ((__tmp88935 - (let () (declare (not safe)) (##structure-type _obj83726_)))) + (lambda (_obj84243_ _off84244_ _val84245_) + (let ((__tmp89469 + (let () (declare (not safe)) (##structure-type _obj84243_)))) (declare (not safe)) (##unchecked-structure-set! - _obj83726_ - _val83728_ - _off83727_ - __tmp88935 + _obj84243_ + _val84245_ + _off84244_ + __tmp89469 '#f)))) (define unchecked-slot-ref - (lambda (_obj83723_ _slot83724_) - (let ((__tmp88936 - (let ((__tmp88937 + (lambda (_obj84240_ _slot84241_) + (let ((__tmp89470 + (let ((__tmp89471 (let () (declare (not safe)) - (##structure-type _obj83723_)))) + (##structure-type _obj84240_)))) (declare (not safe)) - (class-slot-offset __tmp88937 _slot83724_)))) + (class-slot-offset __tmp89471 _slot84241_)))) (declare (not safe)) - (unchecked-field-ref _obj83723_ __tmp88936)))) + (unchecked-field-ref _obj84240_ __tmp89470)))) (define unchecked-slot-set! - (lambda (_obj83719_ _slot83720_ _val83721_) - (let ((__tmp88938 - (let ((__tmp88939 + (lambda (_obj84236_ _slot84237_ _val84238_) + (let ((__tmp89472 + (let ((__tmp89473 (let () (declare (not safe)) - (##structure-type _obj83719_)))) + (##structure-type _obj84236_)))) (declare (not safe)) - (class-slot-offset __tmp88939 _slot83720_)))) + (class-slot-offset __tmp89473 _slot84237_)))) (declare (not safe)) - (unchecked-field-set! _obj83719_ __tmp88938 _val83721_)))) + (unchecked-field-set! _obj84236_ __tmp89472 _val84238_)))) (define slot-ref__% - (lambda (_obj83695_ _slot83696_ _E83697_) - (if (let () (declare (not safe)) (object? _obj83695_)) - (let* ((_klass83699_ - (let () (declare (not safe)) (object-type _obj83695_))) - (_$e83702_ + (lambda (_obj84212_ _slot84213_ _E84214_) + (if (let () (declare (not safe)) (object? _obj84212_)) + (let* ((_klass84216_ + (let () (declare (not safe)) (object-type _obj84212_))) + (_$e84219_ (if (let () (declare (not safe)) - (type-descriptor? _klass83699_)) + (type-descriptor? _klass84216_)) (let () (declare (not safe)) - (class-slot-offset _klass83699_ _slot83696_)) + (class-slot-offset _klass84216_ _slot84213_)) '#f))) - (if _$e83702_ - ((lambda (_off83705_) + (if _$e84219_ + ((lambda (_off84222_) (let () (declare (not safe)) - (unchecked-field-ref _obj83695_ _off83705_))) - _$e83702_) - (_E83697_ _obj83695_ _slot83696_))) - (_E83697_ _obj83695_ _slot83696_)))) + (unchecked-field-ref _obj84212_ _off84222_))) + _$e84219_) + (_E84214_ _obj84212_ _slot84213_))) + (_E84214_ _obj84212_ _slot84213_)))) (define slot-ref__0 - (lambda (_obj83710_ _slot83711_) - (let ((_E83713_ __slot-error)) + (lambda (_obj84227_ _slot84228_) + (let ((_E84230_ __slot-error)) (declare (not safe)) - (slot-ref__% _obj83710_ _slot83711_ _E83713_)))) + (slot-ref__% _obj84227_ _slot84228_ _E84230_)))) (define slot-ref - (lambda _g88941_ - (let ((_g88940_ (let () (declare (not safe)) (##length _g88941_)))) - (cond ((let () (declare (not safe)) (##fx= _g88940_ 2)) - (apply (lambda (_obj83710_ _slot83711_) + (lambda _g89475_ + (let ((_g89474_ (let () (declare (not safe)) (##length _g89475_)))) + (cond ((let () (declare (not safe)) (##fx= _g89474_ 2)) + (apply (lambda (_obj84227_ _slot84228_) (let () (declare (not safe)) - (slot-ref__0 _obj83710_ _slot83711_))) - _g88941_)) - ((let () (declare (not safe)) (##fx= _g88940_ 3)) - (apply (lambda (_obj83715_ _slot83716_ _E83717_) + (slot-ref__0 _obj84227_ _slot84228_))) + _g89475_)) + ((let () (declare (not safe)) (##fx= _g89474_ 3)) + (apply (lambda (_obj84232_ _slot84233_ _E84234_) (let () (declare (not safe)) - (slot-ref__% _obj83715_ _slot83716_ _E83717_))) - _g88941_)) + (slot-ref__% _obj84232_ _slot84233_ _E84234_))) + _g89475_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g88941_)))))) + _g89475_)))))) (define slot-set!__% - (lambda (_obj83667_ _slot83668_ _val83669_ _E83670_) - (if (let () (declare (not safe)) (object? _obj83667_)) - (let* ((_klass83672_ - (let () (declare (not safe)) (object-type _obj83667_))) - (_$e83675_ + (lambda (_obj84184_ _slot84185_ _val84186_ _E84187_) + (if (let () (declare (not safe)) (object? _obj84184_)) + (let* ((_klass84189_ + (let () (declare (not safe)) (object-type _obj84184_))) + (_$e84192_ (if (let () (declare (not safe)) - (type-descriptor? _klass83672_)) + (type-descriptor? _klass84189_)) (let () (declare (not safe)) - (class-slot-offset _klass83672_ _slot83668_)) + (class-slot-offset _klass84189_ _slot84185_)) '#f))) - (if _$e83675_ - ((lambda (_off83678_) + (if _$e84192_ + ((lambda (_off84195_) (let () (declare (not safe)) (unchecked-field-set! - _obj83667_ - _off83678_ - _val83669_))) - _$e83675_) - (_E83670_ _obj83667_ _slot83668_))) - (_E83670_ _obj83667_ _slot83668_)))) + _obj84184_ + _off84195_ + _val84186_))) + _$e84192_) + (_E84187_ _obj84184_ _slot84185_))) + (_E84187_ _obj84184_ _slot84185_)))) (define slot-set!__0 - (lambda (_obj83683_ _slot83684_ _val83685_) - (let ((_E83687_ __slot-error)) + (lambda (_obj84200_ _slot84201_ _val84202_) + (let ((_E84204_ __slot-error)) (declare (not safe)) - (slot-set!__% _obj83683_ _slot83684_ _val83685_ _E83687_)))) + (slot-set!__% _obj84200_ _slot84201_ _val84202_ _E84204_)))) (define slot-set! - (lambda _g88943_ - (let ((_g88942_ (let () (declare (not safe)) (##length _g88943_)))) - (cond ((let () (declare (not safe)) (##fx= _g88942_ 3)) - (apply (lambda (_obj83683_ _slot83684_ _val83685_) + (lambda _g89477_ + (let ((_g89476_ (let () (declare (not safe)) (##length _g89477_)))) + (cond ((let () (declare (not safe)) (##fx= _g89476_ 3)) + (apply (lambda (_obj84200_ _slot84201_ _val84202_) (let () (declare (not safe)) - (slot-set!__0 _obj83683_ _slot83684_ _val83685_))) - _g88943_)) - ((let () (declare (not safe)) (##fx= _g88942_ 4)) - (apply (lambda (_obj83689_ _slot83690_ _val83691_ _E83692_) + (slot-set!__0 _obj84200_ _slot84201_ _val84202_))) + _g89477_)) + ((let () (declare (not safe)) (##fx= _g89476_ 4)) + (apply (lambda (_obj84206_ _slot84207_ _val84208_ _E84209_) (let () (declare (not safe)) (slot-set!__% - _obj83689_ - _slot83690_ - _val83691_ - _E83692_))) - _g88943_)) + _obj84206_ + _slot84207_ + _val84208_ + _E84209_))) + _g89477_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g88943_)))))) + _g89477_)))))) (define __slot-error - (lambda (_obj83663_ _slot83664_) - (error '"Cannot find slot" 'object: _obj83663_ 'slot: _slot83664_))) + (lambda (_obj84180_ _slot84181_) + (error '"Cannot find slot" 'object: _obj84180_ 'slot: _slot84181_))) (define subclass? - (lambda (_maybe-sub-class83653_ _maybe-super-class83654_) - (let* ((_maybe-super-class-id83656_ + (lambda (_maybe-sub-class84170_ _maybe-super-class84171_) + (let* ((_maybe-super-class-id84173_ (let () (declare (not safe)) - (##type-id _maybe-super-class83654_))) - (_$e83658_ - (let ((__tmp88944 + (##type-id _maybe-super-class84171_))) + (_$e84175_ + (let ((__tmp89478 (let () (declare (not safe)) - (##type-id _maybe-sub-class83653_)))) + (##type-id _maybe-sub-class84170_)))) (declare (not safe)) - (eq? _maybe-super-class-id83656_ __tmp88944)))) - (if _$e83658_ - _$e83658_ - (let ((__tmp88946 - (lambda (_super-class83661_) - (let ((__tmp88947 + (eq? _maybe-super-class-id84173_ __tmp89478)))) + (if _$e84175_ + _$e84175_ + (let ((__tmp89480 + (lambda (_super-class84178_) + (let ((__tmp89481 (let () (declare (not safe)) - (##type-id _super-class83661_)))) + (##type-id _super-class84178_)))) (declare (not safe)) - (eq? __tmp88947 _maybe-super-class-id83656_)))) - (__tmp88945 + (eq? __tmp89481 _maybe-super-class-id84173_)))) + (__tmp89479 (let () (declare (not safe)) (type-descriptor-precedence-list - _maybe-sub-class83653_)))) + _maybe-sub-class84170_)))) (declare (not safe)) - (ormap1 __tmp88946 __tmp88945)))))) + (ormap1 __tmp89480 __tmp89479)))))) (define object? ##structure?) (define object-type ##structure-type) (define direct-instance? - (lambda (_klass83650_ _obj83651_) - (let ((__tmp88948 - (let () (declare (not safe)) (##type-id _klass83650_)))) + (lambda (_klass84167_ _obj84168_) + (let ((__tmp89482 + (let () (declare (not safe)) (##type-id _klass84167_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj83651_ __tmp88948)))) + (##structure-direct-instance-of? _obj84168_ __tmp89482)))) (define struct-instance? - (lambda (_klass83647_ _obj83648_) - (let ((__tmp88949 - (let () (declare (not safe)) (##type-id _klass83647_)))) + (lambda (_klass84164_ _obj84165_) + (let ((__tmp89483 + (let () (declare (not safe)) (##type-id _klass84164_)))) (declare (not safe)) - (##structure-instance-of? _obj83648_ __tmp88949)))) + (##structure-instance-of? _obj84165_ __tmp89483)))) (define class-instance? - (lambda (_klass83642_ _obj83643_) - (if (let () (declare (not safe)) (object? _obj83643_)) - (let ((_type83645_ - (let () (declare (not safe)) (object-type _obj83643_)))) - (if (let () (declare (not safe)) (type-descriptor? _type83645_)) + (lambda (_klass84159_ _obj84160_) + (if (let () (declare (not safe)) (object? _obj84160_)) + (let ((_type84162_ + (let () (declare (not safe)) (object-type _obj84160_)))) + (if (let () (declare (not safe)) (type-descriptor? _type84162_)) (let () (declare (not safe)) - (subclass? _type83645_ _klass83642_)) + (subclass? _type84162_ _klass84159_)) '#f)) '#f))) (define make-object - (lambda (_klass83637_ _k83638_) - (let ((_obj83640_ + (lambda (_klass84154_ _k84155_) + (let ((_obj84157_ (let () (declare (not safe)) - (##make-structure _klass83637_ _k83638_)))) - (let () (declare (not safe)) (object-fill! _obj83640_ '#f)) - _obj83640_))) + (##make-structure _klass84154_ _k84155_)))) + (let () (declare (not safe)) (object-fill! _obj84157_ '#f)) + _obj84157_))) (define object-fill! - (lambda (_obj83630_ _fill83631_) - (let _loop83633_ ((_i83635_ - (let ((__tmp88951 + (lambda (_obj84147_ _fill84148_) + (let _loop84150_ ((_i84152_ + (let ((__tmp89485 (let () (declare (not safe)) - (##structure-length _obj83630_)))) + (##structure-length _obj84147_)))) (declare (not safe)) - (##fx- __tmp88951 '1)))) - (if (let () (declare (not safe)) (##fx> _i83635_ '0)) + (##fx- __tmp89485 '1)))) + (if (let () (declare (not safe)) (##fx> _i84152_ '0)) (begin (let () (declare (not safe)) (##unchecked-structure-set! - _obj83630_ - _fill83631_ - _i83635_ + _obj84147_ + _fill84148_ + _i84152_ '#f '#f)) - (let ((__tmp88950 - (let () (declare (not safe)) (##fx- _i83635_ '1)))) + (let ((__tmp89484 + (let () (declare (not safe)) (##fx- _i84152_ '1)))) (declare (not safe)) - (_loop83633_ __tmp88950))) - _obj83630_)))) - (define make-instance - (lambda (_klass83628_) - (let ((__obj88865 - (let ((__tmp88952 - (let ((__tmp88953 + (_loop84150_ __tmp89484))) + _obj84147_)))) + (define make-new-instance + (lambda (_klass84145_) + (let ((__obj89407 + (let ((__tmp89486 + (let ((__tmp89487 (let () (declare (not safe)) - (type-descriptor-all-slots _klass83628_)))) + (type-descriptor-all-slots _klass84145_)))) (declare (not safe)) - (##vector-length __tmp88953)))) + (##vector-length __tmp89487)))) (declare (not safe)) - (##make-structure _klass83628_ __tmp88952)))) - (let () (declare (not safe)) (object-fill! __obj88865 '#f)) - __obj88865))) - (define make-struct-instance - (lambda (_klass83615_ . _args83616_) - (let* ((_all-slots83618_ - (let () - (declare (not safe)) - (type-descriptor-all-slots _klass83615_))) - (_size83620_ - (let () - (declare (not safe)) - (##vector-length _all-slots83618_)))) - (let ((_$e83623_ - (let () - (declare (not safe)) - (type-descriptor-constructor _klass83615_)))) - (if _$e83623_ - ((lambda (_kons-id83626_) - (let ((__tmp88956 - (let ((__obj88866 - (let () - (declare (not safe)) - (##make-structure - _klass83615_ - _size83620_)))) - (let () - (declare (not safe)) - (object-fill! __obj88866 '#f)) - __obj88866))) - (declare (not safe)) - (__constructor-init! - _klass83615_ - _kons-id83626_ - __tmp88956 - _args83616_))) - _$e83623_) - (if (let ((__tmp88955 - (let () - (declare (not safe)) - (##fx- _size83620_ '1))) - (__tmp88954 (length _args83616_))) - (declare (not safe)) - (##fx= __tmp88955 __tmp88954)) - (apply ##structure _klass83615_ _args83616_) - (error '"arguments don't match object size" - 'class: - _klass83615_ - 'slots: - (let () (declare (not safe)) (##fx- _size83620_ '1)) - 'args: - _args83616_))))))) - (define make-class-instance - (lambda (_klass83605_ . _args83606_) - (let* ((_obj83608_ - (let () (declare (not safe)) (make-instance _klass83605_))) - (_$e83610_ + (##make-structure _klass84145_ __tmp89486)))) + (let () (declare (not safe)) (object-fill! __obj89407 '#f)) + __obj89407))) + (define make-instance + (lambda (_klass84135_ . _args84136_) + (let* ((_obj84138_ + (let () (declare (not safe)) (make-new-instance _klass84135_))) + (_$e84140_ (let () (declare (not safe)) - (type-descriptor-constructor _klass83605_)))) - (if _$e83610_ - ((lambda (_kons-id83613_) + (type-descriptor-constructor _klass84135_)))) + (if _$e84140_ + ((lambda (_kons-id84143_) (let () (declare (not safe)) (__constructor-init! - _klass83605_ - _kons-id83613_ - _obj83608_ - _args83606_))) - _$e83610_) - (let () - (declare (not safe)) - (__class-instance-init! - _klass83605_ - _obj83608_ - _args83606_)))))) + _klass84135_ + _kons-id84143_ + _obj84138_ + _args84136_))) + _$e84140_) + (if (let ((__tmp89491 + (let () + (declare (not safe)) + (type-struct? _klass84135_)))) + (declare (not safe)) + (not __tmp89491)) + (let () + (declare (not safe)) + (__class-instance-init! + _klass84135_ + _obj84138_ + _args84136_)) + (if (let ((__tmp89489 + (let ((__tmp89490 + (let () + (declare (not safe)) + (##structure-length _obj84138_)))) + (declare (not safe)) + (##fx- __tmp89490 '1))) + (__tmp89488 (length _args84136_))) + (declare (not safe)) + (##fx= __tmp89489 __tmp89488)) + (apply ##structure _klass84135_ _args84136_) + (error '"arguments don't match object size" + 'class: + _klass84135_ + 'slots: + (let () + (declare (not safe)) + (type-descriptor-slot-list _klass84135_)) + 'args: + _args84136_))))))) + (define make-class-instance make-instance) (define struct-instance-init! - (lambda (_obj83602_ . _args83603_) - (if (let ((__tmp88958 (length _args83603_)) - (__tmp88957 + (lambda (_obj84132_ . _args84133_) + (if (let ((__tmp89493 (length _args84133_)) + (__tmp89492 (let () (declare (not safe)) - (##structure-length _obj83602_)))) + (##structure-length _obj84132_)))) (declare (not safe)) - (##fx< __tmp88958 __tmp88957)) + (##fx< __tmp89493 __tmp89492)) (let () (declare (not safe)) - (__struct-instance-init! _obj83602_ _args83603_)) + (__struct-instance-init! _obj84132_ _args84133_)) (error '"too many arguments for struct" 'object: - _obj83602_ + _obj84132_ 'args: - _args83603_)))) + _args84133_)))) (define __struct-instance-init! - (lambda (_obj83561_ _args83562_) - (let _lp83564_ ((_k83566_ '1) (_rest83567_ _args83562_)) - (let* ((_rest8356883576_ _rest83567_) - (_else8357083584_ (lambda () _obj83561_)) - (_K8357283590_ - (lambda (_rest83587_ _hd83588_) + (lambda (_obj84091_ _args84092_) + (let _lp84094_ ((_k84096_ '1) (_rest84097_ _args84092_)) + (let* ((_rest8409884106_ _rest84097_) + (_else8410084114_ (lambda () _obj84091_)) + (_K8410284120_ + (lambda (_rest84117_ _hd84118_) (let () (declare (not safe)) - (unchecked-field-set! _obj83561_ _k83566_ _hd83588_)) - (let ((__tmp88959 - (let () (declare (not safe)) (##fx+ _k83566_ '1)))) + (unchecked-field-set! _obj84091_ _k84096_ _hd84118_)) + (let ((__tmp89494 + (let () (declare (not safe)) (##fx+ _k84096_ '1)))) (declare (not safe)) - (_lp83564_ __tmp88959 _rest83587_))))) - (if (let () (declare (not safe)) (##pair? _rest8356883576_)) - (let ((_hd8357383593_ - (let () (declare (not safe)) (##car _rest8356883576_))) - (_tl8357483595_ - (let () (declare (not safe)) (##cdr _rest8356883576_)))) - (let* ((_hd83598_ _hd8357383593_) - (_rest83600_ _tl8357483595_)) + (_lp84094_ __tmp89494 _rest84117_))))) + (if (let () (declare (not safe)) (##pair? _rest8409884106_)) + (let ((_hd8410384123_ + (let () (declare (not safe)) (##car _rest8409884106_))) + (_tl8410484125_ + (let () (declare (not safe)) (##cdr _rest8409884106_)))) + (let* ((_hd84128_ _hd8410384123_) + (_rest84130_ _tl8410484125_)) (declare (not safe)) - (_K8357283590_ _rest83600_ _hd83598_))) - (let () (declare (not safe)) (_else8357083584_))))))) + (_K8410284120_ _rest84130_ _hd84128_))) + (let () (declare (not safe)) (_else8410084114_))))))) (define class-instance-init! - (lambda (_obj83558_ . _args83559_) - (let ((__tmp88960 - (let () (declare (not safe)) (object-type _obj83558_)))) + (lambda (_obj84088_ . _args84089_) + (let ((__tmp89495 + (let () (declare (not safe)) (object-type _obj84088_)))) (declare (not safe)) - (__class-instance-init! __tmp88960 _obj83558_ _args83559_)))) + (__class-instance-init! __tmp89495 _obj84088_ _args84089_)))) (define __class-instance-init! - (lambda (_klass83502_ _obj83503_ _args83504_) - (let _lp83506_ ((_rest83508_ _args83504_)) - (let* ((_rest8350983519_ _rest83508_) - (_else8351183527_ + (lambda (_klass84032_ _obj84033_ _args84034_) + (let _lp84036_ ((_rest84038_ _args84034_)) + (let* ((_rest8403984049_ _rest84038_) + (_else8404184057_ (lambda () - (if (let () (declare (not safe)) (null? _rest83508_)) - _obj83503_ + (if (let () (declare (not safe)) (null? _rest84038_)) + _obj84033_ (error '"unexpected class initializer arguments" 'class: - _klass83502_ + _klass84032_ 'rest: - _rest83508_)))) - (_K8351383539_ - (lambda (_rest83530_ _val83531_ _key83532_) - (let ((_$e83534_ + _rest84038_)))) + (_K8404384069_ + (lambda (_rest84060_ _val84061_ _key84062_) + (let ((_$e84064_ (let () (declare (not safe)) - (class-slot-offset _klass83502_ _key83532_)))) - (if _$e83534_ - ((lambda (_off83537_) + (class-slot-offset _klass84032_ _key84062_)))) + (if _$e84064_ + ((lambda (_off84067_) (let () (declare (not safe)) (unchecked-field-set! - _obj83503_ - _off83537_ - _val83531_)) + _obj84033_ + _off84067_ + _val84061_)) (let () (declare (not safe)) - (_lp83506_ _rest83530_))) - _$e83534_) + (_lp84036_ _rest84060_))) + _$e84064_) (error '"unknown slot" 'class: - _klass83502_ + _klass84032_ 'slot: - _key83532_)))))) - (if (let () (declare (not safe)) (##pair? _rest8350983519_)) - (let ((_hd8351483542_ - (let () (declare (not safe)) (##car _rest8350983519_))) - (_tl8351583544_ - (let () (declare (not safe)) (##cdr _rest8350983519_)))) - (let ((_key83547_ _hd8351483542_)) - (if (let () (declare (not safe)) (##pair? _tl8351583544_)) - (let ((_hd8351683549_ + _key84062_)))))) + (if (let () (declare (not safe)) (##pair? _rest8403984049_)) + (let ((_hd8404484072_ + (let () (declare (not safe)) (##car _rest8403984049_))) + (_tl8404584074_ + (let () (declare (not safe)) (##cdr _rest8403984049_)))) + (let ((_key84077_ _hd8404484072_)) + (if (let () (declare (not safe)) (##pair? _tl8404584074_)) + (let ((_hd8404684079_ (let () (declare (not safe)) - (##car _tl8351583544_))) - (_tl8351783551_ + (##car _tl8404584074_))) + (_tl8404784081_ (let () (declare (not safe)) - (##cdr _tl8351583544_)))) - (let* ((_val83554_ _hd8351683549_) - (_rest83556_ _tl8351783551_)) + (##cdr _tl8404584074_)))) + (let* ((_val84084_ _hd8404684079_) + (_rest84086_ _tl8404784081_)) (declare (not safe)) - (_K8351383539_ _rest83556_ _val83554_ _key83547_))) - (let () (declare (not safe)) (_else8351183527_))))) - (let () (declare (not safe)) (_else8351183527_))))))) + (_K8404384069_ _rest84086_ _val84084_ _key84077_))) + (let () (declare (not safe)) (_else8404184057_))))) + (let () (declare (not safe)) (_else8404184057_))))))) (define constructor-init! - (lambda (_klass83497_ _kons-id83498_ _obj83499_ . _args83500_) + (lambda (_klass84027_ _kons-id84028_ _obj84029_ . _args84030_) (let () (declare (not safe)) (__constructor-init! - _klass83497_ - _kons-id83498_ - _obj83499_ - _args83500_)))) + _klass84027_ + _kons-id84028_ + _obj84029_ + _args84030_)))) (define __constructor-init! - (lambda (_klass83487_ _kons-id83488_ _obj83489_ _args83490_) - (let ((_$e83492_ + (lambda (_klass84017_ _kons-id84018_ _obj84019_ _args84020_) + (let ((_$e84022_ (let () (declare (not safe)) - (__find-method _klass83487_ _kons-id83488_)))) - (if _$e83492_ - ((lambda (_kons83495_) - (apply _kons83495_ _obj83489_ _args83490_) - _obj83489_) - _$e83492_) + (__find-method _klass84017_ _kons-id84018_)))) + (if _$e84022_ + ((lambda (_kons84025_) + (apply _kons84025_ _obj84019_ _args84020_) + _obj84019_) + _$e84022_) (error '"missing constructor" 'class: - _klass83487_ + _klass84017_ 'method: - _kons-id83488_))))) + _kons-id84018_))))) (define struct-copy - (lambda (_struct83485_) - (if (let () (declare (not safe)) (##structure? _struct83485_)) + (lambda (_struct84015_) + (if (let () (declare (not safe)) (##structure? _struct84015_)) '#!void - (error '"not a structure" _struct83485_)) - (let () (declare (not safe)) (##structure-copy _struct83485_)))) + (error '"not a structure" _struct84015_)) + (let () (declare (not safe)) (##structure-copy _struct84015_)))) (define struct->list - (lambda (_obj83483_) - (if (let () (declare (not safe)) (object? _obj83483_)) - (let () (declare (not safe)) (##vector->list _obj83483_)) - (error '"not an object" _obj83483_)))) + (lambda (_obj84013_) + (if (let () (declare (not safe)) (object? _obj84013_)) + (let () (declare (not safe)) (##vector->list _obj84013_)) + (error '"not an object" _obj84013_)))) (define class->list - (lambda (_obj83470_) - (if (let () (declare (not safe)) (object? _obj83470_)) - (let ((_klass83472_ - (let () (declare (not safe)) (object-type _obj83470_)))) - (if (let () (declare (not safe)) (type-descriptor? _klass83472_)) - (let ((_all-slots83474_ + (lambda (_obj84000_) + (if (let () (declare (not safe)) (object? _obj84000_)) + (let ((_klass84002_ + (let () (declare (not safe)) (object-type _obj84000_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass84002_)) + (let ((_all-slots84004_ (let () (declare (not safe)) - (type-descriptor-all-slots _klass83472_)))) - (let _loop83476_ ((_index83478_ - (let ((__tmp88966 + (type-descriptor-all-slots _klass84002_)))) + (let _loop84006_ ((_index84008_ + (let ((__tmp89501 (let () (declare (not safe)) (##vector-length - _all-slots83474_)))) + _all-slots84004_)))) (declare (not safe)) - (##fx- __tmp88966 '1))) - (_plist83479_ '())) - (if (let () (declare (not safe)) (##fx< _index83478_ '1)) + (##fx- __tmp89501 '1))) + (_plist84009_ '())) + (if (let () (declare (not safe)) (##fx< _index84008_ '1)) (let () (declare (not safe)) - (cons _klass83472_ _plist83479_)) - (let ((_slot83481_ + (cons _klass84002_ _plist84009_)) + (let ((_slot84011_ (let () (declare (not safe)) (##vector-ref - _all-slots83474_ - _index83478_)))) - (let ((__tmp88965 + _all-slots84004_ + _index84008_)))) + (let ((__tmp89500 (let () (declare (not safe)) - (##fx- _index83478_ '1))) - (__tmp88961 - (let ((__tmp88964 - (symbol->keyword _slot83481_)) - (__tmp88962 - (let ((__tmp88963 + (##fx- _index84008_ '1))) + (__tmp89496 + (let ((__tmp89499 + (symbol->keyword _slot84011_)) + (__tmp89497 + (let ((__tmp89498 (let () (declare (not safe)) (unchecked-field-ref - _obj83470_ - _index83478_)))) + _obj84000_ + _index84008_)))) (declare (not safe)) - (cons __tmp88963 _plist83479_)))) + (cons __tmp89498 _plist84009_)))) (declare (not safe)) - (cons __tmp88964 __tmp88962)))) + (cons __tmp89499 __tmp89497)))) (declare (not safe)) - (_loop83476_ __tmp88965 __tmp88961)))))) + (_loop84006_ __tmp89500 __tmp89496)))))) (error '"not a class type" 'object: - _obj83470_ + _obj84000_ 'class: - _klass83472_))) - (error '"not an object" _obj83470_)))) + _klass84002_))) + (error '"not an object" _obj84000_)))) (define call-method - (lambda (_obj83461_ _id83462_ . _args83463_) - (let ((_$e83465_ + (lambda (_obj83991_ _id83992_ . _args83993_) + (let ((_$e83995_ (let () (declare (not safe)) - (method-ref _obj83461_ _id83462_)))) - (if _$e83465_ - ((lambda (_method83468_) - (apply _method83468_ _obj83461_ _args83463_)) - _$e83465_) + (method-ref _obj83991_ _id83992_)))) + (if _$e83995_ + ((lambda (_method83998_) + (apply _method83998_ _obj83991_ _args83993_)) + _$e83995_) (error '"cannot find method" 'object: - _obj83461_ + _obj83991_ 'method: - _id83462_))))) + _id83992_))))) (define __builtin-type-methods (make-table 'test: eq?)) (define method-ref - (lambda (_obj83458_ _id83459_) - (if (let () (declare (not safe)) (object? _obj83458_)) - (let ((__tmp88967 - (let () (declare (not safe)) (object-type _obj83458_)))) + (lambda (_obj83988_ _id83989_) + (if (let () (declare (not safe)) (object? _obj83988_)) + (let ((__tmp89502 + (let () (declare (not safe)) (object-type _obj83988_)))) (declare (not safe)) - (find-method __tmp88967 _id83459_)) + (find-method __tmp89502 _id83989_)) '#f))) (define checked-method-ref - (lambda (_obj83452_ _id83453_) - (let ((_$e83455_ + (lambda (_obj83982_ _id83983_) + (let ((_$e83985_ (let () (declare (not safe)) - (method-ref _obj83452_ _id83453_)))) - (if _$e83455_ - _$e83455_ + (method-ref _obj83982_ _id83983_)))) + (if _$e83985_ + _$e83985_ (error '"missing method" 'object: - _obj83452_ + _obj83982_ 'method: - _id83453_))))) + _id83983_))))) (define bound-method-ref - (lambda (_obj83442_ _id83443_) - (let ((_$e83445_ + (lambda (_obj83972_ _id83973_) + (let ((_$e83975_ (let () (declare (not safe)) - (method-ref _obj83442_ _id83443_)))) - (if _$e83445_ - ((lambda (_method83448_) - (lambda _args83450_ - (apply _method83448_ _obj83442_ _args83450_))) - _$e83445_) + (method-ref _obj83972_ _id83973_)))) + (if _$e83975_ + ((lambda (_method83978_) + (lambda _args83980_ + (apply _method83978_ _obj83972_ _args83980_))) + _$e83975_) '#f)))) (define checked-bound-method-ref - (lambda (_obj83435_ _id83436_) - (let ((_method83438_ + (lambda (_obj83965_ _id83966_) + (let ((_method83968_ (let () (declare (not safe)) - (checked-method-ref _obj83435_ _id83436_)))) - (lambda _args83440_ (apply _method83438_ _obj83435_ _args83440_))))) + (checked-method-ref _obj83965_ _id83966_)))) + (lambda _args83970_ (apply _method83968_ _obj83965_ _args83970_))))) (define find-method - (lambda (_klass83432_ _id83433_) - (if (let () (declare (not safe)) (type-descriptor? _klass83432_)) + (lambda (_klass83962_ _id83963_) + (if (let () (declare (not safe)) (type-descriptor? _klass83962_)) (let () (declare (not safe)) - (__find-method _klass83432_ _id83433_)) + (__find-method _klass83962_ _id83963_)) (let () (declare (not safe)) - (builtin-find-method _klass83432_ _id83433_))))) + (builtin-find-method _klass83962_ _id83963_))))) (define __find-method - (lambda (_klass83426_ _id83427_) - (let ((_$e83429_ + (lambda (_klass83956_ _id83957_) + (let ((_$e83959_ (let () (declare (not safe)) - (direct-method-ref _klass83426_ _id83427_)))) - (if _$e83429_ - _$e83429_ + (direct-method-ref _klass83956_ _id83957_)))) + (if _$e83959_ + _$e83959_ (if (let () (declare (not safe)) - (type-descriptor-sealed? _klass83426_)) + (type-descriptor-sealed? _klass83956_)) '#f (let () (declare (not safe)) - (mixin-method-ref _klass83426_ _id83427_))))))) + (mixin-method-ref _klass83956_ _id83957_))))))) (define class-find-method - (lambda (_klass83423_ _id83424_) - (if (let () (declare (not safe)) (type-descriptor? _klass83423_)) + (lambda (_klass83953_ _id83954_) + (if (let () (declare (not safe)) (type-descriptor? _klass83953_)) (let () (declare (not safe)) - (__find-method _klass83423_ _id83424_)) + (__find-method _klass83953_ _id83954_)) '#f))) (define mixin-find-method - (lambda (_mixins83416_ _id83417_) - (let ((__tmp88968 - (lambda (_g8341883420_) + (lambda (_mixins83946_ _id83947_) + (let ((__tmp89503 + (lambda (_g8394883950_) (let () (declare (not safe)) - (direct-method-ref _g8341883420_ _id83417_))))) + (direct-method-ref _g8394883950_ _id83947_))))) (declare (not safe)) - (ormap1 __tmp88968 _mixins83416_)))) + (ormap1 __tmp89503 _mixins83946_)))) (define builtin-find-method - (lambda (_klass83410_ _id83411_) - (if (let () (declare (not safe)) (##type? _klass83410_)) - (let ((_$e83413_ + (lambda (_klass83940_ _id83941_) + (if (let () (declare (not safe)) (##type? _klass83940_)) + (let ((_$e83943_ (let () (declare (not safe)) - (builtin-method-ref _klass83410_ _id83411_)))) - (if _$e83413_ - _$e83413_ - (let ((__tmp88969 + (builtin-method-ref _klass83940_ _id83941_)))) + (if _$e83943_ + _$e83943_ + (let ((__tmp89504 (let () (declare (not safe)) - (##type-super _klass83410_)))) + (##type-super _klass83940_)))) (declare (not safe)) - (builtin-find-method __tmp88969 _id83411_)))) + (builtin-find-method __tmp89504 _id83941_)))) '#f))) (define direct-method-ref - (lambda (_klass83402_ _id83403_) - (let ((_$e83405_ + (lambda (_klass83932_ _id83933_) + (let ((_$e83935_ (let () (declare (not safe)) - (type-descriptor-methods _klass83402_)))) - (if _$e83405_ - ((lambda (_ht83408_) + (type-descriptor-methods _klass83932_)))) + (if _$e83935_ + ((lambda (_ht83938_) (let () (declare (not safe)) - (table-ref _ht83408_ _id83403_ '#f))) - _$e83405_) + (table-ref _ht83938_ _id83933_ '#f))) + _$e83935_) '#f)))) (define mixin-method-ref - (lambda (_klass83399_ _id83400_) - (let ((__tmp88970 + (lambda (_klass83929_ _id83930_) + (let ((__tmp89505 (let () (declare (not safe)) - (type-descriptor-precedence-list _klass83399_)))) + (type-descriptor-precedence-list _klass83929_)))) (declare (not safe)) - (mixin-find-method __tmp88970 _id83400_)))) + (mixin-find-method __tmp89505 _id83930_)))) (define builtin-method-ref - (lambda (_klass83391_ _id83392_) - (let ((_$e83394_ - (let ((__tmp88971 - (let () (declare (not safe)) (##type-id _klass83391_)))) + (lambda (_klass83921_ _id83922_) + (let ((_$e83924_ + (let ((__tmp89506 + (let () (declare (not safe)) (##type-id _klass83921_)))) (declare (not safe)) - (table-ref __builtin-type-methods __tmp88971 '#f)))) - (if _$e83394_ - ((lambda (_mtab83397_) + (table-ref __builtin-type-methods __tmp89506 '#f)))) + (if _$e83924_ + ((lambda (_mtab83927_) (let () (declare (not safe)) - (table-ref _mtab83397_ _id83392_ '#f))) - _$e83394_) + (table-ref _mtab83927_ _id83922_ '#f))) + _$e83924_) '#f)))) (define bind-method!__% - (lambda (_klass83357_ _id83358_ _proc83359_ _rebind?83360_) - (letrec ((_bind!83362_ - (lambda (_ht83375_) - (if (and (let () (declare (not safe)) (not _rebind?83360_)) + (lambda (_klass83887_ _id83888_ _proc83889_ _rebind?83890_) + (letrec ((_bind!83892_ + (lambda (_ht83905_) + (if (and (let () (declare (not safe)) (not _rebind?83890_)) (let () (declare (not safe)) - (table-ref _ht83375_ _id83358_ '#f))) + (table-ref _ht83905_ _id83888_ '#f))) (error '"method already bound" 'class: - _klass83357_ + _klass83887_ 'method: - _id83358_) + _id83888_) (let () (declare (not safe)) - (table-set! _ht83375_ _id83358_ _proc83359_)))))) - (if (let () (declare (not safe)) (procedure? _proc83359_)) + (table-set! _ht83905_ _id83888_ _proc83889_)))))) + (if (let () (declare (not safe)) (procedure? _proc83889_)) '#!void - (error '"bad method; expected procedure" _proc83359_)) - (if (let () (declare (not safe)) (type-descriptor? _klass83357_)) - (let ((_ht83364_ + (error '"bad method; expected procedure" _proc83889_)) + (if (let () (declare (not safe)) (type-descriptor? _klass83887_)) + (let ((_ht83894_ (let () (declare (not safe)) - (type-descriptor-methods _klass83357_)))) - (if _ht83364_ - (let () (declare (not safe)) (_bind!83362_ _ht83364_)) - (let ((_ht83366_ + (type-descriptor-methods _klass83887_)))) + (if _ht83894_ + (let () (declare (not safe)) (_bind!83892_ _ht83894_)) + (let ((_ht83896_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (type-descriptor-methods-set! _klass83357_ _ht83366_)) - (let () (declare (not safe)) (_bind!83362_ _ht83366_))))) - (if (let () (declare (not safe)) (##type? _klass83357_)) - (let ((_ht83373_ - (let ((_$e83368_ - (let ((__tmp88972 + (type-descriptor-methods-set! _klass83887_ _ht83896_)) + (let () (declare (not safe)) (_bind!83892_ _ht83896_))))) + (if (let () (declare (not safe)) (##type? _klass83887_)) + (let ((_ht83903_ + (let ((_$e83898_ + (let ((__tmp89507 (let () (declare (not safe)) - (##type-id _klass83357_)))) + (##type-id _klass83887_)))) (declare (not safe)) (table-ref __builtin-type-methods - __tmp88972 + __tmp89507 '#f)))) - (if _$e83368_ - _$e83368_ - (let ((_ht83371_ + (if _$e83898_ + _$e83898_ + (let ((_ht83901_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp88973 + (let ((__tmp89508 (let () (declare (not safe)) - (##type-id _klass83357_)))) + (##type-id _klass83887_)))) (declare (not safe)) (table-set! __builtin-type-methods - __tmp88973 - _ht83371_)) - _ht83371_))))) + __tmp89508 + _ht83901_)) + _ht83901_))))) (declare (not safe)) - (_bind!83362_ _ht83373_)) + (_bind!83892_ _ht83903_)) (error '"bad class; expected type-descriptor or builtin type" - _klass83357_)))))) + _klass83887_)))))) (define bind-method!__0 - (lambda (_klass83380_ _id83381_ _proc83382_) - (let ((_rebind?83384_ '#t)) + (lambda (_klass83910_ _id83911_ _proc83912_) + (let ((_rebind?83914_ '#t)) (declare (not safe)) (bind-method!__% - _klass83380_ - _id83381_ - _proc83382_ - _rebind?83384_)))) + _klass83910_ + _id83911_ + _proc83912_ + _rebind?83914_)))) (define bind-method! - (lambda _g88975_ - (let ((_g88974_ (let () (declare (not safe)) (##length _g88975_)))) - (cond ((let () (declare (not safe)) (##fx= _g88974_ 3)) - (apply (lambda (_klass83380_ _id83381_ _proc83382_) + (lambda _g89510_ + (let ((_g89509_ (let () (declare (not safe)) (##length _g89510_)))) + (cond ((let () (declare (not safe)) (##fx= _g89509_ 3)) + (apply (lambda (_klass83910_ _id83911_ _proc83912_) (let () (declare (not safe)) (bind-method!__0 - _klass83380_ - _id83381_ - _proc83382_))) - _g88975_)) - ((let () (declare (not safe)) (##fx= _g88974_ 4)) - (apply (lambda (_klass83386_ - _id83387_ - _proc83388_ - _rebind?83389_) + _klass83910_ + _id83911_ + _proc83912_))) + _g89510_)) + ((let () (declare (not safe)) (##fx= _g89509_ 4)) + (apply (lambda (_klass83916_ + _id83917_ + _proc83918_ + _rebind?83919_) (let () (declare (not safe)) (bind-method!__% - _klass83386_ - _id83387_ - _proc83388_ - _rebind?83389_))) - _g88975_)) + _klass83916_ + _id83917_ + _proc83918_ + _rebind?83919_))) + _g89510_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g88975_)))))) + _g89510_)))))) (define __method-specializers (make-table 'test: eq?)) (define bind-specializer! - (lambda (_proc83353_ _specializer83354_) + (lambda (_proc83883_ _specializer83884_) (let () (declare (not safe)) - (table-set! __method-specializers _proc83353_ _specializer83354_)))) + (table-set! __method-specializers _proc83883_ _specializer83884_)))) (define seal-class! - (lambda (_klass83320_) - (letrec ((_collect-methods!83322_ - (lambda (_mtab83338_) - (letrec ((_merge!83340_ - (lambda (_tab83348_) - (let ((__tmp88976 - (lambda (_id83350_ _proc83351_) + (lambda (_klass83850_) + (letrec ((_collect-methods!83852_ + (lambda (_mtab83868_) + (letrec ((_merge!83870_ + (lambda (_tab83878_) + (let ((__tmp89511 + (lambda (_id83880_ _proc83881_) (let () (declare (not safe)) (table-set! - _mtab83338_ - _id83350_ - _proc83351_))))) + _mtab83868_ + _id83880_ + _proc83881_))))) (declare (not safe)) - (table-for-each __tmp88976 _tab83348_)))) - (_collect-direct-methods!83341_ - (lambda (_klass83343_) - (let ((_$e83345_ + (table-for-each __tmp89511 _tab83878_)))) + (_collect-direct-methods!83871_ + (lambda (_klass83873_) + (let ((_$e83875_ (let () (declare (not safe)) (type-descriptor-methods - _klass83343_)))) - (if _$e83345_ + _klass83873_)))) + (if _$e83875_ (let () (declare (not safe)) - (_merge!83340_ _$e83345_)) + (_merge!83870_ _$e83875_)) '#!void))))) (for-each - _collect-direct-methods!83341_ + _collect-direct-methods!83871_ (reverse (let () (declare (not safe)) - (class-precedence-list _klass83320_)))))))) - (if (let () (declare (not safe)) (type-descriptor? _klass83320_)) + (class-precedence-list _klass83850_)))))))) + (if (let () (declare (not safe)) (type-descriptor? _klass83850_)) (if (let () (declare (not safe)) - (type-descriptor-sealed? _klass83320_)) + (type-descriptor-sealed? _klass83850_)) '#!void (begin (if (let () (declare (not safe)) - (type-final? _klass83320_)) + (type-final? _klass83850_)) '#!void - (error '"cannot seal non-final class" _klass83320_)) - (let ((_vtab83324_ + (error '"cannot seal non-final class" _klass83850_)) + (let ((_vtab83854_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_mtab83325_ + (_mtab83855_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (_collect-methods!83322_ _mtab83325_)) - (let ((__tmp88977 - (lambda (_id83327_ _proc83328_) - (let ((_$e83330_ + (_collect-methods!83852_ _mtab83855_)) + (let ((__tmp89512 + (lambda (_id83857_ _proc83858_) + (let ((_$e83860_ (let () (declare (not safe)) (table-ref __method-specializers - _proc83328_ + _proc83858_ '#f)))) - (if _$e83330_ - ((lambda (_specializer83333_) - (let ((_proc83335_ - (_specializer83333_ - _klass83320_)) - (_gid83336_ - (let ((__tmp88978 + (if _$e83860_ + ((lambda (_specializer83863_) + (let ((_proc83865_ + (_specializer83863_ + _klass83850_)) + (_gid83866_ + (let ((__tmp89513 (let () (declare (not safe)) (##type-id - _klass83320_)))) + _klass83850_)))) (declare (not safe)) (make-symbol__1 - __tmp88978 + __tmp89513 '"::[" - _id83327_ + _id83857_ '"]")))) - (eval (let ((__tmp88979 - (let ((__tmp88980 - (let ((__tmp88981 + (eval (let ((__tmp89514 + (let ((__tmp89515 + (let ((__tmp89516 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp88982 + (let ((__tmp89517 (let () (declare (not safe)) - (cons _proc83335_ '())))) + (cons _proc83865_ '())))) (declare (not safe)) - (cons 'quote __tmp88982)))) + (cons 'quote __tmp89517)))) (declare (not safe)) - (cons __tmp88981 '())))) + (cons __tmp89516 '())))) (declare (not safe)) - (cons _gid83336_ __tmp88980)))) + (cons _gid83866_ __tmp89515)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'def __tmp88979))) + (cons 'def __tmp89514))) (let () (declare (not safe)) (table-set! - _vtab83324_ - _id83327_ - _proc83335_)))) - _$e83330_) + _vtab83854_ + _id83857_ + _proc83865_)))) + _$e83860_) (let () (declare (not safe)) (table-set! - _vtab83324_ - _id83327_ - _proc83328_))))))) + _vtab83854_ + _id83857_ + _proc83858_))))))) (declare (not safe)) - (table-for-each __tmp88977 _mtab83325_)) + (table-for-each __tmp89512 _mtab83855_)) (let () (declare (not safe)) (type-descriptor-methods-set! - _klass83320_ - _vtab83324_)) + _klass83850_ + _vtab83854_)) (let () (declare (not safe)) - (type-descriptor-seal! _klass83320_))))) + (type-descriptor-seal! _klass83850_))))) '#!void)))) (define next-method - (lambda (_subklass83269_ _obj83270_ _id83271_) - (let ((_klass83273_ - (let () (declare (not safe)) (object-type _obj83270_))) - (_type-id83274_ - (let () (declare (not safe)) (##type-id _subklass83269_)))) - (if (let () (declare (not safe)) (type-descriptor? _klass83273_)) - (let _lp83276_ ((_rest83278_ + (lambda (_subklass83799_ _obj83800_ _id83801_) + (let ((_klass83803_ + (let () (declare (not safe)) (object-type _obj83800_))) + (_type-id83804_ + (let () (declare (not safe)) (##type-id _subklass83799_)))) + (if (let () (declare (not safe)) (type-descriptor? _klass83803_)) + (let _lp83806_ ((_rest83808_ (let () (declare (not safe)) - (class-precedence-list _klass83273_)))) - (let* ((_rest8327983287_ _rest83278_) - (_else8328183295_ (lambda () '#f)) - (_K8328383301_ - (lambda (_rest83298_ _klass83299_) - (if (let ((__tmp88985 + (class-precedence-list _klass83803_)))) + (let* ((_rest8380983817_ _rest83808_) + (_else8381183825_ (lambda () '#f)) + (_K8381383831_ + (lambda (_rest83828_ _klass83829_) + (if (let ((__tmp89520 (let () (declare (not safe)) - (##type-id _klass83299_)))) + (##type-id _klass83829_)))) (declare (not safe)) - (eq? _type-id83274_ __tmp88985)) + (eq? _type-id83804_ __tmp89520)) (let () (declare (not safe)) - (mixin-find-method _rest83298_ _id83271_)) + (mixin-find-method _rest83828_ _id83801_)) (let () (declare (not safe)) - (_lp83276_ _rest83298_)))))) - (if (let () (declare (not safe)) (##pair? _rest8327983287_)) - (let ((_hd8328483304_ + (_lp83806_ _rest83828_)))))) + (if (let () (declare (not safe)) (##pair? _rest8380983817_)) + (let ((_hd8381483834_ (let () (declare (not safe)) - (##car _rest8327983287_))) - (_tl8328583306_ + (##car _rest8380983817_))) + (_tl8381583836_ (let () (declare (not safe)) - (##cdr _rest8327983287_)))) - (let* ((_klass83309_ _hd8328483304_) - (_rest83311_ _tl8328583306_)) + (##cdr _rest8380983817_)))) + (let* ((_klass83839_ _hd8381483834_) + (_rest83841_ _tl8381583836_)) (declare (not safe)) - (_K8328383301_ _rest83311_ _klass83309_))) - (let () (declare (not safe)) (_else8328183295_))))) - (if (let () (declare (not safe)) (##type? _klass83273_)) - (let _lp83313_ ((_klass83315_ _klass83273_)) - (if (let ((__tmp88984 + (_K8381383831_ _rest83841_ _klass83839_))) + (let () (declare (not safe)) (_else8381183825_))))) + (if (let () (declare (not safe)) (##type? _klass83803_)) + (let _lp83843_ ((_klass83845_ _klass83803_)) + (if (let ((__tmp89519 (let () (declare (not safe)) - (##type-id _klass83315_)))) + (##type-id _klass83845_)))) (declare (not safe)) - (eq? _type-id83274_ __tmp88984)) - (let ((__tmp88983 + (eq? _type-id83804_ __tmp89519)) + (let ((__tmp89518 (let () (declare (not safe)) - (##type-super _klass83315_)))) + (##type-super _klass83845_)))) (declare (not safe)) - (builtin-find-method __tmp88983 _id83271_)) - (let ((_$e83317_ + (builtin-find-method __tmp89518 _id83801_)) + (let ((_$e83847_ (let () (declare (not safe)) - (##type-super _klass83315_)))) - (if _$e83317_ + (##type-super _klass83845_)))) + (if _$e83847_ (let () (declare (not safe)) - (_lp83313_ _$e83317_)) + (_lp83843_ _$e83847_)) '#f)))) '#f))))) (define call-next-method - (lambda (_subklass83259_ _obj83260_ _id83261_ . _args83262_) - (let ((_$e83264_ + (lambda (_subklass83789_ _obj83790_ _id83791_ . _args83792_) + (let ((_$e83794_ (let () (declare (not safe)) - (next-method _subklass83259_ _obj83260_ _id83261_)))) - (if _$e83264_ - ((lambda (_methodf83267_) - (apply _methodf83267_ _obj83260_ _args83262_)) - _$e83264_) + (next-method _subklass83789_ _obj83790_ _id83791_)))) + (if _$e83794_ + ((lambda (_methodf83797_) + (apply _methodf83797_ _obj83790_ _args83792_)) + _$e83794_) (error '"cannot find next method" 'object: - _obj83260_ + _obj83790_ 'method: - _id83261_))))) - (define write-style (lambda (_we83257_) (macro-writeenv-style _we83257_))) + _id83791_))))) + (define write-style (lambda (_we83787_) (macro-writeenv-style _we83787_))) (define write-object - (lambda (_we83249_ _obj83250_) - (let ((_$e83252_ - (let () (declare (not safe)) (method-ref _obj83250_ ':wr)))) - (if _$e83252_ - ((lambda (_method83255_) (_method83255_ _obj83250_ _we83249_)) - _$e83252_) + (lambda (_we83779_ _obj83780_) + (let ((_$e83782_ + (let () (declare (not safe)) (method-ref _obj83780_ ':wr)))) + (if _$e83782_ + ((lambda (_method83785_) (_method83785_ _obj83780_ _we83779_)) + _$e83782_) (let () (declare (not safe)) - (##default-wr _we83249_ _obj83250_)))))) + (##default-wr _we83779_ _obj83780_)))))) (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 f9b4f037a..50852df3a 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 (_$stx83131_) - (let* ((_g8313583161_ - (lambda (_g8313683157_) + (lambda (_$stx83661_) + (let* ((_g8366583691_ + (lambda (_g8366683687_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8313683157_))) - (_g8313483245_ - (lambda (_g8313683165_) - (if (gx#stx-pair? _g8313683165_) - (let ((_e8314383168_ (gx#syntax-e _g8313683165_))) - (let ((_hd8314283172_ - (let () (declare (not safe)) (##car _e8314383168_))) - (_tl8314183175_ + _g8366683687_))) + (_g8366483775_ + (lambda (_g8366683695_) + (if (gx#stx-pair? _g8366683695_) + (let ((_e8367383698_ (gx#syntax-e _g8366683695_))) + (let ((_hd8367283702_ + (let () (declare (not safe)) (##car _e8367383698_))) + (_tl8367183705_ (let () (declare (not safe)) - (##cdr _e8314383168_)))) - (if (gx#stx-pair? _tl8314183175_) - (let ((_e8314683178_ (gx#syntax-e _tl8314183175_))) - (let ((_hd8314583182_ + (##cdr _e8367383698_)))) + (if (gx#stx-pair? _tl8367183705_) + (let ((_e8367683708_ (gx#syntax-e _tl8367183705_))) + (let ((_hd8367583712_ (let () (declare (not safe)) - (##car _e8314683178_))) - (_tl8314483185_ + (##car _e8367683708_))) + (_tl8367483715_ (let () (declare (not safe)) - (##cdr _e8314683178_)))) - (if (gx#stx-pair? _tl8314483185_) - (let ((_e8314983188_ - (gx#syntax-e _tl8314483185_))) - (let ((_hd8314883192_ + (##cdr _e8367683708_)))) + (if (gx#stx-pair? _tl8367483715_) + (let ((_e8367983718_ + (gx#syntax-e _tl8367483715_))) + (let ((_hd8367883722_ (let () (declare (not safe)) - (##car _e8314983188_))) - (_tl8314783195_ + (##car _e8367983718_))) + (_tl8367783725_ (let () (declare (not safe)) - (##cdr _e8314983188_)))) - (if (gx#stx-pair? _tl8314783195_) - (let ((_e8315283198_ - (gx#syntax-e _tl8314783195_))) - (let ((_hd8315183202_ + (##cdr _e8367983718_)))) + (if (gx#stx-pair? _tl8367783725_) + (let ((_e8368283728_ + (gx#syntax-e _tl8367783725_))) + (let ((_hd8368183732_ (let () (declare (not safe)) - (##car _e8315283198_))) - (_tl8315083205_ + (##car _e8368283728_))) + (_tl8368083735_ (let () (declare (not safe)) - (##cdr _e8315283198_)))) - (if (gx#stx-pair? _tl8315083205_) - (let ((_e8315583208_ + (##cdr _e8368283728_)))) + (if (gx#stx-pair? _tl8368083735_) + (let ((_e8368583738_ (gx#syntax-e - _tl8315083205_))) - (let ((_hd8315483212_ + _tl8368083735_))) + (let ((_hd8368483742_ (let () (declare (not safe)) - (##car _e8315583208_))) - (_tl8315383215_ + (##car _e8368583738_))) + (_tl8368383745_ (let () (declare (not safe)) - (##cdr _e8315583208_)))) + (##cdr _e8368583738_)))) (if (gx#stx-null? - _tl8315383215_) - ((lambda (_L83218_ + _tl8368383745_) + ((lambda (_L83748_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L83220_ - _L83221_ - _L83222_) - (let ((__tmp89032 (gx#datum->syntax '#f 'if)) - (__tmp88986 - (let ((__tmp89029 - (let ((__tmp89031 + _L83750_ + _L83751_ + _L83752_) + (let ((__tmp89567 (gx#datum->syntax '#f 'if)) + (__tmp89521 + (let ((__tmp89564 + (let ((__tmp89566 (gx#datum->syntax '#f 'object?)) - (__tmp89030 + (__tmp89565 (let () (declare (not safe)) - (cons _L83222_ '())))) + (cons _L83752_ '())))) (declare (not safe)) - (cons __tmp89031 __tmp89030))) - (__tmp88987 - (let ((__tmp88992 - (let ((__tmp89028 + (cons __tmp89566 __tmp89565))) + (__tmp89522 + (let ((__tmp89527 + (let ((__tmp89563 (gx#datum->syntax '#f 'let)) - (__tmp88993 - (let ((__tmp89022 - (let ((__tmp89027 + (__tmp89528 + (let ((__tmp89557 + (let ((__tmp89562 (gx#datum->syntax '#f 'klass)) - (__tmp89023 - (let ((__tmp89024 + (__tmp89558 + (let ((__tmp89559 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp89026 + (let ((__tmp89561 (gx#datum->syntax '#f 'object-type)) - (__tmp89025 + (__tmp89560 (let () (declare (not safe)) - (cons _L83222_ '())))) + (cons _L83752_ '())))) (declare (not safe)) - (cons __tmp89026 __tmp89025)))) + (cons __tmp89561 __tmp89560)))) (declare (not safe)) - (cons __tmp89024 '())))) + (cons __tmp89559 '())))) (declare (not safe)) - (cons __tmp89027 __tmp89023))) - (__tmp88994 - (let ((__tmp88995 - (let ((__tmp89021 (gx#datum->syntax '#f 'cond)) - (__tmp88996 - (let ((__tmp89004 - (let ((__tmp89008 - (let ((__tmp89020 + (cons __tmp89562 __tmp89558))) + (__tmp89529 + (let ((__tmp89530 + (let ((__tmp89556 (gx#datum->syntax '#f 'cond)) + (__tmp89531 + (let ((__tmp89539 + (let ((__tmp89543 + (let ((__tmp89555 (gx#datum->syntax '#f 'and)) - (__tmp89009 - (let ((__tmp89016 - (let ((__tmp89019 + (__tmp89544 + (let ((__tmp89551 + (let ((__tmp89554 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'type-descriptor?)) - (__tmp89017 - (let ((__tmp89018 (gx#datum->syntax '#f 'klass))) + (__tmp89552 + (let ((__tmp89553 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp89018 '())))) + (cons __tmp89553 '())))) (declare (not safe)) - (cons __tmp89019 __tmp89017))) - (__tmp89010 - (let ((__tmp89011 - (let ((__tmp89015 + (cons __tmp89554 __tmp89552))) + (__tmp89545 + (let ((__tmp89546 + (let ((__tmp89550 (gx#datum->syntax '#f 'class-slot-offset)) - (__tmp89012 - (let ((__tmp89014 + (__tmp89547 + (let ((__tmp89549 (gx#datum->syntax '#f 'klass)) - (__tmp89013 + (__tmp89548 (let () (declare (not safe)) - (cons _L83221_ '())))) + (cons _L83751_ '())))) (declare (not safe)) - (cons __tmp89014 __tmp89013)))) + (cons __tmp89549 __tmp89548)))) (declare (not safe)) - (cons __tmp89015 __tmp89012)))) + (cons __tmp89550 __tmp89547)))) (declare (not safe)) - (cons __tmp89011 '())))) + (cons __tmp89546 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp89016 - __tmp89010)))) + (cons __tmp89551 + __tmp89545)))) (declare (not safe)) - (cons __tmp89020 __tmp89009))) - (__tmp89005 - (let ((__tmp89007 + (cons __tmp89555 __tmp89544))) + (__tmp89540 + (let ((__tmp89542 (gx#datum->syntax '#f '=>)) - (__tmp89006 + (__tmp89541 (let () (declare (not safe)) - (cons _L83220_ '())))) + (cons _L83750_ '())))) (declare (not safe)) - (cons __tmp89007 __tmp89006)))) + (cons __tmp89542 __tmp89541)))) (declare (not safe)) - (cons __tmp89008 __tmp89005))) - (__tmp88997 - (let ((__tmp88998 - (let ((__tmp89003 + (cons __tmp89543 __tmp89540))) + (__tmp89532 + (let ((__tmp89533 + (let ((__tmp89538 (gx#datum->syntax '#f 'else)) - (__tmp88999 - (let ((__tmp89000 - (let ((__tmp89001 + (__tmp89534 + (let ((__tmp89535 + (let ((__tmp89536 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp89002 + (let ((__tmp89537 (let () (declare (not safe)) - (cons _L83221_ '())))) + (cons _L83751_ '())))) (declare (not safe)) - (cons _L83222_ __tmp89002)))) + (cons _L83752_ __tmp89537)))) (declare (not safe)) - (cons _L83218_ __tmp89001)))) + (cons _L83748_ __tmp89536)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp89000 '())))) + (cons __tmp89535 '())))) (declare (not safe)) - (cons __tmp89003 __tmp88999)))) + (cons __tmp89538 __tmp89534)))) (declare (not safe)) - (cons __tmp88998 '())))) + (cons __tmp89533 '())))) (declare (not safe)) - (cons __tmp89004 __tmp88997)))) + (cons __tmp89539 __tmp89532)))) (declare (not safe)) - (cons __tmp89021 __tmp88996)))) + (cons __tmp89556 __tmp89531)))) (declare (not safe)) - (cons __tmp88995 '())))) + (cons __tmp89530 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp89022 - __tmp88994)))) + (cons __tmp89557 + __tmp89529)))) (declare (not safe)) - (cons __tmp89028 __tmp88993))) - (__tmp88988 - (let ((__tmp88989 - (let ((__tmp88990 - (let ((__tmp88991 + (cons __tmp89563 __tmp89528))) + (__tmp89523 + (let ((__tmp89524 + (let ((__tmp89525 + (let ((__tmp89526 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L83221_ '())))) + (cons _L83751_ '())))) (declare (not safe)) - (cons _L83222_ __tmp88991)))) + (cons _L83752_ __tmp89526)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L83218_ - __tmp88990)))) + (cons _L83748_ + __tmp89525)))) (declare (not safe)) - (cons __tmp88989 '())))) + (cons __tmp89524 '())))) (declare (not safe)) - (cons __tmp88992 __tmp88988)))) + (cons __tmp89527 __tmp89523)))) (declare (not safe)) - (cons __tmp89029 __tmp88987)))) + (cons __tmp89564 __tmp89522)))) (declare (not safe)) - (cons __tmp89032 __tmp88986))) - _hd8315483212_ - _hd8315183202_ - _hd8314883192_ - _hd8314583182_) - (_g8313583161_ _g8313683165_)))) + (cons __tmp89567 __tmp89521))) + _hd8368483742_ + _hd8368183732_ + _hd8367883722_ + _hd8367583712_) + (_g8366583691_ _g8366683695_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8313583161_ - _g8313683165_)))) - (_g8313583161_ _g8313683165_)))) - (_g8313583161_ _g8313683165_)))) - (_g8313583161_ _g8313683165_)))) - (_g8313583161_ _g8313683165_))))) - (_g8313483245_ _$stx83131_)))) + (_g8366583691_ + _g8366683695_)))) + (_g8366583691_ _g8366683695_)))) + (_g8366583691_ _g8366683695_)))) + (_g8366583691_ _g8366683695_)))) + (_g8366583691_ _g8366683695_))))) + (_g8366483775_ _$stx83661_)))) diff --git a/src/bootstrap/gerbil/runtime/repl__0.scm b/src/bootstrap/gerbil/runtime/repl__0.scm index 0bcb7148f..a72d5e942 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 1707573211) + (define gerbil/runtime/repl::timestamp 1707674930) (define replx (lambda () - (letrec ((_write-reason114734_ - (lambda (_exn114740_) - (lambda (_cont114742_ _port114743_) + (letrec ((_write-reason115680_ + (lambda (_exn115686_) + (lambda (_cont115688_ _port115689_) (let () (declare (not safe)) (##display-exception-in-context - _exn114740_ - _cont114742_ - _port114743_)) + _exn115686_ + _cont115688_ + _port115689_)) '#f)))) (with-exception-handler - (lambda (_exn114736_) - (let ((__tmp119212 - (lambda (_cont114738_) - (let ((__tmp119213 + (lambda (_exn115682_) + (let ((__tmp120258 + (lambda (_cont115684_) + (let ((__tmp120259 (let () (declare (not safe)) - (_write-reason114734_ _exn114736_)))) + (_write-reason115680_ _exn115682_)))) (declare (not safe)) - (##repl-within _cont114738_ __tmp119213 _exn114736_))))) + (##repl-within _cont115684_ __tmp120259 _exn115682_))))) (declare (not safe)) - (##continuation-capture __tmp119212))) + (##continuation-capture __tmp120258))) ##repl))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__0.scm b/src/bootstrap/gerbil/runtime/syntax__0.scm index 76a0419ed..e151e1c0f 100644 --- a/src/bootstrap/gerbil/runtime/syntax__0.scm +++ b/src/bootstrap/gerbil/runtime/syntax__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/syntax::timestamp 1707573210) + (define gerbil/runtime/syntax::timestamp 1707674930) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _$args101906_ - (apply make-class-instance SyntaxError::t _$args101906_))) + (lambda _$args102641_ + (apply make-instance SyntaxError::t _$args102641_))) (define SyntaxError-message (make-class-slot-accessor SyntaxError::t 'message)) (define SyntaxError-irritants @@ -60,107 +60,107 @@ (define &SyntaxError-marks-set! (make-class-slot-unchecked-mutator SyntaxError::t 'marks)) (define SyntaxError::display-exception - (lambda (_self101809_ _port101810_) - (letrec ((_location101812_ + (lambda (_self102544_ _port102545_) + (letrec ((_location102547_ (lambda () - (let _lp101866_ ((_rest101868_ + (let _lp102601_ ((_rest102603_ (##unchecked-structure-ref - _self101809_ + _self102544_ '2 SyntaxError::t '#f))) - (let* ((_rest101869101877_ _rest101868_) - (_else101871101885_ (lambda () '#f)) - (_K101873101894_ - (lambda (_rest101888_ _hd101889_) - (let ((_$e101891_ (__AST-source _hd101889_))) - (if _$e101891_ - _$e101891_ - (_lp101866_ _rest101888_)))))) - (if (##pair? _rest101869101877_) - (let ((_hd101874101897_ (##car _rest101869101877_)) - (_tl101875101899_ - (##cdr _rest101869101877_))) - (let* ((_hd101902_ _hd101874101897_) - (_rest101904_ _tl101875101899_)) - (_K101873101894_ _rest101904_ _hd101902_))) - (_else101871101885_))))))) + (let* ((_rest102604102612_ _rest102603_) + (_else102606102620_ (lambda () '#f)) + (_K102608102629_ + (lambda (_rest102623_ _hd102624_) + (let ((_$e102626_ (__AST-source _hd102624_))) + (if _$e102626_ + _$e102626_ + (_lp102601_ _rest102623_)))))) + (if (##pair? _rest102604102612_) + (let ((_hd102609102632_ (##car _rest102604102612_)) + (_tl102610102634_ + (##cdr _rest102604102612_))) + (let* ((_hd102637_ _hd102609102632_) + (_rest102639_ _tl102610102634_)) + (_K102608102629_ _rest102639_ _hd102637_))) + (_else102606102620_))))))) (call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_$e101815_ (_location101812_))) - (if _$e101815_ - ((lambda (_where101818_) + (let ((_$e102550_ (_location102547_))) + (if _$e102550_ + ((lambda (_where102553_) (##display-locat - _where101818_ + _where102553_ '#t (current-output-port))) - _$e101815_) + _$e102550_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_$e101820_ + (let ((_$e102555_ (##unchecked-structure-ref - _self101809_ + _self102544_ '3 SyntaxError::t '#f))) - (if _$e101820_ - ((lambda (_where101823_) + (if _$e102555_ + ((lambda (_where102558_) (displayln '" at " - _where101823_ + _where102558_ '": " (##unchecked-structure-ref - _self101809_ + _self102544_ '1 SyntaxError::t '#f))) - _$e101820_) + _$e102555_) (displayln '": " (##unchecked-structure-ref - _self101809_ + _self102544_ '1 SyntaxError::t '#f)))) - (let* ((_g101824101832_ + (let* ((_g102559102567_ (##unchecked-structure-ref - _self101809_ + _self102544_ '2 SyntaxError::t '#f)) - (_else101826101840_ (lambda () '#!void)) - (_K101828101853_ - (lambda (_rest101843_ _stx101844_) + (_else102561102575_ (lambda () '#!void)) + (_K102563102588_ + (lambda (_rest102578_ _stx102579_) (display '"... form: ") - (__pp-syntax _stx101844_) + (__pp-syntax _stx102579_) (for-each - (lambda (_detail101846_) + (lambda (_detail102581_) (display '"... detail: ") - (write (__AST->datum _detail101846_)) - (let ((_$e101848_ (__AST-source _detail101846_))) - (if _$e101848_ - ((lambda (_loc101851_) + (write (__AST->datum _detail102581_)) + (let ((_$e102583_ (__AST-source _detail102581_))) + (if _$e102583_ + ((lambda (_loc102586_) (display '" at ") (##display-locat - _loc101851_ + _loc102586_ '#t (current-output-port))) - _$e101848_) + _$e102583_) '#!void)) (newline)) - _rest101843_)))) - (if (##pair? _g101824101832_) - (let ((_hd101829101856_ (##car _g101824101832_)) - (_tl101830101858_ (##cdr _g101824101832_))) - (let* ((_stx101861_ _hd101829101856_) - (_rest101863_ _tl101830101858_)) - (_K101828101853_ _rest101863_ _stx101861_))) + _rest102578_)))) + (if (##pair? _g102559102567_) + (let ((_hd102564102591_ (##car _g102559102567_)) + (_tl102565102593_ (##cdr _g102559102567_))) + (let* ((_stx102596_ _hd102564102591_) + (_rest102598_ _tl102565102593_)) + (_K102563102588_ _rest102598_ _stx102596_))) '#!void))) current-output-port - _port101810_)))) + _port102545_)))) (bind-method! SyntaxError::t 'display-exception @@ -168,249 +168,249 @@ '#f) (seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_message101680_ - _irritants101681_ - _where101682_ - _context101683_ - _marks101684_ - _phi101685_) - (let ((__obj106469 + (lambda (_message102415_ + _irritants102416_ + _where102417_ + _context102418_ + _marks102419_ + _phi102420_) + (let ((__obj107304 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f))) (##unchecked-structure-set! - __obj106469 - _message101680_ + __obj107304 + _message102415_ '1 SyntaxError::t '#f) (##unchecked-structure-set! - __obj106469 - _irritants101681_ + __obj107304 + _irritants102416_ '2 SyntaxError::t '#f) (##unchecked-structure-set! - __obj106469 - _where101682_ + __obj107304 + _where102417_ '3 SyntaxError::t '#f) (##unchecked-structure-set! - __obj106469 - _context101683_ + __obj107304 + _context102418_ '4 SyntaxError::t '#f) (##unchecked-structure-set! - __obj106469 - _marks101684_ + __obj107304 + _marks102419_ '6 SyntaxError::t '#f) (##unchecked-structure-set! - __obj106469 - _phi101685_ + __obj107304 + _phi102420_ '5 SyntaxError::t '#f) - __obj106469))) + __obj107304))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_where101675_ _message101676_ _stx101677_ . _details101678_) + (lambda (_where102410_ _message102411_ _stx102412_ . _details102413_) (raise (make-syntax-error - _message101676_ - (cons _stx101677_ _details101678_) - _where101675_ + _message102411_ + (cons _stx102412_ _details102413_) + _where102410_ (__current-context) '#f '#f)))) (define __current-context (make-parameter '#f)) (define AST::t - (make-struct-type + (make-class-type 'gerbil#AST::t 'syntax - '#f + (list) '(e source) (cons (cons 'struct: '#t) '()) '#f)) - (define AST? (make-struct-predicate AST::t)) + (define AST? (make-class-predicate AST::t)) (define make-AST - (lambda _$args101672_ (apply make-struct-instance AST::t _$args101672_))) - (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)) - (define AST-source-set! (make-struct-slot-mutator AST::t 'source)) - (define &AST-e (make-struct-slot-unchecked-accessor AST::t 'e)) - (define &AST-source (make-struct-slot-unchecked-accessor AST::t 'source)) - (define &AST-e-set! (make-struct-slot-unchecked-mutator AST::t 'e)) + (lambda _$args102407_ (apply make-instance AST::t _$args102407_))) + (define AST-e (make-class-slot-accessor AST::t 'e)) + (define AST-source (make-class-slot-accessor AST::t 'source)) + (define AST-e-set! (make-class-slot-mutator AST::t 'e)) + (define AST-source-set! (make-class-slot-mutator AST::t 'source)) + (define &AST-e (make-class-slot-unchecked-accessor AST::t 'e)) + (define &AST-source (make-class-slot-unchecked-accessor AST::t 'source)) + (define &AST-e-set! (make-class-slot-unchecked-mutator AST::t 'e)) (define &AST-source-set! - (make-struct-slot-unchecked-mutator AST::t 'source)) + (make-class-slot-unchecked-mutator AST::t 'source)) (define __AST-e - (lambda (_stx101670_) - (if (##structure-instance-of? _stx101670_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx101670_ '1 AST::t '#f) - _stx101670_))) + (lambda (_stx102405_) + (if (##structure-instance-of? _stx102405_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx102405_ '1 AST::t '#f) + _stx102405_))) (define __AST-source - (lambda (_stx101664_) - (let _lp101666_ ((_src101668_ _stx101664_)) - (if (##structure-instance-of? _src101668_ 'gerbil#AST::t) - (_lp101666_ - (##unchecked-structure-ref _src101668_ '2 AST::t '#f)) - (if (##locat? _src101668_) _src101668_ '#f))))) + (lambda (_stx102399_) + (let _lp102401_ ((_src102403_ _stx102399_)) + (if (##structure-instance-of? _src102403_ 'gerbil#AST::t) + (_lp102401_ + (##unchecked-structure-ref _src102403_ '2 AST::t '#f)) + (if (##locat? _src102403_) _src102403_ '#f))))) (define __AST - (lambda (_e101656_ _src-stx101657_) - (let ((_src101659_ (__AST-source _src-stx101657_))) - (if (or (##structure-instance-of? _e101656_ 'gerbil#AST::t) - (not _src101659_)) - _e101656_ - (##structure AST::t _e101656_ _src101659_))))) + (lambda (_e102391_ _src-stx102392_) + (let ((_src102394_ (__AST-source _src-stx102392_))) + (if (or (##structure-instance-of? _e102391_ 'gerbil#AST::t) + (not _src102394_)) + _e102391_ + (##structure AST::t _e102391_ _src102394_))))) (define __AST-eq? - (lambda (_stx101653_ _obj101654_) - (eq? (__AST-e _stx101653_) _obj101654_))) - (define __AST-pair? (lambda (_stx101651_) (pair? (__AST-e _stx101651_)))) - (define __AST-null? (lambda (_stx101649_) (null? (__AST-e _stx101649_)))) + (lambda (_stx102388_ _obj102389_) + (eq? (__AST-e _stx102388_) _obj102389_))) + (define __AST-pair? (lambda (_stx102386_) (pair? (__AST-e _stx102386_)))) + (define __AST-null? (lambda (_stx102384_) (null? (__AST-e _stx102384_)))) (define __AST-datum? - (lambda (_stx101630_) - (let* ((_e101632_ (__AST-e _stx101630_)) - (_$e101634_ (number? _e101632_))) - (if _$e101634_ - _$e101634_ - (let ((_$e101637_ (string? _e101632_))) - (if _$e101637_ - _$e101637_ - (let ((_$e101640_ (char? _e101632_))) - (if _$e101640_ - _$e101640_ - (let ((_$e101643_ (keyword? _e101632_))) - (if _$e101643_ - _$e101643_ - (let ((_$e101646_ (boolean? _e101632_))) - (if _$e101646_ - _$e101646_ - (eq? _e101632_ '#!void))))))))))))) - (define __AST-id? (lambda (_stx101628_) (symbol? (__AST-e _stx101628_)))) + (lambda (_stx102365_) + (let* ((_e102367_ (__AST-e _stx102365_)) + (_$e102369_ (number? _e102367_))) + (if _$e102369_ + _$e102369_ + (let ((_$e102372_ (string? _e102367_))) + (if _$e102372_ + _$e102372_ + (let ((_$e102375_ (char? _e102367_))) + (if _$e102375_ + _$e102375_ + (let ((_$e102378_ (keyword? _e102367_))) + (if _$e102378_ + _$e102378_ + (let ((_$e102381_ (boolean? _e102367_))) + (if _$e102381_ + _$e102381_ + (eq? _e102367_ '#!void))))))))))))) + (define __AST-id? (lambda (_stx102363_) (symbol? (__AST-e _stx102363_)))) (define __AST-id-list?__% - (lambda (_stx101579_ _tail?101580_) - (let _lp101582_ ((_rest101584_ _stx101579_)) - (let* ((_$e101586_ _rest101584_) - (_$E101588101601_ + (lambda (_stx102314_ _tail?102315_) + (let _lp102317_ ((_rest102319_ _stx102314_)) + (let* ((_$e102321_ _rest102319_) + (_$E102323102336_ (lambda () - (let* ((_$E101589101596_ + (let* ((_$E102324102331_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e101586_))) - (_rest101599_ _$e101586_)) - (_tail?101580_ _rest101599_))))) - (if (__AST-pair? _$e101586_) - (let* ((_$tgt101590101604_ (__AST-e _$e101586_)) - (_$hd101591101607_ (##car _$tgt101590101604_)) - (_$tl101592101610_ (##cdr _$tgt101590101604_))) - (let* ((_hd101614_ _$hd101591101607_) - (_rest101616_ _$tl101592101610_)) - (if (__AST-id? _hd101614_) (_lp101582_ _rest101616_) '#f))) - (_$E101588101601_)))))) + _$e102321_))) + (_rest102334_ _$e102321_)) + (_tail?102315_ _rest102334_))))) + (if (__AST-pair? _$e102321_) + (let* ((_$tgt102325102339_ (__AST-e _$e102321_)) + (_$hd102326102342_ (##car _$tgt102325102339_)) + (_$tl102327102345_ (##cdr _$tgt102325102339_))) + (let* ((_hd102349_ _$hd102326102342_) + (_rest102351_ _$tl102327102345_)) + (if (__AST-id? _hd102349_) (_lp102317_ _rest102351_) '#f))) + (_$E102323102336_)))))) (define __AST-id-list?__0 - (lambda (_stx101621_) - (let ((_tail?101623_ __AST-null?)) - (__AST-id-list?__% _stx101621_ _tail?101623_)))) + (lambda (_stx102356_) + (let ((_tail?102358_ __AST-null?)) + (__AST-id-list?__% _stx102356_ _tail?102358_)))) (define __AST-id-list? - (lambda _g106472_ - (let ((_g106471_ (##length _g106472_))) - (cond ((##fx= _g106471_ 1) - (apply (lambda (_stx101621_) (__AST-id-list?__0 _stx101621_)) - _g106472_)) - ((##fx= _g106471_ 2) - (apply (lambda (_stx101625_ _tail?101626_) - (__AST-id-list?__% _stx101625_ _tail?101626_)) - _g106472_)) + (lambda _g107307_ + (let ((_g107306_ (##length _g107307_))) + (cond ((##fx= _g107306_ 1) + (apply (lambda (_stx102356_) (__AST-id-list?__0 _stx102356_)) + _g107307_)) + ((##fx= _g107306_ 2) + (apply (lambda (_stx102360_ _tail?102361_) + (__AST-id-list?__% _stx102360_ _tail?102361_)) + _g107307_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g106472_)))))) + _g107307_)))))) (define __AST-bind-list? - (lambda (_stx101571_) + (lambda (_stx102306_) (__AST-id-list?__% - _stx101571_ - (lambda (_e101573_) - (let ((_$e101575_ (__AST-null? _e101573_))) - (if _$e101575_ _$e101575_ (__AST-id? _e101573_))))))) + _stx102306_ + (lambda (_e102308_) + (let ((_$e102310_ (__AST-null? _e102308_))) + (if _$e102310_ _$e102310_ (__AST-id? _e102308_))))))) (define __AST-list?__% - (lambda (_stx101524_ _tail?101525_) - (let _lp101527_ ((_rest101529_ _stx101524_)) - (let* ((_$e101531_ _rest101529_) - (_$E101533101546_ + (lambda (_stx102259_ _tail?102260_) + (let _lp102262_ ((_rest102264_ _stx102259_)) + (let* ((_$e102266_ _rest102264_) + (_$E102268102281_ (lambda () - (let* ((_$E101534101541_ + (let* ((_$E102269102276_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e101531_))) - (_rest101544_ _$e101531_)) - (_tail?101525_ _rest101544_))))) - (if (__AST-pair? _$e101531_) - (let* ((_$tgt101535101549_ (__AST-e _$e101531_)) - (_$hd101536101552_ (##car _$tgt101535101549_)) - (_$tl101537101555_ (##cdr _$tgt101535101549_))) - (let ((_rest101559_ _$tl101537101555_)) - (_lp101527_ _rest101559_))) - (_$E101533101546_)))))) + _$e102266_))) + (_rest102279_ _$e102266_)) + (_tail?102260_ _rest102279_))))) + (if (__AST-pair? _$e102266_) + (let* ((_$tgt102270102284_ (__AST-e _$e102266_)) + (_$hd102271102287_ (##car _$tgt102270102284_)) + (_$tl102272102290_ (##cdr _$tgt102270102284_))) + (let ((_rest102294_ _$tl102272102290_)) + (_lp102262_ _rest102294_))) + (_$E102268102281_)))))) (define __AST-list?__0 - (lambda (_stx101564_) - (let ((_tail?101566_ __AST-null?)) - (__AST-list?__% _stx101564_ _tail?101566_)))) + (lambda (_stx102299_) + (let ((_tail?102301_ __AST-null?)) + (__AST-list?__% _stx102299_ _tail?102301_)))) (define __AST-list? - (lambda _g106474_ - (let ((_g106473_ (##length _g106474_))) - (cond ((##fx= _g106473_ 1) - (apply (lambda (_stx101564_) (__AST-list?__0 _stx101564_)) - _g106474_)) - ((##fx= _g106473_ 2) - (apply (lambda (_stx101568_ _tail?101569_) - (__AST-list?__% _stx101568_ _tail?101569_)) - _g106474_)) + (lambda _g107309_ + (let ((_g107308_ (##length _g107309_))) + (cond ((##fx= _g107308_ 1) + (apply (lambda (_stx102299_) (__AST-list?__0 _stx102299_)) + _g107309_)) + ((##fx= _g107308_ 2) + (apply (lambda (_stx102303_ _tail?102304_) + (__AST-list?__% _stx102303_ _tail?102304_)) + _g107309_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g106474_)))))) + _g107309_)))))) (define __AST->list - (lambda (_stx101489_) - (let* ((_$e101491_ _stx101489_) - (_$E101493101506_ + (lambda (_stx102224_) + (let* ((_$e102226_ _stx102224_) + (_$E102228102241_ (lambda () - (let* ((_$E101494101501_ + (let* ((_$E102229102236_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e101491_))) - (_rest101504_ _$e101491_)) - (__AST-e _rest101504_))))) - (if (__AST-pair? _$e101491_) - (let* ((_$tgt101495101509_ (__AST-e _$e101491_)) - (_$hd101496101512_ (##car _$tgt101495101509_)) - (_$tl101497101515_ (##cdr _$tgt101495101509_))) - (let* ((_hd101519_ _$hd101496101512_) - (_rest101521_ _$tl101497101515_)) - (cons _hd101519_ (__AST->list _rest101521_)))) - (_$E101493101506_))))) + _$e102226_))) + (_rest102239_ _$e102226_)) + (__AST-e _rest102239_))))) + (if (__AST-pair? _$e102226_) + (let* ((_$tgt102230102244_ (__AST-e _$e102226_)) + (_$hd102231102247_ (##car _$tgt102230102244_)) + (_$tl102232102250_ (##cdr _$tgt102230102244_))) + (let* ((_hd102254_ _$hd102231102247_) + (_rest102256_ _$tl102232102250_)) + (cons _hd102254_ (__AST->list _rest102256_)))) + (_$E102228102241_))))) (define __AST->datum - (lambda (_stx101487_) - (if (##structure-instance-of? _stx101487_ 'gerbil#AST::t) - (__AST->datum (__AST-e _stx101487_)) - (if (pair? _stx101487_) - (cons (__AST->datum (car _stx101487_)) - (__AST->datum (cdr _stx101487_))) - (if (vector? _stx101487_) - (vector-map __AST->datum _stx101487_) - (if (box? _stx101487_) - (box (__AST->datum (unbox _stx101487_))) - _stx101487_)))))) + (lambda (_stx102222_) + (if (##structure-instance-of? _stx102222_ 'gerbil#AST::t) + (__AST->datum (__AST-e _stx102222_)) + (if (pair? _stx102222_) + (cons (__AST->datum (car _stx102222_)) + (__AST->datum (cdr _stx102222_))) + (if (vector? _stx102222_) + (vector-map __AST->datum _stx102222_) + (if (box? _stx102222_) + (box (__AST->datum (unbox _stx102222_))) + _stx102222_)))))) (define get-readenv - (lambda (_port101485_) + (lambda (_port102220_) (##make-readenv - _port101485_ + _port102220_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -418,86 +418,86 @@ '() '#f))) (define read-syntax__% - (lambda (_in101473_) - (let ((_e101475_ (##read-datum-or-eof (get-readenv _in101473_)))) - (if (eof-object? (__AST-e _e101475_)) - (__AST-e _e101475_) - _e101475_)))) + (lambda (_in102208_) + (let ((_e102210_ (##read-datum-or-eof (get-readenv _in102208_)))) + (if (eof-object? (__AST-e _e102210_)) + (__AST-e _e102210_) + _e102210_)))) (define read-syntax__0 (lambda () - (let ((_in101481_ (current-input-port))) (read-syntax__% _in101481_)))) + (let ((_in102216_ (current-input-port))) (read-syntax__% _in102216_)))) (define read-syntax - (lambda _g106476_ - (let ((_g106475_ (##length _g106476_))) - (cond ((##fx= _g106475_ 0) - (apply (lambda () (read-syntax__0)) _g106476_)) - ((##fx= _g106475_ 1) - (apply (lambda (_in101483_) (read-syntax__% _in101483_)) - _g106476_)) + (lambda _g107311_ + (let ((_g107310_ (##length _g107311_))) + (cond ((##fx= _g107310_ 0) + (apply (lambda () (read-syntax__0)) _g107311_)) + ((##fx= _g107310_ 1) + (apply (lambda (_in102218_) (read-syntax__% _in102218_)) + _g107311_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g106476_)))))) + _g107311_)))))) (define read-syntax-from-file - (lambda (_path101468_) - (let ((_r101470_ + (lambda (_path102203_) + (let ((_r102205_ (##read-all-as-a-begin-expr-from-path - (path-normalize _path101468_) + (path-normalize _path102203_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _r101470_) - (cdr (__AST-e (vector-ref _r101470_ '1))) - (error (err-code->string _r101470_) _path101468_))))) + (if (vector? _r102205_) + (cdr (__AST-e (vector-ref _r102205_ '1))) + (error (err-code->string _r102205_) _path102203_))))) (define __wrap-syntax - (lambda (_re101465_ _e101466_) - (if (eof-object? _e101466_) - _e101466_ - (##structure AST::t _e101466_ (##readenv->locat _re101465_))))) + (lambda (_re102200_ _e102201_) + (if (eof-object? _e102201_) + _e102201_ + (##structure AST::t _e102201_ (##readenv->locat _re102200_))))) (define __unwrap-syntax - (lambda (_re101462_ _e101463_) (__AST-e _e101463_))) - (define __pp-syntax (lambda (_stx101460_) (pp (__AST->datum _stx101460_)))) + (lambda (_re102197_ _e102198_) (__AST-e _e102198_))) + (define __pp-syntax (lambda (_stx102195_) (pp (__AST->datum _stx102195_)))) (define __make-readtable (lambda () - (let ((_rt101458_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _rt101458_ '#t) - (macro-readtable-bracket-handler-set! _rt101458_ '@list) - (macro-readtable-brace-handler-set! _rt101458_ '@method) + (let ((_rt102193_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _rt102193_ '#t) + (macro-readtable-bracket-handler-set! _rt102193_ '@list) + (macro-readtable-brace-handler-set! _rt102193_ '@method) (##readtable-char-sharp-handler-set! - _rt101458_ + _rt102193_ '#\! __read-sharp-bang) - _rt101458_))) + _rt102193_))) (define __readtable-bracket-keyword-set! - (lambda (_rt101454_ _kw101455_) - (macro-readtable-bracket-handler-set! _rt101454_ _kw101455_))) + (lambda (_rt102189_ _kw102190_) + (macro-readtable-bracket-handler-set! _rt102189_ _kw102190_))) (define __readtable-brace-keyword-set! - (lambda (_rt101451_ _kw101452_) - (macro-readtable-brace-handler-set! _rt101451_ _kw101452_))) + (lambda (_rt102186_ _kw102187_) + (macro-readtable-brace-handler-set! _rt102186_ _kw102187_))) (define __read-sharp-bang - (lambda (_re101442_ _next101443_ _start-pos101444_) - (if (eq? _start-pos101444_ '0) - (let* ((_line101446_ + (lambda (_re102177_ _next102178_ _start-pos102179_) + (if (eq? _start-pos102179_ '0) + (let* ((_line102181_ (##read-line - (macro-readenv-port _re101442_) + (macro-readenv-port _re102177_) '#\newline '#f ##max-fixnum)) - (_script-line101448_ - (substring _line101446_ '1 (string-length _line101446_)))) - (macro-readenv-script-line-set! _re101442_ _script-line101448_) + (_script-line102183_ + (substring _line102181_ '1 (string-length _line102181_)))) + (macro-readenv-script-line-set! _re102177_ _script-line102183_) (##script-marker)) - (##read-sharp-bang _re101442_ _next101443_ _start-pos101444_)))) + (##read-sharp-bang _re102177_ _next102178_ _start-pos102179_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_obj101440_) - (if (source-location? _obj101440_) - (string? (##locat-container _obj101440_)) + (lambda (_obj102175_) + (if (source-location? _obj102175_) + (string? (##locat-container _obj102175_)) '#f))) (define source-location-path - (lambda (_obj101438_) - (if (##locat? _obj101438_) - (##container->path (##locat-container _obj101438_)) + (lambda (_obj102173_) + (if (##locat? _obj102173_) + (##container->path (##locat-container _obj102173_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__1.scm b/src/bootstrap/gerbil/runtime/syntax__1.scm index d221de1c8..d56303afd 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]#_g106581_| + (define |[1]#_g107416_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g106589_| + (define |[1]#_g107424_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g106591_| + (define |[1]#_g107426_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g106593_| + (define |[1]#_g107428_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g106595_| + (define |[1]#_g107430_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g106604_| + (define |[1]#_g107439_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g106607_| + (define |[1]#_g107442_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g106610_| + (define |[1]#_g107445_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g106613_| + (define |[1]#_g107448_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g106616_| + (define |[1]#_g107451_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g106619_| + (define |[1]#_g107454_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g106628_| + (define |[1]#_g107463_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106631_| + (define |[1]#_g107466_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106634_| + (define |[1]#_g107469_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106637_| + (define |[1]#_g107472_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106640_| + (define |[1]#_g107475_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106643_| + (define |[1]#_g107478_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106652_| + (define |[1]#_g107487_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g106655_| + (define |[1]#_g107490_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g106658_| + (define |[1]#_g107493_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g106661_| + (define |[1]#_g107496_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g106664_| + (define |[1]#_g107499_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g106667_| + (define |[1]#_g107502_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g106676_| + (define |[1]#_g107511_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106679_| + (define |[1]#_g107514_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106682_| + (define |[1]#_g107517_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106685_| + (define |[1]#_g107520_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106688_| + (define |[1]#_g107523_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106691_| + (define |[1]#_g107526_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106693_| + (define |[1]#_g107528_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g106695_| + (define |[1]#_g107530_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g106697_| + (define |[1]#_g107532_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g106702_| + (define |[1]#_g107537_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g106705_| + (define |[1]#_g107540_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g106710_| + (define |[1]#_g107545_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106713_| + (define |[1]#_g107548_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106718_| + (define |[1]#_g107553_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g106721_| + (define |[1]#_g107556_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g106726_| + (define |[1]#_g107561_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g106729_| + (define |[1]#_g107564_| (##structure gx#syntax-quote::t '&AST-e-set! @@ -282,1195 +282,1195 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_$stx100327_) - (let* ((_g100331100355_ - (lambda (_g100332100351_) + (lambda (_$stx101062_) + (let* ((_g101066101090_ + (lambda (_g101067101086_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100332100351_))) - (_g100330100441_ - (lambda (_g100332100359_) - (if (gx#stx-pair? _g100332100359_) - (let ((_e100337100362_ (gx#syntax-e _g100332100359_))) - (let ((_hd100336100366_ + _g101067101086_))) + (_g101065101176_ + (lambda (_g101067101094_) + (if (gx#stx-pair? _g101067101094_) + (let ((_e101072101097_ (gx#syntax-e _g101067101094_))) + (let ((_hd101071101101_ (let () (declare (not safe)) - (##car _e100337100362_))) - (_tl100335100369_ + (##car _e101072101097_))) + (_tl101070101104_ (let () (declare (not safe)) - (##cdr _e100337100362_)))) - (if (gx#stx-pair? _tl100335100369_) - (let ((_e100340100372_ - (gx#syntax-e _tl100335100369_))) - (let ((_hd100339100376_ + (##cdr _e101072101097_)))) + (if (gx#stx-pair? _tl101070101104_) + (let ((_e101075101107_ + (gx#syntax-e _tl101070101104_))) + (let ((_hd101074101111_ (let () (declare (not safe)) - (##car _e100340100372_))) - (_tl100338100379_ + (##car _e101075101107_))) + (_tl101073101114_ (let () (declare (not safe)) - (##cdr _e100340100372_)))) - (if (gx#stx-pair/null? _tl100338100379_) - (let ((_g106477_ + (##cdr _e101075101107_)))) + (if (gx#stx-pair/null? _tl101073101114_) + (let ((_g107312_ (gx#syntax-split-splice - _tl100338100379_ + _tl101073101114_ '0))) (begin - (let ((_g106478_ + (let ((_g107313_ (let () (declare (not safe)) - (if (##values? _g106477_) + (if (##values? _g107312_) (##vector-length - _g106477_) + _g107312_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g106478_ 2))) + (##fx= _g107313_ 2))) (error "Context expects 2 values" - _g106478_))) - (let ((_target100341100382_ + _g107313_))) + (let ((_target101076101117_ (let () (declare (not safe)) - (##vector-ref _g106477_ 0))) - (_tl100343100385_ + (##vector-ref _g107312_ 0))) + (_tl101078101120_ (let () (declare (not safe)) (##vector-ref - _g106477_ + _g107312_ 1)))) - (if (gx#stx-null? _tl100343100385_) - (letrec ((_loop100344100388_ - (lambda (_hd100342100392_ + (if (gx#stx-null? _tl101078101120_) + (letrec ((_loop101079101123_ + (lambda (_hd101077101127_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body100348100395_) - (if (gx#stx-pair? _hd100342100392_) - (let ((_e100345100398_ (gx#syntax-e _hd100342100392_))) - (let ((_lp-hd100346100402_ + _body101083101130_) + (if (gx#stx-pair? _hd101077101127_) + (let ((_e101080101133_ (gx#syntax-e _hd101077101127_))) + (let ((_lp-hd101081101137_ (let () (declare (not safe)) - (##car _e100345100398_))) - (_lp-tl100347100405_ + (##car _e101080101133_))) + (_lp-tl101082101140_ (let () (declare (not safe)) - (##cdr _e100345100398_)))) - (_loop100344100388_ - _lp-tl100347100405_ + (##cdr _e101080101133_)))) + (_loop101079101123_ + _lp-tl101082101140_ (let () (declare (not safe)) - (cons _lp-hd100346100402_ - _body100348100395_))))) - (let ((_body100349100408_ - (reverse _body100348100395_))) - ((lambda (_L100412_ _L100414_) - (let ((__tmp106490 (gx#datum->syntax '#f 'let)) - (__tmp106479 - (let ((__tmp106487 - (let ((__tmp106489 + (cons _lp-hd101081101137_ + _body101083101130_))))) + (let ((_body101084101143_ + (reverse _body101083101130_))) + ((lambda (_L101147_ _L101149_) + (let ((__tmp107325 (gx#datum->syntax '#f 'let)) + (__tmp107314 + (let ((__tmp107322 + (let ((__tmp107324 (gx#datum->syntax '#f '$e)) - (__tmp106488 + (__tmp107323 (let () (declare (not safe)) - (cons _L100414_ '())))) + (cons _L101149_ '())))) (declare (not safe)) - (cons __tmp106489 __tmp106488))) - (__tmp106480 - (let ((__tmp106481 - (let ((__tmp106486 + (cons __tmp107324 __tmp107323))) + (__tmp107315 + (let ((__tmp107316 + (let ((__tmp107321 (gx#datum->syntax '#f 'core-ast-case%)) - (__tmp106482 - (let ((__tmp106485 + (__tmp107317 + (let ((__tmp107320 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp106483 - (let ((__tmp106484 - (lambda (_g100432100435_ _g100433100438_) + (__tmp107318 + (let ((__tmp107319 + (lambda (_g101167101170_ _g101168101173_) (let () (declare (not safe)) - (cons _g100432100435_ _g100433100438_))))) + (cons _g101167101170_ _g101168101173_))))) (declare (not safe)) - (foldr1 __tmp106484 '() _L100412_)))) + (foldr1 __tmp107319 '() _L101147_)))) (declare (not safe)) - (cons __tmp106485 __tmp106483)))) + (cons __tmp107320 __tmp107318)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp106486 - __tmp106482)))) + (cons __tmp107321 + __tmp107317)))) (declare (not safe)) - (cons __tmp106481 '())))) + (cons __tmp107316 '())))) (declare (not safe)) - (cons __tmp106487 __tmp106480)))) + (cons __tmp107322 __tmp107315)))) (declare (not safe)) - (cons __tmp106490 __tmp106479))) - _body100349100408_ - _hd100339100376_)))))) + (cons __tmp107325 __tmp107314))) + _body101084101143_ + _hd101074101111_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop100344100388_ - _target100341100382_ + (_loop101079101123_ + _target101076101117_ '())) - (_g100331100355_ - _g100332100359_))))) - (_g100331100355_ _g100332100359_)))) - (_g100331100355_ _g100332100359_)))) - (_g100331100355_ _g100332100359_))))) - (_g100330100441_ _$stx100327_)))) + (_g101066101090_ + _g101067101094_))))) + (_g101066101090_ _g101067101094_)))) + (_g101066101090_ _g101067101094_)))) + (_g101066101090_ _g101067101094_))))) + (_g101065101176_ _$stx101062_)))) (define |[:0:]#core-ast-case%| - (lambda (_stx100446_) - (letrec ((_generate1100449_ - (lambda (_hd100990_ - _tgt100992_ - _K100993_ - _E100994_ - _kws100995_) - (let* ((_g100997101005_ - (lambda (_g100998101001_) + (lambda (_stx101181_) + (letrec ((_generate1101184_ + (lambda (_hd101725_ + _tgt101727_ + _K101728_ + _E101729_ + _kws101730_) + (let* ((_g101732101740_ + (lambda (_g101733101736_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100998101001_))) - (_g100996101432_ - (lambda (_g100998101009_) - ((lambda (_L101012_) + _g101733101736_))) + (_g101731102167_ + (lambda (_g101733101744_) + ((lambda (_L101747_) (let () - (let* ((___stx106377106378_ _hd100990_) - (_g101026101040_ + (let* ((___stx107212107213_ _hd101725_) + (_g101761101775_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx106377106378_)))) - (let ((___kont106380106381_ - (lambda (_L101254_ _L101256_) - (let* ((_g101267101275_ - (lambda (_g101268101271_) + ___stx107212107213_)))) + (let ((___kont107215107216_ + (lambda (_L101989_ _L101991_) + (let* ((_g102002102010_ + (lambda (_g102003102006_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101268101271_))) - (_g101266101424_ - (lambda (_g101268101279_) - ((lambda (_L101282_) + _g102003102006_))) + (_g102001102159_ + (lambda (_g102003102014_) + ((lambda (_L102017_) (let () - (let* ((_g101294101302_ + (let* ((_g102029102037_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g101295101298_) + (lambda (_g102030102033_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101295101298_))) - (_g101293101420_ - (lambda (_g101295101306_) - ((lambda (_L101309_) + _g102030102033_))) + (_g102028102155_ + (lambda (_g102030102041_) + ((lambda (_L102044_) (let () - (let* ((_g101322101330_ - (lambda (_g101323101326_) + (let* ((_g102057102065_ + (lambda (_g102058102061_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101323101326_))) - (_g101321101416_ - (lambda (_g101323101334_) - ((lambda (_L101337_) + _g102058102061_))) + (_g102056102151_ + (lambda (_g102058102069_) + ((lambda (_L102072_) (let () - (let* ((_g101350101358_ - (lambda (_g101351101354_) + (let* ((_g102085102093_ + (lambda (_g102086102089_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101351101354_))) - (_g101349101412_ - (lambda (_g101351101362_) - ((lambda (_L101365_) + _g102086102089_))) + (_g102084102147_ + (lambda (_g102086102097_) + ((lambda (_L102100_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g101378101386_ - (lambda (_g101379101382_) + (let* ((_g102113102121_ + (lambda (_g102114102117_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101379101382_))) - (_g101377101408_ - (lambda (_g101379101390_) - ((lambda (_L101393_) + _g102114102117_))) + (_g102112102143_ + (lambda (_g102114102125_) + ((lambda (_L102128_) (let () (let () - (let ((__tmp106519 + (let ((__tmp107354 (gx#datum->syntax '#f 'if)) - (__tmp106491 - (let ((__tmp106516 - (let ((__tmp106518 + (__tmp107326 + (let ((__tmp107351 + (let ((__tmp107353 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-pair?)) - (__tmp106517 - (let () (declare (not safe)) (cons _L101012_ '())))) + (__tmp107352 + (let () (declare (not safe)) (cons _L101747_ '())))) (declare (not safe)) - (cons __tmp106518 __tmp106517))) - (__tmp106492 - (let ((__tmp106494 - (let ((__tmp106515 (gx#datum->syntax '#f 'let*)) - (__tmp106495 - (let ((__tmp106497 - (let ((__tmp106510 - (let ((__tmp106511 - (let ((__tmp106512 - (let ((__tmp106514 + (cons __tmp107353 __tmp107352))) + (__tmp107327 + (let ((__tmp107329 + (let ((__tmp107350 (gx#datum->syntax '#f 'let*)) + (__tmp107330 + (let ((__tmp107332 + (let ((__tmp107345 + (let ((__tmp107346 + (let ((__tmp107347 + (let ((__tmp107349 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp106513 - (let () (declare (not safe)) (cons _L101012_ '())))) + (__tmp107348 + (let () (declare (not safe)) (cons _L101747_ '())))) (declare (not safe)) - (cons __tmp106514 __tmp106513)))) + (cons __tmp107349 __tmp107348)))) (declare (not safe)) - (cons __tmp106512 '())))) + (cons __tmp107347 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L101282_ __tmp106511))) - (__tmp106498 - (let ((__tmp106505 - (let ((__tmp106506 - (let ((__tmp106507 + (cons _L102017_ __tmp107346))) + (__tmp107333 + (let ((__tmp107340 + (let ((__tmp107341 + (let ((__tmp107342 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp106509 (gx#datum->syntax '#f '##car)) - (__tmp106508 + (let ((__tmp107344 (gx#datum->syntax '#f '##car)) + (__tmp107343 (let () (declare (not safe)) - (cons _L101282_ '())))) + (cons _L102017_ '())))) (declare (not safe)) - (cons __tmp106509 __tmp106508)))) + (cons __tmp107344 __tmp107343)))) (declare (not safe)) - (cons __tmp106507 '())))) + (cons __tmp107342 '())))) (declare (not safe)) - (cons _L101309_ __tmp106506))) + (cons _L102044_ __tmp107341))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp106499 - (let ((__tmp106500 - (let ((__tmp106501 + (__tmp107334 + (let ((__tmp107335 + (let ((__tmp107336 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp106502 - (let ((__tmp106504 + (let ((__tmp107337 + (let ((__tmp107339 (gx#datum->syntax '#f '##cdr)) - (__tmp106503 + (__tmp107338 (let () (declare (not safe)) - (cons _L101282_ '())))) + (cons _L102017_ '())))) (declare (not safe)) - (cons __tmp106504 __tmp106503)))) + (cons __tmp107339 __tmp107338)))) (declare (not safe)) - (cons __tmp106502 '())))) + (cons __tmp107337 '())))) (declare (not safe)) - (cons _L101337_ __tmp106501)))) + (cons _L102072_ __tmp107336)))) (declare (not safe)) - (cons __tmp106500 '())))) + (cons __tmp107335 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp106505 - __tmp106499)))) + (cons __tmp107340 + __tmp107334)))) (declare (not safe)) - (cons __tmp106510 __tmp106498))) - (__tmp106496 + (cons __tmp107345 __tmp107333))) + (__tmp107331 (let () (declare (not safe)) - (cons _L101365_ '())))) + (cons _L102100_ '())))) (declare (not safe)) - (cons __tmp106497 __tmp106496)))) + (cons __tmp107332 __tmp107331)))) (declare (not safe)) - (cons __tmp106515 __tmp106495))) - (__tmp106493 - (let () (declare (not safe)) (cons _L101393_ '())))) + (cons __tmp107350 __tmp107330))) + (__tmp107328 + (let () (declare (not safe)) (cons _L102128_ '())))) (declare (not safe)) - (cons __tmp106494 __tmp106493)))) + (cons __tmp107329 __tmp107328)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp106516 - __tmp106492)))) + (cons __tmp107351 + __tmp107327)))) (declare (not safe)) - (cons __tmp106519 __tmp106491))))) - _g101379101390_)))) - (_g101377101408_ _E100994_)))) - _g101351101362_)))) + (cons __tmp107354 __tmp107326))))) + _g102114102125_)))) + (_g102112102143_ _E101729_)))) + _g102086102097_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g101349101412_ - (_generate1100449_ - _L101256_ - _L101309_ - (_generate1100449_ - _L101254_ - _L101337_ - _K100993_ - _E100994_ - _kws100995_) - _E100994_ - _kws100995_))))) - _g101323101334_)))) - (_g101321101416_ (gx#genident '$tl))))) - _g101295101306_)))) - (_g101293101420_ (gx#genident '$hd))))) - _g101268101279_)))) + (_g102084102147_ + (_generate1101184_ + _L101991_ + _L102044_ + (_generate1101184_ + _L101989_ + _L102072_ + _K101728_ + _E101729_ + _kws101730_) + _E101729_ + _kws101730_))))) + _g102058102069_)))) + (_g102056102151_ (gx#genident '$tl))))) + _g102030102041_)))) + (_g102028102155_ (gx#genident '$hd))))) + _g102003102014_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g101266101424_ + (_g102001102159_ (gx#genident '$tgt))))) - (___kont106382106383_ - (lambda (_L101129_) - (if (gx#underscore? _L101129_) - _K100993_ - (if (let ((__tmp106548 - (lambda (_g101137101139_) + (___kont107217107218_ + (lambda (_L101864_) + (if (gx#underscore? _L101864_) + _K101728_ + (if (let ((__tmp107383 + (lambda (_g101872101874_) (gx#bound-identifier=? - _g101137101139_ - _L101129_))) - (__tmp106547 + _g101872101874_ + _L101864_))) + (__tmp107382 (gx#syntax->list - _kws100995_))) + _kws101730_))) (declare (not safe)) - (find __tmp106548 - __tmp106547)) - (let* ((_g101143101158_ - (lambda (_g101144101154_) + (find __tmp107383 + __tmp107382)) + (let* ((_g101878101893_ + (lambda (_g101879101889_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _g101144101154_))) - (_g101142101203_ - (lambda (_g101144101162_) - (if (gx#stx-pair? _g101144101162_) - (let ((_e101149101165_ - (gx#syntax-e _g101144101162_))) - (let ((_hd101148101169_ + _g101879101889_))) + (_g101877101938_ + (lambda (_g101879101897_) + (if (gx#stx-pair? _g101879101897_) + (let ((_e101884101900_ + (gx#syntax-e _g101879101897_))) + (let ((_hd101883101904_ (let () (declare (not safe)) - (##car _e101149101165_))) - (_tl101147101172_ + (##car _e101884101900_))) + (_tl101882101907_ (let () (declare (not safe)) - (##cdr _e101149101165_)))) - (if (gx#stx-pair? _tl101147101172_) - (let ((_e101152101175_ - (gx#syntax-e _tl101147101172_))) - (let ((_hd101151101179_ + (##cdr _e101884101900_)))) + (if (gx#stx-pair? _tl101882101907_) + (let ((_e101887101910_ + (gx#syntax-e _tl101882101907_))) + (let ((_hd101886101914_ (let () (declare (not safe)) - (##car _e101152101175_))) - (_tl101150101182_ + (##car _e101887101910_))) + (_tl101885101917_ (let () (declare (not safe)) - (##cdr _e101152101175_)))) - (if (gx#stx-null? _tl101150101182_) - ((lambda (_L101185_ _L101187_) + (##cdr _e101887101910_)))) + (if (gx#stx-null? _tl101885101917_) + ((lambda (_L101920_ _L101922_) (let () - (let ((__tmp106546 + (let ((__tmp107381 (gx#datum->syntax '#f 'if)) - (__tmp106526 - (let ((__tmp106529 - (let ((__tmp106545 + (__tmp107361 + (let ((__tmp107364 + (let ((__tmp107380 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'and)) - (__tmp106530 - (let ((__tmp106542 - (let ((__tmp106544 + (__tmp107365 + (let ((__tmp107377 + (let ((__tmp107379 (gx#datum->syntax '#f '__AST-id?)) - (__tmp106543 + (__tmp107378 (let () (declare (not safe)) - (cons _L101012_ '())))) + (cons _L101747_ '())))) (declare (not safe)) - (cons __tmp106544 __tmp106543))) - (__tmp106531 - (let ((__tmp106532 - (let ((__tmp106541 + (cons __tmp107379 __tmp107378))) + (__tmp107366 + (let ((__tmp107367 + (let ((__tmp107376 (gx#datum->syntax '#f 'eq?)) - (__tmp106533 - (let ((__tmp106538 - (let ((__tmp106540 + (__tmp107368 + (let ((__tmp107373 + (let ((__tmp107375 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp106539 - (let () (declare (not safe)) (cons _L101012_ '())))) + (__tmp107374 + (let () (declare (not safe)) (cons _L101747_ '())))) (declare (not safe)) - (cons __tmp106540 __tmp106539))) - (__tmp106534 - (let ((__tmp106535 - (let ((__tmp106537 (gx#datum->syntax '#f 'quote)) - (__tmp106536 + (cons __tmp107375 __tmp107374))) + (__tmp107369 + (let ((__tmp107370 + (let ((__tmp107372 (gx#datum->syntax '#f 'quote)) + (__tmp107371 (let () (declare (not safe)) - (cons _L101129_ '())))) + (cons _L101864_ '())))) (declare (not safe)) - (cons __tmp106537 __tmp106536)))) + (cons __tmp107372 __tmp107371)))) (declare (not safe)) - (cons __tmp106535 '())))) + (cons __tmp107370 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp106538 - __tmp106534)))) + (cons __tmp107373 + __tmp107369)))) (declare (not safe)) - (cons __tmp106541 __tmp106533)))) + (cons __tmp107376 __tmp107368)))) (declare (not safe)) - (cons __tmp106532 '())))) + (cons __tmp107367 '())))) (declare (not safe)) - (cons __tmp106542 __tmp106531)))) + (cons __tmp107377 __tmp107366)))) (declare (not safe)) - (cons __tmp106545 __tmp106530))) - (__tmp106527 - (let ((__tmp106528 + (cons __tmp107380 __tmp107365))) + (__tmp107362 + (let ((__tmp107363 (let () (declare (not safe)) - (cons _L101185_ '())))) + (cons _L101920_ '())))) (declare (not safe)) - (cons _L101187_ __tmp106528)))) + (cons _L101922_ __tmp107363)))) (declare (not safe)) - (cons __tmp106529 __tmp106527)))) + (cons __tmp107364 __tmp107362)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp106546 - __tmp106526)))) - _hd101151101179_ - _hd101148101169_) - (_g101143101158_ - _g101144101162_)))) - (_g101143101158_ _g101144101162_)))) - (_g101143101158_ _g101144101162_))))) - (_g101142101203_ (list _K100993_ _E100994_))) - (let* ((_g101207101215_ - (lambda (_g101208101211_) + (cons __tmp107381 + __tmp107361)))) + _hd101886101914_ + _hd101883101904_) + (_g101878101893_ + _g101879101897_)))) + (_g101878101893_ _g101879101897_)))) + (_g101878101893_ _g101879101897_))))) + (_g101877101938_ (list _K101728_ _E101729_))) + (let* ((_g101942101950_ + (lambda (_g101943101946_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101208101211_))) - (_g101206101233_ - (lambda (_g101208101219_) - ((lambda (_L101222_) + _g101943101946_))) + (_g101941101968_ + (lambda (_g101943101954_) + ((lambda (_L101957_) (let () - (let ((__tmp106525 (gx#datum->syntax '#f 'let)) - (__tmp106520 - (let ((__tmp106522 - (let ((__tmp106523 - (let ((__tmp106524 + (let ((__tmp107360 (gx#datum->syntax '#f 'let)) + (__tmp107355 + (let ((__tmp107357 + (let ((__tmp107358 + (let ((__tmp107359 (let () (declare (not safe)) - (cons _L101012_ + (cons _L101747_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L101129_ - __tmp106524)))) + (cons _L101864_ + __tmp107359)))) (declare (not safe)) - (cons __tmp106523 '()))) - (__tmp106521 + (cons __tmp107358 '()))) + (__tmp107356 (let () (declare (not safe)) - (cons _L101222_ '())))) + (cons _L101957_ '())))) (declare (not safe)) - (cons __tmp106522 __tmp106521)))) + (cons __tmp107357 __tmp107356)))) (declare (not safe)) - (cons __tmp106525 __tmp106520)))) - _g101208101219_)))) - (_g101206101233_ _K100993_)))))) + (cons __tmp107360 __tmp107355)))) + _g101943101954_)))) + (_g101941101968_ _K101728_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont106384106385_ - (lambda (_L101047_) - (let* ((_g101058101073_ - (lambda (_g101059101069_) + (___kont107219107220_ + (lambda (_L101782_) + (let* ((_g101793101808_ + (lambda (_g101794101804_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101059101069_))) - (_g101057101118_ - (lambda (_g101059101077_) + _g101794101804_))) + (_g101792101853_ + (lambda (_g101794101812_) (if (gx#stx-pair? - _g101059101077_) - (let ((_e101064101080_ + _g101794101812_) + (let ((_e101799101815_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g101059101077_))) - (let ((_hd101063101084_ + (gx#syntax-e _g101794101812_))) + (let ((_hd101798101819_ (let () (declare (not safe)) - (##car _e101064101080_))) - (_tl101062101087_ + (##car _e101799101815_))) + (_tl101797101822_ (let () (declare (not safe)) - (##cdr _e101064101080_)))) - (if (gx#stx-pair? _tl101062101087_) - (let ((_e101067101090_ - (gx#syntax-e _tl101062101087_))) - (let ((_hd101066101094_ + (##cdr _e101799101815_)))) + (if (gx#stx-pair? _tl101797101822_) + (let ((_e101802101825_ + (gx#syntax-e _tl101797101822_))) + (let ((_hd101801101829_ (let () (declare (not safe)) - (##car _e101067101090_))) - (_tl101065101097_ + (##car _e101802101825_))) + (_tl101800101832_ (let () (declare (not safe)) - (##cdr _e101067101090_)))) - (if (gx#stx-null? _tl101065101097_) - ((lambda (_L101100_ _L101102_) + (##cdr _e101802101825_)))) + (if (gx#stx-null? _tl101800101832_) + ((lambda (_L101835_ _L101837_) (let () - (let ((__tmp106562 + (let ((__tmp107397 (gx#datum->syntax '#f 'if)) - (__tmp106549 - (let ((__tmp106552 - (let ((__tmp106561 + (__tmp107384 + (let ((__tmp107387 + (let ((__tmp107396 (gx#datum->syntax '#f 'equal?)) - (__tmp106553 - (let ((__tmp106558 + (__tmp107388 + (let ((__tmp107393 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp106560 + (let ((__tmp107395 (gx#datum->syntax '#f '__AST-e)) - (__tmp106559 + (__tmp107394 (let () (declare (not safe)) - (cons _L101012_ '())))) + (cons _L101747_ '())))) (declare (not safe)) - (cons __tmp106560 __tmp106559))) - (__tmp106554 - (let ((__tmp106555 - (let ((__tmp106557 + (cons __tmp107395 __tmp107394))) + (__tmp107389 + (let ((__tmp107390 + (let ((__tmp107392 (gx#datum->syntax '#f 'quote)) - (__tmp106556 + (__tmp107391 (let () (declare (not safe)) - (cons _L101047_ '())))) + (cons _L101782_ '())))) (declare (not safe)) - (cons __tmp106557 __tmp106556)))) + (cons __tmp107392 __tmp107391)))) (declare (not safe)) - (cons __tmp106555 '())))) + (cons __tmp107390 '())))) (declare (not safe)) - (cons __tmp106558 __tmp106554)))) + (cons __tmp107393 __tmp107389)))) (declare (not safe)) - (cons __tmp106561 __tmp106553))) - (__tmp106550 - (let ((__tmp106551 - (let () (declare (not safe)) (cons _L101100_ '())))) + (cons __tmp107396 __tmp107388))) + (__tmp107385 + (let ((__tmp107386 + (let () (declare (not safe)) (cons _L101835_ '())))) (declare (not safe)) - (cons _L101102_ __tmp106551)))) + (cons _L101837_ __tmp107386)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp106552 - __tmp106550)))) + (cons __tmp107387 + __tmp107385)))) (declare (not safe)) - (cons __tmp106562 __tmp106549)))) - _hd101066101094_ - _hd101063101084_) - (_g101058101073_ _g101059101077_)))) - (_g101058101073_ _g101059101077_)))) - (_g101058101073_ _g101059101077_))))) + (cons __tmp107397 __tmp107384)))) + _hd101801101829_ + _hd101798101819_) + (_g101793101808_ _g101794101812_)))) + (_g101793101808_ _g101794101812_)))) + (_g101793101808_ _g101794101812_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g101057101118_ - (list _K100993_ - _E100994_)))))) - (let ((_g101024101237_ + (_g101792101853_ + (list _K101728_ + _E101729_)))))) + (let ((_g101759101972_ (lambda () - (let ((_L101129_ - ___stx106377106378_)) + (let ((_L101864_ + ___stx107212107213_)) (if (gx#identifier? - _L101129_) - (___kont106382106383_ - _L101129_) - (___kont106384106385_ - ___stx106377106378_)))))) - (if (gx#stx-pair? ___stx106377106378_) - (let ((_e101032101244_ + _L101864_) + (___kont107217107218_ + _L101864_) + (___kont107219107220_ + ___stx107212107213_)))))) + (if (gx#stx-pair? ___stx107212107213_) + (let ((_e101767101979_ (gx#syntax-e - ___stx106377106378_))) - (let ((_tl101030101251_ + ___stx107212107213_))) + (let ((_tl101765101986_ (let () (declare (not safe)) - (##cdr _e101032101244_))) - (_hd101031101248_ + (##cdr _e101767101979_))) + (_hd101766101983_ (let () (declare (not safe)) - (##car _e101032101244_)))) - (___kont106380106381_ - _tl101030101251_ - _hd101031101248_))) + (##car _e101767101979_)))) + (___kont107215107216_ + _tl101765101986_ + _hd101766101983_))) (let () (declare (not safe)) - (_g101024101237_)))))))) - _g100998101009_)))) - (_g100996101432_ _tgt100992_))))) - (let* ((_g100452100480_ - (lambda (_g100453100476_) + (_g101759101972_)))))))) + _g101733101744_)))) + (_g101731102167_ _tgt101727_))))) + (let* ((_g101187101215_ + (lambda (_g101188101211_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100453100476_))) - (_g100451100986_ - (lambda (_g100453100484_) - (if (gx#stx-pair? _g100453100484_) - (let ((_e100459100487_ (gx#syntax-e _g100453100484_))) - (let ((_hd100458100491_ + _g101188101211_))) + (_g101186101721_ + (lambda (_g101188101219_) + (if (gx#stx-pair? _g101188101219_) + (let ((_e101194101222_ (gx#syntax-e _g101188101219_))) + (let ((_hd101193101226_ (let () (declare (not safe)) - (##car _e100459100487_))) - (_tl100457100494_ + (##car _e101194101222_))) + (_tl101192101229_ (let () (declare (not safe)) - (##cdr _e100459100487_)))) - (if (gx#stx-pair? _tl100457100494_) - (let ((_e100462100497_ - (gx#syntax-e _tl100457100494_))) - (let ((_hd100461100501_ + (##cdr _e101194101222_)))) + (if (gx#stx-pair? _tl101192101229_) + (let ((_e101197101232_ + (gx#syntax-e _tl101192101229_))) + (let ((_hd101196101236_ (let () (declare (not safe)) - (##car _e100462100497_))) - (_tl100460100504_ + (##car _e101197101232_))) + (_tl101195101239_ (let () (declare (not safe)) - (##cdr _e100462100497_)))) - (if (gx#stx-pair? _tl100460100504_) - (let ((_e100465100507_ - (gx#syntax-e _tl100460100504_))) - (let ((_hd100464100511_ + (##cdr _e101197101232_)))) + (if (gx#stx-pair? _tl101195101239_) + (let ((_e101200101242_ + (gx#syntax-e _tl101195101239_))) + (let ((_hd101199101246_ (let () (declare (not safe)) - (##car _e100465100507_))) - (_tl100463100514_ + (##car _e101200101242_))) + (_tl101198101249_ (let () (declare (not safe)) - (##cdr _e100465100507_)))) + (##cdr _e101200101242_)))) (if (gx#stx-pair/null? - _tl100463100514_) - (let ((_g106563_ + _tl101198101249_) + (let ((_g107398_ (gx#syntax-split-splice - _tl100463100514_ + _tl101198101249_ '0))) (begin - (let ((_g106564_ + (let ((_g107399_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g106563_) - (##vector-length _g106563_) + _g107398_) + (##vector-length _g107398_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g106564_ 2))) - (error "Context expects 2 values" _g106564_))) + (if (not (let () (declare (not safe)) (##fx= _g107399_ 2))) + (error "Context expects 2 values" _g107399_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target100466100517_ + (let ((_target101201101252_ (let () (declare (not safe)) (##vector-ref - _g106563_ + _g107398_ 0))) - (_tl100468100520_ + (_tl101203101255_ (let () (declare (not safe)) (##vector-ref - _g106563_ + _g107398_ 1)))) (if (gx#stx-null? - _tl100468100520_) - (letrec ((_loop100469100523_ + _tl101203101255_) + (letrec ((_loop101204101258_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd100467100527_ _clause100473100530_) - (if (gx#stx-pair? _hd100467100527_) - (let ((_e100470100533_ - (gx#syntax-e _hd100467100527_))) - (let ((_lp-hd100471100537_ + (lambda (_hd101202101262_ _clause101208101265_) + (if (gx#stx-pair? _hd101202101262_) + (let ((_e101205101268_ + (gx#syntax-e _hd101202101262_))) + (let ((_lp-hd101206101272_ (let () (declare (not safe)) - (##car _e100470100533_))) - (_lp-tl100472100540_ + (##car _e101205101268_))) + (_lp-tl101207101275_ (let () (declare (not safe)) - (##cdr _e100470100533_)))) - (_loop100469100523_ - _lp-tl100472100540_ + (##cdr _e101205101268_)))) + (_loop101204101258_ + _lp-tl101207101275_ (let () (declare (not safe)) - (cons _lp-hd100471100537_ - _clause100473100530_))))) - (let ((_clause100474100543_ - (reverse _clause100473100530_))) - ((lambda (_L100547_ _L100549_ _L100550_) - (let _recur100572_ ((_rest100575_ - (let ((__tmp106586 + (cons _lp-hd101206101272_ + _clause101208101265_))))) + (let ((_clause101209101278_ + (reverse _clause101208101265_))) + ((lambda (_L101282_ _L101284_ _L101285_) + (let _recur101307_ ((_rest101310_ + (let ((__tmp107421 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g100977100980_ _g100978100983_) + (lambda (_g101712101715_ _g101713101718_) (let () (declare (not safe)) - (cons _g100977100980_ _g100978100983_))))) + (cons _g101712101715_ _g101713101718_))))) (declare (not safe)) - (foldr1 __tmp106586 '() _L100547_)))) + (foldr1 __tmp107421 '() _L101282_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest100577100586_ - _rest100575_) - (_E100580100592_ + (let* ((_rest101312101321_ + _rest101310_) + (_E101315101327_ (lambda () (error '"No clause matching" - _rest100577100586_)))) - (let ((_K100582100962_ - (lambda (_rest100608_ - _hd100610_) - (let* ((_g100612100620_ - (lambda (_g100613100616_) + _rest101312101321_)))) + (let ((_K101317101697_ + (lambda (_rest101343_ + _hd101345_) + (let* ((_g101347101355_ + (lambda (_g101348101351_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100613100616_))) - (_g100611100958_ - (lambda (_g100613100624_) - ((lambda (_L100627_) + _g101348101351_))) + (_g101346101693_ + (lambda (_g101348101359_) + ((lambda (_L101362_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g100645100653_ - (lambda (_g100646100649_) + (let* ((_g101380101388_ + (lambda (_g101381101384_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100646100649_))) - (_g100644100954_ - (lambda (_g100646100657_) - ((lambda (_L100660_) + _g101381101384_))) + (_g101379101689_ + (lambda (_g101381101392_) + ((lambda (_L101395_) (let () - (let* ((_g100673100681_ - (lambda (_g100674100677_) + (let* ((_g101408101416_ + (lambda (_g101409101412_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100674100677_))) - (_g100672100950_ - (lambda (_g100674100685_) - ((lambda (_L100688_) + _g101409101412_))) + (_g101407101685_ + (lambda (_g101409101420_) + ((lambda (_L101423_) (let () - (let* ((_g100701100709_ + (let* ((_g101436101444_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g100702100705_) + (lambda (_g101437101440_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100702100705_))) - (_g100700100731_ - (lambda (_g100702100713_) - ((lambda (_L100716_) + _g101437101440_))) + (_g101435101466_ + (lambda (_g101437101448_) + ((lambda (_L101451_) (let () (let () - (let ((__tmp106573 + (let ((__tmp107408 (gx#datum->syntax '#f 'let)) - (__tmp106565 - (let ((__tmp106567 - (let ((__tmp106568 - (let ((__tmp106569 - (let ((__tmp106572 + (__tmp107400 + (let ((__tmp107402 + (let ((__tmp107403 + (let ((__tmp107404 + (let ((__tmp107407 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp106570 - (let ((__tmp106571 + (__tmp107405 + (let ((__tmp107406 (let () (declare (not safe)) - (cons _L100688_ '())))) + (cons _L101423_ '())))) (declare (not safe)) - (cons '() __tmp106571)))) + (cons '() __tmp107406)))) (declare (not safe)) - (cons __tmp106572 __tmp106570)))) + (cons __tmp107407 __tmp107405)))) (declare (not safe)) - (cons __tmp106569 '())))) + (cons __tmp107404 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L100627_ - __tmp106568))) - (__tmp106566 + (cons _L101362_ + __tmp107403))) + (__tmp107401 (let () (declare (not safe)) - (cons _L100716_ '())))) + (cons _L101451_ '())))) (declare (not safe)) - (cons __tmp106567 __tmp106566)))) + (cons __tmp107402 __tmp107401)))) (declare (not safe)) - (cons __tmp106573 __tmp106565))))) - _g100702100713_)))) - (_g100700100731_ - (let* ((___stx106395106396_ _hd100610_) - (_g100737100777_ + (cons __tmp107408 __tmp107400))))) + _g101437101448_)))) + (_g101435101466_ + (let* ((___stx107230107231_ _hd101345_) + (_g101472101512_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx106395106396_)))) - (let ((___kont106398106399_ - (lambda (_L100923_) - (let ((__tmp106576 + ___stx107230107231_)))) + (let ((___kont107233107234_ + (lambda (_L101658_) + (let ((__tmp107411 (gx#datum->syntax '#f 'begin)) - (__tmp106574 - (let ((__tmp106575 - (lambda (_g100937100940_ - _g100938100943_) + (__tmp107409 + (let ((__tmp107410 + (lambda (_g101672101675_ + _g101673101678_) (let () (declare (not safe)) - (cons _g100937100940_ - _g100938100943_))))) + (cons _g101672101675_ + _g101673101678_))))) (declare (not safe)) - (foldr1 __tmp106575 '() _L100923_)))) + (foldr1 __tmp107410 '() _L101658_)))) (declare (not safe)) - (cons __tmp106576 __tmp106574)))) - (___kont106402106403_ - (lambda (_L100861_ _L100863_) - (_generate1100449_ - _L100863_ - _L100550_ - _L100861_ - _L100660_ - _L100549_))) - (___kont106404106405_ - (lambda (_L100814_ _L100816_ _L100817_) - (_generate1100449_ - _L100817_ - _L100550_ - (let ((__tmp106580 (gx#datum->syntax '#f 'if)) - (__tmp106577 - (let ((__tmp106578 - (let ((__tmp106579 + (cons __tmp107411 __tmp107409)))) + (___kont107237107238_ + (lambda (_L101596_ _L101598_) + (_generate1101184_ + _L101598_ + _L101285_ + _L101596_ + _L101395_ + _L101284_))) + (___kont107239107240_ + (lambda (_L101549_ _L101551_ _L101552_) + (_generate1101184_ + _L101552_ + _L101285_ + (let ((__tmp107415 (gx#datum->syntax '#f 'if)) + (__tmp107412 + (let ((__tmp107413 + (let ((__tmp107414 (let () (declare (not safe)) - (cons _L100660_ '())))) + (cons _L101395_ '())))) (declare (not safe)) - (cons _L100814_ __tmp106579)))) + (cons _L101549_ __tmp107414)))) (declare (not safe)) - (cons _L100816_ __tmp106578)))) + (cons _L101551_ __tmp107413)))) (declare (not safe)) - (cons __tmp106580 __tmp106577)) - _L100660_ - _L100549_)))) - (let ((___match106424106425_ - (lambda (_e100742100883_ - _hd100741100887_ - _tl100740100890_ - ___splice106400106401_ - _target100743100893_ - _tl100745100896_) - (letrec ((_loop100746100899_ - (lambda (_hd100744100903_ - _expr100750100906_) + (cons __tmp107415 __tmp107412)) + _L101395_ + _L101284_)))) + (let ((___match107259107260_ + (lambda (_e101477101618_ + _hd101476101622_ + _tl101475101625_ + ___splice107235107236_ + _target101478101628_ + _tl101480101631_) + (letrec ((_loop101481101634_ + (lambda (_hd101479101638_ + _expr101485101641_) (if (gx#stx-pair? - _hd100744100903_) - (let ((_e100747100909_ + _hd101479101638_) + (let ((_e101482101644_ (gx#syntax-e - _hd100744100903_))) - (let ((_lp-tl100749100916_ + _hd101479101638_))) + (let ((_lp-tl101484101651_ (let () (declare (not safe)) - (##cdr _e100747100909_))) - (_lp-hd100748100913_ + (##cdr _e101482101644_))) + (_lp-hd101483101648_ (let () (declare (not safe)) - (##car _e100747100909_)))) - (_loop100746100899_ - _lp-tl100749100916_ + (##car _e101482101644_)))) + (_loop101481101634_ + _lp-tl101484101651_ (let () (declare (not safe)) - (cons _lp-hd100748100913_ - _expr100750100906_))))) - (let ((_expr100751100919_ - (reverse _expr100750100906_))) - (___kont106398106399_ - _expr100751100919_)))))) - (_loop100746100899_ - _target100743100893_ + (cons _lp-hd101483101648_ + _expr101485101641_))))) + (let ((_expr101486101654_ + (reverse _expr101485101641_))) + (___kont107233107234_ + _expr101486101654_)))))) + (_loop101481101634_ + _target101478101628_ '()))))) - (if (gx#stx-pair? ___stx106395106396_) - (let ((_e100742100883_ - (gx#syntax-e ___stx106395106396_))) - (let ((_tl100740100890_ + (if (gx#stx-pair? ___stx107230107231_) + (let ((_e101477101618_ + (gx#syntax-e ___stx107230107231_))) + (let ((_tl101475101625_ (let () (declare (not safe)) - (##cdr _e100742100883_))) - (_hd100741100887_ + (##cdr _e101477101618_))) + (_hd101476101622_ (let () (declare (not safe)) - (##car _e100742100883_)))) - (if (gx#identifier? _hd100741100887_) + (##car _e101477101618_)))) + (if (gx#identifier? _hd101476101622_) (if (gx#free-identifier=? - |[1]#_g106581_| - _hd100741100887_) + |[1]#_g107416_| + _hd101476101622_) (if (gx#stx-pair/null? - _tl100740100890_) - (let ((___splice106400106401_ + _tl101475101625_) + (let ((___splice107235107236_ (gx#syntax-split-splice - _tl100740100890_ + _tl101475101625_ '0))) - (let ((_tl100745100896_ + (let ((_tl101480101631_ (let () (declare (not safe)) (##vector-ref - ___splice106400106401_ + ___splice107235107236_ '1))) - (_target100743100893_ + (_target101478101628_ (let () (declare (not safe)) (##vector-ref - ___splice106400106401_ + ___splice107235107236_ '0)))) (if (gx#stx-null? - _tl100745100896_) - (___match106424106425_ - _e100742100883_ - _hd100741100887_ - _tl100740100890_ - ___splice106400106401_ - _target100743100893_ - _tl100745100896_) + _tl101480101631_) + (___match107259107260_ + _e101477101618_ + _hd101476101622_ + _tl101475101625_ + ___splice107235107236_ + _target101478101628_ + _tl101480101631_) (if (gx#stx-pair? - _tl100740100890_) - (let ((_e100759100851_ + _tl101475101625_) + (let ((_e101494101586_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl100740100890_))) - (let ((_tl100757100858_ + (gx#syntax-e _tl101475101625_))) + (let ((_tl101492101593_ (let () (declare (not safe)) - (##cdr _e100759100851_))) - (_hd100758100855_ + (##cdr _e101494101586_))) + (_hd101493101590_ (let () (declare (not safe)) - (##car _e100759100851_)))) - (if (gx#stx-null? _tl100757100858_) - (___kont106402106403_ - _hd100758100855_ - _hd100741100887_) - (if (gx#stx-pair? _tl100757100858_) - (let ((_e100771100804_ - (gx#syntax-e _tl100757100858_))) - (let ((_tl100769100811_ + (##car _e101494101586_)))) + (if (gx#stx-null? _tl101492101593_) + (___kont107237107238_ + _hd101493101590_ + _hd101476101622_) + (if (gx#stx-pair? _tl101492101593_) + (let ((_e101506101539_ + (gx#syntax-e _tl101492101593_))) + (let ((_tl101504101546_ (let () (declare (not safe)) - (##cdr _e100771100804_))) - (_hd100770100808_ + (##cdr _e101506101539_))) + (_hd101505101543_ (let () (declare (not safe)) - (##car _e100771100804_)))) - (if (gx#stx-null? _tl100769100811_) - (___kont106404106405_ - _hd100770100808_ - _hd100758100855_ - _hd100741100887_) + (##car _e101506101539_)))) + (if (gx#stx-null? _tl101504101546_) + (___kont107239107240_ + _hd101505101543_ + _hd101493101590_ + _hd101476101622_) (let () (declare (not safe)) - (_g100737100777_))))) + (_g101472101512_))))) (let () (declare (not safe)) - (_g100737100777_)))))) - (let () (declare (not safe)) (_g100737100777_)))))) + (_g101472101512_)))))) + (let () (declare (not safe)) (_g101472101512_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _tl100740100890_) - (let ((_e100759100851_ + _tl101475101625_) + (let ((_e101494101586_ (gx#syntax-e - _tl100740100890_))) - (let ((_tl100757100858_ + _tl101475101625_))) + (let ((_tl101492101593_ (let () (declare (not safe)) - (##cdr _e100759100851_))) - (_hd100758100855_ + (##cdr _e101494101586_))) + (_hd101493101590_ (let () (declare (not safe)) - (##car _e100759100851_)))) + (##car _e101494101586_)))) (if (gx#stx-null? - _tl100757100858_) - (___kont106402106403_ - _hd100758100855_ - _hd100741100887_) + _tl101492101593_) + (___kont107237107238_ + _hd101493101590_ + _hd101476101622_) (if (gx#stx-pair? - _tl100757100858_) - (let ((_e100771100804_ + _tl101492101593_) + (let ((_e101506101539_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl100757100858_))) - (let ((_tl100769100811_ + (gx#syntax-e _tl101492101593_))) + (let ((_tl101504101546_ (let () (declare (not safe)) - (##cdr _e100771100804_))) - (_hd100770100808_ + (##cdr _e101506101539_))) + (_hd101505101543_ (let () (declare (not safe)) - (##car _e100771100804_)))) - (if (gx#stx-null? _tl100769100811_) - (___kont106404106405_ - _hd100770100808_ - _hd100758100855_ - _hd100741100887_) + (##car _e101506101539_)))) + (if (gx#stx-null? _tl101504101546_) + (___kont107239107240_ + _hd101505101543_ + _hd101493101590_ + _hd101476101622_) (let () (declare (not safe)) - (_g100737100777_))))) - (let () (declare (not safe)) (_g100737100777_)))))) + (_g101472101512_))))) + (let () (declare (not safe)) (_g101472101512_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g100737100777_)))) - (if (gx#stx-pair? _tl100740100890_) - (let ((_e100759100851_ + (_g101472101512_)))) + (if (gx#stx-pair? _tl101475101625_) + (let ((_e101494101586_ (gx#syntax-e - _tl100740100890_))) - (let ((_tl100757100858_ + _tl101475101625_))) + (let ((_tl101492101593_ (let () (declare (not safe)) - (##cdr _e100759100851_))) - (_hd100758100855_ + (##cdr _e101494101586_))) + (_hd101493101590_ (let () (declare (not safe)) - (##car _e100759100851_)))) + (##car _e101494101586_)))) (if (gx#stx-null? - _tl100757100858_) - (___kont106402106403_ - _hd100758100855_ - _hd100741100887_) + _tl101492101593_) + (___kont107237107238_ + _hd101493101590_ + _hd101476101622_) (if (gx#stx-pair? - _tl100757100858_) - (let ((_e100771100804_ + _tl101492101593_) + (let ((_e101506101539_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl100757100858_))) - (let ((_tl100769100811_ + (gx#syntax-e _tl101492101593_))) + (let ((_tl101504101546_ (let () (declare (not safe)) - (##cdr _e100771100804_))) - (_hd100770100808_ + (##cdr _e101506101539_))) + (_hd101505101543_ (let () (declare (not safe)) - (##car _e100771100804_)))) - (if (gx#stx-null? _tl100769100811_) - (___kont106404106405_ - _hd100770100808_ - _hd100758100855_ - _hd100741100887_) - (let () (declare (not safe)) (_g100737100777_))))) - (let () (declare (not safe)) (_g100737100777_)))))) + (##car _e101506101539_)))) + (if (gx#stx-null? _tl101504101546_) + (___kont107239107240_ + _hd101505101543_ + _hd101493101590_ + _hd101476101622_) + (let () (declare (not safe)) (_g101472101512_))))) + (let () (declare (not safe)) (_g101472101512_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g100737100777_)))) - (if (gx#stx-pair? _tl100740100890_) - (let ((_e100759100851_ + (_g101472101512_)))) + (if (gx#stx-pair? _tl101475101625_) + (let ((_e101494101586_ (gx#syntax-e - _tl100740100890_))) - (let ((_tl100757100858_ + _tl101475101625_))) + (let ((_tl101492101593_ (let () (declare (not safe)) - (##cdr _e100759100851_))) - (_hd100758100855_ + (##cdr _e101494101586_))) + (_hd101493101590_ (let () (declare (not safe)) - (##car _e100759100851_)))) + (##car _e101494101586_)))) (if (gx#stx-null? - _tl100757100858_) - (___kont106402106403_ - _hd100758100855_ - _hd100741100887_) + _tl101492101593_) + (___kont107237107238_ + _hd101493101590_ + _hd101476101622_) (if (gx#stx-pair? - _tl100757100858_) - (let ((_e100771100804_ + _tl101492101593_) + (let ((_e101506101539_ (gx#syntax-e - _tl100757100858_))) - (let ((_tl100769100811_ + _tl101492101593_))) + (let ((_tl101504101546_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e100771100804_))) - (_hd100770100808_ - (let () (declare (not safe)) (##car _e100771100804_)))) - (if (gx#stx-null? _tl100769100811_) - (___kont106404106405_ - _hd100770100808_ - _hd100758100855_ - _hd100741100887_) - (let () (declare (not safe)) (_g100737100777_))))) - (let () (declare (not safe)) (_g100737100777_)))))) + (##cdr _e101506101539_))) + (_hd101505101543_ + (let () (declare (not safe)) (##car _e101506101539_)))) + (if (gx#stx-null? _tl101504101546_) + (___kont107239107240_ + _hd101505101543_ + _hd101493101590_ + _hd101476101622_) + (let () (declare (not safe)) (_g101472101512_))))) + (let () (declare (not safe)) (_g101472101512_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g100737100777_)))))) + (_g101472101512_)))))) (let () (declare (not safe)) - (_g100737100777_)))))))))) + (_g101472101512_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g100674100685_)))) - (_g100672100950_ - (_recur100572_ _rest100608_))))) - _g100646100657_)))) - (_g100644100954_ + _g101409101420_)))) + (_g101407101685_ + (_recur101307_ _rest101343_))))) + _g101381101392_)))) + (_g101379101689_ (let () (declare (not safe)) - (cons _L100627_ '())))))) - _g100613100624_)))) - (_g100611100958_ (gx#genident '$E))))) + (cons _L101362_ '())))))) + _g101348101359_)))) + (_g101346101693_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K100581100600_ + (_K101316101335_ (lambda () - (let ((__tmp106585 + (let ((__tmp107420 (gx#datum->syntax '#f '__raise-syntax-error)) - (__tmp106582 - (let ((__tmp106583 + (__tmp107417 + (let ((__tmp107418 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp106584 + (let ((__tmp107419 (let () (declare (not safe)) - (cons _L100550_ '())))) + (cons _L101285_ '())))) (declare (not safe)) (cons '"Bad syntax; malformed ast clause" - __tmp106584)))) + __tmp107419)))) (declare (not safe)) - (cons '#f __tmp106583)))) + (cons '#f __tmp107418)))) (declare (not safe)) - (cons __tmp106585 __tmp106582))))) + (cons __tmp107420 __tmp107417))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match100579100604_ + (let ((_try-match101314101339_ (lambda () (if (let () (declare (not safe)) - (##null? _rest100577100586_)) - (_K100581100600_) - (_E100580100592_))))) + (##null? _rest101312101321_)) + (_K101316101335_) + (_E101315101327_))))) (if (let () (declare (not safe)) - (##pair? _rest100577100586_)) - (let ((_tl100584100969_ + (##pair? _rest101312101321_)) + (let ((_tl101319101704_ (let () (declare (not safe)) - (##cdr _rest100577100586_))) - (_hd100583100966_ + (##cdr _rest101312101321_))) + (_hd101318101701_ (let () (declare (not safe)) - (##car _rest100577100586_)))) - (let ((_hd100972_ - _hd100583100966_) - (_rest100975_ - _tl100584100969_)) - (_K100582100962_ - _rest100975_ - _hd100972_))) - (_try-match100579100604_))))))) - _clause100474100543_ - _hd100464100511_ - _hd100461100501_)))))) - (_loop100469100523_ _target100466100517_ '())) - (_g100452100480_ _g100453100484_))))) + (##car _rest101312101321_)))) + (let ((_hd101707_ + _hd101318101701_) + (_rest101710_ + _tl101319101704_)) + (_K101317101697_ + _rest101710_ + _hd101707_))) + (_try-match101314101339_))))))) + _clause101209101278_ + _hd101199101246_ + _hd101196101236_)))))) + (_loop101204101258_ _target101201101252_ '())) + (_g101187101215_ _g101188101219_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g100452100480_ - _g100453100484_)))) - (_g100452100480_ _g100453100484_)))) - (_g100452100480_ _g100453100484_)))) - (_g100452100480_ _g100453100484_))))) - (_g100451100986_ _stx100446_))))) + (_g101187101215_ + _g101188101219_)))) + (_g101187101215_ _g101188101219_)))) + (_g101187101215_ _g101188101219_)))) + (_g101187101215_ _g101188101219_))))) + (_g101186101721_ _stx101181_))))) (define |[:0:]#SyntaxError| - (let ((__obj106468 + (let ((__obj107303 (let () (declare (not safe)) (##structure @@ -1492,7 +1492,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106468 + __obj107303 'gerbil/runtime/syntax#SyntaxError::t '1 gerbil/core$$#class-type-info::t @@ -1500,7 +1500,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106468 + __obj107303 'SyntaxError '2 gerbil/core$$#class-type-info::t @@ -1508,26 +1508,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106468 + __obj107303 '(message irritants where context phi marks) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106587 - (let ((__tmp106588 |[1]#_g106589_|)) + (let ((__tmp107422 + (let ((__tmp107423 |[1]#_g107424_|)) (declare (not safe)) - (cons __tmp106588 '())))) + (cons __tmp107423 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj106468 - __tmp106587 + __obj107303 + __tmp107422 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj106468 + __obj107303 '#f '5 gerbil/core$$#class-type-info::t @@ -1535,7 +1535,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106468 + __obj107303 '#t '6 gerbil/core$$#class-type-info::t @@ -1543,254 +1543,254 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106468 + __obj107303 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106590 |[1]#_g106591_|)) + (let ((__tmp107425 |[1]#_g107426_|)) (declare (not safe)) (##unchecked-structure-set! - __obj106468 - __tmp106590 + __obj107303 + __tmp107425 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106592 |[1]#_g106593_|)) + (let ((__tmp107427 |[1]#_g107428_|)) (declare (not safe)) (##unchecked-structure-set! - __obj106468 - __tmp106592 + __obj107303 + __tmp107427 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106594 |[1]#_g106595_|)) + (let ((__tmp107429 |[1]#_g107430_|)) (declare (not safe)) (##unchecked-structure-set! - __obj106468 - __tmp106594 + __obj107303 + __tmp107429 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106596 - (let ((__tmp106617 - (let ((__tmp106618 |[1]#_g106619_|)) + (let ((__tmp107431 + (let ((__tmp107452 + (let ((__tmp107453 |[1]#_g107454_|)) (declare (not safe)) - (cons 'message __tmp106618))) - (__tmp106597 - (let ((__tmp106614 - (let ((__tmp106615 |[1]#_g106616_|)) + (cons 'message __tmp107453))) + (__tmp107432 + (let ((__tmp107449 + (let ((__tmp107450 |[1]#_g107451_|)) (declare (not safe)) - (cons 'irritants __tmp106615))) - (__tmp106598 - (let ((__tmp106611 - (let ((__tmp106612 |[1]#_g106613_|)) + (cons 'irritants __tmp107450))) + (__tmp107433 + (let ((__tmp107446 + (let ((__tmp107447 |[1]#_g107448_|)) (declare (not safe)) - (cons 'where __tmp106612))) - (__tmp106599 - (let ((__tmp106608 - (let ((__tmp106609 |[1]#_g106610_|)) + (cons 'where __tmp107447))) + (__tmp107434 + (let ((__tmp107443 + (let ((__tmp107444 |[1]#_g107445_|)) (declare (not safe)) - (cons 'context __tmp106609))) - (__tmp106600 - (let ((__tmp106605 - (let ((__tmp106606 - |[1]#_g106607_|)) + (cons 'context __tmp107444))) + (__tmp107435 + (let ((__tmp107440 + (let ((__tmp107441 + |[1]#_g107442_|)) (declare (not safe)) - (cons 'phi __tmp106606))) - (__tmp106601 - (let ((__tmp106602 - (let ((__tmp106603 - |[1]#_g106604_|)) + (cons 'phi __tmp107441))) + (__tmp107436 + (let ((__tmp107437 + (let ((__tmp107438 + |[1]#_g107439_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp106603)))) + __tmp107438)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp106602 '())))) + (cons __tmp107437 '())))) (declare (not safe)) - (cons __tmp106605 __tmp106601)))) + (cons __tmp107440 __tmp107436)))) (declare (not safe)) - (cons __tmp106608 __tmp106600)))) + (cons __tmp107443 __tmp107435)))) (declare (not safe)) - (cons __tmp106611 __tmp106599)))) + (cons __tmp107446 __tmp107434)))) (declare (not safe)) - (cons __tmp106614 __tmp106598)))) + (cons __tmp107449 __tmp107433)))) (declare (not safe)) - (cons __tmp106617 __tmp106597)))) + (cons __tmp107452 __tmp107432)))) (declare (not safe)) (##unchecked-structure-set! - __obj106468 - __tmp106596 + __obj107303 + __tmp107431 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106620 - (let ((__tmp106641 - (let ((__tmp106642 |[1]#_g106643_|)) + (let ((__tmp107455 + (let ((__tmp107476 + (let ((__tmp107477 |[1]#_g107478_|)) (declare (not safe)) - (cons 'message __tmp106642))) - (__tmp106621 - (let ((__tmp106638 - (let ((__tmp106639 |[1]#_g106640_|)) + (cons 'message __tmp107477))) + (__tmp107456 + (let ((__tmp107473 + (let ((__tmp107474 |[1]#_g107475_|)) (declare (not safe)) - (cons 'irritants __tmp106639))) - (__tmp106622 - (let ((__tmp106635 - (let ((__tmp106636 |[1]#_g106637_|)) + (cons 'irritants __tmp107474))) + (__tmp107457 + (let ((__tmp107470 + (let ((__tmp107471 |[1]#_g107472_|)) (declare (not safe)) - (cons 'where __tmp106636))) - (__tmp106623 - (let ((__tmp106632 - (let ((__tmp106633 |[1]#_g106634_|)) + (cons 'where __tmp107471))) + (__tmp107458 + (let ((__tmp107467 + (let ((__tmp107468 |[1]#_g107469_|)) (declare (not safe)) - (cons 'context __tmp106633))) - (__tmp106624 - (let ((__tmp106629 - (let ((__tmp106630 - |[1]#_g106631_|)) + (cons 'context __tmp107468))) + (__tmp107459 + (let ((__tmp107464 + (let ((__tmp107465 + |[1]#_g107466_|)) (declare (not safe)) - (cons 'phi __tmp106630))) - (__tmp106625 - (let ((__tmp106626 - (let ((__tmp106627 - |[1]#_g106628_|)) + (cons 'phi __tmp107465))) + (__tmp107460 + (let ((__tmp107461 + (let ((__tmp107462 + |[1]#_g107463_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp106627)))) + __tmp107462)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp106626 '())))) + (cons __tmp107461 '())))) (declare (not safe)) - (cons __tmp106629 __tmp106625)))) + (cons __tmp107464 __tmp107460)))) (declare (not safe)) - (cons __tmp106632 __tmp106624)))) + (cons __tmp107467 __tmp107459)))) (declare (not safe)) - (cons __tmp106635 __tmp106623)))) + (cons __tmp107470 __tmp107458)))) (declare (not safe)) - (cons __tmp106638 __tmp106622)))) + (cons __tmp107473 __tmp107457)))) (declare (not safe)) - (cons __tmp106641 __tmp106621)))) + (cons __tmp107476 __tmp107456)))) (declare (not safe)) (##unchecked-structure-set! - __obj106468 - __tmp106620 + __obj107303 + __tmp107455 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106644 - (let ((__tmp106665 - (let ((__tmp106666 |[1]#_g106667_|)) + (let ((__tmp107479 + (let ((__tmp107500 + (let ((__tmp107501 |[1]#_g107502_|)) (declare (not safe)) - (cons 'message __tmp106666))) - (__tmp106645 - (let ((__tmp106662 - (let ((__tmp106663 |[1]#_g106664_|)) + (cons 'message __tmp107501))) + (__tmp107480 + (let ((__tmp107497 + (let ((__tmp107498 |[1]#_g107499_|)) (declare (not safe)) - (cons 'irritants __tmp106663))) - (__tmp106646 - (let ((__tmp106659 - (let ((__tmp106660 |[1]#_g106661_|)) + (cons 'irritants __tmp107498))) + (__tmp107481 + (let ((__tmp107494 + (let ((__tmp107495 |[1]#_g107496_|)) (declare (not safe)) - (cons 'where __tmp106660))) - (__tmp106647 - (let ((__tmp106656 - (let ((__tmp106657 |[1]#_g106658_|)) + (cons 'where __tmp107495))) + (__tmp107482 + (let ((__tmp107491 + (let ((__tmp107492 |[1]#_g107493_|)) (declare (not safe)) - (cons 'context __tmp106657))) - (__tmp106648 - (let ((__tmp106653 - (let ((__tmp106654 - |[1]#_g106655_|)) + (cons 'context __tmp107492))) + (__tmp107483 + (let ((__tmp107488 + (let ((__tmp107489 + |[1]#_g107490_|)) (declare (not safe)) - (cons 'phi __tmp106654))) - (__tmp106649 - (let ((__tmp106650 - (let ((__tmp106651 - |[1]#_g106652_|)) + (cons 'phi __tmp107489))) + (__tmp107484 + (let ((__tmp107485 + (let ((__tmp107486 + |[1]#_g107487_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp106651)))) + __tmp107486)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp106650 '())))) + (cons __tmp107485 '())))) (declare (not safe)) - (cons __tmp106653 __tmp106649)))) + (cons __tmp107488 __tmp107484)))) (declare (not safe)) - (cons __tmp106656 __tmp106648)))) + (cons __tmp107491 __tmp107483)))) (declare (not safe)) - (cons __tmp106659 __tmp106647)))) + (cons __tmp107494 __tmp107482)))) (declare (not safe)) - (cons __tmp106662 __tmp106646)))) + (cons __tmp107497 __tmp107481)))) (declare (not safe)) - (cons __tmp106665 __tmp106645)))) + (cons __tmp107500 __tmp107480)))) (declare (not safe)) (##unchecked-structure-set! - __obj106468 - __tmp106644 + __obj107303 + __tmp107479 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106668 - (let ((__tmp106689 - (let ((__tmp106690 |[1]#_g106691_|)) + (let ((__tmp107503 + (let ((__tmp107524 + (let ((__tmp107525 |[1]#_g107526_|)) (declare (not safe)) - (cons 'message __tmp106690))) - (__tmp106669 - (let ((__tmp106686 - (let ((__tmp106687 |[1]#_g106688_|)) + (cons 'message __tmp107525))) + (__tmp107504 + (let ((__tmp107521 + (let ((__tmp107522 |[1]#_g107523_|)) (declare (not safe)) - (cons 'irritants __tmp106687))) - (__tmp106670 - (let ((__tmp106683 - (let ((__tmp106684 |[1]#_g106685_|)) + (cons 'irritants __tmp107522))) + (__tmp107505 + (let ((__tmp107518 + (let ((__tmp107519 |[1]#_g107520_|)) (declare (not safe)) - (cons 'where __tmp106684))) - (__tmp106671 - (let ((__tmp106680 - (let ((__tmp106681 |[1]#_g106682_|)) + (cons 'where __tmp107519))) + (__tmp107506 + (let ((__tmp107515 + (let ((__tmp107516 |[1]#_g107517_|)) (declare (not safe)) - (cons 'context __tmp106681))) - (__tmp106672 - (let ((__tmp106677 - (let ((__tmp106678 - |[1]#_g106679_|)) + (cons 'context __tmp107516))) + (__tmp107507 + (let ((__tmp107512 + (let ((__tmp107513 + |[1]#_g107514_|)) (declare (not safe)) - (cons 'phi __tmp106678))) - (__tmp106673 - (let ((__tmp106674 - (let ((__tmp106675 - |[1]#_g106676_|)) + (cons 'phi __tmp107513))) + (__tmp107508 + (let ((__tmp107509 + (let ((__tmp107510 + |[1]#_g107511_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp106675)))) + __tmp107510)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp106674 '())))) + (cons __tmp107509 '())))) (declare (not safe)) - (cons __tmp106677 __tmp106673)))) + (cons __tmp107512 __tmp107508)))) (declare (not safe)) - (cons __tmp106680 __tmp106672)))) + (cons __tmp107515 __tmp107507)))) (declare (not safe)) - (cons __tmp106683 __tmp106671)))) + (cons __tmp107518 __tmp107506)))) (declare (not safe)) - (cons __tmp106686 __tmp106670)))) + (cons __tmp107521 __tmp107505)))) (declare (not safe)) - (cons __tmp106689 __tmp106669)))) + (cons __tmp107524 __tmp107504)))) (declare (not safe)) (##unchecked-structure-set! - __obj106468 - __tmp106668 + __obj107303 + __tmp107503 '14 gerbil/core$$#class-type-info::t '#f)) - __obj106468)) + __obj107303)) (define |[:0:]#AST| - (let ((__obj106470 + (let ((__obj107305 (let () (declare (not safe)) (##structure @@ -1812,7 +1812,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106470 + __obj107305 'gerbil#AST::t '1 gerbil/core$$#class-type-info::t @@ -1820,7 +1820,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106470 + __obj107305 'syntax '2 gerbil/core$$#class-type-info::t @@ -1828,7 +1828,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106470 + __obj107305 '(e source) '4 gerbil/core$$#class-type-info::t @@ -1836,7 +1836,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106470 + __obj107305 '() '3 gerbil/core$$#class-type-info::t @@ -1844,7 +1844,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106470 + __obj107305 '#t '5 gerbil/core$$#class-type-info::t @@ -1852,7 +1852,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106470 + __obj107305 '#f '6 gerbil/core$$#class-type-info::t @@ -1860,117 +1860,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj106470 + __obj107305 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106692 |[1]#_g106693_|)) + (let ((__tmp107527 |[1]#_g107528_|)) (declare (not safe)) (##unchecked-structure-set! - __obj106470 - __tmp106692 + __obj107305 + __tmp107527 '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106694 |[1]#_g106695_|)) + (let ((__tmp107529 |[1]#_g107530_|)) (declare (not safe)) (##unchecked-structure-set! - __obj106470 - __tmp106694 + __obj107305 + __tmp107529 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106696 |[1]#_g106697_|)) + (let ((__tmp107531 |[1]#_g107532_|)) (declare (not safe)) (##unchecked-structure-set! - __obj106470 - __tmp106696 + __obj107305 + __tmp107531 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106698 - (let ((__tmp106703 - (let ((__tmp106704 |[1]#_g106705_|)) + (let ((__tmp107533 + (let ((__tmp107538 + (let ((__tmp107539 |[1]#_g107540_|)) (declare (not safe)) - (cons 'e __tmp106704))) - (__tmp106699 - (let ((__tmp106700 - (let ((__tmp106701 |[1]#_g106702_|)) + (cons 'e __tmp107539))) + (__tmp107534 + (let ((__tmp107535 + (let ((__tmp107536 |[1]#_g107537_|)) (declare (not safe)) - (cons 'source __tmp106701)))) + (cons 'source __tmp107536)))) (declare (not safe)) - (cons __tmp106700 '())))) + (cons __tmp107535 '())))) (declare (not safe)) - (cons __tmp106703 __tmp106699)))) + (cons __tmp107538 __tmp107534)))) (declare (not safe)) (##unchecked-structure-set! - __obj106470 - __tmp106698 + __obj107305 + __tmp107533 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106706 - (let ((__tmp106711 - (let ((__tmp106712 |[1]#_g106713_|)) + (let ((__tmp107541 + (let ((__tmp107546 + (let ((__tmp107547 |[1]#_g107548_|)) (declare (not safe)) - (cons 'e __tmp106712))) - (__tmp106707 - (let ((__tmp106708 - (let ((__tmp106709 |[1]#_g106710_|)) + (cons 'e __tmp107547))) + (__tmp107542 + (let ((__tmp107543 + (let ((__tmp107544 |[1]#_g107545_|)) (declare (not safe)) - (cons 'source __tmp106709)))) + (cons 'source __tmp107544)))) (declare (not safe)) - (cons __tmp106708 '())))) + (cons __tmp107543 '())))) (declare (not safe)) - (cons __tmp106711 __tmp106707)))) + (cons __tmp107546 __tmp107542)))) (declare (not safe)) (##unchecked-structure-set! - __obj106470 - __tmp106706 + __obj107305 + __tmp107541 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106714 - (let ((__tmp106719 - (let ((__tmp106720 |[1]#_g106721_|)) + (let ((__tmp107549 + (let ((__tmp107554 + (let ((__tmp107555 |[1]#_g107556_|)) (declare (not safe)) - (cons 'e __tmp106720))) - (__tmp106715 - (let ((__tmp106716 - (let ((__tmp106717 |[1]#_g106718_|)) + (cons 'e __tmp107555))) + (__tmp107550 + (let ((__tmp107551 + (let ((__tmp107552 |[1]#_g107553_|)) (declare (not safe)) - (cons 'source __tmp106717)))) + (cons 'source __tmp107552)))) (declare (not safe)) - (cons __tmp106716 '())))) + (cons __tmp107551 '())))) (declare (not safe)) - (cons __tmp106719 __tmp106715)))) + (cons __tmp107554 __tmp107550)))) (declare (not safe)) (##unchecked-structure-set! - __obj106470 - __tmp106714 + __obj107305 + __tmp107549 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp106722 - (let ((__tmp106727 - (let ((__tmp106728 |[1]#_g106729_|)) + (let ((__tmp107557 + (let ((__tmp107562 + (let ((__tmp107563 |[1]#_g107564_|)) (declare (not safe)) - (cons 'e __tmp106728))) - (__tmp106723 - (let ((__tmp106724 - (let ((__tmp106725 |[1]#_g106726_|)) + (cons 'e __tmp107563))) + (__tmp107558 + (let ((__tmp107559 + (let ((__tmp107560 |[1]#_g107561_|)) (declare (not safe)) - (cons 'source __tmp106725)))) + (cons 'source __tmp107560)))) (declare (not safe)) - (cons __tmp106724 '())))) + (cons __tmp107559 '())))) (declare (not safe)) - (cons __tmp106727 __tmp106723)))) + (cons __tmp107562 __tmp107558)))) (declare (not safe)) (##unchecked-structure-set! - __obj106470 - __tmp106722 + __obj107305 + __tmp107557 '14 gerbil/core$$#class-type-info::t '#f)) - __obj106470)))) + __obj107305)))) diff --git a/src/bootstrap/gerbil/runtime/system__0.scm b/src/bootstrap/gerbil/runtime/system__0.scm index 895592dc0..2fe6975e5 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 1707573209) + (define gerbil/runtime/system::timestamp 1707674929) (begin - (define gerbil-version-string (lambda () '"v0.18.1-33-g7c7beadb")) + (define gerbil-version-string (lambda () '"v0.18.1-54-g15f6e429")) (define gerbil-system-manifest - (let ((__tmp69320 - (let ((__tmp69321 + (let ((__tmp69448 + (let ((__tmp69449 (let () (declare (not safe)) (gerbil-version-string)))) (declare (not safe)) - (cons '"Gerbil" __tmp69321))) - (__tmp69317 - (let ((__tmp69318 - (let ((__tmp69319 (system-version-string))) + (cons '"Gerbil" __tmp69449))) + (__tmp69445 + (let ((__tmp69446 + (let ((__tmp69447 (system-version-string))) (declare (not safe)) - (cons '"Gambit" __tmp69319)))) + (cons '"Gambit" __tmp69447)))) (declare (not safe)) - (cons __tmp69318 '())))) + (cons __tmp69446 '())))) (declare (not safe)) - (cons __tmp69320 __tmp69317))) + (cons __tmp69448 __tmp69445))) (define build-manifest gerbil-system-manifest) (set! build-manifest build-manifest) (define display-build-manifest__% - (lambda (_manifest64793_ _port64794_) - (let ((_p64800_ - (lambda (_g6479564797_) (display _g6479564797_ _port64794_))) - (_l64801_ (length _manifest64793_)) - (_i64802_ '0)) + (lambda (_manifest64821_ _port64822_) + (let ((_p64828_ + (lambda (_g6482364825_) (display _g6482364825_ _port64822_))) + (_l64829_ (length _manifest64821_)) + (_i64830_ '0)) (for-each - (lambda (_layer64804_) - (if (let () (declare (not safe)) (zero? _i64802_)) + (lambda (_layer64832_) + (if (let () (declare (not safe)) (zero? _i64830_)) '#!void - (if (= _i64802_ '1) - (let () (declare (not safe)) (_p64800_ '" on ")) - (let () (declare (not safe)) (_p64800_ '", ")))) - (let* ((_layer6480564812_ _layer64804_) - (_E6480764816_ + (if (= _i64830_ '1) + (let () (declare (not safe)) (_p64828_ '" on ")) + (let () (declare (not safe)) (_p64828_ '", ")))) + (let* ((_layer6483364840_ _layer64832_) + (_E6483564844_ (lambda () - (error '"No clause matching" _layer6480564812_))) - (_K6480864822_ - (lambda (_version64819_ _name64820_) - (let () (declare (not safe)) (_p64800_ _name64820_)) - (let () (declare (not safe)) (_p64800_ '" ")) + (error '"No clause matching" _layer6483364840_))) + (_K6483664850_ + (lambda (_version64847_ _name64848_) + (let () (declare (not safe)) (_p64828_ _name64848_)) + (let () (declare (not safe)) (_p64828_ '" ")) (let () (declare (not safe)) - (_p64800_ _version64819_))))) - (if (let () (declare (not safe)) (##pair? _layer6480564812_)) - (let ((_hd6480964825_ + (_p64828_ _version64847_))))) + (if (let () (declare (not safe)) (##pair? _layer6483364840_)) + (let ((_hd6483764853_ (let () (declare (not safe)) - (##car _layer6480564812_))) - (_tl6481064827_ + (##car _layer6483364840_))) + (_tl6483864855_ (let () (declare (not safe)) - (##cdr _layer6480564812_)))) - (let* ((_name64830_ _hd6480964825_) - (_version64832_ _tl6481064827_)) + (##cdr _layer6483364840_)))) + (let* ((_name64858_ _hd6483764853_) + (_version64860_ _tl6483864855_)) (declare (not safe)) - (_K6480864822_ _version64832_ _name64830_))) - (let () (declare (not safe)) (_E6480764816_)))) - (set! _i64802_ (+ _i64802_ '1))) - _manifest64793_)))) + (_K6483664850_ _version64860_ _name64858_))) + (let () (declare (not safe)) (_E6483564844_)))) + (set! _i64830_ (+ _i64830_ '1))) + _manifest64821_)))) (define display-build-manifest__0 (lambda () - (let* ((_manifest64838_ build-manifest) - (_port64840_ (current-output-port))) + (let* ((_manifest64866_ build-manifest) + (_port64868_ (current-output-port))) (declare (not safe)) - (display-build-manifest__% _manifest64838_ _port64840_)))) + (display-build-manifest__% _manifest64866_ _port64868_)))) (define display-build-manifest__1 - (lambda (_manifest64842_) - (let ((_port64844_ (current-output-port))) + (lambda (_manifest64870_) + (let ((_port64872_ (current-output-port))) (declare (not safe)) - (display-build-manifest__% _manifest64842_ _port64844_)))) + (display-build-manifest__% _manifest64870_ _port64872_)))) (define display-build-manifest - (lambda _g69323_ - (let ((_g69322_ (let () (declare (not safe)) (##length _g69323_)))) - (cond ((let () (declare (not safe)) (##fx= _g69322_ 0)) + (lambda _g69451_ + (let ((_g69450_ (let () (declare (not safe)) (##length _g69451_)))) + (cond ((let () (declare (not safe)) (##fx= _g69450_ 0)) (apply (lambda () (let () (declare (not safe)) (display-build-manifest__0))) - _g69323_)) - ((let () (declare (not safe)) (##fx= _g69322_ 1)) - (apply (lambda (_manifest64842_) + _g69451_)) + ((let () (declare (not safe)) (##fx= _g69450_ 1)) + (apply (lambda (_manifest64870_) (let () (declare (not safe)) - (display-build-manifest__1 _manifest64842_))) - _g69323_)) - ((let () (declare (not safe)) (##fx= _g69322_ 2)) - (apply (lambda (_manifest64846_ _port64847_) + (display-build-manifest__1 _manifest64870_))) + _g69451_)) + ((let () (declare (not safe)) (##fx= _g69450_ 2)) + (apply (lambda (_manifest64874_ _port64875_) (let () (declare (not safe)) (display-build-manifest__% - _manifest64846_ - _port64847_))) - _g69323_)) + _manifest64874_ + _port64875_))) + _g69451_)) (else (##raise-wrong-number-of-arguments-exception display-build-manifest - _g69323_)))))) + _g69451_)))))) (define build-manifest/layer - (lambda (_layer64788_) - (let ((_l64790_ (assoc _layer64788_ build-manifest))) - (if _l64790_ - (let () (declare (not safe)) (cons _l64790_ '())) + (lambda (_layer64816_) + (let ((_l64818_ (assoc _layer64816_ build-manifest))) + (if _l64818_ + (let () (declare (not safe)) (cons _l64818_ '())) '())))) (define build-manifest/head (lambda () - (let ((__tmp69324 (car build-manifest))) + (let ((__tmp69452 (car build-manifest))) (declare (not safe)) - (cons __tmp69324 '())))) + (cons __tmp69452 '())))) (define build-manifest-string__% - (lambda (_manifest64775_) + (lambda (_manifest64803_) (call-with-output-string '() - (lambda (_p64777_) + (lambda (_p64805_) (let () (declare (not safe)) - (display-build-manifest__% _manifest64775_ _p64777_)))))) + (display-build-manifest__% _manifest64803_ _p64805_)))))) (define build-manifest-string__0 (lambda () - (let ((_manifest64783_ build-manifest)) + (let ((_manifest64811_ build-manifest)) (declare (not safe)) - (build-manifest-string__% _manifest64783_)))) + (build-manifest-string__% _manifest64811_)))) (define build-manifest-string - (lambda _g69326_ - (let ((_g69325_ (let () (declare (not safe)) (##length _g69326_)))) - (cond ((let () (declare (not safe)) (##fx= _g69325_ 0)) + (lambda _g69454_ + (let ((_g69453_ (let () (declare (not safe)) (##length _g69454_)))) + (cond ((let () (declare (not safe)) (##fx= _g69453_ 0)) (apply (lambda () (let () (declare (not safe)) (build-manifest-string__0))) - _g69326_)) - ((let () (declare (not safe)) (##fx= _g69325_ 1)) - (apply (lambda (_manifest64785_) + _g69454_)) + ((let () (declare (not safe)) (##fx= _g69453_ 1)) + (apply (lambda (_manifest64813_) (let () (declare (not safe)) - (build-manifest-string__% _manifest64785_))) - _g69326_)) + (build-manifest-string__% _manifest64813_))) + _g69454_)) (else (##raise-wrong-number-of-arguments-exception build-manifest-string - _g69326_)))))) + _g69454_)))))) (define gerbil-system-version-string (lambda () (let () @@ -152,15 +152,15 @@ (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_$e64769_ (getenv '"GERBIL_HOME" '#f))) - (if _$e64769_ _$e64769_ (path-expand '"~~"))))) + (let ((_$e64797_ (getenv '"GERBIL_HOME" '#f))) + (if _$e64797_ _$e64797_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_$e64765_ (getenv '"GERBIL_PATH" '#f))) - (if _$e64765_ _$e64765_ (path-expand '"~/.gerbil"))))) + (let ((_$e64793_ (getenv '"GERBIL_PATH" '#f))) + (if _$e64793_ _$e64793_ (path-expand '"~/.gerbil"))))) (define gerbil-runtime-smp? (lambda () (member '"--enable-smp" - (let ((__tmp69327 (configure-command-string))) + (let ((__tmp69455 (configure-command-string))) (declare (not safe)) - (string-split __tmp69327 '#\'))))))) + (string-split __tmp69455 '#\'))))))) diff --git a/src/bootstrap/gerbil/runtime/system__1.scm b/src/bootstrap/gerbil/runtime/system__1.scm index 5e1d78178..95c25d157 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 (_$stx64681_) - (let* ((_g6468564703_ - (lambda (_g6468664699_) + (lambda (_$stx64709_) + (let* ((_g6471364731_ + (lambda (_g6471464727_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6468664699_))) - (_g6468464759_ - (lambda (_g6468664707_) - (if (gx#stx-pair? _g6468664707_) - (let ((_e6469164710_ (gx#syntax-e _g6468664707_))) - (let ((_hd6469064714_ - (let () (declare (not safe)) (##car _e6469164710_))) - (_tl6468964717_ + _g6471464727_))) + (_g6471264787_ + (lambda (_g6471464735_) + (if (gx#stx-pair? _g6471464735_) + (let ((_e6471964738_ (gx#syntax-e _g6471464735_))) + (let ((_hd6471864742_ + (let () (declare (not safe)) (##car _e6471964738_))) + (_tl6471764745_ (let () (declare (not safe)) - (##cdr _e6469164710_)))) - (if (gx#stx-pair? _tl6468964717_) - (let ((_e6469464720_ (gx#syntax-e _tl6468964717_))) - (let ((_hd6469364724_ + (##cdr _e6471964738_)))) + (if (gx#stx-pair? _tl6471764745_) + (let ((_e6472264748_ (gx#syntax-e _tl6471764745_))) + (let ((_hd6472164752_ (let () (declare (not safe)) - (##car _e6469464720_))) - (_tl6469264727_ + (##car _e6472264748_))) + (_tl6472064755_ (let () (declare (not safe)) - (##cdr _e6469464720_)))) - (if (gx#stx-pair? _tl6469264727_) - (let ((_e6469764730_ - (gx#syntax-e _tl6469264727_))) - (let ((_hd6469664734_ + (##cdr _e6472264748_)))) + (if (gx#stx-pair? _tl6472064755_) + (let ((_e6472564758_ + (gx#syntax-e _tl6472064755_))) + (let ((_hd6472464762_ (let () (declare (not safe)) - (##car _e6469764730_))) - (_tl6469564737_ + (##car _e6472564758_))) + (_tl6472364765_ (let () (declare (not safe)) - (##cdr _e6469764730_)))) - (if (gx#stx-null? _tl6469564737_) - ((lambda (_L64740_ _L64742_) - (let ((__tmp69341 + (##cdr _e6472564758_)))) + (if (gx#stx-null? _tl6472364765_) + ((lambda (_L64768_ _L64770_) + (let ((__tmp69469 (gx#datum->syntax '#f 'begin)) - (__tmp69328 - (let ((__tmp69337 - (let ((__tmp69340 + (__tmp69456 + (let ((__tmp69465 + (let ((__tmp69468 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'def)) - (__tmp69338 - (let ((__tmp69339 + (__tmp69466 + (let ((__tmp69467 (let () (declare (not safe)) - (cons _L64740_ '())))) + (cons _L64768_ '())))) (declare (not safe)) - (cons _L64742_ __tmp69339)))) + (cons _L64770_ __tmp69467)))) (declare (not safe)) - (cons __tmp69340 __tmp69338))) - (__tmp69329 - (let ((__tmp69333 - (let ((__tmp69336 (gx#datum->syntax '#f 'set!)) - (__tmp69334 - (let ((__tmp69335 + (cons __tmp69468 __tmp69466))) + (__tmp69457 + (let ((__tmp69461 + (let ((__tmp69464 (gx#datum->syntax '#f 'set!)) + (__tmp69462 + (let ((__tmp69463 (let () (declare (not safe)) - (cons _L64742_ '())))) + (cons _L64770_ '())))) (declare (not safe)) - (cons _L64742_ __tmp69335)))) + (cons _L64770_ __tmp69463)))) (declare (not safe)) - (cons __tmp69336 __tmp69334))) - (__tmp69330 - (let ((__tmp69331 - (let ((__tmp69332 + (cons __tmp69464 __tmp69462))) + (__tmp69458 + (let ((__tmp69459 + (let ((__tmp69460 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp69332 '())))) + (cons __tmp69460 '())))) (declare (not safe)) - (cons __tmp69331 '())))) + (cons __tmp69459 '())))) (declare (not safe)) - (cons __tmp69333 __tmp69330)))) + (cons __tmp69461 __tmp69458)))) (declare (not safe)) - (cons __tmp69337 __tmp69329)))) + (cons __tmp69465 __tmp69457)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp69341 __tmp69328))) - _hd6469664734_ - _hd6469364724_) - (_g6468564703_ _g6468664707_)))) - (_g6468564703_ _g6468664707_)))) - (_g6468564703_ _g6468664707_)))) - (_g6468564703_ _g6468664707_))))) - (_g6468464759_ _$stx64681_)))) + (cons __tmp69469 __tmp69456))) + _hd6472464762_ + _hd6472164752_) + (_g6471364731_ _g6471464735_)))) + (_g6471364731_ _g6471464735_)))) + (_g6471364731_ _g6471464735_)))) + (_g6471364731_ _g6471464735_))))) + (_g6471264787_ _$stx64709_)))) diff --git a/src/bootstrap/gerbil/runtime/thread__0.scm b/src/bootstrap/gerbil/runtime/thread__0.scm index 6655658c1..74c1f2f52 100644 --- a/src/bootstrap/gerbil/runtime/thread__0.scm +++ b/src/bootstrap/gerbil/runtime/thread__0.scm @@ -1,228 +1,228 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/thread::timestamp 1707573210) + (define gerbil/runtime/thread::timestamp 1707674929) (begin (define spawn - (lambda (_f95838_ . _args95839_) - (if (let () (declare (not safe)) (procedure? _f95838_)) + (lambda (_f96473_ . _args96474_) + (if (let () (declare (not safe)) (procedure? _f96473_)) '#!void - (raise (let ((__obj100308 + (raise (let ((__obj101043 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj100308 + __obj101043 '"expected procedure" 'where: 'spawn 'irritants: - (let () (declare (not safe)) (cons _f95838_ '()))) - __obj100308))) + (let () (declare (not safe)) (cons _f96473_ '()))) + __obj101043))) (let () (declare (not safe)) - (spawn-actor _f95838_ _args95839_ '#!void '#f)))) + (spawn-actor _f96473_ _args96474_ '#!void '#f)))) (define spawn/name - (lambda (_name95834_ _f95835_ . _args95836_) - (if (let () (declare (not safe)) (procedure? _f95835_)) + (lambda (_name96469_ _f96470_ . _args96471_) + (if (let () (declare (not safe)) (procedure? _f96470_)) '#!void - (raise (let ((__obj100309 + (raise (let ((__obj101044 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj100309 + __obj101044 '"expected procedure" 'where: 'spawn/name 'irritants: - (let () (declare (not safe)) (cons _f95835_ '()))) - __obj100309))) + (let () (declare (not safe)) (cons _f96470_ '()))) + __obj101044))) (let () (declare (not safe)) - (spawn-actor _f95835_ _args95836_ _name95834_ '#f)))) + (spawn-actor _f96470_ _args96471_ _name96469_ '#f)))) (define spawn/group - (lambda (_name95828_ _f95829_ . _args95830_) - (if (let () (declare (not safe)) (procedure? _f95829_)) + (lambda (_name96463_ _f96464_ . _args96465_) + (if (let () (declare (not safe)) (procedure? _f96464_)) '#!void - (raise (let ((__obj100310 + (raise (let ((__obj101045 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj100310 + __obj101045 '"expected procedure" 'where: 'spawn/group 'irritants: - (let () (declare (not safe)) (cons _f95829_ '()))) - __obj100310))) - (let ((_tgroup95832_ (make-thread-group _name95828_))) + (let () (declare (not safe)) (cons _f96464_ '()))) + __obj101045))) + (let ((_tgroup96467_ (make-thread-group _name96463_))) (declare (not safe)) - (spawn-actor _f95829_ _args95830_ _name95828_ _tgroup95832_)))) + (spawn-actor _f96464_ _args96465_ _name96463_ _tgroup96467_)))) (define spawn-actor - (lambda (_f95801_ _args95802_ _name95803_ _tgroup95804_) - (letrec ((_thread-main95806_ - (lambda (_thunk95820_) + (lambda (_f96436_ _args96437_ _name96438_ _tgroup96439_) + (letrec ((_thread-main96441_ + (lambda (_thunk96455_) (lambda () (with-exception-handler - (lambda (_exn95823_) - (let ((__tmp100312 - (lambda (_cont95825_) + (lambda (_exn96458_) + (let ((__tmp101047 + (lambda (_cont96460_) (if __unhandled-actor-exception-hook - (let ((__tmp100313 + (let ((__tmp101048 (lambda () (__unhandled-actor-exception-hook - _cont95825_ - _exn95823_)))) + _cont96460_ + _exn96458_)))) (declare (not safe)) - (with-catch void __tmp100313)) + (with-catch void __tmp101048)) '#!void) - (let ((__tmp100314 + (let ((__tmp101049 (let () (declare (not safe)) - (##continuation-last _cont95825_)))) + (##continuation-last _cont96460_)))) (declare (not safe)) (##continuation-graft - __tmp100314 + __tmp101049 ##primordial-exception-handler - _exn95823_))))) + _exn96458_))))) (declare (not safe)) - (##continuation-capture __tmp100312))) - _thunk95820_))))) - (let* ((_thunk95809_ - (if (let () (declare (not safe)) (null? _args95802_)) - _f95801_ - (lambda () (apply _f95801_ _args95802_)))) - (_thunk95812_ + (##continuation-capture __tmp101047))) + _thunk96455_))))) + (let* ((_thunk96444_ + (if (let () (declare (not safe)) (null? _args96437_)) + _f96436_ + (lambda () (apply _f96436_ _args96437_)))) + (_thunk96447_ (lambda () (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk95809_)))) - (_tgroup95817_ - (let ((_$e95814_ _tgroup95804_)) - (if _$e95814_ - _$e95814_ + (with-exception-stack-trace__0 _thunk96444_)))) + (_tgroup96452_ + (let ((_$e96449_ _tgroup96439_)) + (if _$e96449_ + _$e96449_ (let () (declare (not safe)) (current-thread-group)))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (let () (declare (not safe)) (_thread-main95806_ _thunk95812_)) - _name95803_ - _tgroup95817_)))))) + (let () (declare (not safe)) (_thread-main96441_ _thunk96447_)) + _name96438_ + _tgroup96452_)))))) (define spawn-thread__% - (lambda (_thunk95779_ _name95780_ _tgroup95781_) - (thread-start! (make-thread _thunk95779_ _name95780_ _tgroup95781_)))) + (lambda (_thunk96414_ _name96415_ _tgroup96416_) + (thread-start! (make-thread _thunk96414_ _name96415_ _tgroup96416_)))) (define spawn-thread__0 - (lambda (_thunk95786_) - (let* ((_name95788_ absent-obj) (_tgroup95790_ absent-obj)) + (lambda (_thunk96421_) + (let* ((_name96423_ absent-obj) (_tgroup96425_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk95786_ _name95788_ _tgroup95790_)))) + (spawn-thread__% _thunk96421_ _name96423_ _tgroup96425_)))) (define spawn-thread__1 - (lambda (_thunk95792_ _name95793_) - (let ((_tgroup95795_ absent-obj)) + (lambda (_thunk96427_ _name96428_) + (let ((_tgroup96430_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk95792_ _name95793_ _tgroup95795_)))) + (spawn-thread__% _thunk96427_ _name96428_ _tgroup96430_)))) (define spawn-thread - (lambda _g100316_ - (let ((_g100315_ (let () (declare (not safe)) (##length _g100316_)))) - (cond ((let () (declare (not safe)) (##fx= _g100315_ 1)) - (apply (lambda (_thunk95786_) + (lambda _g101051_ + (let ((_g101050_ (let () (declare (not safe)) (##length _g101051_)))) + (cond ((let () (declare (not safe)) (##fx= _g101050_ 1)) + (apply (lambda (_thunk96421_) (let () (declare (not safe)) - (spawn-thread__0 _thunk95786_))) - _g100316_)) - ((let () (declare (not safe)) (##fx= _g100315_ 2)) - (apply (lambda (_thunk95792_ _name95793_) + (spawn-thread__0 _thunk96421_))) + _g101051_)) + ((let () (declare (not safe)) (##fx= _g101050_ 2)) + (apply (lambda (_thunk96427_ _name96428_) (let () (declare (not safe)) - (spawn-thread__1 _thunk95792_ _name95793_))) - _g100316_)) - ((let () (declare (not safe)) (##fx= _g100315_ 3)) - (apply (lambda (_thunk95797_ _name95798_ _tgroup95799_) + (spawn-thread__1 _thunk96427_ _name96428_))) + _g101051_)) + ((let () (declare (not safe)) (##fx= _g101050_ 3)) + (apply (lambda (_thunk96432_ _name96433_ _tgroup96434_) (let () (declare (not safe)) (spawn-thread__% - _thunk95797_ - _name95798_ - _tgroup95799_))) - _g100316_)) + _thunk96432_ + _name96433_ + _tgroup96434_))) + _g101051_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g100316_)))))) + _g101051_)))))) (define thread-local-ref__% - (lambda (_key95763_ _default95764_) - (let ((_tab95766_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key96398_ _default96399_) + (let ((_tab96401_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-ref _tab95766_ _key95763_ _default95764_)))) + (table-ref _tab96401_ _key96398_ _default96399_)))) (define thread-local-ref__0 - (lambda (_key95771_) - (let ((_default95773_ absent-obj)) + (lambda (_key96406_) + (let ((_default96408_ absent-obj)) (declare (not safe)) - (thread-local-ref__% _key95771_ _default95773_)))) + (thread-local-ref__% _key96406_ _default96408_)))) (define thread-local-ref - (lambda _g100318_ - (let ((_g100317_ (let () (declare (not safe)) (##length _g100318_)))) - (cond ((let () (declare (not safe)) (##fx= _g100317_ 1)) - (apply (lambda (_key95771_) + (lambda _g101053_ + (let ((_g101052_ (let () (declare (not safe)) (##length _g101053_)))) + (cond ((let () (declare (not safe)) (##fx= _g101052_ 1)) + (apply (lambda (_key96406_) (let () (declare (not safe)) - (thread-local-ref__0 _key95771_))) - _g100318_)) - ((let () (declare (not safe)) (##fx= _g100317_ 2)) - (apply (lambda (_key95775_ _default95776_) + (thread-local-ref__0 _key96406_))) + _g101053_)) + ((let () (declare (not safe)) (##fx= _g101052_ 2)) + (apply (lambda (_key96410_ _default96411_) (let () (declare (not safe)) - (thread-local-ref__% _key95775_ _default95776_))) - _g100318_)) + (thread-local-ref__% _key96410_ _default96411_))) + _g101053_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g100318_)))))) + _g101053_)))))) (define thread-local-get - (lambda (_key95760_) - (let () (declare (not safe)) (thread-local-ref _key95760_ '#f)))) + (lambda (_key96395_) + (let () (declare (not safe)) (thread-local-ref _key96395_ '#f)))) (define thread-local-set! - (lambda (_key95755_ _value95756_) - (let ((_tab95758_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key96390_ _value96391_) + (let ((_tab96393_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab95758_ _key95755_ _value95756_)))) + (table-set! _tab96393_ _key96390_ _value96391_)))) (define thread-local-clear! - (lambda (_key95751_) - (let ((_tab95753_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key96386_) + (let ((_tab96388_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab95753_ _key95751_)))) + (table-set! _tab96388_ _key96386_)))) (define thread-local-table (lambda () - (let ((_thr95737_ (current-thread))) - (if (let () (declare (not safe)) (actor-thread? _thr95737_)) - (let ((_$e95739_ (actor-thread-locals _thr95737_))) - (if _$e95739_ - (values _$e95739_) - (let ((_tab95742_ + (let ((_thr96372_ (current-thread))) + (if (let () (declare (not safe)) (actor-thread? _thr96372_)) + (let ((_$e96374_ (actor-thread-locals _thr96372_))) + (if _$e96374_ + (values _$e96374_) + (let ((_tab96377_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (actor-thread-locals-set! _thr95737_ _tab95742_) - _tab95742_))) + (actor-thread-locals-set! _thr96372_ _tab96377_) + _tab96377_))) (if (let () (declare (not safe)) - (eq? _thr95737_ ##primordial-thread)) + (eq? _thr96372_ ##primordial-thread)) __primordial-thread-locals (begin (mutex-lock! __thread-locals-mutex) - (let ((_$e95744_ + (let ((_$e96379_ (let () (declare (not safe)) - (table-ref __thread-locals _thr95737_ '#f)))) - (if _$e95744_ - ((lambda (_tab95747_) + (table-ref __thread-locals _thr96372_ '#f)))) + (if _$e96379_ + ((lambda (_tab96382_) (mutex-unlock! __thread-locals-mutex) - _tab95747_) - _$e95744_) - (let ((_tab95749_ + _tab96382_) + _$e96379_) + (let ((_tab96384_ (let () (declare (not safe)) (make-table 'test: eq?)))) @@ -230,10 +230,10 @@ (declare (not safe)) (table-set! __thread-locals - _thr95737_ - _tab95749_)) + _thr96372_ + _tab96384_)) (mutex-unlock! __thread-locals-mutex) - _tab95749_))))))))) + _tab96384_))))))))) (define __primordial-thread-locals (let () (declare (not safe)) (make-table 'test: eq?))) (define __thread-locals @@ -241,138 +241,138 @@ (define __thread-locals-mutex (make-mutex 'thread-locals)) (define __unhandled-actor-exception-hook '#f) (define unhandled-actor-exception-hook-set! - (lambda (_proc95734_) - (if (let () (declare (not safe)) (procedure? _proc95734_)) + (lambda (_proc96369_) + (if (let () (declare (not safe)) (procedure? _proc96369_)) '#!void - (raise (let ((__obj100311 + (raise (let ((__obj101046 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj100311 + __obj101046 '"Bad argument; expected procedure or #f" 'where: 'unhandler-actor-exception-hook-set! 'irritants: - (let () (declare (not safe)) (cons _proc95734_ '()))) - __obj100311))) - (set! __unhandled-actor-exception-hook _proc95734_))) + (let () (declare (not safe)) (cons _proc96369_ '()))) + __obj101046))) + (set! __unhandled-actor-exception-hook _proc96369_))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_mx95722_ _proc95723_) - (let ((_handler95725_ (current-exception-handler))) + (lambda (_mx96357_ _proc96358_) + (let ((_handler96360_ (current-exception-handler))) (with-exception-handler - (lambda (_e95727_) - (let ((__tmp100319 + (lambda (_e96362_) + (let ((__tmp101054 (lambda () - (mutex-unlock! _mx95722_) - (_handler95725_ _e95727_)))) + (mutex-unlock! _mx96357_) + (_handler96360_ _e96362_)))) (declare (not safe)) - (with-catch void __tmp100319)) + (with-catch void __tmp101054)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _e95727_))) + (##thread-end-with-uncaught-exception! _e96362_))) (lambda () - (mutex-lock! _mx95722_) - (let ((_result95731_ (_proc95723_))) - (mutex-unlock! _mx95722_) - _result95731_)))))) + (mutex-lock! _mx96357_) + (let ((_result96366_ (_proc96358_))) + (mutex-unlock! _mx96357_) + _result96366_)))))) (define with-dynamic-lock - (lambda (_mx95717_ _proc95718_) + (lambda (_mx96352_ _proc96353_) (dynamic-wind - (lambda () (mutex-lock! _mx95717_)) - _proc95718_ - (lambda () (mutex-unlock! _mx95717_))))) + (lambda () (mutex-lock! _mx96352_)) + _proc96353_ + (lambda () (mutex-unlock! _mx96352_))))) (define with-exception-stack-trace__% - (lambda (_thunk95698_ _error-port95699_) + (lambda (_thunk96333_ _error-port96334_) (with-exception-handler - (let ((_E95701_ (current-exception-handler))) - (lambda (_exn95703_) + (let ((_E96336_ (current-exception-handler))) + (lambda (_exn96338_) (continuation-capture - (lambda (_cont95705_) + (lambda (_cont96340_) (if (dump-stack-trace?) (let () (declare (not safe)) (dump-stack-trace!__% - _cont95705_ - _exn95703_ - _error-port95699_)) + _cont96340_ + _exn96338_ + _error-port96334_)) '#!void) - (_E95701_ _exn95703_))))) - _thunk95698_))) + (_E96336_ _exn96338_))))) + _thunk96333_))) (define with-exception-stack-trace__0 - (lambda (_thunk95710_) - (let ((_error-port95712_ (current-error-port))) + (lambda (_thunk96345_) + (let ((_error-port96347_ (current-error-port))) (declare (not safe)) - (with-exception-stack-trace__% _thunk95710_ _error-port95712_)))) + (with-exception-stack-trace__% _thunk96345_ _error-port96347_)))) (define with-exception-stack-trace - (lambda _g100321_ - (let ((_g100320_ (let () (declare (not safe)) (##length _g100321_)))) - (cond ((let () (declare (not safe)) (##fx= _g100320_ 1)) - (apply (lambda (_thunk95710_) + (lambda _g101056_ + (let ((_g101055_ (let () (declare (not safe)) (##length _g101056_)))) + (cond ((let () (declare (not safe)) (##fx= _g101055_ 1)) + (apply (lambda (_thunk96345_) (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk95710_))) - _g100321_)) - ((let () (declare (not safe)) (##fx= _g100320_ 2)) - (apply (lambda (_thunk95714_ _error-port95715_) + (with-exception-stack-trace__0 _thunk96345_))) + _g101056_)) + ((let () (declare (not safe)) (##fx= _g101055_ 2)) + (apply (lambda (_thunk96349_ _error-port96350_) (let () (declare (not safe)) (with-exception-stack-trace__% - _thunk95714_ - _error-port95715_))) - _g100321_)) + _thunk96349_ + _error-port96350_))) + _g101056_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g100321_)))))) + _g101056_)))))) (define dump-stack-trace!__% - (lambda (_cont95679_ _exn95680_ _error-port95681_) - (let ((_out95683_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _out95683_)) - (display '"*** Unhandled exception in " _out95683_) - (display (current-thread) _out95683_) - (newline _out95683_) - (display-exception _exn95680_ _out95683_) + (lambda (_cont96314_ _exn96315_ _error-port96316_) + (let ((_out96318_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _out96318_)) + (display '"*** Unhandled exception in " _out96318_) + (display (current-thread) _out96318_) + (newline _out96318_) + (display-exception _exn96315_ _out96318_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn95680_)) + (class-instance? StackTrace::t _exn96315_)) '#!void (begin - (display '"Continuation backtrace: " _out95683_) - (newline _out95683_) - (display-continuation-backtrace _cont95679_ _out95683_))) - (let ((__tmp100322 (get-output-string _out95683_))) + (display '"Continuation backtrace: " _out96318_) + (newline _out96318_) + (display-continuation-backtrace _cont96314_ _out96318_))) + (let ((__tmp101057 (get-output-string _out96318_))) (declare (not safe)) - (##write-string __tmp100322 _error-port95681_))))) + (##write-string __tmp101057 _error-port96316_))))) (define dump-stack-trace!__0 - (lambda (_cont95688_ _exn95689_) - (let ((_error-port95691_ (current-error-port))) + (lambda (_cont96323_ _exn96324_) + (let ((_error-port96326_ (current-error-port))) (declare (not safe)) - (dump-stack-trace!__% _cont95688_ _exn95689_ _error-port95691_)))) + (dump-stack-trace!__% _cont96323_ _exn96324_ _error-port96326_)))) (define dump-stack-trace! - (lambda _g100324_ - (let ((_g100323_ (let () (declare (not safe)) (##length _g100324_)))) - (cond ((let () (declare (not safe)) (##fx= _g100323_ 2)) - (apply (lambda (_cont95688_ _exn95689_) + (lambda _g101059_ + (let ((_g101058_ (let () (declare (not safe)) (##length _g101059_)))) + (cond ((let () (declare (not safe)) (##fx= _g101058_ 2)) + (apply (lambda (_cont96323_ _exn96324_) (let () (declare (not safe)) - (dump-stack-trace!__0 _cont95688_ _exn95689_))) - _g100324_)) - ((let () (declare (not safe)) (##fx= _g100323_ 3)) - (apply (lambda (_cont95693_ _exn95694_ _error-port95695_) + (dump-stack-trace!__0 _cont96323_ _exn96324_))) + _g101059_)) + ((let () (declare (not safe)) (##fx= _g101058_ 3)) + (apply (lambda (_cont96328_ _exn96329_ _error-port96330_) (let () (declare (not safe)) (dump-stack-trace!__% - _cont95693_ - _exn95694_ - _error-port95695_))) - _g100324_)) + _cont96328_ + _exn96329_ + _error-port96330_))) + _g101059_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g100324_)))))) + _g101059_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util.ssi b/src/bootstrap/gerbil/runtime/util.ssi index 3b4b11bbd..a5898c4ad 100644 --- a/src/bootstrap/gerbil/runtime/util.ssi +++ b/src/bootstrap/gerbil/runtime/util.ssi @@ -93,6 +93,7 @@ namespace: #f (%#define-runtime remove-nulls! remove-nulls!) (%#define-runtime append1! append1!) (%#define-runtime append-reverse append-reverse) + (%#define-runtime append-reverse-until append-reverse-until) (%#define-runtime andmap1 andmap1) (%#define-runtime andmap2 andmap2) (%#define-runtime andmap andmap) diff --git a/src/bootstrap/gerbil/runtime/util.ssxi.ss b/src/bootstrap/gerbil/runtime/util.ssxi.ss index b31f20f99..4f5c1b2b1 100644 --- a/src/bootstrap/gerbil/runtime/util.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/util.ssxi.ss @@ -156,6 +156,7 @@ package: gerbil/runtime (declare-type remove-nulls! (@lambda 1 #f)) (declare-type append1! (@lambda 2 #f)) (declare-type append-reverse (@lambda 2 #f)) + (declare-type append-reverse-until (@lambda 3 #f)) (declare-type andmap1 (@lambda 2 #f)) (declare-type andmap2 (@lambda 3 #f)) (declare-type andmap (@case-lambda (2 andmap1) (3 andmap2) ((4) andmap*))) diff --git a/src/bootstrap/gerbil/runtime/util__0.scm b/src/bootstrap/gerbil/runtime/util__0.scm index 6cb02623c..076080b66 100644 --- a/src/bootstrap/gerbil/runtime/util__0.scm +++ b/src/bootstrap/gerbil/runtime/util__0.scm @@ -1,2349 +1,2392 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1707573209) + (define gerbil/runtime/util::timestamp 1707674928) (begin (define displayln - (lambda _args59192_ - (let _lp59194_ ((_rest59196_ _args59192_)) - (let* ((_rest5919759205_ _rest59196_) - (_else5919959213_ (lambda () (newline))) - (_K5920159219_ - (lambda (_rest59216_ _hd59217_) - (display _hd59217_) - (let () (declare (not safe)) (_lp59194_ _rest59216_))))) - (if (let () (declare (not safe)) (##pair? _rest5919759205_)) - (let ((_hd5920259222_ - (let () (declare (not safe)) (##car _rest5919759205_))) - (_tl5920359224_ - (let () (declare (not safe)) (##cdr _rest5919759205_)))) - (let* ((_hd59227_ _hd5920259222_) - (_rest59229_ _tl5920359224_)) + (lambda _args59112_ + (let _lp59114_ ((_rest59116_ _args59112_)) + (let* ((_rest5911759125_ _rest59116_) + (_else5911959133_ (lambda () (newline))) + (_K5912159139_ + (lambda (_rest59136_ _hd59137_) + (display _hd59137_) + (let () (declare (not safe)) (_lp59114_ _rest59136_))))) + (if (let () (declare (not safe)) (##pair? _rest5911759125_)) + (let ((_hd5912259142_ + (let () (declare (not safe)) (##car _rest5911759125_))) + (_tl5912359144_ + (let () (declare (not safe)) (##cdr _rest5911759125_)))) + (let* ((_hd59147_ _hd5912259142_) + (_rest59149_ _tl5912359144_)) (declare (not safe)) - (_K5920159219_ _rest59229_ _hd59227_))) + (_K5912159139_ _rest59149_ _hd59147_))) (let () (declare (not safe)) (newline))))))) - (define display* (lambda _args59190_ (for-each display _args59190_))) + (define display* (lambda _args59110_ (for-each display _args59110_))) (define file-newer? - (lambda (_file159183_ _file259184_) - (letrec ((_modification-time59186_ - (lambda (_file59188_) - (let ((__tmp64085 + (lambda (_file159103_ _file259104_) + (letrec ((_modification-time59106_ + (lambda (_file59108_) + (let ((__tmp64112 (file-info-last-modification-time - (file-info _file59188_ '#t)))) + (file-info _file59108_ '#t)))) (declare (not safe)) - (##time->seconds __tmp64085))))) - (let ((__tmp64087 + (##time->seconds __tmp64112))))) + (let ((__tmp64114 (let () (declare (not safe)) - (_modification-time59186_ _file159183_))) - (__tmp64086 + (_modification-time59106_ _file159103_))) + (__tmp64113 (let () (declare (not safe)) - (_modification-time59186_ _file259184_)))) + (_modification-time59106_ _file259104_)))) (declare (not safe)) - (##fl> __tmp64087 __tmp64086))))) + (##fl> __tmp64114 __tmp64113))))) (define create-directory*__% - (lambda (_dir59157_ _perms59158_) - (letrec ((_create159160_ - (lambda (_path59171_) - (if (file-exists? _path59171_) - (if (let ((__tmp64088 (file-type _path59171_))) + (lambda (_dir59077_ _perms59078_) + (letrec ((_create159080_ + (lambda (_path59091_) + (if (file-exists? _path59091_) + (if (let ((__tmp64115 (file-type _path59091_))) (declare (not safe)) - (eq? __tmp64088 'directory)) + (eq? __tmp64115 'directory)) '#!void (error '"Path component is not a directory" - _path59171_)) - (if _perms59158_ + _path59091_)) + (if _perms59078_ (create-directory (list 'path: - _path59171_ + _path59091_ 'permissions: - _perms59158_)) - (create-directory _path59171_)))))) - (if (file-exists? _dir59157_) + _perms59078_)) + (create-directory _path59091_)))))) + (if (file-exists? _dir59077_) '#!void - (let _lp59162_ ((_start59164_ '0)) - (let ((_$e59166_ + (let _lp59082_ ((_start59084_ '0)) + (let ((_$e59086_ (let () (declare (not safe)) - (string-index _dir59157_ '#\/ _start59164_)))) - (if _$e59166_ - ((lambda (_x59169_) - (if (let () (declare (not safe)) (##fx> _x59169_ '0)) - (let ((__tmp64089 - (substring _dir59157_ '0 _x59169_))) + (string-index _dir59077_ '#\/ _start59084_)))) + (if _$e59086_ + ((lambda (_x59089_) + (if (let () (declare (not safe)) (##fx> _x59089_ '0)) + (let ((__tmp64116 + (substring _dir59077_ '0 _x59089_))) (declare (not safe)) - (_create159160_ __tmp64089)) + (_create159080_ __tmp64116)) '#!void) - (let ((__tmp64090 + (let ((__tmp64117 (let () (declare (not safe)) - (##fx+ _x59169_ '1)))) + (##fx+ _x59089_ '1)))) (declare (not safe)) - (_lp59162_ __tmp64090))) - _$e59166_) + (_lp59082_ __tmp64117))) + _$e59086_) (let () (declare (not safe)) - (_create159160_ _dir59157_))))))))) + (_create159080_ _dir59077_))))))))) (define create-directory*__0 - (lambda (_dir59176_) - (let ((_perms59178_ '493)) + (lambda (_dir59096_) + (let ((_perms59098_ '493)) (declare (not safe)) - (create-directory*__% _dir59176_ _perms59178_)))) + (create-directory*__% _dir59096_ _perms59098_)))) (define create-directory* - (lambda _g64092_ - (let ((_g64091_ (let () (declare (not safe)) (##length _g64092_)))) - (cond ((let () (declare (not safe)) (##fx= _g64091_ 1)) - (apply (lambda (_dir59176_) + (lambda _g64119_ + (let ((_g64118_ (let () (declare (not safe)) (##length _g64119_)))) + (cond ((let () (declare (not safe)) (##fx= _g64118_ 1)) + (apply (lambda (_dir59096_) (let () (declare (not safe)) - (create-directory*__0 _dir59176_))) - _g64092_)) - ((let () (declare (not safe)) (##fx= _g64091_ 2)) - (apply (lambda (_dir59180_ _perms59181_) + (create-directory*__0 _dir59096_))) + _g64119_)) + ((let () (declare (not safe)) (##fx= _g64118_ 2)) + (apply (lambda (_dir59100_ _perms59101_) (let () (declare (not safe)) - (create-directory*__% _dir59180_ _perms59181_))) - _g64092_)) + (create-directory*__% _dir59100_ _perms59101_))) + _g64119_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g64092_)))))) + _g64119_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _g64093_ '#t)) + (define true (lambda _g64120_ '#t)) (define true? - (lambda (_obj59153_) (let () (declare (not safe)) (eq? _obj59153_ '#t)))) - (define false (lambda _g64094_ '#f)) - (define void (lambda _g64095_ '#!void)) + (lambda (_obj59073_) (let () (declare (not safe)) (eq? _obj59073_ '#t)))) + (define false (lambda _g64121_ '#f)) + (define void (lambda _g64122_ '#!void)) (define void? - (lambda (_obj59149_) - (let () (declare (not safe)) (eq? _obj59149_ '#!void)))) - (define eof-object (lambda _g64096_ '#!eof)) - (define identity (lambda (_obj59146_) _obj59146_)) + (lambda (_obj59069_) + (let () (declare (not safe)) (eq? _obj59069_ '#!void)))) + (define eof-object (lambda _g64123_ '#!eof)) + (define identity (lambda (_obj59066_) _obj59066_)) (define dssl-object? - (lambda (_obj59144_) - (if (memq _obj59144_ '(#!key #!rest #!optional)) '#t '#f))) + (lambda (_obj59064_) + (if (memq _obj59064_ '(#!key #!rest #!optional)) '#t '#f))) (define dssl-key-object? - (lambda (_obj59142_) - (let () (declare (not safe)) (eq? _obj59142_ '#!key)))) + (lambda (_obj59062_) + (let () (declare (not safe)) (eq? _obj59062_ '#!key)))) (define dssl-rest-object? - (lambda (_obj59140_) - (let () (declare (not safe)) (eq? _obj59140_ '#!rest)))) + (lambda (_obj59060_) + (let () (declare (not safe)) (eq? _obj59060_ '#!rest)))) (define dssl-optional-object? - (lambda (_obj59138_) - (let () (declare (not safe)) (eq? _obj59138_ '#!optional)))) + (lambda (_obj59058_) + (let () (declare (not safe)) (eq? _obj59058_ '#!optional)))) (define immediate? - (lambda (_obj59134_) - (let* ((_t59136_ (let () (declare (not safe)) (##type _obj59134_))) - (__tmp64097 - (let () (declare (not safe)) (##fxand _t59136_ '1)))) + (lambda (_obj59054_) + (let* ((_t59056_ (let () (declare (not safe)) (##type _obj59054_))) + (__tmp64124 + (let () (declare (not safe)) (##fxand _t59056_ '1)))) (declare (not safe)) - (##fxzero? __tmp64097)))) + (##fxzero? __tmp64124)))) (define nonnegative-fixnum? - (lambda (_obj59132_) - (if (fixnum? _obj59132_) - (let ((__tmp64098 (fxnegative? _obj59132_))) + (lambda (_obj59052_) + (if (fixnum? _obj59052_) + (let ((__tmp64125 (fxnegative? _obj59052_))) (declare (not safe)) - (not __tmp64098)) + (not __tmp64125)) '#f))) (define values-count - (lambda (_obj59130_) - (if (let () (declare (not safe)) (##values? _obj59130_)) - (let () (declare (not safe)) (##vector-length _obj59130_)) + (lambda (_obj59050_) + (if (let () (declare (not safe)) (##values? _obj59050_)) + (let () (declare (not safe)) (##vector-length _obj59050_)) '1))) (define values-ref - (lambda (_obj59127_ _k59128_) - (if (let () (declare (not safe)) (##values? _obj59127_)) - (let () (declare (not safe)) (##vector-ref _obj59127_ _k59128_)) - _obj59127_))) + (lambda (_obj59047_ _k59048_) + (if (let () (declare (not safe)) (##values? _obj59047_)) + (let () (declare (not safe)) (##vector-ref _obj59047_ _k59048_)) + _obj59047_))) (define values->list - (lambda (_obj59125_) - (if (let () (declare (not safe)) (##values? _obj59125_)) - (let () (declare (not safe)) (##vector->list _obj59125_)) - (list _obj59125_)))) + (lambda (_obj59045_) + (if (let () (declare (not safe)) (##values? _obj59045_)) + (let () (declare (not safe)) (##vector->list _obj59045_)) + (list _obj59045_)))) (define subvector->list__% - (lambda (_obj59110_ _start59111_) - (let ((_lst59113_ - (let () (declare (not safe)) (##vector->list _obj59110_)))) - (list-tail _lst59113_ _start59111_)))) + (lambda (_obj59030_ _start59031_) + (let ((_lst59033_ + (let () (declare (not safe)) (##vector->list _obj59030_)))) + (list-tail _lst59033_ _start59031_)))) (define subvector->list__0 - (lambda (_obj59118_) - (let ((_start59120_ '0)) + (lambda (_obj59038_) + (let ((_start59040_ '0)) (declare (not safe)) - (subvector->list__% _obj59118_ _start59120_)))) + (subvector->list__% _obj59038_ _start59040_)))) (define subvector->list - (lambda _g64100_ - (let ((_g64099_ (let () (declare (not safe)) (##length _g64100_)))) - (cond ((let () (declare (not safe)) (##fx= _g64099_ 1)) - (apply (lambda (_obj59118_) + (lambda _g64127_ + (let ((_g64126_ (let () (declare (not safe)) (##length _g64127_)))) + (cond ((let () (declare (not safe)) (##fx= _g64126_ 1)) + (apply (lambda (_obj59038_) (let () (declare (not safe)) - (subvector->list__0 _obj59118_))) - _g64100_)) - ((let () (declare (not safe)) (##fx= _g64099_ 2)) - (apply (lambda (_obj59122_ _start59123_) + (subvector->list__0 _obj59038_))) + _g64127_)) + ((let () (declare (not safe)) (##fx= _g64126_ 2)) + (apply (lambda (_obj59042_ _start59043_) (let () (declare (not safe)) - (subvector->list__% _obj59122_ _start59123_))) - _g64100_)) + (subvector->list__% _obj59042_ _start59043_))) + _g64127_)) (else (##raise-wrong-number-of-arguments-exception subvector->list - _g64100_)))))) + _g64127_)))))) (define make-hash-table make-table) (define make-hash-table-eq - (lambda _args59107_ (apply make-table 'test: eq? _args59107_))) + (lambda _args59027_ (apply make-table 'test: eq? _args59027_))) (define make-hash-table-eqv - (lambda _args59105_ (apply make-table 'test: eqv? _args59105_))) + (lambda _args59025_ (apply make-table 'test: eqv? _args59025_))) (define list->hash-table list->table) (define list->hash-table-eq - (lambda (_lst59102_ . _args59103_) - (apply list->table _lst59102_ 'test: eq? _args59103_))) + (lambda (_lst59022_ . _args59023_) + (apply list->table _lst59022_ 'test: eq? _args59023_))) (define list->hash-table-eqv - (lambda (_lst59099_ . _args59100_) - (apply list->table _lst59099_ 'test: eqv? _args59100_))) + (lambda (_lst59019_ . _args59020_) + (apply list->table _lst59019_ 'test: eqv? _args59020_))) (define hash? table?) (define hash-table? table?) (define hash-length table-length) (define hash-ref table-ref) (define hash-get - (lambda (_ht59096_ _k59097_) (table-ref _ht59096_ _k59097_ '#f))) + (lambda (_ht59016_ _k59017_) (table-ref _ht59016_ _k59017_ '#f))) (define hash-put! - (lambda (_ht59092_ _k59093_ _v59094_) - (table-set! _ht59092_ _k59093_ _v59094_))) + (lambda (_ht59012_ _k59013_ _v59014_) + (table-set! _ht59012_ _k59013_ _v59014_))) (define hash-update!__% - (lambda (_ht59071_ _k59072_ _update59073_ _default59074_) - (let* ((_value59076_ + (lambda (_ht58991_ _k58992_ _update58993_ _default58994_) + (let* ((_value58996_ (let () (declare (not safe)) - (table-ref _ht59071_ _k59072_ _default59074_))) - (__tmp64101 (_update59073_ _value59076_))) + (table-ref _ht58991_ _k58992_ _default58994_))) + (__tmp64128 (_update58993_ _value58996_))) (declare (not safe)) - (table-set! _ht59071_ _k59072_ __tmp64101)))) + (table-set! _ht58991_ _k58992_ __tmp64128)))) (define hash-update!__0 - (lambda (_ht59081_ _k59082_ _update59083_) - (let ((_default59085_ '#!void)) + (lambda (_ht59001_ _k59002_ _update59003_) + (let ((_default59005_ '#!void)) (declare (not safe)) - (hash-update!__% _ht59081_ _k59082_ _update59083_ _default59085_)))) + (hash-update!__% _ht59001_ _k59002_ _update59003_ _default59005_)))) (define hash-update! - (lambda _g64103_ - (let ((_g64102_ (let () (declare (not safe)) (##length _g64103_)))) - (cond ((let () (declare (not safe)) (##fx= _g64102_ 3)) - (apply (lambda (_ht59081_ _k59082_ _update59083_) + (lambda _g64130_ + (let ((_g64129_ (let () (declare (not safe)) (##length _g64130_)))) + (cond ((let () (declare (not safe)) (##fx= _g64129_ 3)) + (apply (lambda (_ht59001_ _k59002_ _update59003_) (let () (declare (not safe)) (hash-update!__0 - _ht59081_ - _k59082_ - _update59083_))) - _g64103_)) - ((let () (declare (not safe)) (##fx= _g64102_ 4)) - (apply (lambda (_ht59087_ - _k59088_ - _update59089_ - _default59090_) + _ht59001_ + _k59002_ + _update59003_))) + _g64130_)) + ((let () (declare (not safe)) (##fx= _g64129_ 4)) + (apply (lambda (_ht59007_ + _k59008_ + _update59009_ + _default59010_) (let () (declare (not safe)) (hash-update!__% - _ht59087_ - _k59088_ - _update59089_ - _default59090_))) - _g64103_)) + _ht59007_ + _k59008_ + _update59009_ + _default59010_))) + _g64130_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g64103_)))))) + _g64130_)))))) (define hash-remove! - (lambda (_ht59067_ _k59068_) (table-set! _ht59067_ _k59068_))) + (lambda (_ht58987_ _k58988_) (table-set! _ht58987_ _k58988_))) (define hash->list table->list) (define hash->plist - (lambda (_ht59065_) - (let () (declare (not safe)) (hash-fold cons* '() _ht59065_)))) + (lambda (_ht58985_) + (let () (declare (not safe)) (hash-fold cons* '() _ht58985_)))) (define plist->hash-table__% - (lambda (_plst59000_ _ht59001_) - (let _lp59003_ ((_rest59005_ _plst59000_)) - (let* ((_rest5900659017_ _rest59005_) - (_E5900959021_ - (lambda () (error '"No clause matching" _rest5900659017_)))) - (let ((_K5901159036_ - (lambda (_rest59032_ _v59033_ _k59034_) + (lambda (_plst58920_ _ht58921_) + (let _lp58923_ ((_rest58925_ _plst58920_)) + (let* ((_rest5892658937_ _rest58925_) + (_E5892958941_ + (lambda () (error '"No clause matching" _rest5892658937_)))) + (let ((_K5893158956_ + (lambda (_rest58952_ _v58953_ _k58954_) (let () (declare (not safe)) - (table-set! _ht59001_ _k59034_ _v59033_)) - (let () (declare (not safe)) (_lp59003_ _rest59032_)))) - (_K5901059026_ (lambda () _ht59001_))) - (let ((_try-match5900859029_ + (table-set! _ht58921_ _k58954_ _v58953_)) + (let () (declare (not safe)) (_lp58923_ _rest58952_)))) + (_K5893058946_ (lambda () _ht58921_))) + (let ((_try-match5892858949_ (lambda () (if (let () (declare (not safe)) - (##eq? _rest5900659017_ '())) - (let () (declare (not safe)) (_K5901059026_)) - (let () (declare (not safe)) (_E5900959021_)))))) - (if (let () (declare (not safe)) (##pair? _rest5900659017_)) - (let ((_tl5901359041_ + (##eq? _rest5892658937_ '())) + (let () (declare (not safe)) (_K5893058946_)) + (let () (declare (not safe)) (_E5892958941_)))))) + (if (let () (declare (not safe)) (##pair? _rest5892658937_)) + (let ((_tl5893358961_ (let () (declare (not safe)) - (##cdr _rest5900659017_))) - (_hd5901259039_ + (##cdr _rest5892658937_))) + (_hd5893258959_ (let () (declare (not safe)) - (##car _rest5900659017_)))) + (##car _rest5892658937_)))) (if (let () (declare (not safe)) - (##pair? _tl5901359041_)) - (let ((_tl5901559048_ + (##pair? _tl5893358961_)) + (let ((_tl5893558968_ (let () (declare (not safe)) - (##cdr _tl5901359041_))) - (_hd5901459046_ + (##cdr _tl5893358961_))) + (_hd5893458966_ (let () (declare (not safe)) - (##car _tl5901359041_)))) - (let ((_k59044_ _hd5901259039_) - (_v59051_ _hd5901459046_) - (_rest59053_ _tl5901559048_)) + (##car _tl5893358961_)))) + (let ((_k58964_ _hd5893258959_) + (_v58971_ _hd5893458966_) + (_rest58973_ _tl5893558968_)) (let () (declare (not safe)) - (_K5901159036_ - _rest59053_ - _v59051_ - _k59044_)))) + (_K5893158956_ + _rest58973_ + _v58971_ + _k58964_)))) (let () (declare (not safe)) - (_try-match5900859029_)))) + (_try-match5892858949_)))) (let () (declare (not safe)) - (_try-match5900859029_))))))))) + (_try-match5892858949_))))))))) (define plist->hash-table__0 - (lambda (_plst59058_) - (let ((_ht59060_ (let () (declare (not safe)) (make-table)))) + (lambda (_plst58978_) + (let ((_ht58980_ (let () (declare (not safe)) (make-table)))) (declare (not safe)) - (plist->hash-table__% _plst59058_ _ht59060_)))) + (plist->hash-table__% _plst58978_ _ht58980_)))) (define plist->hash-table - (lambda _g64105_ - (let ((_g64104_ (let () (declare (not safe)) (##length _g64105_)))) - (cond ((let () (declare (not safe)) (##fx= _g64104_ 1)) - (apply (lambda (_plst59058_) + (lambda _g64132_ + (let ((_g64131_ (let () (declare (not safe)) (##length _g64132_)))) + (cond ((let () (declare (not safe)) (##fx= _g64131_ 1)) + (apply (lambda (_plst58978_) (let () (declare (not safe)) - (plist->hash-table__0 _plst59058_))) - _g64105_)) - ((let () (declare (not safe)) (##fx= _g64104_ 2)) - (apply (lambda (_plst59062_ _ht59063_) + (plist->hash-table__0 _plst58978_))) + _g64132_)) + ((let () (declare (not safe)) (##fx= _g64131_ 2)) + (apply (lambda (_plst58982_ _ht58983_) (let () (declare (not safe)) - (plist->hash-table__% _plst59062_ _ht59063_))) - _g64105_)) + (plist->hash-table__% _plst58982_ _ht58983_))) + _g64132_)) (else (##raise-wrong-number-of-arguments-exception plist->hash-table - _g64105_)))))) + _g64132_)))))) (define plist->hash-table-eq - (lambda (_plst58997_) - (let ((__tmp64106 + (lambda (_plst58917_) + (let ((__tmp64133 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (plist->hash-table _plst58997_ __tmp64106)))) + (plist->hash-table _plst58917_ __tmp64133)))) (define plist->hash-table-eqv - (lambda (_plst58995_) - (let ((__tmp64107 + (lambda (_plst58915_) + (let ((__tmp64134 (let () (declare (not safe)) (make-table 'test: eqv?)))) (declare (not safe)) - (plist->hash-table _plst58995_ __tmp64107)))) + (plist->hash-table _plst58915_ __tmp64134)))) (define hash-key? - (lambda (_ht58992_ _k58993_) - (let ((__tmp64108 - (let ((__tmp64109 + (lambda (_ht58912_ _k58913_) + (let ((__tmp64135 + (let ((__tmp64136 (let () (declare (not safe)) - (table-ref _ht58992_ _k58993_ absent-value)))) + (table-ref _ht58912_ _k58913_ absent-value)))) (declare (not safe)) - (eq? __tmp64109 absent-value)))) + (eq? __tmp64136 absent-value)))) (declare (not safe)) - (not __tmp64108)))) + (not __tmp64135)))) (define hash-for-each table-for-each) (define hash-map - (lambda (_fun58985_ _ht58986_) - (let ((__tmp64110 - (lambda (_k58988_ _v58989_ _r58990_) - (let ((__tmp64111 (_fun58985_ _k58988_ _v58989_))) + (lambda (_fun58905_ _ht58906_) + (let ((__tmp64137 + (lambda (_k58908_ _v58909_ _r58910_) + (let ((__tmp64138 (_fun58905_ _k58908_ _v58909_))) (declare (not safe)) - (cons __tmp64111 _r58990_))))) + (cons __tmp64138 _r58910_))))) (declare (not safe)) - (hash-fold __tmp64110 '() _ht58986_)))) + (hash-fold __tmp64137 '() _ht58906_)))) (define hash-fold - (lambda (_fun58976_ _iv58977_ _ht58978_) - (let ((_ret58980_ _iv58977_)) - (let ((__tmp64112 - (lambda (_k58982_ _v58983_) - (set! _ret58980_ - (_fun58976_ _k58982_ _v58983_ _ret58980_))))) + (lambda (_fun58896_ _iv58897_ _ht58898_) + (let ((_ret58900_ _iv58897_)) + (let ((__tmp64139 + (lambda (_k58902_ _v58903_) + (set! _ret58900_ + (_fun58896_ _k58902_ _v58903_ _ret58900_))))) (declare (not safe)) - (table-for-each __tmp64112 _ht58978_)) - _ret58980_))) + (table-for-each __tmp64139 _ht58898_)) + _ret58900_))) (define hash-find table-search) (define hash-keys - (lambda (_ht58971_) - (let ((__tmp64113 (lambda (_k58973_ _v58974_) _k58973_))) + (lambda (_ht58891_) + (let ((__tmp64140 (lambda (_k58893_ _v58894_) _k58893_))) (declare (not safe)) - (hash-map __tmp64113 _ht58971_)))) + (hash-map __tmp64140 _ht58891_)))) (define hash-values - (lambda (_ht58966_) - (let ((__tmp64114 (lambda (_k58968_ _v58969_) _v58969_))) + (lambda (_ht58886_) + (let ((__tmp64141 (lambda (_k58888_ _v58889_) _v58889_))) (declare (not safe)) - (hash-map __tmp64114 _ht58966_)))) + (hash-map __tmp64141 _ht58886_)))) (define hash-copy - (lambda (_hd58961_ . _rest58962_) - (let ((_hd58964_ (table-copy _hd58961_))) - (if (let () (declare (not safe)) (null? _rest58962_)) - _hd58964_ - (apply hash-copy! _hd58964_ _rest58962_))))) + (lambda (_hd58881_ . _rest58882_) + (let ((_hd58884_ (table-copy _hd58881_))) + (if (let () (declare (not safe)) (null? _rest58882_)) + _hd58884_ + (apply hash-copy! _hd58884_ _rest58882_))))) (define hash-copy! - (lambda (_hd58956_ . _rest58957_) + (lambda (_hd58876_ . _rest58877_) (for-each - (lambda (_r58959_) (table-merge! _hd58956_ _r58959_)) - _rest58957_) - _hd58956_)) + (lambda (_r58879_) (table-merge! _hd58876_ _r58879_)) + _rest58877_) + _hd58876_)) (define hash-merge - (lambda (_hd58950_ . _rest58951_) - (let ((__tmp64115 - (lambda (_tab58953_ _r58954_) - (table-merge _r58954_ _tab58953_)))) + (lambda (_hd58870_ . _rest58871_) + (let ((__tmp64142 + (lambda (_tab58873_ _r58874_) + (table-merge _r58874_ _tab58873_)))) (declare (not safe)) - (foldl1 __tmp64115 _hd58950_ _rest58951_)))) + (foldl1 __tmp64142 _hd58870_ _rest58871_)))) (define hash-merge! - (lambda (_hd58944_ . _rest58945_) - (let ((__tmp64116 - (lambda (_tab58947_ _r58948_) - (table-merge! _r58948_ _tab58947_)))) + (lambda (_hd58864_ . _rest58865_) + (let ((__tmp64143 + (lambda (_tab58867_ _r58868_) + (table-merge! _r58868_ _tab58867_)))) (declare (not safe)) - (foldl1 __tmp64116 _hd58944_ _rest58945_)))) + (foldl1 __tmp64143 _hd58864_ _rest58865_)))) (define hash-clear!__% - (lambda (_ht58929_ _size58930_) - (let ((_gcht58932_ - (let () (declare (not safe)) (##vector-ref _ht58929_ '5)))) - (if (let ((__tmp64117 (fixnum? _gcht58932_))) + (lambda (_ht58849_ _size58850_) + (let ((_gcht58852_ + (let () (declare (not safe)) (##vector-ref _ht58849_ '5)))) + (if (let ((__tmp64144 (fixnum? _gcht58852_))) (declare (not safe)) - (not __tmp64117)) + (not __tmp64144)) (let () (declare (not safe)) - (##vector-set! _ht58929_ '5 _size58930_)) + (##vector-set! _ht58849_ '5 _size58850_)) '#!void)))) (define hash-clear!__0 - (lambda (_ht58937_) - (let ((_size58939_ '0)) + (lambda (_ht58857_) + (let ((_size58859_ '0)) (declare (not safe)) - (hash-clear!__% _ht58937_ _size58939_)))) + (hash-clear!__% _ht58857_ _size58859_)))) (define hash-clear! - (lambda _g64119_ - (let ((_g64118_ (let () (declare (not safe)) (##length _g64119_)))) - (cond ((let () (declare (not safe)) (##fx= _g64118_ 1)) - (apply (lambda (_ht58937_) + (lambda _g64146_ + (let ((_g64145_ (let () (declare (not safe)) (##length _g64146_)))) + (cond ((let () (declare (not safe)) (##fx= _g64145_ 1)) + (apply (lambda (_ht58857_) (let () (declare (not safe)) - (hash-clear!__0 _ht58937_))) - _g64119_)) - ((let () (declare (not safe)) (##fx= _g64118_ 2)) - (apply (lambda (_ht58941_ _size58942_) + (hash-clear!__0 _ht58857_))) + _g64146_)) + ((let () (declare (not safe)) (##fx= _g64145_ 2)) + (apply (lambda (_ht58861_ _size58862_) (let () (declare (not safe)) - (hash-clear!__% _ht58941_ _size58942_))) - _g64119_)) + (hash-clear!__% _ht58861_ _size58862_))) + _g64146_)) (else (##raise-wrong-number-of-arguments-exception hash-clear! - _g64119_)))))) + _g64146_)))))) (define make-list__% - (lambda (_k58910_ _val58911_) - (if (fixnum? _k58910_) + (lambda (_k58830_ _val58831_) + (if (fixnum? _k58830_) '#!void - (error '"expected argument 1 to be fixnum" _k58910_)) - (let _lp58913_ ((_n58915_ '0) (_r58916_ '())) - (if (let () (declare (not safe)) (##fx< _n58915_ _k58910_)) - (let ((__tmp64121 - (let () (declare (not safe)) (##fx+ _n58915_ '1))) - (__tmp64120 - (let () (declare (not safe)) (cons _val58911_ _r58916_)))) + (error '"expected argument 1 to be fixnum" _k58830_)) + (let _lp58833_ ((_n58835_ '0) (_r58836_ '())) + (if (let () (declare (not safe)) (##fx< _n58835_ _k58830_)) + (let ((__tmp64148 + (let () (declare (not safe)) (##fx+ _n58835_ '1))) + (__tmp64147 + (let () (declare (not safe)) (cons _val58831_ _r58836_)))) (declare (not safe)) - (_lp58913_ __tmp64121 __tmp64120)) - _r58916_)))) + (_lp58833_ __tmp64148 __tmp64147)) + _r58836_)))) (define make-list__0 - (lambda (_k58921_) - (let ((_val58923_ '#f)) + (lambda (_k58841_) + (let ((_val58843_ '#f)) (declare (not safe)) - (make-list__% _k58921_ _val58923_)))) + (make-list__% _k58841_ _val58843_)))) (define make-list - (lambda _g64123_ - (let ((_g64122_ (let () (declare (not safe)) (##length _g64123_)))) - (cond ((let () (declare (not safe)) (##fx= _g64122_ 1)) - (apply (lambda (_k58921_) + (lambda _g64150_ + (let ((_g64149_ (let () (declare (not safe)) (##length _g64150_)))) + (cond ((let () (declare (not safe)) (##fx= _g64149_ 1)) + (apply (lambda (_k58841_) (let () (declare (not safe)) - (make-list__0 _k58921_))) - _g64123_)) - ((let () (declare (not safe)) (##fx= _g64122_ 2)) - (apply (lambda (_k58925_ _val58926_) + (make-list__0 _k58841_))) + _g64150_)) + ((let () (declare (not safe)) (##fx= _g64149_ 2)) + (apply (lambda (_k58845_ _val58846_) (let () (declare (not safe)) - (make-list__% _k58925_ _val58926_))) - _g64123_)) + (make-list__% _k58845_ _val58846_))) + _g64150_)) (else (##raise-wrong-number-of-arguments-exception make-list - _g64123_)))))) + _g64150_)))))) (define cons* - (lambda (_x58900_ _y58901_ . _rest58902_) - (letrec ((_recur58904_ - (lambda (_x58906_ _rest58907_) - (if (let () (declare (not safe)) (pair? _rest58907_)) - (let ((__tmp64124 - (let ((__tmp64126 + (lambda (_x58820_ _y58821_ . _rest58822_) + (letrec ((_recur58824_ + (lambda (_x58826_ _rest58827_) + (if (let () (declare (not safe)) (pair? _rest58827_)) + (let ((__tmp64151 + (let ((__tmp64153 (let () (declare (not safe)) - (##car _rest58907_))) - (__tmp64125 + (##car _rest58827_))) + (__tmp64152 (let () (declare (not safe)) - (##cdr _rest58907_)))) + (##cdr _rest58827_)))) (declare (not safe)) - (_recur58904_ __tmp64126 __tmp64125)))) + (_recur58824_ __tmp64153 __tmp64152)))) (declare (not safe)) - (cons _x58906_ __tmp64124)) - _x58906_)))) - (let ((__tmp64127 + (cons _x58826_ __tmp64151)) + _x58826_)))) + (let ((__tmp64154 (let () (declare (not safe)) - (_recur58904_ _y58901_ _rest58902_)))) + (_recur58824_ _y58821_ _rest58822_)))) (declare (not safe)) - (cons _x58900_ __tmp64127))))) + (cons _x58820_ __tmp64154))))) (define foldl1 - (lambda (_f58858_ _iv58859_ _lst58860_) - (let _lp58862_ ((_rest58864_ _lst58860_) (_r58865_ _iv58859_)) - (let* ((_rest5886658874_ _rest58864_) - (_else5886858882_ (lambda () _r58865_)) - (_K5887058888_ - (lambda (_rest58885_ _x58886_) - (let ((__tmp64128 (_f58858_ _x58886_ _r58865_))) + (lambda (_f58778_ _iv58779_ _lst58780_) + (let _lp58782_ ((_rest58784_ _lst58780_) (_r58785_ _iv58779_)) + (let* ((_rest5878658794_ _rest58784_) + (_else5878858802_ (lambda () _r58785_)) + (_K5879058808_ + (lambda (_rest58805_ _x58806_) + (let ((__tmp64155 (_f58778_ _x58806_ _r58785_))) (declare (not safe)) - (_lp58862_ _rest58885_ __tmp64128))))) - (if (let () (declare (not safe)) (##pair? _rest5886658874_)) - (let ((_hd5887158891_ - (let () (declare (not safe)) (##car _rest5886658874_))) - (_tl5887258893_ - (let () (declare (not safe)) (##cdr _rest5886658874_)))) - (let* ((_x58896_ _hd5887158891_) - (_rest58898_ _tl5887258893_)) + (_lp58782_ _rest58805_ __tmp64155))))) + (if (let () (declare (not safe)) (##pair? _rest5878658794_)) + (let ((_hd5879158811_ + (let () (declare (not safe)) (##car _rest5878658794_))) + (_tl5879258813_ + (let () (declare (not safe)) (##cdr _rest5878658794_)))) + (let* ((_x58816_ _hd5879158811_) + (_rest58818_ _tl5879258813_)) (declare (not safe)) - (_K5887058888_ _rest58898_ _x58896_))) - (let () (declare (not safe)) (_else5886858882_))))))) + (_K5879058808_ _rest58818_ _x58816_))) + (let () (declare (not safe)) (_else5878858802_))))))) (define foldl2 - (lambda (_f58781_ _iv58782_ _lst158783_ _lst258784_) - (let _lp58786_ ((_rest158788_ _lst158783_) - (_rest258789_ _lst258784_) - (_r58790_ _iv58782_)) - (let* ((_rest15879158799_ _rest158788_) - (_else5879358807_ (lambda () _r58790_)) - (_K5879558846_ - (lambda (_rest158810_ _x158811_) - (let* ((_rest25881258820_ _rest258789_) - (_else5881458828_ (lambda () _r58790_)) - (_K5881658834_ - (lambda (_rest258831_ _x258832_) - (let ((__tmp64129 - (_f58781_ _x158811_ _x258832_ _r58790_))) + (lambda (_f58701_ _iv58702_ _lst158703_ _lst258704_) + (let _lp58706_ ((_rest158708_ _lst158703_) + (_rest258709_ _lst258704_) + (_r58710_ _iv58702_)) + (let* ((_rest15871158719_ _rest158708_) + (_else5871358727_ (lambda () _r58710_)) + (_K5871558766_ + (lambda (_rest158730_ _x158731_) + (let* ((_rest25873258740_ _rest258709_) + (_else5873458748_ (lambda () _r58710_)) + (_K5873658754_ + (lambda (_rest258751_ _x258752_) + (let ((__tmp64156 + (_f58701_ _x158731_ _x258752_ _r58710_))) (declare (not safe)) - (_lp58786_ - _rest158810_ - _rest258831_ - __tmp64129))))) + (_lp58706_ + _rest158730_ + _rest258751_ + __tmp64156))))) (if (let () (declare (not safe)) - (##pair? _rest25881258820_)) - (let ((_hd5881758837_ + (##pair? _rest25873258740_)) + (let ((_hd5873758757_ (let () (declare (not safe)) - (##car _rest25881258820_))) - (_tl5881858839_ + (##car _rest25873258740_))) + (_tl5873858759_ (let () (declare (not safe)) - (##cdr _rest25881258820_)))) - (let* ((_x258842_ _hd5881758837_) - (_rest258844_ _tl5881858839_)) + (##cdr _rest25873258740_)))) + (let* ((_x258762_ _hd5873758757_) + (_rest258764_ _tl5873858759_)) (declare (not safe)) - (_K5881658834_ _rest258844_ _x258842_))) - (let () (declare (not safe)) (_else5881458828_))))))) - (if (let () (declare (not safe)) (##pair? _rest15879158799_)) - (let ((_hd5879658849_ - (let () (declare (not safe)) (##car _rest15879158799_))) - (_tl5879758851_ + (_K5873658754_ _rest258764_ _x258762_))) + (let () (declare (not safe)) (_else5873458748_))))))) + (if (let () (declare (not safe)) (##pair? _rest15871158719_)) + (let ((_hd5871658769_ + (let () (declare (not safe)) (##car _rest15871158719_))) + (_tl5871758771_ (let () (declare (not safe)) - (##cdr _rest15879158799_)))) - (let* ((_x158854_ _hd5879658849_) - (_rest158856_ _tl5879758851_)) + (##cdr _rest15871158719_)))) + (let* ((_x158774_ _hd5871658769_) + (_rest158776_ _tl5871758771_)) (declare (not safe)) - (_K5879558846_ _rest158856_ _x158854_))) - (let () (declare (not safe)) (_else5879358807_))))))) + (_K5871558766_ _rest158776_ _x158774_))) + (let () (declare (not safe)) (_else5871358727_))))))) (define foldl - (lambda _g64131_ - (let ((_g64130_ (let () (declare (not safe)) (##length _g64131_)))) - (cond ((let () (declare (not safe)) (##fx= _g64130_ 3)) - (apply (lambda (_f58766_ _iv58767_ _lst58768_) + (lambda _g64158_ + (let ((_g64157_ (let () (declare (not safe)) (##length _g64158_)))) + (cond ((let () (declare (not safe)) (##fx= _g64157_ 3)) + (apply (lambda (_f58686_ _iv58687_ _lst58688_) (let () (declare (not safe)) - (foldl1 _f58766_ _iv58767_ _lst58768_))) - _g64131_)) - ((let () (declare (not safe)) (##fx= _g64130_ 4)) - (apply (lambda (_f58770_ _iv58771_ _lst158772_ _lst258773_) + (foldl1 _f58686_ _iv58687_ _lst58688_))) + _g64158_)) + ((let () (declare (not safe)) (##fx= _g64157_ 4)) + (apply (lambda (_f58690_ _iv58691_ _lst158692_ _lst258693_) (let () (declare (not safe)) - (foldl2 _f58770_ - _iv58771_ - _lst158772_ - _lst258773_))) - _g64131_)) - ((let () (declare (not safe)) (##fx>= _g64130_ 4)) - (apply foldl* _g64131_)) + (foldl2 _f58690_ + _iv58691_ + _lst158692_ + _lst258693_))) + _g64158_)) + ((let () (declare (not safe)) (##fx>= _g64157_ 4)) + (apply foldl* _g64158_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g64131_)))))) + _g64158_)))))) (define foldl* - (lambda (_f58754_ _iv58755_ . _rest58756_) - (let _recur58758_ ((_iv58760_ _iv58755_) (_rest58761_ _rest58756_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58761_)) - (let ((__tmp64133 - (apply _f58754_ - (let ((__tmp64135 - (lambda (_xs58763_ _r58764_) - (let ((__tmp64136 (car _xs58763_))) + (lambda (_f58674_ _iv58675_ . _rest58676_) + (let _recur58678_ ((_iv58680_ _iv58675_) (_rest58681_ _rest58676_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest58681_)) + (let ((__tmp64160 + (apply _f58674_ + (let ((__tmp64162 + (lambda (_xs58683_ _r58684_) + (let ((__tmp64163 (car _xs58683_))) (declare (not safe)) - (cons __tmp64136 _r58764_)))) - (__tmp64134 (list _iv58760_))) + (cons __tmp64163 _r58684_)))) + (__tmp64161 (list _iv58680_))) (declare (not safe)) - (foldr1 __tmp64135 __tmp64134 _rest58761_)))) - (__tmp64132 (map cdr _rest58761_))) + (foldr1 __tmp64162 __tmp64161 _rest58681_)))) + (__tmp64159 (map cdr _rest58681_))) (declare (not safe)) - (_recur58758_ __tmp64133 __tmp64132)) - _iv58760_)))) + (_recur58678_ __tmp64160 __tmp64159)) + _iv58680_)))) (define foldr1 - (lambda (_f58713_ _iv58714_ _lst58715_) - (let _recur58717_ ((_rest58719_ _lst58715_)) - (let* ((_rest5872058728_ _rest58719_) - (_else5872258736_ (lambda () _iv58714_)) - (_K5872458742_ - (lambda (_rest58739_ _x58740_) - (_f58713_ - _x58740_ + (lambda (_f58633_ _iv58634_ _lst58635_) + (let _recur58637_ ((_rest58639_ _lst58635_)) + (let* ((_rest5864058648_ _rest58639_) + (_else5864258656_ (lambda () _iv58634_)) + (_K5864458662_ + (lambda (_rest58659_ _x58660_) + (_f58633_ + _x58660_ (let () (declare (not safe)) - (_recur58717_ _rest58739_)))))) - (if (let () (declare (not safe)) (##pair? _rest5872058728_)) - (let ((_hd5872558745_ - (let () (declare (not safe)) (##car _rest5872058728_))) - (_tl5872658747_ - (let () (declare (not safe)) (##cdr _rest5872058728_)))) - (let* ((_x58750_ _hd5872558745_) - (_rest58752_ _tl5872658747_)) + (_recur58637_ _rest58659_)))))) + (if (let () (declare (not safe)) (##pair? _rest5864058648_)) + (let ((_hd5864558665_ + (let () (declare (not safe)) (##car _rest5864058648_))) + (_tl5864658667_ + (let () (declare (not safe)) (##cdr _rest5864058648_)))) + (let* ((_x58670_ _hd5864558665_) + (_rest58672_ _tl5864658667_)) (declare (not safe)) - (_K5872458742_ _rest58752_ _x58750_))) - (let () (declare (not safe)) (_else5872258736_))))))) + (_K5864458662_ _rest58672_ _x58670_))) + (let () (declare (not safe)) (_else5864258656_))))))) (define foldr2 - (lambda (_f58637_ _iv58638_ _lst158639_ _lst258640_) - (let _recur58642_ ((_rest158644_ _lst158639_) - (_rest258645_ _lst258640_)) - (let* ((_rest15864658654_ _rest158644_) - (_else5864858662_ (lambda () _iv58638_)) - (_K5865058701_ - (lambda (_rest158665_ _x158666_) - (let* ((_rest25866758675_ _rest258645_) - (_else5866958683_ (lambda () _iv58638_)) - (_K5867158689_ - (lambda (_rest258686_ _x258687_) - (_f58637_ - _x158666_ - _x258687_ + (lambda (_f58557_ _iv58558_ _lst158559_ _lst258560_) + (let _recur58562_ ((_rest158564_ _lst158559_) + (_rest258565_ _lst258560_)) + (let* ((_rest15856658574_ _rest158564_) + (_else5856858582_ (lambda () _iv58558_)) + (_K5857058621_ + (lambda (_rest158585_ _x158586_) + (let* ((_rest25858758595_ _rest258565_) + (_else5858958603_ (lambda () _iv58558_)) + (_K5859158609_ + (lambda (_rest258606_ _x258607_) + (_f58557_ + _x158586_ + _x258607_ (let () (declare (not safe)) - (_recur58642_ _rest158665_ _rest258686_)))))) + (_recur58562_ _rest158585_ _rest258606_)))))) (if (let () (declare (not safe)) - (##pair? _rest25866758675_)) - (let ((_hd5867258692_ + (##pair? _rest25858758595_)) + (let ((_hd5859258612_ (let () (declare (not safe)) - (##car _rest25866758675_))) - (_tl5867358694_ + (##car _rest25858758595_))) + (_tl5859358614_ (let () (declare (not safe)) - (##cdr _rest25866758675_)))) - (let* ((_x258697_ _hd5867258692_) - (_rest258699_ _tl5867358694_)) + (##cdr _rest25858758595_)))) + (let* ((_x258617_ _hd5859258612_) + (_rest258619_ _tl5859358614_)) (declare (not safe)) - (_K5867158689_ _rest258699_ _x258697_))) - (let () (declare (not safe)) (_else5866958683_))))))) - (if (let () (declare (not safe)) (##pair? _rest15864658654_)) - (let ((_hd5865158704_ - (let () (declare (not safe)) (##car _rest15864658654_))) - (_tl5865258706_ + (_K5859158609_ _rest258619_ _x258617_))) + (let () (declare (not safe)) (_else5858958603_))))))) + (if (let () (declare (not safe)) (##pair? _rest15856658574_)) + (let ((_hd5857158624_ + (let () (declare (not safe)) (##car _rest15856658574_))) + (_tl5857258626_ (let () (declare (not safe)) - (##cdr _rest15864658654_)))) - (let* ((_x158709_ _hd5865158704_) - (_rest158711_ _tl5865258706_)) + (##cdr _rest15856658574_)))) + (let* ((_x158629_ _hd5857158624_) + (_rest158631_ _tl5857258626_)) (declare (not safe)) - (_K5865058701_ _rest158711_ _x158709_))) - (let () (declare (not safe)) (_else5864858662_))))))) + (_K5857058621_ _rest158631_ _x158629_))) + (let () (declare (not safe)) (_else5856858582_))))))) (define foldr - (lambda _g64138_ - (let ((_g64137_ (let () (declare (not safe)) (##length _g64138_)))) - (cond ((let () (declare (not safe)) (##fx= _g64137_ 3)) - (apply (lambda (_f58622_ _iv58623_ _lst58624_) + (lambda _g64165_ + (let ((_g64164_ (let () (declare (not safe)) (##length _g64165_)))) + (cond ((let () (declare (not safe)) (##fx= _g64164_ 3)) + (apply (lambda (_f58542_ _iv58543_ _lst58544_) (let () (declare (not safe)) - (foldr1 _f58622_ _iv58623_ _lst58624_))) - _g64138_)) - ((let () (declare (not safe)) (##fx= _g64137_ 4)) - (apply (lambda (_f58626_ _iv58627_ _lst158628_ _lst258629_) + (foldr1 _f58542_ _iv58543_ _lst58544_))) + _g64165_)) + ((let () (declare (not safe)) (##fx= _g64164_ 4)) + (apply (lambda (_f58546_ _iv58547_ _lst158548_ _lst258549_) (let () (declare (not safe)) - (foldr2 _f58626_ - _iv58627_ - _lst158628_ - _lst258629_))) - _g64138_)) - ((let () (declare (not safe)) (##fx>= _g64137_ 4)) - (apply foldr* _g64138_)) + (foldr2 _f58546_ + _iv58547_ + _lst158548_ + _lst258549_))) + _g64165_)) + ((let () (declare (not safe)) (##fx>= _g64164_ 4)) + (apply foldr* _g64165_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g64138_)))))) + _g64165_)))))) (define foldr* - (lambda (_f58611_ _iv58612_ . _rest58613_) - (let _recur58615_ ((_rest58617_ _rest58613_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58617_)) - (apply _f58611_ - (let ((__tmp64141 - (lambda (_xs58619_ _r58620_) - (let ((__tmp64142 (car _xs58619_))) + (lambda (_f58531_ _iv58532_ . _rest58533_) + (let _recur58535_ ((_rest58537_ _rest58533_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest58537_)) + (apply _f58531_ + (let ((__tmp64168 + (lambda (_xs58539_ _r58540_) + (let ((__tmp64169 (car _xs58539_))) (declare (not safe)) - (cons __tmp64142 _r58620_)))) - (__tmp64139 - (list (let ((__tmp64140 (map cdr _rest58617_))) + (cons __tmp64169 _r58540_)))) + (__tmp64166 + (list (let ((__tmp64167 (map cdr _rest58537_))) (declare (not safe)) - (_recur58615_ __tmp64140))))) + (_recur58535_ __tmp64167))))) (declare (not safe)) - (foldr1 __tmp64141 __tmp64139 _rest58617_))) - _iv58612_)))) + (foldr1 __tmp64168 __tmp64166 _rest58537_))) + _iv58532_)))) (define remove-nulls! - (lambda (_l58498_) - (let* ((_l5849958512_ _l58498_) - (_E5850358516_ - (lambda () (error '"No clause matching" _l5849958512_)))) - (let ((_K5850858601_ - (lambda (_r58599_) - (let () (declare (not safe)) (remove-nulls! _r58599_)))) - (_K5850558588_ - (lambda (_r58528_) - (let _loop58530_ ((_l58532_ _l58498_) (_r58533_ _r58528_)) - (let* ((_r5853458547_ _r58533_) - (_E5853858551_ + (lambda (_l58418_) + (let* ((_l5841958432_ _l58418_) + (_E5842358436_ + (lambda () (error '"No clause matching" _l5841958432_)))) + (let ((_K5842858521_ + (lambda (_r58519_) + (let () (declare (not safe)) (remove-nulls! _r58519_)))) + (_K5842558508_ + (lambda (_r58448_) + (let _loop58450_ ((_l58452_ _l58418_) (_r58453_ _r58448_)) + (let* ((_r5845458467_ _r58453_) + (_E5845858471_ (lambda () - (error '"No clause matching" _r5853458547_)))) - (let ((_K5854358578_ - (lambda (_rr58576_) + (error '"No clause matching" _r5845458467_)))) + (let ((_K5846358498_ + (lambda (_rr58496_) (set-cdr! - _l58532_ + _l58452_ (let () (declare (not safe)) - (remove-nulls! _rr58576_))))) - (_K5854058565_ - (lambda (_rr58563_) + (remove-nulls! _rr58496_))))) + (_K5846058485_ + (lambda (_rr58483_) (let () (declare (not safe)) - (_loop58530_ _r58533_ _rr58563_)))) - (_K5853958556_ (lambda () '#!void))) + (_loop58450_ _r58453_ _rr58483_)))) + (_K5845958476_ (lambda () '#!void))) (if (let () (declare (not safe)) - (##pair? _r5853458547_)) - (let ((_tl5854558583_ + (##pair? _r5845458467_)) + (let ((_tl5846558503_ (let () (declare (not safe)) - (##cdr _r5853458547_))) - (_hd5854458581_ + (##cdr _r5845458467_))) + (_hd5846458501_ (let () (declare (not safe)) - (##car _r5853458547_)))) + (##car _r5845458467_)))) (if (let () (declare (not safe)) - (##null? _hd5854458581_)) - (let ((_rr58586_ _tl5854558583_)) + (##null? _hd5846458501_)) + (let ((_rr58506_ _tl5846558503_)) (declare (not safe)) - (_K5854358578_ _rr58586_)) - (let ((_rr58571_ _tl5854558583_)) + (_K5846358498_ _rr58506_)) + (let ((_rr58491_ _tl5846558503_)) (declare (not safe)) - (_K5854058565_ _rr58571_)))) + (_K5846058485_ _rr58491_)))) '#!void)))) - _l58498_)) - (_K5850458521_ (lambda () _l58498_))) - (if (let () (declare (not safe)) (##pair? _l5849958512_)) - (let ((_tl5851058606_ - (let () (declare (not safe)) (##cdr _l5849958512_))) - (_hd5850958604_ - (let () (declare (not safe)) (##car _l5849958512_)))) - (if (let () (declare (not safe)) (##null? _hd5850958604_)) - (let ((_r58609_ _tl5851058606_)) + _l58418_)) + (_K5842458441_ (lambda () _l58418_))) + (if (let () (declare (not safe)) (##pair? _l5841958432_)) + (let ((_tl5843058526_ + (let () (declare (not safe)) (##cdr _l5841958432_))) + (_hd5842958524_ + (let () (declare (not safe)) (##car _l5841958432_)))) + (if (let () (declare (not safe)) (##null? _hd5842958524_)) + (let ((_r58529_ _tl5843058526_)) (declare (not safe)) - (remove-nulls! _r58609_)) - (let ((_r58594_ _tl5851058606_)) + (remove-nulls! _r58529_)) + (let ((_r58514_ _tl5843058526_)) (declare (not safe)) - (_K5850558588_ _r58594_)))) - (let () (declare (not safe)) (_K5850458521_))))))) + (_K5842558508_ _r58514_)))) + (let () (declare (not safe)) (_K5842458441_))))))) (define append1! - (lambda (_l58493_ _x58494_) - (let ((_l258496_ (let () (declare (not safe)) (cons _x58494_ '())))) - (if (let () (declare (not safe)) (pair? _l58493_)) + (lambda (_l58413_ _x58414_) + (let ((_l258416_ (let () (declare (not safe)) (cons _x58414_ '())))) + (if (let () (declare (not safe)) (pair? _l58413_)) (set-cdr! - (let () (declare (not safe)) (##last-pair _l58493_)) - _l258496_) - _l258496_)))) + (let () (declare (not safe)) (##last-pair _l58413_)) + _l258416_) + _l258416_)))) (define append-reverse - (lambda (_rev-head58490_ _tail58491_) + (lambda (_rev-head58410_ _tail58411_) (let () (declare (not safe)) - (foldl1 cons _tail58491_ _rev-head58490_)))) + (foldl1 cons _tail58411_ _rev-head58410_)))) + (define append-reverse-until + (lambda (_pred58363_ _rhead58364_ _tail58365_) + (let _loop58367_ ((_rhead58369_ _rhead58364_) + (_tail58370_ _tail58365_)) + (let* ((_rhead5837158380_ _rhead58369_) + (_E5837458384_ + (lambda () (error '"No clause matching" _rhead5837158380_)))) + (let ((_K5837858407_ (lambda () (values '() _tail58370_))) + (_K5837558391_ + (lambda (_r58388_ _a58389_) + (if (_pred58363_ _a58389_) + (values _rhead58369_ _tail58370_) + (let ((__tmp64170 + (let () + (declare (not safe)) + (cons _a58389_ _tail58370_)))) + (declare (not safe)) + (_loop58367_ _r58388_ __tmp64170)))))) + (let ((_try-match5837358403_ + (lambda () + (if (let () + (declare (not safe)) + (##pair? _rhead5837158380_)) + (let ((_tl5837758396_ + (let () + (declare (not safe)) + (##cdr _rhead5837158380_))) + (_hd5837658394_ + (let () + (declare (not safe)) + (##car _rhead5837158380_)))) + (let ((_a58399_ _hd5837658394_) + (_r58401_ _tl5837758396_)) + (let () + (declare (not safe)) + (_K5837558391_ _r58401_ _a58399_)))) + (let () (declare (not safe)) (_E5837458384_)))))) + (if (let () (declare (not safe)) (##null? _rhead5837158380_)) + (let () (declare (not safe)) (_K5837858407_)) + (let () + (declare (not safe)) + (_try-match5837358403_))))))))) (define andmap1 - (lambda (_f58450_ _lst58451_) - (let _lp58453_ ((_rest58455_ _lst58451_)) - (let* ((_rest5845658464_ _rest58455_) - (_else5845858472_ (lambda () '#t)) - (_K5846058478_ - (lambda (_rest58475_ _x58476_) - (if (_f58450_ _x58476_) - (let () (declare (not safe)) (_lp58453_ _rest58475_)) + (lambda (_f58323_ _lst58324_) + (let _lp58326_ ((_rest58328_ _lst58324_)) + (let* ((_rest5832958337_ _rest58328_) + (_else5833158345_ (lambda () '#t)) + (_K5833358351_ + (lambda (_rest58348_ _x58349_) + (if (_f58323_ _x58349_) + (let () (declare (not safe)) (_lp58326_ _rest58348_)) '#f)))) - (if (let () (declare (not safe)) (##pair? _rest5845658464_)) - (let ((_hd5846158481_ - (let () (declare (not safe)) (##car _rest5845658464_))) - (_tl5846258483_ - (let () (declare (not safe)) (##cdr _rest5845658464_)))) - (let* ((_x58486_ _hd5846158481_) - (_rest58488_ _tl5846258483_)) + (if (let () (declare (not safe)) (##pair? _rest5832958337_)) + (let ((_hd5833458354_ + (let () (declare (not safe)) (##car _rest5832958337_))) + (_tl5833558356_ + (let () (declare (not safe)) (##cdr _rest5832958337_)))) + (let* ((_x58359_ _hd5833458354_) + (_rest58361_ _tl5833558356_)) (declare (not safe)) - (_K5846058478_ _rest58488_ _x58486_))) - (let () (declare (not safe)) (_else5845858472_))))))) + (_K5833358351_ _rest58361_ _x58359_))) + (let () (declare (not safe)) (_else5833158345_))))))) (define andmap2 - (lambda (_f58375_ _lst158376_ _lst258377_) - (let _lp58379_ ((_rest158381_ _lst158376_) (_rest258382_ _lst258377_)) - (let* ((_rest15838358391_ _rest158381_) - (_else5838558399_ (lambda () '#t)) - (_K5838758438_ - (lambda (_rest158402_ _x158403_) - (let* ((_rest25840458412_ _rest258382_) - (_else5840658420_ (lambda () '#t)) - (_K5840858426_ - (lambda (_rest258423_ _x258424_) - (if (_f58375_ _x158403_ _x258424_) + (lambda (_f58248_ _lst158249_ _lst258250_) + (let _lp58252_ ((_rest158254_ _lst158249_) (_rest258255_ _lst258250_)) + (let* ((_rest15825658264_ _rest158254_) + (_else5825858272_ (lambda () '#t)) + (_K5826058311_ + (lambda (_rest158275_ _x158276_) + (let* ((_rest25827758285_ _rest258255_) + (_else5827958293_ (lambda () '#t)) + (_K5828158299_ + (lambda (_rest258296_ _x258297_) + (if (_f58248_ _x158276_ _x258297_) (let () (declare (not safe)) - (_lp58379_ _rest158402_ _rest258423_)) + (_lp58252_ _rest158275_ _rest258296_)) '#f)))) (if (let () (declare (not safe)) - (##pair? _rest25840458412_)) - (let ((_hd5840958429_ + (##pair? _rest25827758285_)) + (let ((_hd5828258302_ (let () (declare (not safe)) - (##car _rest25840458412_))) - (_tl5841058431_ + (##car _rest25827758285_))) + (_tl5828358304_ (let () (declare (not safe)) - (##cdr _rest25840458412_)))) - (let* ((_x258434_ _hd5840958429_) - (_rest258436_ _tl5841058431_)) + (##cdr _rest25827758285_)))) + (let* ((_x258307_ _hd5828258302_) + (_rest258309_ _tl5828358304_)) (declare (not safe)) - (_K5840858426_ _rest258436_ _x258434_))) - (let () (declare (not safe)) (_else5840658420_))))))) - (if (let () (declare (not safe)) (##pair? _rest15838358391_)) - (let ((_hd5838858441_ - (let () (declare (not safe)) (##car _rest15838358391_))) - (_tl5838958443_ + (_K5828158299_ _rest258309_ _x258307_))) + (let () (declare (not safe)) (_else5827958293_))))))) + (if (let () (declare (not safe)) (##pair? _rest15825658264_)) + (let ((_hd5826158314_ + (let () (declare (not safe)) (##car _rest15825658264_))) + (_tl5826258316_ (let () (declare (not safe)) - (##cdr _rest15838358391_)))) - (let* ((_x158446_ _hd5838858441_) - (_rest158448_ _tl5838958443_)) + (##cdr _rest15825658264_)))) + (let* ((_x158319_ _hd5826158314_) + (_rest158321_ _tl5826258316_)) (declare (not safe)) - (_K5838758438_ _rest158448_ _x158446_))) - (let () (declare (not safe)) (_else5838558399_))))))) + (_K5826058311_ _rest158321_ _x158319_))) + (let () (declare (not safe)) (_else5825858272_))))))) (define andmap - (lambda _g64144_ - (let ((_g64143_ (let () (declare (not safe)) (##length _g64144_)))) - (cond ((let () (declare (not safe)) (##fx= _g64143_ 2)) - (apply (lambda (_f58363_ _lst58364_) + (lambda _g64172_ + (let ((_g64171_ (let () (declare (not safe)) (##length _g64172_)))) + (cond ((let () (declare (not safe)) (##fx= _g64171_ 2)) + (apply (lambda (_f58236_ _lst58237_) (let () (declare (not safe)) - (andmap1 _f58363_ _lst58364_))) - _g64144_)) - ((let () (declare (not safe)) (##fx= _g64143_ 3)) - (apply (lambda (_f58366_ _lst158367_ _lst258368_) + (andmap1 _f58236_ _lst58237_))) + _g64172_)) + ((let () (declare (not safe)) (##fx= _g64171_ 3)) + (apply (lambda (_f58239_ _lst158240_ _lst258241_) (let () (declare (not safe)) - (andmap2 _f58366_ _lst158367_ _lst258368_))) - _g64144_)) - ((let () (declare (not safe)) (##fx>= _g64143_ 3)) - (apply andmap* _g64144_)) + (andmap2 _f58239_ _lst158240_ _lst258241_))) + _g64172_)) + ((let () (declare (not safe)) (##fx>= _g64171_ 3)) + (apply andmap* _g64172_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g64144_)))))) + _g64172_)))))) (define andmap* - (lambda (_f58356_ . _rest58357_) - (let _recur58359_ ((_rest58361_ _rest58357_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58361_)) - (if (apply _f58356_ (map car _rest58361_)) - (let ((__tmp64145 (map cdr _rest58361_))) + (lambda (_f58229_ . _rest58230_) + (let _recur58232_ ((_rest58234_ _rest58230_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest58234_)) + (if (apply _f58229_ (map car _rest58234_)) + (let ((__tmp64173 (map cdr _rest58234_))) (declare (not safe)) - (_recur58359_ __tmp64145)) + (_recur58232_ __tmp64173)) '#f) '#t)))) (define ormap1 - (lambda (_f58313_ _lst58314_) - (let _lp58316_ ((_rest58318_ _lst58314_)) - (let* ((_rest5831958327_ _rest58318_) - (_else5832158335_ (lambda () '#f)) - (_K5832358344_ - (lambda (_rest58338_ _x58339_) - (let ((_$e58341_ (_f58313_ _x58339_))) - (if _$e58341_ - _$e58341_ + (lambda (_f58186_ _lst58187_) + (let _lp58189_ ((_rest58191_ _lst58187_)) + (let* ((_rest5819258200_ _rest58191_) + (_else5819458208_ (lambda () '#f)) + (_K5819658217_ + (lambda (_rest58211_ _x58212_) + (let ((_$e58214_ (_f58186_ _x58212_))) + (if _$e58214_ + _$e58214_ (let () (declare (not safe)) - (_lp58316_ _rest58338_))))))) - (if (let () (declare (not safe)) (##pair? _rest5831958327_)) - (let ((_hd5832458347_ - (let () (declare (not safe)) (##car _rest5831958327_))) - (_tl5832558349_ - (let () (declare (not safe)) (##cdr _rest5831958327_)))) - (let* ((_x58352_ _hd5832458347_) - (_rest58354_ _tl5832558349_)) + (_lp58189_ _rest58211_))))))) + (if (let () (declare (not safe)) (##pair? _rest5819258200_)) + (let ((_hd5819758220_ + (let () (declare (not safe)) (##car _rest5819258200_))) + (_tl5819858222_ + (let () (declare (not safe)) (##cdr _rest5819258200_)))) + (let* ((_x58225_ _hd5819758220_) + (_rest58227_ _tl5819858222_)) (declare (not safe)) - (_K5832358344_ _rest58354_ _x58352_))) - (let () (declare (not safe)) (_else5832158335_))))))) + (_K5819658217_ _rest58227_ _x58225_))) + (let () (declare (not safe)) (_else5819458208_))))))) (define ormap2 - (lambda (_f58235_ _lst158236_ _lst258237_) - (let _lp58239_ ((_rest158241_ _lst158236_) (_rest258242_ _lst258237_)) - (let* ((_rest15824358251_ _rest158241_) - (_else5824558259_ (lambda () '#f)) - (_K5824758301_ - (lambda (_rest158262_ _x158263_) - (let* ((_rest25826458272_ _rest258242_) - (_else5826658280_ (lambda () '#f)) - (_K5826858289_ - (lambda (_rest258283_ _x258284_) - (let ((_$e58286_ (_f58235_ _x158263_ _x258284_))) - (if _$e58286_ - _$e58286_ + (lambda (_f58108_ _lst158109_ _lst258110_) + (let _lp58112_ ((_rest158114_ _lst158109_) (_rest258115_ _lst258110_)) + (let* ((_rest15811658124_ _rest158114_) + (_else5811858132_ (lambda () '#f)) + (_K5812058174_ + (lambda (_rest158135_ _x158136_) + (let* ((_rest25813758145_ _rest258115_) + (_else5813958153_ (lambda () '#f)) + (_K5814158162_ + (lambda (_rest258156_ _x258157_) + (let ((_$e58159_ (_f58108_ _x158136_ _x258157_))) + (if _$e58159_ + _$e58159_ (let () (declare (not safe)) - (_lp58239_ - _rest158262_ - _rest258283_))))))) + (_lp58112_ + _rest158135_ + _rest258156_))))))) (if (let () (declare (not safe)) - (##pair? _rest25826458272_)) - (let ((_hd5826958292_ + (##pair? _rest25813758145_)) + (let ((_hd5814258165_ (let () (declare (not safe)) - (##car _rest25826458272_))) - (_tl5827058294_ + (##car _rest25813758145_))) + (_tl5814358167_ (let () (declare (not safe)) - (##cdr _rest25826458272_)))) - (let* ((_x258297_ _hd5826958292_) - (_rest258299_ _tl5827058294_)) + (##cdr _rest25813758145_)))) + (let* ((_x258170_ _hd5814258165_) + (_rest258172_ _tl5814358167_)) (declare (not safe)) - (_K5826858289_ _rest258299_ _x258297_))) - (let () (declare (not safe)) (_else5826658280_))))))) - (if (let () (declare (not safe)) (##pair? _rest15824358251_)) - (let ((_hd5824858304_ - (let () (declare (not safe)) (##car _rest15824358251_))) - (_tl5824958306_ + (_K5814158162_ _rest258172_ _x258170_))) + (let () (declare (not safe)) (_else5813958153_))))))) + (if (let () (declare (not safe)) (##pair? _rest15811658124_)) + (let ((_hd5812158177_ + (let () (declare (not safe)) (##car _rest15811658124_))) + (_tl5812258179_ (let () (declare (not safe)) - (##cdr _rest15824358251_)))) - (let* ((_x158309_ _hd5824858304_) - (_rest158311_ _tl5824958306_)) + (##cdr _rest15811658124_)))) + (let* ((_x158182_ _hd5812158177_) + (_rest158184_ _tl5812258179_)) (declare (not safe)) - (_K5824758301_ _rest158311_ _x158309_))) - (let () (declare (not safe)) (_else5824558259_))))))) + (_K5812058174_ _rest158184_ _x158182_))) + (let () (declare (not safe)) (_else5811858132_))))))) (define ormap - (lambda _g64147_ - (let ((_g64146_ (let () (declare (not safe)) (##length _g64147_)))) - (cond ((let () (declare (not safe)) (##fx= _g64146_ 2)) - (apply (lambda (_f58223_ _lst58224_) + (lambda _g64175_ + (let ((_g64174_ (let () (declare (not safe)) (##length _g64175_)))) + (cond ((let () (declare (not safe)) (##fx= _g64174_ 2)) + (apply (lambda (_f58096_ _lst58097_) (let () (declare (not safe)) - (ormap1 _f58223_ _lst58224_))) - _g64147_)) - ((let () (declare (not safe)) (##fx= _g64146_ 3)) - (apply (lambda (_f58226_ _lst158227_ _lst258228_) + (ormap1 _f58096_ _lst58097_))) + _g64175_)) + ((let () (declare (not safe)) (##fx= _g64174_ 3)) + (apply (lambda (_f58099_ _lst158100_ _lst258101_) (let () (declare (not safe)) - (ormap2 _f58226_ _lst158227_ _lst258228_))) - _g64147_)) - ((let () (declare (not safe)) (##fx>= _g64146_ 3)) - (apply ormap* _g64147_)) + (ormap2 _f58099_ _lst158100_ _lst258101_))) + _g64175_)) + ((let () (declare (not safe)) (##fx>= _g64174_ 3)) + (apply ormap* _g64175_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g64147_)))))) + _g64175_)))))) (define ormap* - (lambda (_f58213_ . _rest58214_) - (let _recur58216_ ((_rest58218_ _rest58214_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58218_)) - (let ((_$e58220_ (apply _f58213_ (map car _rest58218_)))) - (if _$e58220_ - _$e58220_ - (let ((__tmp64148 (map cdr _rest58218_))) + (lambda (_f58086_ . _rest58087_) + (let _recur58089_ ((_rest58091_ _rest58087_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest58091_)) + (let ((_$e58093_ (apply _f58086_ (map car _rest58091_)))) + (if _$e58093_ + _$e58093_ + (let ((__tmp64176 (map cdr _rest58091_))) (declare (not safe)) - (_recur58216_ __tmp64148)))) + (_recur58089_ __tmp64176)))) '#f)))) (define filter - (lambda (_f58171_ _lst58172_) - (let _recur58174_ ((_lst58176_ _lst58172_)) - (let* ((_lst5817758185_ _lst58176_) - (_else5817958193_ (lambda () '())) - (_K5818158201_ - (lambda (_rest58196_ _hd58197_) - (if (_f58171_ _hd58197_) - (let ((_tail58199_ + (lambda (_f58044_ _lst58045_) + (let _recur58047_ ((_lst58049_ _lst58045_)) + (let* ((_lst5805058058_ _lst58049_) + (_else5805258066_ (lambda () '())) + (_K5805458074_ + (lambda (_rest58069_ _hd58070_) + (if (_f58044_ _hd58070_) + (let ((_tail58072_ (let () (declare (not safe)) - (_recur58174_ _rest58196_)))) + (_recur58047_ _rest58069_)))) (if (let () (declare (not safe)) - (eq? _tail58199_ _rest58196_)) - _lst58176_ + (eq? _tail58072_ _rest58069_)) + _lst58049_ (let () (declare (not safe)) - (cons _hd58197_ _tail58199_)))) + (cons _hd58070_ _tail58072_)))) (let () (declare (not safe)) - (_recur58174_ _rest58196_)))))) - (if (let () (declare (not safe)) (##pair? _lst5817758185_)) - (let ((_hd5818258204_ - (let () (declare (not safe)) (##car _lst5817758185_))) - (_tl5818358206_ - (let () (declare (not safe)) (##cdr _lst5817758185_)))) - (let* ((_hd58209_ _hd5818258204_) - (_rest58211_ _tl5818358206_)) + (_recur58047_ _rest58069_)))))) + (if (let () (declare (not safe)) (##pair? _lst5805058058_)) + (let ((_hd5805558077_ + (let () (declare (not safe)) (##car _lst5805058058_))) + (_tl5805658079_ + (let () (declare (not safe)) (##cdr _lst5805058058_)))) + (let* ((_hd58082_ _hd5805558077_) + (_rest58084_ _tl5805658079_)) (declare (not safe)) - (_K5818158201_ _rest58211_ _hd58209_))) - (let () (declare (not safe)) (_else5817958193_))))))) + (_K5805458074_ _rest58084_ _hd58082_))) + (let () (declare (not safe)) (_else5805258066_))))))) (define filter-map1 - (lambda (_f58126_ _lst58127_) - (let _recur58129_ ((_rest58131_ _lst58127_)) - (let* ((_rest5813258140_ _rest58131_) - (_else5813458148_ (lambda () '())) - (_K5813658159_ - (lambda (_rest58151_ _x58152_) - (let ((_$e58154_ (_f58126_ _x58152_))) - (if _$e58154_ - ((lambda (_r58157_) - (let ((__tmp64149 + (lambda (_f57999_ _lst58000_) + (let _recur58002_ ((_rest58004_ _lst58000_)) + (let* ((_rest5800558013_ _rest58004_) + (_else5800758021_ (lambda () '())) + (_K5800958032_ + (lambda (_rest58024_ _x58025_) + (let ((_$e58027_ (_f57999_ _x58025_))) + (if _$e58027_ + ((lambda (_r58030_) + (let ((__tmp64177 (let () (declare (not safe)) - (_recur58129_ _rest58151_)))) + (_recur58002_ _rest58024_)))) (declare (not safe)) - (cons _r58157_ __tmp64149))) - _$e58154_) + (cons _r58030_ __tmp64177))) + _$e58027_) (let () (declare (not safe)) - (_recur58129_ _rest58151_))))))) - (if (let () (declare (not safe)) (##pair? _rest5813258140_)) - (let ((_hd5813758162_ - (let () (declare (not safe)) (##car _rest5813258140_))) - (_tl5813858164_ - (let () (declare (not safe)) (##cdr _rest5813258140_)))) - (let* ((_x58167_ _hd5813758162_) - (_rest58169_ _tl5813858164_)) + (_recur58002_ _rest58024_))))))) + (if (let () (declare (not safe)) (##pair? _rest5800558013_)) + (let ((_hd5801058035_ + (let () (declare (not safe)) (##car _rest5800558013_))) + (_tl5801158037_ + (let () (declare (not safe)) (##cdr _rest5800558013_)))) + (let* ((_x58040_ _hd5801058035_) + (_rest58042_ _tl5801158037_)) (declare (not safe)) - (_K5813658159_ _rest58169_ _x58167_))) - (let () (declare (not safe)) (_else5813458148_))))))) + (_K5800958032_ _rest58042_ _x58040_))) + (let () (declare (not safe)) (_else5800758021_))))))) (define filter-map2 - (lambda (_f58046_ _lst158047_ _lst258048_) - (let _recur58050_ ((_rest158052_ _lst158047_) - (_rest258053_ _lst258048_)) - (let* ((_rest15805458062_ _rest158052_) - (_else5805658070_ (lambda () '())) - (_K5805858114_ - (lambda (_rest158073_ _x158074_) - (let* ((_rest25807558083_ _rest258053_) - (_else5807758091_ (lambda () '())) - (_K5807958102_ - (lambda (_rest258094_ _x258095_) - (let ((_$e58097_ (_f58046_ _x158074_ _x258095_))) - (if _$e58097_ - ((lambda (_r58100_) - (let ((__tmp64150 + (lambda (_f57919_ _lst157920_ _lst257921_) + (let _recur57923_ ((_rest157925_ _lst157920_) + (_rest257926_ _lst257921_)) + (let* ((_rest15792757935_ _rest157925_) + (_else5792957943_ (lambda () '())) + (_K5793157987_ + (lambda (_rest157946_ _x157947_) + (let* ((_rest25794857956_ _rest257926_) + (_else5795057964_ (lambda () '())) + (_K5795257975_ + (lambda (_rest257967_ _x257968_) + (let ((_$e57970_ (_f57919_ _x157947_ _x257968_))) + (if _$e57970_ + ((lambda (_r57973_) + (let ((__tmp64178 (let () (declare (not safe)) - (_recur58050_ - _rest158073_ - _rest258094_)))) + (_recur57923_ + _rest157946_ + _rest257967_)))) (declare (not safe)) - (cons _r58100_ __tmp64150))) - _$e58097_) + (cons _r57973_ __tmp64178))) + _$e57970_) (let () (declare (not safe)) - (_recur58050_ - _rest158073_ - _rest258094_))))))) + (_recur57923_ + _rest157946_ + _rest257967_))))))) (if (let () (declare (not safe)) - (##pair? _rest25807558083_)) - (let ((_hd5808058105_ + (##pair? _rest25794857956_)) + (let ((_hd5795357978_ (let () (declare (not safe)) - (##car _rest25807558083_))) - (_tl5808158107_ + (##car _rest25794857956_))) + (_tl5795457980_ (let () (declare (not safe)) - (##cdr _rest25807558083_)))) - (let* ((_x258110_ _hd5808058105_) - (_rest258112_ _tl5808158107_)) + (##cdr _rest25794857956_)))) + (let* ((_x257983_ _hd5795357978_) + (_rest257985_ _tl5795457980_)) (declare (not safe)) - (_K5807958102_ _rest258112_ _x258110_))) - (let () (declare (not safe)) (_else5807758091_))))))) - (if (let () (declare (not safe)) (##pair? _rest15805458062_)) - (let ((_hd5805958117_ - (let () (declare (not safe)) (##car _rest15805458062_))) - (_tl5806058119_ + (_K5795257975_ _rest257985_ _x257983_))) + (let () (declare (not safe)) (_else5795057964_))))))) + (if (let () (declare (not safe)) (##pair? _rest15792757935_)) + (let ((_hd5793257990_ + (let () (declare (not safe)) (##car _rest15792757935_))) + (_tl5793357992_ (let () (declare (not safe)) - (##cdr _rest15805458062_)))) - (let* ((_x158122_ _hd5805958117_) - (_rest158124_ _tl5806058119_)) + (##cdr _rest15792757935_)))) + (let* ((_x157995_ _hd5793257990_) + (_rest157997_ _tl5793357992_)) (declare (not safe)) - (_K5805858114_ _rest158124_ _x158122_))) - (let () (declare (not safe)) (_else5805658070_))))))) + (_K5793157987_ _rest157997_ _x157995_))) + (let () (declare (not safe)) (_else5792957943_))))))) (define filter-map - (lambda _g64152_ - (let ((_g64151_ (let () (declare (not safe)) (##length _g64152_)))) - (cond ((let () (declare (not safe)) (##fx= _g64151_ 2)) - (apply (lambda (_f58034_ _lst58035_) + (lambda _g64180_ + (let ((_g64179_ (let () (declare (not safe)) (##length _g64180_)))) + (cond ((let () (declare (not safe)) (##fx= _g64179_ 2)) + (apply (lambda (_f57907_ _lst57908_) (let () (declare (not safe)) - (filter-map1 _f58034_ _lst58035_))) - _g64152_)) - ((let () (declare (not safe)) (##fx= _g64151_ 3)) - (apply (lambda (_f58037_ _lst158038_ _lst258039_) + (filter-map1 _f57907_ _lst57908_))) + _g64180_)) + ((let () (declare (not safe)) (##fx= _g64179_ 3)) + (apply (lambda (_f57910_ _lst157911_ _lst257912_) (let () (declare (not safe)) - (filter-map2 _f58037_ _lst158038_ _lst258039_))) - _g64152_)) - ((let () (declare (not safe)) (##fx>= _g64151_ 3)) - (apply filter-map* _g64152_)) + (filter-map2 _f57910_ _lst157911_ _lst257912_))) + _g64180_)) + ((let () (declare (not safe)) (##fx>= _g64179_ 3)) + (apply filter-map* _g64180_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g64152_)))))) + _g64180_)))))) (define filter-map* - (lambda (_f58022_ . _rest58023_) - (let _recur58025_ ((_rest58027_ _rest58023_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58027_)) - (let ((_$e58029_ (apply _f58022_ (map car _rest58027_)))) - (if _$e58029_ - ((lambda (_r58032_) - (let ((__tmp64154 - (let ((__tmp64155 (map cdr _rest58027_))) + (lambda (_f57895_ . _rest57896_) + (let _recur57898_ ((_rest57900_ _rest57896_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest57900_)) + (let ((_$e57902_ (apply _f57895_ (map car _rest57900_)))) + (if _$e57902_ + ((lambda (_r57905_) + (let ((__tmp64182 + (let ((__tmp64183 (map cdr _rest57900_))) (declare (not safe)) - (_recur58025_ __tmp64155)))) + (_recur57898_ __tmp64183)))) (declare (not safe)) - (cons _r58032_ __tmp64154))) - _$e58029_) - (let ((__tmp64153 (map cdr _rest58027_))) + (cons _r57905_ __tmp64182))) + _$e57902_) + (let ((__tmp64181 (map cdr _rest57900_))) (declare (not safe)) - (_recur58025_ __tmp64153)))) + (_recur57898_ __tmp64181)))) '())))) (define iota__% - (lambda (_count57990_ _start57991_ _step57992_) - (if (fixnum? _count57990_) + (lambda (_count57863_ _start57864_ _step57865_) + (if (fixnum? _count57863_) '#!void - (error '"expected fixnum" _count57990_)) - (if (let () (declare (not safe)) (number? _start57991_)) + (error '"expected fixnum" _count57863_)) + (if (let () (declare (not safe)) (number? _start57864_)) '#!void - (error '"expected number" _start57991_)) - (if (let () (declare (not safe)) (number? _step57992_)) + (error '"expected number" _start57864_)) + (if (let () (declare (not safe)) (number? _step57865_)) '#!void - (error '"expected number" _step57992_)) - (let ((_root57994_ (let () (declare (not safe)) (cons '#f '())))) - (let _lp57996_ ((_i57998_ '0) - (_x57999_ _start57991_) - (_tl58000_ _root57994_)) - (if (let () (declare (not safe)) (##fx< _i57998_ _count57990_)) - (let ((_tl*58002_ - (let () (declare (not safe)) (cons _x57999_ '())))) + (error '"expected number" _step57865_)) + (let ((_root57867_ (let () (declare (not safe)) (cons '#f '())))) + (let _lp57869_ ((_i57871_ '0) + (_x57872_ _start57864_) + (_tl57873_ _root57867_)) + (if (let () (declare (not safe)) (##fx< _i57871_ _count57863_)) + (let ((_tl*57875_ + (let () (declare (not safe)) (cons _x57872_ '())))) (let () (declare (not safe)) - (##set-cdr! _tl58000_ _tl*58002_)) - (let ((__tmp64157 - (let () (declare (not safe)) (##fx+ _i57998_ '1))) - (__tmp64156 (+ _x57999_ _step57992_))) + (##set-cdr! _tl57873_ _tl*57875_)) + (let ((__tmp64185 + (let () (declare (not safe)) (##fx+ _i57871_ '1))) + (__tmp64184 (+ _x57872_ _step57865_))) (declare (not safe)) - (_lp57996_ __tmp64157 __tmp64156 _tl*58002_))) - (let () (declare (not safe)) (##cdr _root57994_))))))) + (_lp57869_ __tmp64185 __tmp64184 _tl*57875_))) + (let () (declare (not safe)) (##cdr _root57867_))))))) (define iota__0 - (lambda (_count58007_) - (let* ((_start58009_ '0) (_step58011_ '1)) + (lambda (_count57880_) + (let* ((_start57882_ '0) (_step57884_ '1)) (declare (not safe)) - (iota__% _count58007_ _start58009_ _step58011_)))) + (iota__% _count57880_ _start57882_ _step57884_)))) (define iota__1 - (lambda (_count58013_ _start58014_) - (let ((_step58016_ '1)) + (lambda (_count57886_ _start57887_) + (let ((_step57889_ '1)) (declare (not safe)) - (iota__% _count58013_ _start58014_ _step58016_)))) + (iota__% _count57886_ _start57887_ _step57889_)))) (define iota - (lambda _g64159_ - (let ((_g64158_ (let () (declare (not safe)) (##length _g64159_)))) - (cond ((let () (declare (not safe)) (##fx= _g64158_ 1)) - (apply (lambda (_count58007_) - (let () (declare (not safe)) (iota__0 _count58007_))) - _g64159_)) - ((let () (declare (not safe)) (##fx= _g64158_ 2)) - (apply (lambda (_count58013_ _start58014_) + (lambda _g64187_ + (let ((_g64186_ (let () (declare (not safe)) (##length _g64187_)))) + (cond ((let () (declare (not safe)) (##fx= _g64186_ 1)) + (apply (lambda (_count57880_) + (let () (declare (not safe)) (iota__0 _count57880_))) + _g64187_)) + ((let () (declare (not safe)) (##fx= _g64186_ 2)) + (apply (lambda (_count57886_ _start57887_) (let () (declare (not safe)) - (iota__1 _count58013_ _start58014_))) - _g64159_)) - ((let () (declare (not safe)) (##fx= _g64158_ 3)) - (apply (lambda (_count58018_ _start58019_ _step58020_) + (iota__1 _count57886_ _start57887_))) + _g64187_)) + ((let () (declare (not safe)) (##fx= _g64186_ 3)) + (apply (lambda (_count57891_ _start57892_ _step57893_) (let () (declare (not safe)) - (iota__% _count58018_ _start58019_ _step58020_))) - _g64159_)) + (iota__% _count57891_ _start57892_ _step57893_))) + _g64187_)) (else (##raise-wrong-number-of-arguments-exception iota - _g64159_)))))) + _g64187_)))))) (define last-pair - (lambda (_lst57964_) - (let* ((_lst5796557972_ _lst57964_) - (_E5796757976_ - (lambda () (error '"No clause matching" _lst5796557972_))) - (_K5796857981_ - (lambda (_rest57979_) - (if (let () (declare (not safe)) (pair? _rest57979_)) - (let () (declare (not safe)) (last-pair _rest57979_)) - _lst57964_)))) - (if (let () (declare (not safe)) (##pair? _lst5796557972_)) - (let* ((_tl5797057984_ - (let () (declare (not safe)) (##cdr _lst5796557972_))) - (_rest57987_ _tl5797057984_)) + (lambda (_lst57837_) + (let* ((_lst5783857845_ _lst57837_) + (_E5784057849_ + (lambda () (error '"No clause matching" _lst5783857845_))) + (_K5784157854_ + (lambda (_rest57852_) + (if (let () (declare (not safe)) (pair? _rest57852_)) + (let () (declare (not safe)) (last-pair _rest57852_)) + _lst57837_)))) + (if (let () (declare (not safe)) (##pair? _lst5783857845_)) + (let* ((_tl5784357857_ + (let () (declare (not safe)) (##cdr _lst5783857845_))) + (_rest57860_ _tl5784357857_)) (declare (not safe)) - (_K5796857981_ _rest57987_)) - (let () (declare (not safe)) (_E5796757976_)))))) + (_K5784157854_ _rest57860_)) + (let () (declare (not safe)) (_E5784057849_)))))) (define last - (lambda (_lst57962_) - (car (let () (declare (not safe)) (last-pair _lst57962_))))) + (lambda (_lst57835_) + (car (let () (declare (not safe)) (last-pair _lst57835_))))) (define assgetq__% - (lambda (_key57940_ _lst57942_ _default57944_) - (let ((_$e57947_ - (if (let () (declare (not safe)) (pair? _lst57942_)) - (assq _key57940_ _lst57942_) + (lambda (_key57813_ _lst57815_ _default57817_) + (let ((_$e57820_ + (if (let () (declare (not safe)) (pair? _lst57815_)) + (assq _key57813_ _lst57815_) '#f))) - (if _$e57947_ - (cdr _$e57947_) - (if (let () (declare (not safe)) (procedure? _default57944_)) - (_default57944_ _key57940_) - _default57944_))))) + (if _$e57820_ + (cdr _$e57820_) + (if (let () (declare (not safe)) (procedure? _default57817_)) + (_default57817_ _key57813_) + _default57817_))))) (define assgetq__0 - (lambda (_key57953_ _lst57954_) - (let ((_default57956_ '#f)) + (lambda (_key57826_ _lst57827_) + (let ((_default57829_ '#f)) (declare (not safe)) - (assgetq__% _key57953_ _lst57954_ _default57956_)))) + (assgetq__% _key57826_ _lst57827_ _default57829_)))) (define assgetq - (lambda _g64161_ - (let ((_g64160_ (let () (declare (not safe)) (##length _g64161_)))) - (cond ((let () (declare (not safe)) (##fx= _g64160_ 2)) - (apply (lambda (_key57953_ _lst57954_) + (lambda _g64189_ + (let ((_g64188_ (let () (declare (not safe)) (##length _g64189_)))) + (cond ((let () (declare (not safe)) (##fx= _g64188_ 2)) + (apply (lambda (_key57826_ _lst57827_) (let () (declare (not safe)) - (assgetq__0 _key57953_ _lst57954_))) - _g64161_)) - ((let () (declare (not safe)) (##fx= _g64160_ 3)) - (apply (lambda (_key57958_ _lst57959_ _default57960_) + (assgetq__0 _key57826_ _lst57827_))) + _g64189_)) + ((let () (declare (not safe)) (##fx= _g64188_ 3)) + (apply (lambda (_key57831_ _lst57832_ _default57833_) (let () (declare (not safe)) - (assgetq__% _key57958_ _lst57959_ _default57960_))) - _g64161_)) + (assgetq__% _key57831_ _lst57832_ _default57833_))) + _g64189_)) (else (##raise-wrong-number-of-arguments-exception assgetq - _g64161_)))))) + _g64189_)))))) (define assgetv__% - (lambda (_key57917_ _lst57919_ _default57921_) - (let ((_$e57924_ - (if (let () (declare (not safe)) (pair? _lst57919_)) - (assv _key57917_ _lst57919_) + (lambda (_key57790_ _lst57792_ _default57794_) + (let ((_$e57797_ + (if (let () (declare (not safe)) (pair? _lst57792_)) + (assv _key57790_ _lst57792_) '#f))) - (if _$e57924_ - (cdr _$e57924_) - (if (let () (declare (not safe)) (procedure? _default57921_)) - (_default57921_ _key57917_) - _default57921_))))) + (if _$e57797_ + (cdr _$e57797_) + (if (let () (declare (not safe)) (procedure? _default57794_)) + (_default57794_ _key57790_) + _default57794_))))) (define assgetv__0 - (lambda (_key57930_ _lst57931_) - (let ((_default57933_ '#f)) + (lambda (_key57803_ _lst57804_) + (let ((_default57806_ '#f)) (declare (not safe)) - (assgetv__% _key57930_ _lst57931_ _default57933_)))) + (assgetv__% _key57803_ _lst57804_ _default57806_)))) (define assgetv - (lambda _g64163_ - (let ((_g64162_ (let () (declare (not safe)) (##length _g64163_)))) - (cond ((let () (declare (not safe)) (##fx= _g64162_ 2)) - (apply (lambda (_key57930_ _lst57931_) + (lambda _g64191_ + (let ((_g64190_ (let () (declare (not safe)) (##length _g64191_)))) + (cond ((let () (declare (not safe)) (##fx= _g64190_ 2)) + (apply (lambda (_key57803_ _lst57804_) (let () (declare (not safe)) - (assgetv__0 _key57930_ _lst57931_))) - _g64163_)) - ((let () (declare (not safe)) (##fx= _g64162_ 3)) - (apply (lambda (_key57935_ _lst57936_ _default57937_) + (assgetv__0 _key57803_ _lst57804_))) + _g64191_)) + ((let () (declare (not safe)) (##fx= _g64190_ 3)) + (apply (lambda (_key57808_ _lst57809_ _default57810_) (let () (declare (not safe)) - (assgetv__% _key57935_ _lst57936_ _default57937_))) - _g64163_)) + (assgetv__% _key57808_ _lst57809_ _default57810_))) + _g64191_)) (else (##raise-wrong-number-of-arguments-exception assgetv - _g64163_)))))) + _g64191_)))))) (define assget__% - (lambda (_key57894_ _lst57896_ _default57898_) - (let ((_$e57901_ - (if (let () (declare (not safe)) (pair? _lst57896_)) - (assoc _key57894_ _lst57896_) + (lambda (_key57767_ _lst57769_ _default57771_) + (let ((_$e57774_ + (if (let () (declare (not safe)) (pair? _lst57769_)) + (assoc _key57767_ _lst57769_) '#f))) - (if _$e57901_ - (cdr _$e57901_) - (if (let () (declare (not safe)) (procedure? _default57898_)) - (_default57898_ _key57894_) - _default57898_))))) + (if _$e57774_ + (cdr _$e57774_) + (if (let () (declare (not safe)) (procedure? _default57771_)) + (_default57771_ _key57767_) + _default57771_))))) (define assget__0 - (lambda (_key57907_ _lst57908_) - (let ((_default57910_ '#f)) + (lambda (_key57780_ _lst57781_) + (let ((_default57783_ '#f)) (declare (not safe)) - (assget__% _key57907_ _lst57908_ _default57910_)))) + (assget__% _key57780_ _lst57781_ _default57783_)))) (define assget - (lambda _g64165_ - (let ((_g64164_ (let () (declare (not safe)) (##length _g64165_)))) - (cond ((let () (declare (not safe)) (##fx= _g64164_ 2)) - (apply (lambda (_key57907_ _lst57908_) + (lambda _g64193_ + (let ((_g64192_ (let () (declare (not safe)) (##length _g64193_)))) + (cond ((let () (declare (not safe)) (##fx= _g64192_ 2)) + (apply (lambda (_key57780_ _lst57781_) (let () (declare (not safe)) - (assget__0 _key57907_ _lst57908_))) - _g64165_)) - ((let () (declare (not safe)) (##fx= _g64164_ 3)) - (apply (lambda (_key57912_ _lst57913_ _default57914_) + (assget__0 _key57780_ _lst57781_))) + _g64193_)) + ((let () (declare (not safe)) (##fx= _g64192_ 3)) + (apply (lambda (_key57785_ _lst57786_ _default57787_) (let () (declare (not safe)) - (assget__% _key57912_ _lst57913_ _default57914_))) - _g64165_)) + (assget__% _key57785_ _lst57786_ _default57787_))) + _g64193_)) (else (##raise-wrong-number-of-arguments-exception assget - _g64165_)))))) + _g64193_)))))) (define pgetq__% - (lambda (_key57823_ _lst57825_ _default57827_) - (let _lp57830_ ((_rest57833_ _lst57825_)) - (let* ((_rest5783557845_ _rest57833_) - (_else5783757853_ + (lambda (_key57696_ _lst57698_ _default57700_) + (let _lp57703_ ((_rest57706_ _lst57698_)) + (let* ((_rest5770857718_ _rest57706_) + (_else5771057726_ (lambda () (if (let () (declare (not safe)) - (procedure? _default57827_)) - (_default57827_ _key57823_) - _default57827_))) - (_K5783957862_ - (lambda (_rest57856_ _v57857_ _k57859_) - (if (let () (declare (not safe)) (eq? _k57859_ _key57823_)) - _v57857_ + (procedure? _default57700_)) + (_default57700_ _key57696_) + _default57700_))) + (_K5771257735_ + (lambda (_rest57729_ _v57730_ _k57732_) + (if (let () (declare (not safe)) (eq? _k57732_ _key57696_)) + _v57730_ (let () (declare (not safe)) - (_lp57830_ _rest57856_)))))) - (if (let () (declare (not safe)) (##pair? _rest5783557845_)) - (let ((_hd5784057865_ - (let () (declare (not safe)) (##car _rest5783557845_))) - (_tl5784157867_ - (let () (declare (not safe)) (##cdr _rest5783557845_)))) - (let ((_k57870_ _hd5784057865_)) - (if (let () (declare (not safe)) (##pair? _tl5784157867_)) - (let ((_hd5784257872_ + (_lp57703_ _rest57729_)))))) + (if (let () (declare (not safe)) (##pair? _rest5770857718_)) + (let ((_hd5771357738_ + (let () (declare (not safe)) (##car _rest5770857718_))) + (_tl5771457740_ + (let () (declare (not safe)) (##cdr _rest5770857718_)))) + (let ((_k57743_ _hd5771357738_)) + (if (let () (declare (not safe)) (##pair? _tl5771457740_)) + (let ((_hd5771557745_ (let () (declare (not safe)) - (##car _tl5784157867_))) - (_tl5784357874_ + (##car _tl5771457740_))) + (_tl5771657747_ (let () (declare (not safe)) - (##cdr _tl5784157867_)))) - (let* ((_v57877_ _hd5784257872_) - (_rest57879_ _tl5784357874_)) + (##cdr _tl5771457740_)))) + (let* ((_v57750_ _hd5771557745_) + (_rest57752_ _tl5771657747_)) (declare (not safe)) - (_K5783957862_ _rest57879_ _v57877_ _k57870_))) - (let () (declare (not safe)) (_else5783757853_))))) - (let () (declare (not safe)) (_else5783757853_))))))) + (_K5771257735_ _rest57752_ _v57750_ _k57743_))) + (let () (declare (not safe)) (_else5771057726_))))) + (let () (declare (not safe)) (_else5771057726_))))))) (define pgetq__0 - (lambda (_key57884_ _lst57885_) - (let ((_default57887_ '#f)) + (lambda (_key57757_ _lst57758_) + (let ((_default57760_ '#f)) (declare (not safe)) - (pgetq__% _key57884_ _lst57885_ _default57887_)))) + (pgetq__% _key57757_ _lst57758_ _default57760_)))) (define pgetq - (lambda _g64167_ - (let ((_g64166_ (let () (declare (not safe)) (##length _g64167_)))) - (cond ((let () (declare (not safe)) (##fx= _g64166_ 2)) - (apply (lambda (_key57884_ _lst57885_) + (lambda _g64195_ + (let ((_g64194_ (let () (declare (not safe)) (##length _g64195_)))) + (cond ((let () (declare (not safe)) (##fx= _g64194_ 2)) + (apply (lambda (_key57757_ _lst57758_) (let () (declare (not safe)) - (pgetq__0 _key57884_ _lst57885_))) - _g64167_)) - ((let () (declare (not safe)) (##fx= _g64166_ 3)) - (apply (lambda (_key57889_ _lst57890_ _default57891_) + (pgetq__0 _key57757_ _lst57758_))) + _g64195_)) + ((let () (declare (not safe)) (##fx= _g64194_ 3)) + (apply (lambda (_key57762_ _lst57763_ _default57764_) (let () (declare (not safe)) - (pgetq__% _key57889_ _lst57890_ _default57891_))) - _g64167_)) + (pgetq__% _key57762_ _lst57763_ _default57764_))) + _g64195_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g64167_)))))) + _g64195_)))))) (define pgetv__% - (lambda (_key57752_ _lst57754_ _default57756_) - (let _lp57759_ ((_rest57762_ _lst57754_)) - (let* ((_rest5776457774_ _rest57762_) - (_else5776657782_ + (lambda (_key57625_ _lst57627_ _default57629_) + (let _lp57632_ ((_rest57635_ _lst57627_)) + (let* ((_rest5763757647_ _rest57635_) + (_else5763957655_ (lambda () (if (let () (declare (not safe)) - (procedure? _default57756_)) - (_default57756_ _key57752_) - _default57756_))) - (_K5776857791_ - (lambda (_rest57785_ _v57786_ _k57788_) + (procedure? _default57629_)) + (_default57629_ _key57625_) + _default57629_))) + (_K5764157664_ + (lambda (_rest57658_ _v57659_ _k57661_) (if (let () (declare (not safe)) - (eqv? _k57788_ _key57752_)) - _v57786_ + (eqv? _k57661_ _key57625_)) + _v57659_ (let () (declare (not safe)) - (_lp57759_ _rest57785_)))))) - (if (let () (declare (not safe)) (##pair? _rest5776457774_)) - (let ((_hd5776957794_ - (let () (declare (not safe)) (##car _rest5776457774_))) - (_tl5777057796_ - (let () (declare (not safe)) (##cdr _rest5776457774_)))) - (let ((_k57799_ _hd5776957794_)) - (if (let () (declare (not safe)) (##pair? _tl5777057796_)) - (let ((_hd5777157801_ + (_lp57632_ _rest57658_)))))) + (if (let () (declare (not safe)) (##pair? _rest5763757647_)) + (let ((_hd5764257667_ + (let () (declare (not safe)) (##car _rest5763757647_))) + (_tl5764357669_ + (let () (declare (not safe)) (##cdr _rest5763757647_)))) + (let ((_k57672_ _hd5764257667_)) + (if (let () (declare (not safe)) (##pair? _tl5764357669_)) + (let ((_hd5764457674_ (let () (declare (not safe)) - (##car _tl5777057796_))) - (_tl5777257803_ + (##car _tl5764357669_))) + (_tl5764557676_ (let () (declare (not safe)) - (##cdr _tl5777057796_)))) - (let* ((_v57806_ _hd5777157801_) - (_rest57808_ _tl5777257803_)) + (##cdr _tl5764357669_)))) + (let* ((_v57679_ _hd5764457674_) + (_rest57681_ _tl5764557676_)) (declare (not safe)) - (_K5776857791_ _rest57808_ _v57806_ _k57799_))) - (let () (declare (not safe)) (_else5776657782_))))) - (let () (declare (not safe)) (_else5776657782_))))))) + (_K5764157664_ _rest57681_ _v57679_ _k57672_))) + (let () (declare (not safe)) (_else5763957655_))))) + (let () (declare (not safe)) (_else5763957655_))))))) (define pgetv__0 - (lambda (_key57813_ _lst57814_) - (let ((_default57816_ '#f)) + (lambda (_key57686_ _lst57687_) + (let ((_default57689_ '#f)) (declare (not safe)) - (pgetv__% _key57813_ _lst57814_ _default57816_)))) + (pgetv__% _key57686_ _lst57687_ _default57689_)))) (define pgetv - (lambda _g64169_ - (let ((_g64168_ (let () (declare (not safe)) (##length _g64169_)))) - (cond ((let () (declare (not safe)) (##fx= _g64168_ 2)) - (apply (lambda (_key57813_ _lst57814_) + (lambda _g64197_ + (let ((_g64196_ (let () (declare (not safe)) (##length _g64197_)))) + (cond ((let () (declare (not safe)) (##fx= _g64196_ 2)) + (apply (lambda (_key57686_ _lst57687_) (let () (declare (not safe)) - (pgetv__0 _key57813_ _lst57814_))) - _g64169_)) - ((let () (declare (not safe)) (##fx= _g64168_ 3)) - (apply (lambda (_key57818_ _lst57819_ _default57820_) + (pgetv__0 _key57686_ _lst57687_))) + _g64197_)) + ((let () (declare (not safe)) (##fx= _g64196_ 3)) + (apply (lambda (_key57691_ _lst57692_ _default57693_) (let () (declare (not safe)) - (pgetv__% _key57818_ _lst57819_ _default57820_))) - _g64169_)) + (pgetv__% _key57691_ _lst57692_ _default57693_))) + _g64197_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g64169_)))))) + _g64197_)))))) (define pget__% - (lambda (_key57681_ _lst57683_ _default57685_) - (let _lp57688_ ((_rest57691_ _lst57683_)) - (let* ((_rest5769357703_ _rest57691_) - (_else5769557711_ + (lambda (_key57554_ _lst57556_ _default57558_) + (let _lp57561_ ((_rest57564_ _lst57556_)) + (let* ((_rest5756657576_ _rest57564_) + (_else5756857584_ (lambda () (if (let () (declare (not safe)) - (procedure? _default57685_)) - (_default57685_ _key57681_) - _default57685_))) - (_K5769757720_ - (lambda (_rest57714_ _v57715_ _k57717_) + (procedure? _default57558_)) + (_default57558_ _key57554_) + _default57558_))) + (_K5757057593_ + (lambda (_rest57587_ _v57588_ _k57590_) (if (let () (declare (not safe)) - (equal? _k57717_ _key57681_)) - _v57715_ + (equal? _k57590_ _key57554_)) + _v57588_ (let () (declare (not safe)) - (_lp57688_ _rest57714_)))))) - (if (let () (declare (not safe)) (##pair? _rest5769357703_)) - (let ((_hd5769857723_ - (let () (declare (not safe)) (##car _rest5769357703_))) - (_tl5769957725_ - (let () (declare (not safe)) (##cdr _rest5769357703_)))) - (let ((_k57728_ _hd5769857723_)) - (if (let () (declare (not safe)) (##pair? _tl5769957725_)) - (let ((_hd5770057730_ + (_lp57561_ _rest57587_)))))) + (if (let () (declare (not safe)) (##pair? _rest5756657576_)) + (let ((_hd5757157596_ + (let () (declare (not safe)) (##car _rest5756657576_))) + (_tl5757257598_ + (let () (declare (not safe)) (##cdr _rest5756657576_)))) + (let ((_k57601_ _hd5757157596_)) + (if (let () (declare (not safe)) (##pair? _tl5757257598_)) + (let ((_hd5757357603_ (let () (declare (not safe)) - (##car _tl5769957725_))) - (_tl5770157732_ + (##car _tl5757257598_))) + (_tl5757457605_ (let () (declare (not safe)) - (##cdr _tl5769957725_)))) - (let* ((_v57735_ _hd5770057730_) - (_rest57737_ _tl5770157732_)) + (##cdr _tl5757257598_)))) + (let* ((_v57608_ _hd5757357603_) + (_rest57610_ _tl5757457605_)) (declare (not safe)) - (_K5769757720_ _rest57737_ _v57735_ _k57728_))) - (let () (declare (not safe)) (_else5769557711_))))) - (let () (declare (not safe)) (_else5769557711_))))))) + (_K5757057593_ _rest57610_ _v57608_ _k57601_))) + (let () (declare (not safe)) (_else5756857584_))))) + (let () (declare (not safe)) (_else5756857584_))))))) (define pget__0 - (lambda (_key57742_ _lst57743_) - (let ((_default57745_ '#f)) + (lambda (_key57615_ _lst57616_) + (let ((_default57618_ '#f)) (declare (not safe)) - (pget__% _key57742_ _lst57743_ _default57745_)))) + (pget__% _key57615_ _lst57616_ _default57618_)))) (define pget - (lambda _g64171_ - (let ((_g64170_ (let () (declare (not safe)) (##length _g64171_)))) - (cond ((let () (declare (not safe)) (##fx= _g64170_ 2)) - (apply (lambda (_key57742_ _lst57743_) + (lambda _g64199_ + (let ((_g64198_ (let () (declare (not safe)) (##length _g64199_)))) + (cond ((let () (declare (not safe)) (##fx= _g64198_ 2)) + (apply (lambda (_key57615_ _lst57616_) (let () (declare (not safe)) - (pget__0 _key57742_ _lst57743_))) - _g64171_)) - ((let () (declare (not safe)) (##fx= _g64170_ 3)) - (apply (lambda (_key57747_ _lst57748_ _default57749_) + (pget__0 _key57615_ _lst57616_))) + _g64199_)) + ((let () (declare (not safe)) (##fx= _g64198_ 3)) + (apply (lambda (_key57620_ _lst57621_ _default57622_) (let () (declare (not safe)) - (pget__% _key57747_ _lst57748_ _default57749_))) - _g64171_)) + (pget__% _key57620_ _lst57621_ _default57622_))) + _g64199_)) (else (##raise-wrong-number-of-arguments-exception pget - _g64171_)))))) + _g64199_)))))) (define find - (lambda (_pred57674_ _lst57675_) - (let ((_$e57677_ - (let () (declare (not safe)) (memf _pred57674_ _lst57675_)))) - (if _$e57677_ (car _$e57677_) '#f)))) + (lambda (_pred57547_ _lst57548_) + (let ((_$e57550_ + (let () (declare (not safe)) (memf _pred57547_ _lst57548_)))) + (if _$e57550_ (car _$e57550_) '#f)))) (define memf - (lambda (_proc57634_ _lst57635_) - (let _lp57637_ ((_rest57639_ _lst57635_)) - (let* ((_rest5764057648_ _rest57639_) - (_else5764257656_ (lambda () '#f)) - (_K5764457662_ - (lambda (_tl57659_ _hd57660_) - (if (_proc57634_ _hd57660_) - _rest57639_ - (let () (declare (not safe)) (_lp57637_ _tl57659_)))))) - (if (let () (declare (not safe)) (##pair? _rest5764057648_)) - (let ((_hd5764557665_ - (let () (declare (not safe)) (##car _rest5764057648_))) - (_tl5764657667_ - (let () (declare (not safe)) (##cdr _rest5764057648_)))) - (let* ((_hd57670_ _hd5764557665_) (_tl57672_ _tl5764657667_)) + (lambda (_proc57507_ _lst57508_) + (let _lp57510_ ((_rest57512_ _lst57508_)) + (let* ((_rest5751357521_ _rest57512_) + (_else5751557529_ (lambda () '#f)) + (_K5751757535_ + (lambda (_tl57532_ _hd57533_) + (if (_proc57507_ _hd57533_) + _rest57512_ + (let () (declare (not safe)) (_lp57510_ _tl57532_)))))) + (if (let () (declare (not safe)) (##pair? _rest5751357521_)) + (let ((_hd5751857538_ + (let () (declare (not safe)) (##car _rest5751357521_))) + (_tl5751957540_ + (let () (declare (not safe)) (##cdr _rest5751357521_)))) + (let* ((_hd57543_ _hd5751857538_) (_tl57545_ _tl5751957540_)) (declare (not safe)) - (_K5764457662_ _tl57672_ _hd57670_))) - (let () (declare (not safe)) (_else5764257656_))))))) + (_K5751757535_ _tl57545_ _hd57543_))) + (let () (declare (not safe)) (_else5751557529_))))))) (define remove1 - (lambda (_el57587_ _lst57589_) - (let _lp57592_ ((_rest57595_ _lst57589_) (_r57597_ '())) - (let* ((_rest5759957607_ _rest57595_) - (_else5760157615_ (lambda () _lst57589_)) - (_K5760357622_ - (lambda (_rest57618_ _hd57619_) + (lambda (_el57460_ _lst57462_) + (let _lp57465_ ((_rest57468_ _lst57462_) (_r57470_ '())) + (let* ((_rest5747257480_ _rest57468_) + (_else5747457488_ (lambda () _lst57462_)) + (_K5747657495_ + (lambda (_rest57491_ _hd57492_) (if (let () (declare (not safe)) - (equal? _el57587_ _hd57619_)) + (equal? _el57460_ _hd57492_)) (let () (declare (not safe)) - (foldl1 cons _rest57618_ _r57597_)) - (let ((__tmp64172 + (foldl1 cons _rest57491_ _r57470_)) + (let ((__tmp64200 (let () (declare (not safe)) - (cons _hd57619_ _r57597_)))) + (cons _hd57492_ _r57470_)))) (declare (not safe)) - (_lp57592_ _rest57618_ __tmp64172)))))) - (if (let () (declare (not safe)) (##pair? _rest5759957607_)) - (let ((_hd5760457625_ - (let () (declare (not safe)) (##car _rest5759957607_))) - (_tl5760557627_ - (let () (declare (not safe)) (##cdr _rest5759957607_)))) - (let* ((_hd57630_ _hd5760457625_) - (_rest57632_ _tl5760557627_)) + (_lp57465_ _rest57491_ __tmp64200)))))) + (if (let () (declare (not safe)) (##pair? _rest5747257480_)) + (let ((_hd5747757498_ + (let () (declare (not safe)) (##car _rest5747257480_))) + (_tl5747857500_ + (let () (declare (not safe)) (##cdr _rest5747257480_)))) + (let* ((_hd57503_ _hd5747757498_) + (_rest57505_ _tl5747857500_)) (declare (not safe)) - (_K5760357622_ _rest57632_ _hd57630_))) - (let () (declare (not safe)) (_else5760157615_))))))) + (_K5747657495_ _rest57505_ _hd57503_))) + (let () (declare (not safe)) (_else5747457488_))))))) (define remv - (lambda (_el57540_ _lst57542_) - (let _lp57545_ ((_rest57548_ _lst57542_) (_r57550_ '())) - (let* ((_rest5755257560_ _rest57548_) - (_else5755457568_ (lambda () _lst57542_)) - (_K5755657575_ - (lambda (_rest57571_ _hd57572_) + (lambda (_el57413_ _lst57415_) + (let _lp57418_ ((_rest57421_ _lst57415_) (_r57423_ '())) + (let* ((_rest5742557433_ _rest57421_) + (_else5742757441_ (lambda () _lst57415_)) + (_K5742957448_ + (lambda (_rest57444_ _hd57445_) (if (let () (declare (not safe)) - (eqv? _el57540_ _hd57572_)) + (eqv? _el57413_ _hd57445_)) (let () (declare (not safe)) - (foldl1 cons _rest57571_ _r57550_)) - (let ((__tmp64173 + (foldl1 cons _rest57444_ _r57423_)) + (let ((__tmp64201 (let () (declare (not safe)) - (cons _hd57572_ _r57550_)))) + (cons _hd57445_ _r57423_)))) (declare (not safe)) - (_lp57545_ _rest57571_ __tmp64173)))))) - (if (let () (declare (not safe)) (##pair? _rest5755257560_)) - (let ((_hd5755757578_ - (let () (declare (not safe)) (##car _rest5755257560_))) - (_tl5755857580_ - (let () (declare (not safe)) (##cdr _rest5755257560_)))) - (let* ((_hd57583_ _hd5755757578_) - (_rest57585_ _tl5755857580_)) + (_lp57418_ _rest57444_ __tmp64201)))))) + (if (let () (declare (not safe)) (##pair? _rest5742557433_)) + (let ((_hd5743057451_ + (let () (declare (not safe)) (##car _rest5742557433_))) + (_tl5743157453_ + (let () (declare (not safe)) (##cdr _rest5742557433_)))) + (let* ((_hd57456_ _hd5743057451_) + (_rest57458_ _tl5743157453_)) (declare (not safe)) - (_K5755657575_ _rest57585_ _hd57583_))) - (let () (declare (not safe)) (_else5755457568_))))))) + (_K5742957448_ _rest57458_ _hd57456_))) + (let () (declare (not safe)) (_else5742757441_))))))) (define remq - (lambda (_el57493_ _lst57495_) - (let _lp57498_ ((_rest57501_ _lst57495_) (_r57503_ '())) - (let* ((_rest5750557513_ _rest57501_) - (_else5750757521_ (lambda () _lst57495_)) - (_K5750957528_ - (lambda (_rest57524_ _hd57525_) - (if (let () (declare (not safe)) (eq? _el57493_ _hd57525_)) + (lambda (_el57366_ _lst57368_) + (let _lp57371_ ((_rest57374_ _lst57368_) (_r57376_ '())) + (let* ((_rest5737857386_ _rest57374_) + (_else5738057394_ (lambda () _lst57368_)) + (_K5738257401_ + (lambda (_rest57397_ _hd57398_) + (if (let () (declare (not safe)) (eq? _el57366_ _hd57398_)) (let () (declare (not safe)) - (foldl1 cons _rest57524_ _r57503_)) - (let ((__tmp64174 + (foldl1 cons _rest57397_ _r57376_)) + (let ((__tmp64202 (let () (declare (not safe)) - (cons _hd57525_ _r57503_)))) + (cons _hd57398_ _r57376_)))) (declare (not safe)) - (_lp57498_ _rest57524_ __tmp64174)))))) - (if (let () (declare (not safe)) (##pair? _rest5750557513_)) - (let ((_hd5751057531_ - (let () (declare (not safe)) (##car _rest5750557513_))) - (_tl5751157533_ - (let () (declare (not safe)) (##cdr _rest5750557513_)))) - (let* ((_hd57536_ _hd5751057531_) - (_rest57538_ _tl5751157533_)) + (_lp57371_ _rest57397_ __tmp64202)))))) + (if (let () (declare (not safe)) (##pair? _rest5737857386_)) + (let ((_hd5738357404_ + (let () (declare (not safe)) (##car _rest5737857386_))) + (_tl5738457406_ + (let () (declare (not safe)) (##cdr _rest5737857386_)))) + (let* ((_hd57409_ _hd5738357404_) + (_rest57411_ _tl5738457406_)) (declare (not safe)) - (_K5750957528_ _rest57538_ _hd57536_))) - (let () (declare (not safe)) (_else5750757521_))))))) + (_K5738257401_ _rest57411_ _hd57409_))) + (let () (declare (not safe)) (_else5738057394_))))))) (define remf - (lambda (_proc57452_ _lst57453_) - (let _lp57455_ ((_rest57457_ _lst57453_) (_r57458_ '())) - (let* ((_rest5745957467_ _rest57457_) - (_else5746157475_ (lambda () _lst57453_)) - (_K5746357481_ - (lambda (_rest57478_ _hd57479_) - (if (_proc57452_ _hd57479_) + (lambda (_proc57325_ _lst57326_) + (let _lp57328_ ((_rest57330_ _lst57326_) (_r57331_ '())) + (let* ((_rest5733257340_ _rest57330_) + (_else5733457348_ (lambda () _lst57326_)) + (_K5733657354_ + (lambda (_rest57351_ _hd57352_) + (if (_proc57325_ _hd57352_) (let () (declare (not safe)) - (foldl1 cons _rest57478_ _r57458_)) - (let ((__tmp64175 + (foldl1 cons _rest57351_ _r57331_)) + (let ((__tmp64203 (let () (declare (not safe)) - (cons _hd57479_ _r57458_)))) + (cons _hd57352_ _r57331_)))) (declare (not safe)) - (_lp57455_ _rest57478_ __tmp64175)))))) - (if (let () (declare (not safe)) (##pair? _rest5745957467_)) - (let ((_hd5746457484_ - (let () (declare (not safe)) (##car _rest5745957467_))) - (_tl5746557486_ - (let () (declare (not safe)) (##cdr _rest5745957467_)))) - (let* ((_hd57489_ _hd5746457484_) - (_rest57491_ _tl5746557486_)) + (_lp57328_ _rest57351_ __tmp64203)))))) + (if (let () (declare (not safe)) (##pair? _rest5733257340_)) + (let ((_hd5733757357_ + (let () (declare (not safe)) (##car _rest5733257340_))) + (_tl5733857359_ + (let () (declare (not safe)) (##cdr _rest5733257340_)))) + (let* ((_hd57362_ _hd5733757357_) + (_rest57364_ _tl5733857359_)) (declare (not safe)) - (_K5746357481_ _rest57491_ _hd57489_))) - (let () (declare (not safe)) (_else5746157475_))))))) - (define 1+ (lambda (_x57450_) (+ _x57450_ '1))) - (define 1- (lambda (_x57448_) (- _x57448_ '1))) - (define fx1+ (lambda (_x57446_) (fx+ _x57446_ '1))) - (define fx1- (lambda (_x57444_) (fx- _x57444_ '1))) + (_K5733657354_ _rest57364_ _hd57362_))) + (let () (declare (not safe)) (_else5733457348_))))))) + (define 1+ (lambda (_x57323_) (+ _x57323_ '1))) + (define 1- (lambda (_x57321_) (- _x57321_ '1))) + (define fx1+ (lambda (_x57319_) (fx+ _x57319_ '1))) + (define fx1- (lambda (_x57317_) (fx- _x57317_ '1))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) (define fx>=0? - (lambda (_x57442_) - (if (fixnum? _x57442_) - (let () (declare (not safe)) (##fx>= _x57442_ '0)) + (lambda (_x57315_) + (if (fixnum? _x57315_) + (let () (declare (not safe)) (##fx>= _x57315_ '0)) '#f))) (define fx>0? - (lambda (_x57440_) - (if (fixnum? _x57440_) - (let () (declare (not safe)) (##fx> _x57440_ '0)) + (lambda (_x57313_) + (if (fixnum? _x57313_) + (let () (declare (not safe)) (##fx> _x57313_ '0)) '#f))) (define fx=0? - (lambda (_x57438_) (let () (declare (not safe)) (eq? _x57438_ '0)))) + (lambda (_x57311_) (let () (declare (not safe)) (eq? _x57311_ '0)))) (define fx<0? - (lambda (_x57436_) - (if (fixnum? _x57436_) - (let () (declare (not safe)) (##fx< _x57436_ '0)) + (lambda (_x57309_) + (if (fixnum? _x57309_) + (let () (declare (not safe)) (##fx< _x57309_ '0)) '#f))) (define fx<=0? - (lambda (_x57434_) - (if (fixnum? _x57434_) - (let () (declare (not safe)) (##fx<= _x57434_ '0)) + (lambda (_x57307_) + (if (fixnum? _x57307_) + (let () (declare (not safe)) (##fx<= _x57307_ '0)) '#f))) (define interned-symbol? - (lambda (_x57432_) - (if (let () (declare (not safe)) (symbol? _x57432_)) - (let ((__tmp64176 (uninterned-symbol? _x57432_))) + (lambda (_x57305_) + (if (let () (declare (not safe)) (symbol? _x57305_)) + (let ((__tmp64204 (uninterned-symbol? _x57305_))) (declare (not safe)) - (not __tmp64176)) + (not __tmp64204)) '#f))) (define display-as-string - (lambda (_x57404_ _port57405_) - (if (or (let () (declare (not safe)) (string? _x57404_)) - (let () (declare (not safe)) (symbol? _x57404_)) - (keyword? _x57404_) - (let () (declare (not safe)) (number? _x57404_)) - (let () (declare (not safe)) (char? _x57404_))) - (display _x57404_ _port57405_) - (if (let () (declare (not safe)) (pair? _x57404_)) + (lambda (_x57277_ _port57278_) + (if (or (let () (declare (not safe)) (string? _x57277_)) + (let () (declare (not safe)) (symbol? _x57277_)) + (keyword? _x57277_) + (let () (declare (not safe)) (number? _x57277_)) + (let () (declare (not safe)) (char? _x57277_))) + (display _x57277_ _port57278_) + (if (let () (declare (not safe)) (pair? _x57277_)) (begin - (let ((__tmp64177 (car _x57404_))) + (let ((__tmp64205 (car _x57277_))) (declare (not safe)) - (display-as-string __tmp64177 _port57405_)) - (let ((__tmp64178 (cdr _x57404_))) + (display-as-string __tmp64205 _port57278_)) + (let ((__tmp64206 (cdr _x57277_))) (declare (not safe)) - (display-as-string __tmp64178 _port57405_))) - (if (let () (declare (not safe)) (vector? _x57404_)) + (display-as-string __tmp64206 _port57278_))) + (if (let () (declare (not safe)) (vector? _x57277_)) (vector-for-each - (lambda (_g5741857420_) + (lambda (_g5729157293_) (let () (declare (not safe)) - (display-as-string _g5741857420_ _port57405_))) - _x57404_) - (if (or (let () (declare (not safe)) (null? _x57404_)) + (display-as-string _g5729157293_ _port57278_))) + _x57277_) + (if (or (let () (declare (not safe)) (null? _x57277_)) (let () (declare (not safe)) - (eq? _x57404_ '#!void)) + (eq? _x57277_ '#!void)) (let () (declare (not safe)) - (eof-object? _x57404_)) - (let () (declare (not safe)) (boolean? _x57404_))) + (eof-object? _x57277_)) + (let () (declare (not safe)) (boolean? _x57277_))) '#!void - (error '"cannot convert as string" _x57404_))))))) + (error '"cannot convert as string" _x57277_))))))) (define as-string__0 - (lambda (_x57392_) - (if (let () (declare (not safe)) (string? _x57392_)) - _x57392_ - (if (let () (declare (not safe)) (symbol? _x57392_)) - (symbol->string _x57392_) - (if (keyword? _x57392_) - (keyword->string _x57392_) + (lambda (_x57265_) + (if (let () (declare (not safe)) (string? _x57265_)) + _x57265_ + (if (let () (declare (not safe)) (symbol? _x57265_)) + (symbol->string _x57265_) + (if (keyword? _x57265_) + (keyword->string _x57265_) (call-with-output-string '() - (lambda (_g5739357395_) + (lambda (_g5726657268_) (let () (declare (not safe)) - (display-as-string _x57392_ _g5739357395_))))))))) + (display-as-string _x57265_ _g5726657268_))))))))) (define as-string__1 - (lambda _args57398_ + (lambda _args57271_ (call-with-output-string '() - (lambda (_g5739957401_) + (lambda (_g5727257274_) (let () (declare (not safe)) - (display-as-string _args57398_ _g5739957401_)))))) + (display-as-string _args57271_ _g5727257274_)))))) (define as-string - (lambda _g64180_ - (let ((_g64179_ (let () (declare (not safe)) (##length _g64180_)))) - (cond ((let () (declare (not safe)) (##fx= _g64179_ 1)) - (apply (lambda (_x57392_) + (lambda _g64208_ + (let ((_g64207_ (let () (declare (not safe)) (##length _g64208_)))) + (cond ((let () (declare (not safe)) (##fx= _g64207_ 1)) + (apply (lambda (_x57265_) (let () (declare (not safe)) - (as-string__0 _x57392_))) - _g64180_)) - (#t (apply as-string__1 _g64180_)) + (as-string__0 _x57265_))) + _g64208_)) + (#t (apply as-string__1 _g64208_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g64180_)))))) + _g64208_)))))) (define make-symbol__0 - (lambda (_x57388_) - (if (interned-symbol? _x57388_) - _x57388_ + (lambda (_x57261_) + (if (interned-symbol? _x57261_) + _x57261_ (string->symbol - (let () (declare (not safe)) (as-string__0 _x57388_)))))) + (let () (declare (not safe)) (as-string__0 _x57261_)))))) (define make-symbol__1 - (lambda _args57390_ (string->symbol (apply as-string _args57390_)))) + (lambda _args57263_ (string->symbol (apply as-string _args57263_)))) (define make-symbol - (lambda _g64182_ - (let ((_g64181_ (let () (declare (not safe)) (##length _g64182_)))) - (cond ((let () (declare (not safe)) (##fx= _g64181_ 1)) - (apply (lambda (_x57388_) + (lambda _g64210_ + (let ((_g64209_ (let () (declare (not safe)) (##length _g64210_)))) + (cond ((let () (declare (not safe)) (##fx= _g64209_ 1)) + (apply (lambda (_x57261_) (let () (declare (not safe)) - (make-symbol__0 _x57388_))) - _g64182_)) - (#t (apply make-symbol__1 _g64182_)) + (make-symbol__0 _x57261_))) + _g64210_)) + (#t (apply make-symbol__1 _g64210_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g64182_)))))) + _g64210_)))))) (define make-keyword__0 - (lambda (_x57384_) - (if (interned-keyword? _x57384_) - _x57384_ + (lambda (_x57257_) + (if (interned-keyword? _x57257_) + _x57257_ (string->keyword - (let () (declare (not safe)) (as-string__0 _x57384_)))))) + (let () (declare (not safe)) (as-string__0 _x57257_)))))) (define make-keyword__1 - (lambda _args57386_ (string->keyword (apply as-string _args57386_)))) + (lambda _args57259_ (string->keyword (apply as-string _args57259_)))) (define make-keyword - (lambda _g64184_ - (let ((_g64183_ (let () (declare (not safe)) (##length _g64184_)))) - (cond ((let () (declare (not safe)) (##fx= _g64183_ 1)) - (apply (lambda (_x57384_) + (lambda _g64212_ + (let ((_g64211_ (let () (declare (not safe)) (##length _g64212_)))) + (cond ((let () (declare (not safe)) (##fx= _g64211_ 1)) + (apply (lambda (_x57257_) (let () (declare (not safe)) - (make-keyword__0 _x57384_))) - _g64184_)) - (#t (apply make-keyword__1 _g64184_)) + (make-keyword__0 _x57257_))) + _g64212_)) + (#t (apply make-keyword__1 _g64212_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g64184_)))))) + _g64212_)))))) (define interned-keyword? - (lambda (_x57382_) - (if (keyword? _x57382_) - (let ((__tmp64185 (uninterned-keyword? _x57382_))) + (lambda (_x57255_) + (if (keyword? _x57255_) + (let ((__tmp64213 (uninterned-keyword? _x57255_))) (declare (not safe)) - (not __tmp64185)) + (not __tmp64213)) '#f))) (define symbol->keyword - (lambda (_sym57380_) - ((if (uninterned-symbol? _sym57380_) + (lambda (_sym57253_) + ((if (uninterned-symbol? _sym57253_) string->uninterned-keyword string->keyword) - (symbol->string _sym57380_)))) + (symbol->string _sym57253_)))) (define keyword->symbol - (lambda (_kw57378_) - ((if (uninterned-keyword? _kw57378_) + (lambda (_kw57251_) + ((if (uninterned-keyword? _kw57251_) string->uninterned-symbol string->symbol) - (keyword->string _kw57378_)))) + (keyword->string _kw57251_)))) (define bytes->string__% - (lambda (_bstr57356_ _enc57357_) - (if (let () (declare (not safe)) (eq? _enc57357_ 'UTF-8)) - (utf8->string _bstr57356_) - (let* ((_in57359_ + (lambda (_bstr57229_ _enc57230_) + (if (let () (declare (not safe)) (eq? _enc57230_ 'UTF-8)) + (utf8->string _bstr57229_) + (let* ((_in57232_ (open-input-u8vector - (let ((__tmp64186 - (let ((__tmp64187 - (let ((__tmp64188 + (let ((__tmp64214 + (let ((__tmp64215 + (let ((__tmp64216 (let () (declare (not safe)) - (cons _bstr57356_ '())))) + (cons _bstr57229_ '())))) (declare (not safe)) - (cons 'init: __tmp64188)))) + (cons 'init: __tmp64216)))) (declare (not safe)) - (cons _enc57357_ __tmp64187)))) + (cons _enc57230_ __tmp64215)))) (declare (not safe)) - (cons 'char-encoding: __tmp64186)))) - (_len57361_ (u8vector-length _bstr57356_)) - (_out57363_ (make-string _len57361_)) - (_n57365_ - (read-substring _out57363_ '0 _len57361_ _in57359_))) - (string-shrink! _out57363_ _n57365_) - _out57363_)))) + (cons 'char-encoding: __tmp64214)))) + (_len57234_ (u8vector-length _bstr57229_)) + (_out57236_ (make-string _len57234_)) + (_n57238_ + (read-substring _out57236_ '0 _len57234_ _in57232_))) + (string-shrink! _out57236_ _n57238_) + _out57236_)))) (define bytes->string__0 - (lambda (_bstr57371_) - (let ((_enc57373_ 'UTF-8)) + (lambda (_bstr57244_) + (let ((_enc57246_ 'UTF-8)) (declare (not safe)) - (bytes->string__% _bstr57371_ _enc57373_)))) + (bytes->string__% _bstr57244_ _enc57246_)))) (define bytes->string - (lambda _g64190_ - (let ((_g64189_ (let () (declare (not safe)) (##length _g64190_)))) - (cond ((let () (declare (not safe)) (##fx= _g64189_ 1)) - (apply (lambda (_bstr57371_) + (lambda _g64218_ + (let ((_g64217_ (let () (declare (not safe)) (##length _g64218_)))) + (cond ((let () (declare (not safe)) (##fx= _g64217_ 1)) + (apply (lambda (_bstr57244_) (let () (declare (not safe)) - (bytes->string__0 _bstr57371_))) - _g64190_)) - ((let () (declare (not safe)) (##fx= _g64189_ 2)) - (apply (lambda (_bstr57375_ _enc57376_) + (bytes->string__0 _bstr57244_))) + _g64218_)) + ((let () (declare (not safe)) (##fx= _g64217_ 2)) + (apply (lambda (_bstr57248_ _enc57249_) (let () (declare (not safe)) - (bytes->string__% _bstr57375_ _enc57376_))) - _g64190_)) + (bytes->string__% _bstr57248_ _enc57249_))) + _g64218_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g64190_)))))) + _g64218_)))))) (define string->bytes__% - (lambda (_str57342_ _enc57343_) - (if (let () (declare (not safe)) (eq? _enc57343_ 'UTF-8)) - (string->utf8 _str57342_) + (lambda (_str57215_ _enc57216_) + (if (let () (declare (not safe)) (eq? _enc57216_ 'UTF-8)) + (string->utf8 _str57215_) (substring->bytes - _str57342_ + _str57215_ '0 - (string-length _str57342_) - _enc57343_)))) + (string-length _str57215_) + _enc57216_)))) (define string->bytes__0 - (lambda (_str57348_) - (let ((_enc57350_ 'UTF-8)) + (lambda (_str57221_) + (let ((_enc57223_ 'UTF-8)) (declare (not safe)) - (string->bytes__% _str57348_ _enc57350_)))) + (string->bytes__% _str57221_ _enc57223_)))) (define string->bytes - (lambda _g64192_ - (let ((_g64191_ (let () (declare (not safe)) (##length _g64192_)))) - (cond ((let () (declare (not safe)) (##fx= _g64191_ 1)) - (apply (lambda (_str57348_) + (lambda _g64220_ + (let ((_g64219_ (let () (declare (not safe)) (##length _g64220_)))) + (cond ((let () (declare (not safe)) (##fx= _g64219_ 1)) + (apply (lambda (_str57221_) (let () (declare (not safe)) - (string->bytes__0 _str57348_))) - _g64192_)) - ((let () (declare (not safe)) (##fx= _g64191_ 2)) - (apply (lambda (_str57352_ _enc57353_) + (string->bytes__0 _str57221_))) + _g64220_)) + ((let () (declare (not safe)) (##fx= _g64219_ 2)) + (apply (lambda (_str57225_ _enc57226_) (let () (declare (not safe)) - (string->bytes__% _str57352_ _enc57353_))) - _g64192_)) + (string->bytes__% _str57225_ _enc57226_))) + _g64220_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g64192_)))))) + _g64220_)))))) (define substring->bytes__% - (lambda (_str57320_ _start57321_ _end57322_ _enc57323_) - (if (let () (declare (not safe)) (eq? _enc57323_ 'UTF-8)) - (string->utf8 _str57320_ _start57321_ _end57322_) - (let ((_out57325_ + (lambda (_str57193_ _start57194_ _end57195_ _enc57196_) + (if (let () (declare (not safe)) (eq? _enc57196_ 'UTF-8)) + (string->utf8 _str57193_ _start57194_ _end57195_) + (let ((_out57198_ (open-output-u8vector - (let ((__tmp64193 + (let ((__tmp64221 (let () (declare (not safe)) - (cons _enc57323_ '())))) + (cons _enc57196_ '())))) (declare (not safe)) - (cons 'char-encoding: __tmp64193))))) - (write-substring _str57320_ _start57321_ _end57322_ _out57325_) - (get-output-u8vector _out57325_))))) + (cons 'char-encoding: __tmp64221))))) + (write-substring _str57193_ _start57194_ _end57195_ _out57198_) + (get-output-u8vector _out57198_))))) (define substring->bytes__0 - (lambda (_str57330_ _start57331_ _end57332_) - (let ((_enc57334_ 'UTF-8)) + (lambda (_str57203_ _start57204_ _end57205_) + (let ((_enc57207_ 'UTF-8)) (declare (not safe)) (substring->bytes__% - _str57330_ - _start57331_ - _end57332_ - _enc57334_)))) + _str57203_ + _start57204_ + _end57205_ + _enc57207_)))) (define substring->bytes - (lambda _g64195_ - (let ((_g64194_ (let () (declare (not safe)) (##length _g64195_)))) - (cond ((let () (declare (not safe)) (##fx= _g64194_ 3)) - (apply (lambda (_str57330_ _start57331_ _end57332_) + (lambda _g64223_ + (let ((_g64222_ (let () (declare (not safe)) (##length _g64223_)))) + (cond ((let () (declare (not safe)) (##fx= _g64222_ 3)) + (apply (lambda (_str57203_ _start57204_ _end57205_) (let () (declare (not safe)) (substring->bytes__0 - _str57330_ - _start57331_ - _end57332_))) - _g64195_)) - ((let () (declare (not safe)) (##fx= _g64194_ 4)) - (apply (lambda (_str57336_ _start57337_ _end57338_ _enc57339_) + _str57203_ + _start57204_ + _end57205_))) + _g64223_)) + ((let () (declare (not safe)) (##fx= _g64222_ 4)) + (apply (lambda (_str57209_ _start57210_ _end57211_ _enc57212_) (let () (declare (not safe)) (substring->bytes__% - _str57336_ - _start57337_ - _end57338_ - _enc57339_))) - _g64195_)) + _str57209_ + _start57210_ + _end57211_ + _enc57212_))) + _g64223_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g64195_)))))) + _g64223_)))))) (define string-empty? - (lambda (_str57317_) - (let ((__tmp64196 (string-length _str57317_))) + (lambda (_str57190_) + (let ((__tmp64224 (string-length _str57190_))) (declare (not safe)) - (##fxzero? __tmp64196)))) + (##fxzero? __tmp64224)))) (define string-prefix? - (lambda (_prefix57307_ _str57308_) - (let ((_str-len57310_ (string-length _str57308_)) - (_prefix-len57311_ (string-length _prefix57307_))) + (lambda (_prefix57180_ _str57181_) + (let ((_str-len57183_ (string-length _str57181_)) + (_prefix-len57184_ (string-length _prefix57180_))) (if (let () (declare (not safe)) - (##fx<= _prefix-len57311_ _str-len57310_)) - (let _lp57313_ ((_i57315_ '0)) + (##fx<= _prefix-len57184_ _str-len57183_)) + (let _lp57186_ ((_i57188_ '0)) (if (let () (declare (not safe)) - (##fx< _i57315_ _prefix-len57311_)) - (if (let ((__tmp64199 + (##fx< _i57188_ _prefix-len57184_)) + (if (let ((__tmp64227 (let () (declare (not safe)) - (##string-ref _str57308_ _i57315_))) - (__tmp64198 + (##string-ref _str57181_ _i57188_))) + (__tmp64226 (let () (declare (not safe)) - (##string-ref _prefix57307_ _i57315_)))) + (##string-ref _prefix57180_ _i57188_)))) (declare (not safe)) - (eq? __tmp64199 __tmp64198)) - (let ((__tmp64197 + (eq? __tmp64227 __tmp64226)) + (let ((__tmp64225 (let () (declare (not safe)) - (##fx+ _i57315_ '1)))) + (##fx+ _i57188_ '1)))) (declare (not safe)) - (_lp57313_ __tmp64197)) + (_lp57186_ __tmp64225)) '#f) '#t)) '#f)))) (define string-index__% - (lambda (_str57285_ _char57286_ _start57287_) - (let ((_len57289_ (string-length _str57285_))) - (let _lp57291_ ((_k57293_ _start57287_)) - (if (let () (declare (not safe)) (##fx< _k57293_ _len57289_)) - (if (let ((__tmp64201 + (lambda (_str57158_ _char57159_ _start57160_) + (let ((_len57162_ (string-length _str57158_))) + (let _lp57164_ ((_k57166_ _start57160_)) + (if (let () (declare (not safe)) (##fx< _k57166_ _len57162_)) + (if (let ((__tmp64229 (let () (declare (not safe)) - (##string-ref _str57285_ _k57293_)))) + (##string-ref _str57158_ _k57166_)))) (declare (not safe)) - (eq? _char57286_ __tmp64201)) - _k57293_ - (let ((__tmp64200 - (let () (declare (not safe)) (##fx+ _k57293_ '1)))) + (eq? _char57159_ __tmp64229)) + _k57166_ + (let ((__tmp64228 + (let () (declare (not safe)) (##fx+ _k57166_ '1)))) (declare (not safe)) - (_lp57291_ __tmp64200))) + (_lp57164_ __tmp64228))) '#f))))) (define string-index__0 - (lambda (_str57298_ _char57299_) - (let ((_start57301_ '0)) + (lambda (_str57171_ _char57172_) + (let ((_start57174_ '0)) (declare (not safe)) - (string-index__% _str57298_ _char57299_ _start57301_)))) + (string-index__% _str57171_ _char57172_ _start57174_)))) (define string-index - (lambda _g64203_ - (let ((_g64202_ (let () (declare (not safe)) (##length _g64203_)))) - (cond ((let () (declare (not safe)) (##fx= _g64202_ 2)) - (apply (lambda (_str57298_ _char57299_) + (lambda _g64231_ + (let ((_g64230_ (let () (declare (not safe)) (##length _g64231_)))) + (cond ((let () (declare (not safe)) (##fx= _g64230_ 2)) + (apply (lambda (_str57171_ _char57172_) (let () (declare (not safe)) - (string-index__0 _str57298_ _char57299_))) - _g64203_)) - ((let () (declare (not safe)) (##fx= _g64202_ 3)) - (apply (lambda (_str57303_ _char57304_ _start57305_) + (string-index__0 _str57171_ _char57172_))) + _g64231_)) + ((let () (declare (not safe)) (##fx= _g64230_ 3)) + (apply (lambda (_str57176_ _char57177_ _start57178_) (let () (declare (not safe)) (string-index__% - _str57303_ - _char57304_ - _start57305_))) - _g64203_)) + _str57176_ + _char57177_ + _start57178_))) + _g64231_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g64203_)))))) + _g64231_)))))) (define string-rindex__% - (lambda (_str57256_ _char57257_ _start57258_) - (let* ((_len57260_ (string-length _str57256_)) - (_start57265_ - (let ((_$e57262_ _start57258_)) - (if _$e57262_ - _$e57262_ - (let () (declare (not safe)) (##fx- _len57260_ '1)))))) - (let _lp57268_ ((_k57270_ _start57265_)) - (if (let () (declare (not safe)) (##fx>= _k57270_ '0)) - (if (let ((__tmp64205 + (lambda (_str57129_ _char57130_ _start57131_) + (let* ((_len57133_ (string-length _str57129_)) + (_start57138_ + (let ((_$e57135_ _start57131_)) + (if _$e57135_ + _$e57135_ + (let () (declare (not safe)) (##fx- _len57133_ '1)))))) + (let _lp57141_ ((_k57143_ _start57138_)) + (if (let () (declare (not safe)) (##fx>= _k57143_ '0)) + (if (let ((__tmp64233 (let () (declare (not safe)) - (##string-ref _str57256_ _k57270_)))) + (##string-ref _str57129_ _k57143_)))) (declare (not safe)) - (eq? _char57257_ __tmp64205)) - _k57270_ - (let ((__tmp64204 - (let () (declare (not safe)) (##fx- _k57270_ '1)))) + (eq? _char57130_ __tmp64233)) + _k57143_ + (let ((__tmp64232 + (let () (declare (not safe)) (##fx- _k57143_ '1)))) (declare (not safe)) - (_lp57268_ __tmp64204))) + (_lp57141_ __tmp64232))) '#f))))) (define string-rindex__0 - (lambda (_str57275_ _char57276_) - (let ((_start57278_ '#f)) + (lambda (_str57148_ _char57149_) + (let ((_start57151_ '#f)) (declare (not safe)) - (string-rindex__% _str57275_ _char57276_ _start57278_)))) + (string-rindex__% _str57148_ _char57149_ _start57151_)))) (define string-rindex - (lambda _g64207_ - (let ((_g64206_ (let () (declare (not safe)) (##length _g64207_)))) - (cond ((let () (declare (not safe)) (##fx= _g64206_ 2)) - (apply (lambda (_str57275_ _char57276_) + (lambda _g64235_ + (let ((_g64234_ (let () (declare (not safe)) (##length _g64235_)))) + (cond ((let () (declare (not safe)) (##fx= _g64234_ 2)) + (apply (lambda (_str57148_ _char57149_) (let () (declare (not safe)) - (string-rindex__0 _str57275_ _char57276_))) - _g64207_)) - ((let () (declare (not safe)) (##fx= _g64206_ 3)) - (apply (lambda (_str57280_ _char57281_ _start57282_) + (string-rindex__0 _str57148_ _char57149_))) + _g64235_)) + ((let () (declare (not safe)) (##fx= _g64234_ 3)) + (apply (lambda (_str57153_ _char57154_ _start57155_) (let () (declare (not safe)) (string-rindex__% - _str57280_ - _char57281_ - _start57282_))) - _g64207_)) + _str57153_ + _char57154_ + _start57155_))) + _g64235_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g64207_)))))) + _g64235_)))))) (define string-split - (lambda (_str57240_ _char57241_) - (let ((_len57243_ (string-length _str57240_))) - (let _lp57245_ ((_start57247_ '0) (_r57248_ '())) - (let ((_$e57250_ + (lambda (_str57113_ _char57114_) + (let ((_len57116_ (string-length _str57113_))) + (let _lp57118_ ((_start57120_ '0) (_r57121_ '())) + (let ((_$e57123_ (let () (declare (not safe)) - (string-index _str57240_ _char57241_ _start57247_)))) - (if _$e57250_ - ((lambda (_end57253_) - (let ((__tmp64211 + (string-index _str57113_ _char57114_ _start57120_)))) + (if _$e57123_ + ((lambda (_end57126_) + (let ((__tmp64239 (let () (declare (not safe)) - (##fx+ _end57253_ '1))) - (__tmp64209 - (let ((__tmp64210 + (##fx+ _end57126_ '1))) + (__tmp64237 + (let ((__tmp64238 (let () (declare (not safe)) (##substring - _str57240_ - _start57247_ - _end57253_)))) + _str57113_ + _start57120_ + _end57126_)))) (declare (not safe)) - (cons __tmp64210 _r57248_)))) + (cons __tmp64238 _r57121_)))) (declare (not safe)) - (_lp57245_ __tmp64211 __tmp64209))) - _$e57250_) + (_lp57118_ __tmp64239 __tmp64237))) + _$e57123_) (if (let () (declare (not safe)) - (##fx< _start57247_ _len57243_)) - (let ((__tmp64208 + (##fx< _start57120_ _len57116_)) + (let ((__tmp64236 (list (let () (declare (not safe)) (##substring - _str57240_ - _start57247_ - _len57243_))))) + _str57113_ + _start57120_ + _len57116_))))) (declare (not safe)) - (foldl1 cons __tmp64208 _r57248_)) - (reverse _r57248_)))))))) + (foldl1 cons __tmp64236 _r57121_)) + (reverse _r57121_)))))))) (define string-join - (lambda (_strs57145_ _join57146_) - (letrec ((_join-length57148_ - (lambda (_strs57199_ _jlen57200_) - (let _lp57202_ ((_rest57204_ _strs57199_) (_len57205_ '0)) - (let* ((_rest5720657214_ _rest57204_) - (_else5720857222_ (lambda () '0)) - (_K5721057228_ - (lambda (_rest57225_ _hd57226_) + (lambda (_strs57018_ _join57019_) + (letrec ((_join-length57021_ + (lambda (_strs57072_ _jlen57073_) + (let _lp57075_ ((_rest57077_ _strs57072_) (_len57078_ '0)) + (let* ((_rest5707957087_ _rest57077_) + (_else5708157095_ (lambda () '0)) + (_K5708357101_ + (lambda (_rest57098_ _hd57099_) (if (let () (declare (not safe)) - (string? _hd57226_)) + (string? _hd57099_)) (if (let () (declare (not safe)) - (pair? _rest57225_)) - (let ((__tmp64213 - (let ((__tmp64214 + (pair? _rest57098_)) + (let ((__tmp64241 + (let ((__tmp64242 (let () (declare (not safe)) (##string-length - _hd57226_)))) + _hd57099_)))) (declare (not safe)) - (##fx+ __tmp64214 - _jlen57200_ - _len57205_)))) + (##fx+ __tmp64242 + _jlen57073_ + _len57078_)))) (declare (not safe)) - (_lp57202_ _rest57225_ __tmp64213)) - (let ((__tmp64212 + (_lp57075_ _rest57098_ __tmp64241)) + (let ((__tmp64240 (let () (declare (not safe)) - (##string-length _hd57226_)))) + (##string-length _hd57099_)))) (declare (not safe)) - (##fx+ __tmp64212 _len57205_))) - (error '"expected string" _hd57226_))))) + (##fx+ __tmp64240 _len57078_))) + (error '"expected string" _hd57099_))))) (if (let () (declare (not safe)) - (##pair? _rest5720657214_)) - (let ((_hd5721157231_ + (##pair? _rest5707957087_)) + (let ((_hd5708457104_ (let () (declare (not safe)) - (##car _rest5720657214_))) - (_tl5721257233_ + (##car _rest5707957087_))) + (_tl5708557106_ (let () (declare (not safe)) - (##cdr _rest5720657214_)))) - (let* ((_hd57236_ _hd5721157231_) - (_rest57238_ _tl5721257233_)) + (##cdr _rest5707957087_)))) + (let* ((_hd57109_ _hd5708457104_) + (_rest57111_ _tl5708557106_)) (declare (not safe)) - (_K5721057228_ _rest57238_ _hd57236_))) + (_K5708357101_ _rest57111_ _hd57109_))) (let () (declare (not safe)) - (_else5720857222_)))))))) - (let* ((_join57150_ - (if (let () (declare (not safe)) (char? _join57146_)) - (string _join57146_) - (if (let () (declare (not safe)) (string? _join57146_)) - _join57146_ - (error '"expected string or char" _join57146_)))) - (_jlen57152_ - (let () (declare (not safe)) (##string-length _join57150_))) - (_olen57154_ + (_else5708157095_)))))))) + (let* ((_join57023_ + (if (let () (declare (not safe)) (char? _join57019_)) + (string _join57019_) + (if (let () (declare (not safe)) (string? _join57019_)) + _join57019_ + (error '"expected string or char" _join57019_)))) + (_jlen57025_ + (let () (declare (not safe)) (##string-length _join57023_))) + (_olen57027_ (let () (declare (not safe)) - (_join-length57148_ _strs57145_ _jlen57152_))) - (_ostr57156_ (make-string _olen57154_))) - (let _lp57159_ ((_rest57161_ _strs57145_) (_k57162_ '0)) - (let* ((_rest5716357171_ _rest57161_) - (_else5716557179_ (lambda () '"")) - (_K5716757187_ - (lambda (_rest57182_ _hd57183_) - (let ((_hdlen57185_ + (_join-length57021_ _strs57018_ _jlen57025_))) + (_ostr57029_ (make-string _olen57027_))) + (let _lp57032_ ((_rest57034_ _strs57018_) (_k57035_ '0)) + (let* ((_rest5703657044_ _rest57034_) + (_else5703857052_ (lambda () '"")) + (_K5704057060_ + (lambda (_rest57055_ _hd57056_) + (let ((_hdlen57058_ (let () (declare (not safe)) - (##string-length _hd57183_)))) - (if (let () (declare (not safe)) (pair? _rest57182_)) + (##string-length _hd57056_)))) + (if (let () (declare (not safe)) (pair? _rest57055_)) (begin (let () (declare (not safe)) (##substring-move! - _hd57183_ + _hd57056_ '0 - _hdlen57185_ - _ostr57156_ - _k57162_)) - (let ((__tmp64215 + _hdlen57058_ + _ostr57029_ + _k57035_)) + (let ((__tmp64243 (let () (declare (not safe)) - (##fx+ _k57162_ _hdlen57185_)))) + (##fx+ _k57035_ _hdlen57058_)))) (declare (not safe)) (##substring-move! - _join57150_ + _join57023_ '0 - _jlen57152_ - _ostr57156_ - __tmp64215)) - (let ((__tmp64216 + _jlen57025_ + _ostr57029_ + __tmp64243)) + (let ((__tmp64244 (let () (declare (not safe)) - (##fx+ _k57162_ - _hdlen57185_ - _jlen57152_)))) + (##fx+ _k57035_ + _hdlen57058_ + _jlen57025_)))) (declare (not safe)) - (_lp57159_ _rest57182_ __tmp64216))) + (_lp57032_ _rest57055_ __tmp64244))) (begin (let () (declare (not safe)) (##substring-move! - _hd57183_ + _hd57056_ '0 - _hdlen57185_ - _ostr57156_ - _k57162_)) - _ostr57156_)))))) - (if (let () (declare (not safe)) (##pair? _rest5716357171_)) - (let ((_hd5716857190_ + _hdlen57058_ + _ostr57029_ + _k57035_)) + _ostr57029_)))))) + (if (let () (declare (not safe)) (##pair? _rest5703657044_)) + (let ((_hd5704157063_ (let () (declare (not safe)) - (##car _rest5716357171_))) - (_tl5716957192_ + (##car _rest5703657044_))) + (_tl5704257065_ (let () (declare (not safe)) - (##cdr _rest5716357171_)))) - (let* ((_hd57195_ _hd5716857190_) - (_rest57197_ _tl5716957192_)) + (##cdr _rest5703657044_)))) + (let* ((_hd57068_ _hd5704157063_) + (_rest57070_ _tl5704257065_)) (declare (not safe)) - (_K5716757187_ _rest57197_ _hd57195_))) - (let () (declare (not safe)) (_else5716557179_))))))))) + (_K5704057060_ _rest57070_ _hd57068_))) + (let () (declare (not safe)) (_else5703857052_))))))))) (define read-u8vector - (lambda (_bytes57142_ _port57143_) + (lambda (_bytes57015_ _port57016_) (read-subu8vector - _bytes57142_ + _bytes57015_ '0 - (u8vector-length _bytes57142_) - _port57143_))) + (u8vector-length _bytes57015_) + _port57016_))) (define write-u8vector - (lambda (_bytes57139_ _port57140_) + (lambda (_bytes57012_ _port57013_) (write-subu8vector - _bytes57139_ + _bytes57012_ '0 - (u8vector-length _bytes57139_) - _port57140_))) + (u8vector-length _bytes57012_) + _port57013_))) (define read-string - (lambda (_str57136_ _port57137_) - (read-substring _str57136_ '0 (string-length _str57136_) _port57137_))) + (lambda (_str57009_ _port57010_) + (read-substring _str57009_ '0 (string-length _str57009_) _port57010_))) (define write-string - (lambda (_str57133_ _port57134_) + (lambda (_str57006_ _port57007_) (write-substring - _str57133_ + _str57006_ '0 - (string-length _str57133_) - _port57134_))) + (string-length _str57006_) + _port57007_))) (define DBG-printer (make-parameter write)) (define DBG-helper - (lambda (_tag57104_ - _dbg-exprs57105_ - _dbg-thunks57106_ - _expr57107_ - _thunk57108_) - (letrec ((_fo57110_ - (lambda () - (force-output (current-error-port)) - (force-output (current-output-port)))) - (_d57111_ - (lambda (_x57119_) (display _x57119_ (current-error-port)))) - (_p57112_ (DBG-printer)) - (_w57113_ - (lambda (_x57121_) (_p57112_ _x57121_ (current-error-port)))) - (_n57114_ (lambda () (newline (current-error-port)))) - (_v57115_ - (lambda (_l57124_) + (lambda (_tag56975_ + _dbg-exprs56976_ + _dbg-thunks56977_ + _expr56978_ + _thunk56979_) + (letrec ((_o56981_ (current-output-port)) + (_e56982_ (current-error-port)) + (_p56983_ (DBG-printer)) + (_f56984_ + (lambda () (force-output _o56981_) (force-output _e56982_))) + (_d56985_ (lambda (_x56992_) (display _x56992_ _e56982_))) + (_w56986_ (lambda (_x56994_) (_p56983_ _x56994_ _e56982_))) + (_n56987_ (lambda () (newline _e56982_))) + (_v56988_ + (lambda (_l56997_) (for-each - (lambda (_x57126_) - (let () (declare (not safe)) (_d57111_ '" ")) - (let () (declare (not safe)) (_w57113_ _x57126_))) - _l57124_) - (let () (declare (not safe)) (_n57114_)))) - (_x57116_ - (lambda (_expr57128_ _thunk57129_) - (let () (declare (not safe)) (_d57111_ '" ")) - (let () (declare (not safe)) (_w57113_ _expr57128_)) - (let () (declare (not safe)) (_d57111_ '" =>")) + (lambda (_x56999_) + (let () (declare (not safe)) (_d56985_ '" ")) + (let () (declare (not safe)) (_w56986_ _x56999_))) + _l56997_) + (let () (declare (not safe)) (_n56987_)))) + (_x56989_ + (lambda (_expr57001_ _thunk57002_) + (let () (declare (not safe)) (_f56984_)) + (let () (declare (not safe)) (_d56985_ '" ")) + (let () (declare (not safe)) (_w56986_ _expr57001_)) + (let () (declare (not safe)) (_d56985_ '" =>")) (call-with-values - _thunk57129_ - (lambda _x57131_ - (let () (declare (not safe)) (_v57115_ _x57131_)) - (apply values _x57131_)))))) - (if _tag57104_ + _thunk57002_ + (lambda _x57004_ + (let () (declare (not safe)) (_v56988_ _x57004_)) + (let () (declare (not safe)) (_f56984_)) + (apply values _x57004_)))))) + (if _tag56975_ (begin - (if (let () (declare (not safe)) (eq? _tag57104_ '#!void)) + (if (let () (declare (not safe)) (eq? _tag56975_ '#!void)) '#!void (begin - (let () (declare (not safe)) (_d57111_ _tag57104_)) - (let () (declare (not safe)) (_n57114_)))) - (for-each _x57116_ _dbg-exprs57105_ _dbg-thunks57106_) - (if _thunk57108_ + (let () (declare (not safe)) (_f56984_)) + (let () (declare (not safe)) (_d56985_ _tag56975_)) + (let () (declare (not safe)) (_n56987_)))) + (for-each _x56989_ _dbg-exprs56976_ _dbg-thunks56977_) + (if _thunk56979_ (let () (declare (not safe)) - (_x57116_ _expr57107_ _thunk57108_)) + (_x56989_ _expr56978_ _thunk56979_)) '#!void)) - (if _thunk57108_ (_thunk57108_) '#!void))))))) + (if _thunk56979_ (_thunk56979_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util__1.scm b/src/bootstrap/gerbil/runtime/util__1.scm index ffa388533..acbfbb450 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]#_g64504_| + (define |[1]#_g64532_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |[1]#_g64505_| + (define |[1]#_g64533_| (##structure gx#syntax-quote::t 'quote @@ -16,2316 +16,2316 @@ '())) (begin (define |[:0:]#defassget| - (lambda (_$stx55683_) - (let* ((_g5568755705_ - (lambda (_g5568855701_) + (lambda (_$stx55554_) + (let* ((_g5555855576_ + (lambda (_g5555955572_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5568855701_))) - (_g5568655761_ - (lambda (_g5568855709_) - (if (gx#stx-pair? _g5568855709_) - (let ((_e5569355712_ (gx#syntax-e _g5568855709_))) - (let ((_hd5569255716_ + _g5555955572_))) + (_g5555755632_ + (lambda (_g5555955580_) + (if (gx#stx-pair? _g5555955580_) + (let ((_e5556455583_ (gx#syntax-e _g5555955580_))) + (let ((_hd5556355587_ (let () (declare (not safe)) - (##car _e5569355712_))) - (_tl5569155719_ + (##car _e5556455583_))) + (_tl5556255590_ (let () (declare (not safe)) - (##cdr _e5569355712_)))) - (if (gx#stx-pair? _tl5569155719_) - (let ((_e5569655722_ - (gx#syntax-e _tl5569155719_))) - (let ((_hd5569555726_ + (##cdr _e5556455583_)))) + (if (gx#stx-pair? _tl5556255590_) + (let ((_e5556755593_ + (gx#syntax-e _tl5556255590_))) + (let ((_hd5556655597_ (let () (declare (not safe)) - (##car _e5569655722_))) - (_tl5569455729_ + (##car _e5556755593_))) + (_tl5556555600_ (let () (declare (not safe)) - (##cdr _e5569655722_)))) - (if (gx#stx-pair? _tl5569455729_) - (let ((_e5569955732_ - (gx#syntax-e _tl5569455729_))) - (let ((_hd5569855736_ + (##cdr _e5556755593_)))) + (if (gx#stx-pair? _tl5556555600_) + (let ((_e5557055603_ + (gx#syntax-e _tl5556555600_))) + (let ((_hd5556955607_ (let () (declare (not safe)) - (##car _e5569955732_))) - (_tl5569755739_ + (##car _e5557055603_))) + (_tl5556855610_ (let () (declare (not safe)) - (##cdr _e5569955732_)))) - (if (gx#stx-null? _tl5569755739_) - ((lambda (_L55742_ _L55744_) - (let ((__tmp64265 + (##cdr _e5557055603_)))) + (if (gx#stx-null? _tl5556855610_) + ((lambda (_L55613_ _L55615_) + (let ((__tmp64293 (gx#datum->syntax '#f 'def)) - (__tmp64217 - (let ((__tmp64256 - (let ((__tmp64257 + (__tmp64245 + (let ((__tmp64284 + (let ((__tmp64285 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64264 (gx#datum->syntax '#f 'key)) - (__tmp64258 - (let ((__tmp64263 + (let ((__tmp64292 (gx#datum->syntax '#f 'key)) + (__tmp64286 + (let ((__tmp64291 (gx#datum->syntax '#f 'lst)) - (__tmp64259 - (let ((__tmp64260 - (let ((__tmp64262 + (__tmp64287 + (let ((__tmp64288 + (let ((__tmp64290 (gx#datum->syntax '#f 'default)) - (__tmp64261 + (__tmp64289 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp64262 - __tmp64261)))) + (cons __tmp64290 + __tmp64289)))) (declare (not safe)) - (cons __tmp64260 '())))) + (cons __tmp64288 '())))) (declare (not safe)) - (cons __tmp64263 __tmp64259)))) + (cons __tmp64291 __tmp64287)))) (declare (not safe)) - (cons __tmp64264 __tmp64258)))) + (cons __tmp64292 __tmp64286)))) (declare (not safe)) - (cons _L55744_ __tmp64257))) - (__tmp64218 - (let ((__tmp64219 - (let ((__tmp64255 (gx#datum->syntax '#f 'cond)) - (__tmp64220 - (let ((__tmp64237 - (let ((__tmp64242 - (let ((__tmp64254 + (cons _L55615_ __tmp64285))) + (__tmp64246 + (let ((__tmp64247 + (let ((__tmp64283 (gx#datum->syntax '#f 'cond)) + (__tmp64248 + (let ((__tmp64265 + (let ((__tmp64270 + (let ((__tmp64282 (gx#datum->syntax '#f 'and)) - (__tmp64243 - (let ((__tmp64250 + (__tmp64271 + (let ((__tmp64278 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64253 (gx#datum->syntax '#f 'pair?)) - (__tmp64251 - (let ((__tmp64252 (gx#datum->syntax '#f 'lst))) + (let ((__tmp64281 (gx#datum->syntax '#f 'pair?)) + (__tmp64279 + (let ((__tmp64280 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64252 '())))) + (cons __tmp64280 '())))) (declare (not safe)) - (cons __tmp64253 __tmp64251))) - (__tmp64244 - (let ((__tmp64245 - (let ((__tmp64246 - (let ((__tmp64249 + (cons __tmp64281 __tmp64279))) + (__tmp64272 + (let ((__tmp64273 + (let ((__tmp64274 + (let ((__tmp64277 (gx#datum->syntax '#f 'key)) - (__tmp64247 - (let ((__tmp64248 + (__tmp64275 + (let ((__tmp64276 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64248 '())))) + (cons __tmp64276 '())))) (declare (not safe)) - (cons __tmp64249 __tmp64247)))) + (cons __tmp64277 __tmp64275)))) (declare (not safe)) - (cons _L55742_ __tmp64246)))) + (cons _L55613_ __tmp64274)))) (declare (not safe)) - (cons __tmp64245 '())))) + (cons __tmp64273 '())))) (declare (not safe)) - (cons __tmp64250 __tmp64244)))) + (cons __tmp64278 __tmp64272)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64254 - __tmp64243))) - (__tmp64238 - (let ((__tmp64241 + (cons __tmp64282 + __tmp64271))) + (__tmp64266 + (let ((__tmp64269 (gx#datum->syntax '#f '=>)) - (__tmp64239 - (let ((__tmp64240 + (__tmp64267 + (let ((__tmp64268 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cdr))) (declare (not safe)) - (cons __tmp64240 '())))) + (cons __tmp64268 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64241 - __tmp64239)))) + (cons __tmp64269 + __tmp64267)))) (declare (not safe)) - (cons __tmp64242 __tmp64238))) - (__tmp64221 - (let ((__tmp64227 - (let ((__tmp64233 - (let ((__tmp64236 + (cons __tmp64270 __tmp64266))) + (__tmp64249 + (let ((__tmp64255 + (let ((__tmp64261 + (let ((__tmp64264 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp64234 - (let ((__tmp64235 (gx#datum->syntax '#f 'default))) + (__tmp64262 + (let ((__tmp64263 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp64235 '())))) + (cons __tmp64263 '())))) (declare (not safe)) - (cons __tmp64236 __tmp64234))) - (__tmp64228 - (let ((__tmp64229 - (let ((__tmp64232 (gx#datum->syntax '#f 'default)) - (__tmp64230 - (let ((__tmp64231 (gx#datum->syntax '#f 'key))) + (cons __tmp64264 __tmp64262))) + (__tmp64256 + (let ((__tmp64257 + (let ((__tmp64260 (gx#datum->syntax '#f 'default)) + (__tmp64258 + (let ((__tmp64259 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp64231 '())))) + (cons __tmp64259 '())))) (declare (not safe)) - (cons __tmp64232 __tmp64230)))) + (cons __tmp64260 __tmp64258)))) (declare (not safe)) - (cons __tmp64229 '())))) + (cons __tmp64257 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64233 - __tmp64228))) - (__tmp64222 - (let ((__tmp64223 - (let ((__tmp64226 + (cons __tmp64261 + __tmp64256))) + (__tmp64250 + (let ((__tmp64251 + (let ((__tmp64254 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'else)) - (__tmp64224 - (let ((__tmp64225 (gx#datum->syntax '#f 'default))) + (__tmp64252 + (let ((__tmp64253 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp64225 '())))) + (cons __tmp64253 '())))) (declare (not safe)) - (cons __tmp64226 __tmp64224)))) + (cons __tmp64254 __tmp64252)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64223 '())))) + (cons __tmp64251 '())))) (declare (not safe)) - (cons __tmp64227 __tmp64222)))) + (cons __tmp64255 __tmp64250)))) (declare (not safe)) - (cons __tmp64237 __tmp64221)))) + (cons __tmp64265 __tmp64249)))) (declare (not safe)) - (cons __tmp64255 __tmp64220)))) + (cons __tmp64283 __tmp64248)))) (declare (not safe)) - (cons __tmp64219 '())))) + (cons __tmp64247 '())))) (declare (not safe)) - (cons __tmp64256 __tmp64218)))) + (cons __tmp64284 __tmp64246)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64265 - __tmp64217))) - _hd5569855736_ - _hd5569555726_) - (_g5568755705_ _g5568855709_)))) - (_g5568755705_ _g5568855709_)))) - (_g5568755705_ _g5568855709_)))) - (_g5568755705_ _g5568855709_))))) - (_g5568655761_ _$stx55683_)))) + (cons __tmp64293 + __tmp64245))) + _hd5556955607_ + _hd5556655597_) + (_g5555855576_ _g5555955580_)))) + (_g5555855576_ _g5555955580_)))) + (_g5555855576_ _g5555955580_)))) + (_g5555855576_ _g5555955580_))))) + (_g5555755632_ _$stx55554_)))) (define |[:0:]#defpget| - (lambda (_$stx55765_) - (let* ((_g5576955787_ - (lambda (_g5577055783_) + (lambda (_$stx55636_) + (let* ((_g5564055658_ + (lambda (_g5564155654_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5577055783_))) - (_g5576855842_ - (lambda (_g5577055791_) - (if (gx#stx-pair? _g5577055791_) - (let ((_e5577555794_ (gx#syntax-e _g5577055791_))) - (let ((_hd5577455798_ + _g5564155654_))) + (_g5563955713_ + (lambda (_g5564155662_) + (if (gx#stx-pair? _g5564155662_) + (let ((_e5564655665_ (gx#syntax-e _g5564155662_))) + (let ((_hd5564555669_ (let () (declare (not safe)) - (##car _e5577555794_))) - (_tl5577355801_ + (##car _e5564655665_))) + (_tl5564455672_ (let () (declare (not safe)) - (##cdr _e5577555794_)))) - (if (gx#stx-pair? _tl5577355801_) - (let ((_e5577855804_ - (gx#syntax-e _tl5577355801_))) - (let ((_hd5577755808_ + (##cdr _e5564655665_)))) + (if (gx#stx-pair? _tl5564455672_) + (let ((_e5564955675_ + (gx#syntax-e _tl5564455672_))) + (let ((_hd5564855679_ (let () (declare (not safe)) - (##car _e5577855804_))) - (_tl5577655811_ + (##car _e5564955675_))) + (_tl5564755682_ (let () (declare (not safe)) - (##cdr _e5577855804_)))) - (if (gx#stx-pair? _tl5577655811_) - (let ((_e5578155814_ - (gx#syntax-e _tl5577655811_))) - (let ((_hd5578055818_ + (##cdr _e5564955675_)))) + (if (gx#stx-pair? _tl5564755682_) + (let ((_e5565255685_ + (gx#syntax-e _tl5564755682_))) + (let ((_hd5565155689_ (let () (declare (not safe)) - (##car _e5578155814_))) - (_tl5577955821_ + (##car _e5565255685_))) + (_tl5565055692_ (let () (declare (not safe)) - (##cdr _e5578155814_)))) - (if (gx#stx-null? _tl5577955821_) - ((lambda (_L55824_ _L55826_) - (let ((__tmp64335 + (##cdr _e5565255685_)))) + (if (gx#stx-null? _tl5565055692_) + ((lambda (_L55695_ _L55697_) + (let ((__tmp64363 (gx#datum->syntax '#f 'def)) - (__tmp64266 - (let ((__tmp64326 - (let ((__tmp64327 + (__tmp64294 + (let ((__tmp64354 + (let ((__tmp64355 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64334 (gx#datum->syntax '#f 'key)) - (__tmp64328 - (let ((__tmp64333 + (let ((__tmp64362 (gx#datum->syntax '#f 'key)) + (__tmp64356 + (let ((__tmp64361 (gx#datum->syntax '#f 'lst)) - (__tmp64329 - (let ((__tmp64330 - (let ((__tmp64332 + (__tmp64357 + (let ((__tmp64358 + (let ((__tmp64360 (gx#datum->syntax '#f 'default)) - (__tmp64331 + (__tmp64359 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp64332 - __tmp64331)))) + (cons __tmp64360 + __tmp64359)))) (declare (not safe)) - (cons __tmp64330 '())))) + (cons __tmp64358 '())))) (declare (not safe)) - (cons __tmp64333 __tmp64329)))) + (cons __tmp64361 __tmp64357)))) (declare (not safe)) - (cons __tmp64334 __tmp64328)))) + (cons __tmp64362 __tmp64356)))) (declare (not safe)) - (cons _L55826_ __tmp64327))) - (__tmp64267 - (let ((__tmp64268 - (let ((__tmp64325 (gx#datum->syntax '#f 'let)) - (__tmp64269 - (let ((__tmp64324 + (cons _L55697_ __tmp64355))) + (__tmp64295 + (let ((__tmp64296 + (let ((__tmp64353 (gx#datum->syntax '#f 'let)) + (__tmp64297 + (let ((__tmp64352 (gx#datum->syntax '#f 'lp)) - (__tmp64270 - (let ((__tmp64319 - (let ((__tmp64320 - (let ((__tmp64323 + (__tmp64298 + (let ((__tmp64347 + (let ((__tmp64348 + (let ((__tmp64351 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp64321 - (let ((__tmp64322 (gx#datum->syntax '#f 'lst))) + (__tmp64349 + (let ((__tmp64350 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64322 '())))) + (cons __tmp64350 '())))) (declare (not safe)) - (cons __tmp64323 __tmp64321)))) + (cons __tmp64351 __tmp64349)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64320 '()))) - (__tmp64271 - (let ((__tmp64272 - (let ((__tmp64318 + (cons __tmp64348 '()))) + (__tmp64299 + (let ((__tmp64300 + (let ((__tmp64346 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'match)) - (__tmp64273 - (let ((__tmp64317 (gx#datum->syntax '#f 'rest)) - (__tmp64274 - (let ((__tmp64293 - (let ((__tmp64310 - (let ((__tmp64316 + (__tmp64301 + (let ((__tmp64345 (gx#datum->syntax '#f 'rest)) + (__tmp64302 + (let ((__tmp64321 + (let ((__tmp64338 + (let ((__tmp64344 (gx#datum->syntax '#f '@list)) - (__tmp64311 - (let ((__tmp64315 + (__tmp64339 + (let ((__tmp64343 (gx#datum->syntax '#f 'k)) - (__tmp64312 - (let ((__tmp64314 + (__tmp64340 + (let ((__tmp64342 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'v)) - (__tmp64313 (gx#datum->syntax '#f 'rest))) + (__tmp64341 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp64314 __tmp64313)))) + (cons __tmp64342 __tmp64341)))) (declare (not safe)) - (cons __tmp64315 __tmp64312)))) + (cons __tmp64343 __tmp64340)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64316 __tmp64311))) - (__tmp64294 - (let ((__tmp64295 - (let ((__tmp64309 + (cons __tmp64344 __tmp64339))) + (__tmp64322 + (let ((__tmp64323 + (let ((__tmp64337 (gx#datum->syntax '#f 'if)) - (__tmp64296 - (let ((__tmp64304 + (__tmp64324 + (let ((__tmp64332 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64305 - (let ((__tmp64308 (gx#datum->syntax '#f 'k)) - (__tmp64306 - (let ((__tmp64307 + (let ((__tmp64333 + (let ((__tmp64336 (gx#datum->syntax '#f 'k)) + (__tmp64334 + (let ((__tmp64335 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp64307 '())))) + (cons __tmp64335 '())))) (declare (not safe)) - (cons __tmp64308 __tmp64306)))) + (cons __tmp64336 __tmp64334)))) (declare (not safe)) - (cons _L55824_ __tmp64305))) - (__tmp64297 - (let ((__tmp64303 (gx#datum->syntax '#f 'v)) - (__tmp64298 - (let ((__tmp64299 - (let ((__tmp64302 + (cons _L55695_ __tmp64333))) + (__tmp64325 + (let ((__tmp64331 (gx#datum->syntax '#f 'v)) + (__tmp64326 + (let ((__tmp64327 + (let ((__tmp64330 (gx#datum->syntax '#f 'lp)) - (__tmp64300 - (let ((__tmp64301 + (__tmp64328 + (let ((__tmp64329 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp64301 '())))) + (cons __tmp64329 '())))) (declare (not safe)) - (cons __tmp64302 __tmp64300)))) + (cons __tmp64330 __tmp64328)))) (declare (not safe)) - (cons __tmp64299 '())))) + (cons __tmp64327 '())))) (declare (not safe)) - (cons __tmp64303 __tmp64298)))) + (cons __tmp64331 __tmp64326)))) (declare (not safe)) - (cons __tmp64304 __tmp64297)))) + (cons __tmp64332 __tmp64325)))) (declare (not safe)) - (cons __tmp64309 __tmp64296)))) + (cons __tmp64337 __tmp64324)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64295 '())))) + (cons __tmp64323 '())))) (declare (not safe)) - (cons __tmp64310 __tmp64294))) - (__tmp64275 - (let ((__tmp64276 - (let ((__tmp64292 + (cons __tmp64338 __tmp64322))) + (__tmp64303 + (let ((__tmp64304 + (let ((__tmp64320 (gx#datum->syntax '#f 'else)) - (__tmp64277 - (let ((__tmp64278 - (let ((__tmp64291 + (__tmp64305 + (let ((__tmp64306 + (let ((__tmp64319 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'if)) - (__tmp64279 - (let ((__tmp64287 - (let ((__tmp64290 + (__tmp64307 + (let ((__tmp64315 + (let ((__tmp64318 (gx#datum->syntax '#f 'procedure?)) - (__tmp64288 - (let ((__tmp64289 + (__tmp64316 + (let ((__tmp64317 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp64289 '())))) + (cons __tmp64317 '())))) (declare (not safe)) - (cons __tmp64290 __tmp64288))) - (__tmp64280 - (let ((__tmp64283 - (let ((__tmp64286 + (cons __tmp64318 __tmp64316))) + (__tmp64308 + (let ((__tmp64311 + (let ((__tmp64314 (gx#datum->syntax '#f 'default)) - (__tmp64284 - (let ((__tmp64285 + (__tmp64312 + (let ((__tmp64313 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp64285 '())))) + (cons __tmp64313 '())))) (declare (not safe)) - (cons __tmp64286 __tmp64284))) - (__tmp64281 - (let ((__tmp64282 + (cons __tmp64314 __tmp64312))) + (__tmp64309 + (let ((__tmp64310 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp64282 '())))) + (cons __tmp64310 '())))) (declare (not safe)) - (cons __tmp64283 __tmp64281)))) + (cons __tmp64311 __tmp64309)))) (declare (not safe)) - (cons __tmp64287 __tmp64280)))) + (cons __tmp64315 __tmp64308)))) (declare (not safe)) - (cons __tmp64291 __tmp64279)))) + (cons __tmp64319 __tmp64307)))) (declare (not safe)) - (cons __tmp64278 '())))) + (cons __tmp64306 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64292 __tmp64277)))) + (cons __tmp64320 __tmp64305)))) (declare (not safe)) - (cons __tmp64276 '())))) + (cons __tmp64304 '())))) (declare (not safe)) - (cons __tmp64293 __tmp64275)))) + (cons __tmp64321 __tmp64303)))) (declare (not safe)) - (cons __tmp64317 __tmp64274)))) + (cons __tmp64345 __tmp64302)))) (declare (not safe)) - (cons __tmp64318 __tmp64273)))) + (cons __tmp64346 __tmp64301)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64272 '())))) + (cons __tmp64300 '())))) (declare (not safe)) - (cons __tmp64319 __tmp64271)))) + (cons __tmp64347 __tmp64299)))) (declare (not safe)) - (cons __tmp64324 __tmp64270)))) + (cons __tmp64352 __tmp64298)))) (declare (not safe)) - (cons __tmp64325 __tmp64269)))) + (cons __tmp64353 __tmp64297)))) (declare (not safe)) - (cons __tmp64268 '())))) + (cons __tmp64296 '())))) (declare (not safe)) - (cons __tmp64326 __tmp64267)))) + (cons __tmp64354 __tmp64295)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64335 - __tmp64266))) - _hd5578055818_ - _hd5577755808_) - (_g5576955787_ _g5577055791_)))) - (_g5576955787_ _g5577055791_)))) - (_g5576955787_ _g5577055791_)))) - (_g5576955787_ _g5577055791_))))) - (_g5576855842_ _$stx55765_)))) + (cons __tmp64363 + __tmp64294))) + _hd5565155689_ + _hd5564855679_) + (_g5564055658_ _g5564155662_)))) + (_g5564055658_ _g5564155662_)))) + (_g5564055658_ _g5564155662_)))) + (_g5564055658_ _g5564155662_))))) + (_g5563955713_ _$stx55636_)))) (define |[:0:]#defremove1| - (lambda (_$stx55846_) - (let* ((_g5585055868_ - (lambda (_g5585155864_) + (lambda (_$stx55717_) + (let* ((_g5572155739_ + (lambda (_g5572255735_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5585155864_))) - (_g5584955923_ - (lambda (_g5585155872_) - (if (gx#stx-pair? _g5585155872_) - (let ((_e5585655875_ (gx#syntax-e _g5585155872_))) - (let ((_hd5585555879_ + _g5572255735_))) + (_g5572055794_ + (lambda (_g5572255743_) + (if (gx#stx-pair? _g5572255743_) + (let ((_e5572755746_ (gx#syntax-e _g5572255743_))) + (let ((_hd5572655750_ (let () (declare (not safe)) - (##car _e5585655875_))) - (_tl5585455882_ + (##car _e5572755746_))) + (_tl5572555753_ (let () (declare (not safe)) - (##cdr _e5585655875_)))) - (if (gx#stx-pair? _tl5585455882_) - (let ((_e5585955885_ - (gx#syntax-e _tl5585455882_))) - (let ((_hd5585855889_ + (##cdr _e5572755746_)))) + (if (gx#stx-pair? _tl5572555753_) + (let ((_e5573055756_ + (gx#syntax-e _tl5572555753_))) + (let ((_hd5572955760_ (let () (declare (not safe)) - (##car _e5585955885_))) - (_tl5585755892_ + (##car _e5573055756_))) + (_tl5572855763_ (let () (declare (not safe)) - (##cdr _e5585955885_)))) - (if (gx#stx-pair? _tl5585755892_) - (let ((_e5586255895_ - (gx#syntax-e _tl5585755892_))) - (let ((_hd5586155899_ + (##cdr _e5573055756_)))) + (if (gx#stx-pair? _tl5572855763_) + (let ((_e5573355766_ + (gx#syntax-e _tl5572855763_))) + (let ((_hd5573255770_ (let () (declare (not safe)) - (##car _e5586255895_))) - (_tl5586055902_ + (##car _e5573355766_))) + (_tl5573155773_ (let () (declare (not safe)) - (##cdr _e5586255895_)))) - (if (gx#stx-null? _tl5586055902_) - ((lambda (_L55905_ _L55907_) - (let ((__tmp64406 + (##cdr _e5573355766_)))) + (if (gx#stx-null? _tl5573155773_) + ((lambda (_L55776_ _L55778_) + (let ((__tmp64434 (gx#datum->syntax '#f 'def)) - (__tmp64336 - (let ((__tmp64401 - (let ((__tmp64402 + (__tmp64364 + (let ((__tmp64429 + (let ((__tmp64430 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64405 (gx#datum->syntax '#f 'el)) - (__tmp64403 - (let ((__tmp64404 + (let ((__tmp64433 (gx#datum->syntax '#f 'el)) + (__tmp64431 + (let ((__tmp64432 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64404 '())))) + (cons __tmp64432 '())))) (declare (not safe)) - (cons __tmp64405 __tmp64403)))) + (cons __tmp64433 __tmp64431)))) (declare (not safe)) - (cons _L55907_ __tmp64402))) - (__tmp64337 - (let ((__tmp64338 - (let ((__tmp64400 (gx#datum->syntax '#f 'let)) - (__tmp64339 - (let ((__tmp64399 + (cons _L55778_ __tmp64430))) + (__tmp64365 + (let ((__tmp64366 + (let ((__tmp64428 (gx#datum->syntax '#f 'let)) + (__tmp64367 + (let ((__tmp64427 (gx#datum->syntax '#f 'lp)) - (__tmp64340 - (let ((__tmp64388 - (let ((__tmp64395 - (let ((__tmp64398 + (__tmp64368 + (let ((__tmp64416 + (let ((__tmp64423 + (let ((__tmp64426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp64396 - (let ((__tmp64397 (gx#datum->syntax '#f 'lst))) + (__tmp64424 + (let ((__tmp64425 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64397 '())))) + (cons __tmp64425 '())))) (declare (not safe)) - (cons __tmp64398 __tmp64396))) - (__tmp64389 - (let ((__tmp64390 - (let ((__tmp64394 (gx#datum->syntax '#f 'r)) - (__tmp64391 - (let ((__tmp64392 - (let ((__tmp64393 + (cons __tmp64426 __tmp64424))) + (__tmp64417 + (let ((__tmp64418 + (let ((__tmp64422 (gx#datum->syntax '#f 'r)) + (__tmp64419 + (let ((__tmp64420 + (let ((__tmp64421 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp64393 '())))) + (cons __tmp64421 '())))) (declare (not safe)) - (cons __tmp64392 '())))) + (cons __tmp64420 '())))) (declare (not safe)) - (cons __tmp64394 __tmp64391)))) + (cons __tmp64422 __tmp64419)))) (declare (not safe)) - (cons __tmp64390 '())))) + (cons __tmp64418 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64395 - __tmp64389))) - (__tmp64341 - (let ((__tmp64342 - (let ((__tmp64387 + (cons __tmp64423 + __tmp64417))) + (__tmp64369 + (let ((__tmp64370 + (let ((__tmp64415 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'match)) - (__tmp64343 - (let ((__tmp64386 (gx#datum->syntax '#f 'rest)) - (__tmp64344 - (let ((__tmp64350 - (let ((__tmp64381 - (let ((__tmp64385 + (__tmp64371 + (let ((__tmp64414 (gx#datum->syntax '#f 'rest)) + (__tmp64372 + (let ((__tmp64378 + (let ((__tmp64409 + (let ((__tmp64413 (gx#datum->syntax '#f '@list)) - (__tmp64382 - (let ((__tmp64384 + (__tmp64410 + (let ((__tmp64412 (gx#datum->syntax '#f 'hd)) - (__tmp64383 + (__tmp64411 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp64384 - __tmp64383)))) + (cons __tmp64412 + __tmp64411)))) (declare (not safe)) - (cons __tmp64385 __tmp64382))) - (__tmp64351 - (let ((__tmp64352 - (let ((__tmp64380 + (cons __tmp64413 __tmp64410))) + (__tmp64379 + (let ((__tmp64380 + (let ((__tmp64408 (gx#datum->syntax '#f 'if)) - (__tmp64353 - (let ((__tmp64375 + (__tmp64381 + (let ((__tmp64403 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64376 - (let ((__tmp64379 (gx#datum->syntax '#f 'el)) - (__tmp64377 - (let ((__tmp64378 + (let ((__tmp64404 + (let ((__tmp64407 (gx#datum->syntax '#f 'el)) + (__tmp64405 + (let ((__tmp64406 (gx#datum->syntax '#f 'hd))) (declare (not safe)) - (cons __tmp64378 '())))) + (cons __tmp64406 '())))) (declare (not safe)) - (cons __tmp64379 __tmp64377)))) + (cons __tmp64407 __tmp64405)))) (declare (not safe)) - (cons _L55905_ __tmp64376))) - (__tmp64354 - (let ((__tmp64367 - (let ((__tmp64374 + (cons _L55776_ __tmp64404))) + (__tmp64382 + (let ((__tmp64395 + (let ((__tmp64402 (gx#datum->syntax '#f 'foldl1)) - (__tmp64368 - (let ((__tmp64373 + (__tmp64396 + (let ((__tmp64401 (gx#datum->syntax '#f 'cons)) - (__tmp64369 - (let ((__tmp64372 + (__tmp64397 + (let ((__tmp64400 (gx#datum->syntax '#f 'rest)) - (__tmp64370 - (let ((__tmp64371 + (__tmp64398 + (let ((__tmp64399 (gx#datum->syntax '#f 'r))) (declare (not safe)) - (cons __tmp64371 + (cons __tmp64399 '())))) (declare (not safe)) - (cons __tmp64372 - __tmp64370)))) + (cons __tmp64400 + __tmp64398)))) (declare (not safe)) - (cons __tmp64373 __tmp64369)))) + (cons __tmp64401 __tmp64397)))) (declare (not safe)) - (cons __tmp64374 __tmp64368))) - (__tmp64355 - (let ((__tmp64356 - (let ((__tmp64366 + (cons __tmp64402 __tmp64396))) + (__tmp64383 + (let ((__tmp64384 + (let ((__tmp64394 (gx#datum->syntax '#f 'lp)) - (__tmp64357 - (let ((__tmp64365 + (__tmp64385 + (let ((__tmp64393 (gx#datum->syntax '#f 'rest)) - (__tmp64358 - (let ((__tmp64359 - (let ((__tmp64364 + (__tmp64386 + (let ((__tmp64387 + (let ((__tmp64392 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cons)) - (__tmp64360 - (let ((__tmp64363 (gx#datum->syntax '#f 'hd)) - (__tmp64361 - (let ((__tmp64362 + (__tmp64388 + (let ((__tmp64391 (gx#datum->syntax '#f 'hd)) + (__tmp64389 + (let ((__tmp64390 (gx#datum->syntax '#f 'r))) (declare (not safe)) - (cons __tmp64362 '())))) + (cons __tmp64390 '())))) (declare (not safe)) - (cons __tmp64363 __tmp64361)))) + (cons __tmp64391 __tmp64389)))) (declare (not safe)) - (cons __tmp64364 __tmp64360)))) + (cons __tmp64392 __tmp64388)))) (declare (not safe)) - (cons __tmp64359 '())))) + (cons __tmp64387 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64365 - __tmp64358)))) + (cons __tmp64393 + __tmp64386)))) (declare (not safe)) - (cons __tmp64366 __tmp64357)))) + (cons __tmp64394 __tmp64385)))) (declare (not safe)) - (cons __tmp64356 '())))) + (cons __tmp64384 '())))) (declare (not safe)) - (cons __tmp64367 __tmp64355)))) + (cons __tmp64395 __tmp64383)))) (declare (not safe)) - (cons __tmp64375 __tmp64354)))) + (cons __tmp64403 __tmp64382)))) (declare (not safe)) - (cons __tmp64380 __tmp64353)))) + (cons __tmp64408 __tmp64381)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64352 '())))) + (cons __tmp64380 '())))) (declare (not safe)) - (cons __tmp64381 __tmp64351))) - (__tmp64345 - (let ((__tmp64346 - (let ((__tmp64349 + (cons __tmp64409 __tmp64379))) + (__tmp64373 + (let ((__tmp64374 + (let ((__tmp64377 (gx#datum->syntax '#f 'else)) - (__tmp64347 - (let ((__tmp64348 + (__tmp64375 + (let ((__tmp64376 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64348 '())))) + (cons __tmp64376 '())))) (declare (not safe)) - (cons __tmp64349 __tmp64347)))) + (cons __tmp64377 __tmp64375)))) (declare (not safe)) - (cons __tmp64346 '())))) + (cons __tmp64374 '())))) (declare (not safe)) - (cons __tmp64350 __tmp64345)))) + (cons __tmp64378 __tmp64373)))) (declare (not safe)) - (cons __tmp64386 __tmp64344)))) + (cons __tmp64414 __tmp64372)))) (declare (not safe)) - (cons __tmp64387 __tmp64343)))) + (cons __tmp64415 __tmp64371)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64342 '())))) + (cons __tmp64370 '())))) (declare (not safe)) - (cons __tmp64388 __tmp64341)))) + (cons __tmp64416 __tmp64369)))) (declare (not safe)) - (cons __tmp64399 __tmp64340)))) + (cons __tmp64427 __tmp64368)))) (declare (not safe)) - (cons __tmp64400 __tmp64339)))) + (cons __tmp64428 __tmp64367)))) (declare (not safe)) - (cons __tmp64338 '())))) + (cons __tmp64366 '())))) (declare (not safe)) - (cons __tmp64401 __tmp64337)))) + (cons __tmp64429 __tmp64365)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64406 - __tmp64336))) - _hd5586155899_ - _hd5585855889_) - (_g5585055868_ _g5585155872_)))) - (_g5585055868_ _g5585155872_)))) - (_g5585055868_ _g5585155872_)))) - (_g5585055868_ _g5585155872_))))) - (_g5584955923_ _$stx55846_)))) + (cons __tmp64434 + __tmp64364))) + _hd5573255770_ + _hd5572955760_) + (_g5572155739_ _g5572255743_)))) + (_g5572155739_ _g5572255743_)))) + (_g5572155739_ _g5572255743_)))) + (_g5572155739_ _g5572255743_))))) + (_g5572055794_ _$stx55717_)))) (define |[:0:]#DBG| - (lambda (_$stx55927_) - (let* ((_g5593155942_ - (lambda (_g5593255938_) + (lambda (_$stx55798_) + (let* ((_g5580255813_ + (lambda (_g5580355809_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5593255938_))) - (_g5593055971_ - (lambda (_g5593255946_) - (if (gx#stx-pair? _g5593255946_) - (let ((_e5593655949_ (gx#syntax-e _g5593255946_))) - (let ((_hd5593555953_ + _g5580355809_))) + (_g5580155842_ + (lambda (_g5580355817_) + (if (gx#stx-pair? _g5580355817_) + (let ((_e5580755820_ (gx#syntax-e _g5580355817_))) + (let ((_hd5580655824_ (let () (declare (not safe)) - (##car _e5593655949_))) - (_tl5593455956_ + (##car _e5580755820_))) + (_tl5580555827_ (let () (declare (not safe)) - (##cdr _e5593655949_)))) - ((lambda (_L55959_) - (let ((__tmp64408 (gx#datum->syntax '#f 'DBG/1)) - (__tmp64407 + (##cdr _e5580755820_)))) + ((lambda (_L55830_) + (let ((__tmp64436 (gx#datum->syntax '#f 'DBG/1)) + (__tmp64435 (let () (declare (not safe)) - (cons '1 _L55959_)))) + (cons '1 _L55830_)))) (declare (not safe)) - (cons __tmp64408 __tmp64407))) - _tl5593455956_))) - (_g5593155942_ _g5593255946_))))) - (_g5593055971_ _$stx55927_)))) + (cons __tmp64436 __tmp64435))) + _tl5580555827_))) + (_g5580255813_ _g5580355817_))))) + (_g5580155842_ _$stx55798_)))) (define |[:0:]#DBG/1| - (lambda (_$stx55975_) - (let* ((___stx6373263733_ _$stx55975_) - (_g5598656200_ + (lambda (_$stx55846_) + (let* ((___stx6375963760_ _$stx55846_) + (_g5585756071_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx6373263733_)))) - (let ((___kont6373563736_ - (lambda (_L57053_ _L57055_ _L57056_ _L57057_ _L57058_) - (let ((__tmp64409 - (let ((__tmp64410 - (let ((__tmp64411 - (let ((__tmp64415 - (let ((__tmp64416 - (lambda (_g5708857091_ - _g5708957094_) + ___stx6375963760_)))) + (let ((___kont6376263763_ + (lambda (_L56924_ _L56926_ _L56927_ _L56928_ _L56929_) + (let ((__tmp64437 + (let ((__tmp64438 + (let ((__tmp64439 + (let ((__tmp64443 + (let ((__tmp64444 + (lambda (_g5695956962_ + _g5696056965_) (let () (declare (not safe)) - (cons _g5708857091_ - _g5708957094_))))) + (cons _g5695956962_ + _g5696056965_))))) (declare (not safe)) - (foldr1 __tmp64416 + (foldr1 __tmp64444 '() - _L57056_))) - (__tmp64412 - (let ((__tmp64413 - (let ((__tmp64414 + _L56927_))) + (__tmp64440 + (let ((__tmp64441 + (let ((__tmp64442 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L57053_ '())))) + (cons _L56924_ '())))) (declare (not safe)) - (cons _L57055_ __tmp64414)))) + (cons _L56926_ __tmp64442)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L57057_ __tmp64413)))) + (cons _L56928_ __tmp64441)))) (declare (not safe)) - (cons __tmp64415 __tmp64412)))) + (cons __tmp64443 __tmp64440)))) (declare (not safe)) - (cons '() __tmp64411)))) + (cons '() __tmp64439)))) (declare (not safe)) - (cons '2 __tmp64410)))) + (cons '2 __tmp64438)))) (declare (not safe)) - (cons _L57058_ __tmp64409)))) - (___kont6373963740_ - (lambda (_L56906_ _L56908_ _L56909_ _L56910_) - (let ((__tmp64417 - (let ((__tmp64418 - (let ((__tmp64419 - (let ((__tmp64423 - (let ((__tmp64424 - (lambda (_g5693356936_ - _g5693456939_) + (cons _L56929_ __tmp64437)))) + (___kont6376663767_ + (lambda (_L56777_ _L56779_ _L56780_ _L56781_) + (let ((__tmp64445 + (let ((__tmp64446 + (let ((__tmp64447 + (let ((__tmp64451 + (let ((__tmp64452 + (lambda (_g5680456807_ + _g5680556810_) (let () (declare (not safe)) - (cons _g5693356936_ - _g5693456939_))))) + (cons _g5680456807_ + _g5680556810_))))) (declare (not safe)) - (foldr1 __tmp64424 + (foldr1 __tmp64452 '() - _L56908_))) - (__tmp64420 - (let ((__tmp64421 - (let ((__tmp64422 + _L56779_))) + (__tmp64448 + (let ((__tmp64449 + (let ((__tmp64450 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L56906_ '())))) + (cons _L56777_ '())))) (declare (not safe)) - (cons _L56906_ __tmp64422)))) + (cons _L56777_ __tmp64450)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L56909_ __tmp64421)))) + (cons _L56780_ __tmp64449)))) (declare (not safe)) - (cons __tmp64423 __tmp64420)))) + (cons __tmp64451 __tmp64448)))) (declare (not safe)) - (cons '() __tmp64419)))) + (cons '() __tmp64447)))) (declare (not safe)) - (cons '2 __tmp64418)))) + (cons '2 __tmp64446)))) (declare (not safe)) - (cons _L56910_ __tmp64417)))) - (___kont6374363744_ - (lambda (_L56809_) - (let ((__tmp64436 (gx#datum->syntax '#f 'DBG-helper)) - (__tmp64425 - (let ((__tmp64426 - (let ((__tmp64433 - (let ((__tmp64435 + (cons _L56781_ __tmp64445)))) + (___kont6377063771_ + (lambda (_L56680_) + (let ((__tmp64464 (gx#datum->syntax '#f 'DBG-helper)) + (__tmp64453 + (let ((__tmp64454 + (let ((__tmp64461 + (let ((__tmp64463 (gx#datum->syntax '#f 'quote)) - (__tmp64434 + (__tmp64462 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp64435 __tmp64434))) - (__tmp64427 - (let ((__tmp64430 - (let ((__tmp64432 + (cons __tmp64463 __tmp64462))) + (__tmp64455 + (let ((__tmp64458 + (let ((__tmp64460 (gx#datum->syntax '#f 'quote)) - (__tmp64431 + (__tmp64459 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp64432 __tmp64431))) - (__tmp64428 - (let ((__tmp64429 + (cons __tmp64460 __tmp64459))) + (__tmp64456 + (let ((__tmp64457 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '#f __tmp64429)))) + (cons '#f __tmp64457)))) (declare (not safe)) - (cons __tmp64430 __tmp64428)))) + (cons __tmp64458 __tmp64456)))) (declare (not safe)) - (cons __tmp64433 __tmp64427)))) + (cons __tmp64461 __tmp64455)))) (declare (not safe)) - (cons _L56809_ __tmp64426)))) + (cons _L56680_ __tmp64454)))) (declare (not safe)) - (cons __tmp64436 __tmp64425)))) - (___kont6374563746_ - (lambda (_L56732_ - _L56734_ - _L56735_ - _L56736_ - _L56737_ - _L56738_) - (let ((__tmp64437 - (let ((__tmp64438 - (let ((__tmp64440 - (let ((__tmp64441 - (let ((__tmp64442 + (cons __tmp64464 __tmp64453)))) + (___kont6377263773_ + (lambda (_L56603_ + _L56605_ + _L56606_ + _L56607_ + _L56608_ + _L56609_) + (let ((__tmp64465 + (let ((__tmp64466 + (let ((__tmp64468 + (let ((__tmp64469 + (let ((__tmp64470 (let () (declare (not safe)) - (cons _L56735_ '())))) + (cons _L56606_ '())))) (declare (not safe)) - (cons _L56736_ __tmp64442)))) + (cons _L56607_ __tmp64470)))) (declare (not safe)) - (cons __tmp64441 _L56737_))) - (__tmp64439 + (cons __tmp64469 _L56608_))) + (__tmp64467 (let () (declare (not safe)) - (cons _L56734_ _L56732_)))) + (cons _L56605_ _L56603_)))) (declare (not safe)) - (cons __tmp64440 __tmp64439)))) + (cons __tmp64468 __tmp64467)))) (declare (not safe)) - (cons '2 __tmp64438)))) + (cons '2 __tmp64466)))) (declare (not safe)) - (cons _L56738_ __tmp64437)))) - (___kont6374763748_ - (lambda (_L56613_ _L56615_ _L56616_ _L56617_ _L56618_) - (let ((__tmp64443 - (let ((__tmp64444 - (let ((__tmp64446 - (let ((__tmp64447 - (let ((__tmp64448 + (cons _L56609_ __tmp64465)))) + (___kont6377463775_ + (lambda (_L56484_ _L56486_ _L56487_ _L56488_ _L56489_) + (let ((__tmp64471 + (let ((__tmp64472 + (let ((__tmp64474 + (let ((__tmp64475 + (let ((__tmp64476 (let () (declare (not safe)) - (cons _L56616_ '())))) + (cons _L56487_ '())))) (declare (not safe)) - (cons _L56616_ __tmp64448)))) + (cons _L56487_ __tmp64476)))) (declare (not safe)) - (cons __tmp64447 _L56617_))) - (__tmp64445 + (cons __tmp64475 _L56488_))) + (__tmp64473 (let () (declare (not safe)) - (cons _L56615_ _L56613_)))) + (cons _L56486_ _L56484_)))) (declare (not safe)) - (cons __tmp64446 __tmp64445)))) + (cons __tmp64474 __tmp64473)))) (declare (not safe)) - (cons '2 __tmp64444)))) + (cons '2 __tmp64472)))) (declare (not safe)) - (cons _L56618_ __tmp64443)))) - (___kont6374963750_ - (lambda (_L56530_ _L56532_ _L56533_) - (let ((__tmp64449 - (let ((__tmp64450 - (let ((__tmp64451 + (cons _L56489_ __tmp64471)))) + (___kont6377663777_ + (lambda (_L56401_ _L56403_ _L56404_) + (let ((__tmp64477 + (let ((__tmp64478 + (let ((__tmp64479 (let () (declare (not safe)) - (cons _L56532_ _L56530_)))) + (cons _L56403_ _L56401_)))) (declare (not safe)) - (cons '() __tmp64451)))) + (cons '() __tmp64479)))) (declare (not safe)) - (cons '3 __tmp64450)))) + (cons '3 __tmp64478)))) (declare (not safe)) - (cons _L56533_ __tmp64449)))) - (___kont6375163752_ - (lambda (_L56451_ _L56453_ _L56454_ _L56455_ _L56456_) - (let ((__tmp64452 - (let ((__tmp64453 - (let ((__tmp64455 + (cons _L56404_ __tmp64477)))) + (___kont6377863779_ + (lambda (_L56322_ _L56324_ _L56325_ _L56326_ _L56327_) + (let ((__tmp64480 + (let ((__tmp64481 + (let ((__tmp64483 (let () (declare (not safe)) - (cons _L56454_ _L56455_))) - (__tmp64454 + (cons _L56325_ _L56326_))) + (__tmp64482 (let () (declare (not safe)) - (cons _L56453_ _L56451_)))) + (cons _L56324_ _L56322_)))) (declare (not safe)) - (cons __tmp64455 __tmp64454)))) + (cons __tmp64483 __tmp64482)))) (declare (not safe)) - (cons '3 __tmp64453)))) + (cons '3 __tmp64481)))) (declare (not safe)) - (cons _L56456_ __tmp64452)))) - (___kont6375363754_ - (lambda (_L56335_ - _L56337_ - _L56338_ - _L56339_ - _L56340_ - _L56341_) - (let ((__tmp64503 (gx#datum->syntax '#f 'let)) - (__tmp64456 - (let ((__tmp64491 - (let ((__tmp64500 - (let ((__tmp64502 + (cons _L56327_ __tmp64480)))) + (___kont6378063781_ + (lambda (_L56206_ + _L56208_ + _L56209_ + _L56210_ + _L56211_ + _L56212_) + (let ((__tmp64531 (gx#datum->syntax '#f 'let)) + (__tmp64484 + (let ((__tmp64519 + (let ((__tmp64528 + (let ((__tmp64530 (gx#datum->syntax '#f 'tagval)) - (__tmp64501 + (__tmp64529 (let () (declare (not safe)) - (cons _L56338_ '())))) + (cons _L56209_ '())))) (declare (not safe)) - (cons __tmp64502 __tmp64501))) - (__tmp64492 - (let ((__tmp64493 - (let ((__tmp64499 + (cons __tmp64530 __tmp64529))) + (__tmp64520 + (let ((__tmp64521 + (let ((__tmp64527 (gx#datum->syntax '#f 'thunk)) - (__tmp64494 - (let ((__tmp64495 - (let ((__tmp64498 + (__tmp64522 + (let ((__tmp64523 + (let ((__tmp64526 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp64496 - (let ((__tmp64497 + (__tmp64524 + (let ((__tmp64525 (let () (declare (not safe)) - (cons _L56335_ '())))) + (cons _L56206_ '())))) (declare (not safe)) - (cons '() __tmp64497)))) + (cons '() __tmp64525)))) (declare (not safe)) - (cons __tmp64498 __tmp64496)))) + (cons __tmp64526 __tmp64524)))) (declare (not safe)) - (cons __tmp64495 '())))) + (cons __tmp64523 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64499 - __tmp64494)))) + (cons __tmp64527 + __tmp64522)))) (declare (not safe)) - (cons __tmp64493 '())))) + (cons __tmp64521 '())))) (declare (not safe)) - (cons __tmp64500 __tmp64492))) - (__tmp64457 - (let ((__tmp64458 - (let ((__tmp64490 + (cons __tmp64528 __tmp64520))) + (__tmp64485 + (let ((__tmp64486 + (let ((__tmp64518 (gx#datum->syntax '#f 'if)) - (__tmp64459 - (let ((__tmp64489 + (__tmp64487 + (let ((__tmp64517 (gx#datum->syntax '#f 'tagval)) - (__tmp64460 - (let ((__tmp64464 - (let ((__tmp64488 + (__tmp64488 + (let ((__tmp64492 + (let ((__tmp64516 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'DBG-helper)) - (__tmp64465 - (let ((__tmp64487 (gx#datum->syntax '#f 'tagval)) - (__tmp64466 - (let ((__tmp64482 - (let ((__tmp64486 + (__tmp64493 + (let ((__tmp64515 (gx#datum->syntax '#f 'tagval)) + (__tmp64494 + (let ((__tmp64510 + (let ((__tmp64514 (gx#datum->syntax '#f 'quote)) - (__tmp64483 - (let ((__tmp64484 - (let ((__tmp64485 - (lambda (_g5637556378_ + (__tmp64511 + (let ((__tmp64512 + (let ((__tmp64513 + (lambda (_g5624656249_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g5637656381_) + _g5624756252_) (let () (declare (not safe)) - (cons _g5637556378_ _g5637656381_))))) + (cons _g5624656249_ _g5624756252_))))) (declare (not safe)) - (foldr1 __tmp64485 '() _L56340_)))) + (foldr1 __tmp64513 '() _L56211_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64484 '())))) + (cons __tmp64512 '())))) (declare (not safe)) - (cons __tmp64486 __tmp64483))) - (__tmp64467 - (let ((__tmp64474 - (let ((__tmp64481 + (cons __tmp64514 __tmp64511))) + (__tmp64495 + (let ((__tmp64502 + (let ((__tmp64509 (gx#datum->syntax '#f 'list)) - (__tmp64475 - (let ((__tmp64476 - (lambda (_g5637356384_ + (__tmp64503 + (let ((__tmp64504 + (lambda (_g5624456255_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g5637456387_) - (let ((__tmp64477 - (let ((__tmp64480 + _g5624556258_) + (let ((__tmp64505 + (let ((__tmp64508 (gx#datum->syntax '#f 'lambda)) - (__tmp64478 - (let ((__tmp64479 + (__tmp64506 + (let ((__tmp64507 (let () (declare (not safe)) - (cons _g5637356384_ '())))) + (cons _g5624456255_ '())))) (declare (not safe)) - (cons '() __tmp64479)))) + (cons '() __tmp64507)))) (declare (not safe)) - (cons __tmp64480 __tmp64478)))) + (cons __tmp64508 __tmp64506)))) (declare (not safe)) - (cons __tmp64477 _g5637456387_))))) + (cons __tmp64505 _g5624556258_))))) (declare (not safe)) - (foldr1 __tmp64476 '() _L56339_)))) + (foldr1 __tmp64504 '() _L56210_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64481 - __tmp64475))) - (__tmp64468 - (let ((__tmp64471 - (let ((__tmp64473 + (cons __tmp64509 + __tmp64503))) + (__tmp64496 + (let ((__tmp64499 + (let ((__tmp64501 (gx#datum->syntax '#f 'quote)) - (__tmp64472 + (__tmp64500 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L56337_ '())))) + (cons _L56208_ '())))) (declare (not safe)) - (cons __tmp64473 __tmp64472))) - (__tmp64469 - (let ((__tmp64470 (gx#datum->syntax '#f 'thunk))) + (cons __tmp64501 __tmp64500))) + (__tmp64497 + (let ((__tmp64498 (gx#datum->syntax '#f 'thunk))) (declare (not safe)) - (cons __tmp64470 '())))) + (cons __tmp64498 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64471 - __tmp64469)))) + (cons __tmp64499 + __tmp64497)))) (declare (not safe)) - (cons __tmp64474 __tmp64468)))) + (cons __tmp64502 __tmp64496)))) (declare (not safe)) - (cons __tmp64482 __tmp64467)))) + (cons __tmp64510 __tmp64495)))) (declare (not safe)) - (cons __tmp64487 __tmp64466)))) + (cons __tmp64515 __tmp64494)))) (declare (not safe)) - (cons __tmp64488 __tmp64465))) - (__tmp64461 - (let ((__tmp64462 - (let ((__tmp64463 (gx#datum->syntax '#f 'thunk))) + (cons __tmp64516 __tmp64493))) + (__tmp64489 + (let ((__tmp64490 + (let ((__tmp64491 (gx#datum->syntax '#f 'thunk))) (declare (not safe)) - (cons __tmp64463 '())))) + (cons __tmp64491 '())))) (declare (not safe)) - (cons __tmp64462 '())))) + (cons __tmp64490 '())))) (declare (not safe)) - (cons __tmp64464 __tmp64461)))) + (cons __tmp64492 __tmp64489)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64489 - __tmp64460)))) + (cons __tmp64517 + __tmp64488)))) (declare (not safe)) - (cons __tmp64490 __tmp64459)))) + (cons __tmp64518 __tmp64487)))) (declare (not safe)) - (cons __tmp64458 '())))) + (cons __tmp64486 '())))) (declare (not safe)) - (cons __tmp64491 __tmp64457)))) + (cons __tmp64519 __tmp64485)))) (declare (not safe)) - (cons __tmp64503 __tmp64456))))) - (let* ((___match6408364084_ - (lambda (_e5615856207_ - _hd5615756211_ - _tl5615656214_ - _e5616156217_ - _hd5616056221_ - _tl5615956224_ - _e5616256227_ - _e5616556231_ - _hd5616456235_ - _tl5616356238_ - ___splice6375563756_ - _target5616656241_ - _tl5616856244_) - (letrec ((_loop5616956247_ - (lambda (_hd5616756251_ - _exprs5617356254_ - _names5617456256_) - (if (gx#stx-pair? _hd5616756251_) - (let ((_e5617056259_ - (gx#syntax-e _hd5616756251_))) - (let ((_lp-tl5617256266_ + (cons __tmp64531 __tmp64484))))) + (let* ((___match6411064111_ + (lambda (_e5602956078_ + _hd5602856082_ + _tl5602756085_ + _e5603256088_ + _hd5603156092_ + _tl5603056095_ + _e5603356098_ + _e5603656102_ + _hd5603556106_ + _tl5603456109_ + ___splice6378263783_ + _target5603756112_ + _tl5603956115_) + (letrec ((_loop5604056118_ + (lambda (_hd5603856122_ + _exprs5604456125_ + _names5604556127_) + (if (gx#stx-pair? _hd5603856122_) + (let ((_e5604156130_ + (gx#syntax-e _hd5603856122_))) + (let ((_lp-tl5604356137_ (let () (declare (not safe)) - (##cdr _e5617056259_))) - (_lp-hd5617156263_ + (##cdr _e5604156130_))) + (_lp-hd5604256134_ (let () (declare (not safe)) - (##car _e5617056259_)))) - (if (gx#stx-pair? _lp-hd5617156263_) - (let ((_e5617956269_ + (##car _e5604156130_)))) + (if (gx#stx-pair? _lp-hd5604256134_) + (let ((_e5605056140_ (gx#syntax-e - _lp-hd5617156263_))) - (let ((_tl5617756276_ + _lp-hd5604256134_))) + (let ((_tl5604856147_ (let () (declare (not safe)) - (##cdr _e5617956269_))) - (_hd5617856273_ + (##cdr _e5605056140_))) + (_hd5604956144_ (let () (declare (not safe)) - (##car _e5617956269_)))) + (##car _e5605056140_)))) (if (gx#stx-pair? - _tl5617756276_) - (let ((_e5618256279_ + _tl5604856147_) + (let ((_e5605356150_ (gx#syntax-e - _tl5617756276_))) - (let ((_tl5618056286_ + _tl5604856147_))) + (let ((_tl5605156157_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e5618256279_))) - (_hd5618156283_ - (let () (declare (not safe)) (##car _e5618256279_)))) - (if (gx#stx-null? _tl5618056286_) - (_loop5616956247_ - _lp-tl5617256266_ + (##cdr _e5605356150_))) + (_hd5605256154_ + (let () (declare (not safe)) (##car _e5605356150_)))) + (if (gx#stx-null? _tl5605156157_) + (_loop5604056118_ + _lp-tl5604356137_ (let () (declare (not safe)) - (cons _hd5618156283_ _exprs5617356254_)) + (cons _hd5605256154_ _exprs5604456125_)) (let () (declare (not safe)) - (cons _hd5617856273_ _names5617456256_))) - (let () (declare (not safe)) (_g5598656200_))))) - (let () (declare (not safe)) (_g5598656200_))))) + (cons _hd5604956144_ _names5604556127_))) + (let () (declare (not safe)) (_g5585756071_))))) + (let () (declare (not safe)) (_g5585756071_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5598656200_))))) - (let ((_names5617656292_ - (reverse _names5617456256_)) - (_exprs5617556289_ - (reverse _exprs5617356254_))) - (if (gx#stx-pair? _tl5616356238_) - (let ((_e5618556295_ + (_g5585756071_))))) + (let ((_names5604756163_ + (reverse _names5604556127_)) + (_exprs5604656160_ + (reverse _exprs5604456125_))) + (if (gx#stx-pair? _tl5603456109_) + (let ((_e5605656166_ (gx#syntax-e - _tl5616356238_))) - (let ((_tl5618356302_ + _tl5603456109_))) + (let ((_tl5605456173_ (let () (declare (not safe)) - (##cdr _e5618556295_))) - (_hd5618456299_ + (##cdr _e5605656166_))) + (_hd5605556170_ (let () (declare (not safe)) - (##car _e5618556295_)))) + (##car _e5605656166_)))) (if (gx#stx-null? - _hd5618456299_) + _hd5605556170_) (if (gx#stx-pair? - _tl5618356302_) - (let ((_e5618856305_ + _tl5605456173_) + (let ((_e5605956176_ (gx#syntax-e - _tl5618356302_))) - (let ((_tl5618656312_ + _tl5605456173_))) + (let ((_tl5605756183_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5618856305_))) - (_hd5618756309_ - (let () (declare (not safe)) (##car _e5618856305_)))) - (if (gx#stx-pair? _tl5618656312_) - (let ((_e5619156315_ (gx#syntax-e _tl5618656312_))) - (let ((_tl5618956322_ + (let () (declare (not safe)) (##cdr _e5605956176_))) + (_hd5605856180_ + (let () (declare (not safe)) (##car _e5605956176_)))) + (if (gx#stx-pair? _tl5605756183_) + (let ((_e5606256186_ (gx#syntax-e _tl5605756183_))) + (let ((_tl5606056193_ (let () (declare (not safe)) - (##cdr _e5619156315_))) - (_hd5619056319_ + (##cdr _e5606256186_))) + (_hd5606156190_ (let () (declare (not safe)) - (##car _e5619156315_)))) - (if (gx#stx-pair? _tl5618956322_) - (let ((_e5619456325_ - (gx#syntax-e _tl5618956322_))) - (let ((_tl5619256332_ + (##car _e5606256186_)))) + (if (gx#stx-pair? _tl5606056193_) + (let ((_e5606556196_ + (gx#syntax-e _tl5606056193_))) + (let ((_tl5606356203_ (let () (declare (not safe)) - (##cdr _e5619456325_))) - (_hd5619356329_ + (##cdr _e5606556196_))) + (_hd5606456200_ (let () (declare (not safe)) - (##car _e5619456325_)))) - (if (gx#stx-null? _tl5619256332_) - (___kont6375363754_ - _hd5619356329_ - _hd5619056319_ - _hd5618756309_ - _exprs5617556289_ - _names5617656292_ - _hd5615756211_) + (##car _e5606556196_)))) + (if (gx#stx-null? _tl5606356203_) + (___kont6378063781_ + _hd5606456200_ + _hd5606156190_ + _hd5605856180_ + _exprs5604656160_ + _names5604756163_ + _hd5602856082_) (let () (declare (not safe)) - (_g5598656200_))))) + (_g5585756071_))))) (let () (declare (not safe)) - (_g5598656200_))))) - (let () (declare (not safe)) (_g5598656200_))))) - (let () (declare (not safe)) (_g5598656200_))) + (_g5585756071_))))) + (let () (declare (not safe)) (_g5585756071_))))) + (let () (declare (not safe)) (_g5585756071_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5598656200_))))) + (_g5585756071_))))) (let () (declare (not safe)) - (_g5598656200_)))))))) - (_loop5616956247_ _target5616656241_ '() '())))) - (___match6386163862_ - (lambda (_e5603056832_ - _hd5602956836_ - _tl5602856839_ - _e5603356842_ - _hd5603256846_ - _tl5603156849_ - _e5603456852_ - _e5603756856_ - _hd5603656860_ - _tl5603556863_ - ___splice6374163742_ - _target5603856866_ - _tl5604056869_ - _e5604956872_ - _hd5604856876_ - _tl5604756879_) - (letrec ((_loop5604156882_ - (lambda (_hd5603956886_ _exprs5604556889_) - (if (gx#stx-pair? _hd5603956886_) - (let ((_e5604256892_ - (gx#syntax-e _hd5603956886_))) - (let ((_lp-tl5604456899_ + (_g5585756071_)))))))) + (_loop5604056118_ _target5603756112_ '() '())))) + (___match6388863889_ + (lambda (_e5590156703_ + _hd5590056707_ + _tl5589956710_ + _e5590456713_ + _hd5590356717_ + _tl5590256720_ + _e5590556723_ + _e5590856727_ + _hd5590756731_ + _tl5590656734_ + ___splice6376863769_ + _target5590956737_ + _tl5591156740_ + _e5592056743_ + _hd5591956747_ + _tl5591856750_) + (letrec ((_loop5591256753_ + (lambda (_hd5591056757_ _exprs5591656760_) + (if (gx#stx-pair? _hd5591056757_) + (let ((_e5591356763_ + (gx#syntax-e _hd5591056757_))) + (let ((_lp-tl5591556770_ (let () (declare (not safe)) - (##cdr _e5604256892_))) - (_lp-hd5604356896_ + (##cdr _e5591356763_))) + (_lp-hd5591456767_ (let () (declare (not safe)) - (##car _e5604256892_)))) - (_loop5604156882_ - _lp-tl5604456899_ + (##car _e5591356763_)))) + (_loop5591256753_ + _lp-tl5591556770_ (let () (declare (not safe)) - (cons _lp-hd5604356896_ - _exprs5604556889_))))) - (let ((_exprs5604656902_ - (reverse _exprs5604556889_))) - (___kont6373963740_ - _hd5604856876_ - _exprs5604656902_ - _hd5603656860_ - _hd5602956836_)))))) - (_loop5604156882_ _target5603856866_ '())))) - (___match6382163822_ - (lambda (_e5599556949_ - _hd5599456953_ - _tl5599356956_ - _e5599856959_ - _hd5599756963_ - _tl5599656966_ - _e5599956969_ - _e5600256973_ - _hd5600156977_ - _tl5600056980_ - ___splice6373763738_ - _target5600356983_ - _tl5600556986_ - _e5601456989_ - _hd5601356993_ - _tl5601256996_ - _e5601756999_ - _hd5601657003_ - _tl5601557006_ - _e5602057009_ - _hd5601957013_ - _tl5601857016_ - _e5602357019_ - _hd5602257023_ - _tl5602157026_) - (letrec ((_loop5600657029_ - (lambda (_hd5600457033_ _exprs5601057036_) - (if (gx#stx-pair? _hd5600457033_) - (let ((_e5600757039_ - (gx#syntax-e _hd5600457033_))) - (let ((_lp-tl5600957046_ + (cons _lp-hd5591456767_ + _exprs5591656760_))))) + (let ((_exprs5591756773_ + (reverse _exprs5591656760_))) + (___kont6376663767_ + _hd5591956747_ + _exprs5591756773_ + _hd5590756731_ + _hd5590056707_)))))) + (_loop5591256753_ _target5590956737_ '())))) + (___match6384863849_ + (lambda (_e5586656820_ + _hd5586556824_ + _tl5586456827_ + _e5586956830_ + _hd5586856834_ + _tl5586756837_ + _e5587056840_ + _e5587356844_ + _hd5587256848_ + _tl5587156851_ + ___splice6376463765_ + _target5587456854_ + _tl5587656857_ + _e5588556860_ + _hd5588456864_ + _tl5588356867_ + _e5588856870_ + _hd5588756874_ + _tl5588656877_ + _e5589156880_ + _hd5589056884_ + _tl5588956887_ + _e5589456890_ + _hd5589356894_ + _tl5589256897_) + (letrec ((_loop5587756900_ + (lambda (_hd5587556904_ _exprs5588156907_) + (if (gx#stx-pair? _hd5587556904_) + (let ((_e5587856910_ + (gx#syntax-e _hd5587556904_))) + (let ((_lp-tl5588056917_ (let () (declare (not safe)) - (##cdr _e5600757039_))) - (_lp-hd5600857043_ + (##cdr _e5587856910_))) + (_lp-hd5587956914_ (let () (declare (not safe)) - (##car _e5600757039_)))) - (_loop5600657029_ - _lp-tl5600957046_ + (##car _e5587856910_)))) + (_loop5587756900_ + _lp-tl5588056917_ (let () (declare (not safe)) - (cons _lp-hd5600857043_ - _exprs5601057036_))))) - (let ((_exprs5601157049_ - (reverse _exprs5601057036_))) - (___kont6373563736_ - _hd5602257023_ - _hd5601957013_ - _exprs5601157049_ - _hd5600156977_ - _hd5599456953_)))))) - (_loop5600657029_ _target5600356983_ '()))))) - (if (gx#stx-pair? ___stx6373263733_) - (let ((_e5599556949_ (gx#syntax-e ___stx6373263733_))) - (let ((_tl5599356956_ - (let () (declare (not safe)) (##cdr _e5599556949_))) - (_hd5599456953_ + (cons _lp-hd5587956914_ + _exprs5588156907_))))) + (let ((_exprs5588256920_ + (reverse _exprs5588156907_))) + (___kont6376263763_ + _hd5589356894_ + _hd5589056884_ + _exprs5588256920_ + _hd5587256848_ + _hd5586556824_)))))) + (_loop5587756900_ _target5587456854_ '()))))) + (if (gx#stx-pair? ___stx6375963760_) + (let ((_e5586656820_ (gx#syntax-e ___stx6375963760_))) + (let ((_tl5586456827_ + (let () (declare (not safe)) (##cdr _e5586656820_))) + (_hd5586556824_ (let () (declare (not safe)) - (##car _e5599556949_)))) - (if (gx#stx-pair? _tl5599356956_) - (let ((_e5599856959_ (gx#syntax-e _tl5599356956_))) - (let ((_tl5599656966_ + (##car _e5586656820_)))) + (if (gx#stx-pair? _tl5586456827_) + (let ((_e5586956830_ (gx#syntax-e _tl5586456827_))) + (let ((_tl5586756837_ (let () (declare (not safe)) - (##cdr _e5599856959_))) - (_hd5599756963_ + (##cdr _e5586956830_))) + (_hd5586856834_ (let () (declare (not safe)) - (##car _e5599856959_)))) - (if (gx#stx-datum? _hd5599756963_) - (let ((_e5599956969_ - (gx#stx-e _hd5599756963_))) + (##car _e5586956830_)))) + (if (gx#stx-datum? _hd5586856834_) + (let ((_e5587056840_ + (gx#stx-e _hd5586856834_))) (if (let () (declare (not safe)) - (equal? _e5599956969_ '1)) - (if (gx#stx-pair? _tl5599656966_) - (let ((_e5600256973_ + (equal? _e5587056840_ '1)) + (if (gx#stx-pair? _tl5586756837_) + (let ((_e5587356844_ (gx#syntax-e - _tl5599656966_))) - (let ((_tl5600056980_ + _tl5586756837_))) + (let ((_tl5587156851_ (let () (declare (not safe)) - (##cdr _e5600256973_))) - (_hd5600156977_ + (##cdr _e5587356844_))) + (_hd5587256848_ (let () (declare (not safe)) - (##car _e5600256973_)))) + (##car _e5587356844_)))) (if (gx#stx-pair/null? - _tl5600056980_) + _tl5587156851_) (if (fx>= (gx#stx-length - _tl5600056980_) + _tl5587156851_) '2) - (let ((___splice6373763738_ + (let ((___splice6376463765_ (gx#syntax-split-splice - _tl5600056980_ + _tl5587156851_ '2))) - (let ((_tl5600556986_ + (let ((_tl5587656857_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice6373763738_ '1))) - (_target5600356983_ + (##vector-ref ___splice6376463765_ '1))) + (_target5587456854_ (let () (declare (not safe)) - (##vector-ref ___splice6373763738_ '0)))) - (if (gx#stx-pair? _tl5600556986_) - (let ((_e5601456989_ (gx#syntax-e _tl5600556986_))) - (let ((_tl5601256996_ + (##vector-ref ___splice6376463765_ '0)))) + (if (gx#stx-pair? _tl5587656857_) + (let ((_e5588556860_ (gx#syntax-e _tl5587656857_))) + (let ((_tl5588356867_ (let () (declare (not safe)) - (##cdr _e5601456989_))) - (_hd5601356993_ + (##cdr _e5588556860_))) + (_hd5588456864_ (let () (declare (not safe)) - (##car _e5601456989_)))) - (if (gx#stx-pair? _hd5601356993_) - (let ((_e5601756999_ - (gx#syntax-e _hd5601356993_))) - (let ((_tl5601557006_ + (##car _e5588556860_)))) + (if (gx#stx-pair? _hd5588456864_) + (let ((_e5588856870_ + (gx#syntax-e _hd5588456864_))) + (let ((_tl5588656877_ (let () (declare (not safe)) - (##cdr _e5601756999_))) - (_hd5601657003_ + (##cdr _e5588856870_))) + (_hd5588756874_ (let () (declare (not safe)) - (##car _e5601756999_)))) - (if (gx#identifier? _hd5601657003_) + (##car _e5588856870_)))) + (if (gx#identifier? _hd5588756874_) (if (gx#free-identifier=? - |[1]#_g64505_| - _hd5601657003_) - (if (gx#stx-pair? _tl5601557006_) - (let ((_e5602057009_ + |[1]#_g64533_| + _hd5588756874_) + (if (gx#stx-pair? _tl5588656877_) + (let ((_e5589156880_ (gx#syntax-e - _tl5601557006_))) - (let ((_tl5601857016_ + _tl5588656877_))) + (let ((_tl5588956887_ (let () (declare (not safe)) - (##cdr _e5602057009_))) - (_hd5601957013_ + (##cdr _e5589156880_))) + (_hd5589056884_ (let () (declare (not safe)) - (##car _e5602057009_)))) + (##car _e5589156880_)))) (if (gx#stx-null? - _tl5601857016_) + _tl5588956887_) (if (gx#stx-pair? - _tl5601256996_) - (let ((_e5602357019_ + _tl5588356867_) + (let ((_e5589456890_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl5601256996_))) - (let ((_tl5602157026_ + (gx#syntax-e _tl5588356867_))) + (let ((_tl5589256897_ (let () (declare (not safe)) - (##cdr _e5602357019_))) - (_hd5602257023_ + (##cdr _e5589456890_))) + (_hd5589356894_ (let () (declare (not safe)) - (##car _e5602357019_)))) - (if (gx#stx-null? _tl5602157026_) - (___match6382163822_ - _e5599556949_ - _hd5599456953_ - _tl5599356956_ - _e5599856959_ - _hd5599756963_ - _tl5599656966_ - _e5599956969_ - _e5600256973_ - _hd5600156977_ - _tl5600056980_ - ___splice6373763738_ - _target5600356983_ - _tl5600556986_ - _e5601456989_ - _hd5601356993_ - _tl5601256996_ - _e5601756999_ - _hd5601657003_ - _tl5601557006_ - _e5602057009_ - _hd5601957013_ - _tl5601857016_ - _e5602357019_ - _hd5602257023_ - _tl5602157026_) - (if (fx>= (gx#stx-length _tl5600056980_) '1) - (let ((___splice6374163742_ + (##car _e5589456890_)))) + (if (gx#stx-null? _tl5589256897_) + (___match6384863849_ + _e5586656820_ + _hd5586556824_ + _tl5586456827_ + _e5586956830_ + _hd5586856834_ + _tl5586756837_ + _e5587056840_ + _e5587356844_ + _hd5587256848_ + _tl5587156851_ + ___splice6376463765_ + _target5587456854_ + _tl5587656857_ + _e5588556860_ + _hd5588456864_ + _tl5588356867_ + _e5588856870_ + _hd5588756874_ + _tl5588656877_ + _e5589156880_ + _hd5589056884_ + _tl5588956887_ + _e5589456890_ + _hd5589356894_ + _tl5589256897_) + (if (fx>= (gx#stx-length _tl5587156851_) '1) + (let ((___splice6376863769_ (gx#syntax-split-splice - _tl5600056980_ + _tl5587156851_ '1))) - (let ((_tl5604056869_ + (let ((_tl5591156740_ (let () (declare (not safe)) (##vector-ref - ___splice6374163742_ + ___splice6376863769_ '1))) - (_target5603856866_ + (_target5590956737_ (let () (declare (not safe)) (##vector-ref - ___splice6374163742_ + ___splice6376863769_ '0)))) - (if (gx#stx-pair? _tl5604056869_) - (let ((_e5604956872_ - (gx#syntax-e _tl5604056869_))) - (let ((_tl5604756879_ + (if (gx#stx-pair? _tl5591156740_) + (let ((_e5592056743_ + (gx#syntax-e _tl5591156740_))) + (let ((_tl5591856750_ (let () (declare (not safe)) - (##cdr _e5604956872_))) - (_hd5604856876_ + (##cdr _e5592056743_))) + (_hd5591956747_ (let () (declare (not safe)) - (##car _e5604956872_)))) - (if (gx#stx-null? _tl5604756879_) - (___match6386163862_ - _e5599556949_ - _hd5599456953_ - _tl5599356956_ - _e5599856959_ - _hd5599756963_ - _tl5599656966_ - _e5599956969_ - _e5600256973_ - _hd5600156977_ - _tl5600056980_ - ___splice6374163742_ - _target5603856866_ - _tl5604056869_ - _e5604956872_ - _hd5604856876_ - _tl5604756879_) + (##car _e5592056743_)))) + (if (gx#stx-null? _tl5591856750_) + (___match6388863889_ + _e5586656820_ + _hd5586556824_ + _tl5586456827_ + _e5586956830_ + _hd5586856834_ + _tl5586756837_ + _e5587056840_ + _e5587356844_ + _hd5587256848_ + _tl5587156851_ + ___splice6376863769_ + _target5590956737_ + _tl5591156740_ + _e5592056743_ + _hd5591956747_ + _tl5591856750_) (if (gx#stx-null? - _tl5600056980_) - (___kont6374363744_ - _hd5600156977_) + _tl5587156851_) + (___kont6377063771_ + _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_))))))) - (if (fx>= (gx#stx-length _tl5600056980_) '1) - (let ((___splice6374163742_ - (gx#syntax-split-splice _tl5600056980_ '1))) - (let ((_tl5604056869_ + (_g5585756071_))))))) + (if (fx>= (gx#stx-length _tl5587156851_) '1) + (let ((___splice6376863769_ + (gx#syntax-split-splice _tl5587156851_ '1))) + (let ((_tl5591156740_ (let () (declare (not safe)) - (##vector-ref ___splice6374163742_ '1))) - (_target5603856866_ + (##vector-ref ___splice6376863769_ '1))) + (_target5590956737_ (let () (declare (not safe)) - (##vector-ref ___splice6374163742_ '0)))) - (if (gx#stx-pair? _tl5604056869_) - (let ((_e5604956872_ - (gx#syntax-e _tl5604056869_))) - (let ((_tl5604756879_ + (##vector-ref ___splice6376863769_ '0)))) + (if (gx#stx-pair? _tl5591156740_) + (let ((_e5592056743_ + (gx#syntax-e _tl5591156740_))) + (let ((_tl5591856750_ (let () (declare (not safe)) - (##cdr _e5604956872_))) - (_hd5604856876_ + (##cdr _e5592056743_))) + (_hd5591956747_ (let () (declare (not safe)) - (##car _e5604956872_)))) - (if (gx#stx-null? _tl5604756879_) - (___match6386163862_ - _e5599556949_ - _hd5599456953_ - _tl5599356956_ - _e5599856959_ - _hd5599756963_ - _tl5599656966_ - _e5599956969_ - _e5600256973_ - _hd5600156977_ - _tl5600056980_ - ___splice6374163742_ - _target5603856866_ - _tl5604056869_ - _e5604956872_ - _hd5604856876_ - _tl5604756879_) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) + (##car _e5592056743_)))) + (if (gx#stx-null? _tl5591856750_) + (___match6388863889_ + _e5586656820_ + _hd5586556824_ + _tl5586456827_ + _e5586956830_ + _hd5586856834_ + _tl5586756837_ + _e5587056840_ + _e5587356844_ + _hd5587256848_ + _tl5587156851_ + ___splice6376863769_ + _target5590956737_ + _tl5591156740_ + _e5592056743_ + _hd5591956747_ + _tl5591856750_) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) - (let () (declare (not safe)) (_g5598656200_))))) - (if (fx>= (gx#stx-length _tl5600056980_) '1) - (let ((___splice6374163742_ - (gx#syntax-split-splice _tl5600056980_ '1))) - (let ((_tl5604056869_ + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) + (let () (declare (not safe)) (_g5585756071_))))) + (if (fx>= (gx#stx-length _tl5587156851_) '1) + (let ((___splice6376863769_ + (gx#syntax-split-splice _tl5587156851_ '1))) + (let ((_tl5591156740_ (let () (declare (not safe)) - (##vector-ref ___splice6374163742_ '1))) - (_target5603856866_ + (##vector-ref ___splice6376863769_ '1))) + (_target5590956737_ (let () (declare (not safe)) - (##vector-ref ___splice6374163742_ '0)))) - (if (gx#stx-pair? _tl5604056869_) - (let ((_e5604956872_ (gx#syntax-e _tl5604056869_))) - (let ((_tl5604756879_ + (##vector-ref ___splice6376863769_ '0)))) + (if (gx#stx-pair? _tl5591156740_) + (let ((_e5592056743_ (gx#syntax-e _tl5591156740_))) + (let ((_tl5591856750_ (let () (declare (not safe)) - (##cdr _e5604956872_))) - (_hd5604856876_ + (##cdr _e5592056743_))) + (_hd5591956747_ (let () (declare (not safe)) - (##car _e5604956872_)))) - (if (gx#stx-null? _tl5604756879_) - (___match6386163862_ - _e5599556949_ - _hd5599456953_ - _tl5599356956_ - _e5599856959_ - _hd5599756963_ - _tl5599656966_ - _e5599956969_ - _e5600256973_ - _hd5600156977_ - _tl5600056980_ - ___splice6374163742_ - _target5603856866_ - _tl5604056869_ - _e5604956872_ - _hd5604856876_ - _tl5604756879_) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) + (##car _e5592056743_)))) + (if (gx#stx-null? _tl5591856750_) + (___match6388863889_ + _e5586656820_ + _hd5586556824_ + _tl5586456827_ + _e5586956830_ + _hd5586856834_ + _tl5586756837_ + _e5587056840_ + _e5587356844_ + _hd5587256848_ + _tl5587156851_ + ___splice6376863769_ + _target5590956737_ + _tl5591156740_ + _e5592056743_ + _hd5591956747_ + _tl5591856750_) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) - (let () (declare (not safe)) (_g5598656200_))))))) + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) + (let () (declare (not safe)) (_g5585756071_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fx>= (gx#stx-length - _tl5600056980_) + _tl5587156851_) '1) - (let ((___splice6374163742_ + (let ((___splice6376863769_ (gx#syntax-split-splice - _tl5600056980_ + _tl5587156851_ '1))) - (let ((_tl5604056869_ + (let ((_tl5591156740_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice6374163742_ '1))) - (_target5603856866_ + (##vector-ref ___splice6376863769_ '1))) + (_target5590956737_ (let () (declare (not safe)) - (##vector-ref ___splice6374163742_ '0)))) - (if (gx#stx-pair? _tl5604056869_) - (let ((_e5604956872_ (gx#syntax-e _tl5604056869_))) - (let ((_tl5604756879_ + (##vector-ref ___splice6376863769_ '0)))) + (if (gx#stx-pair? _tl5591156740_) + (let ((_e5592056743_ (gx#syntax-e _tl5591156740_))) + (let ((_tl5591856750_ (let () (declare (not safe)) - (##cdr _e5604956872_))) - (_hd5604856876_ + (##cdr _e5592056743_))) + (_hd5591956747_ (let () (declare (not safe)) - (##car _e5604956872_)))) - (if (gx#stx-null? _tl5604756879_) - (___match6386163862_ - _e5599556949_ - _hd5599456953_ - _tl5599356956_ - _e5599856959_ - _hd5599756963_ - _tl5599656966_ - _e5599956969_ - _e5600256973_ - _hd5600156977_ - _tl5600056980_ - ___splice6374163742_ - _target5603856866_ - _tl5604056869_ - _e5604956872_ - _hd5604856876_ - _tl5604756879_) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) + (##car _e5592056743_)))) + (if (gx#stx-null? _tl5591856750_) + (___match6388863889_ + _e5586656820_ + _hd5586556824_ + _tl5586456827_ + _e5586956830_ + _hd5586856834_ + _tl5586756837_ + _e5587056840_ + _e5587356844_ + _hd5587256848_ + _tl5587156851_ + ___splice6376863769_ + _target5590956737_ + _tl5591156740_ + _e5592056743_ + _hd5591956747_ + _tl5591856750_) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) - (let () (declare (not safe)) (_g5598656200_)))))) + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) + (let () (declare (not safe)) (_g5585756071_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5600056980_) - (___kont6374363744_ - _hd5600156977_) + _tl5587156851_) + (___kont6377063771_ + _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_))))) + (_g5585756071_))))) (if (fx>= (gx#stx-length - _tl5600056980_) + _tl5587156851_) '1) - (let ((___splice6374163742_ + (let ((___splice6376863769_ (gx#syntax-split-splice - _tl5600056980_ + _tl5587156851_ '1))) - (let ((_tl5604056869_ + (let ((_tl5591156740_ (let () (declare (not safe)) (##vector-ref - ___splice6374163742_ + ___splice6376863769_ '1))) - (_target5603856866_ + (_target5590956737_ (let () (declare (not safe)) (##vector-ref - ___splice6374163742_ + ___splice6376863769_ '0)))) (if (gx#stx-pair? - _tl5604056869_) - (let ((_e5604956872_ + _tl5591156740_) + (let ((_e5592056743_ (gx#syntax-e - _tl5604056869_))) - (let ((_tl5604756879_ + _tl5591156740_))) + (let ((_tl5591856750_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5604956872_))) - (_hd5604856876_ - (let () (declare (not safe)) (##car _e5604956872_)))) - (if (gx#stx-null? _tl5604756879_) - (___match6386163862_ - _e5599556949_ - _hd5599456953_ - _tl5599356956_ - _e5599856959_ - _hd5599756963_ - _tl5599656966_ - _e5599956969_ - _e5600256973_ - _hd5600156977_ - _tl5600056980_ - ___splice6374163742_ - _target5603856866_ - _tl5604056869_ - _e5604956872_ - _hd5604856876_ - _tl5604756879_) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) - (let () (declare (not safe)) (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) - (let () (declare (not safe)) (_g5598656200_)))))) + (let () (declare (not safe)) (##cdr _e5592056743_))) + (_hd5591956747_ + (let () (declare (not safe)) (##car _e5592056743_)))) + (if (gx#stx-null? _tl5591856750_) + (___match6388863889_ + _e5586656820_ + _hd5586556824_ + _tl5586456827_ + _e5586956830_ + _hd5586856834_ + _tl5586756837_ + _e5587056840_ + _e5587356844_ + _hd5587256848_ + _tl5587156851_ + ___splice6376863769_ + _target5590956737_ + _tl5591156740_ + _e5592056743_ + _hd5591956747_ + _tl5591856750_) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) + (let () (declare (not safe)) (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) + (let () (declare (not safe)) (_g5585756071_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5600056980_) - (___kont6374363744_ - _hd5600156977_) + _tl5587156851_) + (___kont6377063771_ + _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_))))) + (_g5585756071_))))) (if (fx>= (gx#stx-length - _tl5600056980_) + _tl5587156851_) '1) - (let ((___splice6374163742_ + (let ((___splice6376863769_ (gx#syntax-split-splice - _tl5600056980_ + _tl5587156851_ '1))) - (let ((_tl5604056869_ + (let ((_tl5591156740_ (let () (declare (not safe)) (##vector-ref - ___splice6374163742_ + ___splice6376863769_ '1))) - (_target5603856866_ + (_target5590956737_ (let () (declare (not safe)) (##vector-ref - ___splice6374163742_ + ___splice6376863769_ '0)))) (if (gx#stx-pair? - _tl5604056869_) - (let ((_e5604956872_ + _tl5591156740_) + (let ((_e5592056743_ (gx#syntax-e - _tl5604056869_))) - (let ((_tl5604756879_ + _tl5591156740_))) + (let ((_tl5591856750_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5604956872_))) - (_hd5604856876_ - (let () (declare (not safe)) (##car _e5604956872_)))) - (if (gx#stx-null? _tl5604756879_) - (___match6386163862_ - _e5599556949_ - _hd5599456953_ - _tl5599356956_ - _e5599856959_ - _hd5599756963_ - _tl5599656966_ - _e5599956969_ - _e5600256973_ - _hd5600156977_ - _tl5600056980_ - ___splice6374163742_ - _target5603856866_ - _tl5604056869_ - _e5604956872_ - _hd5604856876_ - _tl5604756879_) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) - (let () (declare (not safe)) (_g5598656200_)))))) + (##cdr _e5592056743_))) + (_hd5591956747_ + (let () (declare (not safe)) (##car _e5592056743_)))) + (if (gx#stx-null? _tl5591856750_) + (___match6388863889_ + _e5586656820_ + _hd5586556824_ + _tl5586456827_ + _e5586956830_ + _hd5586856834_ + _tl5586756837_ + _e5587056840_ + _e5587356844_ + _hd5587256848_ + _tl5587156851_ + ___splice6376863769_ + _target5590956737_ + _tl5591156740_ + _e5592056743_ + _hd5591956747_ + _tl5591856750_) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) + (let () (declare (not safe)) (_g5585756071_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5600056980_) - (___kont6374363744_ - _hd5600156977_) + _tl5587156851_) + (___kont6377063771_ + _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ - _hd5600156977_) + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ + _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_))))))) - (if (fx>= (gx#stx-length _tl5600056980_) '1) - (let ((___splice6374163742_ + (_g5585756071_))))))) + (if (fx>= (gx#stx-length _tl5587156851_) '1) + (let ((___splice6376863769_ (gx#syntax-split-splice - _tl5600056980_ + _tl5587156851_ '1))) - (let ((_tl5604056869_ + (let ((_tl5591156740_ (let () (declare (not safe)) (##vector-ref - ___splice6374163742_ + ___splice6376863769_ '1))) - (_target5603856866_ + (_target5590956737_ (let () (declare (not safe)) (##vector-ref - ___splice6374163742_ + ___splice6376863769_ '0)))) - (if (gx#stx-pair? _tl5604056869_) - (let ((_e5604956872_ + (if (gx#stx-pair? _tl5591156740_) + (let ((_e5592056743_ (gx#syntax-e - _tl5604056869_))) - (let ((_tl5604756879_ + _tl5591156740_))) + (let ((_tl5591856750_ (let () (declare (not safe)) - (##cdr _e5604956872_))) - (_hd5604856876_ + (##cdr _e5592056743_))) + (_hd5591956747_ (let () (declare (not safe)) - (##car _e5604956872_)))) + (##car _e5592056743_)))) (if (gx#stx-null? - _tl5604756879_) - (___match6386163862_ - _e5599556949_ - _hd5599456953_ - _tl5599356956_ - _e5599856959_ - _hd5599756963_ - _tl5599656966_ - _e5599956969_ - _e5600256973_ - _hd5600156977_ - _tl5600056980_ - ___splice6374163742_ - _target5603856866_ - _tl5604056869_ - _e5604956872_ - _hd5604856876_ - _tl5604756879_) + _tl5591856750_) + (___match6388863889_ + _e5586656820_ + _hd5586556824_ + _tl5586456827_ + _e5586956830_ + _hd5586856834_ + _tl5586756837_ + _e5587056840_ + _e5587356844_ + _hd5587256848_ + _tl5587156851_ + ___splice6376863769_ + _target5590956737_ + _tl5591156740_ + _e5592056743_ + _hd5591956747_ + _tl5591856750_) (if (gx#stx-null? - _tl5600056980_) - (___kont6374363744_ - _hd5600156977_) + _tl5587156851_) + (___kont6377063771_ + _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ - _hd5600156977_) + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ + _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_))))))) - (if (fx>= (gx#stx-length _tl5600056980_) '1) - (let ((___splice6374163742_ - (gx#syntax-split-splice _tl5600056980_ '1))) - (let ((_tl5604056869_ + (_g5585756071_))))))) + (if (fx>= (gx#stx-length _tl5587156851_) '1) + (let ((___splice6376863769_ + (gx#syntax-split-splice _tl5587156851_ '1))) + (let ((_tl5591156740_ (let () (declare (not safe)) - (##vector-ref ___splice6374163742_ '1))) - (_target5603856866_ + (##vector-ref ___splice6376863769_ '1))) + (_target5590956737_ (let () (declare (not safe)) (##vector-ref - ___splice6374163742_ + ___splice6376863769_ '0)))) - (if (gx#stx-pair? _tl5604056869_) - (let ((_e5604956872_ - (gx#syntax-e _tl5604056869_))) - (let ((_tl5604756879_ + (if (gx#stx-pair? _tl5591156740_) + (let ((_e5592056743_ + (gx#syntax-e _tl5591156740_))) + (let ((_tl5591856750_ (let () (declare (not safe)) - (##cdr _e5604956872_))) - (_hd5604856876_ + (##cdr _e5592056743_))) + (_hd5591956747_ (let () (declare (not safe)) - (##car _e5604956872_)))) - (if (gx#stx-null? _tl5604756879_) - (___match6386163862_ - _e5599556949_ - _hd5599456953_ - _tl5599356956_ - _e5599856959_ - _hd5599756963_ - _tl5599656966_ - _e5599956969_ - _e5600256973_ - _hd5600156977_ - _tl5600056980_ - ___splice6374163742_ - _target5603856866_ - _tl5604056869_ - _e5604956872_ - _hd5604856876_ - _tl5604756879_) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ - _hd5600156977_) + (##car _e5592056743_)))) + (if (gx#stx-null? _tl5591856750_) + (___match6388863889_ + _e5586656820_ + _hd5586556824_ + _tl5586456827_ + _e5586956830_ + _hd5586856834_ + _tl5586756837_ + _e5587056840_ + _e5587356844_ + _hd5587256848_ + _tl5587156851_ + ___splice6376863769_ + _target5590956737_ + _tl5591156740_ + _e5592056743_ + _hd5591956747_ + _tl5591856750_) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ + _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_))))))) - (if (fx>= (gx#stx-length _tl5600056980_) '1) - (let ((___splice6374163742_ - (gx#syntax-split-splice _tl5600056980_ '1))) - (let ((_tl5604056869_ + (_g5585756071_))))))) + (if (fx>= (gx#stx-length _tl5587156851_) '1) + (let ((___splice6376863769_ + (gx#syntax-split-splice _tl5587156851_ '1))) + (let ((_tl5591156740_ (let () (declare (not safe)) - (##vector-ref ___splice6374163742_ '1))) - (_target5603856866_ + (##vector-ref ___splice6376863769_ '1))) + (_target5590956737_ (let () (declare (not safe)) - (##vector-ref ___splice6374163742_ '0)))) - (if (gx#stx-pair? _tl5604056869_) - (let ((_e5604956872_ (gx#syntax-e _tl5604056869_))) - (let ((_tl5604756879_ + (##vector-ref ___splice6376863769_ '0)))) + (if (gx#stx-pair? _tl5591156740_) + (let ((_e5592056743_ (gx#syntax-e _tl5591156740_))) + (let ((_tl5591856750_ (let () (declare (not safe)) - (##cdr _e5604956872_))) - (_hd5604856876_ + (##cdr _e5592056743_))) + (_hd5591956747_ (let () (declare (not safe)) - (##car _e5604956872_)))) - (if (gx#stx-null? _tl5604756879_) - (___match6386163862_ - _e5599556949_ - _hd5599456953_ - _tl5599356956_ - _e5599856959_ - _hd5599756963_ - _tl5599656966_ - _e5599956969_ - _e5600256973_ - _hd5600156977_ - _tl5600056980_ - ___splice6374163742_ - _target5603856866_ - _tl5604056869_ - _e5604956872_ - _hd5604856876_ - _tl5604756879_) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) + (##car _e5592056743_)))) + (if (gx#stx-null? _tl5591856750_) + (___match6388863889_ + _e5586656820_ + _hd5586556824_ + _tl5586456827_ + _e5586956830_ + _hd5586856834_ + _tl5586756837_ + _e5587056840_ + _e5587356844_ + _hd5587256848_ + _tl5587156851_ + ___splice6376863769_ + _target5590956737_ + _tl5591156740_ + _e5592056743_ + _hd5591956747_ + _tl5591856750_) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-null? _tl5600056980_) - (___kont6374363744_ _hd5600156977_) - (let () (declare (not safe)) (_g5598656200_))))) + (_g5585756071_)))))) + (if (gx#stx-null? _tl5587156851_) + (___kont6377063771_ _hd5587256848_) + (let () (declare (not safe)) (_g5585756071_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5600056980_) - (___kont6374363744_ - _hd5600156977_) + _tl5587156851_) + (___kont6377063771_ + _hd5587256848_) (let () (declare (not safe)) - (_g5598656200_)))))) + (_g5585756071_)))))) (let () (declare (not safe)) - (_g5598656200_))) + (_g5585756071_))) (if (let () (declare (not safe)) - (equal? _e5599956969_ '2)) - (if (gx#stx-pair? _tl5599656966_) - (let ((_e5607656672_ + (equal? _e5587056840_ '2)) + (if (gx#stx-pair? _tl5586756837_) + (let ((_e5594756543_ (gx#syntax-e - _tl5599656966_))) - (let ((_tl5607456679_ + _tl5586756837_))) + (let ((_tl5594556550_ (let () (declare (not safe)) - (##cdr _e5607656672_))) - (_hd5607556676_ + (##cdr _e5594756543_))) + (_hd5594656547_ (let () (declare (not safe)) - (##car _e5607656672_)))) + (##car _e5594756543_)))) (if (gx#stx-pair? - _tl5607456679_) - (let ((_e5607956682_ + _tl5594556550_) + (let ((_e5595056553_ (gx#syntax-e - _tl5607456679_))) - (let ((_tl5607756689_ + _tl5594556550_))) + (let ((_tl5594856560_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5607956682_))) - (_hd5607856686_ - (let () (declare (not safe)) (##car _e5607956682_)))) - (if (gx#stx-pair? _hd5607856686_) - (let ((_e5608256692_ (gx#syntax-e _hd5607856686_))) - (let ((_tl5608056699_ + (let () (declare (not safe)) (##cdr _e5595056553_))) + (_hd5594956557_ + (let () (declare (not safe)) (##car _e5595056553_)))) + (if (gx#stx-pair? _hd5594956557_) + (let ((_e5595356563_ (gx#syntax-e _hd5594956557_))) + (let ((_tl5595156570_ (let () (declare (not safe)) - (##cdr _e5608256692_))) - (_hd5608156696_ + (##cdr _e5595356563_))) + (_hd5595256567_ (let () (declare (not safe)) - (##car _e5608256692_)))) - (if (gx#stx-pair? _hd5608156696_) - (let ((_e5608556702_ - (gx#syntax-e _hd5608156696_))) - (let ((_tl5608356709_ + (##car _e5595356563_)))) + (if (gx#stx-pair? _hd5595256567_) + (let ((_e5595656573_ + (gx#syntax-e _hd5595256567_))) + (let ((_tl5595456580_ (let () (declare (not safe)) - (##cdr _e5608556702_))) - (_hd5608456706_ + (##cdr _e5595656573_))) + (_hd5595556577_ (let () (declare (not safe)) - (##car _e5608556702_)))) - (if (gx#identifier? _hd5608456706_) + (##car _e5595656573_)))) + (if (gx#identifier? _hd5595556577_) (if (gx#free-identifier=? - |[1]#_g64504_| - _hd5608456706_) - (if (gx#stx-pair? _tl5608356709_) - (let ((_e5608856712_ + |[1]#_g64532_| + _hd5595556577_) + (if (gx#stx-pair? _tl5595456580_) + (let ((_e5595956583_ (gx#syntax-e - _tl5608356709_))) - (let ((_tl5608656719_ + _tl5595456580_))) + (let ((_tl5595756590_ (let () (declare (not safe)) - (##cdr _e5608856712_))) - (_hd5608756716_ + (##cdr _e5595956583_))) + (_hd5595856587_ (let () (declare (not safe)) - (##car _e5608856712_)))) + (##car _e5595956583_)))) (if (gx#stx-null? - _tl5608656719_) + _tl5595756590_) (if (gx#stx-pair? - _tl5608056699_) - (let ((_e5609156722_ + _tl5595156570_) + (let ((_e5596256593_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl5608056699_))) - (let ((_tl5608956729_ + (gx#syntax-e _tl5595156570_))) + (let ((_tl5596056600_ (let () (declare (not safe)) - (##cdr _e5609156722_))) - (_hd5609056726_ + (##cdr _e5596256593_))) + (_hd5596156597_ (let () (declare (not safe)) - (##car _e5609156722_)))) - (___kont6374563746_ - _tl5607756689_ - _tl5608956729_ - _hd5609056726_ - _hd5608756716_ - _hd5607556676_ - _hd5599456953_))) - (___kont6374763748_ - _tl5607756689_ - _tl5608056699_ - _hd5608156696_ - _hd5607556676_ - _hd5599456953_)) - (___kont6374763748_ - _tl5607756689_ - _tl5608056699_ - _hd5608156696_ - _hd5607556676_ - _hd5599456953_)))) + (##car _e5596256593_)))) + (___kont6377263773_ + _tl5594856560_ + _tl5596056600_ + _hd5596156597_ + _hd5595856587_ + _hd5594656547_ + _hd5586556824_))) + (___kont6377463775_ + _tl5594856560_ + _tl5595156570_ + _hd5595256567_ + _hd5594656547_ + _hd5586556824_)) + (___kont6377463775_ + _tl5594856560_ + _tl5595156570_ + _hd5595256567_ + _hd5594656547_ + _hd5586556824_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont6374763748_ - _tl5607756689_ - _tl5608056699_ - _hd5608156696_ - _hd5607556676_ - _hd5599456953_)) - (___kont6374763748_ - _tl5607756689_ - _tl5608056699_ - _hd5608156696_ - _hd5607556676_ - _hd5599456953_)) - (___kont6374763748_ - _tl5607756689_ - _tl5608056699_ - _hd5608156696_ - _hd5607556676_ - _hd5599456953_)))) - (___kont6374763748_ - _tl5607756689_ - _tl5608056699_ - _hd5608156696_ - _hd5607556676_ - _hd5599456953_)))) - (if (gx#stx-null? _hd5607856686_) - (___kont6374963750_ - _tl5607756689_ - _hd5607556676_ - _hd5599456953_) - (let () (declare (not safe)) (_g5598656200_)))))) - (let () (declare (not safe)) (_g5598656200_))))) + (___kont6377463775_ + _tl5594856560_ + _tl5595156570_ + _hd5595256567_ + _hd5594656547_ + _hd5586556824_)) + (___kont6377463775_ + _tl5594856560_ + _tl5595156570_ + _hd5595256567_ + _hd5594656547_ + _hd5586556824_)) + (___kont6377463775_ + _tl5594856560_ + _tl5595156570_ + _hd5595256567_ + _hd5594656547_ + _hd5586556824_)))) + (___kont6377463775_ + _tl5594856560_ + _tl5595156570_ + _hd5595256567_ + _hd5594656547_ + _hd5586556824_)))) + (if (gx#stx-null? _hd5594956557_) + (___kont6377663777_ + _tl5594856560_ + _hd5594656547_ + _hd5586556824_) + (let () (declare (not safe)) (_g5585756071_)))))) + (let () (declare (not safe)) (_g5585756071_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5598656200_))) + (_g5585756071_))) (if (let () (declare (not safe)) - (equal? _e5599956969_ '3)) + (equal? _e5587056840_ '3)) (if (gx#stx-pair? - _tl5599656966_) - (let ((_e5614356421_ + _tl5586756837_) + (let ((_e5601456292_ (gx#syntax-e - _tl5599656966_))) - (let ((_tl5614156428_ + _tl5586756837_))) + (let ((_tl5601256299_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5614356421_))) - (_hd5614256425_ - (let () (declare (not safe)) (##car _e5614356421_)))) - (if (gx#stx-pair? _tl5614156428_) - (let ((_e5614656431_ (gx#syntax-e _tl5614156428_))) - (let ((_tl5614456438_ + (##cdr _e5601456292_))) + (_hd5601356296_ + (let () (declare (not safe)) (##car _e5601456292_)))) + (if (gx#stx-pair? _tl5601256299_) + (let ((_e5601756302_ (gx#syntax-e _tl5601256299_))) + (let ((_tl5601556309_ (let () (declare (not safe)) - (##cdr _e5614656431_))) - (_hd5614556435_ + (##cdr _e5601756302_))) + (_hd5601656306_ (let () (declare (not safe)) - (##car _e5614656431_)))) - (if (gx#stx-pair? _hd5614556435_) - (let ((_e5614956441_ (gx#syntax-e _hd5614556435_))) - (let ((_tl5614756448_ + (##car _e5601756302_)))) + (if (gx#stx-pair? _hd5601656306_) + (let ((_e5602056312_ (gx#syntax-e _hd5601656306_))) + (let ((_tl5601856319_ (let () (declare (not safe)) - (##cdr _e5614956441_))) - (_hd5614856445_ + (##cdr _e5602056312_))) + (_hd5601956316_ (let () (declare (not safe)) - (##car _e5614956441_)))) - (___kont6375163752_ - _tl5614456438_ - _tl5614756448_ - _hd5614856445_ - _hd5614256425_ - _hd5599456953_))) - (if (gx#stx-pair/null? _hd5614256425_) - (let ((___splice6375563756_ + (##car _e5602056312_)))) + (___kont6377863779_ + _tl5601556309_ + _tl5601856319_ + _hd5601956316_ + _hd5601356296_ + _hd5586556824_))) + (if (gx#stx-pair/null? _hd5601356296_) + (let ((___splice6378263783_ (gx#syntax-split-splice - _hd5614256425_ + _hd5601356296_ '0))) - (let ((_tl5616856244_ + (let ((_tl5603956115_ (let () (declare (not safe)) (##vector-ref - ___splice6375563756_ + ___splice6378263783_ '1))) - (_target5616656241_ + (_target5603756112_ (let () (declare (not safe)) (##vector-ref - ___splice6375563756_ + ___splice6378263783_ '0)))) - (if (gx#stx-null? _tl5616856244_) - (___match6408364084_ - _e5599556949_ - _hd5599456953_ - _tl5599356956_ - _e5599856959_ - _hd5599756963_ - _tl5599656966_ - _e5599956969_ - _e5614356421_ - _hd5614256425_ - _tl5614156428_ - ___splice6375563756_ - _target5616656241_ - _tl5616856244_) + (if (gx#stx-null? _tl5603956115_) + (___match6411064111_ + _e5586656820_ + _hd5586556824_ + _tl5586456827_ + _e5586956830_ + _hd5586856834_ + _tl5586756837_ + _e5587056840_ + _e5601456292_ + _hd5601356296_ + _tl5601256299_ + ___splice6378263783_ + _target5603756112_ + _tl5603956115_) (let () (declare (not safe)) - (_g5598656200_))))) + (_g5585756071_))))) (let () (declare (not safe)) - (_g5598656200_)))))) - (if (gx#stx-pair/null? _hd5614256425_) - (let ((___splice6375563756_ - (gx#syntax-split-splice _hd5614256425_ '0))) - (let ((_tl5616856244_ + (_g5585756071_)))))) + (if (gx#stx-pair/null? _hd5601356296_) + (let ((___splice6378263783_ + (gx#syntax-split-splice _hd5601356296_ '0))) + (let ((_tl5603956115_ (let () (declare (not safe)) - (##vector-ref ___splice6375563756_ '1))) - (_target5616656241_ + (##vector-ref ___splice6378263783_ '1))) + (_target5603756112_ (let () (declare (not safe)) - (##vector-ref ___splice6375563756_ '0)))) - (if (gx#stx-null? _tl5616856244_) - (___match6408364084_ - _e5599556949_ - _hd5599456953_ - _tl5599356956_ - _e5599856959_ - _hd5599756963_ - _tl5599656966_ - _e5599956969_ - _e5614356421_ - _hd5614256425_ - _tl5614156428_ - ___splice6375563756_ - _target5616656241_ - _tl5616856244_) + (##vector-ref ___splice6378263783_ '0)))) + (if (gx#stx-null? _tl5603956115_) + (___match6411064111_ + _e5586656820_ + _hd5586556824_ + _tl5586456827_ + _e5586956830_ + _hd5586856834_ + _tl5586756837_ + _e5587056840_ + _e5601456292_ + _hd5601356296_ + _tl5601256299_ + ___splice6378263783_ + _target5603756112_ + _tl5603956115_) (let () (declare (not safe)) - (_g5598656200_))))) - (let () (declare (not safe)) (_g5598656200_)))))) + (_g5585756071_))))) + (let () (declare (not safe)) (_g5585756071_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5598656200_))) + (_g5585756071_))) (let () (declare (not safe)) - (_g5598656200_)))))) + (_g5585756071_)))))) (let () (declare (not safe)) - (_g5598656200_))))) - (let () (declare (not safe)) (_g5598656200_))))) - (let () (declare (not safe)) (_g5598656200_)))))))))) + (_g5585756071_))))) + (let () (declare (not safe)) (_g5585756071_))))) + (let () (declare (not safe)) (_g5585756071_)))))))))) diff --git a/src/bootstrap/gerbil/runtime__0.scm b/src/bootstrap/gerbil/runtime__0.scm index 137290add..6f456003b 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 1707573211) '#!void) +(begin (define gerbil/runtime::timestamp 1707674930) '#!void) diff --git a/src/gerbil/compiler/optimize-base.ss b/src/gerbil/compiler/optimize-base.ss index 55451a537..13d165034 100644 --- a/src/gerbil/compiler/optimize-base.ss +++ b/src/gerbil/compiler/optimize-base.ss @@ -6,6 +6,7 @@ package: gerbil/compiler namespace: gxc (import "../expander" + "../runtime/c3" "base" "compile" ) @@ -39,8 +40,7 @@ namespace: gxc constructor ;; OrFalse Symbol; constructor method struct? ;; Boolean; is it a struct? final? ;; Boolean; is it a final class? - methods ;; Map Symbol -> Symbol; known method implementations - ) + methods) ;; Map Symbol -> Symbol; known method implementations constructor: :init!) (defstruct (!predicate !procedure) ()) @@ -76,24 +76,9 @@ namespace: gxc (lp rest)) (else (void)))) - ;; 2. check struct constraint - ;; TODO: relax this when we allow structs to extend classes - ;; add check fof incompatible mixins in the general class case - (when struct? - (match super - ([] (void)) - ([super-id] - (let (klass (optimizer-resolve-class `(!class ,id) super-id)) - (unless (!class-struct? klass) - (raise-compile-error "bad class; struct extending non struct" - `(!class ,id) super-id)))) - (else - (raise-compile-error "bad class; struct can only extend a single struct" - `(!class ,id) super)))) - (let* ((ctor-method (or ctor-method - ;; 3. check/infer from super constructor method name + ;; 2. check/infer from super constructor method name (let lp ((rest super) (method #f)) (match rest ([super-id . rest] @@ -110,22 +95,23 @@ namespace: gxc (else (lp rest method))))) (else method))))) - (precedence-list - ;; 4. compute super precedence list - (c3-linearize [] super + ((values precedence-list base-struct) + ;; 3. compute super precedence list + (c4-linearize [] super + get-precedence-list: (lambda (klass-id) (cons klass-id (!class-precedence-list (optimizer-resolve-class `(!class ,id) klass-id)))) - eq? identity)) + struct: + (lambda (klass-id) + (!class-struct? + (optimizer-resolve-class `(!class ,id) klass-id))) + eq: eq? + get-name: identity)) (fields - ;; 5. compute slot->field mapping for direct instances/structs - (let (base-struct - (find (lambda (klass-id) - (!class-struct? - (optimizer-resolve-class `(!class ,id) klass-id))) - precedence-list)) - (compute-class-fields `(!class ,id) base-struct precedence-list slots)))) + ;; 4. compute slot->field mapping for direct instances/structs + (compute-class-fields `(!class ,id) base-struct precedence-list slots))) (set! (!type-id self) id) (set! (!class-super self) super) (set! (!class-precedence-list self) precedence-list) diff --git a/src/gerbil/prelude/builtin.ssxi.ss b/src/gerbil/prelude/builtin.ssxi.ss index a1a140a2e..f19628dcb 100644 --- a/src/gerbil/prelude/builtin.ssxi.ss +++ b/src/gerbil/prelude/builtin.ssxi.ss @@ -254,10 +254,13 @@ package: gerbil ((_ prim ...) (declare-primitive* (prim 5) ...))) -(defrules declare-primitive/5/unchecked() +(defrules declare-primitive/5/unchecked () ((_ prim ...) (declare-primitive/unchecked* (prim 5) ...))) +(defrules declare-primitive/6/unchecked () + ((_ prim ...) + (declare-primitive/unchecked* (prim 6) ...))) ;; r5rs primitives -- (declare-primitive/0/unchecked interaction-environment) @@ -484,6 +487,9 @@ package: gerbil substring-move! subu8vector-move!) +(declare-primitive/6/unchecked + make-class-type) + (declare-primitive/unchecked* (iota 1 2 3) (assgetq 2 3) @@ -504,10 +510,7 @@ package: gerbil (bytes->string 1 2) (string-index 2 3) (string-rindex 2 3) - (make-struct-type 6 7) - (make-class-type 6) - (make-struct-instance (1)) - (make-class-instance (1)) + (make-instance (1)) (class-instance-init! (1)) (slot-ref 2 3) (slot-set! 3 4) diff --git a/src/gerbil/prelude/core.ss b/src/gerbil/prelude/core.ss index 76dbb2246..38e41cc4a 100644 --- a/src/gerbil/prelude/core.ss +++ b/src/gerbil/prelude/core.ss @@ -161,15 +161,13 @@ package: gerbil string-split string-join string-empty? string-prefix? string->keyword keyword->string make-uninterned-keyword symbol->keyword keyword->symbol - ;; c3 linearization - c3-linearize + ;; class linearization with C4 + c4-linearize ;; MOP type-descriptor? type-id type-descriptor-precedence-all-slots type-descriptor-precedence-list type-descriptor-properties type-descriptor-constructor type-descriptor-slot-table type-descriptor-methods type-final? type-struct? struct-type? class-type? - make-struct-type - make-struct-predicate make-struct-slot-accessor make-struct-slot-mutator @@ -182,7 +180,7 @@ package: gerbil make-struct-field-unchecked-mutator base-struct - class-precedence-list struct-precedence-list + class-precedence-list unchecked-field-ref unchecked-field-set! make-class-type @@ -199,11 +197,11 @@ package: gerbil object? object-type struct-instance? class-instance? direct-instance? - make-object make-instance object-fill! + make-object object-fill! struct-copy struct->list class->list - make-struct-instance - make-class-instance + make-new-instance + make-instance struct-instance-init! class-instance-init! slot-ref slot-set! @@ -1687,22 +1685,24 @@ package: gerbil (syntax-case slot-spec () ((slot getf setf) #'slot))) - (def (class-opt? key) - (memq (stx-e key) '(slots: id: name: properties: constructor: final: mixin:))) + (def (class-opt? key) + (memq (stx-e key) '(struct: slots: id: name: properties: constructor: final: mixin:))) (syntax-case stx () ((_ type-t super make instance? . rest) (and (identifier? #'type-t) - (if struct? - (or (identifier? #'super) - (stx-false? #'super)) - (identifier-list? #'super)) + (identifier-list? #'super) (or (identifier? #'make) (stx-false? #'make)) (identifier? #'instance?) (stx-plist? #'rest class-opt?)) - (with-syntax* (((values slots) + (with-syntax* (((values struct?) + (cond + (struct?) + ((stx-getq struct: #'rest) => stx-e) + (else #f))) + ((values slots) (or (stx-getq slots: #'rest) [])) ((values mixin-slots) @@ -1712,26 +1712,6 @@ package: gerbil (append (syntax->list slots) (syntax->list mixin-slots))) ((slot ...) (stx-map slot-name slots)) - ((make-type - make-instance - make-predicate - make-getf make-setf - make-ugetf make-usetf) - (if struct? - #'(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-instance - make-class-predicate - make-class-slot-accessor - make-class-slot-mutator - make-class-slot-unchecked-accessor - make-class-slot-unchecked-mutator))) (type-id (or (stx-getq id: #'rest) (make-class-type-id #'type-t))) @@ -1742,11 +1722,7 @@ package: gerbil (stx-getq constructor: #'rest)) (mop-type-t (core-quote-syntax #'type-t)) (mop-super - (if struct? - (if (stx-e #'super) - [(core-quote-syntax #'super)] - []) - (stx-map core-quote-syntax #'super))) + (stx-map core-quote-syntax #'super)) (mop-struct? struct?) (mop-final? (stx-getq final: #'rest)) (type-properties @@ -1761,13 +1737,11 @@ package: gerbil #'[[struct: . #t] :: type-properties] #'type-properties)) (type-super - (if struct? - #'super - (cons #'list #'super))) + (cons #'list #'super)) (make-type-rtd - #'(make-type 'type-id 'type-name - type-super '(slot ...) - type-properties 'type-constructor)) + #'(make-class-type 'type-id 'type-name + type-super '(slot ...) + type-properties 'type-constructor)) (def-type (wrap #'(def type-t @@ -1790,7 +1764,8 @@ package: gerbil (wrap #'(def instance? (begin-annotation (@mop.predicate mop-type-t) - (make-predicate type-t))))) + (make-class-predicate type-t))))) + (((def-getf def-setf) ...) (stx-map (lambda (ref) @@ -1800,12 +1775,12 @@ package: gerbil #'(def getf (begin-annotation (@mop.accessor mop-type-t slot #t) - (make-getf type-t 'slot)))) + (make-class-slot-accessor type-t 'slot)))) (wrap #'(def setf (begin-annotation (@mop.mutator mop-type-t slot #t) - (make-setf type-t 'slot))))]))) + (make-class-slot-mutator type-t 'slot))))]))) accessible-slots)) (((def-ugetf def-usetf) ...) (stx-map @@ -1818,12 +1793,12 @@ package: gerbil #'(def ugetf (begin-annotation (@mop.accessor mop-type-t slot #f) - (make-ugetf type-t 'slot)))) + (make-class-slot-unchecked-accessor type-t 'slot)))) (wrap #'(def usetf (begin-annotation (@mop.mutator mop-type-t slot #f) - (make-usetf type-t 'slot))))])))) + (make-class-slot-unchecked-mutator type-t 'slot))))])))) accessible-slots))) (wrap #'(begin def-type @@ -1851,7 +1826,7 @@ package: gerbil name: class-type-info slots: ((id ;; Symbol - ;; thre class's type id + ;; the class's type id class-type-id class-type-id-set!) (name ;; Symbol ;; the class's name @@ -2002,10 +1977,10 @@ package: gerbil (def (typedef-body? stx) (def (body-opt? key) (memq (stx-e key) - '(id: name: constructor: transparent: final: print: equal:))) + '(id: struct: name: constructor: transparent: final: print: equal:))) (stx-plist? stx body-opt?)) - (def (generate-typedef stx id super-ref slots body struct?) + (def (generate-defclass stx id super-ref slots body) (def (wrap e-stx) (stx-wrap-source e-stx (stx-source stx))) @@ -2047,21 +2022,15 @@ package: gerbil (with-syntax* (((values name) (symbol->string (stx-e id))) ((values super) - (if struct? - (and super-ref (syntax-local-value super-ref)) - (map syntax-local-value super-ref))) - (deftype-type - (if struct? - #'defstruct-type - #'defclass-type)) + (map syntax-local-value super-ref)) + ((values struct?) + (stx-getq struct: body)) (type id) (type::t (make-id name "::t")) (make-type (make-id "make-" name)) (type? (make-id name "?")) (type-super - (if struct? - (and super (class-type-descriptor super)) - (map class-type-descriptor super))) + (map class-type-descriptor super)) ((slot ...) slots) ((getf ...) @@ -2127,19 +2096,22 @@ package: gerbil [properties: #'(quote properties)]))) ((values final?) (stx-e (stx-getq final: body))) + ((values type-struct) + [struct: struct?]) ((values type-final) [final: final?]) ((type-body ...) [type-id ... type-name ... type-constructor ... + type-struct ... type-final ... type-properties ... type-slots ... type-mixin-slots ...]) (typedef (wrap - #'(deftype-type type::t type-super + #'(defclass-type type::t type-super make-type type? type-body ...))) (meta-type-id @@ -2149,13 +2121,8 @@ package: gerbil (with-syntax ((type-name (cadr type-name))) #'(quote type-name))) (meta-type-super - (if struct? - (if super - (with-syntax ((super-id super-ref)) - #'[(quote-syntax super-id)]) - #'[]) - (with-syntax (((super-id ...) super-ref)) - #'[(quote-syntax super-id) ...]))) + (with-syntax (((super-id ...) super-ref)) + #'[(quote-syntax super-id) ...])) (meta-type-slots #'(quote (slot ...))) (meta-type-struct? struct?) (meta-type-final? final?) @@ -2200,22 +2167,8 @@ package: gerbil (wrap #'(begin typedef metadef))))) - (defsyntax (defstruct stx) - (def (generate hd fields body) - (syntax-case hd () - ((id super) - (and (identifier? #'id) - (syntax-local-class-type-info? #'super class-type-struct?)) - (generate-typedef stx #'id #'super fields body #t)) - (_ (if (identifier? hd) - (generate-typedef stx hd #f fields body #t) - (raise-syntax-error #f "bad syntax; struct name not an identifier" stx hd))))) - - (syntax-case stx () - ((_ hd fields . rest) - (and (identifier-list? #'fields) - (typedef-body? #'rest)) - (generate #'hd #'fields #'rest)))) + (defrules defstruct () + ((_ hd slots . rest) (defclass hd slots struct: #t . rest))) (defalias define-struct defstruct) @@ -2225,9 +2178,9 @@ package: gerbil ((id . super) (and (stx-list? #'super) (stx-andmap syntax-local-class-type-info? #'super)) - (generate-typedef stx #'id (syntax->list #'super) slots body #f)) + (generate-defclass stx #'id (syntax->list #'super) slots body)) (_ (if (identifier? hd) - (generate-typedef stx hd [] slots body #f) + (generate-defclass stx hd [] slots body) (raise-syntax-error #f "bad syntax; class name should be an identifier" stx hd))))) (syntax-case stx () @@ -2254,7 +2207,7 @@ package: gerbil (with-syntax* (((values klass) (syntax-local-value #'type)) ((values rebind?) - (and (stx-e (stx-getq rebind: #'rest)) #t)) + (stx-e (stx-getq rebind: #'rest))) (type::t (class-type-descriptor klass)) (name diff --git a/src/gerbil/runtime/c3.ss b/src/gerbil/runtime/c3.ss index db71b5f23..a8b9ae7ff 100644 --- a/src/gerbil/runtime/c3.ss +++ b/src/gerbil/runtime/c3.ss @@ -1,84 +1,171 @@ ;;; -*- Gerbil -*- ;;; © fare -;;; The C3 Linearization algorithm to topologically sort an inheritance DAG -;;; into a precedence list such that: +;;; The C3 linearization algorithm to topologically sort an inheritance DAG +;;; into a precedence list follows these three constraints: ;;; 1. The precedence list is a linearization of the inheritance DAG -;;; 2. Every precedence list includes as a sublist the precedence list of every super +;;; 2. Every precedence list includes every super's precedence list as sublist +;;; (elements present in the same order but not necessarily consecutively) ;;; 3. The list of supers is a sublist of the precedence list -;;; 4. The elements that appear earlier in the list of precedence lists followed by -;;; the super list appear earlier in the precedence list. -;;; (This heuristic choice of an order makes the linearization deterministic). -;;; In the above, sublist means that the super list includes all the sublist elements -;;; in the same order but not necessarily consecutively. ;;; -;;; C3 has since been adopted for multiple inheritance by many modern object systems -;;; for its ordering consistency properties: -;;; OpenDylan, Python, Raku, Parrot, Solidity, PGF/TikZ. +;;; We add support for classes that demand single-inheritance: +;;; 4. The precedence-list of a struct is the tail of the precedence-list of +;;; its subclasses. +;;; +;;; Additionally, C3 uses the following heuristic to deterministically compute +;;; the list, starting from the front (most specific), to chose the next +;;; element of the precedence list when the above rules leave some ambiguity: +;;; among the possible candidates to be chosen next, pick the one that appears +;;; earliest in the list of precedence lists followed by the super list. +;;; +;;; C3 has since been adopted for multiple inheritance by many modern +;;; object systems for its ordering consistency properties: +;;; OpenDylan, Python 2.3, Raku, Parrot, Scala, Solidity, PGF/TikZ. ;;; https://en.wikipedia.org/wiki/C3_linearization ;;; https://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.19.3910 ;;; +;;; We dub C4 our extension with the 4th constraints for single-inheritance. +;;; ;;; See tests in ../test/c3-test.ss prelude: "../prelude/core" package: gerbil/runtime namespace: #f -(export c3-linearize) +(export c4-linearize) (import "util") -;; C3 linearization algorithm: given a top object x from which to compute the precedence list, +;; C4 linearization algorithm: given a top object x from which to compute the precedence list, ;; - rhead is [x] or [] depending on whether to include x as head of the result. ;; - supers is (get-supers x), the list of direct supers of x ;; - get-precedence-list gets the precedence list for a super s, including s itself in front +;; - single-inheritance? is a predicate that tells if a class follows single inheritance, and +;; must have its precedence list be a tail of any subclass'es precedence list. ;; - eqpred is an equality predicate between list elements ;; (passed around because somehow equal? doesn't work correctly on runtime type-descriptors). ;; - get-name gets the name of a object/class, for debugging only. -;; : (List X) (List X) (X -> (NonEmptyList X)) ?(X X -> Bool) ?(X -> Y) -> (List X) -(def (c3-linearize rhead supers get-precedence-list (eqpred eq?) (get-name identity)) - (let (tails (map get-precedence-list supers)) ;; : (List (NonEmptyList X)) - (append1! tails supers) - (c3-linearize-loop rhead tails eqpred get-name))) +;; Returns the linearized precedence list, and the most specific struct superclass if any +;; : (List X) (List X) \ +;; get-precedence-list: (X -> (NonEmptyList X)) \ +;; struct: (X -> Bool) \ +;; eqpred: ?(X X -> Bool) \ +;; get-name: ?(X -> Y) \ +;; -> (List X) (OrFalse X) +(def (c4-linearize rhead supers + get-precedence-list: get-precedence-list + struct: struct? + eq: (eq eq?) + get-name: (get-name identity)) + (def pls (map get-precedence-list supers)) ;; (List (List X)) ;; precedence lists to merge + (def sit []) ;; (List X) ;; single-inheritance tail + + ;; Split every precedence list at the first struct, consider whatever + ;; follows as a tail of the precedence-list. Merge all the tails, + ;; where two tails are compatible if one is a tail of the other. + ;; Then in each remaining precedence list, (a) remove from the end the + ;; classes that are in the correct order in the tail, until you reach one + ;; that isn't in the tail, then check that no more class there is in the + ;; tail (or else there's an incompatibility). + ;; Use that as tail of the precedence list, + ;; and for the (reverse) head, proceed as usual with C3. + + (def (get-names lst) + (map get-name lst)) + (def (err . a) + (apply error "Inconsistent precedence graph" + head: (get-names (reverse rhead)) + precedence-lists: (map get-names pls) + single-inheritance-tail: (get-names sit) a)) + + ;;; Deal with the tail of single-inheritance + (def (merge-sit! sit2) + (cond + ((null? sit2) (void)) ;; no new single inheritance tail + ((null? sit) (set! sit sit2)) ;; yes new single inheritance tail + (else + (let loop ((t1 sit) (t2 sit2)) + (cond ;; equal? should be the same as eq? due to single-inheritance + ((equal? t1 sit2) (void)) ;; sit is a prefix of sit2 + ((equal? t2 sit) (set! sit sit2)) ;; sit2 is a prefix of sit + ((or (null? t1) (null? t2)) + (err single-inheritance-incompatibility: [(get-names sit) (get-names sit2)])) + (else (loop (cdr t1) (cdr t2)))))))) + (def rpls + (map (lambda (pl) + (let-values (((tl rh) (append-reverse-until struct? pl []))) + (merge-sit! tl) + rh)) + pls)) + ;; Now that structs can inherit from classes, the superclasses from another + ;; direct superclass could have inherited from it, so we must remove them + ;; from the current rpl, after checking that it was included in the right + ;; order in the overall tail. + (def (unsitr-rpl rpl) + (let u ((pl-rhead rpl) ;; superclasses to process, least-specific to most-specific + (pl-tail []) ;; superclasses processed, most-specific to least-specific + (sit-rhead (reverse sit)) ;; single-inheritance tail to process, least- to most- specific + (sit-tail [])) ;; single-inheritance tail processed, most- to least- specific + (match pl-rhead + ([] pl-tail) ;; done processing -- superclasses not in the sit, most- to least- specific + ([c . plrh] + (if (member c sit-tail eq) ;; caught a superclass out of order with the sit + (err precedence-list-head: (get-names (reverse pl-rhead)) + precedence-list-tail: (get-names pl-tail) + single-inheritance-head: (get-names (reverse sit-rhead)) + single-inheritance-tail: (get-names sit-tail) + super-out-of-order-vs-single-inheritance-tail: (get-name c)) + (let-values (((sit-rh2 sit-tl2) + (append-reverse-until + (cut eq c <>) sit-rhead sit-tail))) + (if (null? sit-rh2) + (u plrh (cons c pl-tail) [] sit-tl2) + (u plrh pl-tail (cdr sit-rh2) sit-tl2)))))))) + + ;; Add the list of direct-supers to the set of precedence-lists to be + ;; compatible with. Reset the tails to be in the C3 most-specific to + ;; least-specific order excluding any class in the single-inheritance tail. + (append1! rpls (reverse supers)) + (set! pls (map unsitr-rpl rpls)) + + ;; Now for the C3 algorithm proper (that technically includes the append1! above) -;; The main loop for c3 -;; : (List X) (List X) ?(X X -> Bool) ?(X -> Y) -> (List X) -(def (c3-linearize-loop rhead tails (eqpred eq?) (get-name identity)) - (let loop ((rhead rhead) (tails tails)) - (let (tails (remove-nulls! tails)) - (match tails - ([] - (reverse rhead)) - ([tail] - (append-reverse rhead tail)) - (else - (let* ((err (cut error "Inconsistent precedence graph" - head: (map get-name (reverse rhead)) - tails: (map (cut map get-name <>) tails))) - (next (c3-select-next tails eqpred err))) - (loop (cons next rhead) - (remove-next! next tails eqpred)))))))) + ;; Next super selection loop, enforcing the ordering constraint and + ;; otherwise implementing the earlier-in-list-first search heuristic. + ;; : (NonEmptyList (NonEmptyList X)) -> X + (def (c3-select-next tails) + (let (candidate? ;; : X -> Bool + (lambda (c) (andmap (lambda (tail) (not (member c (cdr tail) eq))) tails))) + (let loop ((ts tails)) + (match ts + ([[c . _] . rts] + (if (candidate? c) + c + (loop rts))) + (else + (err)))))) -;; Next super selection loop, enforcing the ordering constraint and -;; otherwise implementing the earlier-in-list-first search heuristic. -;; : (NonEmptyList (NonEmptyList X)) ?(X X -> Bool) ?(-> Bottom) -> X -(def (c3-select-next tails eqpred err) - (let (candidate? ;; : X -> Bool - (lambda (c) (andmap (lambda (tail) (not (member c (cdr tail) eqpred))) tails))) - (let loop ((ts tails)) - (match ts - ([[c . _] . rts] - (if (candidate? c) - c - (loop rts))) - (else - (err)))))) + ;; Cleanup after lists after next element in the precedence list was chosen + ;; : X (List (NonEmptyList X)) -> (List (NonEmptyList X)) + (def (remove-next! next tails) + (let loop ((t tails)) + (match t + ([] tails) + ([[head . tail] . more] + (when (eq head next) + (set-car! t tail)) + (loop more))))) -;; Cleanup after lists after next element in the precedence list was chosen -;; : X (List (NonEmptyList X)) ?(X X -> Bool) -> (List (NonEmptyList X)) -(def (remove-next! next tails (eqpred eq?)) - (let loop ((t tails)) - (match t - ([] tails) - ([[head . tail] . more] - (when (eqpred head next) - (set-car! t tail)) - (loop more))))) + ;; Now for the regular C3 loop + (def precedence-list + (let c3loop ((rhead rhead) (tails pls)) + (let (tails (remove-nulls! tails)) + (match tails + ([] + (append-reverse rhead sit)) + ([tail] + (append-reverse rhead (append tail sit))) + (else + (let* ((next (c3-select-next tails))) + (c3loop (cons next rhead) + (remove-next! next tails)))))))) + (def super-struct (match sit ([s . _] s) (else #f))) + (values precedence-list super-struct)) diff --git a/src/gerbil/runtime/mop.ss b/src/gerbil/runtime/mop.ss index 1ac7eeba0..ae4e47d94 100644 --- a/src/gerbil/runtime/mop.ss +++ b/src/gerbil/runtime/mop.ss @@ -55,13 +55,10 @@ namespace: #f (eq? (##structure-length klass) 12))) (def (type-struct? klass) - (assgetq struct: (type-descriptor-properties klass))) + (##fxbit-set? 21 (##type-flags klass))) (def (type-final? klass) - (assgetq final: (type-descriptor-properties klass))) - -(def (struct-type? klass) - (and (type-descriptor? klass) (type-struct? klass))) + (##fxbit-set? 22 (##type-flags klass))) (def (class-type? klass) (type-descriptor? klass)) @@ -75,7 +72,6 @@ namespace: #f [key :: val]))) properties)) -;; 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 @@ -93,7 +89,7 @@ namespace: #f (for-each (lambda (mixin) (let (alist (type-descriptor-properties mixin)) (if (or (assgetq transparent: alist) (eq? #t (assgetq key alist))) - (put-slots! ht (cdr (vector->list (type-descriptor-all-slots mixin)))) + (put-slots! ht (type-descriptor-slot-list mixin)) (put-alist! ht key alist)))) precedence-list) ht) @@ -109,9 +105,16 @@ namespace: #f 1)) (field-info-length (##fx* 3 (##fx- (##vector-length all-slots) first-new-field))) (field-info (make-vector field-info-length #f)) + (struct? (assgetq struct: properties)) + (final? (assgetq final: properties)) (opaque? (or (not all-slots-equalable?) - (and type-super (##fx= (##fxand (##type-flags type-super) 1) 1))))) + (and type-super (##fx= (##fxand (##type-flags type-super) 1) 1)))) + (type-flags + (##fxior 24 ;; 16 (id) + 8 (constructor) + (if opaque? 1 0) + (if struct? (##fxarithmetic-shift 1 21) 0) + (if final? (##fxarithmetic-shift 1 22) 0)))) (let loop ((i first-new-field) (j 0)) (when (##fx< j field-info-length) @@ -123,12 +126,8 @@ namespace: #f (vector-set! field-info j slot) (vector-set! field-info (##fx+ j 1) flags) (loop (##fx+ i 1) (##fx+ j 3))))) - (##structure ##type-type - type-id type-name - (if opaque? 25 24) - type-super - field-info - precedence-list all-slots slot-table properties constructor methods))) + (##structure ##type-type type-id type-name type-flags type-super field-info ;; gambit type + precedence-list all-slots slot-table properties constructor methods))) ;; our extensions ;;; type descriptor utilities (def (type-descriptor-precedence-list klass) @@ -146,6 +145,8 @@ namespace: #f (def (type-descriptor-methods-set! klass ht) (##structure-set! klass ht 11 ##type-type type-descriptor-methods-set!)) +(def (type-descriptor-slot-list klass) + (cdr (vector->list (type-descriptor-all-slots klass)))) (def (type-descriptor-fields klass) (##fx- (##vector-length (type-descriptor-all-slots klass)) 1)) (def (type-descriptor-sealed? klass) @@ -154,93 +155,6 @@ namespace: #f (##structure-set! klass (##fxior (##fxarithmetic-shift 1 20) (##type-flags klass)) 3 ##type-type type-descriptor-seal!)) -;;; struct types -;; : Symbol Symbol StructTypeDescriptor (List Symbol) Alist Constructor -> StructTypeDescriptor -(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)) - (all-slots (type-descriptor-all-slots type)) - (len (length direct-slots)) - (start (##fx- (##vector-length all-slots) len))) - (unless (andmap (lambda (slot i) (eq? slot (##vector-ref all-slots i))) - direct-slots (iota len start)) - (error "non-unique slots in struct" name direct-slots)) - type)) - -(def (make-struct-predicate klass) - (let (tid (##type-id klass)) - (if (type-final? klass) - (lambda (obj) - (##structure-direct-instance-of? obj tid)) - (lambda (obj) - (##structure-instance-of? obj tid))))) - -(def (make-struct-slot-accessor klass slot) - (cond - ((class-slot-offset klass slot) - => (lambda (off) - (if (type-final? klass) - (lambda (obj) - (##direct-structure-ref obj off klass #f)) - (lambda (obj) - (##structure-ref obj off klass #f))))) - (else - (error "unknown slot" class: klass slot: slot)))) - -(def (make-struct-slot-mutator klass slot) - (cond - ((class-slot-offset klass slot) - => (lambda (off) - (if (type-final? klass) - (lambda (obj val) - (##direct-structure-set! obj val off klass #f)) - (lambda (obj val) - (##structure-set! obj val off klass #f))))) - (else - (error "unknown slot" class: klass slot: slot)))) - -(def (make-struct-slot-unchecked-accessor klass slot) - (cond - ((class-slot-offset klass slot) - => (lambda (off) - (lambda (obj) - (##unchecked-structure-ref obj off klass #f)))) - (else - (error "unknown slot" class: klass slot: slot)))) - -(def (make-struct-slot-unchecked-mutator klass slot) - (cond - ((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)))) - -(def ((make-final-field-accessor klass slot field) obj) - (##direct-structure-ref obj field klass slot)) - -(def ((make-struct-field-accessor klass slot field) obj) - (##structure-ref obj field klass slot)) - -(def ((make-final-field-mutator klass slot field) obj val) - (##direct-structure-set! obj val field klass slot)) - -(def ((make-struct-field-mutator klass slot field) obj val) - (##structure-set! obj val field klass slot)) - -(def ((make-struct-field-unchecked-accessor klass slot field) obj) - (##unchecked-structure-ref obj field klass slot)) - -(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 (def (substruct? maybe-sub-struct maybe-super-struct) @@ -258,8 +172,10 @@ namespace: #f ;; : TypeDescriptor -> (OrFalse StructTypeDescriptor) (def (base-struct/1 klass) (cond - ((struct-type? klass) klass) - ((class-type? klass) (##type-super klass)) + ((class-type? klass) + (if (type-struct? klass) + klass + (##type-super klass))) ((not klass) #f) (else (error "not a class or false" klass)))) @@ -287,9 +203,6 @@ namespace: #f ;; Find the constructor method name for the TypeDescriptor ;; : (List TypeDescriptor) -> Symbol -(def (find-super-ctor super) - (find-super-constructor super)) - (def (find-super-constructor super) (let lp ((rest super) (constructor #f)) (match rest @@ -309,17 +222,11 @@ namespace: #f ;; return the all-slots vector of slots (with #f in position 0) and the slot-table. ;; a table mapping symbol and keyword names to offset, and ;; : (OrFalse StructTypeDescriptor) (List TypeDescriptor) (List Symbol) \ -;; -> (Vector Symbol) (Table (Or Symbol Keyword) -> Fixnum) -(def (compute-class-slots super-struct class-precedence-list direct-slots) - (let* ((previous-slots - (if super-struct (type-descriptor-all-slots super-struct) '#(#f))) - (next-slot - (##vector-length previous-slots)) - (slot-table - (if super-struct - (hash-copy (type-descriptor-slot-table super-struct)) - (make-hash-table-eq))) - (r-slots []) +;; -> (Vector Symbol) (Table (Or Symbol Keyword) -> Fixnum) +(def (compute-class-slots class-precedence-list direct-slots) + (let* ((next-slot 1) ;; 0 is special slot for type-descriptor + (slot-table (make-hash-table-eq)) + (r-slots [#f]) (process-slot (lambda (slot) (unless (symbol? slot) @@ -331,17 +238,11 @@ namespace: #f (set! next-slot (##fx+ next-slot 1))))) (process-slots (cut for-each process-slot <>))) (for-each (lambda (mixin) - (unless (type-struct? mixin) ;; skip structure classes, already processed via super - (process-slots - (assgetq direct-slots: (type-descriptor-properties mixin) [])))) + (process-slots + (assgetq direct-slots: (type-descriptor-properties mixin) []))) (reverse class-precedence-list)) (process-slots direct-slots) - (let (all-slots (make-vector next-slot #f)) - (vector-copy! all-slots 0 previous-slots) - (for-each (lambda (slot) - (set! next-slot (##fx- next-slot 1)) - (vector-set! all-slots next-slot slot)) - r-slots) + (let (all-slots (list->vector (reverse r-slots))) (values all-slots slot-table)))) ;;; ClassTypeDescriptor @@ -353,10 +254,10 @@ namespace: #f ((find type-final? direct-supers) => (cut error "Cannot extend final class" <>))) - (let* ((struct-super (base-struct/list direct-supers)) ;; super struct, if any - (precedence-list (class-linearize-mixins direct-supers)) ;; class precedence list, excluding current class + (let* (((values precedence-list struct-super) + (compute-precedence-list direct-supers)) ((values all-slots slot-table) - (compute-class-slots struct-super precedence-list direct-slots)) + (compute-class-slots precedence-list direct-slots)) (properties [[direct-slots: . direct-slots] [direct-supers: . direct-supers] @@ -370,19 +271,21 @@ namespace: #f (def (class-precedence-list klass) (cons klass (type-descriptor-precedence-list klass))) -(def (struct-precedence-list strukt) - (cons strukt - (cond - ((##type-super strukt) => struct-precedence-list) - (else [])))) - -(def (class-linearize-mixins klass-lst) - (c3-linearize [] klass-lst class-precedence-list eq? ##type-name)) +;; class precedence list, excluding current class; super struct if any +;; (List TypeDescriptor) -> (List TypeDescriptor) (OrFalse TypeDescriptor) +(def (compute-precedence-list direct-supers) + (c4-linearize [] direct-supers + get-precedence-list: class-precedence-list + struct: type-struct? + eq: eq? + get-name: ##type-name)) (def (make-class-predicate klass) - (if (type-final? klass) - (cut direct-instance? klass <>) - (cut class-instance? klass <>))) + (let (tid (##type-id klass)) + (cond + ((type-final? klass) (cut ##structure-direct-instance-of? <> tid)) + ((type-struct? klass) (cut ##structure-instance-of? <> tid)) + (else (cut class-instance? klass <>))))) ;; Given a klass descriptor, a slot name (symbol), and three accessor-makers ;; for the respective cases of (a) the descriptor being a struct or final @@ -408,18 +311,58 @@ namespace: #f (def (make-class-slot-accessor klass slot) (if-class-slot-field klass slot - make-final-field-accessor - make-struct-field-accessor - make-struct-subclass-field-accessor + make-final-slot-accessor + make-struct-slot-accessor + make-struct-subclass-slot-accessor make-class-cached-slot-accessor)) +(def (make-class-slot-mutator klass slot) + (if-class-slot-field klass slot + make-final-slot-mutator + make-struct-slot-mutator + make-struct-subclass-slot-mutator + make-class-cached-slot-mutator)) + +(def (make-class-slot-unchecked-accessor klass slot) + (if-class-slot-field klass slot + make-struct-slot-unchecked-accessor + make-struct-slot-unchecked-accessor + make-struct-slot-unchecked-accessor + make-class-cached-slot-unchecked-accessor)) + +(def (make-class-slot-unchecked-mutator klass slot) + (if-class-slot-field klass slot + make-struct-slot-unchecked-mutator + make-struct-slot-unchecked-mutator + make-struct-slot-unchecked-mutator + make-class-cached-slot-unchecked-mutator)) + (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) +(def ((make-final-slot-accessor klass slot field) obj) + (##direct-structure-ref obj field klass slot)) +(def ((make-final-slot-mutator klass slot field) obj val) + (##direct-structure-set! obj val field klass slot)) + +(def ((make-struct-slot-accessor klass slot field) obj) + (##structure-ref obj field klass slot)) +(def ((make-struct-slot-mutator klass slot field) obj val) + (##structure-set! obj val field klass slot)) + +(def ((make-struct-slot-unchecked-accessor klass slot field) obj) + (##unchecked-structure-ref obj field klass slot)) +(def ((make-struct-slot-unchecked-mutator klass slot field) obj val) + (##unchecked-structure-set! obj val field klass slot)) + +(def ((make-struct-subclass-slot-accessor klass slot field) obj) (if (class-instance? klass obj) - (unchecked-field-ref obj field) + (unchecked-slot-ref obj field) + (not-an-instance obj klass slot))) +(def ((make-struct-subclass-slot-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-accessor klass slot field) obj) @@ -430,19 +373,6 @@ namespace: #f (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 - 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) 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) obj val) (cond ((direct-instance? klass obj) @@ -452,25 +382,10 @@ namespace: #f (else (not-an-instance obj klass slot)))) -(def (make-class-slot-unchecked-accessor klass slot) - (if-class-slot-field klass slot - 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) 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 - 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) obj val) (if (direct-instance? klass obj) (unchecked-field-set! obj field val) @@ -482,19 +397,19 @@ namespace: #f (def (class-slot-ref klass obj slot) (if (class-instance? klass obj) (let (off (class-slot-offset (object-type obj) slot)) - (##unchecked-structure-ref obj off klass #f)) + (##unchecked-structure-ref obj off klass slot)) (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)) - (##unchecked-structure-set! obj val off klass #f)) + (##unchecked-structure-set! obj val off klass slot)) (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))) (def (unchecked-slot-set! obj slot val) @@ -513,7 +428,6 @@ namespace: #f (def (slot-ref obj slot (E __slot-error)) (__slot-e obj slot (lambda (off) (unchecked-field-ref obj off)) E)) - (def (slot-set! obj slot val (E __slot-error)) (__slot-e obj slot (lambda (off) (unchecked-field-set! obj off val)) E)) @@ -560,30 +474,25 @@ namespace: #f (loop (##fx- i 1))) obj))) -(def (make-instance klass) +(def (make-new-instance 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)) - (size (##vector-length all-slots))) +(def (make-instance klass . args) + (let (obj (make-new-instance klass)) (cond ((type-descriptor-constructor klass) => (lambda (kons-id) - (__constructor-init! klass kons-id (make-object klass size) args))) - ((##fx= (##fx- size 1) (length args)) + (__constructor-init! klass kons-id obj args))) + ((not (type-struct? klass)) + (__class-instance-init! klass obj args)) + ((##fx= (##fx- (##structure-length obj) 1) (length args)) (apply ##structure klass args)) (else (error "arguments don't match object size" - class: klass slots: (##fx- size 1) args: args))))) + class: klass slots: (type-descriptor-slot-list klass) + args: args))))) -(def (make-class-instance klass . args) - (let (obj (make-instance klass)) - (cond - ((type-descriptor-constructor klass) - => (lambda (kons-id) - (__constructor-init! klass kons-id obj args))) - (else - (__class-instance-init! klass obj args))))) +(def make-class-instance make-instance) (def (struct-instance-init! obj . args) (if (##fx< (length args) (##structure-length obj)) diff --git a/src/gerbil/runtime/util.ss b/src/gerbil/runtime/util.ss index b057dbc4b..b9a373f49 100644 --- a/src/gerbil/runtime/util.ss +++ b/src/gerbil/runtime/util.ss @@ -322,6 +322,21 @@ namespace: #f (def (append-reverse rev-head tail) (foldl cons tail rev-head)) +;; Append the elements the list in the first argument to the front of the list +;; in second argument until an element satisfies a predicate. +;; Return two values, the rest of the first list including the element +;; satisfying the predicate if any (or the empty list if none exists), +;; and the tail with the reverse of the rhead up till then appended in front. +;; : (X -> Bool) (List X) (List X) -> (List X) (List X) +(def (append-reverse-until pred rhead tail) + (let loop ((rhead rhead) (tail tail)) + (match rhead + ([] (values [] tail)) + ([a :: r] + (if (pred a) + (values rhead tail) + (loop r (cons a tail))))))) + (def (andmap1 f lst) (let lp ((rest lst)) (match rest @@ -744,32 +759,27 @@ namespace: #f (let ((tagval tag) (thunk (lambda () expr))) (if tagval - (DBG-helper tagval '(names ...) (list (lambda () exprs) ...) - 'name thunk) + (DBG-helper tagval '(names ...) (list (lambda () exprs) ...) 'name thunk) (thunk))))) (def DBG-printer (make-parameter write)) -;; NB: fprintf uses the current-error-port and calls force-output (def (DBG-helper tag dbg-exprs dbg-thunks expr thunk) (letrec - ((fo (lambda () (force-output (current-error-port)) - (force-output (current-output-port)))) - (d (lambda (x) (display x (current-error-port)))) + ((o (current-output-port)) + (e (current-error-port)) (p (DBG-printer)) - (w (lambda (x) (p x (current-error-port)))) - (n (lambda () (newline (current-error-port)))) - (v (lambda (l) - (for-each (lambda (x) (d " ") (w x)) l) - (n))) + (f (lambda () (force-output o) (force-output e))) + (d (lambda (x) (display x e))) + (w (lambda (x) (p x e))) + (n (lambda () (newline e))) + (v (lambda (l) (for-each (lambda (x) (d " ") (w x)) l) (n))) (x (lambda (expr thunk) - (d " ") - (w expr) (d " =>") - (call-with-values thunk (lambda x (v x) (apply values x)))))) + (f) (d " ") (w expr) (d " =>") + (call-with-values thunk (lambda x (v x) (f) (apply values x)))))) (if tag (begin - (unless (void? tag) (d tag) (n)) + (unless (void? tag) (f) (d tag) (n)) (for-each x dbg-exprs dbg-thunks) (if thunk (x expr thunk) (void))) (if thunk (thunk) (void))))) - diff --git a/src/gerbil/test/c3-test.ss b/src/gerbil/test/c3-test.ss index a326665f6..a10218286 100644 --- a/src/gerbil/test/c3-test.ss +++ b/src/gerbil/test/c3-test.ss @@ -1,35 +1,96 @@ ;; -*- Gerbil -*- ;;; © fare@tunes.org ;;;; Testing the c3 linearization algorithm +;;prelude: "../prelude/core" (export c3-test) (import ;; :gerbil/runtime/c3 (only-in :gerbil/runtime/mop type-descriptor-all-slots) + (only-in :std/misc/hash hash-ensure-ref) (only-in :std/sugar defrule) - (only-in :std/test test-suite test-case check check-exception)) + (only-in :std/test test-suite test-case check check-exception) + (only-in :std/values first-value)) (define gerbil/runtime 'gerbil/runtime) (define :gerbil/core ':gerbil/core) -(include "../../gerbil/runtime/c3.ss") - -;; This variant of c3-linearize is meant for testing only: -;; it recursively applies the algorithm on each super, -;; rather than use a cached precedence lists. -;; The can take exponential time in the complexity of the DAG. -;; : X (X -> (List X)) ?(X -> Y) -> (NonEmptyList X) -(def (c3-linearize* x get-supers (eqpred eqv?) (get-name identity)) - (c3-linearize [x] - (get-supers x) - (get-supers->get-precedence-list get-supers eqpred get-name) - eqpred - get-name)) - -;; : (X -> (List X)) ?(X -> Y) -> (X -> (NonEmptyList X)) -(def (get-supers->get-precedence-list get-supers (eqpred eqv?) (get-name identity)) - (def (gpl x) (c3-linearize [x] (get-supers x) gpl eqpred get-name)) - gpl) +;;(include "../../gerbil/runtime/util.ss") +;;(include "../../gerbil/runtime/c3.ss") + +(extern namespace: #f append-reverse-until) + +(module + (export #t) + (import (only-in :std/text/char-set char-ascii-lowercase?)) + (def (test-struct? sym) + (char-ascii-lowercase? (string-ref (symbol->string sym) 0)))) + +(import (phi: +1 )) + +;;; Test vectors +(defsyntax (defhierarchy stx) + (syntax-case stx () + ((ctx (my-objects my-supers my-descriptors) (object supers ...) ...) + (with-syntax ((((struct? descr) ...) + (stx-map (lambda (o) [(test-struct? (syntax-e o)) + (stx-identifier #'ctx o "::t")]) + #'(object ...)))) + #'(begin + (def my-objects '(object ...)) + (def my-supers '((object supers ...) ...)) + (defclass (object supers ...) (object) + struct: struct? + transparent: #t) ... + (def my-descriptors [descr ...])))))) + +(defhierarchy (my-objects my-supers my-descriptors) + (O) (A O) (B O) (C O) (D O) (E O) + ;; Example from 2021 https://en.wikipedia.org/wiki/C3_linearization + (K1 A B C) (K2 D B E) (K3 D A) (Z K1 K2 K3) + ;; Example from 2023 https://en.wikipedia.org/wiki/C3_linearization with K->J, Z->Y + (J1 C A B) (J2 B D E) (J3 A D) (Y J1 J3 J2) + ;; Example from the C3 paper https://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.19.3910 + ;; keeping only the initials of the classes + ;; object boat day-boat wheel-boat engine-less small-multihull pedal-wheel-boat small-catamaron pedalo + (DB B) (WB B) (EL DB) (SM DB) (PWB EL WB) (SC SM) (P PWB SC) + ;; Other example from the paper, that leads to order inconsistency + ;; also keeping only the initials of the classes + ;; object grid-layout horizontal-grid vertical-grid hv-grid vh-grid ;; omitting confused-grid for now + (GL O) (HG GL) (VG GL) (HVG HG VG) (VHG VG HG) #; (CG HVG VHG) + ;; https://stackoverflow.com/questions/40478154/does-pythons-mro-c3-linearization-work-depth-first-empirically-it-does-not + (HH) (GG HH) (II GG) (FF HH) (EE HH) (DD FF) (CC EE FF GG) (BB) (AA BB CC DD) + (o O) (a o) (b a) (c b o) (d D c) (M A B b a) (N C c) (L M N) (k D L) (j E k A) (I N M)) + +(def my-precedence-lists + '((O) (A O) (B O) (C O) (D O) (E O) + (K1 A B C O) (K2 D B E O) (K3 D A O) (Z K1 K2 K3 D A B C E O) + (J1 C A B O) (J2 B D E O) (J3 A D O) (Y J1 C J3 A J2 B D E O) + (DB B O) (WB B O) (EL DB B O) (SM DB B O) (PWB EL DB WB B O) (SC SM DB B O) + (P PWB EL SC SM DB WB B O) + (GL O) (HG GL O) (VG GL O) (HVG HG VG GL O) (VHG VG HG GL O) #;(CG --- error!) + (HH) (GG HH) (II GG HH) (FF HH) (EE HH) (DD FF HH) + (CC EE FF GG HH) (BB) (AA BB CC EE DD FF GG HH) + (o O) (a o O) (b a o O) (c b a o O) (d D c b a o O) (M A B b a o O) + (N C c b a o O) (L M A B N C c b a o O) (k D L M A B N C c b a o O) + (j E k D L M A B N C c b a o O) (I N C M A B c b a o O))) + +(defrule (def-alist-getter getter alist table) + (begin (def table (list->hash-table alist)) (def getter (cut hash-get table <>)))) +(def-alist-getter my-get-supers my-supers my-supers-table) +(def-alist-getter my-get-precedence-list my-precedence-lists my-precedence-list-table) + +;;; Test-specialized C4 linearization +(def my-compute-precedence-list-cache (make-hash-table)) +(def (my-compute-precedence-list x) + (hash-ensure-ref + my-compute-precedence-list-cache x + (cut first-value + (c4-linearize [x] (my-get-supers x) + get-precedence-list: my-compute-precedence-list + struct: test-struct? + eq: eq? + get-name: identity)))) ;;; Previous implementation: (def (old-linearize-supers x (get-supers my-get-supers)) @@ -38,7 +99,6 @@ (def (class-linearize-mixins klass-lst (get-supers my-get-supers)) (def (class->list klass) (old-linearize-supers klass get-supers)) - (match klass-lst ([] []) ([klass] @@ -54,7 +114,6 @@ (linearize1 hd rest r)) (else (reverse r)))) - (def (linearize1 hd rest r) (match hd ([hd-first . hd-rest] @@ -64,7 +123,6 @@ (putq hd-first r)))) (else (K rest r)))) - (def (linearize2 rest pre r) (let lp ((rest rest) (pre pre)) (match rest @@ -77,85 +135,43 @@ (putq hd-first r)))) (else (lp rest pre))))))) - (def (putq hd lst) (if (memq hd lst) lst (cons hd lst))) - (def (findq hd rest) (find (lambda (lst) (memq hd lst)) rest)) - (K lst '())) -(def (copy-list lst) (foldr cons '() lst)) - -(defrule (def-alist-getter getter alist table) - (begin (def table (list->hash-table alist)) (def getter (cut hash-get table <>)))) - -(defrule (defhierarchy (my-objects my-supers) (object supers ...) ...) - (begin - (def my-objects '(object ...)) - (def my-supers '((object supers ...) ...)) - (defclass (object supers ...) (object) transparent: #t) ...)) - -(defhierarchy (my-objects my-supers) - (O) (A O) (B O) (C O) (D O) (E O) - ;; Example from 2021 https://en.wikipedia.org/wiki/C3_linearization - (K1 A B C) (K2 D B E) (K3 D A) (Z K1 K2 K3) - ;; Example from 2023 https://en.wikipedia.org/wiki/C3_linearization with K->J, Z->Y - (J1 C A B) (J2 B D E) (J3 A D) (Y J1 J3 J2) - ;; Example from the C3 paper https://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.19.3910 - ;; keeping only the initials of the classes - ;; object boat day-boat wheel-boat engine-less small-multihull pedal-wheel-boat small-catamaron pedalo - (DB B) (WB B) (EL DB) (SM DB) (PWB EL WB) (SC SM) (P PWB SC) - ;; Other example from the paper, that leads to order inconsistency - ;; also keeping only the initials of the classes - ;; object grid-layout horizontal-grid vertical-grid hv-grid vh-grid ;; omitting confused-grid for now - (GL O) (HG GL) (VG GL) (HVG HG VG) (VHG VG HG) #; (CG HVG VHG) - ;; https://stackoverflow.com/questions/40478154/does-pythons-mro-c3-linearization-work-depth-first-empirically-it-does-not - (h) (g h) (i g) (f h) (e h) (d f) (c e f g) (b) (a b c d)) - -(def my-precedence-lists - '((O) (A O) (B O) (C O) (D O) (E O) - (K1 A B C O) (K2 D B E O) (K3 D A O) (Z K1 K2 K3 D A B C E O) - (J1 C A B O) (J2 B D E O) (J3 A D O) (Y J1 C J3 A J2 B D E O) - (DB B O) (WB B O) (EL DB B O) (SM DB B O) (PWB EL DB WB B O) (SC SM DB B O) - (P PWB EL SC SM DB WB B O) - (GL O) (HG GL O) (VG GL O) (HVG HG VG GL O) (VHG VG HG GL O) #;(CG --- error!) - (h) (g h) (i g h) (f h) (e h) (d f h) (c e f g h) (b) (a b c e d f g h))) - -(def-alist-getter my-get-supers my-supers my-supers-table) -(def-alist-getter my-get-precedence-list my-precedence-lists my-precedence-lists-table) -(def (my-compute-precedence-list x) (c3-linearize* x my-get-supers eqv?)) - (def c3-test (test-suite "test :gerbil/runtime/c3" + (test-case "utils" + (check (values->list (append-reverse-until odd? [2 4 6 9 12 14 15] '(a b c d e))) + => '((9 12 14 15) (6 4 2 a b c d e)))) (test-case "c3 linearization" (check (map my-compute-precedence-list my-objects) => my-precedence-lists) - ;; check discrepancy with old MRO resolution algorithm - (check (my-compute-precedence-list 'Z) => '(Z K1 K2 K3 D A B C E O)) - (check (old-linearize-supers 'Z) => '(Z K1 K2 K3 D B E A C O)) ; different: B A C bad! - (check (my-compute-precedence-list 'Y) => '(Y J1 C J3 A J2 B D E O)) - (check (old-linearize-supers 'Y) => '(Y J1 C J3 A J2 B D E O)) ; same - (check (my-compute-precedence-list 'P) => '(P PWB EL SC SM DB WB B O)) - (check (old-linearize-supers 'P) => '(P PWB EL SC SM DB WB B O)) ; same - (check (my-compute-precedence-list 'a) => '(a b c e d f g h)) - (check (old-linearize-supers 'a) => '(a b c e d f g h)) ; same + (check (my-compute-precedence-list 'Z) => '(Z K1 K2 K3 D A B C E O)) + (check (old-linearize-supers 'Z) => '(Z K1 K2 K3 D B E A C O)) ; different: B A C bad! + (check (my-compute-precedence-list 'Y) => '(Y J1 C J3 A J2 B D E O)) + (check (old-linearize-supers 'Y) => '(Y J1 C J3 A J2 B D E O)) ; same + (check (my-compute-precedence-list 'P) => '(P PWB EL SC SM DB WB B O)) + (check (old-linearize-supers 'P) => '(P PWB EL SC SM DB WB B O)) ; same + (check (my-compute-precedence-list 'AA) => '(AA BB CC EE DD FF GG HH)) + (check (old-linearize-supers 'AA) => '(AA BB CC EE DD FF GG HH)) ; same + (check (my-compute-precedence-list 'a) => '(a o O)) ;; Try and fail to compute a precedence-list for the confused-grid example in the C3 paper (hash-put! my-supers-table 'CG '(HVG VHG)) (check-exception (my-compute-precedence-list 'CG) true) - ;; Legacy implementation: BAD. We want everything to match the precedence-list (or its reverse) - (check (map ##type-name (class-precedence-list Z::t)) => '(Z K1 K2 K3 D A B C E O)) ;; FIXED! - (check (map ##type-name (class-precedence-list Y::t)) => '(Y J1 C J3 A J2 B D E O)) ;; same! - ;; Slot computation order now follows the MRO! ;; Previously returned (O A B C K1 D E K2 K3 Z), which is so wrong: (check (type-descriptor-all-slots Z::t) => #(#f O E C B A D K3 K2 K1 Z)) ;; Previously returned (O C A B J1 D J3 E J2 Y)), which is so wrong: - (check (type-descriptor-all-slots Y::t) => #(#f O E D B J2 A J3 C J1 Y)) - - (check (c3-linearize-loop [] (map copy-list '((import-expander user-expander) (export-expander user-expander) (import-expander export-expander)))) => '(import-expander export-expander user-expander)) - ))) + (check (type-descriptor-all-slots Y::t) => #(#f O E D B J2 A J3 C J1 Y))) + (test-case "class inheritance" + (check (map (lambda (t) (map ##type-name (class-precedence-list t))) my-descriptors) + => my-precedence-lists) + ;; Legacy implementation: BAD. We want everything to match the precedence-list (or its reverse) + (check (map ##type-name (class-precedence-list Z::t)) => '(Z K1 K2 K3 D A B C E O)) ;; FIXED! + (check (map ##type-name (class-precedence-list Y::t)) => '(Y J1 C J3 A J2 B D E O))))) ;; same! diff --git a/src/std/contract.ss b/src/std/contract.ss index 4b102af70..5fce6526e 100644 --- a/src/std/contract.ss +++ b/src/std/contract.ss @@ -152,7 +152,7 @@ body ...)))))) (def (expand var Type body checked?) - (let* ((klass (syntax-local-value Type #f)) + (let* ((klass (syntax-local-value Type false)) (expr-body (expand-body klass var Type body))) (if checked? (with-syntax ((instance? (class-type-predicate klass)) diff --git a/src/std/generic-test.ss b/src/std/generic-test.ss index 56c1f1a2d..cef9e018e 100644 --- a/src/std/generic-test.ss +++ b/src/std/generic-test.ss @@ -32,8 +32,8 @@ (defstruct A (x)) (generic-bind! my-generic - [(type-linearize-class A::t) - (type-linearize-class A::t)] + [(type-precedence-list A::t) + (type-precedence-list A::t)] (lambda (a b) ['A+ (A-x a) (A-x b)])) (test-case "test user type dispatch" (check (generic-dispatch my-generic (make-A 1) (make-A 2)) => '(A+ 1 2))) diff --git a/src/std/generic/dispatch.ss b/src/std/generic/dispatch.ss index 5c4d5b481..7060a2c18 100644 --- a/src/std/generic/dispatch.ss +++ b/src/std/generic/dispatch.ss @@ -5,7 +5,7 @@ (import :std/error :std/contract :gerbil/gambit) -(export type-of linear-type-of type-linearize-class +(export type-of linear-type-of type-precedence-list make-generic generic? generic-id generic-dispatch generic-bind! generic-dispatch generic-dispatch-next generic-dispatch1 generic-dispatch2 generic-dispatch3 generic-dispatch4 @@ -56,7 +56,7 @@ (cond ((fx= st (macro-subtype-structure)) ; object (let (klass (##structure-type obj)) - (type-linearize-class klass))) + (type-precedence-list klass))) ((fx= st (macro-subtype-boxvalues)) ; box or values? (if (fx= (##vector-length obj) 1) '(box t) @@ -79,19 +79,22 @@ (extern namespace: #f class-precedence-list) ; runtime -(def (type-linearize-class klass) - (cond - ((type-descriptor? klass) (type-linearize-class-type klass)) - ((##type? klass) (type-linearize-struct-type klass)) - (else (error "Not a type object")))) - -(def (type-linearize-class-type klass) - (append (map ##type-id (class-precedence-list klass)) - '(object t))) +(def (struct-precedence-list strukt) + (cons strukt + (cond + ((##type-super strukt) => struct-precedence-list) + (else [])))) -(def (type-linearize-struct-type klass) - (append (map ##type-id (struct-precedence-list klass)) - '(object t))) +(def (type-precedence-list klass) + (cond + ((type-descriptor? klass) + (append (map ##type-id (class-precedence-list klass)) + '(object t))) + ((##type? klass) + (append (map ##type-id (struct-precedence-list klass)) + '(object t))) + (else + (error "Not a type object")))) (def +subtype-id+ (make-vector 32 'unknown)) (def +subtype-linear+ (make-vector 32 '(unknown))) diff --git a/src/std/generic/macros.ss b/src/std/generic/macros.ss index 0d3bb5c5c..36c2772a9 100644 --- a/src/std/generic/macros.ss +++ b/src/std/generic/macros.ss @@ -83,10 +83,10 @@ #'(quote type))) ((class-type-info? type-info) (with-syntax ((klass::t (class-type-descriptor type-info))) - #'(type-linearize-class klass::t))) + #'(type-precedence-list klass::t))) ((builtin-type-info? type-info) (with-syntax ((klass::t (@ type-info runtime-identifier))) - #'(type-linearize-class klass::t))) + #'(type-precedence-list klass::t))) (else (raise-syntax-error #f "Bad syntax; unknown argument type" stx)))) diff --git a/src/std/interface.ss b/src/std/interface.ss index 79cdf0c3a..d581c9a07 100644 --- a/src/std/interface.ss +++ b/src/std/interface.ss @@ -20,8 +20,8 @@ (CastError message irritants: [irritants ...])) ;; base type for all interface instances -(defstruct-type interface-instance::t - #f #f interface-instance? +(defstruct-type interface-instance::t () + #f interface-instance? name: interface-instance slots: ((__object interface-instance-object interface-instance-object-set!))) @@ -664,13 +664,12 @@ (iota (length #'(method-name ...)) 2))) (defklass #'(def klass - (make-struct-type 'klass-type-id ; type id - 'name ; name - interface-instance::t ; super - '(method-name ...) ; direct slots - '((final: . #t)) ; plist - #f ; constructor (none) - ))) + (make-class-type 'klass-type-id ; type id + 'name ; name + [interface-instance::t] ; super + '(method-name ...) ; direct slots + '((final: . #t)) ; plist + #f))) ; constructor (none) (defdescriptor #'(def descriptor (begin-annotation (@interface klass-quoted (method-name ...)) diff --git a/src/std/misc/repr.ss b/src/std/misc/repr.ss index d4cda2c81..363da88d7 100644 --- a/src/std/misc/repr.ss +++ b/src/std/misc/repr.ss @@ -156,7 +156,7 @@ (let (t (object-type x)) (and (type-descriptor? t) (assgetq transparent: (type-descriptor-properties t))))) (display-separated - (if (struct-type? (object-type x)) + (if (type-struct? (object-type x)) (cdr (struct->list x)) (alist->plist (sort (plist->alist (cdr (class->list x))) keywordplist (map (cut map/car find-key <>) (hash->list json))))) + (apply make-instance klass (alist->plist (map (cut map/car find-key <>) (hash->list json))))) (def (trivial-struct->json-object struct) (with ([strukt . fields] (struct->list struct))